start tok64 d64-0rbbXG
0 GOTO7
1 FORi=1TOr:GET#2,a$:IFstTHENCLOSE2:PRINT"disk error!":END
2 NEXT:RETURN
3 b$="":FORi=1TOr:GET#2,a$:b$=b$+a$:IFstTHENCLOSE2:PRINT"disk error!":END
4 NEXT:RETURN
5 PRINT"{cyan}{reverse on}press any key for next page {up}":POKE198,.:WAIT198,1:GETa$
6 PRINT"{home}{down*4}":FORi=1TO19:PRINT:PRINT"{light gray}{reverse on}{space*28}";:NEXT:p=p+1:f=1:PRINT"{home}{down}{white}{reverse off}"TAB(34)p"{down*4}{light gray}":RETURN
7 POKE53280,6:POKE53281,6:PRINT"{clear}{white}{cm @*29}":PRINT"{reverse on}{light gray}directory of{space*17}{reverse off} {white}page":PRINT"{white}{cm @*14}":PRINT"{reverse on}{light gray}id code:{space*6}":OPEN2,8,0,"$0":r=8:GOSUB1:r=16:GOSUB3:d$=b$:r=2:GOSUB1:r=5:GOSUB3:i$=b$:PRINT"{home}{down*4}",,,"{white}{cm @*8}":PRINT,,,"{light gray}{reverse on}Q=normal"
8 PRINT,,,"{reverse on}W=locked":PRINT,,,"{reverse on}Z=not{space*3}":PRINT,,,"{reverse on}{space*2}closed":PRINT"{home}{down}{reverse on}"TAB(13)d$:PRINT"{down}{reverse on}"TAB(9)i$:PRINT"{white}{cm @*28}":PRINT"{reverse on}{light gray}filename{space*9}kbytes type":GOSUB6:f=.:q$=CHR$(34):r=1:GOSUB1
9 GET#2,a$,a$,l$,h$:IFstTHENCLOSE2:END
10 f=f+1:IFf=19THENGOSUB5
11 k=((ASC(l$+CHR$(.))+256*ASC(h$+CHR$(.)))*254-2)/1024:IFl$=""ANDh$=""THENk$="{0*3}.00":GOTO16
12 k$=MID$(STR$(1000+INT(k)),3):k=INT(100*k+.5)/100-INT(k):l$=MID$(STR$(k),2):IFl$="0"THENl$=".00"
13 IFl$="1"THENk$=MID$(STR$(1000+INT(k+1)),3)+".00":GOTO15
14 IFLEN(l$)=1THENl$=l$+"0"
15 k$=k$+LEFT$(l$,3)
16 GET#2,a$:IFa$="b"THEN27
17 IFa$<>q$THEN16
18 b$=""
19 GET#2,a$:IFa$<>CHR$(34)THENb$=b$+a$:GOTO19
20 GET#2,t$:IFt$<>"p"ANDt$<>"u"ANDt$<>"s"ANDt$<>"r"ANDt$<>"d"ANDt$<>"*"THEN20
21 IFt$="*"THENGET#2,t$:t$="{right*3}Z{left*4}"+t$
22 GET#2,y$,p$:GET#2,l$:IFl$="<"ANDLEN(t$)=1THENp$=p$+"W"
23 IFLEN(t$)=1ANDLEN(p$)=1THENp$=p$+"Q"
24 IFy$<>"r"ANDy$<>"s"ANDy$<>"e"THENt$="{space*4}":y$="":p$=""
25 GET#2,a$:IFa$THEN25
26 PRINT"{reverse on}"b$TAB(17)k$" "t$y$p$:GOTO9
27 PRINT"{home}{down*23}{reverse on}"k$" kbytes free on disk{space*2}";:CLOSE2:PRINT"{home}{down*24}{cyan}{reverse on}press any key to quit{space*7}";:POKE198,.:WAIT198,1:GETa$:POKE53280,14:PRINT"{clear}{light blue}";
stop tok64
(bastext 1.0)