home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / ace_basic / ace / prgs / hi.b < prev    next >
Text File  |  1977-12-31  |  396b  |  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),32,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.