home *** CD-ROM | disk | FTP | other *** search
/ Best Objectech Shareware Selections / UNTITLED.iso / boss / grap / util / 014 / t3-14.bas < prev    next >
BASIC Source File  |  1991-07-21  |  411b  |  16 lines
  1. 10 OPEN "T3-14.PLT" FOR OUTPUT AS #1
  2. 20 PRINT #1,"IN;SP1;IP3650,2325,6650,5325;"
  3. 30 PRINT #1,"SC-1000,1000,-1000,1000;"
  4. 40 PRINT #1,"PA-800,800;"
  5. 50 GOSUB 130
  6. 60 PRINT #1,"PA200,800;"
  7. 70 GOSUB 130
  8. 80 PRINT #1,"PA-800,-200;"
  9. 90 GOSUB 130
  10. 100 PRINT #1,"PA200,-200;"
  11. 110 GOSUB 130
  12. 120 END
  13. 130 PRINT #1,"CI50;PR600,0;CI50;PR-300,-300;CI250;"
  14. 140 PRINT #1,"PR-300,-300;CI50;PR600,0;CI50;"
  15. 150 RETURN
  16.