home *** CD-ROM | disk | FTP | other *** search
/ Horror Sensation / HORROR.iso / amiga_only / demos / sickness_simulator / scroll.bak / scroll.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1978-01-18  |  611 b   |  29 lines
  1. Music 1
  2. Cls 0 : Get Sprite Palette 
  3. Double Buffer : Bob Update Off 
  4. Screen Swap 
  5. Rem Music 1
  6. A$=" GREETINGS MUST GO TO WAYNEE OF THE INFAMOUS WAYNEESOFT WHO CREATED THE NOW LEGENDARY SICKNESS SIMULATOR     "
  7. NUM=8 : SH=1 : AX=180 : Degree 
  8. Dim X(AX),Y(AX),V(NUM),C(NUM)
  9. G=0
  10. For T=0 To AX Step SH
  11. X(G)=140+(140*Cos(T))
  12. Y(G)=200-(160*Sin(T))
  13. G=G+1
  14. Next 
  15. For T=0 To NUM
  16. C(T)=0
  17. V(T)=T*20
  18. Next 
  19. XX=0
  20. Repeat 
  21. Bob Clear 
  22. For T=0 To NUM
  23. V(T)=V(T)+1 : If V(T)>AX Then V(T)=0 : C(T)=Asc(Mid$(A$,XX,1))-54 : XX=XX+1
  24. Bob T,X(V(T)),Y(V(T)),C(T)
  25. Next 
  26. If XX>Len(A$) Then XX=0
  27. Bob Draw 
  28. Screen Swap : Wait Vbl 
  29. Until Mouse Key