home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 226-250 / apd244 / progs / demo.amos / demo.amosSourceCode < prev   
Encoding:
AMOS Source Code  |  1990-12-29  |  893 b   |  55 lines
  1. Screen Open 0,320,200,8,Lowres
  2. Flash Off 
  3. Curs Off : Hide 
  4. Cls 0 : Music 1 : Tempo 19
  5. THERAIN:
  6. I=1
  7. Timer=0
  8. Do 
  9. Palette $0,$4,$6,$8,$A,$C,$E,$5F
  10. Y=Rnd(190) : X=Rnd(310)+10
  11. I=I+1
  12. Ink I,I
  13. Draw X,Y To X-10,Y+10
  14. If I=7 Then I=1
  15. If Timer>2000 Then Fade 3 : Wait 45 : Goto MARBLE
  16. Loop 
  17. MARBLE:
  18. I=1
  19. Timer=0
  20. Cls 0
  21. Do 
  22. Palette $0,$222,$444,$666,$888,$999,$BBB,$EEE
  23. Y=Rnd(190) : X=Rnd(310)+10
  24. I=I+1
  25. Ink I,I
  26. Draw X,Y To X-10,Y+10
  27. If I=7 Then I=1
  28. If Timer>2000 Then Fade 3 : Wait 45 : Goto WIERD
  29. Loop 
  30. WIERD:
  31. Cls 0
  32. I=1
  33. Timer=0
  34. Do 
  35. Palette $0,$954,$5F5,$32B,$C2A,$4A1,$4E2,$B5F
  36. Y=Rnd(190) : X=Rnd(310)+10
  37. I=I+1
  38. Ink I,I
  39. Draw X,Y To X-10,Y+10
  40. If I=7 Then I=1
  41. If Timer>2000 Then Fade 3 : Wait 45 : Goto LAND
  42. Loop 
  43. LAND:
  44. I=1
  45. Timer=0
  46. Cls 0
  47. Do 
  48. Palette $0,$40,$60,$80,$A0,$C0,$E0,$53
  49. Y=Rnd(190) : X=Rnd(310)+10
  50. I=I+1
  51. Ink I,I
  52. Draw X,Y To X-10,Y+10
  53. If I=7 Then I=1
  54. If Timer>2000 Then Fade 3 : Wait 45 : Direct 
  55. Loop