image of READY prompt

Wang2200.org

Listing of file='BDIAG27' on disk='vmedia/732-0050A.wvd.zip'

# Sector 1121, program filename = 'BDIAG27'
0020 PRINT AT(12,32);"CONVERT........ <-- TESTING",
0080 S=SPACE
0090 DIM B$1,A$124,A$(256)1,X(10)
0120 DATA 5,0,1,-2,.3,-.04
   : READ N
   : A$=" "
   : FOR I=1TO N
   : READ X
   : CONVERT XTO STR(A$,LEN(A$)+1),(#)
   : NEXT I
   : IF A$<>" 01200"THEN 8990
0130 DATA 5,0,1,-2,.3,-.04
   : READ N
   : A$=" "
   : FOR I=1TO N
   : READ X
   : CONVERT XTO STR(A$,LEN(A$)+1),(+#)
   : NEXT I
   : IF A$<>" +0+1-2+0-0"THEN 8990
0140 DATA 5,0,1,-2,.3,-.04
   : READ N
   : A$=" "
   : FOR I=1TO N
   : READ X
   : CONVERT XTO STR(A$,LEN(A$)+1),(-#)
   : NEXT I
   : IF A$<>"  0 1-2 0-0"THEN 8990
0150 DATA 7,0,1,-2,.3,-.04,12,-34
   : READ N
   : A$=" "
   : FOR I=1TO N
   : READ X
   : CONVERT XTO STR(A$,LEN(A$)+1),(+##)
   : NEXT I
   : IF A$<>" +00+01-02+00-00+12-34"THEN 8990
0160 DATA 7,0,1,-2,.3,-.04,12,-34
   : READ N
   : A$=" "
   : FOR I=1TO N
   : READ X
   : CONVERT XTO STR(A$,LEN(A$)+1),(-##)
   : NEXT I
   : IF A$<>"  00 01-02 00-00 12-34"THEN 8990
0170 DATA 7,0,1,-2,.3,-.04,12,-34
   : READ N
   : A$=" "
   : FOR I=1TO N
   : READ X
   : CONVERT XTO STR(A$,LEN(A$)+1),($##)
   : NEXT I
   : IF A$<>" $00$01$02$00$00$12$34"THEN 8990
0180 DATA 7,0,1,-2,.3,-.04,12,-34
   : READ N
   : A$=" "
   : FOR I=1TO N
   : READ X
   : CONVERT XTO STR(A$,LEN(A$)+1),(#,#)
   : NEXT I
   : IF A$<>" 0,00,10,20,00,01,23,4"THEN 8990
0190 DATA 7,0,1,-2,.3,-.04,12,-34
   : READ N
   : A$=" "
   : FOR I=1TO N
   : READ X
   : CONVERT XTO STR(A$,LEN(A$)+1),(##+)
   : NEXT I
   : IF A$<>" 00+01+02-00+00-12+34-"THEN 8990
0200 DATA 7,0,1,-2,.3,-.04,12,-34
   : READ N
   : A$=" "
   : FOR I=1TO N
   : READ X
   : CONVERT XTO STR(A$,LEN(A$)+1),(##-)
   : NEXT I
   : IF A$<>" 000102-0000-1234-"THEN 8990
0210 DATA 7,0,1,-2,.3,-.04,12,-34
   : READ N
   : A$=" "
   : FOR I=1TO N
   : READ X
   : CONVERT XTO STR(A$,LEN(A$)+1),(##++)
   : NEXT I
   : IF A$<>" 000102CR0000CR1234CR"THEN 8990
0220 DATA 7,0,1,-2,.3,-.04,12,-34
   : READ N
   : A$=" "
   : FOR I=1TO N
   : READ X
   : CONVERT XTO STR(A$,LEN(A$)+1),(##--)
   : NEXT I
   : IF A$<>" 000102DB0000DB1234DB"THEN 8990
0230 DATA 10,0,1,-2,.3,-.04,12,-34,1.7,1.23,45.678
   : READ N
   : A$=" "
   : FOR I=1TO N
   : READ X
   : CONVERT XTO STR(A$,LEN(A$)+1),(##.##)
   : NEXT I
   : IF A$<>" 00.0001.0002.0000.3000.0412.0034.0001.7001.2345.67"THEN 8990
0240 DATA 10,0,1,-2,.3,-.04,12,-34,1.7,123,-456
   : READ N
   : A$=" "
   : FOR I=1TO N
   : READ X
   : CONVERT XTO STR(A$,LEN(A$)+1),(+$###)
   : NEXT I
   : IF A$<>" +$000+$001-$002+$000-$000+$012-$034+$001+$123-$456"THEN 8990
0250 DATA 10,0,1,-2,.3,-.04,12,-34,1.7,123,-456
   : READ N
   : A$=" "
   : FOR I=1TO N
   : READ X
   : CONVERT XTO STR(A$,LEN(A$)+1),(-$###)
   : NEXT I
   : IF A$<>"  $000 $001-$002 $000-$000 $012-$034 $001 $123-$456"THEN 8990
0280 DATA 07,0,1,-2,.3,12,1234567890123,1.23E17
   : READ N
   : A$()=" "
   : FOR I=1TO N
   : READ X
   : CONVERT XTO STR(A$(),LEN(A$())+1),(##################)
   : NEXT I
0285 IF A$()<>" 00000000000000000000000000000000000100000000000000000200000000
     0000000000000000000000000012000001234567890123123000000000000000"THEN 899
     0
0290 DATA 10,0,1,-2,.3,-.04,12,-123,9E99,-3E45,-9E-99
   : READ N
   : A$=" "
   : FOR I=1TO N
   : READ X
   : CONVERT XTO STR(A$,LEN(A$)+1),(#^^^^)
   : NEXT I
   : IF A$<>" 0E+001E+002E+003E-014E-021E+011E+029E+993E+459E-99"THEN 8990
0440 DATA 06,0,.3,-.04,.003,.0004,.123
   : READ N
   : A$=" "
   : FOR I=1TO N
   : READ X
   : CONVERT XTO STR(A$,LEN(A$)+1),(.###)
   : NEXT I
   : IF A$<>" .000.300.040.003.000.123"THEN 8990
0450 DATA 06,0,.3,-.04,.003,-.0004,-.123
   : READ N
   : A$=" "
   : FOR I=1TO N
   : READ X
   : CONVERT XTO STR(A$,LEN(A$)+1),(-.###)
   : NEXT I
   : IF A$<>"  .000 .300-.040 .003-.000-.123"THEN 8990
0460 DATA 06,0,.3,-.04,.003,-.0004,-.123
   : READ N
   : A$=" "
   : FOR I=1TO N
   : READ X
   : CONVERT XTO STR(A$,LEN(A$)+1),($.###)
   : NEXT I
   : IF A$<>" $.000$.300$.040$.003$.000$.123"THEN 8990
0470 DATA 07,0,.3,-.04,.003,-.0004,12345.67890,-1234.56789123
   : READ N
   : A$=" "
   : FOR I=1TO N
   : READ X
   : CONVERT XTO STR(A$,LEN(A$)+1),(+$#####.#####)
   : NEXT I
0475 IF A$<>" +$00000.00000+$00000.30000-$00000.04000+$00000.00300-$00000.0004
     0+$12345.67890-$01234.56789"THEN 8990
0510 A$=" "
   : C$=ALL("#")
   : FOR I=1TO 10
   : CONVERT ITO STR(A$,LEN(A$)+1),(STR(C$,,I))
   : NEXT I
   : IF A$<>" 1020030004000050000060000007000000080000000090000000010"THEN 899
     0
0600 CONVERT 12TO A$,(#)
   : ERRORIF ERR<>71THEN 8990
   : GOTO 610
0605 GOTO 8990
0610 CONVERT 12TO A$,(+#)
   : ERRORIF ERR<>71THEN 8990
   : GOTO 620
0615 GOTO 8990
0620 CONVERT 1E99TO A$,(.#^^^^)
   : ERRORIF ERR<>71THEN 8990
   : GOTO 640
0625 GOTO 8990
0640 READ N
   : FOR I=1TO N
   : READ A$,X
   : CONVERT A$TO Y
   : IF X<>YTHEN 8990
   : NEXT I
0650 DATA 14
0660 DATA "0",0,"1",1,"1234567890123",1234567890123,"02",2,"000000000000000000
     0000000000000000000000123",123
0670 DATA ".1",.1,".0000000000009",.0000000000009,"-123.456",-123.456,"+045",4
     5,".0",0,"-0",0,"0.",0,"1.234567890123E45",1.234567890123E45,"-8E-78",-8E
     -78
0680 A$="0123456789"
   : FOR I=1TO 10
   : CONVERT STR(A$,I,1)TO X(I)
   : NEXT I
   : FOR I=1TO 10
   : IF X(I)<>I-1THEN 8990
   : NEXT I
0690 A$="X"
   : CONVERT A$TO X
   : ERRORIF ERR<>75THEN 8990
   : GOTO 8980
0695 GOTO 8990
8980 I=SPACE
   : IF I=STHEN 9000
8990 E(27)=E(27)+1
9000 PRINT AT(12,48,16);
   : IF E(27)=0THEN PRINT "OK";
   : ELSE PRINT E(27);"ERRORS"
9010 LOAD DC T"BDIAG28 "