Home » Archimedes archive » Acorn User » AU 1998-06 A.adf » Regulars » StarInfo/Nonsense/LooseVowel
StarInfo/Nonsense/LooseVowel
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-06 A.adf » Regulars |
| Filename: | StarInfo/Nonsense/LooseVowel |
| Read OK: | ✔ |
| File size: | 010F bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10V$="AEIOU":v$="aeiou" 20REPEAT 30 INPUT file$ 40 in=OPENIN(file$) 50 WHILE NOT EOF#in 60 a$=GET$#in 70 b$="" 80 WHILE a$<>"" 90 c$=LEFT$(a$,1) 100 a$=MID$(a$,2) 110 IF INSTR(V$,c$) c$=MID$(V$,RND(5),1) 120 IF INSTR(v$,c$) c$=MID$(v$,RND(5),1) 121 b$+=c$ 150 ENDWHILE 151 PRINT b$ 250 ENDWHILE 260 CLOSE #in 270UNTIL 0 280DATA AEIOU
V$="AEIOU":v$="aeiou"
�
� file$
( in=�(file$)
2 ȕ � �#in
<
a$=�#in
F b$=""
P ȕ a$<>""
Z c$=�a$,1)
d a$=�a$,2)
n � �V$,c$) c$=�V$,�(5),1)
x � �v$,c$) c$=�v$,�(5),1)
y
b$+=c$
� �
�
� b$
� �
� #in
� 0
� AEIOU
� 00000000 0d 00 0a 19 56 24 3d 22 41 45 49 4f 55 22 3a 76 |....V$="AEIOU":v| 00000010 24 3d 22 61 65 69 6f 75 22 0d 00 14 05 f5 0d 00 |$="aeiou".......| 00000020 1e 0c 20 e8 20 66 69 6c 65 24 0d 00 28 10 20 69 |.. . file$..(. i| 00000030 6e 3d 8e 28 66 69 6c 65 24 29 0d 00 32 0e 20 c8 |n=.(file$)..2. .| 00000040 95 20 ac 20 c5 23 69 6e 0d 00 3c 0d 20 20 61 24 |. . .#in..<. a$| 00000050 3d be 23 69 6e 0d 00 46 0b 20 20 62 24 3d 22 22 |=.#in..F. b$=""| 00000060 0d 00 50 0f 20 20 c8 95 20 61 24 3c 3e 22 22 0d |..P. .. a$<>"".| 00000070 00 5a 10 20 20 20 63 24 3d c0 61 24 2c 31 29 0d |.Z. c$=.a$,1).| 00000080 00 64 10 20 20 20 61 24 3d c1 61 24 2c 32 29 0d |.d. a$=.a$,2).| 00000090 00 6e 1f 20 20 20 e7 20 a7 56 24 2c 63 24 29 20 |.n. . .V$,c$) | 000000a0 63 24 3d c1 56 24 2c b3 28 35 29 2c 31 29 0d 00 |c$=.V$,.(5),1)..| 000000b0 78 1f 20 20 20 e7 20 a7 76 24 2c 63 24 29 20 63 |x. . .v$,c$) c| 000000c0 24 3d c1 76 24 2c b3 28 35 29 2c 31 29 0d 00 79 |$=.v$,.(5),1)..y| 000000d0 0d 20 20 20 62 24 2b 3d 63 24 0d 00 96 07 20 20 |. b$+=c$.... | 000000e0 ce 0d 00 97 0a 20 20 f1 20 62 24 0d 00 fa 06 20 |..... . b$.... | 000000f0 ce 0d 01 04 0a 20 d9 20 23 69 6e 0d 01 0e 07 fd |..... . #in.....| 00000100 20 30 0d 01 18 0b dc 20 41 45 49 4f 55 0d ff | 0..... AEIOU..| 0000010f
.