Listing of file='BDIAG9 ' on disk='vmedia/mvp-diag-3.5.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"