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.
24 lines
No EOL
501 B
QBasic
24 lines
No EOL
501 B
QBasic
CLS
|
|
SCREEN 12
|
|
RANDOMIZE TIMER
|
|
DO
|
|
CLS
|
|
LET X = 15
|
|
LET Y = 10
|
|
LET DX = 1
|
|
LET DY = 1
|
|
C = INT(RND * 14) + 1
|
|
FOR L = 1 TO 100
|
|
210 LET XN = X + DX
|
|
LET YN = Y + DY
|
|
IF XN = 0 OR XN = 640 THEN LET DX = -DX: C = INT(RND * 14) + 1: SOUND 500, 2
|
|
IF YN = 0 OR YN = 480 THEN LET DY = -DY: C = INT(RND * 14) + 1: SOUND 500, 2
|
|
REM CIRCLE (X, Y), 100, 0
|
|
CIRCLE (XN, YN), 100, C
|
|
REM PSET (XN, YN), 2
|
|
LET X = XN: LET Y = YN
|
|
REM FOR I = 1 TO 600: NEXT I
|
|
IF INKEY$ <> "" THEN END
|
|
GOTO 210
|
|
NEXT L
|
|
LOOP |