home *** CD-ROM | disk | FTP | other *** search
/ 1st Canadian Shareware Disc / 1st_Canadian_Shareware_Disc_1991.ISO / graphics / greet90 / greet90.stx / print.txt < prev    next >
Text File  |  1990-11-20  |  6KB  |  198 lines
  1. ; To use this printing module, the clipping PRINT must be preloaded somewhere
  2. ; within the calling program as clip # 80.
  3. ;
  4. when esc
  5. set esc off
  6. VERIFY:
  7. local vpg @viewpage
  8. local dpg @drawpage
  9. setpage @vpg,@vpg
  10. pgetbuf 1        ;Get screen into buffer for refresh.
  11. cfade 22,136,64,80,0    ;Putup the print menu.
  12. ;
  13. CHOOSE:
  14. local port "LPT1"
  15. waitkey 4500 refresh
  16. getkey key
  17. if @key==chr(49)        ;1
  18.     beep
  19.     set port "LPT1"
  20.     goto printout
  21.     return
  22. endif
  23. if @key==chr(50)        ;2
  24.     beep
  25.     set port "LPT2"
  26.     goto printout
  27. endif
  28. if @key==chr(51)        ;3
  29.     beep
  30.     set port "COM1"
  31.     goto printout
  32. endif
  33. if @key==chr(52)        ;4
  34.     beep
  35.     set port "COM2"
  36.     goto printout
  37. endif
  38. if @key==chr(120)||@key==chr(88)    ;x or X
  39.     beep
  40.     refresh
  41.     return
  42. endif
  43. goto CHOOSE
  44. ;
  45. REFRESH:
  46.     pfade 9,1
  47.     pfree 1
  48.     setpage @vpg,@dpg
  49.     return
  50. BEEP:
  51.     note 35,80,3
  52.     return
  53.  
  54. PRINTOUT:
  55.     if @printype=="R"
  56.         gosub recipe
  57.         return
  58.     endif
  59.     if @printype=="O"
  60.         gosub order
  61.         return
  62.     endif
  63.     return
  64.  
  65. RECIPE:
  66. color 0,15
  67. text 224,97 "Printing Recipe to Port "$@port$"..."
  68. send @port "
  69.  
  70.                       /^\                                  /^\      
  71.                   ___(^_^)___     GINGERBREAD MEN      ___(^_^)___  
  72.                  (___  o  ___)     COOKIE RECIPE      (___  o  ___) 
  73.                      | o |                                | o |     
  74.                    _/     \_          Makes 30          _/     \_   
  75.                   (__,/^\,__)    Delicious Cookies     (__,/^\,__)  
  76.  
  77.      
  78.           INGREDIENTS ----------------------------------------------------
  79.  
  80.             2/3 cup shortening
  81.             1/2 cup packed brown sugar          
  82.               2 teaspoons ground ginger
  83.               1 teaspoon cinnamon                 
  84.             1/4 teaspoon cloves or allspice     
  85.           1 1/2 teaspoons salt
  86.               1 egg
  87.             3/4 cup molasses
  88.               3 cups sifted all-purpose flour
  89.               1 teaspoon baking soda
  90.             1/2 teaspoon baking powder
  91.  
  92.  
  93.          PREPARATION -----------------------------------------------------
  94.  
  95.      1.  Cream together the shortening, brown sugar, spices and salt.  
  96.      Add the egg and mix thoroughly.  Add the molasses and blend.
  97.  
  98.      2.  Sift the flour, soda and baking powder together twice.  Add 
  99.      to the molasses mixture and stir until blended.  Chill.
  100.  
  101.      3.  Preheat the oven to 375 degrees.  Using a third to a quarter 
  102.      of the dough at a time, roll it to one-eight inch or slightly 
  103.      thicker on a lightly floured pastry cloth with a flour-covered 
  104.      rolling pin.
  105.  
  106.      4.  Cut with gingerbread man cutter or any cutter desired.  
  107.      Transfer carefully to greased baking sheet and repeat with 
  108.      remaining dough.  Before baking, press raisins into the dough for 
  109.      eyes, nose and buttons.  Use half a slice of candied cherry for 
  110.      mouth.
  111.  
  112.      5.  Place in oven and bake 8 to 10 minutes.  Cool then decorate
  113.          with with frosting.  Enjoy!
  114.  
  115.                                          ><  
  116.                                          @@
  117.                                         @@@@
  118.                                        @@@@@@
  119.                                       @@@@@@@@
  120.                                      @@@@@@@@@@
  121.                                     @@@@@@@@@@@@
  122.                                          ||
  123.                                         ^^^^
  124.                   HAPPY HOLIDAYS FROM SYSTEMAX COMPUTER GRAPHICS!"
  125.  
  126. waitkey 200
  127. refresh
  128. return
  129.  
  130. ORDER:
  131. font 2
  132. color 0,15
  133. text 224,97 "Printing Order Form to Port "$@port$"..."
  134. send @port "     ________________________                                         +-----+
  135.                                                                       |STAMP|
  136.      ________________________                                         |     |
  137.                                                                       +-----+
  138.      ________________________
  139.  
  140.  
  141.  
  142.  
  143.  
  144.  
  145.                                     SYSTEMAX Computer Graphics
  146.                                     201 East 87th Street
  147.                                     Suite 24E
  148.                                     New York, NY  10128
  149.  
  150.  
  151.  
  152.  
  153.  
  154.      - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  155.  
  156.      To request an InfoKit and DiscBrochure(TM) which describes and demon-
  157.      strates our services and the versatility of computer presentations as
  158.      powerful marketing and promotional tools, fill in the following infor-
  159.      mation or affix your business card and send to us.
  160.  
  161.      [ ] Mr.     [ ] Ms.     [ ] Mrs.     [ ] Other _______________________
  162.  
  163.      Name _________________________________________________________________
  164.  
  165.      Title ________________________________________________________________
  166.  
  167.      Company ______________________________________________________________
  168.  
  169.      Address ______________________________________________________________
  170.  
  171.      City _______________________________  State ______  Zip ______________
  172.  
  173.      Phone (______) ___________________   FAX (______) ____________________
  174.  
  175.  
  176.      - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  177.  
  178.      The DiscBrochure(TM) requires an EGA color monitor and hard disk to run.
  179.      Please choose the diskette format you prefer for the DiscBrochure(TM):
  180.  
  181.                 [ ] 5-1/4 inch, High-Density
  182.                 [ ] 5-1/4 inch, Low-Density
  183.                 [ ] 3-1/2 inch, Low-Density
  184.  
  185.      MAIL... Fold this sheet accordian-style by folding the top portion away
  186.      from you and the bottom portion up toward you.  Be sure the Systemax
  187.      address is facing out.  Staple or tape both ends of the folded form and
  188.      affix proper postage.
  189.  
  190.      FAX/PHONE/E-MAIL... You may also Fax your request form to 212/369-3103
  191.      24-hours a day.  Phone us at 212/348-8756 or contact us via CompuServe
  192.      (ID# 71511,1375) to request an InfoKit and to answer any of your
  193.      questions."
  194.  
  195. waitkey 200
  196. refresh
  197. return
  198.