image of READY prompt

Wang2200.org

Listing of file='609@vol' on disk='vmedia/701-2737G.wvd.zip'

# Sector sector 767, program filename = '609@vol '
0010 REM %609@vol - Volume Maintenance
0021 COM T5$(4)8
   : DIM S4,S5(2),S0(2),S3(2),T5(2),T1$(20)35
   : DIM S5,T1(20),S6(20),S1(20),T2$(20)40
   : DIM S6,T2(4),S7(4),S2(4),S4(4)
   : DIM S1$4,S1$(20)2,S2$(24)2
   : DIM S2$1,T1$80,T2$2
   : DIM U1$(15),U2$(15)4,R1$1,V0$(1)1
   : DIM D0(2)
   : MAT D0=CON
   : GOSUB '236(15,1)
   : IF R1$=HEX(00)THEN 300
   : GOSUB 2000
0110 PRINT AT(23,0);HEX(0706);B5$(2);T1$;
   : $BREAK255
   : GOTO 210
0210 DEFFN'31
   : COM CLEAR C
   : LOAD T"609menu"
0300 PRINT HEX(03);
   : IF V1=0THEN 320
0310 FOR C=1TO 15
   : T1$(C)=STR(U1$(C),,8)
   : T2$(C+5)=STR(U2$(C),,3)
   : S6(C+5)=6+C
   : IF C>=V1THEN C=15
   : NEXT C
   : S5(1)=7
   : S0(1)=10
   : S3(1)=V1
   : MAT S1=CON
   : MAT S1=(22)*S1
   : MAT T1=CON
   : MAT T1=(4)*T1
0320 GOSUB '61
   : S5=5+V1
   : GOSUB 2100
   : CONVERT V1TO STR(T2$(5),LEN(T2$(5))+2,3),(###)
   : T1(5)=4
   : S6(5)=22
   : S1(5)=40-INT(LEN(T2$(5))/2)
   : C=SGN(V1)
   : S4=C+1
   : S3(S4)=5
   : S5(C+1)=7
   : S0(C+1)=57
   : GOSUB 2110
   : S1$="OO"
   : MAT T5=D0
0360 GOSUB '62
   : ON T5+2GOTO 210,210,400
   : GOSUB 2120
0370 PRINT AT(23,0);HEX(0607);B5$(2);T1$;
   : GOTO 360
0400 J0=T5(S4)
   : ON J0GOTO 410,430,430,410,430
0410 IF V1=15THEN 420
   : IF J0=4THEN LOAD T"609@vola"10,2999
   : A5$()="609@volcREC-JCAT"
   : LOAD T<2>A5$()10,2999
0420 GOSUB 2130
   : GOTO 370
0430 IF V1=0THEN 440
   : C8$=STR(U1$(T5(1)),,8)
   : C9$=STR(U1$(T5(1)),9,8)
   : IF C9$<>" "THEN GOSUB 450
   : T5$(1)=C8$
   : T5$(2)=C9$
   : T5$(3)=T2$(T5(1)+5)
   : IF J0=2THEN LOAD T"609@vole"10,2999
   : IF J0=3THEN LOAD T"609@vold"10,2999
   : LOAD T"609@volr"10,2999
0440 GOTO 2140
0450 GOSUB '61
0460 GOSUB '62
   : ON T5+2GOTO 210,210,470
   : GOSUB 2150
   : PRINT HEX(07);B5$(2);AT(23,0);T1$;
   : GOTO 460
0470 IF STR(T5$(1),,8)=STR(C9$,,8)THEN RETURN
   : RESTORE
   : GOSUB 2160
   : PRINT HEX(0607);B5$(2);AT(23,0);T1$;
   : MAT D0=T5
   : GOTO 310
2000 T1$="Volume Query Error"
   : GOTO 110
2100 T2$(5)="Number of volumes currently open"
   : RETURN
2110 T1$(V1+1)="Create"
   : T1$(V1+2)="Edit"
   : T1$(V1+3)="Delete"
   : T1$(V1+4)="Add"
   : T1$(V1+5)="Remove"
   : RETURN
2120 T1$="Invalid key"
   : RETURN
2130 T1$="Volume map is full."
   : GOTO 370
2140 T1$="Volume map is empty."
   : GOTO 370
2150 T1$="Invalid key"
   : RETURN
2160 T1$="Invalid Password"
   : RETURN
2170 DATA 3,0,0,"V O L U M E   M A I N T E N A N C E"
   : DATA 3,5,10,"Volume"
   : DATA 3,5,22,"Disk Address"
   : DATA 3,5,57,"Option"
   : DATA 0
   : DATA 3,0,0,"V O L U M E   M A I N T E N A N C E"
   : DATA 4,22,0,"Password"
   : DATA 5,22,10,8," "
   : DATA 0