Wang 2200 Virtual Media

Listing of file='2231W-6' on disk='vmedia/mvp-diag-2.6.2.wvd.zip'

# Sector 3399, program filename = '2231W-6'
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=80
   : S=70
   : P=10
   : N=132
   : E=N/2
   : C=112
   : V8$="X"
0030 F1$=HEX(10)
   : L1$=HEX(7E)
0040 SELECT PRINT 005(80)
0050 PRINT HEX(03060A0A0A),"        THIS PRINTER HAS OPTIONAL PITCH"
0060 INPUT "        ENTER THE APROPRIATE PITCH ( 10 OR 12 ) ",P
0070 IF P=12THEN N=158
0080 IF P=10THEN GOTO 110
0090 IF P=12THEN GOTO 110
0100 PRINT HEX(07)
   : GOTO 50
0110 T$=HEX(0102030405060708090A0B0C0D0E)
0120 T2$="1,2,3,4,5,6,7,8,9,10,11,12,13,14"
0130 LOAD DC T"GPE-1"