10 GOTO30
20 HI=INT(NU/256):LO=NU-HI*256:RETURN
30 IFY=0THENY=1:LOAD"FILECOPY.O",8,1
40 POKE51,.:POKE56,47:CLR:DIMF$(100),T$(100),EA(100),SA(100)
45 DD%=9:CLOSE2:OPEN2,9,15:CLOSE2:IFSTTHENDD%=8
46 IFDD%=9THENGOSUB2000
50 RB=1:GOSUB520:SA=12288:FL$="":F=32768
70 A=PEEK(F):IFA<>0THENFL$=FL$+CHR$(A):F=F+1:GOTO70
80 IFLEN(FL$)>16THENFL$=LEFT$(FL$,16)
90 OPEN2,8,2,"FILES ON SIDE "+SI$
100 INPUT#2,A$:I=ST:INPUT#2,NF$:NF=VAL(NF$):INPUT#2,NB$:NB=VAL(NB$)+1:FORX=1TONF:INPUT#2,F$(X),T$(X):NEXT
120 NF=NF+1:F$(NF)="LOADSTAR READER":T$(NF)="P":IFA$<>FL$ANDI=0THEN100
140 IFA$=FL$THEN170
150 PRINT"ERROR....FILE "FL$" NOT FOUND IN FILE!":CLOSE2:STOP
170 CLOSE2:PRINT:PRINT:POKE198,.:::::D1=.
230 NU=SA:GOSUB20:D1=D1+1:D=D1:POKE12131,HI:POKE12135,LO:SA(D1)=SA
240 GOSUB670:PRINT"[154]READING:"F$(D):OPEN1,8,2,F$(D):SYS12040:CLOSE1
260 EA(D1)=PEEK(832)+PEEK(833)*256:SA=EA(D1)+1:IF(EA(D1)<53248)AND(D1<NF)THEN230
280 IFEA(D1)<53248THEN310
290 D1=D1-1:SA=12288:PRINT"[150]                            
300 [153]"                      
310 IFDD%=9THEN340
315 PRINT"       INSERT DESTINATION DISK...      
320 [153]"    PRESS SPACE WHEN READY TO COPY.":[151]198,.
330 [161]A$:[139]A$[179][177]" "[167]330
340 [139]RB[167][153]"       FORCHECKING # OF BLOCKS FREE
350 IFRBTHENRB=.:GOSUB790
360 D2=D2+1:D=D2:GOSUB670:PRINT"[154]WRITING:"F$(D):GOSUB640:IF(MM)THEN420
390 NU=EA(D2):GOSUB20:POKE832,LO:POKE833,HI:NU=SA(D2):GOSUB20:POKE12131,HI:POKE12135,LO
410 OPEN1,DD%,2,F$(D)+","+T$(D)+",W":SYS12084:CLOSE1
420 IFD2<D1THEN360
430 IFDD%=9THEN460
435 PRINT"       INSERT [153]"DN$"...
440 [153]" PRESS SPACE WHEN READY TO CONTINUE.":[151]198,.
450 [161]A$:[139]A$[179][177]" "[167]450
460 [141]600:[139](MM$[179][177]DN$)[167][141]710:[137]460
470 [153]"ONON";:[129]A[178]1[164]2:[153]"                                       ":[130]
480 [153]"ONONON";:[151]832,.:[151]833,32:[139]D1[179]NF[167]230
500 [141]1030:[137]1310
520 [151]53280,0:[151]53281,0:[153][199](142)"LOAD(null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$";
540 [153]"(null)       LOADSTAR PROGRAM COPIER        (null)";
550 [153]"(null)   CONTBY:  MIKE MAYNARD & ALAN GARDNER   (null)";
560 [153]"MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)";:[129]A[178]217[164]242:[151]A,[194](A)[176]128:[130]
580 [141]600:SI$[178][201](DN$,1):MM$[178]DN$:[153]" PLEASE WAIT FIVE MORE SECONDS... ":[142]
600 [159]15,8,15,"I0":[159]8,8,8,"#":[152]15,"UA:8 0 18 0":[152]15,"B-P:8 144
630 DN$="":FORA=1TO16:GET#8,A$:DN$=DN$+A$:NEXT:CLOSE8:CLOSE15:RETURN
640 OPEN15,DD%,15,"R0:"+F$(D)+"="+F$(D):INPUT#15,ER:CLOSE15:MM=.:IFER=63THENMM=1
660 RETURN
670 PRINT"";:FORA=1TO20:PRINT"                                       ":NEXT:RETURN
690 PRINT"[145][145][145][145][145][145]";:FORA=1TO6:PRINT"                                       ":NEXT:PRINT"[145][145][145][145][145]";:RETURN
710 PRINT"[145][145][159] "MM$"[154] IS NOT IN THE DRIVE.":PRINT"                                     
730 [153]" PUT OPEN"MM$" CONTIN THE DRIVE AND
740 PRINT"       PRESS SPACE [154]TO TRY AGAIN.":POKE198,.
750 GETA$:IFA$<>" "THEN750
760 PRINT"[145][145][145][145]";:FORA=1TO4:PRINT"                                      ":NEXT:PRINT"[145][145][145]":RETURN
790 OPEN15,DD%,15,"I0":INPUT#15,ER:CLOSE15:IF(ER<20)OR(ER>24)THEN810
800 GOSUB670:PRINT" THE DISK IN THE DRIVE ISN'T FORMATTED.":GOTO910
810 OPEN15,DD%,15,"I0":OPEN8,DD%,8,"#
811 [152]15,"UA:8 0 18 0":[152]15,"B-P:8 2":[161]#8,A$:[139]A$[179][177]"2"[167]BA[178]NB[170]1:[137]865
820 [152]15,"UA:8 0 18 0":[152]15,"B-P:8 4":BA[178].:[129]A[178]1[164]35:[139]A[178]18[167][161]#8,A$:[137]850
840 [161]#8,A$:BA[178]BA[170][198](A$[170][199](.))
850 [129]B[178]1[164]3:[161]#8,A$:[130]:[130]
865 [139]NB[179]BA[167][160]8:[160]15:[142]
870 [160]8:[160]15:[141]670:[153]"THERE'S NOT ENOUGH ROOM ON THIS DISK
890 PRINT"FOR [150]"F$(D)" AND THE FILES":PRINT"ASSOCIATED WITH IT.
910 [153]"SYS             YOUR OPTIONS:":[153]"FCONTORMAT A DISK FOR THIS PROGRAM
930 PRINT"T[154]RY SAVING THIS PROGRAM ON ANOTHER DISK
940 [153]"QCONTUIT (FORGET ABOUT COPYING IT)":[153]"PRESS FCONT, TCONT, OR QCONT.":[151]198,.
960 A[178][194](203):[139]A[179][177]21[175]A[179][177]22[175]A[179][177]62[167]960
970 [139]A[178]62[167][141]1250:[137]960
980 [139]A[178]22[167][153]"       FORCHECKING # OF BLOCKS FREE":[137]790
990 [153]"CONT     PUT DISK TO FORMAT IN DRIVE 0
1000 PRINT"    PRESS SPACE[154] WHEN READY TO FORMAT":POKE198,.
1010 GETA$:IFA$<>" "THEN1010
1020 OPEN15,DD%,15,"N0:LOADSTAR PROGS,MM":CLOSE15:GOTO790
1030 GOSUB670:PRINT"         [154]-- FINISHED COPYING [154]--
1040 [153]"CONTTO LOAD THIS PROGRAM FROM BASIC, ENTER:":[153]"LOAD "[199](34)F$(1)[199](34)",8
1060 PRINT"[145]"TAB(30)"[154]THEN...":PRINT"RUN":PRINT"[154]      PLEASE MAKE NOTE OF THIS...
1080 [153]"         PRESS SPACE CONTFOR MORE
1090 IFPEEK(203)<>60THEN1090
1100 GOSUB670:PRINT"":PRINT"[154]TO READ ABOUT THIS PROGRAM FROM BASIC,
1120 [153]"ENTER THE FOLLOWING:
1130 PRINT"LOAD "CHR$(34)"LOADSTAR READER"CHR$(34)",8,1   [154]THEN...
1140 [153]"NEW                          CONTTHEN...":[153]"SYS 679,"[199](34)"T."F$(1)[199](34)
1160 [153]"CONTUSE PCONT TO PAUSE, CCONT TO CONTINUE, AND":[153]"ACONT TO ABORT.
1180 PRINT"[154]      PLEASE MAKE NOTE OF THIS...
1190 [153]"   PRESS SPACE CONTTO RETURN TO LOADSTAR
1200 IFPEEK(203)<>60THEN1200
1210 RETURN:OPEN3,8,3,"FILES ON SIDE 1":FORI=.TO1:GET#3,A$:I=ST:PRINTA$;:NEXT:CLOSE3
1250 PRINT" [154]ARE YOU SURE YOU WANT TO QUIT? (Y[154]/N[154])":POKE198,.
1260 A=PEEK(203):IFA<>25ANDA<>39THEN1260
1270 IFA=39THENPRINT"[145]                                     ":PRINT"[145][145]";:RETURN
1280 PRINT"[154]PLACE [159]"DN$" [154]IN THE DRIVE AND
1290 [153]"PRESS SPACE CONTTO RETURN TO LOADSTAR":[151]198,.
1300 A[178][194](203):[139]A[179][177]60[167]1300
1310 [137]3000
2000 [153]"SYS   IS DRIVE 9 YOUR DESTINATION?  (Y/N)
2010 GETA$:IFA$<>"Y"ANDA$<>"N"THEN2010
2020 PRINT"                                         ":IFA$="N"THENDD%=8
2040 RETURN
3000 POKE45,135:POKE46,27:POKE47,142:POKE48,27:POKE49,142:POKE50,27:POKE51,0
3010 POKE52,128:POKE53,0:POKE54,0:POKE55,0:POKE56,128:CLR
60000 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15:IFER<>63THENPRINT"[147]":END
60020 A$="HELLO CONNECT":Q$=CHR$(34):POKE53281,7:POKE53280,7:PRINT"[147]":PRINT"[158]LOAD"Q$A$Q$",8
60040 [153]"RUN":[151]631,13:[151]632,13:[151]198,2:[162]