home *** CD-ROM | disk | FTP | other *** search
/ Horror Sensation / HORROR.iso / amiga_only / demos / sickness_simulator / autoexec.bak / autoexec.amosSourceCode next >
Encoding:
AMOS Source Code  |  1978-01-18  |  696 b   |  31 lines
  1. Cls 0 : Get Sprite Palette 
  2. Music 1
  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     PRESS LEFT MOUSE KEY TO LOAD THIS FANTASTICALLY AMAZING DEMO    "
  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
  30. Run "sick1.amos"
  31. End