From: getz@dvinci.USask.Ca (Robin Getz)
Subject: PACMAN pour the HP48 (ROM version)
Organization: University of Saskatchewan
Date: Fri, 10 Apr 1992 19:38:04 GMT

Below is a version of 'PACMAN pour HP48' by Christophe de 
Dinechin.

I have modified it to run from a bank of a non-merged RAM 
card (or a ROM card).  Great for those people who have a 256K
or 512K card. 

NOTE: it is not a library, just a version that does not need
to change itself.  You can ->LIB it if you like.

To use it, uudecode it on your calc of PC, load it to your calc,
recall it to the stack, clear the directory (to free up some RAM) 
and type:

	:n: PACMAN       (n is the port where it will be stored)
	STO

to run it type:

	:&: {PACMAN Play}
	EVAL

or make the about into a program << :&: {PACMAN Play} EVAL >>

Functionality is exactly the same.  The variables have been changed 
to local variables so a bit more room is needed to run it (about 4K 
free).  Also a new high score list will be added to your hidden 
directory.  It is only 350 bytes max (depending on how long of names
 that you use).  For people who do what the hidden directory is, it is 
a null named directory that the calc uses to store user keys and 
alarms.  It is also accisable to system RPL programmers.  There is a
stand alone program that will dump you into the hidden directory.  
To run it << :&:{PACMAN cdhd} EVAL >>.  The variable is called HSCORE.

Appologies to Christophe de Dinechin for making minor changes to
the code.  ( now the program automatically sets 64 bit wordsize, 
and does not clear your clock if you had it displayed)

Have fun

Robin Getz (over 1,000,000 points on 'PACMAN pour HP48')
873398@booth.usask.ca             OR
getz@dvinci.usask.ca              OR
akcs.getz@hpcvbbs.cv.hp.com


CREDITS:
Christophe de Dinechin - 'PACMAN pour HP48'
Detlef Mueller & Raymond Hellstern - cdhd 
Robin Getz - about 10 minutes code re-writing (not much)

--------------------cut above --------------------------------

begin 0700 "pacman.ROM"
MreahtcpXktvvjOa_]sH````dudeblPp>jQ`X`at`@`H`sDeapteapteaptAa
Mpteapteapteop@hb`@hb`@hb`Dhb`@hb`@hb`@ibp@inq`hb`Dmo`DhbsDpb
M`@icsPibp@if`@iB`@if`Dhbq@hbx@hbq@ibp@hb`@iO`@hb`Dxb`@hb{Phb
M`@ibp@hbxF]N}wlb`@hb`FiO{GuS`@ibp@hb`@iU`@hb`@hb`@hb}phb`@ib
Mp@ie`@iS`@hb`@hb`@hb|Phbqpibp@ilq`hb`@hb`Phc`@hb`@icspibp@hb
M`@hb`@inqa]csPhb`@hb`@ibrtdRltpbpTejgP@?rted`DlQlDejp@hb`@hb
M`@ilptAasphb`@hb`@ibp@inq`hb`@hb`Thc`@hb`@icsPibp@if`@iB`@hb
M`Dhb`@hbx@hbq@ibp@hb`@iO`@hb`Dxb`@hb{Phb`@ibp@hbxF]N}wlb`@hb
M`FiO{GuS`@ibp@hb`@iU`@hb`Dtb`@hb}phb`@ibp@ie`@iS`@ie`Dhbqphb
M|Phbqpibp@ilq`hb`Dmm`Dhbsdpb`@icspibp@hb`@hb`@hb`Dhb`@hb`@hb
M`@ibsdeaptdPpteapt}aptealdeaptemD@m`patDido@Lpja`U`a`j@`Xapt
M}b>wqD}wYHxDEA}duAywiQ{Tibp@hb`@hb`@hb`Dhb`@hb`@hb`@ibs@eapD
MdasTib`DXaqdic`t]bp@ibp@ib`@hb`@ib`Dhbp@hb`@hbp@ibq@in`tqbq@
Mif`DxbpPeopDxbp@ibp@hb`Thb`@hb`@hb`@lb`Dhb`@ibqpif`DXaptqbpP
MeasTif`Dtbp@ibp@ib`@hbp@hb`@hb`@ib`@hbp@ibs`edlDPdpDhb`@hcct
Mic`tTRp@ibp@hb`@hb`@tbqpib`@hb`@hb`@EapClTlDlaptIhrpeaqdic`T
MhQnCibp@hb`@hb`@Phstib`@hb`@hb`@ibs@edpDXdpDhb`DhccTic`t]bp@
Mibp@ib`@hbp@hb`Dhb`@ib`@hbp@ibq@ie`DPaqdif`Dlastie`Dxbp@ibp@
Mhb`Thb`@hb`@hb`@lb`Dhb`@ibqpil`tqbqpie`DtbpPempDtbp@ibp@ib`@
Mhb`@ib`Dhbp@hb`@hbp@ibs`edpDlastib`DPaqdic`tUbp@ibp@hb`@hb`@
Mhb`Dhb`@hb`@hb`@QapteapddVsViG}DuN|vaalteasticD`aeqapCddgBLp
Mip`q`h`h`dYaptea|feC`vUA{Deapteop@hb`@hb`@hb`@hb`@hb`Dib`DYa
Mq`icq`icq`icpt\bpDhbp@lb`@hb`@hb`@hcp@ibp@if`DYalt\bsCmasPif
M`DiP`@hbp@hbq@if`@ib`@hb|fdbqpib`@hb`@hb`DhbqpiAxPif`DxbsDp?
MpT\bq@if`Fla`@hb`@ibgP@?p@hb`@hb`vTbqpie`DPQrcim`DtbqpiMxpif
M`Dhb`@if`@hbp@if`FeN`@hbp@ie`@hbqpib`@hb{Dhbqpilpt}d`DmgptTb
Mqpibp@ib`Phb`@hb`@hb`@mb`Dib`DQaq`icpsaaq`icptTbpDhb`@hb`@hb
M`@hb`@hb`@ibsdeaptePxvla{veNpteaptUB`D``Qqzvq]cy`AXVDFd|lRDp
M````````peDMgaXK\h@`p``Pb`c_____________________a___________
M__________\gJZJJJJJJJJJJJJJJJJJJJ@ywu?_______________U]uaZOJ
M``````l`````@`d`LjJ>uSw@aPbg``````agoSe`up>KfI`d@lp`````@lrD
MjxbJaE|mtcjfIeBfCtFmHEhI`etgJPK`jpfzE`ukrph^KA@`JPywctbD`dJr
MabDE`AgBipauGZLjhmpbpvHbIspadxdD`jLfuQuPKlg`uHiCslfP@QR`up>K
Mj@``````@````````lbJaE?u``````b`````````|etgJZK_____________
M__^OJIYwuuuuuuuuuuuuuuuuuuuuaZNJJJJJJJJJJJJJJJJJJJHfuUuuuuuu
Muuuuuuuuuuuuup>KJO_______________Z^JaE}u`p``````````````vev?
MJZHa`g@`bpbhlph```bHJ@ywupd`b``h`dQj`P```eAuAZNJ`p`htATRrdIb
MFph`JjJ>uUta`g@UbuuhrLjB`paxu|^KJ@d`badiuXASpKh``jBJQE}u`p`h
MdpEqbdibJ@``vetwJZHa``@ubuuhrLjJ``bHJ@ywupd`>ahytH@QpKd``eAu
MiZNJ`p````````a`````JjJfuUta`````````d````axup>KJ@d`````````
M`````jBJaE}uPpDhad``bgBjGAluvuwgJZHAb@`dp``hBiIbecvIJDywurfx
MRD[jbdJhFDhpmuEuaZNJhz@IIexuKxBJwOauJzHfuUtAJdBDtAWIBjIbdeuy
Mup>KJBfHBjqrarFhRDhpEzFJaE}uhzJHIexuKxCjpAruvutgJZKaJtAlr@Ej
M>hJ>dQvIJ@ywupd````b`````````eAuaZNJ`p````h`````````JjHfuUw_
M______________]?up>KJJJJJJJJJJJJJJJJJJJJaE}uuuuuuuuuuuuuuuuu
MuutgJZJJJJJJJJJJJJJJJJJJJ@ywuuuuuuuuuuuuuuuuuuuuGZNJJJJJJJJJ
MJJJJJJJJJJHfuUuuuuuuuuuuuuuuuuuuup>KJJJJJJJJJJJJJJJJJJJJaE}u
MuuuuuuuuuuuuuuuuuutgJZK_______________^_J@ywUq``````````````
MafauaZLZd````````````p`d@jLNuQtpYZqHgBZuu`PSRqPcuy>KbB@IIy@h
MhxVTdDDIIprJaE|mnbDE]ppFAyp>rrFDaUxgJPIdjstu`JBeE@iikzt`J@yw
MetsGjnh>qPvugckji`}uaZLZ`bd``@``````````@jLfu]t`hp`a````````
M``a@up>KJO_______________[^JaE}uuuuuuuuuuuuuuuuuuutg________
M_____________P?_____________________aS{DT|P@}bK@I`hu````````
M````Xjpbep```````````k`r`_cBprLJRzkrlrJTHDhKjGpJpj|b_bHpxdjG
M`D@Nx``ummptYhsD`@qtpthQjSg@I`hu`haGap``````Lahc}bK`KPhaiGpJ
M@npbaEaapTUasD@Npd`uiarSd@mnjE`a`kRz````````jSe`IPk\jAa@pJ|b
MrbY@`atTUasDAnpbaeqapChKl>bD`At`HhDg``````bPd@mTjLbO`@dF}bJ`
MY`hftdecstenrbY`patDiklr`TXJt`d`[\T````````KltbG`OPJdfabIPih
MkF``esstenrdY`hdudeblRLQXjpbepc`Bp|``````k`r`WpJPj\b`ryTjHcD
M`@ypptmmptYhkDa`erpTLQhcsBIp`pcoJP```````bLQLahcizdqsbmMkEa@
MQayVmM?F`@uspT]rqvTNtlatyewdUnxbatQiuDus{rY@`atTqatDUnxbaump
Mqtud{rYP`atTqatDmmwF`@qPxwqHgC{bKPhaiGpJ@npbaEaapTUasD@Npcaf
MADzVd@m`b^h[fClId````````fqpwaQMkG``esqderpTU>xbatQeuDulQM>A
MEqSx^TeEhVTNtc`euuqdEf|CSpPbMbb\HDeEhVTNx``umdpuiiqGh\Tll@PC
MMjkR|qKx^]gF`@ustdueqaXK\h````r`````````````````````````````
Mfa@`````fbqzvBpx```dabpD?b```cPdob`@o```o`pdobp\``a^pf`Xhb``
M_YFy@yFyF?\`?dqd?da\``a\qdq\qdp``cXB?Dib?@adJN[Nq````dsNyNYd
M````hG}Wurh```ad[LSNq````cQ^_____WX\pN?_____?CP\_G\_oW_^?cQ^
M_____V}boG_^_oS^?SY\UM{^_O[^JGS^KJ[^_OZJ?o[^UM{^_JH^?WuU?W]_
MuwRJJHjb@MzJ?hkrTHjbUJI\@HjJJHkvJGRbEIzb@MzJ```pfa`X`````a@@
Mdc@``gZa@xfa@xe^```decPp`````c@hnb`X````n`@Xjc@```aXpda`p```
M`cPDobp\````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````_Pc__Pg_``c_`o__`_\``o\`__\g_P``_Pc__P__``c_`o__g_\`
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M`````````o\`__\`_PazvEIzvEIzv@cXaoKZao@``a\@wU\@gP``fbqzvEIz
MvEIzvEIzia@`vMLx__\`_P``_Pc__QC{vEKzfOKZfMIzvEMxwU]xvUIzVQC_
M_QC{vEKzfOKRao@`vEMxwT\@gP``^`sR^AKzv@`?hd]?veMzPol_clcSoPP`
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M``````````````````````````````````````````````````@hgaP^oG|`
MoW]_oW]_oP`\?C\?oWX\`c]_?W]_?S\`?C\_?S\_?@a^oS]_oS\_`cQ^oQ]?
M?GP`mG}_?W]Wm@`xocP\ocPx`gAX>gM_oAP`mS\?cQ\_mP`fcP\_?W\^`deC
M}W]_}W|`yG]_?W]_lP`^?W]W?W\^`cY_}W\_cPx`oG]_}W]__D`^?W}_oW]F
M`gY_gSY\?S\`oG\^gaP|b``B}W}W?W\^`g|VoAP|b`@`xW}_?W}CppaW?W\^
M?W]W`g}W?W\^gaP`?W\_ggY_?P``````````````````````````````````
M````````````````````{rY@`atTqatDQjhbgpaPiotDaaicpPlBpQnS]QS\
MjAa@pJ|brbY@`atTUasDAnpb`UaapRLQ`kp@OJoqlrKp_cf_g_o[dtPC{rXp
MlnuAh\lNTNxb`umnjE`a````b```````@^?AI`hu````````````TjD>^B[r
MVpitmMkF`@ulruyetWDVHIH@VoNQd@nUk]ky`EpVTNxbatQiuDus>sybCRcx
M^SgLhEpVTNxbatQeuDul>sybCRaMkG``esqderpTAyL|w>RA[Rj}ky`LjEpV
MTNxbatQeuDul>s{rSb`Kluc]hFTN|``umdpuicsuY@hesduvqtSfUZfugmC[
MpvtC{rYpl`uuudrtyRomcnh[fKRBpvtC{rY@`atTqatDEf|CSpRRd@oukSkL
MhFTNdccEI`hu````p```````lg@>sBIp`p```````````iWJH>\BGrU`jRIt
MmMkF`@ulruyetWDVTLP@jSep_riMkA`PYzpbepcP_S\``````caXgKNvlylb
M`p````````gNKteEhVTNtc`U]bquEf|CrPsBwRlVYdfG`DXJt`d`c@``````
M``anjE`a`ah`````````jSg@I`hu`g`f````````Xjpbepcp`p```````faa
MgNKhxtl>}bK@I`hu```a````````Xjpbep`P`p```````k`r`RPJl`d`tVmO
M|FtZhfTNtc`U]bqu}kxzWJkrvAYTjNbD`At`d`````````c@I`hu````````
M````Lahcj?QAqqYvYfecgGpJXjpbep```p```````nbD`At`L`d```````bP
Md@lLjC`a`dQI}FuSnBaMkEc`EfqumgvVfMZBTEH>}bK@I`hu`a``````````
MXjpbep```````````k`r`RG\xtt>uNsqcBmMkEc`EfqumdtKjOSLDvLCMjkR
M|qKx^SgLhD@Nxh`Tm?pDuvrXgaVCTJD>^B[rVpiTjDbG`BPJt```MjjRd@lK
MlwbXgV>K|{@?yZMQNa]GJTeEhT@Nxh`Tm?pDuyqGh\TlLAhcUr^rkbIgHPhz
MhVTNdiadyrmhkFb`mcwTievtyRmMkAbpygP}WJiB?aWckMkF`@uspT]rq?SL
MH>\BGrW`H@iw`icUu@>beFywaAhf@IyVA@xRm_xFuZyPAqyfaYhVaYkWuB|g
MXA{vuOxcpJ|bkbIp``ahkAc`NahcRBsrY@hetTmotDw>HCiXglFBlG@|rbY@
M@cpU]bquEbPJ{rXpDipLj@FMPxt|O?MQMAIhkFb`mcwTiewtY@hart>CPHt|
MyZMayrmhkFb`mcwTievtyRomclhUjEpVTNxb`tEYmMklhbLQtoTBsckRiqXV
MYdfG`DXJt`d`d`````````anjE`a````````````jSg`H@hC```b`@jbEgzf
MaChU]BywmN|MjJWEpz|bsBIp`p`a`````````dXJt`d````````````Klycb
MgU{DHxX|}bK@I`hu````````````Xjpbep```````````k`r`_cBDrPJqZlb
MfBmMkAbpydl>}bK@I`hu````````````Lahc{rXpDlpUjNZMLvDyyZNaY`hf
MremcsUie{rXpDfq\g|FBxGP}WJkrvA[JRfecgD@Nxh`Tm?pDu}sF`@eiQM?A
MkrKfU^dMjJWEXzpbep`Pb````````icbg[Ci@{T?bzWqY@haruRCXMXzFY{A
MkrJcQ]f[g^KhPrpCMjkR|qKx^]gF`@uf{feG|W_fT>xbagaA}fB^H^e?hSDV
MLAhc|q\P`atTmdbG`LPMhaPaZepnZoXeLptlA[[nt`CHo`?HEP{HPPcHJPqc
M{pPwF\uPpqr[QGaqaFdpqqb{Qwaad@oHF@Re@gZU@eX_@k[jdiOe|ddrhVd|
MhTdpR\yPtphjg`vpPjVQcpSwdDvcoC`pb\aPpxjjaG{SLtHleVq@Ze`p|jUb
MVfUylhw_^a\[PWartqk@xvduardp^\mPtsjaevvsJUlCbkbCxqted^Ob|ddR
Majh`KcdpdXfaGVLfLs\lA\ZodnOb|deVMFf{g_Oc|edR@quED^M>hPB@HVdu
MaqoKPGaad@lQdqych`J`SW`fLs\lAVZilbpb`gVLLrXleVr\mQpf^{ebca|E
MdUAqmKGzmxh`nQIvtsbQk@Pwidl`b|`z`WUch`g`fAn]^kEFdoOc|n@wbkdN
Mca}DUPHv^{ebca|EdUAqmKDnmXh`nAIvtsbQk@PwicdQaah`KcdPai``^`QG
MdbOd|`UqlBm`HjoHI@>Qk@PwygUc``G`>RA@?A]kPGaadIyaeAlQm`rB`m@l
MyQ```sDD[O\anRfAwDlb`maGiq```}DrLaliZAu[Pw`Mp|[veUOd|ddrhadp
M`RUagFn\`qACkQgbf@lqdqmq|Ohcjcad`@aaBtdxecnLlzoDryX>LsgcfAaJ
MG}z>d`VQm@PwIsaQ`f[v]LcfRMpxr\iPpqifpqxd@qqdLr`aPa`dLslleZtP
M|paNAH`FhPll_AXkd`cQipgpdHtpUphQlnaF`PC^g@Lp`odE`s`B`edMtp@p
MLuDleRpQldpa`gUAe>v@lfdqyynClsNvHRjZnDhf[{Fr@h`ZdPnDljx`dPEK
MTQahtsjm@qhExTlpN\aPkudn?qlpzMlpB\aPtsjm@qhETP{^Cx`JbrlpTm|{
M@doX_]\wn\mPkudVXg^NxqiE`_[Gdxe]kpohRCdAB>L`dT^Xbq``Gq]LgePx
M^xbqcXRQi`PwidlB`>cjd`l_\ttleSr]Kcdq`plccJzh\@nH?`ici`cpIPMa
MJY@iRJacbF[TgVtcoAXedVn\lqxwrI_TRQ`Sd``h@j\u`pAH@ahkPg`mpqbK
MQgac```tincOpp`Rp`B`KQtaLpPleVv`@axe`Xj`m@tceh`c@@cXvAdp@pAH
MtC`P`sB`bhbOepdqBh`FaplqR\aPtpPMb`csdiOa|edRhXnPH[HxR\ePtshC
MpkbCNJy[LptleS_c|`UqlBm`DfLeNKJCNuR@rUdQCqCY@yd?foDqiVdrisob
M`{EvHjL[VIz[bkJKJUdUlkdeca|EdbyqaNc@`P|nDJ`fy@>QapQWUAk[Pwaa
M|eDqR\aPtpXaJgAgcQl>zThtdqB[PgaqalxbLpLle^v@>f|ldQYKt@^QbPSw
MdLtpN\aPtpzjeUO`|odyca|EdRyqm@J?\`tZKO`iw[acbI_PasNF\`E?Hlmq
MmhdrG\ePts|xnhJY@J`knYsca{HzaqlF|qhEdWvc@znxjPBZLdlYwjbKts`p
MLq\leRrQePSwdNq}w`JO\dw@HoaEXnrD\dw`HoaEPlP|`TdZ`{hFdkd?ca|D
MlqbDdPsI_C`ALjytdhqIcajOQgaaYQyt\p`leWsLpqw{PgaJGlxKpY`addts
MK\qPp|lzeod`ca}T[dduyzoCyaaedXO`|`UqlKHxjedRLq\leVpQenp]ZM|{
M@doX_P\^aC[qeSOc|bUqmNa_KFdrypo^YQfa?rTsB[@nlhfdFP`aToGaQLfe
MDp\x^|`xZ\iPp|hp`S_QqpPwmkVLlsed`@a}`ZAXpqNdl|hphWfA\`F?cAdF
McudRfoF`Dp_QePSwdOsXDsDpj`UqlACY@idoCodrca|TcabQvpPwicdpuEdf
MBH>`bP{VbXduiql_QwaqmSERIENjfP_e|ede`YikapltcedeLt\leVv@>`LW
MlnaPbQxvtpradfv@>`LWlnaPbQxvtppp\t\lI[AqapnC^naPbQxgtpw@|`Lv
MeUdeXg`ke@QqaqbadBts{\uPts|YLJI{BALoQwaqapnsrPtcdpQqas{T\ptl
MiQtUds_e|edq`Cdr`SdqyUdcbyPPechdbIS`btlCpzc`byPPebld|q`UDXlV
MnYrcctlCpv`Ddd_f|eiqd_esca|uhs`tl@pafRnQvpPwacdpiq`Ftp{@X`lg
McIj@bveByab{Qwaad@lwW`eT`QZQb?KrHuAO`sODQgb|lqqEHg@q}mEkTPnE
MLkeyca|DlqavtpqqaHHwvl@l^SdrdSdrIUdcbTp`|qaUHbaqaqbQvpPwicdp
M}Odmca|UDXlKtsx[qBeqlhdqi{a``PlnMDaq`fdqiyncfcNtPPzFbCJLPUdP
M@q}?PgaqlEdWnSIb`cHZ@{bCaq`F|qhEdWvSHRldHjlsbcMz`fdtyynChRo_
MgTtsK\qPpsmda@bLppdqb\aPktdtJ\qPpshd`hc@[Td`dwArtqkQy`Pw}ydA
Ma@hp`FfGjUdTdoB{yXcThS\pBQh`tsqalVps`jPhraakPGaaddycp`O`f@qA
MQaHd|qpTpQp`PaHKPwaadbnaefraebqlsdRQg`PwaqlHtspx^xjqkQCYdAAa
Mgd}alTpa`jRQqpPwagdtmcdpEDdrb\ePtpaoLuXlePwPeayq`d]AdptpV\aP
MkudTLtHleTrQbPPwQkeycc?tQGaaIbBQzPPwqq`KPwaad@lm`q`p`qkoPwaq
MmQ@Y@IdCfcFB>_dwca>TZABDdPkIhCe`ZzXp@vXanhdps\yPzrhQ`qm?PgaI
MeAjqtsuQdJeqmwdRdede}@GIDC\PZqx?G\uPpq}s|z{`tpeQTaiuHVALKtm>
Mcl|zlUdglqlGtpwafIeqmwdrHudU|shptpwQvpPwmdlm`l`zeoeKca|ULdaq
M`vdQ@q`qzAHpzIVvaH{OcpdqhvHzhcJ?LPxv[qdpc\aPpqe{PgcQoPPWa`@`
MtshZfAtsiGdriznCtsdpLpXeeRrQh`dpakdvaq|DLs`ad`rQ``dP@edlLrta
MHbMqmoCryXcUdf`Sa``h@`\v`pBHLCYc`h``^f`q@h`KZRTh``>Qd@o{dt`P
oqHyfqMcy`AZjXpMDjSd`
`
end
:wq