Listing of file='WCPD230A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 308, program filename = 'WCPD230A' 0010 REM . WCPD230A, 00-00 (06/28/75), 12002 : DIM A(2) : PRINT " TESTING ON (GOTO/GOSUB) ............."; : A(1)=1 : A(2)=2 : FOR I=-5TO 8STEP .2 : ON I+1-1GOTO 220,230,240,250,260 0150 IF I<1THEN 160 : IF I<=5THEN 340 0160 J=0 : ON IGOSUB 270,280,290,300,310 : IF J=1THEN 180 : IF I<1THEN 180 : IF I<=5THEN 340 0180 NEXT I 0190 ON A(2)GOTO 330 : ON A(1)GOSUB 320 : PRINT "OK" : GOTO 360 0220 IF INT(I)=1THEN 160 : GOTO 340 0230 IF INT(I)=2THEN 160 : GOTO 340 0240 IF INT(I)=3THEN 160 : GOTO 340 0250 IF INT(I)=4THEN 160 : GOTO 340 0260 IF INT(I)=5THEN 160 : GOTO 340 0270 IF INT(I)<>1THEN 340 : J=1 : RETURN 0280 IF INT(I)<>2THEN 340 : J=1 : RETURN 0290 IF INT(I)<>3THEN 340 : J=1 : RETURN 0300 IF INT(I)<>4THEN 340 : J=1 : RETURN 0310 IF INT(I)<>5THEN 340 0320 J=1 0330 RETURN 0340 E(1)=E(1)+1 0350 PRINT TAB(40);E(1);"ERRORS" 0360 LOAD DC T"WCPD240A" 0370 DEFFN'15 : LOAD DC T"START"50