home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 709.dms / 709.adf / Scrolling_text_demo.AMOS / Scrolling_text_demo.amosSourceCode < prev   
AMOS Source Code  |  1978-10-10  |  5KB  |  172 lines
  1. Rem ------------------------------------------------------------------------ 
  2. Rem This scrolling text demo was written by SENTINEL (Jason Shipman)   
  3. Rem After receiving AMOS it only took him 3 days to get this far!
  4. Rem We decided to share his creation with you so that you can see how
  5. Rem he did it and to give you encouragement. 
  6. Rem
  7. Rem Can you do better? 
  8. Rem
  9. Rem Send in your adaptations of this program - a free COMPILER will go 
  10. Rem to the best entry. You have upto the release of the Compiler to do 
  11. Rem your best. Try to make it work on an A500 and send it in on a RAMOS  
  12. Rem boot disc. 
  13. Rem
  14. Rem Suggestions: 
  15. Rem
  16. Rem * Remove the flicker! (Double Buffer will help)  
  17. Rem * Bounce the scroll  
  18. Rem * Alter the font 
  19. Rem * Add jazzy music
  20. Rem * Add flying sprites 
  21. Rem * Procedure it!
  22. Rem * Make it stand out from the crowd...
  23. Rem ------------------------------------------------------------------------ 
  24. SETUP:
  25. Led Off 
  26. Close Editor 
  27. Curs Off 
  28. Dim X$(51),X(51),Y(51),XX(20),YY(20),O(4)
  29. SCNT=1
  30. CNT=31
  31. SC$="5........4........3........2........1........AMOS ON LINE AND "
  32. SC$=SC$+"FULLY OPERATIONAL..........CHECKING SENTINEL INPUT FREQUENCY"
  33. SC$=SC$+".......SENTINEL OFFLINE???......NOW ONLINE!......SET FREQUENCY:10000"
  34. SC$=SC$+"...OK.....NOW RECEIVING VERBAL MESSAGE FROM SENTINEL AKA "
  35. SC$=SC$+"JASON SHIPMAN..........HI TO ALL PURCHASERS OF AMOS BY FRANCIOS LIONET (C)1990 MANDARIN/JAWX. "
  36. SC$=SC$+"THIS DEMO IS DEDICATED TO CHRIS PAYNE, M.D. OF MANDARIN, FOR HIS "
  37. SC$=SC$+"ENTHUSIASM AND INTEREST IN A DEMO MADE BY MYSELF (JASON SHIPMAN OR SENTINEL). "
  38. SC$=SC$+"IT TOOK ME 3 DAYS TO GET MY SKILLS WITH AMOS THIS FAR, BUT FOR THOSE "
  39. SC$=SC$+"OF YOU WHO MAY MOCK, I ALSO HAVE AN EIGHT HOUR A DAY JOB TO DO AS WELL. "
  40. SC$=SC$+"I AM THE 21 YEAR YOUNG MANAGER OF A COMPUTER SHOP IN ELLESMERE PORT, "
  41. SC$=SC$+"MERSEYSIDE.  I AM A GRAPHICS ARTIST BY COMPUTER SKILL, AND WHO KNOWS, "
  42. SC$=SC$+"MAYBE EVEN AN AMOS PROGRAMMER!  I REALLY AM ENJOYING MYSELF WITH AMOS, "
  43. SC$=SC$+"AND I INTEND TO WRITE A GAME THIS YEAR SO WATCH OUT FOR IT.  "
  44. SC$=SC$+"I AM IN A GAME PROGRAMMING TEAM AT THE MOMENT CALLED ATOMIC SOFTWARE, "
  45. SC$=SC$+"AND I AM DOING THE GRAPHICS FOR A MAJOR 8 TO 16-BIT CONVERSION.  "
  46. SC$=SC$+"I WILL LET YOU KNOW WHAT IT IS WHEN AND IF WE GET A RELEASE DATE. "
  47. SC$=SC$+" THANK YOU TO CHRIS PAYNE FOR THE HELP WITH SOUNDTRACKER CONVERSION, "
  48. SC$=SC$+"MANDARIN PROJECTS MANAGER FOR HELP WITH UNDERSTANDING INTERRUPTS, "
  49. SC$=SC$+"MUM FOR MAKING ME A STEADY STREAM OF CUPS OF TEA, UZ! FOR EXTRA "
  50. SC$=SC$+"PROGRAMMING HELP, ARRON FOR GIVING ME INCENTIVE TO MIX NEW EFFECTS, "
  51. SC$=SC$+"AND TO ME FOR BEING ME.    GREETZ AND ALWIGHT MATES GO TO:- "
  52. SC$=SC$+"ALLISTER BRIMBLE FOR BEING A GREAT MUSICIAN, ADAM AUREX FOR ALSO BEING "
  53. SC$=SC$+"A GREAT MUSICIAN AND FRIEND, ALAN MITCHELL, ARRON(ST OWNER!), "
  54. SC$=SC$+"PARADROID OF ILLUSIONS UK, MIKE, FITZY, BLADE, SNOWMAN, "
  55. SC$=SC$+"PHOTON, VELKRO, TEKNICHIAN, PANTHER, PENGUIN, AVALANCHE, DIRE FIST, "
  56. SC$=SC$+"KATWEAZLE, MOZART AND ANYONE ELSE WHO KNOWS ME!..........YOU CAN "
  57. SC$=SC$+"CALL ME AFTER 6.30PM ON (051) 356 0015, BUT PLEASE, NO PIRATES, "
  58. SC$=SC$+"BECAUSE I DONT COLLECT, TRADE OR ANYTHING LIKE THAT, THANKS...."
  59. SC$=SC$+"BUT I WILL TRY TO HELP FELLOW AMOS PROGRAMMERS WHO NEED A HAND.  "
  60. SC$=SC$+"IF YOU WANT TO BUY AMOS, YOU CAN BUY IT FROM MANDARIN.   "
  61. SC$=SC$+"WELL THAT ABOUT WRAPS IT UP "
  62. SC$=SC$+"UP FOR THIS SCROLL TEXT, TILL THE NEXT TIME.  NOW I AM OFF TO "
  63. SC$=SC$+"TRY AND MIX MY SCROLLY WITH 8+ BOBS WITHOUT FLICKER......BYEEEE!"
  64. SC$=SC$+"..............."
  65. Unpack 6 To 0
  66. Screen Open 1,354,Screen Height,Screen Colour,Lowres
  67. Screen Display 1,134,43,319,256
  68. Def Scroll 1,1,223 To 353,255,-4,0
  69. Curs Off 
  70. Cls 0
  71. Flash Off 
  72. Screen Copy 0,0,160,256,205 To 1,40,0
  73. Get Palette 0
  74. SCRL$="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ@,!.:?/+-()#{} "
  75. Gosub PIXD
  76. Wait Vbl 
  77. For R=16 To 31
  78.    Colour R,Colour(R-16)
  79. Next R
  80. Hide On 
  81. Screen Copy 0,0,205,223,255 To 1,50,100
  82. Curs Off 
  83. Get Bob 0,9,288,128 To 319,159
  84. Paper 0 : Pen 5 : Locate 0,7 : Centre "AKA JASON SHIPMAN"
  85. ROO:
  86. Gosub STEXT : 
  87. Wait Vbl 
  88. Goto ROO
  89. PIXD:
  90. For F=1 To 51
  91.    Read X$(F),X(F),Y(F)
  92. Next F
  93. Return 
  94. Data "0",0,0
  95. Data "1",32,0
  96. Data "2",64,0
  97. Data "3",96,0
  98. Data "4",128,0
  99. Data "5",160,0
  100. Data "6",192,0
  101. Data "7",224,0
  102. Data "8",256,0
  103. Data "9",288,0
  104. Data "A",0,32
  105. Data "B",32,32
  106. Data "C",64,32
  107. Data "D",96,32
  108. Data "E",128,32
  109. Data "F",160,32
  110. Data "G",192,32
  111. Data "H",224,32
  112. Data "I",256,32
  113. Data "J",288,32
  114. Data "K",0,64
  115. Data "L",32,64
  116. Data "M",64,64
  117. Data "N",96,64
  118. Data "O",128,64
  119. Data "P",160,64
  120. Data "Q",192,64
  121. Data "R",224,64
  122. Data "S",256,64
  123. Data "T",288,64
  124. Data "U",0,96
  125. Data "V",32,96
  126. Data "W",64,96
  127. Data "X",96,96
  128. Data "Y",128,96
  129. Data "Z",160,96
  130. Data "@",192,96
  131. Data ",",224,96
  132. Data "!",256,96
  133. Data ".",288,96
  134. Data ":",0,128
  135. Data "?",32,128
  136. Data "/",64,128
  137. Data "+",96,128
  138. Data "-",128,128
  139. Data "(",160,128
  140. Data ")",192,128
  141. Data "#",224,128
  142. Data "{",256,128
  143. Data "}",288,128
  144. Data " ",288,223
  145. Rem
  146. Rem ********* SCROLL TEXT ROUTINE ********** 
  147. STEXT:
  148. Scroll 1
  149. Add CNT,4
  150. If CNT>31 Then Gosub NCHAR : CNT=0 : Inc SCNT : If SCNT>Len(SC$) Then SCNT=1
  151. If Mouse Key=1 Then Goto EXIDEMO
  152. Return 
  153. NCHAR:
  154. E$=Mid$(SC$,SCNT,1)
  155. E=Instr(SCRL$,E$)
  156. Screen Copy 0,X(E),Y(E),X(E)+31,Y(E)+31 To 1,320,223
  157. Return 
  158. EXIDEMO:
  159. Screen Hide 0
  160. XW=1 : YW=1 : XS=134 : YS=43
  161. Amal Off 
  162. DDD:
  163. Screen Display 1,XS,YS,319-XW,256-YW
  164. Rem YS=YS+1
  165. Rem If XW<319 Then XW=XW+1 
  166. If YW<255 Then YW=YW+1
  167. If YW>=255 Then Goto FFF
  168. Goto DDD
  169. FFF:
  170. Cls 0
  171. Music Off 
  172. End