mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-02-02 16:31:31 +00:00
9 lines
303 B
QBasic
9 lines
303 B
QBasic
5 REM BY @hisham_hm Mar 7 @AppleIIBot
|
|
10 GR:N=7
|
|
20 FOR X=0 TO 4
|
|
30 FOR I=X TO 15+X STEP 5:COLOR=0
|
|
40 Z=39-I:J=I+1:W=Z-1:HLIN J,W AT I:HLIN J,W AT Z:VLIN J,W AT I:VLIN J,W AT Z: COLOR=N:HLIN J,W AT J:HLIN J,W AT W:VLIN J,W AT J:VLIN J,W AT W:N=N+1
|
|
50 NEXT:N=N-4
|
|
60 NEXT:N=N-1:IF N=0 THEN N=12
|
|
70 GOTO 20
|