Home » Recent acquisitions » Acorn tapes » tape047b_acorn_computer_hits_2.wav » PERCY

PERCY

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 » Recent acquisitions » Acorn tapes » tape047b_acorn_computer_hits_2.wav
Filename: PERCY
Read OK:
File size: 101B bytes
Load address: 1400
Exec address: 8023
Duplicates

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

File contents
   10*L.CODE
   20ONERRORGOTO50
   30*FX4,1
   40FORA%=&2780TO&27FFSTEP16:!A%=1000:$(A%+4)="...........":NEXT
   50MODE6:PROCINST:TIME=0
   60IFFNSTART GOTO140
   70IFTIME<1500GOTO60
   80MODE2:HIMEM=&2780:PROCPIC:TIME=0
   90IFFNSTART GOTO140
  100IFTIME<900GOTO90
  110MODE6:PROCHI:TIME=0
  120IFFNSTART GOTO140
  130IFTIME<900GOTO120
  135GOTO50
  140PROCTUNE(0):MODE1:HIMEM=&2780:?&B3F=1:?&B00=0:?&B01=0:?&B02=0:?&B09=3:VDU23;8202;0;0;0;19,3,6;0;
  150PROCMAZE:PROCDEL:TIME=0
  160CALLN%:IF?&72=255:T=TIME DIV100:GOTO220
  170IF?&72=1GOTO320
  180DEFPROCTUNE(T):SOUND&11,0,0,0:RESTORE(550+10*T)
  190READP,D:IFP>-1SOUND1,3,P+48,D:SOUND1,0,0,0:GOTO190 ELSEENDPROC
  200DEFPROCMAZE:COLOUR2:CALLB%:!&B30=RND:?L%=&2E:A%=192:FORX%=4TO68STEP8:Y=16*(RND(5)+2):FORY%=Y TOY+16*(RND(5)+2)STEP16:CALLQ%:NEXT,:FORY%=48TO208STEP32:X=4*RND(9):FORX%=X TOX+4*(RND(5)+4)STEP4:CALLQ%:NEXT,
  210COLOUR3:PRINTTAB(2,0);"SCORE";TAB(16,0);"HI ";!&2780;TAB(27,0);"SCENE ";:COLOUR2:PRINT;?&B3F:CALLO%:ENDPROC
  220PROCTUNE(1):CLS
  230COLOUR3:PRINTTAB(10,10);"SCENE ";:COLOUR2:PRINT;?&B3F;:COLOUR3:PRINT" CLEARED IN"
  240COLOUR2:PRINTTAB(14,12);T;:COLOUR3:PRINT" SECONDS."
  250?&B3F=?&B3F+1:IFT>59PRINTTAB(12,14);"SORRY - NO BONUS":PROCWAIT:GOTO150
  260PRINTTAB(14,14);"BONUS=";:COLOUR2:BO%=(60-T)*10:PRINT;BO%
  270PROCDEL:IFBO%DIV100=0:GOTO290
  280FORZ%=1TOBO%DIV100:X%=1:Y%=0:CALLS%:SOUND1,3,0,3:SOUND1,0,0,0:PROCDEL:NEXT
  290IFBO%MOD100=0:GOTO310
  300FORZ%=1TO BO%MOD100 DIV10:X%=0:Y%=10:CALLS%:SOUND1,3,48,3:SOUND1,0,0,0:PROCDEL:NEXT
  310PROCWAIT:GOTO150
  320T=TIME:PROCTUNE(2):?&B35=0
  330PROCDEL:!&8C=0:?&B09=?&B09-1:IF?&B09=0 PROCWAIT:GOTO780
  340FORZ%=0TO3:X%=Z%?&74:IFX%<>0Y%=Z%?&78:CALLE%:NEXT:ELSENEXT
  350Y%=16:X%=4*?&B09:CALLE%
  360?&77=40:?&7B=&80
  370FORA%=0TO2
  380IFA%?&74>0 CALLG%:A%?&74=?&B2E:A%?&78=?&B2F
  390NEXT
  400CALLO%:X%=40:Y%=128:A%=0:?L%=&2A:CALLQ%
  410PROCWAIT:GOTO160
  420DEFPROCDEL:REPEATUNTILADVAL-6=15:ENDPROC
  430DEFPROCWAIT:T1=TIME:REPEATUNTILTIME>T1+150:ENDPROC
  440DEFPROCINST:VDU23;8202;0;0;0;19,1,6,0,0,0:PRINTTAB(12,2);"PERCY PENGUIN"
  450PRINT''"PERCY is trapped in an ICE MAZE which ispopulated by the deadly SNO-BEES."'"His only hope of survival is to squash  them by hurling the ICE CUBES at them."
  460PRINT'"Unfortunately,whenever it appears that  he has won,a deadlier breed appears."
  470PRINT'"Z Left"'"X Right"'"* Up"'"? Down"'
  480PRINTTAB(10,14);"Pressing the SPACE BAR"
  490PRINTTAB(10,15);"with a direction key causes"
  500PRINTTAB(10,16);"PERCY to peck an ICE BLOCK."
  510PRINT'"1000 points and an extra life can be    gained by lining up the DIAMOND CUBES."
  520PRINT'"Press SPACE or FIRE to begin."
  530PRINT'"Press ESCAPE at any time to restart."
  540ENDPROC
  550DATA80,4,72,4,80,16,72,3,64,3,60,3,52,3,48,16,52,16,32,4,24,4,32,16,12,8,16,8,0,8,4,32,-1,-1
  560DATA8,10,8,10,8,3,16,3,20,3,28,10,28,3,20,3,16,3,28,3,20,3,16,3,28,3,20,3,16,3,8,20,-1,-1
  570DATA16,4,20,4,28,8,8,4,16,4,20,8,0,8,28,8,0,16,-1,-1
  572 DATA-1,-1
  580DATA20,12,20,3,32,3,28,3,20,3,48,12,0,3,12,3,8,3,0,3,20,12,20,3,32,3,28,3,20,3,48,12,0,12
  581DATA-1,-1
  590DATA48,4,56,4,64,4,56,4,48,4,56,4,64,8,48,8,48,16,-1,-1
  600DEFPROCPIC:COLOUR134:CLS:RESTORE660:VDU23;8202;0;0;0;
  610READP%,X%,Y%:IFP%=255 GCOLX%,Y%:GOTO610
  620IFP%=-1GOTO640
  630PLOTP%,X%,Y%:GOTO610
  640VDU28,6,5,14,1:COLOUR128:CLS:PRINTTAB(1,1);"PERCY'S";TAB(2,3);"HOME"
  650ENDPROC
  660DATA255,0,4,4,-200,500,4,200,900,85,700,550,4,1000,550,4,700,800,85,400,520,4,1400,500,4,850,520,85,1150,950
  670DATA255,0,0,4,150,520,4,500,520,85,200,700,4,330,520,4,170,820,85,50,520,4,700,770,4,650,620,85,680,540,4,1150,925,4,1190,520,85,1120,580
  680DATA255,0,4,4,256,0,4,900,0,85,640,256,4,450,128,85,400,360,85,700,500,4,600,550,85,670,458
  690DATA255,0,7,4,210,0,4,0,0,85,446,150,85,0,160,85,392,380,85,0,380,85,638,487,85,0,487,85,600,550,85,0,550,85,200,600
  700DATA4,930,0,4,1280,0,85,664,270,85,1280,270,85,575,306,85,1280,530,85,715,510,85,600,550,85,900,620,85,1200,530
  710DATA-1,0,0
  720DEFPROCHI:VDU23;8202;0;0;0;19,1,3;0;:PRINTTAB(15,2);"TODAY'S"
  730PRINT'TAB(12);"BLOCK BASHERS"'
  740FORZ%=0TO7
  750PRINT'TAB(6);Z%+1;TAB(9);!(&2780+16*Z%);TAB(17);$(&2784+16*Z%)
  760NEXT
  770ENDPROC
  780PROCTUNE(3):MODE5:VDU23;8202;0;0;0;19,3,6;0;:X%=0:Y%=0:CALLS%:PRINTTAB(5,15);"GAME OVER":PROCDEL:PROCWAIT
  790SC%=(?&B02 AND15)+(10*(?&B02 DIV 16))+(100*(?&B01 AND 15))+(1000*(?&B01 DIV 16))+(10000*(?&B00 AND 15))+(100000*(?&B00 DIV 16))
  800IFSC%<!&27F0PROCWAIT:GOTO50
  810MODE6:PRINTTAB(11,5);"CONGRATULATIONS!!"''
  820PRINT''"    YOUR SCORE IS IN THE TOP EIGHT"
  830PROCTUNE(4)
  840PRINT''TAB(9);"PLEASE TYPE YOUR NAME"
  850PRINTTAB(13,17);"...........";TAB(13,17);
  860*FX15,1
  865$&A00="..........."
  870G=GET:IFG=13:GOTO920
  880IFPOS<24 AND G<127 AND G>31 VDUG:?(&A00+POS-14)=G:GOTO870
  890IFG=127 AND POS>13 VDU127:GOTO870
  900VDU7:GOTO870
  920AD%=&2780
  930IF!AD%>=SC% AD%=AD%+16:GOTO930
  940IFAD%=&27F0:GOTO970
  950FORA%=&27E0TOAD%STEP-16
  960A%!16=!A%:$(A%+20)=$(A%+4):NEXT
  970!AD%=SC%:$(AD%+4)=$&A00
  980CLS:PROCHI:PROCWAIT:PROCWAIT
  981GOTO50
  990DEFFNSTART
  991IFINKEY-99?&B03=0:=255
  992IF(ADVAL0AND3)?&B03=1:=255
  993=0

*L.CODE
��Tr@

*FX4,1
(7�A%=&2780�&27FF�16:!A%=1000:$(A%+4)="...........":�
2�6:�INST:�=0
<�START �tL@
F�<1500�T|@
P�2:�=&2780:�PIC:�=0
Z�START �tL@
d�<900�DZ@
n�6:�HI:�=0
x�START �tL@
��<900�Dx@
�	�Tr@
�X�TUNE(0):�1:�=&2780:?&B3F=1:?&B00=0:?&B01=0:?&B02=0:?&B09=3:�23;8202;0;0;0;19,3,6;0;
��MAZE:�DEL:�=0
� �N%:�?&72=255:T=� �100:�d\@
��?&72=1�D@A
�$��TUNE(T):�&11,0,0,0:�(550+10*T)
�+�P,D:�P>-1�1,3,P+48,D:�1,0,0,0:�t~@ ��
Ȕ��MAZE:�2:�B%:!&B30=�:?L%=&2E:A%=192:�X%=4�68�8:Y=16*(�(5)+2):�Y%=Y �Y+16*(�(5)+2)�16:�Q%:�,:�Y%=48�208�32:X=4*�(9):�X%=X �X+4*(�(5)+4)�4:�Q%:�,
�K�3:�2,0);"SCORE";�16,0);"HI ";!&2780;�27,0);"SCENE ";:�2:�;?&B3F:�O%:�
��TUNE(1):�
�7�3:�10,10);"SCENE ";:�2:�;?&B3F;:�3:�" CLEARED IN"
�"�2:�14,12);T;:�3:�" SECONDS."
�>?&B3F=?&B3F+1:�T>59�12,14);"SORRY - NO BONUS":�WAIT:�tV@
-�14,14);"BONUS=";:�2:BO%=(60-T)*10:�;BO%
�DEL:�BO%�100=0:�TbA
8�Z%=1�BO%�100:X%=1:Y%=0:�S%:�1,3,0,3:�1,0,0,0:�DEL:�
"�BO%�100=0:�TvA
,?�Z%=1� BO%�100 �10:X%=0:Y%=10:�S%:�1,3,48,3:�1,0,0,0:�DEL:�
6�WAIT:�tV@
@T=�:�TUNE(2):?&B35=0
J2�DEL:!&8C=0:?&B09=?&B09-1:�?&B09=0 �WAIT:�TLC
T.�Z%=0�3:X%=Z%?&74:�X%<>0Y%=Z%?&78:�E%:�:��
^Y%=16:X%=4*?&B09:�E%
h?&77=40:?&7B=&80
r�A%=0�2
|+�A%?&74>0 �G%:A%?&74=?&B2E:A%?&78=?&B2F
��
�%�O%:X%=40:Y%=128:A%=0:?L%=&2A:�Q%
��WAIT:�t`@
���DEL:���-6=15:�
���WAIT:T1=�:���>T1+150:�
�>��INST:�23;8202;0;0;0;19,1,6,0,0,0:�12,2);"PERCY PENGUIN"
£�''"PERCY is trapped in an ICE MAZE which ispopulated by the deadly SNO-BEES."'"His only hope of survival is to squash  them by hurling the ICE CUBES at them."
�T�'"Unfortunately,whenever it appears that  he has won,a deadlier breed appears."
�)�'"Z Left"'"X Right"'"* Up"'"? Down"'
�%�10,14);"Pressing the SPACE BAR"
�*�10,15);"with a direction key causes"
�*�10,16);"PERCY to peck an ICE BLOCK."
�V�'"1000 points and an extra life can be    gained by lining up the DIAMOND CUBES."
%�'"Press SPACE or FIRE to begin."
,�'"Press ESCAPE at any time to restart."
�
&]�80,4,72,4,80,16,72,3,64,3,60,3,52,3,48,16,52,16,32,4,24,4,32,16,12,8,16,8,0,8,4,32,-1,-1
0Z�8,10,8,10,8,3,16,3,20,3,28,10,28,3,20,3,16,3,28,3,20,3,16,3,28,3,20,3,16,3,8,20,-1,-1
:5�16,4,20,4,28,8,8,4,16,4,20,8,0,8,28,8,0,16,-1,-1
< �-1,-1
DZ�20,12,20,3,32,3,28,3,20,3,48,12,0,3,12,3,8,3,0,3,20,12,20,3,32,3,28,3,20,3,48,12,0,12
E
�-1,-1
N8�48,4,56,4,64,4,56,4,48,4,56,4,64,8,48,8,48,16,-1,-1
X&��PIC:�134:�:��tTB:�23;8202;0;0;0;
b"�P%,X%,Y%:�P%=255 �X%,Y%:�DbB
l�P%=-1�t@B
v�P%,X%,Y%:�DbB
�5�28,6,5,14,1:�128:�:�1,1);"PERCY'S";�2,3);"HOME"
��
�m�255,0,4,4,-200,500,4,200,900,85,700,550,4,1000,550,4,700,800,85,400,520,4,1400,500,4,850,520,85,1150,950
���255,0,0,4,150,520,4,500,520,85,200,700,4,330,520,4,170,820,85,50,520,4,700,770,4,650,620,85,680,540,4,1150,925,4,1190,520,85,1120,580
�\�255,0,4,4,256,0,4,900,0,85,640,256,4,450,128,85,400,360,85,700,500,4,600,550,85,670,458
�u�255,0,7,4,210,0,4,0,0,85,446,150,85,0,160,85,392,380,85,0,380,85,638,487,85,0,487,85,600,550,85,0,550,85,200,600
�p�4,930,0,4,1280,0,85,664,270,85,1280,270,85,575,306,85,1280,530,85,715,510,85,600,550,85,900,620,85,1200,530
��-1,0,0
�3��HI:�23;8202;0;0;0;19,1,3;0;:�15,2);"TODAY'S"
��'�12);"BLOCK BASHERS"'
��Z%=0�7
�5�'�6);Z%+1;�9);!(&2780+16*Z%);�17);$(&2784+16*Z%)
��
�
U�TUNE(3):�5:�23;8202;0;0;0;19,3,6;0;:X%=0:Y%=0:�S%:�5,15);"GAME OVER":�DEL:�WAIT
wSC%=(?&B02 �15)+(10*(?&B02 � 16))+(100*(?&B01 � 15))+(1000*(?&B01 � 16))+(10000*(?&B00 � 15))+(100000*(?&B00 � 16))
 �SC%<!&27F0�WAIT:�Tr@
*$�6:�11,5);"CONGRATULATIONS!!"''
4+�''"    YOUR SCORE IS IN THE TOP EIGHT"
>�TUNE(4)
H"�''�9);"PLEASE TYPE YOUR NAME"
R#�13,17);"...........";�13,17);
\*FX15,1
a$&A00="..........."
fG=�:�G=13:�tXC
p0�<24 � G<127 � G>31 �G:?(&A00+�-14)=G:�DfC
z�G=127 � �>13 �127:�DfC
��7:�DfC
�
AD%=&2780
��!AD%>=SC% AD%=AD%+16:�tbC
��AD%=&27F0:�dJC
��A%=&27E0�AD%�-16
� A%!16=!A%:$(A%+20)=$(A%+4):�
�!AD%=SC%:$(AD%+4)=$&A00
��:�HI:�WAIT:�WAIT
�	�Tr@
�ݤSTART
��-99?&B03=0:=255
��(�0�3)?&B03=1:=255
�=0
�
00000000  0d 00 0a 0b 2a 4c 2e 43  4f 44 45 0d 00 14 0b ee  |....*L.CODE.....|
00000010  85 e5 8d 54 72 40 0d 00  1e 0a 2a 46 58 34 2c 31  |...Tr@....*FX4,1|
00000020  0d 00 28 37 e3 41 25 3d  26 32 37 38 30 b8 26 32  |..(7.A%=&2780.&2|
00000030  37 46 46 88 31 36 3a 21  41 25 3d 31 30 30 30 3a  |7FF.16:!A%=1000:|
00000040  24 28 41 25 2b 34 29 3d  22 2e 2e 2e 2e 2e 2e 2e  |$(A%+4)=".......|
00000050  2e 2e 2e 2e 22 3a ed 0d  00 32 10 eb 36 3a f2 49  |....":...2..6:.I|
00000060  4e 53 54 3a d1 3d 30 0d  00 3c 11 e7 a4 53 54 41  |NST:.=0..<...STA|
00000070  52 54 20 e5 8d 74 4c 40  0d 00 46 10 e7 91 3c 31  |RT ..tL@..F...<1|
00000080  35 30 30 e5 8d 54 7c 40  0d 00 50 17 eb 32 3a d3  |500..T|@..P..2:.|
00000090  3d 26 32 37 38 30 3a f2  50 49 43 3a d1 3d 30 0d  |=&2780:.PIC:.=0.|
000000a0  00 5a 11 e7 a4 53 54 41  52 54 20 e5 8d 74 4c 40  |.Z...START ..tL@|
000000b0  0d 00 64 0f e7 91 3c 39  30 30 e5 8d 44 5a 40 0d  |..d...<900..DZ@.|
000000c0  00 6e 0e eb 36 3a f2 48  49 3a d1 3d 30 0d 00 78  |.n..6:.HI:.=0..x|
000000d0  11 e7 a4 53 54 41 52 54  20 e5 8d 74 4c 40 0d 00  |...START ..tL@..|
000000e0  82 0f e7 91 3c 39 30 30  e5 8d 44 78 40 0d 00 87  |....<900..Dx@...|
000000f0  09 e5 8d 54 72 40 0d 00  8c 58 f2 54 55 4e 45 28  |...Tr@...X.TUNE(|
00000100  30 29 3a eb 31 3a d3 3d  26 32 37 38 30 3a 3f 26  |0):.1:.=&2780:?&|
00000110  42 33 46 3d 31 3a 3f 26  42 30 30 3d 30 3a 3f 26  |B3F=1:?&B00=0:?&|
00000120  42 30 31 3d 30 3a 3f 26  42 30 32 3d 30 3a 3f 26  |B01=0:?&B02=0:?&|
00000130  42 30 39 3d 33 3a ef 32  33 3b 38 32 30 32 3b 30  |B09=3:.23;8202;0|
00000140  3b 30 3b 30 3b 31 39 2c  33 2c 36 3b 30 3b 0d 00  |;0;0;19,3,6;0;..|
00000150  96 12 f2 4d 41 5a 45 3a  f2 44 45 4c 3a d1 3d 30  |...MAZE:.DEL:.=0|
00000160  0d 00 a0 20 d6 4e 25 3a  e7 3f 26 37 32 3d 32 35  |... .N%:.?&72=25|
00000170  35 3a 54 3d 91 20 81 31  30 30 3a e5 8d 64 5c 40  |5:T=. .100:..d\@|
00000180  0d 00 aa 10 e7 3f 26 37  32 3d 31 e5 8d 44 40 41  |.....?&72=1..D@A|
00000190  0d 00 b4 24 dd f2 54 55  4e 45 28 54 29 3a d4 26  |...$..TUNE(T):.&|
000001a0  31 31 2c 30 2c 30 2c 30  3a f7 28 35 35 30 2b 31  |11,0,0,0:.(550+1|
000001b0  30 2a 54 29 0d 00 be 2b  f3 50 2c 44 3a e7 50 3e  |0*T)...+.P,D:.P>|
000001c0  2d 31 d4 31 2c 33 2c 50  2b 34 38 2c 44 3a d4 31  |-1.1,3,P+48,D:.1|
000001d0  2c 30 2c 30 2c 30 3a e5  8d 74 7e 40 20 8b e1 0d  |,0,0,0:..t~@ ...|
000001e0  00 c8 94 dd f2 4d 41 5a  45 3a fb 32 3a d6 42 25  |.....MAZE:.2:.B%|
000001f0  3a 21 26 42 33 30 3d b3  3a 3f 4c 25 3d 26 32 45  |:!&B30=.:?L%=&2E|
00000200  3a 41 25 3d 31 39 32 3a  e3 58 25 3d 34 b8 36 38  |:A%=192:.X%=4.68|
00000210  88 38 3a 59 3d 31 36 2a  28 b3 28 35 29 2b 32 29  |.8:Y=16*(.(5)+2)|
00000220  3a e3 59 25 3d 59 20 b8  59 2b 31 36 2a 28 b3 28  |:.Y%=Y .Y+16*(.(|
00000230  35 29 2b 32 29 88 31 36  3a d6 51 25 3a ed 2c 3a  |5)+2).16:.Q%:.,:|
00000240  e3 59 25 3d 34 38 b8 32  30 38 88 33 32 3a 58 3d  |.Y%=48.208.32:X=|
00000250  34 2a b3 28 39 29 3a e3  58 25 3d 58 20 b8 58 2b  |4*.(9):.X%=X .X+|
00000260  34 2a 28 b3 28 35 29 2b  34 29 88 34 3a d6 51 25  |4*(.(5)+4).4:.Q%|
00000270  3a ed 2c 0d 00 d2 4b fb  33 3a f1 8a 32 2c 30 29  |:.,...K.3:..2,0)|
00000280  3b 22 53 43 4f 52 45 22  3b 8a 31 36 2c 30 29 3b  |;"SCORE";.16,0);|
00000290  22 48 49 20 22 3b 21 26  32 37 38 30 3b 8a 32 37  |"HI ";!&2780;.27|
000002a0  2c 30 29 3b 22 53 43 45  4e 45 20 22 3b 3a fb 32  |,0);"SCENE ";:.2|
000002b0  3a f1 3b 3f 26 42 33 46  3a d6 4f 25 3a e1 0d 00  |:.;?&B3F:.O%:...|
000002c0  dc 0e f2 54 55 4e 45 28  31 29 3a db 0d 00 e6 37  |...TUNE(1):....7|
000002d0  fb 33 3a f1 8a 31 30 2c  31 30 29 3b 22 53 43 45  |.3:..10,10);"SCE|
000002e0  4e 45 20 22 3b 3a fb 32  3a f1 3b 3f 26 42 33 46  |NE ";:.2:.;?&B3F|
000002f0  3b 3a fb 33 3a f1 22 20  43 4c 45 41 52 45 44 20  |;:.3:." CLEARED |
00000300  49 4e 22 0d 00 f0 22 fb  32 3a f1 8a 31 34 2c 31  |IN"...".2:..14,1|
00000310  32 29 3b 54 3b 3a fb 33  3a f1 22 20 53 45 43 4f  |2);T;:.3:." SECO|
00000320  4e 44 53 2e 22 0d 00 fa  3e 3f 26 42 33 46 3d 3f  |NDS."...>?&B3F=?|
00000330  26 42 33 46 2b 31 3a e7  54 3e 35 39 f1 8a 31 32  |&B3F+1:.T>59..12|
00000340  2c 31 34 29 3b 22 53 4f  52 52 59 20 2d 20 4e 4f  |,14);"SORRY - NO|
00000350  20 42 4f 4e 55 53 22 3a  f2 57 41 49 54 3a e5 8d  | BONUS":.WAIT:..|
00000360  74 56 40 0d 01 04 2d f1  8a 31 34 2c 31 34 29 3b  |tV@...-..14,14);|
00000370  22 42 4f 4e 55 53 3d 22  3b 3a fb 32 3a 42 4f 25  |"BONUS=";:.2:BO%|
00000380  3d 28 36 30 2d 54 29 2a  31 30 3a f1 3b 42 4f 25  |=(60-T)*10:.;BO%|
00000390  0d 01 0e 19 f2 44 45 4c  3a e7 42 4f 25 81 31 30  |.....DEL:.BO%.10|
000003a0  30 3d 30 3a e5 8d 54 62  41 0d 01 18 38 e3 5a 25  |0=0:..TbA...8.Z%|
000003b0  3d 31 b8 42 4f 25 81 31  30 30 3a 58 25 3d 31 3a  |=1.BO%.100:X%=1:|
000003c0  59 25 3d 30 3a d6 53 25  3a d4 31 2c 33 2c 30 2c  |Y%=0:.S%:.1,3,0,|
000003d0  33 3a d4 31 2c 30 2c 30  2c 30 3a f2 44 45 4c 3a  |3:.1,0,0,0:.DEL:|
000003e0  ed 0d 01 22 14 e7 42 4f  25 83 31 30 30 3d 30 3a  |..."..BO%.100=0:|
000003f0  e5 8d 54 76 41 0d 01 2c  3f e3 5a 25 3d 31 b8 20  |..TvA..,?.Z%=1. |
00000400  42 4f 25 83 31 30 30 20  81 31 30 3a 58 25 3d 30  |BO%.100 .10:X%=0|
00000410  3a 59 25 3d 31 30 3a d6  53 25 3a d4 31 2c 33 2c  |:Y%=10:.S%:.1,3,|
00000420  34 38 2c 33 3a d4 31 2c  30 2c 30 2c 30 3a f2 44  |48,3:.1,0,0,0:.D|
00000430  45 4c 3a ed 0d 01 36 0f  f2 57 41 49 54 3a e5 8d  |EL:...6..WAIT:..|
00000440  74 56 40 0d 01 40 18 54  3d 91 3a f2 54 55 4e 45  |tV@..@.T=.:.TUNE|
00000450  28 32 29 3a 3f 26 42 33  35 3d 30 0d 01 4a 32 f2  |(2):?&B35=0..J2.|
00000460  44 45 4c 3a 21 26 38 43  3d 30 3a 3f 26 42 30 39  |DEL:!&8C=0:?&B09|
00000470  3d 3f 26 42 30 39 2d 31  3a e7 3f 26 42 30 39 3d  |=?&B09-1:.?&B09=|
00000480  30 20 f2 57 41 49 54 3a  e5 8d 54 4c 43 0d 01 54  |0 .WAIT:..TLC..T|
00000490  2e e3 5a 25 3d 30 b8 33  3a 58 25 3d 5a 25 3f 26  |..Z%=0.3:X%=Z%?&|
000004a0  37 34 3a e7 58 25 3c 3e  30 59 25 3d 5a 25 3f 26  |74:.X%<>0Y%=Z%?&|
000004b0  37 38 3a d6 45 25 3a ed  3a 8b ed 0d 01 5e 18 59  |78:.E%:.:....^.Y|
000004c0  25 3d 31 36 3a 58 25 3d  34 2a 3f 26 42 30 39 3a  |%=16:X%=4*?&B09:|
000004d0  d6 45 25 0d 01 68 14 3f  26 37 37 3d 34 30 3a 3f  |.E%..h.?&77=40:?|
000004e0  26 37 42 3d 26 38 30 0d  01 72 0b e3 41 25 3d 30  |&7B=&80..r..A%=0|
000004f0  b8 32 0d 01 7c 2b e7 41  25 3f 26 37 34 3e 30 20  |.2..|+.A%?&74>0 |
00000500  d6 47 25 3a 41 25 3f 26  37 34 3d 3f 26 42 32 45  |.G%:A%?&74=?&B2E|
00000510  3a 41 25 3f 26 37 38 3d  3f 26 42 32 46 0d 01 86  |:A%?&78=?&B2F...|
00000520  05 ed 0d 01 90 25 d6 4f  25 3a 58 25 3d 34 30 3a  |.....%.O%:X%=40:|
00000530  59 25 3d 31 32 38 3a 41  25 3d 30 3a 3f 4c 25 3d  |Y%=128:A%=0:?L%=|
00000540  26 32 41 3a d6 51 25 0d  01 9a 0f f2 57 41 49 54  |&2A:.Q%.....WAIT|
00000550  3a e5 8d 74 60 40 0d 01  a4 14 dd f2 44 45 4c 3a  |:..t`@......DEL:|
00000560  f5 fd 96 2d 36 3d 31 35  3a e1 0d 01 ae 1c dd f2  |...-6=15:.......|
00000570  57 41 49 54 3a 54 31 3d  91 3a f5 fd 91 3e 54 31  |WAIT:T1=.:...>T1|
00000580  2b 31 35 30 3a e1 0d 01  b8 3e dd f2 49 4e 53 54  |+150:....>..INST|
00000590  3a ef 32 33 3b 38 32 30  32 3b 30 3b 30 3b 30 3b  |:.23;8202;0;0;0;|
000005a0  31 39 2c 31 2c 36 2c 30  2c 30 2c 30 3a f1 8a 31  |19,1,6,0,0,0:..1|
000005b0  32 2c 32 29 3b 22 50 45  52 43 59 20 50 45 4e 47  |2,2);"PERCY PENG|
000005c0  55 49 4e 22 0d 01 c2 a3  f1 27 27 22 50 45 52 43  |UIN".....''"PERC|
000005d0  59 20 69 73 20 74 72 61  70 70 65 64 20 69 6e 20  |Y is trapped in |
000005e0  61 6e 20 49 43 45 20 4d  41 5a 45 20 77 68 69 63  |an ICE MAZE whic|
000005f0  68 20 69 73 70 6f 70 75  6c 61 74 65 64 20 62 79  |h ispopulated by|
00000600  20 74 68 65 20 64 65 61  64 6c 79 20 53 4e 4f 2d  | the deadly SNO-|
00000610  42 45 45 53 2e 22 27 22  48 69 73 20 6f 6e 6c 79  |BEES."'"His only|
00000620  20 68 6f 70 65 20 6f 66  20 73 75 72 76 69 76 61  | hope of surviva|
00000630  6c 20 69 73 20 74 6f 20  73 71 75 61 73 68 20 20  |l is to squash  |
00000640  74 68 65 6d 20 62 79 20  68 75 72 6c 69 6e 67 20  |them by hurling |
00000650  74 68 65 20 49 43 45 20  43 55 42 45 53 20 61 74  |the ICE CUBES at|
00000660  20 74 68 65 6d 2e 22 0d  01 cc 54 f1 27 22 55 6e  | them."...T.'"Un|
00000670  66 6f 72 74 75 6e 61 74  65 6c 79 2c 77 68 65 6e  |fortunately,when|
00000680  65 76 65 72 20 69 74 20  61 70 70 65 61 72 73 20  |ever it appears |
00000690  74 68 61 74 20 20 68 65  20 68 61 73 20 77 6f 6e  |that  he has won|
000006a0  2c 61 20 64 65 61 64 6c  69 65 72 20 62 72 65 65  |,a deadlier bree|
000006b0  64 20 61 70 70 65 61 72  73 2e 22 0d 01 d6 29 f1  |d appears."...).|
000006c0  27 22 5a 20 4c 65 66 74  22 27 22 58 20 52 69 67  |'"Z Left"'"X Rig|
000006d0  68 74 22 27 22 2a 20 55  70 22 27 22 3f 20 44 6f  |ht"'"* Up"'"? Do|
000006e0  77 6e 22 27 0d 01 e0 25  f1 8a 31 30 2c 31 34 29  |wn"'...%..10,14)|
000006f0  3b 22 50 72 65 73 73 69  6e 67 20 74 68 65 20 53  |;"Pressing the S|
00000700  50 41 43 45 20 42 41 52  22 0d 01 ea 2a f1 8a 31  |PACE BAR"...*..1|
00000710  30 2c 31 35 29 3b 22 77  69 74 68 20 61 20 64 69  |0,15);"with a di|
00000720  72 65 63 74 69 6f 6e 20  6b 65 79 20 63 61 75 73  |rection key caus|
00000730  65 73 22 0d 01 f4 2a f1  8a 31 30 2c 31 36 29 3b  |es"...*..10,16);|
00000740  22 50 45 52 43 59 20 74  6f 20 70 65 63 6b 20 61  |"PERCY to peck a|
00000750  6e 20 49 43 45 20 42 4c  4f 43 4b 2e 22 0d 01 fe  |n ICE BLOCK."...|
00000760  56 f1 27 22 31 30 30 30  20 70 6f 69 6e 74 73 20  |V.'"1000 points |
00000770  61 6e 64 20 61 6e 20 65  78 74 72 61 20 6c 69 66  |and an extra lif|
00000780  65 20 63 61 6e 20 62 65  20 20 20 20 67 61 69 6e  |e can be    gain|
00000790  65 64 20 62 79 20 6c 69  6e 69 6e 67 20 75 70 20  |ed by lining up |
000007a0  74 68 65 20 44 49 41 4d  4f 4e 44 20 43 55 42 45  |the DIAMOND CUBE|
000007b0  53 2e 22 0d 02 08 25 f1  27 22 50 72 65 73 73 20  |S."...%.'"Press |
000007c0  53 50 41 43 45 20 6f 72  20 46 49 52 45 20 74 6f  |SPACE or FIRE to|
000007d0  20 62 65 67 69 6e 2e 22  0d 02 12 2c f1 27 22 50  | begin."...,.'"P|
000007e0  72 65 73 73 20 45 53 43  41 50 45 20 61 74 20 61  |ress ESCAPE at a|
000007f0  6e 79 20 74 69 6d 65 20  74 6f 20 72 65 73 74 61  |ny time to resta|
00000800  72 74 2e 22 0d 02 1c 05  e1 0d 02 26 5d dc 38 30  |rt.".......&].80|
00000810  2c 34 2c 37 32 2c 34 2c  38 30 2c 31 36 2c 37 32  |,4,72,4,80,16,72|
00000820  2c 33 2c 36 34 2c 33 2c  36 30 2c 33 2c 35 32 2c  |,3,64,3,60,3,52,|
00000830  33 2c 34 38 2c 31 36 2c  35 32 2c 31 36 2c 33 32  |3,48,16,52,16,32|
00000840  2c 34 2c 32 34 2c 34 2c  33 32 2c 31 36 2c 31 32  |,4,24,4,32,16,12|
00000850  2c 38 2c 31 36 2c 38 2c  30 2c 38 2c 34 2c 33 32  |,8,16,8,0,8,4,32|
00000860  2c 2d 31 2c 2d 31 0d 02  30 5a dc 38 2c 31 30 2c  |,-1,-1..0Z.8,10,|
00000870  38 2c 31 30 2c 38 2c 33  2c 31 36 2c 33 2c 32 30  |8,10,8,3,16,3,20|
00000880  2c 33 2c 32 38 2c 31 30  2c 32 38 2c 33 2c 32 30  |,3,28,10,28,3,20|
00000890  2c 33 2c 31 36 2c 33 2c  32 38 2c 33 2c 32 30 2c  |,3,16,3,28,3,20,|
000008a0  33 2c 31 36 2c 33 2c 32  38 2c 33 2c 32 30 2c 33  |3,16,3,28,3,20,3|
000008b0  2c 31 36 2c 33 2c 38 2c  32 30 2c 2d 31 2c 2d 31  |,16,3,8,20,-1,-1|
000008c0  0d 02 3a 35 dc 31 36 2c  34 2c 32 30 2c 34 2c 32  |..:5.16,4,20,4,2|
000008d0  38 2c 38 2c 38 2c 34 2c  31 36 2c 34 2c 32 30 2c  |8,8,8,4,16,4,20,|
000008e0  38 2c 30 2c 38 2c 32 38  2c 38 2c 30 2c 31 36 2c  |8,0,8,28,8,0,16,|
000008f0  2d 31 2c 2d 31 0d 02 3c  0b 20 dc 2d 31 2c 2d 31  |-1,-1..<. .-1,-1|
00000900  0d 02 44 5a dc 32 30 2c  31 32 2c 32 30 2c 33 2c  |..DZ.20,12,20,3,|
00000910  33 32 2c 33 2c 32 38 2c  33 2c 32 30 2c 33 2c 34  |32,3,28,3,20,3,4|
00000920  38 2c 31 32 2c 30 2c 33  2c 31 32 2c 33 2c 38 2c  |8,12,0,3,12,3,8,|
00000930  33 2c 30 2c 33 2c 32 30  2c 31 32 2c 32 30 2c 33  |3,0,3,20,12,20,3|
00000940  2c 33 32 2c 33 2c 32 38  2c 33 2c 32 30 2c 33 2c  |,32,3,28,3,20,3,|
00000950  34 38 2c 31 32 2c 30 2c  31 32 0d 02 45 0a dc 2d  |48,12,0,12..E..-|
00000960  31 2c 2d 31 0d 02 4e 38  dc 34 38 2c 34 2c 35 36  |1,-1..N8.48,4,56|
00000970  2c 34 2c 36 34 2c 34 2c  35 36 2c 34 2c 34 38 2c  |,4,64,4,56,4,48,|
00000980  34 2c 35 36 2c 34 2c 36  34 2c 38 2c 34 38 2c 38  |4,56,4,64,8,48,8|
00000990  2c 34 38 2c 31 36 2c 2d  31 2c 2d 31 0d 02 58 26  |,48,16,-1,-1..X&|
000009a0  dd f2 50 49 43 3a fb 31  33 34 3a db 3a f7 8d 74  |..PIC:.134:.:..t|
000009b0  54 42 3a ef 32 33 3b 38  32 30 32 3b 30 3b 30 3b  |TB:.23;8202;0;0;|
000009c0  30 3b 0d 02 62 22 f3 50  25 2c 58 25 2c 59 25 3a  |0;..b".P%,X%,Y%:|
000009d0  e7 50 25 3d 32 35 35 20  e6 58 25 2c 59 25 3a e5  |.P%=255 .X%,Y%:.|
000009e0  8d 44 62 42 0d 02 6c 0f  e7 50 25 3d 2d 31 e5 8d  |.DbB..l..P%=-1..|
000009f0  74 40 42 0d 02 76 13 f0  50 25 2c 58 25 2c 59 25  |t@B..v..P%,X%,Y%|
00000a00  3a e5 8d 44 62 42 0d 02  80 35 ef 32 38 2c 36 2c  |:..DbB...5.28,6,|
00000a10  35 2c 31 34 2c 31 3a fb  31 32 38 3a db 3a f1 8a  |5,14,1:.128:.:..|
00000a20  31 2c 31 29 3b 22 50 45  52 43 59 27 53 22 3b 8a  |1,1);"PERCY'S";.|
00000a30  32 2c 33 29 3b 22 48 4f  4d 45 22 0d 02 8a 05 e1  |2,3);"HOME".....|
00000a40  0d 02 94 6d dc 32 35 35  2c 30 2c 34 2c 34 2c 2d  |...m.255,0,4,4,-|
00000a50  32 30 30 2c 35 30 30 2c  34 2c 32 30 30 2c 39 30  |200,500,4,200,90|
00000a60  30 2c 38 35 2c 37 30 30  2c 35 35 30 2c 34 2c 31  |0,85,700,550,4,1|
00000a70  30 30 30 2c 35 35 30 2c  34 2c 37 30 30 2c 38 30  |000,550,4,700,80|
00000a80  30 2c 38 35 2c 34 30 30  2c 35 32 30 2c 34 2c 31  |0,85,400,520,4,1|
00000a90  34 30 30 2c 35 30 30 2c  34 2c 38 35 30 2c 35 32  |400,500,4,850,52|
00000aa0  30 2c 38 35 2c 31 31 35  30 2c 39 35 30 0d 02 9e  |0,85,1150,950...|
00000ab0  8a dc 32 35 35 2c 30 2c  30 2c 34 2c 31 35 30 2c  |..255,0,0,4,150,|
00000ac0  35 32 30 2c 34 2c 35 30  30 2c 35 32 30 2c 38 35  |520,4,500,520,85|
00000ad0  2c 32 30 30 2c 37 30 30  2c 34 2c 33 33 30 2c 35  |,200,700,4,330,5|
00000ae0  32 30 2c 34 2c 31 37 30  2c 38 32 30 2c 38 35 2c  |20,4,170,820,85,|
00000af0  35 30 2c 35 32 30 2c 34  2c 37 30 30 2c 37 37 30  |50,520,4,700,770|
00000b00  2c 34 2c 36 35 30 2c 36  32 30 2c 38 35 2c 36 38  |,4,650,620,85,68|
00000b10  30 2c 35 34 30 2c 34 2c  31 31 35 30 2c 39 32 35  |0,540,4,1150,925|
00000b20  2c 34 2c 31 31 39 30 2c  35 32 30 2c 38 35 2c 31  |,4,1190,520,85,1|
00000b30  31 32 30 2c 35 38 30 0d  02 a8 5c dc 32 35 35 2c  |120,580...\.255,|
00000b40  30 2c 34 2c 34 2c 32 35  36 2c 30 2c 34 2c 39 30  |0,4,4,256,0,4,90|
00000b50  30 2c 30 2c 38 35 2c 36  34 30 2c 32 35 36 2c 34  |0,0,85,640,256,4|
00000b60  2c 34 35 30 2c 31 32 38  2c 38 35 2c 34 30 30 2c  |,450,128,85,400,|
00000b70  33 36 30 2c 38 35 2c 37  30 30 2c 35 30 30 2c 34  |360,85,700,500,4|
00000b80  2c 36 30 30 2c 35 35 30  2c 38 35 2c 36 37 30 2c  |,600,550,85,670,|
00000b90  34 35 38 0d 02 b2 75 dc  32 35 35 2c 30 2c 37 2c  |458...u.255,0,7,|
00000ba0  34 2c 32 31 30 2c 30 2c  34 2c 30 2c 30 2c 38 35  |4,210,0,4,0,0,85|
00000bb0  2c 34 34 36 2c 31 35 30  2c 38 35 2c 30 2c 31 36  |,446,150,85,0,16|
00000bc0  30 2c 38 35 2c 33 39 32  2c 33 38 30 2c 38 35 2c  |0,85,392,380,85,|
00000bd0  30 2c 33 38 30 2c 38 35  2c 36 33 38 2c 34 38 37  |0,380,85,638,487|
00000be0  2c 38 35 2c 30 2c 34 38  37 2c 38 35 2c 36 30 30  |,85,0,487,85,600|
00000bf0  2c 35 35 30 2c 38 35 2c  30 2c 35 35 30 2c 38 35  |,550,85,0,550,85|
00000c00  2c 32 30 30 2c 36 30 30  0d 02 bc 70 dc 34 2c 39  |,200,600...p.4,9|
00000c10  33 30 2c 30 2c 34 2c 31  32 38 30 2c 30 2c 38 35  |30,0,4,1280,0,85|
00000c20  2c 36 36 34 2c 32 37 30  2c 38 35 2c 31 32 38 30  |,664,270,85,1280|
00000c30  2c 32 37 30 2c 38 35 2c  35 37 35 2c 33 30 36 2c  |,270,85,575,306,|
00000c40  38 35 2c 31 32 38 30 2c  35 33 30 2c 38 35 2c 37  |85,1280,530,85,7|
00000c50  31 35 2c 35 31 30 2c 38  35 2c 36 30 30 2c 35 35  |15,510,85,600,55|
00000c60  30 2c 38 35 2c 39 30 30  2c 36 32 30 2c 38 35 2c  |0,85,900,620,85,|
00000c70  31 32 30 30 2c 35 33 30  0d 02 c6 0b dc 2d 31 2c  |1200,530.....-1,|
00000c80  30 2c 30 0d 02 d0 33 dd  f2 48 49 3a ef 32 33 3b  |0,0...3..HI:.23;|
00000c90  38 32 30 32 3b 30 3b 30  3b 30 3b 31 39 2c 31 2c  |8202;0;0;0;19,1,|
00000ca0  33 3b 30 3b 3a f1 8a 31  35 2c 32 29 3b 22 54 4f  |3;0;:..15,2);"TO|
00000cb0  44 41 59 27 53 22 0d 02  da 1b f1 27 8a 31 32 29  |DAY'S".....'.12)|
00000cc0  3b 22 42 4c 4f 43 4b 20  42 41 53 48 45 52 53 22  |;"BLOCK BASHERS"|
00000cd0  27 0d 02 e4 0b e3 5a 25  3d 30 b8 37 0d 02 ee 35  |'.....Z%=0.7...5|
00000ce0  f1 27 8a 36 29 3b 5a 25  2b 31 3b 8a 39 29 3b 21  |.'.6);Z%+1;.9);!|
00000cf0  28 26 32 37 38 30 2b 31  36 2a 5a 25 29 3b 8a 31  |(&2780+16*Z%);.1|
00000d00  37 29 3b 24 28 26 32 37  38 34 2b 31 36 2a 5a 25  |7);$(&2784+16*Z%|
00000d10  29 0d 02 f8 05 ed 0d 03  02 05 e1 0d 03 0c 55 f2  |).............U.|
00000d20  54 55 4e 45 28 33 29 3a  eb 35 3a ef 32 33 3b 38  |TUNE(3):.5:.23;8|
00000d30  32 30 32 3b 30 3b 30 3b  30 3b 31 39 2c 33 2c 36  |202;0;0;0;19,3,6|
00000d40  3b 30 3b 3a 58 25 3d 30  3a 59 25 3d 30 3a d6 53  |;0;:X%=0:Y%=0:.S|
00000d50  25 3a f1 8a 35 2c 31 35  29 3b 22 47 41 4d 45 20  |%:..5,15);"GAME |
00000d60  4f 56 45 52 22 3a f2 44  45 4c 3a f2 57 41 49 54  |OVER":.DEL:.WAIT|
00000d70  0d 03 16 77 53 43 25 3d  28 3f 26 42 30 32 20 80  |...wSC%=(?&B02 .|
00000d80  31 35 29 2b 28 31 30 2a  28 3f 26 42 30 32 20 81  |15)+(10*(?&B02 .|
00000d90  20 31 36 29 29 2b 28 31  30 30 2a 28 3f 26 42 30  | 16))+(100*(?&B0|
00000da0  31 20 80 20 31 35 29 29  2b 28 31 30 30 30 2a 28  |1 . 15))+(1000*(|
00000db0  3f 26 42 30 31 20 81 20  31 36 29 29 2b 28 31 30  |?&B01 . 16))+(10|
00000dc0  30 30 30 2a 28 3f 26 42  30 30 20 80 20 31 35 29  |000*(?&B00 . 15)|
00000dd0  29 2b 28 31 30 30 30 30  30 2a 28 3f 26 42 30 30  |)+(100000*(?&B00|
00000de0  20 81 20 31 36 29 29 0d  03 20 1a e7 53 43 25 3c  | . 16)).. ..SC%<|
00000df0  21 26 32 37 46 30 f2 57  41 49 54 3a e5 8d 54 72  |!&27F0.WAIT:..Tr|
00000e00  40 0d 03 2a 24 eb 36 3a  f1 8a 31 31 2c 35 29 3b  |@..*$.6:..11,5);|
00000e10  22 43 4f 4e 47 52 41 54  55 4c 41 54 49 4f 4e 53  |"CONGRATULATIONS|
00000e20  21 21 22 27 27 0d 03 34  2b f1 27 27 22 20 20 20  |!!"''..4+.''"   |
00000e30  20 59 4f 55 52 20 53 43  4f 52 45 20 49 53 20 49  | YOUR SCORE IS I|
00000e40  4e 20 54 48 45 20 54 4f  50 20 45 49 47 48 54 22  |N THE TOP EIGHT"|
00000e50  0d 03 3e 0c f2 54 55 4e  45 28 34 29 0d 03 48 22  |..>..TUNE(4)..H"|
00000e60  f1 27 27 8a 39 29 3b 22  50 4c 45 41 53 45 20 54  |.''.9);"PLEASE T|
00000e70  59 50 45 20 59 4f 55 52  20 4e 41 4d 45 22 0d 03  |YPE YOUR NAME"..|
00000e80  52 23 f1 8a 31 33 2c 31  37 29 3b 22 2e 2e 2e 2e  |R#..13,17);"....|
00000e90  2e 2e 2e 2e 2e 2e 2e 22  3b 8a 31 33 2c 31 37 29  |.......";.13,17)|
00000ea0  3b 0d 03 5c 0b 2a 46 58  31 35 2c 31 0d 03 61 17  |;..\.*FX15,1..a.|
00000eb0  24 26 41 30 30 3d 22 2e  2e 2e 2e 2e 2e 2e 2e 2e  |$&A00=".........|
00000ec0  2e 2e 22 0d 03 66 13 47  3d a5 3a e7 47 3d 31 33  |.."..f.G=.:.G=13|
00000ed0  3a e5 8d 74 58 43 0d 03  70 30 e7 b1 3c 32 34 20  |:..tXC..p0..<24 |
00000ee0  80 20 47 3c 31 32 37 20  80 20 47 3e 33 31 20 ef  |. G<127 . G>31 .|
00000ef0  47 3a 3f 28 26 41 30 30  2b b1 2d 31 34 29 3d 47  |G:?(&A00+.-14)=G|
00000f00  3a e5 8d 44 66 43 0d 03  7a 1c e7 47 3d 31 32 37  |:..DfC..z..G=127|
00000f10  20 80 20 b1 3e 31 33 20  ef 31 32 37 3a e5 8d 44  | . .>13 .127:..D|
00000f20  66 43 0d 03 84 0c ef 37  3a e5 8d 44 66 43 0d 03  |fC.....7:..DfC..|
00000f30  98 0d 41 44 25 3d 26 32  37 38 30 0d 03 a2 1f e7  |..AD%=&2780.....|
00000f40  21 41 44 25 3e 3d 53 43  25 20 41 44 25 3d 41 44  |!AD%>=SC% AD%=AD|
00000f50  25 2b 31 36 3a e5 8d 74  62 43 0d 03 ac 14 e7 41  |%+16:..tbC.....A|
00000f60  44 25 3d 26 32 37 46 30  3a e5 8d 64 4a 43 0d 03  |D%=&27F0:..dJC..|
00000f70  b6 15 e3 41 25 3d 26 32  37 45 30 b8 41 44 25 88  |...A%=&27E0.AD%.|
00000f80  2d 31 36 0d 03 c0 20 41  25 21 31 36 3d 21 41 25  |-16... A%!16=!A%|
00000f90  3a 24 28 41 25 2b 32 30  29 3d 24 28 41 25 2b 34  |:$(A%+20)=$(A%+4|
00000fa0  29 3a ed 0d 03 ca 1b 21  41 44 25 3d 53 43 25 3a  |):.....!AD%=SC%:|
00000fb0  24 28 41 44 25 2b 34 29  3d 24 26 41 30 30 0d 03  |$(AD%+4)=$&A00..|
00000fc0  d4 15 db 3a f2 48 49 3a  f2 57 41 49 54 3a f2 57  |...:.HI:.WAIT:.W|
00000fd0  41 49 54 0d 03 d5 09 e5  8d 54 72 40 0d 03 de 0b  |AIT......Tr@....|
00000fe0  dd a4 53 54 41 52 54 0d  03 df 15 e7 a6 2d 39 39  |..START......-99|
00000ff0  3f 26 42 30 33 3d 30 3a  3d 32 35 35 0d 03 e0 17  |?&B03=0:=255....|
00001000  e7 28 96 30 80 33 29 3f  26 42 30 33 3d 31 3a 3d  |.(.0.3)?&B03=1:=|
00001010  32 35 35 0d 03 e1 06 3d  30 0d ff                 |255....=0..|
0000101b
PERCY.m0
PERCY.m1
PERCY.m2
PERCY.m4
PERCY.m5