TIP: Click on subject to list as thread! ANSI
echo: power_bas
to: ALL
from: DAVE NAVARRO
date: 1995-10-21 18:52:00
subject: Tetris for PowerBASIC 2/4

(Continued from previous message)
      IF A(H)=4095 THEN
         CALL NEXTLEVEL
         INCR M
         SCORE!=SCORE!+INT(RND*100)
      END IF
   NEXT
   IF M<2 THEN
      GOTO NEXTBLOCK
   END IF
   COLOR 15
   LOCATE 15,1
   PRINT F$(M-1);
   SCORE!=SCORE!+D(M-1)
   NU!=TIMER
   WHILE TIMER3 AND LINES/15=LINES\15)+1 THEN
         EXIT SUB
      END IF
      FOR I=2 TO 23
         FOR J=14 TO 25
            LOCATE I,J
            COLOR SCREEN(I+1,J,1)
            PRINT E$;
         NEXT
         A(I)=A(I+1)
      NEXT
      SOUND 100,1
      COLOR 0
      LOCATE 23,14
      IF LEVEL<8 THEN
         PRINT STRING$(12,E$);
      END IF
(Continued to next message)
---
 * QMPro 1.53 * Windws is ine for bckgroun comunicaions - Bll Gats, 192
--- GEcho 1.20/Pro
---------------
* Origin: Toast House * (314) 994-0312 * (1:100/560)

SOURCE: echomail via exec-pc

Email questions or comments to sysop@ipingthereforeiam.com
All parts of this website painstakingly hand-crafted in the U.S.A.!
IPTIA BBS/MUD/Terminal/Game Server List, © 2025 IPTIA Consulting™.