image of READY prompt

Wang2200.org

Listing of file='WCPD530A' on disk='vmedia/701-2046C.wvd.zip'

# Sector 214, program filename = 'WCPD530A'
0010 REM .     WCPD530A,  00-00 (6/28/75),   12002
0100 IF I<>2THEN 310
   : IF A(1)<>1THEN 310
   : IF A(2)<>4THEN 310
   : IF B$(1)<>"A"THEN 310
   : IF B$(2)<>"D"THEN 310
   : IF C(1,1)<>2THEN 310
   : IF C(1,2)<>3THEN 310
   : IF C(2,1)<>5THEN 310
   : IF C(2,2)<>6THEN 310
   : IF D$(1,1)<>"B"THEN 310
   : IF D$(1,2)<>"C"THEN 310
0210 IF D$(2,1)<>"E"THEN 310
   : IF D$(2,2)<>"F"THEN 310
   : IF A<>1THEN 310
   : IF B<>2THEN 310
   : IF C<>3THEN 310
   : IF X(1)<>4THEN 310
   : IF X(2)<>5THEN 310
   : IF Y$="123"THEN 310
   : COM CLEAR X()
   : LOAD DC T#6,"WCPD540A"
0310 E9$(P9)="NG"
   : E(4)=E(4)+1
   : LOAD DC T#6,"WCPD540A"
0340 DEFFN'15
   : COM CLEAR
   : LOAD DC T#6,"START"