Listing of file='BDIAG4' on disk='vmedia/732-0050A.wvd.zip'
# Sector 71, program filename = 'BDIAG4' 0020 PRINT AT(4,00);"DEFFN.......... <-- TESTING", 0080 S=SPACE 0090 X=5 : Y=6 0100 DEFFN1(X)=X+.1 : IF FN1(FN1(FN1(FN1(FN1(FN1(FN1(FN1(FN1(FN1(3))))))))))<>4THEN 8990 0105 IF FN5(FN4(FN3(FN2(FN1(8)))))<>8.58985THEN 8990 0110 DEFFN2(X)=FN1(X)+.02 : DEFFN3(X)=FN2(X)+.003 : DEFFN4(X)=FN3(X)+.0004 : DEFFN5(X)=FN4(X)+.00005 : DEFFN6(Y)=FN5(Y)+.000006 : IF FN5(3)<>3.12345THEN 8990 0120 IF FN5(X)<>5.12345THEN 8990 0130 DEFFNA(Y)=.1+Y : DEFFNB(Y)=FNA(Y)+.02 : DEFFNC(Y)=FNB(Y)+.003 : DEFFND(Y)=FNC(Y)+.0004 : DEFFNZ(Y)=FND(Y)+.00005 : IF FNZ(Y)<>6.12345THEN 8990 0140 IF FNW(.6)<>12345THEN 8990 0150 T=SPACE : IF S<>TTHEN 8990 8980 IF X=5AND Y=6THEN 9000 8990 E(4)=E(4)+1 9000 PRINT AT(4,16,16); : IF E(4)=0THEN PRINT "OK" : ELSE PRINT E(4);"ERRORS" 9010 LOAD DC T"BDIAG5" 9999 DEFFNW(X)=12345