Home » Archimedes archive » Acorn User » AU 1998-10.adf » Regulars » StarInfo/nonsense/NameGame
StarInfo/nonsense/NameGame
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 » Archimedes archive » Acorn User » AU 1998-10.adf » Regulars |
| Filename: | StarInfo/nonsense/NameGame |
| Read OK: | ✔ |
| File size: | 022E bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1PRINT "This program takes your first name an makes a rhyme out of"
2PRINT "it as dictated by the 60's Song ""The Name Game"""
3INPUT ''"Input You First Name: ";name$
4start$=""
5p%=0
6WHILE FNVowel(MID$(name$,p%+1,1))=0
7p%+=1
8start$+=MID$(name$,p%,1)
9ENDWHILE
10end$=MID$(name$,p%+1,&ff)
11PRINT name$;" ";name$;" bo ";FNz("b");" banana fana fo ";FNz("f");" fe fi mo ";FNz("m");" - ";name$;"!"
12END
13:
14:
15:
16DEF FNVowel(v$)
17CASE v$ OF
18WHEN "a","A","e","E","i","I","o","O","u","U":=1
19ENDCASE
20=0
21:
22:
23:
24DEF FNz(s$)
25IF LEFT$(start$,1)<>s$ THEN =s$+end$ ELSE =end$
26
27
B� "This program takes your first name an makes a rhyme out of"
9� "it as dictated by the 60's Song ""The Name Game"""
&� ''"Input You First Name: ";name$
start$=""
p%=0
ȕ �Vowel(�name$,p%+1,1))=0
p%+=1
start$+=�name$,p%,1)
�
end$=�name$,p%+1,&ff)
d� name$;" ";name$;" bo ";�z("b");" banana fana fo ";�z("f");" fe fi mo ";�z("m");" - ";name$;"!"
�
:
:
:
� �Vowel(v$)
Ȏ v$ �
0� "a","A","e","E","i","I","o","O","u","U":=1
�
=0
:
:
:
� �z(s$)
'� �start$,1)<>s$ � =s$+end$ � =end$
� 00000000 0d 00 01 42 f1 20 22 54 68 69 73 20 70 72 6f 67 |...B. "This prog|
00000010 72 61 6d 20 74 61 6b 65 73 20 79 6f 75 72 20 66 |ram takes your f|
00000020 69 72 73 74 20 6e 61 6d 65 20 61 6e 20 6d 61 6b |irst name an mak|
00000030 65 73 20 61 20 72 68 79 6d 65 20 6f 75 74 20 6f |es a rhyme out o|
00000040 66 22 0d 00 02 39 f1 20 22 69 74 20 61 73 20 64 |f"...9. "it as d|
00000050 69 63 74 61 74 65 64 20 62 79 20 74 68 65 20 36 |ictated by the 6|
00000060 30 27 73 20 53 6f 6e 67 20 22 22 54 68 65 20 4e |0's Song ""The N|
00000070 61 6d 65 20 47 61 6d 65 22 22 22 0d 00 03 26 e8 |ame Game"""...&.|
00000080 20 27 27 22 49 6e 70 75 74 20 59 6f 75 20 46 69 | ''"Input You Fi|
00000090 72 73 74 20 4e 61 6d 65 3a 20 22 3b 6e 61 6d 65 |rst Name: ";name|
000000a0 24 0d 00 04 0d 73 74 61 72 74 24 3d 22 22 0d 00 |$....start$=""..|
000000b0 05 08 70 25 3d 30 0d 00 06 1f c8 95 20 a4 56 6f |..p%=0...... .Vo|
000000c0 77 65 6c 28 c1 6e 61 6d 65 24 2c 70 25 2b 31 2c |wel(.name$,p%+1,|
000000d0 31 29 29 3d 30 0d 00 07 09 70 25 2b 3d 31 0d 00 |1))=0....p%+=1..|
000000e0 08 18 73 74 61 72 74 24 2b 3d c1 6e 61 6d 65 24 |..start$+=.name$|
000000f0 2c 70 25 2c 31 29 0d 00 09 05 ce 0d 00 0a 19 65 |,p%,1).........e|
00000100 6e 64 24 3d c1 6e 61 6d 65 24 2c 70 25 2b 31 2c |nd$=.name$,p%+1,|
00000110 26 66 66 29 0d 00 0b 64 f1 20 6e 61 6d 65 24 3b |&ff)...d. name$;|
00000120 22 20 22 3b 6e 61 6d 65 24 3b 22 20 62 6f 20 22 |" ";name$;" bo "|
00000130 3b a4 7a 28 22 62 22 29 3b 22 20 62 61 6e 61 6e |;.z("b");" banan|
00000140 61 20 66 61 6e 61 20 66 6f 20 22 3b a4 7a 28 22 |a fana fo ";.z("|
00000150 66 22 29 3b 22 20 66 65 20 66 69 20 6d 6f 20 22 |f");" fe fi mo "|
00000160 3b a4 7a 28 22 6d 22 29 3b 22 20 2d 20 22 3b 6e |;.z("m");" - ";n|
00000170 61 6d 65 24 3b 22 21 22 0d 00 0c 05 e0 0d 00 0d |ame$;"!"........|
00000180 05 3a 0d 00 0e 05 3a 0d 00 0f 05 3a 0d 00 10 10 |.:....:....:....|
00000190 dd 20 a4 56 6f 77 65 6c 28 76 24 29 0d 00 11 0b |. .Vowel(v$)....|
000001a0 c8 8e 20 76 24 20 ca 0d 00 12 30 c9 20 22 61 22 |.. v$ ....0. "a"|
000001b0 2c 22 41 22 2c 22 65 22 2c 22 45 22 2c 22 69 22 |,"A","e","E","i"|
000001c0 2c 22 49 22 2c 22 6f 22 2c 22 4f 22 2c 22 75 22 |,"I","o","O","u"|
000001d0 2c 22 55 22 3a 3d 31 0d 00 13 05 cb 0d 00 14 06 |,"U":=1.........|
000001e0 3d 30 0d 00 15 05 3a 0d 00 16 05 3a 0d 00 17 05 |=0....:....:....|
000001f0 3a 0d 00 18 0c dd 20 a4 7a 28 73 24 29 0d 00 19 |:..... .z(s$)...|
00000200 27 e7 20 c0 73 74 61 72 74 24 2c 31 29 3c 3e 73 |'. .start$,1)<>s|
00000210 24 20 8c 20 3d 73 24 2b 65 6e 64 24 20 8b 20 3d |$ . =s$+end$ . =|
00000220 65 6e 64 24 0d 00 1a 04 0d 00 1b 04 0d ff |end$..........|
0000022e 
.