March 2016 - markri.nl

With my wife I was discussing the discipline of doing backups, in doing so I was thinking of how old my oldest file would be. How many years could I go back in time? I’m not talking about backup retention schemes but about my oldest creation, the oldest modification date. So exploring the crypts of dusty ARJ archives looking at the bits and pieces I stored, I found some old code of mine that was so dusty and old, it made me smile and filled me with a feeling of nostalgia. I wanted to share this code nostalgia with you.

Facts and stats

Last modification date: 18 december 1991 (previous century :-))
My age back then: 11 years
Platform: MS-DOS
Language: Quick Basic
Project: Programming the mastermind game
Status: buggy/but some parts work

The code

Surprised about the ramblings of my 11-year old self, I came to the idea of reviving the code. With some fiddling with the dosbox emulator it was suprisingly easy to make it work again! I put a recording at the end of this post. It’s somewhat magic to see 25 years old code working on current computer.

Useless for sure, it contains a bug concerning the black pins, but it doesn’t matter, I was happy that night 🙂

GOTO mastermind

<span style="color: #e34adc;">mastermind:</span>
CLS
SCREEN <span style="color: #008c00;">8</span>
COLOR <span style="color: #008c00;">0</span><span style="color: #808030;">,</span> <span style="color: #008c00;">2</span>
RANDOMIZE TIMER

FOR t <span style="color: #808030;">=</span> <span style="color: #008c00;">1</span> TO <span style="color: #008c00;">300</span>
<span style="color: #e34adc;">kleur:</span>
i <span style="color: #808030;">=</span> RND
IF i <span style="color: #808030;">&lt;</span> <span style="color: #008000;">.25</span> THEN
  kleur <span style="color: #808030;">=</span> <span style="color: #008c00;">1</span>
ELSE
  IF i <span style="color: #808030;">&lt;</span> <span style="color: #008000;">.5</span> THEN
    kleur <span style="color: #808030;">=</span> <span style="color: #008c00;">1</span>
  ELSE
    IF i <span style="color: #808030;">&lt;</span> <span style="color: #008000;">.75</span> THEN
      kleur <span style="color: #808030;">=</span> <span style="color: #008c00;">6</span>
    ELSE
      kleur <span style="color: #808030;">=</span> <span style="color: #008c00;">9</span>
    END IF
  END IF
END IF

<span style="color: #e34adc;">teken:</span>
lr <span style="color: #808030;">=</span> <span style="color: #603000;">INT</span><span style="color: #808030;">(</span>RND <span style="color: #808030;">*</span> <span style="color: #008c00;">600</span><span style="color: #808030;">)</span>
bb <span style="color: #808030;">=</span> <span style="color: #603000;">INT</span><span style="color: #808030;">(</span>RND <span style="color: #808030;">*</span> <span style="color: #008c00;">300</span><span style="color: #808030;">)</span>
LINE <span style="color: #808030;">(</span>lr<span style="color: #808030;">,</span> bb<span style="color: #808030;">)</span><span style="color: #808030;">-</span><span style="color: #808030;">(</span>lr <span style="color: #808030;">+</span> <span style="color: #008c00;">8</span><span style="color: #808030;">,</span> bb <span style="color: #808030;">+</span> <span style="color: #008c00;">8</span><span style="color: #808030;">)</span><span style="color: #808030;">,</span> kleur<span style="color: #808030;">,</span> BF
NEXT t

COLOR <span style="color: #008c00;">14</span><span style="color: #808030;">,</span> <span style="color: #008c00;">2</span>
LOCATE <span style="color: #008c00;">12</span><span style="color: #808030;">,</span> <span style="color: #008c00;">27</span>
PRINT <span style="color: #800000;">"</span><span style="color: #0000e6;">Welkom in Mastermind</span><span style="color: #800000;">"</span>
LOCATE <span style="color: #008c00;">15</span><span style="color: #808030;">,</span> <span style="color: #008c00;">20</span>
PRINT <span style="color: #800000;">"</span><span style="color: #0000e6;">Geprogrammeerd door Marco de Krijger @</span><span style="color: #800000;">"</span>
PLAY <span style="color: #800000;">"</span><span style="color: #0000e6;">l8 a&lt; b&lt; c&gt; d&gt; e&gt; f&gt; l4 g </span><span style="color: #800000;">"</span>
DO
FOR flash <span style="color: #808030;">=</span> <span style="color: #008c00;">1</span> TO <span style="color: #008c00;">400</span>
  NEXT flash
  LOCATE <span style="color: #008c00;">22</span><span style="color: #808030;">,</span> <span style="color: #008c00;">30</span>
  COLOR <span style="color: #008c00;">5</span><span style="color: #808030;">,</span> <span style="color: #008c00;">2</span>
  PRINT <span style="color: #800000;">"</span><span style="color: #0000e6;">Druk een toets</span><span style="color: #800000;">"</span>
  FOR flashing <span style="color: #808030;">=</span> <span style="color: #008c00;">1</span> TO <span style="color: #008c00;">400</span>
  NEXT flashing
  LOCATE <span style="color: #008c00;">22</span><span style="color: #808030;">,</span> <span style="color: #008c00;">30</span>
  COLOR <span style="color: #008c00;">10</span><span style="color: #808030;">,</span> <span style="color: #008c00;">2</span>
  PRINT <span style="color: #800000;">"</span><span style="color: #0000e6;">Druk een toets</span><span style="color: #800000;">"</span>
LOOP WHILE INKEY$ <span style="color: #808030;">=</span> <span style="color: #800000;">"</span><span style="color: #800000;">"</span>

<span style="color: #e34adc;">mastmind:</span>
CLS
SCREEN <span style="color: #008c00;">9</span>
COLOR <span style="color: #008c00;">10</span><span style="color: #808030;">,</span> <span style="color: #008c00;">2</span>
LOCATE <span style="color: #008c00;">2</span><span style="color: #808030;">,</span> <span style="color: #008c00;">30</span>
PRINT <span style="color: #800000;">"</span><span style="color: #0000e6;">M A S T E R M I N D</span><span style="color: #800000;">"</span>
LOCATE <span style="color: #008c00;">25</span><span style="color: #808030;">,</span> <span style="color: #008c00;">5</span>
PRINT <span style="color: #800000;">"</span><span style="color: #0000e6;">Druk 'H' voor Help</span><span style="color: #800000;">"</span>
COLOR <span style="color: #008c00;">12</span><span style="color: #808030;">,</span> <span style="color: #008c00;">2</span>
LOCATE <span style="color: #008c00;">4</span><span style="color: #808030;">,</span> <span style="color: #008c00;">5</span>

'bepalen toevalsgetallen tussen <span style="color: #008c00;">0</span> en <span style="color: #008c00;">9</span>
RANDOMIZE TIMER
FOR i <span style="color: #808030;">=</span> <span style="color: #008c00;">1</span> TO <span style="color: #008c00;">4</span>
  x$<span style="color: #808030;">(</span>i<span style="color: #808030;">)</span> <span style="color: #808030;">=</span> MID$<span style="color: #808030;">(</span>STR$<span style="color: #808030;">(</span><span style="color: #603000;">INT</span><span style="color: #808030;">(</span><span style="color: #008c00;">10</span> <span style="color: #808030;">*</span> RND<span style="color: #808030;">)</span><span style="color: #808030;">)</span><span style="color: #808030;">,</span> <span style="color: #008c00;">2</span><span style="color: #808030;">,</span> <span style="color: #008c00;">1</span><span style="color: #808030;">)</span>
NEXT i

beurt <span style="color: #808030;">=</span> <span style="color: #008c00;">1</span>

<span style="color: #e34adc;">l1:</span>
nummer <span style="color: #808030;">=</span> <span style="color: #008c00;">1</span>
beurt$ <span style="color: #808030;">=</span> MID$<span style="color: #808030;">(</span>STR$<span style="color: #808030;">(</span>beurt<span style="color: #808030;">)</span><span style="color: #808030;">,</span> <span style="color: #008c00;">2</span><span style="color: #808030;">)</span>
IF beurt <span style="color: #808030;">&lt;</span><span style="color: #808030;">=</span> <span style="color: #008c00;">9</span> THEN LOCATE <span style="color: #808030;">,</span> <span style="color: #008c00;">5</span>
PRINT <span style="color: #800000;">"</span> <span style="color: #800000;">"</span><span style="color: #800080;">;</span>
PRINT <span style="color: #800000;">"</span><span style="color: #0000e6;">(</span><span style="color: #800000;">"</span><span style="color: #800080;">;</span> beurt$<span style="color: #800080;">;</span> <span style="color: #800000;">"</span><span style="color: #0000e6;">)    </span><span style="color: #800000;">"</span><span style="color: #800080;">;</span>

<span style="color: #e34adc;">l2:</span>
toets$ <span style="color: #808030;">=</span> INKEY$
IF toets$ <span style="color: #808030;">=</span> <span style="color: #800000;">"</span><span style="color: #800000;">"</span> THEN GOTO l2

IF toets$ <span style="color: #808030;">&lt;</span> <span style="color: #800000;">"</span><span style="color: #0000e6;">0</span><span style="color: #800000;">"</span> OR toets$ <span style="color: #808030;">&gt;</span> <span style="color: #800000;">"</span><span style="color: #0000e6;">9</span><span style="color: #800000;">"</span> THEN GOTO l2
poging$<span style="color: #808030;">(</span>nummer<span style="color: #808030;">)</span> <span style="color: #808030;">=</span> toets$
PRINT toets$<span style="color: #800080;">;</span> <span style="color: #800000;">"</span>    <span style="color: #800000;">"</span><span style="color: #800080;">;</span>
IF nummer <span style="color: #808030;">&lt;</span> <span style="color: #008c00;">4</span> THEN
  nummer <span style="color: #808030;">=</span> nummer <span style="color: #808030;">+</span> <span style="color: #008c00;">1</span>
  GOTO l2
END IF
PRINT <span style="color: #800000;">"</span>        <span style="color: #800000;">"</span><span style="color: #800080;">;</span>

zwart <span style="color: #808030;">=</span> <span style="color: #008c00;">0</span>
wit <span style="color: #808030;">=</span> <span style="color: #008c00;">0</span>
'beoordelen <span style="color: #008c00;">1</span>
FOR i <span style="color: #808030;">=</span> <span style="color: #008c00;">1</span> TO <span style="color: #008c00;">4</span>
  bron<span style="color: #808030;">(</span>i<span style="color: #808030;">)</span> <span style="color: #808030;">=</span> <span style="color: #008c00;">0</span>
  doel<span style="color: #808030;">(</span>i<span style="color: #808030;">)</span> <span style="color: #808030;">=</span> <span style="color: #008c00;">0</span>
NEXT i
FOR i <span style="color: #808030;">=</span> <span style="color: #008c00;">1</span> TO <span style="color: #008c00;">4</span>
  IF poging$<span style="color: #808030;">(</span>i<span style="color: #808030;">)</span> <span style="color: #808030;">&lt;</span><span style="color: #808030;">&gt;</span> x$<span style="color: #808030;">(</span>i<span style="color: #808030;">)</span> THEN GOTO nxt1
  zwart <span style="color: #808030;">=</span> zwart <span style="color: #808030;">+</span> <span style="color: #008c00;">1</span>
  doel<span style="color: #808030;">(</span>i<span style="color: #808030;">)</span> <span style="color: #808030;">=</span> <span style="color: #008c00;">1</span>
  bron<span style="color: #808030;">(</span>i<span style="color: #808030;">)</span> <span style="color: #808030;">=</span> <span style="color: #008c00;">1</span>
<span style="color: #e34adc;">nxt1:</span>
NEXT i

'beoordelen <span style="color: #008c00;">2</span>
FOR i <span style="color: #808030;">=</span> <span style="color: #008c00;">1</span> TO <span style="color: #008c00;">4</span>
  FOR j <span style="color: #808030;">=</span> <span style="color: #008c00;">1</span> TO <span style="color: #008c00;">4</span>
    IF zwart <span style="color: #808030;">+</span> wit <span style="color: #808030;">=</span> <span style="color: #008c00;">4</span> THEN GOTO nxt2
    IF i <span style="color: #808030;">=</span> j THEN GOTO nxt2
    IF doel<span style="color: #808030;">(</span>j<span style="color: #808030;">)</span> THEN GOTO nxt2
    IF bron<span style="color: #808030;">(</span>i<span style="color: #808030;">)</span> THEN GOTO nxt2
    IF pogint$<span style="color: #808030;">(</span>i<span style="color: #808030;">)</span> <span style="color: #808030;">&lt;</span><span style="color: #808030;">&gt;</span> x$<span style="color: #808030;">(</span>j<span style="color: #808030;">)</span> THEN GOTO nxt2
    wit <span style="color: #808030;">=</span> wit <span style="color: #808030;">+</span> <span style="color: #008c00;">1</span>
    doel<span style="color: #808030;">(</span>j<span style="color: #808030;">)</span> <span style="color: #808030;">=</span> <span style="color: #008c00;">1</span>
    bron<span style="color: #808030;">(</span>i<span style="color: #808030;">)</span> <span style="color: #808030;">=</span> <span style="color: #008c00;">1</span>
<span style="color: #e34adc;">nxt2:</span>
  NEXT j
NEXT i

'goed<span style="color: #808030;">/</span>fout<span style="color: #808030;">/</span>einde
IF zwart <span style="color: #808030;">=</span> <span style="color: #008c00;">4</span> THEN GOTO klaar

'<span style="color: #008c00;">1</span><span style="color: #800080;">:</span> niets goed
IF zwart <span style="color: #808030;">=</span> <span style="color: #008c00;">0</span> AND wit <span style="color: #808030;">=</span> <span style="color: #008c00;">0</span> THEN
  PRINT <span style="color: #800000;">"</span><span style="color: #0000e6;">                          [niets]</span><span style="color: #800000;">"</span>
  GOTO daarna
END IF

'<span style="color: #008c00;">2</span><span style="color: #800080;">:</span> alleen wit
IF zwart <span style="color: #808030;">=</span> <span style="color: #008c00;">0</span> THEN
  FOR i <span style="color: #808030;">=</span> <span style="color: #008c00;">1</span> TO wit
    PRINT CHR$<span style="color: #808030;">(</span><span style="color: #008c00;">63</span><span style="color: #808030;">)</span><span style="color: #800080;">;</span> <span style="color: #800000;">"</span>  <span style="color: #800000;">"</span><span style="color: #800080;">;</span>
  NEXT i
  PRINT
  GOTO daarna
END IF

'<span style="color: #008c00;">3</span><span style="color: #800080;">:</span> alleen zwart
IF wit <span style="color: #808030;">=</span> <span style="color: #008c00;">0</span> THEN
  FOR i <span style="color: #808030;">=</span> <span style="color: #008c00;">1</span> TO zwart
    PRINT CHR$<span style="color: #808030;">(</span><span style="color: #008c00;">33</span><span style="color: #808030;">)</span><span style="color: #800080;">;</span> <span style="color: #800000;">"</span>  <span style="color: #800000;">"</span><span style="color: #800080;">;</span>
  NEXT i
  PRINT
  GOTO daarna
END IF

'<span style="color: #008c00;">4</span><span style="color: #800080;">:</span> zwart en wit
FOR i <span style="color: #808030;">=</span> <span style="color: #008c00;">1</span> TO zwart
  PRINT CHR$<span style="color: #808030;">(</span><span style="color: #008c00;">33</span><span style="color: #808030;">)</span><span style="color: #800080;">;</span> <span style="color: #800000;">"</span>  <span style="color: #800000;">"</span><span style="color: #800080;">;</span>
NEXT i
FOR i <span style="color: #808030;">=</span> <span style="color: #008c00;">1</span> TO wit
  PRINT CHR$<span style="color: #808030;">(</span><span style="color: #008c00;">63</span><span style="color: #808030;">)</span><span style="color: #800080;">;</span> <span style="color: #800000;">"</span>  <span style="color: #800000;">"</span><span style="color: #800080;">;</span>
NEXT i
PRINT

<span style="color: #e34adc;">daarna:</span>
PRINT
IF beurt <span style="color: #808030;">&lt;</span> <span style="color: #008c00;">10</span> THEN
  LOCATE <span style="color: #808030;">,</span> <span style="color: #008c00;">5</span>
  beurt <span style="color: #808030;">=</span> beurt <span style="color: #808030;">+</span> <span style="color: #008c00;">1</span>
  GOTO l1
ELSE
  LOCATE <span style="color: #808030;">,</span> <span style="color: #008c00;">6</span>
  COLOR <span style="color: #008c00;">14</span><span style="color: #808030;">,</span> <span style="color: #008c00;">2</span>
  PRINT <span style="color: #800000;">"</span>        <span style="color: #800000;">"</span><span style="color: #800080;">;</span>
  FOR i <span style="color: #808030;">=</span> <span style="color: #008c00;">1</span> TO <span style="color: #008c00;">4</span>
    PRINT x$<span style="color: #808030;">(</span>i<span style="color: #808030;">)</span><span style="color: #800080;">;</span> <span style="color: #800000;">"</span>    <span style="color: #800000;">"</span><span style="color: #800080;">;</span>
  NEXT i
  PRINT <span style="color: #800000;">"</span><span style="color: #0000e6;">Is de juiste combinatie.</span><span style="color: #800000;">"</span>
  GOTO einde4
END IF

<span style="color: #e34adc;">klaar:</span>
FOR i <span style="color: #808030;">=</span> <span style="color: #008c00;">1</span> TO <span style="color: #008c00;">4</span>
  PRINT CHR$<span style="color: #808030;">(</span><span style="color: #008c00;">33</span><span style="color: #808030;">)</span><span style="color: #800080;">;</span> <span style="color: #800000;">"</span>  <span style="color: #800000;">"</span><span style="color: #800080;">;</span>
NEXT i
COLOR <span style="color: #008c00;">14</span><span style="color: #808030;">,</span> <span style="color: #008c00;">2</span>
PRINT <span style="color: #800000;">"</span><span style="color: #0000e6;">         geraden!</span><span style="color: #800000;">"</span>

<span style="color: #e34adc;">einde4:</span>
COLOR <span style="color: #008c00;">14</span><span style="color: #808030;">,</span> <span style="color: #008c00;">2</span>
LINE <span style="color: #808030;">(</span><span style="color: #008c00;">220</span><span style="color: #808030;">,</span> <span style="color: #008c00;">90</span><span style="color: #808030;">)</span><span style="color: #808030;">-</span><span style="color: #808030;">(</span><span style="color: #008c00;">410</span><span style="color: #808030;">,</span> <span style="color: #008c00;">160</span><span style="color: #808030;">)</span><span style="color: #808030;">,</span> <span style="color: #008c00;">5</span><span style="color: #808030;">,</span> BF
LINE <span style="color: #808030;">(</span><span style="color: #008c00;">219</span><span style="color: #808030;">,</span> <span style="color: #008c00;">90</span><span style="color: #808030;">)</span><span style="color: #808030;">-</span><span style="color: #808030;">(</span><span style="color: #008c00;">410</span><span style="color: #808030;">,</span> <span style="color: #008c00;">161</span><span style="color: #808030;">)</span><span style="color: #808030;">,</span> <span style="color: #008c00;">8</span><span style="color: #808030;">,</span> B
LINE <span style="color: #808030;">(</span><span style="color: #008c00;">233</span><span style="color: #808030;">,</span> <span style="color: #008c00;">100</span><span style="color: #808030;">)</span><span style="color: #808030;">-</span><span style="color: #808030;">(</span><span style="color: #008c00;">397</span><span style="color: #808030;">,</span> <span style="color: #008c00;">150</span><span style="color: #808030;">)</span><span style="color: #808030;">,</span> <span style="color: #008c00;">9</span><span style="color: #808030;">,</span> BF
LINE <span style="color: #808030;">(</span><span style="color: #008c00;">246</span><span style="color: #808030;">,</span> <span style="color: #008c00;">111</span><span style="color: #808030;">)</span><span style="color: #808030;">-</span><span style="color: #808030;">(</span><span style="color: #008c00;">385</span><span style="color: #808030;">,</span> <span style="color: #008c00;">140</span><span style="color: #808030;">)</span><span style="color: #808030;">,</span> <span style="color: #008c00;">12</span><span style="color: #808030;">,</span> B
LOCATE <span style="color: #008c00;">9</span><span style="color: #808030;">,</span> <span style="color: #008c00;">32</span>
PRINT <span style="color: #800000;">"</span><span style="color: #0000e6;">Nog een keer j/n?</span><span style="color: #800000;">"</span>
LOCATE <span style="color: #008c00;">10</span><span style="color: #808030;">,</span> <span style="color: #008c00;">32</span>
PRINT <span style="color: #800000;">"</span>                 <span style="color: #800000;">"</span>
LOCATE <span style="color: #008c00;">10</span><span style="color: #808030;">,</span> <span style="color: #008c00;">40</span>
INPUT <span style="color: #800000;">"</span><span style="color: #800000;">"</span><span style="color: #808030;">,</span> keuze$
IF keuze$ <span style="color: #808030;">=</span> <span style="color: #800000;">"</span><span style="color: #0000e6;">n</span><span style="color: #800000;">"</span> THEN
GOTO banana
END IF
IF keuze$ <span style="color: #808030;">=</span> <span style="color: #800000;">"</span><span style="color: #0000e6;">j</span><span style="color: #800000;">"</span> THEN
GOTO mastmind
ELSE
LOCATE <span style="color: #008c00;">10</span><span style="color: #808030;">,</span> <span style="color: #008c00;">32</span>
PRINT <span style="color: #800000;">"</span><span style="color: #0000e6;">Ongeldig antwoord</span><span style="color: #800000;">"</span>
FOR wacht <span style="color: #808030;">=</span> <span style="color: #008c00;">1</span> TO <span style="color: #008c00;">1500</span>
NEXT wacht
GOTO einde
END IF

<span style="color: #008c00;">1000</span> SYSTEM

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

GOTO mastermind

mastermind:

CLS

SCREEN 8

COLOR 0, 2

RANDOMIZE TIMER

FOR t = 1 TO 300

kleur:

i = RND

IF i < .25 THEN

kleur = 1

ELSE

IF i < .5 THEN

kleur = 1

ELSE

IF i < .75 THEN

kleur = 6

ELSE

kleur = 9

END IF

teken:

lr = INT(RND * 600)

bb = INT(RND * 300)

LINE (lr, bb)-(lr + 8, bb + 8), kleur, BF

NEXT t

COLOR 14, 2

LOCATE 12, 27

PRINT "Welkom in Mastermind"

LOCATE 15, 20

PRINT "Geprogrammeerd door Marco de Krijger @"

PLAY "l8 a< b< c> d> e> f> l4 g "

FOR flash = 1 TO 400

NEXT flash

LOCATE 22, 30

COLOR 5, 2

PRINT "Druk een toets"

FOR flashing = 1 TO 400

NEXT flashing

LOCATE 22, 30

COLOR 10, 2

PRINT "Druk een toets"

LOOP WHILE INKEY$ = ""

mastmind:

CLS

SCREEN 9

COLOR 10, 2

LOCATE 2, 30

PRINT "M A S T E R M I N D"

LOCATE 25, 5

PRINT "Druk 'H' voor Help"

COLOR 12, 2

LOCATE 4, 5

'bepalen toevalsgetallen tussen 0 en 9

RANDOMIZE TIMER

FOR i = 1 TO 4

x$(i) = MID$(STR$(INT(10 * RND)), 2, 1)

NEXT i

beurt = 1

l1:

nummer = 1

beurt$ = MID$(STR$(beurt), 2)

IF beurt <= 9 THEN LOCATE , 5

PRINT " ";

PRINT "("; beurt$; ") ";

l2:

toets$ = INKEY$

IF toets$ = "" THEN GOTO l2

IF toets$ < "0" OR toets$ > "9" THEN GOTO l2

poging$(nummer) = toets$

PRINT toets$; " ";

IF nummer < 4 THEN

nummer = nummer + 1

GOTO l2

END IF

PRINT " ";

zwart = 0

wit = 0

'beoordelen 1

FOR i = 1 TO 4

bron(i) = 0

doel(i) = 0

NEXT i

FOR i = 1 TO 4

IF poging$(i) <> x$(i) THEN GOTO nxt1

zwart = zwart + 1

doel(i) = 1

bron(i) = 1

nxt1:

NEXT i

'beoordelen 2

FOR i = 1 TO 4

FOR j = 1 TO 4

IF zwart + wit = 4 THEN GOTO nxt2

IF i = j THEN GOTO nxt2

IF doel(j) THEN GOTO nxt2

IF bron(i) THEN GOTO nxt2

IF pogint$(i) <> x$(j) THEN GOTO nxt2

wit = wit + 1

doel(j) = 1

bron(i) = 1

nxt2:

NEXT j

NEXT i

'goed/fout/einde

IF zwart = 4 THEN GOTO klaar

'1: niets goed

IF zwart = 0 AND wit = 0 THEN

PRINT " [niets]"

GOTO daarna

END IF

'2: alleen wit

IF zwart = 0 THEN

FOR i = 1 TO wit

PRINT CHR$(63); " ";

NEXT i

GOTO daarna

END IF

'3: alleen zwart

IF wit = 0 THEN

FOR i = 1 TO zwart

PRINT CHR$(33); " ";

NEXT i

GOTO daarna

END IF

'4: zwart en wit

FOR i = 1 TO zwart

NEXT i

FOR i = 1 TO wit

NEXT i

daarna:

IF beurt < 10 THEN

LOCATE , 5

beurt = beurt + 1

GOTO l1

ELSE

LOCATE , 6

COLOR 14, 2

PRINT " ";

FOR i = 1 TO 4

PRINT x$(i); " ";

NEXT i

PRINT "Is de juiste combinatie."

GOTO einde4

END IF

klaar:

FOR i = 1 TO 4

NEXT i

COLOR 14, 2

PRINT " geraden!"

einde4:

COLOR 14, 2

LINE (220, 90)-(410, 160), 5, BF

LINE (219, 90)-(410, 161), 8, B

LINE (233, 100)-(397, 150), 9, BF

LINE (246, 111)-(385, 140), 12, B

LOCATE 9, 32

PRINT "Nog een keer j/n?"

LOCATE 10, 32

PRINT " "

LOCATE 10, 40

INPUT "", keuze$

IF keuze$ = "n" THEN

GOTO banana

END IF

IF keuze$ = "j" THEN

GOTO mastmind

ELSE

LOCATE 10, 32

PRINT "Ongeldig antwoord"

FOR wacht = 1 TO 1500

NEXT wacht

GOTO einde

END IF

1000 SYSTEM

And the screen capture:

Month: March 2016

Code nostalgia with Quick Basic

Facts and stats

The code