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"