5  IF  ERROR  THEN 693
10  DIM A$[10],B$[10],Z$[25]
20  ENTER #P
30  DEF FNA()=INT(INT(/100)*RND(P)+-100*INT(/100))
40  PRINT "PRACTICE WITH LARGE NUMBERS"
45  PRINT "ENTER A NEGATIVE VALUE TO STOP."
50  REM RANDY WONG 9/27/72  AT WILSON EDPRC  SF CA
51  IF TIM(1)>11 THEN 54
52  PRINT "GOOD MORNING, ";
53  GOTO 60
54  IF TIM(1)>15 THEN 57
55  PRINT "GOOD AFTERNOON, ";
56  GOTO 60
57  PRINT "GOOD EVENING, ";
60  PRINT "YOU CAN MAKE THE MACHINE GO FASTER OR SLOWER BY"
65  PRINT "VARYING THE TIME LIMIT."'10'10'10
70  PRINT "TIME LIMIT (1-20)";
80  INPUT E1
90  PRINT "LEVEL OF DIFFICULTY (1-4 OR 0 FOR HELP)";
100  INPUT E2
110  IF E2 <> 0 THEN 150
120  PRINT '10"SAMPLE PROBLEMS:"'10
130  PRINT "1. 3+2000  2. 600+3000  3. 7+250  4. 75+5000"'10
140  GOTO 90
150  RESTORE 810
160  FOR I=1 TO E2
170  IF TYP(0)=2 THEN 90
180  READ D1,D2,D3,D4,T2
190  NEXT I
200  PRINT "TYPE OF PROBLEM (ADD/SUB/MULT/DIV/COMB)";
210  INPUT Z$
220  A$="ASMDC"
230  RESTORE 860
240  FOR I=1 TO 5
250  READ D5
260  IF Z$[1,1]=A$[I,I] THEN 290
270  NEXT I
280  GOTO 200
290  PRINT '10'10
300  T=T1=R=W=0
310  T=T+1
320  Z=P1=P3=FNA(D1)*10^FNA(D2)
330  GOSUB 710
340  A$=Z$
350  Z=P2=FNA(D3)*10^FNA(D4)
360  GOSUB 710
370  B$=Z$
380  GOTO FNA(D5) OF 390,420,450,480
390  C$="+"
400  P3=P1+P2
410  GOTO 520
420  C$="-"
430  Z=P1=P1+P2
440  GOTO 500
450  C$="X"
460  P3=P1*P2
470  GOTO 520
480  C$="/"
490  Z=P1=P1*P2
500  GOSUB 710
510  A$=Z$
520  PRINT "   "A$" "C$" "B$" "'9"=";
530  E3=0
540  ENTER E1,E2,E3
545  IF E3<0 THEN 693
550  IF E2 <> -256 THEN 570
560  E2=E1 MAX 1
570  IF E3=P3 THEN 610
580  PRINT "X"
590  W=W+1
600  GOTO 630
610  PRINT "C"
620  R=R+1
630  T1=T1+E2
640  IF T1<T2 THEN 310
650  PRINT '10'10"YOU GOT  "R"CORRECT OUT OF  "T"PROBLEMS IN  "T2"SECONDS"
660  PRINT "DO YOU WANT MORE (YES/NO)";
670  INPUT A$
680  IF A$[1,1]="Y" THEN 70
690  PRINT '10'10"PEACE..........................................."'10'10'10'10'10'10'10'10'10
693  CHAIN R,"*HELP"
695  SYSTEM X,"BYE"
700  STOP 
710  Z$="0123456789"
720  Z4=1+INT(LOG(Z)/LOG(10)) MAX 1
730  Z2=0
740  FOR Z3=1 TO Z4
750  Z1=INT((Z-Z2)/10^(Z4-Z3))
760  Z2=Z2+Z1*10^(Z4-Z3)
770  Z$[10+Z3]=Z$[Z1+1,Z1+1]
780  NEXT Z3
790  Z$=Z$[11]
800  RETURN 
810  DATA 1001,0,1001,200.5,30
820  DATA 1001,100.5,1001,201,60
830  DATA 1001,0,10001,201,90
840  DATA 10001,0,10001,200.5,120
850  DATA "HLT"
860  DATA 1,2,3,4,401
870  END 
