Wang 2200 Virtual Media

Listing of file='2273-2' on disk='vmedia/mvp-diag-2.6.2.wvd.zip'

# Sector 3651, program filename = '2273-2'
0010 COM L,M,S,N,E,P,C,T,A,T$30,T2$50,F1$1,L1$1,V8$12
0020 L=6
   : M=600
   : S=1320
   : P=10
   : N=132
   : E=0
   : C=96
   : V8$="X"
0030 F1$=HEX(20)
   : L1$=HEX(7E)
0040 T$=HEX(0102040507080A0B0C0D0E16)
0050 T2$="1,2,4,5,7,8,10,11,12,13,14,22"
0060 PRINT HEX(03060A0A0A)
0070 INPUT " SELECT NUMBER OF LINES PER INCH ( 6 OR 8 )",L
0080 LOAD DC T"GPE-1"