SC$=" THIS DEMO WAS CREATED BY PHOENIX AND THE TERMINATOR - TWO OF THE MEMBERS OF GADGET (GROUP OF AMIGA DUDES WHO HAVE GOT EVERYTHING TOGETHER) "
SC$=SC$+" OK LETS GET ON WITH THE SERIOUS PART OF THIS SCROLLTEXT FIRST OF ALL LETS GET THE GREETINGS LIST OUT OF THE WAY !!! A BIG HELLO TO TEX (NEIL MILLER) AND THE ENTIRE AUSSI AMOS USER GROUP"
SC$=SC$+" ALSO GREETINGS TO ALL THE MEMBERS OF THE NEWLY FORMED GADGET GROUP HERE IN TOOWOOMBA CLICK MOUSE BUTTON"
Rem 18 high!
Data 44,49,63,49,82,49,101,49,120,49,139,49,158,49,177,49,196,49,215,49
Data 234,49,253,49,272,49,291,49
Data 44,69,63,69,82,69,101,69,120,69,139,69,158,69,177,69,196,69,215,69
Data 234,69,253,69
Data 44,89,63,89,82,89,101,89,120,89,139,89,158,89,177,89
Data 44,109,63,109,82,109,101,109,120,109,139,109,158,109,177,109,196,109
Data 215,109
Rem ********* SCROLL TEXT ROUTINE **********
STEXT:
Screen 1
Scroll 1
Add CNT,4
If SCNT=49+3 and CNT=4 Then Gosub DISPPHOENIX : TIME[250] : Fade 10 : Goto STEXT
If SCNT=79+3 and CNT=4 Then Gosub DISPTERMINATOR : TIME[250] : Fade 10 : Goto STEXT
If SCNT=122+3 and CNT=4 Then Gosub DISPGADGET : TIME[250] : Goto STEXT
If CNT>31 Then Gosub NCHAR : CNT=0 : Inc SCNT : If SCNT>Len(SC$) Then SCNT=1
If Mouse Key=1 Then Goto EXIDEMO
Return
NCHAR:
E$=Mid$(SC$,SCNT,1)
E=Instr(SCRL$,E$)
Screen Copy 0,X(E),Y(E),X(E)+17,Y(E)+18 To 1,336,245
