image of READY prompt

Wang2200.org

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

# Sector 659, program filename = 'WCPD530A'
0010 REM .   WCPD530A,   00-00 (06/28/75),   12002
   : IF I<>2THEN 210
   : IF A(1)<>1THEN 210
   : IF A(2)<>4THEN 210
   : IF B$(1)<>"A"THEN 210
   : IF B$(2)<>"D"THEN 210
   : IF C(1,1)<>2THEN 210
   : IF C(1,2)<>3THEN 210
0140 IF C(2,1)<>5THEN 210
   : IF C(2,2)<>6THEN 210
   : IF D$(1,1)<>"B"THEN 210
   : IF D$(1,2)<>"C"THEN 210
0160 IF D$(2,1)<>"E"THEN 210
   : IF D$(2,2)<>"F"THEN 210
   : IF A<>1THEN 210
   : IF B<>2THEN 210
   : IF C<>3THEN 210
   : IF X(1)<>4THEN 210
   : IF X(2)<>5THEN 210
   : IF Y$="123"THEN 210
   : COM CLEAR X()
   : LOAD DC T"WCPD540A"
0210 E(1)=E(1)+1
   : LOAD DC T"WCPD540A"
0220 DEFFN'15
   : LOAD DC T"START"50