mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-01 01:06:33 +00:00
12 lines
328 B
QBasic
12 lines
328 B
QBasic
5 REM BY @hisham_hm Mar 7 @AppleIIBot
|
|
10 GR:N=23
|
|
20 FOR X=4 TO 0 STEP -1
|
|
30 FOR I=15+X TO X STEP -5
|
|
40 Z=39-I/2:J=I+1:W=Z-1
|
|
42 COLOR=N:HLIN J,W AT I:HLIN J,W AT Z:VLIN J,W AT I:VLIN J,W AT Z
|
|
46 REM COLOR=N:HLIN J,W AT J:HLIN J,W AT W:VLIN J,W AT J:VLIN J,W AT W
|
|
48 N=N+1
|
|
50 NEXT:N=N-4
|
|
60 NEXT:N=N-1:IF N=16 THEN N=32
|
|
70 GOTO 20
|