Listing of file='609@sys' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 1945, program filename = '609@sys'
0010 REM "609@sys" Maintain System Disk Assignment 11/01/80
0300 LOAD T"Prime 62"6100,BEG 390
0320 DIM S4,S5(1),S0(1),T5(1),T1$(5)80,S3(1)
: DIM S5,T1(10),S6(10),S1(10),T2$(10)80
: DIM S6,T2(3),S7(3),S2(3),S4(3),T5$(3)25
: DIM S2$1,S1$(16)2,S2$(400)2,S1$100,T1$80,T2$2
0370 DIM C1$3,C2$3,C3,C4$25
0390 C1$,C2$,C4$=" "
: C3=1
: DATA LOAD DC OPEN T#0,"609@DEVC"
: ERRORGOTO 470
0420 DATA LOAD DC #0,A0$()
: C1$,C2$=STR(A0$(),2,3)
: C3=VAL(STR(A0$(),5,1))
: C4$=STR(A0$(),6,25)
0470 RESTORE
: GOSUB '61
: T5$(1)=C1$
0510 PRINT HEX(0306);
0520 GOSUB '62
: IF T5=2OR T5=3THEN GOTO 520
: IF T5=0THEN GOSUB '31
: C1$=T5$(1)
: IF VER(C1$,"HHH")<>3THEN 607
: SELECT #5<C1$>
: ERRORGOTO 607
0575 $OPEN #5
: ERRORGOTO 600
0580 $IF ON #5,610
: ERRORGOTO 600
0600 $CLOSE#5
: GOSUB 2000
: PRINT HEX(0706020402000E);AT(23,0);T1$;" ";C1$;
: GOTO 520
0607 GOSUB 2002
: PRINT HEX(0706020402000E);AT(23,0);C1$;" ";T1$;
: GOTO 520
0610 $CLOSE#5
: DATA LOAD DC OPEN T#5,"609@DEVC"
: ERRORGOTO 600
0620 DATA LOAD DC #5,A0$()
: C2$=STR(A0$(),2,3)
: C3=VAL(STR(A0$(),5,1))
: C4$=STR(A0$(),6,25)
: GOSUB '61
: T5$(1)=C2$
: T5(1)=C3
: IF C3>4THEN T5(1)=1
: T5$(2)=C4$
0720 GOSUB '62
: IF T5=2THEN 510
: IF T5=0THEN GOSUB '31
: IF T5=3THEN 720
: A0$()="S"&STR(T5$(1),1,3)&BIN(T5(1))&STR(T5$(2),1,25)
: DBACKSPACE #5,BEG
: DATA SAVE DC #5,A0$()
: DATA SAVE DC CLOSE#5
: DATA LOAD DC OPEN T#5,"BUMPmain"
: MAT REDIM A0$(50)3
: A0$()=T5$(1)
: DATA SAVE DC #5,A0$()
: MAT REDIM A0$(4)62
: DATA SAVE DC CLOSE#5
: LOAD DC T"609start"
0830 DEFFN'31
: LOAD DC T"609menu"
2000 T1$="The WP system could not be found on disk "
: RETURN
2002 T1$="is an invalid address"
: RETURN
2010 DATA 3,0,0,"S Y S T E M D I S K A S S I G N M E N T"
: DATA 4,3,1,"Enter requested data"
: DATA 4,4,4,"Press EXECUTE or CANCEL"
: DATA 4,8,20,"Current Address of WP System"
: DATA 2,8,50,3,"310"
: DATA 0
: DATA 3,0,0," "
: DATA 4,10,22,"New Address of WP System"
: DATA 2,10,48,3,"310"
2110 DATA 4,12,21,"Type of disk drive:"
: DATA 1,12,42,1,"Phoenix","Winchester","DSDD","Other","\DE"
: DATA 4,16,09,"(Type of drive is not currently used by the system in any w
ay)"
: DATA 4,18,22,"Comment"
: DATA 2,18,31,24," "
: DATA 0