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 %###