mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-25 09:29:35 +00:00
13 lines
259 B
QBasic
13 lines
259 B
QBasic
5 REM BY @hisham_hm Mar 7 @AppleIIBot
|
|
10 GR:N=23
|
|
15 FOR X=2 TO 0 STEP -0.5
|
|
17 N=23
|
|
20 FOR D=20+X TO 2+X STEP -1
|
|
40 H=40/D:L=20-H:R=19+H
|
|
42 COLOR=N
|
|
43 HLIN L,R AT L:HLIN L,R AT R:VLIN L,R AT L:VLIN L,R AT R
|
|
48 N=N-1
|
|
60 NEXT:IF N<5 THEN N=23
|
|
65 NEXT
|
|
70 GOTO 15
|