Wang 2200 Virtual Media

Listing of file='\$P/U1' on disk='vmedia/mvp-diag-3.5.wvd.zip'

# Sector 1092, program filename = '$P/U1'
0020 COM P,E(12)
0030 P=P+1
0040 I=1
   : J=0
0050 IF E(I)<>0THEN J=J+1
   : I=I+1
   : IF I<=12THEN 50
0060 IF J<>0THEN 70
   : PRINT HEX(03)
0070 PRINT AT(0,0);" *** BASIC-2 $PACK/$UNPACK DIAGNOSTIC ***";
0080 PRINT AT(0,50);"PASS#";P
0090 LOAD T"$P/U2"