home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / general / pattern_viewr.amos / pattern_viewr.amosSourceCode
Encoding:
AMOS Source Code  |  1993-02-25  |  407 b   |  17 lines
  1. '            PATTERN VIEWER BY JASON CHAN  
  2. ' >>>>>>  JUST PRESS ANY KEY TO VIEW PATTERNS <<<<<< 
  3. MAIN
  4. Procedure MAIN
  5.    Screen Open 0,320,256,64,Lowres : Curs Off : Change Mouse 2 : Cls 0
  6.    N=0
  7.    Ink 9,38
  8.    Locate ,6 : Cline 
  9.    Do 
  10.       Inc N
  11.       If N=36 Then N=1 : Locate ,6 : Cline 
  12.       Set Pattern N
  13.       Locate ,6 : Print "PATTERN:";N
  14.       Bar 0,0 To 320,32
  15.       Wait Key 
  16.    Loop 
  17. End Proc