home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol199 / mail.prg < prev    next >
Encoding:
Text File  |  1985-02-10  |  6.9 KB  |  202 lines
  1. * DATE 08/27/84  12:12                 
  2. * mail.prg 
  3. * This is a highly complicated program and your help in both clearing
  4. * up the bugs and making suggestions will be appreciated. My thanks to the
  5. * many people who helped test and revise this program - and especially to
  6. * Lee Hilliard for some great code and for his pretty print and dBASE syntax
  7. * checker program. Lee is at Hilco Software, 304 N. 17th St., Mt. Vernon
  8. * WA 98273. (206) 428-0474. I might add that the coded portion of the program
  9. * was done using RECODE by Hilco.
  10. *
  11. * Please contact:
  12. *                   Stephen M. Leon
  13. *                   200 Winston Drive
  14. *                   Cliffside Park, NJ 07010
  15. *                   (201) 886-1658
  16. *                         or
  17. *                   Department of Law
  18. *                   2 World Trade Center
  19. *                   New York, NY 10047
  20. *                   (212) 488-7677
  21. *******************************************************************************
  22. * This program is distributed free (for a nominal media charge) by SIG/M      *
  23. * Special Interest Group/Microcomputers, Box 97, Iselin, NJ 08830.            *
  24. * SIG/M is a not-for-profit undertaking of the Amateur Computer Group of New  *
  25. * Jersey and the New York Amateur Computer Club. This program is also made    *
  26. * available for PC users via PC/BLUE SOFTWARE, also a not-for profit under-   *
  27. * taking of the New Jersey and New York clubs. Permission is granted to any   *
  28. * other not-for-profit group to include this program in their library so long *
  29. * as this notice is retained. Copyright 1984 by STEPHEN. M. LEON              *
  30. *******************************************************************************
  31. CLEA
  32. RELE ALL
  33. RESE
  34. SET TALK OFF
  35. IF .NOT. file ("MAIL.DAT")
  36.  DO INIT.ACG
  37. ENDI .NOT. file
  38. REST from mail.dat additive
  39. IF escap = 'N'
  40.  SET ESCAPE OFF
  41. ENDI excap = 'Y'
  42. IF bells = 'N'
  43.  SET BELL OFF
  44. ENDI bells
  45. IF bright = 'I'
  46.  SET INTENSITY OFF
  47. ENDI brght = 'I'
  48. IF PASS = 'Y'
  49.  ERAS
  50.  @ 12,10 SAY 'PLEASE ENTER THE PASSWORD SLOWLY ........'
  51.  SET EXACT ON
  52.  SET COLON OFF
  53.  STOR '12345678' TO passt
  54.  STOR ' ' TO passt1
  55.  STOR ' ' TO one
  56.  STOR ' ' to one1
  57.  STOR 0 to count
  58.  DO WHIL count < 8
  59.   SET CONSOLE OFF
  60.   @ 12,50 SAY passt1
  61.   WAIT TO one1
  62.   @ 12,50 ACCEPT one1
  63.   SET CONSOLE ON
  64.   STOR TRIM(one) + one1 TO one
  65.   STOR count + 1 TO count
  66.   STOR $(passt,1,count) TO passt1
  67.   @ 12,50 SAY passt1
  68.   SET CONSOLE OFF
  69.  ENDD
  70.  SET CONSOLE ON
  71.  STOR $(one,2,9) TO passt
  72.  IF passt <> passp
  73.   ERAS
  74.   @ 14,10 SAY "U N A U T H O R I Z E D       A C C E S S  "
  75.   @ 17,10
  76.   SET CONSOLE OFF
  77.   QUIT
  78.  ENDI passt
  79.  SET EXACT OFF
  80.  SET COLON ON
  81. ENDI pass
  82. ERAS
  83. TEXT
  84.  
  85.  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  86.  *                                                                           *
  87.  *                 AMATEUR COMPUTER GROUP OF NEW JERSEY                      *
  88.  *                                                                           *
  89.  *                                                                           *
  90.  *                                                                           *
  91.  *                                                                           *
  92.  *                                                                           *
  93.  *                                                                           *
  94.  *                                                                           *
  95.  *                                                                           *
  96.  *                                                                           *
  97.  *                                                                           *
  98.  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  99.           
  100.  
  101.  
  102.  
  103.  
  104.  
  105. ENDT
  106. @ 6,18 SAY "SIG/M   M A I L I N G   M A N A G E R"
  107. STOR 55 TO length
  108. STOR 18 TO  times
  109. DO WHIL times < length
  110.  @ 7,times SAY '_'
  111.  STOR times + 1 TO times
  112.  LOOP
  113. ENDD
  114. TEXT
  115.  *                                                                           *
  116.  *                   A dBASEII DATA MANAGEMENT PROGRAM                       *
  117.  *                     For Mailing List Maintainenace                        *
  118.  *                             by Stephen M. Leon                            *
  119.  *                                                                           *
  120.  *                                        Vers 2.0   Oct 1984 (c) 1984       *
  121.  *                                                                           *
  122.  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129. ENDT
  130. RELE times, length
  131. IF C = 'Y'
  132.  STOR 41984 TO adr
  133. *in cp/m 80 there is a jmp at location 0 & 5
  134.  IF (PEEK(0)=195 .AND. PEEK(5)=195)
  135. *use 8080 code
  136.   POKE adr ,35,17,37,164,14,6,6,2,26,19,198,16,211,90,254,21,219,91,194,23,164,214,8,198,48,119,35,5,194,8,164,35,13,194,6,164,201,10,9,8,7,12,11,5,4,3,2,1,0
  137.  ELSE
  138. *use 8086 code
  139.   POKE adr ,67,190,38,164,177,6,181,2,138,4,70,4,16,230,90,60,21,228,91,117,2,44,8,4,48,136,7,67,254,205,117,232,67,254,201,117,225,195,10,9,8,7,12,11,5,4,3,2,1,0
  140.  ENDI (PEEK)
  141.  SET CALL TO adr
  142.  STOR '  /  /  ,  :  :  ' TO mem:var
  143.  CALL mem:var
  144.  STOR $(mem:var,1,8) TO mdate
  145.  STOR $(mem:var,10,8) TO mtime
  146.  SET DATE  TO &mdate
  147.  @ 17,10 SAY 'Today is ' + mdate
  148.  @ 17,32 SAY '....and the time is  ' + mtime
  149. * Regular date program
  150. ENDI C='Y'
  151. IF I = 'N'
  152.  STOR '                                                  ' TO BLNKS
  153.  IF DATE() = '00/00/00'
  154.   STOR F   TO OK
  155.  ELSE
  156.   STOR T   TO OK
  157.   STOR 0   TO MM
  158.  ENDI
  159.  DO WHIL .NOT. OK
  160.   STOR $(BLNKS,1,8)            TO DATE:VAR
  161.   STOR $(BLNKS,1,42)       TO ERRX
  162.   @ 18,15 SAY 'Enter Date as MM/DD/YY '
  163.   @ 18,43 GET DATE:VAR  picture '##/##/##'
  164.   READ
  165.   STOR val($(DATE:VAR,1,2))    TO MM
  166.   STOR val($(DATE:VAR,4,2))    TO DD
  167.   STOR val($(DATE:VAR,7,2))    TO YY
  168.   DO CASE
  169.   CASE MM<1 .or. MM>12 .or. DD<1 .or. DD>31 .or. YY<80
  170.    STOR '       Invalid Date - Reenter'   to ERRX
  171.   CASE MM=4 .or. MM=6 .or. MM=9 .or. MM=11
  172.    IF DD>30
  173.     STOR 'Thirty Days hath September, etc. - Reenter'   to ERRX
  174.    ELSE
  175.     STOR T TO OK
  176.    ENDI dd
  177.   CASE MM=2 .and. DD>28 .and. ((1900 + YY)/4)<>int(((1900 + YY)/4))
  178.    STOR '     Not a leap year - Try Again'   TO ERRX
  179.   CASE MM=2 .and. DD>29
  180.    STOR 'February has a Maximum of 29 Days - Reenter' TO ERRX
  181.   OTHE
  182.    @ 20,00
  183.    STOR T   TO OK
  184.    LOOP
  185.   ENDC
  186.   @ 20,00
  187.   @ 20,15 SAY ERRX
  188.  ENDD (.not. OK)
  189.  IF MM>0
  190.   RELE ERRX, OK, MM, DD, YY
  191.   SET date TO &DATE:VAR
  192.   CLEA GETS
  193.  ENDI mm
  194. ENDI I = 'N'
  195. * poke drive letter into memory 039 hex
  196. * IF converting to dBASEIII - set up a public memory variable for drive letter
  197. * You will also have to change the PEEK in each module.
  198. POKE 063,(64+@(dr,'ABCDEFGHIJKLMNOPQRSTUVWXYZ'))
  199. RELE ALL
  200. DO main.acg
  201.  
  202.