home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 401-425 / apd410 / rainnbowed.amos.pp / rainnbowed.amos / rainnbowed.amosSourceCode < prev    next >
AMOS Source Code  |  1992-05-17  |  8KB  |  364 lines
  1. '
  2. 'rainbow editor v1.
  3. 'storm 1992  
  4. '
  5. RAS
  6. Procedure RAS
  7. Dim RED(15),GREEN(15),BLUE(15),DNA(280),DNA$(280)
  8. STORM
  9. Shift Off 
  10. Screen Open 0,320,270,8,Lowres
  11. Screen Display 0,140,40,320,270
  12. Curs Off : Pen 1 : Paper 0 : Flash Off : Cls 0 : Hide 
  13. Colour 1,$FF
  14. Flash 1,"(011,4)(022,4)(044,4)(066,4)(088,4)(0aa,4)(0cc,4)(0ee,4)(0cc,4)(0aa,4)(088,4)(066,4)(044,4)(022,4)"
  15. Gosub TITLE
  16. Set Rainbow 1,0,280,"","",""
  17. Rainbow 1,0,0,280
  18. For I=0 To 279
  19. Rain(1,I)=0
  20. Next I : View 
  21. SCN=0
  22. RF=0 : GF=0 : BF=0
  23. FC=2 : BC=8
  24. Do 
  25. Locate 0,1 : Print "scanline  :";SCN;"  ";
  26. Locate 0,2 : Print "red       :";Hex$(RED/256);" ";
  27. Locate 0,3 : Print "green     :";Hex$(GREEN/16);" ";
  28. Locate 0,4 : Print "blue      :";Hex$(BLUE);" ";
  29. Locate 0,5 : Print "total hue :";Hex$(MIX);" ";
  30. If Key State(29)=True Then Gosub RDS
  31. If Key State(30)=True Then Gosub GRN
  32. If Key State(31)=True Then Gosub BLE
  33. If Key State(45)=True Then Gosub RDS2
  34. If Key State(46)=True Then Gosub GRN2
  35. If Key State(47)=True Then Gosub BLE2
  36. If Key State(69)=True Then Gosub FRESH
  37. If Key State(80)=True Then Gosub BUB
  38. If Key State(81)=True Then Gosub SUB
  39. If Key State(95)=True Then Gosub QUIT
  40. If Key State(89)=True Then Gosub PRN
  41. If Key State(76)=True Then Gosub SCU
  42. If Key State(77)=True Then Gosub SCD
  43. View 
  44. Wait Vbl 
  45. Loop 
  46. '
  47. '
  48. '
  49. SCU:
  50. If SCN=<0 Then Return 
  51. SCN=SCN-1
  52. Rain(1,SCN)=MIX
  53. Bob 1,100,SCN-12,5
  54. Return 
  55. '
  56. '
  57. '
  58. SCD:
  59. If SCN=>279 Then Return 
  60. SCN=SCN+1
  61. Rain(1,SCN)=MIX
  62. Bob 1,100,SCN-12,5
  63. Return 
  64. '
  65. '
  66. '
  67. BUB:
  68. SCN=0
  69. Rain(1,SCN)=MIX
  70. Bob 1,100,SCN-12,5
  71. Return 
  72. '
  73. '
  74. '
  75. SUB:
  76. SCN=279
  77. Rain(1,SCN)=MIX
  78. Bob 1,100,SCN-12,5
  79. Return 
  80. '
  81. '
  82. '
  83. RDS:
  84. If RED=>3840 Then Return 
  85. Add RED,256
  86. MIX=RED+GREEN+BLUE
  87. Rain(1,SCN)=MIX
  88. View 
  89. Return 
  90. '
  91. '
  92. '
  93. GRN:
  94. If GREEN=>240 Then Return 
  95. Add GREEN,16
  96. MIX=RED+GREEN+BLUE
  97. Rain(1,SCN)=MIX
  98. View 
  99. Return 
  100. '
  101. '
  102. '
  103. BLE:
  104. If BLUE=>15 Then Return 
  105. Add BLUE,1
  106. MIX=RED+GREEN+BLUE
  107. Rain(1,SCN)=MIX
  108. View 
  109. Return 
  110. '
  111. '
  112. '
  113. RDS2:
  114. If RED=<0 Then Return 
  115. Add RED,-256
  116. MIX=RED+GREEN+BLUE
  117. Rain(1,SCN)=MIX
  118. View 
  119. Return 
  120. '
  121. '
  122. '
  123. GRN2:
  124. If GREEN=<0 Then Return 
  125. Add GREEN,-16
  126. MIX=RED+GREEN+BLUE
  127. Rain(1,SCN)=MIX
  128. View 
  129. Return 
  130. '
  131. '
  132. '
  133. BLE2:
  134. If BLUE=<0 Then Return 
  135. Add BLUE,-1
  136. MIX=RED+GREEN+BLUE
  137. Rain(1,SCN)=MIX
  138. View 
  139. Return 
  140. '
  141. '
  142. '
  143. HEXER:
  144. Restore CDAT
  145. For I=0 To 15
  146. 'Read RED$(I)
  147. Next I
  148. For I=0 To 15
  149. 'Read GREEN$(I)
  150. Next I
  151. For I=0 To 15
  152. 'Read BLUE$(I) 
  153. Next I
  154. Return 
  155. CDAT:
  156. Data "0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F"
  157. Data "0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F"
  158. Data "0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F"
  159. FRESH:
  160. Set Rainbow 1,0,280,"","",""
  161. Rainbow 1,0,0,280
  162. For I=0 To 279
  163. Rain(1,I)=0
  164. Next I : View 
  165. Return 
  166. '
  167. '
  168. '
  169. PRN:
  170. E=0
  171. For I=0 To 279
  172. DNA(I)=Rain(1,I)
  173. Next I
  174. Cls 0
  175. Home 
  176. Print 
  177. Show On 
  178. FL$=Fsel$("*.asc",".asc","Save rainbow proc as:")
  179. If FL$="" Then Gosub TITLE : Hide On : Return 
  180. Open Out 1,FL$
  181. JAZZ:
  182. Print #1,"'";Chr$(13)
  183. Print #1,"'";Chr$(13)
  184. Print #1,"'";Chr$(13)
  185. Print #1,"Procedure STORM";Chr$(13)
  186. Print #1,"Rem *******************************************";Chr$(13)
  187. Print #1,"Rem ** produced with storm rainbow editor v1 **";Chr$(13)
  188. Print #1,"Rem **               storm rainbow!          **";Chr$(13)
  189. Print #1,"Rem **               copyright 1992          **";Chr$(13)
  190. Print #1,"Rem *******************************************";Chr$(13)
  191. Print #1,"Restore MAGICCOLOURS";Chr$(13)
  192. Print #1,"Set Rainbow 1,0,280,";Chr$(34);Chr$(34);",";Chr$(34);Chr$(34);",";Chr$(34);Chr$(34);Chr$(13)
  193. Print #1,"Rainbow 1,0,0,280";Chr$(13)
  194. Print #1,"For I=0 To 279";Chr$(13)
  195. Print #1,"Read A : Rain(1,I)=A";Chr$(13)
  196. Print #1,"Next I : View";Chr$(13)
  197. Print #1,"MAGICCOLOURS:";Chr$(13)
  198. For I=0 To 279 Step 8
  199. Print #1,"data ";Hex$(DNA(I));",";
  200. Print #1,"";Hex$(DNA(I+1));",";
  201. Print #1,"";Hex$(DNA(I+2));",";
  202. Print #1,"";Hex$(DNA(I+3));",";
  203. Print #1,"";Hex$(DNA(I+4));",";
  204. Print #1,"";Hex$(DNA(I+5));",";
  205. Print #1,"";Hex$(DNA(I+6));",";
  206. Print #1,"";Hex$(DNA(I+7));Chr$(13)
  207. Wait Vbl 
  208. Print 
  209. Next I
  210. Print #1,"REM ** storm 92 **";Chr$(13)
  211. Print #1,"End proc";Chr$(13)
  212. Close 1
  213. Hide On 
  214. Gosub TITLE
  215. Return 
  216. '
  217. '
  218. '
  219. NAME:
  220. Wait 7
  221. Clear Key 
  222. Cls 0
  223. Curs Off 
  224. L1=%1111111
  225. L2=%11100
  226. L3=%1000
  227. L4=%0
  228. Set Curs L4,L4,L4,L4,L4,L3,L2,L1
  229. Centre "file exists!?..New filename please"
  230. Print 
  231. Line Input "Filename:";A$
  232. Open Out 1,A$
  233. Curs Off 
  234. Return 
  235. '
  236. '
  237. '
  238. QUIT:
  239. Cls 0
  240. L1=%1111111
  241. L2=%11100
  242. L3=%1000
  243. L4=%0
  244. Set Curs L4,L4,L4,L4,L4,L3,L2,L1
  245. DEF:
  246. Centre "Are you sure (y/n)"
  247. Do 
  248. If Key State(21)=True Then Gosub EAD : 
  249. If Key State(54)=True Then Gosub TITLE : Return 
  250. Loop 
  251. '
  252. '
  253. '
  254. TITLE:
  255. Cls 0
  256. Home 
  257. Centre "STORM RAINBOW EDITOR"
  258. Locate 17,1 : Print "f1=top f2=bottom"
  259. Locate 17,2 : Print "esc=clear f10=save"
  260. Locate 17,3 : Print "arrow up arrow down"
  261. Locate 17,4 : Print "rUP=1 gUP=2 bUP=3"
  262. Locate 17,5 : Print "rDN=4 gDN=5 bDN=6"
  263. Return 
  264. '
  265. '
  266. '
  267. EAD:
  268. Cls 0
  269. Home 
  270. Print : Print : Print : Print : Print : Print : Print : Print : Print 
  271. Print : Print : Print : Print : Print 
  272. Centre "Bye Bye...call again soon!!!" : Print 
  273. Centre "storm 1992" : Print 
  274. Print : Print : Print : Print 
  275. Centre "A NEW BEGINING!.."
  276. For I=256 To 100 Step -1
  277. Screen Display 0,140,40,320,I
  278. Wait 1
  279. Next I
  280. Screen Close 0
  281. End 
  282. End Proc
  283. Procedure STORM
  284. Rem *******************************************
  285. Rem ** produced with storm rainbow editor v1 **
  286. Rem **               storm rainbow!          **
  287. Rem **               copyright 1992          **
  288. Rem *******************************************
  289. Screen Open 0,320,256,32,Lowres
  290. Curs Off : Paper 0 : Pen 12 : Cls 0 : Hide 
  291. 'Break Off 
  292. Unpack 16 To 0
  293. Screen Display 0,140,40,320,150
  294. 'Break Off 
  295. Pen 12 : Paper 0
  296. Restore MAGICCOLOURS
  297. Set Rainbow 1,12,280,"","",""
  298. Rainbow 1,0,0,280
  299. For I=0 To 279
  300. Read A : Rain(1,I)=A
  301. Next I : View 
  302. Centre "THE STORM RAINBOW EDITOR!" : Print 
  303. Centre "-------------------------" : Print 
  304. Centre "WRITTEN IN ONE DAY BY" : Print 
  305. Centre "EJBER OZKAN!" : Print 
  306. Centre "INFO:" : Print : Print 
  307. Centre "USE ARROW KEYS TO MOVE BETWEEN EACH" : Print 
  308. Centre "INDIVDUAL SCANLINE!" : Print 
  309. Centre "USE THE KEYPAD KEYS TO CHANGE COLOURS!" : Print 
  310. Centre "1 - 4 RED - 2 - 5 GREEN - 3 - 6 BLUE" : Print 
  311. Centre "esc clears everything!" : Print 
  312. Centre "help quits" : Print 
  313. Centre "f1 moves to top of screen" : Print 
  314. Centre "f2 moves to bottom of screen" : Print 
  315. Centre "and f10 SAVES in ASCII format" : Print 
  316. Centre "FILENAME IS "+Chr$(34)+"RASTER.ASC"+Chr$(34) : Print 
  317. Centre "HAVE FUN! PRESS MOUSE" : Print 
  318. For I=0 To 31
  319. Colour I,$0
  320. Next I
  321. Colour 1,$777
  322. Shift Up 1,1,8,1
  323. Repeat 
  324. Until Mouse Key=1
  325. Clear Key 
  326. Pop Proc
  327. MAGICCOLOURS:
  328. Data $0,$0,$0,$0,$100,$100,$100,$200
  329. Data $200,$200,$300,$300,$300,$400,$400,$400
  330. Data $500,$500,$500,$500,$600,$600,$600,$700
  331. Data $700,$700,$800,$800,$900,$A00,$A00,$B00
  332. Data $B00,$B00,$C00,$C00,$C00,$D00,$D00,$D00
  333. Data $E00,$E00,$E00,$E10,$E20,$E20,$E30,$E30
  334. Data $E40,$E50,$E50,$E60,$E60,$E60,$E60,$E70
  335. Data $E70,$E70,$E80,$E80,$E80,$E90,$E90,$E90
  336. Data $EA0,$EB0,$EC0,$ED0,$EE0,$EF0,$EF0,$FF0
  337. Data $FF0,$FF0,$FF0,$FF0,$FF0,$FF0,$FF0,$FF0
  338. Data $FF0,$FF0,$FF0,$FF0,$FF0,$FF0,$FF0,$FF0
  339. Data $FF0,$FF0,$FF0,$FF0,$FF0,$FF0,$FF1,$FF2
  340. Data $FF2,$FF3,$FF3,$FF3,$FF4,$FF4,$FF4,$FF5
  341. Data $FF5,$FF5,$FF6,$FF6,$FF7,$FF7,$FF7,$FF8
  342. Data $FF8,$FF9,$FFA,$FFA,$FFB,$FFB,$FFC,$FFC
  343. Data $FFC,$FFD,$FFD,$FFD,$FFE,$FFE,$FFE,$FFF
  344. Data $FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF
  345. Data $FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF
  346. Data $FFF,$FFF,$FFF,$EFF,$EEF,$EEF,$DDF,$DDF
  347. Data $DDF,$CCE,$CCE,$BBD,$BBD,$BBD,$BBD,$BBD
  348. Data $BBD,$AAC,$AAC,$99C,$99C,$88B,$88B,$77A
  349. Data $77A,$77A,$66A,$66A,$559,$559,$559,$449
  350. Data $449,$338,$338,$338,$338,$338,$227,$227
  351. Data $227,$116,$116,$5,$5,$5,$4,$4
  352. Data $3,$3,$3,$2,$2,$2,$2,$1
  353. Data $1,$1,$1,$1,$1,$0,$0,$0
  354. Data $0,$0,$0,$0,$0,$0,$0,$0
  355. Data $101,$101,$101,$201,$302,$302,$403,$503
  356. Data $503,$604,$604,$605,$706,$706,$807,$807
  357. Data $807,$908,$908,$908,$A09,$A09,$A09,$A09
  358. Data $A09,$A09,$908,$808,$708,$607,$607,$506
  359. Data $506,$506,$405,$405,$405,$304,$304,$303
  360. Data $303,$303,$303,$303,$303,$303,$303,$203
  361. Data $203,$203,$102,$102,$102,$1,$1,$1
  362. Data $0,$0,$0,$0,$0,$0,$0,$0
  363. Rem ** storm 92 ** 
  364. End Proc