Listing of file='WCPD240A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 208, program filename = 'WCPD240A' 0010 REM . WCPD240A, 00-00 (6/28/75), 12002 0100 DIM A$20 : PRINT " TESTING NUM ........................."; : FOR I=1TO 13 : STR(A$,I)="0A" : IF NUM(A$)<>ITHEN 390 : NEXT I : FOR I=1TO 30 : READ X,A$ : IF NUM(A$)<>XTHEN 390 : NEXT I : DATA 1,"0+",3,"000-",9," 0 00123 E" : DATA 0,"A!",5," . 0 E+",20," 1" 0220 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" 0260 DATA 15,"+123.4567890123E",3,"+.0.",4,"+12.A" : DATA 3,"123+",0,"E1",3,"1E1." : DATA 17,"1234567890123E+01-",5,"9E-99." : DATA 5,".1E+9E",5,"1.E-9.1" : DATA 17,"+123.4567890123E1A" 0310 DATA 13,"12345678901234",6,"1.2E123" : A$="1234567890A" : IF 1*(NUM(STR(A$,1,10)))<>10THEN 390 : IF NUM(STR(A$,5,1))<>1THEN 390 : IF NUM(STR(A$,12,3))<>0THEN 390 : IF E(5)<>0THEN 410 : PRINT "OK" : GOTO 420 0390 E(5)=E(5)+1 : E9$(P9)="NG" 0410 PRINT TAB(40);E(5);"ERRORS" 0420 LOAD DC T#6,"WCPD250A" 0430 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START"