home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 076-100 / apd077 / sel.amos / sel.amosSourceCode
AMOS Source Code  |  1990-11-07  |  3KB  |  113 lines
  1. Break Off 
  2. Rem * SELECTOR PROGRAM - BY SPADGE * 
  3. Rem *
  4. Rem * For Amos PD Discs. 
  5. Rem *********************
  6. Auto View Off : Hide On 
  7. Cls 0
  8. Get Rom Fonts : Set Font 2
  9. Unpack 5 To 0
  10. Rem
  11. Rem  * Created with RAINBOW WARRIOR - Amos Copper Generator *
  12. Rem  *  Yup, you can blame good ol' Spadge for this one...  *
  13. Rem
  14. Set Rainbow 0,1,280,"","",""
  15. Rainbow 0,0,0,280
  16. Colour Back 0
  17. Restore RDATA
  18. For C=0 To 279 : Read CVA : Rain(0,C)=CVA
  19. Next C : CH=10 : Dim C$(CH) : Restore TITLES : For F=1 To CH : Read C$(F) : Next F
  20. Rem
  21. Rem CH = number of selections, data at TITLES
  22. Rem
  23. Screen Open 1,320,32+(16*CH),2,LORES : Screen Display 1,,168,,40 : Print 
  24. For F=1 To CH : Centre C$(F) : Print : Print : Next F : CS=1 : SO=0
  25. View 
  26. SLOOP:
  27. Do 
  28. K$=Inkey$
  29. S=Scancode
  30. Exit If S=77
  31. Exit If S=76
  32. Exit If K$=Chr$(13)
  33. Loop 
  34. If S=77 Then Goto MUP
  35. If S=76 Then Goto MDN
  36. Set Rainbow 0,0,20,"","","" : Rainbow 0,0,0,1
  37. Screen 0 : Cls : Screen Close 1 : Erase 5 : Cls 0 : Palette 0,0
  38. On CS Goto S1,S2,S3,S4,S5,S6,S7,S8,S9,S10,S11,S12,S13,S14,S15
  39. S1:
  40. Run "amos:copdes.amos"
  41. S2:
  42. S3:
  43. S4:
  44. S5:
  45. S6:
  46. S7:
  47. S8:
  48. S9:
  49. S10:
  50. S11:
  51. S12:
  52. S13:
  53. S14:
  54. S15:
  55. MUP:
  56. If CS>CH-1 Then Goto SLOOP
  57. For F=S0 To S0+16 : Screen Offset 1,,F : Wait Vbl : View : Next F : S0=S0+16 : Inc CS : Goto SLOOP
  58. MDN:
  59. If CS=1 Then Goto SLOOP
  60. For F=S0 To S0-16 Step -1 : Screen Offset 1,,F : Wait Vbl : View : Next F : S0=S0-16 : Dec CS : Goto SLOOP
  61. TITLES:
  62. Data "RAINBOW WARRIOR COPPER DESIGNER"
  63. Data "SELECTION TWO"
  64. Data "SELECTION THREE"
  65. Data "SELECTION FOUR"
  66. Data "SELECTION FIVE"
  67. Data "SELECTION SIX"
  68. Data "SELECTION SEVEN"
  69. Data "SELECTION EIGHT"
  70. Data "SELECTION NINE"
  71. Data "Selection Ten"
  72. RDATA:
  73. Data $0,$0,$0,$0,$140,$140,$250,$250
  74. Data $360,$360,$470,$470,$581,$581,$692,$692
  75. Data $7A3,$7A3,$8B4,$8B4,$9C5,$9C5,$AD6,$AD6
  76. Data $BE7,$BE7,$CF8,$CF8,$CF8,$CF8,$BE7,$BE7
  77. Data $AD6,$AD6,$9C5,$9C5,$8B4,$8B4,$7A3,$7A3
  78. Data $692,$692,$581,$581,$0,$300,$400,$500
  79. Data $610,$720,$830,$940,$A50,$A50,$940,$830
  80. Data $720,$610,$500,$400,$300,$0,$0,$0
  81. Data $0,$940,$940,$940,$940,$940,$0,$0
  82. Data $0,$0,$0,$0,$0,$0,$0,$0
  83. Data $0,$0,$0,$0,$0,$0,$0,$0
  84. Data $0,$0,$0,$0,$0,$0,$0,$0
  85. Data $0,$0,$0,$0,$0,$0,$0,$0
  86. Data $0,$0,$0,$0,$0,$0,$0,$0
  87. Data $0,$0,$0,$0,$0,$0,$0,$0
  88. Data $0,$0,$0,$0,$0,$0,$0,$0
  89. Data $300,$400,$500,$600,$701,$802,$913,$A24
  90. Data $B35,$C46,$D57,$D57,$C46,$B35,$A24,$913
  91. Data $802,$701,$600,$500,$400,$300,$0,$0
  92. Data $0,$0,$0,$0,$0,$0,$0,$0
  93. Data $0,$0,$0,$0,$0,$0,$0,$0
  94. Data $0,$0,$0,$0,$0,$0,$0,$0
  95. Data $0,$0,$0,$0,$0,$0,$0,$0
  96. Data $0,$0,$0,$0,$0,$0,$0,$0
  97. Data $0,$0,$0,$0,$0,$0,$0,$0
  98. Data $0,$0,$0,$0,$0,$1,$0,$1
  99. Data $12,$12,$23,$23,$34,$34,$45,$45
  100. Data $156,$156,$267,$267,$378,$378,$489,$489
  101. Data $59A,$59A,$6AB,$6AB,$7BC,$7BC,$8CD,$8CD
  102. Data $9DE,$9DE,$9DE,$9DE,$8CD,$8CD,$7BC,$7BC
  103. Data $6AB,$6AB,$59A,$59A,$489,$489,$378,$378
  104. Data $267,$267,$156,$156,$45,$45,$34,$34
  105. Data $23,$23,$12,$12,$1,$0,$0,$0
  106. Data $0,$0,$0,$0,$0,$0,$0,$0
  107. Data $0,$0,$0,$0,$0,$0,$0,$0
  108. Data $0,$0,$0,$0,$0,$0,$0,$0
  109. Rem
  110. Rem  * Alter the values in the RAINBOW and SET RAINBOW * 
  111. Rem  * to position and control the rainbows. See the   * 
  112. Rem  * manual to check on Y positioning, Length and    * 
  113. Rem  * which colour it is to effect.. Have fun!        *