Listing of file='BDIAG20' on disk='vmedia/732-0050A.wvd.zip'
# Sector 972, program filename = 'BDIAG20' 0000 DEFFN'100 : IF X=0THEN 20 : X=X+.1 : RETURN 0020 PRINT AT(05,32);"DEFFN',GOSUB'.. <-- TESTING", 0080 S=SPACE 0090 DIM B$(2,3)4 0110 DEFFN'0"T" 0115 DEFFN'1HEX(0D) : X=X+1 0120 DEFFN'02"ABC";HEX(444546);"GHI" : X=X+1 0125 DEFFN'31HEX(FF0123FD0D3AFCFE);":;";"Z" : X=X+1 0130 IF X<>3THEN 8990 0140 GOTO 220 0210 DEFFN'210 : X=X+.001 : RETURN 0220 X=1 : GOSUB '100 : GOSUB '99 : GOSUB '210 : GOSUB '230 : IF X<>1.1111THEN 8990 : I=SPACE : IF I<>STHEN 8990 : GOTO 250 0230 DEFFN'230 : X=X+.0001 : RETURN 0250 X=0 0255 DEFFN'51 : X=X+1 : IF X<61THEN GOSUB '51 : RETURN CLEAR ALL : I=SPACE : IF I<>STHEN 8990 0505 X=2 : A$="abc" : B$()="ABC" : C$="KLMNOPQ" : GOSUB '255(1,":",3*4,HEX(0D3AFDFE29),X,A$,B$(),STR(C$,2,3)) 0510 IF Z<>1OR Z1<>12OR Z2<>2OR Z$<>":"OR Z1$<>HEX(0D3AFDFE29)OR Z2$<>"abc"OR Z3$<>"ABC"OR Z4$<>"LMN"THEN 8990 : GOTO 8980 0520 DEFFN'254(Z,Z$,Z1,Z1$,Z2,Z2$,Z3$,Z4$) : RETURN 0550 DEFFN'255(Y,Y$,Y1,Y1$,Y2,Y2$,Y3$,Y4$) : GOSUB '254(Y,Y$,Y1,Y1$,Y2,Y2$,Y3$,Y4$) : RETURN 8980 I=SPACE : IF I=STHEN 9000 8990 E(20)=E(20)+1 9000 PRINT AT(05,48,16); : IF E(20)=0THEN PRINT "OK"; : ELSE PRINT E(20);"ERRORS" 9010 LOAD DC T"BDIAG21 " 9999 DEFFN'99 : X=X+.01 : RETURN