17 lines
982 B
Plaintext
17 lines
982 B
Plaintext
Dim As Longint hamburger_p = 550
|
|
Dim As Longint hamburger_q = 4000000000000000
|
|
Dim As Longint hamburger_v = hamburger_p * hamburger_q
|
|
Dim As Longint milkshake_p = 286
|
|
Dim As Longint milkshake_q = 2
|
|
Dim As Longint milkshake_v = milkshake_p * milkshake_q
|
|
Dim As Longint subtotal = hamburger_v + milkshake_v
|
|
Dim As Longint tax = subtotal * .765
|
|
Print Using "\ \ \ \ \ \ \ \";"item";"price";"quantity";"value"
|
|
Print Using "hamburger ##.## ################ #####################.##";hamburger_p/100;hamburger_q;hamburger_v/100
|
|
Print Using "milkshake ##.## ################ #####################.##";milkshake_p/100;milkshake_q;milkshake_v/100
|
|
?
|
|
Print Using " subtotal #####################.##";subtotal/10
|
|
Print Using " tax #####################.##";tax/100
|
|
Print Using " total #####################.##";subtotal/10+tax/100
|
|
Sleep
|