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"