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