image of READY prompt

Wang2200.org

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"