dira = %1111
getx:
x var byte
SERIN 15, 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:
IF x = 131 THEN s15:
IF x = 130 THEN s14:
IF x = 129 THEN s13:
IF x = 128 THEN s12:
IF x = 127 THEN s11:
IF x = 126 THEN s10:
IF x = 125 THEN s9:
IF x = 124 THEN s8:
IF x = 123 THEN s7:
IF x = 122 THEN s6:
IF x = 121 THEN s5:
IF x = 120 THEN s4:
IF x = 119 THEN s3:
IF x = 118 THEN s2:
IF x = 117 THEN s1:
IF x = 116 THEN s0:
goto getx
o15:
serout 14,16468,["115"]
goto getx
o14:
serout 14,16468,["114"]
goto getx
o13:
serout 14,16468,["113"]
goto getx
o12:
serout 14,16468,["112"]
goto getx
o11:
serout 14,16468,["111"]
goto getx
o10:
serout 14,16468,["110"]
goto getx
o9:
serout 14,16468,["109"]
goto getx
o8:
serout 14,16468,["108"]
goto getx
o7:
serout 14,16468,["107"]
goto getx
o6:
serout 14,16468,["106"]
goto getx
o5:
serout 14,16468,["105"]
goto getx
o4:
serout 14,16468,["104"]
goto getx
o3:
serout 14,16468,["103"]
goto getx
o2:
serout 14,16468,["102"]
goto getx
o1:
serout 14,16468,["101"]
goto getx
o0:
serout 14,16468,["100"]
goto getx
f15:
serout 14,16468,["215"]
goto getx
f14:
serout 14,16468,["214"]
goto getx
f13:
serout 14,16468,["213"]
goto getx
f12:
serout 14,16468,["212"]
goto getx
f11:
serout 14,16468,["211"]
goto getx
f10:
serout 14,16468,["210"]
goto getx
f9:
serout 14,16468,["209"]
goto getx
f8:
serout 14,16468,["208"]
goto getx
f7:
serout 14,16468,["207"]
goto getx
f6:
serout 14,16468,["206"]
goto getx
f5:
serout 14,16468,["205"]
goto getx
f4:
serout 14,16468,["204"]
goto getx
f3:
serout 14,16468,["203"]
goto getx
f2:
serout 14,16468,["202"]
goto getx
f1:
serout 14,16468,["201"]
goto getx
f0:
serout 14,16468,["200"]
goto getx
s15:
outa = %1111
goto getx
s14:
outa = %1110
goto getx
s13:
outa = %1101
goto getx
s12:
outa = %1100
goto getx
s11:
outa = %1011
goto getx
s10:
outa = %1010
goto getx
s9:
outa = %1001
goto getx
s8:
outa = %1000
goto getx
s7:
outa = %0111
goto getx
s6:
outa = %0110
goto getx
s5:
outa = %0101
goto getx
s4:
outa = %0100
goto getx
s3:
outa = %0011
goto getx
s2:
outa = %0010
goto getx
s1:
outa = %0001
goto getx
s0:
outa = %0000
goto getx