image of READY prompt

Wang2200.org

Listing of file='BDIAG4' on disk='vmedia/mvp-diag-2.6.2.wvd.zip'

# Sector 2629, 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