Listing of file='609@D0MP' on disk='vmedia/731-0067F-disk2.wvd.zip'
# Sector 58, program filename = '609@D0MP'
0010 REM 609@D0MP, Release 01-00, (01/31/81) - CopyrightWang Laboratories, In
c.
0040 DEFFN'0"LIST S HEX(03) D 10,";HEX(0D)
0050 DEFFN'1"LIMITS T";HEX(22);"609@D0MP";HEX(22);",G6,G7,G8,G9:PRINTG6,G7,G7-
G6+1,G8,G9: PRINTUSING";HEX(22);"###.##%";HEX(22);",100*(G8-2)/(G7-G6-1)"
;HEX(0D)
: DIM A0$(4)62,J0$3,D1$6,D2$6,D3$6,D4$6,D0$20,C4$16,J1$8,J2$13,C1$4,C2$4,C3
$4,J1$(10)9,T1$80
: PRINT HEX(03)
: J0=0
0090 $FORMATD0$=A6,A4,A6,A4,A6,A4,A13,A6,A16,A9
: J1$="609@D0"
0110 GOSUB 2010
: PRINT AT(0,0);T1$;
: LINPUT -J0$
: IF J0$=" "THEN 110
: SELECT #1<J0$>
: DATA LOAD DC OPEN T#1,J1$
: ERRORGOTO 200
0180 DATA LOAD DC #1,A0$()
: $UNPACK(F=D0$)A0$()TO D1$,C1$,D2$,C2$,D3$,C3$,J2$,D4$,C4$,J1$()
0200 GOSUB 2030
: PRINT T1$;
: LINPUT -D1$
: GOSUB 2050
: PRINT T1$;
: LINPUT -C1$
: GOSUB 2070
: PRINT T1$;
: LINPUT -D2$
: GOSUB 2090
: PRINT T1$;
: LINPUT -C2$
: GOSUB 2110
: PRINT T1$;
: LINPUT -D3$
: GOSUB 2130
: PRINT T1$;
: LINPUT -C3$
: GOSUB 2150
: PRINT T1$;
: LINPUT -STR(J2$,9,5)
: GOSUB 2170
: PRINT T1$;
: LINPUT -D4$
: GOSUB 2190
: PRINT HEX(06)
: PRINT
: GOSUB 2210
: PRINT T1$
: GOSUB 2230
: PRINT T1$
: PRINT
0520 J0=J0+1
: IF J0=11THEN 660
: PRINT AT(14,0,70)
: GOSUB 2250
: PRINT AT(13,0);T1$;
: LINPUT -STR(J1$(J0),,8)
: IF STR(J1$(J0),,8)=".REFDAST"THEN 600
: IF STR(J1$(J0),,6)<>".REFWP"AND STR(J1$(J0),,8)<>" "THEN 640
0600 GOSUB 2270
: PRINT T1$;
: LINPUT -STR(J1$(J0),9,1)
: GOTO 520
0640 J0=J0-1
: GOTO 520
0660 DATA SAVE DC OPEN T#1,(3)J1$
: ERRORDATA LOAD DC OPEN T#1,J1$
0670 GOSUB 2290
: $PACK(F=D0$)A0$()FROMD1$,C1$,D2$,C2$,D3$,C3$,J2$,D4$,T1$,J1$()
: DATA SAVE DC #1,A0$()
: DATA SAVE DC #1,END
: DATA SAVE DC CLOSE#1
: GOSUB 2310
: PRINT
: PRINT HEX(020402000E20);T1$;HEX(0F)
: STOP
0760 DEFFN'31
: LOAD T"609start"
2010 T1$="Disk address where 609@D0 resides or should reside "
: RETURN
2030 T1$="Current date (mmddyy) "
: RETURN
2050 T1$="Current time (24 hour system - hhmm) "
: RETURN
2070 T1$="Installation date (mmddyy) "
: RETURN
2090 T1$="Installation time (24 hour system - hhmm) "
: RETURN
2110 T1$="Backup date (mmddyy) "
: RETURN
2130 T1$="Backup time (24 hour system - hhmm) "
: RETURN
2150 T1$="Revision number (##.##) "
: RETURN
2170 T1$="Revision date (mmddyy) "
: RETURN
2190 STR(J2$,,7)="Release"
: RETURN
2210 T1$="You may enter the names of up to 10 reference files."
: RETURN
2230 T1$="Each must start with '.REFWP' or be '.REFDAST'. Enter a blank to end
."
: RETURN
2250 T1$="Enter (next) reference file name "
: RETURN
2270 T1$="Enter the number (1-9) of the diskette where these files reside "
: RETURN
2290 T1$="(future use )"
: RETURN
2310 T1$="Press PF Key 31 if program was run from menu, else press CLEAR or RU
N"
: RETURN