home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / general / leo_demo_source.amos / leo_demo_source.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  2001-01-14  |  4.6 KB  |  75 lines
  1. Close Workbench : Close Editor : Screen Open 0,320,512,2,Lowres
  2. Flash Off : Curs Off : Hide On : Cls 0 : Auto View Off 
  3. SETUP:
  4. Dim X$(51),X(51),Y(51),XX(20),YY(20),O(4)
  5. SCNT=1 : CNT=31
  6. Copper Off 
  7. SC$=SC$+"++++++++++++++++++++++++++++++++++++ HI HOW ARE YOU GOING!                        "
  8. SC$=SC$+"WELCOME TO THE JULY ISSUE OF THE GADGET DISK                             "
  9. SC$=SC$+"WELL HAVE WE GOT A DISK FULL OF FANTASTIC PROGRAMS AND NEWS FOR YOU "
  10. SC$=SC$+"THIS MONTH...............................WELL NO WE DONT! BUT WE WILL "
  11. SC$=SC$+"DO OUR BEST                             FROM NOW ON I WILL BE CODING AN "
  12. SC$=SC$+"INTRO FOR THIS DISK EACH MONTH, SO IF YOU HAVE ANY MUSIC OR GRAFIX "
  13. SC$=SC$+"THAT YOU WOULD LIKE TO GO INTO THE DEMO THEN SEND THEM IN TO THE P.O. "
  14. SC$=SC$+"BOX AND I WILL CODE SOMETHING TO SUIT THE MODE, THERE ARE NO LIMITATIONS "
  15. SC$=SC$+"SO GO AHEAD AND PRODUCE SOMETHING GREAT                                  "
  16. SC$=SC$+"OK NOW DOWN TO BUSINESS.........................TONIGHT WE ARE GOING TO ELECT "
  17. SC$=SC$+"A NEW PRESIDENT OF THE CLUB (ANY TAKERS)                               "
  18. SC$=SC$+"BY THE WAY DID ANY BODY GET LAST MONTHS DEMO BY PHEONIX TO WORK, MINE CRASHED "
  19. SC$=SC$+"EVERY TIME (HEY LEE, ARE YOU SURE THAT DEMO WAS NOT GURU TIME 3)........................................."
  20. SC$=SC$+"HA HA HA HA HAAA                                  ANY WAY HERE IS A LITTLE BIT OF INFO "
  21. SC$=SC$+"ABOUT THIS INTRO                           THE SCREEN RESOLUTION IS ### HAM INTERLACE ### SO NOW YOU SEE WHY YOUR EYES "
  22. SC$=SC$+"ARE HURTING, ALTHOUGH THIS IS ONLY A SIMPLE DEMO THE FILE SIZE IS HUGE, DUE TO THE FACT THAT THE PICTURE DATA IS 123 K IN "
  23. SC$=SC$+"SIZE AND THE SOUND MODULE IS ABOUT 45 K IN SIZE                                 THE WHOLE THING WAS CODED IN ONE AFTERNOON "
  24. SC$=SC$+"THE MUSIC IS OFF A ENGLISH PD DISK AND THE COOL PICCY IS MINE                             "
  25. SC$=SC$+"ALSO ON ITS WAY REAL SOON IS MY LASTEST MEGA DEMO (GURU TIME 2  THE NON RECOVERABLE ERROR) BIGGER AND BETTER THAN THE FIRST "
  26. SC$=SC$+" MAYBE NEXT MONTH I WILL HAVE MORE TIME, AND PRODUCE SOME VECTORS FOR THE DEMO, IF I EVER GET THE ### MEGA DEMO ### FINISHED                                               "
  27. SC$=SC$+"ANY WAY ITS TIME TO HIT THAT MAGIC BUTTON AND EXIT OUTTA HERE ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"
  28. SC$=SC$+" HEY MAN ARE YOU STILL HERE................................SO YOU ARE HUH!, OK THEN I WILL KEEP GOING                                  "
  29. SC$=SC$+"NOW THAT THE CLUB IS STARTING TO HEAD SOMEWHERE, ITS ABOUT TIME WE ALL STARTED TO DO SOMETHING                                         "
  30. SC$=SC$+"MAYBE GET TOGETHER ON A WEEKEND AND PRODUCE SOMETHING FANTASTIC.....................................ITS ONLY A SEGESTION, BUT "
  31. SC$=SC$+"WELL WORTH THINKING ABOUT +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"
  32. Unpack 5 To 0 : Restore RDATA : Gosub RB
  33. Screen Open 1,370,250,2,LORES : Palette $0,0
  34. Screen Display 1,100,53,380,256 : Def Scroll 1,1,223 To 369,255,-3,0
  35. Screen Open 7,320,512,4096, : Flash Off : Curs Off : Hide On 
  36. Screen Copy 0,0,160,256,205 To 1,40,0
  37. SCRL$="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ@,!.:?/+-()#{} "
  38. Gosub PIXD : Wait Vbl : Screen Copy 0,0,205,223,255 To 1,50,100
  39. Unpack 11 To 7 : Get Palette 7 : Screen To Front 7 : Hide On : Copper On 
  40. View : Hide On : Music 1
  41. ROO:
  42. Gosub STEXT
  43. Wait Vbl : Goto ROO
  44. PIXD:
  45. Restore SD : 
  46. For F=1 To 51 : Read X$(F),X(F),Y(F)
  47. Next F : Return 
  48. SD:
  49. Data "0",84,40,"1",98,40,"2",112,40,"3",126,40,"4",140,40,"5",154,40
  50. Data "6",168,40,"7",182,40,"8",196,40,"9",210,40,"A",0,12,"B",14,12
  51. Data "C",28,12,"D",42,12,"E",56,12,"F",70,12,"G",84,12,"H",98,12
  52. Data "I",112,12,"J",126,12,"K",140,12,"L",154,12,"M",168,12,"N",182,12
  53. Data "O",196,12,"P",210,12,"Q",224,12,"R",238,12,"S",252,12,"T",266,12
  54. Data "U",0,40,"V",14,40,"W",28,40,"X",42,40,"Y",56,40,"Z",70,40,"@",210,68
  55. Data ",",14,68,"!",224,40,".",0,68,":",266,68,"?",28,68,"/",196,68
  56. Data "+",154,68,"-",224,68,"(",126,68,")",140,68,"#",42,68,"{",168,68,"}",182,68," ",288,68
  57. STEXT:
  58. Screen 1 : Scroll 1
  59. Add CNT,4
  60. If CNT>18 Then Gosub NCHAR : CNT=0 : Inc SCNT : If SCNT>Len(SC$) Then SCNT=1
  61. If Mouse Key=1 Then End 
  62. Return 
  63. NCHAR:
  64. E$=Mid$(SC$,SCNT,1) : E=Instr(SCRL$,E$)
  65. Screen Copy 0,X(E),Y(E),X(E)+14,Y(E)+25 To 1,352,223 : Return 
  66. RB:
  67. Set Rainbow 0,1,28,"","","" : Rainbow 0,0,272,28 : Colour Back 0
  68. Restore RDATA : For C=0 To 27 : Read CVA : Rain(0,C)=CVA
  69. Next C : View : Return 
  70. RDATA:
  71. Data $0,$11,$22,$133,$244,$355,$466,$577
  72. Data $688,$799,$8AA,$9BB,$ACC,$BDD,$CEE,$DFF
  73. Data $89E,$78D,$67C,$56B,$45A,$349,$238,$127
  74. Data $16,$5,$4,$3,$2,$1,$0,$0
  75. Return