home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 176-200 / apd192 / scroller.amos / scroller.amosSourceCode
AMOS Source Code  |  1990-08-01  |  7KB  |  206 lines
  1. Default 
  2. Load "scrollerpic",10
  3. Load "scrollermusic",3
  4. '
  5. '
  6. F0RBID=Execall(-132)
  7. '
  8. ' Be CAREFUL with that command - it turns off ALL Multitasking,
  9. ' Making your program run slightly smoother. It will also LOCK THE KEYBOARD  
  10. ' and you will be unable to CTRL-C your programs.
  11. '  
  12. ' Before the demos Exits, You must enable multitasking. See Line 201 
  13. '
  14. '
  15. Unpack 10 To 0
  16. Led Off : Music 1
  17. Shift Up 1,8,15,1
  18. Screen Open 1,370,166,2,Lowres : Curs Off : Cls 0
  19. Palette $0,$FFF
  20. Autoback 0
  21. Screen 0
  22. Palette 0,$FFF
  23. Screen 1
  24. Hide 
  25. Set Rainbow 0,0,35,"","",""
  26. HUE=$0
  27. For A=0 To 15 : Rain(0,A)=HUE : HUE=HUE+$1 : Next 
  28. HUE=$F
  29. For A=16 To 31 : Rain(0,A)=HUE : HUE=HUE+$110 : Next 
  30. Rainbow 0,0,185,32
  31. TXT$="Yeah! $another demo by Gaz.....Right Mouse Button To Change Scroll Settings.  If you are looking ï¿½for music$ for your"
  32. TXT$=TXT$+" progra�m$s� $t�h$e�n get one of my AMB Music Disks....On them you will find THE BEST music"
  33. TXT$=TXT$+" hacked from demos, etc...They are ONLY available from the official AMOS PD Library. Disks 1-6 Are currently "
  34. TXT$=TXT$+"available (I'm working on No.7), the piece you are hearing was taken from Disk No.6 and is called 'Beams Of Light'."
  35. TXT$=TXT$+"Press Left Mouse Button to Leave........................."
  36. TXT$=TXT$+"Greetings to Matt, Steve, Sandra (I managed to get hold of a Classical piece of music for you, Its on AMB 6!.....,Where Was I...Oh Yeah,"
  37. TXT$=TXT$+" Greetings also to Arc Angel, Spadge, Sentinel, Wierd Science, Gary Fearn, Nadeem, Curos & Stavros, Pete Hickman, Francois, Mark Cox, Syntex, Len Tucker, Gareth Lancaster, Aaron,"
  38. TXT$=TXT$+" Thanx also to Pat McDonald Of Amiga Format for giving our Fractal Generator a review. One point though -"
  39. TXT$=TXT$+" You said it doesn't support overscan - it Does! (a 352x256 or 704x256 Screen).  "
  40. TXT$=TXT$+"A note about the ï¿½Fractal Generator - The AMOS PD library is the ONLY library"
  41. TXT$=TXT$+" that has the latest version (512k & 1Meg Versions)$, The Other PD libraries only have the 1meg version."
  42. TXT$=TXT$+".�...$�$�$�....                              "
  43. Def Scroll 1,0,0 To 46,166,-1,-5
  44. Def Scroll 2,46,0 To 92,166,-3,10
  45. Def Scroll 3,92,0 To 138,166,-1,-1
  46. Def Scroll 4,138,0 To 184,166,-3,-1
  47. Def Scroll 5,184,0 To 230,166,-2,-1
  48. Def Scroll 6,230,0 To 276,166,-1,-1
  49. Def Scroll 7,276,0 To 322,166,-3,-1
  50. Def Scroll 8,322,0 To 352,166,-2,-1
  51. OFFSET=1
  52. Screen 1
  53. FLAG=1
  54. Repeat 
  55.    LP:
  56.    TMP$=Mid$(TXT$,OFFSET,1)
  57.    If TMP$="�"
  58.       Screen 0
  59.       Shift Off 
  60.       Shift Up 1,8,15,1
  61.       Screen 1
  62.       Add OFFSET,1,1 To Len(TXT$)
  63.       Goto LP
  64.    End If 
  65.    If TMP$="$"
  66.       Screen 0
  67.       Shift Off 
  68.       Shift Down 1,8,15,1
  69.       Screen 1
  70.       Add OFFSET,1,1 To Len(TXT$)
  71.       Goto LP
  72.    End If 
  73.    Locate 0,0 : Print TMP$
  74.    Zoom 1,0,0,8,8 To 1,40*8,18*8,43*8,20*8
  75.    For A=1 To 11
  76.       Scroll 1 : Scroll 2 : Scroll 3 : Scroll 4
  77.       Scroll 5 : Scroll 6 : Scroll 7 : Scroll 8
  78.       Wait Vbl 
  79.       Update : Synchro 
  80.    Next 
  81.    Add OFFSET,1,1 To Len(TXT$)
  82.    If Mouse Key=2
  83.       If FLAG=1
  84.          Screen 1 : Cls 0
  85.          Def Scroll 1,0,0 To 46,166,-2,10
  86.          Def Scroll 2,46,0 To 92,166,-2,-3
  87.          Def Scroll 3,92,0 To 138,166,-2,-2
  88.          Def Scroll 4,138,0 To 184,166,-2,-1
  89.          Def Scroll 5,184,0 To 230,166,-2,
  90.          Def Scroll 6,230,0 To 276,166,-2,
  91.          Def Scroll 7,276,0 To 322,166,-2,
  92.          Def Scroll 8,322,0 To 352,166,-2,
  93.          FLAG=2
  94.          Goto SKIP
  95.       End If 
  96.       If FLAG=2
  97.          Screen 1 : Cls 0
  98.          Def Scroll 1,0,0 To 46,166,-3,2
  99.          Def Scroll 2,46,0 To 92,166,-3,1
  100.          Def Scroll 3,92,0 To 138,166,-1,0
  101.          Def Scroll 4,138,0 To 184,166,-2,-1
  102.          Def Scroll 5,184,0 To 230,166,-2,-2
  103.          Def Scroll 6,230,0 To 276,166,-2,1
  104.          Def Scroll 7,276,0 To 322,166,-2,-1
  105.          Def Scroll 8,322,0 To 352,166,-2,0
  106.          FLAG=3
  107.          Goto SKIP
  108.       End If 
  109.       If FLAG=3
  110.          Screen 1 : Cls 0
  111.          Def Scroll 1,0,0 To 46,166,-2,
  112.          Def Scroll 2,46,0 To 92,166,-2,
  113.          Def Scroll 3,92,0 To 138,166,-2,
  114.          Def Scroll 4,138,0 To 184,166,-2,
  115.          Def Scroll 5,184,0 To 230,166,-2,1
  116.          Def Scroll 6,230,0 To 276,166,-2,-1
  117.          Def Scroll 7,276,0 To 322,166,-2,
  118.          Def Scroll 8,322,0 To 352,166,-2,
  119.          FLAG=4
  120.          Goto SKIP
  121.       End If 
  122.       If FLAG=4
  123.          Screen 1 : Cls 0
  124.          Def Scroll 1,0,0 To 46,166,-2,-20
  125.          Def Scroll 2,46,0 To 92,166,-2,1
  126.          Def Scroll 3,92,0 To 138,166,-2,-1
  127.          Def Scroll 4,138,0 To 184,166,-2,0
  128.          Def Scroll 5,184,0 To 230,166,-2,0
  129.          Def Scroll 6,230,0 To 276,166,-2,0
  130.          Def Scroll 7,276,0 To 322,166,-2,0
  131.          Def Scroll 8,322,0 To 352,166,-3,-1
  132.          FLAG=5
  133.          Goto SKIP
  134.       End If 
  135.       If FLAG=5
  136.          Screen 1 : Cls 0
  137.          Def Scroll 1,0,0 To 46,166,-2,-1
  138.          Def Scroll 2,46,0 To 92,166,-2,1
  139.          Def Scroll 3,92,0 To 138,166,-2,-1
  140.          Def Scroll 4,138,0 To 184,166,-2,1
  141.          Def Scroll 5,184,0 To 230,166,-2,-1
  142.          Def Scroll 6,230,0 To 276,166,-2,1
  143.          Def Scroll 7,276,0 To 322,166,-2,-1
  144.          Def Scroll 8,322,0 To 352,166,-2,0
  145.          FLAG=6
  146.          Goto SKIP
  147.       End If 
  148.       If FLAG=6
  149.          Screen 1 : Cls 0
  150.          Def Scroll 1,0,0 To 46,166,-1,-5
  151.          Def Scroll 2,46,0 To 92,166,-3,10
  152.          Def Scroll 3,92,0 To 138,166,-1,-1
  153.          Def Scroll 4,138,0 To 184,166,-3,-1
  154.          Def Scroll 5,184,0 To 230,166,-2,-1
  155.          Def Scroll 6,230,0 To 276,166,-1,-1
  156.          Def Scroll 7,276,0 To 322,166,-3,-1
  157.          Def Scroll 8,322,0 To 352,166,-2,-1
  158.          FLAG=7
  159.          Goto SKIP
  160.       End If 
  161.       If FLAG=7
  162.          Screen 1 : Cls 0
  163.          Def Scroll 1,0,0 To 46,166,-2,
  164.          Def Scroll 2,46,0 To 92,166,-2,-1
  165.          Def Scroll 3,92,0 To 138,166,-2,
  166.          Def Scroll 4,138,0 To 184,166,-2,-1
  167.          Def Scroll 5,184,0 To 230,166,-2,
  168.          Def Scroll 6,230,0 To 276,166,-2,-1
  169.          Def Scroll 7,276,0 To 322,166,-2,0
  170.          Def Scroll 8,322,0 To 352,166,-2,-1
  171.          FLAG=8
  172.          Goto SKIP
  173.       End If 
  174.       If FLAG=8
  175.          Screen 1 : Cls 0
  176.          Def Scroll 1,0,0 To 46,166,-2,0
  177.          Def Scroll 2,46,0 To 92,166,-2,1
  178.          Def Scroll 3,92,0 To 138,166,-2,-1
  179.          Def Scroll 4,138,0 To 184,166,-2,0
  180.          Def Scroll 5,184,0 To 230,166,-1,0
  181.          Def Scroll 6,230,0 To 276,166,-2,-3
  182.          Def Scroll 7,276,0 To 322,166,-2,-2
  183.          Def Scroll 8,322,0 To 352,166,-2,-1
  184.          FLAG=1
  185.          Goto SKIP
  186.       End If 
  187.       SKIP:
  188.    End If 
  189. Until Mouse Key=1
  190. For A=63 To 0 Step -1
  191.    Mvolume A : Wait Vbl 
  192. Next 
  193. Screen 0
  194. Shift Off : Fade 1 : Wait 15
  195. For A=32 To 0 Step -1 : Rainbow 0,0,185,A : Wait Vbl : Next 
  196. Rainbow Del 1
  197. Screen 1 : Fade 1 : Wait 15 : Screen Close 1
  198. '
  199. '
  200. ' This is the command that restores the multitasking.
  201. '
  202. '
  203. PERMIT=Execall(-138)
  204. '
  205. '
  206. End