home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / dev / ace-2.0.lha / ACE-2.0 / prgs / hi.b < prev    next >
Encoding:
Text File  |  1994-01-10  |  394 b   |  30 lines
  1. defint a-z
  2.  
  3. screen 1,320,200,3,1
  4.  
  5. palette 0,0,0,0
  6. palette 1,0,0,1
  7. palette 2,0,1,0
  8. palette 3,0,1,1
  9. palette 4,1,0,0
  10. palette 5,1,0,1
  11. palette 6,1,1,0
  12. palette 7,1,1,1
  13.  
  14. window 1,"Hello World!  <press 'q' key to quit>",(0,0)-(320,200),,1
  15.  
  16. while inkey$<>"q"
  17.  x=rnd*80
  18.  y=rnd*25
  19.  repeat 
  20.   f=rnd*7+1
  21.   b=rnd*8
  22.  until f <> b
  23.  color f,b
  24.  locate y,x
  25.  print "Hi There!";
  26. wend
  27.  
  28. window close 1
  29. screen close 1
  30.