home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / DEMOS / MEGADEMO / PASSIONP.ARJ / PASSIONP.MSA / BOTH / Y_MOV.LST < prev    next >
File List  |  1997-03-05  |  380b  |  21 lines
  1. a$=SPACE$(16000)
  2. adr%=VARPTR(a$)
  3. FOR comp%=1 TO 32
  4.   y%=100+(150/((comp%)))
  5.   DPOKE adr%,y%
  6.   adr%=adr%+2
  7.   PSET comp%,y%,3
  8. NEXT comp%
  9. FOR comp%=33 TO 268
  10.   DPOKE adr%,100
  11.   adr%=adr%+2
  12.   PSET comp%,y%,3
  13. NEXT comp%
  14. FOR comp%=269 TO 300
  15.   y%=109-(150/((301-comp%)))
  16.   DPOKE adr%,y%
  17.   adr%=adr%+2
  18.   PSET comp%,y%,3
  19. NEXT comp%
  20. BSAVE "d:\z_mov.xxx",VARPTR(a$),600
  21.