mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-01 01:06:33 +00:00
9 lines
279 B
QBasic
9 lines
279 B
QBasic
1HOME:POKE49167,0
|
|
2FORX=0TO64:POKE1024+RND(1)*999,174:NEXT
|
|
3FORI=0TO1:COLOR=6-I:FORJ=0TO1
|
|
4HLIN8,10AT6+J*10+I:HLIN7,11AT8+J*6+I:HLIN6,12AT10+J*2+I:NEXTJ,I
|
|
6VTAB6:HTAB11:?"()"
|
|
7FORX=13TO37:POKE1063+X,90:POKE1064+X,91:POKE1065+X,95
|
|
8FORI=1TO200:NEXT:VTAB9:HTABX:?" ":NEXT
|
|
9GOTO7
|