home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 2: PC / frozenfish_august_1995.bin / bbs / d07xx / d0770.lha / Uedit / RogerHand.LZH / Template.F2 < prev    next >
Text File  |  1991-03-28  |  2KB  |  59 lines
  1. <normal-f2:
  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,locC ) .. * = C for F2, etc.  See below
  12.         equateNum(n75,11)       ..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,locC )  ..loc* = locC for F2, locD for F3, . . 
  34.                                     .. . . locJ for F9 . . 
  35.                                     .. . . sfile for F1, efile for F10
  36.  
  37.         equateNum(n75,11)        ..x = 0 for F1, 1 for F2, etc.
  38.         return
  39.        }
  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.  
  49. ..If tilda key has been pressed TWICE, we're in SET bookmark mode
  50.  
  51.     if(eqNum(n75,20))
  52.  
  53.        {equateLoc(curfile,LocC,atCursor)
  54.         equateNum(n75,0)
  55. putMsg("Function Keys back to Normal!")
  56.  
  57.         return
  58.        }
  59.