home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / procedures / scroller.amos / scroller.amosSourceCode < prev   
AMOS Source Code  |  1993-03-07  |  2KB  |  92 lines
  1. '
  2. ' *** SCROLLER 
  3. '
  4. '
  5. ' ** THIS IS WHERE ALL THE SCREENS AND VARIABLES ARE SET UP. 
  6. '
  7. Dim X$(51),X(51),Y(51),XX(20),YY(20),O(4)
  8. SCNT=1
  9. CNT=20
  10. '
  11. ' ** CHANGE VARIABLE SHH TO SET THE SCROLL SPEED (3 IS NORMAL SPEED).
  12. '
  13. SHH=3
  14. '
  15. ' ** HIDE SCREEN WITH LETTERS ON IT. 
  16. '
  17. Unpack 6 To 0
  18. Screen Hide 0
  19. '
  20. Screen Open 1,354,32,Screen Colour,Lowres
  21. Screen Display 1,128,180,330,256
  22. Def Scroll 1,1,0 To 353,32,-SHH,0
  23. Curs Off 
  24. Cls 0
  25. Flash Off 
  26. Get Palette 0
  27. SCRL$="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ@,!.:?/+-()#{} "
  28. '
  29. ' ** THIS IS THE TEXT THAT GETS SCROLLED ALONG THE SCREEN. 
  30. ' ** ALL TEXT MUST BE ENTERED IN CAPITAL LETTERS, OR IT WILL NOT WORK. 
  31. '
  32. SC$=""
  33. SC$=SC$+"THIS IS AN EXAMPLE OF HOW EASY IT IS TO CREATE A SCROLLER......... "
  34. SC$=SC$+"THE FONT IS JUST A PAC.PIC STORED IN BANK 5, AND YOU CAN CHANGE "
  35. SC$=SC$+"THE FONT BY SIMPLY SAVING THE PAC.PIC AS AN IFF PICTURE, THEN "
  36. SC$=SC$+"DRAWING OVER THE LETTERS IN ANY ART PROGRAM, AND THEN LOADING "
  37. SC$=SC$+"IT INTO AMOS, AND SPACKING IT BACK INTO BANK 5 AGAIN......... "
  38. SC$=SC$+"                    "
  39. '
  40. Gosub 3
  41. Wait Vbl 
  42. Curs Off 
  43. Paper 0
  44. 1
  45. Gosub 2
  46. Wait Vbl 
  47. Goto 1
  48. '
  49. ' ** THIS IS WHERE ALL THE DATA FOR THE SCROLLER IS READ IN. 
  50. '
  51. 3
  52. For F=1 To 51
  53.    Read X$(F),X(F),Y(F)
  54. Next F
  55. Return 
  56. Data "1",0,0,"2",32,0,"3",64,0,"4",96,0,"5",128,0,"6",160,0,"7",192,0,"8",224,0,"9",256,0,"0",288,0,"A",0,32,"B",32,32
  57. Data "C",64,32,"D",96,32,"E",128,32,"F",160,32,"G",192,32,"H",224,32,"I",256,32,"J",288,32,"K",0,64,"L",32,64,"M",64,64
  58. Data "N",96,64,"O",128,64,"P",160,64,"Q",192,64,"R",224,64,"S",256,64,"T",288,64,"U",0,96,"V",32,96,"W",64,96,"X",96,96
  59. Data "Y",128,96,"Z",160,96,"@",192,96,",",224,96,"!",256,96,".",288,96,":",0,128,"?",32,128,"/",64,128,"+",96,128,"-",128,128
  60. Data "(",160,128,")",192,128,"#",224,128,"{",256,128,"}",288,128," ",288,223
  61. '
  62. ' ** THIS IS THE ACTUAL SCROLLER ROUTINE (MOUSE KEY QUITS).
  63. '
  64. 2
  65. Scroll 1
  66. Add CNT,SHH
  67. If CNT>20
  68.    Gosub 4
  69.    CNT=0
  70.    Inc SCNT
  71.    If SCNT>Len(SC$)
  72.       SCNT=1
  73.    End If 
  74. End If 
  75. If Mouse Key=1
  76.    XW=1
  77.    YW=1
  78.    XS=134
  79.    YS=43
  80.    Amal Off 
  81.    Direct 
  82. End If 
  83. Return 
  84. '
  85. ' ** THIS BUT GETS THE LETTER FROM THE STRING, CUTS OUT THE APPROPRIATE
  86. ' ** LETTER ON THE SCREEN, AND PASTES IT INTO VIEW.
  87. '
  88. 4
  89. E$=Mid$(SC$,SCNT,1)
  90. E=Instr(SCRL$,E$)
  91. Screen Copy 0,X(E),Y(E),X(E)+20,Y(E)+31 To 1,320,0
  92. Return