home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 551-575 / apd573 / rainmakerdemo / rainbank.amos / rainbank.amosSourceCode
AMOS Source Code  |  1993-12-02  |  402b  |  13 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