home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 076-100 / apd077 / mscroll.amos / mscroll.amosSourceCode < prev    next >
AMOS Source Code  |  1990-11-07  |  2KB  |  43 lines
  1. ' Basic Video-Titling Program. For Newsflash 12 by Spadge The Unwilling. 
  2. ' This is a de-cramped version (the original was in just 6 lines and is
  3. ' a fully working demo in the source dir, unpack it with Powerpacker and 
  4. ' run it!). The program allows a basic program to smooth-scroll screens  
  5. ' for uses such as home-video titling etc.. it could be very easily  
  6. ' extended and lots of features added.. to make the early version usable 
  7. ' I made it so you just design your screens with Dpaint and this gives 
  8. ' no limitations. You could of course add full font support and all the
  9. ' works, fades, other scrolls, copper fades/stencils.. thats for YOU to
  10. ' do.. here's the basic routine and an explanation of this very simple 
  11. ' program... 
  12. '
  13. ' Spadge, July 5th 1990. (The original prog took 9mins to write :-)  
  14. '
  15. Hide : Rem MOUSE OFF! 
  16. Cls 0 : Auto View Off : Flash Off : Rem SCREEN CLEAR, VIEW OFF, FLASH OFF
  17. '
  18. Load Iff "pic0",0 : Rem LOAD A -> BLANK <- SCREEN INTO SCREEN 0
  19. Load Iff "pic1",1 : Rem LOAD PICS....
  20. Load Iff "pic2",2
  21. Load Iff "pic3",3
  22. Load Iff "pic4",4 : Rem IT'S USEFUL IF YOU CAN SPACK THEM INTO BANKS AND 
  23. '                       CALL THEM UP WITH "UNPACK" LIKE IN THE DEMO
  24. '
  25. SZ=256 : NS=4 : S=1 : Rem SZ=Height of Pics in Pixels, NS=No.Screens, S=Speed
  26. '
  27. Dim SC(7) : Rem SPACE FOR 7 SCREENS-POSITION DATA
  28. '
  29. For F=0 To 7 : SC(F)=(F*SZ)+24 : Next F : Rem CALCULATE SCREEN POSITIONS 
  30. '
  31. For F=1 To NS
  32. Screen Display F,,SC(F),, : Rem DISPLAY SCREEN AT POSITION 
  33. Next F
  34. '
  35. Auto View On : Bell : Wait Key : Rem ALL READY, SWITCH DISPLAY ON 
  36. '
  37. For F=1 To 3000 : For N=1 To NS
  38. Screen Display N,,SC(N),, : SC(N)=SC(N)-S : Rem DISPLAY SCREENS & MOVE THEM
  39. Next N : Wait Vbl 
  40. '
  41. If Inkey$<>"" Then Bell : Wait Key : Rem IF A KEY IS PRESSED, WAIT AGAIN  
  42. '
  43. Next F : Bell : Wait Key : Rem LOOP ROUND AGAIN OR WAIT IF FINISHED