home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / various / d11.amos / d11.amosSourceCode
AMOS Source Code  |  1990-10-14  |  2KB  |  72 lines
  1. '
  2. ' Scroll Player v1.1 by Jurgen Valks 
  3. '
  4. '
  5. '--------------------------------------------------------------- 
  6. Shared Z,TEKST$,FONTNR,TLENGTE,T$,TELLER,YPOS,SPEED,PAUZE
  7. Shared S1,S2,SC1
  8. Proc INIT_SCREEN
  9. Proc LAAD_DATA
  10. Proc GO_SCROLL
  11. '--------------------------------------------------------------- 
  12. '
  13. Procedure INIT_SCREEN
  14.  Break Off 
  15.  Get Rom Fonts : Hide On 
  16.  Screen Open 0,320,200,16,Lowres
  17.  Flash Off : Curs Off 
  18. End Proc
  19. '
  20. Procedure INIT_SCROLL_ZONE
  21.  Def Scroll 1,0,238 To 355,249,SPEED,0
  22. End Proc
  23. '
  24. Procedure LAAD_DATA
  25.  Cls : Flash Off : Palette $0,$0,$0
  26.  E=Exist("scroll.txt")
  27.  If E=0
  28.   Screen Open 2,640,100,4,Hires
  29.   Palette $0,$0,$FFF
  30.   Locate 1,1 : Centre "No scroll file on this disk !"
  31.   Locate 1,3 : Centre "Press left mouse button"
  32.   Repeat 
  33.   Until Mouse Click=1 : Screen Close 2 : Proc EINDE
  34.  End If 
  35.  Open In 1,"scroll.txt"
  36.  Line Input #1,TEKST$
  37.  Line Input #1,SPEED
  38.  Line Input #1,FONTNR
  39.  Line Input #1,YPOS
  40.  Line Input #1,S1
  41.  Line Input #1,S2
  42.  Line Input #1,SC1
  43.  Close 1
  44.  Screen Open 1,400,260,4,Lowres : Flash Off : Curs Off 
  45.  Palette S1,S2,SC1 : Proc INIT_SCROLL_ZONE
  46.  Set Font FONTNR
  47. End Proc
  48. '
  49. Procedure GO_SCROLL
  50.  If SPEED=-1 Then PAUZE=10
  51.  If SPEED=-2 Then PAUZE=5
  52.  If SPEED=-3 Then PAUZE=3
  53.  If SPEED=-4 Then PAUZE=2
  54.  TLENGTE=Len(TEKST$)
  55.  Repeat 
  56.   Inc TELLER : If TELLER>TLENGTE Then TELLER=1
  57.   T$=Mid$(TEKST$,TELLER,1)
  58.   Text 345,YPOS,T$
  59.   For J=1 To PAUZE
  60.    Scroll 1 : Multi Wait 
  61.   Next J
  62.  Until Mouse Click=1
  63.  Proc EINDE
  64. End Proc
  65. '
  66. Procedure EINDE
  67.  Fade 3
  68.  Wait 50
  69.  Screen Close 1
  70.  Flash Off 
  71.  Run "menu.AMOS"
  72. End Proc