%%HP: T(3)A(D)F(.);
@ TETRIS by Fran Dachille
@ Convert WHOLE with ASC-> before use.
DIR
  PLAY
    \<< -11 CF -12 SF ERASE { # 0h # 0h } PVIEW
      PICT { # Ah # 0h } TET REPL 63 24
      FOR J PICT { # 10h } J R\->B + KEYS REPL -1
      STEP 1 WAIT 63 24
      FOR Y PICT { # 8h } Y R\->B + INFO REPL -1
      STEP 3 WAIT TEXT WHOLE CHIP48
    \>>
  TET
GROB 110 17 FFFF38FF70FFFF38FF300EF008F3CFFF10FF70CFFF10FF700C700CF38FFF00EF708FFF00EFF008300EF3807800E060807800E0E108300F03007000E040007000E0C108300702007000E000007000E0C108300700007000E800007000E0E108300F00007000EF00007000EFF008300FF0007000EF00007000EF7008300EF1007000EF00007000EF3008300CF3007000E800007000EC30083000C3007000E000007000E87008300083007000E040007000E0F008300183007000E060007000E0E0083003C3007000EF70007000E0E008300FF308F000FF7008F000F1F10C700FF10CF108FF700CF108FBF30EF00FF0
  INFO
GROB 114 38 F070000805000040A00000000000002010000C97402040F0000000000000A375777B0D13577EABB9BBBB100000A24555590553755AAA98AAB9100000A37777790553557EAAB8BBAB5000000000110000000000000020004000000000000000000000000810000000007004C100800CD94264EA411700000010044077C10445D2AA2A41110000007777C1558E0CCD52AE2E4113000000435501778A04C453AA2A41110000007757C5008E0445526AEA4777000000000000000000000000000000000000000000000004473349EEABAB30000000000000000441554B242929000000000000000004533349E4292910000000000000000C61554D842929000000000000000004473349E4293930000000000000000000000000000000000000000000000CB8B4CD5D12518ABA300000000000048885445506908A8220000000000004B894445D02908ABB30000000000004A88644550A90822A0000000000000CBBB4CD9C52908A3A30000000000000000000004000000000A308080C9CD110000000002000000011080804454820000000002000000019BBAEECDDDCDDCEA6B3BBB300000019A8AA60515845CAA2919AA1000000ABABEEEC5DD9C5CEE2B3BBB3000000000000000004000000000000000000018020000010002008000000000000014170002820007100100000000000C7EAAAD18FDDEE2CD1100000000000414AAAC0AA45EA2551100000000000C14EABC1AAC5AE2D59000000000000002000000400000000000000000000000000000000000000000000000000
  KEYS
GROB 85 26 70100708001000C140E0801830050C1830004140208037DD677BE61000C5DD6EE015D4033BA21000C4512AA075D5057BE210004DD1EAE0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000058380200C120A2001E0880582C1700402077080A28C17BBBEA30CD2E220CDE8BB0489AAA100126220416AAA048ABEA30C1EE220C1AABA00000000000001000000200000000000000000000810000000000000000000000000000000000000000000000481000000000000000000048200000000000000000004BADD1000000000000000048A4510000000000000000489CD10000000000000000000040000000000000000000004000000000000000000000000000000000000000
  WHOLE  @ convert with ASC->
"C2A20DD3002A4B326E226B07100D110352216017FF0D1106A10D110652130021
E04C07440721C13C3006E1163022C55F510D41F31021C30D4117FF0D41320421
C17E1A22278E1A22489E1A22692EE9210566006F516F70630021C30D41171021
A22A4C4FE166003410664034206680343066C06FE100EE0D4107FF3243F31000
EE0D410710324300EE0D4107103243F31000EE0D4107FF324300EE0D41371034
40360022C53243F31000EE0D4137FF34FF363022C5324300EE08007650866096
4016F15601267000EE040E0000040C0400000E04000406040004040600020E00
000C040400000E080004040C00000E020006040400080E0000040C08000C0600
00040C08000C060000080C040000060C00080C040000060C000C0C00000C0C00
000C0C00000C0C000004040404000F000004040404000F00000D41665367FF63
00318300EE2A4BC801C3E1C710C3E1C710C3E1C71032E5B4A03227190C00EE17
10310506B1B6000D11F300B7100D1107100352312600EE06B10D110710035231
47E801D80EE7FF06B1B6000D1EF30031090D1E31490D1DB710071003523168B4
00316AD7FFE7FFD3103128320CF310320CA710320C080AD670082D044057EF54
20564000EE7A002F558A40AF332F560F92D623E600DD5ED7501F92DD5ED7502F
92DD5E7A002F562A4B00EEA600069100EE7332"
END