Listing of file='WCPD550A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 535, program filename = 'WCPD550A' 0010 REM . WCPD550A, 00-00 (06/20/75), 12002 0100 ON ERROR E$,L0$ GOTO 170 0120 IF B = 2 THEN 210 0130 IF A <> 1 THEN 210 0140 IF D$(1,2) <> "C" THEN 210 0150 IF A(1) <> 1 THEN 210 0160 REM TEST O.K. SO FAR : COM CLEAR A() : LOAD DC T"WCPD560A" 0170 REM NO EXPECTED ERROR 0180 GOTO 210 0190 REM PREVIOUS ERROR THIS TEST 0200 LOAD DC T "WCPD560A" 0210 REM VARIABLE NOT CLEARED 0220 E(1) = E(1) + 1 0230 GOTO 200 0240 DEFFN'15 0250 LOAD DC T "START"50