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.
15 lines
655 B
QBasic
15 lines
655 B
QBasic
'Twirl by Antoni Gual, from an idea by Steve Nunnaly
|
|
'for Rel's 9 LINER contest at QBASICNEWS.COM 1/2003
|
|
'------------------------------------------------------------------------
|
|
|
|
1 IF i THEN CIRCLE (160, 100), i, (i MOD 16) + 32, , , .8 ELSE SCREEN 13
|
|
2 i = i + 1
|
|
3 IF i < 200 THEN GOTO 1 ELSE DIM b2%(5000)
|
|
4 w = (w + .3)
|
|
5 xmid = 140 + SIN(7 * w / 1000) * 110
|
|
6 ymid = 80 + SIN(11 * w / 1000) * 59
|
|
7 GET ((xmid - (SIN(w) * 28)), (ymid - (COS(w) * 20)))-((xmid - (SIN(w) * 28)) + 40, (ymid - (COS(w) * 20)) + 40), b2%
|
|
8 PUT ((xmid - (SIN(w - .04) * 27.16)), (ymid - (COS(w - .04) * 19.4))), b2%, PSET
|
|
9 IF LEN(INKEY$) = 0 THEN GOTO 4
|
|
|
|
|