getx:
x var byte
SERIN 16, 16468,[DEC3 x]
IF x = 115 THEN o15:
IF x = 114 THEN o14:
IF x = 113 THEN o13:
IF x = 112 THEN o12:
IF x = 111 THEN o11:
IF x = 110 THEN o10:
IF x = 109 THEN o9:
IF x = 108 THEN o8:
IF x = 107 THEN o7:
IF x = 106 THEN o6:
IF x = 105 THEN o5:
IF x = 104 THEN o4:
IF x = 103 THEN o3:
IF x = 102 THEN o2:
IF x = 101 THEN o1:
IF x = 100 THEN o0:
IF x = 215 THEN f15:
IF x = 214 THEN f14:
IF x = 213 THEN f13:
IF x = 212 THEN f12:
IF x = 211 THEN f11:
IF x = 210 THEN f10:
IF x = 209 THEN f9:
IF x = 208 THEN f8:
IF x = 207 THEN f7:
IF x = 206 THEN f6:
IF x = 205 THEN f5:
IF x = 204 THEN f4:
IF x = 203 THEN f3:
IF x = 202 THEN f2:
IF x = 201 THEN f1:
IF x = 200 THEN f0:

goto getx
o15:
HIGH 15
goto getx
o14:
HIGH 14
goto getx
o13:
HIGH 13
goto getx
o12:
HIGH 12
goto getx
o11:
HIGH 11
goto getx
o10:
HIGH 10
goto getx
o9:
HIGH 9 
goto getx
o8:
HIGH 8 
goto getx
o7:
HIGH 7 
goto getx
o6:
HIGH 6 
goto getx
o5:
HIGH 5 
goto getx
o4:
HIGH 4 
goto getx
o3:
HIGH 3 
goto getx
o2:
HIGH 2 
goto getx
o1:
HIGH 1 
goto getx
o0:
HIGH 0 
goto getx
f15:
LOW 15
goto getx
f14:
LOW 14
goto getx
f13:
LOW 13
goto getx
f12:
LOW 12
goto getx
f11:
LOW 11
goto getx
f10:
LOW 10
goto getx
f9:
LOW 9 
goto getx
f8:
LOW 8 
goto getx
f7:
LOW 7 
goto getx
f6:
LOW 6 
goto getx
f5:
LOW 5 
goto getx
f4:
LOW 4 
goto getx
f3:
LOW 3 
goto getx
f2:
LOW 2 
goto getx
f1:
LOW 1 
goto getx
f0:
LOW 0 
goto getx