Emulador Free42 para PC
00 { 244-Byte Prgm }
01▸LBL "CONVER"
02 CLST
03 CLMENU
04 " "
05 AVIEW
06 "$$$$"
07 KEY 1 XEQ "PSTAS"
08 "EUROS"
09 KEY 3 XEQ "EUROS"
10 "VALOR MONEDA>"
11 166,386
12 STO 20
13 RDX,
14▸LBL 20
15 MENU
16 STOP
17 GTO 20
18▸LBL "EUROS"
19 "•EUROS"
20 KEY 3 XEQ "EUROS"
21 "$$$$"
22 KEY 1 XEQ "PSTAS"
23 MENU
24 "EUROS?"
25 PROMPT
26 STO 01
27 RCL 20
28 ×
29 STO 10
30 FIX 02
31 "EUROS>"
32 XEQ 01
33 FIX 00
34 "$$$$="
35 XEQ 10
36 STOP
37▸LBL "PSTAS"
38 "EUROS"
39 KEY 3 XEQ "EUROS"
40 "•$$$$"
41 KEY 1 XEQ "PSTAS"
42 MENU
43 "$$$$?"
44 PROMPT
45 STO 01
46 RCL 20
47 ÷
48 STO 10
49 FIX 00
50 "$$$$>"
51 XEQ 01
52 FIX 02
53 "EUROS="
54 XEQ 10
55 STOP
56▸LBL 01
57 ARCL 01
58 AVIEW
59 RTN
60▸LBL 10
61 ARCL 10
62 AVIEW
63 RTN
64 END