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