Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!usc!rutgers!modus!gear!wolf!Andrey.Dolgachev
From: Andrey.Dolgachev@wolf.sublink.org (Andrey Dolgachev)
Newsgroups: comp.sys.handhelds
Subject: Tetris3 for the HP48sx
Message-ID: <5924.27F90739@wolf.sublink.org>
Date: 2 Apr 91 01:23:33 GMT
Organization: Rekursive Labs sdf - Pisa, Italy
Lines: 160


  END
\>>
              delay
\<< b .004 - DUP
  IF 0 \<=
  THEN .004 DUP 'a'
STO 'b' STO DROP
  ELSE
    IF DUP .04 MOD
0 ==
    THEN DUP 'a'
STO 'LVL' INCR SHLV
    END 'b' STO
  END
\>>
              CP 8
              a .4
              b
.392
              MKSCR
\<< DUP ERASE PICT {
# 91d # 38d } PIC2
REPL (-6.5,3.2)
(6.5,-3.1) BOX
(-2.2,3.2)
(1.9,-2.8) BOX
(-6.5,1.8)
(6.5,1.6) BOX 1.5
1.1
  FOR I -6.5 I R\->C
6.5 I .1 - R\->C BOX
-.2
  STEP PICT { # 3d
# 38d } PIC1 REPL
PICT { # 44d # 0d }
# 40d # 60d BLANK
REPL PICT { # 95d
# 2d } "LINES :" 1
\->GROB REPL PICT {
# 2d # 2d }
"SCORE :" 1 \->GROB
REPL PICT { # 91d
# 28d } "NEXT" 1
\->GROB REPL PICT {
# 7d # 28d }
"LEVEL :" 1 \->GROB
REPL 0 ADDP 0 ADDL
SHLV PICT RCL SWAP
PICT SWAP { # 0d
# 0d } SWAP REPL {
# 0d # 0d } PVIEW 1
DISER
\>>
              DISER
\<< DLST SWAP GET
DTAG
  IF DUP 0 ==
  THEN DROP ERASE
PICT SWAP { # 0d
# 0d } SWAP REPL
  ELSE 1 - SWAP
DISS
  END
\>>
              INFLP
\<< 0 WAIT DROP
\>>
              ADDL
\<< 'LINS' STO+ PICT
{ # 100d # 8d }
LINS 1 \->GROB REPL
\>>
              ADDP
\<< 'PNTS' STO+ PICT
{ # 5d # 8d } PNTS
1 \->GROB REPL
\>>
              SHLV
\<< PICT { # 37d
# 28d } LVL 1 \->GROB
REPL
\>>
              FIN
\<< SCORES 5 GET CHHS
  IF
  THEN HI
  END DRHI
\>>
              HI
\<< 4 \-> I
  \<<
"CONGRATS, YOU REACHED
THE TOP FIVE"
{ "" \Ga } INPUT
ERASE LCD\-> PICT
SWAP { # 0d # 0d }
SWAP REPL { # 0d
# 0d } PVIEW PNTS
SWAP LINS 3 \->LIST
    DO
      IF I 0 ==
      THEN 0
      ELSE SCORES I
GET CHHS
      END
      IF
      THEN -1 'I'
STO+ 0
      ELSE SCORES 1
I SUB SWAP 1 \->LIST
+ SCORES I 1 + 4
SUB + 'SCORES' STO
1
      END
    UNTIL
    END
  \>>
\>>
              DRHI
\<< -.8 1.9 -6 -2.5
4.5 \-> N Y X1 X2 X3
  \<< # 131d # 64d
BLANK "HIGH SCORES"
3 \->GROB (-3.2,3.1)
SWAP REPL "SCORE"
-6.3 Y DRSC "NAME"
-1.1 Y DRSC "LINES"
3.5 Y DRSC 1 5 -.2
'Y' STO+
    FOR I N 'Y'
STO+ SCORES I GET
LIST\-> DROP 4 ROLL
SWAP X3 Y DRSC SWAP
X2 Y DRSC SWAP X1 Y
DRSC
    NEXT 2 DISER
INFLP
  \>>
\>>
              DRSC
\<< R\->C SWAP 2 \->GROB
REPL
\>>
              CHHS
\<< 1 GET PNTS <
\>>
              SCORES
{ { 0 "" 0 } { 0 ""
0 } { 0 "" 0 } { 0
"" 0 } { 0 "" 0 } }
            END
--------------------------that's it---------------

        ---Falco
--  
 WolfNet BBS Pisa (Italy) Tel. +39-50-589050 300-14.4K Baud Matrix 2:332/602.0
 Andrey Dolgachev - via FidoNet node 2:332/602
 UUCP: ...!gear!wolf!Andrey.Dolgachev
 ARPA: Andrey.Dolgachev@wolf.sublink.org