(41) Star Wars HP-41C (italian)

[Ángel Martin]

Here's the raw file and my transcription of the code so far. Not quite working as advertized though

I can't figure out the following steps in the program listing, can you guys with better eyesight provide some guesses:

Step 02 - is it LBL 00?
Step 11 - it is "LBL B", right?
Step 93 - missing in the original?
Step 183 - is it ST+ 03 ?
and a few other ones taken "by context"

Code:

   8:04AM 17.05
 01*LBL "STARW"
 02*LBL 00
 03 CLRG
 04 "SEED=?"
 05 PROMPT
 06 STO 00
 07 FIX 0
 08 CF 29
 09 SF 27
 10 GTO 01
 11*LBL B
 12 ST+ 05
 13 ST+ 06
 14 GTO 01
 15*LBL C
 16 ST+ 06
 17 GTO 01
 18*LBL D
 19 ST- 05
 20 ST* 06
 21 GTO 01
 22*LBL G
 23 ST+ 05
 24 GTO 01
 25*LBL I
 26 STO 05
 27 GTO 01
 28*LBL "K"
 29 ST+ 05
 30 ST- 06
 31 GTO 01
 32*LBL "L"
 33 ST- 06
 34 GTO 01
 35*LBL "M"
 36 ST- 05
 37 ST- 06
 38 GTO 01
 39*LBL "N"
 40 TONE 3
 41 TONE 3
 42 RCL 01
 43 RCL 05
 44 X#Y?
 45 GTO 03
 46 RCL 02
 47 RCL 06
 48 X#Y?
 49 GTO 03
 50 CLA
 51 "POSITIVE"
 52 AVIEW
 53 TONE 2
 54 "TIME  "
 55 ARCL 00
 56 FIX 4
 57 CF 27
 58 SF 29
 59 PROMPT
 60 GTO 00
 61*LBL 03
 62 "NEGATIVE"
 63 AVIEW
 64 PSE
 65*LBL 01
 66 CF 00
 67 CLA
 68 AVIEW
 69 XEQ 02
 70 ST+ 02
 71 XEQ 02
 72 ST+ 01
 73 5
 74 RCL 01
 75 RCL 05
 76 -
 77 STO 07
 78 X>0?
 79 "("
 80 X=0?
 81 "!"
 82 X<0?
 83 ")"
 84 ASTO 04
 85 X>Y?
 86 SF 09
 87 CHS
 88 X<>Y
 89 X<=Y?
 90 SF 09
 91 RCL 02
 92 RCL 06
 93 -
 94 X>0?
 95 SF 06
 96 X=0?
 97 SF 07
 98 X<0?
 99 SF 08
100 ABS
101 STO 03
102 1
103 ST+ 03
104 "H"
105 ASTO X
106 CLA
107 ARCL 06
108 FS?C 09
109 "`   * *   "
110 FS?C 07
111 "`   - -   "
112 FS?C 06
113 "`   _ _   "
114 RCL 07
115 FS?C 07
116 GTO 04
117 5
118 -
119 CHS
120 RCL d
121 SCI IND Y
122 ARCL Y
123 RCL ^
124 STO L
125 CLX
126 X<> ]
127 "`^"
128 X<> T
129 X<> ]
130 "`=*****"
131 CLX
132 X<> \
133 STO [
134 CLX
135 X<> ]
136 STO \
137 X<> T
138 X<> ]
139 LASTX
140 X<> ^
141 X<> T
142 9
143 -
144 CHS
145 FIX 0
146 RND
147 10^X
148 ARCL X
149 R^
150 STO d
151 CLX
152 X<> ]
153 STO [
154 CLX
155 X<> ^
156 STO \
157*LBL 04
158 ARCL 06
159 ARCL 03
160 AVIEW
161 1
162 TONE 0
163 SF 00
164 PSE
165 GTO 01
166*LBL 02
167 RCL 00
168 9021
169 *
170 .211327
171 +
172 FRC
173 STO 00
174 .5
175 -
176 4
177 *
178 RND
179 END