home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / demos / mcpd2.amos / mcpd2.amosSourceCode < prev    next >
AMOS Source Code  |  1978-01-16  |  7KB  |  57 lines
  1. Set Buffer 10
  2. Auto View Off 
  3. Hide On 
  4. Screen Open 0,350,150,2,Lowres : Colour 1,$FFF : Colour 9,$747 : Flash Off : Curs Off : Double Buffer : Autoback 0 : Flash 1,"(010,1)(030,2)(050,2)(070,3)(090,3)(0b0,3)(0d0,4)(0f0,4)(0d0,4)(0b0,3)(090,3)(070,3)(050,2)(030,2)"
  5. Screen Open 1,400,40,2,Lowres : Colour 1,$FFF : Flash Off : Curs Off : Cls 0 : Def Scroll 1,0,0 To 400,256,-8,0 : Flash 1,"(100,1)(300,2)(500,2)(700,3)(900,3)(b00,3)(d00,4)(f00,4)(d00,4)(b00,3)(900,3)(700,3)(500,2)(300,2)"
  6. Screen Open 3,320,70,8,Lowres : Flash Off : Curs Off : Cls 0 : Hide 
  7. Ink 1 : Bar 0,0 To 78,70 : Ink 2 : Bar 80,0 To 158,70
  8. Ink 3 : Bar 160,0 To 238,70 : Ink 4 : Bar 240,0 To 318,70
  9. Screen Display 0,128,130,320,150
  10. Screen Display 1,128,60,320,40
  11. Screen Display 3,128,95,320,70
  12. Wait Vbl 
  13. Screen To Front 0
  14. Screen To Front 3
  15. Screen 1
  16. Load "musak4.abk" : Music 1 : Tempo $11
  17. TX$="        WELCOME TO PANTHORUS SOFTWARES OFFICIAL GREETINGS AND CREDITS LIST     BUT BEFORE WE START WITH ALL THAT WE THINK WE SHOULD SAY SOMTHING       "
  18. TX$=TX$+"    WELL FIRSTLY WE SHALL SAY      WHERES THE COMPILER   WE NEED IT        A SUGGESTION    NEW GRAPHIC COMMANDS LIKE ONE TO DRAW BOBS IN CIRCLES AND SQUARES  "
  19. TX$=TX$+"    AN ARC COMMAND TO DRAW ARCS LIKE THE ONES IN DPAINT   AS THESE WOULD BE A GREAT HELP         A QUESTION   WILL AMOS HAVE A CDTV UPDATE   BECAUSE WE ARE GETTING ONE AND WOULD"
  20. TX$=TX$+"    LIKE TO USE ITS FEATURES  AND READ DATA OFF CD        WELL HERE THEY ARE THE GREETS  AND IF ANY OF THE PEOPLE WE ARE GIVING GREETS TO ARE EUROPEAN HACKERS   THEN WE ARE GIVING"
  21. TX$=TX$+"  A GREET IN ADMIRATION OF THIER PROGRAMMING SKILLS AND NOT TO CONDONE THEIR ILLIGAL ACTIVITIES       GREETS GO TO    ROMEO KNIGHT    RED SECTOR   VISION   DOCTOR AWSOME   DOC   "
  22. TX$=TX$+"  STARLINE   AARON FOTHERGILL   FRANCOIS LIONET   P J HICKMAN   ALISTER BRIMBLE   MANDARIN SOFTWARE   REBELS   REFLECTIONS   ALL AMOS SUPPORTERS   MAHONEY   KAKTUS   US   THE CRUSADERS   AND   FACTOR FIVE"
  23. TX$=TX$+"    NOW FOR THE CREDITS      THE PANTHOR   NATHAN POWELL     THE CDTV      PROGRAMMING   MARTIN CORDINGLEY     GRAPHICS     MARTIN CORDINGLEY     MUSIC     MARTIN CORDINGLEY       THE BIRTHDAY SEQUENCE     PROGRAMMING   MARTIN CORDINGLEY"
  24. TX$=TX$+"     GRAPHICS   MARTIN CORDINGLEY     MUSIC   MARTIN CORDINGLEY       THE COSMIC CAUSWAY     PROGRAMMING   ANTHONY MAHAFFEY     GRAPHICS   ANTHONY MAHAFFEY     MUSIC   UNKNOWN"
  25. TX$=TX$+"      THE VUCIRCLES     PROGRAMMING   MARTIN CORDINGLEY     GRAPHICS   MARTIN CORDINGLEY     MUSIC   RAY NORRISH  WE THINK       THE MEGASCROLL       PROGRAMMING   MARTIN CORDINGLEY     GRAPHICS   MARTIN CORDINGLEY"
  26. TX$=TX$+"     MUSIC   MARTIN CORDINGLEY       THIS PART       PROGRAMMING   MARTIN CORDINGLEY     GRAPHICS   MARTIN CORDINGLEY"
  27. TX$=TX$+"   MARTIN CORDINGLEY       THE DISK CHANGE     PROGRAMMING   MARTIN CORDINGLEY     GRAPHICS   MARTIN CORDINGLEY     MUSIC   MARTIN CORDINGLEY       THE STE DEMO     PROGRAMMING   STEVEN BORG     GRAPHICS   STEVEN BORG     MUSIC"
  28. TX$=TX$+"   MARTIN CORDINGLEY       THE CLOSEING SEQUENCE COMING UP NEXT     PROGRAMMING   MARTIN CORDINGLEY     GRAPHICS   MARTIN CORDINGLEY     MUSIC   UNKNOWN       THE PERFECT TEAM DEMO     PROGRAMMING   MARTIN CORDINGLEY     GRAPHICS"
  29. TX$=TX$+"   MARTIN CORDINGLEY AND NATHAN POWELL     MUSIC MARTIN CORDINGLEY       OTHER DEMOS BY ANTHONY MAHAFFEY"
  30. TX$=TX$+"           NOW THEN YOU HAVE TEN SECONDS TO REBOOT   BECAUSE BY THEN WE SHALL BE DOING SOME SERIOUS WAFFLE    TEN   NINE   EIGHT   SEVEN   SIX   FIVE   FOUR   THREE   TWO   ONE        YOU WERE WARNED           "
  31. TX$=TX$+"    MARTIN SPEAKING   WE HOPE YOU LIKED OUR FEW LITTLE DEMOS     NOTHING TOTALY SPECTACULAR I KNOW   BUT WE HAD TO PUT A MEGADEMO TOGETHER BECAUSE EVRYBODY ELSE IS DOING ONE    AND I PROMISE THAT THE NEXT ONE WILL BLOW YOUR MINDS     "
  32. TX$=TX$+"    ON A MORE CONTROVERSIAL FRONT    I THINK THAT PEOPLE ARE PUTTING THE AMIGA DOWN FAR TO MUCH THESE DAYS       SAYING THINGS LIKE     OH THE CUSTOM CHIPS ARE FAR TO OUTDATED       I AGREE THEY COULD DO WITH A LITTLE REVAMP BUT I BET "
  33. TX$=TX$+" THE SEGA MEGADRIVE COULDNT PULL OFF THE GRAPHICAL EFFECTS OF BEAST       NOT ON YOUR NELLIE       AND WHERE WILL THE SO CALLE SUPER CONSOLES BE IN TEN YEARS TIME       IN THE BIN THATS WHERE  BECAUSE THEY ARE NOT DESIGNED TO BE EXPANDED"
  34. TX$=TX$+"   HOWEVER ALL YOU NEED TO DO WITH GOOD OLD AMY IS TO TAKE OUT THE OLD PROCESSOR     BUNG IN A SIX EIGHT ZERO FOUR ZERO    AND YOUR OFF       AS WELL AS NEW CHIP UPDATES BEING EASY    THE AMIGA WILL BE AROUND IN FIFTY YEARS AND STILL "
  35. TX$=TX$+" SELLING IN ITS THOUSANDS  BECAUSE BY THEN THE AMIGA THREE THOUSAND SHALL BE A GAMES MACHINE      AND THE TOP MODEL SHALL BE A SUPER COMPUTER NASA WOULD BE PROUD OF     SO ALL I CAN SAY TO PEOPLE WHO TALK A LOAD OF CRAP   IS  GET BACK "
  36. TX$=TX$+" YOUR LITTLE BLACK BOX AND STICK THE CONTROL PAD UP YOUR ARSE    BECAUSE YOU KNOW SOD ALL ABOUT THE COMPUTING SCENE  SO GOD KNOWS HOW YOU GOT A JOB AS A REVIEWER IN A MAGAZINE           AND ON THE POINT OF REVIEWERS"
  37. TX$=TX$+"    THEY ALSO TALK A LOT OF CRAP      I WAS READING ACE THE OTHER DAY   AND SOME PRAT GIVE BEAST II A BAD REVIEW ALL BECAUSE HE COULD NOT GET PAST THE SECOND LOAD AFTER PLAYING IT FORTY TIMES        "
  38. TX$=TX$+"    ONE THING REVIEWERS SHOULD BE ABLE TO DO IS HAVE A DECENT SORT OF JOYSTICK CONTROL      HOWEVER THIS DICKHEAD  MOST PROBABLY COULDNT GET PAST LEVEL ONE OF BUBBLE BOBBLE     BEAST II IS A GREAT GAME  AND IT ONLY TOOK ME ABOUT TEN PLAYS"
  39. TX$=TX$+" TO GET THROUGH ALL THE LOADS          THE SAME REVIEWER WAS ALSO BABLING ON ABOUT SPRITES    HE DIDNT SEEM TO KNOW ANYTHING MUCH ABOUT THEM EITHER       SO MY ADVISE IS    IF YOU ARE A REVIEWER THEN DONT QUOTE ON THINGS YOU DONT THINK "
  40. TX$=TX$+" ABOUT   AND TO ACE MAGAZINE   ILL HAVE HIS JOB    AND DO IT A DAM SITE BETTER                   *"
  41. X=1 : XX=45 : LET=1 : LETCOUNT=1 : COUNTER=0 : Degree : Auto View On 
  42. BUV=4 : BOV=8 : BIV=5
  43. Do 
  44. For COUNT=1 To 360 Step 4
  45. AAA=AA : BBB=BB : CCC=CC : DDD=DD : AA=Vumeter(0) : BB=Vumeter(1) : CC=Vumeter(2) : DD=Vumeter(3)
  46. If AA=0 and AAA>0 Then AA=AAA-8
  47. If BB=0 and BBB>0 Then BB=BBB-8
  48. If CC=0 and CCC>0 Then CC=CCC-8
  49. If DD=0 and DDD>0 Then DD=DDD-8
  50. If Mouse Key=1 Then Copper Off : For Z=63 To 0 Step -1 : Mvolume Z : Wait Vbl : Next Z : Music Off : Mvolume 63 : Screen Close 1 : Screen Close 3 : Screen Close 0 : View : Copper On : Run "closer.amos"
  51. Screen 3 : Colour 1,AA : Colour 2,BB : Colour 3,CC : Colour 4,DD : Screen 1
  52. Y#=Cos(COUNTER) : Screen Copy 1,0,0,320,40 To 0,0,Y#*40+75 : Add COUNTER,BUV : Scroll 1 : Inc LETCOUNT
  53. If LETCOUNT=BIV Then LETCOUNT=0 : TXT=Asc(Mid$(TX$,LET,1)) : If TXT=32 Then Inc LET : Goto GUP Else If TXT=42 Then LET=1 : Goto GUP Else Paste Bob 320,0,TXT-64 : Inc LET
  54. GUP:
  55. Screen 0 : Screen Swap : Multi Wait : Cls 0 : Screen 1
  56. Next COUNT
  57. Loop