mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-03 17:01:21 +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.
70 lines
1.6 KiB
QBasic
70 lines
1.6 KiB
QBasic
'2007 mennonite
|
|
'public domain
|
|
|
|
ON ERROR GOTO 10
|
|
DIM b AS INTEGER
|
|
DIM a AS INTEGER
|
|
DIM atwo AS INTEGER
|
|
q$ = "...../" + CHR$(92) + "........./__" + CHR$(92) + "......./____" + CHR$(92) + "...../_q____" + CHR$(92) + ".../___b____" + CHR$(92) + "./__________" + CHR$(92)
|
|
q$ = q$ + CHR$(92) + "__________/." + CHR$(92) + "____6___/..." + CHR$(92) + "____4_/....." + CHR$(92) + "____/......." + CHR$(92) + "__/........." + CHR$(92) + "/....."
|
|
COLOR , 1
|
|
|
|
FOR y = 25 TO 1 STEP -1
|
|
FOR x = 1 TO 80
|
|
LOCATE y, x: PRINT CHR$(32);
|
|
NEXT x
|
|
NEXT y: LOCATE 1, 1
|
|
|
|
RANDOMIZE TIMER
|
|
FOR a = 1 TO 10
|
|
strn$ = strn$ + "||" + CHR$(247)
|
|
NEXT a
|
|
DO
|
|
|
|
FOR y = 25 TO 1 STEP -1
|
|
FOR x = 1 TO 80
|
|
LOCATE y, x: PRINT CHR$(32);
|
|
NEXT x
|
|
NEXT y: LOCATE 1, 1
|
|
|
|
b = b + (RND(1) * 3 - .5 - 1)
|
|
a = a + (RND(1) * 3 - .5 - 1)
|
|
IF b < 1 THEN b = 1 ELSE IF b > 10 THEN b = 10
|
|
IF a < 1 THEN a = 1 ELSE IF a > 67 THEN a = 67
|
|
FOR y = 1 TO 12
|
|
FOR x = 1 TO 12
|
|
one$ = RIGHT$(LEFT$(q$, y * 12 - 12 + x), 1)
|
|
|
|
fc = 11
|
|
IF one$ = "." THEN fc = 1
|
|
IF one$ = "_" THEN fc = 3
|
|
IF ASC(UCASE$(one$)) > 64 AND ASC(UCASE$(one$)) < 91 THEN fc = 14
|
|
IF ASC(UCASE$(one$)) > 47 AND ASC(UCASE$(one$)) < 58 THEN fc = 14
|
|
|
|
COLOR fc
|
|
LOCATE y + b, x + a
|
|
PRINT one$;
|
|
NEXT x
|
|
NEXT y
|
|
COLOR 15
|
|
atwo = 0
|
|
cursorline = b + 12
|
|
DO WHILE cursorline <= 24
|
|
LOCATE cursorline + 1, x + a - 6 + atwo
|
|
atwo = atwo + (RND(1) * 3 - .5 - 1)
|
|
PRINT RIGHT$(LEFT$(strn$, cursorline), 1);
|
|
cursorline = cursorline + 1
|
|
LOOP
|
|
t = TIMER: DO: LOOP UNTIL t > TIMER + .25 OR t < TIMER - .25
|
|
LOOP UNTIL INKEY$ = CHR$(27)
|
|
|
|
COLOR 7, 0
|
|
FOR y = 25 TO 1 STEP -1
|
|
FOR x = 1 TO 80
|
|
LOCATE y, x: PRINT CHR$(32);
|
|
NEXT x
|
|
NEXT y: LOCATE 1, 1
|
|
END
|
|
10 RESUME NEXT
|
|
|