testlocate.wb 136 B

1234567
  1. 2 rem cls, locale‚̃eƒXƒg
  2. 5 cls
  3. 7 randomize tick
  4. 10 for i=0 to 999
  5. 20 locate rnd(28),rnd(18)
  6. 30 print chr(rnd(26)+0x41);
  7. 40 next