home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / GRAPHICS / MISC / SPLT244.ZIP / TESTS / T2-11.BAS next >
Encoding:
BASIC Source File  |  1991-07-21  |  286 b   |  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.