image of READY prompt

Wang2200.org

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