home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / maksiu / utils / eaissue3b.lha / Source_Code / UN_Fill_Patterns.AMOS / UN_Fill_Patterns.amosSourceCode
AMOS Source Code  |  1995-12-30  |  590b  |  19 lines
  1. Rem ************************************ 
  2. Rem *        AMOS Example 6.2          * 
  3. Rem *         Fill patterns            * 
  4. Rem *    (c) Mandarin / Jawx 1990      * 
  5. Rem ************************************ 
  6. Rem
  7. Do 
  8.    Locate 0,0 : Input "Choose the Ink Colour   [0-15]";I
  9.    Locate 0,1 : Input "Choose the Paper colour [0-15]";P
  10.    Locate 0,2 : Input "Choose a fill pattern   [0-34]";F
  11.    Ink I,P
  12.    Set Pattern F
  13.    Locate 0,4 : Centre "<Fill Pattern selected>"
  14.    Bar 0,50 To 320,190
  15.    Locate 0,24 : Input "Another go? [y,n]";Y$
  16.    Exit If Y$="n"
  17.    Exit If Y$="N"
  18.    Clw 
  19. Loop : Edit