image of READY prompt

Wang2200.org

Listing of file='BDIAG6' on disk='vmedia/mvp-diag-2.6.2.wvd.zip'

# Sector 2753, program filename = 'BDIAG6'
0010 REM BDIAG6 6/17/76 -- TESTING IF/THEN,ELSE
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=1TO N
   : READ X,Y
0110 IF X<YTHEN T=T+.1
   : ELSE F=F+.1
0120 IF X<=YTHEN T=T+.01
   : ELSE F=F+.01
0130 IF X=YTHEN T=T+.001
   : ELSE F=F+.001
0140 IF X>=YTHEN T=T+.0001
   : ELSE F=F+.0001
0150 IF X>YTHEN T=T+.00001
   : ELSE F=F+.00001
0160 IF X<>YTHEN T=T+.000001
   : ELSE F=F+.000001
0170 NEXT I
   : IF T<>.693861THEN 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.456789012
     3,123.4567890123
0200 READ N
   : FOR I=1TO N
   : T1,T2,T3=999
   : READ A$,X1,X2,X3
   : FOR J=0TO 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<>X1THEN 8990
   : IF T2<>X2THEN 8990
   : IF T3<>X3THEN 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=1TO 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<>.242313THEN 8990
   : IF F<>.313242THEN 8990
0380 DATA 5," "," ","0123456789123456","0123456789123456"
0390 DATA "0123456789123456","01234567891234561",HEX(00),HEX(01),"ABCDEFGHIJKL
     MN","ABCDEFGHIJKLMM"
0400 X=0
   : IF 1=1THEN 420
   : GOTO 8990
0405 IF X=2THEN 500
   : GOTO 8990
0410 IF X=2THEN 500
   : GOTO 8990
0420 X=X+1
   : IF X=1THEN 420
   : IF 1=1THEN GOTO 410
   : GOTO 8990
0500 X=0
   : IF 1<2THEN X=X+.1
   : ELSE X=X+.01
   : X=X+.001
0510 IF X<>.101THEN 8990
0520 X=0
   : IF 2<1THEN 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=1TO N
   : READ A,B,C,D
0610 IF A<BAND C<DTHEN T=T+.1
   : ELSE F=F+.1
0620 IF A<BOR C<DTHEN T=T+.01
   : ELSE F=F+.01
0630 IF A<BXOR C<DTHEN T=T+.001
   : ELSE F=F+.001
0634 IF A<BAND C<DOR 1<2THEN T=T+.0001
   : ELSE F=F+.0001
0636 IF 1<2OR 1<2AND A<BTHEN T=T+.00001
   : ELSE F=F+.00001
0640 NEXT I
   : IF T<>.13242THEN 8990
   : IF F<>.31202THEN 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<2THEN X=1
0710 ELSE X=2
   : IF X<>1THEN 8990
0720 X=0
   : IF 2<1THEN X=1
0730 ELSE X=2
   : IF X<>0THEN 8990
0750 X=0
   : IF 1<0THEN X=1
   : REM
   : ELSE X=2
   : IF X<>0THEN 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$FROMB$
0810 IF 1=0THEN 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<2THEN IF 2<3THEN X=1
   : ELSE X=2
   : IF X<>1THEN 8990
0910 X=0
   : IF 1<0THEN PRINT HEX(3AFD0DFEFFFC)
   : ELSE X=1
   : IF X<>1THEN 8990
1000 IF 1<0AND 0<1THEN 8990
   : IF 1<0AND 1<2AND 2<3THEN 8990
   : IF 1<0AND 1<2OR 2<1THEN 8990
   : IF 1<0AND 1<2XOR 1<0THEN 8990
   : IF 1<0AND "A"<"ABCDEFGGHASDKLF:"THEN 8990
   : IF 1<0AND HEX(FF0D228A8B8CB1FEFC)<HEX(B1)THEN 8990
1010 IF 1<0AND 2<1AND 3<2OR 1>0OR 1>0OR 1>0XOR 0>1THEN GOTO 1020
   : ELSE GOTO 8990
1020 READ N
   : FOR I=1TO 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=STHEN 9000
8990 E(6)=E(6)+1
9000 PRINT AT(6,16,16);
   : IF E(6)=0THEN PRINT "OK"
   : ELSE PRINT E(6);"ERRORS"
9010 LOAD DC T"BDIAG7"