home *** CD-ROM | disk | FTP | other *** search
- 100 data 32,228,255,201,0,240,249
- 110 data 162,0,157,0,4,157,0,5
- 120 data 157,0,6,157,0,7,232,208,241
- 130 data 201,32,208,228,96
- 200 for j=8192 to 8220
- 210 read x:t=t+x
- 220 poke j,x
- 230 next j
- 240 if t<>3463 then stop
- 300 print "[147][208]ress any key; space bar to stop"
- 310 sys 8192
-