Home » Archimedes archive » Acorn User » AU 1998-06 A.adf » Regulars » StarInfo/Nonsense/Incant
StarInfo/Nonsense/Incant
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/Incant |
| Read OK: | ✔ |
| File size: | 00BD bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10DIM a$(1) 20a$()="aeiou","bcdfghjklmnpqrstvwxyz" 30REPEAT 40 FOR j=1 TO 1+RND(8) 50 p=RND(2)-1 60 FOR i=1 TO 1+RND(3)*RND(3) 70 PRINT MID$(a$(p),RND(LENa$(p)),1); 80 p=1-p 90 NEXT 100 PRINT " "; 110 NEXT 120 PRINT 130UNTIL 0
� a$(1) (a$()="aeiou","bcdfghjklmnpqrstvwxyz" � ( � j=1 � 1+�(8) 2 p=�(2)-1 < � i=1 � 1+�(3)*�(3) F � �a$(p),�(�a$(p)),1); P p=1-p Z � d � " "; n � x � �� 0 �
00000000 0d 00 0a 0b de 20 61 24 28 31 29 0d 00 14 28 61 |..... a$(1)...(a| 00000010 24 28 29 3d 22 61 65 69 6f 75 22 2c 22 62 63 64 |$()="aeiou","bcd| 00000020 66 67 68 6a 6b 6c 6d 6e 70 71 72 73 74 76 77 78 |fghjklmnpqrstvwx| 00000030 79 7a 22 0d 00 1e 05 f5 0d 00 28 13 20 e3 20 6a |yz".......(. . j| 00000040 3d 31 20 b8 20 31 2b b3 28 38 29 0d 00 32 0d 20 |=1 . 1+.(8)..2. | 00000050 70 3d b3 28 32 29 2d 31 0d 00 3c 18 20 e3 20 69 |p=.(2)-1..<. . i| 00000060 3d 31 20 b8 20 31 2b b3 28 33 29 2a b3 28 33 29 |=1 . 1+.(3)*.(3)| 00000070 0d 00 46 1c 20 20 f1 20 c1 61 24 28 70 29 2c b3 |..F. . .a$(p),.| 00000080 28 a9 61 24 28 70 29 29 2c 31 29 3b 0d 00 50 0b |(.a$(p)),1);..P.| 00000090 20 20 70 3d 31 2d 70 0d 00 5a 06 20 ed 0d 00 64 | p=1-p..Z. ...d| 000000a0 0b 20 f1 20 22 20 22 3b 0d 00 6e 06 20 ed 0d 00 |. . " ";..n. ...| 000000b0 78 06 20 f1 0d 00 82 07 fd 20 30 0d ff |x. ...... 0..| 000000bd
.