Begin	LeftB, MidB, RightB, LeftM, RightM, UpM, DownM, 35, 30

; NOTE: with 2-button mouse, "MidB" means both buttons,

LeftB:	type	enter	; Return key
RightB:	type	esc		; Escape key

LeftM:	type	0, 75	; Left Arrow
RightM:	type	0, 77	; Right Arrow
UpM:	type	0, 72	; Up Arrow
DownM:	type	0, 80	; Down Arrow

MidB:   menu    "P-SCREEN", 1, 60, bold
	option  "Function Keys", Fkeys
	option  "Cursor Keys  ", Curkeys
	option  "Boxes        ", Boxes
	option  "Text         ", Text
	option  "Rows         ", Rows
	option  "Lines        ", Lines
	option  "Blocks       ", Blocks
	option  "Color        ", Color
	option  "Quit         ", ALTQ
	mend
	

Fkeys:  menu    "Function Keys", 2, 60, bold
	option  "F1 - Help      ", F1
	option  "F2 - Save      ", F2
	option  "F3 - Save Part ", F3
	option  "F4 - Load      ", F4
	option  "F5 - Print     ", F5
	option  "F6 - New/Clear ", F6
	option  "F7 - BIG! font ", F7
	option  "F8 - Make Mono ", F8
	option  "F9 - Review    ", F9
	option  "F10 - Options  ", F10
	mend

Curkeys:   menu    "Cursor Keys", 2, 40, bold
	option  "Home - Beginning of Line    ", HOME
	option  "End - End of Line           ", END
	option  "PgUp - Top of Screen        ", PGUP
	option  "PgDn - Bottom of Screen     ", PGDN
	option  "Ins - Insert space at cursor" ,INS
	option  "Del - Delete at cursor      " ,DEL
	mend
	
Boxes:   menu    "Box Menu", 2, 60, bold
	option  "ALTB - Box      ", ALTB
	option  "ALTJ - Join     ", ALTJ
	option  "ALTW - WalkAbout", ALTW
	mend

Text:   menu     "Text Menu", 2, 60, bold
       option  "ALTT - Text       ", ALTT
       option  "ALTC - Center Text", ALTC
       mend

Rows:   menu     "Rows Menu", 2, 60, bold
       option  "ALTD - Delete Row", ALTD
       option  "ALTI - Insert Row", ALTI
       mend

Lines:  menu    "Lines Menu", 2, 60, bold
       option  "ALTH - Horizontal", ALTH
       option  "ALTV - Vertical  ", ALTV
       mend

Blocks:  menu     "Block Menu", 2, 60, bold
	option  "ALTC - Copy  ", ALTC
	option  "ALTM - Move  ", ALTM
	option  "ALTS - Shade ", ALTS
	option  "ALTE - Erase ", ALTE
	option  "ALTA - Center", ALTA
	option  "ALTP - Paint ", ALTP
	mend

Color:  menu     "Color Menu", 2, 55, bold
       option  "ALTN - Change Color", ALTN
       mend


	

lfbtn:  TYPE enter
midbtn: TYPE esc
lfmot:	TYPE 0,75
rtmot:	TYPE 0,77
upmot:	TYPE 0,72
dnmot:  TYPE 0,80

F1:     TYPE 0,59
F2:     TYPE 0,60
F3:     TYPE 0,61
F4:     TYPE 0,62
F5:     TYPE 0,63
F6:     TYPE 0,64
F7:     TYPE 0,65
F8:     TYPE 0,66
F9:     TYPE 0,67
F10:    TYPE 0,68

HOME:   TYPE 0,71
END:    TYPE 0,79
DEL:    TYPE 0,83
PGUP:   TYPE 0,73
PGDN:   TYPE 0,81
INS:    TYPE 0,82

ALTB:   TYPE 0,48
ALTJ:   TYPE 0,36
ALTW:   TYPE 0,17
ALTT:   TYPE 0,20
ALTC:   TYPE 0,46
ALTD:   TYPE 0,32
ALTI:   TYPE 0,23
ALTH:   TYPE 0,35
ALTV:   TYPE 0,47
ALTM:   TYPE 0,50
ALTS:   TYPE 0,31
ALTE:   TYPE 0,18
ALTA:   TYPE 0,30
ALTP:   TYPE 0,25
ALTN:   TYPE 0,49
ALTU:   TYPE 0,22
ALTF10: TYPE 0,113
ALTQ:   TYPE 0,16

