home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 351-375 / apd373 / copyright.amos / copyright.amosSourceCode < prev    next >
AMOS Source Code  |  1993-03-15  |  2KB  |  80 lines
  1. '----------------------------------------------------------------------------
  2. ' This procedure produces the necessary copyright conditions enabling
  3. ' you to release your compiled program into the PD, ShareWare, 
  4. ' or LicenseWare.
  5. '  
  6. ' If you wish to produce your own screen, you must ensure that the following 
  7. ' text appears on your screen: 
  8. '  
  9. ' "This program was written using AMOS"
  10. '
  11. ' It is essential that the AMOS in the above text appears as a graphic logo. 
  12. '
  13. ' This is all we ask of you and hope you will respect our request. 
  14. '
  15. ' A small AMOS sprite can be found in the Copyright_Sprite.Abk file on this disc.  
  16. '----------------------------------------------------------------------------
  17. '
  18. Curs Off : Print 
  19. Centre ">>> Big copyright! <<<"
  20. _COPYRIGHT[75]
  21. '
  22. Centre ">>> Small copyright! <<<"
  23. _SMALL_COPYRIGHT[225]
  24. '
  25. Procedure _SMALL_COPYRIGHT[YDISPLAY]
  26.    '
  27.    Auto View Off 
  28.    '  
  29.    Screen Open 7,320,24,16,0 : Curs Off : Flash Off : Cls 0
  30.    Screen Display 7,,-100,,
  31.    Paste Bob 260,3,1
  32.    Paper 0 : Pen 7 : Print At(1,1);"This program was written using"
  33.    Get Sprite Palette 
  34.    View : Wait Vbl 
  35.    '
  36.    For Y=1 To Screen Height/2
  37.       Screen Display 7,,YDISPLAY+Screen Height/2-Y,,Y*2
  38.       Screen Offset 7,,Screen Height/2-Y
  39.       View : Wait Vbl 
  40.    Next 
  41.    '
  42.    Wait 100
  43.    '
  44.    For Y=Screen Height/2 To 0 Step -1
  45.       Screen Display 7,,YDISPLAY+Screen Height/2-Y,,Y*2
  46.       Screen Offset 7,,Screen Height/2-Y
  47.       View : Wait Vbl 
  48.    Next 
  49.    '
  50.    Screen Close 7
  51.    Auto View On 
  52.    '
  53. End Proc
  54. '
  55. Procedure _COPYRIGHT[YDISPLAY]
  56.    '  
  57.    Auto View Off 
  58.    '
  59.    Unpack 10 To 7
  60.    '
  61.    For Y=2 To Screen Height/2 Step 2
  62.       Screen Display 7,,YDISPLAY+Screen Height/2-Y,,Y*2
  63.       Screen Offset 7,,Screen Height/2-Y
  64.       View 
  65.       Wait Vbl 
  66.    Next 
  67.    '
  68.    Wait 100
  69.    '
  70.    For Y=Screen Height/2 To 0 Step -8
  71.       Screen Display 7,,YDISPLAY+Screen Height/2-Y,,Y*2
  72.       Screen Offset 7,,Screen Height/2-Y
  73.       View 
  74.       Wait Vbl 
  75.    Next 
  76.    '
  77.    Screen Close 7
  78.    Auto View On 
  79.    '
  80. End Proc