10 POKE56,128:CLR:D=PEEK(186):IFD<8THEND=8
12 DV=PEEK(186):IFDV<8THENDV=8
15 A$="B.HYPERSPACE"+CHR$(0):FORI=1TOLEN(A$):POKE32767+I,ASC(MID$(A$,I,1)):NEXT
20 CLOSE15:OPEN15,D,15,"CP":INPUT#15,A,A$:IFA$="PARTITION SELECTED"THEN4000
30 IFDV<>8THEN4000
40 A$="H.SPACE WARRIOR":GOTO60000
3320 REM CHECK DIR TYPE
3330 OPEN2,D,2,"$:":GET#2,D$,E$:FORI=4TO33:GET#2,A$:NEXT
3340 A=0:FORI=34TO38:GET#2,A$:A=A+ASC(A$+CHR$(0)):NEXT:CLOSE2
3350 IFD$="H"THENDI$="[210]OOT [196]IR":IFA<>0THENDIR$="[211]UBDIRECTORY
3360 [139]D$[178]"A"[167]DI$[178]"1541 170(null)":[139]E$[178][199](128)[167]DI$[178]"1571 340(null)"
3370 [139]D$[178]"D"[167]DI$[178]"1581 800(null)"
3380 [142]
4000 [160]15:[153]"LOAD ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANLIST^"
4010 [129]I[178]1[164]19:[153]"PRINT#(null)LIST                                    PRINT#(null)":[130]
4020 [153]"POKE /TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
4025 [153]"LISTLEFT$ (null)CLOSE(null)CLOSEVALCLOSE(null) (null) (null)CLOSEATNCLOSELEN VALCLOSE   (null) ATN (null) (null)CLOSERIGHT$ (null) (null)
4026 PRINT"[155]([195]) 1995 [211]OFTDISK [208]UBLISHING
4030 [153]"LISTLEFT$(null)(null)VAL(null)(null)(null)ATNLENVAL (null)ATN(null)(null)RIGHT$(null)(null) WILL NOT RUN
4040 PRINT"ON THE CURRENT DRIVE. [217]OU MUST COPY
4050 [153]"LEFT$(null)(null)VAL(null)(null)(null)ATNLENVAL (null)ATN(null)(null)RIGHT$(null)(null) AND ALL OF ITS
4060 PRINT"ASSOCIATED FILES TO A REAL 1541/71
4070 [153]"DRIVE WITH A DEVICE NUMBER OF 8.
4140 PRINT"[159][199]O TO [204][207][193][196][211][212][193][210] OR [194][193][211][201][195] ([158][204][159]/[158][194][159])?
4150 [161]K$:[139]K$[179][177]"L"[175]K$[179][177]"B"[167]4150
4160 [139]K$[178]"B"[167][151]56,160:[156]:[128]
4170 A$[178]"HELLO CONNECT"
4180 [137]60000
10000 DV[178][194](186):[159]15,DV,15,"S0:B.HYPERSPACE":[160]15:[148]"B.HYPERSPACE",DV:[128]
60000 [129]I[178]DV[164]29:[139]I[178]14[167][130]
60005 [160]2:[159]2,I,2:[160]2:[139]ST[167]60020
60010 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]60030
60020 [130]:[153]"LOAD":[151]53272,23:[151]186,8:[128]
60030 Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23
60040 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I
60050 [153]"RUN:":[151]631,13:[151]632,13:[151]198,2:[128]