image of READY prompt

Wang2200.org

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"