image of READY prompt

Wang2200.org

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

# Sector 815, program filename = '609@vola'
0010 REM %609@vola - Add Volume
0015 DIM S4,S5(1),S0(1),T5(1),T1$(1)1,S3(1)
   : DIM S5,T1(6),S6(6),S1(6),T2$(6)40
   : DIM S6,T2(4),S7(4),S2(4),S4(4)
   : DIM S1$4,S1$(4)2,S2$(24)2
   : DIM S2$1,T1$80,T2$2
   : DIM U1$(12),U2$(12)4,V0$(1)1,R1$1
   : GOSUB '61
   : PRINT HEX(03);
0050 GOSUB '62
   : ON T5+2GOTO 1000,1000,80
   : GOSUB 2000
0060 PRINT AT(23,0);HEX(07);B5$(2);T1$;B5$(1);
   : GOTO 50
0080 IF VER(STR(T5$(3),,3),"HHH")<>3THEN 2107
   : SELECT #6<STR(T5$(3),,3)>
   : ERRORGOTO 2107
0082 LIMITS T#6,STR(T5$(1),,8),C6,C6,C6,C6
   : ERRORGOTO 2107
0084 IF C6<>2THEN 2105
0096 C0=1
0100 GOSUB '236(8,C0)
   : IF R1$=HEX(00)THEN 110
   : GOSUB 2050
   : PRINT AT(23,0);B5$(2);T1$;HEXOF(R1$);B5$(1);HEX(07);
   : GOTO 50
0110 IF V1=0THEN 119
   : MAT SEARCHSTR(U1$(),,V1*16),=STR(T5$(1),,8)TO T2$STEP 16
   : IF T2$>HEX(0000)THEN 126
   : IF V1<8THEN 119
   : C0=C0+8
   : GOTO 100
0119 B9$=STR(T5$(1),,8)&T5$(2)
   : GOTO 136
0126 B9$=STR(U1$(),VAL(T2$,2))
   : IF T5$(2)=STR(B9$,9,8)THEN 136
   : GOSUB 2070
   : PRINT AT(23,0);B5$(2);T1$;B5$(1);HEX(07);
   : GOTO 50
0136 GOSUB '239(B9$,STR(T5$(3),,3))
   : IF R1$=HEX(00)THEN 1000
   : ON VAL(R1$)GOSUB 2030,2040,2050,2060,2070,2080,2090,2100,2110
   : ELSE GOTO 138
   : GOTO 60
0138 GOSUB 2020
   : C5$=" "
   : IF R1$>HEX(29)THEN CONVERT VAL(R1$)TO C5$,(##)
   : ELSE HEXUNPACKR1$TO C5$
   : T1$=T1$&" "&C5$
   : GOTO 60
1000 DEFFN'31
   : LOAD T"609@vol"10,2999
1028 DEFFN'0"LISTSHEX(03)D 10,";HEX(0D)
2000 T1$="Invalid key"
   : RETURN
2010 T1$="Invalid disk address"
   : RETURN
2020 T1$="Access error = "
   : RETURN
2030 T1$="Volume full"
   : RETURN
2040 T1$="Volume already exists"
   : RETURN
2050 T1$="Volume Query failure - Return code = "
   : RETURN
2060 T1$="No free device slots"
   : RETURN
2070 T1$="Incorrect password"
   : RETURN
2080 T1$="Exclusive open error"
   : RETURN
2090 T1$="File not opened"
   : RETURN
2100 T1$="Illegal file ID"
   : RETURN
2105 T1$="Volume does not exist at this address"
   : GOTO 60
2107 T1$="Illegal address"
   : GOTO 60
2110 T1$="Not enough room in file to re-use scratched area"
   : RETURN
2120 DATA 3,0,0,"A D D   V O L U M E "
   : DATA 4,4,0,"Please fill in the following:"
   : DATA 4,7,10,"Volume name"
   : DATA 2,7,30,8," "
   : DATA 4,8,10,"Volume password"
   : DATA 5,8,30,8," "
   : DATA 4,9,10,"Disk address"
   : DATA 2,9,30,3," "
   : DATA 0