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=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