Home » Archimedes archive » Acorn User » AU 1998-10.adf » Regulars » StarInfo/nonsense/WorldCup

StarInfo/nonsense/WorldCup

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/WorldCup
Read OK:
File size: 0456 bytes
Load address: 0000
Exec address: 0000
File contents
   10ONERRORREPORT:PRINTERL:QUIT
   20VDU 14
   30null%=RND(-TIME)
   40:
   50READ nounn%
   60DIM noun$(nounn%)
   70DIM pl%(nounn%)
   80FOR l%=1 TO nounn%
   90  READ noun$(l%)
  100  READ pl%(l%)
  110NEXT l%
  120:
  130READ verbn%
  140DIM verb$(verbn%)
  150DIM ch%(verbn%)
  160DIM plv$(verbn%)
  170FOR l%=1 TO verbn%
  180  READ verb$(l%)
  190  READ ch%(l%)
  200  IF ch%(l%)=2 THEN READ plv$(verbn%)
  210NEXT l%
  220:
  230READ noun2n%
  240DIM noun2$(noun2n%)
  250FOR l%=1 TO noun2n%
  260  READ noun2$(l%)
  270NEXT l%
  280:
  290REPEAT
  300  pl%=0
  310  n%=RND(nounn%)
  320  PRINT noun$(n%);
  330  IF pl%(n%) THEN pl%=1
  340  :
  350  v%=RND(verbn%)
  360  IF pl%=1 AND ch%(v%)=2 THEN PRINT " ";plv$(v%); ELSE PRINT " ";verb$(v%);
  370  IF pl%=0 AND ch%(v%) THEN PRINT"s";
  380  :
  390  PRINT " ";noun2$(RND(noun2n%))
  400  IF RND(10)=1 THEN null%=RND(-TIME)
  410UNTIL FALSE
  420:
  430:
  440:
  450DATA 7
  460DATA"Top",0
  470DATA"We all",1
  480DATA"Vindaloo",0
  490DATA"England",0
  500DATA"Football",0
  510DATA"Nah nah",0
  520DATA"Three lions",1
  530:
  540DATA 13
  550DATA"of",0
  560DATA"like",1
  570DATA"love",1
  580DATA"eat",1
  590DATA"rule",1
  600DATA"sleep",1
  610DATA"drink",1
  620DATA"nah nah",0
  630DATA"play",1
  640DATA"on",0
  650DATA"in",0
  660DATA"ENGLAND!",0
  670DATA"made in",0
  680:
  690DATA 7
  700DATA"the World"
  710DATA"vindaloo!"
  720DATA"England!"
  730DATA"football"
  740DATA"nah nah"
  750DATA"a shirt"
  760DATA"Coca-Cola"


�:�:Ș
� 14
null%=�(-�)
(:
2� nounn%
<� noun$(nounn%)
F� pl%(nounn%)
P� l%=1 � nounn%
Z  � noun$(l%)
d  � pl%(l%)
n� l%
x:
�� verbn%
�� verb$(verbn%)
�� ch%(verbn%)
�� plv$(verbn%)
�� l%=1 � verbn%
�  � verb$(l%)
�  � ch%(l%)
�"  � ch%(l%)=2 � � plv$(verbn%)
�� l%
�:
�
� noun2n%
�� noun2$(noun2n%)
�� l%=1 � noun2n%
  � noun2$(l%)
� l%
:
"�
,  pl%=0
6  n%=�(nounn%)
@  � noun$(n%);
J  � pl%(n%) � pl%=1
T  :
^  v%=�(verbn%)
h>  � pl%=1 � ch%(v%)=2 � � " ";plv$(v%); � � " ";verb$(v%);
r  � pl%=0 � ch%(v%) � �"s";
|  :
�  � " ";noun2$(�(noun2n%))
�  � �(10)=1 � null%=�(-�)
�� �
�:
�:
�:
�� 7
��"Top",0
��"We all",1
��"Vindaloo",0
��"England",0
��"Football",0
��"Nah nah",0
�"Three lions",1
:
� 13
&�"of",0
0
�"like",1
:
�"love",1
D�"eat",1
N
�"rule",1
X�"sleep",1
b�"drink",1
l�"nah nah",0
v
�"play",1
��"on",0
��"in",0
��"ENGLAND!",0
��"made in",0
�:
�� 7
��"the World"
��"vindaloo!"
��"England!"
��"football"
��"nah nah"
��"a shirt"
��"Coca-Cola"
�
00000000  0d 00 0a 0d ee 85 f6 3a  f1 9e 3a c8 98 0d 00 14  |.......:..:.....|
00000010  08 ef 20 31 34 0d 00 1e  0f 6e 75 6c 6c 25 3d b3  |.. 14....null%=.|
00000020  28 2d 91 29 0d 00 28 05  3a 0d 00 32 0c f3 20 6e  |(-.)..(.:..2.. n|
00000030  6f 75 6e 6e 25 0d 00 3c  13 de 20 6e 6f 75 6e 24  |ounn%..<.. noun$|
00000040  28 6e 6f 75 6e 6e 25 29  0d 00 46 11 de 20 70 6c  |(nounn%)..F.. pl|
00000050  25 28 6e 6f 75 6e 6e 25  29 0d 00 50 13 e3 20 6c  |%(nounn%)..P.. l|
00000060  25 3d 31 20 b8 20 6e 6f  75 6e 6e 25 0d 00 5a 11  |%=1 . nounn%..Z.|
00000070  20 20 f3 20 6e 6f 75 6e  24 28 6c 25 29 0d 00 64  |  . noun$(l%)..d|
00000080  0f 20 20 f3 20 70 6c 25  28 6c 25 29 0d 00 6e 08  |.  . pl%(l%)..n.|
00000090  ed 20 6c 25 0d 00 78 05  3a 0d 00 82 0c f3 20 76  |. l%..x.:..... v|
000000a0  65 72 62 6e 25 0d 00 8c  13 de 20 76 65 72 62 24  |erbn%..... verb$|
000000b0  28 76 65 72 62 6e 25 29  0d 00 96 11 de 20 63 68  |(verbn%)..... ch|
000000c0  25 28 76 65 72 62 6e 25  29 0d 00 a0 12 de 20 70  |%(verbn%)..... p|
000000d0  6c 76 24 28 76 65 72 62  6e 25 29 0d 00 aa 13 e3  |lv$(verbn%).....|
000000e0  20 6c 25 3d 31 20 b8 20  76 65 72 62 6e 25 0d 00  | l%=1 . verbn%..|
000000f0  b4 11 20 20 f3 20 76 65  72 62 24 28 6c 25 29 0d  |..  . verb$(l%).|
00000100  00 be 0f 20 20 f3 20 63  68 25 28 6c 25 29 0d 00  |...  . ch%(l%)..|
00000110  c8 22 20 20 e7 20 63 68  25 28 6c 25 29 3d 32 20  |."  . ch%(l%)=2 |
00000120  8c 20 f3 20 70 6c 76 24  28 76 65 72 62 6e 25 29  |. . plv$(verbn%)|
00000130  0d 00 d2 08 ed 20 6c 25  0d 00 dc 05 3a 0d 00 e6  |..... l%....:...|
00000140  0d f3 20 6e 6f 75 6e 32  6e 25 0d 00 f0 15 de 20  |.. noun2n%..... |
00000150  6e 6f 75 6e 32 24 28 6e  6f 75 6e 32 6e 25 29 0d  |noun2$(noun2n%).|
00000160  00 fa 14 e3 20 6c 25 3d  31 20 b8 20 6e 6f 75 6e  |.... l%=1 . noun|
00000170  32 6e 25 0d 01 04 12 20  20 f3 20 6e 6f 75 6e 32  |2n%....  . noun2|
00000180  24 28 6c 25 29 0d 01 0e  08 ed 20 6c 25 0d 01 18  |$(l%)..... l%...|
00000190  05 3a 0d 01 22 05 f5 0d  01 2c 0b 20 20 70 6c 25  |.:.."....,.  pl%|
000001a0  3d 30 0d 01 36 12 20 20  6e 25 3d b3 28 6e 6f 75  |=0..6.  n%=.(nou|
000001b0  6e 6e 25 29 0d 01 40 12  20 20 f1 20 6e 6f 75 6e  |nn%)..@.  . noun|
000001c0  24 28 6e 25 29 3b 0d 01  4a 17 20 20 e7 20 70 6c  |$(n%);..J.  . pl|
000001d0  25 28 6e 25 29 20 8c 20  70 6c 25 3d 31 0d 01 54  |%(n%) . pl%=1..T|
000001e0  07 20 20 3a 0d 01 5e 12  20 20 76 25 3d b3 28 76  |.  :..^.  v%=.(v|
000001f0  65 72 62 6e 25 29 0d 01  68 3e 20 20 e7 20 70 6c  |erbn%)..h>  . pl|
00000200  25 3d 31 20 80 20 63 68  25 28 76 25 29 3d 32 20  |%=1 . ch%(v%)=2 |
00000210  8c 20 f1 20 22 20 22 3b  70 6c 76 24 28 76 25 29  |. . " ";plv$(v%)|
00000220  3b 20 8b 20 f1 20 22 20  22 3b 76 65 72 62 24 28  |; . . " ";verb$(|
00000230  76 25 29 3b 0d 01 72 1f  20 20 e7 20 70 6c 25 3d  |v%);..r.  . pl%=|
00000240  30 20 80 20 63 68 25 28  76 25 29 20 8c 20 f1 22  |0 . ch%(v%) . ."|
00000250  73 22 3b 0d 01 7c 07 20  20 3a 0d 01 86 1e 20 20  |s";..|.  :....  |
00000260  f1 20 22 20 22 3b 6e 6f  75 6e 32 24 28 b3 28 6e  |. " ";noun2$(.(n|
00000270  6f 75 6e 32 6e 25 29 29  0d 01 90 1d 20 20 e7 20  |oun2n%))....  . |
00000280  b3 28 31 30 29 3d 31 20  8c 20 6e 75 6c 6c 25 3d  |.(10)=1 . null%=|
00000290  b3 28 2d 91 29 0d 01 9a  07 fd 20 a3 0d 01 a4 05  |.(-.)..... .....|
000002a0  3a 0d 01 ae 05 3a 0d 01  b8 05 3a 0d 01 c2 07 dc  |:....:....:.....|
000002b0  20 37 0d 01 cc 0c dc 22  54 6f 70 22 2c 30 0d 01  | 7....."Top",0..|
000002c0  d6 0f dc 22 57 65 20 61  6c 6c 22 2c 31 0d 01 e0  |..."We all",1...|
000002d0  11 dc 22 56 69 6e 64 61  6c 6f 6f 22 2c 30 0d 01  |.."Vindaloo",0..|
000002e0  ea 10 dc 22 45 6e 67 6c  61 6e 64 22 2c 30 0d 01  |..."England",0..|
000002f0  f4 11 dc 22 46 6f 6f 74  62 61 6c 6c 22 2c 30 0d  |..."Football",0.|
00000300  01 fe 10 dc 22 4e 61 68  20 6e 61 68 22 2c 30 0d  |...."Nah nah",0.|
00000310  02 08 14 dc 22 54 68 72  65 65 20 6c 69 6f 6e 73  |...."Three lions|
00000320  22 2c 31 0d 02 12 05 3a  0d 02 1c 08 dc 20 31 33  |",1....:..... 13|
00000330  0d 02 26 0b dc 22 6f 66  22 2c 30 0d 02 30 0d dc  |..&.."of",0..0..|
00000340  22 6c 69 6b 65 22 2c 31  0d 02 3a 0d dc 22 6c 6f  |"like",1..:.."lo|
00000350  76 65 22 2c 31 0d 02 44  0c dc 22 65 61 74 22 2c  |ve",1..D.."eat",|
00000360  31 0d 02 4e 0d dc 22 72  75 6c 65 22 2c 31 0d 02  |1..N.."rule",1..|
00000370  58 0e dc 22 73 6c 65 65  70 22 2c 31 0d 02 62 0e  |X.."sleep",1..b.|
00000380  dc 22 64 72 69 6e 6b 22  2c 31 0d 02 6c 10 dc 22  |."drink",1..l.."|
00000390  6e 61 68 20 6e 61 68 22  2c 30 0d 02 76 0d dc 22  |nah nah",0..v.."|
000003a0  70 6c 61 79 22 2c 31 0d  02 80 0b dc 22 6f 6e 22  |play",1....."on"|
000003b0  2c 30 0d 02 8a 0b dc 22  69 6e 22 2c 30 0d 02 94  |,0....."in",0...|
000003c0  11 dc 22 45 4e 47 4c 41  4e 44 21 22 2c 30 0d 02  |.."ENGLAND!",0..|
000003d0  9e 10 dc 22 6d 61 64 65  20 69 6e 22 2c 30 0d 02  |..."made in",0..|
000003e0  a8 05 3a 0d 02 b2 07 dc  20 37 0d 02 bc 10 dc 22  |..:..... 7....."|
000003f0  74 68 65 20 57 6f 72 6c  64 22 0d 02 c6 10 dc 22  |the World"....."|
00000400  76 69 6e 64 61 6c 6f 6f  21 22 0d 02 d0 0f dc 22  |vindaloo!"....."|
00000410  45 6e 67 6c 61 6e 64 21  22 0d 02 da 0f dc 22 66  |England!"....."f|
00000420  6f 6f 74 62 61 6c 6c 22  0d 02 e4 0e dc 22 6e 61  |ootball"....."na|
00000430  68 20 6e 61 68 22 0d 02  ee 0e dc 22 61 20 73 68  |h nah"....."a sh|
00000440  69 72 74 22 0d 02 f8 10  dc 22 43 6f 63 61 2d 43  |irt"....."Coca-C|
00000450  6f 6c 61 22 0d ff                                 |ola"..|
00000456