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