image of READY prompt

Wang2200.org

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

# Sector 2593, 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 %###