image of READY prompt

Wang2200.org

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