home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 401-425 / apd410 / demos / rainbowproc.asc < prev   
Text File  |  1994-01-01  |  2KB  |  54 lines
  1. '
  2. '
  3. '
  4. Procedure STORM
  5. Rem *******************************************
  6. Rem ** produced with storm rainbow editor v1 **
  7. Rem **               storm rainbow!          **
  8. Rem **               copyright 1992          **
  9. Rem *******************************************
  10. Restore MAGICCOLOURS
  11. Set Rainbow 1,0,280,"","",""
  12. Rainbow 1,0,0,280
  13. For I=0 To 279
  14. Read A : Rain(1,I)=A
  15. Next I : View
  16. MAGICCOLOURS:
  17. data $0,$0,$0,$0,$0,$0,$0,$0
  18. data $0,$0,$0,$0,$100,$200,$200,$200
  19. data $200,$200,$200,$200,$200,$200,$200,$300
  20. data $400,$400,$400,$400,$400,$400,$400,$400
  21. data $400,$400,$400,$500,$600,$600,$600,$600
  22. data $600,$600,$600,$600,$700,$700,$700,$700
  23. data $700,$700,$800,$900,$900,$900,$900,$A00
  24. data $A00,$A00,$A00,$A00,$B00,$B00,$B00,$B00
  25. data $B00,$C00,$C00,$C00,$C00,$C00,$C00,$D00
  26. data $D00,$D00,$D00,$D00,$E00,$E00,$E00,$E00
  27. data $E00,$F00,$F00,$F00,$F00,$F00,$F00,$F00
  28. data $F00,$F00,$F00,$F00,$F00,$F00,$F00,$F10
  29. data $F10,$F10,$F20,$F20,$F20,$F20,$F30,$F30
  30. data $F30,$F40,$F50,$F50,$F50,$F60,$F60,$F60
  31. data $F70,$F70,$F70,$F80,$F90,$F90,$F90,$F90
  32. data $F90,$F90,$F90,$F90,$F90,$F90,$FA0,$FA0
  33. data $FA0,$FA0,$FB0,$FB0,$FB0,$FC0,$FC0,$FC0
  34. data $FC0,$FC0,$FC0,$FC0,$FC0,$FC0,$FC0,$FD0
  35. data $FD0,$FD0,$FD0,$FD0,$FD0,$FD0,$FE0,$FE0
  36. data $FE0,$FE0,$FE0,$FF0,$FF0,$FF0,$FF0,$FF0
  37. data $FF0,$FF1,$FF1,$FF1,$FF1,$FF1,$FF1,$FF2
  38. data $FF2,$FF2,$FF2,$FF2,$FF3,$FF3,$FF3,$FF3
  39. data $FF3,$FF4,$FF4,$FF4,$FF4,$FF5,$FF5,$FF5
  40. data $FF5,$FFA,$FFA,$FFA,$FFA,$FFB,$FFB,$FFE
  41. data $FFE,$FCF,$FCF,$FCF,$FAF,$FAF,$FAF,$FAF
  42. data $FAF,$F8F,$F8F,$F8F,$F8F,$F7F,$F5F,$F5F
  43. data $F4F,$F1F,$F1F,$F1F,$F1F,$D0F,$D0F,$C0F
  44. data $C0F,$90F,$80F,$80F,$50F,$40F,$30F,$30F
  45. data $30F,$30F,$20F,$20F,$10F,$10F,$F,$F
  46. data $E,$E,$E,$E,$E,$E,$D,$D
  47. data $D,$C,$C,$C,$C,$A,$A,$A
  48. data $9,$9,$8,$7,$7,$6,$6,$6
  49. data $6,$6,$6,$6,$5,$5,$4,$4
  50. data $4,$3,$3,$3,$3,$3,$3,$3
  51. data $3,$3,$2,$2,$1,$1,$1,$0
  52. REM ** storm 92 **
  53. End proc
  54.