home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / general / change.amos / change.amosSourceCode
Encoding:
AMOS Source Code  |  1991-06-11  |  2.5 KB  |  99 lines
  1. Rem Boring change disks part 
  2. Rem by JAG 
  3. Rem
  4. DEMO
  5. Procedure DEMO
  6. Screen Open 0,320,256,2,Lowres : Hide On : Curs Off : Cls 0
  7. Close Workbench : Close Editor : Led Off : Break Off 
  8. Load "chmus.abk",3
  9. Load "chpic.abk",6
  10. Music 1
  11. Unpack 6 To 0 : Hide On 
  12. Set Rainbow 0,1,90,"","",""
  13. Rainbow 0,0,40,256
  14. Restore RDATA
  15. For F=0 To 89
  16. Read R : Rain(0,F)=R
  17. Next F
  18. R$="Restart:  Let X=0; Pause; Loop:  Let X=X+1; If X=90 then Jump Restart; Pause; Jump Loop;"
  19. Channel 0 To Rainbow 0
  20. Amal 0,R$
  21. Amal On 
  22. CS=0
  23. Do 
  24. Inc CS
  25. If CS=7 Then CS=1
  26. If CS=1 Then Gosub RED
  27. If CS=2 Then Gosub YELLOW
  28. If CS=3 Then Gosub GREEN
  29. If CS=4 Then Gosub CYAN
  30. If CS=5 Then Gosub BLUE
  31. If CS=6 Then Gosub PURPLE
  32. Shift Up 2,2,31,1
  33. For F=1 To 60
  34. Wait 1
  35. If Mouse Key=1 Then P=1
  36. Next F
  37. Shift Off 
  38. If P=1 Then Gosub CHECK
  39. For F=1 To 60
  40. Wait 1
  41. If Mouse Key=1 Then P=1
  42. Next F
  43. If P=1 Then Gosub CHECK
  44. Shift Down 2,2,31,1
  45. For F=1 To 60
  46. Wait 1
  47. If Mouse Key=1 Then P=1
  48. Next F
  49. Shift Off 
  50. If P=1 Then Gosub CHECK
  51. For F=1 To 60
  52. Wait 1
  53. If Mouse Key=1 Then P=1
  54. Next F
  55. If P=1 Then Gosub CHECK
  56. Loop 
  57. Direct 
  58. RED:
  59. Palette 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,$200,$400,$600,$800,$900,$B00,$D00,$F00,$D00,$B00,$900,$800,$600,$400,$200
  60. Return 
  61. YELLOW:
  62. Palette 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,$220,$440,$660,$880,$990,$BB0,$DD0,$FF0,$DD0,$BB0,$990,$880,$660,$440,$220
  63. Return 
  64. GREEN:
  65. Palette 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,$20,$40,$60,$80,$90,$B0,$D0,$F0,$D0,$B0,$90,$80,$60,$40,$20
  66. Return 
  67. CYAN:
  68. Palette 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,$22,$44,$66,$88,$99,$BB,$DD,$FF,$DD,$BB,$99,$88,$66,$44,$22
  69. Return 
  70. BLUE:
  71. Palette 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,$2,$4,$6,$8,$9,$B,$D,$F,$D,$B,$9,$8,$6,$4,$2
  72. Return 
  73. PURPLE:
  74. Palette 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,$202,$404,$606,$808,$909,$B0B,$D0D,$F0F,$D0D,$B0B,$909,$808,$606,$404,$202
  75. Return 
  76. Stop 
  77. CHECK:
  78. P=0
  79. If Exist("FanatixMegademo4DiskB:")=-1 Then Goto DIE Else Return 
  80. DIE:
  81. Dir$="FanatixMegademo4DiskB:"
  82. Set Rainbow 0,0,16,"","",""
  83. Rainbow 0,0,340,0
  84. Shift Off 
  85. Fade 3
  86. For F=63 To 0 Step -1
  87. Mvolume F : For T=0 To 1000 : Next T : Next F
  88. Screen Close 0
  89. Music Off 
  90. Mvolume 63
  91. Run "Dualscroll.AMOS"
  92. RDATA:
  93. Data $F00,$F10,$F20,$F30,$F40,$F50,$F60,$F70,$F80,$F90,$FA0,$FB0,$FC0,$FD0,$FE0
  94. Data $FF0,$EF0,$DF0,$CF0,$BF0,$AF0,$9F0,$8F0,$7F0,$6F0,$5F0,$4F0,$3F0,$2F0,$1F0
  95. Data $F0,$F1,$F2,$F3,$F4,$F5,$F6,$F7,$F8,$F9,$FA,$FB,$FC,$FD,$FE
  96. Data $FF,$EF,$DF,$CF,$BF,$AF,$9F,$8F,$7F,$6F,$5F,$4F,$3F,$2F,$1F
  97. Data $F,$10F,$20F,$30F,$40F,$50F,$60F,$70F,$80F,$90F,$A0F,$B0F,$C0F,$D0F,$E0F
  98. Data $F0F,$F0E,$F0D,$F0C,$F0B,$F0A,$F09,$F08,$F07,$F06,$F05,$F04,$F03,$F02,$F01
  99. End Proc