home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / subroutines / snowing_message.amos / snowing_message.amosSourceCode < prev    next >
AMOS Source Code  |  2014-06-18  |  2KB  |  86 lines

  1. '****************************************
  2. '*             Snowing Text             *
  3. '*                                      *
  4. '*          By Malcolm Lavery           *
  5. '****************************************
  6. '
  7. Screen Open 0,320,256,16,Lowres
  8. Palette $0,$FFF
  9. Cls 0
  10. Screen Open 1,320,256,16,Lowres
  11. Cls 0
  12. Palette $0,$FFF
  13. Double Buffer 
  14. Synchro Off 
  15. POS=0
  16. Global B,A$,TEX$,POS
  17. Do 
  18.    
  19.    IN
  20.    Synchro 
  21.    Wait Vbl 
  22. Loop 
  23. Procedure IN
  24.    Screen 0
  25.    Cls 0
  26.    TEX$="    ITS SNOWING TEXT JUST FOR YOU    "
  27.    TEX$=TEX$+"SO PUT ON YOUR WELLIES AND COME OUT  "
  28.    TEX$=TEX$+"NOT VERY EXCITING THIS METHOD IS IT  "
  29.    TEX$=TEX$+"  BUT IT LOOKS BETTER OVER IFFY'S    "
  30.    TEX$=TEX$+"         BYE BYEEEEEE                "
  31.    '************************
  32.    TE$=Mid$(TEX$,POS,37)
  33.    Gr Writing 0
  34.    Ink 1,0
  35.    Text 10,10,TE$
  36.    '************************
  37.    B=1
  38.    For X=10 To 300 Step 8
  39.       Get Bob B,X,0 To X+7,18
  40.       Add B,1
  41.    Next X
  42.    Add POS,37
  43.  
  44.    If POS=Len(TEX$)
  45.       POS=0
  46.    End If 
  47.    Screen 1
  48.    
  49.    B=1
  50.    Y=-500
  51.    I=1
  52.    For X=10 To 300 Step 8
  53.       Bob B,X,Y,B
  54.       Add B,1
  55.    Next X
  56.    Dim CHECK(38)
  57.    Repeat 
  58.       R=1+Rnd(36)
  59.       If CHECK(R)=0
  60.          Channel R To Bob R
  61.          A$="Move 0,740,50;Move 0,-10,5;Move 0,10,5;"
  62.          Amal R,A$
  63.          Amal On R
  64.          Synchro 
  65.          CHECK(R)=1
  66.          Add COUNT,1
  67.          Add I,1
  68.       End If 
  69.    Until COUNT=37
  70.    For TT=1 To 100
  71.       Synchro 
  72.       Wait Vbl 
  73.    Next TT
  74.    For R=1 To 37
  75.       Channel R To Bob R
  76.       A$="Move 0,20,5;"
  77.       Amal R,A$
  78.       Amal On R
  79.       Synchro 
  80.       Wait Vbl 
  81.    Next R
  82.    For TT=1 To 50
  83.       Synchro 
  84.       Wait Vbl 
  85.    Next TT
  86. End Proc