			       TI-80 Paint

	This is a small and simple paint program for the TI-80.
It's nothing fancy, but it does have a graphical user interface
(GUI) :) .	


		For those of you not in the know, CLRHOME is not typed out using ALPHA.
	You have to go into PRGM and choose it (PRGM, I/O, 4). This includes all the other
	commands except the stuff in " " .

		In the DISP if you see (X spaces), don't type that out. This is just to 
	tell you how many spaces to have inbetween. X is the amount of spaces. ex:(2 spaces)




	Model: TI-80
	Date: February 23,2001
	Size: 1110
	Creator: [DSM]*Wolf*
	
	E-mail: stk_5m@hotmail.com




		Known bugs:  NO! NONE!







Program:  TICH
Size:  37

:0->@
:IF X=10
:1->@
:IF X<=9
:PRGM_TIMENC





Program:  TICHE
Size:  37

:0->@
:IF X<=11
:1->@
:IF X<=9
:PRGM_TIMENC





Program:  TICLR
Size:  20

:CLRDRAW
:PRGM_TIMEND





Program:  TIERAS
Size:  102

:LBL 0
:INPUT
:PRGM_TICHE
:IF @=1
:GOTO 0
:PT-OFF(X,Y
:PT-OFF(X-1,Y+1
:PT-OFF(X,Y+1
:PT-OFF(X+1,Y+1
:PT-OFF(X-1,Y
:PT-OFF(X+1,Y
:PT-OFF(X-1,Y-1
:PT-OFF(X,Y-1
:PT-OFF(X+1,Y-1
:GOTO 0





Program:  TILINE
Size:  70

:LBL 0
:INPUT
:PRGM_TICH
:IF @=1
:GOTO 0
:X->A
:Y->B
:PT-ON(A,B
:INPUT
:PRGM_TICH
:IF @=1
:GOTO 0
:LINE(A,B,X,Y
:GOTO 0





Program:  TIMENC
Size:  240

:IF X>2:THEN
:IF X<8:THEN
:IF Y>40:THEN
:IF Y<46:THEN
:PRGM_TIPEN
:END
:END
:END
:END
:IF X>2:THEN
:IF X<8:THEN
:IF Y>32:THEN
:IF Y<38:THEN
:PRGM_TILINE
:END
:END
:END
:END
:IF X>2:THEN
:IF X<8:THEN
:IF Y>24:THEN
:IF Y<30:THEN
:PRGM_TIERAS
:END
:END
:END
:END
:IF X>2:THEN
:IF X<8:THEN
:IF Y>16:THEN
:IF Y<22:THEN
:PRGM_TISQR
:END
:END
:END
:END
:IF X>2:THEN
:IF X<8:THEN
:IF Y>8:THEN
:IF Y<14:THEN
:PRGM_TICLR
:END
:END
:END
:END
:1->@





Program:  TIMEND
Size:  359

:VERTICAL 10
:LINE(2,46,8,46
:LINE(8,45,8,40
:LINE(7,40,2,40
:LINE(2,41,2,45
:LINE(4,44,6,42
:PT-ON(5,44
:PT-ON(6,43
:LINE(2,38,8,38
:LINE(8,37,8,32
:LINE(7,32,2,32
:LINE(2,33,2,37
:LINE(4,36,6,34
:LINE(2,30,8,30
:LINE(8,29,8,24
:LINE(7,24,2,24
:LINE(2,25,2,29
:LINE(4,28,6,28
:LINE(4,27,6,27
:LINE(4,26,6,26
:LINE(2,22,8,22
:LINE(8,21,8,16
:LINE(7,16,2,16
:LINE(2,17,2,21
:LINE(4,20,6,20
:LINE(4,18,6,18
:PT-ON(4,19
:PT-ON(6,19
:LINE(2,14,8,14
:LINE(8,13,8,8
:LINE(7,8,2,8
:LINE(2,9,2,13
:LINE(6,12,4,12
:LINE(4,10,6,10
:PT-ON(4,11





Program:  TIPAINT
Size:  111

:CLRHOME
:DISP "","","(2 spaces)TI-80 PAINT","","",""," VERSION 1.00.0"
:PAUSE
:1->XMIN
:63->XMAX
:0->XSCL
:1->YMIN
:47->YMAX
:0->YSCL
:PRGM_TIMEND
:PRGM_TIPEN





Program:  TIPEN
Size:  37

:LBL 0
:INPUT
:PRGM_TICH
:IF @=1
:GOTO 0
:PT-ON(X,Y
:GOTO 0





Program:  TISQR
Size:  97

:LBL 0
:INPUT
:PRGM_TICH
:IF @=1
:GOTO 0
:X->A
:Y->B
:PT-ON(A,B
:INPUT
:PRGM_TICH
:IF @=1
:GOTO 0
:LINE(A,B,X,B
:LINE(A,B,A,Y
:LINE(A,Y,X,Y
:LINE(X,B,X,Y
:GOTO 0