%%HP: T(3)A(D)F(.);
@ T24 game, by Mike Rovak
DIR
  PLAY
    \<< STD DEC 64
STWS ERASE CLEAR
      IFERR 'SAVL'
RCL
      THEN CLEAR 1
20
        FOR j j
        NEXT
      ELSE OBJ\->
DROP 'SAVL' PURGE
      END 1 20 UD {
# 37d # 5d } {
# 37d # 13d } LINE
{ # 37d # 13d } {
# 93d # 13d } LINE
{ # 93d # 13d } {
# 93d # 5d } LINE
SH3 3 FREEZE { {
"\<-S" LS } { "S\->" RS
} { "FLIP" FLIP } {
"MIX" MIX } {
"SAVE" SAVE } {
"QUIT" QUIT } }
TMENU
    \>>
  LS
    \<< 'LS2' SH4
    \>>
  RS
    \<< 'RS2' SH4
    \>>
  FLIP
    \<< FL2 FL3
    \>>
  MIX
    \<< 1 100
      START RAND 3
* IP 1 + MX2
      NEXT SH2
    \>>
  SAVE
    \<< 20 \->LIST
'SAVL' STO QUIT
    \>>
  QUIT
    \<< CLEAR 0 MENU
    \>>
  UD
    \<< \-> s f
      \<< s f
        FOR j 21 j
- PICK j DC
        NEXT
      \>>
    \>>
  DC
    \<< \-> c n
      \<< PICT n DC3
c DC2
      \>>
    \>>
  DC2
    \<< \-> c
      \<< PIECE c GET
REPL
      \>>
    \>>
  DC3
    \<< \-> n
      \<< 'L' n GET
      \>>
    \>>
  FL2
    \<< 1 5
      START LS2
      NEXT 4 ROLLD
SWAP ROT 1 5
      START RS2
      NEXT
    \>>
  FL3
    \<< 2 5 UD 3
FREEZE
    \>>
  LS2
    \<< 20 ROLL
    \>>
  RS2
    \<< 20 ROLLD
    \>>
  SH2
    \<< 1 20 UD 3
FREEZE
    \>>
  SH3
    \<< { # 0d # 0d }
PVIEW
    \>>
  SH4
    \<< \-> p
      \<< DEPTH 20
        IF >
        THEN SH3 1
SWAP
          START p
EVAL
          NEXT SH2
        ELSE p EVAL
SH2
        END
      \>>
    \>>
  MX2
    \<< \-> n
      \<<
        CASE 'n==1'
          THEN LS2
          END 'n==2
'
          THEN RS2
          END FL2
        END
      \>>
    \>>
  L { { # 25d # 0d
} { # 39d # 0d } {
# 53d # 0d } {
# 67d # 0d } {
# 81d # 0d } {
# 95d # 0d } {
# 107d # 8d } {
# 119d # 16d } {
# 119d # 29d } {
# 107d # 37d } {
# 95d # 45d } {
# 81d # 45d } {
# 67d # 45d } {
# 53d # 45d } {
# 39d # 45d } {
# 25d # 45d } {
# 13d # 37d } {
# 1d # 29d } { # 1d
# 16d } { # 13d
# 8d } }
  PPAR {
(-6.5,-3.1)
(6.5,3.2) X 0 (0,0)
FUNCTION Y }
  PIECE {
GROB 11 11 FF70306010401340124012401240174010403060FF70
GROB 11 11 FF70306010401740144017401140174010403060FF70
GROB 11 11 FF70306010401740144017401440174010403060FF70
GROB 11 11 FF70306010401540154017401440144010403060FF70
GROB 11 11 FF70306010401740114017401440174010403060FF70
GROB 11 11 FF70306010401640114017401540174010403060FF70
GROB 11 11 FF70306010401740144012401140114010403060FF70
GROB 11 11 FF70306010401740154017401540174010403060FF70
GROB 11 11 FF70306010401740154017401440174010403060FF70
GROB 11 11 FF7030601040D840945094509450D94010403060FF70
GROB 11 11 FF7030601040DC40984098409840DD5010403060FF70
GROB 11 11 FF7030601040DC5090509C509440DD5010403060FF70
GROB 11 11 FF7030601040DC5090509C509050DD5010403060FF70
GROB 11 11 FF7030601040D45094509C509050D15010403060FF70
GROB 11 11 FF7030601040DC5094409C509050DD5010403060FF70
GROB 11 11 FF7030601040D85094409C509450DD5010403060FF70
GROB 11 11 FF7030601040DC50905098409440D54010403060FF70
GROB 11 11 FF7030601040DC5094509C509450DD5010403060FF70
GROB 11 11 FF7030601040DC5094509C509050DD5010403060FF70
GROB 11 11 FF7030601040D9401550D5505450D94010403060FF70
GROB 11 11 FF7030601040DD401940D9405840DD5010403060FF70
GROB 11 11 FF7030601040DD501150DD505440DD5010403060FF70
GROB 11 11 FF7030601040DD501150DD505050DD5010403060FF70
GROB 11 11 FF7030601040D5501550DD505050D15010403060FF70
}
END
