Listing of file='WCPD550A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 430, program filename = 'WCPD550A' 0010 REM . WCPD550A, 00-00 (06/20/75), 12002 0100 ON ERROR E$,L0$ GOTO 170 0110 IF E(4) <> 0 THEN 190 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#6,"WCPD560A" 0170 REM NO EXPECTED ERROR 0180 GOTO 210 0190 REM PREVIOUS ERROR THIS TEST 0200 LOAD DC T#6,"WCPD560A" 0210 REM VARIABLE NOT CLEARED 0220 E(4) = E(4) + 1 0225 E9$(P9) = "NG" 0230 GOTO 200 0240 DEFFN'15 0250 COM CLEAR : LOAD DC T#6,"START"