   10MODE7:FOR DBL=1TO2:VDU141:PRINT"PROG MATHBUSTER, D.MCDONALD, 30 MAY 88":NEXT DBL
   20DIM R(20,5)
   30INPUT'''"ENTER RANDOM NO. APPROX 6 DIGITS, E.G.  30051988",R1
   40R=LOG R1:R=(R-INT R)*2E9:X=RND(-R)
   50INPUT''"SUMS  A.B=C  ENTER MAXIMUM NUMBER 6-100",M
   60IF M<6ORM>100THEN 50
   70FOR K=1TO20
   80PROCADD(M):PRINT"MORE PRESS SPACE / QUIT PRESS A-Z":IF GET$<>" "THEN 100
   90NEXT K
  100PRINT"E N D.":END
  110DEF PROCADD(M)
  120N=0:NOW=TIME
  130FOR J=1TO10
  140A=RND(M):B=RND(M):C=A*B
  150FOR I=1TO2
  160PRINT':FOR DBL=1TO2:VDU141:PRINT A;" * ? = "C"  ENTER":NEXT DBL:INPUT R
  170IF R=B THEN PRINT"CORRECT":N=N+1:GOTO 220
  180PRINT"WRONG":VDU7
  190IF I=1THEN PRINT"TRY AGAIN"
  200NEXT I
  210PRINT"ANSWER = ";B
  220NEXT J:VDU7
  230R(K,1)=N:R(K,2)=INT((TIME-NOW)/100):PRINT'"CORRECT | SECONDS"
  240FOR L=1TOK:PRINT;R(L,1),TAB(10);R(L,2):NEXT L
  250ENDPROC