home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Toolkit / SUPERSAVER-T2D64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.4 KB  |  26 lines
  1. 0 REM STEPTAN STOP***ERROR*** ***ERROR******ERROR***/V^W*X SQR***ERROR***/CNEWDCLOSE EXP***ERROR***FN)***ERROR***INPUTSTEP***ERROR***SPC(^TOAND ***ERROR******ERROR*** ***ERROR******ERROR***NEWMID$RUN STOP***ERROR***FN    INPUT`FN)***ERROR***INPUTSTEPNEW Y***ERROR*** ***ERROR******ERROR***FN    INPUT`***ERROR******ERROR******ERROR******ERROR******ERROR******ERROR***
  2. 2 POKE577,48:POKE578,48:POKE53280,1:POKE53281,1
  3. 4 PRINT"ô            SUPERSAVER-T/D64   Æ"
  4. 6 PRINTTAB(10)"(C)1983 BY P.J.MYERS":IFPEEK(577)<>48THEN10
  5. 8 PRINT"INSERT SOURCE TAPE - HIT ANY KEY":WAIT197,191:POKE198,0:GOSUB48
  6. 10 SYS63276:GOSUB44:GOSUB48:POKE251,PEEK(829):POKE252,PEEK(830)
  7. 12 FORI=853TO833STEP-1:IFPEEK(I)=32THENNEXT:A=255:I=835
  8. 14 IFA=255THENPOKE578,PEEK(578)+1:POKE833,83:POKE834,83:POKE835,PEEK(578)
  9. 16 L=I-832:FORI=1TOL:N$=N$+CHR$(PEEK(832+I)):POKE579+I,PEEK(832+I):NEXT
  10. 18 IFPEEK(578)=49THENGOSUB48
  11. 20 PRINT"PROGRAM NAME =                ¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥"N$:POKE579,L
  12. 22 PRINT"START ADDRESS =             ¥¥¥¥¥¥¥¥¥¥¥¥¥"PEEK(829)+PEEK(830)*256:CLR
  13. 24 PRINT"FINAL ADDRESS =          ¥¥¥¥¥¥¥¥¥¥"PEEK(831)+PEEK(832)*256
  14. 26 SB=PEEK(43)+PEEK(44)*256:EB=PEEK(45)+PEEK(46)*256:TB=PEEK(55)+PEEK(56)*256
  15. 28 S=PEEK(251)+PEEK(252)*256:F=PEEK(831)+PEEK(832)*256
  16. 30 IFS-2<SBANDF+2>SBORS-100<EBANDF>EBORS+2>SBANDF<EBTHEN 38
  17. 32 POKE598,1:POKE599,1:POKE600,1:SYSSB+68:GOSUB44:IFPEEK(577)<>48THEN36
  18. 34 PRINT"INSERT DESTINATION DISK - HIT ANY KEY":WAIT197,191:GOSUB48:POKE577,49
  19. 36 POKE198,0:POKE598,15:POKE599,8:POKE600,15:SYSSB+6:GOSUB44:RUN4
  20. 38 NS=TB-SB+2:IN=(NS-SB)/256:FORI=SB-1TOEB:POKENS-SB+I,PEEK(I):NEXT:PT=NS
  21. 40 POKEPT+1,PEEK(PT+1)+IN:PT=PEEK(PT)+PEEK(PT+1)*256:IFP    
  22. 42 POKE44,PEEK(44)+IN:POKE46,PEEK(46)+IN:RUN26
  23. 44 IFST<>0ANDST<>64THENPRINT:PRINT"ERROR = ";ST:END
  24. 46 RETURN
  25. 48 PRINT"æ                                         æææ":RETURN
  26.