home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 126-150 / apd127 / 1 / 1.amosSourceCode next >
Encoding:
AMOS Source Code  |  1990-08-11  |  5.4 KB  |  355 lines
  1. Screen Open 0,320,250,32,Lowres
  2. Flash Off 
  3. Curs Off 
  4. Hide On 
  5. Cls 0
  6. Unpack 6 To 1
  7. Screen Hide 1
  8. Erase 6
  9. Screen 1
  10. For B=1 To 16
  11.    Get Block B,X1,0,20,220,1
  12.    X1=X1+20
  13. Next B
  14. Y=20
  15. For B=17 To 27
  16.    Get Block B,0,Y,320,20,1
  17.    Y=Y+20
  18. Next B
  19. For B=28 To 35
  20.    Get Block B,X,0,40,40,1
  21.    X=X+40
  22. Next B
  23. X=0
  24. For B=36 To 43
  25.    Get Block B,X,40,40,40,1
  26.    X=X+40
  27. Next B
  28. X=0
  29. For B=44 To 51
  30.    Get Block B,X,80,40,40,1
  31.    X=X+40
  32. Next B
  33. X=0
  34. For B=52 To 59
  35.    Get Block B,X,120,40,40,1
  36.    X=X+40
  37. Next B
  38. X=0
  39. For B=60 To 67
  40.    Get Block B,X,160,40,40,1
  41.    X=X+40
  42. Next B
  43. X=0
  44. For B=68 To 75
  45.    Get Block B,X,200,40,40,1
  46.    X=X+40
  47. Next B
  48. Get Block 76,0,230,20,20
  49. Get Block 77,125,160,35,37,1
  50. Screen 0
  51. Get Palette 1
  52. Music 1
  53. Paper 0
  54. Ink 13
  55. Locate ,12
  56. Centre "Press The Mouse Key To Continue"
  57. Repeat 
  58. Until Mouse Key=1
  59. Cls 31
  60. Fade 3 : Wait 45
  61. Cls 0
  62. Screen To Front 0
  63. Screen 0
  64. Get Palette 1
  65. Do 
  66.    BL=1
  67.    For B=0 To 15
  68.       Put Block BL,B*20,0
  69.       BL=BL+1
  70.       Wait 1
  71.    Next B
  72.    For X=0 To 16
  73.       Cls 0,0,0 To X*20,220
  74.       Wait 1
  75.    Next X
  76.    For B=17 To 27
  77.       Put Block B,,
  78.       Wait 2
  79.    Next B
  80.    For Y=1 To 12
  81.       Cls 0,0,0 To 320,Y*20
  82.       Wait 1
  83.    Next Y
  84.    For B=28 To 75
  85.       Put Block B,,
  86.       Wait 1
  87.    Next B
  88.    For Y=1 To 16
  89.       Cls 0,0,0 To Y*20,Y*15
  90.    Next Y
  91.    B=28
  92.    For BL=1 To 24
  93.       Put Block B,,
  94.       B=B+2
  95.       Wait 1
  96.    Next BL
  97.    B=27
  98.    For BL=1 To 24
  99.       B=B+2
  100.       Put Block B,,
  101.       Wait 1
  102.    Next BL
  103.    For Y=1 To 23
  104.       Cls 0,0,0 To 80,Y*10
  105.    Next Y
  106.    For Y=1 To 23
  107.       Cls 0,0,0 To 160,Y*10
  108.    Next Y
  109.    For Y=1 To 23
  110.       Cls 0,0,0 To 240,Y*10
  111.    Next Y
  112.    For Y=1 To 23
  113.       Cls 0,0,0 To 320,Y*10
  114.    Next Y
  115.    For B=17 To 27
  116.       Put Block B,,
  117.       Wait 1
  118.    Next B
  119.    For B=17 To 27
  120.       Put Block B,,
  121.       Wait 2
  122.    Next B
  123.    For Y=1 To 23
  124.       Cls 0,0,0 To 320,Y*10
  125.       Wait 1
  126.    Next Y
  127.    B=75
  128.    For D=1 To 48
  129.       Put Block B,,
  130.       B=B-1
  131.       Wait 1
  132.    Next D
  133.    Wait 3
  134.    For X=1 To 8
  135.       Cls 0,0,0 To X*40,125
  136.       Wait 2
  137.    Next X
  138.    For X=1 To 8
  139.       Cls 0,0,0 To X*40,220
  140.       Wait 2
  141.    Next X
  142.    For B=1 To 16
  143.       Put Block B,,
  144.       Wait 1
  145.    Next B
  146.    Wait 3
  147.    For X=1 To 16
  148.       Cls 0,0,0 To X*20,60
  149.       Wait 1
  150.    Next X
  151.    For Y=1 To 12
  152.       Cls 0,300,0 To 320,Y*20
  153.       Wait 1
  154.    Next Y
  155.    For X=1 To 16
  156.       Put Block 76,300-X*20,200
  157.       Wait 1
  158.    Next X
  159.    For Y=1 To 9
  160.       Put Block 76,0,220-Y*20
  161.       Wait 1
  162.    Next Y
  163.    For X=1 To 15
  164.       Put Block 76,X*20,60
  165.       Wait 1
  166.    Next X
  167.    For Y=1 To 9
  168.       Put Block 76,280,Y*20
  169.       Wait 1
  170.    Next Y
  171.    For X=1 To 15
  172.       Put Block 76,280-X*20,180
  173.       Wait 1
  174.    Next X
  175.    For Y=1 To 9
  176.       Put Block 76,20,180-Y*20
  177.       Wait 1
  178.    Next Y
  179.    For X=2 To 15
  180.       Put Block 76,X*20,80
  181.       Wait 1
  182.    Next X
  183.    For Y=1 To 11
  184.       Put Block 76,260,Y*20
  185.       Wait 1
  186.    Next Y
  187.    For X=2 To 14
  188.       Put Block 76,280-X*20,160
  189.       Wait 1
  190.    Next X
  191.    For Y=1 To 3
  192.       Put Block 76,40,160-Y*20
  193.       Wait 1
  194.    Next Y
  195.    For X=1 To 15
  196.       Put Block 76,X*20,100
  197.       Wait 1
  198.    Next X
  199.    For Y=1 To 11
  200.       Put Block 76,240,Y*20
  201.       Wait 1
  202.    Next Y
  203.    For X=1 To 14
  204.       Cls 0,50,100 To 50+X*20,200
  205.       Wait 1
  206.    Next X
  207.    B=27
  208.    For A=1 To 10
  209.       Put Block B,,
  210.       B=B-1
  211.       Wait 1
  212.    Next A
  213.    For X=1 To 16
  214.       Cls 0,0,0 To X*20,220
  215.       Wait 1
  216.    Next X
  217.    For B=28 To 75
  218.       Put Block B,,
  219.       Wait 1
  220.    Next B
  221.    For R=1 To 50
  222.       Put Block 77,Rnd(320),Rnd(150)
  223.       Wait 1
  224.    Next R
  225.    XB=-1
  226.    XC=-2
  227.    For X=1 To 161
  228.       Ink 0
  229.       Box 0,0 To XB,270
  230.       Box 320,0 To 320-XC,270
  231.       XB=XB+2
  232.       XC=XC+2
  233.    Next X
  234.    C=16
  235.    B=1
  236.    For A=1 To 8
  237.       Put Block B,,
  238.       Put Block C,,
  239.       Inc B
  240.       Dec C
  241.       Wait 2
  242.    Next A
  243.    Y=35
  244.    YB=0
  245.    For A=1 To 110
  246.       Box 0,0 To 320,Y
  247.       Box 0,0 To 320,220-YB
  248.       Y=Y+2
  249.       YB=YB+2
  250.    Next A
  251.    For B=1 To 50
  252.       Put Block 77,Rnd(320),Rnd(150)
  253.       Wait 1
  254.    Next B
  255.    For X=1 To 320
  256.       Polyline 160,100 To X,0
  257.    Next X
  258.    For Y=1 To 220
  259.       Polyline 160,100 To 320,Y
  260.    Next Y
  261.    For X=1 To 320
  262.       Polyline 160,100 To 320-X,220
  263.    Next X
  264.    For Y=1 To 220
  265.       Polyline 160,100 To 0,220-Y
  266.    Next Y
  267.    B=28
  268.    BC=75
  269.    For A=1 To 24
  270.       Put Block B,,
  271.       Put Block BC,,
  272.       B=B+1
  273.       BC=BC-1
  274.       Wait 2
  275.    Next A
  276.    XA=-1
  277.    For X=1 To 161
  278.       Box 0,0 To XA,220
  279.       XA=XA+2
  280.    Next X
  281.    XA=0
  282.    For X=1 To 161
  283.       Box 0,0 To XA,220
  284.       XA=XA+2
  285.    Next X
  286.    For B=1 To 8
  287.       Put Block B,,
  288.       Wait 2
  289.    Next B
  290.    For B=17 To 27
  291.       Put Block B,,
  292.       Wait 2
  293.    Next B
  294.    For Y=1 To 22
  295.       Cls 0,0,0 To 160,Y*10
  296.    Next Y
  297.    For X=16 To 32
  298.       Cls 0,160,0 To X*10,220
  299.    Next X
  300.    B=17
  301.    For A=1 To 16
  302.       Put Block B-A,,
  303.       Wait 1
  304.    Next A
  305.    For Y=34 To 220
  306.       Ink 0
  307.       Box 0,0 To 80,Y
  308.    Next Y
  309.    For Y=1 To 186
  310.       Ink 0
  311.       Box 80,220 To 160,220-Y
  312.    Next Y
  313.    For Y=34 To 220
  314.       Ink 0
  315.       Box 160,0 To 240,Y
  316.    Next Y
  317.    For Y=1 To 186
  318.       Ink 0
  319.       Box 240,220 To 320,220-Y
  320.    Next Y
  321.    For B=1 To 16
  322.       Put Block B,,Rnd(40)
  323.       Wait 3
  324.    Next B
  325.    For X=1 To 16
  326.       Cls 0,0,0 To X*20,260
  327.       Wait 1
  328.    Next X
  329.    BL=27
  330.    For B=1 To 11
  331.       Put Block BL,,
  332.       Dec BL
  333.       Wait 2
  334.    Next B
  335.    For X=-1 To 320
  336.       Ink 0
  337.       Polyline 0,220 To X,0
  338.    Next X
  339.    For Y=0 To 220
  340.       Ink 0
  341.       Polyline 0,220 To 320,Y
  342.    Next Y
  343.    For B=28 To 75
  344.       Put Block B,,
  345.       Wait 2
  346.    Next B
  347.    XY=-1
  348.    X=0
  349.    For A=1 To 273
  350.       Polyline 0,XY To XY,0
  351.       Polyline 0,544-X To 544-X,0
  352.       XY=XY+2
  353.       X=X+2
  354.    Next A
  355. Loop