05-08-88/GLOOP

Home » CEEFAX disks » telesoftware8.adl » 05-08-88/GLOOP

05-08-88/GLOOP

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 » CEEFAX disks » telesoftware8.adl
Filename:	05-08-88/GLOOP
Read OK:	✔
File size:	1443 bytes
Load address:	FFFF1900
Exec address:	FFFF8023

Duplicates

There are 2 duplicate copies of this file in the archive:

AEW website » mu » mu_5_25_discs_Micro_User_03_09_D-MU03_09.ssd » GLOOPGU
AEW website » mu » mu_Micro_User_03_09_MU3-9_B.uef » GLOOPGULP
CEEFAX disks » telesoftware8.adl » 05-08-88/GLOOP

File contents

   10REM GREEN GLOOP GULPER
   20REM (c) The Micro User
   30MODE7
   40VDU23;8202;0;0;0;
   50DIMS%(19,31)
   60DIMU%100,V%100
   70PROCchar
   80PROCinitializeuser
   90PROCstart
  100MODE2
  110REPEAT
  120PROCscreen
  130REPEAT
  140FORI%=1TO20
  150PROCgloop
  160PROCguzzler
  170NEXT
  180UNTILFNFUEL
  190PROCgame
  200UNTILFALSE
  210END
  220DEFPROCchar
  230VDU23,230,121,253,143,189,189,143,253,121
  240VDU23,231,158,191,241,189,189,241,191,158
  250VDU23,232,255,36,126,219,219,219,195,126
  260VDU23,233,126,195,219,219,219,126,36,255
  270VDU23,236,0,255,129,189,189,129,255,0
  280VDU23,237,126,66,90,90,90,90,66,126
  290VDU23,238,0,127,65,93,93,93,67,126
  300VDU23,239,126,67,93,93,93,65,127,0
  310VDU23,240,0,254,130,186,186,186,194,126
  320VDU23,241,126,194,186,186,186,130,254,0
  330VDU23,242,255,255,255,255,255,255,255,255
  340ENVELOPE1,1,20,-15,-15,5,5,5,100,-3,0,-15,100,0
  350ENVELOPE2,1,20,-20,-20,2,1,1,127,0,0,-15,80,80
  360ENVELOPE3,1,20,-15,-15,6,3,3,127,0,0,-15,126,126
  370ENVELOPE4,1,60,-4,-2,2,25,25,127,-4,-2,-2,126,90
  380C2$=CHR$17+CHR$2
  390C3$=CHR$17+CHR$3
  400C4$=CHR$17+CHR$4
  410CFS$=CHR$17+CHR$11+CHR$17+CHR$131+" FUEL LOW "+CHR$17+CHR$128
  420CFC$=C3$+STRING$(10,CHR$236)
  430G$=C2$+CHR$242
  440GU$=C3$+CHR$230
  450U$=C3$+CHR$32+CHR$11+CHR$8+CHR$232
  460D$=C3$+CHR$32+CHR$10+CHR$8+CHR$233
  470L$=C3$+CHR$32+CHR$8+CHR$8+CHR$231
  480R$=C3$+CHR$32+CHR$230
  490HI%=0:S%=0
  500ENDPROC
  510DEFPROCstart
  520IFS%>HI% HI%=S%
  530S%=0:GU%=3:SC%=0
  540F%=50:G%=100
  550ENDPROC
  560DEFPROCscreen
  570VDU23;8202;0;0;0;
  580VDU29,640;480;
  590VDU19,2,0,0,0,0
  600CLS:COLOUR3
  610FORX%=0TO19:S%(X%,31)=128:S%(X%,2)=128:NEXT
  620FORY%=0TO31:S%(0,Y%)=128:S%(19,Y%)=128:NEXT
  630DD$=CHR$237+CHR$8+CHR$10
  640PRINTTAB(0,31)CHR$239+STRING$(18,CHR$236)+CHR$241;
  650PRINTTAB(0,0)CHR$11+CHR$238+STRING$(18,CHR$236)+CHR$240;
  660PRINTTAB(0,1)STRING$(30,DD$);
  670PRINTTAB(19,1)STRING$(30,DD$);
  680PRINTTAB(0,2)CHR$238+STRING$(18,CHR$236)+CHR$240;
  690FORX%=7TO12:FORY%=11TO22:PRINTTAB(X%,Y%)G$:S%(X%,Y%)=129:NEXT:NEXT
  700COLOUR4:RESTORE
  710REPEAT
  720READX%:IFX%>20 N%=X%:GOTO770
  730IFN%=238:B%=240:C%=241:D%=239 ELSEB%=N%:C%=N%:D%=N%
  740READY%
  750PRINTTAB(X%,Y%)CHR$N% TAB(19-X%,Y%)CHR$B% TAB(19-X%,33-Y%)CHR$C% TAB(X%,33-Y%)CHR$D%
  760S%(X%,Y%)=128:S%(19-X%,Y%)=128:S%(19-X%,33-Y%)=128:S%(X%,33-Y%)=128
  770UNTILN%=255
  780N%=0
  790FORI%=1TO8:READX%,Y%:PROCnew(X%,Y%):NEXT
  800VDU19,2,2,0,0,0
  810X%=10:Y%=3:C%=TRUE
  820PRINTTAB(X%,Y%)GU$
  830PRINTTAB(1,1)"FUEL ";F%TAB(10,1)"SC ";S%
  840ENDPROC
  850DATA236
  860DATA2,4,3,4,4,4,5,4,6,4,7,4,8
  870DATA4,9,4,3,6,4,6,5,6,7,6,8,6
  880DATA9,6,8,14,9,14,10,16,5,8,6
  890DATA8,7,8,9,8,8,10,9,10,9,12,8,12
  900DATA237
  910DATA2,7,2,8,2,9,2,10,2,12,2,14
  920DATA2,16,4,9,4,10,4,11,4,13,4
  930DATA14,4,15,4,16,6,11,6,12,6,13
  940DATA6,15,6,16
  950DATA238
  960DATA8,16,2,6,4,8,6,10
  970DATA255
  980DATA7,10,12,10,7,23,12,23
  990DATA6,14,6,19,13,14,13,19
 1000DEFPROCguzzler
 1010S%(X%,Y%)=0
 1020IFINKEY-58 IFS%(X%,Y%-1)<>128 PRINTTAB(X%,Y%)U$:Y%=Y%-1:SOUND2,2,50,1:GOTO1060
 1030IFINKEY-42 IFS%(X%,Y%+1)<>128 PRINTTAB(X%,Y%)D$:Y%=Y%+1:SOUND2,2,50,1:GOTO1060
 1040IFINKEY-26 IFS%(X%-1,Y%)<>128 PRINTTAB(X%,Y%)L$:X%=X%-1:SOUND2,2,100,1:GOTO1060
 1050IFINKEY-122 IFS%(X%+1,Y%)<>128 PRINTTAB(X%,Y%)R$:X%=X%+1:SOUND2,2,100,1:GOTO1060
 1060IFS%(X%,Y%)=129 PROCgap ELSEIF(S%(X%,Y%)<128ANDS%(X%,Y%)>0) PROCrgm(S%(X%,Y%)) ELSEPROCd(0)
 1070S%(X%,Y%)=131:ENDPROC
 1080DEFFNFUEL
 1090F%=F%-1:PRINTTAB(6,1)C3$;F%CHR$32
 1100IFN%=0 =TRUE ELSEIFF%>25 =FALSE ELSEIFF%=25 SOUND3,3,50,15:PRINTTAB(5,31)CFS$; TAB(5,2)CFS$; ELSEIFF%=0 =TRUE
 1110=FALSE
 1120DEFPROCd(T%):T%=TIME+T%:REPEATUNTILTIME>T%:ENDPROC
 1130DEFPROCgloop
 1140IFRND(1500)>G% ENDPROC ELSEIFN%>1 M%=RND(N%)ELSEIFN%=1 M%=1 ELSE ENDPROC
 1150SOUND1,1,50,3
 1160PROCnew(U%?M%-1,V%?M%)
 1170PROCnew(U%?M%+1,V%?M%)
 1180PROCnew(U%?M%,V%?M%+1)
 1190PROCnew(U%?M%,V%?M%-1)
 1200IFC%PROCrem(M%)ELSEC%=TRUE
 1210ENDPROC
 1220DEFPROCnew(A%,B%)
 1230K%=S%(A%,B%)
 1240IFK%=0 ELSEIFK%<130 ENDPROC ELSEIFK%=131 C%=FALSE:ENDPROC
 1250PRINTTAB(A%,B%)G$
 1260N%=N%+1:U%?N%=A%:V%?N%=B%
 1270S%(A%,B%)=N%
 1280ENDPROC
 1290DEFPROCrem(M%)
 1300S%(U%?M%,V%?M%)=129
 1310IFM%=N% N%=N%-1:ENDPROC
 1320U%?M%=U%?N%:V%?M%=V%?N%
 1330S%(U%?N%,V%?N%)=M%
 1340N%=N%-1
 1350ENDPROC
 1360DEFPROCrgm(M%)
 1370U%?M%=U%?N%:V%?M%=V%?N%
 1380S%(U%?N%,V%?N%)=M%
 1390N%=N%-1
 1400DEFPROCgap
 1410S%=S%+5
 1420SOUND3,4,50,2
 1430PRINTTAB(13,1)C3$;S%
 1440PROCngw(X%-1,Y%)
 1450PROCngw(X%+1,Y%)
 1460PROCngw(X%,Y%+1)
 1470PROCngw(X%,Y%-1)
 1480ENDPROC
 1490DEFPROCngw(A%,B%)
 1500IFS%(A%,B%)<>129 ENDPROC
 1510N%=N%+1:U%?N%=A%:V%?N%=B%
 1520S%(A%,B%)=N%
 1530ENDPROC
 1540DEFPROCgame
 1550IFF%=0 PROCgloopwin ELSE PROCguzzlerwin
 1560COLOUR132:CLS:COLOUR3
 1570PRINT'''TAB(5)"SCORE CARD"
 1580PRINTTAB(4)"============"
 1590PRINT'''TAB(1)"CITIES SAVED ";SC%
 1600PRINT''TAB(1)"YOUR SCORE   ";S%
 1610PRINT''TAB(1)"HIGH SCORE   ";HI%
 1620IFGU%<>0 PRINT'''TAB(1)"GUZZLERS  "STRING$(GU%,GU$+CHR$32)
 1630IF GU%=0 PRINT''''TAB(5)"GAME OVER":IF S%>HI% PRINT'TAB(4)"YOU GOT THE"''TAB(4)"HIGH SCORE!"
 1640IF SC%<100 G%=100+14*SC%:F%=50+5*SC% ELSE G%=1500:F%=550
 1650IFGU%=0 PROCstart
 1660FORX%=0TO19:FORY%=0TO31
 1670S%(X%,Y%)=0:NEXT:NEXT
 1680PRINTTAB(1,29)"RETURN TO CONTINUE"
 1690COLOUR128
 1700REPEATUNTILINKEY-74
 1710ENDPROC
 1720DEFPROCgloopwin
 1730PRINTTAB(5,31)CFC$; TAB(5,2)CFC$;
 1740GCOL0,2
 1750GU%=GU%-1
 1760FORX%=0TO580 STEP4
 1770Y%=X%:IFY%>450 Y%=450
 1780SOUND1,-15,(Y%+X%)DIV5,1
 1790SOUND2,-15,(Y%+X%)DIV6,1
 1800SOUND3,-15,(Y%+X%)DIV7,1
 1810MOVEX%,Y%:DRAW-X%,Y%:DRAW-X%,-Y%:DRAWX%,-Y%:DRAWX%,Y%:NEXT
 1820COLOUR0:COLOUR130:PRINTTAB(3,6)"THE GLOOP WINS"TAB(5,10)"YOU RAN OUT"TAB(7,12)"OF FUEL"
 1830PROCd(50):FORI%=200TO40 STEP-5:SOUND1,-15,I%,2:SOUND2,-15,I%+5,2:NEXT
 1840COLOUR128
 1850ENDPROC
 1860DEFPROCguzzlerwin
 1870S%=S%+100+SC%*10:SC%=SC%+1
 1880COLOUR3:PRINTTAB(2,6)"CONGRATULATIONS!" TAB(3,8)"YOU  SAVED THE" TAB(8,10)"CITY"
 1890FORI%=20TO63 STEP2:SOUND1,-15,I%,2:SOUND2,-15,I%*2,2:SOUND3,-15,I%*4,2:NEXT
 1900PROCd(100)
 1910ENDPROC
 1920DEFPROCinitializeuser
 1930T$=STRING$(40,CHR$0)
 1940T$=CHR$132+CHR$157+CHR$141+CHR$131+"THE SUPER GREEN GLOOP GULPER GAME"
 1950PRINTT$'T$'
 1960T$=CHR$146+STRING$(39,CHR$243)
 1970PRINTT$'
 1980T$=CHR$32+CHR$130
 1990PRINTT$"THE CITY IS BEING INVADED BY THE"'T$"DREADED CREEPING MUTANT GREEN GLOOP."
 2000PRINTT$"IT'S UP TO YOU TO SAVE IT BY GULPING"'T$"THE GLOOP WITH YOUR TRUSTY GLOOP"'T$"GUZZLER BEFORE THE GLOOP GULPS YOU !"''
 2010PRINTT$"YOU USE THE CURSOR KEYS TO STEER"'T$"YOUR GUZZLER. POINTS ARE AWARDED FOR"'T$"GLOOP GULPED AND CITIES CLEARED."
 2020PRINTT$"GLOOP GUZZLING USES ENERGY SO YOU"'T$"MUST COMPLETE YOUR MISSION BEFORE"'T$"YOUR FUEL RUNS OUT."
 2030T$=CHR$146+STRING$(39,CHR$243)
 2040PRINT''T$;
 2050PRINT'TAB(20)CHR$130"RETURN TO START ";
 2060REPEATUNTILINKEY(10)=TRUE
 2070REPEATUNTILGET=13
 2080ENDPROC


� GREEN GLOOP GULPER
� (c) The Micro User
�7
(�23;8202;0;0;0;
2�S%(19,31)
<�U%100,V%100
F	�char
P�initializeuser
Z
�start
d�2
n�
x�screen
��
��I%=1�20
�
�gloop
��guzzler
��
�
��FUEL
�	�game
���
��
�
��char
�+�23,230,121,253,143,189,189,143,253,121
�+�23,231,158,191,241,189,189,241,191,158
�*�23,232,255,36,126,219,219,219,195,126
*�23,233,126,195,219,219,219,126,36,255
'�23,236,0,255,129,189,189,129,255,0
%�23,237,126,66,90,90,90,90,66,126
"$�23,238,0,127,65,93,93,93,67,126
,$�23,239,126,67,93,93,93,65,127,0
6)�23,240,0,254,130,186,186,186,194,126
@)�23,241,126,194,186,186,186,130,254,0
J+�23,242,255,255,255,255,255,255,255,255
T,�1,1,20,-15,-15,5,5,5,100,-3,0,-15,100,0
^+�2,1,20,-20,-20,2,1,1,127,0,0,-15,80,80
h-�3,1,20,-15,-15,6,3,3,127,0,0,-15,126,126
r-�4,1,60,-4,-2,2,25,25,127,-4,-2,-2,126,90
|C2$=�17+�2
�C3$=�17+�3
�C4$=�17+�4
�/CFS$=�17+�11+�17+�131+" FUEL LOW "+�17+�128
�CFC$=C3$+�10,�236)
�G$=C2$+�242
�GU$=C3$+�230
�U$=C3$+�32+�11+�8+�232
�D$=C3$+�32+�10+�8+�233
�L$=C3$+�32+�8+�8+�231
�R$=C3$+�32+�230
�HI%=0:S%=0
��
���start
�S%>HI% HI%=S%
S%=0:GU%=3:SC%=0
F%=50:G%=100
&�
0��screen
:�23;8202;0;0;0;
D�29,640;480;
N�19,2,0,0,0,0
X�:�3
b)�X%=0�19:S%(X%,31)=128:S%(X%,2)=128:�
l)�Y%=0�31:S%(0,Y%)=128:S%(19,Y%)=128:�
vDD$=�237+�8+�10
��0,31)�239+�18,�236)+�241;
�"�0,0)�11+�238+�18,�236)+�240;
��0,1)�30,DD$);
��19,1)�30,DD$);
��0,2)�238+�18,�236)+�240;
�3�X%=7�12:�Y%=11�22:�X%,Y%)G$:S%(X%,Y%)=129:�:�
��4:�
��
��X%:�X%>20 N%=X%:�TBC
�3�N%=238:B%=240:C%=241:D%=239 �B%=N%:C%=N%:D%=N%
��Y%
�<�X%,Y%)�N% �19-X%,Y%)�B% �19-X%,33-Y%)�C% �X%,33-Y%)�D%
�GS%(X%,Y%)=128:S%(19-X%,Y%)=128:S%(19-X%,33-Y%)=128:S%(X%,33-Y%)=128
�N%=255
N%=0
 �I%=1�8:�X%,Y%:�new(X%,Y%):�
 �19,2,2,0,0,0
*X%=10:Y%=3:C%=�
4�X%,Y%)GU$
>"�1,1)"FUEL ";F%�10,1)"SC ";S%
H�
R�236
\�2,4,3,4,4,4,5,4,6,4,7,4,8
f�4,9,4,3,6,4,6,5,6,7,6,8,6
p�9,6,8,14,9,14,10,16,5,8,6
z"�8,7,8,9,8,8,10,9,10,9,12,8,12
��237
��2,7,2,8,2,9,2,10,2,12,2,14
��2,16,4,9,4,10,4,11,4,13,4
� �14,4,15,4,16,6,11,6,12,6,13
��6,15,6,16
��238
��8,16,2,6,4,8,6,10
��255
��7,10,12,10,7,23,12,23
��6,14,6,19,13,14,13,19
�
��guzzler
�S%(X%,Y%)=0
�>�-58 �S%(X%,Y%-1)<>128 �X%,Y%)U$:Y%=Y%-1:�2,2,50,1:�TdD
>�-42 �S%(X%,Y%+1)<>128 �X%,Y%)D$:Y%=Y%+1:�2,2,50,1:�TdD
?�-26 �S%(X%-1,Y%)<>128 �X%,Y%)L$:X%=X%-1:�2,2,100,1:�TdD
@�-122 �S%(X%+1,Y%)<>128 �X%,Y%)R$:X%=X%+1:�2,2,100,1:�TdD
$L�S%(X%,Y%)=129 �gap ��(S%(X%,Y%)<128�S%(X%,Y%)>0) �rgm(S%(X%,Y%)) ��d(0)
.S%(X%,Y%)=131:�
8
ݤFUEL
BF%=F%-1:�6,1)C3$;F%�32
LL�N%=0 =� ��F%>25 =� ��F%=25 �3,3,50,15:�5,31)CFS$; �5,2)CFS$; ��F%=0 =�
V=�
`��d(T%):T%=�+T%:���>T%:�
j��gloop
t0�(1500)>G% � ��N%>1 M%=�(N%)��N%=1 M%=1 � �
~
�1,1,50,3
��new(U%?M%-1,V%?M%)
��new(U%?M%+1,V%?M%)
��new(U%?M%,V%?M%+1)
��new(U%?M%,V%?M%-1)
��C%�rem(M%)�C%=�
��
���new(A%,B%)
�K%=S%(A%,B%)
�$�K%=0 ��K%<130 � ��K%=131 C%=�:�
��A%,B%)G$
�N%=N%+1:U%?N%=A%:V%?N%=B%
�S%(A%,B%)=N%
�


��rem(M%)
S%(U%?M%,V%?M%)=129
�M%=N% N%=N%-1:�
(U%?M%=U%?N%:V%?M%=V%?N%
2S%(U%?N%,V%?N%)=M%
<N%=N%-1
F�
P
��rgm(M%)
ZU%?M%=U%?N%:V%?M%=V%?N%
dS%(U%?N%,V%?N%)=M%
nN%=N%-1
x	��gap
�S%=S%+5
�
�3,4,50,2
��13,1)C3$;S%
��ngw(X%-1,Y%)
��ngw(X%+1,Y%)
��ngw(X%,Y%+1)
��ngw(X%,Y%-1)
��
���ngw(A%,B%)
��S%(A%,B%)<>129 �
�N%=N%+1:U%?N%=A%:V%?N%=B%
�S%(A%,B%)=N%
��

��game
!�F%=0 �gloopwin � �guzzlerwin

�132:�:�3
"�'''�5)"SCORE CARD"
,�4)"============"
6�'''�1)"CITIES SAVED ";SC%
@�''�1)"YOUR SCORE   ";S%
J�''�1)"HIGH SCORE   ";HI%
T,�GU%<>0 �'''�1)"GUZZLERS  "�GU%,GU$+�32)
^M� GU%=0 �''''�5)"GAME OVER":� S%>HI% �'�4)"YOU GOT THE"''�4)"HIGH SCORE!"
h8� SC%<100 G%=100+14*SC%:F%=50+5*SC% � G%=1500:F%=550
r�GU%=0 �start
|�X%=0�19:�Y%=0�31
�S%(X%,Y%)=0:�:�
��1,29)"RETURN TO CONTINUE"
��128
�
���-74
��
���gloopwin
��5,31)CFC$; �5,2)CFC$;
��0,2
�
GU%=GU%-1
��X%=0�580 �4
�Y%=X%:�Y%>450 Y%=450
��1,-15,(Y%+X%)�5,1
��2,-15,(Y%+X%)�6,1
�3,-15,(Y%+X%)�7,1
,�X%,Y%:�-X%,Y%:�-X%,-Y%:�X%,-Y%:�X%,Y%:�
D�0:�130:�3,6)"THE GLOOP WINS"�5,10)"YOU RAN OUT"�7,12)"OF FUEL"
&5�d(50):�I%=200�40 �-5:�1,-15,I%,2:�2,-15,I%+5,2:�
0�128
:�
D��guzzlerwin
NS%=S%+100+SC%*10:SC%=SC%+1
XB�3:�2,6)"CONGRATULATIONS!" �3,8)"YOU  SAVED THE" �8,10)"CITY"
b:�I%=20�63 �2:�1,-15,I%,2:�2,-15,I%*2,2:�3,-15,I%*4,2:�
l�d(100)
v�
���initializeuser
�T$=�40,�0)
�>T$=�132+�157+�141+�131+"THE SUPER GREEN GLOOP GULPER GAME"
��T$'T$'
�T$=�146+�39,�243)
��T$'
�T$=�32+�130
�R�T$"THE CITY IS BEING INVADED BY THE"'T$"DREADED CREEPING MUTANT GREEN GLOOP."
�}�T$"IT'S UP TO YOU TO SAVE IT BY GULPING"'T$"THE GLOOP WITH YOUR TRUSTY GLOOP"'T$"GUZZLER BEFORE THE GLOOP GULPS YOU !"''
�w�T$"YOU USE THE CURSOR KEYS TO STEER"'T$"YOUR GUZZLER. POINTS ARE AWARDED FOR"'T$"GLOOP GULPED AND CITIES CLEARED."
�h�T$"GLOOP GUZZLING USES ENERGY SO YOU"'T$"MUST COMPLETE YOUR MISSION BEFORE"'T$"YOUR FUEL RUNS OUT."
�T$=�146+�39,�243)
�
�''T$;
!�'�20)�130"RETURN TO START ";

���(10)=�

���=13
 �
�

00000000  0d 00 0a 18 f4 20 47 52  45 45 4e 20 47 4c 4f 4f  |..... GREEN GLOO|
00000010  50 20 47 55 4c 50 45 52  0d 00 14 18 f4 20 28 63  |P GULPER..... (c|
00000020  29 20 54 68 65 20 4d 69  63 72 6f 20 55 73 65 72  |) The Micro User|
00000030  0d 00 1e 06 eb 37 0d 00  28 13 ef 32 33 3b 38 32  |.....7..(..23;82|
00000040  30 32 3b 30 3b 30 3b 30  3b 0d 00 32 0e de 53 25  |02;0;0;0;..2..S%|
00000050  28 31 39 2c 33 31 29 0d  00 3c 10 de 55 25 31 30  |(19,31)..<..U%10|
00000060  30 2c 56 25 31 30 30 0d  00 46 09 f2 63 68 61 72  |0,V%100..F..char|
00000070  0d 00 50 13 f2 69 6e 69  74 69 61 6c 69 7a 65 75  |..P..initializeu|
00000080  73 65 72 0d 00 5a 0a f2  73 74 61 72 74 0d 00 64  |ser..Z..start..d|
00000090  06 eb 32 0d 00 6e 05 f5  0d 00 78 0b f2 73 63 72  |..2..n....x..scr|
000000a0  65 65 6e 0d 00 82 05 f5  0d 00 8c 0c e3 49 25 3d  |een..........I%=|
000000b0  31 b8 32 30 0d 00 96 0a  f2 67 6c 6f 6f 70 0d 00  |1.20.....gloop..|
000000c0  a0 0c f2 67 75 7a 7a 6c  65 72 0d 00 aa 05 ed 0d  |...guzzler......|
000000d0  00 b4 0a fd a4 46 55 45  4c 0d 00 be 09 f2 67 61  |.....FUEL.....ga|
000000e0  6d 65 0d 00 c8 06 fd a3  0d 00 d2 05 e0 0d 00 dc  |me..............|
000000f0  0a dd f2 63 68 61 72 0d  00 e6 2b ef 32 33 2c 32  |...char...+.23,2|
00000100  33 30 2c 31 32 31 2c 32  35 33 2c 31 34 33 2c 31  |30,121,253,143,1|
00000110  38 39 2c 31 38 39 2c 31  34 33 2c 32 35 33 2c 31  |89,189,143,253,1|
00000120  32 31 0d 00 f0 2b ef 32  33 2c 32 33 31 2c 31 35  |21...+.23,231,15|
00000130  38 2c 31 39 31 2c 32 34  31 2c 31 38 39 2c 31 38  |8,191,241,189,18|
00000140  39 2c 32 34 31 2c 31 39  31 2c 31 35 38 0d 00 fa  |9,241,191,158...|
00000150  2a ef 32 33 2c 32 33 32  2c 32 35 35 2c 33 36 2c  |*.23,232,255,36,|
00000160  31 32 36 2c 32 31 39 2c  32 31 39 2c 32 31 39 2c  |126,219,219,219,|
00000170  31 39 35 2c 31 32 36 0d  01 04 2a ef 32 33 2c 32  |195,126...*.23,2|
00000180  33 33 2c 31 32 36 2c 31  39 35 2c 32 31 39 2c 32  |33,126,195,219,2|
00000190  31 39 2c 32 31 39 2c 31  32 36 2c 33 36 2c 32 35  |19,219,126,36,25|
000001a0  35 0d 01 0e 27 ef 32 33  2c 32 33 36 2c 30 2c 32  |5...'.23,236,0,2|
000001b0  35 35 2c 31 32 39 2c 31  38 39 2c 31 38 39 2c 31  |55,129,189,189,1|
000001c0  32 39 2c 32 35 35 2c 30  0d 01 18 25 ef 32 33 2c  |29,255,0...%.23,|
000001d0  32 33 37 2c 31 32 36 2c  36 36 2c 39 30 2c 39 30  |237,126,66,90,90|
000001e0  2c 39 30 2c 39 30 2c 36  36 2c 31 32 36 0d 01 22  |,90,90,66,126.."|
000001f0  24 ef 32 33 2c 32 33 38  2c 30 2c 31 32 37 2c 36  |$.23,238,0,127,6|
00000200  35 2c 39 33 2c 39 33 2c  39 33 2c 36 37 2c 31 32  |5,93,93,93,67,12|
00000210  36 0d 01 2c 24 ef 32 33  2c 32 33 39 2c 31 32 36  |6..,$.23,239,126|
00000220  2c 36 37 2c 39 33 2c 39  33 2c 39 33 2c 36 35 2c  |,67,93,93,93,65,|
00000230  31 32 37 2c 30 0d 01 36  29 ef 32 33 2c 32 34 30  |127,0..6).23,240|
00000240  2c 30 2c 32 35 34 2c 31  33 30 2c 31 38 36 2c 31  |,0,254,130,186,1|
00000250  38 36 2c 31 38 36 2c 31  39 34 2c 31 32 36 0d 01  |86,186,194,126..|
00000260  40 29 ef 32 33 2c 32 34  31 2c 31 32 36 2c 31 39  |@).23,241,126,19|
00000270  34 2c 31 38 36 2c 31 38  36 2c 31 38 36 2c 31 33  |4,186,186,186,13|
00000280  30 2c 32 35 34 2c 30 0d  01 4a 2b ef 32 33 2c 32  |0,254,0..J+.23,2|
00000290  34 32 2c 32 35 35 2c 32  35 35 2c 32 35 35 2c 32  |42,255,255,255,2|
000002a0  35 35 2c 32 35 35 2c 32  35 35 2c 32 35 35 2c 32  |55,255,255,255,2|
000002b0  35 35 0d 01 54 2c e2 31  2c 31 2c 32 30 2c 2d 31  |55..T,.1,1,20,-1|
000002c0  35 2c 2d 31 35 2c 35 2c  35 2c 35 2c 31 30 30 2c  |5,-15,5,5,5,100,|
000002d0  2d 33 2c 30 2c 2d 31 35  2c 31 30 30 2c 30 0d 01  |-3,0,-15,100,0..|
000002e0  5e 2b e2 32 2c 31 2c 32  30 2c 2d 32 30 2c 2d 32  |^+.2,1,20,-20,-2|
000002f0  30 2c 32 2c 31 2c 31 2c  31 32 37 2c 30 2c 30 2c  |0,2,1,1,127,0,0,|
00000300  2d 31 35 2c 38 30 2c 38  30 0d 01 68 2d e2 33 2c  |-15,80,80..h-.3,|
00000310  31 2c 32 30 2c 2d 31 35  2c 2d 31 35 2c 36 2c 33  |1,20,-15,-15,6,3|
00000320  2c 33 2c 31 32 37 2c 30  2c 30 2c 2d 31 35 2c 31  |,3,127,0,0,-15,1|
00000330  32 36 2c 31 32 36 0d 01  72 2d e2 34 2c 31 2c 36  |26,126..r-.4,1,6|
00000340  30 2c 2d 34 2c 2d 32 2c  32 2c 32 35 2c 32 35 2c  |0,-4,-2,2,25,25,|
00000350  31 32 37 2c 2d 34 2c 2d  32 2c 2d 32 2c 31 32 36  |127,-4,-2,-2,126|
00000360  2c 39 30 0d 01 7c 0e 43  32 24 3d bd 31 37 2b bd  |,90..|.C2$=.17+.|
00000370  32 0d 01 86 0e 43 33 24  3d bd 31 37 2b bd 33 0d  |2....C3$=.17+.3.|
00000380  01 90 0e 43 34 24 3d bd  31 37 2b bd 34 0d 01 9a  |...C4$=.17+.4...|
00000390  2f 43 46 53 24 3d bd 31  37 2b bd 31 31 2b bd 31  |/CFS$=.17+.11+.1|
000003a0  37 2b bd 31 33 31 2b 22  20 46 55 45 4c 20 4c 4f  |7+.131+" FUEL LO|
000003b0  57 20 22 2b bd 31 37 2b  bd 31 32 38 0d 01 a4 16  |W "+.17+.128....|
000003c0  43 46 43 24 3d 43 33 24  2b c4 31 30 2c bd 32 33  |CFC$=C3$+.10,.23|
000003d0  36 29 0d 01 ae 0f 47 24  3d 43 32 24 2b bd 32 34  |6)....G$=C2$+.24|
000003e0  32 0d 01 b8 10 47 55 24  3d 43 33 24 2b bd 32 33  |2....GU$=C3$+.23|
000003f0  30 0d 01 c2 1a 55 24 3d  43 33 24 2b bd 33 32 2b  |0....U$=C3$+.32+|
00000400  bd 31 31 2b bd 38 2b bd  32 33 32 0d 01 cc 1a 44  |.11+.8+.232....D|
00000410  24 3d 43 33 24 2b bd 33  32 2b bd 31 30 2b bd 38  |$=C3$+.32+.10+.8|
00000420  2b bd 32 33 33 0d 01 d6  19 4c 24 3d 43 33 24 2b  |+.233....L$=C3$+|
00000430  bd 33 32 2b bd 38 2b bd  38 2b bd 32 33 31 0d 01  |.32+.8+.8+.231..|
00000440  e0 13 52 24 3d 43 33 24  2b bd 33 32 2b bd 32 33  |..R$=C3$+.32+.23|
00000450  30 0d 01 ea 0e 48 49 25  3d 30 3a 53 25 3d 30 0d  |0....HI%=0:S%=0.|
00000460  01 f4 05 e1 0d 01 fe 0b  dd f2 73 74 61 72 74 0d  |..........start.|
00000470  02 08 12 e7 53 25 3e 48  49 25 20 48 49 25 3d 53  |....S%>HI% HI%=S|
00000480  25 0d 02 12 14 53 25 3d  30 3a 47 55 25 3d 33 3a  |%....S%=0:GU%=3:|
00000490  53 43 25 3d 30 0d 02 1c  10 46 25 3d 35 30 3a 47  |SC%=0....F%=50:G|
000004a0  25 3d 31 30 30 0d 02 26  05 e1 0d 02 30 0c dd f2  |%=100..&....0...|
000004b0  73 63 72 65 65 6e 0d 02  3a 13 ef 32 33 3b 38 32  |screen..:..23;82|
000004c0  30 32 3b 30 3b 30 3b 30  3b 0d 02 44 10 ef 32 39  |02;0;0;0;..D..29|
000004d0  2c 36 34 30 3b 34 38 30  3b 0d 02 4e 11 ef 31 39  |,640;480;..N..19|
000004e0  2c 32 2c 30 2c 30 2c 30  2c 30 0d 02 58 08 db 3a  |,2,0,0,0,0..X..:|
000004f0  fb 33 0d 02 62 29 e3 58  25 3d 30 b8 31 39 3a 53  |.3..b).X%=0.19:S|
00000500  25 28 58 25 2c 33 31 29  3d 31 32 38 3a 53 25 28  |%(X%,31)=128:S%(|
00000510  58 25 2c 32 29 3d 31 32  38 3a ed 0d 02 6c 29 e3  |X%,2)=128:...l).|
00000520  59 25 3d 30 b8 33 31 3a  53 25 28 30 2c 59 25 29  |Y%=0.31:S%(0,Y%)|
00000530  3d 31 32 38 3a 53 25 28  31 39 2c 59 25 29 3d 31  |=128:S%(19,Y%)=1|
00000540  32 38 3a ed 0d 02 76 13  44 44 24 3d bd 32 33 37  |28:...v.DD$=.237|
00000550  2b bd 38 2b bd 31 30 0d  02 80 1f f1 8a 30 2c 33  |+.8+.10......0,3|
00000560  31 29 bd 32 33 39 2b c4  31 38 2c bd 32 33 36 29  |1).239+.18,.236)|
00000570  2b bd 32 34 31 3b 0d 02  8a 22 f1 8a 30 2c 30 29  |+.241;..."..0,0)|
00000580  bd 31 31 2b bd 32 33 38  2b c4 31 38 2c bd 32 33  |.11+.238+.18,.23|
00000590  36 29 2b bd 32 34 30 3b  0d 02 94 13 f1 8a 30 2c  |6)+.240;......0,|
000005a0  31 29 c4 33 30 2c 44 44  24 29 3b 0d 02 9e 14 f1  |1).30,DD$);.....|
000005b0  8a 31 39 2c 31 29 c4 33  30 2c 44 44 24 29 3b 0d  |.19,1).30,DD$);.|
000005c0  02 a8 1e f1 8a 30 2c 32  29 bd 32 33 38 2b c4 31  |.....0,2).238+.1|
000005d0  38 2c bd 32 33 36 29 2b  bd 32 34 30 3b 0d 02 b2  |8,.236)+.240;...|
000005e0  33 e3 58 25 3d 37 b8 31  32 3a e3 59 25 3d 31 31  |3.X%=7.12:.Y%=11|
000005f0  b8 32 32 3a f1 8a 58 25  2c 59 25 29 47 24 3a 53  |.22:..X%,Y%)G$:S|
00000600  25 28 58 25 2c 59 25 29  3d 31 32 39 3a ed 3a ed  |%(X%,Y%)=129:.:.|
00000610  0d 02 bc 08 fb 34 3a f7  0d 02 c6 05 f5 0d 02 d0  |.....4:.........|
00000620  1a f3 58 25 3a e7 58 25  3e 32 30 20 4e 25 3d 58  |..X%:.X%>20 N%=X|
00000630  25 3a e5 8d 54 42 43 0d  02 da 33 e7 4e 25 3d 32  |%:..TBC...3.N%=2|
00000640  33 38 3a 42 25 3d 32 34  30 3a 43 25 3d 32 34 31  |38:B%=240:C%=241|
00000650  3a 44 25 3d 32 33 39 20  8b 42 25 3d 4e 25 3a 43  |:D%=239 .B%=N%:C|
00000660  25 3d 4e 25 3a 44 25 3d  4e 25 0d 02 e4 07 f3 59  |%=N%:D%=N%.....Y|
00000670  25 0d 02 ee 3c f1 8a 58  25 2c 59 25 29 bd 4e 25  |%...<..X%,Y%).N%|
00000680  20 8a 31 39 2d 58 25 2c  59 25 29 bd 42 25 20 8a  | .19-X%,Y%).B% .|
00000690  31 39 2d 58 25 2c 33 33  2d 59 25 29 bd 43 25 20  |19-X%,33-Y%).C% |
000006a0  8a 58 25 2c 33 33 2d 59  25 29 bd 44 25 0d 02 f8  |.X%,33-Y%).D%...|
000006b0  47 53 25 28 58 25 2c 59  25 29 3d 31 32 38 3a 53  |GS%(X%,Y%)=128:S|
000006c0  25 28 31 39 2d 58 25 2c  59 25 29 3d 31 32 38 3a  |%(19-X%,Y%)=128:|
000006d0  53 25 28 31 39 2d 58 25  2c 33 33 2d 59 25 29 3d  |S%(19-X%,33-Y%)=|
000006e0  31 32 38 3a 53 25 28 58  25 2c 33 33 2d 59 25 29  |128:S%(X%,33-Y%)|
000006f0  3d 31 32 38 0d 03 02 0b  fd 4e 25 3d 32 35 35 0d  |=128.....N%=255.|
00000700  03 0c 08 4e 25 3d 30 0d  03 16 20 e3 49 25 3d 31  |...N%=0... .I%=1|
00000710  b8 38 3a f3 58 25 2c 59  25 3a f2 6e 65 77 28 58  |.8:.X%,Y%:.new(X|
00000720  25 2c 59 25 29 3a ed 0d  03 20 11 ef 31 39 2c 32  |%,Y%):... ..19,2|
00000730  2c 32 2c 30 2c 30 2c 30  0d 03 2a 13 58 25 3d 31  |,2,0,0,0..*.X%=1|
00000740  30 3a 59 25 3d 33 3a 43  25 3d b9 0d 03 34 0f f1  |0:Y%=3:C%=...4..|
00000750  8a 58 25 2c 59 25 29 47  55 24 0d 03 3e 22 f1 8a  |.X%,Y%)GU$..>"..|
00000760  31 2c 31 29 22 46 55 45  4c 20 22 3b 46 25 8a 31  |1,1)"FUEL ";F%.1|
00000770  30 2c 31 29 22 53 43 20  22 3b 53 25 0d 03 48 05  |0,1)"SC ";S%..H.|
00000780  e1 0d 03 52 08 dc 32 33  36 0d 03 5c 1e dc 32 2c  |...R..236..\..2,|
00000790  34 2c 33 2c 34 2c 34 2c  34 2c 35 2c 34 2c 36 2c  |4,3,4,4,4,5,4,6,|
000007a0  34 2c 37 2c 34 2c 38 0d  03 66 1e dc 34 2c 39 2c  |4,7,4,8..f..4,9,|
000007b0  34 2c 33 2c 36 2c 34 2c  36 2c 35 2c 36 2c 37 2c  |4,3,6,4,6,5,6,7,|
000007c0  36 2c 38 2c 36 0d 03 70  1e dc 39 2c 36 2c 38 2c  |6,8,6..p..9,6,8,|
000007d0  31 34 2c 39 2c 31 34 2c  31 30 2c 31 36 2c 35 2c  |14,9,14,10,16,5,|
000007e0  38 2c 36 0d 03 7a 22 dc  38 2c 37 2c 38 2c 39 2c  |8,6..z".8,7,8,9,|
000007f0  38 2c 38 2c 31 30 2c 39  2c 31 30 2c 39 2c 31 32  |8,8,10,9,10,9,12|
00000800  2c 38 2c 31 32 0d 03 84  08 dc 32 33 37 0d 03 8e  |,8,12.....237...|
00000810  1f dc 32 2c 37 2c 32 2c  38 2c 32 2c 39 2c 32 2c  |..2,7,2,8,2,9,2,|
00000820  31 30 2c 32 2c 31 32 2c  32 2c 31 34 0d 03 98 1e  |10,2,12,2,14....|
00000830  dc 32 2c 31 36 2c 34 2c  39 2c 34 2c 31 30 2c 34  |.2,16,4,9,4,10,4|
00000840  2c 31 31 2c 34 2c 31 33  2c 34 0d 03 a2 20 dc 31  |,11,4,13,4... .1|
00000850  34 2c 34 2c 31 35 2c 34  2c 31 36 2c 36 2c 31 31  |4,4,15,4,16,6,11|
00000860  2c 36 2c 31 32 2c 36 2c  31 33 0d 03 ac 0e dc 36  |,6,12,6,13.....6|
00000870  2c 31 35 2c 36 2c 31 36  0d 03 b6 08 dc 32 33 38  |,15,6,16.....238|
00000880  0d 03 c0 16 dc 38 2c 31  36 2c 32 2c 36 2c 34 2c  |.....8,16,2,6,4,|
00000890  38 2c 36 2c 31 30 0d 03  ca 08 dc 32 35 35 0d 03  |8,6,10.....255..|
000008a0  d4 1a dc 37 2c 31 30 2c  31 32 2c 31 30 2c 37 2c  |...7,10,12,10,7,|
000008b0  32 33 2c 31 32 2c 32 33  0d 03 de 1a dc 36 2c 31  |23,12,23.....6,1|
000008c0  34 2c 36 2c 31 39 2c 31  33 2c 31 34 2c 31 33 2c  |4,6,19,13,14,13,|
000008d0  31 39 0d 03 e8 0d dd f2  67 75 7a 7a 6c 65 72 0d  |19......guzzler.|
000008e0  03 f2 0f 53 25 28 58 25  2c 59 25 29 3d 30 0d 03  |...S%(X%,Y%)=0..|
000008f0  fc 3e e7 a6 2d 35 38 20  e7 53 25 28 58 25 2c 59  |.>..-58 .S%(X%,Y|
00000900  25 2d 31 29 3c 3e 31 32  38 20 f1 8a 58 25 2c 59  |%-1)<>128 ..X%,Y|
00000910  25 29 55 24 3a 59 25 3d  59 25 2d 31 3a d4 32 2c  |%)U$:Y%=Y%-1:.2,|
00000920  32 2c 35 30 2c 31 3a e5  8d 54 64 44 0d 04 06 3e  |2,50,1:..TdD...>|
00000930  e7 a6 2d 34 32 20 e7 53  25 28 58 25 2c 59 25 2b  |..-42 .S%(X%,Y%+|
00000940  31 29 3c 3e 31 32 38 20  f1 8a 58 25 2c 59 25 29  |1)<>128 ..X%,Y%)|
00000950  44 24 3a 59 25 3d 59 25  2b 31 3a d4 32 2c 32 2c  |D$:Y%=Y%+1:.2,2,|
00000960  35 30 2c 31 3a e5 8d 54  64 44 0d 04 10 3f e7 a6  |50,1:..TdD...?..|
00000970  2d 32 36 20 e7 53 25 28  58 25 2d 31 2c 59 25 29  |-26 .S%(X%-1,Y%)|
00000980  3c 3e 31 32 38 20 f1 8a  58 25 2c 59 25 29 4c 24  |<>128 ..X%,Y%)L$|
00000990  3a 58 25 3d 58 25 2d 31  3a d4 32 2c 32 2c 31 30  |:X%=X%-1:.2,2,10|
000009a0  30 2c 31 3a e5 8d 54 64  44 0d 04 1a 40 e7 a6 2d  |0,1:..TdD...@..-|
000009b0  31 32 32 20 e7 53 25 28  58 25 2b 31 2c 59 25 29  |122 .S%(X%+1,Y%)|
000009c0  3c 3e 31 32 38 20 f1 8a  58 25 2c 59 25 29 52 24  |<>128 ..X%,Y%)R$|
000009d0  3a 58 25 3d 58 25 2b 31  3a d4 32 2c 32 2c 31 30  |:X%=X%+1:.2,2,10|
000009e0  30 2c 31 3a e5 8d 54 64  44 0d 04 24 4c e7 53 25  |0,1:..TdD..$L.S%|
000009f0  28 58 25 2c 59 25 29 3d  31 32 39 20 f2 67 61 70  |(X%,Y%)=129 .gap|
00000a00  20 8b e7 28 53 25 28 58  25 2c 59 25 29 3c 31 32  | ..(S%(X%,Y%)<12|
00000a10  38 80 53 25 28 58 25 2c  59 25 29 3e 30 29 20 f2  |8.S%(X%,Y%)>0) .|
00000a20  72 67 6d 28 53 25 28 58  25 2c 59 25 29 29 20 8b  |rgm(S%(X%,Y%)) .|
00000a30  f2 64 28 30 29 0d 04 2e  13 53 25 28 58 25 2c 59  |.d(0)....S%(X%,Y|
00000a40  25 29 3d 31 33 31 3a e1  0d 04 38 0a dd a4 46 55  |%)=131:...8...FU|
00000a50  45 4c 0d 04 42 1b 46 25  3d 46 25 2d 31 3a f1 8a  |EL..B.F%=F%-1:..|
00000a60  36 2c 31 29 43 33 24 3b  46 25 bd 33 32 0d 04 4c  |6,1)C3$;F%.32..L|
00000a70  4c e7 4e 25 3d 30 20 3d  b9 20 8b e7 46 25 3e 32  |L.N%=0 =. ..F%>2|
00000a80  35 20 3d a3 20 8b e7 46  25 3d 32 35 20 d4 33 2c  |5 =. ..F%=25 .3,|
00000a90  33 2c 35 30 2c 31 35 3a  f1 8a 35 2c 33 31 29 43  |3,50,15:..5,31)C|
00000aa0  46 53 24 3b 20 8a 35 2c  32 29 43 46 53 24 3b 20  |FS$; .5,2)CFS$; |
00000ab0  8b e7 46 25 3d 30 20 3d  b9 0d 04 56 06 3d a3 0d  |..F%=0 =...V.=..|
00000ac0  04 60 1c dd f2 64 28 54  25 29 3a 54 25 3d 91 2b  |.`...d(T%):T%=.+|
00000ad0  54 25 3a f5 fd 91 3e 54  25 3a e1 0d 04 6a 0b dd  |T%:...>T%:...j..|
00000ae0  f2 67 6c 6f 6f 70 0d 04  74 30 e7 b3 28 31 35 30  |.gloop..t0..(150|
00000af0  30 29 3e 47 25 20 e1 20  8b e7 4e 25 3e 31 20 4d  |0)>G% . ..N%>1 M|
00000b00  25 3d b3 28 4e 25 29 8b  e7 4e 25 3d 31 20 4d 25  |%=.(N%)..N%=1 M%|
00000b10  3d 31 20 8b 20 e1 0d 04  7e 0d d4 31 2c 31 2c 35  |=1 . ...~..1,1,5|
00000b20  30 2c 33 0d 04 88 17 f2  6e 65 77 28 55 25 3f 4d  |0,3.....new(U%?M|
00000b30  25 2d 31 2c 56 25 3f 4d  25 29 0d 04 92 17 f2 6e  |%-1,V%?M%).....n|
00000b40  65 77 28 55 25 3f 4d 25  2b 31 2c 56 25 3f 4d 25  |ew(U%?M%+1,V%?M%|
00000b50  29 0d 04 9c 17 f2 6e 65  77 28 55 25 3f 4d 25 2c  |).....new(U%?M%,|
00000b60  56 25 3f 4d 25 2b 31 29  0d 04 a6 17 f2 6e 65 77  |V%?M%+1).....new|
00000b70  28 55 25 3f 4d 25 2c 56  25 3f 4d 25 2d 31 29 0d  |(U%?M%,V%?M%-1).|
00000b80  04 b0 14 e7 43 25 f2 72  65 6d 28 4d 25 29 8b 43  |....C%.rem(M%).C|
00000b90  25 3d b9 0d 04 ba 05 e1  0d 04 c4 10 dd f2 6e 65  |%=............ne|
00000ba0  77 28 41 25 2c 42 25 29  0d 04 ce 10 4b 25 3d 53  |w(A%,B%)....K%=S|
00000bb0  25 28 41 25 2c 42 25 29  0d 04 d8 24 e7 4b 25 3d  |%(A%,B%)...$.K%=|
00000bc0  30 20 8b e7 4b 25 3c 31  33 30 20 e1 20 8b e7 4b  |0 ..K%<130 . ..K|
00000bd0  25 3d 31 33 31 20 43 25  3d a3 3a e1 0d 04 e2 0e  |%=131 C%=.:.....|
00000be0  f1 8a 41 25 2c 42 25 29  47 24 0d 04 ec 1d 4e 25  |..A%,B%)G$....N%|
00000bf0  3d 4e 25 2b 31 3a 55 25  3f 4e 25 3d 41 25 3a 56  |=N%+1:U%?N%=A%:V|
00000c00  25 3f 4e 25 3d 42 25 0d  04 f6 10 53 25 28 41 25  |%?N%=B%....S%(A%|
00000c10  2c 42 25 29 3d 4e 25 0d  05 00 05 e1 0d 05 0a 0d  |,B%)=N%.........|
00000c20  dd f2 72 65 6d 28 4d 25  29 0d 05 14 17 53 25 28  |..rem(M%)....S%(|
00000c30  55 25 3f 4d 25 2c 56 25  3f 4d 25 29 3d 31 32 39  |U%?M%,V%?M%)=129|
00000c40  0d 05 1e 14 e7 4d 25 3d  4e 25 20 4e 25 3d 4e 25  |.....M%=N% N%=N%|
00000c50  2d 31 3a e1 0d 05 28 1b  55 25 3f 4d 25 3d 55 25  |-1:...(.U%?M%=U%|
00000c60  3f 4e 25 3a 56 25 3f 4d  25 3d 56 25 3f 4e 25 0d  |?N%:V%?M%=V%?N%.|
00000c70  05 32 16 53 25 28 55 25  3f 4e 25 2c 56 25 3f 4e  |.2.S%(U%?N%,V%?N|
00000c80  25 29 3d 4d 25 0d 05 3c  0b 4e 25 3d 4e 25 2d 31  |%)=M%..<.N%=N%-1|
00000c90  0d 05 46 05 e1 0d 05 50  0d dd f2 72 67 6d 28 4d  |..F....P...rgm(M|
00000ca0  25 29 0d 05 5a 1b 55 25  3f 4d 25 3d 55 25 3f 4e  |%)..Z.U%?M%=U%?N|
00000cb0  25 3a 56 25 3f 4d 25 3d  56 25 3f 4e 25 0d 05 64  |%:V%?M%=V%?N%..d|
00000cc0  16 53 25 28 55 25 3f 4e  25 2c 56 25 3f 4e 25 29  |.S%(U%?N%,V%?N%)|
00000cd0  3d 4d 25 0d 05 6e 0b 4e  25 3d 4e 25 2d 31 0d 05  |=M%..n.N%=N%-1..|
00000ce0  78 09 dd f2 67 61 70 0d  05 82 0b 53 25 3d 53 25  |x...gap....S%=S%|
00000cf0  2b 35 0d 05 8c 0d d4 33  2c 34 2c 35 30 2c 32 0d  |+5.....3,4,50,2.|
00000d00  05 96 11 f1 8a 31 33 2c  31 29 43 33 24 3b 53 25  |.....13,1)C3$;S%|
00000d10  0d 05 a0 11 f2 6e 67 77  28 58 25 2d 31 2c 59 25  |.....ngw(X%-1,Y%|
00000d20  29 0d 05 aa 11 f2 6e 67  77 28 58 25 2b 31 2c 59  |).....ngw(X%+1,Y|
00000d30  25 29 0d 05 b4 11 f2 6e  67 77 28 58 25 2c 59 25  |%).....ngw(X%,Y%|
00000d40  2b 31 29 0d 05 be 11 f2  6e 67 77 28 58 25 2c 59  |+1).....ngw(X%,Y|
00000d50  25 2d 31 29 0d 05 c8 05  e1 0d 05 d2 10 dd f2 6e  |%-1)...........n|
00000d60  67 77 28 41 25 2c 42 25  29 0d 05 dc 15 e7 53 25  |gw(A%,B%).....S%|
00000d70  28 41 25 2c 42 25 29 3c  3e 31 32 39 20 e1 0d 05  |(A%,B%)<>129 ...|
00000d80  e6 1d 4e 25 3d 4e 25 2b  31 3a 55 25 3f 4e 25 3d  |..N%=N%+1:U%?N%=|
00000d90  41 25 3a 56 25 3f 4e 25  3d 42 25 0d 05 f0 10 53  |A%:V%?N%=B%....S|
00000da0  25 28 41 25 2c 42 25 29  3d 4e 25 0d 05 fa 05 e1  |%(A%,B%)=N%.....|
00000db0  0d 06 04 0a dd f2 67 61  6d 65 0d 06 0e 21 e7 46  |......game...!.F|
00000dc0  25 3d 30 20 f2 67 6c 6f  6f 70 77 69 6e 20 8b 20  |%=0 .gloopwin . |
00000dd0  f2 67 75 7a 7a 6c 65 72  77 69 6e 0d 06 18 0d fb  |.guzzlerwin.....|
00000de0  31 33 32 3a db 3a fb 33  0d 06 22 17 f1 27 27 27  |132:.:.3.."..'''|
00000df0  8a 35 29 22 53 43 4f 52  45 20 43 41 52 44 22 0d  |.5)"SCORE CARD".|
00000e00  06 2c 16 f1 8a 34 29 22  3d 3d 3d 3d 3d 3d 3d 3d  |.,...4)"========|
00000e10  3d 3d 3d 3d 22 0d 06 36  1e f1 27 27 27 8a 31 29  |===="..6..'''.1)|
00000e20  22 43 49 54 49 45 53 20  53 41 56 45 44 20 22 3b  |"CITIES SAVED ";|
00000e30  53 43 25 0d 06 40 1c f1  27 27 8a 31 29 22 59 4f  |SC%..@..''.1)"YO|
00000e40  55 52 20 53 43 4f 52 45  20 20 20 22 3b 53 25 0d  |UR SCORE   ";S%.|
00000e50  06 4a 1d f1 27 27 8a 31  29 22 48 49 47 48 20 53  |.J..''.1)"HIGH S|
00000e60  43 4f 52 45 20 20 20 22  3b 48 49 25 0d 06 54 2c  |CORE   ";HI%..T,|
00000e70  e7 47 55 25 3c 3e 30 20  f1 27 27 27 8a 31 29 22  |.GU%<>0 .'''.1)"|
00000e80  47 55 5a 5a 4c 45 52 53  20 20 22 c4 47 55 25 2c  |GUZZLERS  ".GU%,|
00000e90  47 55 24 2b bd 33 32 29  0d 06 5e 4d e7 20 47 55  |GU$+.32)..^M. GU|
00000ea0  25 3d 30 20 f1 27 27 27  27 8a 35 29 22 47 41 4d  |%=0 .''''.5)"GAM|
00000eb0  45 20 4f 56 45 52 22 3a  e7 20 53 25 3e 48 49 25  |E OVER":. S%>HI%|
00000ec0  20 f1 27 8a 34 29 22 59  4f 55 20 47 4f 54 20 54  | .'.4)"YOU GOT T|
00000ed0  48 45 22 27 27 8a 34 29  22 48 49 47 48 20 53 43  |HE"''.4)"HIGH SC|
00000ee0  4f 52 45 21 22 0d 06 68  38 e7 20 53 43 25 3c 31  |ORE!"..h8. SC%<1|
00000ef0  30 30 20 47 25 3d 31 30  30 2b 31 34 2a 53 43 25  |00 G%=100+14*SC%|
00000f00  3a 46 25 3d 35 30 2b 35  2a 53 43 25 20 8b 20 47  |:F%=50+5*SC% . G|
00000f10  25 3d 31 35 30 30 3a 46  25 3d 35 35 30 0d 06 72  |%=1500:F%=550..r|
00000f20  11 e7 47 55 25 3d 30 20  f2 73 74 61 72 74 0d 06  |..GU%=0 .start..|
00000f30  7c 15 e3 58 25 3d 30 b8  31 39 3a e3 59 25 3d 30  ||..X%=0.19:.Y%=0|
00000f40  b8 33 31 0d 06 86 13 53  25 28 58 25 2c 59 25 29  |.31....S%(X%,Y%)|
00000f50  3d 30 3a ed 3a ed 0d 06  90 1f f1 8a 31 2c 32 39  |=0:.:.......1,29|
00000f60  29 22 52 45 54 55 52 4e  20 54 4f 20 43 4f 4e 54  |)"RETURN TO CONT|
00000f70  49 4e 55 45 22 0d 06 9a  08 fb 31 32 38 0d 06 a4  |INUE".....128...|
00000f80  0a f5 fd a6 2d 37 34 0d  06 ae 05 e1 0d 06 b8 0e  |....-74.........|
00000f90  dd f2 67 6c 6f 6f 70 77  69 6e 0d 06 c2 1b f1 8a  |..gloopwin......|
00000fa0  35 2c 33 31 29 43 46 43  24 3b 20 8a 35 2c 32 29  |5,31)CFC$; .5,2)|
00000fb0  43 46 43 24 3b 0d 06 cc  08 e6 30 2c 32 0d 06 d6  |CFC$;.....0,2...|
00000fc0  0d 47 55 25 3d 47 55 25  2d 31 0d 06 e0 10 e3 58  |.GU%=GU%-1.....X|
00000fd0  25 3d 30 b8 35 38 30 20  88 34 0d 06 ea 18 59 25  |%=0.580 .4....Y%|
00000fe0  3d 58 25 3a e7 59 25 3e  34 35 30 20 59 25 3d 34  |=X%:.Y%>450 Y%=4|
00000ff0  35 30 0d 06 f4 16 d4 31  2c 2d 31 35 2c 28 59 25  |50.....1,-15,(Y%|
00001000  2b 58 25 29 81 35 2c 31  0d 06 fe 16 d4 32 2c 2d  |+X%).5,1.....2,-|
00001010  31 35 2c 28 59 25 2b 58  25 29 81 36 2c 31 0d 07  |15,(Y%+X%).6,1..|
00001020  08 16 d4 33 2c 2d 31 35  2c 28 59 25 2b 58 25 29  |...3,-15,(Y%+X%)|
00001030  81 37 2c 31 0d 07 12 2c  ec 58 25 2c 59 25 3a df  |.7,1...,.X%,Y%:.|
00001040  2d 58 25 2c 59 25 3a df  2d 58 25 2c 2d 59 25 3a  |-X%,Y%:.-X%,-Y%:|
00001050  df 58 25 2c 2d 59 25 3a  df 58 25 2c 59 25 3a ed  |.X%,-Y%:.X%,Y%:.|
00001060  0d 07 1c 44 fb 30 3a fb  31 33 30 3a f1 8a 33 2c  |...D.0:.130:..3,|
00001070  36 29 22 54 48 45 20 47  4c 4f 4f 50 20 57 49 4e  |6)"THE GLOOP WIN|
00001080  53 22 8a 35 2c 31 30 29  22 59 4f 55 20 52 41 4e  |S".5,10)"YOU RAN|
00001090  20 4f 55 54 22 8a 37 2c  31 32 29 22 4f 46 20 46  | OUT".7,12)"OF F|
000010a0  55 45 4c 22 0d 07 26 35  f2 64 28 35 30 29 3a e3  |UEL"..&5.d(50):.|
000010b0  49 25 3d 32 30 30 b8 34  30 20 88 2d 35 3a d4 31  |I%=200.40 .-5:.1|
000010c0  2c 2d 31 35 2c 49 25 2c  32 3a d4 32 2c 2d 31 35  |,-15,I%,2:.2,-15|
000010d0  2c 49 25 2b 35 2c 32 3a  ed 0d 07 30 08 fb 31 32  |,I%+5,2:...0..12|
000010e0  38 0d 07 3a 05 e1 0d 07  44 10 dd f2 67 75 7a 7a  |8..:....D...guzz|
000010f0  6c 65 72 77 69 6e 0d 07  4e 1e 53 25 3d 53 25 2b  |lerwin..N.S%=S%+|
00001100  31 30 30 2b 53 43 25 2a  31 30 3a 53 43 25 3d 53  |100+SC%*10:SC%=S|
00001110  43 25 2b 31 0d 07 58 42  fb 33 3a f1 8a 32 2c 36  |C%+1..XB.3:..2,6|
00001120  29 22 43 4f 4e 47 52 41  54 55 4c 41 54 49 4f 4e  |)"CONGRATULATION|
00001130  53 21 22 20 8a 33 2c 38  29 22 59 4f 55 20 20 53  |S!" .3,8)"YOU  S|
00001140  41 56 45 44 20 54 48 45  22 20 8a 38 2c 31 30 29  |AVED THE" .8,10)|
00001150  22 43 49 54 59 22 0d 07  62 3a e3 49 25 3d 32 30  |"CITY"..b:.I%=20|
00001160  b8 36 33 20 88 32 3a d4  31 2c 2d 31 35 2c 49 25  |.63 .2:.1,-15,I%|
00001170  2c 32 3a d4 32 2c 2d 31  35 2c 49 25 2a 32 2c 32  |,2:.2,-15,I%*2,2|
00001180  3a d4 33 2c 2d 31 35 2c  49 25 2a 34 2c 32 3a ed  |:.3,-15,I%*4,2:.|
00001190  0d 07 6c 0b f2 64 28 31  30 30 29 0d 07 76 05 e1  |..l..d(100)..v..|
000011a0  0d 07 80 14 dd f2 69 6e  69 74 69 61 6c 69 7a 65  |......initialize|
000011b0  75 73 65 72 0d 07 8a 0e  54 24 3d c4 34 30 2c bd  |user....T$=.40,.|
000011c0  30 29 0d 07 94 3e 54 24  3d bd 31 33 32 2b bd 31  |0)...>T$=.132+.1|
000011d0  35 37 2b bd 31 34 31 2b  bd 31 33 31 2b 22 54 48  |57+.141+.131+"TH|
000011e0  45 20 53 55 50 45 52 20  47 52 45 45 4e 20 47 4c  |E SUPER GREEN GL|
000011f0  4f 4f 50 20 47 55 4c 50  45 52 20 47 41 4d 45 22  |OOP GULPER GAME"|
00001200  0d 07 9e 0b f1 54 24 27  54 24 27 0d 07 a8 15 54  |.....T$'T$'....T|
00001210  24 3d bd 31 34 36 2b c4  33 39 2c bd 32 34 33 29  |$=.146+.39,.243)|
00001220  0d 07 b2 08 f1 54 24 27  0d 07 bc 0f 54 24 3d bd  |.....T$'....T$=.|
00001230  33 32 2b bd 31 33 30 0d  07 c6 52 f1 54 24 22 54  |32+.130...R.T$"T|
00001240  48 45 20 43 49 54 59 20  49 53 20 42 45 49 4e 47  |HE CITY IS BEING|
00001250  20 49 4e 56 41 44 45 44  20 42 59 20 54 48 45 22  | INVADED BY THE"|
00001260  27 54 24 22 44 52 45 41  44 45 44 20 43 52 45 45  |'T$"DREADED CREE|
00001270  50 49 4e 47 20 4d 55 54  41 4e 54 20 47 52 45 45  |PING MUTANT GREE|
00001280  4e 20 47 4c 4f 4f 50 2e  22 0d 07 d0 7d f1 54 24  |N GLOOP."...}.T$|
00001290  22 49 54 27 53 20 55 50  20 54 4f 20 59 4f 55 20  |"IT'S UP TO YOU |
000012a0  54 4f 20 53 41 56 45 20  49 54 20 42 59 20 47 55  |TO SAVE IT BY GU|
000012b0  4c 50 49 4e 47 22 27 54  24 22 54 48 45 20 47 4c  |LPING"'T$"THE GL|
000012c0  4f 4f 50 20 57 49 54 48  20 59 4f 55 52 20 54 52  |OOP WITH YOUR TR|
000012d0  55 53 54 59 20 47 4c 4f  4f 50 22 27 54 24 22 47  |USTY GLOOP"'T$"G|
000012e0  55 5a 5a 4c 45 52 20 42  45 46 4f 52 45 20 54 48  |UZZLER BEFORE TH|
000012f0  45 20 47 4c 4f 4f 50 20  47 55 4c 50 53 20 59 4f  |E GLOOP GULPS YO|
00001300  55 20 21 22 27 27 0d 07  da 77 f1 54 24 22 59 4f  |U !"''...w.T$"YO|
00001310  55 20 55 53 45 20 54 48  45 20 43 55 52 53 4f 52  |U USE THE CURSOR|
00001320  20 4b 45 59 53 20 54 4f  20 53 54 45 45 52 22 27  | KEYS TO STEER"'|
00001330  54 24 22 59 4f 55 52 20  47 55 5a 5a 4c 45 52 2e  |T$"YOUR GUZZLER.|
00001340  20 50 4f 49 4e 54 53 20  41 52 45 20 41 57 41 52  | POINTS ARE AWAR|
00001350  44 45 44 20 46 4f 52 22  27 54 24 22 47 4c 4f 4f  |DED FOR"'T$"GLOO|
00001360  50 20 47 55 4c 50 45 44  20 41 4e 44 20 43 49 54  |P GULPED AND CIT|
00001370  49 45 53 20 43 4c 45 41  52 45 44 2e 22 0d 07 e4  |IES CLEARED."...|
00001380  68 f1 54 24 22 47 4c 4f  4f 50 20 47 55 5a 5a 4c  |h.T$"GLOOP GUZZL|
00001390  49 4e 47 20 55 53 45 53  20 45 4e 45 52 47 59 20  |ING USES ENERGY |
000013a0  53 4f 20 59 4f 55 22 27  54 24 22 4d 55 53 54 20  |SO YOU"'T$"MUST |
000013b0  43 4f 4d 50 4c 45 54 45  20 59 4f 55 52 20 4d 49  |COMPLETE YOUR MI|
000013c0  53 53 49 4f 4e 20 42 45  46 4f 52 45 22 27 54 24  |SSION BEFORE"'T$|
000013d0  22 59 4f 55 52 20 46 55  45 4c 20 52 55 4e 53 20  |"YOUR FUEL RUNS |
000013e0  4f 55 54 2e 22 0d 07 ee  15 54 24 3d bd 31 34 36  |OUT."....T$=.146|
000013f0  2b c4 33 39 2c bd 32 34  33 29 0d 07 f8 0a f1 27  |+.39,.243).....'|
00001400  27 54 24 3b 0d 08 02 21  f1 27 8a 32 30 29 bd 31  |'T$;...!.'.20).1|
00001410  33 30 22 52 45 54 55 52  4e 20 54 4f 20 53 54 41  |30"RETURN TO STA|
00001420  52 54 20 22 3b 0d 08 0c  0d f5 fd a6 28 31 30 29  |RT ";.......(10)|
00001430  3d b9 0d 08 16 0a f5 fd  a5 3d 31 33 0d 08 20 05  |=........=13.. .|
00001440  e1 0d ff                                          |...|
00001443

05-08-88/GLOOP.m0

05-08-88/GLOOP.m1

05-08-88/GLOOP.m2

05-08-88/GLOOP.m4

05-08-88/GLOOP.m5

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