home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 076-100 / apd077 / scrolly.amos / scrolly.amosSourceCode < prev   
AMOS Source Code  |  1990-11-07  |  3KB  |  122 lines
  1. SETUP:
  2. Double Buffer 
  3. Close Editor 
  4. Rem Auto View Off  
  5. Curs Off : Cls 0
  6. Set Rainbow 0,1,64,"(2,1,1)","(2,1,1)","(3,1,1)"
  7. For F=32 To 63 : Rain(0,F)=Rain(0,35-(F-30)) : Next F
  8. Rainbow 0,0,250,64 : Rain(0,33)=Rain(0,34) : Rain(0,32)=Rain(0,31)
  9. A$="Loop: For R0=0 To 40 ; Let X=R0 ; Next R0 ; For R0 = 0 To 40 ; Let X=40-R0 ;  Next R0 ; Jump Loop"
  10. Channel 0 To Rainbow 0 : Amal 0,A$ : Amal On 0 : Hide On 
  11. Dim X$(51),X(51),Y(51),XX(20),YY(20),O(4)
  12. SCNT=1 : CNT=31
  13. SC$="   HERE IS A SLIGHTY EDITED VERSION OF JASON SHIPMANS NICE SCROLL"
  14. SC$=SC$+" ROUTINE.. I CHANGED THE FONT TO 8 COLOURS AND FILLED IT WITH"
  15. SC$=SC$+" INK 1, THIS WAY THE COPPER CAN BE USED TO CREATE VERY NICE EFFECTS"
  16. SC$=SC$+" SUCH AS THE ONE USED HERE.. RUNNING UNDER AMAL.....      "
  17. SC$=SC$+" THE FONT WILL ALSO RUN AT TWICE THE SPEED.. JUST CHANGE THE ADD CNT,4 TO ADD CNT,8 AND ADD"
  18. SC$=SC$+" ANOTHER SCROLL 1 TO THE LISTING UNDERNEATH THE ONE ALREADY THERE!        "
  19. SC$=SC$+" IF I GET CHANCE I WILL CREATE A NICE COPPER-LIST EDITOR TO MAKE RAINBOW CREATION FAR EASIER"
  20. SC$=SC$+"..........           "
  21. Auto View Off 
  22. Unpack 5 To 2 : Screen Hide 2
  23. Unpack 6 To 0 : Auto View Off 
  24. Screen Open 1,354,256,16,Lowres
  25. Get Palette 2
  26. Curs Off 
  27. Flash Off 
  28. Cls 0
  29. Screen Display 1,140,,319,256
  30. Def Scroll 1,1,223 To 353,255,-4,0
  31. Get Palette(2)
  32. Screen Copy 2,0,0,320,200 To 1,10,0
  33. Screen Close 2
  34. Screen Show 1
  35. Auto View On 
  36. Amal On 0
  37. SCRL$="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ@,!.:?/+-()#{} "
  38. Gosub PIXD
  39. Wait Vbl 
  40. Hide On 
  41. Curs Off 
  42. ROO:
  43. Gosub STEXT : 
  44. Wait Vbl 
  45. Goto ROO
  46. PIXD:
  47. For F=1 To 51
  48.    Read X$(F),X(F),Y(F)
  49. Next F
  50. Return 
  51. Data "0",0,0
  52. Data "1",32,0
  53. Data "2",64,0
  54. Data "3",96,0
  55. Data "4",128,0
  56. Data "5",160,0
  57. Data "6",192,0
  58. Data "7",224,0
  59. Data "8",256,0
  60. Data "9",288,0
  61. Data "A",0,32
  62. Data "B",32,32
  63. Data "C",64,32
  64. Data "D",96,32
  65. Data "E",128,32
  66. Data "F",160,32
  67. Data "G",192,32
  68. Data "H",224,32
  69. Data "I",256,32
  70. Data "J",288,32
  71. Data "K",0,64
  72. Data "L",32,64
  73. Data "M",64,64
  74. Data "N",96,64
  75. Data "O",128,64
  76. Data "P",160,64
  77. Data "Q",192,64
  78. Data "R",224,64
  79. Data "S",256,64
  80. Data "T",288,64
  81. Data "U",0,96
  82. Data "V",32,96
  83. Data "W",64,96
  84. Data "X",96,96
  85. Data "Y",128,96
  86. Data "Z",160,96
  87. Data "@",192,96
  88. Data ",",224,96
  89. Data "!",256,96
  90. Data ".",288,96
  91. Data ":",0,128
  92. Data "?",32,128
  93. Data "/",64,128
  94. Data "+",96,128
  95. Data "-",128,128
  96. Data "(",160,128
  97. Data ")",192,128
  98. Data "#",224,128
  99. Data "{",256,128
  100. Data "}",288,128
  101. Data " ",288,223
  102. Rem
  103. Rem ********* SCROLL TEXT ROUTINE ********** 
  104. STEXT:
  105. Scroll 1
  106. Add CNT,4
  107. If CNT>31 Then Gosub NCHAR : CNT=0 : Inc SCNT : If SCNT>Len(SC$) Then SCNT=1
  108. If Mouse Key=1 Then Goto EXIDEMO
  109. Return 
  110. NCHAR:
  111. E$=Mid$(SC$,SCNT,1)
  112. E=Instr(SCRL$,E$)
  113. Screen Copy 0,X(E),Y(E),X(E)+31,Y(E)+31 To 1,320,223
  114. Return 
  115. EXIDEMO:
  116. FFF:
  117. For F=63 To 0 Step -1 : Rainbow 0,1,,F : Next F
  118. Amal Off 
  119. Fade 1
  120. Wait 20
  121. Cls 0
  122. End