home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / demos / scrolly.amos / scrolly.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1991-01-01  |  5.0 KB  |  155 lines
  1. Screen Open 0,320,200,32,Lowres
  2. Paper 0 : Hide On : Curs Off : Cls 
  3. Break Off 
  4. SETUP:
  5. Led Off 
  6. Close Editor 
  7. Curs Off 
  8. Dim X$(51),X(51),Y(51),XX(20),YY(20),O(4)
  9. SCNT=1
  10. CNT=31
  11. SC$="       YO DUDES }}}}}} THIS IS ROB OF CYBERNETICS RAPPING TO YOU VIA THIS "
  12. SC$=SC$+"SCROLLY......@WHAT DO YOU THINK OF OUR FIRST CYBER-DEMO OF THIS YEAR?@ "
  13. SC$=SC$+"........NOT BAD FOR A BUNCH OF OLD TIPEX CODERS EH? "
  14. SC$=SC$+"       OK SO I LIED.  I NICKED IT OF THE AMOS EXTRAS DISK AND ALTERED IT  SLIGHTLY.  "
  15. SC$=SC$+"        SOME OF YOU MAY HAVE NEVER HEARD OF US BECAUSE WE ARE QUITE A NEW GROUP, "
  16. SC$=SC$+"BUT DON#T WORRY YOU WILL BE HEARING A LOT FROM US IN THE FUTURE!!! "
  17. SC$=SC$+"IN CASE YOU WERE WONDERING WHO WE ARE I WILL TELL YOU.... "
  18. SC$=SC$+"ALL OF YOU MUST REMEMBER THE GROUP CALLED TIPEX WHICH WENT DOWN A FEW MONTHES AGO, "
  19. SC$=SC$+"WELL WERE BACK AND UNDER A NEW NAME }}}}}}}}}  @CYBERNETICS INC.@     "
  20. SC$=SC$+"WE ALSO HAVE A NEW MEMBER OF OUR GROUP CALLED DARK DOUG THE DEMON DESTROYER OF DENMARK "
  21. SC$=SC$+"(WITCHFORD ACTUALLY) AND HE IS A HOT CODER IN FACT HE DONE THE CODE FOR A NEW "
  22. SC$=SC$+"COMMERCIALLY AVAILABLE GAME CALLED @NUKE #EM@ AND HE IS CURRENTLY WORKING ON ONE BUT HE "
  23. SC$=SC$+"WONT TELL US WHAT IT IS!!!     AS FOR ME I#VE BEEN INVOLVED WITH SEVERAL DEMOS ON THE "
  24. SC$=SC$+"SCENE AT THE MOMENT,AND I DONE THIS ONE....THE OTHER MEMBER OF CYBERNETICS IS MATT "
  25. SC$=SC$+"AND ALL HE DOES IS TELL US WHAT TO WRITE IN THE SCROLLY { DO STUPID SAMPLES, "
  26. SC$=SC$+"LIKE THE THEME FROM NEIGHBOURS { SOME CLIPS FROM DIRTY HARRY (NEVER MIND). "
  27. SC$=SC$+"            HERE ARE THE CREDITS FOR THIS DEMO OF OURS:-   GFX - ROB { MATT. "
  28. SC$=SC$+"      MUSIC - STEWART SIBLEY     HE#S MY BRO.. CODE - ROB { DOUG { A BIT OF HELP FROM MATT. "
  29. SC$=SC$+"        THE FOLLOWING IS A LIST OF SOFTWARE AND HARDWARE WE USED TO BRING YOU THIS MASTERPIECE:- "
  30. SC$=SC$+"    SOFTWARE:  DPAINT II,MASTERSOUND,GAMES MUSIC CREATOR,AMOS THE CREATOR,AMOS SPRITE DESIGNER { LOADS OF "
  31. SC$=SC$+"GAMES TO HELP US RELAX.     HARDWARE:     2 1MEG AMIGAS,1 EXTERNAL DRIVE,3 TV#S,2 MICE,3 JOYSTICKS,"
  32. SC$=SC$+"MASTERSOUND { 1 STERO SYSTEM..       NOW HERE ARE SOME GREETS AND THANKYOU MESSAGES:-"
  33. SC$=SC$+"FIRST OF ALL TO OUR MUM#S FOR THE NEVER ENDING SUPPLY OF FOOD { DRINK,THANKS TO STEW FOR THE FONT "
  34. SC$=SC$+"(PORTED OVER FROM AN ST.),THANKS TO EVERYONE ELSE WE KNOW AND A BIG YO DUDE TO OUR DOGS. "
  35. SC$=SC$+"           WE ARE NOW APPROACHING THE END OF THE SCROLLY BECAUSE I HAVE RUN OUT OF THINGS TO SAY "
  36. SC$=SC$+"AND ALSO I HAVE GOT TO GO FOR MY DINNER,SO NOW THE END IS NEAR I CANSTART TOMESSUP "
  37. SC$=SC$+"MY TXT LIKEY MISINN G OUT WORDS AND LE AVING UNW ANTED SPACES SPACES SPACES WHERERE THEY ARE NOT WANTED "
  38. SC$=SC$+"ALSO I HAVE A TENDANCY TO REPEAT MYSELF AND SAY WHAT I HAVE JUST SAID AGAIN AND THEN I REPEAT MYSELF AND ALSO BEGIN "
  39. SC$=SC$+"TO SAY THINGS TWICE AND REPEAT REPEAT REPEAT REPEAT REPEAT MYSELF."
  40. SC$=SC$+"        OK THATS ENOUGH OF THAT ,I AM GOING NOW    BYE BYE}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} "
  41. Unpack 6 To 0
  42. Music 1
  43. Tempo 17
  44. Sprite 10,70,230,29
  45. A$="A 0, (29,3)(30,3)(31,3)(32,3)(33,3)(32,3)(31,3)(30,3)(29,3) ; "
  46. A$=A$+"L: M 7,0,2 ;J L"
  47. Amal 10,A$
  48. Amal On 
  49. Screen Open 1,354,Screen Height,Screen Colour,Lowres
  50. Screen Display 1,134,43,319,256
  51. Def Scroll 1,1,223 To 353,255,-4,0
  52. Curs Off 
  53. Cls 0
  54. Flash Off 
  55. Screen Copy 0,0,160,256,275 To 1,25,30
  56. Screen Copy 0,257,160,320,275 To 1,55,100
  57. Screen Copy 0,257,160,320,275 To 1,125,100
  58. Screen Copy 0,257,160,320,275 To 1,195,100
  59. Get Palette 0
  60. SCRL$="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ@,!.:?/+-()#{} "
  61. Gosub PIXD
  62. Wait Vbl 
  63. For R=16 To 31
  64.    Colour R,Colour(R-16)
  65. Next R
  66. Hide On 
  67. Curs Off 
  68. ROO:
  69. Gosub STEXT : 
  70. Wait Vbl 
  71. Goto ROO
  72. PIXD:
  73. For F=1 To 51
  74.    Read X$(F),X(F),Y(F)
  75. Next F
  76. Return 
  77. Data "0",0,0
  78. Data "1",32,0
  79. Data "2",64,0
  80. Data "3",96,0
  81. Data "4",128,0
  82. Data "5",160,0
  83. Data "6",192,0
  84. Data "7",224,0
  85. Data "8",256,0
  86. Data "9",288,0
  87. Data "A",0,32
  88. Data "B",32,32
  89. Data "C",64,32
  90. Data "D",96,32
  91. Data "E",128,32
  92. Data "F",160,32
  93. Data "G",192,32
  94. Data "H",224,32
  95. Data "I",256,32
  96. Data "J",288,32
  97. Data "K",0,64
  98. Data "L",32,64
  99. Data "M",64,64
  100. Data "N",96,64
  101. Data "O",128,64
  102. Data "P",160,64
  103. Data "Q",192,64
  104. Data "R",224,64
  105. Data "S",256,64
  106. Data "T",288,64
  107. Data "U",0,96
  108. Data "V",32,96
  109. Data "W",64,96
  110. Data "X",96,96
  111. Data "Y",128,96
  112. Data "Z",160,96
  113. Data "@",192,96
  114. Data ",",224,96
  115. Data "!",256,96
  116. Data ".",288,96
  117. Data ":",0,128
  118. Data "?",32,128
  119. Data "/",64,128
  120. Data "+",96,128
  121. Data "-",128,128
  122. Data "(",160,128
  123. Data ")",192,128
  124. Data "#",224,128
  125. Data "{",256,128
  126. Data "}",288,128
  127. Data " ",288,223
  128. Rem
  129. Rem ********* SCROLL TEXT ROUTINE ********** 
  130. STEXT:
  131. Scroll 1
  132. Add CNT,4
  133. If CNT>31 Then Gosub NCHAR : CNT=0 : Inc SCNT : If SCNT>Len(SC$) Then SCNT=1
  134. If Mouse Key=1 Then Goto EXIDEMO
  135. Return 
  136. NCHAR:
  137. E$=Mid$(SC$,SCNT,1)
  138. E=Instr(SCRL$,E$)
  139. Screen Copy 0,X(E),Y(E),X(E)+31,Y(E)+31 To 1,320,223
  140. Return 
  141. EXIDEMO:
  142. Screen Hide 0
  143. XW=1 : YW=1 : XS=134 : YS=43
  144. Amal Off 
  145. DDD:
  146. Screen Display 1,XS,YS,319-XW,256-YW
  147. Rem YS=YS+1
  148. Rem If XW<319 Then XW=XW+1 
  149. If YW<255 Then YW=YW+1
  150. If YW>=255 Then Goto FFF
  151. Goto DDD
  152. FFF:
  153. Cls 0
  154. Music Off 
  155. End