*** ! Lemurs and Nutters ! ***

How will the numbers stack up ?

Hit enter twice  ..

Thinking..

Your numbers are

25  25 2 1 7 4
Your target is ...  307

Ten seconds left !!

The formula is .. 1 * 7 + 2 *  25 / 4 *  25


OK

     PROGRAM lemursandnutters

     INTEGER*4 a, d, e, f, i, j, k
     INTEGER*4 m
     DOUBLE b, c

     CHARACTER*9 small
     CHARACTER*15 large

     CHARACTER*2 smlout
     CHARACTER*4 lgout
     CHARACTER*30 tank
     INTEGER*4 posn(6)
     INTEGER*4 proc(6)
     INTEGER*4 length(6)
     CHARACTER*8 symb  
     CHARACTER*50 eqn
     CHARACTER*1 run

     INTEGER*4 go, milsec, span  

     small = '123456789'
     large = ' 25 50 75100'

     symb = '+-*/    '

     go = MILLI (1)

     PRINT "*** ! Lemurs and Nutters ! ***"
     PRINT
     PRINT "How will the numbers stack up ?"
     PRINT
     PRINT "Hit enter twice  .."


     a = 2147483647
     j = 1


     READ run

     milsec =  MILLI (1)
     span = milsec - go

     PRINT "Thinking.."

     DO j = 1, span
       a = RAND 4
     END DO

     span = 0
     j = 1

     PRINT
     PRINT "Your numbers are "
     PRINT

C  Two large numbers

     FORMAT (2A4)
     DO i = 1, 2  
      lgout(1:4) = symb(5:8)
      d = 1 + 3 * ( RAND 4 )
      e = d + 2
      k = j + 3
      tank(j:k) = large(d:e)
      lgout(1:3) = large(d:e)
      posn(i) = j
      length(i) = 3
      j = j + 3
      WRITE (6,0) lgout
     END DO

C Four small

     FORMAT (4A2,/)
     DO i = 3, 6
      smlout(1:2) = symb(5:6)
      d =  1 + RAND 9  
      tank(j:j) = small(d:d)
      smlout(1:1) = small(d:d)  
      posn(i) = j
      length(i) = 1
      j = j + 1
      WRITE (6,0) smlout
     END DO

C cache in random order

     j = 1

     DO i = 1, 6
      d = 1 + RAND 6
      m = proc(d)
      WHILE ( m = 1 ) THEN
       d = 1 + RAND 6  
       m = proc(d)
      END WHILE

      proc(d) = 1

      IF ( i > 1 ) THEN    
       eqn(j:j) = symb(5:5)
       j = j + 1
      END IF

      k = j + length(d) - 1
      e = posn(d)
      f = e + length(d) - 1
      eqn(j:k) = tank(e:f)
      j = j + length(d)  

      eqn(j:j) = symb(5:5)
      j = j + 1

C add random operator symbol

      IF ( i < 6 ) THEN
       d =  1 + RAND 4
       eqn(j:j) = symb(d:d)
       j = j + 1
      END IF

     END DO

C Evaluate and print  

     EVAL eqn                                              
     PASTE k

     PRINT "Your target is ...  ", k

     go = MILLI (1)
     PRINT
     PRINT "Ten seconds left !!"

C Wait ( not long enough !! )

     WHILE (span < 10000) THEN
       milsec =  MILLI (1)
       span = milsec - go
     END WHILE

     PRINT
     PRINT "The formula is .. ", eqn
     PRINT


     END
\