Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape17a_acorn_eu_1990_december.wav » R.GuessGm

R.GuessGm

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 tapes » Electron_User » Electron_User_tape17a_acorn_eu_1990_december.wav
Filename: R.GuessGm
Read OK:
File size: 029B bytes
Load address: FFFF1A00
Exec address: FFFF8023
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
   10REM Number guessing game
   20REM by Julia Siddon
   30REM (c) The Micro User
   40REM December 1990
   50MODE 7:seed=RND(-TIME):PRINT "Number guessing game   by Julia Siddon"''
   60REPEAT:INPUT "Top of number range (must be 50 or more): "max%:IF max%=0 THEN END ELSE UNTIL max%>49
   70number=RND(max%):CLS:PRINT "Number guessing game   by Julia Siddon"'''"I have thought of a number between 1 and";max%;". All you have to do is guess it.":trys=1:REPEAT
   80REPEAT:INPUT '"Enter your guess: "guess%:UNTIL guess%>=1 AND guess%<=max%
   90IF guess%=number THEN PRINT '"CORRECT!"'"You needed ";trys;" attempts."''"Press any key for another go.....":REPEAT UNTIL GET:RUN
  100IF guess%<number THEN PRINT '"It is higher than that." ELSE PRINT '"It is lower than that."
  110trys=trys+1:UNTIL 0

� Number guessing game
� by Julia Siddon
� (c) The Micro User
(� December 1990
2?� 7:seed=�(-�):� "Number guessing game   by Julia Siddon"''
<Q�:� "Top of number range (must be 50 or more): "max%:� max%=0 � � � � max%>49
F�number=�(max%):�:� "Number guessing game   by Julia Siddon"'''"I have thought of a number between 1 and";max%;". All you have to do is guess it.":trys=1:�
P>�:� '"Enter your guess: "guess%:� guess%>=1 � guess%<=max%
Zp� guess%=number � � '"CORRECT!"'"You needed ";trys;" attempts."''"Press any key for another go.....":� � �:�
dP� guess%<number � � '"It is higher than that." � � '"It is lower than that."
ntrys=trys+1:� 0
�
00000000  0d 00 0a 1a f4 20 4e 75  6d 62 65 72 20 67 75 65  |..... Number gue|
00000010  73 73 69 6e 67 20 67 61  6d 65 0d 00 14 15 f4 20  |ssing game..... |
00000020  62 79 20 4a 75 6c 69 61  20 53 69 64 64 6f 6e 0d  |by Julia Siddon.|
00000030  00 1e 18 f4 20 28 63 29  20 54 68 65 20 4d 69 63  |.... (c) The Mic|
00000040  72 6f 20 55 73 65 72 0d  00 28 13 f4 20 44 65 63  |ro User..(.. Dec|
00000050  65 6d 62 65 72 20 31 39  39 30 0d 00 32 3f eb 20  |ember 1990..2?. |
00000060  37 3a 73 65 65 64 3d b3  28 2d 91 29 3a f1 20 22  |7:seed=.(-.):. "|
00000070  4e 75 6d 62 65 72 20 67  75 65 73 73 69 6e 67 20  |Number guessing |
00000080  67 61 6d 65 20 20 20 62  79 20 4a 75 6c 69 61 20  |game   by Julia |
00000090  53 69 64 64 6f 6e 22 27  27 0d 00 3c 51 f5 3a e8  |Siddon"''..<Q.:.|
000000a0  20 22 54 6f 70 20 6f 66  20 6e 75 6d 62 65 72 20  | "Top of number |
000000b0  72 61 6e 67 65 20 28 6d  75 73 74 20 62 65 20 35  |range (must be 5|
000000c0  30 20 6f 72 20 6d 6f 72  65 29 3a 20 22 6d 61 78  |0 or more): "max|
000000d0  25 3a e7 20 6d 61 78 25  3d 30 20 8c 20 e0 20 8b  |%:. max%=0 . . .|
000000e0  20 fd 20 6d 61 78 25 3e  34 39 0d 00 46 9e 6e 75  | . max%>49..F.nu|
000000f0  6d 62 65 72 3d b3 28 6d  61 78 25 29 3a db 3a f1  |mber=.(max%):.:.|
00000100  20 22 4e 75 6d 62 65 72  20 67 75 65 73 73 69 6e  | "Number guessin|
00000110  67 20 67 61 6d 65 20 20  20 62 79 20 4a 75 6c 69  |g game   by Juli|
00000120  61 20 53 69 64 64 6f 6e  22 27 27 27 22 49 20 68  |a Siddon"'''"I h|
00000130  61 76 65 20 74 68 6f 75  67 68 74 20 6f 66 20 61  |ave thought of a|
00000140  20 6e 75 6d 62 65 72 20  62 65 74 77 65 65 6e 20  | number between |
00000150  31 20 61 6e 64 22 3b 6d  61 78 25 3b 22 2e 20 41  |1 and";max%;". A|
00000160  6c 6c 20 79 6f 75 20 68  61 76 65 20 74 6f 20 64  |ll you have to d|
00000170  6f 20 69 73 20 67 75 65  73 73 20 69 74 2e 22 3a  |o is guess it.":|
00000180  74 72 79 73 3d 31 3a f5  0d 00 50 3e f5 3a e8 20  |trys=1:...P>.:. |
00000190  27 22 45 6e 74 65 72 20  79 6f 75 72 20 67 75 65  |'"Enter your gue|
000001a0  73 73 3a 20 22 67 75 65  73 73 25 3a fd 20 67 75  |ss: "guess%:. gu|
000001b0  65 73 73 25 3e 3d 31 20  80 20 67 75 65 73 73 25  |ess%>=1 . guess%|
000001c0  3c 3d 6d 61 78 25 0d 00  5a 70 e7 20 67 75 65 73  |<=max%..Zp. gues|
000001d0  73 25 3d 6e 75 6d 62 65  72 20 8c 20 f1 20 27 22  |s%=number . . '"|
000001e0  43 4f 52 52 45 43 54 21  22 27 22 59 6f 75 20 6e  |CORRECT!"'"You n|
000001f0  65 65 64 65 64 20 22 3b  74 72 79 73 3b 22 20 61  |eeded ";trys;" a|
00000200  74 74 65 6d 70 74 73 2e  22 27 27 22 50 72 65 73  |ttempts."''"Pres|
00000210  73 20 61 6e 79 20 6b 65  79 20 66 6f 72 20 61 6e  |s any key for an|
00000220  6f 74 68 65 72 20 67 6f  2e 2e 2e 2e 2e 22 3a f5  |other go.....":.|
00000230  20 fd 20 a5 3a f9 0d 00  64 50 e7 20 67 75 65 73  | . .:...dP. gues|
00000240  73 25 3c 6e 75 6d 62 65  72 20 8c 20 f1 20 27 22  |s%<number . . '"|
00000250  49 74 20 69 73 20 68 69  67 68 65 72 20 74 68 61  |It is higher tha|
00000260  6e 20 74 68 61 74 2e 22  20 8b 20 f1 20 27 22 49  |n that." . . '"I|
00000270  74 20 69 73 20 6c 6f 77  65 72 20 74 68 61 6e 20  |t is lower than |
00000280  74 68 61 74 2e 22 0d 00  6e 13 74 72 79 73 3d 74  |that."..n.trys=t|
00000290  72 79 73 2b 31 3a fd 20  30 0d ff                 |rys+1:. 0..|
0000029b
R.GuessGm.m0
R.GuessGm.m1
R.GuessGm.m2
R.GuessGm.m4
R.GuessGm.m5