home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / w3_disk / oriel.arj / INTRO.ORL < prev    next >
Encoding:
Text File  |  1991-07-31  |  1.9 KB  |  54 lines
  1. {-------------------------INTRO.ORL----------------------------------
  2.  This program puts up a series of screens that explain some of
  3.  Oriel's basic features.
  4.  -------------------------------------------------------------------}
  5. {Maximize the window and display caption}
  6.     SetWindow(MAXIMIZE)
  7.     UseCaption("Introduction to Oriel")
  8.  
  9. {Inialize variable}
  10.     Set DelayFactor=2500
  11.  
  12. {Draw the background}
  13.     UseBackground(OPAQUE,0,255,0)    {Green background}
  14.     DrawBackground
  15.  
  16. {Display first introductory screen and pause}
  17.     UseFont("Tms Rmn",0,12,BOLD,NOITALIC,NOUNDERLINE,0,0,0)
  18.     DrawText(25,10,"Welcome to")
  19.     UseFont("Roman",0,20,BOLD,NOITALIC,NOUNDERLINE,255,0,0)
  20.     DrawText(80,25,"Oriel")
  21.     DrawBitmap(120,27,"ORIELIC2.BMP")
  22.     WaitInput(1500)
  23.     UseFont("Tms Rmn",0,12,BOLD,NOITALIC,NOUNDERLINE,0,0,0)
  24.     DrawText(25,50,"the graphics-based batch language")
  25.     DrawText(25,65,"for Microsoft Windows 3.0.")
  26.     WaitInput(DelayFactor)
  27.  
  28. {Display second introductory screen and pause}
  29.     DrawBackground
  30.     UseFont("Roman",0,20,BOLD,NOITALIC,NOUNDERLINE,255,0,0)
  31.     DrawText(80,5,"Oriel")
  32.     DrawBitmap(120,7,"ORIELIC2.BMP")
  33.     UseFont("Tms Rmn",0,12,BOLD,NOITALIC,NOUNDERLINE,0,0,0)
  34.     DrawText(17,25,"reads the commands contained in a plain")
  35.     DrawText(17,40,"ASCII text file, like this one created by")
  36.     DrawText(17,55,"Microsoft Windows Notepad...")
  37.     DrawBitmap(8,70,"NOTEPAD.BMP")
  38.     WaitInput(DelayFactor)
  39.  
  40. { Display third introductory screen }
  41.     DrawBackground
  42.     DrawText(17,12,"In many cases,")
  43.     UseFont("Roman",0,20,BOLD,NOITALIC,NOUNDERLINE,255,0,0)
  44.     DrawText(92,5,"Oriel")
  45.     DrawBitmap(132,7,"ORIELIC2.BMP")
  46.     UseFont("Tms Rmn",0,12,BOLD,NOITALIC,NOUNDERLINE,0,0,0)
  47.     DrawText(17,27, "gives you direct access to the Windows")
  48.     DrawText(17,42,"GDI (Graphics Device Interface).")
  49.     WaitInput(1000)
  50.     DrawText(17,67,"To illustrate the power of Oriel, we")
  51.     DrawText(17,82,"invite you to run a few of our sample")
  52.     DrawText(17,97,"programs...")
  53.     WaitInput(4000)
  54.