home *** CD-ROM | disk | FTP | other *** search
/ 1st Canadian Shareware Disc / 1st_Canadian_Shareware_Disc_1991.ISO / graphics / greet90 / greet90.stx / ginger.txt < prev    next >
Text File  |  1990-11-20  |  2KB  |  101 lines
  1. video g
  2. START:
  3. when esc link end start2
  4. pload ginger,1
  5. cload print,80,1
  6. cload ingred1,1,1
  7. cload ingred2,2,1
  8. cload ingred3,3,1
  9. cload ginprom1,4,1
  10. cload ginprom2,5,1
  11. fload sysherc.set,1
  12. fload ascii.set,2
  13. palette 1
  14. setpage @viewpage,@drawpage
  15. pfade 0,1
  16. setpage @viewpage,@viewpage
  17. pfade 9,1,60
  18. ;
  19. ;  Ingredients
  20. ;
  21. setpage 1,0
  22. putup 0,0,1
  23. putup 0,0,2
  24. putup 0,0,3
  25. putup 0,0,4
  26. ;
  27. ; Preparation
  28. ;
  29. setpage 0,1
  30. font 2
  31. fgaps 1,6,2
  32. fstyle 0,0
  33. window 80,47,576,263
  34. color 0
  35. set wrap on
  36. color 9
  37. text "1.  "
  38. color 0
  39. text "Cream together the shortening, brown sugar, spices and salt.  Add
  40. the egg and mix thoroughly.  Add the molasses and blend.
  41.  
  42. "
  43. color 9
  44. text "2.  "
  45. color 2
  46. text "Sift the flour, soda and baking powder together twice.  Add to the 
  47. molasses mixture and stir until blended.  Chill.
  48.  
  49. "
  50. color 9
  51. text "3.  "
  52. color 0
  53. text "Preheat the oven to 375 degrees.  Using a third to a quarter of the
  54. dough at a time, roll it to one-eighth inch or slightly thicker on a lightly
  55. floured pastry cloth with a floured, covered rolling pin.
  56.  
  57. "
  58. color 9
  59. text "4.  "
  60. color 2
  61. text "Cut with gingerbread man cutter or any cutter desired.  Transfer 
  62. carefully to greased baking sheet and repeat with remaining dough.  Before 
  63. baking, press raisins into the dough for eyes, nose and buttons.  Use half 
  64. a slice of candied cherry for mouth.
  65.  
  66. "
  67. color 9
  68. text "5.  "
  69. color 0
  70. text "Place in oven and bake eight to ten minutes.  Cool then decorate with 
  71. frosting."
  72. window
  73. putup 0,0,4
  74. putup 0,0,5
  75. pfree 1
  76. cfree 1,-,5
  77. ;
  78. SELECT:
  79. local key 0
  80. waitkey 9000 menuret
  81. getkey key
  82. if @key==chr(13)            ;ENTER key
  83.     revpage
  84.     goto select
  85. endif
  86. if @key==chr(120)||@key==chr(88)    ;x or X key.
  87.     link menu start
  88. endif
  89. if @key==chr(112)||@key==chr(80)    ;p or P key.
  90.     set printype "R"
  91.     call print
  92.     when esc link end start2
  93.     goto select
  94. endif
  95. goto select
  96. exit
  97.  
  98. MENURET:
  99.     link menu start
  100.  
  101.