home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / programm / language / amosutil.lzh / OUTLINES.AMOS / OUTLINES.amosSourceCode
Encoding:
AMOS Source Code  |  1992-11-11  |  640 b   |  29 lines
  1. Screen Open 0,320,200,4,Lowres
  2. Flash Off 
  3. Cls 0
  4. Palette $6C,$FFF,$0
  5. OUTLINE[75,50,1,2,"AMOS & AMIGA COMPUTING"]
  6. SHADOW[75,70,1,2,"AMOS & AMIGA COMPUTING"]
  7. SHADOUT[75,90,1,2,"AMOS & AMIGA COMPUTING"]
  8. End 
  9. Procedure OUTLINE[X,Y,_INK,_LINE,_TXT$]
  10.    Gr Writing 0
  11.    Ink _LINE
  12.    Text X+1,Y,_TXT$
  13.    Text X-1,Y,_TXT$
  14.    Text X,Y-1,_TXT$
  15.    Text X,Y+1,_TXT$
  16.    Ink _INK
  17.    Text X,Y,_TXT$
  18. End Proc
  19. Procedure SHADOW[X,Y,_INK,_SHAD,_TXT$]
  20.    Gr Writing 0
  21.    Ink _SHAD
  22.    Text X+1,Y+1,_TXT$
  23.    Ink _INK
  24.    Text X,Y,_TXT$
  25. End Proc
  26. Procedure SHADOUT[X,Y,_INK,_SHAD,_TXT$]
  27.    OUTLINE[X+1,Y+1,_SHAD,_SHAD,_TXT$]
  28.    OUTLINE[X,Y,_INK,_SHAD,_TXT$]
  29. End Proc