Listing of file='609.VERP' on disk='vmedia/701-2738G.wvd.zip'
# Sector 373, 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