01 LBL "PAR"
 02 CF 00
 03 RCL 10
 04 CLRG
 05 STO 10
 06 "NAME?"
 07 AON
 08 PROMPT
 09 ASTO 08
 10 ASHF
 11 ASTO 09
 12 CF 23
 13 "M"
 14 ASTO X
 15 "  M OR F?"
 16 LBL 07
 17 XEQ 05
 18 FC? 23
 19 GTO 07
 20 ASTO Y
 21 X=Y?
 22 SF 00
 23 AOFF
 24 .002
 25 STO 07
 26 LBL 00
 27 1
 28 ST+ 11
 29 "ROLL.."
 30 AVIEW
 31 CLA
 32 5
 33 STO 00
 34 LBL 01
 35 RCL 10
 36 9821
 37 *
 38 .211327
 39 +
 40 FRC
 41 STO 10
 42 6
 43 *
 44 1
 45 +
 46 INT
 47 STO IND 00
 48 SF IND X
 49 FS?C 01
 50 >"  ."
 51 FS?C 02
 52 >"  :"
 53 FS?C 03
 54 >"  .:"
 55 FS?C 04
 56 >"  ::"
 57 FS?C 05
 58 >"  :.:"
 59 FS?C 06
 60 >"  :::"
 61 AVIEW
 62 2
 63 /
 64 FRC
 65 X=0?
 66 GTO 02
 67 LASTX
 68 2
 69 *
 70 1
 71 -
 72 ST+ 12
 73 LBL 02
 74 DSE 00
 75 GTO 01
 76 CLA
 77 CF 22
 78 "PETALS?"
 79 ARCL 05
 80 ARCL 04
 81 ARCL 03
 82 ARCL 02
 83 ARCL 01
 84 XEQ 04
 85 0
 86 X<> 12
 87 " SORRY, "
 88 ARCL 08
 89 ARCL 09
 90 X=Y?
 91 "   RIGHT"
 92 XEQ 05
 93 X=Y?
 94 GTO 06
 95 "THERE ARE "
 96 ARCL X
 97 XEQ 05
 98 "PETALS AROUND "
 99 >"THE ROSE."
100 XEQ 05
101 .002
102 STO 07
103 1
104 ST+ 06
105 RCL 06
106 10
107 X=Y?
108 XEQ 03
109 GTO 00
110 LBL 03
111 "   HINT:"
112 XEQ 05
113 "PETALS: AN EV"
114 >"EN NO.,<=20"
115 XEQ 05
116 RTN
117 LBL 04
118 XEQ 05
119 FC? 22
120 GTO 04
121 RTN
122 LBL 05
123 AVIEW
124 PSE
125 RTN
126 LBL 06
127 ISG 07
128 GTO 00
129 "I DUB THEE, "
130 ARCL 08
131 ARCL 09
132 XEQ 05
133 "  A LADY OF"
134 FS?C 00
135 " A KNIGHT OF"
136 XEQ 05
137 "  THE ROSE."
138 AVIEW
139 BEEP
140 "  "
141 ARCL 11
142 >" GUESSES"
143 AVIEW
144 BEEP
145 END