home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1993 December
/
1993-12.d64
/
delete.pp
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
228b
|
7 lines
0 print"[147]":poke53280,6:poke53281,6
1 input"what are low, high line nos.";a,b:y=peek(43)+256*peek(44)
2 x=peek(y)+256*peek(y+1):l=peek(y+2)+256*peek(y+3):ifx=0thenend
3 ifl<atheny=x:goto2
4 ifl<=bthenprint"[147]"l"y="y":b="b":goto2:"
5 poke198,2:poke631,13:poke632,13:end