Listing of file='WCPD090A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 45, program filename = 'WCPD090A' 0010 REM . WCPD090A, 00-00 (06/28/75), 12002 : COM N : IF P=1THEN 240 0130 DEFFNA(X)=-2.1*X : FOR I=FNA(2)TO FNA(-3)STEP FNA(-.26) : Q=Q+1 : NEXT I : IF Q=20THEN 170 : PRINT TAB(40);"ERROR AT 70" : GOTO 240 0170 FOR I=1TO 100 : X=EXP(I) : IF X>100THEN 210 : NEXT I 0210 IF I=INT(LOG(100))+1THEN 230 : PRINT TAB(40);"ERROR AT 130" : GOTO 240 0230 PRINT "OK" : LOAD DC T"WCPD100A" 0240 E(1)=E(1)+1 : PRINT E(1);"ERRORS" : LOAD DC T"WCPD100A" 0250 DEFFN'15 : LOAD DC T"START"50