home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / subroutines / colourscroll.amos / colourscroll.amosSourceCode < prev    next >
AMOS Source Code  |  1989-12-04  |  4KB  |  76 lines
  1. TXT$="Silver Bytes Presents: Colourscroll...    No, It's not a new "
  2. TXT$=TXT$+"kind of wallpaper! Written by Andrew Elia. So what do you think of my scroller ? Good isn't it! "
  3. TXT$=TXT$+"Greetings to the AMOS lot: Dangerous Dick Vanner, Francois Lionet, Pete Hickman, Shadow Soft, "
  4. TXT$=TXT$+"and the rest of 'em! Here's a plug for some great software coming your way "
  5. TXT$=TXT$+"from RAMAGE SOFTWARE LTD :Splitz V2.0 (an amazing image processing program), "
  6. TXT$=TXT$+"Music Mania V2.0 (The superb AMOS music player new version includes improved "
  7. TXT$=TXT$+"twin ASCII brainfile system, preferences, brainfile maker, converters, number of "
  8. TXT$=TXT$+"tunes are only limited by available memory, rather than preset figures! "
  9. TXT$=TXT$+" It already mashes Sensitive balls, Intuitracker, Musicbox. Just find a program "
  10. TXT$=TXT$+"with more features than this!), Three discs of .ABK AMOS music files, all converted "
  11. TXT$=TXT$+"and ready to shake the house, mainly ripped from magazines etc. That's about it "
  12. TXT$=TXT$+"I think, so I'll leave you to admire this scrolly. If you want to use it, you're quite welcome "
  13. TXT$=TXT$+"as long as I get a bit of credit for it! Let's all have a good 'ole laugh "
  14. TXT$=TXT$+"about some lamers who have joined the AMOS lot: Paul Cox, George Papamichael, and Dean Cannon. "
  15. TXT$=TXT$+"they don't know their arrays from their elbows! Actually George is my graphic artist (but he never "
  16. TXT$=TXT$+"does any drawings for me anyway!) Dean is an ex 64 owner, poor sod! Paul had a Speccy +3, and wrote "
  17. TXT$=TXT$+"a finances database on it. He does EVERYTHING the HARD WAY! You should have seen his attempt at battling "
  18. TXT$=TXT$+"Music Mania! I've never seen such a badly programmed piece of software, that is until I saw Sensitive Balls! "
  19. TXT$=TXT$+" He's scrapped it now (wise decision, Paul!). He's still trying to learn Machine Code! Well he's still gutted "
  20. TXT$=TXT$+"'cos I know Z80a! So there! If you want to drop me a line you can reach me in England at 178 CARTERHATCH ROAD, "
  21. TXT$=TXT$+"ENFIELD, MIDDLESEX EN3 5LY. Sorry that everything's being delayed but homework is piling up, and I've been doing "
  22. TXT$=TXT$+"some viral research. So far I can get AMOS to detect a resident structure in the memory, but I can't read bootblocks "
  23. TXT$=TXT$+"with it. Is there any ROM based code to help me ? Well, I s'pose I'd better be going because I can't think of anything "
  24. TXT$=TXT$+"else to say. See ya all around. Maybe at the CE Show in September, you might see me showing Richard Vanner some safe programs! "
  25. TXT$=TXT$+"Byeeeeeeeee!"
  26. CSSETUP
  27. Mvolume 63
  28. CSCROLL[TXT$,30]
  29. Procedure CSSETUP
  30. Unpack 15 To 1 : Screen Display 1,,256,,41
  31. Screen Open 0,360,256,32,Lowres
  32. Flash Off : Curs Off 
  33. Hide On 
  34. Get Sprite Palette 
  35. Colour 0,0
  36. Double Buffer 
  37. Autoback 1
  38. Bob Update Off 
  39. Paper 0
  40. Cls 0
  41. End Proc
  42. Procedure CSCROLL[A$,SPLEN]
  43. Q$="(1,1,15)(1,-1,15)"
  44. Set Rainbow 0,0,40,Q$,"",""
  45. Set Rainbow 1,0,40,"","",Q$
  46. Set Rainbow 2,0,40,Q$,"",""
  47. Set Rainbow 3,0,40,"","",Q$
  48. Rainbow 0,0,50,30
  49. Rainbow 1,0,50,30
  50. Rainbow 2,0,240,30
  51. Rainbow 3,0,240,30
  52. Channel 1 To Screen Display 0
  53. Channel 2 To Rainbow 0
  54. Channel 3 To Rainbow 1
  55. Channel 4 To Rainbow 2
  56. Channel 5 To Rainbow 3
  57. Screen Display 0,,100,,17
  58. Amal 1,"L:Move 0,100,50;Move 0,-100,50;JL"
  59. Amal 2,"A:Move 0,200,200;Move 0,-200,100;JA"
  60. Amal 3,"B:Move 0,200,100;Move 0,-200,200;JB"
  61. Amal 4,"C:Move 0,-200,200;Move 0,200,100;JC"
  62. Amal 5,"D:Move 0,-200,100;Move 0,200,200;JD"
  63. Amal On 
  64. Shift Up 1,2,31,1
  65. R=0
  66. Def Scroll 1,0,R-10 To 360,R+20,-1,0
  67. A$=A$+Space$(SPLEN)
  68. If Fast Free>0 Then Amal Freeze : Load "df0:Cola.ABK" : Music 1 : Tempo 18 : Amal On 
  69. Do 
  70. For N=1 To Len(A$)
  71. X$=Upper$(Mid$(A$,N,1)) : X=Asc(X$)-31
  72. Paste Bob 330,R,X
  73. For M=1 To 16 : Wait Vbl : Scroll 1 : Next M
  74. Next N
  75. Loop 
  76. End Proc