mirror of
https://github.com/QB64Official/qb64.git
synced 2024-09-04 11:10:15 +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.
16 lines
642 B
QBasic
16 lines
642 B
QBasic
'Matrix by Antoni Gual agual@eic.ictnet.es
|
|
'for Rel's 9 LINER contest at QBASICNEWS.COM 1/2003
|
|
'------------------------------------------------------------------------
|
|
1 DEF SEG = &HB800
|
|
2 FOR i% = 0 TO 159 STEP 4
|
|
' adjust this speed constant for optimal effect
|
|
' | 0 no speed ;) .05 should be too fast even for a 386
|
|
' |
|
|
3 IF RND < .0005 THEN j% = 3840 ELSE j% = -1
|
|
4 IF j% > 0 THEN POKE j% + i%, PEEK(j% - 160 + i%)
|
|
5 IF j% > 0 THEN j% = j% - 160
|
|
6 IF j% > 0 THEN GOTO 4
|
|
7 IF j% = 0 THEN IF RND > .3 THEN POKE i%, 96 * RND + 32 ELSE POKE i%, 32
|
|
8 NEXT
|
|
9 IF LEN(INKEY$) = 0 THEN GOTO 2
|
|
|