home *** CD-ROM | disk | FTP | other *** search
/ Horror Sensation / HORROR.iso / amiga_only / demos / sickness_simulator / scroll.amos / scroll.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1978-01-17  |  667 b   |  30 lines

  1. Rem                       Copyright(c) MarkeySoft 1991 
  2. Music 1
  3. Cls 0 : Get Sprite Palette 
  4. Double Buffer : Bob Update Off 
  5. Screen Swap 
  6. Rem Music 1
  7. A$=" GREETINGS MUST GO TO WAYNEE OF THE INFAMOUS WAYNEESOFT WHO CREATED THE NOW LEGENDARY SICKNESS SIMULATOR     "
  8. NUM=8 : SH=1 : AX=180 : Degree 
  9. Dim X(AX),Y(AX),V(NUM),C(NUM)
  10. G=0
  11. For T=0 To AX Step SH
  12. X(G)=140+(140*Cos(T))
  13. Y(G)=200-(160*Sin(T))
  14. G=G+1
  15. Next 
  16. For T=0 To NUM
  17. C(T)=0
  18. V(T)=T*20
  19. Next 
  20. XX=0
  21. Repeat 
  22. Bob Clear 
  23. For T=0 To NUM
  24. V(T)=V(T)+1 : If V(T)>AX Then V(T)=0 : C(T)=Asc(Mid$(A$,XX,1))-54 : XX=XX+1
  25. Bob T,X(V(T)),Y(V(T)),C(T)
  26. Next 
  27. If XX>Len(A$) Then XX=0
  28. Bob Draw 
  29. Screen Swap : Wait Vbl 
  30. Until Mouse Key