190  Q=RND(Y)
220  C=0
230  PRINT "1 2 3 4 5 6 7 8 9 10"
240  PRINT "X X X X X X X X X X"
260  DIM A$[20]
270  FOR X=1 TO 10
280  A$[X]="X"
290  NEXT X
300  GOTO 320
310  PRINT "TRY AGEN"
320  PRINT "NUMBER";
330  INPUT N
340  IF N <> INT(N) THEN 310
350  IF N=11 THEN 220
360  IF N>11 THEN 310
365  IF N<0 THEN 310
370  IF N=0 THEN 230
380  IF M=N THEN 510
390  M=N
400  IF A$[N]="0" THEN 480
410  A$[N]="0"
420  R=TAN(Q+N/Q-N)-SIN(Q/N)+336*SIN(.8*N)
430  N=R-INT(R)
440  N=INT(2*5*N)
450  IF A$[N]="0" THEN 480
460  A$[N]="0"
470  GOTO 610
480  A$[N]="X"
490  IF M=N THEN 420
500  GOTO 610
510  IF A$[N]="0" THEN 590
520  A$[N]="0"
9999  END 
