image of READY prompt

Wang2200.org

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

# Sector sector 757, 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 VERC1$,"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","BIN("
   : 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