image of READY prompt

Wang2200.org

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

# Sector sector 791, program filename = '609@vole'
0010 REM %609@vole - Edit 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,R1$1,V0$(1)1
   : C8$=STR(T5$(1),,8)&STR(T5$(2),,8)
   : C9$=T5$(3)
0040 GOSUB '61
   : T5$(1)=C9$
   : PRINT HEX(0306);AT(7,30);STR(C8$,,8);AT(8,30);C9$
0050 GOSUB '62
   : ON T5+2GOTO 210,210,90
   : GOSUB 2000
0060 PRINT AT(23,0);HEX(07);B5$(2);T1$;
   : GOTO 50
0090 SELECT #6<STR(T5$(1),,3)>
   : ERRORGOSUB 2010
   : GOTO 60
0100 LIMITS T#6,STR(C8$,1,8),C0,C0,C0,C0
   : ERRORGOSUB 2010
   : GOTO 60
0110 IF C0=2THEN 140
   : GOSUB 2050
   : PRINT AT(23,0);HEX(07);B5$(2);T1$;
   : GOTO 50
0140 GOSUB '238(C8$,STR(T5$(1),,3))
   : IF R1$=HEX(00)THEN GOTO 210
   : GOSUB 2020
   : C5$=" "
   : IF R1$>HEX(29)THEN CONVERT VAL(R1$)TO C5$,(##)
   : ELSE HEXUNPACKR1$TO C5$
   : T1$=T1$&" "&C5$
   : ON VAL(R1$)GOSUB 2030,2040,2050,2060,2070,2080,2090,2100,2110
   : GOTO 50
0210 DEFFN'31
   : LOAD T"609@vol"10,2999
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$="File or volume does not exist"
   : 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
2110 T1$="Not enough room in file to re-use scratched area"
   : RETURN
2120 DATA 3,0,0,"E D I T   V O L U M E "
   : DATA 4,4,0,"Please fill in the following:"
   : DATA 4,7,10,"Volume name"
   : DATA 4,8,10,"Old disk address"
   : DATA 4,9,10,"New disk address"
   : DATA 2,9,30,3," "
   : DATA 0