home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / ASM / 8087SMPL.ZIP / SPIDEMO.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-01-11  |  896 b   |  27 lines
  1. 5 DEFINT I-N:DEFDBL O-Z:KEY OFF:SCREEN 2: GOTO 70
  2. 10 LOCATE 1,1:PRINT T1$,T2$:INPUT "three scale factors and the number of points";XS,YS,RS,NPTS:T1$=TIME$
  3. 20 CLS
  4. 25 FOR I= 1 TO NPTS:Z=I*RS:X=XS*Z*SIN(Z)+320:Y=Z*YS*COS(Z)+100:IX=X:IY=Y:PSET(IX,IY):NEXT I
  5. 40 T2$=TIME$
  6. 45 LINE (0,0)-(639,200),,B
  7. 50 REM Z$=INKEY$:IF Z$="" THEN 50
  8. 60 RETURN
  9. 70 XS=3:YS=1:GOSUB 100
  10. 75 XS=5:YS=.5:GOSUB 100
  11. 80 XS=8:YS=.1:GOSUB 100
  12. 85 XS=1:YS=1:GOSUB 100
  13. 90 XS=1:YS=3:GOSUB 100
  14. 95 XS=.5:YS=6:GOSUB 100
  15. 97 GOTO 70
  16. 100 RS=1:NPTS=150:GOSUB 20:GOSUB 200
  17. 110 RS=.5:NPTS=300:GOSUB 20:GOSUB 200
  18. 120 RS=.2:NPTS=750:GOSUB 20:GOSUB 200
  19. 130 RS=.1:NPTS=1500:GOSUB 20:GOSUB 200
  20. 140 RS=.05:NPTS=3000:GOSUB 20:GOSUB 200
  21. 150 RS=.01:NPTS=15000:GOSUB 20:GOSUB 200
  22. 160 RETURN
  23. 200 Z#=1.2:A#=2!:B#=3!:FOR I=1 TO 20000:Z#=A#*B#:NEXT:RETURN
  24. GOSUB 200
  25. 150 RS=.01:NPTS=15000:GOSUB 20:GOSUB 200
  26. 160 RETURN
  27. 200 Z#=1.2:A