🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.sources.hp48
Article #77

v08i017: pentris.fat - Pentris v1.0 - Tetris like game, Part01/02

#77
From: Fatri
Date: Sun, 24 Jan 1993 23:34
522 lines
31630 bytes
Checksum:  217030564 (verify with brik -cv)
Submitted-by: Fatri <fatri@turing.u-strasbg.fr>
Posting-number: Volume 8, Issue 17
Archive-name: pentris.fat/part01

BEGIN_DOC pentris.doc
********************************************************************************

                              Pentris
             

Here is another TETRIS like game.
It is for those who play hours Tetrises without loosing.

The original game has been written by E. de FORAS and L.PEZET.

All I did is change the shapes and put it in a library.

You'll find both versions ( PENTRIS.LIB and TETRIS.LIB ) in this
package.

It is the only ( As far as I know ) Tetris game on the HP48 that allow to start
playing with pieces already on the field.

How to play ?

After the presentation screen, choose the level ( 1-5 then ENTER or just
ENTER for level 1 ), then if you want to play with pieces already on the
field ( press Y/N then ENTER or just ENTER if NO ).

The keys are :

* 4 and 6 : Left and Right
* 5       : Rotate
* 2       : Drop
* 8       : Jump to next level
* +/-     : Toggle sound on/off
* SPC     : Pause

* I want to thank E. de FORAS and L.PEZET for their Tetris game, it was
  my fisrt tetris game on the HP48 and it is still a good one.

Feel free to email me if any comments.

Fatri. ( fatri@turing.u-strasbg.fr )

P.S.: My bests scores are : 221 562 points , 448 lines at TETRIS
                      and :  11 638 points at PENTRIS

Do better ?

********************************************************************************
END_DOC

BEGIN_ASC pentris.asc
%%HP: T(1);
"04B2092240700554E445259435704D3C414000000FC1404214084D3000D9D204
4CF1521A11C432D6E201044D6E201005E1632FD332D9D2047A20CCD20E310013
606DD061B97507142137135818F098BA606FF014713481AF0914234E4A208A26
060E01691527100E717414381AF2914581AF291321428A26060B01691567AFAA
F1D122A95118C9D5F522A8520A81819F122A82C1201B56507146818F29818F29
C9136AF2156090A90B456E002F308200E49BF4BF4BF4AF68AE09AF0AF2AC4810
8087340E68084396840E614313216915472007DD07136142164808CB21309C2A
2898D14563284E2040456494749763272D70E1B20F300040000C2000FFFFFFFF
FFF0999999999990999999999990FFFFFFFFFFF029E204D32004B2A24B2A24B2
A24B2A24B2A23392010000000000000204B2A21C432D6E201016D6E20203736D
6E20200727D6E2020C656D6E2010C6D6E201037D6E2010F6D6E201007D6E2010
17D6E201077D6E2010B6E163247A20E4A20510000000000000000000E4A20510
000000000000000000B21300F2E12CFA2743A2CB9A206FA29C2A2479A245632D
6E2010F69763272D703C0322CFA2339201000000000000810CB9A206FA29C2A2
479A245632D6E2010179763272D7029E204D3300D6E2010F6898D19C2A2898D1
E4A20510004060000000000000E4A2051000000000000000000029E204D34002
9E204D3300D6E201017898D19C2A2898D1E4A20510004060000000000000E4A2
051000F99F00000000000029E204D340029E204D3300D6E2010F6898D19C2A28
813045632D6E2010079763272D70898D1E4A2051000B0000000000000009C2A2
EE2C13C0323CE229C2A2973C1AFE22D9D209C2A2D6E20200727301323CE22378
A1AFE22D9D203CE2247A20339201000000000000270339201000000000000470
3392010000000000003803392010000000000003603392010000000000004903
39201000000000000250339201000000000000370B2130322300FAC188130AFE
22D9D2047A20D9D20E1632E4A205100010000000000000003CE3529E204D3500
93632B2130D9D20E1632E4A2051000100000000000000029E204D350093632B2
130D9D20E16329C2A2D82C193632B2130D9D20E16323CE22D6E2020C656D13A2
04CE1AFE22D9D2045632D6E2020C656976320890229E204D360045632D6E2020
07279763272D7045632D6E202037369763272D70B21305DF2293632B2130D9D2
011920A00001192011000C2A20F0000051455355408F1182CF40B821171934B2
A2F17A13CE22339201000000000001550167E1AFE22D9D201C432D6E201014D6
E201024E16322743244CF145632D6E20104497632DCC02D6E201014D6E201024
EF53247A20E4A20510000000000000000000E4A20510000000000000000000B2
1300F2E1171934B2A2F17A144230B21305DF2211920A00001192011000C2A20F
0000020202020208F1182CF40B821B2130D9D2011920560001192011000D9D20
3CE2233920100000000000065978BF1063C1AFE22D9D20472C1C2A2011000020
202020202B21305BF22D9D205D2C1C2A20F000035F455E444B21305DF22B2130
08F1182CF40B82117193B2130D9D20E1632CA130E4A205100000000000000000
0029E204D340029E204D3300D6E2010F6898D1D6E2010079C2A2189A23CE2288
1304B2A2E7DE1AFE22D9D2044230881308B9C1B21305DF22881301C432D6E203
0F43523E1632898D132230CA130E4A205100000000000000000000AE3584E204
0456494743CE22E4A20510000000000000000000167E1AFE22D9D20592304423
0D6E2030F4352345632D6E2010079763272D70B21305BF22D9D203223044230B
21305DF22CA130E4A2051000F99F00000000000029E204D3400EF53293632B21
30B213032230898D1ABE81B21305BF22442305DF22B21305DF22C4232B21305D
F22CA130E4A2051000000000000000000029E204D3400E4A2051000001000000
00000000AE35CA130E4A205100000000000000000000AE3584E2040456494743
CE22E4A20510000000000000000000167E1AFE22D9D20CA130E4A2051000F99F
00000000000029E204D3400B21305BF22D9D20E4A20510000010000000000000
0BE358813045632D6E2010B69763272D70E4A2051000F99F00000000000029E2
04D3400E4A20510000000000000000000B21305DF22DE03288130E4A20510000
000000000000000167E19B632339202000000000000050339208990000000000
030A5141FD332D9D20E4A20510000000000000000000933A1B2130F1732D9D20
B21305DF2224F50339201000000000000010D6E20203736CB9A2D6E2010B619D
35D5345803A2CB9A2189A2D6E201037479A245632D6E2010379763272D70D6E2
0101745632D6E2010F69763272D7044230E4A2051000A0D00000000000003C03
28813088130E4A2051000501401301201101032230CA130E4A20510000000000
0000000000AE3584E2040456494745923059230E4A2051000500000000000000
00AE3584E2040456494740AE3559230E4A2051000101000000000000032230E4
A2051000A0000000000000000AE3584E2040456494740AE353CE22E4A2051000
6000000000000000167E1AFE22D9D20339201000000000000010D6E20203736C
B9A2D6E201037479A245632D6E2010379763272D7045632D6E2010C697632089
023CE22D6E201077D1EE1D6E2020C656D13A204CE1387E1AFE22D9D203392010
00000000000020D6E201077479A245632D6E2010779763272D7045632D6E2020
C656976320890229E204D360045632D6E202007279763272D7045632D6E20203
7369763272D70B21305DF2288130E4A205100000F0000000000000387E119D35
E4A205100040000000000000003DE35E4A205100030000000000000000AE3588
130E4A2051000C200000000000000322309B136634E13223047A20E4A2051000
7500000000000000E4A20510008000000000000000B2130C58C132230E4A2051
00010000000000000000AE35E4A2051000C200000000000000322309B136D6E2
010169C2A23F2A230132CA130634E11192030000E93304E4E133920200000000
0000050339208990000000000030A5141C4232442304423011920C200011920C
0000592300B82111920060001192080000D6E2010C613B51ED2A2DA5E10B821B
21305BF22D9D20E4A205100000100000000000000BE35B21305DF22DE0328813
0E4A2051000002000000000000004CE19B6324423011920200001192080000D6
E20103713B51ED2A2DA5E10B821DE032634E147A20E4A2051000C20000000000
0000E4A2051000E000000000000000B213047A20E4A205100075000000000000
00E4A2051000E000000000000000B2130C58C1E1B20B100010000C2000000000
000000D9AE19B6324563284E20404564947497632EFE024B2A245632D6E20100
79763272D703392010000000000006503392010000000000004100A132D6E201
09611920C2000D6E201096AEC81D6E2010160B821339201000000000000050D6
E201096CB9A2339208990000000000010A51415C3A20833211920E2000119206
0000C2A20710007414D45402F465542508F110B821ED2A2F17A1339201000000
000000559EE2C1FD332D9D204563284E20503534F425549763204B02B2130F17
32D9D2029E204D3100B21305DF2244230C06B484E20503534F425549C2A2898D
1ED2A2173A20A132D6E20109684E20503534F42554D6E201096898D1881303CE
22ED2A2898D162BC1D6E201037E7DE1D6E2010074B2A2167E1387E1AFE22D9D2
0C2A20370000265F6573702166756A702661696470257E60226F6E6A03736F62
7560267565796C6C656A70256E647275627A00267F647275602E6F6D647A20C2
A205000084E2010C8B2130AC422D6E20103713B51D6E2010C613B51119203000
09545032230D6E20109645632D6E2010079763272D70B21305DF22C42323CE22
D6E2010079C2A2D1EE1AFE22442305DF221192090000954504563284E2050353
4F4255472D7047A20E4A20510000000000000000000E4A205100000000000000
00000B21300F2E111920000008813084E20503534F425549C2A2898D10B82111
9200000011920E0000119202800011920E00008570511920F300088130881301
1920700008570511920B600011920F300011920B600011920700008570511920
000001192070000119200000011920F300085705119202800011920F30001192
028000119207000085705ED2A2173A20A132D6E2010963CE22D6E201096D6E20
1007167E1AFE22D9D201192010000233A2D6E201096CB9A2803A2479A2AEC81E
1B209100050000800000206CF06020B821B21305DF2211920A0000233A2D6E20
1096CB9A2803A2479A2AEC8184E20503534F42554D6E201096898D19C2A2898D
108F110B821C4232ED2A2173A20A132D6E2010961192064000233A2D6E201096
CB9A2803A2479A2AEC8184E20503534F42554D6E201096898D1ED2A2898D108F
110B821C4232ED2A2173A20A132D6E2010961192007000233A2D6E201096CB9A
2803A2479A2AEC8184E20503534F42554D6E201096898D13F2A2898D108F110B
821C4232171934B2A2F17A178BF13FBF1EF532B2130F1732D9D2044CF1D6E201
04490DA146CF14563284E204045649474EFE02D6E201005EB3A1883A1933A1B2
1305DF22D6E201005EB3A1634E1EFE02EF532B213084D3100D9D20C848129D80
47A20E1B209C100D000038000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF70FFFFF
FFFD13F555C77157745ECFFFFFF70FFFFFFFFDDDF55DE72D577755FFFFFFF70F
FFFFFFFD1BF15DE75157745EEFFFFFF70FFFFFFFFDD7F55DE77D57775DDFFFFF
F70FFFFFFFF119F51DE771544445EFFFFFF70FFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFF700000000000000000000000000000000000004AB80000000000089DDC1
0000015A30000CAAD00000000000444550000001DA00000CBAA0000000000084
4DC1000001DB300004BA8000000000000545500000015B000004AB8000000000
00C8D5D10000075A30047A20C2A2070000F5C2A207000003C2A207000003B213
047A20C2A2070000F5C2A207000003C2A207000003B213047A20C2A2070000F5
C2A207000003C2A207000003B213047A20C2A2070000F5C2A207000003C2A207
000003B213047A20C2A2070000F5C2A207000003C2A207000003B213047A20C2
A2070000F5C2A207000003C2A207000003B213047A20C2A2070000F5C2A20700
0003C2A207000003B213047A20C2A2070000F5C2A207000003C2A207000003B2
130B213079E6084E20503534F4255469680ABE81B2130D9D20634E147A20E4A2
0510000000000000000000E4A20510000000000000000000B213029E204D3700
9C2A2898D1AE8C1634E147A20E4A20510003000000000000000E4A2051000520
0000000000000B213047A20E4A20510006200000000000000E4A2051000D3000
00000000000B2130C58C1634E147A20E4A2051000D500000000000000E4A2051
0005200000000000000B213047A20E4A2051000F700000000000000E4A205100
0D300000000000000B2130C58C14B2A29C2A24B2A21C432D6E201067D6E20107
7D6E201036D6E201046D6E201056E1632C06B447A20E4A205100000000000000
00000E4A20510000000000000000000B21300F2E1743A24A5A1ED2A2973C1AFE
22D9D2030040FEF30C2A2054000D4F48414D4544402641445259402072756375
6E6475602C2024672160727563708F110B821F304053040C2A20140004554452
5943502445402C4E20554A5544502620254E244540264F425143508F110B8213
392010000000000004103392010000000000007300A132D6E2010A6119202400
0D6E2010A6AEC81D6E2010770B82111920E1000D6E2010A6AEC81D6E2010670B
821339202000000000000050339207990000000000030A5141C4232ED2A23392
010000000000008200A132D6E2010A6339201000000000000130D6E2010A6189
A2AEC811192052000D6E2010670B821339201000000000000560D6E2010A6479
A2AEC811192052000D6E2010770B821339202000000000000080339207990000
000000030A5141C4232B21305DF2229E204D3700ED2A2898D145632D6E201077
72D70119207000088130F851182CF445632D6E20106772D7011920E200011920
61000D6E2010770B821634E147A20E4A2051000F200000000000000E4A205100
0E100000000000000B2130D6E2010674E4E13C0324B2A2F17A145632D6E20103
672D703CE22D6E201036339201000000000001150D9AE1AFE22D9D20D8732D9D
20D6E201036339201000000000001380167E18A732D9D2047A20E4A205100073
00000000000000E4A2051000E100000000000000B2130ED2A2B21305DF22D6E2
01036339201000000000001480167E18A732D9D2047A20E4A2051000F3000000
00000000E4A2051000E100000000000000B21303F2A2B21305DF22D6E2010363
39201000000000001270167E18A732D9D2047A20E4A205100074000000000000
00E4A2051000E100000000000000B2130803A2B21305DF22D6E2010363392010
00000000001370167E18A732D9D2047A20E4A2051000F400000000000000E4A2
051000E100000000000000B2130D13A2B21305DF2247A20E4A2051000F200000
000000000E4A2051000E100000000000000B21309C2A2B21305DF2245632D6E2
010469763272D7011920E20001192061000D6E2010770B821634E132230D6E20
10674E4E1B21305DF22D6E201036339201000000000001150167E19B63211920
7000011920F0000F851182CF445632D6E20106772D70634E147A20E4A2051000
3300000000000000E4A2051000F200000000000000B2130D6E2010674E4E13C0
324B2A2F17A145632D6E20103672D70D6E201036339201000000000001150D9A
E1AFE22D9D203CE22D6E201036339201000000000001250167E1AFE22D9D2047
A20E4A20510003400000000000000E4A2051000F200000000000000B21309C2A
2B21305BF22D9D2047A20E4A20510003300000000000000E4A2051000F200000
000000000B21304B2A2B21305DF2245632D6E2010569763272D7011920E20001
192061000D6E2010770B821634E132230D6E2010674E4E1B21305DF22DE032D6
E201036339201000000000001150167E19B63211920000008813029E204D3700
9C2A2898D10B821339201000000000000659973C1AFE22D9D201192056000119
2011000C2A20F000035F455E44408F1182CF40B821B21305DF22D6E2010569C2
A2167E1AFE22D9D203392010000000000006303392010000000000006500A132
D6E2010963392010000000000004403392010000000000004800A132D6E2010A
62CFA2803A2CB9A206FA23CE229C2A2167E1AFE22D9D20D6E2010A6AEC81D6E2
01096AEC81E1B20710004000040000F09090F00B821B21305DF22803A2083328
03A208332B21305DF22D6E20104629E204D3600D6E201046EF532B213047A204
7A20E4A20510003014024014005010B213047A20E4A205100040230240130130
00E4A20510004023025014013010E4A20510004034023024013010E4A2051000
4023022024013010B213047A20E4A20510004023023012012000E4A205100020
23012014003000E4A20510004024013013002000E4A205100030220240130140
00B213047A20E4A20510004023022024014000E4A20510004023022022012000
E4A20510002022014003002000E4A20510004024014003002000B213047A20E4
A20510004023022024012010E4A20510003022022013002000E4A20510004012
014003002000E4A20510004023024014003000B213047A20E4A2051000302202
3014003000E4A20510004024013012012000B213047A20E4A205100040230230
13002000E4A20510002024013012014000B213047A20E4A20510004044034024
014000E4A20510005034033032031030B213047A20E4A2051000403303302301
3000E4A20510002025014013012010E4A20510004034024014003000E4A20510
005024023022025010B213047A20E4A20510004033034024014000E4A2051000
5024023022022010E4A20510003033023014003000E4A2051000502501401301
2010B213047A20E4A20510003033023012012000E4A205100040230220250140
10E4A20510004034023023013000E4A20510003022025014013010B213047A20
E4A20510003033024013014000E4A20510005024024013012010E4A205100030
34023024014000E4A20510005024023023012010B213047A20E4A20510003023
014003002000E4A20510004024013012014000E4A20510004023022023013000
E4A20510002024013012012000B213047A20E4A20510004023024013014000E4
A20510005024023024013010E4A20510003034023024013010E4A20510004023
024013012010B213047A20E4A20510003024013012012000E4A2051000302301
2014003000E4A20510004024013012013000E4A20510003022024013013000B2
13047A20E4A20510003024013012014000E4A20510004023023012013000E4A2
0510002024013012013000E4A20510003024013013002000B213047A20E4A205
10004034023024014000E4A20510005024023022023010E4A205100030330240
13013000E4A20510004025014013012010B213047A20E4A20510004034024013
014000E4A20510005024023022024010E4A20510003034023023013000E4A205
10003025014013012010B2130B2130CCD204410034E7507137143818F8E1358B
E60691117E818F328FB97601CE1B56507146134152739E1B20F8800299169120
14313234E4A201428A2606EB016915271011741431321428A63E169152710017
41431321428A68C1691567AFAAF122A95118C9AF5BF522A8520A8181D22A82C1
201B56507146818F29818F29C9134119BF2BF2241542BF616F16F1610D880BEB
F4BF4BF4AF68AA60688F208F2D760142164808CD9D201C432D6E20203444CA13
0E4A2051000000000000000000029E204D3400D6E202034440AE35CA130E4A20
5100000000000000000000AE3584E2040456494743CE22E4A205100000000000
00000000D9AE1AFE22D9D20D6E202034440BE35B21305DF22CA130E4A2051000
F99F00000000000029E204D3400EF532B2130D9D204B2A24B2A21C432D6E2020
C656D6E201057D6E201067E163211920460001192022000D6E2020C65613B51E
D2A2DA5E10B821634E147A20E4A2051000B200000000000000E4A20510001000
000000000000B213047A20E4A20510008500000000000000E4A2051000F30000
0000000000B2130C58C145632D6E20105772D70C2A203100002C4546554C402D
6E2020C65613B5176BA108F1145632D6E20106772D7033920100000000000045
0D13A20A132D6E2010961192003000D6E201096AEC81D6E2010670B821683A20
83323392099900000000000505B7A111920B20001192010000D6E2010570B821
D8732D9D20D6E2020C656ED2A2167E18A732D9D2033920100000000000001033
9201000000000000010B21305DF22D6E2020C6563F2A2167E18A732D9D203392
01000000000000210C53A2B21305DF22D6E2020C656803A2167E18A732D9D203
39201000000000000410D13A2B21305DF22D6E2020C656D13A2167E18A732D9D
203392010000000000006103F2A2B21305DF22C53A2339201000000000000410
B21305DF22EF532B213047A20E1B20F88000400038000FFFFFFFFFF100000000
0008FFFFFFFFF701000000000300000000000C000000000401089DDC10050000
0000000A00882D91040104445500090000000000090088654004010844DC1009
0000000000090088ED90040100545500090000000000090088A50104010C8D5D
1009000000000009008B2DD00401000000000900000000000900000000040930
000000090000000000090E000000040540000000090000000000090110000004
0560000000090000000000090910000004055000000009000000000009051000
00040D4000000009000000000009031000000405400000000900000000000901
100000040930000000090000000000090E000000040100000000090000000000
0900000000040FFFFFFFFFF9000000000009FFFFFFFFF70FFFFFFFFFF9000000
000009FFFFFFFFF70FFFFFFFFFF9000000000009FFFFFFFFF70FFFFFFFFFF900
0000000009FFFFFFFFF70FFFFFFFFFF9000000000009FFFFFFFFF70FFFFFFFFF
F9000000000009FFFFFFFFF70FFFFFFFFFF9000000000009FFFFFFFFF7010000
0000090000000000090000000004010000000009000000000009000000000401
0000000009000000000009000000000401000000000900000000000900000000
040100000000090000000000090000000004014ABA3000090000000000090175
71000401CA82100009000000000009011511000401CB31100009000000000009
0175710004014B821000090000000000090112110004014AB210000900000000
0009077277000401000000000900000000000900000000040100000000090000
0000000900000000040100000000090000000000090000000004010000000009
0000000000090000000004010000000009000000000009000000000409FF7000
000900000000000900000CFFF401FFF100000900000000000900000EFFF40170
C300000900000000000900000E00C40170070000090000000000090000060084
0170060000090000000000090000060004017006000009000000000009000006
0004017006000009000000000009000006000401700600000900000000000900
0006000401700700000900000000000900000600040170C30000090000000000
0900000E000401FFF100000900000000000900000EFF7401FF70000009000000
00000900000CFFF401700000000900000000000900000000F401700000000900
000000000900000000E401700000000900000000000900000000E4017CF997CF
390000000000098F1F3000E4017C89DFC639000000000009C81E1000E4017C09
7E4629000000000009481C0000E4017C083C0609000000000009C81C0000E401
7CF81C06090000000000098F1C0000E4017C081C06090000000000090A1C0200
E4017C091C06090000000000090B1C0600F4017C891C0609FFFFFFFFFFF9891E
1EFFF409FCF93C1F0500000000000ACC1F3EFF7401000000000300000000000C
00000000040FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF70E1B20B9100120009200
00088BAB0000000888A8000000088BAB00000008809800000008B39B30000000
000000000000000000000FFFFFFFFFF101010101010109193939293101112129
29010119393939310119012121210939393129310101010101010FFFFFFFFFF1
000000000000000000000000000AE2757000000A2A052000000EEA672000000A
2A452000000AE275200000000000000000FFFFFFFF100010001000100012D19A
33100016519A8010001E51193110001A511902100012D119B110001000100010
00FFFFFFFF100B2130D9D20119204D30090770B2130E4A208800000000000000
00000000000000C3000840000000000000000000000000000000000000000000
000009200060255435544502100700554E4452594350003100092000E4A20D20
0083EBFAA8DF12CDF968EF88FEFCC0FF5C1FFFE4FF2DAAB59C"
END_ASC


BYTES: #C95Bh 8471

BEGIN_UU pentris.uue
begin 644 pentris.lib
M2%!(4#0X+45`*Y`B!`=014Y44DE3!]3#%`0``/`<!"1!@-0#`)TM0,0?):$1
M3"-M+A!`U.8"`5`>-O(](YTM0*<"S"W@$P`Q!M8-%IM7<$$2<S&%@0^)JP;V
M#T$70QCZD$$RY*0"J&)@X!"647(!X!='08.A+QE4&/J2,1(DJ&)@L!"647;Z
MJA\=(IH5@9Q=7R**):`8&/DAHB@<`K%E!1=D&/B2&/B2G#&F+U$&"9JP5.8`
M\@,H`$ZY3_NT3_J&ZI#ZH"_*A`$(>$/@AH`T:4C@%C0Q$I91=`)PW7`Q%B1A
MA("\$@/)HH*)'50V@N0"!%1&24=Y-G+2!QXK\`,`!`#``@#______P^9F9F9
MF0F9F9F9F0G______P^2+D`]`D`K*K2B0BLJM*)"*RHS*1`````````@0"LJ
MP332Y@(!86TN(#`WUN8"`G!R;2X@P%;6Y@(!;&TN$##7Y@(!;VTN$`#7Y@(!
M<6TN$'#7Y@(!:QXV0J<"3BI0`0```````````$XJ4`$````````````K,0`O
M'L*O<C0JO*D"]BK)HD*7*E0VTN8"`6]Y-G+2!\,P(OPJ,RD0````````&,";
M*F"ODBPJ=*E"92-M+A`0EV<C)WT@Z0+4,P!M+A#PAHD=R:*"B1U.*E`!``0&
M````````3BI0`0```````````)(N0#T$(.D"U#,`;2X0$(>)'<FB@HD=3BI0
M`0`$!@```````$XJ4`$`G_D```````"2+D`]!"#I`M0S`&TN$/"&B1W)HH(8
M`U0VTN8"`7!Y-G+2!YC8X:0"%0"P`````````)`L*N[",0PCPRZ2+"IYPZ'O
M(ITMD"PJ;2X@`"<W$"/#+C*'&OHNTMD"PRY"IP(S*1````````!R,),"`0``
M````0`<S*1````````"#,),"`0``````,`8S*1````````"4,),"`0``````
M(`4S*1````````!SL!(#(S(`KQR(,:#O(ITM0*<"G2W@82-.*E`!``$`````
M````PSXEZ0+44P`Y-K(2`YTMX&$C3BI0`0`!`````````)(N0#T%D&,C*S'0
MV0(>-I(L*HW"D6,C*S'0V0(>-C+L(FTN(,!6UC$J0.RA[R*=+4!E(VTN(,!6
MEF<C@`DBZ0+48P!4-M+F`@)P<GDV<M('5#;2Y@("<V-Y-G+2!RLQ4/TB.3:R
M$@.=+1"1`@H`$)$"$0#`H@(/```55#55!/@1*/P$BQ)QD4,K*A^G,>PB,RD0
M```````051!V'OHNTMD"P332Y@(!06TN$"#D82-R-$+$'U0VTN8"`41Y-M+,
M(&TN$!#4Y@(!0OXU0J<"3BI0`0```````````$XJ4`$````````````K,0`O
M'G&10RLJ'Z=!)`,K,5#](A$IH```$2D0`0`L*O```"`@("`@@!^!PD^P*+$2
M`YTM$)$"90`0D0(1`-#9`L,N,I,"`0``````8)6'^P$V'/HNTMD"=,+!H@(1
M```"`@("`K(2`[4OTMD"U<+!H@(/`##U5.5$M!(#U2^R$@.`'X'"3[`H$1<Y
M*S'0V0(>-L(:`TXJ4`$```````````"2+D`]!"#I`M0S`&TN$/"&B1UM+A``
MERPJ@:DR["*(,4`K*G[MH>\BG2U`)`.(,8";'"LQ4/TBB#$03"-M+C#P-"7C
M82.8V#$B`ZPQX*0"%0````````````#J4T@N0$!EE'0T[").*E`!````````
M````8>>A[R*=+5`I`T0RT.8"`T]3,E0VTN8"`7!Y-G+2!RLQ4/LBG2TP(@-$
M,K`2`]4OPAH#3BI0`0"?^0```````)(N0#T$X%\C.3:R$@,K,3`B`YC8H>L8
M*S%0^R)$,E#](BLQ4/TB3#*R$@/5+\(:`TXJ4`$```````````"2+D`]!."D
M`A4``!``````````ZE.L,>"D`A4`````````````ZE-(+D!`991T-.PB3BI0
M`0```````````&'GH>\BG2W`&@-.*E`!`)_Y````````DBY`/02P$@.U+]+9
M`DXJ4`$```$```````"P/H48`U0VTN8"`6MY-G+2!TXJ4`$`G_D```````"2
M+D`]!."D`A4```````````"P$@/5+](.(X@QX*0"%0```````````!!V'KDV
M,I,"`@````````4S*8"9```````PH!44WS/2V0).*E`!````````````.:.Q
M$@,?-]+9`BLQ4/TB0E\PDP(!`````````6TN(#`WQILJ;2X0L!;94UU#A3`J
MO*D2F"IM+A`P1Y<J5#;2Y@(!<WDV<M(';2X0$$=E(VTN$/"69R,G?4`D`TXJ
M4`$`"@T```````##,((8`X@QX*0"%0!0$`0Q$`(1$#`B`ZPQX*0"%0``````
M``````#J4T@N0$!EE'14*0.5,N"D`A4`4```````````ZE-(+D!`991T!.I3
ME3+@I`(5`!`0````````,"(#3BI0`0`*`````````*`^A>0"!%1&24>@/C7L
M(DXJ4`$`!@````````!AYZ'O(ITM,),"`0````````%M+B`P-\:;*FTN$#!'
MERI4-M+F`@%S>39RT@=4-M+F`@%L>38"F"##+M+F`@%W'>[1Y@(";&4=HP+$
M'H/GH>\BG2TPDP(!`````````FTN$'!'ERI4-M+F`@%W>39RT@=4-M+F`@)L
M97DV`I@@DBY`/09`92-M+B``)Y=G(R=]0&4C;2X@,#>69R,G?;`2`]4O@A@#
M3BI0`0``#P```````(/G$=E33BI0`0`$`````````-,^Y:0"%0`P````````
M``#J4X@QX*0"%0#``@```````#`B`[DQ9D,>(S)`IP).*E`!`%<`````````
M3BI0`0`(`````````"LQP(4<(S+@I`(5`!```````````.I33BI0`0`L````
M`````",RD!MC;2X0$)8L*O.B,A`CK#%@0QX1*3```)XS0$X>,RD@````````
M4#"3`I@)```````#6D'!)"-$,D`D`Q$IP`(`$2G```"5,@"+$A$I``8`$2F`
M``!M+A#`%K,5WJ+26AZP*+$2`[4OTMD"3BI0`0```0```````+`^M1(#U2_2
M#B.(,>"D`A4``"``````````Q!ZY-D(D`Q$I(```$2F```!M+A`P%[,5WJ+2
M6AZP*-$.(S;D0:<"3BI0`0`L`````````$XJ4`$`#@`````````K,4"G`DXJ
M4`$`5P````````!.*E`!``X`````````*S'`A1P>*[`!``$`P`(`````````
MG>J1:R-4-H+D`@141DE'>3;B[R"THD)E(VTN$`"79R,G?3"3`@$``````&`%
M,RD0````````%``:(VTN$)`6D0(L`-#F`@%IZHS1Y@(!8;`H,9,"`0``````
M``5M+A"0QILJ,RF`F0``````$*`5%,6C`C@C$2G@`@`1*6```"PJ<`$`1T%-
M12!/5D52@!\!BQ+>HO)Q&C,I$````````%7I+AS?,]+9`E0V@N0"!5-#3U)%
M>38"M"`K,?!Q(YTM(.D"U!,`*S%0_2)$,L!@2T@N4#`U]"15E"PJF-CA+2IQ
MHP(:(VTN$)"&Y`(%4T-/4D5M+A"0AHD=B#$P["+>HH*)'2;+T>8"`7-^[='F
M`@%PM*(2=AZ#YZ'O(ITMP*("<P``8O56-P<29E>F!V(6ED8'4N<&(O;FIC`W
M]B97!F)75I?&QE:F!U+F1B=7)J<`8O=&)U<&XO;61J<"+"I0``!(+A#`N!(#
MRB32Y@(!<S%;T>8"`6PQ6Q&1`@,`D$4%(S+0Y@(!:50VTN8"`7!Y-G+2!RLQ
M4/TB3#(R[")M+A``ERPJ'>ZA[R)$,E#](A$ID```651`92-(+E`P-?0D5732
M!W0JX*0"%0```````````."D`A4```````````"P$@/PXA&1`@``@!@#2"Y0
M,#7T)%64+"J8V`&+$A$I````$2G@```1*2`(`!$IX```6`<5D0(_`(`8`X@Q
M$)$"!P"`=5`1*;`&`!$I\`,`$2FP!@`1*7```%@'%9$"```0D0('`!"1`@``
M$)$"/P"`=5`1*2`(`!$I\`,`$2D@"``1*7```%@'Y2TJ<:,"&B-M+A"0-NPB
M;2X0D-;F`@%P8>>A[R*=+1"1`@$`(#,J;2X0D,:;*@BC0I<JZHSAL0(9`%``
M``@```+&#P8"BQ(K,5#](A$IH```,J/2Y@(!:;RI@C`J=*FBSAA(+E`P-?0D
M5=3F`@%IF-B1+"J8V`'X$;`HP20CWJ(2-RJ@,=+F`@%I$2E@!``RH]+F`@%I
MO*F","ITJ:+.&$@N4#`U]"15U.8"`6F8V.$M*IC8`?@1L"C!)"/>HA(W*J`Q
MTN8"`6D1*0`'`#*CTN8"`6F\J8(P*G2IHLX82"Y0,#7T)%74Y@(!:9C8,2\J
MF-@!^!&P*,$D(W&10RLJ'Z=QN!_S^^%?(RLQ\'$CG2U`Q!]M+A!`E-`:9/Q!
M92-(+D!`991TY.\@;2X0`.4[&HBCD3,:*S%0_2)M+A``Y3L:-N3A[R#^-;(2
M`T@]`=#9`HR$(=D(="K@L0+)`=```(,`\/___________________W_P____
MWS%?57P7=4?E_/__?_#____?W5_5?M)U=U7___]_\/___]^Q']5^%75'Y?[_
M_W_P____WWU?U7[7=7?5_?__?_#___\?D5_1?A=%1%3^__]_\/__________
M_________W\```````````````````````!`N@@``````)C='```$*4#`,"J
M#0``````1%0%```0K0``P*L*``````!(U!P``!"]`P!`JP@``````%!4!0``
M$+4``$"Z"```````C%T=``!PI0-`IP(L*G```%\L*G```#`L*G```#`K,4"G
M`BPJ<```7RPJ<```,"PJ<```,"LQ0*<"+"IP``!?+"IP```P+"IP```P*S%`
MIP(L*G```%\L*G```#`L*G```#`K,4"G`BPJ<```7RPJ<```,"PJ<```,"LQ
M0*<"+"IP``!?+"IP```P+"IP```P*S%`IP(L*G```%\L*G```#`L*G```#`K
M,4"G`BPJ<```7RPJ<```,"PJ<```,"LQL!(#EVZ`Y`(%4T-/4D66AJ#K&"LQ
MT-D"-N1!IP).*E`!````````````3BI0`0```````````"LQ(.D"U',`R:*"
MB1WJR&%#'G0JX*0"%0`P`````````."D`A4`4`(```````"P$@-T*N"D`A4`
M8`(```````#@I`(5`-`#````````L!(#7,AA0QYT*N"D`A4`T`4```````#@
MI`(5`%`"````````L!(#="K@I`(5`/`'````````X*0"%0#0`P```````+`2
M`US(02LJR:)"*RK!--+F`@%V;2X0<-?F`@%C;2X00-;F`@%E'C;"8$MT*N"D
M`A4```````````#@I`(5````````````L!(#\.)Q-"JDI>$M*GG#H>\BG2TP
M``3O/\"B`D4`T/2$%-141`1B%$0EE00")U<V5^9&5P;"`D)V$@8G5S8'^!&P
M*/$#!#5`P*("00!`540EE30%0E0$PN0"5:151`5B`E+D0E0$8O0D%30%^!&P
M*#&3`@$``````$`!,RD0````````-P`:(VTN$*`6D0)"`-#F`@%JZHS1Y@(!
M=[`H$9$"'@#0Y@(!:NJ,T>8"`7:P*#&3`@(````````%,REPF0``````,*`5
M%$PRXBTJ,RD0````````*``:(VTN$*`VDP(!```````0`VTN$*`6F"KJC!&1
M`B4`T.8"`7:P*#&3`@$``````%`&;2X0H$:7*NJ,$9$")0#0Y@(!=[`H,9,"
M`@````````@S*7"9```````PH!443#*R$@/5+R+I`M1S`-ZB@HD=5#;2Y@(!
M=R=]$)$"!P"`&`./%8'"3U0VTN8"`78G?1"1`BX`$)$"%@#0Y@(!=[`H84,>
M="K@I`(5`/`"````````X*0"%0#@`0```````+`2`VTN$&!'3A[#,$(K*A^G
M064C;2X0,';2!\,NTN8"`6,S*1```````!!1T*D>^B[2V0*--]+9`FTN$#`V
MDP(!```````Q"&'G@7HCG2U`IP).*E`!`#<`````````3BI0`0`>````````
M`"LQX"TJ*S%0_2)M+A`P-I,"`0``````00AAYX%Z(YTM0*<"3BI0`0`_````
M`````$XJ4`$`'@`````````K,3`O*BLQ4/TB;2X0,#:3`@$``````"$'8>>!
M>B.=+4"G`DXJ4`$`1P````````!.*E`!`!X`````````*S&`,"HK,5#](FTN
M$#`VDP(!```````Q!V'G@7HCG2U`IP).*E`!`$\`````````3BI0`0`>````
M`````"LQT#$J*S%0_2)T*N"D`A4`\`(```````#@I`(5`.`!````````L!(#
MR:*R$@/5+T)E(VTN$$"69R,G?1"1`BX`$)$"%@#0Y@(!=[`H84,>(S+0Y@(!
M=N3DL1(#U2_2Y@(!8S,I$```````$%$0=AZY-A*1`@<`$)$"#P#P6!$H_$1E
M(VTN$&!WT@<VY$&G`DXJ4`$`,P````````!.*E`!`"\`````````*S'0Y@(!
M=N3D,0PCM*+R<1I4-M+F`@%C)WW0Y@(!8S,I$```````$%'0J1[Z+M+9`L,N
MTN8"`6,S*1```````!!2$'8>^B[2V0)T*N"D`A4`,`0```````#@I`(5`/`"
M````````L!(#R:*R$@.U+]+9`G0JX*0"%0`P`P```````."D`A4`\`(`````
M``"P$@.THK(2`]4O0F4C;2X04)9G(R=]$)$"+@`0D0(6`-#F`@%WL"AA0QXC
M,M#F`@%VY.2Q$@/5+](.(VTN$#`VDP(!```````1!6'GD6LC$2D```"(,2#I
M`M1S`,FB@HD=L"@QDP(!``````!@E7G#H>\BG2T0D0)E`!"1`A$`P*("#P`P
M]53E1`3X$2C\!(L2*S%0_2)M+A!0EBPJ8>>A[R*=+3"3`@$``````&`#,RD0
M````````5@`:(VTN$)`VDP(!``````!`!#,I$````````(0`&B-M+A"@)OPJ
M"*/"FRI@KS+L(LFB$G8>^B[2V0)M+A"@ILX8;2X0D*;.&!XK<`$`!`!````/
M"0D/L"BQ$@/5+X(P*H`S@C`J@#.R$@/5+]+F`@%DDBY`/0;0Y@(!9/XULA(#
M="I`IP).*E`!``-!(`1!``4!*S%`IP).*E`!``0R(`0Q$`,`3BI0`0`$,B`%
M01`#`4XJ4`$`!$,@`T(0`P%.*E`!``0R(`)"$`,!*S%`IP).*E`!``0R(`,A
M$`(`3BI0`0`",A`"00`#`$XJ4`$`!$(0`S$``@!.*E`!``,B(`0Q$`0`*S%`
MIP).*E`!``0R(`)"$`0`3BI0`0`$,B`"(A`"`$XJ4`$``B(0!#```@!.*E`!
M``1"$`0P``(`*S%`IP).*E`!``0R(`)"$`(!3BI0`0`#(B`",0`"`$XJ4`$`
M!"$0!#```@!.*E`!``0R(`1!``,`*S%`IP).*E`!``,B(`-!``,`3BI0`0`$
M0A`#(1`"`"LQ0*<"3BI0`0`$,B`#,0`"`$XJ4`$``D(0`R$0!``K,4"G`DXJ
M4`$`!$0P!$(0!`!.*E`!``5#,`,C,`$#*S%`IP).*E`!``0S,`,R$`,`3BI0
M`0`"4A`$,1`"`4XJ4`$`!$,@!$$``P!.*E`!``5"(`,B(`4!*S%`IP).*E`!
M``0S,`1"$`0`3BI0`0`%0B`#(B`"`4XJ4`$``S,@`T$``P!.*E`!``52$`0Q
M$`(!*S%`IP).*E`!``,S(`,A$`(`3BI0`0`$,B`"4A`$`4XJ4`$`!$,@`S(0
M`P!.*E`!``,B(`5!$`,!*S%`IP).*E`!``,S(`0Q$`0`3BI0`0`%0B`$,1`"
M`4XJ4`$``T,@`T(0!`!.*E`!``5"(`,R$`(!*S%`IP).*E`!``,R$`0P``(`
M3BI0`0`$0A`#(1`$`$XJ4`$`!#(@`C(0`P!.*E`!``)"$`,A$`(`*S%`IP).
M*E`!``0R(`0Q$`0`3BI0`0`%0B`#0A`#`4XJ4`$``T,@`T(0`P%.*E`!``0R
M(`0Q$`(!*S%`IP).*E`!``-"$`,A$`(`3BI0`0`#,A`"00`#`$XJ4`$`!$(0
M`R$0`P!.*E`!``,B(`0Q$`,`*S%`IP).*E`!``-"$`,A$`0`3BI0`0`$,B`#
M(1`#`$XJ4`$``D(0`R$0`P!.*E`!``-"$`,Q``(`*S%`IP).*E`!``1#(`-"
M$`0`3BI0`0`%0B`#(B`#`4XJ4`$``S,@!#$0`P!.*E`!``12$`0Q$`(!*S%`
MIP).*E`!``1#(`0Q$`0`3BI0`0`%0B`#(B`$`4XJ4`$``T,@`S(0`P!.*E`!
M``-2$`0Q$`(!*S&P$@/,+4`4`$-^!1=S08.!CQY3N&Y@&1'G&/@C^)MG$.RQ
M90479#$4)3?IL0*/"""981D"01,C0TXJ$"2H8F"^$)91<@$11T$3(T&":N-A
M&247`'$4-#$2)*B&')91=OJJ'R*:%8&<^K5?(HHEH!@8+:(H'`*Q90479!CX
MDACXDIPQ%)'[LB]"423[%O9A'Q;0B+"^3_NT3_J&J@:&^`+XTF<0)&&$@-S9
M`L$TTN8"`D-$K#'@I`(5````````````(.D"U$,`;2X@,$0$ZE.L,>"D`A4`
M````````````ZE-(+D!`991T-.PB3BI0`0```````````)WJH>\BG2W0Y@("
M0T2P/K42`]4OPAH#3BI0`0"?^0```````)(N0#T$X%\C*S'0V0*THD(K*L$T
MTN8"`FQE;2X04-?F`@%V'C82D0)D`!"1`B(`T.8"`FQE,5OA+2JMY0&+$C;D
M0:<"3BI0`0`K`````````$XJ4`$``0`````````K,4"G`DXJ4`$`6```````
M``!.*E`!`#\`````````*S'`A1Q4-M+F`@%U)WW`H@(3``#"5&15Q`32Y@("
M;&4Q6W&V&H`?064C;2X08'?2!S,I$````````%30,2J@,=+F`@%I$2D``P!M
M+A"0ILX8;2X08`>+$H:C`C@C,RF0F0``````4%![&A$IL`(`$2D0``!M+A!0
M!XL2C3?2V0)M+B#`5N8M*F'G@7HCG2TPDP(!`````````3,I$````````!"P
M$@/5+]+F`@)L9?.B$G8>J#?2V0(S*1`````````2P#4J*S%0_2)M+B#`5H8P
M*F'G@7HCG2TPDP(!``````!``1VCLA(#U2_2Y@(";&4=HQ)V'J@WTMD",RD0
M````````%C`O*BLQ4/TB7*,RDP(!``````!``2LQ4/TB_C6R$@-T*N"Q`H\(
M``0`@P#P_____Q\``````(#_____?Q``````,```````P`````!`$(#9S0%0
M``````"@`(C2&4`00$15`)```````)``B%8$0!"`1,T!D```````D`"(W@E`
M$`!%50"0``````"0`(A:$$`0P-C5`9```````)``N-(-0!``````D```````
MD`````!`D`,```"0``````"0X````$!0!````)```````)`0`0``0%`&````
MD```````D)`!``!`4`4```"0``````"04`$``$#0!````)```````)`P`0``
M0%`$````D```````D!`!``!`D`,```"0``````"0X````$`0`````)``````
M`)``````0/#_____GP``````D/____]_\/____^?``````"0_____W_P____
M_Y\``````)#_____?_#_____GP``````D/____]_\/____^?``````"0____
M_W_P_____Y\``````)#_____?_#_____GP``````D/____]_$`````"0````
M``"0`````$`0`````)```````)``````0!``````D```````D`````!`$```
M``"0``````"0`````$`0`````)```````)``````0!"DJP,`D```````D!!7
M%P!`$*PH`0"0``````"0$%$1`$`0O!,!`)```````)`05Q<`0!"T*`$`D```
M````D!`A$0!`$*0K`0"0``````"0<"=W`$`0`````)```````)``````0!``
M````D```````D`````!`$`````"0``````"0`````$`0`````)```````)``
M````0!``````D```````D`````!`D/\'``"0``````"0``#`_T\0_Q\``)``
M`````)```.#_3Q`'/```D```````D```X`!,$`=P``"0``````"0``!@`$@0
M!V```)```````)```&``0!`'8```D```````D```8`!`$`=@``"0``````"0
M``!@`$`0!V```)```````)```&``0!`'<```D```````D```8`!`$`<\``"0
M``````"0``#@`$`0_Q\``)```````)```.#_1Q#_!P``D```````D```P/]/
M$`<```"0``````"0`````$\0!P```)```````)``````3A`'````D```````
MD`````!.$,>?>?R3``````"0^/$#`$X0QYC];),``````)",X0$`3A#'D.=D
MD@``````D(3!``!.$,>`PV"0``````"0C,$``$X0QX_!8)```````)#XP0``
M3A#'@,%@D```````D*#!(`!.$,>0P6"0``````"0L,%@`$\0QYC!8)#_____
M_Y^8X>'_3Y#/G\/Q4```````H,SQX_]'$``````P``````#``````$#P____
M________________?^"Q`IL!$`(`*0``@+BZ````@(B*````@+BZ````@`B)
M````@#NY`P````````````````#P_____Q\0$!`0$!"0D9.3DA,0$1*2DA`0
MD9.3DQ,0D1`2$A*0DY,3DA,0$!`0$!#P_____Q\`````````````````H"Y7
M!P``H*)0`@``X*YV`@``H*)4`@``H"Y7`@``````````_____P$``0`!``$`
M(1VI,P$`816I"`$`X161$P$`H161(`$`(1V1&P$``0`!``$`_____P&P$@.=
M+1"1`M0#D'`'*S'@I`*(```````````````````\`(`$````````````````
M``````````````"0`@`&4D53150@`7``5>1$)94T!0`3`)`"`$XJT`(`.+ZO
3BOTAW)^&_HCOSPS_Q?'_3O_2JO_2
`
end
sum -r/size 58497/11714 section (from "begin" to "end")
sum -r/size 15365/8479 entire input file
END_UU
Technical Details
Message-ID: <cshp48-v08i017=pentris.fat.183309@seq.uncwil.edu>
Path: arc1-ca.pugleaf.net!sparky!uunet!seq!spell

Show Full Headers
Complete Article Headers
Newsgroups: comp.sources.hp48
Path: arc1-ca.pugleaf.net!sparky!uunet!seq!spell
From: Fatri <fatri@turing.u-strasbg.fr>
Subject:  v08i017:  pentris.fat - Pentris v1.0 - Tetris like game, Part01/02
Message-ID: <cshp48-v08i017=pentris.fat.183309@seq.uncwil.edu>
Followup-To: comp.sys.hp48
Sender: spell@seq.uncwil.edu (Chris Spell)
Organization: Univ. of North Carolina @ Wilmington
Date: Sun, 24 Jan 1993 23:34:23 GMT
Approved: spell@seq.uncwil.edu
Lines: 528