01 LBL "MMIND"
 02 GTO E
 03 LBL 01
 04 X<>Y
 05 LBL 11
 06 10
 07 *
 08 ENTER
 09 INT
 10 STO IND Z
 11 -
 12 DSE Y
 13 GTO 11
 14 RTN
 15 LBL E
 16 "MASTER MIND"
 17 AVIEW
 18 XEQ 07
 19 CF 29
 20 FIX 00
 21 RCL 20
 22 CLRG
 23 PI
 24 +
 25 E^X
 26 FRC
 27 STO 20
 28 "LENGTH? N<8"
 29 PROMPT
 30 STO 21
 31 1 E3
 32 /
 33 .004
 34 STO 00
 35 +
 36 STO 01
 37 CLX
 38 LASTX
 39 4
 40 ST+ 00
 41 RCL 21
 42 +
 43 ST+ 01
 44 +
 45 XEQ 01
 46 LBL 03
 47 "GUESS=?"
 48 PROMPT
 49 STO 02
 50 RCL 21
 51 ST+ 00
 52 10^X
 53 /
 54 RCL 01
 55 RCL 21
 56 +
 57 XEQ 01
 58 1
 59 ST+ 19
 60 .9
 61 STO 03
 62 STO 04
 63 LBL 04
 64 RCL 21
 65 RCL 00
 66 +
 67 RCL IND X
 68 RCL IND 00
 69 CF IND Z
 70 CF IND 00
 71 X=Y?
 72 XEQ 08
 73 DSE 00
 74 GTO 04
 75 RCL 21
 76 ST+ 00
 77 LBL 05
 78 ST+ 01
 79 RCL IND 00
 80 LBL 06
 81 RCL IND 01
 82 X=Y?
 83 XEQ 09
 84 X<>Y
 85 DSE 01
 86 GTO 06
 87 RCL 21
 88 DSE 00
 89 GTO 05
 90 LBL C
 91 CF 12
 92 CF 13
 93 CLA
 94 ARCL 02
 95 >" "
 96 RCL 21
 97 RCL 04
 98 INT
 99 X=Y?
100 GTO 10
101 RCL 03
102 INT
103 ARCL Y
104 >"B "
105 ARCL X
106 >"W"
107 AVIEW
108 PSE
109 PSE
110 GTO 03
111 LBL 07
112 TONE 02
113 TONE 03
114 TONE 04
115 TONE 07
116 SF 24
117 E^X
118 TONE 06
119 TONE 07
120 RTN
121 LBL 08
122 SF IND Z
123 SF IND 00
124 ISG 04
125 RTN
126 LBL 09
127 FC? IND 00
128 FS? IND 01
129 RTN
130 SF IND 00
131 SF IND 01
132 ISG 03
133 RTN
134 LBL 10
135 XEQ 07
136 >"YOU WIN"
137 AVIEW
138 PSE
139 PSE
140 CLA
141 ARCL 19
142 >" TRIES"
143 AVIEW
144 SF 29
145 CF 11
146 CF 14
147 FIX 03
148 END