mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-06 00:00:22 +00:00
70 lines
1.7 KiB
QBasic
70 lines
1.7 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
|
|
|