home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 451-475 / apd463 / amos1.34_progs / listpalette.amos / listpalette.amosSourceCode
AMOS Source Code  |  1993-01-17  |  334b  |  21 lines
  1. Rem Displays current palette on screen 
  2. '
  3. LISTPAL
  4. '
  5. Procedure LISTPAL
  6.    
  7.    SC=Screen Colour/2 : SW=Screen Width
  8.    
  9.    If SC>64 Then SC=32
  10.    
  11.    For C=0 To SC
  12.       Ink C
  13.       Bar C*(SW/SC),0 To C*(SW/SC)+(SW/SC),9
  14.    Next C
  15.    
  16.    For C=0 To SC
  17.       Ink C+SC
  18.       Bar C*(SW/SC),10 To C*(SW/SC)+(SW/SC),20
  19.    Next C
  20.    
  21. End Proc