image of READY prompt

Wang2200.org

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"