home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / amos / verttext.amos / verttext.amosSourceCode
AMOS Source Code  |  1995-03-16  |  2KB  |  86 lines
  1. '*******************************   
  2. '*                             * 
  3. '*  Vertical scrolltext by KV  * 
  4. '*                             * 
  5. '******************************* 
  6. '
  7. Rainbow Del : Auto View Off : Hide 
  8. Restore TEKSTIT : Read N : Dim TE$(N)
  9. For X=1 To N : Read TE$(X) : Next 
  10. '
  11. Screen Open 0,640,N*8+256,2,Hires : Curs Off : Cls 0
  12. Colour 0,$0 : Colour 1,$0
  13. SPEED=0
  14. '
  15. For I=1 To N : Centre TE$(I) : Print : Next 
  16. Set Rainbow 0,1,3000,"(16,1,16)","(16,1,16)","(16,1,16)"
  17. V�RIEFEKTI
  18. Rainbow 0,,0,256
  19. Screen Display 0,128,300,320,255
  20. Auto View On 
  21. '
  22. Repeat 
  23.    Screen Display 0,,280,,
  24.    Screen Offset 0,0,0
  25.    For Y=280 To 40 Step -1
  26.       If SPEED>0 Then Wait SPEED
  27.       Wait Vbl 
  28.       Screen Display 0,128,Y,320,258
  29.    Next 
  30.    For Y=0 To N*8
  31.       If SPEED>0 Then Wait SPEED
  32.       Screen Offset 0,0,Y
  33.       Wait Vbl 
  34.    Next 
  35.    Wait 100
  36. Until Inkey$<>""
  37. End 
  38. '***********************************************************   
  39. '!!! Max. pituus 96 rivi� !!!  
  40. TEKSTIT:
  41. Data 64-36
  42. Data "* * * *"
  43. Data ""
  44. Data "Hi Suckers!"
  45. Data ""
  46. Data "And this is a journey..."
  47. Data "-Yeee yeee we know..."
  48. Data ""
  49. Data "What is the difference"
  50. Data "between ST's and AMOS?"
  51. Data ""
  52. Data "-AMOS is fun thing to play with!"
  53. Data ""
  54. Data "Har har har har."
  55. Data ""
  56. Data "Just testing...."
  57. Data ""
  58. Data "* * * *"
  59. Data ""
  60. Data "Production manager  : Kimmo V           "
  61. Data "             Design : V the K           "
  62. Data "      Computography : KV                "
  63. Data ""
  64. Data "Hi all jerks around the M�nts�l� City Industrial area."
  65. Data ""
  66. Data "Tsubbi dubbi"
  67. Data ""
  68. Data "***"
  69. Data "*"
  70. '****************
  71. Procedure V�RIEFEKTI
  72.    C=0
  73.    For L=0 To 127 Step 8
  74.       For X=0 To 7
  75.          Rain(0,L+X)=C
  76.       Next 
  77.       C=C+$111
  78.    Next 
  79.    C=$FFF
  80.    For L=128 To 255 Step 8
  81.       For X=0 To 20
  82.          Rain(0,L+X)=C
  83.       Next 
  84.       C=C-$111
  85.    Next 
  86. End Proc