home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 July / 1985-07.d64 / turbotape (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  12 lines
  1. 100 print"[147]"tab(12)" turbosave/load [146]":print"    relocate to:
  2. 110 [153]"       1. basic ram (pointer 55/56)":[153]"       2. from 52606 t0 53248
  3. 120 poke171,0:input"    your choice (1/2)";a$:ifa$="1"thenpoke171,1:goto140
  4. 130 ifa$<>"2"then120
  5. 140 sys(peek(45)+256*peek(46)-812):clr
  6. 150 print"[147]    now located at:"peek(193)+256*peek(194)"-"peek(174)+256*peek(175)"
  7. 160 n$[178][199](34)[170]"name"[170][199](34):p$[178]n$[170]"[,ba,ea]":zs$[178]"  or sys(680)"[170]p$
  8. 170 zv$[178]"  or sys(683)"[170]n$:ts$[178]"turbosave"[170]p$:tv$[178]"turboverify"[170]n$
  9. 180 [153]"  to save: "ts$:[153]"  tab(tab(tab(tab(tab(tab(tab(":[153],zs$"
  10. 190 print"  to verify: "tv$:print"  [163][163][163][163][163][163][163][163][163]":print,zv$"
  11. 200 [153]"  to load: load (turbo not necessary)":[153]"  tab(tab(tab(tab(tab(tab(tab(
  12.