mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-07-05 15:29:14 +00:00
9 lines
280 B
QBasic
9 lines
280 B
QBasic
0 DIM A(9,9):FOR I=0 TO 8:FOR J=0 TO 8:A(I,J)=40/(2+I+J/7):NEXTJ,I
|
|
1 GR:N=23
|
|
2 FOR Q=6 TO 0 STEP -1:P=0
|
|
3 FOR I=0 TO 19:IF 20-I>A(P,Q) THEN 7
|
|
4 P=P+1:Z=39-I:J=I+1:W=Z-1
|
|
6 COLOR=N+P:HLIN J,W AT I:HLIN J,W AT Z:VLIN J,W AT I:VLIN J,W AT Z
|
|
7 NEXTI,Q:N=N+1:IF N=32 THEN N=16
|
|
8 GOTO 2
|