home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64apps / turbtape.prg (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-07-27  |  1.5 KB  |  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.