Wang 2200 Virtual Media

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

# Sector 3804, program filename = '2231W-3'
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=250
   : S=120
   : P=10
   : N=132
   : E=N/2
   : C=112
   : V8$="X"
0030 F1$=HEX(10)
   : L1$=HEX(7E)
0040 T$=HEX(0102030405060708090A0B0C0D0E)
0050 T2$="1,2,3,4,5,6,7,8,9,10,11,12,13,14"
0060 LOAD DC T"GPE-1"