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"