Listing of file='BDIAG8' on disk='vmedia/mvp-diag-3.5.wvd.zip'
# Sector 746, program filename = 'BDIAG8'
0020 PRINT AT(8,00);"LET,&.......... <-- TESTING",
0080 S=SPACE
0090 DIM X(5),X1(2,3),A$1,B$3,C$16,A$(12)1,B$(2,3)2,C$(3)1
0100 LET X=5
: LET X1=6
: X2=7
: X3=8
: X4,X5,X6,X7=9
0110 IF X<>5THEN 8990
: IF X1<>6THEN 8990
: IF X2<>7THEN 8990
: IF X3<>8THEN 8990
: IF X4<>9THEN 8990
: IF X5<>9THEN 8990
: IF X6<>9THEN 8990
: IF X7<>9THEN 8990
0120 FOR I=1TO 5
: LET X(I)=I
: NEXT I
0130 FOR I=1TO 2
: FOR J=1TO 3
: X1(I,J)=I*10+J
: NEXT J,I
0140 FOR I=1TO 5
: IF X(I)<>ITHEN 8990
: NEXT I
0150 FOR I=1TO 2
: FOR J=1TO 3
: IF X1(I,J)<>I*10+JTHEN 8990
: NEXT J,I
0190 IF X<>5THEN 8990
: IF X1<>6THEN 8990
: IF X2<>7THEN 8990
: IF X3<>8THEN 8990
: IF X4<>9THEN 8990
: IF X5<>9THEN 8990
: IF X6<>9THEN 8990
: IF X7<>9THEN 8990
0300 LET A$="A"
: B$="B"
: LET C$,D$="C"
: E$,E1$,E2$="D"
0310 IF A$<>"A"THEN 8990
: IF B$<>"B"THEN 8990
: IF C$<>"C"THEN 8990
: IF D$<>"C"THEN 8990
: IF E$<>"D"THEN 8990
: IF E1$<>"D"THEN 8990
: IF E2$<>"D"THEN 8990
0320 A$,B$,C$=ALL(FF)
: A$,B$,C$="123"
: IF A$<>"1"THEN 8990
: IF B$<>"123"THEN 8990
: IF C$<>"123"THEN 8990
0330 A$,B$,C$=ALL(FF)
: C$,B$,A$="ABCDEFGHIJKLMNOPQRS"
: IF A$<>"A"THEN 8990
: IF B$<>"ABC"THEN 8990
: IF C$<>"ABCDEFGHIJKLMNOP"THEN 8990
0340 A$()=ALL(FF)
: FOR I=1TO 12
: LET A$(I)=BIN(I)
: NEXT I
: FOR I=1TO 12
: IF VAL(A$(I))<>ITHEN 8990
: NEXT I
0350 B$()=ALL(FF)
: B$(1,1)=HEX(0102)
: B$(1,2)=HEX(0304)
: B$(1,3)=HEX(0506)
: B$(2,1)=HEX(0708)
: LET B$(2,2)=HEX(090A)
: B$(2,3)=HEX(0B0C)
: IF B$()<>A$()THEN 8990
0360 C$()="ABC"
: FOR I=0TO 255
: C$(2)=BIN(I)
: IF VAL(C$(2))<>ITHEN 8990
: NEXT I
: IF C$(1)<>"A"THEN 8990
: IF C$(3)<>"C"THEN 8990
0500 A$,B$,C$=ALL(FF)
: B$,C$,A$="A"&"B"&"CDEFGHIJKLMNOPQR"
: IF A$<>"A"THEN 8990
: IF B$<>"ABC"THEN 8990
: IF C$<>"ABCDEFGHIJKLMNOP"THEN 8990
0510 C$,B$,A$=ALL(5A)&"Z"&"W"
: IF A$<>HEX(5A)THEN 8990
: IF B$<>HEX(5A5A5A)THEN 8990
: IF C$<>HEX(5A5A5A5A5A5A5A5A5A5A5A5A5A5A5A5A)THEN 8990
0520 C$,B$,A$=HEX(45)&ALL(" ")&ALL(FF)
: IF A$<>"E"THEN 8990
: IF B$<>"E"THEN 8990
: IF C$<>"E"THEN 8990
8980 I=SPACE
: IF I=STHEN 9000
8990 E(8)=E(8)+1
9000 PRINT AT(8,16,16);
: IF E(8)=0THEN PRINT "OK"
: ELSE PRINT E(8);"ERRORS"
9010 LOAD DC T"BDIAG9"