Home » Personal collection » Acorn ADFS disks » Greaseweazled » adfs_EUG_55.adf » G/CAS
G/CAS
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 » Greaseweazled » adfs_EUG_55.adf |
| Filename: | G/CAS |
| Read OK: | ✔ |
| File size: | 01F7 bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF802B |
Duplicates
There are 3 duplicate copies of this file in the archive:
- AEW website » eug » eug_3_5_discs_Eug-55_A-EUG55.adf » G/CAS
- AEW website » eug » eug_5_25_discs_Eug-55_D-EUG55.dsd » G.CAS
- Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_55.ADF » G/CAS
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_EUG_55.adf » G/CAS
File contents
10MODE5:VDU 23;8202;0;0;0; 20FOR G=50 TO 0 STEP -5 30 FOR F=1 TO 300 STEP G 40 GCOL 0,RND(1)*7+1 50 MOVE F,F:DRAW F,1024-F 60 DRAW 1280-F,1024-F 70 DRAW 1280-F,F 80 GOSUB 140 90 DRAW F,F 100 NEXT F 110NEXT G 120STOP 140IF G=50 THEN PRINT TAB(7,13)"CASTLE":RETURN 150IF G=45 THEN PRINT TAB(7,15)"OF THE":RETURN 160IF G=40 THEN PRINT TAB(5,17)"SKULL LORD":RETURN 170IF G=35 THEN GOTO 200 200A$=INKEY$(125):MODE6:VDU23;8202;0;0;0;:COLOUR7 210*KEY 0 PAGE=&1D00|MLO."G.CASdata"|M*T.|M*FX138,0,129|M 220*KEY 1 FORI%=0TO&3F8ESTEP4:I%!&E00=I%!&1D00:NEXTI%:PA.=&E00|MOLD|MRUN|M 230*FX138,0,128 240END
�5:� 23;8202;0;0;0;
� G=50 � 0 � -5
� F=1 � 300 � G
( � 0,�(1)*7+1
2 � F,F:� F,1024-F
< � 1280-F,1024-F
F � 1280-F,F
P � �tL@
Z
� F,F
d � F
n� G
x�
� � G=50 � � �7,13)"CASTLE":�
� � G=45 � � �7,15)"OF THE":�
�#� G=40 � � �5,17)"SKULL LORD":�
�� G=35 � � �dH@
�#A$=�(125):�6:�23;8202;0;0;0;:�7
�:*KEY 0 PAGE=&1D00|MLO."G.CASdata"|M*T.|M*FX138,0,129|M
�K*KEY 1 FORI%=0TO&3F8ESTEP4:I%!&E00=I%!&1D00:NEXTI%:PA.=&E00|MOLD|MRUN|M
�*FX138,0,128
��
� 00000000 0d 00 0a 17 eb 35 3a ef 20 32 33 3b 38 32 30 32 |.....5:. 23;8202| 00000010 3b 30 3b 30 3b 30 3b 0d 00 14 13 e3 20 47 3d 35 |;0;0;0;..... G=5| 00000020 30 20 b8 20 30 20 88 20 2d 35 0d 00 1e 15 20 20 |0 . 0 . -5.... | 00000030 e3 20 46 3d 31 20 b8 20 33 30 30 20 88 20 47 0d |. F=1 . 300 . G.| 00000040 00 28 14 20 20 20 20 e6 20 30 2c b3 28 31 29 2a |.(. . 0,.(1)*| 00000050 37 2b 31 0d 00 32 18 20 20 20 20 ec 20 46 2c 46 |7+1..2. . F,F| 00000060 3a df 20 46 2c 31 30 32 34 2d 46 0d 00 3c 17 20 |:. F,1024-F..<. | 00000070 20 20 20 df 20 31 32 38 30 2d 46 2c 31 30 32 34 | . 1280-F,1024| 00000080 2d 46 0d 00 46 12 20 20 20 20 df 20 31 32 38 30 |-F..F. . 1280| 00000090 2d 46 2c 46 0d 00 50 0e 20 20 20 20 e4 20 8d 74 |-F,F..P. . .t| 000000a0 4c 40 0d 00 5a 0d 20 20 20 20 df 20 46 2c 46 0d |L@..Z. . F,F.| 000000b0 00 64 09 20 20 ed 20 46 0d 00 6e 07 ed 20 47 0d |.d. . F..n.. G.| 000000c0 00 78 05 fa 0d 00 8c 1f e7 20 47 3d 35 30 20 8c |.x....... G=50 .| 000000d0 20 f1 20 8a 37 2c 31 33 29 22 43 41 53 54 4c 45 | . .7,13)"CASTLE| 000000e0 22 3a f8 0d 00 96 1f e7 20 47 3d 34 35 20 8c 20 |":...... G=45 . | 000000f0 f1 20 8a 37 2c 31 35 29 22 4f 46 20 54 48 45 22 |. .7,15)"OF THE"| 00000100 3a f8 0d 00 a0 23 e7 20 47 3d 34 30 20 8c 20 f1 |:....#. G=40 . .| 00000110 20 8a 35 2c 31 37 29 22 53 4b 55 4c 4c 20 4c 4f | .5,17)"SKULL LO| 00000120 52 44 22 3a f8 0d 00 aa 13 e7 20 47 3d 33 35 20 |RD":...... G=35 | 00000130 8c 20 e5 20 8d 64 48 40 0d 00 c8 23 41 24 3d bf |. . .dH@...#A$=.| 00000140 28 31 32 35 29 3a eb 36 3a ef 32 33 3b 38 32 30 |(125):.6:.23;820| 00000150 32 3b 30 3b 30 3b 30 3b 3a fb 37 0d 00 d2 3a 2a |2;0;0;0;:.7...:*| 00000160 4b 45 59 20 30 20 50 41 47 45 3d 26 31 44 30 30 |KEY 0 PAGE=&1D00| 00000170 7c 4d 4c 4f 2e 22 47 2e 43 41 53 64 61 74 61 22 ||MLO."G.CASdata"| 00000180 7c 4d 2a 54 2e 7c 4d 2a 46 58 31 33 38 2c 30 2c ||M*T.|M*FX138,0,| 00000190 31 32 39 7c 4d 0d 00 dc 4b 2a 4b 45 59 20 31 20 |129|M...K*KEY 1 | 000001a0 46 4f 52 49 25 3d 30 54 4f 26 33 46 38 45 53 54 |FORI%=0TO&3F8EST| 000001b0 45 50 34 3a 49 25 21 26 45 30 30 3d 49 25 21 26 |EP4:I%!&E00=I%!&| 000001c0 31 44 30 30 3a 4e 45 58 54 49 25 3a 50 41 2e 3d |1D00:NEXTI%:PA.=| 000001d0 26 45 30 30 7c 4d 4f 4c 44 7c 4d 52 55 4e 7c 4d |&E00|MOLD|MRUN|M| 000001e0 0d 00 e6 10 2a 46 58 31 33 38 2c 30 2c 31 32 38 |....*FX138,0,128| 000001f0 0d 00 f0 05 e0 0d ff |.......| 000001f7
.