home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1993 February
/
1993-02.d64
/
getnmi
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
552b
|
19 lines
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..."