Category : Utilities for DOS and Windows Machines
Archive   : LOGIM.ZIP
Filename : MOD.DEF

;-----------------------------------------------------------------------;
; ;
; LOGIMENU File definition for Logitech Modula-2 Editor ;
; Copyright (C) 1987 LOGITECH, Inc. ;
; ;
;-----------------------------------------------------------------------;
begin leftb, middleb, rightb, mousel, mouser, mouseu, moused, 5, 10
;
;NOTE: with 2-button mouse, "middleb" means both buttons,
; and CHORDS are disabled
;
leftb: type 0,67 ; [F9]
middleb:type 27 ; ESC
rightb: type 13 ; CARRIAGE RETURN

chords lmb,lrb,mrb,allb

lmb: execute lrb
mrb: execute lrb
allb: type 0,66 ;F8

lrb: menu "MOD EDITOR COMMANDS",4,10
option "YES ", yes
option "NO ", no
option "DELETE LINE ", delline
option "GOTO LINE ", goto
option "PROCEDURE ", proc
option "IMPLEMENTATION MODULE ", impl
option "DEFINITION MODULE ", def
option "MODULE ", module
option "HELP ", help
option "CANCEL "
mend

yes: type "y"
no: type "n"
help: type 0, 59 ; F1
goto: type 0, 107 ; F4
delline:type 0, 117

proc: execute proc1, proc2, proc3
proc1: type "PROCEDURE ",30,"END ;",0,72
proc2: type 5,30,"BEGIN (* *)",30,0,72,0,72,0,72
proc3: type 1,17,0,117,"",30,0,117

impl: execute impl1, impl2, impl3
impl1: type "IMPLEMENTATION MODULE ",30,"END .",0,72
impl2: type 5,30,"BEGIN (* *)",30,0,72,0,72,0,72
impl3: type 1,17,0,117,"",30,0,117

def: execute def1, def2
def1: type "DEFINITION MODULE ",30,"END .",0,72
def2: type 1,17,0,117,"",30,0,117

module: execute module1, module2, module3
module1:type "MODULE ",30,"END .",0,72
module2:type 5,30,"BEGIN (* *)",30,0,72,0,72,0,72
module3:type 1,17,0,117,"",30,0,117


mousel: type 0, 75
mouser: type 0, 77
mouseu: type 0, 72
moused: type 0, 80

; end of definition file