Listing of file='BDIAG6' on disk='vmedia/mvp-diag-3.5.wvd.zip'
# Sector 428, program filename = 'BDIAG6' 0010 REM BDIAG6 6/17/76 -- TESTING IF/THEN,ELSE : REM CHANGED 7/87 TO ACCOMODATE 3.0 ISOLATED ELSE STATEMENT 0020 PRINT AT(6,00);"IF/THEN,ELSE... <-- TESTING", 0080 S=SPACE : T,F=0 0090 DIM A$1,B$1,X$16,Y$17,C$1,D$1,T$1,D1$1,D2$1,D3$1,D4$1,D5$1,D6$1,D7$1,D8$1 0100 READ N : FOR I=1 TO N : READ X,Y 0110 IF X<Y THEN T=T+.1 : ELSE F=F+.1 0120 IF X<=Y THEN T=T+.01 : ELSE F=F+.01 0130 IF X=Y THEN T=T+.001 : ELSE F=F+.001 0140 IF X>=Y THEN T=T+.0001 : ELSE F=F+.0001 0150 IF X>Y THEN T=T+.00001 : ELSE F=F+.00001 0160 IF X<>Y THEN T=T+.000001 : ELSE F=F+.000001 0170 NEXT I : IF T<>.693861 THEN 8990 : IF F<>.861693THEN 8990 0180 DATA 14, 1,1, 1,2, 2,1, .000001,.0000011, -1,-1.000000000001, -.2,-.21, 0 ,0, 1E34,2E34, 3E45,1E46, -3E45,-1E46, 1,-2, -.00009,.00001, 1E-34,2E-34, 123.4567890123,123.4567890123 0200 READ N : FOR I=1TO N : T1,T2,T3=999 : READ A$,X1,X2,X3 : FOR J=0 TO 255 : B$=BIN(J) 0210 IF A$<B$ THEN T1=J : IF A$=B$ THEN T2=J : IF A$>B$ THEN T3=J : NEXT J 0220 IF T1<>X1 THEN 8990 : IF T2<>X2 THEN 8990 : IF T3<>X3 THEN 8990 : NEXT I 0230 DATA 3, HEX(00),255,0,999, HEX(5F),255,95,94, HEX(FF),999,255,254 0300 T,F=0 : READ N : FOR I=1 TO N : READ X$,Y$ 0310 IF X$<Y$THEN T=T+.1 : ELSE F=F+.1 0320 IF X$<=Y$THEN T=T+.01 : ELSE F=F+.01 0330 IF X$=Y$THEN T=T+.001 : ELSE F=F+.001 0340 IF X$>=Y$THEN T=T+.0001 : ELSE F=F+.0001 0350 IF X$>Y$THEN T=T+.00001 : ELSE F=F+.00001 0360 IF X$<>Y$THEN T=T+.000001 : ELSE F=F+.000001 0370 NEXT I : IF T<>.242313 THEN 8990 : IF F<>.313242THEN 8990 0380 DATA 5, " "," ", "0123456789123456","0123456789123456" 0390 DATA "0123456789123456","01234567891234561", HEX(00),HEX(01), "ABCDEFGHIJ KLMN","ABCDEFGHIJKLMM" 0400 X=0 : IF 1=1 THEN 420 : GOTO 8990 0405 IF X=2 THEN 500 : GOTO 8990 0410 IF X=2 THEN 500 : GOTO 8990 0420 X=X+1 : IF X=1 THEN 420 : IF 1=1 THEN GOTO 410 : GOTO 8990 0500 X=0 : IF 1<2 THEN X=X+.1 : ELSE X=X+.01 : X=X+.001 0510 IF X<>.101THEN 8990 0520 X=0 : IF 2<1 THEN LET X=X+.1 : ELSE LET X=X+.01 : X=X+.001 0530 IF X<>.011THEN 8990 0600 T,F=0 : READ N : FOR I=1 TO N : READ A,B,C,D 0610 IF A<B AND C<D THEN T=T+.1 : ELSE F=F+.1 0620 IF A<B OR C<D THEN T=T+.01 : ELSE F=F+.01 0630 IF A<B XOR C<D THEN T=T+.001 : ELSE F=F+.001 0634 IF A<B AND C<D OR 1<2 THEN T=T+.0001 : ELSE F=F+.0001 0636 IF 1<2 OR 1<2 AND A<B THEN T=T+.00001 : ELSE F=F+.00001 0640 NEXT I : IF T<>.13242 THEN 8990 : IF F<>.31202 THEN 8990 0650 DATA 4, 1,2,3,4, 2,1,3,4, 1,2,4,3, 2,1,4,3 0700 X=0 : IF 1<2 THEN X=1 0710 ELSE X=2 : IF X<>1 THEN 8990 0720 X=0 : IF 2<1 THEN X=1 0730 ELSE X=2 : IF X<>2 THEN 8990 0750 X=0 : IF 1<0 THEN X=1 : REM : ELSE X=2 : IF X<>0 THEN 8990 0800 ELSE REM : ELSE ELSE REM : ELSE DIM X : ELSE END : ELSE STOP : ELSE PRINT "ERROR" : ELSE PRINTUSING "####","ERR" : ELSE FOR I=1TO 2 : ELSE NEXT I : ELSE GOSUB 8990 : ELSE GOTO 8990 : ELSE IF 1<2THEN 8990 : ELSE INPUT X : ELSE LINPUT X$ : ELSE KEYIN A$ : ELSE ON IGOTO 8990 : ELSE READ X : ELSE RESTORE 100 : ELSE RETURN : ELSE TRACE : ELSE CONVERT A$ TO X : ELSE PACK(#)A$FROMX : ELSE $PACK(F=A$)A$ FROM B$ 0810 IF 1=0 THEN REM : IF 1=0THEN GOSUB 8990 : IF 1=0THEN PRINT "ERR" : IF 1=0THEN PRINTUSING "#","E" : IF 1=0THEN NEXT I : IF 1=0THEN RETURN : IF 1=0THEN READ X : IF 1=0THEN RESTORE : IF 1=0THEN LIST : IF 1=0THEN END : IF 1=0THEN STOP 0900 X=0 : IF 1<2 THEN IF 2<3 THEN X=1 : ELSE X=2 : IF X<>1 THEN 8990 0910 X=0 : IF 1<0 THEN PRINT HEX(3AFD0DFEFFFC) : ELSE X=1 : IF X<>1 THEN 8990 1000 IF 1<0 AND 0<1 THEN 8990 : IF 1<0 AND 1<2 AND 2<3 THEN 8990 : IF 1<0 AND 1<2 OR 2<1 THEN 8990 : IF 1<0 AND 1<2 XOR 1<0 THEN 8990 : IF 1<0 AND "A"<"ABCDEFGGHASDKLF:" THEN 8990 : IF 1<0 AND HEX(FF0D228A8B8CB1FEFC)<HEX(B1) THEN 8990 1010 IF 1<0 AND 2<1 AND 3<2 OR 1>0 OR 1>0 OR 1>0 XOR 0>1 THEN GOTO 1020 : ELSE GOTO 8990 1020 READ N : FOR I=1 TO N : READ A$,B$,C$,D$,D1$,D2$,D3$,D4$,D5$,D6$,D7$,D8$ 1030 T$=" " : IF A$="T" AND B$="T" AND C$="T" THEN T$="T" : ELSE T$="F" : IF D$<>T$ THEN 8990 1040 T$=" " : IF A$="T" AND B$="T" OR C$="T" THEN T$="T" : ELSE T$="F" : IF D1$<>T$ THEN 8990 1050 T$=" " : IF A$="T" AND B$="T" XOR C$="T" THEN T$="T" : ELSE T$="F" : IF D2$<>T$ THEN 8990 1060 T$=" " : IF A$="T" OR B$="T" AND C$="T" THEN T$="T" : ELSE T$="F" : IF D3$<>T$ THEN 8990 1065 T$=" " : IF A$="T" OR B$="T" OR C$="T" THEN T$="T" : ELSE T$="F" : IF D4$<>T$ THEN 8990 1070 T$=" " : IF A$="T" OR B$="T" XOR C$="T" THEN T$="T" : ELSE T$="F" : IF D5$<>T$ THEN 8990 1075 T$=" " : IF A$="T" XOR B$="T" AND C$="T" THEN T$="T" : ELSE T$="F" : IF D6$<>T$ THEN 8990 1080 T$=" " : IF A$="T" XOR B$="T" OR C$="T" THEN T$="T" : ELSE T$="F" : IF D7$<>T$ THEN 8990 1085 T$=" " : IF A$="T" XOR B$="T" XOR C$="T" THEN T$="T" : ELSE T$="F" : IF D8$<>T$ THEN 8990 1090 NEXT I 1100 DATA 8, "T","T","T","T","T","F","T","T","F","F","T","T", "T","T","F","F" ,"T","T","F","T","T","F","F","F", "T","F","T","F","T","T","T","T","F","T" ,"T","F", "F","T","T","F","T","T","T","T","F","T","T","F" 1110 DATA "T","F","F","F","F","F","F","T","T","F","T","T", "F","T","F","F","F ","F","F","T","T","F","T","T", "F","F","T","F","T","T","F","T","T","F"," T","T", "F","F","F","F","F","F","F","F","F","F","F","F" 8980 I=SPACE : IF I=S THEN 9000 8990 E(6)=E(6)+1 9000 PRINT AT(6,16,16); : IF E(6)=0 THEN PRINT "OK" : ELSE PRINT E(6);"ERRORS" 9010 LOAD DC T"BDIAG7"