mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-20 03:35:24 +00:00
9 lines
141 B
QBasic
9 lines
141 B
QBasic
10 GR:COLOR=9
|
|
20 FOR X=0 TO 39
|
|
30 POKE 2138,X
|
|
40 FOR Y=0 TO X
|
|
50 POKE 2140,Y:CALL 2137
|
|
60 PLOT X,PEEK(36)
|
|
70 NEXT Y,X
|
|
100 SPEED=$)%DEL$LRUSR
|