Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_20.ADF » G/MMind

G/MMind

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_20.ADF
Filename: G/MMind
Read OK: ✔
File size: 0A8D bytes
Load address: FFFF1D00
Exec address: FFFF8023
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10REM  MASTERMIND    
   20REM Written for EUG (c) Ross Little 
   50ONERRORRUN:CLEAR
   60PROCinit
   70REPEAT
   80MODE1
   90PROCintro
  100PROCnumber
  110MODE2
  120PROCscreen
  130REPEAT
  140PROCchoose
  150PROCcheck
  160moves=moves+1
  170UNTILtimeORnumber
  180FORwait=0TO500:NEXT
  190IFtimeTHENPROCtime
  200IFnumberTHENPROCwon
  210UNTILFALSE
  230DEFPROCinit
  240DIMlog%(3),num%(8)
  250DIMused%(9),guess%(8)
  260FORread%=0TO3
  270READlog%(read%)
  280NEXTread%
  290DATA 0,1,3,7
  300VDU23,128,0,126,126,126,126,126,126,0
  310ENDPROC
  330DEFPROCintro
  340PROCappear(0)
  350VDU23,1,0;0;0;0;
  360COLOUR129:COLOUR3:CLS
  370PRINT'''TAB(9)"EUG Issue 20 Presents"
  380PRINT'TAB(15)"MASTERMIND"'TAB(15)"~~~~~~~~~~"
  390COLOUR0
  400PRINT'"A game for one player against their"'"Electron."
  410PRINT'"The computer will choose a random"'"number.  All the digits will be"'"different.  You must guess this number."
  420PRINT'"The computer will give you clues:"':VDU17,3,128:PRINT" is a right digit in the right place."':VDU17,0,128,17,3:PRINT" is a right digit in the wrong place.":VDU17,0
  430PRINT'"The computer will sound a low tone if"'"all the digits are wrong."
  440PRINT'"You will get more chances to guess, the"'"more digits there are in the number."
  450COLOUR3:PRINT'"How many digits do you want the number"'"to be (3-8)?"
  460PROCappear(1)
  470REPEAT:dig%=GET-48
  480UNTILdig%>2ANDdig%<9
  490max=10+((dig%-3)*3):num$=""
  500moves=1:time=FALSE:number=FALSE
  510ENDPROC
  530DEFPROCappear(opt%)
  540FORcol%=0TO3
  550IFopt%=0VDU19,col%,0;0;
  560IFopt%=1VDU19,col%,log%(col%);0;
  570NEXTcol%
  580ENDPROC
  600DEFPROCnumber
  610FORwipe%=0TO9
  620used%(wipe%)=FALSE
  630NEXTwipe%
  640FORchoose%=1TOdig%
  650rand=RND(10)-2
  660REPEAT
  670rand=rand+1
  680IFrand=10rand=0
  690num%(choose%)=rand
  700UNTILused%(rand)=FALSE
  710used%(rand)=TRUE:num$=num$+STR$(rand)
  720NEXTchoose%
  730ENDPROC
  750DEFPROCscreen
  760VDU23,1,0;0;0;0;
  770COLOUR129:COLOUR3:CLS
  780PRINTTAB(3,2)"**MASTERMIND**"
  790VDU28,0,28,19,4
  800COLOUR131:COLOUR1:CLS
  810PRINTTAB(0,12-INT(max/2));
  820ENDPROC
  840DEFPROCchoose
  850COLOUR1
  860PRINTTAB(5-INT(dig%/2));
  870VDU23,1,1,0;0;0;0;
  880*FX15,1
  890FORentry=1TOdig%
  900REPEAT
  910REPEAT:guess%(entry)=GET-48
  920UNTILguess%(entry)>-1ANDguess%(entry)<10
  930rep%=0
  940FORcheck=1TOentry-1
  950IFguess%(entry)=guess%(check)ANDentry>1THENrep%=1
  960NEXTcheck
  970UNTILrep%=0
  980PRINT;guess%(entry);
  990NEXTentry
 1000ENDPROC
 1020DEFPROCcheck
 1030VDU23,1,0,0;0;0;0;
 1040tally=0:correct=0
 1050PRINTTAB(15-INT(dig%/2));
 1060FORcheck=1TOdig%
 1070col=-1
 1080IFused%(guess%(check))=TRUEcol=0
 1090IFnum%(check)=guess%(check)col=7:correct=correct+1
 1100IFcol>-1THENtally=tally+1:COLOURcol:PRINT;CHR$128;:SOUND1,-15,180,3:FORwait=0TO500:NEXT
 1110NEXT:PRINT
 1120IFtally=0SOUND1,-15,50,6:FORwait=0TO500:NEXT
 1130IFmoves=max time=TRUE
 1140IFcorrect=dig%number=TRUE:time=FALSE
 1150ENDPROC
 1170DEFPROCtime
 1180VDU26:COLOUR129:COLOUR7
 1190PRINTTAB(4,29)"OUT OF GOES!"
 1200PRINTTAB(10-(6+(LEN(num$)/2)),30)"The number: ";num$
 1210PRINTTAB(1,31)"Please press SPACE";
 1220FORsound=160TO10STEP-4
 1230SOUND1,-15,sound,1
 1240NEXTsound
 1250REPEATUNTILGET=32
 1260ENDPROC
 1280DEFPROCwon
 1290VDU26:COLOUR129:COLOUR7
 1300PRINTTAB(2,29)"CONGRATULATIONS!"
 1310PRINTTAB(3,30)"You guessed it"
 1320PRINTTAB(1,31)"Please press SPACE";
 1330FORsound=0TO250STEP5
 1340SOUND1,-15*sound/250,sound,1
 1350NEXTsound
 1360FORsound=250TO0STEP-5
 1370SOUND1,-15*sound/250,sound,1
 1380NEXTsound
 1390REPEATUNTILGET=32
 1400ENDPROC


�  MASTERMIND    
&� Written for EUG (c) Ross Little 
2	�:�
<	�init
F�
P�1
Z
�intro
d�number
n�2
x�screen
��
��choose
�
�check
�moves=moves+1
��time�number
��wait=0�500:�
��time��time
��number��won
���
�
��init
��log%(3),num%(8)
��used%(9),guess%(8)
�read%=0�3
�log%(read%)

�read%
"
� 0,1,3,7
,'�23,128,0,126,126,126,126,126,126,0
6�
J��intro
T�appear(0)
^�23,1,0;0;0;0;
h
�129:�3:�
r"�'''�9)"EUG Issue 20 Presents"
|'�'�15)"MASTERMIND"'�15)"~~~~~~~~~~"
��0
�7�'"A game for one player against their"'"Electron."
�u�'"The computer will choose a random"'"number.  All the digits will be"'"different.  You must guess this number."
���'"The computer will give you clues:"':�17,3,128:�" is a right digit in the right place."':�17,0,128,17,3:�" is a right digit in the wrong place.":�17,0
�I�'"The computer will sound a low tone if"'"all the digits are wrong."
�V�'"You will get more chances to guess, the"'"more digits there are in the number."
�@�3:�'"How many digits do you want the number"'"to be (3-8)?"
��appear(1)
��:dig%=�-48
��dig%>2�dig%<9
�max=10+((dig%-3)*3):num$=""
�moves=1:time=�:number=�
��
��appear(opt%)

�col%=0�3
&�opt%=0�19,col%,0;0;
0!�opt%=1�19,col%,log%(col%);0;
:	�col%
D�
X��number
b�wipe%=0�9
lused%(wipe%)=�
v
�wipe%
��choose%=1�dig%
�rand=�(10)-2
��
�rand=rand+1
��rand=10rand=0
�num%(choose%)=rand
��used%(rand)=�
�#used%(rand)=�:num$=num$+�(rand)
��choose%
��
���screen
��23,1,0;0;0;0;

�129:�3:�
�3,2)"**MASTERMIND**"
�28,0,28,19,4
 
�131:�1:�
*�0,12-�(max/2));
4�
H��choose
R�1
\�5-�(dig%/2));
f�23,1,1,0;0;0;0;
p*FX15,1
z�entry=1�dig%
��
��:guess%(entry)=�-48
�&�guess%(entry)>-1�guess%(entry)<10
�
rep%=0
��check=1�entry-1
�/�guess%(entry)=guess%(check)�entry>1�rep%=1
�
�check
��rep%=0
��;guess%(entry);
�
�entry
��
���check
�23,1,0,0;0;0;0;
tally=0:correct=0
�15-�(dig%/2));
$�check=1�dig%
.
col=-1
8 �used%(guess%(check))=�col=0
B5�num%(check)=guess%(check)col=7:correct=correct+1
LA�col>-1�tally=tally+1:�col:�;�128;:�1,-15,180,3:�wait=0�500:�
V�:�
`%�tally=0�1,-15,50,6:�wait=0�500:�
j�moves=max time=�
t �correct=dig%number=�:time=�
~�
�
��time
��26:�129:�7
��4,29)"OUT OF GOES!"
�/�10-(6+(�(num$)/2)),30)"The number: ";num$
� �1,31)"Please press SPACE";
��sound=160�10�-4
��1,-15,sound,1
�
�sound
�
���=32
��
	��won

�26:�129:�7
�2,29)"CONGRATULATIONS!"
�3,30)"You guessed it"
( �1,31)"Please press SPACE";
2�sound=0�250�5
<�1,-15*sound/250,sound,1
F
�sound
P�sound=250�0�-5
Z�1,-15*sound/250,sound,1
d
�sound
n
���=32
x�
�
00000000  0d 00 0a 15 f4 20 20 4d  41 53 54 45 52 4d 49 4e  |.....  MASTERMIN|
00000010  44 20 20 20 20 0d 00 14  26 f4 20 57 72 69 74 74  |D    ...&. Writt|
00000020  65 6e 20 66 6f 72 20 45  55 47 20 28 63 29 20 52  |en for EUG (c) R|
00000030  6f 73 73 20 4c 69 74 74  6c 65 20 0d 00 32 09 ee  |oss Little ..2..|
00000040  85 f9 3a d8 0d 00 3c 09  f2 69 6e 69 74 0d 00 46  |..:...<..init..F|
00000050  05 f5 0d 00 50 06 eb 31  0d 00 5a 0a f2 69 6e 74  |....P..1..Z..int|
00000060  72 6f 0d 00 64 0b f2 6e  75 6d 62 65 72 0d 00 6e  |ro..d..number..n|
00000070  06 eb 32 0d 00 78 0b f2  73 63 72 65 65 6e 0d 00  |..2..x..screen..|
00000080  82 05 f5 0d 00 8c 0b f2  63 68 6f 6f 73 65 0d 00  |........choose..|
00000090  96 0a f2 63 68 65 63 6b  0d 00 a0 11 6d 6f 76 65  |...check....move|
000000a0  73 3d 6d 6f 76 65 73 2b  31 0d 00 aa 10 fd 74 69  |s=moves+1.....ti|
000000b0  6d 65 84 6e 75 6d 62 65  72 0d 00 b4 11 e3 77 61  |me.number.....wa|
000000c0  69 74 3d 30 b8 35 30 30  3a ed 0d 00 be 0f e7 74  |it=0.500:......t|
000000d0  69 6d 65 8c f2 74 69 6d  65 0d 00 c8 10 e7 6e 75  |ime..time.....nu|
000000e0  6d 62 65 72 8c f2 77 6f  6e 0d 00 d2 06 fd a3 0d  |mber..won.......|
000000f0  00 e6 0a dd f2 69 6e 69  74 0d 00 f0 14 de 6c 6f  |.....init.....lo|
00000100  67 25 28 33 29 2c 6e 75  6d 25 28 38 29 0d 00 fa  |g%(3),num%(8)...|
00000110  17 de 75 73 65 64 25 28  39 29 2c 67 75 65 73 73  |..used%(9),guess|
00000120  25 28 38 29 0d 01 04 0e  e3 72 65 61 64 25 3d 30  |%(8).....read%=0|
00000130  b8 33 0d 01 0e 10 f3 6c  6f 67 25 28 72 65 61 64  |.3.....log%(read|
00000140  25 29 0d 01 18 0a ed 72  65 61 64 25 0d 01 22 0d  |%).....read%..".|
00000150  dc 20 30 2c 31 2c 33 2c  37 0d 01 2c 27 ef 32 33  |. 0,1,3,7..,'.23|
00000160  2c 31 32 38 2c 30 2c 31  32 36 2c 31 32 36 2c 31  |,128,0,126,126,1|
00000170  32 36 2c 31 32 36 2c 31  32 36 2c 31 32 36 2c 30  |26,126,126,126,0|
00000180  0d 01 36 05 e1 0d 01 4a  0b dd f2 69 6e 74 72 6f  |..6....J...intro|
00000190  0d 01 54 0e f2 61 70 70  65 61 72 28 30 29 0d 01  |..T..appear(0)..|
000001a0  5e 12 ef 32 33 2c 31 2c  30 3b 30 3b 30 3b 30 3b  |^..23,1,0;0;0;0;|
000001b0  0d 01 68 0d fb 31 32 39  3a fb 33 3a db 0d 01 72  |..h..129:.3:...r|
000001c0  22 f1 27 27 27 8a 39 29  22 45 55 47 20 49 73 73  |".'''.9)"EUG Iss|
000001d0  75 65 20 32 30 20 50 72  65 73 65 6e 74 73 22 0d  |ue 20 Presents".|
000001e0  01 7c 27 f1 27 8a 31 35  29 22 4d 41 53 54 45 52  |.|'.'.15)"MASTER|
000001f0  4d 49 4e 44 22 27 8a 31  35 29 22 7e 7e 7e 7e 7e  |MIND"'.15)"~~~~~|
00000200  7e 7e 7e 7e 7e 22 0d 01  86 06 fb 30 0d 01 90 37  |~~~~~".....0...7|
00000210  f1 27 22 41 20 67 61 6d  65 20 66 6f 72 20 6f 6e  |.'"A game for on|
00000220  65 20 70 6c 61 79 65 72  20 61 67 61 69 6e 73 74  |e player against|
00000230  20 74 68 65 69 72 22 27  22 45 6c 65 63 74 72 6f  | their"'"Electro|
00000240  6e 2e 22 0d 01 9a 75 f1  27 22 54 68 65 20 63 6f  |n."...u.'"The co|
00000250  6d 70 75 74 65 72 20 77  69 6c 6c 20 63 68 6f 6f  |mputer will choo|
00000260  73 65 20 61 20 72 61 6e  64 6f 6d 22 27 22 6e 75  |se a random"'"nu|
00000270  6d 62 65 72 2e 20 20 41  6c 6c 20 74 68 65 20 64  |mber.  All the d|
00000280  69 67 69 74 73 20 77 69  6c 6c 20 62 65 22 27 22  |igits will be"'"|
00000290  64 69 66 66 65 72 65 6e  74 2e 20 20 59 6f 75 20  |different.  You |
000002a0  6d 75 73 74 20 67 75 65  73 73 20 74 68 69 73 20  |must guess this |
000002b0  6e 75 6d 62 65 72 2e 22  0d 01 a4 9c f1 27 22 54  |number.".....'"T|
000002c0  68 65 20 63 6f 6d 70 75  74 65 72 20 77 69 6c 6c  |he computer will|
000002d0  20 67 69 76 65 20 79 6f  75 20 63 6c 75 65 73 3a  | give you clues:|
000002e0  22 27 3a ef 31 37 2c 33  2c 31 32 38 3a f1 22 20  |"':.17,3,128:." |
000002f0  69 73 20 61 20 72 69 67  68 74 20 64 69 67 69 74  |is a right digit|
00000300  20 69 6e 20 74 68 65 20  72 69 67 68 74 20 70 6c  | in the right pl|
00000310  61 63 65 2e 22 27 3a ef  31 37 2c 30 2c 31 32 38  |ace."':.17,0,128|
00000320  2c 31 37 2c 33 3a f1 22  20 69 73 20 61 20 72 69  |,17,3:." is a ri|
00000330  67 68 74 20 64 69 67 69  74 20 69 6e 20 74 68 65  |ght digit in the|
00000340  20 77 72 6f 6e 67 20 70  6c 61 63 65 2e 22 3a ef  | wrong place.":.|
00000350  31 37 2c 30 0d 01 ae 49  f1 27 22 54 68 65 20 63  |17,0...I.'"The c|
00000360  6f 6d 70 75 74 65 72 20  77 69 6c 6c 20 73 6f 75  |omputer will sou|
00000370  6e 64 20 61 20 6c 6f 77  20 74 6f 6e 65 20 69 66  |nd a low tone if|
00000380  22 27 22 61 6c 6c 20 74  68 65 20 64 69 67 69 74  |"'"all the digit|
00000390  73 20 61 72 65 20 77 72  6f 6e 67 2e 22 0d 01 b8  |s are wrong."...|
000003a0  56 f1 27 22 59 6f 75 20  77 69 6c 6c 20 67 65 74  |V.'"You will get|
000003b0  20 6d 6f 72 65 20 63 68  61 6e 63 65 73 20 74 6f  | more chances to|
000003c0  20 67 75 65 73 73 2c 20  74 68 65 22 27 22 6d 6f  | guess, the"'"mo|
000003d0  72 65 20 64 69 67 69 74  73 20 74 68 65 72 65 20  |re digits there |
000003e0  61 72 65 20 69 6e 20 74  68 65 20 6e 75 6d 62 65  |are in the numbe|
000003f0  72 2e 22 0d 01 c2 40 fb  33 3a f1 27 22 48 6f 77  |r."...@.3:.'"How|
00000400  20 6d 61 6e 79 20 64 69  67 69 74 73 20 64 6f 20  | many digits do |
00000410  79 6f 75 20 77 61 6e 74  20 74 68 65 20 6e 75 6d  |you want the num|
00000420  62 65 72 22 27 22 74 6f  20 62 65 20 28 33 2d 38  |ber"'"to be (3-8|
00000430  29 3f 22 0d 01 cc 0e f2  61 70 70 65 61 72 28 31  |)?".....appear(1|
00000440  29 0d 01 d6 0f f5 3a 64  69 67 25 3d a5 2d 34 38  |).....:dig%=.-48|
00000450  0d 01 e0 12 fd 64 69 67  25 3e 32 80 64 69 67 25  |.....dig%>2.dig%|
00000460  3c 39 0d 01 ea 1f 6d 61  78 3d 31 30 2b 28 28 64  |<9....max=10+((d|
00000470  69 67 25 2d 33 29 2a 33  29 3a 6e 75 6d 24 3d 22  |ig%-3)*3):num$="|
00000480  22 0d 01 f4 1b 6d 6f 76  65 73 3d 31 3a 74 69 6d  |"....moves=1:tim|
00000490  65 3d a3 3a 6e 75 6d 62  65 72 3d a3 0d 01 fe 05  |e=.:number=.....|
000004a0  e1 0d 02 12 12 dd f2 61  70 70 65 61 72 28 6f 70  |.......appear(op|
000004b0  74 25 29 0d 02 1c 0d e3  63 6f 6c 25 3d 30 b8 33  |t%).....col%=0.3|
000004c0  0d 02 26 18 e7 6f 70 74  25 3d 30 ef 31 39 2c 63  |..&..opt%=0.19,c|
000004d0  6f 6c 25 2c 30 3b 30 3b  0d 02 30 21 e7 6f 70 74  |ol%,0;0;..0!.opt|
000004e0  25 3d 31 ef 31 39 2c 63  6f 6c 25 2c 6c 6f 67 25  |%=1.19,col%,log%|
000004f0  28 63 6f 6c 25 29 3b 30  3b 0d 02 3a 09 ed 63 6f  |(col%);0;..:..co|
00000500  6c 25 0d 02 44 05 e1 0d  02 58 0c dd f2 6e 75 6d  |l%..D....X...num|
00000510  62 65 72 0d 02 62 0e e3  77 69 70 65 25 3d 30 b8  |ber..b..wipe%=0.|
00000520  39 0d 02 6c 12 75 73 65  64 25 28 77 69 70 65 25  |9..l.used%(wipe%|
00000530  29 3d a3 0d 02 76 0a ed  77 69 70 65 25 0d 02 80  |)=...v..wipe%...|
00000540  13 e3 63 68 6f 6f 73 65  25 3d 31 b8 64 69 67 25  |..choose%=1.dig%|
00000550  0d 02 8a 10 72 61 6e 64  3d b3 28 31 30 29 2d 32  |....rand=.(10)-2|
00000560  0d 02 94 05 f5 0d 02 9e  0f 72 61 6e 64 3d 72 61  |.........rand=ra|
00000570  6e 64 2b 31 0d 02 a8 12  e7 72 61 6e 64 3d 31 30  |nd+1.....rand=10|
00000580  72 61 6e 64 3d 30 0d 02  b2 16 6e 75 6d 25 28 63  |rand=0....num%(c|
00000590  68 6f 6f 73 65 25 29 3d  72 61 6e 64 0d 02 bc 12  |hoose%)=rand....|
000005a0  fd 75 73 65 64 25 28 72  61 6e 64 29 3d a3 0d 02  |.used%(rand)=...|
000005b0  c6 23 75 73 65 64 25 28  72 61 6e 64 29 3d b9 3a  |.#used%(rand)=.:|
000005c0  6e 75 6d 24 3d 6e 75 6d  24 2b c3 28 72 61 6e 64  |num$=num$+.(rand|
000005d0  29 0d 02 d0 0c ed 63 68  6f 6f 73 65 25 0d 02 da  |).....choose%...|
000005e0  05 e1 0d 02 ee 0c dd f2  73 63 72 65 65 6e 0d 02  |........screen..|
000005f0  f8 12 ef 32 33 2c 31 2c  30 3b 30 3b 30 3b 30 3b  |...23,1,0;0;0;0;|
00000600  0d 03 02 0d fb 31 32 39  3a fb 33 3a db 0d 03 0c  |.....129:.3:....|
00000610  1a f1 8a 33 2c 32 29 22  2a 2a 4d 41 53 54 45 52  |...3,2)"**MASTER|
00000620  4d 49 4e 44 2a 2a 22 0d  03 16 11 ef 32 38 2c 30  |MIND**".....28,0|
00000630  2c 32 38 2c 31 39 2c 34  0d 03 20 0d fb 31 33 31  |,28,19,4.. ..131|
00000640  3a fb 31 3a db 0d 03 2a  15 f1 8a 30 2c 31 32 2d  |:.1:...*...0,12-|
00000650  a8 28 6d 61 78 2f 32 29  29 3b 0d 03 34 05 e1 0d  |.(max/2));..4...|
00000660  03 48 0c dd f2 63 68 6f  6f 73 65 0d 03 52 06 fb  |.H...choose..R..|
00000670  31 0d 03 5c 13 f1 8a 35  2d a8 28 64 69 67 25 2f  |1..\...5-.(dig%/|
00000680  32 29 29 3b 0d 03 66 14  ef 32 33 2c 31 2c 31 2c  |2));..f..23,1,1,|
00000690  30 3b 30 3b 30 3b 30 3b  0d 03 70 0b 2a 46 58 31  |0;0;0;0;..p.*FX1|
000006a0  35 2c 31 0d 03 7a 11 e3  65 6e 74 72 79 3d 31 b8  |5,1..z..entry=1.|
000006b0  64 69 67 25 0d 03 84 05  f5 0d 03 8e 18 f5 3a 67  |dig%..........:g|
000006c0  75 65 73 73 25 28 65 6e  74 72 79 29 3d a5 2d 34  |uess%(entry)=.-4|
000006d0  38 0d 03 98 26 fd 67 75  65 73 73 25 28 65 6e 74  |8...&.guess%(ent|
000006e0  72 79 29 3e 2d 31 80 67  75 65 73 73 25 28 65 6e  |ry)>-1.guess%(en|
000006f0  74 72 79 29 3c 31 30 0d  03 a2 0a 72 65 70 25 3d  |try)<10....rep%=|
00000700  30 0d 03 ac 14 e3 63 68  65 63 6b 3d 31 b8 65 6e  |0.....check=1.en|
00000710  74 72 79 2d 31 0d 03 b6  2f e7 67 75 65 73 73 25  |try-1.../.guess%|
00000720  28 65 6e 74 72 79 29 3d  67 75 65 73 73 25 28 63  |(entry)=guess%(c|
00000730  68 65 63 6b 29 80 65 6e  74 72 79 3e 31 8c 72 65  |heck).entry>1.re|
00000740  70 25 3d 31 0d 03 c0 0a  ed 63 68 65 63 6b 0d 03  |p%=1.....check..|
00000750  ca 0b fd 72 65 70 25 3d  30 0d 03 d4 14 f1 3b 67  |...rep%=0.....;g|
00000760  75 65 73 73 25 28 65 6e  74 72 79 29 3b 0d 03 de  |uess%(entry);...|
00000770  0a ed 65 6e 74 72 79 0d  03 e8 05 e1 0d 03 fc 0b  |..entry.........|
00000780  dd f2 63 68 65 63 6b 0d  04 06 14 ef 32 33 2c 31  |..check.....23,1|
00000790  2c 30 2c 30 3b 30 3b 30  3b 30 3b 0d 04 10 15 74  |,0,0;0;0;0;....t|
000007a0  61 6c 6c 79 3d 30 3a 63  6f 72 72 65 63 74 3d 30  |ally=0:correct=0|
000007b0  0d 04 1a 14 f1 8a 31 35  2d a8 28 64 69 67 25 2f  |......15-.(dig%/|
000007c0  32 29 29 3b 0d 04 24 11  e3 63 68 65 63 6b 3d 31  |2));..$..check=1|
000007d0  b8 64 69 67 25 0d 04 2e  0a 63 6f 6c 3d 2d 31 0d  |.dig%....col=-1.|
000007e0  04 38 20 e7 75 73 65 64  25 28 67 75 65 73 73 25  |.8 .used%(guess%|
000007f0  28 63 68 65 63 6b 29 29  3d b9 63 6f 6c 3d 30 0d  |(check))=.col=0.|
00000800  04 42 35 e7 6e 75 6d 25  28 63 68 65 63 6b 29 3d  |.B5.num%(check)=|
00000810  67 75 65 73 73 25 28 63  68 65 63 6b 29 63 6f 6c  |guess%(check)col|
00000820  3d 37 3a 63 6f 72 72 65  63 74 3d 63 6f 72 72 65  |=7:correct=corre|
00000830  63 74 2b 31 0d 04 4c 41  e7 63 6f 6c 3e 2d 31 8c  |ct+1..LA.col>-1.|
00000840  74 61 6c 6c 79 3d 74 61  6c 6c 79 2b 31 3a fb 63  |tally=tally+1:.c|
00000850  6f 6c 3a f1 3b bd 31 32  38 3b 3a d4 31 2c 2d 31  |ol:.;.128;:.1,-1|
00000860  35 2c 31 38 30 2c 33 3a  e3 77 61 69 74 3d 30 b8  |5,180,3:.wait=0.|
00000870  35 30 30 3a ed 0d 04 56  07 ed 3a f1 0d 04 60 25  |500:...V..:...`%|
00000880  e7 74 61 6c 6c 79 3d 30  d4 31 2c 2d 31 35 2c 35  |.tally=0.1,-15,5|
00000890  30 2c 36 3a e3 77 61 69  74 3d 30 b8 35 30 30 3a  |0,6:.wait=0.500:|
000008a0  ed 0d 04 6a 15 e7 6d 6f  76 65 73 3d 6d 61 78 20  |...j..moves=max |
000008b0  74 69 6d 65 3d b9 0d 04  74 20 e7 63 6f 72 72 65  |time=...t .corre|
000008c0  63 74 3d 64 69 67 25 6e  75 6d 62 65 72 3d b9 3a  |ct=dig%number=.:|
000008d0  74 69 6d 65 3d a3 0d 04  7e 05 e1 0d 04 92 0a dd  |time=...~.......|
000008e0  f2 74 69 6d 65 0d 04 9c  0f ef 32 36 3a fb 31 32  |.time.....26:.12|
000008f0  39 3a fb 37 0d 04 a6 19  f1 8a 34 2c 32 39 29 22  |9:.7......4,29)"|
00000900  4f 55 54 20 4f 46 20 47  4f 45 53 21 22 0d 04 b0  |OUT OF GOES!"...|
00000910  2f f1 8a 31 30 2d 28 36  2b 28 a9 28 6e 75 6d 24  |/..10-(6+(.(num$|
00000920  29 2f 32 29 29 2c 33 30  29 22 54 68 65 20 6e 75  |)/2)),30)"The nu|
00000930  6d 62 65 72 3a 20 22 3b  6e 75 6d 24 0d 04 ba 20  |mber: ";num$... |
00000940  f1 8a 31 2c 33 31 29 22  50 6c 65 61 73 65 20 70  |..1,31)"Please p|
00000950  72 65 73 73 20 53 50 41  43 45 22 3b 0d 04 c4 14  |ress SPACE";....|
00000960  e3 73 6f 75 6e 64 3d 31  36 30 b8 31 30 88 2d 34  |.sound=160.10.-4|
00000970  0d 04 ce 12 d4 31 2c 2d  31 35 2c 73 6f 75 6e 64  |.....1,-15,sound|
00000980  2c 31 0d 04 d8 0a ed 73  6f 75 6e 64 0d 04 e2 0a  |,1.....sound....|
00000990  f5 fd a5 3d 33 32 0d 04  ec 05 e1 0d 05 00 09 dd  |...=32..........|
000009a0  f2 77 6f 6e 0d 05 0a 0f  ef 32 36 3a fb 31 32 39  |.won.....26:.129|
000009b0  3a fb 37 0d 05 14 1d f1  8a 32 2c 32 39 29 22 43  |:.7......2,29)"C|
000009c0  4f 4e 47 52 41 54 55 4c  41 54 49 4f 4e 53 21 22  |ONGRATULATIONS!"|
000009d0  0d 05 1e 1b f1 8a 33 2c  33 30 29 22 59 6f 75 20  |......3,30)"You |
000009e0  67 75 65 73 73 65 64 20  69 74 22 0d 05 28 20 f1  |guessed it"..( .|
000009f0  8a 31 2c 33 31 29 22 50  6c 65 61 73 65 20 70 72  |.1,31)"Please pr|
00000a00  65 73 73 20 53 50 41 43  45 22 3b 0d 05 32 12 e3  |ess SPACE";..2..|
00000a10  73 6f 75 6e 64 3d 30 b8  32 35 30 88 35 0d 05 3c  |sound=0.250.5..<|
00000a20  1c d4 31 2c 2d 31 35 2a  73 6f 75 6e 64 2f 32 35  |..1,-15*sound/25|
00000a30  30 2c 73 6f 75 6e 64 2c  31 0d 05 46 0a ed 73 6f  |0,sound,1..F..so|
00000a40  75 6e 64 0d 05 50 13 e3  73 6f 75 6e 64 3d 32 35  |und..P..sound=25|
00000a50  30 b8 30 88 2d 35 0d 05  5a 1c d4 31 2c 2d 31 35  |0.0.-5..Z..1,-15|
00000a60  2a 73 6f 75 6e 64 2f 32  35 30 2c 73 6f 75 6e 64  |*sound/250,sound|
00000a70  2c 31 0d 05 64 0a ed 73  6f 75 6e 64 0d 05 6e 0a  |,1..d..sound..n.|
00000a80  f5 fd a5 3d 33 32 0d 05  78 05 e1 0d ff           |...=32..x....|
00000a8d
G/MMind.m0
G/MMind.m1
G/MMind.m2
G/MMind.m4
G/MMind.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .