home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Toolkit / SUPERSAVER-D2T64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.5 KB  |  35 lines

  1. 0 REM***ERROR***STEPTAN STOP***ERROR*** ***ERROR******ERROR***/V^W*X SQR***ERROR***/CNEWDCLOSE EXP***ERROR***`FN)***ERROR***INPUTSTEP***ERROR***SPC(^TOAND***ERROR******ERROR*** ***ERROR******ERROR*** ***ERROR******ERROR***NEWMID$RUN STOP***ERROR***FN    INPUT`FN)***ERROR***INPUTNEWMID$RUNSPC(***ERROR***TO***ERROR*** ***ERROR******ERROR*** ***ERROR******ERROR***FN    INPUT`
  2. 2 POKE578,1:POKE53280,1:POKE53281,1
  3. 4 PRINT"ô              SUPERSAVER-D/T64   Æ"
  4. 6 PRINTTAB(10)"(C)1983 BY P.J.MYERS":IFPEEK(578)<>1THEN10
  5. 8 PRINT"INSERT SOURCE DISK -- HIT ANY KEY":GOSUB56:GOSUB58
  6. 10 C=PEEK(578)+1:POKE578,C:OPEN15,8,15,"I0":PRINT"PROGRAM NAME ";
  7. 12 CLOSE8:OPEN8,8,0,"$":B=1
  8. 14 GET#8,B$:IFST<>0THEN30
  9. 16 IF B$<>CHR$(34)THEN14
  10. 18 GET#8,B$:IF B$<>CHR$(34)THENN$=N$+B$:GOTO18
  11. 20 GET#8,B$:IFB$=CHR$(32)THEN20
  12. 21 GET#8,D$,E$:IFB$+D$+E$<>"PRG"THEN26
  13. 22 IF C<>BTHEN26
  14. 24 PRINT""TAB(15)"                  ¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥"N$:C=C+1:GOTO32
  15. 26 N$="":GET#8,B$:IFB$<>""THEN26
  16. 28 B=B+1:IFST=0THEN14
  17. 30 RUN2
  18. 32 CLOSE8:OPEN8,8,8,"0:"+N$:INPUT#15,A,B$:IFA<>0THENPRINTA,B$:END
  19. 34 GET #8,A$,B$:S1=ASC(A$+CHR$(0)):S2=ASC(B$+CHR$(0)):POKE251,S1:POKE252,S2
  20. 36 S=S1+S2*256:PRINT"START ADDRESS = "S
  21. 38 N$=LEFT$(N$,18):L=LEN(N$):POKE579,L:FORI=1TOL:POKE579+I,ASC(MID$(N$,I,1))
  22. 40 NEXT:POKE598,15:POKE599,8:POKE600,15:CLR
  23. 42 SB=PEEK(43)+PEEK(44)*256:EB=PEEK(45)+PEEK(46)*256:TB=PEEK(55)+PEEK(56)*256
  24. 44 S=PEEK(251)+PEEK(252)*256:IFS+2>SBANDS<EBORS>4000ANDSB<>2049THEN60
  25. 46 SYSSB+11:SYSSB+71:GOSUB52:PRINT"FINAL ADDRESS  =";PEEK(174)+PEEK(175)*256
  26. 48 IFPEEK(578)=2THENPRINT"INSERT DESTINATION TAPE -- HIT ANY KEY":GOSUB56:GOSUB58
  27. 50 POKE598,1:POKE599,1:POKE600,0:SYSSB+    
  28. 52 IF ST<>0ANDST<>64 THENPRINT"ôERROR ST = "ST:END
  29. 54 RETURN
  30. 56 WAIT197,191:POKE198,0:RETURN
  31. 58 PRINT"æ                                       ":RETURN
  32. 60 NS=TB-SB+2:IN=(NS-SB)/256:FORI=SB-1TOEB:POKENS-SB+I,PEEK(I):NEXT:PT=NS
  33. 62 POKEPT+1,PEEK(PT+1)+IN:PT=PEEK(PT)+PEEK(PT+1)*256:IFPT+3<NS+(EB-SB)THEN62
  34. 64 POKE44,PEEK(44)+IN:POKE46,PEEK(46)+IN:RUN42
  35.