Listing of file='TBO.DSCN' on disk='vmedia/toolbox.wvd.zip'
# Sector 1102, program filename = 'TBO.DSCN' 0010 REM %.TBO.DSCN Disk Scan 02/27/87 0020 DIM D$3, A$(16)16,F$8,K$1,S$80,S$(20)80 : D$="310" 0030 REM %0 A$( Disk data, D$ Disk surface, F$ FileName, K$ K$1 0040 REM %0 S$ Summary line, S$( Summary array 0050 PRINT HEX(0D0C030E);"Scan Disk surfaces" : PRINT "Key space to pause RETURN to scan next surface '15=Summary" 0060 LINPUT "Disk surface ",-D$ 0070 IF D$<>" "THEN 80 : GOSUB 190 : GOTO 60 0080 SELECT #1<D$> 0090 A=0 : B=0 0100 C=1 : DATA LOAD BA T#1,(A,A)A$() : ERRORS$=" Disk "&D$& " not available" : PRINT S$ : S=S+1 : S$(S)=S$ : GOTO 60 0110 IF B>0THEN 150 : I=VAL(STR(A$(),1),2) : B=1 : C=2 0120 S$=HEX(0000) : PRINTUSING TO S$,140,D$,I,VAL(STR(A$(),5),2)-1,VAL(STR(A$(),3),2)-1 0130 PRINT STR(S$,3) : S=S+1 : S$(S)=STR(S$,3) 0140 % Disk ### Index size= ### Max.sectors = ###### Curr.end = ###### 0150 FOR D=CTO 16 : K$=" " : F2$=STR(A$(D),1,2) : IF F2$=HEX(1080)THEN K$="P" : IF F2$=HEX(1000)THEN K$="D" : IF K$=" "THEN 160 : F$=STR(A$(D),9,8) : $TRAN(F$,"................") : PRINT K$;"=";F$, 0160 NEXT D : IF A>ITHEN 60 0170 $IF OFF /001,100 0180 PRINT : PRINT : K$=" " : KEYIN K$ : IF K$=HEX(0D)THEN 60 : IF K$<>HEX(0F)THEN 185 : GOSUB '15 : K$=" " 0185 KEYIN K$ : IF K$=HEX(0D)THEN 60 : GOTO 100 0190 DEFFN'15 : PRINT HEX(03);"Summary of disk surfaces" : FOR A=1 TO S : PRINT S$(A) : NEXT A : RETURN