home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / scrollers / rainbow-scroller.amos / rainbow-scroller.amosSourceCode
Encoding:
AMOS Source Code  |  1993-08-02  |  3.0 KB  |  151 lines
  1. ' 1st set up the rainbow effect that will scroll in the background 
  2. _RAINBOW
  3. ' Now open our screen & position it at the bottom of the TV/Monitor
  4. Screen Open 0,704,24,2,Hires : Curs Off : Palette $0,$357
  5. Screen Display 0,112,285,,
  6. Hide : Rem turn off mousey
  7. Amal On : Rem turn on our rainbow effect 
  8. TXT$="Test data for the rainbow scroller coded by Gaz...Copyleft 1991.                    "
  9. ' define our scrolling area  
  10. Def Scroll 1,0,0 To 712,200,-3,0
  11. OFFSET=1
  12. Rem where to start getting the text from i.e. the 1st character
  13. Repeat 
  14.    Locate 83,0 : Rem when 'Print' is called - this will print at 83 characters across the screen
  15.    Print Mid$(TXT$,OFFSET,1)
  16.    Rem Print our character from the the string 'TXT$' 
  17.    Zoom 0,83*8,0,84*8,8 To 0,82*8,0,84*8,16
  18.    Rem enlarge it 
  19.    Add OFFSET,1,1 To Len(TXT$) : Rem  
  20.    For A=0 To 4
  21.       Scroll 1
  22.       Rem scroll out our enlarged character
  23.       Wait Vbl 
  24.    Next 
  25. Until Mouse Click
  26. Rem exit if button pressed, else go back to the 'Repeat' command 
  27. For DAHN=285 To 320
  28.    Rem 285 is the hardware co-ords of where our screen starts 
  29.    Screen Display 0,112,DAHN,, : Rem move it to the DAHN' value 
  30.    Wait Vbl 
  31. Next 
  32. Amal Off : Rem turn off our rainbow effects 
  33. End 
  34. Procedure _RAINBOW
  35.    Rem change the 0,1 to 0,0 to make the rainbow appear on the background 
  36.    Set Rainbow 0,1,290,"","",""
  37.    OFFSET=0
  38.    A=$0
  39.    For B=0 To 15
  40.       Rain(0,OFFSET)=A
  41.       Inc OFFSET
  42.       Add A,$1
  43.    Next 
  44.    A=$F
  45.    For B=0 To 15
  46.       Rain(0,OFFSET)=A
  47.       Inc OFFSET
  48.       Add A,$100
  49.    Next 
  50.    A=$F0F
  51.    For B=0 To 15
  52.       Rain(0,OFFSET)=A
  53.       Inc OFFSET
  54.       Add A,$10
  55.    Next 
  56.    A=$FFF
  57.    For B=0 To 15
  58.       Rain(0,OFFSET)=A
  59.       Inc OFFSET
  60.       A=A-$1
  61.    Next 
  62.    A=$FF0
  63.    For B=0 To 15
  64.       Rain(0,OFFSET)=A
  65.       Inc OFFSET
  66.       A=A-$10
  67.    Next 
  68.    A=$F00
  69.    For B=0 To 15
  70.       Rain(0,OFFSET)=A
  71.       Inc OFFSET
  72.       A=A-$100
  73.    Next 
  74.    A=$0
  75.    For B=0 To 15
  76.       Rain(0,OFFSET)=A
  77.       Inc OFFSET
  78.       Add A,$1
  79.    Next 
  80.    A=$F
  81.    For B=0 To 15
  82.       Rain(0,OFFSET)=A
  83.       Inc OFFSET
  84.       Add A,$100
  85.    Next 
  86.    A=$F0F
  87.    For B=0 To 15
  88.       Rain(0,OFFSET)=A
  89.       Inc OFFSET
  90.       Add A,$10
  91.    Next 
  92.    A=$FFF
  93.    For B=0 To 15
  94.       Rain(0,OFFSET)=A
  95.       Inc OFFSET
  96.       A=A-$1
  97.    Next 
  98.    A=$FF0
  99.    For B=0 To 15
  100.       Rain(0,OFFSET)=A
  101.       Inc OFFSET
  102.       A=A-$10
  103.    Next 
  104.    A=$F00
  105.    For B=0 To 15
  106.       Rain(0,OFFSET)=A
  107.       Inc OFFSET
  108.       A=A-$100
  109.    Next 
  110.    A=$0
  111.    For B=0 To 15
  112.       Rain(0,OFFSET)=A
  113.       Inc OFFSET
  114.       Add A,$1
  115.    Next 
  116.    A=$F
  117.    For B=0 To 15
  118.       Rain(0,OFFSET)=A
  119.       Inc OFFSET
  120.       Add A,$100
  121.    Next 
  122.    A=$F0F
  123.    For B=0 To 15
  124.       Rain(0,OFFSET)=A
  125.       Inc OFFSET
  126.       Add A,$10
  127.    Next 
  128.    A=$FFF
  129.    For B=0 To 15
  130.       Rain(0,OFFSET)=A
  131.       Inc OFFSET
  132.       A=A-$1
  133.    Next 
  134.    A=$FF0
  135.    For B=0 To 15
  136.       Rain(0,OFFSET)=A
  137.       Inc OFFSET
  138.       A=A-$10
  139.    Next 
  140.    A=$F00
  141.    For B=0 To 15
  142.       Rain(0,OFFSET)=A
  143.       Inc OFFSET
  144.       A=A-$100
  145.    Next 
  146.    Rainbow 0,0,0,270
  147.    Channel 0 To Rainbow 0
  148.    R$="L: For R0= 0 To 290 ; Let X=R0 ; Next R0 ; Jump L:"
  149.    Amal 0,R$
  150.    Amal On 
  151. End Proc