Quote:
Originally posted by Borvik:
*carefully watching how virtual coffee is made*
|
DEF VAR v_espresso AS INGREDIENT INIT 0.33 NO-UNDO.
DEF VAR v_milk AS INGREDIENT INIT 0.66 NO-UNDO.
DEF VAR v_water AS INGREDIENT INIT 0.25 NO-UNDO.
DEF VAR v_coffee AS INGREDIENT INIT 0.08 NO-UNDO.
DEF VAR v_hotmilk AS INGREDIENT INIT 0.33 NO-UNDO.
DEF VAR v_hotmilk_1 AS INGREDIENT INIT 0.33 NO-UNDO.
DEF VAR v_cocoa_pow AS INGREDIENT INIT 0.01 NO-UNDO.
DEF VAR v_cappuccino AS COFFEE INIT 1.00 NO-UNDO.
DEF VAR v_count AS INTEGER INIT 0 NO-UNDO.
ASSIGN v_espresso = MAKE_REGULAR_ESPRESSO(v_coffee,v_water).
ASSIGN v_hotmilk = ADD_TEMPERATURE(v_milk).
DO v_count = 1 TO 1000:
/* frothing milk */
v_hotmilk_1 = FROTH(v_hotmilk/2).
END.
ASSIGN v_cappuccino = ORDER(v_espresso + v_hotmilk + v_hotmilk_1 + v_cocoa_pow).
SERVE CAPPUCCINO(v_cappuccino).
Here you go. Enjoy your virtual coffee [img]smile.gif[/img]
Neuro (dege..... [img]smile.gif[/img] )
Let the midnight special shine it's light on me .... [img]smile.gif[/img]