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