home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a108 / 6.ddi / SAMPLES / BULK / BULK.SPR < prev    next >
Encoding:
Text File  |  1993-09-09  |  4.1 KB  |  148 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 09/01/93              BULK.SPR                 10:02:00 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Author's Name                                           
  8. *       *                                                         
  9. *       * Copyright (c) 1993 Company Name                         
  10. *       * Address                                                 
  11. *       * City,     Zip                                           
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18.  
  19. #REGION 0
  20. REGIONAL m.currarea, m.talkstat, m.compstat
  21.  
  22. IF SET("TALK") = "ON"
  23.     SET TALK OFF
  24.     m.talkstat = "ON"
  25. ELSE
  26.     m.talkstat = "OFF"
  27. ENDIF
  28. m.compstat = SET("COMPATIBLE")
  29. SET COMPATIBLE FOXPLUS
  30.  
  31. m.rborder = SET("READBORDER")
  32. SET READBORDER ON
  33.  
  34. *       *********************************************************
  35. *       *                                                         
  36. *       *               Windows Window definitions                
  37. *       *                                                         
  38. *       *********************************************************
  39. *
  40.  
  41. IF NOT WEXIST("_qiv0li6bs")
  42.     DEFINE WINDOW _qiv0li6bs ;
  43.         AT  0.000, 0.000  ;
  44.         SIZE 28.923,82.000 ;
  45.         TITLE "Microsoft FoxPro" ;
  46.         FONT "MS Sans Serif", 8 ;
  47.         FLOAT ;
  48.         NOCLOSE ;
  49.         MINIMIZE ;
  50.         SYSTEM ;
  51.         COLOR RGB(,,,0,0,255)
  52.     MOVE WINDOW _qiv0li6bs CENTER
  53. ENDIF
  54.  
  55.  
  56. *       *********************************************************
  57. *       *                                                         
  58. *       *               BULK/Windows Screen Layout                
  59. *       *                                                         
  60. *       *********************************************************
  61. *
  62.  
  63. #REGION 1
  64. IF WVISIBLE("_qiv0li6bs")
  65.     ACTIVATE WINDOW _qiv0li6bs SAME
  66. ELSE
  67.     ACTIVATE WINDOW _qiv0li6bs NOSHOW
  68. ENDIF
  69. @ 4.923,5.600 TO 28.077,77.800 ;
  70.     PATTERN 1 ;
  71.     PEN 1, 8 ;
  72.     COLOR RGB(,,,128,128,128)
  73. @ 4.615,4.800 TO 27.769,77.000 ;
  74.     PATTERN 1 ;
  75.     PEN 1, 8 ;
  76.     COLOR RGB(,,,0,255,255)
  77. @ 1.231,5.600 TO 4.077,77.800 ;
  78.     PATTERN 1 ;
  79.     PEN 1, 8 ;
  80.     COLOR RGB(,,,128,128,128)
  81. @ 0.923,4.800 TO 3.769,77.000 ;
  82.     PATTERN 1 ;
  83.     PEN 1, 8 ;
  84.     COLOR RGB(,,,0,255,255)
  85. @ 1.231,8.600 SAY "FoxPro Bulk Mailing Screen"  ;
  86.     FONT "MS Sans Serif", 18 ;
  87.     STYLE "BT"
  88. @ 6.385,7.200 SAY "Mailing Type:"  ;
  89.     FONT "MS Sans Serif", 10 ;
  90.     STYLE "BT" ;
  91.     COLOR RGB(0,0,0,0,255,255)
  92. @ 10.692,7.200 SAY "Subject:"  ;
  93.     FONT "MS Sans Serif", 10 ;
  94.     STYLE "BT" ;
  95.     COLOR RGB(0,0,0,0,255,255)
  96. @ 14.385,7.200 SAY "Note:"  ;
  97.     FONT "MS Sans Serif", 10 ;
  98.     STYLE "BT" ;
  99.     COLOR RGB(0,0,0,0,255,255)
  100. @ 9.231,4.800 TO 9.231,77.000 ;
  101.     PEN 1, 8 ;
  102.     STYLE "1"
  103. @ 6.385,28.800 GET mptype ;
  104.     PICTURE "@*RHN \<General;\<Personalized" ;
  105.     SIZE 1.308,16.167,0.667 ;
  106.     DEFAULT 1 ;
  107.     FONT "MS Sans Serif", 8 ;
  108.     STYLE "BT" ;
  109.     COLOR ,,,,,,,,RGB(0,0,0,0,255,255),RGB(0,0,0,0,255,255)
  110. @ 12.077,7.600 GET m.subject ;
  111.     SIZE 1.000,66.400 ;
  112.     DEFAULT " " ;
  113.     FONT "MS Sans Serif", 8 ;
  114.     PICTURE "@K" ;
  115.     COLOR ,RGB(,,,255,255,255)
  116. @ 15.769,7.600 EDIT m.notetext ;
  117.     SIZE 8.000,67.000,0.000 ;
  118.     PICTURE "@K" ;
  119.     DEFAULT " " ;
  120.     FONT "MS Sans Serif", 8 ;
  121.     SCROLL ;
  122.     COLOR ,RGB(,,,255,255,255)
  123. @ 24.923,28.800 GET bulkbtn ;
  124.     PICTURE "@*HT \!\<Mail;\?\<Cancel" ;
  125.     SIZE 1.769,9.667,0.667 ;
  126.     DEFAULT 1 ;
  127.     FONT "MS Sans Serif", 8 ;
  128.     STYLE "B"
  129.  
  130. IF NOT WVISIBLE("_qiv0li6bs")
  131.     ACTIVATE WINDOW _qiv0li6bs
  132. ENDIF
  133.  
  134. READ CYCLE
  135.  
  136. RELEASE WINDOW _qiv0li6bs
  137.  
  138. #REGION 0
  139.  
  140. SET READBORDER &rborder
  141.  
  142. IF m.talkstat = "ON"
  143.     SET TALK ON
  144. ENDIF
  145. IF m.compstat = "ON"
  146.     SET COMPATIBLE ON
  147. ENDIF
  148.