(Continued from previous message)
   END SUB
   SUB MAINSCREEN SHARED
      'build the screen
      E$=CHR$(219)
      PRINT"Score",,,,"Line",," 0",,"Next",,,,,,,,,,"Level",," 0",,"(c) 1992"
      FOR I=1 TO 23
      'This builds the boundaries
         LOCATE I,13
         PRINT E$;
         COLOR 0
         PRINT STRING$(12,E$);
         COLOR 15
         PRINT E$;
      NEXT I
      PRINT" Stats","PB-Tetris   "STRING$(14,E$)" T. de Koning";
   END SUB
   SUB BUILDBLOCKS SHARED
      READ SHAPE
      DIM BLOCK$(SHAPE,4),R(SHAPE,4,4,4),Q(SHAPE),BLOCKHIGHT(SHAPE,4),_
         BLOCKWIDTH(SHAPE,4),A(24),AVERAGEBLOCKS(SHAPE),F$(3),D(3),C(4)
      FOR I=1 TO 3
         READ F$(I),D(I)
      NEXT
      FOR I=1 TO 4
         READ C(I)
      NEXT
      FOR H=1 TO SHAPE
         READ VALUE$
         Q(H)=LEN(VALUE$)/16
         FOR I=1 TO Q(H)
            READ K$
            RANDOMIZE -TIMER*RND
            FOR G=1 TO LEN(K$)
               BLOCK$(H,I)=BLOCK$(H,I)+CHR$(C(VAL(MID$(K$,G,1))))
            NEXT
            FOR J=1 TO 4
               IF (INSTR(MID$(VALUE$,(I-1)*16+(J-1)*4+1,4),"1")>0) THEN
                  BLOCKHIGHT(H,I)=BLOCKHIGHT(H,I)+1
               END IF
               FOR K=1 TO 4
                  C$=MID$(VALUE$,(I-1)*16+(J-1)*4+K,1)
                  R(H,I,J,K)=VAL(C$)
                  IF C$="1" AND BLOCKWIDTH(H,I) * Origin: Toast House * (314) 994-0312 * (1:100/560)