home *** CD-ROM | disk | FTP | other *** search
/ Best Objectech Shareware Selections / UNTITLED.iso / boss / grap / util / 014 / t4-4.bas < prev    next >
BASIC Source File  |  1991-07-21  |  459b  |  19 lines
  1. 10 OPEN "T4-4.PLT" FOR OUTPUT AS #1
  2. 20 PRINT #1,"IN;PA300,279;SP2;PD;TL100;XT;"
  3. 30 FOR I=1 TO 10
  4. 40 PRINT #1,"PR1000,0;XT;"
  5. 50 NEXT I
  6. 60 PRINT #1,"TL;PU;PA300,279;PD;"
  7. 70 GOSUB 1000
  8. 80 PRINT #1,"TL1,0;PU;PA1300,279;PD;"
  9. 90 GOSUB 1000
  10. 100 PRINT #1,"TL0,5;PU;PA2300,279;"
  11. 110 GOSUB 1000
  12. 120 PRINT #1,"PA300,7479;TL100;YT;PU;SP0;"
  13. 130 END
  14. 1000 REM SUBROUTINE TO DRAW TICKS
  15. 1010 FOR J=1 TO 9
  16. 1020 PRINT #1,"PR0,720;YT;"
  17. 1030 NEXT J
  18. 1040 RETURN
  19.