Listing of file='WCPD270A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 763, program filename = 'WCPD270A'
0010 REM . WCPD270A, 00-00 (6/28/75), 12002
0100 DIM A$20,B$20
: PRINT " TESTING CONVERT .....................";
: FOR J=1TO 11
: FOR I=1TO 4
: READ X,Y,A$
: ON JGOSUB 300,320,340,360,380,400,420,440,460,480,500
: CONVERT B$TO Z
: IF A$<>B$THEN 630
: IF Y<>ZTHEN 630
: NEXT I
: NEXT J
0210 CONVERT 11*11+2TO A$,(#############)
: IF A$<>"0000000000123"THEN 630
: CONVERT 123TO STR(A$,4,3),(###)
: IF STR(A$,1,8)<>"00012300"THEN 630
: CONVERT STR(A$,5,4)TO X
: IF X<>2300THEN 630
: IF E(8)<>0THEN 650
: PRINT "OK"
: GOTO 660
0300 CONVERT XTO B$,(-##.###########^^^^)
: RETURN
0320 CONVERT XTO B$,(##^^^^)
: RETURN
0340 CONVERT XTO B$,(-#.^^^^)
: RETURN
0360 CONVERT XTO B$,(+.#^^^^)
: RETURN
0380 CONVERT XTO B$,(#############)
: RETURN
0400 CONVERT XTO B$,(-###)
: RETURN
0420 CONVERT XTO B$,(##.)
: RETURN
0440 CONVERT XTO B$,(+##)
: RETURN
0460 CONVERT XTO B$,(#.##)
: RETURN
0480 CONVERT XTO B$,(#)
: RETURN
0500 CONVERT XTO B$,(.#)
: RETURN
0520 DATA 0,0," 00.00000000000E+00",123,123," 12.30000000000E+01",-.1,-.1,"-10
.00000000000E-02",-1234567890123,-1234567890123,"-12.34567890123E+11"
0530 DATA 0,0,"00E+00",123,120,"12E+01",-.1,.1,"10E-02",-12.3,12,"12E+00"
: DATA 0,0," 0.E+00",123,100," 1.E+02",-.1,-.1,"-1.E-01",.01,.01," 1.E-02"
0550 DATA 0,0,"+.0E+00",123,100,"+.1E+03",-.1,-.1,"-.1E+00",.01,.01,"+.1E-01"
0560 DATA 0,0,"0000000000000",123,123,"0000000000123",-.1,0,"0000000000000",-1
234567890123,1234567890123,"1234567890123"
: DATA 0,0," 000",-12.3,-12,"-012",123,123," 123",-.1,0,"-000"
0580 DATA 0,0,"00.",1,1,"01.",-12.3,12,"12.",-.1,0,"00."
: 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"
0610 DATA 0,0,"0",1,1,"1",-1.2,1,"1",.1,0,"0"
: DATA 0,0,".0",.1,.1,".1",-.01,0,".0",-.123,.1,".1"
0630 E(8)=E(8)+1
: E9$(P9)="NG"
0650 PRINT TAB(40);E(8);"ERRORS"
0660 LOAD DC T#6,"WCPD280A"
0670 DEFFN'15
: COM CLEAR
: LOAD DC T#6,"START"