home *** CD-ROM | disk | FTP | other *** search
- 10 SYS04839:R$="TRY"
- 15 POKE53281,0:POKE53280,0
- 20 PS=0:BL$=" "
- 25 BL$=BL$+"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]":D$=""
- 30 L2$="[155][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":ZZ=8:PX=57093:POKEPX,0:IF(PEEK(PX)<>0)THEN45
- 35 POKEPX,255:IF(PEEK(PX)<>255)THEN45
- 40 ZZ=3
- 45 ND=0:U=8:GOSUB330
- 50 U=9:GOSUB330:IFND=2THEN65
- 55 U=10:GOSUB330:IFND=2THEN65
- 60 U=11:GOSUB330
- 65 U=SU:AP$=RIGHT$(STR$(ZZ),2)+" PASSES ":IFND=2THENAP$=" ONE PASS "
- 70 PRINT"[147]"SPC(7)L2$:PRINTSPC(7)"[159] C64 BACKUP 1581 DISK ":PRINTSPC(7)L2$
- 75 PRINT"[159] TO AVOID MISTAKES, SLIDE THE WRITE "
- 80 PRINT" PROTECT TAB ON THE RIGHT SIDE OF "
- 85 PRINT" YOUR ORIGINAL DISK INTO THE OPEN "
- 90 PRINT" POSITION. IT WILL TAKE 20 MINUTES ":REMAP$
- 95 PRINT" TO BACKUP A FULL DISK. "
- 100 LN$=" "+L2$+"[192][192][192][192][192][192][192][192][192][192][192]":U$="[145][145][145][145][145][145][145][145]"
- 105 PRINT""LN$:PRINTSPC(2)"[159] INSTRUCTIONS:":PRINTLN$""D$
- 110 UU=1:IFU>9THENUU=2
- 115 IFPEEK(10255)=0THEN225
- 120 IF ND=0 THEN225
- 130 PRINTLN$:PRINT" [159]UNIT:"U SPC(UU)"[159] PASS: 1 [159]R TO RESTART"
- 135 PRINTLN$"[145][145][145][145][145][145][145][145][145][145][145][145]"
- 140 GOSUB350:POKE10260,U:GOSUB235:SYS10240:PRINT"";
- 145 GOSUB315:IFA<>0THEN280
- 150 GOSUB235
- 155 OPEN15,U,15,"N0:TEMP,"+ID$:CLOSE15
- 160 LN=0:GOSUB315:IFA<>0THENLN=150:GOTO280
- 165 SYS10243:PRINT"";
- 170 GOSUB315:IFA<>0THEN280
- 175 FORPX=0TOZZ-2
- 180 GOSUB235:SYS10240:PRINT"";
- 185 GOSUB315:IFA<>0THEN280
- 190 GOSUB235:SYS10243:PRINT"";
- 195 GOSUB315:IFA<>0THEN280
- 200 IFPEEK(10255)=81THEN210
- 205 NEXTPX
- 210 OPEN15,U,15,"I0":CLOSE15
- 215 PRINT""D$D$D$:GOSUB325:PRINTSPC(13)"ALL DONE.":R$="RUN":GOTO285
- 220 POKE52,160:POKE56,160:CLR:END
- 225 PRINT""D$D$D$:GOSUB325:PRINTSPC(9)"SORRY, BAD CONNECTION"
- 230 PRINTSPC(8)"C128 WITH 1581 REQUIRED.":GOTO285
- 235 IF(PS>1)AND((PSAND1)=0)THENGOSUB320
- 240 AP$="WRIT":DP$="DESTINATION":PS=PS+1
- 245 IF(PSAND1)=1THENDP$="ORIGINAL":AP$="READ"
- 250 AG$=" AGAIN,":IFPS<3THENAG$=","
- 255 PRINTSPC(7)"INSERT "DP$" DISK"AG$
- 260 PRINTSPC(7)"PRESS ANY KEY WHEN READY."
- 265 GETA$:IFA$=""THEN265
- 270 IFA$="R"THENCLR:GOTO310
- 275 PRINTSPC(7)AP$"ING...":RETURN
- 280 PRINT""D$D$D$:GOSUB325:PRINTSPC(11)"SORRY, DISK ERROR"
- 285 PRINT:PRINTSPC(7)"PRESS Q TO QUIT; OR PRESS"
- 290 PRINTSPC(7)"ANY OTHER KEY TO "R$" AGAIN,"
- 295 GETA$:IFA$=""THEN295
- 300 IFA$="Q"THENPRINT"[147]":GOTO220
- 305 IFLN=150THENGOSUB315:PRINT"[145][145]":GOTO150
- 310 POKE52,160:POKE56,160:CLR:RUN
- 315 OPEN15,U,15:INPUT#15,A,B$,C,D:CLOSE15
- 316 IFPEEK(10269)<>0THENA=78:B$="BACKUP READ ERROR":RETURN
- 317 IFPEEK(10270)<>0THENA=78:B$="BACKUP WRITE ERROR":RETURN
- 318 RETURN
- 320 PRINT""SPC(19)PS/2+1"[145][145][145]"
- 325 PRINTU$;:FORX=1TO8:PRINTBL$"";:NEXTX:PRINT"[145]"U$:RETURN
- 330 POKE10268,U:SYS10252
- 335 IFPEEK(10268)=0THEN345
- 340 ND=ND+1:DU=U:IFND=1THENSU=U
- 345 RETURN
- 350 OPEN2,U,0,"$0:":FORX=1TO26:GET#2,A$:NEXT:GET#2,A$,B$:ID$=A$+B$:CLOSE2:RETURN
-