home *** CD-ROM | disk | FTP | other *** search
/ Best Objectech Shareware Selections / UNTITLED.iso / boss / grap / util / 014 / t2-11.bas < prev    next >
BASIC Source File  |  1991-07-21  |  286b  |  12 lines
  1. 10 OPEN "t2-11.plt" FOR OUTPUT AS #1
  2. 20 PRINT #1,"IN;IP4000,3000,5000,4000;"
  3. 30 PRINT #1,"SP1;SC0,1,0,1;"
  4. 40 PI=3.1416
  5. 50 FOR T=0 TO 2*PI + PI/20 STEP PI/20
  6. 60 X=COS(T)
  7. 70 Y=SIN(T)
  8. 80 PRINT #1,USING "&+#.####+#.####&";"PA",X,Y,"PD;"
  9. 90 NEXT T
  10. 100 PRINT #1,"PU;SP0;"
  11. 110 END
  12.