0 GOTO10
5 HI=INT(NU/256):LO=NU-HI*256:RETURN
10 IFY=0THENY=1:LOAD"FILECOPY.O",8,1
11 POKE51,.:POKE56,47:CLR:DIM F$(100),T$(100),EA(100),SA(100)
12 RB=1:GOSUB500:SA=12288
15 FL$="":F=32768
17 A=PEEK(F):IFA<>0THENFL$=FL$+CHR$(A):F=F+1:GOTO17
20 IFLEN(FL$)>16THENFL$=LEFT$(FL$,16)
25 OPEN2,8,2,"FILES ON SIDE "+SI$
30 INPUT#2,A$:I=ST:INPUT#2,NF$:NF=VAL(NF$):INPUT#2,NB$:NB=VAL(NB$)
35 FORX=1TONF:INPUT#2,F$(X),T$(X):NEXT
40 IFA$<>FL$ANDI=0THEN30
42 IFA$=FL$THEN50
47 PRINT"ERROR....FILE "FL$" NOT FOUND IN FILE!":CLOSE2
48 PRINT"PLEASE REPORT THIS ERROR TO LOADSTAR!":STOP
50 CLOSE2
51 PRINT"[154]  PRESS: SPACE[146] [154]TO START COPYING"
52 PRINT"         RETURN[146] [154]TO RETURN TO LOADSTAR.":POKE198,.
53 GETA$:IFA$<>" "ANDA$<>CHR$(13)THEN53
54 IFA$=CHR$(13)THENGOSUB60000:POKE198,.:GOTO53
55 D1=.
56 NU=SA:GOSUB5:D1=D1+1:D=D1:POKE12131,HI:POKE12135,LO:SA(D1)=SA
57 GOSUB900:PRINT"[154]READING:"F$(D)
60 OPEN1,8,2,F$(D):SYS12040:CLOSE1
80 EA(D1)=PEEK(832)+PEEK(833)*256:SA=EA(D1)+1
85 IF (EA(D1)<53248) AND (D1<NF) THEN 56
87 IF EA(D1)<53248 THEN 90
88 D1=D1-1:SA=12288:PRINT"[150]            BUFFER OVERFLOW!"
89 PRINT"          MUST RECOPY "F$(D)
90 PRINT"       INSERT DESTINATION DISK...      "
92 PRINT"    PRESS SPACE WHEN READY TO COPY.":POKE198,.
93 GETA$:IFA$<>" "THEN93
94 IFRBTHENPRINT"       [129]CHECKING # OF BLOCKS FREE"
95 IFRBTHENRB=.:GOSUB3000
96 D2=D2+1:D=D2:GOSUB900:PRINT"[154]WRITING:"F$(D):GOSUB700
98 IFMM=1THEN90
99 IFMM=2THEN96
100 NU=EA(D2):GOSUB5:POKE832,LO:POKE833,HI
101 NU=SA(D2):GOSUB5:POKE12131,HI:POKE12135,LO
105 OPEN1,8,2,F$(D)+","+T$(D)+",W":SYS12084:CLOSE1
110 IF D2<D1 THEN 96
120 PRINT"       INSERT [153]"DN$"..."
122 PRINT" PRESS SPACE WHEN READY TO CONTINUE.":POKE198,.
124 GETA$:IFA$<>" "THEN124
125 GOSUB600:IF(MM$<>DN$)THENGOSUB2000:GOTO125
126 PRINT"[145][145]";:FORA=1TO2:PRINT"                                       ":NEXT
127 PRINT"[145][145][145]";:POKE832,.:POKE833,32
129 IF D1<NF THEN 56
130 GOSUB900:PRINT"         [154]-- FINISHED COPYING [154]--"
131 GOTO60030
500 POKE53280,0:POKE53281,0:SYS51459
510 PRINTCHR$(142)"[147][213][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][192][192][192][192][192][192][192][192][192][192][192][192][192][201]";
513 PRINT"[221]       LOADSTAR PROGRAM COPIER        [221]";
515 PRINT"[221]   [154]BY:  MIKE MAYNARD & ALAN GARDNER   [221]";
516 PRINT"[202][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][192][192][192][192][192][192][192][192][192][192][192][192][192][203]";
518 FORA=217TO242:POKEA,PEEK(A)OR128:NEXT
520 GOSUB600:SI$=RIGHT$(DN$,1):MM$=DN$
550 PRINT" PLEASE WAIT -- READING [153]FILES ON SIDE "SI$:RETURN
600 OPEN15,8,15,"I0":OPEN8,8,8,"#"
610 PRINT#15,"UA:8 0 18 0"
620 PRINT#15,"B-P:8 144"
630 DN$="":FORA=1TO16:GET#8,A$:DN$=DN$+A$:NEXT:CLOSE8:CLOSE15:RETURN
700 OPEN15,8,15,"R0:"+F$(D)+"="+F$(D):INPUT#15,ER:CLOSE15
710 IFER<>63THENMM=.:RETURN
715 PRINT"[145]                                     "
720 PRINT"[145]"F$(D)" [154]ALREADY EXISTS..."
730 PRINT"     T[154]RY AGAIN WITH ANOTHER DISK."
740 PRINT"     S[154]CRATCH AND REPLACE FILE."
760 PRINT"CHOOSE T[154] OR S[154].":POKE198,.
770 GETA$:IFA$=""THEN770
780 IFA$="T"ORA$="[212]"THEN820
790 IFA$="S"ORA$="[211]"THEN840
810 GOTO770
820 GOSUB1000:MM=1:RB=1:RETURN
840 GOSUB1000:PRINT"[154]SCRATCHING:"F$(D)
850 OPEN15,8,15,"S0:"+F$(D):CLOSE15:PRINT"[145]                                    "
860 MM=2:RETURN
900 PRINT"";:FORA=1TO20:PRINT"                                       ":NEXT
905 RETURN
1000 PRINT"[145][145][145][145][145][145]";:FORA=1TO6:PRINT"                                       "
1010 NEXT:PRINT"[145][145][145][145][145]";:RETURN
2000 PRINT"[145][145][159] "MM$"[154] IS NOT IN THE DRIVE."
2005 PRINT"                                     "
2010 PRINT" PUT [159]"MM$" [154]IN THE DRIVE AND"
2020 PRINT"       PRESS SPACE [154]TO TRY AGAIN.":POKE198,.
2030 GETA$:IFA$<>" "THEN2030
2040 PRINT"[145][145][145][145]";:FORA=1TO4:PRINT"                                      ":NEXT
2050 PRINT"[145][145][145]":RETURN
2999 REM CHECK # OF BLOCKS FREE
3000 OPEN15,8,15,"I0":INPUT#15,ER:CLOSE15:IFER<>21THEN3008
3005 GOSUB900:PRINT" THE DISK IN THE DRIVE ISN'T FORMATTED.":GOTO3070
3008 OPEN15,8,15,"I0":OPEN8,8,8,"#"
3010 PRINT#15,"UA:8 0 18 0":PRINT#15,"B-P:8 4"
3020 BA=.:FORA=1TO35:IFA=18THENGET#8,A$:GOTO3035
3030 GET#8,A$:BA=BA+ASC(A$+CHR$(.))
3035 FORB=1TO3:GET#8,A$:NEXT
3040 NEXT:IFNB<BATHENCLOSE8:CLOSE15:RETURN
3045 CLOSE8:CLOSE15
3050 GOSUB900:PRINT"THERE'S NOT ENOUGH ROOM ON THIS DISK"
3060 PRINT"FOR [150]"F$(D)" AND THE FILES"
3065 PRINT"ASSOCIATED WITH IT."
3070 PRINT"[158]             YOUR OPTIONS:"
3075 PRINT"F[154]ORMAT A DISK FOR THIS PROGRAM"
3080 PRINT"T[154]RY SAVING THIS PROGRAM ON ANOTHER DISK"
3085 PRINT"Q[154]UIT (FORGET ABOUT COPYING IT)
3090 [153]"PRESS FCONT, TCONT, OR QCONT.":[151]198,.
3100 A[178][194](203):[139]A[179][177]21[175]A[179][177]22[175]A[179][177]62[167]3100
3110 [139]A[178]62[167][141]60000:[137]3100
3120 [139]A[178]22[167][153]"       FORCHECKING # OF BLOCKS FREE":[137]3000
3130 [153]"CONT     PUT DISK TO FORMAT IN DRIVE 0"
3140 [153]"    PRESS SPACECONT WHEN READY TO FORMAT":[151]198,.
3150 [161]A$:[139]A$[179][177]" "[167]3150
3160 [159]15,8,15,"N0:LOADSTAR PROGS,MM":[160]15:[137]3000
5000 [159]3,8,3,"FILES ON SIDE 1"
5010 [129]I[178].[164]1:[161]#3,A$:I[178]ST:[153]A$;
5020 [130]:[160]3
60000 [153]" CONTARE YOU SURE YOU WANT TO QUIT? (YCONT/NCONT)":[151]198,.
60010 A[178][194](203):[139]A[179][177]25[175]A[179][177]39[167]60010
60020 [139]A[178]39[167][153]"ON                                     ":[153]"ONON";:[142]
60022 [153]"CONTPLACE OPEN"DN$" CONTIN THE DRIVE AND"
60024 [153]"PRESS SPACE CONTTO RETURN TO LOADSTAR":[151]198,.
60026 A[178][194](203):[139]A[179][177]60[167]60026
60030 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15
60040 [139]ER[179][177]63[167][128]
60050 [147]"HELLO CONNECT",8