image of READY prompt

Wang2200.org

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

# Sector 355, program filename = 'WCPD230A'
0010 REM .     WCPD230A,  00-00 (6/28/75),   12002
0100 DIM A(2)
   : PRINT " TESTING ON (GOTO/GOSUB) .............";
   : A(1)=1
   : A(2)=2
   : FOR I=-5TO 8STEP .2
   : ON I+1-1GOTO 290,310,330,350,370
   : IF I<1THEN 180
   : IF I<=5THEN 540
0180 J=0
   : ON IGOSUB 390,420,450,480,510
   : IF J=1THEN 230
   : IF I<1THEN 230
   : IF I<=5THEN 540
0230 NEXT I
   : ON A(2)GOTO 530
   : ON A(1)GOSUB 520
   : IF E(4)<>0THEN 560
   : PRINT "OK"
   : GOTO 570
0290 IF INT(I)=1THEN 180
   : GOTO 540
0310 IF INT(I)=2THEN 180
   : GOTO 540
0330 IF INT(I)=3THEN 180
   : GOTO 540
0350 IF INT(I)=4THEN 180
   : GOTO 540
0370 IF INT(I)=5THEN 180
   : GOTO 540
0390 IF INT(I)<>1THEN 540
   : J=1
   : RETURN
0420 IF INT(I)<>2THEN 540
   : J=1
   : RETURN
0450 IF INT(I)<>3THEN 540
   : J=1
   : RETURN
0480 IF INT(I)<>4THEN 540
   : J=1
   : RETURN
0510 IF INT(I)<>5THEN 540
0520 J=1
0530 RETURN
0540 E(4)=E(4)+1
   : E9$(P9)="NG"
0560 PRINT TAB(40);E(4);"ERRORS"
0570 LOAD DC T#6,"WCPD240A"
0580 DEFFN'15
   : COM CLEAR
   : LOAD DC T#6,"START"