home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 501-525 / apd511 / bobscroll.amos / bobscroll.amosSourceCode < prev    next >
AMOS Source Code  |  1990-10-11  |  837b  |  40 lines
  1. SET_UP_SCREEN
  2. SCROL_MAIN[TX$]
  3. Procedure SET_UP_SCREEN
  4.    Cls 0 : Hide On 
  5.    Double Buffer 
  6.    Priority On 
  7. End Proc
  8. Procedure SCROL_MAIN[TX$]
  9.    Shared TX$
  10.    Randomize Timer
  11.    SCROL[TX$]
  12.    BOPA:
  13.       Inc N : If N>11 : N=1 : End If : Inc POS
  14.       LET$="ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789s      "
  15.       If POS>Len(TX$) Then POS=1
  16.          If Mouse Key=1
  17.             End 
  18.          End If 
  19.       E$=Mid$(TX$,POS,1) : E=Instr(LET$,E$)
  20.       Channel N To Bob N : Bob N,340,100,E
  21.       Wait Vbl 
  22.    Gosub MO
  23.       Move On 
  24.          Repeat 
  25.             X1=X Bob(N)
  26.             Wait Vbl 
  27.          Until X1<310
  28.       Wait Vbl 
  29.    Goto BOPA
  30. MO:
  31.    Move X N,"(2,-3,50)L"
  32.    Move Y N,"(1,-1,10)(2,1,10)L"
  33.    Wait Vbl 
  34. Return 
  35. End Proc
  36. Procedure SCROL[TX$]
  37.    Shared TX$
  38.    TX$=" HERE IS A SCROLLY ROUTINE BY ssssssss "
  39.    TX$=TX$+" "
  40. End Proc