home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / maj / 2242 / main.asm < prev    next >
Assembly Source File  |  1994-06-05  |  840b  |  41 lines
  1. \<
  2. {
  3.   "MOIS+", "MOIS-", "AN+", "AN-"
  4. }
  5. TMENU
  6. XUPDTMENU
  7. <0>
  8. {, @'', }, XCREATEVL
  9. DATE
  10. XDO
  11.   'CUR'
  12.   XWAITK, XDROP
  13.   XSTOVL1
  14.  
  15.   \<
  16.     XRCLVL1, <$11>, XSB=, XCASE
  17.       \<, 'JMA', %7, DATE+, \>
  18.     XRCLVL1, <$12>, XSB=, XCASE
  19.       \<, 'JMA', %1, DATE+, \>
  20.     XRCLVL1, <$10>, XSB=, XCASE
  21.       \<, 'JMA', %-1, DATE+, \>
  22.     XRCLVL1, <$B>, XSB=, XCASE
  23.       \<, 'JMA', %-7, DATE+, \>
  24.     XRCLVL1, <$1>, XSB=, XCASE
  25.       \<, 'JMA', XDUP, XRFP, %1, XR+, %31
  26.       DATE+, XRFP, XSWAP, XRIP, XR+, \>
  27.     XRCLVL1, <$2>, XSB=, XCASE
  28.       \<, 'JMA', XDUP, XRFP, %1, XR+, %-1, DATE+
  29.       XRFP, XSWAP, XRIP, XR+, \>
  30.     XRCLVL1, <$3>, XSB=, XCASE
  31.       \<, 'JMA', %0.000001, XR+, \> 
  32.     XRCLVL1, <$4>, XSB=, XCASE
  33.       \<, 'JMA', %0.000001, XR-, \>
  34.   \>
  35.   XDEPTHSB
  36.   <0>
  37.   XSB=
  38. XUNTIL
  39. XPURGEVL
  40. %0, MENU
  41. \>