27 lines
509 B
Plaintext
27 lines
509 B
Plaintext
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
|