10 GOSUB60100:POKE53280,.:POKE53281,.
20 PRINT"[147][159]DIRECTORY READER [154]BY JOSEPH R. CHARNETSKI"
30 PRINT"      [159]BLOCKS FREE [154]BY GEOFF LARSON"
40 PRINT"        D [154]- VIEW DIRECTORY"
50 PRINT"        B [154]- VIEW BLOCKS FREE"
60 PRINT"        Q [154]- QUIT"
70 PRINT"        CHOOSE D[154], B[154], OR Q[154]."
80 A=PEEK(203):IFA<>18ANDA<>28ANDA<>62THEN80
90 IFA=62THENGOSUB60000:GOTO70
100 GS=1:IFA=28THENGS=2
110 OPEN15,8,15,"I0":INPUT#15,ER,ER$:CLOSE15:IFER=.THEN140
120 PRINT"DISK ERROR:[150]"ER,ER$
130 FORA=1TO2000:NEXT:PRINT"[145]                                      [145][145]":GOTO80
140 IFGS=1THENPRINT"[147]";
145 ONGSGOSUB800,900
150 IFGS=2THENPRINT"[154]        BLOCKS FREE:"F
160 PRINT"        [154]PRESS SPACE [154]TO CONTINUE."
170 A=PEEK(203):IFA<>60THEN170
180 GOTO20
800 REM DIRECTORY - JOSEPH R.CHARNETSKI
810 OPEN1,8,0,"$":GET#1,A$,A$
820 GET#1,A$,A$:IFA$=""THEN880
830 GET#1,B$,C$
840 BL=ASC(B$+CHR$(0)):BH=ASC(C$+CHR$(0))
850 D$=MID$(STR$(BL+256*BH),2)+CHR$(32)
860 PRINTD$;:GET#1,D$:IFD$<>""THEN860
870 PRINT:GETE$:IFE$<>"Q"THEN820
880 CLOSE1:RETURN
900 REM BLOCKS FREE - GEOFF LARSEN
910 DEFFNA(X)=ASC(A$+CHR$(0))+256*(ASC(B$+CHR$(0)))
920 OPEN1,8,0,"$$0":GET#1,A$,B$
930 GET#1,A$,B$:IFFNA(X)=0THEN970
940 GET#1,C$,D$
950 GET#1,E$:IFASC(E$+CHR$(0))THEN950
960 GOTO930
970 A$=C$:B$=D$:F=FNA(X):CLOSE1
980 RETURN
60000 PRINT"[145]  [154]ARE YOU SURE YOU WANT TO QUIT? (Y[154]/N[154])"
60010 A=PEEK(203):IFA<>25ANDA<>39THEN60010
60020 IFA=39THENPRINT"[145]                                      [145]":RETURN
60030 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60040 POKE198,.:LOAD"HELLO CONNECT",8
60100 POKE53280,14:POKE53281,14
60110 PRINT"[147]"CHR$(142)"[153][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]";
60120 FORA=1TO23:PRINT"[221]"SPC(38)"[221]";:NEXT
60130 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][203][157][148][192]"
60140 FORA=217TO242:POKEA,PEEK(A)OR128:NEXT
60150 PRINT"         LOADSTAR PRESENTS:"
60160 PRINT"                              "
60170 PRINT"       DIR READER/BLOCKS FREE  "
60180 PRINT"                               "
60190 PRINT"           SUBROUTINES BY      "
60200 PRINT"        JOSEPH R. CHARNETSKI   "
60210 PRINT"                AND            "
60220 PRINT"            GEOFF LARSON       "
60230 PRINT"                               "
60240 PRINT"           COPYRIGHT 1987      "
60250 PRINT"                               "
60260 PRINT"                               "
60270 PRINT"       PRESS SPACE TO CONTINUE."
60280 A=PEEK(203):IFA<>60THEN60280
60290 RETURN