GAMES2/HEDGEHOG

Home » Personal collection » Acorn ADFS disks » Electron » Digital_pictures_2.ADF » GAMES2/HEDGEHOG

GAMES2/HEDGEHOG

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 » Digital_pictures_2.ADF
Filename:	GAMES2/HEDGEHOG
Read OK:	✔
File size:	139F bytes
Load address:	FFFF0E00
Exec address:	FFFF8023

File contents

   10REM HEDGEHOG
   60:
   70ON ERROR OFF :MODE6:REPORT:PRINT" at line ";ERL
   80:
   90MODE5
  100VDU23,1,0;0;0;0;
  110*FX9,25
  120*FX10,25
  130DIM R$(9)
  140DIM A%(19)
  150:
  160PROCINTRO
  170PROCDEFINE
  180 PROCINIT
  190REPEAT
  200PROCGAME
  210IF S%>T% PROCTOPSCORE
  220PROCGAMEOVER
  230TIME=0:REPEAT UNTIL TIME>200
  240*FX15,1
  250A$=GET$
  260UNTIL FALSE
  270:
  280 DEFPROCINTRO
  290COLOUR133
  300CLS
  310COLOUR15
  320PRINT'''"  H e d g e h o g"
  330COLOUR4
  340PRINTTAB(2,14)"Controls..."
  350PRINT'"  Z = LEFT"
  360PRINT'"  X = RIGHT"
  370PRINT'"  / = SCURRY"
  380PRINTTAB(2,30)"Snatch Acorns..."
  390TIME=0:REPEAT UNTIL TIME>300
  400 COLOUR8
  410 PRINTTAB(2,30)"Press any key...";
  420A$=GET$
  430ENDPROC
  440:
  450DEFPROCDEFINE
  460VDU23,255,136,204,238,238,238,238,238,238
  470VDU23,254,0,0,-1,-1,0,0,0,0
  480VDU23,252,0,-1,-1,0,0,-1,-1,0,0 
  490VDU23,251,0,0,0,0,-1,-1,0,0
  500VDU23,253,24,60,90,255,126,255,60,0
  510VDU23,250,108,72,200,252,254,251,127,60
  520VDU23,249,24,60,60,60,0,126,60,24
  530H$=CHR$17+CHR$1+CHR$253
  540 VDU23,224,15,105,105,249,255,255,255,102
  550VDU23,225,240,150,150,159,255,255,255,102
  560VDU23,226,0,0,0,126,126,126,255,102 
  570VDU23,227,126,126,126,126,126,126,25,102
  580VDU23,228,31,49,97,255,255,255,255,48
  590VDU23,229,255,36,36,255,255,255,255,0
  600VDU23,230,248,140,134,255,255,255,255,24
  610VDU23,231,0,31,17,17,255,191,255,48
  620VDU23,232,0,240,136,136,255,253,255,12
  630VDU23,233,255,255,255,255,255,255,255,28
  640VDU23,234,255,239,199,239,255,255,221,28
  650ENDPROC
  660:
  670DEFPROCINIT
  680T%=500
  690T$="Henry Hedgehog"
  700S1$=" ":S2$="  "
  710S3$="   ":S4$="   "
  720S5$="     ":S6$="      "
  730R$(0)=STRING$(20," ")
  740 R$(1)=S2$+CHR$227+CHR$226+CHR$227+CHR$227+CHR$225+S4$+CHR$226+CHR$225+S5$+CHR$227+CHR$226+CHR$225+S4$ 
  750R$(2)=CHR$224+CHR$226+CHR$227+CHR$226+CHR$226+S5$+CHR$224+CHR$226+S3$+CHR$224+CHR$227+CHR$227+CHR$226+S2$+CHR$224+S3$
  760R$(3)=CHR$228+CHR$229+CHR$229+CHR$230+S4$+CHR$227+CHR$227+CHR$225+S6$+CHR$228+CHR$229+CHR$230+S3$+CHR$226+CHR$225+S1$ 
  770R$(4)=CHR$228+CHR$229+CHR$229+CHR$230+S4$+CHR$224+CHR$227+CHR$227+S6$+CHR$228+CHR$229+CHR$230+S3$+CHR$224+CHR$226+S1$
  780R$(5)=STRING$(20," ")
  790R$(6)=S2$+CHR$228+CHR$229+CHR$229+CHR$232+S5$+CHR$231+CHR$232+S5$+CHR$233+CHR$233+CHR$232+S1$+CHR$231+CHR$232+S2$
  800R$(7)=CHR$231+CHR$232+S2$+CHR$231+CHR$232+S2$+CHR$233+CHR$232+S5$+CHR$228+CHR$232+S1$+CHR$233+CHR$232+S5$ 
  810R$(8)=CHR$231+CHR$232+S1$+CHR$231+CHR$232+S3$+CHR$231+CHR$233+S5$+CHR$231+CHR$230+S1$+CHR$231+CHR$233+S5$
  820R$(9)=S4$+CHR$231+CHR$232+S1$+CHR$231+CHR$229+CHR$229+CHR$230+S3$+CHR$231+CHR$233+S3$+CHR$231+CHR$233+S3$+CHR$231+CHR$230+S1$
  830FOR I%=1TO9
  840R$(I%)=STRING$(5,R$(I%))
  850R$(I%)=LEFT$(R$(I%),100)
  860NEXT
  870ENDPROC
  880 DEFPROCGAME
  890S%=-100:LEVEL%=-1:PROCHARDER
  900N%=0
  910REPEAT
  920N%=N%+1:PROCGO
  930UNTIL N%=3
  940IF S%<1000 ENDPROC
  950COLOUR0:COLOUR129:CLS
  960PRINTTAB(2,10)"Bonus Hedgehog";
  970PRINTTAB(2,20)"May the fleas";
  980PRINTTAB(2,22)"be with you";
  990FOR I%=0TO255 STEP8
 1000SOUND&1,-12,I%,1
 1010NEXT
 1020*FX15,1
 1030A$=INKEY$(200)
 1040REPEAT:N%=N%+1:PROC_GO:UNTIL N%=4
 1050ENDPROC
 1060:
 1080DEFPROCGO
 1090X%=10:Y%=30:Z%=10
 1100PROCDRAWSCREEN
 1110REPEAT
 1120PROCROAD(1,0,12)
 1130PROCROAD(6,0,22)
 1140PROCROAD(7,0,24)
 1150PROCROAD(4,1,18)
 1160PROCROAD(8,1,26)
 1170PROCROAD(9,1,28)
 1180PROCROAD(7,0,24)
 1190PROCROAD(2,1,14)
 1200PROCROAD(8,1,26)
 1210PROCROAD(3,0,16)
 1220UNTIL Y%=0
 1230IF ACORNS%=0 PROCHARDER
 1240ENDPROC
 1250:
 1260DEFPROCDRAWSCREEN
 1270COLOUR0
 1280COLOUR128
 1290CLS
 1300COLOUR129
 1310PRINTTAB(1,4)SPC(17);
 1320 PRINTTAB(1,5)" H E D G E H O G ";
 1330PRINTTAB(1,6)SPC(17);
 1340COLOUR3
 1350COLOUR128
 1360PRINTTAB(1,1);N%;
 1370PRINTTAB(0,10)STRING$(20,CHR$255)
 1380COLOUR9
 1390FOR I%=0TO 19
 1400IF A%(I%)=1 PRINTTAB(I%,10)CHR$249
 1410NEXT
 1420COLOUR7
 1430PRINTTAB(0,21)STRING$(20,CHR$254)
 1440PRINTTAB(0,23)STRING$(10,"- ")
 1450PRINTTAB(0,25)STRING$(20,CHR$252)
 1460PRINTTAB(0,27)STRING$(10,"- ")
 1470PRINTTAB(0,29)STRING$(20,CHR$251)
 1480PRINTTAB(10,1)"Score ";S%;
 1490COLOUR13
 1500PRINTTAB(0,20)R$(5);
 1510PRINTTAB(X%,Y%)H$;
 1520ENDPROC
 1530:
 1540DEFPROCHOG
 1550IF Y%=0 ENDPROC
 1560IF INKEY-98 AND X%>0 PROCLEFT ELSE IF INKEY-67 AND X%<19 PROCRIGHT ELSE IF INKEY-105 PROCFWD
 1570IF Z%<10 IF MID$(R$(Z%),X%+1,1)<>S1$ PROCSPLAT
 1580ENDPROC
 1590:
 1600DEFPROCLEFT
 1610X%=X%-1:PRINTTAB(X%,Y%)H$;" ";
 1620ENDPROC
 1630:
 1640DEFPROCRIGHT
 1650PRINTTAB(X%,Y%)" ";H$;:X%=X%+1
 1660ENDPROC
 1670:
 1680DEFPROCFWD
 1690IF Z%=1 AND A%(X%)<>1 SOUND1,-15,40,1:ENDPROC
 1700Y%=Y%-2
 1710Z%=Z%-1
 1720PRINTTAB(X%,Y%)H$;TAB(X%,Y%+2)S1$;
 1730SOUND1,-12,220,1
 1740S%=S%+10
 1750PRINTTAB(10,1)"Score ";S%;
 1760IF Z%=0 PROCCHUCKLE
 1770ENDPROC
 1780:
 1790DEFPROCROAD(R%,D%,SY%)
 1800IF D%>0 R$(R%)=MID$(R$(R%),2,99)+LEFT$(R$(R%),1) ELSE R$(R%)=MID$(R$(R%),100,1)+LEFT$(R$(R%),99)
 1810COLOUR (R%MOD2)+2
 1820COLOUR128
 1830PRINTTAB(0,SY%)LEFT$(R$(R%),20);
 1840IF SY%=Y% PRINTTAB(X%,Y%)H$;
 1850PROCHOG
 1860IF Y%=SY% IF MID$(R$(R%),X%+1,1)<>S1$ PROCSPLAT
 1870IF RND(80)=80 SOUND3,-15,1,10:SOUND2,-15,9,8:SOUND1,-15,17,2
 1880ENDPROC
 1890:
 1900DEFPROCSPLAT
 1910IF Y%=0 ENDPROC
 1920COLOUR14
 1930PRINTTAB(X%,Y%)"*";
 1940VDU19,0,1,0,0,0
 1950COLOUR12
 1960COLOUR139
 1970PRINTTAB(1,4)SPC(17);
 1980 PRINTTAB(1,5)"    S P L A T    ";
 1990PRINTTAB(1,6)SPC(17);
 2000COLOUR128
 2010FOR I%=1TO15
 2020SOUND1,-5,255-10*I%,1
 2030NEXT
 2040COLOUR1
 2050PRINTTAB(X%,Y%)CHR$250;
 2060VDU20
 2070IF X%>10 AX%=0:AMB$=" "+CHR$234+CHR$232 ELSE AX%=17:AMB$=CHR$231+CHR$234+" "
 2080FOR I%=0TO15
 2090IF AX%<X% PRINTTAB(AX%,Y%)AMB$;:AX%=AX%+1 
 2100IF AX%>X% AX%=AX%-1:PRINTTAB(AX%,Y%)AMB$;
 2110FOR J%=0TO120 STEP2 
 2120SOUND&11,-I%,J%,5
 2130NEXT
 2140NEXT
 2150Y%=0
 2160ENDPROC
 2170:
 2180DEFPROCCHUCKLE
 2190FOR I%=1TO25
 2200J%=1
 2210SOUND J%,-15+I%/3,200-RND(3)*I%,1
 2220NEXT
 2230 N%=N%-1:Y%=0:S%=S%+25:A%(X%)=0:ACORNS%=ACORNS%-1
 2240ENDPROC
 2250:
 2260DEFPROCHARDER
 2270FOR I%=1TO3
 2280FOR J%=30 TO 180 STEP8
 2290SOUND&12,-11-I%,J%+12+I%*10,1
 2300NEXT
 2310NEXT
 2320S%=S%+100
 2330FOR I%=0TO19:A%(I%)=0:NEXT
 2340FOR I%=1TO4
 2350REPEAT
 2360J%=RND(17)+1
 2370UNTIL A%(J%)=0
 2380A%(J%)=1
 2390NEXT
 2400ACORNS%=4
 2410LEVEL%=LEVEL%-2*(LEVEL%<>9)
 2420R$(5)=STRING$(LEVEL%,CHR$255)+STRING$(20-LEVEL%*2," ")+STRING$(LEVEL%,CHR$255)
 2430ENDPROC 
 2440:
 2450DEFPROCTOPSCORE
 2460COLOUR3
 2470COLOUR129
 2480CLS
 2490PRINTTAB(1,3)"T O P - S C O R E";
 2500PRINTTAB(1,8)"Enter your name";
 2510PRINTTAB(1,10);
 2520FOR I%=100 TO 200 STEP 12
 2530SOUND1,-15,I%,3
 2540SOUND1,-14,I%+8,3
 2550NEXT
 2560*FX15,1
 2570INPUT""T$
 2580T%=S%
 2590ENDPROC
 2600:
 2610DEFPROCGAMEOVER
 2620COLOUR4
 2630COLOUR133
 2640CLS
 2650PRINTTAB(5,3)"Super hog";
 2660COLOUR15
 2670PRINTTAB((20-LEN(T$))DIV2,6)T$;
 2680COLOUR4
 2690PRINTTAB(5,11)"Top score";
 2700COLOUR0
 2710PRINTTAB(8,13);T%;
 2720COLOUR4
 2730PRINTTAB(5,18)"Your score";
 2740COLOUR0
 2750PRINTTAB(8,20);S%;
 2760COLOUR4
 2770PRINTTAB(4,30)"Press any key";
 2780ENDPROC


� HEDGEHOG
<:
F� � � :�6:�:�" at line ";�
P:
Z�5
d�23,1,0;0;0;0;
n*FX9,25
x*FX10,25
�� R$(9)
�� A%(19)
�:
�
�INTRO
��DEFINE
�
 �INIT
��
�	�GAME
�� S%>T% �TOPSCORE
�
�GAMEOVER
��=0:� � �>200
�*FX15,1
�A$=�
� �
:
 ��INTRO
"�133
,�
6�15
@�'''"  H e d g e h o g"
J�4
T�2,14)"Controls..."
^�'"  Z = LEFT"
h�'"  X = RIGHT"
r�'"  / = SCURRY"
|�2,30)"Snatch Acorns..."
��=0:� � �>300
� �8
� �2,30)"Press any key...";
�A$=�
��
�:
���DEFINE
�+�23,255,136,204,238,238,238,238,238,238
��23,254,0,0,-1,-1,0,0,0,0
�"�23,252,0,-1,-1,0,0,-1,-1,0,0 
��23,251,0,0,0,0,-1,-1,0,0
�%�23,253,24,60,90,255,126,255,60,0
�)�23,250,108,72,200,252,254,251,127,60
#�23,249,24,60,60,60,0,126,60,24
H$=�17+�1+�253
+ �23,224,15,105,105,249,255,255,255,102
&+�23,225,240,150,150,159,255,255,255,102
0&�23,226,0,0,0,126,126,126,255,102 
:*�23,227,126,126,126,126,126,126,25,102
D'�23,228,31,49,97,255,255,255,255,48
N'�23,229,255,36,36,255,255,255,255,0
X*�23,230,248,140,134,255,255,255,255,24
b%�23,231,0,31,17,17,255,191,255,48
l(�23,232,0,240,136,136,255,253,255,12
v*�23,233,255,255,255,255,255,255,255,28
�*�23,234,255,239,199,239,255,255,221,28
��
�:
�
��INIT
�
T%=500
�T$="Henry Hedgehog"
�S1$=" ":S2$="  "
�S3$="   ":S4$="   "
�S5$="     ":S6$="      "
�R$(0)=�20," ")
�M R$(1)=S2$+�227+�226+�227+�227+�225+S4$+�226+�225+S5$+�227+�226+�225+S4$ 
�UR$(2)=�224+�226+�227+�226+�226+S5$+�224+�226+S3$+�224+�227+�227+�226+S2$+�224+S3$
�VR$(3)=�228+�229+�229+�230+S4$+�227+�227+�225+S6$+�228+�229+�230+S3$+�226+�225+S1$ 
UR$(4)=�228+�229+�229+�230+S4$+�224+�227+�227+S6$+�228+�229+�230+S3$+�224+�226+S1$
R$(5)=�20," ")
TR$(6)=S2$+�228+�229+�229+�232+S5$+�231+�232+S5$+�233+�233+�232+S1$+�231+�232+S2$
 PR$(7)=�231+�232+S2$+�231+�232+S2$+�233+�232+S5$+�228+�232+S1$+�233+�232+S5$ 
*OR$(8)=�231+�232+S1$+�231+�232+S3$+�231+�233+S5$+�231+�230+S1$+�231+�233+S5$
4]R$(9)=S4$+�231+�232+S1$+�231+�229+�229+�230+S3$+�231+�233+S3$+�231+�233+S3$+�231+�230+S1$
>� I%=1�9
HR$(I%)=�5,R$(I%))
RR$(I%)=�R$(I%),100)
\�
f�
p ��GAME
zS%=-100:LEVEL%=-1:�HARDER
�N%=0
��
�N%=N%+1:�GO
�
� N%=3
�� S%<1000 �
�
�0:�129:�
��2,10)"Bonus Hedgehog";
��2,20)"May the fleas";
��2,22)"be with you";
�� I%=0�255 �8
��&1,-12,I%,1
��
�*FX15,1

A$=�(200)
�:N%=N%+1:�_GO:� N%=4
�
$:
8��GO
BX%=10:Y%=30:Z%=10
L�DRAWSCREEN
V�
`�ROAD(1,0,12)
j�ROAD(6,0,22)
t�ROAD(7,0,24)
~�ROAD(4,1,18)
��ROAD(8,1,26)
��ROAD(9,1,28)
��ROAD(7,0,24)
��ROAD(2,1,14)
��ROAD(8,1,26)
��ROAD(3,0,16)
�
� Y%=0
�� ACORNS%=0 �HARDER
��
�:
���DRAWSCREEN
��0
�128

�
�129
�1,4)�(17);
( �1,5)" H E D G E H O G ";
2�1,6)�(17);
<�3
F�128
P�1,1);N%;
Z�0,10)�20,�255)
d�9
n� I%=0� 19
x� A%(I%)=1 �I%,10)�249
��
��7
��0,21)�20,�254)
��0,23)�10,"- ")
��0,25)�20,�252)
��0,27)�10,"- ")
��0,29)�20,�251)
��10,1)"Score ";S%;
��13
��0,20)R$(5);
��X%,Y%)H$;
��
�:
	��HOG
� Y%=0 �
>� �-98 � X%>0 �LEFT � � �-67 � X%<19 �RIGHT � � �-105 �FWD
")� Z%<10 � �R$(Z%),X%+1,1)<>S1$ �SPLAT
,�
6:
@
��LEFT
JX%=X%-1:�X%,Y%)H$;" ";
T�
^:
h��RIGHT
r�X%,Y%)" ";H$;:X%=X%+1
|�
�:
�	��FWD
�$� Z%=1 � A%(X%)<>1 �1,-15,40,1:�
�Y%=Y%-2
�Z%=Z%-1
��X%,Y%)H$;�X%,Y%+2)S1$;
��1,-12,220,1
�S%=S%+10
��10,1)"Score ";S%;
�� Z%=0 �CHUCKLE
��
�:
���ROAD(R%,D%,SY%)
N� D%>0 R$(R%)=�R$(R%),2,99)+�R$(R%),1) � R$(R%)=�R$(R%),100,1)+�R$(R%),99)
� (R%�2)+2
�128
&�0,SY%)�R$(R%),20);
0� SY%=Y% �X%,Y%)H$;
:�HOG
D*� Y%=SY% � �R$(R%),X%+1,1)<>S1$ �SPLAT
N1� �(80)=80 �3,-15,1,10:�2,-15,9,8:�1,-15,17,2
X�
b:
l��SPLAT
v� Y%=0 �
��14
��X%,Y%)"*";
��19,0,1,0,0,0
��12
��139
��1,4)�(17);
� �1,5)"    S P L A T    ";
��1,6)�(17);
��128
�
� I%=1�15
��1,-5,255-10*I%,1
��
��1
�X%,Y%)�250;
�20
@� X%>10 AX%=0:AMB$=" "+�234+�232 � AX%=17:AMB$=�231+�234+" "
 
� I%=0�15
*&� AX%<X% �AX%,Y%)AMB$;:AX%=AX%+1 
4%� AX%>X% AX%=AX%-1:�AX%,Y%)AMB$;
>� J%=0�120 �2 
H�&11,-I%,J%,5
R�
\�
fY%=0
p�
z:
�
��CHUCKLE
�
� I%=1�25
�J%=1
�� J%,-15+I%/3,200-�(3)*I%,1
��
�5 N%=N%-1:Y%=0:S%=S%+25:A%(X%)=0:ACORNS%=ACORNS%-1
��
�:
���HARDER
�� I%=1�3
�� J%=30 � 180 �8
��&12,-11-I%,J%+12+I%*10,1
��
	�
	
S%=S%+100
	� I%=0�19:A%(I%)=0:�
	$� I%=1�4
	.�
	8J%=�(17)+1
	B� A%(J%)=0
	LA%(J%)=1
	V�
	`
ACORNS%=4
	jLEVEL%=LEVEL%-2*(LEVEL%<>9)
	t7R$(5)=�LEVEL%,�255)+�20-LEVEL%*2," ")+�LEVEL%,�255)
	~� 
	�:
	���TOPSCORE
	��3
	��129
	��
	��1,3)"T O P - S C O R E";
	��1,8)"Enter your name";
	��1,10);
	�� I%=100 � 200 � 12
	��1,-15,I%,3
	��1,-14,I%+8,3
	��
*FX15,1

	�""T$
	T%=S%
�
(:
2��GAMEOVER
<�4
F�133
P�
Z�5,3)"Super hog";
d�15
n�(20-�(T$))�2,6)T$;
x�4
��5,11)"Top score";
��0
��8,13);T%;
��4
��5,18)"Your score";
��0
��8,20);S%;
��4
��4,30)"Press any key";
�� 
�

00000000  0d 00 0a 0e f4 20 48 45  44 47 45 48 4f 47 0d 00  |..... HEDGEHOG..|
00000010  3c 05 3a 0d 00 46 1e ee  20 85 20 87 20 3a eb 36  |<.:..F.. . . :.6|
00000020  3a f6 3a f1 22 20 61 74  20 6c 69 6e 65 20 22 3b  |:.:." at line ";|
00000030  9e 0d 00 50 05 3a 0d 00  5a 06 eb 35 0d 00 64 12  |...P.:..Z..5..d.|
00000040  ef 32 33 2c 31 2c 30 3b  30 3b 30 3b 30 3b 0d 00  |.23,1,0;0;0;0;..|
00000050  6e 0b 2a 46 58 39 2c 32  35 0d 00 78 0c 2a 46 58  |n.*FX9,25..x.*FX|
00000060  31 30 2c 32 35 0d 00 82  0b de 20 52 24 28 39 29  |10,25..... R$(9)|
00000070  0d 00 8c 0c de 20 41 25  28 31 39 29 0d 00 96 05  |..... A%(19)....|
00000080  3a 0d 00 a0 0a f2 49 4e  54 52 4f 0d 00 aa 0b f2  |:.....INTRO.....|
00000090  44 45 46 49 4e 45 0d 00  b4 0a 20 f2 49 4e 49 54  |DEFINE.... .INIT|
000000a0  0d 00 be 05 f5 0d 00 c8  09 f2 47 41 4d 45 0d 00  |..........GAME..|
000000b0  d2 15 e7 20 53 25 3e 54  25 20 f2 54 4f 50 53 43  |... S%>T% .TOPSC|
000000c0  4f 52 45 0d 00 dc 0d f2  47 41 4d 45 4f 56 45 52  |ORE.....GAMEOVER|
000000d0  0d 00 e6 11 d1 3d 30 3a  f5 20 fd 20 91 3e 32 30  |.....=0:. . .>20|
000000e0  30 0d 00 f0 0b 2a 46 58  31 35 2c 31 0d 00 fa 08  |0....*FX15,1....|
000000f0  41 24 3d be 0d 01 04 07  fd 20 a3 0d 01 0e 05 3a  |A$=...... .....:|
00000100  0d 01 18 0c 20 dd f2 49  4e 54 52 4f 0d 01 22 08  |.... ..INTRO..".|
00000110  fb 31 33 33 0d 01 2c 05  db 0d 01 36 07 fb 31 35  |.133..,....6..15|
00000120  0d 01 40 1b f1 27 27 27  22 20 20 48 20 65 20 64  |..@..'''"  H e d|
00000130  20 67 20 65 20 68 20 6f  20 67 22 0d 01 4a 06 fb  | g e h o g"..J..|
00000140  34 0d 01 54 18 f1 8a 32  2c 31 34 29 22 43 6f 6e  |4..T...2,14)"Con|
00000150  74 72 6f 6c 73 2e 2e 2e  22 0d 01 5e 12 f1 27 22  |trols..."..^..'"|
00000160  20 20 5a 20 3d 20 4c 45  46 54 22 0d 01 68 13 f1  |  Z = LEFT"..h..|
00000170  27 22 20 20 58 20 3d 20  52 49 47 48 54 22 0d 01  |'"  X = RIGHT"..|
00000180  72 14 f1 27 22 20 20 2f  20 3d 20 53 43 55 52 52  |r..'"  / = SCURR|
00000190  59 22 0d 01 7c 1d f1 8a  32 2c 33 30 29 22 53 6e  |Y"..|...2,30)"Sn|
000001a0  61 74 63 68 20 41 63 6f  72 6e 73 2e 2e 2e 22 0d  |atch Acorns...".|
000001b0  01 86 11 d1 3d 30 3a f5  20 fd 20 91 3e 33 30 30  |....=0:. . .>300|
000001c0  0d 01 90 07 20 fb 38 0d  01 9a 1f 20 f1 8a 32 2c  |.... .8.... ..2,|
000001d0  33 30 29 22 50 72 65 73  73 20 61 6e 79 20 6b 65  |30)"Press any ke|
000001e0  79 2e 2e 2e 22 3b 0d 01  a4 08 41 24 3d be 0d 01  |y...";....A$=...|
000001f0  ae 05 e1 0d 01 b8 05 3a  0d 01 c2 0c dd f2 44 45  |.......:......DE|
00000200  46 49 4e 45 0d 01 cc 2b  ef 32 33 2c 32 35 35 2c  |FINE...+.23,255,|
00000210  31 33 36 2c 32 30 34 2c  32 33 38 2c 32 33 38 2c  |136,204,238,238,|
00000220  32 33 38 2c 32 33 38 2c  32 33 38 2c 32 33 38 0d  |238,238,238,238.|
00000230  01 d6 1d ef 32 33 2c 32  35 34 2c 30 2c 30 2c 2d  |....23,254,0,0,-|
00000240  31 2c 2d 31 2c 30 2c 30  2c 30 2c 30 0d 01 e0 22  |1,-1,0,0,0,0..."|
00000250  ef 32 33 2c 32 35 32 2c  30 2c 2d 31 2c 2d 31 2c  |.23,252,0,-1,-1,|
00000260  30 2c 30 2c 2d 31 2c 2d  31 2c 30 2c 30 20 0d 01  |0,0,-1,-1,0,0 ..|
00000270  ea 1d ef 32 33 2c 32 35  31 2c 30 2c 30 2c 30 2c  |...23,251,0,0,0,|
00000280  30 2c 2d 31 2c 2d 31 2c  30 2c 30 0d 01 f4 25 ef  |0,-1,-1,0,0...%.|
00000290  32 33 2c 32 35 33 2c 32  34 2c 36 30 2c 39 30 2c  |23,253,24,60,90,|
000002a0  32 35 35 2c 31 32 36 2c  32 35 35 2c 36 30 2c 30  |255,126,255,60,0|
000002b0  0d 01 fe 29 ef 32 33 2c  32 35 30 2c 31 30 38 2c  |...).23,250,108,|
000002c0  37 32 2c 32 30 30 2c 32  35 32 2c 32 35 34 2c 32  |72,200,252,254,2|
000002d0  35 31 2c 31 32 37 2c 36  30 0d 02 08 23 ef 32 33  |51,127,60...#.23|
000002e0  2c 32 34 39 2c 32 34 2c  36 30 2c 36 30 2c 36 30  |,249,24,60,60,60|
000002f0  2c 30 2c 31 32 36 2c 36  30 2c 32 34 0d 02 12 12  |,0,126,60,24....|
00000300  48 24 3d bd 31 37 2b bd  31 2b bd 32 35 33 0d 02  |H$=.17+.1+.253..|
00000310  1c 2b 20 ef 32 33 2c 32  32 34 2c 31 35 2c 31 30  |.+ .23,224,15,10|
00000320  35 2c 31 30 35 2c 32 34  39 2c 32 35 35 2c 32 35  |5,105,249,255,25|
00000330  35 2c 32 35 35 2c 31 30  32 0d 02 26 2b ef 32 33  |5,255,102..&+.23|
00000340  2c 32 32 35 2c 32 34 30  2c 31 35 30 2c 31 35 30  |,225,240,150,150|
00000350  2c 31 35 39 2c 32 35 35  2c 32 35 35 2c 32 35 35  |,159,255,255,255|
00000360  2c 31 30 32 0d 02 30 26  ef 32 33 2c 32 32 36 2c  |,102..0&.23,226,|
00000370  30 2c 30 2c 30 2c 31 32  36 2c 31 32 36 2c 31 32  |0,0,0,126,126,12|
00000380  36 2c 32 35 35 2c 31 30  32 20 0d 02 3a 2a ef 32  |6,255,102 ..:*.2|
00000390  33 2c 32 32 37 2c 31 32  36 2c 31 32 36 2c 31 32  |3,227,126,126,12|
000003a0  36 2c 31 32 36 2c 31 32  36 2c 31 32 36 2c 32 35  |6,126,126,126,25|
000003b0  2c 31 30 32 0d 02 44 27  ef 32 33 2c 32 32 38 2c  |,102..D'.23,228,|
000003c0  33 31 2c 34 39 2c 39 37  2c 32 35 35 2c 32 35 35  |31,49,97,255,255|
000003d0  2c 32 35 35 2c 32 35 35  2c 34 38 0d 02 4e 27 ef  |,255,255,48..N'.|
000003e0  32 33 2c 32 32 39 2c 32  35 35 2c 33 36 2c 33 36  |23,229,255,36,36|
000003f0  2c 32 35 35 2c 32 35 35  2c 32 35 35 2c 32 35 35  |,255,255,255,255|
00000400  2c 30 0d 02 58 2a ef 32  33 2c 32 33 30 2c 32 34  |,0..X*.23,230,24|
00000410  38 2c 31 34 30 2c 31 33  34 2c 32 35 35 2c 32 35  |8,140,134,255,25|
00000420  35 2c 32 35 35 2c 32 35  35 2c 32 34 0d 02 62 25  |5,255,255,24..b%|
00000430  ef 32 33 2c 32 33 31 2c  30 2c 33 31 2c 31 37 2c  |.23,231,0,31,17,|
00000440  31 37 2c 32 35 35 2c 31  39 31 2c 32 35 35 2c 34  |17,255,191,255,4|
00000450  38 0d 02 6c 28 ef 32 33  2c 32 33 32 2c 30 2c 32  |8..l(.23,232,0,2|
00000460  34 30 2c 31 33 36 2c 31  33 36 2c 32 35 35 2c 32  |40,136,136,255,2|
00000470  35 33 2c 32 35 35 2c 31  32 0d 02 76 2a ef 32 33  |53,255,12..v*.23|
00000480  2c 32 33 33 2c 32 35 35  2c 32 35 35 2c 32 35 35  |,233,255,255,255|
00000490  2c 32 35 35 2c 32 35 35  2c 32 35 35 2c 32 35 35  |,255,255,255,255|
000004a0  2c 32 38 0d 02 80 2a ef  32 33 2c 32 33 34 2c 32  |,28...*.23,234,2|
000004b0  35 35 2c 32 33 39 2c 31  39 39 2c 32 33 39 2c 32  |55,239,199,239,2|
000004c0  35 35 2c 32 35 35 2c 32  32 31 2c 32 38 0d 02 8a  |55,255,221,28...|
000004d0  05 e1 0d 02 94 05 3a 0d  02 9e 0a dd f2 49 4e 49  |......:......INI|
000004e0  54 0d 02 a8 0a 54 25 3d  35 30 30 0d 02 b2 17 54  |T....T%=500....T|
000004f0  24 3d 22 48 65 6e 72 79  20 48 65 64 67 65 68 6f  |$="Henry Hedgeho|
00000500  67 22 0d 02 bc 14 53 31  24 3d 22 20 22 3a 53 32  |g"....S1$=" ":S2|
00000510  24 3d 22 20 20 22 0d 02  c6 17 53 33 24 3d 22 20  |$="  "....S3$=" |
00000520  20 20 22 3a 53 34 24 3d  22 20 20 20 22 0d 02 d0  |  ":S4$="   "...|
00000530  1c 53 35 24 3d 22 20 20  20 20 20 22 3a 53 36 24  |.S5$="     ":S6$|
00000540  3d 22 20 20 20 20 20 20  22 0d 02 da 12 52 24 28  |="      "....R$(|
00000550  30 29 3d c4 32 30 2c 22  20 22 29 0d 02 e4 4d 20  |0)=.20," ")...M |
00000560  52 24 28 31 29 3d 53 32  24 2b bd 32 32 37 2b bd  |R$(1)=S2$+.227+.|
00000570  32 32 36 2b bd 32 32 37  2b bd 32 32 37 2b bd 32  |226+.227+.227+.2|
00000580  32 35 2b 53 34 24 2b bd  32 32 36 2b bd 32 32 35  |25+S4$+.226+.225|
00000590  2b 53 35 24 2b bd 32 32  37 2b bd 32 32 36 2b bd  |+S5$+.227+.226+.|
000005a0  32 32 35 2b 53 34 24 20  0d 02 ee 55 52 24 28 32  |225+S4$ ...UR$(2|
000005b0  29 3d bd 32 32 34 2b bd  32 32 36 2b bd 32 32 37  |)=.224+.226+.227|
000005c0  2b bd 32 32 36 2b bd 32  32 36 2b 53 35 24 2b bd  |+.226+.226+S5$+.|
000005d0  32 32 34 2b bd 32 32 36  2b 53 33 24 2b bd 32 32  |224+.226+S3$+.22|
000005e0  34 2b bd 32 32 37 2b bd  32 32 37 2b bd 32 32 36  |4+.227+.227+.226|
000005f0  2b 53 32 24 2b bd 32 32  34 2b 53 33 24 0d 02 f8  |+S2$+.224+S3$...|
00000600  56 52 24 28 33 29 3d bd  32 32 38 2b bd 32 32 39  |VR$(3)=.228+.229|
00000610  2b bd 32 32 39 2b bd 32  33 30 2b 53 34 24 2b bd  |+.229+.230+S4$+.|
00000620  32 32 37 2b bd 32 32 37  2b bd 32 32 35 2b 53 36  |227+.227+.225+S6|
00000630  24 2b bd 32 32 38 2b bd  32 32 39 2b bd 32 33 30  |$+.228+.229+.230|
00000640  2b 53 33 24 2b bd 32 32  36 2b bd 32 32 35 2b 53  |+S3$+.226+.225+S|
00000650  31 24 20 0d 03 02 55 52  24 28 34 29 3d bd 32 32  |1$ ...UR$(4)=.22|
00000660  38 2b bd 32 32 39 2b bd  32 32 39 2b bd 32 33 30  |8+.229+.229+.230|
00000670  2b 53 34 24 2b bd 32 32  34 2b bd 32 32 37 2b bd  |+S4$+.224+.227+.|
00000680  32 32 37 2b 53 36 24 2b  bd 32 32 38 2b bd 32 32  |227+S6$+.228+.22|
00000690  39 2b bd 32 33 30 2b 53  33 24 2b bd 32 32 34 2b  |9+.230+S3$+.224+|
000006a0  bd 32 32 36 2b 53 31 24  0d 03 0c 12 52 24 28 35  |.226+S1$....R$(5|
000006b0  29 3d c4 32 30 2c 22 20  22 29 0d 03 16 54 52 24  |)=.20," ")...TR$|
000006c0  28 36 29 3d 53 32 24 2b  bd 32 32 38 2b bd 32 32  |(6)=S2$+.228+.22|
000006d0  39 2b bd 32 32 39 2b bd  32 33 32 2b 53 35 24 2b  |9+.229+.232+S5$+|
000006e0  bd 32 33 31 2b bd 32 33  32 2b 53 35 24 2b bd 32  |.231+.232+S5$+.2|
000006f0  33 33 2b bd 32 33 33 2b  bd 32 33 32 2b 53 31 24  |33+.233+.232+S1$|
00000700  2b bd 32 33 31 2b bd 32  33 32 2b 53 32 24 0d 03  |+.231+.232+S2$..|
00000710  20 50 52 24 28 37 29 3d  bd 32 33 31 2b bd 32 33  | PR$(7)=.231+.23|
00000720  32 2b 53 32 24 2b bd 32  33 31 2b bd 32 33 32 2b  |2+S2$+.231+.232+|
00000730  53 32 24 2b bd 32 33 33  2b bd 32 33 32 2b 53 35  |S2$+.233+.232+S5|
00000740  24 2b bd 32 32 38 2b bd  32 33 32 2b 53 31 24 2b  |$+.228+.232+S1$+|
00000750  bd 32 33 33 2b bd 32 33  32 2b 53 35 24 20 0d 03  |.233+.232+S5$ ..|
00000760  2a 4f 52 24 28 38 29 3d  bd 32 33 31 2b bd 32 33  |*OR$(8)=.231+.23|
00000770  32 2b 53 31 24 2b bd 32  33 31 2b bd 32 33 32 2b  |2+S1$+.231+.232+|
00000780  53 33 24 2b bd 32 33 31  2b bd 32 33 33 2b 53 35  |S3$+.231+.233+S5|
00000790  24 2b bd 32 33 31 2b bd  32 33 30 2b 53 31 24 2b  |$+.231+.230+S1$+|
000007a0  bd 32 33 31 2b bd 32 33  33 2b 53 35 24 0d 03 34  |.231+.233+S5$..4|
000007b0  5d 52 24 28 39 29 3d 53  34 24 2b bd 32 33 31 2b  |]R$(9)=S4$+.231+|
000007c0  bd 32 33 32 2b 53 31 24  2b bd 32 33 31 2b bd 32  |.232+S1$+.231+.2|
000007d0  32 39 2b bd 32 32 39 2b  bd 32 33 30 2b 53 33 24  |29+.229+.230+S3$|
000007e0  2b bd 32 33 31 2b bd 32  33 33 2b 53 33 24 2b bd  |+.231+.233+S3$+.|
000007f0  32 33 31 2b bd 32 33 33  2b 53 33 24 2b bd 32 33  |231+.233+S3$+.23|
00000800  31 2b bd 32 33 30 2b 53  31 24 0d 03 3e 0c e3 20  |1+.230+S1$..>.. |
00000810  49 25 3d 31 b8 39 0d 03  48 15 52 24 28 49 25 29  |I%=1.9..H.R$(I%)|
00000820  3d c4 35 2c 52 24 28 49  25 29 29 0d 03 52 17 52  |=.5,R$(I%))..R.R|
00000830  24 28 49 25 29 3d c0 52  24 28 49 25 29 2c 31 30  |$(I%)=.R$(I%),10|
00000840  30 29 0d 03 5c 05 ed 0d  03 66 05 e1 0d 03 70 0b  |0)..\....f....p.|
00000850  20 dd f2 47 41 4d 45 0d  03 7a 1d 53 25 3d 2d 31  | ..GAME..z.S%=-1|
00000860  30 30 3a 4c 45 56 45 4c  25 3d 2d 31 3a f2 48 41  |00:LEVEL%=-1:.HA|
00000870  52 44 45 52 0d 03 84 08  4e 25 3d 30 0d 03 8e 05  |RDER....N%=0....|
00000880  f5 0d 03 98 0f 4e 25 3d  4e 25 2b 31 3a f2 47 4f  |.....N%=N%+1:.GO|
00000890  0d 03 a2 0a fd 20 4e 25  3d 33 0d 03 ac 0f e7 20  |..... N%=3..... |
000008a0  53 25 3c 31 30 30 30 20  e1 0d 03 b6 0d fb 30 3a  |S%<1000 ......0:|
000008b0  fb 31 32 39 3a db 0d 03  c0 1c f1 8a 32 2c 31 30  |.129:.......2,10|
000008c0  29 22 42 6f 6e 75 73 20  48 65 64 67 65 68 6f 67  |)"Bonus Hedgehog|
000008d0  22 3b 0d 03 ca 1b f1 8a  32 2c 32 30 29 22 4d 61  |";......2,20)"Ma|
000008e0  79 20 74 68 65 20 66 6c  65 61 73 22 3b 0d 03 d4  |y the fleas";...|
000008f0  19 f1 8a 32 2c 32 32 29  22 62 65 20 77 69 74 68  |...2,22)"be with|
00000900  20 79 6f 75 22 3b 0d 03  de 11 e3 20 49 25 3d 30  | you";..... I%=0|
00000910  b8 32 35 35 20 88 38 0d  03 e8 10 d4 26 31 2c 2d  |.255 .8.....&1,-|
00000920  31 32 2c 49 25 2c 31 0d  03 f2 05 ed 0d 03 fc 0b  |12,I%,1.........|
00000930  2a 46 58 31 35 2c 31 0d  04 06 0d 41 24 3d bf 28  |*FX15,1....A$=.(|
00000940  32 30 30 29 0d 04 10 19  f5 3a 4e 25 3d 4e 25 2b  |200).....:N%=N%+|
00000950  31 3a f2 5f 47 4f 3a fd  20 4e 25 3d 34 0d 04 1a  |1:._GO:. N%=4...|
00000960  05 e1 0d 04 24 05 3a 0d  04 38 08 dd f2 47 4f 0d  |....$.:..8...GO.|
00000970  04 42 15 58 25 3d 31 30  3a 59 25 3d 33 30 3a 5a  |.B.X%=10:Y%=30:Z|
00000980  25 3d 31 30 0d 04 4c 0f  f2 44 52 41 57 53 43 52  |%=10..L..DRAWSCR|
00000990  45 45 4e 0d 04 56 05 f5  0d 04 60 11 f2 52 4f 41  |EEN..V....`..ROA|
000009a0  44 28 31 2c 30 2c 31 32  29 0d 04 6a 11 f2 52 4f  |D(1,0,12)..j..RO|
000009b0  41 44 28 36 2c 30 2c 32  32 29 0d 04 74 11 f2 52  |AD(6,0,22)..t..R|
000009c0  4f 41 44 28 37 2c 30 2c  32 34 29 0d 04 7e 11 f2  |OAD(7,0,24)..~..|
000009d0  52 4f 41 44 28 34 2c 31  2c 31 38 29 0d 04 88 11  |ROAD(4,1,18)....|
000009e0  f2 52 4f 41 44 28 38 2c  31 2c 32 36 29 0d 04 92  |.ROAD(8,1,26)...|
000009f0  11 f2 52 4f 41 44 28 39  2c 31 2c 32 38 29 0d 04  |..ROAD(9,1,28)..|
00000a00  9c 11 f2 52 4f 41 44 28  37 2c 30 2c 32 34 29 0d  |...ROAD(7,0,24).|
00000a10  04 a6 11 f2 52 4f 41 44  28 32 2c 31 2c 31 34 29  |....ROAD(2,1,14)|
00000a20  0d 04 b0 11 f2 52 4f 41  44 28 38 2c 31 2c 32 36  |.....ROAD(8,1,26|
00000a30  29 0d 04 ba 11 f2 52 4f  41 44 28 33 2c 30 2c 31  |).....ROAD(3,0,1|
00000a40  36 29 0d 04 c4 0a fd 20  59 25 3d 30 0d 04 ce 17  |6)..... Y%=0....|
00000a50  e7 20 41 43 4f 52 4e 53  25 3d 30 20 f2 48 41 52  |. ACORNS%=0 .HAR|
00000a60  44 45 52 0d 04 d8 05 e1  0d 04 e2 05 3a 0d 04 ec  |DER.........:...|
00000a70  10 dd f2 44 52 41 57 53  43 52 45 45 4e 0d 04 f6  |...DRAWSCREEN...|
00000a80  06 fb 30 0d 05 00 08 fb  31 32 38 0d 05 0a 05 db  |..0.....128.....|
00000a90  0d 05 14 08 fb 31 32 39  0d 05 1e 10 f1 8a 31 2c  |.....129......1,|
00000aa0  34 29 89 28 31 37 29 3b  0d 05 28 1f 20 f1 8a 31  |4).(17);..(. ..1|
00000ab0  2c 35 29 22 20 48 20 45  20 44 20 47 20 45 20 48  |,5)" H E D G E H|
00000ac0  20 4f 20 47 20 22 3b 0d  05 32 10 f1 8a 31 2c 36  | O G ";..2...1,6|
00000ad0  29 89 28 31 37 29 3b 0d  05 3c 06 fb 33 0d 05 46  |).(17);..<..3..F|
00000ae0  08 fb 31 32 38 0d 05 50  0e f1 8a 31 2c 31 29 3b  |..128..P...1,1);|
00000af0  4e 25 3b 0d 05 5a 14 f1  8a 30 2c 31 30 29 c4 32  |N%;..Z...0,10).2|
00000b00  30 2c bd 32 35 35 29 0d  05 64 06 fb 39 0d 05 6e  |0,.255)..d..9..n|
00000b10  0e e3 20 49 25 3d 30 b8  20 31 39 0d 05 78 1b e7  |.. I%=0. 19..x..|
00000b20  20 41 25 28 49 25 29 3d  31 20 f1 8a 49 25 2c 31  | A%(I%)=1 ..I%,1|
00000b30  30 29 bd 32 34 39 0d 05  82 05 ed 0d 05 8c 06 fb  |0).249..........|
00000b40  37 0d 05 96 14 f1 8a 30  2c 32 31 29 c4 32 30 2c  |7......0,21).20,|
00000b50  bd 32 35 34 29 0d 05 a0  14 f1 8a 30 2c 32 33 29  |.254)......0,23)|
00000b60  c4 31 30 2c 22 2d 20 22  29 0d 05 aa 14 f1 8a 30  |.10,"- ")......0|
00000b70  2c 32 35 29 c4 32 30 2c  bd 32 35 32 29 0d 05 b4  |,25).20,.252)...|
00000b80  14 f1 8a 30 2c 32 37 29  c4 31 30 2c 22 2d 20 22  |...0,27).10,"- "|
00000b90  29 0d 05 be 14 f1 8a 30  2c 32 39 29 c4 32 30 2c  |)......0,29).20,|
00000ba0  bd 32 35 31 29 0d 05 c8  17 f1 8a 31 30 2c 31 29  |.251)......10,1)|
00000bb0  22 53 63 6f 72 65 20 22  3b 53 25 3b 0d 05 d2 07  |"Score ";S%;....|
00000bc0  fb 31 33 0d 05 dc 11 f1  8a 30 2c 32 30 29 52 24  |.13......0,20)R$|
00000bd0  28 35 29 3b 0d 05 e6 0f  f1 8a 58 25 2c 59 25 29  |(5);......X%,Y%)|
00000be0  48 24 3b 0d 05 f0 05 e1  0d 05 fa 05 3a 0d 06 04  |H$;.........:...|
00000bf0  09 dd f2 48 4f 47 0d 06  0e 0c e7 20 59 25 3d 30  |...HOG..... Y%=0|
00000c00  20 e1 0d 06 18 3e e7 20  a6 2d 39 38 20 80 20 58  | ....>. .-98 . X|
00000c10  25 3e 30 20 f2 4c 45 46  54 20 8b 20 e7 20 a6 2d  |%>0 .LEFT . . .-|
00000c20  36 37 20 80 20 58 25 3c  31 39 20 f2 52 49 47 48  |67 . X%<19 .RIGH|
00000c30  54 20 8b 20 e7 20 a6 2d  31 30 35 20 f2 46 57 44  |T . . .-105 .FWD|
00000c40  0d 06 22 29 e7 20 5a 25  3c 31 30 20 e7 20 c1 52  |.."). Z%<10 . .R|
00000c50  24 28 5a 25 29 2c 58 25  2b 31 2c 31 29 3c 3e 53  |$(Z%),X%+1,1)<>S|
00000c60  31 24 20 f2 53 50 4c 41  54 0d 06 2c 05 e1 0d 06  |1$ .SPLAT..,....|
00000c70  36 05 3a 0d 06 40 0a dd  f2 4c 45 46 54 0d 06 4a  |6.:..@...LEFT..J|
00000c80  1b 58 25 3d 58 25 2d 31  3a f1 8a 58 25 2c 59 25  |.X%=X%-1:..X%,Y%|
00000c90  29 48 24 3b 22 20 22 3b  0d 06 54 05 e1 0d 06 5e  |)H$;" ";..T....^|
00000ca0  05 3a 0d 06 68 0b dd f2  52 49 47 48 54 0d 06 72  |.:..h...RIGHT..r|
00000cb0  1b f1 8a 58 25 2c 59 25  29 22 20 22 3b 48 24 3b  |...X%,Y%)" ";H$;|
00000cc0  3a 58 25 3d 58 25 2b 31  0d 06 7c 05 e1 0d 06 86  |:X%=X%+1..|.....|
00000cd0  05 3a 0d 06 90 09 dd f2  46 57 44 0d 06 9a 24 e7  |.:......FWD...$.|
00000ce0  20 5a 25 3d 31 20 80 20  41 25 28 58 25 29 3c 3e  | Z%=1 . A%(X%)<>|
00000cf0  31 20 d4 31 2c 2d 31 35  2c 34 30 2c 31 3a e1 0d  |1 .1,-15,40,1:..|
00000d00  06 a4 0b 59 25 3d 59 25  2d 32 0d 06 ae 0b 5a 25  |...Y%=Y%-2....Z%|
00000d10  3d 5a 25 2d 31 0d 06 b8  1c f1 8a 58 25 2c 59 25  |=Z%-1......X%,Y%|
00000d20  29 48 24 3b 8a 58 25 2c  59 25 2b 32 29 53 31 24  |)H$;.X%,Y%+2)S1$|
00000d30  3b 0d 06 c2 10 d4 31 2c  2d 31 32 2c 32 32 30 2c  |;.....1,-12,220,|
00000d40  31 0d 06 cc 0c 53 25 3d  53 25 2b 31 30 0d 06 d6  |1....S%=S%+10...|
00000d50  17 f1 8a 31 30 2c 31 29  22 53 63 6f 72 65 20 22  |...10,1)"Score "|
00000d60  3b 53 25 3b 0d 06 e0 13  e7 20 5a 25 3d 30 20 f2  |;S%;..... Z%=0 .|
00000d70  43 48 55 43 4b 4c 45 0d  06 ea 05 e1 0d 06 f4 05  |CHUCKLE.........|
00000d80  3a 0d 06 fe 15 dd f2 52  4f 41 44 28 52 25 2c 44  |:......ROAD(R%,D|
00000d90  25 2c 53 59 25 29 0d 07  08 4e e7 20 44 25 3e 30  |%,SY%)...N. D%>0|
00000da0  20 52 24 28 52 25 29 3d  c1 52 24 28 52 25 29 2c  | R$(R%)=.R$(R%),|
00000db0  32 2c 39 39 29 2b c0 52  24 28 52 25 29 2c 31 29  |2,99)+.R$(R%),1)|
00000dc0  20 8b 20 52 24 28 52 25  29 3d c1 52 24 28 52 25  | . R$(R%)=.R$(R%|
00000dd0  29 2c 31 30 30 2c 31 29  2b c0 52 24 28 52 25 29  |),100,1)+.R$(R%)|
00000de0  2c 39 39 29 0d 07 12 0e  fb 20 28 52 25 83 32 29  |,99)..... (R%.2)|
00000df0  2b 32 0d 07 1c 08 fb 31  32 38 0d 07 26 18 f1 8a  |+2.....128..&...|
00000e00  30 2c 53 59 25 29 c0 52  24 28 52 25 29 2c 32 30  |0,SY%).R$(R%),20|
00000e10  29 3b 0d 07 30 18 e7 20  53 59 25 3d 59 25 20 f1  |);..0.. SY%=Y% .|
00000e20  8a 58 25 2c 59 25 29 48  24 3b 0d 07 3a 08 f2 48  |.X%,Y%)H$;..:..H|
00000e30  4f 47 0d 07 44 2a e7 20  59 25 3d 53 59 25 20 e7  |OG..D*. Y%=SY% .|
00000e40  20 c1 52 24 28 52 25 29  2c 58 25 2b 31 2c 31 29  | .R$(R%),X%+1,1)|
00000e50  3c 3e 53 31 24 20 f2 53  50 4c 41 54 0d 07 4e 31  |<>S1$ .SPLAT..N1|
00000e60  e7 20 b3 28 38 30 29 3d  38 30 20 d4 33 2c 2d 31  |. .(80)=80 .3,-1|
00000e70  35 2c 31 2c 31 30 3a d4  32 2c 2d 31 35 2c 39 2c  |5,1,10:.2,-15,9,|
00000e80  38 3a d4 31 2c 2d 31 35  2c 31 37 2c 32 0d 07 58  |8:.1,-15,17,2..X|
00000e90  05 e1 0d 07 62 05 3a 0d  07 6c 0b dd f2 53 50 4c  |....b.:..l...SPL|
00000ea0  41 54 0d 07 76 0c e7 20  59 25 3d 30 20 e1 0d 07  |AT..v.. Y%=0 ...|
00000eb0  80 07 fb 31 34 0d 07 8a  10 f1 8a 58 25 2c 59 25  |...14......X%,Y%|
00000ec0  29 22 2a 22 3b 0d 07 94  11 ef 31 39 2c 30 2c 31  |)"*";.....19,0,1|
00000ed0  2c 30 2c 30 2c 30 0d 07  9e 07 fb 31 32 0d 07 a8  |,0,0,0.....12...|
00000ee0  08 fb 31 33 39 0d 07 b2  10 f1 8a 31 2c 34 29 89  |..139......1,4).|
00000ef0  28 31 37 29 3b 0d 07 bc  1f 20 f1 8a 31 2c 35 29  |(17);.... ..1,5)|
00000f00  22 20 20 20 20 53 20 50  20 4c 20 41 20 54 20 20  |"    S P L A T  |
00000f10  20 20 22 3b 0d 07 c6 10  f1 8a 31 2c 36 29 89 28  |  ";......1,6).(|
00000f20  31 37 29 3b 0d 07 d0 08  fb 31 32 38 0d 07 da 0d  |17);.....128....|
00000f30  e3 20 49 25 3d 31 b8 31  35 0d 07 e4 15 d4 31 2c  |. I%=1.15.....1,|
00000f40  2d 35 2c 32 35 35 2d 31  30 2a 49 25 2c 31 0d 07  |-5,255-10*I%,1..|
00000f50  ee 05 ed 0d 07 f8 06 fb  31 0d 08 02 11 f1 8a 58  |........1......X|
00000f60  25 2c 59 25 29 bd 32 35  30 3b 0d 08 0c 07 ef 32  |%,Y%).250;.....2|
00000f70  30 0d 08 16 40 e7 20 58  25 3e 31 30 20 41 58 25  |0...@. X%>10 AX%|
00000f80  3d 30 3a 41 4d 42 24 3d  22 20 22 2b bd 32 33 34  |=0:AMB$=" "+.234|
00000f90  2b bd 32 33 32 20 8b 20  41 58 25 3d 31 37 3a 41  |+.232 . AX%=17:A|
00000fa0  4d 42 24 3d bd 32 33 31  2b bd 32 33 34 2b 22 20  |MB$=.231+.234+" |
00000fb0  22 0d 08 20 0d e3 20 49  25 3d 30 b8 31 35 0d 08  |".. .. I%=0.15..|
00000fc0  2a 26 e7 20 41 58 25 3c  58 25 20 f1 8a 41 58 25  |*&. AX%<X% ..AX%|
00000fd0  2c 59 25 29 41 4d 42 24  3b 3a 41 58 25 3d 41 58  |,Y%)AMB$;:AX%=AX|
00000fe0  25 2b 31 20 0d 08 34 25  e7 20 41 58 25 3e 58 25  |%+1 ..4%. AX%>X%|
00000ff0  20 41 58 25 3d 41 58 25  2d 31 3a f1 8a 41 58 25  | AX%=AX%-1:..AX%|
00001000  2c 59 25 29 41 4d 42 24  3b 0d 08 3e 12 e3 20 4a  |,Y%)AMB$;..>.. J|
00001010  25 3d 30 b8 31 32 30 20  88 32 20 0d 08 48 11 d4  |%=0.120 .2 ..H..|
00001020  26 31 31 2c 2d 49 25 2c  4a 25 2c 35 0d 08 52 05  |&11,-I%,J%,5..R.|
00001030  ed 0d 08 5c 05 ed 0d 08  66 08 59 25 3d 30 0d 08  |...\....f.Y%=0..|
00001040  70 05 e1 0d 08 7a 05 3a  0d 08 84 0d dd f2 43 48  |p....z.:......CH|
00001050  55 43 4b 4c 45 0d 08 8e  0d e3 20 49 25 3d 31 b8  |UCKLE..... I%=1.|
00001060  32 35 0d 08 98 08 4a 25  3d 31 0d 08 a2 1f d4 20  |25....J%=1..... |
00001070  4a 25 2c 2d 31 35 2b 49  25 2f 33 2c 32 30 30 2d  |J%,-15+I%/3,200-|
00001080  b3 28 33 29 2a 49 25 2c  31 0d 08 ac 05 ed 0d 08  |.(3)*I%,1.......|
00001090  b6 35 20 4e 25 3d 4e 25  2d 31 3a 59 25 3d 30 3a  |.5 N%=N%-1:Y%=0:|
000010a0  53 25 3d 53 25 2b 32 35  3a 41 25 28 58 25 29 3d  |S%=S%+25:A%(X%)=|
000010b0  30 3a 41 43 4f 52 4e 53  25 3d 41 43 4f 52 4e 53  |0:ACORNS%=ACORNS|
000010c0  25 2d 31 0d 08 c0 05 e1  0d 08 ca 05 3a 0d 08 d4  |%-1.........:...|
000010d0  0c dd f2 48 41 52 44 45  52 0d 08 de 0c e3 20 49  |...HARDER..... I|
000010e0  25 3d 31 b8 33 0d 08 e8  14 e3 20 4a 25 3d 33 30  |%=1.3..... J%=30|
000010f0  20 b8 20 31 38 30 20 88  38 0d 08 f2 1d d4 26 31  | . 180 .8.....&1|
00001100  32 2c 2d 31 31 2d 49 25  2c 4a 25 2b 31 32 2b 49  |2,-11-I%,J%+12+I|
00001110  25 2a 31 30 2c 31 0d 08  fc 05 ed 0d 09 06 05 ed  |%*10,1..........|
00001120  0d 09 10 0d 53 25 3d 53  25 2b 31 30 30 0d 09 1a  |....S%=S%+100...|
00001130  18 e3 20 49 25 3d 30 b8  31 39 3a 41 25 28 49 25  |.. I%=0.19:A%(I%|
00001140  29 3d 30 3a ed 0d 09 24  0c e3 20 49 25 3d 31 b8  |)=0:...$.. I%=1.|
00001150  34 0d 09 2e 05 f5 0d 09  38 0e 4a 25 3d b3 28 31  |4.......8.J%=.(1|
00001160  37 29 2b 31 0d 09 42 0e  fd 20 41 25 28 4a 25 29  |7)+1..B.. A%(J%)|
00001170  3d 30 0d 09 4c 0c 41 25  28 4a 25 29 3d 31 0d 09  |=0..L.A%(J%)=1..|
00001180  56 05 ed 0d 09 60 0d 41  43 4f 52 4e 53 25 3d 34  |V....`.ACORNS%=4|
00001190  0d 09 6a 1f 4c 45 56 45  4c 25 3d 4c 45 56 45 4c  |..j.LEVEL%=LEVEL|
000011a0  25 2d 32 2a 28 4c 45 56  45 4c 25 3c 3e 39 29 0d  |%-2*(LEVEL%<>9).|
000011b0  09 74 37 52 24 28 35 29  3d c4 4c 45 56 45 4c 25  |.t7R$(5)=.LEVEL%|
000011c0  2c bd 32 35 35 29 2b c4  32 30 2d 4c 45 56 45 4c  |,.255)+.20-LEVEL|
000011d0  25 2a 32 2c 22 20 22 29  2b c4 4c 45 56 45 4c 25  |%*2," ")+.LEVEL%|
000011e0  2c bd 32 35 35 29 0d 09  7e 06 e1 20 0d 09 88 05  |,.255)..~.. ....|
000011f0  3a 0d 09 92 0e dd f2 54  4f 50 53 43 4f 52 45 0d  |:......TOPSCORE.|
00001200  09 9c 06 fb 33 0d 09 a6  08 fb 31 32 39 0d 09 b0  |....3.....129...|
00001210  05 db 0d 09 ba 1e f1 8a  31 2c 33 29 22 54 20 4f  |........1,3)"T O|
00001220  20 50 20 2d 20 53 20 43  20 4f 20 52 20 45 22 3b  | P - S C O R E";|
00001230  0d 09 c4 1c f1 8a 31 2c  38 29 22 45 6e 74 65 72  |......1,8)"Enter|
00001240  20 79 6f 75 72 20 6e 61  6d 65 22 3b 0d 09 ce 0c  | your name";....|
00001250  f1 8a 31 2c 31 30 29 3b  0d 09 d8 17 e3 20 49 25  |..1,10);..... I%|
00001260  3d 31 30 30 20 b8 20 32  30 30 20 88 20 31 32 0d  |=100 . 200 . 12.|
00001270  09 e2 0f d4 31 2c 2d 31  35 2c 49 25 2c 33 0d 09  |....1,-15,I%,3..|
00001280  ec 11 d4 31 2c 2d 31 34  2c 49 25 2b 38 2c 33 0d  |...1,-14,I%+8,3.|
00001290  09 f6 05 ed 0d 0a 00 0b  2a 46 58 31 35 2c 31 0d  |........*FX15,1.|
000012a0  0a 0a 09 e8 22 22 54 24  0d 0a 14 09 54 25 3d 53  |....""T$....T%=S|
000012b0  25 0d 0a 1e 05 e1 0d 0a  28 05 3a 0d 0a 32 0e dd  |%.......(.:..2..|
000012c0  f2 47 41 4d 45 4f 56 45  52 0d 0a 3c 06 fb 34 0d  |.GAMEOVER..<..4.|
000012d0  0a 46 08 fb 31 33 33 0d  0a 50 05 db 0d 0a 5a 16  |.F..133..P....Z.|
000012e0  f1 8a 35 2c 33 29 22 53  75 70 65 72 20 68 6f 67  |..5,3)"Super hog|
000012f0  22 3b 0d 0a 64 07 fb 31  35 0d 0a 6e 18 f1 8a 28  |";..d..15..n...(|
00001300  32 30 2d a9 28 54 24 29  29 81 32 2c 36 29 54 24  |20-.(T$)).2,6)T$|
00001310  3b 0d 0a 78 06 fb 34 0d  0a 82 17 f1 8a 35 2c 31  |;..x..4......5,1|
00001320  31 29 22 54 6f 70 20 73  63 6f 72 65 22 3b 0d 0a  |1)"Top score";..|
00001330  8c 06 fb 30 0d 0a 96 0f  f1 8a 38 2c 31 33 29 3b  |...0......8,13);|
00001340  54 25 3b 0d 0a a0 06 fb  34 0d 0a aa 18 f1 8a 35  |T%;.....4......5|
00001350  2c 31 38 29 22 59 6f 75  72 20 73 63 6f 72 65 22  |,18)"Your score"|
00001360  3b 0d 0a b4 06 fb 30 0d  0a be 0f f1 8a 38 2c 32  |;.....0......8,2|
00001370  30 29 3b 53 25 3b 0d 0a  c8 06 fb 34 0d 0a d2 1b  |0);S%;.....4....|
00001380  f1 8a 34 2c 33 30 29 22  50 72 65 73 73 20 61 6e  |..4,30)"Press an|
00001390  79 20 6b 65 79 22 3b 0d  0a dc 06 e1 20 0d ff     |y key";..... ..|
0000139f

GAMES2/HEDGEHOG.m0

GAMES2/HEDGEHOG.m1

GAMES2/HEDGEHOG.m2

GAMES2/HEDGEHOG.m4

GAMES2/HEDGEHOG.m5

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