home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d7xx / d770 / uedit.lha / Uedit / RogerHand.LZH / Template.F10 < prev    next >
Text File  |  1991-03-28  |  2KB  |  58 lines
  1. <normal-f10:
  2.  
  3. ..BOOKMARKS   (Roger Hand)
  4.  
  5.     ..If tilda key has been pressed ONCE, we're in GOTO bookmark mode    
  6.  
  7.     if(eqNum(n75,5))
  8.  
  9.       {
  10.        equateLoc(curfile,locA,atCursor)   .. save in case we go back (^1)
  11.        moveCursor(curfile,efile ) .. * = C for F2, etc.  See below
  12.         equateNum(n75,19)       ..x = 0 for F1, 1 for F2, etc.
  13.         return
  14.       }
  15.  
  16.     ..If we just pressed GOTO F-key and haven't moved cursor, we're still
  17.     .. in GOTO mode
  18.    
  19.     if((!eqNum(n75,20))&(!eqNum(n75,0)))  ..If not, jump down to SET
  20.    {if((eqNum(n75,10)) & (eqLoc(curfile,atcursor,sfile))) equateNum(n75,77)
  21.     if((eqNum(n75,11)) & (eqLoc(curfile,atcursor,locC))) equateNum(n75,77)
  22.     if((eqNum(n75,12)) & (eqLoc(curfile,atcursor,locD))) equateNum(n75,77)
  23.     if((eqNum(n75,13)) & (eqLoc(curfile,atcursor,locE))) equateNum(n75,77)
  24.     if((eqNum(n75,14)) & (eqLoc(curfile,atcursor,locF))) equateNum(n75,77)
  25.     if((eqNum(n75,15)) & (eqLoc(curfile,atcursor,locG))) equateNum(n75,77)
  26.     if((eqNum(n75,16)) & (eqLoc(curfile,atcursor,locH))) equateNum(n75,77)
  27.     if((eqNum(n75,17)) & (eqLoc(curfile,atcursor,locI))) equateNum(n75,77)
  28.     if((eqNum(n75,18)) & (eqLoc(curfile,atcursor,locJ))) equateNum(n75,77)
  29.     if((eqNum(n75,19)) & (eqLoc(curfile,atcursor,efile))) equateNum(n75,77)
  30.        
  31.          if(eqNum(n75,77))     ..If we're still in GOTO mode . . .
  32.        {
  33.         equateLoc(curfile,locA,atCursor)   .. save in case we go back (^1)
  34.         moveCursor(curfile,efile )  ..loc* = locC for F2, locD for F3, . . 
  35.                                     .. . . locJ for F9 . . 
  36.                                     .. . . sfile for F1, efile for F10
  37.  
  38.         equateNum(n75,19)        ..x = 0 for F1, 1 for F2, etc.
  39.         return
  40.        }
  41. ..If NOT still in GOTO mode . . .      
  42. ..If F-key more than once, with cursor movement in between, cancel
  43. .. goto mode
  44.  
  45.     equateNum(n75,0) putMsg("Function Keys back to Normal!")
  46. } 
  47.  
  48. ..If tilda key has been pressed TWICE, we're in SET bookmark mode
  49.  
  50.     if(eqNum(n75,20))
  51.  
  52.         {beepDisplay
  53.          putMsg("F10 is always set to End of File!")   
  54.  
  55.         return
  56.        }
  57.  
  58.