home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / various / mirror_scroll.amos / mirror_scroll.amosSourceCode < prev    next >
AMOS Source Code  |  1991-06-13  |  2KB  |  88 lines
  1. '
  2. ' Sensor Mirror Scroll !!!!! 
  3. '
  4. '
  5. Shared T$,TL,TK$,X1,Y1,TT$,NR,YS
  6. Screen Open 0,320,200,16,Lowres
  7. Flash Off : Curs Off 
  8. Palette $0,$0,$FFF
  9. Cls 
  10. Proc SCHERMEN
  11. Proc SCHERM
  12. Proc LD
  13. '
  14. Procedure LD
  15.  Screen 1
  16.  Dim X1(50),Y1(50)
  17.  For A=1 To 50
  18.   Read X1(A),Y1(A)
  19.  Next A
  20.  Data 0,0,16,0,32,0,48,0,64,0,80,0,96,0,112,0,128,0,144,0,160,0,176,0,192,0,208,0,224,0,240,0,256,0,272,0,288,0,304,0
  21.  Data 0,16,16,16,32,16,48,16,64,16,80,16,96,16,112,16,128,16,144,16,160,16,176,16,192,16,208,16,224,16,240,16,256,16,272,16,288,16,304,16
  22.  Data 0,32,16,32,32,32,48,32,64,32,80,32,96,32,112,32,128,32,144,32
  23.  Do 
  24.   P=0
  25.   J=1
  26.   Add TELLER,J : If TELLER>TL Then TELLER=1
  27.   TT$=Mid$(T$,TELLER,1)
  28.   NR=Instr(TK$,TT$)
  29.   Screen Copy 0,X1(NR),Y1(NR),X1(NR)+16,Y1(NR)+16 To 1,350,210
  30.   Get Block 1,350,210,16,16,0
  31.   Vrev Block 1
  32.   Put Block 1,350,227,%111
  33.   Do 
  34.    If Mouse Click=1
  35.     EINDE
  36.    End If 
  37.    Scroll 1
  38.    Wait Vbl 
  39.    P=P+1
  40.    If P>4 Then Goto ERUIT
  41.   Loop 
  42.   ERUIT:
  43.  Loop 
  44. End Proc
  45. Procedure SCHERM
  46.  Auto View Off 
  47.  T$=T$+"yep, een mirror scroll in amos, als de scroll 'bibberd' dan moet"
  48.  T$=T$+" je een een paar keer op een toets drukken. dat knipperen is een"
  49.  T$=T$+" van de vervelendste 'bugs' in amos! see ya soon......"
  50.  TK$="abcdefghijklmnopqrstuvwxyz0123456789.,:;!?()+-='^ "
  51.  TL=Len(T$)
  52.  Randomize Timer
  53.  Update Every 2
  54.  View 
  55. End Proc
  56. Procedure SCHERMEN
  57.  Break Off 
  58.  Auto View Off 
  59.  Unpack 15 To 0
  60.  Screen Open 1,380,Screen Height,Screen Colour,Lowres
  61.  Led Off : Flash Off : Curs Off : Hide On 
  62.  Cls 0
  63.  Get Palette 0 : Palette $0,$0,
  64.  Def Scroll 1,0,210 To 380,243,-3,0
  65.  Screen Display 1,120,50,,
  66.  Screen Open 2,390,130,4,Lowres : Palette $3,$3,$FFF
  67.  Screen Display 2,,41,, : Flash Off : Curs Off : Draw 0,128 To 390,128
  68.  Screen Open 3,390,150,4,Lowres : Palette $3,$3,$FFF
  69.  Screen Display 3,,170,, : Flash Off : Curs Off : Draw 0,0 To 390,0
  70.  Auto View On : Hide On 
  71.  YS2=41
  72.  YS3=170
  73.  For JV=1 To 125
  74.   Dec YS2
  75.   Inc YS3
  76.   Screen Display 2,,YS2,,
  77.   Screen Display 3,,YS3,,
  78.   Wait Vbl 
  79.  Next JV
  80. End Proc
  81. Procedure EINDE
  82.  Erase 15
  83.  Screen Close 1
  84.  Screen Close 2
  85.  Screen Close 3 : Screen 0 : Cls 0
  86.  Dir$="AMOS_COMPACT2:"
  87.  Run "menu.amos"
  88. End Proc