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