DefInt A-Z
DEF SEG = &HB800
Randomize Timer

shell"dir" '为了让屏幕有点东西

LOCATE , , 0
Do
again: i = Int(Rnd * 1999)
   col = i \ 80
   i = 2 * i
   ch = PEEK(i)
   If (ch = &H20) Or (ch = &H0) Then GoTo again
   cover = 0
   For j = 0 To 23 - col
      For o& = 1 To 50000       '调整速度改这里
      Next o&
      POKE i + 160 * j, cover
      cover = PEEK(i + 160 * (j + 1))
      POKE i + 160 * (j + 1), ch
   Next j
Loop Until INKEY$ <> ""