Listing of file='BDIAG16A' on disk='vmedia/mvp-diag-3.5.wvd.zip'
# Sector 1061, program filename = 'BDIAG16A'
0080 S=SPACE
0090 DIM A$K1,A1$K2,B$K5,C$,D$A,D1$K
: DIM A$(K1)K1,A1$(K1,1)1,B$(K1),C$(K0)1,D$(K2,K3)K4,D1$(J,1)K1,D2$(1,J)K2,
D3$(1,1)K
: DIM Z9$(K9)1
0095 DIM A$1,A1$2,B$5,C$,D$100,D1$124
: DIM A$(1)1,A1$(1,1)1,B$(1),C$(256)1,D$(2,3)4,D1$(255,1)1,D2$(1,255)2,D3$(
1,1)124
: DIM Z9$(1000)1
0100 A$,A1$,B$,C$,D$,D1$=ALL(FF)
: IF LEN(A$)<>1OR LEN(A1$)<>2OR LEN(B$)<>5OR LEN(C$)<>16OR LEN(D$)<>100OR L
EN(D1$)<>124THEN 8990
0110 A$(),A1$(),B$(),C$(),D$(),D1$(),D2$(),D3$(),Z9$()=ALL(30)
: IF LEN(A$())<>1OR LEN(A1$())<>1OR LEN(B$())<>16OR LEN(C$())<>256OR LEN(D$
())<>24OR LEN(D1$())<>255OR LEN(D2$())<>510OR LEN(D3$())<>124OR LEN(Z9$()
)<>1000THEN 8990
0120 D$="ABCDEFGHIJKLNOPQRSTUVWXYZ"
: FOR I=1TO 2
: FOR J=1TO 3
: D$(I,J)=STR(D$,(I-1)*3+J,1)
: NEXT J,I
: IF D$()<>"A B C D E F"THEN 8990
0130 FOR I=1TO 255
: D1$(I,1),C$(I)=BIN(I)
: NEXT I
: FOR I=1TO 255
: IF VAL(C$(I))<>ITHEN 8990
: NEXT I
: IF D1$()<>STR(C$(),,255)THEN 8990
0200 DIM A,A1,Z9,A(K1),A1(K1,K1),B(K4,K5)
0210 A=1
: A1=2
: Z9=3
: A(1)=4
: A1(1,1)=5
: FOR I=1TO 4
: FOR J=1TO 5
: B(I,J)=6
: NEXT J,I
0220 IF A<>1OR A1<>2OR Z9<>3OR A(1)<>4OR A1(1,1)<>5OR B(1,1)<>6OR B(4,5)<>6THE
N 8990
0230 DIM A,A1,Z9,A(1),A1(1,1),B(4,5)
0300 K1=1
: K2=2
: K3=3
: K4=4
: K5=5
: K6=6
: K7=7
: K8=8
: K9=9
: K=128
: K0=256
8980 I=SPACE
: IF I=STHEN 9000
8990 E(16)=E(16)+1
9000 PRINT AT(01,48,16);
: IF E(16)=0THEN PRINT "OK";
: ELSE PRINT E(16);"ERRORS"
9010 COM CLEAR K1
: LOAD T"BDIAG17 "