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

GAMES2/HELLFLOWER

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/HELLFLOWER
Read OK:
File size: 1265 bytes
Load address: FFFF0E00
Exec address: FFFF8023
File contents
   10 REM FLOWERS OF HELL
   60:
  100 ON ERROR GOTO 490
  110DIMGP%(32),FX%(2,10),FY%(2,10),Z%(2,10),F$(2),FR$(2),FL$(2),FD$(2)
  120PROCchar:PROCstrings
  130H%=0
  140REPEAT
  150MODE1:S%=0:C%=3:PROCinstruct
  160MODE5
  170PROCsetup
  180PROCsetup2
  190REPEAT
  200PRINTTAB(10,1);S%;SPC2
  210IF INKEY-103 AND GP%(Y%-1)=X% PRINTTAB(X%,Y%)MU$;:Y%=Y%-2:SOUND1,-15,96,1
  220IF INKEY-102 AND QJ% THEN QJ%=FALSE:PRINTTAB(X%,Y%)MU$;:Y%=Y%-2
  230IF INKEY-67+INKEY-98=0 PRINTTAB(X%,Y%)M$;
  240IF INKEY-67 AND X%<19 PRINTTAB(X%,Y%)MR$;:X%=X%+1
  250IF INKEY(-98) AND X%>0 PRINTTAB(X%,Y%)ML$;:X%=X%-1
  260IF GP%(Y%+1)=X%:PROCdown
  270Q%=2+2*RND(14)
  280PRINTTAB(GP%(Q%),Q%)F$;
  290PROCgap(Q%)
  300IF A% PROCF
  310IF INKEY-68 REPEAT UNTIL INKEY-54=-1
  320UNTIL Y%=3 OR Y%=31 OR T%=1
  330IF Y%=3 PROCbonus:GOTO 180
  340C%=C%-1
  350IF Y%=31 PROCbottom
  360IF T%=1 PROCfire
  370IF C% THEN 160
  380MODE1 
  390PRINTTAB(10,3)"GAME OVER"
  400IF H%<S% THEN H%=S% 
  410PRINT''"YOU SCORED ";S%
  420PRINT''"HI-SCORE   ";H%
  430PRINT''"Would you like another game? (Y/N)";
  440REPEAT:G$=GET$:UNTIL INSTR("YyNn",G$)
  450UNTIL G$<>"Y" AND G$<>"y"
  460MODE6
  470END
  480:
  490ON ERROR OFF:MODE6
  500IF ERR<>17 REPORT:PRINT" at line ";ERL
  510END
  520:
 1000DEFPROCdown 
 1010SOUND1,-15,0,1 
 1020PRINTTAB(X%,Y%)MD$;
 1030Y%=Y%+2
 1040PROCgap(Y%-1)
 1050ENDPROC
 1060:
 1070DEFPROCbonus
 1080VDU19,3,14,0,0,0
 1090VDU19,0,13,0,0,0
 1100PRINTTAB(15,1);"BONUS"
 1110VDU19,2,11,0,0,0
 1120RESTORE1140:REPEAT
 1130READ I%,J%:SOUND1,-15,I%,J%
 1140DATA56,5,0,1,56,5,0,1,60,2,0,1,60,2,0,1,60,2,0,1,60,2,0,1,68,5,0,1,68,5,0,1,76,12
 1150UNTIL I%=76
 1160IF A%>0 THEN:FOR I%=0TO2:FOR J%=1TOA%:PRINTTAB(FX%(I%,J%),FY%(I%,J%))SPC1:NEXT:NEXT
 1170PROCdelay(200)
 1180A%=A%+1:S%=S%+50*A%
 1190IF A%>10THEN A%=10
 1200PRINTTAB(X%,Y%)SPC1
 1210VDU19,2,4,0,0,0:VDU19,3,5,0,0,0
 1220PRINTTAB(15,1);SPC5;
 1230VDU19,0,3,0,0,0
 1240ENDPROC
 1250:
 1260DEFPROCbottom
 1270SOUND1,1,92,60
 1280CLS:COLOUR1
 1290PRINTTAB(2,5)"YOU FELL THROUGH"
 1300PRINTTAB(2,8)"THE BOTTOM FLOOR"
 1310D%=200:PROClives
 1320A%=0
 1330ENDPROC
 1340:
 1350DEFPROCF
 1360FOR I%=0TO2:FOR J%=1TOA%
 1370IF X%=FX%(I%,J%)AND FY%(I%,J%)=Y%PROCcaught
 1380IF Z%(I%,J%)<0 PRINTTAB(FX%(I%,J%),FY%(I%,J%))FL$(I%); ELSE PRINTTAB(FX%(I%,J%),FY%(I%,J%))FR$(I%);
 1390FX%(I%,J%)=FX%(I%,J%)+Z%(I%,J%)
 1400IF FX%(I%,J%)=0 OR FX%(I%,J%)=19 OR RND(20)=1 THEN Z%(I%,J%)=-Z%(I%,J%)
 1410IF FX%(I%,J%)=GP%(FY%(I%,J%)+1)PRINTTAB(FX%(I%,J%),FY%(I%,J%))FD$(I%);:FY%(I%,J%)=FY%(I%,J%)+2
 1420 IF X%=FX%(I%,J%) AND FY%(I%,J%)=Y% THEN PROCcaught
 1430IF FY%(I%,J%)=31 THEN PROCFbottom
 1440NEXT:NEXT
 1450ENDPROC
 1460:
 1470DEFPROCcaught
 1480IF I% SOUND1,-15,68,4:SOUND1,-15,80,4:SOUND1,-15,96,4:SOUND1,-15,80,4:S%=S%+5*I%:FY%(I%,J%)=3:PRINTTAB(X%,Y%)CHR$226:ELSE T%=1
 1490ENDPROC
 1500:
 1510DEFPROCsetF
 1520FOR I%=0TO2:FOR J%=1TOA%:FY%(I%,J%)=3:FX%(I%,J%)=RND(18):Z%(I%,J%)=2*RND(2)-3
 1530NEXT:NEXT
 1540ENDPROC
 1550:
 1560DEFPROCFbottom
 1570PRINTTAB(FX%(I%,J%),FY%(I%,J%))SP$;:FY%(I%,J%)=3
 1580IF I% THEN S%=S%-5*I%:SOUND1,-15,32,4:SOUND1,-15,48,8:SOUND1,-15,32,4
 1590ENDPROC
 1600:
 1610DEFPROCfire
 1620SOUND0,-15,6,15
 1630CLS:COLOUR1
 1640PRINTTAB(2,5)"YOU GOT CAUGHT"
 1650PRINTTAB(2,8)"BY A FIRE BALL"
 1660D%=300:PROClives
 1670T%=0:A%=0 
 1680ENDPROC:
 1690:
 1700DEFPROCchar
 1710ENVELOPE1,50,-8,0,0,5,0,0,126,0,0,-126,126,126
 1720ENVELOPE2,157,1,0,0,8,0,0,126,0,0,-126,126,126
 1730VDU23,224,255,255,255,254,252,192,192,128
 1740VDU23,225,255,66,66,0,0,0,0,0
 1750VDU23,226,24,24,60,90,24,60,36,102
 1760VDU23,227,255,255,255,127,63,3,3,1
 1770VDU23,228,40,42,126,255,255,255,126,24
 1780VDU23,229,0,16,84,56,254,56,84,16
 1790VDU23,230,0,8,42,28,127,28,42,8
 1800VDU23,240,12,12,60,47,12,14,58,35
 1810VDU23,241,48,48,60,244,48,112,92,196
 1820VDU23,1,0;0;0;0;
 1830ENDPROC
 1840:
 1850DEFPROCinstruct
 1860VDU19,3,3,0,0,0:VDU19,2,6,0,0,0
 1870VDU28,0,2,39,0:COLOUR130:CLS:VDU26
 1880COLOUR1:PRINTTAB(10,1)"THE FLOWERS OF HELL":COLOUR128
 1890COLOUR2:PRINT''"Move the man ";
 1900COLOUR3:VDU226
 1910COLOUR2:PRINT" up through the gaps in "'"the floors. But he falls through the "'"gaps too. Catch flowers ";
 1920PRINTF$(2)+CHR$32+F$(1);
 1930PRINT" to score."
 1940PRINT'SPC11CHR$229" - SCORE 5"
 1950COLOUR3:PRINT SPC11 CHR$229" - SCORES 10"
 1960COLOUR2:PRINT'"If flowers drop through bottom floor"
 1970PRINT' SPC11 CHR$229" - LOSES 5"
 1980COLOUR3:PRINT SPC11  CHR$229" - LOSES 10"
 1990COLOUR2:PRINT"Avoid fireballs ";
 2000COLOUR1:PRINT CHR$228;:COLOUR2:PRINT" and do not fall"'"through the bottom floor. Reach the"'"top floor for a bonus."
 2010PRINT"To move man use keys:"
 2020PRINT'SPC7"Z - MOVE LEFT"
 2030PRINTSPC7"X - MOVE RIGHT"
 2040PRINTSPC7", - JUMP UP"
 2050PRINTSPC7"M - QUANTUM JUMP"
 2060PRINTSPC5"F/U - FREEZE/UNFREEZE"
 2070PRINT'"Use keys together to avoid falling back"'"after jump. Only one quantum jump"'"allowed per man, ";C%;" men per game."
 2080 COLOUR3:PRINT'SPC6"PRESS ANY KEY TO CONTINUE";
 2090G%=GET
 2100ENDPROC
 2110:
 2120DEFPROCsetup
 2130VDU23,1,0;0;0;0;
 2140VDU19,0,4,0,0,0
 2150VDU19,2,2,0,0,0:VDU19,3,5,0,0,0
 2160A%=0:QJ%=TRUE:COLOUR2
 2170FOR Q%=4TO30STEP2
 2180PRINTTAB(0,Q%)CHR$224+STRING$(18,CHR$225)+CHR$227;:PROCgap(Q%)
 2190NEXT
 2200ENDPROC
 2210:
 2220DEFPROCsetup2
 2230X%=0:Y%=27
 2240IF A%>0 THEN PROCsetF
 2250COLOUR1:PRINT TAB(4,1)"SCORE"
 2260IF C% PRINTTAB(0,1)STRING$(C%-1,M$);
 2270PRINTTAB(X%,Y%)M$
 2280ENDPROC
 2290:
 2300DEFPROCstrings
 2310C$=CHR$17:R$=C$+CHR$1:B$=C$+CHR$2:Y$=C$+CHR$3
 2320N$=CHR$11:W$=CHR$8:E$=CHR$9:S$=CHR$10
 2330NNW$=N$+N$+W$:SW$=S$+W$
 2340F$=B$+CHR$225:M$=Y$+CHR$226
 2350SP$=CHR$32:MU$=SP$+NNW$+M$
 2360MD$=SP$+SW$+F$+SW$+M$
 2370ML$=W$+Y$+CHR$241+SP$
 2380MR$=SP$+Y$+CHR$240
 2390F$(0)=R$+CHR$228
 2400F$(1)=B$+CHR$229
 2410F$(2)=Y$+CHR$230
 2420FOR I%=0TO2
 2430FL$(I%)=W$+F$(I%)+SP$
 2440FR$(I%)=SP$+F$(I%)
 2450FD$(I%)=SP$+SW$+S$+F$(I%)
 2460NEXT
 2470ENDPROC
 2480:
 2490DEFPROCgap(I%)
 2500GP%(I%)=RND(18)
 2510PRINTTAB(GP%(I%),I%)SP$;
 2520ENDPROC
 2530:
 2540DEFPROCdelay(T%)
 2550TIME=0:REPEAT UNTIL TIME>=T%
 2560ENDPROC
 2570:
 2580DEFPROClives
 2590IF C%=1 THEN PRINTTAB(1,11)"ONLY ONE LIFE LEFT"
 2600IF C%=2 THEN PRINTTAB(1,11)"ONLY TWO LIVES LEFT"
 2610IF C%=0 THEN PRINTTAB(3,11)"NO LIVES LEFT"TAB(5,14)"GAME OVER"
 2620PROCdelay(D%)
 2630ENDPROC

 � FLOWERS OF HELL
<:
d � � � �djA
nD�GP%(32),FX%(2,10),FY%(2,10),Z%(2,10),F$(2),FR$(2),FL$(2),FD$(2)
x�char:�strings
�H%=0
��
��1:S%=0:C%=3:�instruct
��5
�
�setup
��setup2
��
��10,1);S%;�2
�;� �-103 � GP%(Y%-1)=X% �X%,Y%)MU$;:Y%=Y%-2:�1,-15,96,1
�.� �-102 � QJ% � QJ%=�:�X%,Y%)MU$;:Y%=Y%-2
�� �-67+�-98=0 �X%,Y%)M$;
�'� �-67 � X%<19 �X%,Y%)MR$;:X%=X%+1
�(� �(-98) � X%>0 �X%,Y%)ML$;:X%=X%-1
� GP%(Y%+1)=X%:�down
Q%=2+2*�(14)
�GP%(Q%),Q%)F$;
"�gap(Q%)
,� A% �F
6� �-68 � � �-54=-1
@� Y%=3 � Y%=31 � T%=1
J� Y%=3 �bonus:� �tt@
TC%=C%-1
^� Y%=31 �bottom
h� T%=1 �fire
r� C% � �t`@
|�1 
��10,3)"GAME OVER"
�� H%<S% � H%=S% 
��''"YOU SCORED ";S%
��''"HI-SCORE   ";H%
�,�''"Would you like another game? (Y/N)";
��:G$=�:� �"YyNn",G$)
�� G$<>"Y" � G$<>"y"
��6
��
�:
�� � �:�6
�� �<>17 �:�" at line ";�
��
:
���down 
��1,-15,0,1 
��X%,Y%)MD$;
Y%=Y%+2
�gap(Y%-1)
�
$:
.��bonus
8�19,3,14,0,0,0
B�19,0,13,0,0,0
L�15,1);"BONUS"
V�19,2,11,0,0,0
`��DtD:�
j� I%,J%:�1,-15,I%,J%
tR�56,5,0,1,56,5,0,1,60,2,0,1,60,2,0,1,60,2,0,1,60,2,0,1,68,5,0,1,68,5,0,1,76,12
~� I%=76
�>� A%>0 �:� I%=0�2:� J%=1�A%:�FX%(I%,J%),FY%(I%,J%))�1:�:�
��delay(200)
�A%=A%+1:S%=S%+50*A%
�� A%>10� A%=10
��X%,Y%)�1
��19,2,4,0,0,0:�19,3,5,0,0,0
��15,1);�5;
��19,0,3,0,0,0
��
�:
���bottom
��1,1,92,60
�:�1

�2,5)"YOU FELL THROUGH"
�2,8)"THE BOTTOM FLOOR"
D%=200:�lives
(A%=0
2�
<:
F��F
P� I%=0�2:� J%=1�A%
Z)� X%=FX%(I%,J%)� FY%(I%,J%)=Y%�caught
dU� Z%(I%,J%)<0 �FX%(I%,J%),FY%(I%,J%))FL$(I%); � �FX%(I%,J%),FY%(I%,J%))FR$(I%);
n#FX%(I%,J%)=FX%(I%,J%)+Z%(I%,J%)
xC� FX%(I%,J%)=0 � FX%(I%,J%)=19 � �(20)=1 � Z%(I%,J%)=-Z%(I%,J%)
�Z� FX%(I%,J%)=GP%(FY%(I%,J%)+1)�FX%(I%,J%),FY%(I%,J%))FD$(I%);:FY%(I%,J%)=FY%(I%,J%)+2
�. � X%=FX%(I%,J%) � FY%(I%,J%)=Y% � �caught
�� FY%(I%,J%)=31 � �Fbottom
��:�
��
�:
���caught
�d� I% �1,-15,68,4:�1,-15,80,4:�1,-15,96,4:�1,-15,80,4:S%=S%+5*I%:FY%(I%,J%)=3:�X%,Y%)�226:� T%=1
��
�:
�
��setF
�G� I%=0�2:� J%=1�A%:FY%(I%,J%)=3:FX%(I%,J%)=�(18):Z%(I%,J%)=2*�(2)-3
��:�
�
:

��Fbottom
"-�FX%(I%,J%),FY%(I%,J%))SP$;:FY%(I%,J%)=3
,9� I% � S%=S%-5*I%:�1,-15,32,4:�1,-15,48,8:�1,-15,32,4
6�
@:
J
��fire
T�0,-15,6,15
^�:�1
h�2,5)"YOU GOT CAUGHT"
r�2,8)"BY A FIRE BALL"
|D%=300:�lives
�T%=0:A%=0 
��:
�:
�
��char
�+�1,50,-8,0,0,5,0,0,126,0,0,-126,126,126
�+�2,157,1,0,0,8,0,0,126,0,0,-126,126,126
�+�23,224,255,255,255,254,252,192,192,128
��23,225,255,66,66,0,0,0,0,0
�$�23,226,24,24,60,90,24,60,36,102
�$�23,227,255,255,255,127,63,3,3,1
�(�23,228,40,42,126,255,255,255,126,24
�#�23,229,0,16,84,56,254,56,84,16
�!�23,230,0,8,42,28,127,28,42,8
#�23,240,12,12,60,47,12,14,58,35
&�23,241,48,48,60,244,48,112,92,196
�23,1,0;0;0;0;
&�
0:
:��instruct
D�19,3,3,0,0,0:�19,2,6,0,0,0
N�28,0,2,39,0:�130:�:�26
X(�1:�10,1)"THE FLOWERS OF HELL":�128
b�2:�''"Move the man ";
l�3:�226
vf�2:�" up through the gaps in "'"the floors. But he falls through the "'"gaps too. Catch flowers ";
��F$(2)+�32+F$(1);
��" to score."
��'�11�229" - SCORE 5"
��3:� �11 �229" - SCORES 10"
�/�2:�'"If flowers drop through bottom floor"
��' �11 �229" - LOSES 5"
��3:� �11  �229" - LOSES 10"
��2:�"Avoid fireballs ";
�d�1:� �228;:�2:�" and do not fall"'"through the bottom floor. Reach the"'"top floor for a bonus."
��"To move man use keys:"
��'�7"Z - MOVE LEFT"
��7"X - MOVE RIGHT"
��7", - JUMP UP"
�7"M - QUANTUM JUMP"
�5"F/U - FREEZE/UNFREEZE"
{�'"Use keys together to avoid falling back"'"after jump. Only one quantum jump"'"allowed per man, ";C%;" men per game."
 ( �3:�'�6"PRESS ANY KEY TO CONTINUE";
*G%=�
4�
>:
H��setup
R�23,1,0;0;0;0;
\�19,0,4,0,0,0
f�19,2,2,0,0,0:�19,3,5,0,0,0
pA%=0:QJ%=�:�2
z� Q%=4�30�2
�(�0,Q%)�224+�18,�225)+�227;:�gap(Q%)
��
��
�:
���setup2
�X%=0:Y%=27
�� A%>0 � �setF
��1:� �4,1)"SCORE"
�� C% �0,1)�C%-1,M$);
��X%,Y%)M$
��
�:
�
��strings
	%C$=�17:R$=C$+�1:B$=C$+�2:Y$=C$+�3
	N$=�11:W$=�8:E$=�9:S$=�10
	NNW$=N$+N$+W$:SW$=S$+W$
	$F$=B$+�225:M$=Y$+�226
	.SP$=�32:MU$=SP$+NNW$+M$
	8MD$=SP$+SW$+F$+SW$+M$
	BML$=W$+Y$+�241+SP$
	LMR$=SP$+Y$+�240
	VF$(0)=R$+�228
	`F$(1)=B$+�229
	jF$(2)=Y$+�230
	t� I%=0�2
	~FL$(I%)=W$+F$(I%)+SP$
	�FR$(I%)=SP$+F$(I%)
	�FD$(I%)=SP$+SW$+S$+F$(I%)
	��
	��
	�:
	�
��gap(I%)
	�GP%(I%)=�(18)
	��GP%(I%),I%)SP$;
	��
	�:
	���delay(T%)
	��=0:� � �>=T%
�

:
��lives
(� C%=1 � �1,11)"ONLY ONE LIFE LEFT"
()� C%=2 � �1,11)"ONLY TWO LIVES LEFT"
24� C%=0 � �3,11)"NO LIVES LEFT"�5,14)"GAME OVER"
<�delay(D%)
F�
�
00000000  0d 00 0a 16 20 f4 20 46  4c 4f 57 45 52 53 20 4f  |.... . FLOWERS O|
00000010  46 20 48 45 4c 4c 0d 00  3c 05 3a 0d 00 64 0f 20  |F HELL..<.:..d. |
00000020  ee 20 85 20 e5 20 8d 64  6a 41 0d 00 6e 44 de 47  |. . . .djA..nD.G|
00000030  50 25 28 33 32 29 2c 46  58 25 28 32 2c 31 30 29  |P%(32),FX%(2,10)|
00000040  2c 46 59 25 28 32 2c 31  30 29 2c 5a 25 28 32 2c  |,FY%(2,10),Z%(2,|
00000050  31 30 29 2c 46 24 28 32  29 2c 46 52 24 28 32 29  |10),F$(2),FR$(2)|
00000060  2c 46 4c 24 28 32 29 2c  46 44 24 28 32 29 0d 00  |,FL$(2),FD$(2)..|
00000070  78 12 f2 63 68 61 72 3a  f2 73 74 72 69 6e 67 73  |x..char:.strings|
00000080  0d 00 82 08 48 25 3d 30  0d 00 8c 05 f5 0d 00 96  |....H%=0........|
00000090  1a eb 31 3a 53 25 3d 30  3a 43 25 3d 33 3a f2 69  |..1:S%=0:C%=3:.i|
000000a0  6e 73 74 72 75 63 74 0d  00 a0 06 eb 35 0d 00 aa  |nstruct.....5...|
000000b0  0a f2 73 65 74 75 70 0d  00 b4 0b f2 73 65 74 75  |..setup.....setu|
000000c0  70 32 0d 00 be 05 f5 0d  00 c8 11 f1 8a 31 30 2c  |p2...........10,|
000000d0  31 29 3b 53 25 3b 89 32  0d 00 d2 3b e7 20 a6 2d  |1);S%;.2...;. .-|
000000e0  31 30 33 20 80 20 47 50  25 28 59 25 2d 31 29 3d  |103 . GP%(Y%-1)=|
000000f0  58 25 20 f1 8a 58 25 2c  59 25 29 4d 55 24 3b 3a  |X% ..X%,Y%)MU$;:|
00000100  59 25 3d 59 25 2d 32 3a  d4 31 2c 2d 31 35 2c 39  |Y%=Y%-2:.1,-15,9|
00000110  36 2c 31 0d 00 dc 2e e7  20 a6 2d 31 30 32 20 80  |6,1..... .-102 .|
00000120  20 51 4a 25 20 8c 20 51  4a 25 3d a3 3a f1 8a 58  | QJ% . QJ%=.:..X|
00000130  25 2c 59 25 29 4d 55 24  3b 3a 59 25 3d 59 25 2d  |%,Y%)MU$;:Y%=Y%-|
00000140  32 0d 00 e6 1d e7 20 a6  2d 36 37 2b a6 2d 39 38  |2..... .-67+.-98|
00000150  3d 30 20 f1 8a 58 25 2c  59 25 29 4d 24 3b 0d 00  |=0 ..X%,Y%)M$;..|
00000160  f0 27 e7 20 a6 2d 36 37  20 80 20 58 25 3c 31 39  |.'. .-67 . X%<19|
00000170  20 f1 8a 58 25 2c 59 25  29 4d 52 24 3b 3a 58 25  | ..X%,Y%)MR$;:X%|
00000180  3d 58 25 2b 31 0d 00 fa  28 e7 20 a6 28 2d 39 38  |=X%+1...(. .(-98|
00000190  29 20 80 20 58 25 3e 30  20 f1 8a 58 25 2c 59 25  |) . X%>0 ..X%,Y%|
000001a0  29 4d 4c 24 3b 3a 58 25  3d 58 25 2d 31 0d 01 04  |)ML$;:X%=X%-1...|
000001b0  18 e7 20 47 50 25 28 59  25 2b 31 29 3d 58 25 3a  |.. GP%(Y%+1)=X%:|
000001c0  f2 64 6f 77 6e 0d 01 0e  10 51 25 3d 32 2b 32 2a  |.down....Q%=2+2*|
000001d0  b3 28 31 34 29 0d 01 18  14 f1 8a 47 50 25 28 51  |.(14)......GP%(Q|
000001e0  25 29 2c 51 25 29 46 24  3b 0d 01 22 0c f2 67 61  |%),Q%)F$;.."..ga|
000001f0  70 28 51 25 29 0d 01 2c  0b e7 20 41 25 20 f2 46  |p(Q%)..,.. A% .F|
00000200  0d 01 36 16 e7 20 a6 2d  36 38 20 f5 20 fd 20 a6  |..6.. .-68 . . .|
00000210  2d 35 34 3d 2d 31 0d 01  40 19 fd 20 59 25 3d 33  |-54=-1..@.. Y%=3|
00000220  20 84 20 59 25 3d 33 31  20 84 20 54 25 3d 31 0d  | . Y%=31 . T%=1.|
00000230  01 4a 18 e7 20 59 25 3d  33 20 f2 62 6f 6e 75 73  |.J.. Y%=3 .bonus|
00000240  3a e5 20 8d 74 74 40 0d  01 54 0b 43 25 3d 43 25  |:. .tt@..T.C%=C%|
00000250  2d 31 0d 01 5e 13 e7 20  59 25 3d 33 31 20 f2 62  |-1..^.. Y%=31 .b|
00000260  6f 74 74 6f 6d 0d 01 68  10 e7 20 54 25 3d 31 20  |ottom..h.. T%=1 |
00000270  f2 66 69 72 65 0d 01 72  0f e7 20 43 25 20 8c 20  |.fire..r.. C% . |
00000280  8d 74 60 40 0d 01 7c 07  eb 31 20 0d 01 86 16 f1  |.t`@..|..1 .....|
00000290  8a 31 30 2c 33 29 22 47  41 4d 45 20 4f 56 45 52  |.10,3)"GAME OVER|
000002a0  22 0d 01 90 14 e7 20 48  25 3c 53 25 20 8c 20 48  |"..... H%<S% . H|
000002b0  25 3d 53 25 20 0d 01 9a  17 f1 27 27 22 59 4f 55  |%=S% .....''"YOU|
000002c0  20 53 43 4f 52 45 44 20  22 3b 53 25 0d 01 a4 17  | SCORED ";S%....|
000002d0  f1 27 27 22 48 49 2d 53  43 4f 52 45 20 20 20 22  |.''"HI-SCORE   "|
000002e0  3b 48 25 0d 01 ae 2c f1  27 27 22 57 6f 75 6c 64  |;H%...,.''"Would|
000002f0  20 79 6f 75 20 6c 69 6b  65 20 61 6e 6f 74 68 65  | you like anothe|
00000300  72 20 67 61 6d 65 3f 20  28 59 2f 4e 29 22 3b 0d  |r game? (Y/N)";.|
00000310  01 b8 18 f5 3a 47 24 3d  be 3a fd 20 a7 22 59 79  |....:G$=.:. ."Yy|
00000320  4e 6e 22 2c 47 24 29 0d  01 c2 17 fd 20 47 24 3c  |Nn",G$)..... G$<|
00000330  3e 22 59 22 20 80 20 47  24 3c 3e 22 79 22 0d 01  |>"Y" . G$<>"y"..|
00000340  cc 06 eb 36 0d 01 d6 05  e0 0d 01 e0 05 3a 0d 01  |...6.........:..|
00000350  ea 0c ee 20 85 20 87 3a  eb 36 0d 01 f4 1c e7 20  |... . .:.6..... |
00000360  9f 3c 3e 31 37 20 f6 3a  f1 22 20 61 74 20 6c 69  |.<>17 .:." at li|
00000370  6e 65 20 22 3b 9e 0d 01  fe 05 e0 0d 02 08 05 3a  |ne ";..........:|
00000380  0d 03 e8 0b dd f2 64 6f  77 6e 20 0d 03 f2 0f d4  |......down .....|
00000390  31 2c 2d 31 35 2c 30 2c  31 20 0d 03 fc 10 f1 8a  |1,-15,0,1 ......|
000003a0  58 25 2c 59 25 29 4d 44  24 3b 0d 04 06 0b 59 25  |X%,Y%)MD$;....Y%|
000003b0  3d 59 25 2b 32 0d 04 10  0e f2 67 61 70 28 59 25  |=Y%+2.....gap(Y%|
000003c0  2d 31 29 0d 04 1a 05 e1  0d 04 24 05 3a 0d 04 2e  |-1).......$.:...|
000003d0  0b dd f2 62 6f 6e 75 73  0d 04 38 12 ef 31 39 2c  |...bonus..8..19,|
000003e0  33 2c 31 34 2c 30 2c 30  2c 30 0d 04 42 12 ef 31  |3,14,0,0,0..B..1|
000003f0  39 2c 30 2c 31 33 2c 30  2c 30 2c 30 0d 04 4c 13  |9,0,13,0,0,0..L.|
00000400  f1 8a 31 35 2c 31 29 3b  22 42 4f 4e 55 53 22 0d  |..15,1);"BONUS".|
00000410  04 56 12 ef 31 39 2c 32  2c 31 31 2c 30 2c 30 2c  |.V..19,2,11,0,0,|
00000420  30 0d 04 60 0b f7 8d 44  74 44 3a f5 0d 04 6a 18  |0..`...DtD:...j.|
00000430  f3 20 49 25 2c 4a 25 3a  d4 31 2c 2d 31 35 2c 49  |. I%,J%:.1,-15,I|
00000440  25 2c 4a 25 0d 04 74 52  dc 35 36 2c 35 2c 30 2c  |%,J%..tR.56,5,0,|
00000450  31 2c 35 36 2c 35 2c 30  2c 31 2c 36 30 2c 32 2c  |1,56,5,0,1,60,2,|
00000460  30 2c 31 2c 36 30 2c 32  2c 30 2c 31 2c 36 30 2c  |0,1,60,2,0,1,60,|
00000470  32 2c 30 2c 31 2c 36 30  2c 32 2c 30 2c 31 2c 36  |2,0,1,60,2,0,1,6|
00000480  38 2c 35 2c 30 2c 31 2c  36 38 2c 35 2c 30 2c 31  |8,5,0,1,68,5,0,1|
00000490  2c 37 36 2c 31 32 0d 04  7e 0b fd 20 49 25 3d 37  |,76,12..~.. I%=7|
000004a0  36 0d 04 88 3e e7 20 41  25 3e 30 20 8c 3a e3 20  |6...>. A%>0 .:. |
000004b0  49 25 3d 30 b8 32 3a e3  20 4a 25 3d 31 b8 41 25  |I%=0.2:. J%=1.A%|
000004c0  3a f1 8a 46 58 25 28 49  25 2c 4a 25 29 2c 46 59  |:..FX%(I%,J%),FY|
000004d0  25 28 49 25 2c 4a 25 29  29 89 31 3a ed 3a ed 0d  |%(I%,J%)).1:.:..|
000004e0  04 92 0f f2 64 65 6c 61  79 28 32 30 30 29 0d 04  |....delay(200)..|
000004f0  9c 17 41 25 3d 41 25 2b  31 3a 53 25 3d 53 25 2b  |..A%=A%+1:S%=S%+|
00000500  35 30 2a 41 25 0d 04 a6  12 e7 20 41 25 3e 31 30  |50*A%..... A%>10|
00000510  8c 20 41 25 3d 31 30 0d  04 b0 0e f1 8a 58 25 2c  |. A%=10......X%,|
00000520  59 25 29 89 31 0d 04 ba  1f ef 31 39 2c 32 2c 34  |Y%).1.....19,2,4|
00000530  2c 30 2c 30 2c 30 3a ef  31 39 2c 33 2c 35 2c 30  |,0,0,0:.19,3,5,0|
00000540  2c 30 2c 30 0d 04 c4 0f  f1 8a 31 35 2c 31 29 3b  |,0,0......15,1);|
00000550  89 35 3b 0d 04 ce 11 ef  31 39 2c 30 2c 33 2c 30  |.5;.....19,0,3,0|
00000560  2c 30 2c 30 0d 04 d8 05  e1 0d 04 e2 05 3a 0d 04  |,0,0.........:..|
00000570  ec 0c dd f2 62 6f 74 74  6f 6d 0d 04 f6 0e d4 31  |....bottom.....1|
00000580  2c 31 2c 39 32 2c 36 30  0d 05 00 08 db 3a fb 31  |,1,92,60.....:.1|
00000590  0d 05 0a 1c f1 8a 32 2c  35 29 22 59 4f 55 20 46  |......2,5)"YOU F|
000005a0  45 4c 4c 20 54 48 52 4f  55 47 48 22 0d 05 14 1c  |ELL THROUGH"....|
000005b0  f1 8a 32 2c 38 29 22 54  48 45 20 42 4f 54 54 4f  |..2,8)"THE BOTTO|
000005c0  4d 20 46 4c 4f 4f 52 22  0d 05 1e 11 44 25 3d 32  |M FLOOR"....D%=2|
000005d0  30 30 3a f2 6c 69 76 65  73 0d 05 28 08 41 25 3d  |00:.lives..(.A%=|
000005e0  30 0d 05 32 05 e1 0d 05  3c 05 3a 0d 05 46 07 dd  |0..2....<.:..F..|
000005f0  f2 46 0d 05 50 16 e3 20  49 25 3d 30 b8 32 3a e3  |.F..P.. I%=0.2:.|
00000600  20 4a 25 3d 31 b8 41 25  0d 05 5a 29 e7 20 58 25  | J%=1.A%..Z). X%|
00000610  3d 46 58 25 28 49 25 2c  4a 25 29 80 20 46 59 25  |=FX%(I%,J%). FY%|
00000620  28 49 25 2c 4a 25 29 3d  59 25 f2 63 61 75 67 68  |(I%,J%)=Y%.caugh|
00000630  74 0d 05 64 55 e7 20 5a  25 28 49 25 2c 4a 25 29  |t..dU. Z%(I%,J%)|
00000640  3c 30 20 f1 8a 46 58 25  28 49 25 2c 4a 25 29 2c  |<0 ..FX%(I%,J%),|
00000650  46 59 25 28 49 25 2c 4a  25 29 29 46 4c 24 28 49  |FY%(I%,J%))FL$(I|
00000660  25 29 3b 20 8b 20 f1 8a  46 58 25 28 49 25 2c 4a  |%); . ..FX%(I%,J|
00000670  25 29 2c 46 59 25 28 49  25 2c 4a 25 29 29 46 52  |%),FY%(I%,J%))FR|
00000680  24 28 49 25 29 3b 0d 05  6e 23 46 58 25 28 49 25  |$(I%);..n#FX%(I%|
00000690  2c 4a 25 29 3d 46 58 25  28 49 25 2c 4a 25 29 2b  |,J%)=FX%(I%,J%)+|
000006a0  5a 25 28 49 25 2c 4a 25  29 0d 05 78 43 e7 20 46  |Z%(I%,J%)..xC. F|
000006b0  58 25 28 49 25 2c 4a 25  29 3d 30 20 84 20 46 58  |X%(I%,J%)=0 . FX|
000006c0  25 28 49 25 2c 4a 25 29  3d 31 39 20 84 20 b3 28  |%(I%,J%)=19 . .(|
000006d0  32 30 29 3d 31 20 8c 20  5a 25 28 49 25 2c 4a 25  |20)=1 . Z%(I%,J%|
000006e0  29 3d 2d 5a 25 28 49 25  2c 4a 25 29 0d 05 82 5a  |)=-Z%(I%,J%)...Z|
000006f0  e7 20 46 58 25 28 49 25  2c 4a 25 29 3d 47 50 25  |. FX%(I%,J%)=GP%|
00000700  28 46 59 25 28 49 25 2c  4a 25 29 2b 31 29 f1 8a  |(FY%(I%,J%)+1)..|
00000710  46 58 25 28 49 25 2c 4a  25 29 2c 46 59 25 28 49  |FX%(I%,J%),FY%(I|
00000720  25 2c 4a 25 29 29 46 44  24 28 49 25 29 3b 3a 46  |%,J%))FD$(I%);:F|
00000730  59 25 28 49 25 2c 4a 25  29 3d 46 59 25 28 49 25  |Y%(I%,J%)=FY%(I%|
00000740  2c 4a 25 29 2b 32 0d 05  8c 2e 20 e7 20 58 25 3d  |,J%)+2.... . X%=|
00000750  46 58 25 28 49 25 2c 4a  25 29 20 80 20 46 59 25  |FX%(I%,J%) . FY%|
00000760  28 49 25 2c 4a 25 29 3d  59 25 20 8c 20 f2 63 61  |(I%,J%)=Y% . .ca|
00000770  75 67 68 74 0d 05 96 1e  e7 20 46 59 25 28 49 25  |ught..... FY%(I%|
00000780  2c 4a 25 29 3d 33 31 20  8c 20 f2 46 62 6f 74 74  |,J%)=31 . .Fbott|
00000790  6f 6d 0d 05 a0 07 ed 3a  ed 0d 05 aa 05 e1 0d 05  |om.....:........|
000007a0  b4 05 3a 0d 05 be 0c dd  f2 63 61 75 67 68 74 0d  |..:......caught.|
000007b0  05 c8 64 e7 20 49 25 20  d4 31 2c 2d 31 35 2c 36  |..d. I% .1,-15,6|
000007c0  38 2c 34 3a d4 31 2c 2d  31 35 2c 38 30 2c 34 3a  |8,4:.1,-15,80,4:|
000007d0  d4 31 2c 2d 31 35 2c 39  36 2c 34 3a d4 31 2c 2d  |.1,-15,96,4:.1,-|
000007e0  31 35 2c 38 30 2c 34 3a  53 25 3d 53 25 2b 35 2a  |15,80,4:S%=S%+5*|
000007f0  49 25 3a 46 59 25 28 49  25 2c 4a 25 29 3d 33 3a  |I%:FY%(I%,J%)=3:|
00000800  f1 8a 58 25 2c 59 25 29  bd 32 32 36 3a 8b 20 54  |..X%,Y%).226:. T|
00000810  25 3d 31 0d 05 d2 05 e1  0d 05 dc 05 3a 0d 05 e6  |%=1.........:...|
00000820  0a dd f2 73 65 74 46 0d  05 f0 47 e3 20 49 25 3d  |...setF...G. I%=|
00000830  30 b8 32 3a e3 20 4a 25  3d 31 b8 41 25 3a 46 59  |0.2:. J%=1.A%:FY|
00000840  25 28 49 25 2c 4a 25 29  3d 33 3a 46 58 25 28 49  |%(I%,J%)=3:FX%(I|
00000850  25 2c 4a 25 29 3d b3 28  31 38 29 3a 5a 25 28 49  |%,J%)=.(18):Z%(I|
00000860  25 2c 4a 25 29 3d 32 2a  b3 28 32 29 2d 33 0d 05  |%,J%)=2*.(2)-3..|
00000870  fa 07 ed 3a ed 0d 06 04  05 e1 0d 06 0e 05 3a 0d  |...:..........:.|
00000880  06 18 0d dd f2 46 62 6f  74 74 6f 6d 0d 06 22 2d  |.....Fbottom.."-|
00000890  f1 8a 46 58 25 28 49 25  2c 4a 25 29 2c 46 59 25  |..FX%(I%,J%),FY%|
000008a0  28 49 25 2c 4a 25 29 29  53 50 24 3b 3a 46 59 25  |(I%,J%))SP$;:FY%|
000008b0  28 49 25 2c 4a 25 29 3d  33 0d 06 2c 39 e7 20 49  |(I%,J%)=3..,9. I|
000008c0  25 20 8c 20 53 25 3d 53  25 2d 35 2a 49 25 3a d4  |% . S%=S%-5*I%:.|
000008d0  31 2c 2d 31 35 2c 33 32  2c 34 3a d4 31 2c 2d 31  |1,-15,32,4:.1,-1|
000008e0  35 2c 34 38 2c 38 3a d4  31 2c 2d 31 35 2c 33 32  |5,48,8:.1,-15,32|
000008f0  2c 34 0d 06 36 05 e1 0d  06 40 05 3a 0d 06 4a 0a  |,4..6....@.:..J.|
00000900  dd f2 66 69 72 65 0d 06  54 0f d4 30 2c 2d 31 35  |..fire..T..0,-15|
00000910  2c 36 2c 31 35 0d 06 5e  08 db 3a fb 31 0d 06 68  |,6,15..^..:.1..h|
00000920  1a f1 8a 32 2c 35 29 22  59 4f 55 20 47 4f 54 20  |...2,5)"YOU GOT |
00000930  43 41 55 47 48 54 22 0d  06 72 1a f1 8a 32 2c 38  |CAUGHT"..r...2,8|
00000940  29 22 42 59 20 41 20 46  49 52 45 20 42 41 4c 4c  |)"BY A FIRE BALL|
00000950  22 0d 06 7c 11 44 25 3d  33 30 30 3a f2 6c 69 76  |"..|.D%=300:.liv|
00000960  65 73 0d 06 86 0e 54 25  3d 30 3a 41 25 3d 30 20  |es....T%=0:A%=0 |
00000970  0d 06 90 06 e1 3a 0d 06  9a 05 3a 0d 06 a4 0a dd  |.....:....:.....|
00000980  f2 63 68 61 72 0d 06 ae  2b e2 31 2c 35 30 2c 2d  |.char...+.1,50,-|
00000990  38 2c 30 2c 30 2c 35 2c  30 2c 30 2c 31 32 36 2c  |8,0,0,5,0,0,126,|
000009a0  30 2c 30 2c 2d 31 32 36  2c 31 32 36 2c 31 32 36  |0,0,-126,126,126|
000009b0  0d 06 b8 2b e2 32 2c 31  35 37 2c 31 2c 30 2c 30  |...+.2,157,1,0,0|
000009c0  2c 38 2c 30 2c 30 2c 31  32 36 2c 30 2c 30 2c 2d  |,8,0,0,126,0,0,-|
000009d0  31 32 36 2c 31 32 36 2c  31 32 36 0d 06 c2 2b ef  |126,126,126...+.|
000009e0  32 33 2c 32 32 34 2c 32  35 35 2c 32 35 35 2c 32  |23,224,255,255,2|
000009f0  35 35 2c 32 35 34 2c 32  35 32 2c 31 39 32 2c 31  |55,254,252,192,1|
00000a00  39 32 2c 31 32 38 0d 06  cc 1f ef 32 33 2c 32 32  |92,128.....23,22|
00000a10  35 2c 32 35 35 2c 36 36  2c 36 36 2c 30 2c 30 2c  |5,255,66,66,0,0,|
00000a20  30 2c 30 2c 30 0d 06 d6  24 ef 32 33 2c 32 32 36  |0,0,0...$.23,226|
00000a30  2c 32 34 2c 32 34 2c 36  30 2c 39 30 2c 32 34 2c  |,24,24,60,90,24,|
00000a40  36 30 2c 33 36 2c 31 30  32 0d 06 e0 24 ef 32 33  |60,36,102...$.23|
00000a50  2c 32 32 37 2c 32 35 35  2c 32 35 35 2c 32 35 35  |,227,255,255,255|
00000a60  2c 31 32 37 2c 36 33 2c  33 2c 33 2c 31 0d 06 ea  |,127,63,3,3,1...|
00000a70  28 ef 32 33 2c 32 32 38  2c 34 30 2c 34 32 2c 31  |(.23,228,40,42,1|
00000a80  32 36 2c 32 35 35 2c 32  35 35 2c 32 35 35 2c 31  |26,255,255,255,1|
00000a90  32 36 2c 32 34 0d 06 f4  23 ef 32 33 2c 32 32 39  |26,24...#.23,229|
00000aa0  2c 30 2c 31 36 2c 38 34  2c 35 36 2c 32 35 34 2c  |,0,16,84,56,254,|
00000ab0  35 36 2c 38 34 2c 31 36  0d 06 fe 21 ef 32 33 2c  |56,84,16...!.23,|
00000ac0  32 33 30 2c 30 2c 38 2c  34 32 2c 32 38 2c 31 32  |230,0,8,42,28,12|
00000ad0  37 2c 32 38 2c 34 32 2c  38 0d 07 08 23 ef 32 33  |7,28,42,8...#.23|
00000ae0  2c 32 34 30 2c 31 32 2c  31 32 2c 36 30 2c 34 37  |,240,12,12,60,47|
00000af0  2c 31 32 2c 31 34 2c 35  38 2c 33 35 0d 07 12 26  |,12,14,58,35...&|
00000b00  ef 32 33 2c 32 34 31 2c  34 38 2c 34 38 2c 36 30  |.23,241,48,48,60|
00000b10  2c 32 34 34 2c 34 38 2c  31 31 32 2c 39 32 2c 31  |,244,48,112,92,1|
00000b20  39 36 0d 07 1c 12 ef 32  33 2c 31 2c 30 3b 30 3b  |96.....23,1,0;0;|
00000b30  30 3b 30 3b 0d 07 26 05  e1 0d 07 30 05 3a 0d 07  |0;0;..&....0.:..|
00000b40  3a 0e dd f2 69 6e 73 74  72 75 63 74 0d 07 44 1f  |:...instruct..D.|
00000b50  ef 31 39 2c 33 2c 33 2c  30 2c 30 2c 30 3a ef 31  |.19,3,3,0,0,0:.1|
00000b60  39 2c 32 2c 36 2c 30 2c  30 2c 30 0d 07 4e 1b ef  |9,2,6,0,0,0..N..|
00000b70  32 38 2c 30 2c 32 2c 33  39 2c 30 3a fb 31 33 30  |28,0,2,39,0:.130|
00000b80  3a db 3a ef 32 36 0d 07  58 28 fb 31 3a f1 8a 31  |:.:.26..X(.1:..1|
00000b90  30 2c 31 29 22 54 48 45  20 46 4c 4f 57 45 52 53  |0,1)"THE FLOWERS|
00000ba0  20 4f 46 20 48 45 4c 4c  22 3a fb 31 32 38 0d 07  | OF HELL":.128..|
00000bb0  62 1a fb 32 3a f1 27 27  22 4d 6f 76 65 20 74 68  |b..2:.''"Move th|
00000bc0  65 20 6d 61 6e 20 22 3b  0d 07 6c 0b fb 33 3a ef  |e man ";..l..3:.|
00000bd0  32 32 36 0d 07 76 66 fb  32 3a f1 22 20 75 70 20  |226..vf.2:." up |
00000be0  74 68 72 6f 75 67 68 20  74 68 65 20 67 61 70 73  |through the gaps|
00000bf0  20 69 6e 20 22 27 22 74  68 65 20 66 6c 6f 6f 72  | in "'"the floor|
00000c00  73 2e 20 42 75 74 20 68  65 20 66 61 6c 6c 73 20  |s. But he falls |
00000c10  74 68 72 6f 75 67 68 20  74 68 65 20 22 27 22 67  |through the "'"g|
00000c20  61 70 73 20 74 6f 6f 2e  20 43 61 74 63 68 20 66  |aps too. Catch f|
00000c30  6c 6f 77 65 72 73 20 22  3b 0d 07 80 15 f1 46 24  |lowers ";.....F$|
00000c40  28 32 29 2b bd 33 32 2b  46 24 28 31 29 3b 0d 07  |(2)+.32+F$(1);..|
00000c50  8a 11 f1 22 20 74 6f 20  73 63 6f 72 65 2e 22 0d  |..." to score.".|
00000c60  07 94 19 f1 27 89 31 31  bd 32 32 39 22 20 2d 20  |....'.11.229" - |
00000c70  53 43 4f 52 45 20 35 22  0d 07 9e 1f fb 33 3a f1  |SCORE 5".....3:.|
00000c80  20 89 31 31 20 bd 32 32  39 22 20 2d 20 53 43 4f  | .11 .229" - SCO|
00000c90  52 45 53 20 31 30 22 0d  07 a8 2f fb 32 3a f1 27  |RES 10".../.2:.'|
00000ca0  22 49 66 20 66 6c 6f 77  65 72 73 20 64 72 6f 70  |"If flowers drop|
00000cb0  20 74 68 72 6f 75 67 68  20 62 6f 74 74 6f 6d 20  | through bottom |
00000cc0  66 6c 6f 6f 72 22 0d 07  b2 1b f1 27 20 89 31 31  |floor".....' .11|
00000cd0  20 bd 32 32 39 22 20 2d  20 4c 4f 53 45 53 20 35  | .229" - LOSES 5|
00000ce0  22 0d 07 bc 1f fb 33 3a  f1 20 89 31 31 20 20 bd  |".....3:. .11  .|
00000cf0  32 32 39 22 20 2d 20 4c  4f 53 45 53 20 31 30 22  |229" - LOSES 10"|
00000d00  0d 07 c6 1b fb 32 3a f1  22 41 76 6f 69 64 20 66  |.....2:."Avoid f|
00000d10  69 72 65 62 61 6c 6c 73  20 22 3b 0d 07 d0 64 fb  |ireballs ";...d.|
00000d20  31 3a f1 20 bd 32 32 38  3b 3a fb 32 3a f1 22 20  |1:. .228;:.2:." |
00000d30  61 6e 64 20 64 6f 20 6e  6f 74 20 66 61 6c 6c 22  |and do not fall"|
00000d40  27 22 74 68 72 6f 75 67  68 20 74 68 65 20 62 6f  |'"through the bo|
00000d50  74 74 6f 6d 20 66 6c 6f  6f 72 2e 20 52 65 61 63  |ttom floor. Reac|
00000d60  68 20 74 68 65 22 27 22  74 6f 70 20 66 6c 6f 6f  |h the"'"top floo|
00000d70  72 20 66 6f 72 20 61 20  62 6f 6e 75 73 2e 22 0d  |r for a bonus.".|
00000d80  07 da 1c f1 22 54 6f 20  6d 6f 76 65 20 6d 61 6e  |...."To move man|
00000d90  20 75 73 65 20 6b 65 79  73 3a 22 0d 07 e4 17 f1  | use keys:".....|
00000da0  27 89 37 22 5a 20 2d 20  4d 4f 56 45 20 4c 45 46  |'.7"Z - MOVE LEF|
00000db0  54 22 0d 07 ee 17 f1 89  37 22 58 20 2d 20 4d 4f  |T"......7"X - MO|
00000dc0  56 45 20 52 49 47 48 54  22 0d 07 f8 14 f1 89 37  |VE RIGHT"......7|
00000dd0  22 2c 20 2d 20 4a 55 4d  50 20 55 50 22 0d 08 02  |", - JUMP UP"...|
00000de0  19 f1 89 37 22 4d 20 2d  20 51 55 41 4e 54 55 4d  |...7"M - QUANTUM|
00000df0  20 4a 55 4d 50 22 0d 08  0c 1e f1 89 35 22 46 2f  | JUMP"......5"F/|
00000e00  55 20 2d 20 46 52 45 45  5a 45 2f 55 4e 46 52 45  |U - FREEZE/UNFRE|
00000e10  45 5a 45 22 0d 08 16 7b  f1 27 22 55 73 65 20 6b  |EZE"...{.'"Use k|
00000e20  65 79 73 20 74 6f 67 65  74 68 65 72 20 74 6f 20  |eys together to |
00000e30  61 76 6f 69 64 20 66 61  6c 6c 69 6e 67 20 62 61  |avoid falling ba|
00000e40  63 6b 22 27 22 61 66 74  65 72 20 6a 75 6d 70 2e  |ck"'"after jump.|
00000e50  20 4f 6e 6c 79 20 6f 6e  65 20 71 75 61 6e 74 75  | Only one quantu|
00000e60  6d 20 6a 75 6d 70 22 27  22 61 6c 6c 6f 77 65 64  |m jump"'"allowed|
00000e70  20 70 65 72 20 6d 61 6e  2c 20 22 3b 43 25 3b 22  | per man, ";C%;"|
00000e80  20 6d 65 6e 20 70 65 72  20 67 61 6d 65 2e 22 0d  | men per game.".|
00000e90  08 20 28 20 fb 33 3a f1  27 89 36 22 50 52 45 53  |. ( .3:.'.6"PRES|
00000ea0  53 20 41 4e 59 20 4b 45  59 20 54 4f 20 43 4f 4e  |S ANY KEY TO CON|
00000eb0  54 49 4e 55 45 22 3b 0d  08 2a 08 47 25 3d a5 0d  |TINUE";..*.G%=..|
00000ec0  08 34 05 e1 0d 08 3e 05  3a 0d 08 48 0b dd f2 73  |.4....>.:..H...s|
00000ed0  65 74 75 70 0d 08 52 12  ef 32 33 2c 31 2c 30 3b  |etup..R..23,1,0;|
00000ee0  30 3b 30 3b 30 3b 0d 08  5c 11 ef 31 39 2c 30 2c  |0;0;0;..\..19,0,|
00000ef0  34 2c 30 2c 30 2c 30 0d  08 66 1f ef 31 39 2c 32  |4,0,0,0..f..19,2|
00000f00  2c 32 2c 30 2c 30 2c 30  3a ef 31 39 2c 33 2c 35  |,2,0,0,0:.19,3,5|
00000f10  2c 30 2c 30 2c 30 0d 08  70 11 41 25 3d 30 3a 51  |,0,0,0..p.A%=0:Q|
00000f20  4a 25 3d b9 3a fb 32 0d  08 7a 0f e3 20 51 25 3d  |J%=.:.2..z.. Q%=|
00000f30  34 b8 33 30 88 32 0d 08  84 28 f1 8a 30 2c 51 25  |4.30.2...(..0,Q%|
00000f40  29 bd 32 32 34 2b c4 31  38 2c bd 32 32 35 29 2b  |).224+.18,.225)+|
00000f50  bd 32 32 37 3b 3a f2 67  61 70 28 51 25 29 0d 08  |.227;:.gap(Q%)..|
00000f60  8e 05 ed 0d 08 98 05 e1  0d 08 a2 05 3a 0d 08 ac  |............:...|
00000f70  0c dd f2 73 65 74 75 70  32 0d 08 b6 0e 58 25 3d  |...setup2....X%=|
00000f80  30 3a 59 25 3d 32 37 0d  08 c0 12 e7 20 41 25 3e  |0:Y%=27..... A%>|
00000f90  30 20 8c 20 f2 73 65 74  46 0d 08 ca 15 fb 31 3a  |0 . .setF.....1:|
00000fa0  f1 20 8a 34 2c 31 29 22  53 43 4f 52 45 22 0d 08  |. .4,1)"SCORE"..|
00000fb0  d4 19 e7 20 43 25 20 f1  8a 30 2c 31 29 c4 43 25  |... C% ..0,1).C%|
00000fc0  2d 31 2c 4d 24 29 3b 0d  08 de 0e f1 8a 58 25 2c  |-1,M$);......X%,|
00000fd0  59 25 29 4d 24 0d 08 e8  05 e1 0d 08 f2 05 3a 0d  |Y%)M$.........:.|
00000fe0  08 fc 0d dd f2 73 74 72  69 6e 67 73 0d 09 06 25  |.....strings...%|
00000ff0  43 24 3d bd 31 37 3a 52  24 3d 43 24 2b bd 31 3a  |C$=.17:R$=C$+.1:|
00001000  42 24 3d 43 24 2b bd 32  3a 59 24 3d 43 24 2b bd  |B$=C$+.2:Y$=C$+.|
00001010  33 0d 09 10 1d 4e 24 3d  bd 31 31 3a 57 24 3d bd  |3....N$=.11:W$=.|
00001020  38 3a 45 24 3d bd 39 3a  53 24 3d bd 31 30 0d 09  |8:E$=.9:S$=.10..|
00001030  1a 1b 4e 4e 57 24 3d 4e  24 2b 4e 24 2b 57 24 3a  |..NNW$=N$+N$+W$:|
00001040  53 57 24 3d 53 24 2b 57  24 0d 09 24 19 46 24 3d  |SW$=S$+W$..$.F$=|
00001050  42 24 2b bd 32 32 35 3a  4d 24 3d 59 24 2b bd 32  |B$+.225:M$=Y$+.2|
00001060  32 36 0d 09 2e 1b 53 50  24 3d bd 33 32 3a 4d 55  |26....SP$=.32:MU|
00001070  24 3d 53 50 24 2b 4e 4e  57 24 2b 4d 24 0d 09 38  |$=SP$+NNW$+M$..8|
00001080  19 4d 44 24 3d 53 50 24  2b 53 57 24 2b 46 24 2b  |.MD$=SP$+SW$+F$+|
00001090  53 57 24 2b 4d 24 0d 09  42 16 4d 4c 24 3d 57 24  |SW$+M$..B.ML$=W$|
000010a0  2b 59 24 2b bd 32 34 31  2b 53 50 24 0d 09 4c 13  |+Y$+.241+SP$..L.|
000010b0  4d 52 24 3d 53 50 24 2b  59 24 2b bd 32 34 30 0d  |MR$=SP$+Y$+.240.|
000010c0  09 56 11 46 24 28 30 29  3d 52 24 2b bd 32 32 38  |.V.F$(0)=R$+.228|
000010d0  0d 09 60 11 46 24 28 31  29 3d 42 24 2b bd 32 32  |..`.F$(1)=B$+.22|
000010e0  39 0d 09 6a 11 46 24 28  32 29 3d 59 24 2b bd 32  |9..j.F$(2)=Y$+.2|
000010f0  33 30 0d 09 74 0c e3 20  49 25 3d 30 b8 32 0d 09  |30..t.. I%=0.2..|
00001100  7e 19 46 4c 24 28 49 25  29 3d 57 24 2b 46 24 28  |~.FL$(I%)=W$+F$(|
00001110  49 25 29 2b 53 50 24 0d  09 88 16 46 52 24 28 49  |I%)+SP$....FR$(I|
00001120  25 29 3d 53 50 24 2b 46  24 28 49 25 29 0d 09 92  |%)=SP$+F$(I%)...|
00001130  1d 46 44 24 28 49 25 29  3d 53 50 24 2b 53 57 24  |.FD$(I%)=SP$+SW$|
00001140  2b 53 24 2b 46 24 28 49  25 29 0d 09 9c 05 ed 0d  |+S$+F$(I%)......|
00001150  09 a6 05 e1 0d 09 b0 05  3a 0d 09 ba 0d dd f2 67  |........:......g|
00001160  61 70 28 49 25 29 0d 09  c4 11 47 50 25 28 49 25  |ap(I%)....GP%(I%|
00001170  29 3d b3 28 31 38 29 0d  09 ce 15 f1 8a 47 50 25  |)=.(18)......GP%|
00001180  28 49 25 29 2c 49 25 29  53 50 24 3b 0d 09 d8 05  |(I%),I%)SP$;....|
00001190  e1 0d 09 e2 05 3a 0d 09  ec 0f dd f2 64 65 6c 61  |.....:......dela|
000011a0  79 28 54 25 29 0d 09 f6  11 d1 3d 30 3a f5 20 fd  |y(T%).....=0:. .|
000011b0  20 91 3e 3d 54 25 0d 0a  00 05 e1 0d 0a 0a 05 3a  | .>=T%.........:|
000011c0  0d 0a 14 0b dd f2 6c 69  76 65 73 0d 0a 1e 28 e7  |......lives...(.|
000011d0  20 43 25 3d 31 20 8c 20  f1 8a 31 2c 31 31 29 22  | C%=1 . ..1,11)"|
000011e0  4f 4e 4c 59 20 4f 4e 45  20 4c 49 46 45 20 4c 45  |ONLY ONE LIFE LE|
000011f0  46 54 22 0d 0a 28 29 e7  20 43 25 3d 32 20 8c 20  |FT"..(). C%=2 . |
00001200  f1 8a 31 2c 31 31 29 22  4f 4e 4c 59 20 54 57 4f  |..1,11)"ONLY TWO|
00001210  20 4c 49 56 45 53 20 4c  45 46 54 22 0d 0a 32 34  | LIVES LEFT"..24|
00001220  e7 20 43 25 3d 30 20 8c  20 f1 8a 33 2c 31 31 29  |. C%=0 . ..3,11)|
00001230  22 4e 4f 20 4c 49 56 45  53 20 4c 45 46 54 22 8a  |"NO LIVES LEFT".|
00001240  35 2c 31 34 29 22 47 41  4d 45 20 4f 56 45 52 22  |5,14)"GAME OVER"|
00001250  0d 0a 3c 0e f2 64 65 6c  61 79 28 44 25 29 0d 0a  |..<..delay(D%)..|
00001260  46 05 e1 0d ff                                    |F....|
00001265
GAMES2/HELLFLOWER.m0
GAMES2/HELLFLOWER.m1
GAMES2/HELLFLOWER.m2
GAMES2/HELLFLOWER.m4
GAMES2/HELLFLOWER.m5