home *** CD-ROM | disk | FTP | other *** search
/ PSION CD 2 / PsionCDVol2.iso / Programs / 377 / BACKLITE.SIS / macLink.opl (.txt) < prev    next >
Encoding:
EPOC OPL Source  |  1998-10-28  |  897 b   |  41 lines
  1.  
  2.  
  3. rem // Backlite+Plus macro - macLink  J.Kneen 31/1/98
  4.  
  5. PROC macLinkON:
  6.     BLbgSwitchtoSystem:
  7.     BLKeyCommand:("CTRL+L")
  8.     BLTypeText:("C")
  9.     BLClickOK:
  10.         IF BLIsCurrentAPP%:("Backlite+")<>1
  11.             BLHideBacklite:
  12.             BLBacklitetoFront:
  13.             GIPRINT "Remote Link ON"
  14.             PAUSE 10
  15.             BLBacklitetoBack:
  16.             BLUnHideBacklite:
  17.         ELSE
  18.             GIPRINT "Remote Link ON"
  19.         ENDIF            
  20. ENDP
  21.  
  22. PROC macLinkOFF:
  23.     BLBgSwitchtoSystem:
  24.     BLKeyCommand:("CTRL+L")
  25.     BLTypeText:("O")
  26.     BLClickOK:
  27.         IF BLIsCurrentAPP%:("Backlite+")<>1
  28.             BLHideBacklite:
  29.             BLBacklitetoFront:
  30.             GIPRINT "Remote Link OFF"
  31.             PAUSE 10
  32.             BLBacklitetoBack:
  33.             BLUnHideBacklite:
  34.         ELSE
  35.             GIPRINT "Remote Link OFF"
  36.         ENDIF            
  37.  
  38. ENDP
  39.  
  40.  
  41.