Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_34.ADF » G/S/WWF-I

G/S/WWF-I

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 » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_34.ADF
Filename: G/S/WWF-I
Read OK: ✔
File size: 0596 bytes
Load address: FFFF1900
Exec address: FFFF8023
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
    5*TV255
   10MODE 2:HIMEM=&27A9
   20PROCinit
   24ENVELOPE 1,3,8,0,0,50,0,0,127,-8,-8,-8,126,0
   25ENVELOPE 2,1,20,-15,-15,6,3,3,127,-1,-1,-20,126,126
   26VDU23;8202;0;0;0;0;
   27VDU23,230,126,171,213,171,213,171,213,126
   28VDU23,231,0,255,255,0,255,0,255,0
   29VDU23,232,24,24,24,24,24,24,24,24
   30VDU23,233,60,126,126,255,255,255,255,255,23,234,255,255,255,255,255,126,126,60
   31VDU23,235,96,240,240,240,96,0,0,0
   39COLOUR7
   40PRINTTAB(6,2)"WALLABY"
   50PRINTTAB(5,4)"WRESTLING"
   60PRINTTAB(5,6)"FEDERATION"
   65GCOL0,1
   66PROCcirc(250,0,250,250)
   70GCOL0,3
   80PROCcirc(250,300,100,150)
   81MOVE350,300:DRAW360,600:PLOT85,300,300
   82MOVE150,300:DRAW132,600:PLOT85,200,300
   83PROCcirc(250,150,50,50)
   84GCOL0,0
   85VDU5:MOVE186,350:VDU233,8,10,234
   86MOVE258,350:VDU233,8,10,234
   87GCOL0,7:MOVE266,330:VDU235:MOVE194,330:VDU235
   89VDU4
   90 PRINTTAB(1,8)"NUMBER OF PLAYERS"TAB(1,9)"(2-6)";
  100REPEAT:G=GET-48
  110UNTIL G>1 AND G<7
  120PRINT;G
  130?&27A9=G
  135COLOUR1
  140FOR I=1 TO G
  145VDU19,1,I;0;
  146IF I=3 VDU19,3,7;0;19,7,6;0;
  147IF I=4 VDU19,3,3;0;19,7,7;0;
  150PRINTTAB(1,11)"PLAYER ";I
  160PRINTTAB(1,12)"NAME:"STRING$(8," ")
  170n$=""
  180REPEAT
  190g=GET
  200IF LEN(n$)<8 AND g>31 AND g<126 n$=n$+CHR$(g)
  210IF LEN(n$)>0 AND g=127 n$=LEFT$(n$,LEN(n$)-1)
  220PRINTTAB(6,12)n$;" "
  230UNTIL g=13
  240FOR J=1 TO LEN(n$)
  250?FNn(I-1,J-1)=ASC(MID$(n$,J,1))
  260NEXT
  270NEXT
  280?&27AA=?&27A9
  290?&27AB=?&27A9
  300CHAIN"WWF-G"
 9999END
10000DEFFNn(a,b)
10010=&27AC+a*8+b
10020DEFFNnin(a,b)
10030=?FNn(a,b)
10040DEFFNs(a,b)
10050=&27DC+a*6+b
10060DEFFNsin(a,b)
10070=?FNs(a,b)
10080DEFPROCinit
10090FORI=&27A9 TO &27FF
10100?I=27
10110NEXT
10120ENDPROC
10130DEFPROCcirc(x,y,a,b)
10140VDU29,x;y;
10150MOVE0,0
10160FOR A=0 TO PI*2 STEP PI/8
10170MOVE0,0
10180PLOT85,a*SIN(A),b*COS(A)
10190NEXT
10195VDU29,0;0;
10200ENDPROC


*TV255

� 2:�=&27A9
	�init
)� 1,3,8,0,0,50,0,0,127,-8,-8,-8,126,0
0� 2,1,20,-15,-15,6,3,3,127,-1,-1,-20,126,126
�23;8202;0;0;0;0;
+�23,230,126,171,213,171,213,171,213,126
#�23,231,0,255,255,0,255,0,255,0
#�23,232,24,24,24,24,24,24,24,24
P�23,233,60,126,126,255,255,255,255,255,23,234,255,255,255,255,255,126,126,60
#�23,235,96,240,240,240,96,0,0,0
'�7
(�6,2)"WALLABY"
2�5,4)"WRESTLING"
<�5,6)"FEDERATION"
A�0,1
B�circ(250,0,250,250)
F�0,3
P�circ(250,300,100,150)
Q!�350,300:�360,600:�85,300,300
R!�150,300:�132,600:�85,200,300
S�circ(250,150,50,50)
T�0,0
U�5:�186,350:�233,8,10,234
V�258,350:�233,8,10,234
W$�0,7:�266,330:�235:�194,330:�235
Y�4
Z+ �1,8)"NUMBER OF PLAYERS"�1,9)"(2-6)";
d�:G=�-48
n� G>1 � G<7
x�;G
�?&27A9=G
��1
�
� I=1 � G
��19,1,I;0;
�� I=3 �19,3,7;0;19,7,6;0;
�� I=4 �19,3,3;0;19,7,7;0;
��1,11)"PLAYER ";I
��1,12)"NAME:"�8," ")
�	n$=""
��
�g=�
�'� �(n$)<8 � g>31 � g<126 n$=n$+�(g)
�%� �(n$)>0 � g=127 n$=�n$,�(n$)-1)
��6,12)n$;" "
�
� g=13
�� J=1 � �(n$)
�?�n(I-1,J-1)=�(�n$,J,1))
�
�
?&27AA=?&27A9
"?&27AB=?&27A9
,�"WWF-G"
'�
'ݤn(a,b)
'=&27AC+a*8+b
'$ݤnin(a,b)
'.
=?�n(a,b)
'8ݤs(a,b)
'B=&27DC+a*6+b
'Lݤsin(a,b)
'V
=?�s(a,b)
'`
��init
'j�I=&27A9 � &27FF
't	?I=27
'~�
'��
'���circ(x,y,a,b)
'��29,x;y;
'��0,0
'�� A=0 � �*2 � �/8
'��0,0
'��85,a*�(A),b*�(A)
'��
'��29,0;0;
'��
�
00000000  0d 00 05 0a 2a 54 56 32  35 35 0d 00 0a 0f eb 20  |....*TV255..... |
00000010  32 3a d3 3d 26 32 37 41  39 0d 00 14 09 f2 69 6e  |2:.=&27A9.....in|
00000020  69 74 0d 00 18 29 e2 20  31 2c 33 2c 38 2c 30 2c  |it...). 1,3,8,0,|
00000030  30 2c 35 30 2c 30 2c 30  2c 31 32 37 2c 2d 38 2c  |0,50,0,0,127,-8,|
00000040  2d 38 2c 2d 38 2c 31 32  36 2c 30 0d 00 19 30 e2  |-8,-8,126,0...0.|
00000050  20 32 2c 31 2c 32 30 2c  2d 31 35 2c 2d 31 35 2c  | 2,1,20,-15,-15,|
00000060  36 2c 33 2c 33 2c 31 32  37 2c 2d 31 2c 2d 31 2c  |6,3,3,127,-1,-1,|
00000070  2d 32 30 2c 31 32 36 2c  31 32 36 0d 00 1a 15 ef  |-20,126,126.....|
00000080  32 33 3b 38 32 30 32 3b  30 3b 30 3b 30 3b 30 3b  |23;8202;0;0;0;0;|
00000090  0d 00 1b 2b ef 32 33 2c  32 33 30 2c 31 32 36 2c  |...+.23,230,126,|
000000a0  31 37 31 2c 32 31 33 2c  31 37 31 2c 32 31 33 2c  |171,213,171,213,|
000000b0  31 37 31 2c 32 31 33 2c  31 32 36 0d 00 1c 23 ef  |171,213,126...#.|
000000c0  32 33 2c 32 33 31 2c 30  2c 32 35 35 2c 32 35 35  |23,231,0,255,255|
000000d0  2c 30 2c 32 35 35 2c 30  2c 32 35 35 2c 30 0d 00  |,0,255,0,255,0..|
000000e0  1d 23 ef 32 33 2c 32 33  32 2c 32 34 2c 32 34 2c  |.#.23,232,24,24,|
000000f0  32 34 2c 32 34 2c 32 34  2c 32 34 2c 32 34 2c 32  |24,24,24,24,24,2|
00000100  34 0d 00 1e 50 ef 32 33  2c 32 33 33 2c 36 30 2c  |4...P.23,233,60,|
00000110  31 32 36 2c 31 32 36 2c  32 35 35 2c 32 35 35 2c  |126,126,255,255,|
00000120  32 35 35 2c 32 35 35 2c  32 35 35 2c 32 33 2c 32  |255,255,255,23,2|
00000130  33 34 2c 32 35 35 2c 32  35 35 2c 32 35 35 2c 32  |34,255,255,255,2|
00000140  35 35 2c 32 35 35 2c 31  32 36 2c 31 32 36 2c 36  |55,255,126,126,6|
00000150  30 0d 00 1f 23 ef 32 33  2c 32 33 35 2c 39 36 2c  |0...#.23,235,96,|
00000160  32 34 30 2c 32 34 30 2c  32 34 30 2c 39 36 2c 30  |240,240,240,96,0|
00000170  2c 30 2c 30 0d 00 27 06  fb 37 0d 00 28 13 f1 8a  |,0,0..'..7..(...|
00000180  36 2c 32 29 22 57 41 4c  4c 41 42 59 22 0d 00 32  |6,2)"WALLABY"..2|
00000190  15 f1 8a 35 2c 34 29 22  57 52 45 53 54 4c 49 4e  |...5,4)"WRESTLIN|
000001a0  47 22 0d 00 3c 16 f1 8a  35 2c 36 29 22 46 45 44  |G"..<...5,6)"FED|
000001b0  45 52 41 54 49 4f 4e 22  0d 00 41 08 e6 30 2c 31  |ERATION"..A..0,1|
000001c0  0d 00 42 18 f2 63 69 72  63 28 32 35 30 2c 30 2c  |..B..circ(250,0,|
000001d0  32 35 30 2c 32 35 30 29  0d 00 46 08 e6 30 2c 33  |250,250)..F..0,3|
000001e0  0d 00 50 1a f2 63 69 72  63 28 32 35 30 2c 33 30  |..P..circ(250,30|
000001f0  30 2c 31 30 30 2c 31 35  30 29 0d 00 51 21 ec 33  |0,100,150)..Q!.3|
00000200  35 30 2c 33 30 30 3a df  33 36 30 2c 36 30 30 3a  |50,300:.360,600:|
00000210  f0 38 35 2c 33 30 30 2c  33 30 30 0d 00 52 21 ec  |.85,300,300..R!.|
00000220  31 35 30 2c 33 30 30 3a  df 31 33 32 2c 36 30 30  |150,300:.132,600|
00000230  3a f0 38 35 2c 32 30 30  2c 33 30 30 0d 00 53 18  |:.85,200,300..S.|
00000240  f2 63 69 72 63 28 32 35  30 2c 31 35 30 2c 35 30  |.circ(250,150,50|
00000250  2c 35 30 29 0d 00 54 08  e6 30 2c 30 0d 00 55 1d  |,50)..T..0,0..U.|
00000260  ef 35 3a ec 31 38 36 2c  33 35 30 3a ef 32 33 33  |.5:.186,350:.233|
00000270  2c 38 2c 31 30 2c 32 33  34 0d 00 56 1a ec 32 35  |,8,10,234..V..25|
00000280  38 2c 33 35 30 3a ef 32  33 33 2c 38 2c 31 30 2c  |8,350:.233,8,10,|
00000290  32 33 34 0d 00 57 24 e6  30 2c 37 3a ec 32 36 36  |234..W$.0,7:.266|
000002a0  2c 33 33 30 3a ef 32 33  35 3a ec 31 39 34 2c 33  |,330:.235:.194,3|
000002b0  33 30 3a ef 32 33 35 0d  00 59 06 ef 34 0d 00 5a  |30:.235..Y..4..Z|
000002c0  2b 20 f1 8a 31 2c 38 29  22 4e 55 4d 42 45 52 20  |+ ..1,8)"NUMBER |
000002d0  4f 46 20 50 4c 41 59 45  52 53 22 8a 31 2c 39 29  |OF PLAYERS".1,9)|
000002e0  22 28 32 2d 36 29 22 3b  0d 00 64 0c f5 3a 47 3d  |"(2-6)";..d..:G=|
000002f0  a5 2d 34 38 0d 00 6e 0f  fd 20 47 3e 31 20 80 20  |.-48..n.. G>1 . |
00000300  47 3c 37 0d 00 78 07 f1  3b 47 0d 00 82 0c 3f 26  |G<7..x..;G....?&|
00000310  32 37 41 39 3d 47 0d 00  87 06 fb 31 0d 00 8c 0d  |27A9=G.....1....|
00000320  e3 20 49 3d 31 20 b8 20  47 0d 00 91 0e ef 31 39  |. I=1 . G.....19|
00000330  2c 31 2c 49 3b 30 3b 0d  00 92 1d e7 20 49 3d 33  |,1,I;0;..... I=3|
00000340  20 ef 31 39 2c 33 2c 37  3b 30 3b 31 39 2c 37 2c  | .19,3,7;0;19,7,|
00000350  36 3b 30 3b 0d 00 93 1d  e7 20 49 3d 34 20 ef 31  |6;0;..... I=4 .1|
00000360  39 2c 33 2c 33 3b 30 3b  31 39 2c 37 2c 37 3b 30  |9,3,3;0;19,7,7;0|
00000370  3b 0d 00 96 16 f1 8a 31  2c 31 31 29 22 50 4c 41  |;......1,11)"PLA|
00000380  59 45 52 20 22 3b 49 0d  00 a0 19 f1 8a 31 2c 31  |YER ";I......1,1|
00000390  32 29 22 4e 41 4d 45 3a  22 c4 38 2c 22 20 22 29  |2)"NAME:".8," ")|
000003a0  0d 00 aa 09 6e 24 3d 22  22 0d 00 b4 05 f5 0d 00  |....n$="".......|
000003b0  be 07 67 3d a5 0d 00 c8  27 e7 20 a9 28 6e 24 29  |..g=....'. .(n$)|
000003c0  3c 38 20 80 20 67 3e 33  31 20 80 20 67 3c 31 32  |<8 . g>31 . g<12|
000003d0  36 20 6e 24 3d 6e 24 2b  bd 28 67 29 0d 00 d2 25  |6 n$=n$+.(g)...%|
000003e0  e7 20 a9 28 6e 24 29 3e  30 20 80 20 67 3d 31 32  |. .(n$)>0 . g=12|
000003f0  37 20 6e 24 3d c0 6e 24  2c a9 28 6e 24 29 2d 31  |7 n$=.n$,.(n$)-1|
00000400  29 0d 00 dc 11 f1 8a 36  2c 31 32 29 6e 24 3b 22  |)......6,12)n$;"|
00000410  20 22 0d 00 e6 0a fd 20  67 3d 31 33 0d 00 f0 11  | "..... g=13....|
00000420  e3 20 4a 3d 31 20 b8 20  a9 28 6e 24 29 0d 00 fa  |. J=1 . .(n$)...|
00000430  1c 3f a4 6e 28 49 2d 31  2c 4a 2d 31 29 3d 97 28  |.?.n(I-1,J-1)=.(|
00000440  c1 6e 24 2c 4a 2c 31 29  29 0d 01 04 05 ed 0d 01  |.n$,J,1)).......|
00000450  0e 05 ed 0d 01 18 11 3f  26 32 37 41 41 3d 3f 26  |.......?&27AA=?&|
00000460  32 37 41 39 0d 01 22 11  3f 26 32 37 41 42 3d 3f  |27A9..".?&27AB=?|
00000470  26 32 37 41 39 0d 01 2c  0c d7 22 57 57 46 2d 47  |&27A9..,.."WWF-G|
00000480  22 0d 27 0f 05 e0 0d 27  10 0c dd a4 6e 28 61 2c  |".'....'....n(a,|
00000490  62 29 0d 27 1a 10 3d 26  32 37 41 43 2b 61 2a 38  |b).'..=&27AC+a*8|
000004a0  2b 62 0d 27 24 0e dd a4  6e 69 6e 28 61 2c 62 29  |+b.'$...nin(a,b)|
000004b0  0d 27 2e 0d 3d 3f a4 6e  28 61 2c 62 29 0d 27 38  |.'..=?.n(a,b).'8|
000004c0  0c dd a4 73 28 61 2c 62  29 0d 27 42 10 3d 26 32  |...s(a,b).'B.=&2|
000004d0  37 44 43 2b 61 2a 36 2b  62 0d 27 4c 0e dd a4 73  |7DC+a*6+b.'L...s|
000004e0  69 6e 28 61 2c 62 29 0d  27 56 0d 3d 3f a4 73 28  |in(a,b).'V.=?.s(|
000004f0  61 2c 62 29 0d 27 60 0a  dd f2 69 6e 69 74 0d 27  |a,b).'`...init.'|
00000500  6a 14 e3 49 3d 26 32 37  41 39 20 b8 20 26 32 37  |j..I=&27A9 . &27|
00000510  46 46 0d 27 74 09 3f 49  3d 32 37 0d 27 7e 05 ed  |FF.'t.?I=27.'~..|
00000520  0d 27 88 05 e1 0d 27 92  13 dd f2 63 69 72 63 28  |.'....'....circ(|
00000530  78 2c 79 2c 61 2c 62 29  0d 27 9c 0c ef 32 39 2c  |x,y,a,b).'...29,|
00000540  78 3b 79 3b 0d 27 a6 08  ec 30 2c 30 0d 27 b0 15  |x;y;.'...0,0.'..|
00000550  e3 20 41 3d 30 20 b8 20  af 2a 32 20 88 20 af 2f  |. A=0 . .*2 . ./|
00000560  38 0d 27 ba 08 ec 30 2c  30 0d 27 c4 15 f0 38 35  |8.'...0,0.'...85|
00000570  2c 61 2a b5 28 41 29 2c  62 2a 9b 28 41 29 0d 27  |,a*.(A),b*.(A).'|
00000580  ce 05 ed 0d 27 d3 0c ef  32 39 2c 30 3b 30 3b 0d  |....'...29,0;0;.|
00000590  27 d8 05 e1 0d ff                                 |'.....|
00000596
G/S/WWF-I.m0
G/S/WWF-I.m1
G/S/WWF-I.m2
G/S/WWF-I.m4
G/S/WWF-I.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .