home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 10 / Amoszine 10 (Disk 3 of 3).adf / Amos_Procs.lha / Patterns.AMOS / Patterns.amosSourceCode
Encoding:
AMOS Source Code  |  1991-12-03  |  373 b   |  24 lines
  1. Rem * Patterns.AMOS *
  2. Rem *   John Gray   *
  3. Cls 0
  4. Curs Off 
  5. Hide 
  6. Paper 0
  7. Pen 2
  8. Centre "Hold Down Left Mouse Button To Quit"
  9. Wait 100
  10. Do 
  11.    Exit If Mouse Key=1
  12.    Ink 6
  13.    P=Rnd(30)+4
  14.    Print At(2,2);"Pattern Number ";P
  15.    Set Pattern P
  16.    Circle 155,105,55
  17.    Paint 160,100
  18.    Set Pattern P-2
  19.    Ink Rnd(15)
  20.    Circle 155,105,65
  21.    Paint 95,105
  22.    Wait 150
  23.    Cls 0
  24. Loop