10  REM ***  HP TIME-SHARED BASIC PROGRAM LIBRARY  *********************
11  REM
12  REM         TENS:  DRILL IN MULTIPLICATION OF NUMBERS WITH TRAILING 
13  REM                ZEROS
14  REM         36128 (A801) REV A -- 7/71
15  REM
16  REM ***  CONTRIBUTED PROGRAM  **************************************
17  REM
100  Z=8
110  REM DRILL IN MULTIPLICATION OF NUMBERS OF SPECIAL FORM
120  REM AUTHOR:  TIM AARONSON      DATE:  APRIL, 1971
130  C=-1
140  R=0
150  FOR I=1 TO 25
160  X=INT(9*RND(1)+1)
170  Y=INT(9*RND(1)+1)
180  M=INT(4*RND(1))
190  N=INT(4*RND(1))
200  A=X*10^M
210  B=Y*10^N
220  PRINT "  ";A"X  "B"=  ";
230  ENTER Z,U,C
240  IF C=A*B THEN 270
250  PRINT "X"
260  GOTO 290
270  PRINT "C"
280  R=R+1
290  NEXT I
300  PRINT 
310  W=25-R
320  PRINT "YOU GOT  "R"RIGHT AND  "W"WRONG"
330  END 
