home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 101-125 / apd112 / ste.amos / ste.amosSourceCode < prev   
AMOS Source Code  |  1978-01-16  |  5KB  |  106 lines
  1. Screen Open 0,400,40,2,Lowres : Curs Off : Flash Off : Hide : Cls 0 : Double Buffer : Autoback 0 : Screen Open 2,320,256,8,Lowres : Curs Off : Flash Off : Hide : Cls 0 : Get Disc Fonts : Set Font 3
  2. For Z=0 To 31 : Colour Z,$0 : Next Z
  3. Screen Open 3,320,256,8,Lowres : Curs Off : Flash Off : Hide : Cls 0
  4. Screen Open 4,320,35,8,Lowres : Curs Off : Flash Off : Hide : Cls 0 : Screen 0 : Screen Display 0,,,320,40 : Screen Clone 1 : Screen Display 1,,249,320,40
  5. Screen Display 2,128,150,320,1 : Screen Display 3,128,150,320,1 : Screen Display 4,,85,,
  6. Wait Vbl 
  7. Dual Playfield 2,3 : Screen Offset 2,1, : Screen Offset 3,1,20
  8. Screen 3 : Load Iff "steback" : Cls 0,0,0 To 320,40
  9. Screen 0 : Def Scroll 1,0,0 To 400,35,-4,0 : D=1 : Screen To Front 0 : Screen To Front 4 : Screen 2 : Def Scroll 2,0,20 To 320,256,0,-1 : E=1
  10. COPPERLIST
  11. Load "musak10.abk"
  12. DEPTH=1
  13. For Z=150 To 40 Step -1
  14.    Wait Vbl 
  15.    Screen Display 2,,Z,,T : Screen Display 3,,Z,,T
  16.    Add T,2
  17. Next Z
  18. Music 1 : Tempo $11 : Mvolume 63
  19. Screen 4 : Paste Bob 0,0,56 : Paste Bob 89,0,57 : Paste Bob 178,0,58 : Paste Bob 267,0,59 : Palette 0,0,$F00,$F0,0,0,0,0,,,,,,,,,0,$FFF,$FFF,$FFF,0,$FFF,$FFF,$FFF, : Screen 0
  20. COUNT=0 : COUNTER=0 : Screen 2 : Fade 5,,,,,,,,,$0,$FFF,$DDD,$BBB,$888,$666,$444,$222 : Wait 75
  21. A$="    PANTHORUS SOFTWARE PROUDLY PRESENTS ANOTHER GOOD DEMO       CODING BY   STEVEN BORG      SPECIAL COORDINATION BY   MARTIN CORDINGLEY"
  22. A$=A$+"    HELLO THERE  MY NAME IS STEVEN BORG AND THIS IS THE VERY FIRST TIME THAT I HAVE EVER CODED THE AMIGA   BUT BEFORE I SAY ALL THAT I WOULD"
  23. A$=A$+" LIKE TO GIVE GREETS TO THE FOLLOWING PEOPLE      ROMEO KNIGHT     REDSECTOR     FRANCOIS LIONET     AMOS USERS EVERYWHERE     AND EVERYBODY ELSE"
  24. A$=A$+" THAT ARE NOT IN THIS SCROLL BECAUSE I CANT BE BOTHERED TYPING OUT A HUGE GREETINGS LIST.        BUT I WOULD LIKE TO SAY THAT I AM VERY HAPPY"
  25. A$=A$+" THAT PANTHORUS SOFTWARE IS ONE YEAR OLD   AND THAT IT IS A GREAT ACHIEVEMENT ON OUR BEHALF         LOOK OUT FOR OUR FIRST GAME GLOOM    WHICH SHOULD"
  26. A$=A$+" HOPEFULLY BE RELEASED WHEN A PUBLISHER TAKES INTEREST         BACK TO THIS DEMO     IT WAS CREATED IN THREE HOURS AND IS AROUND THIRTY FIVE KILOBYTES LONG"
  27. A$=A$+" AS I SAID IT IS MY VERY FIRST VENTURE ONTO THIS MAGNIFICENT MACHINE AND I AM VERY PLEASED WITH THE WAY IT TURNED OUT                              *"
  28. ST:
  29. If D=12 Then Inc COUNT : D=1 : Screen 0 : B=Asc(Mid$(A$,COUNT,1)) : If B=32 Then Goto ST Else If B=42 Then COUNT=1 : Goto ST Else Paste Bob 320,0,B-64
  30. If E=25 Then E=1 : Screen 2 : Read B$ : If B$="*" Then Restore DATS : Goto ST Else QE=Text Length(B$) : Ink 1,0 : Text 160-QE/2,230,B$ : Screen 0
  31. COUNTER=0 : Inc D : Inc E : A=Vumeter(0) : B=Vumeter(1) : C=Vumeter(2) : DD=Vumeter(3) : A=A/4 : B=B/4 : C=C/4 : DD=DD/4
  32. If A=0 and AA>0 Then Add AA,-2 Else AA=A
  33. If B=0 and BB>0 Then Add BB,-2 Else BB=B
  34. If C=0 and CC>0 Then Add CC,-2 Else CC=C
  35. If Mouse Key=1 Then Copper Off : Sprite Off : For Z=4 To 0 Step -1 : Screen Close Z : Next Z : For Z=63 To 0 Step -1 : Wait Vbl : Mvolume Z : Next Z : Music Off : Mvolume 63 : Set Rainbow 1,1,16,"","","" : Copper On : Run "dchanger.amos"
  36. If DD=0 and DDD>0 Then Add DDD,-2 Else DDD=DD
  37. If AA<0 Then AA=0
  38. If BB<0 Then BB=0
  39. If CC<0 Then CC=0
  40. If DDD<0 Then DDD=0
  41. Sprite 0,153,107,62+AA : Sprite 1,242,107,62+BB : Sprite 2,331,107,62+CC : Sprite 3,420,107,62+DDD : Screen 0 : Scroll 1 : Screen 2 : Scroll 2 : Screen 0 : Screen Swap : Wait Vbl : Screen Copy Physic To Logic : Goto ST
  42. DATS:
  43. Data "PANTHORUS ARE :-"
  44. Data "","",""
  45. Data "STEVEN BORG"
  46. Data ""
  47. Data "ST AND AMIGA CODER"
  48. Data "","",""
  49. Data "MARTIN CORDINGLEY"
  50. Data ""
  51. Data "AMIGA CODER"
  52. Data ""
  53. Data "DEVELOPMENT MANAGER"
  54. Data "","",""
  55. Data "ANTHONY MAHAFFEY"
  56. Data ""
  57. Data "AMIGA CODER"
  58. Data "","",""
  59. Data "NATHAN POWELL"
  60. Data ""
  61. Data "GRAPHICS ARTIST"
  62. Data ""
  63. Data "DESIGNER"
  64. Data "","",""
  65. Data "MARK PRESTON"
  66. Data "","MUSICIAN"
  67. Data "","","","","","","","","","","",""
  68. Data "*"
  69. Procedure COPPERLIST
  70.    Set Rainbow 1,1,4097,"","",""
  71.    For Z=0 To 256 Step 32
  72.       Rain(1,Z+1)=$0
  73.       Rain(1,Z+2)=$300
  74.       Rain(1,Z+3)=$700
  75.       Rain(1,Z+4)=$B00
  76.       Rain(1,Z+5)=$E00
  77.       Rain(1,Z+6)=$E30
  78.       Rain(1,Z+7)=$E70
  79.       Rain(1,Z+8)=$EB0
  80.       Rain(1,Z+9)=$EE0
  81.       Rain(1,Z+10)=$BE0
  82.       Rain(1,Z+11)=$7E0
  83.       Rain(1,Z+12)=$3E0
  84.       Rain(1,Z+13)=$E0
  85.       Rain(1,Z+14)=$E3
  86.       Rain(1,Z+15)=$E7
  87.       Rain(1,Z+16)=$EB
  88.       Rain(1,Z+17)=$EE
  89.       Rain(1,Z+18)=$BE
  90.       Rain(1,Z+19)=$7E
  91.       Rain(1,Z+20)=$3E
  92.       Rain(1,Z+21)=$E
  93.       Rain(1,Z+22)=$30E
  94.       Rain(1,Z+23)=$70E
  95.       Rain(1,Z+24)=$B0E
  96.       Rain(1,Z+25)=$E0E
  97.       Rain(1,Z+26)=$E0B
  98.       Rain(1,Z+27)=$E07
  99.       Rain(1,Z+28)=$E03
  100.       Rain(1,Z+29)=$B00
  101.       Rain(1,Z+30)=$700
  102.       Rain(1,Z+31)=$300
  103.       Rain(1,Z+32)=$0
  104.    Next Z
  105.    Rainbow 1,1,40,256
  106. End Proc