;Asmbley type comments are used. Please view in the TI font Ti83pc. 
;You will have to figure out what is going on on your own. :(
1üX
1üY

ClrHome
Output(1,1,"TI Draw")
Output(2,1,"By TehBlueBlur")
Output(3,1,"Copyright 2004")
Output(4,1,"All rights resvered.")
Output(6,1,"CLEAR to exit")
Output(7,1,"ENTER to show coords")
Output(8,1,"Y= for menu")

Pause 
Lbl 4
Menu("Keys?","Arrow keys",5,"NUM pad",6,"All(Slow)",7)
Lbl 5
1üD
Goto 8
Lbl 6
2üD
Goto 8
Lbl 7
3üD
Goto 8
Lbl 8
AxesOff
3üC
1üA
Lbl 10
If Aĝ1
ClrDraw
If C=1
Pxl-On(Y,X)
If C=2
Then
Pxl-Off(Y,X)
Pxl-Change(Y,X)
End
If C=3
Pxl-Change(Y,X)
If C=4
Pxl-Change(Y,X)
Lbl 12
0üK
While K=0
getKeyüK
End
If C=2
Pxl-Change(Y,X)
If C=3
Pxl-Change(Y,X)
If D=2
Goto 14
Lbl 13
If K=24
X-1üX
If K=25
Y-1üY
If K=26
X+1üX
If K=34
Y+1üY
If K=21
1üC
If K=22
2üC
If K=23
3üC
If K=32
4üC
If D=3
Goto 14
Goto 15

Lbl 14
If K=72
Then
Y-1üY
X-1üX
End
If K=73
Y-1üY
If K=74
Then
Y-1üY
X+1üX
End
If K=82
X-1üX
If K=83
ClrDraw
If K=84
X+1üX
If K=92
Then
Y+1üY
X-1üX
End
If K=93
Y+1üY
If K=94
Then
Y+1üY
X+1üX
End
If K=65
4üC
If K=62
3üC
If K=63
2üC
If K=64
1üC

Lbl 15
If K=105
Goto 20
If K=11
Goto 25

If Y<0
62üY
If Y>62
0üY
If X<0
94üX
If X>94
0üX


If K=45
Stop
If K=33
ClrDraw
Goto 10
Lbl 20
Output(1,1,"Y:")
Output(1,3,Y)
Output(2,1,"X:")
Output(2,3,X)
Goto 12
Text(57,1,Y)
Text(57,20,X)
Goto 12

Lbl 25
Menu("Mis","Random: On",35,"Random: Off",30,"Random: Change",40,"Change MODE",4,"Programs...",50,"Help",90,"Back",12)
Goto 12

Lbl 30
0üK
Lbl 31
randInt(0,94)üX
randInt(0,62)üY
Pxl-Off(Y,X)
0üK
getKeyüK
If K>0
Goto 12
Goto 31

Lbl 35
0üK
Lbl 36
randInt(0,94)üX
randInt(0,62)üY
Pxl-On(Y,X)
getKeyüK
If K>0
Goto 12
Goto 36

Lbl 40
0üK
Lbl 41
randInt(0,94)üX
randInt(0,62)üY
Pxl-Change(Y,X)
getKeyüK
If K>0
Goto 12
Goto 41

Lbl 50
Menu("Programs","*Fill Screen",51,"*Alternating",52,"Invert",60,"GarbageCollect",65,"*Place text here",66,"*External prgm",50,"Back",25)
Lbl 51
25üÁ
prgmFILLSCR
Lbl 52
25üÁ
prgmALTER

Lbl 60
0üX
0üY
Lbl 62
Pxl-Change(Y,X)
1+XüX
If X>94
Then
0üX
Y+1üY
End
If Y>62
Then
0üX
0üY
Goto 25
End
Goto 62

Lbl 65
GarbageCollect
Goto 50

Lbl 66
prgmTITEXT
Goto 50

Lbl 90
ClrHome
Output(1,1,"In mode 1, 2nd is line on, MODE is off, and DEL lets you move freely. STAT clears and X,T,Á,n inveters.")
Pause 
ClrHome
Output(1,1,"In mode 2, ',' lets you move freely, ')' lets you draw, and '(' lets you erase. 5 clears. The numbers move in respective directions.")
Pause 
ClrHome
Output(1,1,"/ inverts."
Pause 
Goto 10