home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 106 / EnigmaAmiga106CD.iso / www / amosfactory / ext / lha / intui.lha / examples / paste_icons.AMOS / paste_icons.amosSourceCode < prev   
Encoding:
AMOS Source Code  |  1996-04-06  |  1.3 KB  |  46 lines
  1. Global X,Y,BLOCK,_WAIT
  2. _TEXT$="scrolling intuition screens in amos is dead easy with d.j.softwares"
  3. _TEXT$=_TEXT$+" intuition extension           visit our home page at http//www."
  4. _TEXT$=_TEXT$+"demon.co.uk/djsoftware                       "
  5. _TEXTLEN=Len(_TEXT$)
  6. Amos To Back 
  7.  Extension_25_02BE $100,0,0,0,0,0,0,0
  8.  Extension_25_0282 0,0,0,960,256,4,0,3,$0
  9.  Extension_25_021E $400,$0,$0,$0,$0,$0,$0,$0,$0
  10.  Extension_25_0070 $800,$1000,$0,$0,$0,,,,
  11.  Extension_25_0006 0,0,0,960,256,100,50,960,256
  12.  Extension_25_0522 2,0
  13. '  
  14. SIZE=32
  15. Repeat 
  16. If _WAIT>0 : Dec _WAIT : Wait Vbl : End If 
  17. Inc X
  18. Inc X1
  19. If X1=SIZE
  20. X1=0
  21. Inc X3
  22. Inc X4
  23. BLOCK1=Asc(Mid$(_TEXT$,X4,X4+1))
  24. BLOCK2=Asc(Mid$(_TEXT$,X4+1,X4+2))
  25. BLOCK3=Asc(Mid$(_TEXT$,X4+2,X4+3))
  26. If BLOCK2=5+96 and BLOCK3=13+96 : _WAIT=800 : End If 
  27. If BLOCK1<>32 and BLOCK1<>46 and BLOCK1<>47
  28. BLOCK1=BLOCK1-96
  29. End If 
  30. If BLOCK1=32 : BLOCK1=44 : End If 
  31. If BLOCK1=46 : BLOCK1=37 : End If 
  32. If BLOCK1=47 : BLOCK1=43 : End If 
  33. '
  34.  Extension_25_04E0(X3*SIZE)+320,100,BLOCK1
  35. If X=>320 : Extension_25_04E0(X3*SIZE)-320,100,BLOCK1 : End If 
  36. End If 
  37.  Extension_25_0578 X,0
  38. If X=640 : X1=0 : X=0 : X3=0 : End If 
  39. If X4=_TEXTLEN : X=0 : X1=0 : X3=0 : X4=0 : End If 
  40. EV= Extension_25_0210 
  41. Until EV=$400
  42.  Extension_25_002C 0
  43.  Extension_25_02A8 0
  44. Amos To Front 
  45. End 
  46. '