Permalink
Cannot retrieve contributors at this time
| 1 for c=1 to 4 | |
| 2 p=c*256+252 | |
| 3 poke p,0:poke p+1,0 | |
| 4 next c | |
| 5 mode 2:cls | |
| 6 ?" 2 3 5 6 7" | |
| 7 ?"Q W E R T Y U I" | |
| 8 poke p-2,2 | |
| 9 k=peek(15):'serialRaw | |
| 10 if k>126 goto 9 | |
| 11 gosub k | |
| 12 poke p,a:poke p+1,b | |
| 13 poke 44,30:goto 9 | |
| 50 a=11 :b=9 :return | |
| 51 a=25 :b=10:return | |
| 53 a=16 :b=12:return | |
| 54 a=78 :b=13:return | |
| 55 a=35 :b=15:return | |
| 101 a=103:b=10:return | |
| 105 a=19 :b=17:return | |
| 113 a=73 :b=8 :return | |
| 114 a=57 :b=11:return | |
| 116 a=108:b=12:return | |
| 117 a=23 :b=16:return | |
| 119 a=80 :b=9 :return | |
| 121 a=53 :b=14:return |