home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh0x / sh06a.d64 / welle-r3 (.txt) < prev   
Encoding:
Commodore BASIC  |  1995-03-30  |  404 b   |  13 lines
  1. 1 REM       W E L L E
  2. 5 C_=[-1.5,0,0]:M#=@#Z((null)/2):T=2.3:S=.3
  3. 10 A_=[40,0,0]:B_=[0,40,0]:E_=[0,-5,0]
  4. 20 GRAF6:GOSUB30:GRAFA:GOSUB30:GRAFE:GOSUB30:GRAF2:GOSUB30:GOTO300
  5. 30 CLEAR:FORI=-4+UTO4+SSTEPS
  6. 40 FORJ=-2TO1+SSTEPS:Z=(J+T)^2/30
  7. 49 ZA=Z*COS(I)+I:ZB=Z*SIN(I)+J+S
  8. 50 Z_=ZA*A_+ZB*B_+E_
  9. 100 FORK=0TO3:V_=C_:C_=C_*M#:LINEZ_+V_,Z_+C_:NEXT:NEXT:NEXT:U=U+S/4:RETURN
  10. 300 GOSUB311:GRAF2:GOSUB310:GRAF6:GOSUB310:GRAFA:GOSUB310:GRAFE:GOTO300
  11. 310 FORI=0TO26:NEXT:RETURN
  12. 311 FORI=0TO22:NEXT:RETURN
  13.