image of READY prompt

Wang2200.org

Listing of file='609.VERQ' on disk='vmedia/731-0067G.wvd.zip'

# Sector 2765, 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