home *** CD-ROM | disk | FTP | other *** search
/ Amiga Elysian Archive / AmigaElysianArchive.iso / prog / arexx / welc2205.lha / Examples / Demo < prev    next >
Encoding:
Text File  |  1993-06-16  |  2.5 KB  |  120 lines

  1. /*
  2.  
  3.     Welcome Release 2 DEMO
  4.  
  5.     Urban Lindeskog
  6.  
  7.     ProNotion (ProNova) SoftWare Development Group
  8.  
  9.     03-May-93
  10.  
  11.  
  12.     You can study this ARexx-script and the other ones
  13.     included to get familiar with the features in Welcome.
  14.  
  15. */
  16.  
  17. if ~ show('L', "rexxsupport.library") then do
  18.     if ~ addlib('rexxsupport.library', 0, -30, 0) then do
  19.         exit 10
  20.     end
  21. end
  22.  
  23. options results
  24. address command
  25.  
  26.  
  27. 'run /Welcome LEFT "/Pictures/BigBabe" RIGHT "/Pictures/BigPNLogo" TEXT "\n\nWelcome Release 2 - DEMO Script" ROWS 8 COLUMNS 57 DRAGWINDOW'
  28. 'REXXC:waitforport WELCOME'
  29. address WELCOME
  30.  
  31. again=1
  32. do while again
  33.  
  34.  
  35. 'TEXT "Hello, and Welcome to this DEMO!"'
  36. x=delay(100)
  37.  
  38.  
  39. 'TITLE TEXT "\n\n            -Show me something!" RIGHT "/Pictures/BigBabe2"'
  40. x=delay(200)
  41. 'TITLE TEXT "\n\n-Sure, look here!"'
  42. 'CLEAR'
  43. x=delay(100)
  44.  
  45.  
  46. do i=0 to 300
  47.     'TEXT NOLINE "Hello there,"'
  48. end
  49. 'TITLE TEXT "\n\n              -How Impressive !"'
  50. x=delay(100)
  51.  
  52.  
  53. 'TITLE TEXT "\n\n-Not really. What do YOU say?"'
  54. 'REQUESTSTRING "-Yes, what do YOU think about this?\n\nPlease be Honest with us!" "Really splendid, Great!"'
  55. text=result
  56. do i=0 to 20
  57.     'TEXT NOLINE "'text'"'
  58. end
  59. 'TITLE TEXT "\n\n-Is this MultiMedia, or WHAT?"'
  60. x=delay(100)
  61.  
  62.  
  63. 'TITLE LEFT "/Pictures/BigBalance" RIGHT "/Pictures/BigHand" TEXT "\n\n    Get the balance right!!"'
  64. 'CLEAR'
  65. do x=0 to 3
  66.     do i=0 to 7
  67.         'TEXTPEN' i
  68.         'BACKGROUNDPEN' (7-i)
  69.         'TEXT NOLINE "Hello World, "'
  70.     end
  71. end
  72. x=delay(300)
  73.  
  74.  
  75. 'TITLE LEFT "/Pictures/BigPhone" RIGHT "/Pictures/Bigletter" TEXT "\n\n     Call or Write to me !"'
  76. 'CLEAR'
  77. 'TEXT "Urban Lindeskog"'
  78. 'TEXT "Ekåsvägen 18 b"'
  79. 'TEXT "433 62 Partille, SWEDEN"'
  80. 'TEXT "---"'
  81. 'TEXT "+46-31-266806"'
  82. 'TEXT "FidoNet: 2:203/143.1"'
  83. 'TEXT "AmyNet : 39:160/305.1"'
  84. x=delay(500)
  85.  
  86.  
  87. 'TITLE LEFT "/Pictures/BigPNLogo" RIGHT "/Pictures/BigPNLogo" TEXT "\n\n           ProNova are:"'
  88. 'CLEAR'
  89. 'TEXT "Urban Lindeskog"'
  90. 'TEXT "Stefan Ervik"'
  91. 'TEXT "David Nilsson"'
  92. 'TEXT "Daniel Johansson"'
  93. 'TEXT "Stefan Andersson"'
  94. x=delay(500)
  95.  
  96.  
  97. 'TITLE LEFT "/Pictures/Bigi" TEXT "\n\n     For Your Information:"'
  98. 'CLEAR'
  99. 'TEXT "Read the Welcome guide, there can you find valuable"'
  100. 'TEXT "info about the ARexx commands in Welcome."'
  101. 'TEXT ""'
  102. 'TEXT "You can obtain a listing of the available commands"'
  103. 'TEXT "in Welcome by, first running Welcome and then write"'
  104. 'TEXT "WEcho HELP from a shell."'
  105. x=delay(500)
  106.  
  107.  
  108. 'TITLE LEFT "/Pictures/BigStop" TEXT "\n\n            The End"'
  109. 'ASK "This is the End of this DEMO.\n\nDo you want to see it again?" _Yes _No'
  110. again=result
  111. if again then do
  112.     'TITLE LEFT "/Pictures/BigBabe" TEXT "\n\nWelcome Release 2 - DEMO Script"'
  113.     'CLEAR'
  114.     end
  115. end
  116.  
  117.  
  118. 'QUIT'
  119.  
  120.