mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-06 02:20:25 +00:00
9ee89d6ff4
These tests use a variety of sample code (with some of the larger files removed, so they are not complete!) and verifies that they all compile successfully.
23 lines
352 B
QBasic
23 lines
352 B
QBasic
CLS
|
|
COLOR 2
|
|
d% = 2
|
|
w% = 2
|
|
WHILE INKEY$ = ""
|
|
LOCATE w%, d%
|
|
RANDOMIZE TIMER
|
|
c = INT(RND * 2)
|
|
f = INT(RND * 15) + 1
|
|
IF c = 0 THEN : FOR p = 1 TO 300: NEXT p: COLOR f: PRINT CHR$(1)
|
|
|
|
IF c = 1 THEN : FOR p = 1 TO 300: NEXT p: COLOR f: PRINT CHR$(2)
|
|
|
|
w% = w% + 1
|
|
IF w% = 23 THEN
|
|
d% = d% + 1
|
|
w% = 2
|
|
END IF
|
|
IF d% = 80 THEN SLEEP 1: CLS : w% = 2: d% = 2
|
|
|
|
WEND
|
|
|