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 "