image of READY prompt

Wang2200.org

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