home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / routines / text_intro.amos / text_intro.amosSourceCode
AMOS Source Code  |  1990-07-25  |  2KB  |  62 lines
  1. Screen Open 1,640,200,16,Hires
  2. Cls 11 : Curs Off : Hide : Flash Off 
  3. Box 4,4 To 636,196 : Box 7,7 To 633,193
  4. Cls 0,86,35 To 560,160
  5. Wait 20
  6. Proc FIRST : Rem ------------------ Procedures Called 
  7. Proc SECOND
  8. Proc LAST
  9. End 
  10. Rem ----> End of Main Program <----  
  11. Rem * Text Window Procs *
  12. Procedure FIRST
  13.    Paper 0 : Pen 5
  14.    Print At(15,6);"AMOS is am amazing new Basic specially written"
  15.    Print At(15,);"for the Amiga by Francois Lionet. "
  16.    Print At(15,9);"It is a new concept making complex, fast machine code "
  17.    Print At(15,);"methods accessible and fun to use.  Graphics can be"
  18.    Print At(15,);"used with ease and without hours of poring over"
  19.    Print At(15,);"difficult to understand Manuals."
  20.    Print At(15,);""
  21.    Print At(15,);"Pictures from De Luxe Paint, Sprites and Bobs"
  22.    Print At(15,);"can all be used in all kinds of Creative ways."
  23.    Print At(15,);" "
  24.    Centre "* * * *"
  25.    CLICK
  26.    PAUSE
  27. End Proc
  28. Procedure SECOND
  29.    Cls 10,86,35 To 560,160
  30.    Paper 10 : Pen 2
  31.    Print At(15,6);" The Editor is one of the best and makes all"
  32.    Print At(15,);"tasks  enjoyable.  Structured programming is"
  33.    Print At(15,9);"simple to do and Procedures can be Folded to"
  34.    Print At(15,);"take up only one line.   Moving from one part"
  35.    Print At(15,);"of a program is very slick and easy to do using"
  36.    Print At(15,);"either the scroll bars or easily remembered key "
  37.    Print At(15,);"combinations."
  38.    Print At(15,);""
  39.    Print At(15,);"AMOS has 500 commands and handles with the familiar "
  40.    Print At(15,);"feel of the well-known Microsoft Basics. "
  41.    Print At(16,);""
  42.    Centre "* * * *"
  43.    PAUSE
  44.    Cls 0
  45. End Proc
  46. Procedure LAST
  47.    Cls 11,86,35 To 560,160
  48.    Paper 11 : Pen 2
  49.    Print At(32,11);Border$("End of Program.",1)
  50.    PAUSE
  51. End Proc
  52. Rem * Utility Procs *
  53. Rem -------------------------- 
  54. Procedure PAUSE
  55.    While Mouse Click=0 : Wend 
  56. End Proc
  57. Rem -------------------------- 
  58. Procedure CLICK
  59.    Paper 11 : Pen 1
  60.    Print At(27,22);"Click Mouse to continue."
  61. End Proc
  62. Rem --------------------------