colordemo.wb 377 B

1234567891011
  1. 100 rem draw random characters
  2. 110 if hardarch = 0 then print "Try in WonerSwanColor":a=wait:end
  3. 120 colormode 128
  4. 200 for i=0 to 1000
  5. 300 locate rnd(28), rnd(17):color rnd(4), rnd(4):print chr(rnd(256));
  6. 400 next
  7. 450 locate 0,0:color 3,0:print "Push START to exit...."
  8. 500 rem palette random
  9. 600 palette rnd(4), rnd(16), rnd(16), rnd(16)
  10. 700 waitvb 30
  11. 800 goto 500