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:
- AEW website » mu » mu_5_25_discs_Micro_User_08_10_D-MU08_10.ssd » R.GuessGm
- AEW website » mu » mu_Micro_User_08_10_MU8-10_B.uef » R.GuessGm
- Personal collection » Acorn tapes » Electron_User » Electron_User_tape17a_acorn_eu_1990_december.wav » R.GuessGm
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