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"