mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-16 23:20:43 +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
|