<normal-f4: 

..BOOKMARKS   (Roger Hand)

    ..If tilda key has been pressed ONCE, we're in GOTO bookmark mode    

    if(eqNum(n75,5))

      {
       equateLoc(curfile,locA,atCursor)   .. save in case we go back (^1)
       moveCursor(curfile,locE ) .. * = C for F2, etc.  See below
		equateNum(n75,13)   	..x = 0 for F1, 1 for F2, etc.
        return
      }

    ..If we just pressed GOTO F-key and haven't moved cursor, we're still
    .. in GOTO mode
  if((!eqNum(n75,20))&(!eqNum(n75,0)))  ..If not, jump down to SET
   {if((eqNum(n75,10)) & (eqLoc(curfile,atcursor,sfile))) equateNum(n75,77)
    if((eqNum(n75,11)) & (eqLoc(curfile,atcursor,locC))) equateNum(n75,77)
    if((eqNum(n75,12)) & (eqLoc(curfile,atcursor,locD))) equateNum(n75,77)
    if((eqNum(n75,13)) & (eqLoc(curfile,atcursor,locE))) equateNum(n75,77)
    if((eqNum(n75,14)) & (eqLoc(curfile,atcursor,locF))) equateNum(n75,77)
    if((eqNum(n75,15)) & (eqLoc(curfile,atcursor,locG))) equateNum(n75,77)
    if((eqNum(n75,16)) & (eqLoc(curfile,atcursor,locH))) equateNum(n75,77)
    if((eqNum(n75,17)) & (eqLoc(curfile,atcursor,locI))) equateNum(n75,77)
    if((eqNum(n75,18)) & (eqLoc(curfile,atcursor,locJ))) equateNum(n75,77)
    if((eqNum(n75,19)) & (eqLoc(curfile,atcursor,efile))) equateNum(n75,77)
       
         if(eqNum(n75,77))     ..If we're still in GOTO mode . . .
       {
        equateLoc(curfile,locA,atCursor)   .. save in case we go back (^1)
        moveCursor(curfile,locE )  ..loc* = locC for F2, locD for F3, . . 
									.. . . locJ for F9 . . 
									.. . . sfile for F1, efile for F10

		equateNum(n75,13)		..x = 0 for F1, 1 for F2, etc.
        return
       }

..If NOT still in GOTO mode . . .      
..If F-key more than once, with cursor movement in between, cancel
.. goto mode

    equateNum(n75,0) putMsg("Function Keys back to Normal!")
 
 }
    ..If tilda key has been pressed TWICE, we're in SET bookmark mode

    if(eqNum(n75,20))

       {equateLoc(curfile,LocE,atCursor)
        equateNum(n75,0)
putMsg("Function Keys back to Normal!")

        return
       }