home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 126-150 / apd127 / 6 / 6.amosSourceCode next >
AMOS Source Code  |  1990-08-11  |  2KB  |  89 lines
  1. Screen Open 0,320,250,32,Lowres
  2. Paper 0 : Hide On : Curs Off : Cls 
  3. Break Off 
  4. SETUP
  5. COUNTDOWN
  6. HEAD_ANIM
  7. '
  8. Procedure SETUP
  9.    Unpack 2 To 3
  10.    Screen Hide 3
  11.    Screen 0
  12.    Curs Off 
  13.    Cls 0
  14.    Flash Off 
  15.    Hide On 
  16.    Screen Copy 3,0,180,320,260 To 0,0,175 : Rem ---- road
  17.    Get Palette 3
  18.    Screen Copy 3,0,125,170,180 To 0,65,0 : Rem ---- countdown word
  19.    Screen Copy 3,0,0,32,57 To 0,110,147 : Rem ---- man standing
  20. End Proc
  21. '
  22. Procedure HEAD_ANIM
  23. Boom 
  24.    Screen Copy 3,0,0,32,57 To 0,110,147
  25.    Wait 4
  26.    Screen Copy 3,40,0,72,57 To 0,110,147
  27.    Wait 4
  28.    Screen Copy 3,80,0,112,57 To 0,110,147
  29.    Wait 4
  30.    Screen Copy 3,120,0,152,57 To 0,110,147
  31.    Wait 4
  32.    Screen Copy 3,160,0,192,57 To 0,110,147
  33.    Wait 4
  34.    Screen Copy 3,200,0,232,57 To 0,110,147
  35.    Wait 4
  36.    Screen Copy 3,242,0,272,56 To 0,112,147
  37.    Wait 4 : Rem ---- all of the first line!!!  
  38.    Screen Copy 3,0,64,32,120 To 0,110,147
  39.    Wait 4
  40.    Screen Copy 3,40,64,72,120 To 0,110,147
  41.    Wait 4
  42.    Screen Copy 3,80,64,112,120 To 0,110,147
  43.    Wait 4
  44.    Screen Copy 3,120,64,152,120 To 0,110,147
  45. End Proc
  46. '
  47. Procedure COUNTDOWN
  48. Wait 80
  49. Ink 0 : Bar 0,0 To 320,100
  50. '
  51. Screen Copy 3,260,120,285,160 To 0,135,5 : Rem'9' 
  52. Bell 
  53. Wait 50
  54. '
  55. Screen Copy 3,236,120,261,160 To 0,135,5 : Rem 8  
  56. Bell 
  57. Wait 50
  58. '
  59. Screen Copy 3,208,120,236,160 To 0,139,5 : Rem 7
  60. Bell 
  61. Wait 50
  62. '
  63. Screen Copy 3,174,120,208,160 To 0,137,5 : Rem 6
  64. Bell 
  65. Wait 50
  66. '
  67. Screen Copy 3,286,60,320,110 To 0,137,1 : Rem 5  
  68. Bell 
  69. Wait 50
  70. '
  71. Screen Copy 3,250,60,285,110 To 0,133,1 : Rem 4  
  72. Bell 
  73. Wait 50
  74. '
  75. Bar 0,0 To 320,100
  76. Screen Copy 3,231,60,252,110 To 0,137,1 : Rem 3
  77. Bell 
  78. Wait 50
  79. '
  80. Screen Copy 3,200,60,224,110 To 0,138,1 : Rem 2
  81. Bell 
  82. Wait 50
  83. '
  84. Screen Copy 3,165,60,190,110 To 0,135,1 : Rem 1
  85. Bell 
  86. Wait 50
  87. '
  88. End Proc
  89. Wait 150