(Continued from previous message)
   END SUB
   SUB ERASEBLOCK SHARED
      COLOR 0
      'erase previous block
      LOCATE YPOS,XPOS
      PRINT BLOCK$(BLOCKCOLOR,BLOCKROTATION);
      COLOR 15
   END SUB
   SUB DROP2BOTTOMLINE SHARED
      O=0
      U=BLOCKROTATION
      OLDXPOS=XPOS
      OLDYPOS=YPOS-1
      WHILE O=0
         INCR OLDYPOS
         CALL TESTFIT
      WEND
      YPOS=OLDYPOS-1
      T1!=T1!-3
   END SUB
   SUB zLEFT SHARED
      U=BLOCKROTATION
      OLDYPOS=YPOS
      OLDXPOS=XPOS-1
      CALL TESTFIT
      XPOS=XPOS+(O=0)
      CALL PRINTBLOCK
   END SUB
   SUB zROTATE SHARED
      U=BLOCKROTATION+1
      IF U>Q(BLOCKCOLOR) THEN
         U=1
      END IF
      OLDYPOS=YPOS
      OLDXPOS=XPOS
      CALL TESTFIT
      BLOCKROTATION=-(O=0)+(BLOCKROTATION AND(BLOCKROTATION27-BLOCKWIDTH(BLOCKCOLOR,BLOCKROTATION))-(OLDXPOS<14)
      FOR I=0 TO BLOCKHIGHT(BLOCKCOLOR,U)-1
         FOR J=0 TO BLOCKWIDTH(BLOCKCOLOR,U)-1
            IF R(BLOCKCOLOR,U,I+1,J+1)=1 AND SCREEN(OLDYPOS+I,OLDXPOS+J,1)>0_
               THEN
               O=1
            END IF
         NEXT J
      NEXT I
   END SUB
SCORES:
   DATA 7,DOUBLE,150,TRIPLE,300,TETRIS,900,28,219,29,31
SHAPES:
   DATA 
1100110000000000,2243322,11110000000000001000100010001000,2222,24324324
   DATA 
1110100000000000110001000100000000101110000000001000100011000000,222433
   DATA 
01101100000000001000110001000000,122433322,24322432,1100011000000000010
---
 * QMPro 1.53 * Windws is ine for bckgroun comunicaions - Bll Gats, 192
--- GEcho 1.20/Pro
---------------