image of READY prompt

Wang2200.org

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"