home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 326-350 / apd340 / partfour / partfour.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1991-10-22  |  1.3 KB  |  57 lines
  1. Screen Open 0,320,200,16,Lowres
  2. Set Rainbow 0,15,64,"(3,3,1)","(1,1,8)","(2,2,9)"
  3. Cls 15 : Load "titmus.ABK"
  4. A=0
  5. B=0
  6. Music 1
  7. Tempo 10
  8. For T=0 To 30
  9. Bob 0,T*10,150,Rnd(7)+1
  10. Wait Vbl 
  11. Put Bob 0
  12. Next T
  13. Get Sprite Palette 
  14. Bob 0,150,95,20
  15. Wait Vbl 
  16. Put Bob 0
  17. Bob Off 0
  18. Bob 8,166,98,1
  19. Channel 0 To Bob 8
  20. Amal 0,"A0,(1,30)(7,30)(1,30)(8,30)"
  21. Bob 9,1,1,19
  22. Channel 1 To Bob 9
  23. Amreg(23)=166 : Amreg(24)=94
  24. Amal 1,"MRX-8-X,RY-20-Y,100"
  25. Amal On 0 : Amal On 1
  26. Wait 400
  27. Tempo 20
  28. Restore 100
  29. MESSAGECOUNT=0
  30. Do 
  31. Wait Vbl 
  32. Rainbow 0,64,1,255
  33. Rain(0,A)=B
  34. Inc A : B=B+10
  35. If A>63 Then A=0
  36. If B>4095 Then LETB=0
  37. Inc MESSAGECOUNT
  38. If MESSAGECOUNT=300
  39. MESSAGECOUNT=0
  40. Read MESS$
  41. Locate 0,20
  42. Pen 15
  43. Paper 0
  44. Print "                                                                 "
  45. Locate 0,20
  46. Centre MESS$
  47. If MESS$="O.K."
  48. Restore 100
  49. End If 
  50. End If 
  51. If Fire(1)=-1 Then Run "AUTOEXEC.AMOS"
  52. Loop 
  53. 100 Data "congratulations","you have completed KARATE WORM","produced using AMOS"
  54. Data "press fire to restart","or the switch on your","power supply unit","if your sick of it"
  55. Data "i'd like to take this opportunity","to mention a few names","steve woolhead","dav lodge","'jaffer'jeffray"
  56. Data "thanks to nige raper","for morale support","and to steve pattison","for nothing at all"
  57. Data "did you know","KARATE WORM'S even tougher","than those green people","that have had a lot of recent publicity","O.K."