(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)
|