Listing of file='WCPD270A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 186, program filename = 'WCPD270A'
0010 REM . WCPD270A, 00-00 (06/28/75), 12002
: DIM A$20,B$20
: PRINT " TESTING CONVERT .....................";
: FOR J=1TO 11
: FOR I=1TO 4
: READ X,Y,A$
0130 ON JGOSUB 230,240,250,260,270,280,290,300,310,320,330
: CONVERT B$TO Z
: IF A$<>B$THEN 450
: IF Y<>ZTHEN 450
: NEXT I
: NEXT J
: CONVERT 11*11+2TO A$,(#############)
0180 IF A$<>"0000000000123"THEN 450
: CONVERT 123TO STR(A$,4,3),(###)
: IF STR(A$,1,8)<>"00012300"THEN 450
: CONVERT STR(A$,5,4)TO X
: IF X<>2300THEN 450
: PRINT "OK"
: GOTO 470
0230 CONVERT XTO B$,(-##.###########^^^^)
: RETURN
0240 CONVERT XTO B$,(##^^^^)
: RETURN
0250 CONVERT XTO B$,(-#.^^^^)
: RETURN
0260 CONVERT XTO B$,(+.#^^^^)
: RETURN
0270 CONVERT XTO B$,(#############)
: RETURN
0280 CONVERT XTO B$,(-###)
: RETURN
0290 CONVERT XTO B$,(##.)
: RETURN
0300 CONVERT XTO B$,(+##)
: RETURN
0310 CONVERT XTO B$,(#.##)
: RETURN
0320 CONVERT XTO B$,(#)
: RETURN
0330 CONVERT XTO B$,(.#)
: RETURN
0340 DATA 0,0," 00.00000000000E+00",123,123," 12.30000000000E+01",-.1,-.1,"-10
.00000000000E-02",-1234567890123,-1234567890123,"-12.34567890123E+11"
0350 DATA 0,0,"00E+00",123,120,"12E+01",-.1,.1,"10E-02",-12.3,12,"12E+00"
0360 DATA 0,0," 0.E+00",123,100," 1.E+02",-.1,-.1,"-1.E-01",.01,.01," 1.E-02"
: DATA 0,0,"+.0E+00",123,100,"+.1E+03",-.1,-.1,"-.1E+00",.01,.01,"+.1E-01"
0380 DATA 0,0,"0000000000000",123,123,"0000000000123",-.1,0,"0000000000000",-1
234567890123,1234567890123,"1234567890123"
0390 DATA 0,0," 000",-12.3,-12,"-012",123,123," 123",-.1,0,"-000"
: DATA 0,0,"00.",1,1,"01.",-12.3,12,"12.",-.1,0,"00."
0410 DATA 0,0,"+00",1,1,"+01",-12.3,-12,"-12",-.1,0,"-00"
: DATA 0,0,"0.00",-1.2,1.2,"1.20",.123,.12,"0.12",-.001,0,"0.00"
: DATA 0,0,"0",1,1,"1",-1.2,1,"1",.1,0,"0"
0440 DATA 0,0,".0",.1,.1,".1",-.01,0,".0",-.123,.1,".1"
0450 E(1)=E(1)+1
0460 PRINT TAB(40);E(1);"ERRORS"
0470 LOAD DC T"WCPD280A"
0452 DEFFN'15
: COM CLEAR
: LOAD DC T"START"