Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : MOUSEDB3.ZIP
Filename : MOUSE.DEF

BEGIN lb,rb,bb,lm,rm,um,dm,32,16

;------------------------------BOTH BUTTONS----------------------------------

bb: EXECUTE ESCAPE

;------------------------------LEFT BUTTON-----------------------------------

lb: MATCH 1,76,normal,"HELP",RET,lb1 ;"READY"
lb1: MATCH 1,76,48,"HELP",RET,MAIN ;"READY"

;------------------------------RIGHT BUTTON----------------------------------

rb: MATCH 1,76,INVERSE,"READY",SLASH,rb1 ;"READY"
rb1: MATCH 1,76,48,"READY",SLASH,RET ;"READY"

;------------------------------LEFT MOTION-----------------------------------

lm: EXECUTE LEFT

;------------------------------RIGHT MOTION----------------------------------
rm: EXECUTE RIGHT

;------------------------------UP MOTION-------------------------------------

um: EXECUTE UP

;------------------------------DOWN MOTION-----------------------------------

dm: EXECUTE DOWN

;------------------------------MENUS-----------------------------------------


main: popup 2,1
text "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ < < < M A I N M E N U > > > ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
text "º Dbase Volkswriter Lotus 123 Paintbrush Send to Link1 º"
text "º MENU 1 MENU 2 MENU 3 MENU 4 MENU 5 º"
text "º MENU 6 MENU 7 MENU 8 MENU 9 MENU 10 º"
text "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
select 2,3,13,exec1
select 3,3,13,MENU1
select 4,3,13,MENU6
select 2,18,11,exec4
select 3,18,11,MENU2
select 4,18,11,MENU7
select 2,33,11,exec7
select 3,33,11,MENU3
select 4,33,11,MENU8
select 2,48,13,exec10
select 3,48,13,MENU4
select 4,48,13,MENU9
select 2,63,13,exec13
select 3,63,13,MENU5
select 4,63,13,MENU10
pend


; --- Key Commands ---
keya: type "3db"
keyb: type "util"
keyc: type "4"
keyd: type "xv"
keye: type "do invctrl"
keyf: type "rx"
keyg: type "321"
keyh: type "xv"
keyi: type "rx2"
keyj: type "pb"
keyk: type "boss"
keyl: type "cd\"
keym: type "cord"
keyn: type " "
keyo: type "quit"
keyesc: type 27 ;Escape
escape: type 27
cls: type "cls"
ret: type 13
slash: type "/"
left: type 0,75
right: type 0,77
up: type 0,72
down: type 0,80
exec1: execute keya,ret
exec2: execute keyb,ret
exec3: execute keyc,ret
exec4: execute keyd,ret
exec5: execute keye,ret
exec6: execute keyf,ret
exec7: execute keyg,ret
exec8: execute keyh,ret
exec9: execute keyi,ret
exec10: execute keyj,ret
exec11: execute keyk,ret
exec12: execute keyl,ret,cls,ret
exec13: execute keym,ret
exec14: execute cls,ret
exec15: execute keyo,ret

menu1: popup 2,1
text "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ < < < YOUR SUBDIRECTORY > > > ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
text "º reserved reserved reserved reserved reserved º"
text "º reserved reserved reserved reserved reserved º"
text "º reserved reserved reserved reserved reserved º"
text "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
select 2,3,15,exec16
select 3,3,15,exec17
select 4,3,15,exec18
select 2,18,15,exec19
select 3,18,15,exec20
select 4,18,15,exec21
select 2,33,15,exec22
select 3,33,15,exec23
select 4,33,15,exec24
select 2,48,15,exec25
select 3,48,15,exec26
select 4,48,15,exec27
select 2,63,14,exec28
select 3,63,14,exec29
select 4,63,14,exec30
pend

EXEC16: execute
exec17: execute
exec18: execute
exec19: execute
exec20: execute
exec21: execute
exec22: execute
exec23: execute
exec24: execute
exec25: execute
exec26: execute
exec27: execute
exec28: execute
exec29: execute
exec30: execute

menu2: popup 2,1
text "ÉÍÍÍÍÍ SUB DIRECTORY ÍÍÍÍ»"
text "º º"
text "º reserved º"
text "º reserved º"
text "º reserved º"
text "º reserved º"
text "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
select 2,3,23
select 3,3,23,exec31
select 4,3,23,exec32
select 5,3,23,exec33
select 6,3,23,exec34
pend

exec31: execute
exec32: execute
exec33: execute
exec34: execute

menu3: popup 2,1
text "ÉÍÍÍÍÍÍ SUB DIRECTORY ÍÍÍÍÍÍ»"
text "º reserved reserved º"
text "º reserved reserved º"
text "º reserved reserved º"
text "º reserved reserved º"
text "º reserved reserved º"
text "º reserved reserved º"
text "º reserved reserved º"
text "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
select 2,3,17,exec35
select 3,3,17,exec36
select 4,3,17,exec37
select 5,3,17,exec38
select 6,3,17,exec39
select 7,3,17,exec40
select 8,3,17,exec41
select 2,20,12,exec42
select 3,20,12,exec43
select 4,20,12,exec44
select 5,20,12,exec45
select 6,20,12,exec46
select 7,20,12,exec47
select 8,20,12,exec48
pend

exec35: execute
exec36: execute
exec37: execute
exec38: execute
exec39: execute
exec40: execute
exec41: execute
exec42: execute
exec43: execute
exec44: execute
exec45: execute
exec46: execute
exec47: execute
exec48: execute

menu4: popup 2,1
text "ÉÍÍÍÍÍÍÍÍ SUB DIRECTORY ÍÍÍÍÍÍÍÍ»"
text "º reserved reserved º"
text "º reserved reserved º"
text "º reserved reserved º"
text "º reserved reserved º"
text "º reserved reserved º"
text "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
select 2,3,15,exec49
select 3,3,15,exec50
select 4,3,15,exec51
select 5,3,15,exec52
select 6,3,15,exec53
select 2,18,17,exec54
select 3,18,17,exec55
select 4,18,17,exec56
select 5,18,17,exec57
select 6,18,17,exec58
pend

exec49: execute
exec50: execute
exec51: execute
exec52: execute
exec53: execute
exec54: execute
exec55: execute
exec56: execute
exec57: execute
exec58: execute

menu5: popup 2,1
text "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍ SUB DIRECTORY ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
text "º reserved reserved reserved º"
text "º reserved reserved reserved º"
text "º reserved reserved reserved º"
text "º reserved reserved reserved º"
text "º reserved reserved reserved º"
text "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
select 2,3,15,exec59
select 3,3,15,exec60
select 4,3,15,exec61
select 5,3,15,exec62
select 6,3,15,exec63
select 2,18,15,exec64
select 3,18,15,exec65
select 4,18,15,exec66
select 5,18,15,exec67
select 6,18,15,exec68
select 2,33,15,exec69
select 3,33,15,exec70
select 4,33,15,exec71
select 5,33,15,exec72
select 6,33,15,exec73
pend

exec59: execute
exec60: execute
exec61: execute
exec62: execute
exec63: execute
exec64: execute
exec65: execute
exec66: execute
exec67: execute
exec68: execute
exec69: execute
exec70: execute
exec71: execute
exec72: execute
exec73: execute

menu6: popup 2,1
text "ÉÍÍÍÍÍÍÍÍÍÍ SUB DIRECTORY ÍÍÍÍÍÍÍÍÍÍÍÍ»"
text "º reserved reserved º"
text "º reserved reserved º"
text "º reserved reserved º"
text "º reserved reserved º"
text "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
select 2,3,19,exec74
select 3,3,19,exec75
select 4,3,19,exec76
select 5,3,19,exec77
select 2,22,22,exec78
select 3,22,22,exec79
select 4,22,22,exec80
select 5,22,22,exec81
pend

exec74: execute
exec75: execute
exec76: execute
exec77: execute
exec78: execute
exec79: execute
exec80: execute
exec81: execute

menu7: popup 2,1
text "ÉÍÍÍÍÍÍÍÍÍÍÍ SUB DIRECTORY ÍÍÍÍÍÍÍÍÍÍÍÍ»"
text "º reserved reserved º"
text "º reserved reserved º"
text "º reserved reserved º"
text "º reserved reserved º"
text "º reserved reserved º"
text "º reserved reserved º"
text "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
select 2,3,22,exec82
select 3,3,22,exec83
select 4,3,22,exec84
select 5,3,22,exec85
select 6,3,22,exec86
select 7,3,22,exec87
select 2,25,14,exec88
select 3,25,14,exec89
select 4,25,14,exec90
select 5,25,14,exec91
select 6,25,14,exec92
select 7,25,14,exec93
pend
exec82: execute
exec83: execute
exec84: execute
exec85: execute
exec86: execute
exec87: execute
exec88: execute
exec89: execute
exec90: execute
exec91: execute
exec92: execute
exec93: execute

menu8: popup 2,1
text "É SUB DIRECTORY »"
text "º reserved º"
text "º reserved º"
text "º reserved º"
text "º reserved º"
text "º reserved º"
text "º reserved º"
text "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
select 2,3,13,exec94
select 3,3,13,exec95
select 4,3,13,exec96
select 5,3,13,exec97
select 6,3,13,exec98
select 7,3,13,exec99
pend
exec94: execute
exec95: execute
exec96: execute
exec97: execute
exec98: execute
exec99: execute

menu9: popup 2,1
text "ÉÍÍÍÍÍÍÍÍÍÍÍÍ SUB DIRECTORY ÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
text "º reserved reserved º"
text "º reserved reserved º"
text "º reserved reserved º"
text "º reserved reserved º"
text "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
select 2,3,18,exec100
select 3,3,18,exec101
select 4,3,18,exec102
select 5,3,18,exec103
select 2,21,20,exec104
select 3,21,20,exec105
select 4,21,20,exec106
select 5,21,20,exec107
pend

exec100: execute
exec101: execute
exec102: execute
exec103: execute
exec104: execute
exec105: execute
exec106: execute
exec107: execute

menu10: popup 2,1
text "ÉÍÍÍÍÍÍÍ SUB DIRECTORY ÍÍÍÍÍÍÍ»"
text "º reserved reserved º"
text "º reserved reserved º"
text "º reserved reserved º"
text "º reserved reserved º"
text "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
select 2,3,15,exec108
select 3,3,15,exec109
select 4,3,15,exec110
select 5,3,15,exec111
select 2,18,15,exec112
select 3,18,15,exec113
select 4,18,15,exec114
select 5,18,15,exec115
pend
exec108: execute
exec109: execute
exec110: execute
exec111: execute
exec112: execute
exec113: execute
exec114: execute
exec115: execute



NOTHING: NOTHING

; The end