10  COM N$[72],F$[72],I,Q,P,C5,W,Q1,N,A,F,T5
20  GOTO 60
30  CHAIN "$BLINK5"
40  REM PROGRAM NAME = BLINKM, GENERATES PROBLEMS
50  REM CHAINED TO BLINKY,BLINKD,BLINKP,BLINK2,BLINK3,BLINK5,BLINK6
60  LET N=A=F=0
70  REM THIS PROGRAM GENERATES PROBLEMS
80  REM CHAINED TO BLINK5
90  LET F=INT(6*RND(1)+1)
100  LET A=INT(5*RND(1)+2)
110  LET N=INT(50*RND(1)+1)
120  GOTO Q OF 130,160,210
130  LET A=INT(4*RND(1)+6)
140  LET Q1=1
150  GOTO 30
160  IF N>40 THEN 190
170  IF N<10 THEN 190
180  GOTO 110
190  LET Q1=2
200  GOTO 30
210  IF N<6 THEN 240
220  IF N>44 THEN 240
230  GOTO 110
240  LET Q1=3
250  GOTO 30
260  END 
