Comparador de precios en un supermercado.
Programa más simple solo 14 líneas: CRKG
79.00 *** precio
7,400.00 *** peso en gr
PU= 10.68 E/Kg
00 { 42-Byte Prgm }
01▸LBL "GRKG"
02 CLMENU
03 MENU
04 INPUT "P"
05 PRX
06 INPUT "G"
07 PRX
08 RCL "P"
09 1000
10 ×
11 RCL "G"
12 ÷
13 "PU= "
14 ARCL ST X
15 ├" E/Kg"
16 AVIEW
17 END
13. VIEW ST X
14 END
El mismo programa más largo, pero con menu de entrada. para Kg y Litros
PRE. BOTELLA ? 0.60 $
LITROS? 5 L
PRE. LITRO= 0.12 $/L ***
00 { 208-Byte Prgm }
01▸LBL "PRKG"
02 CLST
03 CLA
04 CLMENU
05 RDX.
06 " "
07 AVIEW
08 "PRKG"
09 KEY 1 XEQ 10
10 " ↓"
11 AVIEW
12 "LITROS"
13 KEY 2 XEQ 20
14 MENU
15 FIX 02
16 STOP
17▸LBL 10
18 "PRECIO GR? "
19 PROMPT
20 STO 01
21 ARCL ST X
22 ├" $"
23 AVIEW
24 FIX 00
25 "GRAMOS? "
26 PROMPT
27 STO 02
28 ARCL ST X
29 ├" gr"
30 AVIEW
31 FIX 02
32 RCL 01
33 1000
34 ×
35 RCL 02
36 ÷
37 "PRECIO="
38 ├" "
39 ARCL ST X
40 ├" $/KG"
41 AVIEW
42 STOP
43 GTO 10
44▸LBL 20
45 "PRE. BOTELLA ?"
46 PROMPT
47 STO 11
48 ARCL ST X
49 ├" $"
50 AVIEW
51 FIX 00
52 "LITROS? "
53 PROMPT
54 STO 12
55 ARCL ST X
56 ├" L"
57 AVIEW
58 FIX 02
59 RCL 11
60 RCL 12
61 ÷
62 "PRE. LITRO="
63 ├" "
64 ARCL ST X
65 ├" $/L"
66 AVIEW
67 STOP
68 GTO 20
69 .END.
Programa contabilidad casera
