home *** CD-ROM | disk | FTP | other *** search
/ Best Objectech Shareware Selections / UNTITLED.iso / boss / grap / util / 014 / t5-22-1.bas < prev    next >
BASIC Source File  |  1991-07-21  |  349b  |  14 lines
  1. 10 OPEN "T5-22-1.PLT" FOR OUTPUT AS #1
  2. 20 PRINT #1,"IN;SP1;PA1000,1000;"
  3. 30 FOR A=.19 TO .89 STEP .1
  4. 40  PRINT #1,"SI",A,A*1.4
  5. 50  PRINT #1,"UC4,7,99,0,1,-4,0,2,-4,-2,-4,4,0,0,1;"
  6. 60 NEXT A
  7. 70 PRINT #1,"PA1000,1750"
  8. 80 FOR B=.19 TO .89 STEP .1
  9. 90  PRINT #1,"SI",B,B*1.4
  10. 100 PRINT #1,"LBE"+CHR$(3)
  11. 110 NEXT B
  12. 120 PRINT #1,"SP0;"
  13. 130 END
  14.