mirror of
https://github.com/QB64Official/qb64.git
synced 2024-09-19 20:16:24 +00:00
b586eafd3b
LINE INPUT will now use the faster method if passed a file handle that has been opened FOR BINARY. As such, the _BLINEINPUT command has been removed. qb64.bas now takes advantage of this for reading from '$include files, at least in Include Manager 1. Some tweaking of internal/source/main.txt was required to get things into a sane state, so I'm holing off changing the compiler any further so the auto-builder can make sure everything's smoothed over. Note: Everything should still compile as normal; I'm just being overcautious.
22 lines
374 B
QBasic
22 lines
374 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
|
|
|