Listing of file='BDIAG26' on disk='vmedia/732-0050A.wvd.zip'
# Sector 123, program filename = 'BDIAG26'
0000 %#
0020 PRINT AT(11,32);"PRINTUSING TO.. <-- TESTING",
0080 S=SPACE
0090 DIM B$1,A$124,A$(256)1
0100 A$=HEX(0000)
: B$="X"
: C$=".98765432"
: PRINTUSING TO A$,"#####","A";"0123456";HEX(444546);B$;STR(C$,2,8);
: IF STR(A$,3,VAL(A$,2))<>"A 01234DEF X 98765"OR STR(A$,VAL(A$,2)+3)
<>" "THEN 8990
0110 A$=HEX(0000)
: B$="X"
: C$=".98765432"
: PRINTUSING TO A$,"-$#.#","A";"0123456";HEX(444546);B$;STR(C$,2,8);
: IF STR(A$,3,VAL(A$,2))<>"A 01234DEF X 98765"OR STR(A$,VAL(A$,2)+3)
<>" "THEN 8990
0120 A$=HEX(0000)
: A=1
: B=-2
: PRINTUSING TO A$,"#",0;A;B;.1;-.01;12;1.7;
: IF STR(A$,3,VAL(A$,2))<>"01200#1"OR STR(A$,VAL(A$,2)+3)<>" "THEN 8990
0130 A$=HEX(0000)
: A=1
: B=-2
: PRINTUSING TO A$,"+#",0;A;B;.1;-.01;12;-34;1.7;
: IF STR(A$,3,VAL(A$,2))<>"+0+1-2+0-0+#-#+1"OR STR(A$,VAL(A$,2)+3)<>" "THEN
8990
0140 A$=HEX(0000)
: A=1
: B=-2
: PRINTUSING TO A$,"-#",0;A;B;.1;-.01;12;-34;1.7;
: IF STR(A$,3,VAL(A$,2))<>" 0 1-2 0-0 #-# 1"OR STR(A$,VAL(A$,2)+3)<>" "THEN
8990
0150 A$=HEX(0000)
: A=1
: B=-2
: PRINTUSING TO A$,"+##",0;A;B;.1;-.01;12;-34;1.7;123;-456;
: IF STR(A$,3,VAL(A$,2))<>" +0 +1 -2 +0 -0+12-34 +1+##-##"OR STR(A$,VAL(A$,
2)+3)<>" "THEN 8990
0160 A$=HEX(0000)
: A=1
: B=-2
: PRINTUSING TO A$,"-##",0;A;B;.1;-.01;12;-34;1.7;123;-456;
: IF STR(A$,3,VAL(A$,2))<>" 0 1 -2 0 -0 12-34 1 ##-##"OR STR(A$,VAL(A$,
2)+3)<>" "THEN 8990
0170 A$=HEX(0000)
: A=1
: B=-2
: PRINTUSING TO A$,"$##",0;A;B;.1;-.01;12;-34;1.7;123;-456;
: IF STR(A$,3,VAL(A$,2))<>" $0 $1 $2 $0 $0$12$34 $1$##$##"OR STR(A$,VAL(A$,
2)+3)<>" "THEN 8990
0180 A$=HEX(0000)
: A=1
: B=-2
: PRINTUSING TO A$,"#,#",0;A;B;.1;-.01;12;-34;1.7;123;-456;
: IF STR(A$,3,VAL(A$,2))<>" 0 1 2 0 01,23,4 1#,##,#"OR STR(A$,VAL(A$,
2)+3)<>" "THEN 8990
0190 A$=HEX(0000)
: A=1
: B=-2
: PRINTUSING TO A$,"##+",0;A;B;.1;-.01;12;-34;1.7;123;-456;
: IF STR(A$,3,VAL(A$,2))<>" 0+ 1+ 2- 0+ 0-12+34- 1+##+##-"OR STR(A$,VAL(A$,
2)+3)<>" "THEN 8990
0200 A$=HEX(0000)
: A=1
: B=-2
: PRINTUSING TO A$,"##-",0;A;B;.1;-.01;12;-34;1.7;123;-456;
: IF STR(A$,3,VAL(A$,2))<>" 0 1 2- 0 0-12 34- 1 ## ##-"OR STR(A$,VAL(A$,
2)+3)<>" "THEN 8990
0210 A$=HEX(0000)
: A=1
: B=-2
: PRINTUSING TO A$,"##++",0;A;B;.1;-.01;12;-34;1.7;123;-456;
: IF STR(A$,3,VAL(A$,2))<>" 0 1 2CR 0 0CR12 34CR 1 ## ##CR"OR STR(
A$,VAL(A$,2)+3)<>" "THEN 8990
0220 A$=HEX(0000)
: A=1
: B=-2
: PRINTUSING TO A$,"##--",0;A;B;.1;-.01;12;-34;1.7;123;-456;
: IF STR(A$,3,VAL(A$,2))<>" 0 1 2DB 0 0DB12 34DB 1 ## ##DB"OR STR(
A$,VAL(A$,2)+3)<>" "THEN 8990
0230 A$=HEX(0000)
: A=1
: B=-2
: PRINTUSING TO A$,"##.##",0;A;B;.1;-.01;12;-34;1.7;123;-456;1.23;45.678;
: IF STR(A$,3,VAL(A$,2))<>" 0.00 1.00 2.00 0.10 0.0112.0034.00 1.70##.####.
## 1.2345.67"OR STR(A$,VAL(A$,2)+3)<>" "THEN 8990
0240 A$=HEX(0000)
: A=1
: B=-2
: PRINTUSING TO A$,"+$###",0;A;B;.1;-.01;12;-34;1.7;123;-456;1234;-5678;
: IF STR(A$,3,VAL(A$,2))<>" +$0 +$1 -$2 +$0 -$0 +$12 -$34 +$1+$123-$4
56+$###-$###"OR STR(A$,VAL(A$,2)+3)<>" "THEN 8990
0250 A$=HEX(0000)
: A=1
: B=-2
: PRINTUSING TO A$,"-$###",0;A;B;.1;-.01;12;-34;1.7;123;-456;1234;-5678;
: IF STR(A$,3,VAL(A$,2))<>" $0 $1 -$2 $0 -$0 $12 -$34 $1 $123-$4
56 $###-$###"OR STR(A$,VAL(A$,2)+3)<>" "THEN 8990
0260 A$=HEX(0000)
: A=1
: B=-2
: PRINTUSING TO A$,"#",0,A,B
: IF STR(A$,3,VAL(A$,2))<>HEX(300D310D320D)OR STR(A$,VAL(A$,2)+3)<>" "THEN
8990
0270 A$=HEX(0000)
: A=1
: B=-2
: PRINTUSING TO A$,"#";0,A;B
: IF STR(A$,3,VAL(A$,2))<>HEX(300D31320D)OR STR(A$,VAL(A$,2)+3)<>" "THEN 89
90
0280 A$()=HEX(0000)
: A=1
: B=-2
: PRINTUSING TO A$(),"##################",0;A;B;.1;-.01;12;1234567890123;1.
23E17;4.56E18;
0285 IF STR(A$(),3,VAL(A$(),2))<>" 0 1
2 0 0 12 1234
567890123123000000000000000##################"OR STR(A$(),VAL(A$(),2)+3)<
>" "THEN 8990
0290 A$=HEX(0000)
: A=1
: B=-2
: PRINTUSING TO A$,"#^^^^";0;A;B;12;-123;9E99;9E-99;-3E45;
: IF STR(A$,3,VAL(A$,2))<>"0E+001E+002E+001E+011E+029E+999E-993E+45"OR STR(
A$,VAL(A$,2)+3)<>" "THEN 8990
0300 A$=HEX(0000)
: PRINTUSING TO A$,"+$.--";
: IF STR(A$,3,VAL(A$,2))<>"+$.--"OR STR(A$,VAL(A$,2)+3)<>" "THEN 8990
0310 A$=HEX(0000)
: PRINTUSING TO A$,"+$.--"
: IF STR(A$,3,VAL(A$,2))<>HEX(2B242E2D2D0D)OR STR(A$,VAL(A$,2)+3)<>" "THEN
8990
0320 A$=HEX(0000)
: PRINTUSING TO A$,HEX(414243440D454647);
: IF STR(A$,3,VAL(A$,2))<>"ABCD"OR STR(A$,VAL(A$,2)+3)<>" "THEN 8990
0330 A$=HEX(0000)
: C$="###"&HEX(0D)&"####"
: PRINTUSING TO A$,C$,1;12;123;1234;
: IF STR(A$,3,VAL(A$,2))<>" 1 12123###"OR STR(A$,VAL(A$,2)+3)<>" "THEN 899
0
0340 A$=HEX(0000)
: PRINTUSING TO A$,345,1;12;123;1234;
: IF STR(A$,3,VAL(A$,2))<>" 112####"OR STR(A$,VAL(A$,2)+3)<>" "THEN 8990
0345 %##
0350 A$=HEX(0000)
: PRINTUSING TO A$,0,1;12;123;1234;
: IF STR(A$,3,VAL(A$,2))<>"1###"OR STR(A$,VAL(A$,2)+3)<>" "THEN 8990
0360 A$=HEX(0000)
: PRINTUSING TO A$,9999,1;12;123;1234;
: IF STR(A$,3,VAL(A$,2))<>" 1 12123###"OR STR(A$,VAL(A$,2)+3)<>" "THEN 899
0
0370 A$=HEX(0000)
: PRINTUSING TO A$,"+#+",0;1;-2;12;-34;
: IF STR(A$,3,VAL(A$,2))<>"+0++1+-2++#+-#+"OR STR(A$,VAL(A$,2)+3)<>" "THEN
8990
0380 A$=HEX(0000)
: PRINTUSING TO A$,"-#+",0;1;-2;12;-34;
: IF STR(A$,3,VAL(A$,2))<>" 0+ 1+-2+ #+-#+"OR STR(A$,VAL(A$,2)+3)<>" "THEN
8990
0385 %#:
0390 A$=HEX(0000)
: PRINTUSING TO A$,385,0;1;-2;12;-34;
: IF STR(A$,3,VAL(A$,2))<>"0:1:2:#:#:"OR STR(A$,VAL(A$,2)+3)<>" "THEN 8990
0400 A$=HEX(0000)
: PRINTUSING TO A$,":+#",0;1;-2;12;-34;
: IF STR(A$,3,VAL(A$,2))<>":+0:+1:-2:+#:-#"OR STR(A$,VAL(A$,2)+3)<>" "THEN
8990
0410 A$=HEX(0000)
: PRINTUSING TO A$,":-#;",0;1;-2;12;-34;
: IF STR(A$,3,VAL(A$,2))<>": 0;: 1;:-2;: #;:-#;"OR STR(A$,VAL(A$,2)+3)<>" "
THEN 8990
0420 A$=HEX(0000)
: PRINTUSING TO A$,",#,#,,#,A";0;1;-2;12;-987;1234;
: IF STR(A$,3,VAL(A$,2))<>", 0,A, 1,A, 2,A, 1,,2,A,9,8,,7,A,#,
#,,#,A"OR STR(A$,VAL(A$,2)+3)<>" "THEN 8990
0430 A$=HEX(0000)
: PRINTUSING TO A$,"#,#.#,#";0;1;-2;3;12.34;45;
: IF STR(A$,3,VAL(A$,2))<>" 0.0,1 2.0,31,2.3,#"OR STR(A$,VAL(A$,2)+3)<>"
"THEN 8990
0440 A$=HEX(0000)
: PRINTUSING TO A$,".###";0;1;-2;.1;.02;.003;.0004;
: IF STR(A$,3,VAL(A$,2))<>".000.###.###.100.020.003.000"OR STR(A$,VAL(A$,2)
+3)<>" "THEN 8990
0450 A$=HEX(0000)
: PRINTUSING TO A$,"-.###";0;1;-2;.1;-.02;.003;-.0004;
: IF STR(A$,3,VAL(A$,2))<>" .000 .###-.### .100-.020 .003-.000"OR STR(A$,VA
L(A$,2)+3)<>" "THEN 8990
0460 A$=HEX(0000)
: PRINTUSING TO A$,"$.###";0;1;-2;.1;-.02;.003;-.0004;
: IF STR(A$,3,VAL(A$,2))<>"$.000$.###$.###$.100$.020$.003$.000"OR STR(A$,VA
L(A$,2)+3)<>" "THEN 8990
0470 A$=HEX(0000)
: PRINTUSING TO A$,"+$#####.#####";0;1;-2;.1;-.02;.003;-.0004;12345.67890;-
1234.56789123;
0475 IF STR(A$,3,VAL(A$,2))<>" +$0.00000 +$1.00000 -$2.00000 +$0.1
0000 -$0.02000 +$0.00300 -$0.00040+$12345.67890 -$1234.56789"OR
STR(A$,VAL(A$,2)+3)<>" "THEN 8990
0480 A$=HEX(0000)
: PRINTUSING TO A$,"+#+#-#";0;1;2;-3;-4;-5;12;34;56;-12;-34;-35;
: IF STR(A$,3,VAL(A$,2))<>"+0+1 2-3-4-5+#+# #-#-#-#"OR STR(A$,VAL(A$,2)+3)<
>" "THEN 8990
0490 A$=HEX(0000)
: PRINTUSING TO A$,"ABC#D##EFG### ";0;1;2;3;-4;-5;12;34;56;-12;-34;-35;
: IF STR(A$,3,VAL(A$,2))<>"ABC0D 1EFG 2 ABC3D 4EFG 5 ABC#D34EFG 56 ABC#D3
4EFG 35 "OR STR(A$,VAL(A$,2)+3)<>" "THEN 8990
0500 C$=HEX(0000)
: PRINTUSING TO C$,"ABC#D##EFG### ";0;1;2;3;-4;-5;12;34;56;-12;-34;-35;
: IF STR(A$,3,VAL(C$,2))<>"ABC0D 1EFG 2 "OR VAL(C$,2)<>14THEN 8990
0510 A$=HEX(0000)
: C$=ALL("#")
: FOR I=1TO 10
: PRINTUSING TO A$,STR(C$,,I),I;
: NEXT I
: IF STR(A$,3,VAL(A$,2))<>"1 2 3 4 5 6 7 8 9
10"OR STR(A$,VAL(A$,2)+3)<>" "THEN 8990
8980 I=SPACE
: IF I=STHEN 9000
8990 E(26)=E(26)+1
9000 PRINT AT(11,48,16);
: IF E(26)=0THEN PRINT "OK";
: ELSE PRINT E(26);"ERRORS"
9010 LOAD DC T"BDIAG27 "
9999 %###