home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 601-625 / apd602 / demo_stars.amos / demo_stars.amosSourceCode < prev    next >
AMOS Source Code  |  1993-02-25  |  3KB  |  134 lines
  1. 'ripped from a game on the Amos compiler disk
  2. MEN
  3. Procedure MEN
  4. Hide 
  5.    Screen Open 0,320,240,4,L
  6.    Flash Off 
  7.    Palette 0,0,0,0
  8.    Screen Open 1,320,800,2,L
  9.    Flash Off 
  10.    Palette 0,0,0,0
  11.    Screen Display 0,128,80+NTS,320,170
  12.    Wait Vbl 
  13.    Dual Playfield 0,1
  14.    Screen 0
  15.    Cls 0
  16.    Cls 3,0,0 To 320,1
  17.    Cls 3,0,169 To 320,170
  18.    Fade 3,$4,$8AC,$468,$246,,,,,,$FFF
  19.    Screen 1
  20.    Cls 0
  21.    Gosub SCRT
  22.    Screen 1
  23.    Double Buffer 
  24.    Autoback 0
  25.    Do 
  26.       ADRS=Logbase(0)
  27.       Rem 1er plan  d'etoiles
  28.       Copy ADR1,ADR1+4 To ADRS+ADR8
  29.       Copy ADR1,ADR1+4 To ADRS+ADR8+292
  30.       Copy ADR1,ADR1+4 To ADRS+ADR8+1984
  31.       Copy ADR1,ADR1+4 To ADRS+ADR8+900
  32.       Copy ADR1,ADR1+4 To ADRS+ADR8+1528
  33.       Copy ADR1,ADR1+4 To ADRS+ADR8+4654
  34.       Copy ADR1,ADR1+4 To ADRS+ADR8+5246
  35.       Copy ADR1,ADR1+4 To ADRS+ADR8+3588
  36.       Copy ADR1,ADR1+4 To ADRS+ADR8+943
  37.       Copy ADR1,ADR1+4 To ADRS+ADR8+1943
  38.       Copy ADR1,ADR1+4 To ADRS+ADR8+2443
  39.       Copy ADR1,ADR1+4 To ADRS+ADR8+3643
  40.       Rem 2 eme plan  d'etoiles
  41.       Copy ADR11,ADR11+4 To ADRS+ADR81
  42.       Copy ADR11,ADR11+4 To ADRS+ADR81+342
  43.       Copy ADR11,ADR11+4 To ADRS+ADR81+3154
  44.       Copy ADR11,ADR11+4 To ADRS+ADR81+1328
  45.       Copy ADR11,ADR11+4 To ADRS+ADR81+3844
  46.       Copy ADR11,ADR11+4 To ADRS+ADR81+5254
  47.       Copy ADR11,ADR11+4 To ADRS+ADR81+5588
  48.       Copy ADR11,ADR11+4 To ADRS+ADR81+4852
  49.       Copy ADR11,ADR11+4 To ADRS+ADR81+1652
  50.       Copy ADR11,ADR11+4 To ADRS+ADR81+204
  51.       Copy ADR11,ADR11+4 To ADRS+ADR81+5204
  52.       Rem 3 eme plan  d'etoiles
  53.       Copy ADR12,ADR12+4 To ADRS+ADR82
  54.       Copy ADR12,ADR12+4 To ADRS+ADR82+262
  55.       Copy ADR12,ADR12+4 To ADRS+ADR82+914
  56.       Copy ADR12,ADR12+4 To ADRS+ADR82+2958
  57.       Copy ADR12,ADR12+4 To ADRS+ADR82+3564
  58.       Copy ADR12,ADR12+4 To ADRS+ADR82+5064
  59.       Copy ADR12,ADR12+4 To ADRS+ADR82+3268
  60.       Copy ADR12,ADR12+4 To ADRS+ADR82+1648
  61.       Copy ADR12,ADR12+4 To ADRS+ADR82+504
  62.       Copy ADR12,ADR12+4 To ADRS+ADR82+4123
  63.       Copy ADR12,ADR12+4 To ADRS+ADR82+1123
  64.       Copy ADR12,ADR12+4 To ADRS+ADR82+2623
  65.       Copy ADR12,ADR12+4 To ADRS+ADR82+623
  66.       Copy ADR12,ADR12+4 To ADRS+ADR82+3523
  67.       Screen Swap 
  68.       Wait Vbl 
  69.       Add ADR11,8 : Add ADR1,4 : Add ADR12,16
  70.       If ADR1=ADR2
  71.          Add ADR8,2
  72.          ADR1=ADR3
  73.       End If 
  74.       If ADR11=ADR21
  75.          Add ADR81,2
  76.          ADR11=ADR3
  77.       End If 
  78.       If ADR12=ADR22
  79.          Add ADR82,2
  80.          ADR12=ADR3
  81.       End If 
  82.       A$=Inkey$
  83.       If A$="1"
  84.          GO=1
  85.          Exit 
  86.       End If 
  87.       If A$="&"
  88.          GO=1
  89.          Exit 
  90.       End If 
  91.       If A$="2"
  92.          GO=2
  93.          Exit 
  94.       End If 
  95.       If A$="�"
  96.          GO=2
  97.          Exit 
  98.       End If 
  99.    Loop 
  100.    Goto FDD
  101.    SCRT:
  102.    Screen Open 4,960,45,2,L
  103.    Screen Hide 4
  104.    Cls 0
  105.    N3=16
  106.    N1=16
  107.    For N=1 To 20
  108.       Plot N3,0,1
  109.       N1=N1+32
  110.       Add N2,1
  111.       N3=N1+N2
  112.    Next N
  113.    ADR1=Logbase(0)
  114.    Screen 1
  115.    ADRS=Phybase(0)+100
  116.    ADR8=400
  117.    ADR2=ADR1+(4*16)
  118.    ADR3=ADR1
  119.    ADR11=ADR1
  120.    ADR81=ADR8
  121.    ADR21=ADR2
  122.    ADR31=ADR1
  123.    ADR12=ADR1
  124.    ADR82=ADR8
  125.    ADR22=ADR2
  126.    ADR32=ADR1
  127.    ADR13=ADR1
  128.    ADR83=ADR8
  129.    ADR23=ADR2
  130.    ADR33=ADR1
  131.    Colour 1,$FFF
  132.    Return 
  133.    FDD:
  134. End Proc