10 DIMFI$(100),BL(100),FT$(100):POKE53281,0:POKE53280,0:PRINT"[147][159]":IT=1
20 GOSUB40010:BX=2:EX=38:BY=1:BD=9:BC=4:GOSUB40040
30 PRINT"[158]      ?.[198][201][204][197][211] ON THIS DISK[160]       ":GOSUB5010
40 REM***** MENU ******
50 GOSUB170:GOSUB260:POKE214,21:PRINT:PRINTTAB(11)"[209] TO QUIT TO [204][207][193][196][211][212][193][210]"
60 GETA$:IFTI>15THENT=NOTT:GOSUB140
70 IFA$=""THEN60
80 IFA$=""THENT=0:GOSUB140:IT=IT+1:T=-1:IFIT>10THENIT=1:GOSUB200
90 IFA$="[145]"THENT=0:GOSUB140:IT=IT-1:T=-1:IFIT<1THENIT=10:GOSUB220
100 IFA$=""THENIFIT<6THENT=0:GOSUB140:IT=IT+5:T=-1:GOSUB140
110 IFA$="[157]"THENIFIT>5THENT=0:GOSUB140:IT=IT-5:T=-1:GOSUB140
120 IFA$="Q"THENGOTO60000
130 GOSUB140:GOSUB240:GOSUB260:GOTO60
140 X=4:L=IT:IFIT>5THENX=21:L=IT-5
150 POKE211,X:POKE214,3+L:SYS58732:POKE199,-T:PRINTFI$(PA+IT):TI$="000000"
160 RETURN
170 PRINT"":FORI=1TO5:PRINT"                                  ":NEXT
180 FORI=1+PATOPA+5:POKE211,4:POKE214,3+I-PA:SYS58732:POKE646,3
190 PRINTFI$(I);TAB(21)FI$(I+5):NEXT:RETURN
200 GOSUB240:IFPA>+10<NFTHENPA=PA+10:GOSUB170
210 RETURN
220 GOSUB250:IFPA>=10THENPA=PA-10:GOSUB170
230 RETURN
240 IFIT+PA>INT(NF)THENIT=IT-1:GOTO240
250 RETURN
260 POKE214,9:PRINT:PRINTTAB(4)"[153][194]LOCK SIZE:     [157][157][157][157][157]"BL(IT+PA)TAB(22);
270 PRINT"[212]YPE:    [157][157][157]"FT$(IT+PA)"[159]":RETURN
5000 REM **** SETUP ****
5010 GOSUB5090:NF=(EL-MP)/32-1
5020 REM ** EXTRACT NAMES FROM MEMORY **
5030 A$="":I=MP+32:FORX=1TONF:FORI=ITOI+31:A$=A$+CHR$(PEEK(I)):NEXT
5040 FI$(X)=MID$(STR$(ASC(MID$(A$,2,1))*256+ASC(MID$(A$,1,1))),2):A$=MID$(A$,2)
5050 FI$(X)=FI$(X)+" "+MID$(A$,1,29-LEN(FI$(X))):A$="":PRINT"[144]"FI$(X)
5060 PRINT",,,";
5070 OPEN3,3:INPUT#3,BL(X),FI$(X),FT$(X):CLOSE3:NEXT
5080 FORI=NF+2TO100:FI$(I)="":FT$(I)="":BL(I)=0:NEXT:RETURN
5090 CLOSE15:OPEN15,8,15,"I0:":GOSUB5150:PRINT#15,"I0:":INPUT#15,A$,A$,B$,C$
5100 IFA$<>"OK"THENEND
5110 IFND$<>OD$THENGOSUB5170
5120 REM ** FIND END OF LOAD **
5130 EL=PEEK(175)*256+PEEK(174):RETURN
5140 REM*** GET DISK NAME ****
5150 PRINT#15,"M-R";CHR$(144);CHR$(7);CHR$(20):ND$="":FORI=1TO20:GET#15,A$:ND$=ND$+A$:NEXT:A$="":RETURN
5160 REM ** BLOAD DIRECTORY INTO MP **
5170 MP=49152:FI$="$?.*":LE=0:T=0:HI=INT(MP/256):LO=MP-(HI*256):FORI=1TOLEN(FI$)
5180 POKE678+I,ASC(MID$(FI$,I,1)):NEXT:LE=I-1:POKE780,LE:POKE781,167:POKE782,2:SYS65469:POKE780,2:POKE781,8
5190 POKE782,0:SYS65466:POKE780,0:POKE781,LO:POKE782,HI:SYS65493:RETURN
40000 REM*******GENERATE VARIABLES**********
40010 BA$="[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]"
40020 A$="[221][157][221][157][221][157][221][157][221][157][221][157][221][157]":FORI=1TO6:BD$=BD$+A$:NEXT:RETURN
40030 REM*********PRINT BOX*************
40040 OC=PEEK(646):POKE646,BC:RV$="":IFRVTHENRV$=""
40050 POKE211,BX:POKE214,BY:SYS58732:PRINTRV$"[176]"LEFT$(BA$,EX-BX-2)"[174][157]";
40060 PRINTRV$LEFT$(BD$,BD*3):PRINTRV$SPC(BX)"[145][173]"LEFT$(BA$,EX-BX-2)"[189]"
40070 POKE211,BX:POKE214,BY+1:SYS58732:PRINTRV$LEFT$(BD$,BD*3)"":POKE646,OC
40080 RV=0:RETURN
60000 CLOSE15: OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60010 IF ER<>63 THEN PRINT"[147]":END
60020 A$="HELLO CONNECT":Q$=CHR$(34):POKE53281,7:POKE53280,7:PRINT"[147]"
60030 PRINT"[158]LOAD"Q$A$Q$",8"
60040 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END