home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Sauce 'n' Code 3
/
sauce-n-code-03.adf
/
Source_Code
/
Bounder_scroll.asc
< prev
next >
Wrap
Text File
|
1996-01-21
|
752b
|
37 lines
'The font is in bank 5 as a picture
Load "bounder_scroll.abk"
ADVANCE=1 : LETTER=23
Unpack 5 To 1 : Screen Hide 1
Screen Open 0,400,32,8,0 : Screen Display 0,,270,,270+32 : Hide : Flash Off : Get Palette 1 : Cls 0
Def Scroll 1,0,2 To 400,30,-2,0
Double Buffer : Autoback 0
'
SC$="john hardie presents............ arty scroller ......... created in amos basic and deluxe paint four "
SC$=Upper$(SC$)
'
Colour Back $FFF : Make Mask
Do
If LETTER>=28/2-2
W$=Mid$(SC$,ADVANCE,1) : W=Asc(W$)
Paste Bob 360,2,W
Inc ADVANCE : LETTER=0
If ADVANCE>Len(SC$) : ADVANCE=1 : End If
End If
'
Inc LETTER
Scroll 1
Screen Swap
Wait Vbl
Screen Copy Physic To Logic
Exit If Inkey$>""
Loop