1 rem tau ceti (crl)
2 rem infinite everything by alan smith
3 rem cassette -v1- zzap no.17
10 data 169,1,168,170,32,186,255,981
20 data 169,0,32,189,255,169,0,814
30 data 32,213,255,169,197,141,245,1252
40 data 3,169,2,141,246,3,76,640
50 data 82,3,169,210,141,186,9,800
60 data 169,2,141,187,9,76,0,584
70 data 8,169,234,141,158,72,141,923
80 data 159,72,141,160,72,141,221,966
90 data 59,141,222,59,141,223,59,904
100 data 141,71,59,141,72,59,141,684
110 data 73,59,169,191,141,116,77,826
120 data 76,64,1,0,0,0,0,141
130 data 169,169,141,118,62,169,191,1019
140 data 141,119,62,169,234,141,120,986
150 data 62,141,121,62,141,122,62,711
160 data 76,0,32,0,0,0,0,108
180 print chr$(147) "just a minute..."
200 for s=0 to 11:t=0:fory=0 to 6:read a:t=t+a:poke 679+s*7+y,a:next
250 read a:if t<>a then print "error in line"s+1:end
300 next
350 for s=0 to 3:t=0:for y=0 to 6:read a:t=t+a:poke 320+s*7+y,a:next
400 read a:if t<>a then print "error in line"s+13:end
450 next
500 print "insert and rewind tau ceti tape"
600 print "then press any key"
700 poke 198,0
750 wait 198,1
800 sys 679
Download PRG...
