Path: utzoo!utgpu!news-server.csri.toronto.edu!clyde.concordia.ca!uunet!wuarchive!zaphod.mps.ohio-state.edu!rpi!uupsi!sunic!kth.se!news
From: lennartb@lne.kth.se (Lennart Boerjeson @ KTH/LNE, The Royal Inst. of Tech.)
Newsgroups: comp.sys.handhelds
Subject: Re: Tetris
Message-ID: <0093AF11.59E2B140@lne.kth.se>
Date: 9 Aug 90 13:03:09 GMT
References: <0093AE41.AB3A5320@lne.kth.se>,<24514@boulder.Colorado.EDU>
Sender: news@kth.se  (News Administrator)
Reply-To: lennartb@lne.kth.se (Lennart Boerjeson @ KTH/LNE, The Royal Inst. of Tech.)
Organization: KTH School of E.E.
Lines: 188

In article <24514@boulder.Colorado.EDU>, frechett@snoopy.Colorado.EDU (Mac the Ripper/ / / /) writes:
>Great game.  Alot must have gone into this.  A bit slow but there are ways
>to make it interesting.  One thing though.  I am getting a bad shape.  I have
>no idea how to find it either.  As was mentioned, this IS a big program.
>The shape is:
>*
>***   
>where these would be boxes.  The shape is fine in any other orientation
>but it appears as one little "-" when it is in this orientation and is 
>totally indestructable.  I have managed to avoid it by just not rotating it
>to that, but I would like to fix it.  Has anyone else had this problem?
>Does anyone know how to fix it?
>
All shapes are stored in the OBLIST list. That particular name is called
L1OBJ (the names are not used anywhere in the program). Here is the entire
OBLIST (result of 'OBLIST' BYTES : #8634h 657).

---------------------
%%HP: T(3)A(R)F(,);
{ :L2OBJ: {
GROB 6 9 705070705070F3D2F3
GROB 9 6 0C1004100C10FF10D610FF10
GROB 6 9 F3D2F3838283838283
GROB 9 6 FF10D610FF10700050007000
} :L1OBJ: {
GROB 6 9 838283838283F3D2F3
GROB 9 6 FF10D610FF100C1004100C10
GROB 6 9 F3D2F3705070705070
GROB 9 6 700050007000FF10D610FF10
} :Z1OBJ: {
GROB 9 6 8F1086108F10F300D200F300
GROB 6 9 705070F3D2F3838283
GROB 9 6 8F1086108F10F300D200F300
GROB 6 9 705070F3D2F3838283
} :Z2OBJ: {
GROB 9 6 F300D200F3008F1086108F10
GROB 6 9 838283F3D2F3705070
GROB 9 6 F300D200F3008F1086108F10
GROB 6 9 838283F3D2F3705070
} :TOBJ: {
GROB 9 6 830082008300FF10D610FF10
GROB 6 9 838283F3D2F3838283
GROB 9 6 FF10D610FF10830082008300
GROB 6 9 705070F3D2F3705070
} :ROBJ: {
GROB 12 3 FFF0D6B0FFF0
GROB 3 12 705070705070705070705070
GROB 12 3 FFF0D6B0FFF0
GROB 3 12 705070705070705070705070
} :SOBJ: {
GROB 6 6 F3D2F3F3D2F3
GROB 6 6 F3D2F3F3D2F3
GROB 6 6 F3D2F3F3D2F3
GROB 6 6 F3D2F3F3D2F3
} }
------------------------------------------------

I have made a work-around for the big GROBs: 
Load these files into your 48 ( INSTR, TXGR and CONVGROBS should be in
the same directory as TETRIS; REDSQ, PLANE and NPLANE in the MOVIE directory).
Then execute CONVGROBS.

INSTR, 'INSTR' BYTES -> #F2BDh 585.5
------------------------------------
%%HP: T(3)A(R)F(,);
{
"GROB 38 50 CCD9CD10004594940000C49C9C1000459494000"
"04D949C10000000000000000000000000CF100000004210000"
"0004710000000CA1000000042100000004210000000CF10000"
"000000000008FDFDF0000845259000082525A00008FDADF000"
"082575A000084525900008FDFDF00000000000000000000000"
"00CCCD10000045551000004D4D1000004555000000C4D50000"
"000000000000000000000FFFF00000010080000005AAB04ABA"
"3DA290CA821D3190CB3115B2904B8215A2904AB21100800000"
"0FFFF0000000000000000FFFFF000001000800000199A989AE"
"098AAA4AA40DB9A94AA4098AAA49A4019AB98AB40100080000"
"0FFFFF00000" }
-------------------------------------

REDSQ, 'REDSQ' BYTES -> #C8A1h 2422.5
-------------------------------------
%%HP: T(3)A(R)F(,);
{
"GROB 131 64 00000000000000002000000000000000000000"
"0000000000002000000000000000000000000000000008F000"
"00000000000000000000000000000020000000000000000000"
"00000000000000600000000000000000000000000000000030"
"00000000000000000000000000000000200000000000000000"
"00000000000000005000000000000000000000000000000008"
"80000000000000000000000000000000040100000000000000"
"00000000000000000401000000000000000000000000000000"
"08800000000000000000000000000000000070000000000000"
"00000000000000000000500000000000000000000000000000"
"00005000000000000000000000000000000000500000000000"
"00000000000000000000007000000000000000000000000000"
"000408A000000000000000000000000000000408A000000000"
"000000000000000000000F18A0000000000000000000000000"
"00000408A080000000000000000000000000000C4421800000"
"0000000000000000000000064421E300000000000000000000"
"00000004F5218000000000000000000000000000044EF38100"
"0002000000000000000000000AC282C0000002000000000000"
"000000000A628280000007000000000000000000000542E380"
"0000CF100000000000000000000552824100008F0000000000"
"000000000084E283410000070000000000000000000042F2C2"
"A200008A00000000000000000000495182A200000200000000"
"000000000000C4518294000005000000000000000000004A53"
"4929000005000000000000000000008755C94A000088000000"
"0000000000000084556B9C0000880000000000000000000084"
"55AA290000CF10000000000000000000845555F70000CF1000"
"000000751100000088F3B6140000CA100000000015B1000000"
"880255140000CE100000000015510000008F02E3F70000C810"
"00000000151100000088022A080000CF100000000017110000"
"0088F32EFF10004710000000F700000000008404E700100040"
"10000F7008FFF30000004404140010004018FFFF7000000CFF"
"1000420808001000CFFFFFFF70333000001000CFFFFFFF1000"
"CFFFFFFF700003333B1000629429423000CFFFFFFF70000000"
"001000529429425000CFFFFFFF70000000001008FFFFFFFFF0"
"00CFFFFFFF703333333B1008000880008000CFFFFFFF700000"
"00001008000401008000CFFFFFFF700000033B100800040100"
"8000CFFFFFFF70003330001008000401008000CFFFFFFF7033"
"00000B1008000401008000CFFFFFFF70000003301008FFFFFF"
"FFF000CFFFFFFF700003300CFFFFFFFFFFFFFFFFFFFFFFFF70"
"033000E300000000000000000EFFFFFF7030008F1002DD989B"
"38BBBBC200CFFFFF70000C70000A54510900909A220000FFFF"
"7000E300000E5CD52930939B2200000EFF708F100000065445"
"3900909820000000CF707000000002544D29309398C2000000"
"00700000000000000000000000000000000000" }
-------------------------------------

NPLANE, 'NPLANE' BYTES -> #FDC7h 298,5
-------------------------------------
%%HP: T(3)A(R)F(,);
{
"GROB 83 11 00000C708FFFFFFFFFFF7008F00640400000000"
"000407C810A502FFFFFFFFFFF50D7770B5051DB5F1119D4505"
"00CFDDF65D55FBDB557509FF3000051D1BFB1B9D6509FF30CF"
"F6DD5BFBDB5DD50970CF7005D15BFB1B5565058F700002FFFF"
"FFFFFFF50DF00000040000000000040700000008FFFFFFFFFF"
"F70" }
-------------------------------------

PLANE, 'PLANE' BYTES -> #C541h 297.5
-------------------------------------
%%HP: T(3)A(R)F(,);
 {
"GROB 83 11 00000C708FFFFFFFFFFF7008F00E70CFFFFFFFF"
"FFF707CF10E70EFFFFFFFFFFF70FFF70F70FFFFFFFFFFFF70F"
"FFFFFFFFFFFFFFFFFFF70FFFFFFFFDFFFFFFFFFFF70FFFFFFF"
"FFFFFFFFFFFFF70FFFFF700FFFFFFFFFFFF70FFF70000EFFFF"
"FFFFFFF70FF000000CFFFFFFFFFFF70700000008FFFFFFFFFF"
"F70" }
-------------------------------------

TXGR, 'TXGR' BYTES -> #9A7Fh 76
-------------------------------------
%%HP: T(3)A(R)F(,);
\<< OBJ\-> 1 SWAP
  START DUP DUP RCL 0 ROT
STO "" SWAP OBJ\-> 1
SWAP
    START +
    NEXT OBJ\-> SWAP
STO
  NEXT
\>>
-------------------------------------

CONVGROBS, 'CONVGROBS' BYTES -> #1F7Ah 94.5
-------------------------------------
%%HP: T(3)A(R)F(,);
  \<< { INSTR } TXGR
   MOVIE { REDSQ PLANE
NPLANE } TXGR UPDIR
\>>


> [...deleted...]
>
>	ian frechett         frechett@snoopy.colorado.edu

!++
! Lennart Boerjeson, System Manager
! School of Electrical Engineering
! Royal Institute of Technology
! S-100 44 Stockholm, Sweden
! tel: int+46-8-7907814
! Internet: lennartb@lne.kth.se
!--