home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 226-250 / apd249 / autoexec.amos / autoexec.amosSourceCode next >
AMOS Source Code  |  1978-08-29  |  821b  |  37 lines
  1. Rem  ************************* 
  2. Rem  *    Janet Jackson's    * 
  3. Rem  *     Rhythm Nation     * 
  4. Rem  *       1814 Demo       * 
  5. Rem  *    Written 22/6/91    * 
  6. Rem  *       By Mark J.      * 
  7. Rem  ************************* 
  8. Rem
  9. Close Editor 
  10. Close Workbench 
  11. Screen Open 1,320,250,16,Lowres
  12. Screen Open 2,320,250,16,Lowres
  13. Screen Hide 2
  14. Hide On : Curs Off 
  15. Load "Samples.Abk"
  16. BEGINNING: Unpack 6 To 1
  17. Clear Key : Wait Key 
  18. Sam Play 15,5,10400
  19. Wait 111
  20. Unpack 7 To 2
  21. Screen Copy 2 To 1
  22. SWITCH=8
  23. For TURN=7 To 12
  24. Sam Play 15,1,10400
  25. Wait 109
  26. Sam Play 15,2,10400
  27. Wait 110
  28. Sam Play 15,3,10400
  29. Wait 111
  30. Sam Play 15,4,10400
  31. If SWITCH<13 Then Wait 79
  32. If SWITCH<13 Then Unpack SWITCH To 2
  33. If SWITCH<13 Then Screen Copy 2 To 1
  34. If SWITCH>12 Then Wait 79 : Unpack 6 To 2 : Screen Copy 2 To 1
  35. SWITCH=SWITCH+1
  36. Next TURN
  37. Goto BEGINNING