start tok64 d64-mJ2R3u
0 OPEN8,8,0,"$0":POKE53280,15:POKE53281,15:PRINT"{clear}{black}(c) 1991 mr.p.
1 GET#8,a$:IFa$<>CHR$(34)THEN1
2 x$=""
10 FORi=1TO16:GET#8,a$:x$=x$+a$:NEXT:GET#8,a$,a$,a$,b$,c$,d$,e$,f$
20 PRINT"{down}disk: {reverse on}"x$"{reverse off} id: {reverse on}"a$b$c$d$e$"{down}
30 GET#8,a$,a$,l$,h$:p$=""
40 GET#8,a$:IFa$="b"THEN200
45 IFa$<>CHR$(34)THEN40
50 GET#8,a$:IFa$<>CHR$(34)THENp$=p$+a$:GOTO50
60 GET#8,a$:IFa$=" "THEN60
70 PRINTLEFT$(p$+"{space*16}",16)"("a$")",
80 GET#8,a$:IFa$THEN80
90 GOTO30
200 IFPOS(.)>.THENPRINT
210 PRINT256*ASC(h$+CHR$(.))+ASC(l$+CHR$(.))"blocks free.
999 CLOSE8
1000 REM"{delete*9}{space*2}.
1001 REM"{141}{up}tva spalters dir
1002 REM"{141}{up}(c) 1991 mr.p. and softwolves software
1003 REM"{141}{up}{space*19}public domain
1004 REM"{141}{up}{space*11}for
1005 REM"{141}{up}{space*15}sys pd
stop tok64
(bastext 1.0)