Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DB3MOUSE.ZIP
Filename : DB3.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 "º Order Entry Order History Banking Phone #'s Clear screen º"
text "º Accounting Inventory reserved Index phone Keith finance º"
text "º DOS Petty Cash reserved Db3 prompt reserved º"
text "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
select 2,3,11,ordent
select 3,3,11,acct
select 4,3,11,exec3
select 2,18,13,exec4
select 3,18,13,exec5
select 4,18,13,exec6
select 2,33,11,exec7
select 3,33,11,exec8
select 4,33,11,exec9
select 2,48,13,exec10
select 3,48,13,exec11
select 4,48,13,exec12
select 2,63,13,exec13
select 3,63,13,exec14
select 4,63,13,exec15
pend

acct: popup 2,1
text " Accounting Reports "
text " "
text " Accounting ledger "
text " Cash income report "
text " Payables "
text " Receivables "
text " Sales report "
text " Sales balance "
text " MGP report "
select 3,4,18,exec16
select 4,4,18,exec17
select 5,4,18,exec18
select 6,4,18,exec19
select 7,4,18,exec20
select 8,4,18,exec1
select 9,4,18,exec2
pend


ordent: popup 2,1
text "ÉÍÍÍÍÍÍ Order Entry ÍÍÍÍÍÍ»"
text "º Add order Edit order º"
text "º Invoice Ind label º"
text "º Ship copy Ship label º"
text "º Label 4 type Add sls lead º"
text "º Sales leads Sales label º"
text "º Reserved Reserved º"
text "º Phone #'s DB3 prompt º"
text "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
select 2,3,13,exec21
select 3,3,13,exec22
select 4,3,13,exec23
select 5,3,13,exec24
select 6,3,13,exec25
select 7,3,13,exec26
select 8,3,13,exec27
select 2,20,12,exec28
select 3,20,12,exec29
select 4,20,12,exec30
select 5,20,12,exec31
select 6,20,12,exec32
select 7,20,12,exec33
select 8,20,12,can
pend



keya: type "do ordent"
keyb: type "do acctent"
keyc: type "quit"
keyd: type "do histnow"
keye: type "do invctrl"
keyf: type "do pcent"
keyg: type "do ckent"
keyh: type " "
keyi: type " "
keyj: type "do getphon"
keyk: type "do phonndx"
keyl: type "clea"
keym: type " "
keyn: type "do ca-main"
keyo: type " "
keyp: type " "
keyq: type " "
keyr: type " "
keys: type " "
keyt: type " "
keyu: type "do addord"
keyv: type "do editord"
keyw: type "do invoice.rpt"
keyx: type "do ordlab.rpt"
keyy: type "do shpcpy.rpt"
keyz: type "do shplab"
keyaa: type "do typelab"
keyab: type "do addsls"
keyac: type "do slslead"
keyad: type "do slslab"
keyae: type "do ph-main"
keyaf: type "do rprt"
keyag: type "do cshinrpt"
keyah: type "do payrprt"
keyai: type "do rcvrprt"
keyaj: type "do slsrprt"
keyak: type "do qksls"
keyal: type "do mgprpt"

can: type "canc"
cls: type "clear"
keyesc: type 27
escape: type 27
ret: type 13
slash: type "/"
left: type 0,75
right: type 0,77
up: type 0,72
down: type 0,80

exec1: execute keyak,ret
exec2: execute keyal,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
exec13: execute cls,ret
exec14: execute keyn,ret
exec15: execute keyo,ret
exec16: execute keyaf,ret
exec17: execute keyag,ret
exec18: execute keyah,ret
exec19: execute keyai,ret
exec20: execute keyaj,ret
exec21: execute keyu,ret
exec22: execute keyw,ret
exec23: execute keyy,ret
exec24: execute keyaa,ret
exec25: execute keyac,ret
exec26: execute
exec27: execute keyae,ret
exec28: execute keyv,ret
exec29: execute keyx,ret
exec30: execute keyz,ret
exec31: execute keyab,ret
exec32: execute keyad,ret
exec33: execute









nothing: nothing