home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AMOS PD CD
/
amospdcd.iso
/
sourcecode
/
subroutines
/
snowing_message.amos
/
snowing_message.amosSourceCode
< prev
next >
Wrap
AMOS Source Code
|
2014-06-18
|
2KB
|
86 lines
'****************************************
'* Snowing Text *
'* *
'* By Malcolm Lavery *
'****************************************
'
Screen Open 0,320,256,16,Lowres
Palette $0,$FFF
Cls 0
Screen Open 1,320,256,16,Lowres
Cls 0
Palette $0,$FFF
Double Buffer
Synchro Off
POS=0
Global B,A$,TEX$,POS
Do
IN
Synchro
Wait Vbl
Loop
Procedure IN
Screen 0
Cls 0
TEX$=" ITS SNOWING TEXT JUST FOR YOU "
TEX$=TEX$+"SO PUT ON YOUR WELLIES AND COME OUT "
TEX$=TEX$+"NOT VERY EXCITING THIS METHOD IS IT "
TEX$=TEX$+" BUT IT LOOKS BETTER OVER IFFY'S "
TEX$=TEX$+" BYE BYEEEEEE "
'************************
TE$=Mid$(TEX$,POS,37)
Gr Writing 0
Ink 1,0
Text 10,10,TE$
'************************
B=1
For X=10 To 300 Step 8
Get Bob B,X,0 To X+7,18
Add B,1
Next X
Add POS,37
If POS=Len(TEX$)
POS=0
End If
Screen 1
B=1
Y=-500
I=1
For X=10 To 300 Step 8
Bob B,X,Y,B
Add B,1
Next X
Dim CHECK(38)
Repeat
R=1+Rnd(36)
If CHECK(R)=0
Channel R To Bob R
A$="Move 0,740,50;Move 0,-10,5;Move 0,10,5;"
Amal R,A$
Amal On R
Synchro
CHECK(R)=1
Add COUNT,1
Add I,1
End If
Until COUNT=37
For TT=1 To 100
Synchro
Wait Vbl
Next TT
For R=1 To 37
Channel R To Bob R
A$="Move 0,20,5;"
Amal R,A$
Amal On R
Synchro
Wait Vbl
Next R
For TT=1 To 50
Synchro
Wait Vbl
Next TT
End Proc