mirror of
https://github.com/QB64Official/qb64.git
synced 2024-09-28 11:17:47 +00:00
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
|
|
|