(version programa HP 41C realizada en 1982) 
Versión FREE 42 Publicada en abril 2023
00 { 172-Byte Prgm }
01▸LBL "DE"
02 CLST
03 CLRG
04 CF 01
05 0
06 STO 20
07 AON
08 "PALABRA?"
09 PROMPT
10 ALENG
11 STO 14
12 7
13 X>Y?
14 GTO 03
15 GTO 01
16▸LBL 02
17 STO 13
18 ASTO 00
19 ASHF
20 ASTO 01
21▸LBL 00
22 " "
23 ARCL 00
24 ASTO 00
25 ASHF
26 FS? 01
27 ARCL 01
28 FS? 01
29 ASTO 01
30 FS? 01
31 ASHF
32 ASTO IND 13
33 DSE 13
34 GTO 00
35 " "
ADV
36 XEQ 10
37 STOP
38▸LBL 03
39 1
40 -
41 GTO 02
42▸LBL 01
43 SF 01
44 RCL 14
45 12
46 X=Y?
47 GTO 04
48 RCL 14
49 11
50 X=Y?
51 GTO 05
52 RCL 14
53 10
54 X=Y?
55 GTO 06
56 RCL 14
57 9
58 X=Y?
59 GTO 07
60 RCL 14
61 8
62 X=Y?
63 GTO 08
64 RCL 14
65 7
66 X=Y?
67 GTO 09
68▸LBL 04
69 GTO 02
70▸LBL 05
71 1
72 +
73 GTO 02
74▸LBL 06
75 2
76 +
77 GTO 02
78▸LBL 07
79 3
80 +
81 GTO 02
82▸LBL 08
83 4
84 +
85 GTO 02
86▸LBL 09
87 5
88 +
89 GTO 02
90▸LBL 10
91 CLA
92 CLST
93 ISG 20
94 CLA
95 ARCL IND 20
96 AVIEW
97 ADV
98 RCL 14
99 RCL 20
100 X=Y?
101 STOP
102 GTO 10
103 RTN
104 .END.
M
U
R
C
I
E
L
A
G
O
Reescribo el mismo programa en QB 64
Dim TextoI$(30)
Dim T$(30)
Input "ESCRIBA UN TEXTO; ", NB$
LT = Len(NB$)
Print LT
For I = 1 To LT
TextoI$ = Mid$(NB$, I, 1)
T$(I) = TextoI$
Next
For I = 1 To LT
Print T$(I)
Next