home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 4: Phase Four / 17Bit_Phase_Four.iso / files / 3034.dms / 3034.adf / nice_rain.AMOS / nice_rain.amosSourceCode
Encoding:
AMOS Source Code  |  1993-02-25  |  371 b   |  15 lines
  1. Set Rainbow 0,0,276,"","",""
  2. Hide 
  3. Colour Back $0
  4. Cls 0
  5. Rainbow 0,0,310,276
  6. Restore 
  7. For F=0 To 16
  8. Read R
  9. For G=0 To 15 : Rain(0,G+(F*15))=R : Rainbow 0,0,30,268 : Next G
  10. If F>1 Then Rain(0,-2+(F*15))=R
  11. Next F
  12. Clear Key : Wait Key 
  13. For F=256 To 275 : Rain(0,F)=$F : Next F : Rainbow 0,0,30,268
  14. RDATA:
  15. Data $FF,$EF,$DF,$CF,$BF,$AF,$9F,$8F,$7F,$6F,$5F,$4F,$3F,$2F,$1F,$F,$F