home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 551-575 / apd557 / part2.amos / part2.amosSourceCode
AMOS Source Code  |  2000-09-28  |  966b  |  40 lines
  1. Synchro On 
  2. Load "df0:2.s"
  3. Load "df0:2.m"
  4. Load "df0:loading.pic",8
  5. Screen Close 0
  6. Screen Open 0,320,320,32,Lowres
  7. Amal Off : Double Buffer 
  8. Music 1
  9. Flash Off 
  10. Get Sprite Palette 
  11. Cls 0
  12. Bob 1,0,0,2
  13. Bob 2,0,50,2
  14. Bob 3,0,100,2
  15. Bob 4,0,150,2
  16. Bob 5,0,100,3
  17. Hot Spot 3,$12
  18. Hot Spot 4,$12
  19. Channel 0 To Bob 5
  20. A$="J:L X=150;L Y=0;A0,(3,3);M 0,180,60;M 0,-90,60;M 0,90,40;M 0,-50,40;M 0,50,20;M 0,-25,20;M 0,25,10;M 0,-10,10;M 0,10,5;M 0,-5,5;M 0,5,2;M 0,0,10;M 250,0,50"
  21. A$=A$+"L X=150;L Y=0; A0,(4,3);M 0,180,60;M 0,-90,60;M 0,90,40;M 0,-50,40;M 0,50,20;M 0,-25,20;M 0,25,10;M 0,-10,10;M 0,10,5;M 0,-5,5;M 0,5,2;M 0,0,10;M -250,0,50;JJ"
  22. Amal 0,A$
  23. Amal On 0
  24. Do 
  25. For A=1 To 4
  26. If Mouse Key<>0 Then Goto HELLO
  27. If Vumeter(A-1)=0 Then Bob A,0,(A-1)*50,2 Else Bob A,0,(A-1)*50,1
  28. Next A
  29. Wait Vbl 
  30. Loop 
  31. HELLO:
  32. Cls 0
  33. Unpack 8 To 0
  34. Ink 1,0 : A$="TRAILBLAZER" : Get Disc Fonts : Set Font 1 : For A=1 To Len(A$)
  35. Text 30,200,Left$(A$,A)
  36. Wait 5
  37. Next A
  38. Erase 1
  39. Erase 3
  40. Run "df0:part3.amos"