home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Amos / AmosCRAFT2Turbo.DMS / in.adf / demos / general / BlitLeft_Wobble.AMOS / BlitLeft_Wobble.amosSourceCode
Encoding:
AMOS Source Code  |  1994-01-29  |  741 b   |  43 lines
  1. Screen Open 0,320,200,4,Lowres
  2. Curs Off 
  3. Cls 0
  4. Y=0
  5. For I=1 To 24
  6.    Text 10,Y,"!AMOS!AMOS!AMOS!AMOS!AMOS!AMOS!AMOS!"
  7.    Add Y,8
  8. Next 
  9. AANTAL=48
  10. SPATIE=2
  11. Dim SCHUIF(AANTAL)
  12. Global SCHUIF(),AANTAL,SPATIE
  13. For I=1 To AANTAL
  14.    Read SCHUIF(I)
  15. Next 
  16. Data -1,-1,-1,-1,-1,-1
  17. Data -1,-1,-1,-1,-1,0
  18. Data 1,1,1,1,1,1
  19. Data 1,1,1,1,1,0
  20. Data -1,-1,-1,-1,-1,-1
  21. Data -1,-1,-1,-1,-1,0
  22. Data 1,1,1,1,1,1
  23. Data 1,1,1,1,1,0
  24. '
  25. Repeat 
  26. WOBBLE
  27. Until Extension_12_0392 
  28. '
  29. Procedure WOBBLE
  30.    Y=50
  31.    For I=1 To AANTAL
  32.       SCHUIF_W=SCHUIF(I)
  33.       If SCHUIF_W<>0
  34.           Extension_12_0354 0,0,Y To 320,Y+2,SCHUIF_W
  35.       End If 
  36.       Add Y,SPATIE
  37.    Next 
  38.    HULP=SCHUIF(1)
  39.    For I=2 To AANTAL
  40.       SCHUIF(I-1)=SCHUIF(I)
  41.    Next 
  42.    SCHUIF(AANTAL)=HULP
  43. End Proc