home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / dbmouse.zip / DB3.DEF < prev    next >
Text File  |  1985-12-15  |  6KB  |  199 lines
  1. BEGIN lb,rb,bb,lm,rm,um,dm,32,16
  2.  
  3. ;------------------------------BOTH BUTTONS----------------------------------
  4.  
  5. bb:     EXECUTE ESCAPE
  6.  
  7. ;------------------------------LEFT BUTTON-----------------------------------
  8.  
  9. lb:     MATCH 1,76,normal,"HELP",RET,lb1      ;"READY"
  10. lb1:    MATCH 1,76,48,"HELP",RET,MAIN          ;"READY"
  11.  
  12. ;------------------------------RIGHT BUTTON----------------------------------
  13.  
  14. rb:     MATCH 1,76,INVERSE,"READY",SLASH,rb1      ;"READY"
  15. rb1:    MATCH 1,76,48,"READY",SLASH,RET           ;"READY"
  16.  
  17. ;------------------------------LEFT MOTION-----------------------------------
  18.  
  19. lm:     EXECUTE LEFT
  20.  
  21. ;------------------------------RIGHT MOTION----------------------------------
  22. rm:     EXECUTE RIGHT
  23.  
  24. ;------------------------------UP MOTION-------------------------------------
  25.  
  26. um:     EXECUTE UP
  27.  
  28. ;------------------------------DOWN MOTION-----------------------------------
  29.  
  30. dm:     EXECUTE DOWN
  31.  
  32. ;------------------------------MENUS-----------------------------------------
  33.  
  34.  
  35. main:   popup 2,1
  36.         text "╔══════════════════ < < <   M A I N        M E N U  > > > ══════════════════╗"
  37.         text "║ Order Entry    Order History  Banking        Phone #'s      Clear screen  ║"
  38.         text "║ Accounting     Inventory      reserved       Index phone    Keith finance ║"
  39.         text "║ DOS            Petty Cash     reserved       Db3 prompt     reserved      ║"
  40.         text "╚═══════════════════════════════════════════════════════════════════════════╝"
  41.         select 2,3,11,ordent
  42.         select 3,3,11,acct
  43.         select 4,3,11,exec3
  44.         select 2,18,13,exec4
  45.         select 3,18,13,exec5
  46.         select 4,18,13,exec6
  47.         select 2,33,11,exec7
  48.         select 3,33,11,exec8
  49.         select 4,33,11,exec9
  50.         select 2,48,13,exec10
  51.         select 3,48,13,exec11
  52.         select 4,48,13,exec12
  53.         select 2,63,13,exec13
  54.         select 3,63,13,exec14
  55.         select 4,63,13,exec15
  56.         pend
  57.  
  58. acct: popup 2,1
  59.         text "   Accounting Reports     "
  60.         text "                          "
  61.         text "   Accounting ledger      "
  62.         text "   Cash income report     "
  63.         text "   Payables               "
  64.         text "   Receivables            "
  65.         text "   Sales report           "
  66.         text "   Sales balance          "
  67.         text "   MGP report             "
  68.         select 3,4,18,exec16
  69.         select 4,4,18,exec17
  70.         select 5,4,18,exec18
  71.         select 6,4,18,exec19
  72.         select 7,4,18,exec20
  73.         select 8,4,18,exec1
  74.         select 9,4,18,exec2
  75.         pend
  76.  
  77.  
  78. ordent:   popup 2,1
  79.         text "╔══════    Order Entry    ══════╗"
  80.         text "║ Add order        Edit order   ║"
  81.         text "║ Invoice          Ind label    ║"
  82.         text "║ Ship copy        Ship label   ║"
  83.         text "║ Label 4 type     Add sls lead ║"
  84.         text "║ Sales leads      Sales label  ║"
  85.         text "║ Reserved         Reserved     ║"
  86.         text "║ Phone #'s        DB3 prompt   ║"
  87.         text "╚═══════════════════════════════╝"
  88.         select 2,3,13,exec21
  89.         select 3,3,13,exec22
  90.         select 4,3,13,exec23
  91.         select 5,3,13,exec24
  92.         select 6,3,13,exec25
  93.         select 7,3,13,exec26
  94.         select 8,3,13,exec27
  95.         select 2,20,12,exec28
  96.         select 3,20,12,exec29
  97.         select 4,20,12,exec30
  98.         select 5,20,12,exec31
  99.         select 6,20,12,exec32
  100.         select 7,20,12,exec33
  101.         select 8,20,12,can
  102.         pend
  103.  
  104.  
  105.  
  106. keya:   type "do ordent"
  107. keyb:   type "do acctent"
  108. keyc:   type "quit"
  109. keyd:   type "do histnow"
  110. keye:   type "do invctrl"
  111. keyf:   type "do pcent"
  112. keyg:   type "do ckent"
  113. keyh:   type "  "
  114. keyi:   type "  "
  115. keyj:   type "do getphon"
  116. keyk:   type "do phonndx"
  117. keyl:   type "clea"
  118. keym:   type " "
  119. keyn:   type "do ca-main"
  120. keyo:   type " "
  121. keyp:   type " "
  122. keyq:   type " "
  123. keyr:   type " "
  124. keys:   type " "
  125. keyt:   type " "
  126. keyu:   type "do addord"
  127. keyv:   type "do editord"
  128. keyw:   type "do invoice.rpt"
  129. keyx:   type "do ordlab.rpt"
  130. keyy:   type "do shpcpy.rpt"
  131. keyz:   type "do shplab"
  132. keyaa:  type "do typelab"
  133. keyab:  type "do addsls"
  134. keyac:  type "do slslead"
  135. keyad:  type "do slslab"
  136. keyae:  type "do ph-main"
  137. keyaf:  type "do rprt"
  138. keyag:  type "do cshinrpt"
  139. keyah:  type "do payrprt"
  140. keyai:  type "do rcvrprt"
  141. keyaj:  type "do slsrprt"
  142. keyak:  type "do qksls"
  143. keyal:  type "do mgprpt"
  144.  
  145. can:    type "canc"
  146. cls:    type "clear"
  147. keyesc: type 27
  148. escape: type 27
  149. ret:    type 13
  150. slash:  type "/"
  151. left:   type 0,75
  152. right:  type 0,77
  153. up:     type 0,72
  154. down:   type 0,80
  155.  
  156. exec1:  execute keyak,ret
  157. exec2:  execute keyal,ret
  158. exec3:  execute keyc,ret
  159. exec4:  execute keyd,ret
  160. exec5:  execute keye,ret
  161. exec6:  execute keyf,ret
  162. exec7:  execute keyg,ret
  163. exec8:  execute keyh,ret
  164. exec9:  execute keyi,ret
  165. exec10: execute keyj,ret
  166. exec11: execute keyk,ret
  167. exec12: execute keyl,ret
  168. exec13: execute cls,ret
  169. exec14: execute keyn,ret
  170. exec15: execute keyo,ret
  171. exec16: execute keyaf,ret
  172. exec17: execute keyag,ret
  173. exec18: execute keyah,ret
  174. exec19: execute keyai,ret
  175. exec20: execute keyaj,ret
  176. exec21: execute keyu,ret
  177. exec22: execute keyw,ret
  178. exec23: execute keyy,ret
  179. exec24: execute keyaa,ret
  180. exec25: execute keyac,ret
  181. exec26: execute
  182. exec27: execute keyae,ret
  183. exec28: execute keyv,ret
  184. exec29: execute keyx,ret
  185. exec30: execute keyz,ret
  186. exec31: execute keyab,ret
  187. exec32: execute keyad,ret
  188. exec33: execute
  189.  
  190.  
  191.  
  192.  
  193.  
  194.  
  195.  
  196.  
  197.  
  198. nothing:  nothing
  199.