home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / pd / programming / amos / rainmakerdemo / rainbankexample.amos / rainbankexample.amosSourceCode < prev   
Encoding:
AMOS Source Code  |  1992-09-18  |  428 b   |  16 lines
  1. Procedure _RAIN_BANK
  2. Rem      Created for use with RainMaker 2.0
  3. Rem      by Dan Murrell Jr.
  4.    USE_BANK=12
  5.    BANK_START=Start(USE_BANK)
  6.    NUM_LINES=(Length(USE_BANK))/2-2
  7.    Set Rainbow 0,0,NUM_LINES+1,"","",""
  8.    For COUNTER=0 To NUM_LINES
  9.       HI=Peek(BANK_START+(COUNTER*2)) : LO=Peek(BANK_START+(COUNTER*2)+1)
  10.       Rain(0,COUNTER)=HI*256+LO
  11.    Next COUNTER
  12.    Rainbow 0,0,41,NUM_LINES
  13. End Proc
  14. Cls 0
  15. _RAIN_BANK
  16. Wait Key