image of READY prompt

Wang2200.org

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

# Sector 663, program filename = 'WCPD560A'
0010 REM .   WCPD560A,   00-00 (06/28/75),   12002
   : IF I<>2THEN 160
   : INIT(FF)E$,L0$
   : IF E$<>HEX(FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF)THEN 160
0140 IF L0$<>HEX(FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF)THEN 160
   : COM CLEAR E$
   : LOAD DC T"WCPD570A"
0160 E(1)=E(1)+1
   : LOAD DC T"WCPD570A"
0190 LOAD DC T"WCPD570A"
0210 DEFFN'15
   : LOAD DC T"START"50