home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AMOS PD CD
/
amospdcd.iso
/
sourcecode
/
subroutines
/
lazer_text.amos
/
lazer_text.amosSourceCode
Wrap
AMOS Source Code
|
2014-06-18
|
1KB
|
62 lines
'*********************************************
'* *
'* LAZER TEXT *
'* ---------- *
'* *
'* By M.Lavery. *
'* *
'*********************************************
'
'*********************************************
'* Open dual screens and define scroll zones *
'*********************************************
'
Screen Open 1,320,20,2,Lowres
Palette $0,$F00
Cls 0
Flash Off
Def Scroll 1,0,0 To 320,15,0,1
Set Rainbow 1,0,4000,"(1,1,10)(1,-1,10)","",""
Rainbow 1,0,247,20
Screen Open 0,320,20,2,Lowres
Cls 0
Flash Off
Palette $0,$555
Def Scroll 2,0,0 To 320,15,0,-1
Screen Display 0,120,250,,
Screen Display 1,120,250,,
Wait Vbl
Dual Playfield 1,0
'
LEV=1
'*************
'* Main Loop *
'*************
'
PLACETEXT["LOADIN LEVEL"+Str$(LEV),1]
Procedure PLACETEXT[TEX$,SPEED]
Screen 1
Text 180-Len(TEX$)/2*9,10,TEX$
Repeat
Screen 0
Scroll 1
Screen 1
Scroll 2
'
'******************************
'* Copy front top to back top *
'******************************
'
Screen Copy 1,0,0,550,1 To 0,0,0
'
'************************************
'* Copy back bottom to front bottom *
'************************************
'
Screen Copy 0,0,14,550,15 To 1,0,14
'
Wait Vbl
Wait SPEED
Until Inkey$<>""
End Proc