Listing of file='WCPD240A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 653, program filename = 'WCPD240A' 0010 REM . WCPD240A, 00-00 (06/28/75), 12002 : DIM A$20 : PRINT " TESTING NUM ........................."; : FOR I=1TO 13 : STR(A$,I)="0A" : IF NUM(A$)<>ITHEN 360 : NEXT I : FOR I=1TO 30 : READ X,A$ : IF NUM(A$)<>XTHEN 360 : NEXT I 0190 DATA 1,"0+",3,"000-",9," 0 00123 E" : DATA 0,"A!",5," . 0 E+",20," 1" 0210 DATA 7,".000123.",14,".0000000000001+" : DATA 0,"..0",2,"0..",14,"123456.7890123." : DATA 6,"12345.+",6,"00.000-",2,"+0-" : DATA 5,"-1235A",2,"+1+",0,"+-123" 0250 DATA 15,"+123.4567890123E",3,"+.0.",4,"+12.A" : DATA 3,"123+",0,"E1",3,"1E1." 0270 DATA 17,"1234567890123E+01-",5,"9E-99." : DATA 5,".1E+9E",5,"1.E-9.1" : DATA 17,"+123.4567890123E1A" : DATA 13,"12345678901234",6,"1.2E123" : A$="1234567890A" : IF 1*(NUM(STR(A$,1,10)))<>10THEN 360 0330 IF NUM(STR(A$,5,1))<>1THEN 360 : IF NUM(STR(A$,12,3))<>0THEN 360 : PRINT "OK" : GOTO 380 0360 E(1)=E(1)+1 0370 PRINT TAB(40);E(1);"ERRORS" 0380 LOAD DC T"WCPD250A" 0390 DEFFN'15 : LOAD DC T"START"50