home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug104.arc / MEMO.LQR / MEMO.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  4KB  |  129 lines
  1. * MEMO.CMD
  2. * MEMO PROGRAM
  3. * WRITTEN BY STEVE SOWDEN 01/01/85
  4. *
  5. SET TALK OFF
  6. SET COLON OFF
  7. USE memo
  8. INDEX ON date TO mdate
  9. USE memo INDEX mdate
  10. DO WHILE T
  11.    RELEASE ALL
  12.    STOR T TO go
  13.    STOR 1 TO Mno
  14.    STOR STR(Mno,1) TO Mnum
  15.    STOR 4 TO Mx
  16.    STOR "        " TO Mdate
  17.    STOR "  " TO Mname
  18.    STOR "                                                 " TO Mm1,Mm2,;
  19.    Mm3,Mm4,Mm5,Mm6,Mm7,Mm8,Mm9,Mm10,Mm11,Mm12,Mm13,Mm14,Mm15
  20.    ERASE
  21.    @ 10,15 SAY  "Enter date for memo, RETURN for today or (Q)uit"
  22.    @ 12,35 SAY " " GET Mdate PICT "!9/99/99"
  23.    @ 20,14 SAY "ENTER A (/) AT THE BEGINNING OF A LINE TO END MEMO"
  24.    READ
  25.       IF $(Mdate,1,1) = "Q"
  26.          ERASE
  27.          SET COLON OFF
  28.          RELEASE ALL
  29.          RETURN
  30.       ENDIF
  31.       IF $(Mdate,1,1) = " "
  32.         STOR DATE() TO Mdate
  33.       ENDIF
  34. *
  35.    FIND &Mdate
  36. *
  37.    ERASE
  38.       IF # <> 0
  39.          @ 1,30 SAY "MEMO FOR " + date
  40.          @ 1,60 SAY "NAME " + name
  41.          @ 2,0 SAY "------------------------------------------------------;
  42. --------------------------"
  43.          @ 21,14 SAY "ENTER A (/) AT THE BEGINNING OF A LINE TO END MEMO"
  44.          SET COLON ON
  45.            DO WHILE Mno <= 15
  46.             IF $(m&Mnum,1,1) <> "/"
  47.               @ Mx,10 SAY "> " + " " + m&Mnum
  48.               STOR Mx + 1 TO Mx
  49.               STOR Mno + 1 TO Mno
  50.                  IF Mno > 9
  51.                     STOR STR(Mno,2) TO Mnum
  52.                  ELSE
  53.                     STOR STR(Mno,1) TO Mnum
  54.                  ENDIF
  55.              ELSE
  56.                 STOR 16 TO Mno
  57.              ENDIF
  58.             ENDDO
  59.          STOR date TO Mdate
  60.          STOR name TO Mname
  61.       ELSE
  62.          APPEND BLANK
  63.          @ 21,14 SAY "ENTER A (/) AT THE BEGINNING OF A LINE TO END MEMO"
  64.          @ 1,30 SAY "MEMO FOR " + Mdate
  65.          @ 1,60 SAY "NAME " GET name PICT "!!"
  66.          @ 2,0 SAY "-----------------------------------------------------;
  67. ---------------------------"
  68.          SET COLON ON
  69.             DO WHILE Mno <= 15
  70.                @ Mx,10 SAY "> " GET m&Mnum
  71.                READ NOUP
  72.                  IF $(m&Mnum,1,1) <> "/"
  73.                     STOR Mx + 1 TO Mx
  74.                     STOR Mno + 1 TO Mno
  75.                        IF Mno > 9
  76.                           STOR STR(Mno,2) TO Mnum
  77.                        ELSE
  78.                           STOR STR(Mno,1) TO Mnum
  79.                        ENDIF
  80.                   ELSE
  81.                      STOR 16 TO Mno
  82.                   ENDIF
  83.             ENDDO
  84.          REPL date WITH Mdate
  85.       ENDIF
  86.     SET COLON OFF
  87.    DO WHILE go
  88.       @ 23,24 SAY "(C)hange (D)elete (Q)uit memo"
  89.       SET CONS OFF
  90.       WAIT TO select
  91.       SET CONS ON
  92.       STOR !(select) TO select
  93.        IF select = "D"
  94.           DELETE
  95.           PACK
  96.        ENDIF
  97.         IF select = "C"
  98.            IF Mnum <> "16"
  99.               REPL m&Mnum WITH Mm&Mnum NOUP
  100.            ENDIF
  101.            STOR 4 TO Mx
  102.            STOR 1 TO Mno
  103.            STOR STR(Mno,1) TO Mnum
  104.            @ 1,38 SAY " " GET date PICT "99/99/99"
  105.            @ 1,64 SAY " " GET name PICT "!!"
  106.            READ
  107.            SET COLON ON
  108.               DO WHILE Mno <= 15
  109.                     @ Mx,10 SAY "> " GET m&Mnum
  110.                     READ NOUP
  111.                 IF $(m&Mnum,1,1) <> "/"
  112.                     STOR Mx + 1 TO Mx
  113.                     STOR Mno + 1 TO Mno
  114.                        IF Mno > 9
  115.                           STOR STR(Mno,2) TO Mnum
  116.                        ELSE
  117.                           STOR STR(Mno,1) TO Mnum
  118.                        ENDIF
  119.                  ELSE
  120.                     STOR 16 TO Mno
  121.                  ENDIF
  122.               ENDDO
  123.               SET COLON OFF
  124.         ELSE
  125.            STOR F TO go
  126.         ENDIF
  127.    ENDDO
  128. ENDDO
  129. êm═_n> 2ém!çm»7Äw╥°m+┬∞m:émµG!çm~µ■░w!äm