home *** CD-ROM | disk | FTP | other *** search
/ Super Net 1 / SUPERNET_1.iso / PC / OTROS / EXTRAS / TEKTEL / SRC.ZIP / TEKTEL.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-02-16  |  304 b   |  20 lines
  1. Option Explicit
  2. Dim CurrX, CurrY As Integer
  3.  
  4. Sub DrawTo (x, y)
  5.   frmMain!picScrn.Line (CurrX, 768 - CurrY)-(x, 768 - y)
  6.   frmMain!picScrn.PSet Step(0, 0)
  7.   CurrX = x
  8.   CurrY = y
  9. End Sub
  10.  
  11. Sub MoveTo (x, y)
  12.   CurrX = x
  13.   CurrY = y
  14. End Sub
  15.  
  16. Sub TekClear ()
  17.   frmMain!picScrn.Cls
  18. End Sub
  19.  
  20.