home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / demos / myfirstdemo.amos / myfirstdemo.amosSourceCode < prev    next >
AMOS Source Code  |  1991-01-05  |  7KB  |  181 lines
  1. Reserve As Work 15,32000
  2.    Set Tempras 15,32000
  3.    Screen Open 1,320,50,16,Lowres
  4.    Screen Open 3,360,30,2,Lowres
  5.    SCR[1] : SCR[3]
  6.    Unpack 6 To 0
  7.    Unpack 7 To 2
  8.    Screen To Front 1
  9.    Screen To Front 2
  10.    Screen To Front 3
  11.    Screen 1 : Get Sprite Palette 
  12.    Screen 3 : Get Palette 0
  13.    Screen Display 1,126,40,320,40
  14.    Screen Display 2,130,80,320,176
  15.    Screen Display 3,126,256,320,50
  16.    Hide On 
  17.    Channel 1 To Screen Offset 2
  18.    Amal 1,"A:M 0,185,150 ; M 0,-185,150 ; J A"
  19.    Amal On 
  20.    Dim A$(44) : For N=1 To 44 : A$(N)="xdat"+Right$(Str$(N),Len(Str$(N))-1) : Next N
  21.    Dim X(62),Y(62)
  22.    X1=100 : Y1=100
  23.    X2=X1+22 : Y2=Y1
  24.    X3=X1+22 : Y3=Y1+30
  25.    X4=X1 : Y4=Y1+30
  26.    X5=X1+2 : Y5=Y1+2
  27.    X6=X1+6 : Y6=Y1+2
  28.    X7=X1+12 : Y7=Y1+2
  29.    X8=X1+18 : Y8=Y1+2
  30.    V11=0 : V22=0 : V33=0 : V44=0
  31.    X=50 : Y=100
  32.    RES=1 : T=0
  33.    SCNT=1 : CNT=1
  34.    Restore LET : For N=1 To 62 : Read X(N),Y(N) : Next N
  35.    Music 1
  36.    Volume 20
  37.    SCRL$="abcdefghijklmnopqrstuvwxyz'.,;:"+Chr$(34)+"+-/*[]{}><=$#&%^()?!1234567890"
  38.    SC$=SC$+"hi, my name is roger martensson and this is my first demo.     "
  39.    SC$=SC$+"that means that this is also my first scroller text (i hope you can read it)"
  40.    SC$=SC$+"         what more can i say?        i live in the northern part of sweden "
  41.    SC$=SC$+"(in a village called mellansel)         i need graphics,music and ideas.(if you have any please send some to me)"
  42.    SC$=SC$+"     i also want to have some 'amos' contacts around the world (everybody who don't hate amos, write to me)"
  43.    SC$=SC$+"                  greeting time.........    i only have one (1) person to send my greetings to and he is......"
  44.    SC$=SC$+"(ta ta!!)   daniel eriksson (satisfied?)         well, that's all folks.     see ya later!!!!!!!!!!!!!!!!!!!!!!!!  "
  45.    SC$=SC$+" my address is     roger martensson     ravinv. 5      890 42 mellansel      sweden         "
  46.    Def Scroll 1,0,0 To 350,30,-3,0
  47.    Set Rainbow 1,1,24,"","",""
  48.    Restore REGN
  49.    For N=0 To 23
  50.       Read RA
  51.       Rain(1,N)=RA
  52.    Next N
  53.    Rainbow 1,0,256,25
  54.    Repeat 
  55.       Inc T
  56.       If T=50 Then Screen 1 : Bob 1,110,5,1
  57.       If T=100 Then Screen 1 : Bob 1,120,5,2
  58.       If T=150 Then Screen 1 : Bob 1,130,4,3
  59.       If T=200 Then Screen 1 : Bob 1,130,5,4
  60.       If T=250 Then Screen 1 : Bob 1,130,5,5
  61.       If T=300 Then Screen 1 : Bob 1,130,5,4
  62.       If T=350 Then Screen 1 : Bob 1,130,4,3
  63.       If T=400 Then Screen 1 : Bob 1,120,5,2 : T=0
  64.       Gosub MVU
  65.       Gosub STEXT
  66.    Until Mouse Key=1
  67.    Screen 1 : Ink 0 : Draw X5-X,Y5-Y To X5-X,Y5-Y+V1
  68.    Draw X6-X,Y6-Y To X6-X,Y6-Y+V2
  69.    Draw X7-X,Y7-Y To X7-X,Y7-Y+V3
  70.    Draw X8-X,Y8-Y To X8-X,Y8-Y+V4
  71.    Polyline X1-X,Y1-Y To X2-X,Y2-Y To X3-X,Y3-Y To X4-X,Y4-Y To X1-X,Y1-Y
  72.    Screen Close 0 : Screen Close 3 : Screen Close 2
  73.    Screen 1 : Fade 15
  74.    For N=20 To 0 Step -1 : Wait 12 : Volume N : Next N
  75.    Screen Close 1
  76.    Music Off 
  77.    End 
  78. MVU:
  79.    Screen 1
  80.    W1=Vumeter(0)
  81.    W2=Vumeter(1)
  82.    W3=Vumeter(2)
  83.    W4=Vumeter(3)
  84.    If W1>V1 Then V1=W1
  85.    If W2>V2 Then V2=W2
  86.    If W3>V3 Then V3=W3
  87.    If W4>V4 Then V4=W4
  88.    Restore A$(RES)
  89.    Add RES,1,1 To 44
  90.    Read X1,X2,X3,X4,X5,X6,X7,X8
  91.    Ink 0
  92.    Draw X55-X,Y55-Y To X55-X,Y55-Y+V11
  93.    Draw X66-X,Y66-Y To X66-X,Y66-Y+V22
  94.    Draw X77-X,Y77-Y To X77-X,Y77-Y+V33
  95.    Draw X88-X,Y88-Y To X88-X,Y88-Y+V44
  96.    Polyline X11-X,Y11-Y To X22-X,Y22-Y To X33-X,Y33-Y To X44-X,Y44-Y To X11-X,Y11-Y
  97.    Ink 2 : Draw X5-X,Y5-Y To X5-X,Y5-Y+V1
  98.    Ink 3 : Draw X6-X,Y6-Y To X6-X,Y6-Y+V2
  99.    Ink 4 : Draw X7-X,Y7-Y To X7-X,Y7-Y+V3
  100.    Ink 5 : Draw X8-X,Y8-Y To X8-X,Y8-Y+V4
  101.    Ink 1 : Polyline X1-X,Y1-Y To X2-X,Y2-Y To X3-X,Y3-Y To X4-X,Y4-Y To X1-X,Y1-Y
  102.    X11=X1 : Y11=Y1 : X22=X2 : Y22=Y2 : X33=X3 : Y33=Y3 : X44=X4 : Y44=Y4 : X55=X5 : Y55=Y5
  103.    X66=X6 : Y66=Y6 : X77=X7 : Y77=Y7 : X88=X8 : Y88=Y8
  104.    V11=V1 : V22=V2 : V33=V3 : V44=V4
  105.    Dec V1 : If V1<0 Then V1=0
  106.    Dec V2 : If V2<0 Then V2=0
  107.    Dec V3 : If V3<0 Then V3=0
  108.    Dec V4 : If V4<0 Then V4=0
  109.    Return 
  110. STEXT:
  111.    Screen 3
  112.    Scroll 1
  113.    Add CNT,3
  114.    If CNT>25 Then Gosub NCHAR : CNT=0 : Inc SCNT : If SCNT>Len(SC$) Then SCNT=1
  115.    Return 
  116. NCHAR:
  117.    E$=Mid$(SC$,SCNT,1)
  118.    E=Instr(SCRL$,E$)
  119.    Screen Copy 0,X(E),Y(E),X(E)+26,Y(E)+26 To 3,320,0
  120.    Return 
  121. XDAT1: Data 100,122,122,100,102,106,112,118
  122. XDAT2: Data 101,121,121,101,103,107,112,117
  123. XDAT3: Data 102,120,120,102,104,107,112,116
  124. XDAT4: Data 103,119,119,103,105,108,112,115
  125. XDAT5: Data 104,118,118,104,106,108,112,114
  126. XDAT6: Data 105,117,117,105,107,109,112,114
  127. XDAT7: Data 106,116,116,106,108,109,111,113
  128. XDAT8: Data 107,115,115,107,109,109,111,113
  129. XDAT9: Data 108,114,114,108,109,110,111,112
  130. XDAT10: Data 109,113,113,109,110,110,111,112
  131. XDAT11: Data 110,112,112,110,110,110,111,112
  132. XDAT12: Data 111,111,111,111,111,111,111,111
  133. XDAT13: Data 110,112,112,110,112,112,110,110
  134. XDAT14: Data 109,113,113,109,112,112,110,110
  135. XDAT15: Data 108,114,114,108,113,112,110,110
  136. XDAT16: Data 107,115,115,107,113,113,110,109
  137. XDAT17: Data 106,116,116,106,114,113,110,109
  138. XDAT18: Data 105,117,117,105,115,113,109,108
  139. XDAT19: Data 104,118,118,104,116,114,109,108
  140. XDAT20: Data 103,119,119,103,117,114,109,107
  141. XDAT21: Data 102,120,120,102,118,115,109,106
  142. XDAT22: Data 101,121,121,101,119,115,109,105
  143. XDAT23: Data 100,122,122,100,120,116,109,104
  144. XDAT24: Data 101,121,121,101,119,115,109,105
  145. XDAT25: Data 102,120,120,102,118,115,109,106
  146. XDAT26: Data 103,119,119,103,117,114,109,107
  147. XDAT27: Data 104,118,118,104,116,114,109,108
  148. XDAT28: Data 105,117,117,105,115,113,109,108
  149. XDAT29: Data 106,116,116,106,114,113,110,109
  150. XDAT30: Data 107,115,115,107,113,113,110,109
  151. XDAT31: Data 108,114,114,108,113,112,110,110
  152. XDAT32: Data 109,113,113,109,112,112,110,110
  153. XDAT33: Data 110,112,112,110,112,112,110,110
  154. XDAT34: Data 111,111,111,111,111,111,111,111
  155. XDAT35: Data 110,112,112,110,110,110,111,112
  156. XDAT36: Data 109,113,113,109,110,110,111,112
  157. XDAT37: Data 108,114,114,108,109,110,111,112
  158. XDAT38: Data 107,115,115,107,109,109,111,113
  159. XDAT39: Data 106,116,116,106,108,109,111,113
  160. XDAT40: Data 105,117,117,105,107,109,112,114
  161. XDAT41: Data 104,118,118,104,106,108,112,114
  162. XDAT42: Data 103,119,119,103,105,108,112,115
  163. XDAT43: Data 102,120,120,102,104,107,112,116
  164. XDAT44: Data 101,121,121,101,103,107,112,117
  165. Rem* x11,x22,x33,x44,x55,x66,x77,x88 
  166. LET: Data 16,27,16,55,16,83,16,111,16,139,16,167,16,195
  167.       Data 45,27,45,55,45,83,45,111,45,139,45,167,45,195
  168.       Data 74,27,74,55,74,83,74,111,74,139,74,167,74,195
  169.       Data 103,27,103,55,103,83,103,111,103,139,103,167,103,195
  170.       Data 137,27,137,55,137,83,137,111,137,139,137,167,137,195
  171.       Data 163,27,163,55,163,83,163,111,163,139,163,167,163,195
  172.       Data 190,27,190,55,190,83,190,111,190,139,190,167,190,195
  173.       Data 219,27,219,55,219,83,219,111,219,139,219,167,219,195
  174.       Data 248,27,248,55,248,83,248,111,248,139,248,167
  175. REGN:
  176.    Data $F,$33F,$555F,$88F,$AAF,$DDF,$FFF,$FCC,$FAA,$F88,$F55,$F33
  177.    Data $F00,$F20,$F50,$F70,$FA0,$FC0,$FF0,$CF0,$9F0,$6F0,$3F0,$F0
  178.    Procedure SCR[N]
  179.       Screen N : Curs Off : Flash Off 
  180.       Paper 0 : Ink 1 : Cls 
  181.    End Proc