Listing of file='BDIAG9' on disk='vmedia/732-0050A.wvd.zip'
# Sector 591, program filename = 'BDIAG9'
0020 PRINT AT(09,00);"STR,LEN........ <-- TESTING",
0080 S=SPACE
0090 DIM A$(256)1,C$1,B$(4)124
0100 A$=ALL(41)
: STR(A$,2,3)="123"
: STR(A$,6,3)="4"
: STR(A$,10,3)="5678"
: STR(A$,14,1)=" "
: STR(A$,16,1)="0"
: IF A$<>"A123A4 A567A A0"THEN 8990
0110 B$=ALL("B")
: FOR I=1TO 16
: A$=ALL("A")
: STR(A$,I)=ALL("B")
: IF A$<>B$THEN 8990
: STR(B$,I,1)="A"
: NEXT I
: IF B$<>"AAAAAAAAAAAAAAAA"THEN 8990
0120 B$=ALL("A")
: FOR I=1TO 16
: A$=ALL("A")
: STR(A$,,I)=ALL("Z")
: STR(B$,I,1)="Z"
: IF A$<>B$THEN 8990
: NEXT I
: IF B$<>"ZZZZZZZZZZZZZZZZ"THEN 8990
0130 STR(C$)="A"
: IF C$<>"A"THEN 8990
: STR(C$,1)="B"
: IF C$<>"B"THEN 8990
: STR(C$,,1)="CDE"
: IF C$<>"C"THEN 8990
: STR(C$,1,1)=" "
: IF C$<>" "THEN 8990
0200 B$()=ALL(FF)
: STR(B$())=" "
: IF B$()<>" "THEN 8990
0210 STR(B$(),1,496)=ALL("A")
: IF POS(B$()<>"A")<>0THEN 8990
0220 STR(B$(),496,1)="Z"
: IF POS(STR(B$(),,495)<>"A")<>0THEN 8990
: IF STR(B$(),496)<>"Z"THEN 8990
0225 A$="A"
: STR(A$,2)=A$
: IF A$<>"AA"THEN 8990
0230 A$="A"
: STR(A$,2)=STR(A$)
: IF A$<>"AAAAAAAAAAAAAAAA"THEN 8990
0240 A$="0123456789ABCDEF"
: STR(A$)=STR(A$,2,15)
: IF A$<>"123456789ABCDEF"THEN 8990
0300 A$()=ALL(5A)
: FOR I=1TO 256
: STR(A$(),I,1)=BIN(I-1)
: NEXT I
: FOR I=1TO 256
: IF VAL(A$(I))<>I-1THEN 8990
: NEXT I
0310 A$(1)=" "
: STR(A$(),2)=STR(A$())
: IF A$()<>" "THEN 8990
0400 A$,C$,A$(),B$()=" "
: IF LEN(A$)<>1OR LEN(C$)<>1OR LEN(A$())<>1OR LEN(A$(1))<>1OR LEN(B$(2))<>1
OR LEN(B$())<>1THEN 8990
0410 A$,C$,A$(),B$()="X"
: IF LEN(A$)<>1OR LEN(C$)<>1OR LEN(A$())<>1OR LEN(A$(1))<>1OR LEN(B$(2))<>1
OR LEN(B$())<>1THEN 8990
0420 FOR I=1TO 124
: STR(B$(3),I,1)="X"
: IF LEN(B$(3))<>ITHEN 8990
: NEXT I
0430 A$=" "
: FOR I=1TO 16
: IF LEN(STR(A$,1,I))<>ITHEN 8990
: NEXT I
0440 B$(),A$()=ALL(21)
: IF LEN(B$())<>496OR LEN(A$())<>256THEN 8990
0450 B$(4)=" "
: IF LEN(B$())<>3*124THEN 8990
8980 I=SPACE
: IF I=STHEN 9000
8990 E(9)=E(9)+1
9000 PRINT AT(09,16,16);
: IF E(9)=0THEN PRINT "OK"
: ELSE PRINT E(9);"ERRORS"
9010 LOAD DC T"BDIAG10"