Games/!Surround/!RUNIMAGE

Home » Archimedes archive » Micro User » MU 1991-08.adf » PD-Stuff » Games/!Surround/!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 1991-08.adf » PD-Stuff
Filename:	Games/!Surround/!RUNIMAGE
Read OK:	✔
File size:	111C bytes
Load address:	0000
Exec address:	0000

D��< ��40����Q��Z���BASIC -Quit @00009000,0000A0CC̠��

L � -- SURROUNDED -- -- A Public Domain Game by Martin Dunn -- -- 1990 --
 
A=-98:B=-67:C=-80:D=-105
(
 huh=0
2	 SP=1
P *SLOAD <OBEY$DIR>.Grafix
Z hi%=0:name$="Archie"
d dummy=�
n time%=2000
x level=1
� tcol=1
�
 col=0
�
 AS=64
� F%=640:G%=412
� pass=0
�	 � 15
� ș 26,64,64
� �
� *SCHOOSE SURROUND
�% �display:�instruct:�play:�move:�
� 
� ��display
� � 23;8202;0;0;0;
� � huh=1 � �otherdisplay:�
� � x= 1300 � 0 � -2
� � &ED,x,850
 �
 � 5
 �
" � 0,850
, � 0,col
6I �"                         Programmed by Martin Dunn  November 1990"
@ col=col+1
J
 � col=63
T � 4
^ �
h! � 0,AS Ȝ 64:ȓ 0,0,1279,800
r" � 0,AS Ȝ 127:ȓ 4,5,1270,791
|# � 0,AS Ȝ 255:ȓ 8,10,1262,784
� AS=AS-1
� �=0:���=3
� � AS=5
� �
� 
� ��instruct
� �
� � �(-99) � �
�
 � 0,tcol
�b �5:� 20,750:�"Guide Fred the worm around the garden until the time has run out. Fred may not"
�_ � 20,700:�"bump into any of the obstacles on the screen or the trail he leaves behind. If"
�[ � 20,650:�"you manage to do this until the timer reaches zero you will proceed to the"
�^ � 20,600:�"next level. However, if you press more than one key, the timer increases ...."
�( � 20,550:�" The keys are: Z = Left"
) � 20,500:�"               X = Right"
& � 20,450:�"               ' = Up"
( � 20,400:�"               / = Down"
&% � 20,300:�"Today's hi-score is "
0 � 220,300:�hi%
:% � 450,300:�"by ";:�name$;:�" !!"
DD � 20,200:�"                     Press the spacebar to play !! "
N � 4
X tcol=tcol+1
b � tcol=63 � tcol=1
l ��(-99)
v �
� 
� ��play
� � 23;8202;0;0;0;
�$ � 0,0 Ȝ 0:ȓ Ȑ 10,15,1255,770
� �
�' m1%=�(1279):m2%=�(750):pass=pass+1
�U � m1%<20 � m1%>1200 � m2%<20 � m2%> 750 � m1%=640 � m2%=412 � pass=pass-1:� �thB
� *SCHOOSE mushroom
�	 �8,0
� � &ED,m1%,m2%
� � pass=20
� �
� 
� ��move
( � level=1 � level=2 � *SCHOOSE fred
 � level>2 � *SCHOOSE fred2
 �
  � &ED,F%,G%
*� � �(A) � �(B) � �(A) � �(B) � �(C) � �(A) � �(B) � �(C) � �(D) � �(B) � �(C) � �(A) � �(D) � �(A) � �(C) � �(B) � �(D) � �all
4X � �(C) � �(D) � �(A) � �(D) � �(B) � �(B) � �(C) � �(D) � �(A) � �(D) � �(C) � �all
> � �(A) � �left:�move
H � �(B) � �right:�move
R � �(C) � �up:�move
\ � �(D) � �down:�move
f
 �dummy=�
p �
z 
� ��left
� �
� �timer
�X � �F%,G%)<>0 � �F%,G%+10)<>0 � �F%,G%+20)<>0 � �F%,G%+30)<>0 � �F%,G%+40)<>0 � �die
�  F%=F%-SP:� &ED,F%,G%
� � �(B) � �(C) � �(D)
� �
� 
� ��right
� �
� �timer
�g � �F%+40,G%)<>0 � �F%+40,G%+10)<>0 � �F%+40,G%+20)<>0 � �F%+40,G%+30)<>0 � �F%+40,G%+40)<>0 � �die
� F%=F%+SP:� &ED,F%,G%
 � �(A) � �(C) � �(D)
 �
 
$	 ��up
. �
8 �timer
Bg � �F%,G%+40)<>0 � �F%+10,G%+40)<>0 � �F%+20,G%+40)<>0 � �F%+30,G%+40)<>0 � �F%+40,G%+40)<>0 � �die
L G%=G%+SP:� &ED,F%,G%
V � �(A) � �(B) � �(D)
` �
j 
t ��down
~ �
� �timer
�X � �F%,G%)<>0 � �F%+10,G%)<>0 � �F%+20,G%)<>0 � �F%+30,G%)<>0 � �F%+40,G%)<>0 � �die
� G%=G%-SP:� &ED,F%,G%
� � �(A) � �(B) � �(C)
� �
� 
� ��timer
� �
�	 � 12
�) �0,5)"Time left: "time%;:�"    ":�4
� � time%=0 � �nextlevel
� time%=time%-1
 �

 

 ��all
 time%=time%+1
( �timer2:�move
2 �
< 
F
 ��timer2
P � 2
Z+ �:�0,5)"Time left: "time%;:�"    ":�4
d �
n 
x 
�
 ��die
�
 huh=1
� �
�? �4:�15:�" GAME OVER - Yes, admit it .... you messed up !!"
�@ �:�"Your total score is 10 times the level you reached...."
� �:�"Thats .... "level*10
�] �:� level*10>hi% � �newhi � �"                      Press the space bar ..... ":���(-99)
�* level=1:SP=1:time%=2000:pass=0:� �Dd@
� �
� 
� ��otherdisplay
� *SCHOOSE surround
�� � &ED,0,850:� 5:�:� 0,850:� 0,col:�"                         Programmed by Martin Dunn  November 1990":col=col+1:� col=63:� 4:�:� 0,AS Ȝ 64:ȓ 0,0,1279,800:� 0,AS Ȝ 127:
L ȓ 4,5,1270,791:� 0,AS Ȝ 255:ȓ 8,10,1262,784:AS=AS-1:�=0:���=3:� AS=5
 F%=640:G%=412
 �
" 
, ��newhi
6 *FX15,0
7 �
@J �:�"Incredible !!, you've got the hi-score ... enter your name:"name$
A" � name$="" � name$="nameless"
J hi%=level*10
T* level=1:SP=1:time%=2000:pass=0:� �Dd@
U �
^ � �Dd@
h �
r 
| ��nextlevel
�, level=level+1:SP=SP+1:time%=2000:pass=0
� F%=640:G%=412
� �play:�move
� �
�

00000000  44 10 9f e5 3c 20 9f e5  34 30 9f e5 04 00 12 e4  |D...< ..40......|
00000010  04 00 03 e4 04 10 51 e2  fb ff ff 5a 00 00 8f e2  |......Q....Z....|
00000020  05 00 00 ef 42 41 53 49  43 20 2d 51 75 69 74 20  |....BASIC -Quit |
00000030  40 30 30 30 30 39 30 30  30 2c 30 30 30 30 41 30  |@00009000,0000A0|
00000040  43 43 00 0e cc a0 00 00  1c 91 00 00 cc 10 00 00  |CC..............|
00000050  0d 00 0a 4c 20 f4 20 2d  2d 20 53 55 52 52 4f 55  |...L . -- SURROU|
00000060  4e 44 45 44 20 2d 2d 20  2d 2d 20 41 20 50 75 62  |NDED -- -- A Pub|
00000070  6c 69 63 20 44 6f 6d 61  69 6e 20 47 61 6d 65 20  |lic Domain Game |
00000080  62 79 20 4d 61 72 74 69  6e 20 44 75 6e 6e 20 2d  |by Martin Dunn -|
00000090  2d 20 2d 2d 20 31 39 39  30 20 2d 2d 0d 00 14 05  |- -- 1990 --....|
000000a0  20 0d 00 1e 1c 41 3d 2d  39 38 3a 42 3d 2d 36 37  | ....A=-98:B=-67|
000000b0  3a 43 3d 2d 38 30 3a 44  3d 2d 31 30 35 0d 00 28  |:C=-80:D=-105..(|
000000c0  0a 20 68 75 68 3d 30 0d  00 32 09 20 53 50 3d 31  |. huh=0..2. SP=1|
000000d0  0d 00 50 1d 20 2a 53 4c  4f 41 44 20 3c 4f 42 45  |..P. *SLOAD <OBE|
000000e0  59 24 44 49 52 3e 2e 47  72 61 66 69 78 0d 00 5a  |Y$DIR>.Grafix..Z|
000000f0  19 20 68 69 25 3d 30 3a  6e 61 6d 65 24 3d 22 41  |. hi%=0:name$="A|
00000100  72 63 68 69 65 22 0d 00  64 0c 20 64 75 6d 6d 79  |rchie"..d. dummy|
00000110  3d a3 0d 00 6e 0f 20 74  69 6d 65 25 3d 32 30 30  |=...n. time%=200|
00000120  30 0d 00 78 0c 20 6c 65  76 65 6c 3d 31 0d 00 82  |0..x. level=1...|
00000130  0b 20 74 63 6f 6c 3d 31  0d 00 8c 0a 20 63 6f 6c  |. tcol=1.... col|
00000140  3d 30 0d 00 96 0a 20 41  53 3d 36 34 0d 00 a0 12  |=0.... AS=64....|
00000150  20 46 25 3d 36 34 30 3a  47 25 3d 34 31 32 0d 00  | F%=640:G%=412..|
00000160  aa 0b 20 70 61 73 73 3d  30 0d 00 b4 09 20 eb 20  |.. pass=0.... . |
00000170  31 35 0d 00 b9 10 20 c8  99 20 32 36 2c 36 34 2c  |15.... .. 26,64,|
00000180  36 34 0d 00 ba 06 20 87  0d 00 be 16 20 2a 53 43  |64.... ..... *SC|
00000190  48 4f 4f 53 45 20 53 55  52 52 4f 55 4e 44 0d 00  |HOOSE SURROUND..|
000001a0  c8 25 20 f2 64 69 73 70  6c 61 79 3a f2 69 6e 73  |.% .display:.ins|
000001b0  74 72 75 63 74 3a f2 70  6c 61 79 3a f2 6d 6f 76  |truct:.play:.mov|
000001c0  65 3a e0 0d 00 d2 05 20  0d 00 dc 0e 20 dd f2 64  |e:..... .... ..d|
000001d0  69 73 70 6c 61 79 0d 00  dd 15 20 ef 20 32 33 3b  |isplay.... . 23;|
000001e0  38 32 30 32 3b 30 3b 30  3b 30 3b 0d 00 e6 1e 20  |8202;0;0;0;.... |
000001f0  e7 20 68 75 68 3d 31 20  8c 20 f2 6f 74 68 65 72  |. huh=1 . .other|
00000200  64 69 73 70 6c 61 79 3a  e1 0d 00 f0 17 20 e3 20  |display:..... . |
00000210  78 3d 20 31 33 30 30 20  b8 20 30 20 88 20 2d 32  |x= 1300 . 0 . -2|
00000220  0d 00 fa 10 20 f0 20 26  45 44 2c 78 2c 38 35 30  |.... . &ED,x,850|
00000230  0d 01 04 06 20 ed 0d 01  0e 08 20 ef 20 35 0d 01  |.... ..... . 5..|
00000240  18 06 20 f5 0d 01 22 0c  20 ec 20 30 2c 38 35 30  |.. ...". . 0,850|
00000250  0d 01 2c 0c 20 e6 20 30  2c 63 6f 6c 0d 01 36 49  |..,. . 0,col..6I|
00000260  20 f1 22 20 20 20 20 20  20 20 20 20 20 20 20 20  | ."             |
00000270  20 20 20 20 20 20 20 20  20 20 20 20 50 72 6f 67  |            Prog|
00000280  72 61 6d 6d 65 64 20 62  79 20 4d 61 72 74 69 6e  |rammed by Martin|
00000290  20 44 75 6e 6e 20 20 4e  6f 76 65 6d 62 65 72 20  | Dunn  November |
000002a0  31 39 39 30 22 0d 01 40  0e 20 63 6f 6c 3d 63 6f  |1990"..@. col=co|
000002b0  6c 2b 31 0d 01 4a 0d 20  fd 20 63 6f 6c 3d 36 33  |l+1..J. . col=63|
000002c0  0d 01 54 08 20 ef 20 34  0d 01 5e 06 20 f5 0d 01  |..T. . 4..^. ...|
000002d0  68 21 20 e6 20 30 2c 41  53 20 c8 9c 20 36 34 3a  |h! . 0,AS .. 64:|
000002e0  c8 93 20 30 2c 30 2c 31  32 37 39 2c 38 30 30 0d  |.. 0,0,1279,800.|
000002f0  01 72 22 20 e6 20 30 2c  41 53 20 c8 9c 20 31 32  |.r" . 0,AS .. 12|
00000300  37 3a c8 93 20 34 2c 35  2c 31 32 37 30 2c 37 39  |7:.. 4,5,1270,79|
00000310  31 0d 01 7c 23 20 e6 20  30 2c 41 53 20 c8 9c 20  |1..|# . 0,AS .. |
00000320  32 35 35 3a c8 93 20 38  2c 31 30 2c 31 32 36 32  |255:.. 8,10,1262|
00000330  2c 37 38 34 0d 01 86 0c  20 41 53 3d 41 53 2d 31  |,784.... AS=AS-1|
00000340  0d 01 90 0e 20 d1 3d 30  3a f5 fd 91 3d 33 0d 01  |.... .=0:...=3..|
00000350  9a 0b 20 fd 20 41 53 3d  35 0d 01 a4 06 20 e1 0d  |.. . AS=5.... ..|
00000360  01 ae 05 20 0d 01 b8 0f  20 dd f2 69 6e 73 74 72  |... .... ..instr|
00000370  75 63 74 0d 01 c2 06 20  f5 0d 01 c3 11 20 e7 20  |uct.... ..... . |
00000380  a6 28 2d 39 39 29 20 8c  20 e1 0d 01 cc 0d 20 e6  |.(-99) . ..... .|
00000390  20 30 2c 74 63 6f 6c 0d  01 d6 62 20 ef 35 3a ec  | 0,tcol...b .5:.|
000003a0  20 32 30 2c 37 35 30 3a  f1 22 47 75 69 64 65 20  | 20,750:."Guide |
000003b0  46 72 65 64 20 74 68 65  20 77 6f 72 6d 20 61 72  |Fred the worm ar|
000003c0  6f 75 6e 64 20 74 68 65  20 67 61 72 64 65 6e 20  |ound the garden |
000003d0  75 6e 74 69 6c 20 74 68  65 20 74 69 6d 65 20 68  |until the time h|
000003e0  61 73 20 72 75 6e 20 6f  75 74 2e 20 46 72 65 64  |as run out. Fred|
000003f0  20 6d 61 79 20 6e 6f 74  22 0d 01 e0 5f 20 ec 20  | may not"..._ . |
00000400  32 30 2c 37 30 30 3a f1  22 62 75 6d 70 20 69 6e  |20,700:."bump in|
00000410  74 6f 20 61 6e 79 20 6f  66 20 74 68 65 20 6f 62  |to any of the ob|
00000420  73 74 61 63 6c 65 73 20  6f 6e 20 74 68 65 20 73  |stacles on the s|
00000430  63 72 65 65 6e 20 6f 72  20 74 68 65 20 74 72 61  |creen or the tra|
00000440  69 6c 20 68 65 20 6c 65  61 76 65 73 20 62 65 68  |il he leaves beh|
00000450  69 6e 64 2e 20 49 66 22  0d 01 ea 5b 20 ec 20 32  |ind. If"...[ . 2|
00000460  30 2c 36 35 30 3a f1 22  79 6f 75 20 6d 61 6e 61  |0,650:."you mana|
00000470  67 65 20 74 6f 20 64 6f  20 74 68 69 73 20 75 6e  |ge to do this un|
00000480  74 69 6c 20 74 68 65 20  74 69 6d 65 72 20 72 65  |til the timer re|
00000490  61 63 68 65 73 20 7a 65  72 6f 20 79 6f 75 20 77  |aches zero you w|
000004a0  69 6c 6c 20 70 72 6f 63  65 65 64 20 74 6f 20 74  |ill proceed to t|
000004b0  68 65 22 0d 01 f4 5e 20  ec 20 32 30 2c 36 30 30  |he"...^ . 20,600|
000004c0  3a f1 22 6e 65 78 74 20  6c 65 76 65 6c 2e 20 48  |:."next level. H|
000004d0  6f 77 65 76 65 72 2c 20  69 66 20 79 6f 75 20 70  |owever, if you p|
000004e0  72 65 73 73 20 6d 6f 72  65 20 74 68 61 6e 20 6f  |ress more than o|
000004f0  6e 65 20 6b 65 79 2c 20  74 68 65 20 74 69 6d 65  |ne key, the time|
00000500  72 20 69 6e 63 72 65 61  73 65 73 20 2e 2e 2e 2e  |r increases ....|
00000510  22 0d 01 fe 28 20 ec 20  32 30 2c 35 35 30 3a f1  |"...( . 20,550:.|
00000520  22 20 54 68 65 20 6b 65  79 73 20 61 72 65 3a 20  |" The keys are: |
00000530  5a 20 3d 20 4c 65 66 74  22 0d 02 08 29 20 ec 20  |Z = Left"...) . |
00000540  32 30 2c 35 30 30 3a f1  22 20 20 20 20 20 20 20  |20,500:."       |
00000550  20 20 20 20 20 20 20 20  58 20 3d 20 52 69 67 68  |        X = Righ|
00000560  74 22 0d 02 12 26 20 ec  20 32 30 2c 34 35 30 3a  |t"...& . 20,450:|
00000570  f1 22 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |."              |
00000580  20 27 20 3d 20 55 70 22  0d 02 1c 28 20 ec 20 32  | ' = Up"...( . 2|
00000590  30 2c 34 30 30 3a f1 22  20 20 20 20 20 20 20 20  |0,400:."        |
000005a0  20 20 20 20 20 20 20 2f  20 3d 20 44 6f 77 6e 22  |       / = Down"|
000005b0  0d 02 26 25 20 ec 20 32  30 2c 33 30 30 3a f1 22  |..&% . 20,300:."|
000005c0  54 6f 64 61 79 27 73 20  68 69 2d 73 63 6f 72 65  |Today's hi-score|
000005d0  20 69 73 20 22 0d 02 30  13 20 ec 20 32 32 30 2c  | is "..0. . 220,|
000005e0  33 30 30 3a f1 68 69 25  0d 02 3a 25 20 ec 20 34  |300:.hi%..:% . 4|
000005f0  35 30 2c 33 30 30 3a f1  22 62 79 20 22 3b 3a f1  |50,300:."by ";:.|
00000600  6e 61 6d 65 24 3b 3a f1  22 20 21 21 22 0d 02 44  |name$;:." !!"..D|
00000610  44 20 ec 20 32 30 2c 32  30 30 3a f1 22 20 20 20  |D . 20,200:."   |
00000620  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000630  20 20 50 72 65 73 73 20  74 68 65 20 73 70 61 63  |  Press the spac|
00000640  65 62 61 72 20 74 6f 20  70 6c 61 79 20 21 21 20  |ebar to play !! |
00000650  22 0d 02 4e 08 20 ef 20  34 0d 02 58 10 20 74 63  |"..N. . 4..X. tc|
00000660  6f 6c 3d 74 63 6f 6c 2b  31 0d 02 62 17 20 e7 20  |ol=tcol+1..b. . |
00000670  74 63 6f 6c 3d 36 33 20  8c 20 74 63 6f 6c 3d 31  |tcol=63 . tcol=1|
00000680  0d 02 6c 0c 20 fd a6 28  2d 39 39 29 0d 02 76 06  |..l. ..(-99)..v.|
00000690  20 e1 0d 02 80 05 20 0d  02 8a 0b 20 dd f2 70 6c  | ..... .... ..pl|
000006a0  61 79 0d 02 8b 15 20 ef  20 32 33 3b 38 32 30 32  |ay.... . 23;8202|
000006b0  3b 30 3b 30 3b 30 3b 0d  02 94 24 20 e6 20 30 2c  |;0;0;0;...$ . 0,|
000006c0  30 20 c8 9c 20 30 3a c8  93 20 c8 90 20 31 30 2c  |0 .. 0:.. .. 10,|
000006d0  31 35 2c 31 32 35 35 2c  37 37 30 0d 02 9e 06 20  |15,1255,770.... |
000006e0  f5 0d 02 a8 27 20 6d 31  25 3d b3 28 31 32 37 39  |....' m1%=.(1279|
000006f0  29 3a 6d 32 25 3d b3 28  37 35 30 29 3a 70 61 73  |):m2%=.(750):pas|
00000700  73 3d 70 61 73 73 2b 31  0d 02 b2 55 20 e7 20 6d  |s=pass+1...U . m|
00000710  31 25 3c 32 30 20 84 20  6d 31 25 3e 31 32 30 30  |1%<20 . m1%>1200|
00000720  20 84 20 6d 32 25 3c 32  30 20 84 20 6d 32 25 3e  | . m2%<20 . m2%>|
00000730  20 37 35 30 20 84 20 6d  31 25 3d 36 34 30 20 80  | 750 . m1%=640 .|
00000740  20 6d 32 25 3d 34 31 32  20 8c 20 70 61 73 73 3d  | m2%=412 . pass=|
00000750  70 61 73 73 2d 31 3a e5  20 8d 74 68 42 0d 02 bc  |pass-1:. .thB...|
00000760  16 20 2a 53 43 48 4f 4f  53 45 20 6d 75 73 68 72  |. *SCHOOSE mushr|
00000770  6f 6f 6d 0d 02 c6 09 20  e6 38 2c 30 0d 02 d0 12  |oom.... .8,0....|
00000780  20 f0 20 26 45 44 2c 6d  31 25 2c 6d 32 25 0d 02  | . &ED,m1%,m2%..|
00000790  da 0e 20 fd 20 70 61 73  73 3d 32 30 0d 02 e4 06  |.. . pass=20....|
000007a0  20 e1 0d 02 ee 05 20 0d  02 f8 0b 20 dd f2 6d 6f  | ..... .... ..mo|
000007b0  76 65 0d 03 02 28 20 e7  20 6c 65 76 65 6c 3d 31  |ve...( . level=1|
000007c0  20 84 20 6c 65 76 65 6c  3d 32 20 8c 20 2a 53 43  | . level=2 . *SC|
000007d0  48 4f 4f 53 45 20 66 72  65 64 0d 03 0c 1f 20 e7  |HOOSE fred.... .|
000007e0  20 6c 65 76 65 6c 3e 32  20 8c 20 2a 53 43 48 4f  | level>2 . *SCHO|
000007f0  4f 53 45 20 66 72 65 64  32 0d 03 16 06 20 f5 0d  |OSE fred2.... ..|
00000800  03 20 10 20 f0 20 26 45  44 2c 46 25 2c 47 25 0d  |. . . &ED,F%,G%.|
00000810  03 2a 82 20 e7 20 a6 28  41 29 20 80 20 a6 28 42  |.*. . .(A) . .(B|
00000820  29 20 84 20 a6 28 41 29  20 80 20 a6 28 42 29 20  |) . .(A) . .(B) |
00000830  80 20 a6 28 43 29 20 84  20 a6 28 41 29 20 80 20  |. .(C) . .(A) . |
00000840  a6 28 42 29 20 80 20 a6  28 43 29 20 80 20 a6 28  |.(B) . .(C) . .(|
00000850  44 29 20 84 20 a6 28 42  29 20 80 20 a6 28 43 29  |D) . .(B) . .(C)|
00000860  20 84 20 a6 28 41 29 20  80 20 a6 28 44 29 20 84  | . .(A) . .(D) .|
00000870  20 a6 28 41 29 20 80 20  a6 28 43 29 20 84 20 a6  | .(A) . .(C) . .|
00000880  28 42 29 20 80 20 a6 28  44 29 20 8c 20 f2 61 6c  |(B) . .(D) . .al|
00000890  6c 0d 03 34 58 20 e7 20  a6 28 43 29 20 80 20 a6  |l..4X . .(C) . .|
000008a0  28 44 29 20 84 20 a6 28  41 29 20 80 20 a6 28 44  |(D) . .(A) . .(D|
000008b0  29 20 80 20 a6 28 42 29  20 84 20 a6 28 42 29 20  |) . .(B) . .(B) |
000008c0  80 20 a6 28 43 29 20 80  20 a6 28 44 29 20 84 20  |. .(C) . .(D) . |
000008d0  a6 28 41 29 20 80 20 a6  28 44 29 20 80 20 a6 28  |.(A) . .(D) . .(|
000008e0  43 29 20 8c 20 f2 61 6c  6c 0d 03 3e 19 20 e7 20  |C) . .all..>. . |
000008f0  a6 28 41 29 20 8c 20 f2  6c 65 66 74 3a f2 6d 6f  |.(A) . .left:.mo|
00000900  76 65 0d 03 48 1a 20 e7  20 a6 28 42 29 20 8c 20  |ve..H. . .(B) . |
00000910  f2 72 69 67 68 74 3a f2  6d 6f 76 65 0d 03 52 17  |.right:.move..R.|
00000920  20 e7 20 a6 28 43 29 20  8c 20 f2 75 70 3a f2 6d  | . .(C) . .up:.m|
00000930  6f 76 65 0d 03 5c 19 20  e7 20 a6 28 44 29 20 8c  |ove..\. . .(D) .|
00000940  20 f2 64 6f 77 6e 3a f2  6d 6f 76 65 0d 03 66 0d  | .down:.move..f.|
00000950  20 fd 64 75 6d 6d 79 3d  b9 0d 03 70 06 20 e1 0d  | .dummy=...p. ..|
00000960  03 7a 05 20 0d 03 84 0b  20 dd f2 6c 65 66 74 0d  |.z. .... ..left.|
00000970  03 8e 06 20 f5 0d 03 98  0b 20 f2 74 69 6d 65 72  |... ..... .timer|
00000980  0d 03 a2 58 20 e7 20 b0  46 25 2c 47 25 29 3c 3e  |...X . .F%,G%)<>|
00000990  30 20 84 20 b0 46 25 2c  47 25 2b 31 30 29 3c 3e  |0 . .F%,G%+10)<>|
000009a0  30 20 84 20 b0 46 25 2c  47 25 2b 32 30 29 3c 3e  |0 . .F%,G%+20)<>|
000009b0  30 20 84 20 b0 46 25 2c  47 25 2b 33 30 29 3c 3e  |0 . .F%,G%+30)<>|
000009c0  30 20 84 20 b0 46 25 2c  47 25 2b 34 30 29 3c 3e  |0 . .F%,G%+40)<>|
000009d0  30 20 8c 20 f2 64 69 65  0d 03 ac 1a 20 20 46 25  |0 . .die....  F%|
000009e0  3d 46 25 2d 53 50 3a f0  20 26 45 44 2c 46 25 2c  |=F%-SP:. &ED,F%,|
000009f0  47 25 0d 03 b6 19 20 fd  20 a6 28 42 29 20 84 20  |G%.... . .(B) . |
00000a00  a6 28 43 29 20 84 20 a6  28 44 29 0d 03 c0 06 20  |.(C) . .(D).... |
00000a10  e1 0d 03 ca 05 20 0d 03  d4 0c 20 dd f2 72 69 67  |..... .... ..rig|
00000a20  68 74 0d 03 de 06 20 f5  0d 03 e8 0b 20 f2 74 69  |ht.... ..... .ti|
00000a30  6d 65 72 0d 03 f2 67 20  e7 20 b0 46 25 2b 34 30  |mer...g . .F%+40|
00000a40  2c 47 25 29 3c 3e 30 20  84 20 b0 46 25 2b 34 30  |,G%)<>0 . .F%+40|
00000a50  2c 47 25 2b 31 30 29 3c  3e 30 20 84 20 b0 46 25  |,G%+10)<>0 . .F%|
00000a60  2b 34 30 2c 47 25 2b 32  30 29 3c 3e 30 20 84 20  |+40,G%+20)<>0 . |
00000a70  b0 46 25 2b 34 30 2c 47  25 2b 33 30 29 3c 3e 30  |.F%+40,G%+30)<>0|
00000a80  20 84 20 b0 46 25 2b 34  30 2c 47 25 2b 34 30 29  | . .F%+40,G%+40)|
00000a90  3c 3e 30 20 8c 20 f2 64  69 65 0d 03 fc 19 20 46  |<>0 . .die.... F|
00000aa0  25 3d 46 25 2b 53 50 3a  f0 20 26 45 44 2c 46 25  |%=F%+SP:. &ED,F%|
00000ab0  2c 47 25 0d 04 06 19 20  fd 20 a6 28 41 29 20 84  |,G%.... . .(A) .|
00000ac0  20 a6 28 43 29 20 84 20  a6 28 44 29 0d 04 10 06  | .(C) . .(D)....|
00000ad0  20 e1 0d 04 1a 05 20 0d  04 24 09 20 dd f2 75 70  | ..... ..$. ..up|
00000ae0  0d 04 2e 06 20 f5 0d 04  38 0b 20 f2 74 69 6d 65  |.... ...8. .time|
00000af0  72 0d 04 42 67 20 e7 20  b0 46 25 2c 47 25 2b 34  |r..Bg . .F%,G%+4|
00000b00  30 29 3c 3e 30 20 84 20  b0 46 25 2b 31 30 2c 47  |0)<>0 . .F%+10,G|
00000b10  25 2b 34 30 29 3c 3e 30  20 84 20 b0 46 25 2b 32  |%+40)<>0 . .F%+2|
00000b20  30 2c 47 25 2b 34 30 29  3c 3e 30 20 84 20 b0 46  |0,G%+40)<>0 . .F|
00000b30  25 2b 33 30 2c 47 25 2b  34 30 29 3c 3e 30 20 84  |%+30,G%+40)<>0 .|
00000b40  20 b0 46 25 2b 34 30 2c  47 25 2b 34 30 29 3c 3e  | .F%+40,G%+40)<>|
00000b50  30 20 8c 20 f2 64 69 65  0d 04 4c 19 20 47 25 3d  |0 . .die..L. G%=|
00000b60  47 25 2b 53 50 3a f0 20  26 45 44 2c 46 25 2c 47  |G%+SP:. &ED,F%,G|
00000b70  25 0d 04 56 19 20 fd 20  a6 28 41 29 20 84 20 a6  |%..V. . .(A) . .|
00000b80  28 42 29 20 84 20 a6 28  44 29 0d 04 60 06 20 e1  |(B) . .(D)..`. .|
00000b90  0d 04 6a 05 20 0d 04 74  0b 20 dd f2 64 6f 77 6e  |..j. ..t. ..down|
00000ba0  0d 04 7e 06 20 f5 0d 04  88 0b 20 f2 74 69 6d 65  |..~. ..... .time|
00000bb0  72 0d 04 92 58 20 e7 20  b0 46 25 2c 47 25 29 3c  |r...X . .F%,G%)<|
00000bc0  3e 30 20 84 20 b0 46 25  2b 31 30 2c 47 25 29 3c  |>0 . .F%+10,G%)<|
00000bd0  3e 30 20 84 20 b0 46 25  2b 32 30 2c 47 25 29 3c  |>0 . .F%+20,G%)<|
00000be0  3e 30 20 84 20 b0 46 25  2b 33 30 2c 47 25 29 3c  |>0 . .F%+30,G%)<|
00000bf0  3e 30 20 84 20 b0 46 25  2b 34 30 2c 47 25 29 3c  |>0 . .F%+40,G%)<|
00000c00  3e 30 20 8c 20 f2 64 69  65 0d 04 9c 19 20 47 25  |>0 . .die.... G%|
00000c10  3d 47 25 2d 53 50 3a f0  20 26 45 44 2c 46 25 2c  |=G%-SP:. &ED,F%,|
00000c20  47 25 0d 04 a6 19 20 fd  20 a6 28 41 29 20 84 20  |G%.... . .(A) . |
00000c30  a6 28 42 29 20 84 20 a6  28 43 29 0d 04 b0 06 20  |.(B) . .(C).... |
00000c40  e1 0d 04 ba 05 20 0d 04  c4 0c 20 dd f2 74 69 6d  |..... .... ..tim|
00000c50  65 72 0d 04 ce 06 20 87  0d 04 d8 09 20 fb 20 31  |er.... ..... . 1|
00000c60  32 0d 04 e2 29 20 f1 8a  30 2c 35 29 22 54 69 6d  |2...) ..0,5)"Tim|
00000c70  65 20 6c 65 66 74 3a 20  22 74 69 6d 65 25 3b 3a  |e left: "time%;:|
00000c80  f1 22 20 20 20 20 22 3a  ef 34 0d 04 ec 1b 20 e7  |."    ":.4.... .|
00000c90  20 74 69 6d 65 25 3d 30  20 8c 20 f2 6e 65 78 74  | time%=0 . .next|
00000ca0  6c 65 76 65 6c 0d 04 f6  12 20 74 69 6d 65 25 3d  |level.... time%=|
00000cb0  74 69 6d 65 25 2d 31 0d  05 00 06 20 e1 0d 05 0a  |time%-1.... ....|
00000cc0  05 20 0d 05 14 0a 20 dd  f2 61 6c 6c 0d 05 1e 12  |. .... ..all....|
00000cd0  20 74 69 6d 65 25 3d 74  69 6d 65 25 2b 31 0d 05  | time%=time%+1..|
00000ce0  28 12 20 f2 74 69 6d 65  72 32 3a f2 6d 6f 76 65  |(. .timer2:.move|
00000cf0  0d 05 32 06 20 e1 0d 05  3c 05 20 0d 05 46 0d 20  |..2. ...<. ..F. |
00000d00  dd f2 74 69 6d 65 72 32  0d 05 50 08 20 fb 20 32  |..timer2..P. . 2|
00000d10  0d 05 5a 2b 20 87 3a f1  8a 30 2c 35 29 22 54 69  |..Z+ .:..0,5)"Ti|
00000d20  6d 65 20 6c 65 66 74 3a  20 22 74 69 6d 65 25 3b  |me left: "time%;|
00000d30  3a f1 22 20 20 20 20 22  3a ef 34 0d 05 64 06 20  |:."    ":.4..d. |
00000d40  e1 0d 05 6e 05 20 0d 05  78 05 20 0d 05 82 0a 20  |...n. ..x. .... |
00000d50  dd f2 64 69 65 0d 05 8c  0a 20 68 75 68 3d 31 0d  |..die.... huh=1.|
00000d60  05 96 06 20 db 0d 05 a0  3f 20 ef 34 3a fb 31 35  |... ....? .4:.15|
00000d70  3a f1 22 20 47 41 4d 45  20 4f 56 45 52 20 2d 20  |:." GAME OVER - |
00000d80  59 65 73 2c 20 61 64 6d  69 74 20 69 74 20 2e 2e  |Yes, admit it ..|
00000d90  2e 2e 20 79 6f 75 20 6d  65 73 73 65 64 20 75 70  |.. you messed up|
00000da0  20 21 21 22 0d 05 aa 40  20 f1 3a f1 22 59 6f 75  | !!"...@ .:."You|
00000db0  72 20 74 6f 74 61 6c 20  73 63 6f 72 65 20 69 73  |r total score is|
00000dc0  20 31 30 20 74 69 6d 65  73 20 74 68 65 20 6c 65  | 10 times the le|
00000dd0  76 65 6c 20 79 6f 75 20  72 65 61 63 68 65 64 2e  |vel you reached.|
00000de0  2e 2e 2e 22 0d 05 b4 1d  20 f1 3a f1 22 54 68 61  |...".... .:."Tha|
00000df0  74 73 20 2e 2e 2e 2e 20  22 6c 65 76 65 6c 2a 31  |ts .... "level*1|
00000e00  30 0d 05 be 5d 20 f1 3a  e7 20 6c 65 76 65 6c 2a  |0...] .:. level*|
00000e10  31 30 3e 68 69 25 20 8c  20 f2 6e 65 77 68 69 20  |10>hi% . .newhi |
00000e20  8b 20 f1 22 20 20 20 20  20 20 20 20 20 20 20 20  |. ."            |
00000e30  20 20 20 20 20 20 20 20  20 20 50 72 65 73 73 20  |          Press |
00000e40  74 68 65 20 73 70 61 63  65 20 62 61 72 20 2e 2e  |the space bar ..|
00000e50  2e 2e 2e 20 22 3a f5 fd  a6 28 2d 39 39 29 0d 05  |... ":...(-99)..|
00000e60  c8 2a 20 6c 65 76 65 6c  3d 31 3a 53 50 3d 31 3a  |.* level=1:SP=1:|
00000e70  74 69 6d 65 25 3d 32 30  30 30 3a 70 61 73 73 3d  |time%=2000:pass=|
00000e80  30 3a e5 20 8d 44 64 40  0d 05 d2 06 20 e1 0d 05  |0:. .Dd@.... ...|
00000e90  dc 05 20 0d 05 e6 13 20  dd f2 6f 74 68 65 72 64  |.. .... ..otherd|
00000ea0  69 73 70 6c 61 79 0d 05  f0 16 20 2a 53 43 48 4f  |isplay.... *SCHO|
00000eb0  4f 53 45 20 73 75 72 72  6f 75 6e 64 0d 05 fa b0  |OSE surround....|
00000ec0  20 f0 20 26 45 44 2c 30  2c 38 35 30 3a ef 20 35  | . &ED,0,850:. 5|
00000ed0  3a f5 3a ec 20 30 2c 38  35 30 3a e6 20 30 2c 63  |:.:. 0,850:. 0,c|
00000ee0  6f 6c 3a f1 22 20 20 20  20 20 20 20 20 20 20 20  |ol:."           |
00000ef0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 50 72  |              Pr|
00000f00  6f 67 72 61 6d 6d 65 64  20 62 79 20 4d 61 72 74  |ogrammed by Mart|
00000f10  69 6e 20 44 75 6e 6e 20  20 4e 6f 76 65 6d 62 65  |in Dunn  Novembe|
00000f20  72 20 31 39 39 30 22 3a  63 6f 6c 3d 63 6f 6c 2b  |r 1990":col=col+|
00000f30  31 3a fd 20 63 6f 6c 3d  36 33 3a ef 20 34 3a f5  |1:. col=63:. 4:.|
00000f40  3a e6 20 30 2c 41 53 20  c8 9c 20 36 34 3a c8 93  |:. 0,AS .. 64:..|
00000f50  20 30 2c 30 2c 31 32 37  39 2c 38 30 30 3a e6 20  | 0,0,1279,800:. |
00000f60  30 2c 41 53 20 c8 9c 20  31 32 37 3a 0d 06 04 4c  |0,AS .. 127:...L|
00000f70  20 c8 93 20 34 2c 35 2c  31 32 37 30 2c 37 39 31  | .. 4,5,1270,791|
00000f80  3a e6 20 30 2c 41 53 20  c8 9c 20 32 35 35 3a c8  |:. 0,AS .. 255:.|
00000f90  93 20 38 2c 31 30 2c 31  32 36 32 2c 37 38 34 3a  |. 8,10,1262,784:|
00000fa0  41 53 3d 41 53 2d 31 3a  d1 3d 30 3a f5 fd 91 3d  |AS=AS-1:.=0:...=|
00000fb0  33 3a fd 20 41 53 3d 35  0d 06 0e 12 20 46 25 3d  |3:. AS=5.... F%=|
00000fc0  36 34 30 3a 47 25 3d 34  31 32 0d 06 18 06 20 e1  |640:G%=412.... .|
00000fd0  0d 06 22 05 20 0d 06 2c  0c 20 dd f2 6e 65 77 68  |..". ..,. ..newh|
00000fe0  69 0d 06 36 0c 20 2a 46  58 31 35 2c 30 0d 06 37  |i..6. *FX15,0..7|
00000ff0  06 20 ee 0d 06 40 4a 20  f1 3a e8 22 49 6e 63 72  |. ...@J .:."Incr|
00001000  65 64 69 62 6c 65 20 21  21 2c 20 79 6f 75 27 76  |edible !!, you'v|
00001010  65 20 67 6f 74 20 74 68  65 20 68 69 2d 73 63 6f  |e got the hi-sco|
00001020  72 65 20 2e 2e 2e 20 65  6e 74 65 72 20 79 6f 75  |re ... enter you|
00001030  72 20 6e 61 6d 65 3a 22  6e 61 6d 65 24 0d 06 41  |r name:"name$..A|
00001040  22 20 e7 20 6e 61 6d 65  24 3d 22 22 20 8c 20 6e  |" . name$="" . n|
00001050  61 6d 65 24 3d 22 6e 61  6d 65 6c 65 73 73 22 0d  |ame$="nameless".|
00001060  06 4a 11 20 68 69 25 3d  6c 65 76 65 6c 2a 31 30  |.J. hi%=level*10|
00001070  0d 06 54 2a 20 6c 65 76  65 6c 3d 31 3a 53 50 3d  |..T* level=1:SP=|
00001080  31 3a 74 69 6d 65 25 3d  32 30 30 30 3a 70 61 73  |1:time%=2000:pas|
00001090  73 3d 30 3a e5 20 8d 44  64 40 0d 06 55 06 20 87  |s=0:. .Dd@..U. .|
000010a0  0d 06 5e 0b 20 e5 20 8d  44 64 40 0d 06 68 06 20  |..^. . .Dd@..h. |
000010b0  e1 0d 06 72 05 20 0d 06  7c 10 20 dd f2 6e 65 78  |...r. ..|. ..nex|
000010c0  74 6c 65 76 65 6c 0d 06  86 2c 20 6c 65 76 65 6c  |tlevel..., level|
000010d0  3d 6c 65 76 65 6c 2b 31  3a 53 50 3d 53 50 2b 31  |=level+1:SP=SP+1|
000010e0  3a 74 69 6d 65 25 3d 32  30 30 30 3a 70 61 73 73  |:time%=2000:pass|
000010f0  3d 30 0d 06 90 12 20 46  25 3d 36 34 30 3a 47 25  |=0.... F%=640:G%|
00001100  3d 34 31 32 0d 06 9a 10  20 f2 70 6c 61 79 3a f2  |=412.... .play:.|
00001110  6d 6f 76 65 0d 06 a4 06  20 e1 0d ff              |move.... ...|
0000111c

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .