Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
27 lines (26 sloc) 509 Bytes
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