Listing of file='WCPD180A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 55, program filename = 'WCPD180A' 0010 REM . WCPD180A, 00-00 (06/28/75), 12002 : COM N : PRINT " TESTING DEFFN ......................."; : DIM A(2),B(2,4) 0140 DEFFN1(X)=COS(0)+X : IF FN1(FN1(FN1(FN1(FN1(3)))))<>8THEN 250 : A(1),C,B(1,1)=5 0170 DEFFN2(X)=FN1(X)+1 : B(2,1)=C 0190 DEFFNC(X)=FN2(X)+1 0200 DEFFN4(X)=FNC(X)+1 0210 A(2)=FN5(C)+FN5(A(1))+FN5(B(2,1)) : IF A(2)=6*B(1,1)THEN 230 : PRINT TAB(40);"ERROR AT 140" : GOTO 250 0230 PRINT "OK" : LOAD DC T"WCPD190A" 0240 DEFFN5(C)=FN4(C)+1 0250 E(1)=E(1)+1 : LOAD DC T"WCPD190A" 0260 DEFFN'15 : LOAD DC T"START"50