Listing of file='609.VERQ' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 2789, program filename = '609.VERQ'
0010 REM 609.VERQ 237-07/29/86 Copyright Wang Laboratories, Inc. 1986
0011 REM .SCRATCH T/D11,"609.VERQ" -SAVE DCT/D11,()"609.VERQ"
: REM .DGF.14.46
0280 COM C0$1,J$80
: COM J7$80,J8$80,J9$
: DIM D8$(2)8,J9$(256)1,C9$80
: LIMITS T#0,"609@DEVC",J,C0,C0,C0
: CONVERT STR(C6$,1,1)TO C0
: DATA LOAD DA T#0,(J+C0)A0$(1)
: SELECT #C0<STR(A0$(1),2,3)>
: J7=C0
: GOSUB 1200
: J$=HEX(020D0C030F0C0A0A0D)
: $GIO#C0,(A200,J9$)J$<,LEN(J$)>
: IF STR(A0$(1),5,1)=HEX(02)THEN STR(C6$,6,1)="1"
: ELSE GOSUB 1520
0410 IF STR(C6$,6,1)="2"THEN $GIO#C0,(40024007400F,J9$)
: $FORMATJ7$=SKIP 2,A15,SKIP 05,A4,SKIP 15,A1,SKIP 15,A16
: $FORMATJ8$=A9,SKIP 27,A5,SKIP 17,A20
: CONVERT STR(C6$,2,2)TO J8
: J9=INT((J8-10)/2)
0600 REM .selective exit.
: IF @D=0 THEN 601
: D8$()=" "
: LOAD T"609.VDSR"
0601 IF (T+C5)=0 THEN 602
: D8$()="609.VNTR609.VPRT"
: GOTO 606
0602 D8$()="609.VAUR609.VPRT"
0606 COM CLEAR C1
: LOAD T<2>D8$()
0890 KEYIN C0$,900,900
0900 IF C0$<>HEX(F0)THEN 600
: C6=D4
1120 DEFFN'31
1130 COM CLEAR C
: LOAD TA5$
1200 $OPEN 1390,#C0
: ERRORGOTO 1220
1210 GOTO 1272
1220 $IF OFF /005,1130
: GOSUB 2190
: PRINT AT(23,0);J$;
1240 KEYIN B2$
: IF B2$=HEX(F0)THEN 1130
: PRINT HEX(07);
: GOTO 1240
1272 B2$=ALL(00)
: STR(B2$,3,1)=HEX(FF)
: J9$()=HEX(2000)
: STR(J9$(),3)=STR(J9$(),1)
: $GIO#C0,(0140020012121C3ED00B1B414240D00B1C3AE0050BFF10000BFF,B2$)J9$()
: IF STR(B2$,11,1)=HEX(FF)THEN 1440
: $IF OFF /005,1130
: GOSUB 2210
: PRINT AT(23,0);J$;
: KEYIN B2$
: IF STR(B2$,1,1)=HEX(F0)THEN 1130
: GOTO 1272
1390 $IF OFF /005,1130
: GOSUB 2230
: PRINT AT(23,0);J$;
: KEYIN B2$
: IF B2$=HEX(F0)THEN 1130
: GOTO 1200
1440 $IF OFF /005,1130
: PRINT AT(23,0,80);
: RETURN
1520 IF STR(C6$,6,1)="4"THEN $GIO#C0,(4002400D400C4003400F400240064001400F,J9$
)
: IF STR(C6$,6,1)="3"THEN $GIO#C0,(4002400D400C4003400F400240064002400F,J9$
)
: RETURN
2030 C9$="Volume recovery - Following Name Tree and VAU Map errors failed to r
ecover"
: $GIO#C0,(A200400D,J9$)C9$<,LEN(C9$)>
: C9$=ALL("-")
: $GIO#C0,(A200400D,J9$)C9$<,LEN(C9$)>
: RETURN
2170 STR(J$,70,4)="Page"
: RETURN
2190 J$="Illegal Printer Device - Press CANCEL"
: RETURN
2210 J$="Select Printer - EXECUTE or CANCEL"
: RETURN
2230 J$="Printer In Use, Press EXECUTE to try again"
: RETURN