Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_56.ADF » G/W1
G/W1
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_56.ADF |
| Filename: | G/W1 |
| Read OK: | ✔ |
| File size: | 042E bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF802B |
File contents
10REMCOPYRIGHT SHARDS SOFTWARE 1985 20REM Vs 1.2 30REM by Steve Maltz 40MODE5:CLEAR 50?&81=&49:?&80=&5E:?&83=&4E:?&82=&5E:?&85=&4F:?&84=&56:?&87=&28:?&86=&F0:?&89=&49:?&88=&98:?&8B=&4F:?&8A=&20 60?&7B=0 70VDU23;8202;0;0;0; 80GOSUB150 90A$=INKEY$(200) 100MODE6:VDU19,7,0;0;23;8202;0;0;0;28,0,24,19,24:COLOUR0 110*KEY 0 "*L. G.W2 1F01|M*T.|M*FX138,0,129|M" 120*KEY 1 "FORI%=0TO&49FFSTEP4:I%!&E01=I%!&1F01:NEXTI%:CALL&490C|M" 130*FX138,0,128 140END 150VDU18,0,1,25,4,40,0,219,3,25,5,90,2,219,3,25,85,40,0,42,2,25,85,90,2,42,2,18,0,3,25,4,40,0,42,2,25,5,40,0,219,3,25,85,227,0,42,2,25,5,65,1,3,3,25,85,159,1,42,2,25,5,90,2,42,2,25,85,90,2,219,3,18,0,2,25,4,164,0,219,3,25,5,227,0,35,3 160VDU25,85,33,1,219,3,25,4,97,1,219,3,25,5,159,1,35,3,25,85,221,1,219,3 170VDU25,4,97,1,219,3,25,5,159,1,35,3,25,85,221,1,219,3,25,4,40,0,186,2,25,5,40,0,42,2,25,85,164,0,42,2,25,4,33,1,42,2,25,5,65,1,186,2,25,85,97,1,42,2,25,4,221,1,42,2,25,5,90,2,186,2,25,85,90,2,42,2 180COLOUR1:PRINTTAB(11,3);"WOODBURY";TAB(13,5);"END" 190COLOUR2:PRINTTAB(14,7);"by":COLOUR3:PRINTTAB(12,9);"SHARDS";TAB(11,11);"SOFTWARE" 200COLOUR1:PRINTTAB(2,17);"NOW LOADING....." 210PRINT:COLOUR2 220RETURN
#�COPYRIGHT SHARDS SOFTWARE 1985 � Vs 1.2 � by Steve Maltz (�5:� 2o?&81=&49:?&80=&5E:?&83=&4E:?&82=&5E:?&85=&4F:?&84=&56:?&87=&28:?&86=&F0:?&89=&49:?&88=&98:?&8B=&4F:?&8A=&20 < ?&7B=0 F�23;8202;0;0;0; P �tV@ Z A$=�(200) d/�6:�19,7,0;0;23;8202;0;0;0;28,0,24,19,24:�0 n/*KEY 0 "*L. G.W2 1F01|M*T.|M*FX138,0,129|M" xD*KEY 1 "FORI%=0TO&49FFSTEP4:I%!&E01=I%!&1F01:NEXTI%:CALL&490C|M" �*FX138,0,128 �� ���18,0,1,25,4,40,0,219,3,25,5,90,2,219,3,25,85,40,0,42,2,25,85,90,2,42,2,18,0,3,25,4,40,0,42,2,25,5,40,0,219,3,25,85,227,0,42,2,25,5,65,1,3,3,25,85,159,1,42,2,25,5,90,2,42,2,25,85,90,2,219,3,18,0,2,25,4,164,0,219,3,25,5,227,0,35,3 �I�25,85,33,1,219,3,25,4,97,1,219,3,25,5,159,1,35,3,25,85,221,1,219,3 ���25,4,97,1,219,3,25,5,159,1,35,3,25,85,221,1,219,3,25,4,40,0,186,2,25,5,40,0,42,2,25,85,164,0,42,2,25,4,33,1,42,2,25,5,65,1,186,2,25,85,97,1,42,2,25,4,221,1,42,2,25,5,90,2,186,2,25,85,90,2,42,2 �(�1:�11,3);"WOODBURY";�13,5);"END" �:�2:�14,7);"by":�3:�12,9);"SHARDS";�11,11);"SOFTWARE" �"�1:�2,17);"NOW LOADING....." ��:�2 �� �
00000000 0d 00 0a 23 f4 43 4f 50 59 52 49 47 48 54 20 53 |...#.COPYRIGHT S| 00000010 48 41 52 44 53 20 53 4f 46 54 57 41 52 45 20 31 |HARDS SOFTWARE 1| 00000020 39 38 35 0d 00 14 0c f4 20 56 73 20 31 2e 32 0d |985..... Vs 1.2.| 00000030 00 1e 14 f4 20 62 79 20 53 74 65 76 65 20 4d 61 |.... by Steve Ma| 00000040 6c 74 7a 0d 00 28 08 eb 35 3a d8 0d 00 32 6f 3f |ltz..(..5:...2o?| 00000050 26 38 31 3d 26 34 39 3a 3f 26 38 30 3d 26 35 45 |&81=&49:?&80=&5E| 00000060 3a 3f 26 38 33 3d 26 34 45 3a 3f 26 38 32 3d 26 |:?&83=&4E:?&82=&| 00000070 35 45 3a 3f 26 38 35 3d 26 34 46 3a 3f 26 38 34 |5E:?&85=&4F:?&84| 00000080 3d 26 35 36 3a 3f 26 38 37 3d 26 32 38 3a 3f 26 |=&56:?&87=&28:?&| 00000090 38 36 3d 26 46 30 3a 3f 26 38 39 3d 26 34 39 3a |86=&F0:?&89=&49:| 000000a0 3f 26 38 38 3d 26 39 38 3a 3f 26 38 42 3d 26 34 |?&88=&98:?&8B=&4| 000000b0 46 3a 3f 26 38 41 3d 26 32 30 0d 00 3c 0a 3f 26 |F:?&8A=&20..<.?&| 000000c0 37 42 3d 30 0d 00 46 13 ef 32 33 3b 38 32 30 32 |7B=0..F..23;8202| 000000d0 3b 30 3b 30 3b 30 3b 0d 00 50 09 e4 8d 74 56 40 |;0;0;0;..P...tV@| 000000e0 0d 00 5a 0d 41 24 3d bf 28 32 30 30 29 0d 00 64 |..Z.A$=.(200)..d| 000000f0 2f eb 36 3a ef 31 39 2c 37 2c 30 3b 30 3b 32 33 |/.6:.19,7,0;0;23| 00000100 3b 38 32 30 32 3b 30 3b 30 3b 30 3b 32 38 2c 30 |;8202;0;0;0;28,0| 00000110 2c 32 34 2c 31 39 2c 32 34 3a fb 30 0d 00 6e 2f |,24,19,24:.0..n/| 00000120 2a 4b 45 59 20 30 20 22 2a 4c 2e 20 47 2e 57 32 |*KEY 0 "*L. G.W2| 00000130 20 31 46 30 31 7c 4d 2a 54 2e 7c 4d 2a 46 58 31 | 1F01|M*T.|M*FX1| 00000140 33 38 2c 30 2c 31 32 39 7c 4d 22 0d 00 78 44 2a |38,0,129|M"..xD*| 00000150 4b 45 59 20 31 20 22 46 4f 52 49 25 3d 30 54 4f |KEY 1 "FORI%=0TO| 00000160 26 34 39 46 46 53 54 45 50 34 3a 49 25 21 26 45 |&49FFSTEP4:I%!&E| 00000170 30 31 3d 49 25 21 26 31 46 30 31 3a 4e 45 58 54 |01=I%!&1F01:NEXT| 00000180 49 25 3a 43 41 4c 4c 26 34 39 30 43 7c 4d 22 0d |I%:CALL&490C|M".| 00000190 00 82 10 2a 46 58 31 33 38 2c 30 2c 31 32 38 0d |...*FX138,0,128.| 000001a0 00 8c 05 e0 0d 00 96 e9 ef 31 38 2c 30 2c 31 2c |.........18,0,1,| 000001b0 32 35 2c 34 2c 34 30 2c 30 2c 32 31 39 2c 33 2c |25,4,40,0,219,3,| 000001c0 32 35 2c 35 2c 39 30 2c 32 2c 32 31 39 2c 33 2c |25,5,90,2,219,3,| 000001d0 32 35 2c 38 35 2c 34 30 2c 30 2c 34 32 2c 32 2c |25,85,40,0,42,2,| 000001e0 32 35 2c 38 35 2c 39 30 2c 32 2c 34 32 2c 32 2c |25,85,90,2,42,2,| 000001f0 31 38 2c 30 2c 33 2c 32 35 2c 34 2c 34 30 2c 30 |18,0,3,25,4,40,0| 00000200 2c 34 32 2c 32 2c 32 35 2c 35 2c 34 30 2c 30 2c |,42,2,25,5,40,0,| 00000210 32 31 39 2c 33 2c 32 35 2c 38 35 2c 32 32 37 2c |219,3,25,85,227,| 00000220 30 2c 34 32 2c 32 2c 32 35 2c 35 2c 36 35 2c 31 |0,42,2,25,5,65,1| 00000230 2c 33 2c 33 2c 32 35 2c 38 35 2c 31 35 39 2c 31 |,3,3,25,85,159,1| 00000240 2c 34 32 2c 32 2c 32 35 2c 35 2c 39 30 2c 32 2c |,42,2,25,5,90,2,| 00000250 34 32 2c 32 2c 32 35 2c 38 35 2c 39 30 2c 32 2c |42,2,25,85,90,2,| 00000260 32 31 39 2c 33 2c 31 38 2c 30 2c 32 2c 32 35 2c |219,3,18,0,2,25,| 00000270 34 2c 31 36 34 2c 30 2c 32 31 39 2c 33 2c 32 35 |4,164,0,219,3,25| 00000280 2c 35 2c 32 32 37 2c 30 2c 33 35 2c 33 0d 00 a0 |,5,227,0,35,3...| 00000290 49 ef 32 35 2c 38 35 2c 33 33 2c 31 2c 32 31 39 |I.25,85,33,1,219| 000002a0 2c 33 2c 32 35 2c 34 2c 39 37 2c 31 2c 32 31 39 |,3,25,4,97,1,219| 000002b0 2c 33 2c 32 35 2c 35 2c 31 35 39 2c 31 2c 33 35 |,3,25,5,159,1,35| 000002c0 2c 33 2c 32 35 2c 38 35 2c 32 32 31 2c 31 2c 32 |,3,25,85,221,1,2| 000002d0 31 39 2c 33 20 20 0d 00 aa c5 ef 32 35 2c 34 2c |19,3 .....25,4,| 000002e0 39 37 2c 31 2c 32 31 39 2c 33 2c 32 35 2c 35 2c |97,1,219,3,25,5,| 000002f0 31 35 39 2c 31 2c 33 35 2c 33 2c 32 35 2c 38 35 |159,1,35,3,25,85| 00000300 2c 32 32 31 2c 31 2c 32 31 39 2c 33 2c 32 35 2c |,221,1,219,3,25,| 00000310 34 2c 34 30 2c 30 2c 31 38 36 2c 32 2c 32 35 2c |4,40,0,186,2,25,| 00000320 35 2c 34 30 2c 30 2c 34 32 2c 32 2c 32 35 2c 38 |5,40,0,42,2,25,8| 00000330 35 2c 31 36 34 2c 30 2c 34 32 2c 32 2c 32 35 2c |5,164,0,42,2,25,| 00000340 34 2c 33 33 2c 31 2c 34 32 2c 32 2c 32 35 2c 35 |4,33,1,42,2,25,5| 00000350 2c 36 35 2c 31 2c 31 38 36 2c 32 2c 32 35 2c 38 |,65,1,186,2,25,8| 00000360 35 2c 39 37 2c 31 2c 34 32 2c 32 2c 32 35 2c 34 |5,97,1,42,2,25,4| 00000370 2c 32 32 31 2c 31 2c 34 32 2c 32 2c 32 35 2c 35 |,221,1,42,2,25,5| 00000380 2c 39 30 2c 32 2c 31 38 36 2c 32 2c 32 35 2c 38 |,90,2,186,2,25,8| 00000390 35 2c 39 30 2c 32 2c 34 32 2c 32 0d 00 b4 28 fb |5,90,2,42,2...(.| 000003a0 31 3a f1 8a 31 31 2c 33 29 3b 22 57 4f 4f 44 42 |1:..11,3);"WOODB| 000003b0 55 52 59 22 3b 8a 31 33 2c 35 29 3b 22 45 4e 44 |URY";.13,5);"END| 000003c0 22 20 20 0d 00 be 3a fb 32 3a f1 8a 31 34 2c 37 |" ...:.2:..14,7| 000003d0 29 3b 22 62 79 22 3a fb 33 3a f1 8a 31 32 2c 39 |);"by":.3:..12,9| 000003e0 29 3b 22 53 48 41 52 44 53 22 3b 8a 31 31 2c 31 |);"SHARDS";.11,1| 000003f0 31 29 3b 22 53 4f 46 54 57 41 52 45 22 0d 00 c8 |1);"SOFTWARE"...| 00000400 22 fb 31 3a f1 8a 32 2c 31 37 29 3b 22 4e 4f 57 |".1:..2,17);"NOW| 00000410 20 4c 4f 41 44 49 4e 47 2e 2e 2e 2e 2e 22 20 0d | LOADING....." .| 00000420 00 d2 08 f1 3a fb 32 0d 00 dc 05 f8 0d ff |....:.2.......| 0000042e
G/W1.m0
G/W1.m1
G/W1.m2
G/W1.m4
G/W1.m5
.