Listing of file='609.VERP' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 2781, program filename = '609.VERP'
0010 REM 609.VERP, Release 02-12, (07/06/82) - Copyright Wang Laboratories, I
nc.
0110 COM J8,J7,T5(3),T5$(3)25,C1,C6$6
: DIM S4,S5(3),S0(3),S3(3),T1$(15)40,U2$(12)4,V0$(1)1
: DIM S5,T1(7),S6(7),S1(7),T2$(7)40
: DIM S6,T2(3),S7(3),S2(3),S4(3)
: DIM S1$6,S1$(15)2,S2$(27)2
: DIM T1$80
: DIM U1$(12),C4$27,C5$3
: PRINT HEX(03);
: GOSUB '61
: T5$(1)="1"
: T5$(2)="66"
: T5$(3)="66"
0300 GOSUB '62
: ON T5+2GOTO 600,600,350
: PRINT HEX(07);
: GOTO 300
0350 D=1
: FOR C=1TO 3
: IF NUM(T5$(C))<25THEN D=0
: NEXT C
: IF D=1THEN 420
: GOSUB 2030
: GOTO 450
0420 CONVERT T5$(1)TO C
: IF C>0AND C<5THEN 470
: GOSUB 2010
0450 PRINT AT(23,0,80);B5$(2);T1$;B5$(1);HEX(07);
: GOTO 300
0470 STR(C6$,1,5)=STR(T5$(1),1,1)&STR(T5$(2),1,2)&STR(T5$(3),1,2)
: CONVERT T5(1)TO STR(C6$,6,1),(#)
: T5$(1)=STR(C4$,1,1)
: T5$(2)=STR(C4$,2,1)
: T5$(3)=STR(C4$,3,25)
: IF T5(1)=1THEN C1=4
: ELSE C1=6
: LOAD T"609.VERQ"10,3999
0600 COM CLEAR C
: LOAD T"609menu"
2010 T1$="Invalid Printer Number"
: RETURN
2030 T1$="Invalid Numeric Specification"
: RETURN
2060 DATA 3,0,0,"V o l u m e V e r i f y"
: DATA 4,4,0,"Document Id: ERROR"
: DATA 4,5,0,"Document Name:"
: DATA 4,12,0,"Printer Number:"
: DATA 4,12,26,"Paper Length:"
: DATA 4,15,03,"FORMS"
: DATA 2,12,19,1," "
: DATA 2,12,42,2," "
: DATA 1,16,0,1,"Continuous","Single","\DE"
: DATA 0