Home » Archimedes archive » Micro User » MU 1992-06.adf » PD » !BeastDemo/!RunImage
!BeastDemo/!RunImage
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 » Micro User » MU 1992-06.adf » PD |
| Filename: | !BeastDemo/!RunImage |
| Read OK: | ✔ |
| File size: | 02EF bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
30MODE13
40OFF
50PROCtext
60REPEAT FORcount=1TO10
70OSCLI"SCHOOSE b"+STR$(count)
80x=640-(count*32)
90y=512-(count*32)
100PLOT237,x,y
110MOUSE A,B,C:IF C=4 OR INKEY-99 OR INKEY-74 PROCgame
120FORx=0TO5:WAIT:MOUSE A,B,C:IF C=4 OR INKEY-99 OR INKEY-74 PROCgame ELSE NEXT
130NEXT
140UNTIL0
150:
160DEFPROCtext
170PROCfont("welcome to dungeons of the beast",3,4)
180PROCfont("game code and grafix by david law",3,29)
190PROCfont("level design by graham green",5,30)
200ENDPROC
210:
220DEFPROCgame
230*<Game$Dir>.GameCode
240ENDPROC
250:
260NB: SALOON CARS IS THE BEST EVER GAME WRITTEN FOR THE ARCHIMEDES
270 : AND IT'S A BARGAIN AT 24.95! BUY IT SOON, IF YOU HAVEN'T
280 : ALREADY!!!!!
290:
300DEFPROCfont(text$,txx,txy)
310FORcnt=1TO LEN(text$)
320tx=(txx*32)+(cnt*32)
330ty=1024-(txy*32)
340txt2$=MID$(text$,cnt,1)
350IF txt2$<>" "OSCLI"SCHOOSE "+txt2$:PLOT237,tx,ty
360NEXT
370ENDPROC
�13
(�
2 �text
<� �count=1�10
F�"SCHOOSE b"+�(count)
Px=640-(count*32)
Zy=512-(count*32)
d �237,x,y
n&ȗ A,B,C:� C=4 � �-99 � �-74 �game
x4�x=0�5:Ȗ:ȗ A,B,C:� C=4 � �-99 � �-74 �game � �
��
��0
�:
�
��text
�1�font("welcome to dungeons of the beast",3,4)
�3�font("game code and grafix by david law",3,29)
�.�font("level design by graham green",5,30)
��
�:
�
��game
�*<Game$Dir>.GameCode
��
�:
BNB: SALOON CARS IS THE BEST EVER GAME WRITTEN � THE ARCHIMEDES
= : � IT'S A BARGAIN AT 24.95! BUY IT SOON, � YOU HAVEN'T
: ALREADY!!!!!
":
,��font(text$,txx,txy)
6�cnt=1� �(text$)
@tx=(txx*32)+(cnt*32)
Jty=1024-(txy*32)
Ttxt2$=�text$,cnt,1)
^,� txt2$<>" "�"SCHOOSE "+txt2$:�237,tx,ty
h�
r�
� 00000000 0d 00 1e 07 eb 31 33 0d 00 28 05 87 0d 00 32 09 |.....13..(....2.|
00000010 f2 74 65 78 74 0d 00 3c 11 f5 20 e3 63 6f 75 6e |.text..<.. .coun|
00000020 74 3d 31 b8 31 30 0d 00 46 19 ff 22 53 43 48 4f |t=1.10..F.."SCHO|
00000030 4f 53 45 20 62 22 2b c3 28 63 6f 75 6e 74 29 0d |OSE b"+.(count).|
00000040 00 50 14 78 3d 36 34 30 2d 28 63 6f 75 6e 74 2a |.P.x=640-(count*|
00000050 33 32 29 0d 00 5a 14 79 3d 35 31 32 2d 28 63 6f |32)..Z.y=512-(co|
00000060 75 6e 74 2a 33 32 29 0d 00 64 0c f0 32 33 37 2c |unt*32)..d..237,|
00000070 78 2c 79 0d 00 6e 26 c8 97 20 41 2c 42 2c 43 3a |x,y..n&.. A,B,C:|
00000080 e7 20 43 3d 34 20 84 20 a6 2d 39 39 20 84 20 a6 |. C=4 . .-99 . .|
00000090 2d 37 34 20 f2 67 61 6d 65 0d 00 78 34 e3 78 3d |-74 .game..x4.x=|
000000a0 30 b8 35 3a c8 96 3a c8 97 20 41 2c 42 2c 43 3a |0.5:..:.. A,B,C:|
000000b0 e7 20 43 3d 34 20 84 20 a6 2d 39 39 20 84 20 a6 |. C=4 . .-99 . .|
000000c0 2d 37 34 20 f2 67 61 6d 65 20 8b 20 ed 0d 00 82 |-74 .game . ....|
000000d0 05 ed 0d 00 8c 06 fd 30 0d 00 96 05 3a 0d 00 a0 |.......0....:...|
000000e0 0a dd f2 74 65 78 74 0d 00 aa 31 f2 66 6f 6e 74 |...text...1.font|
000000f0 28 22 77 65 6c 63 6f 6d 65 20 74 6f 20 64 75 6e |("welcome to dun|
00000100 67 65 6f 6e 73 20 6f 66 20 74 68 65 20 62 65 61 |geons of the bea|
00000110 73 74 22 2c 33 2c 34 29 0d 00 b4 33 f2 66 6f 6e |st",3,4)...3.fon|
00000120 74 28 22 67 61 6d 65 20 63 6f 64 65 20 61 6e 64 |t("game code and|
00000130 20 67 72 61 66 69 78 20 62 79 20 64 61 76 69 64 | grafix by david|
00000140 20 6c 61 77 22 2c 33 2c 32 39 29 0d 00 be 2e f2 | law",3,29).....|
00000150 66 6f 6e 74 28 22 6c 65 76 65 6c 20 64 65 73 69 |font("level desi|
00000160 67 6e 20 62 79 20 67 72 61 68 61 6d 20 67 72 65 |gn by graham gre|
00000170 65 6e 22 2c 35 2c 33 30 29 0d 00 c8 05 e1 0d 00 |en",5,30).......|
00000180 d2 05 3a 0d 00 dc 0a dd f2 67 61 6d 65 0d 00 e6 |..:......game...|
00000190 18 2a 3c 47 61 6d 65 24 44 69 72 3e 2e 47 61 6d |.*<Game$Dir>.Gam|
000001a0 65 43 6f 64 65 0d 00 f0 05 e1 0d 00 fa 05 3a 0d |eCode.........:.|
000001b0 01 04 42 4e 42 3a 20 53 41 4c 4f 4f 4e 20 43 41 |..BNB: SALOON CA|
000001c0 52 53 20 49 53 20 54 48 45 20 42 45 53 54 20 45 |RS IS THE BEST E|
000001d0 56 45 52 20 47 41 4d 45 20 57 52 49 54 54 45 4e |VER GAME WRITTEN|
000001e0 20 e3 20 54 48 45 20 41 52 43 48 49 4d 45 44 45 | . THE ARCHIMEDE|
000001f0 53 0d 01 0e 3d 20 20 3a 20 80 20 49 54 27 53 20 |S...= : . IT'S |
00000200 41 20 42 41 52 47 41 49 4e 20 41 54 20 32 34 2e |A BARGAIN AT 24.|
00000210 39 35 21 20 42 55 59 20 49 54 20 53 4f 4f 4e 2c |95! BUY IT SOON,|
00000220 20 e7 20 59 4f 55 20 48 41 56 45 4e 27 54 0d 01 | . YOU HAVEN'T..|
00000230 18 14 20 20 3a 20 41 4c 52 45 41 44 59 21 21 21 |.. : ALREADY!!!|
00000240 21 21 0d 01 22 05 3a 0d 01 2c 19 dd f2 66 6f 6e |!!..".:..,...fon|
00000250 74 28 74 65 78 74 24 2c 74 78 78 2c 74 78 79 29 |t(text$,txx,txy)|
00000260 0d 01 36 14 e3 63 6e 74 3d 31 b8 20 a9 28 74 65 |..6..cnt=1. .(te|
00000270 78 74 24 29 0d 01 40 18 74 78 3d 28 74 78 78 2a |xt$)..@.tx=(txx*|
00000280 33 32 29 2b 28 63 6e 74 2a 33 32 29 0d 01 4a 14 |32)+(cnt*32)..J.|
00000290 74 79 3d 31 30 32 34 2d 28 74 78 79 2a 33 32 29 |ty=1024-(txy*32)|
000002a0 0d 01 54 17 74 78 74 32 24 3d c1 74 65 78 74 24 |..T.txt2$=.text$|
000002b0 2c 63 6e 74 2c 31 29 0d 01 5e 2c e7 20 74 78 74 |,cnt,1)..^,. txt|
000002c0 32 24 3c 3e 22 20 22 ff 22 53 43 48 4f 4f 53 45 |2$<>" "."SCHOOSE|
000002d0 20 22 2b 74 78 74 32 24 3a f0 32 33 37 2c 74 78 | "+txt2$:.237,tx|
000002e0 2c 74 79 0d 01 68 05 ed 0d 01 72 05 e1 0d ff |,ty..h....r....|
000002ef 
.