image of READY prompt

Wang2200.org

Listing of file='WCPD540A' on disk='vmedia/wcs_diags.wvd.zip'

# Sector 345, program filename = 'WCPD540A'
0010 REM .   WCPD540A,   00-00 (06/28/75),   12002
   : IF Y$="123"THEN 160
   : IF C(2,2)<>6THEN 160
   : IF B$(1)<>"A"THEN 160
   : IF A<>1THEN 160
   : COM CLEAR B
   : LOAD DC T"WCPD550A"
0160 E(1)=E(1)+1
   : PRINT E(1);" ERRORS"
0180 LOAD DC T"WCPD550A"
0190 DEFFN'15
   : LOAD DC T"START"50