Listing of file='WCPD070A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 446, program filename = 'WCPD070A' 0010 REM . WCPD070A, 00-00 (06/28/75), 12002 : COM N,P : PRINT " TESTING FOR/NEXT ...................."; : FOR I=1TO 3 : X=X+I : NEXT I : IF X=6THEN 150 : PRINT TAB(40);"ERROR AT 50" : GOTO 230 0150 IF I=3THEN 160 : PRINT TAB(40);"ERROR AT 60" : GOTO 230 0160 FOR J=-0TO 3 : J1=J1+1 : NEXT J 0170 IF J1=4THEN 180 : PRINT TAB(40);"ERROR AT 80" : GOTO 230 0180 FOR I=-3TO 4STEP .5 : K=K+1 : NEXT I : IF K=15THEN 210 : PRINT TAB(40);"ERROR AT 110" : GOTO 230 0210 IF I=4THEN 220 : PRINT TAB(40);"ERROR AT 120" : GOTO 230 0220 P=0 : LOAD DC T"WCPD080A" 0230 PRINT E(1);"ERRORS" : P=1 : LOAD DC T"WCPD080A" 0240 DEFFN'15 : LOAD DC T"START"50