home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / demos / cdtv.amos / cdtv.amosSourceCode < prev    next >
AMOS Source Code  |  1978-01-16  |  3KB  |  82 lines
  1. Screen Open 0,320,256,16,Lowres : Flash Off : Curs Off : Hide : Cls 0 : Get Disc Fonts : Set Font 1 : Load Iff "cdtv" : Colour 1,$0 : Screen Display 0,128,40,320,256
  2. POSY=40 : A$="PANTHORUS" : B$="SOFTWARE" : G=Text Length(B$) : L=Text Length(A$)
  3. Global A
  4. Screen Open 1,350,128,2,Lowres : Flash Off : Curs Off : Hide : Cls 0
  5. Screen Open 2,350,128,2,Lowres : Flash Off : Curs Off : Hide : Cls 0
  6. Screen Open 3,350,128,2,Lowres : Flash Off : Curs Off : Hide : Cls 0
  7. Screen To Front 0
  8. COPPERLIST
  9. Load "musak10.abk"
  10. Screen 1
  11. For Z=1 To 80
  12. Plot Rnd(320),Rnd(128)
  13. Next Z
  14. Locate 0,0 : Centre "THE ONLY CHOICE"
  15. Locate 0,15 : Centre "AMOS"
  16. Screen 2
  17. For Z=1 To 50
  18. Plot Rnd(320),Rnd(128)
  19. Next Z
  20. Screen 3
  21. For Z=1 To 30
  22. Plot Rnd(320),Rnd(128)
  23. Next Z
  24. Screen 0
  25. Wait 75 : Fade 5,,$0 : Wait 75 : Double Buffer 
  26. For Z=1 To 30 : Bob 1,124,210,31 : Wait 2 : Bob 1,124,210,32 : Wait 2 : Next Z
  27. Bob Clear 
  28. Autoback OFF : Bob Update Off 
  29. Fade 5,,$777
  30. Led Off : Music 1 : Tempo 18
  31. Screen 0 : Ink 9,0
  32. Do 
  33. A=Vumeter(0) : B=Vumeter(1) : C=Vumeter(2) : D=Vumeter(3) : LEFT=((A+B)-2)/4 : RIGHT=((C+D)-2)/4
  34. If LEFT=0 and AA>0 Then Add AA,-1 Else AA=LEFT/3
  35. If RIGHT=0 and BB>0 Then Add BB,-1 Else BB=RIGHT/3
  36. If AA<0 Then AA=0
  37. If BB<0 Then BB=0
  38. Screen Copy 1,0,0,1,128 To 1,320,0 : Screen Copy 1,0,0,350,128 To 1,-1,0 : Screen Copy 2,0,0,2,128 To 2,320,0 : Screen Copy 2,0,0,350,128 To 2,-2,0 : Screen Copy 3,0,0,4,128 To 3,320,0 : Screen Copy 3,0,0,350,128 To 3,-4,0
  39. Screen Copy 1,0,0,165,128 To Logic(0),78,8,239 : Screen Copy 2,0,0,165,128 To Logic(0),78,8,239 : Screen Copy 3,0,0,165,128 To Logic(0),78,8,239
  40. Sprite 0,X Hard(159),Y Hard(168),29-AA : Sprite 4,X Hard(159),Y Hard(174),29-BB
  41. If Mouse Key=1 Then Goto FULL
  42. Screen Swap : Wait Vbl : Cls 0,78,8 To 243,136 : Text 160-L/2,POSY,A$ : Text 160-G/2,156-POSY,B$
  43. If POSYD=0 Then Inc POSY
  44. If POSYD=1 Then Dec POSY
  45. If POSY=70 Then POSYD=1
  46. If POSY=24 Then POSYD=0
  47. Loop 
  48. FULL:
  49. Screen Copy Physic(0) To Logic(0)
  50. Screen 0 : For Z=8 To 136 Step 8 : Screen Swap : Wait Vbl : Cls 0,78,8 To 243,Z : Next Z : Screen Swap : Wait Vbl : Cls 0,78,8 To 243,136
  51. For Z=63 To 0 Step -2 : Wait Vbl : Mvolume Z : Next Z : Music Off : Erase 3 : Mvolume 63
  52. Sprite Off 
  53. Fade 5,,$0 : Wait 75 : For A=63 To 0 Step -1 : Mvolume A : Next A
  54. Erase 1 : Erase 3 : Screen Close 3 : Screen Close 2 : Screen Close 1
  55. Screen Open 2,320,768,16,Lowres : Curs Off : Flash Off : Cls 0 : Hide : Screen Display 2,128,40,320,256
  56. Screen 2
  57. Load Iff "cdtvfull" : Colour 2,$0
  58. Screen To Front 2
  59. Sprite Off 
  60. Screen Close 0
  61. Wait 100
  62. For Z=0 To 512 Step 256
  63. Screen Offset 2,0,Z
  64. Wait 5
  65. Next Z
  66. Copper Off : Screen Close 2 : Set Rainbow 1,1,16,"","",""
  67. Copper On : Run "starter.amos"
  68. Procedure COPPERLIST
  69. Set Rainbow 1,1,4097,"","",""
  70. A=1
  71. Do 
  72. Read B
  73. If B=-1 Then Goto SETER
  74. For Z=1 To 4
  75. Rain(1,A)=B
  76. Inc A
  77. Next Z
  78. Loop 
  79. SETER:
  80. Rainbow 1,1,48,128
  81. Data $999,$999,$888,$888,$777,$777,$666,$666,$555,$555,$444,$444,$333,$333,$222,$222,$222,$222,$333,$333,$444,$444,$555,$555,$666,$666,$777,$777,$888,$888,$999,$999,-1,-1
  82. End Proc