home *** CD-ROM | disk | FTP | other *** search
- 0 clr
- 100 data 169,0,141,0,33,141,1,33,172,24,3,174,25,3,140,2,33
- 110 data 142,3,33,160,76,162,32,140,24,3,142,25,3,169,0
- 120 data 205,0,33,240,251,206,0,33,238,1,33,162,0,189,82,32
- 130 data 32,210,255,232,224,22,208,245,174,1,33,224,5
- 140 data 208,223,172,2,33,174,3,33,140,24,3,142,25,3,96
- 150 data 238,0,33,108,2,33
- 160 data 82,69,83,84,79,82,69,32,75,69,89
- 170 data 32,68,69,84,69,67,84,69,68,33,13
- 200 for j=8192 to 8295
- 210 read x:t=t+x
- 220 poke j,x
- 230 next j
- 240 if t<>8942 then stop
- 300 print "interrupt detect program."
- 310 print "press >restore< five times!"
- 320 sys 8192
- 330 print "...end..."
-