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