-------------------------------------------
਍ⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀഀഀ
|  Grey.Fox + v0.4b		|
਍簀  一愀琀栀愀渀椀攀氀 瘀愀渀 䐀椀攀瀀攀渀ऀ簀ഀഀ
|  cyberkid@doxa-canada.com	|
਍ⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀഀഀ
-------------------------------------------
਍ഀഀ
This program will edit programs, replacing commands that start with a ^ with a predefined command set in another file. This is really helpful when you use a certain piece of code a lot in a program
਍ഀഀ
for now the library is very small, but it is easy to add your own commands, open thetaLIB and insert your ^ command on a line before the ".." line, then on a line right after that put the replacement command
਍ഀഀ
included files:: 	GDFPV101	all the programs needed for compiling
਍ऀऀ䜀䐀䘀倀嘀㄀　㄀⸀㠀砀最ऀ琀栀攀 最爀漀甀瀀 挀漀渀琀愀椀渀椀渀最 琀栀攀 挀漀洀瀀椀氀攀爀ഀഀ
		README.txt	this file
਍ऀऀ匀挀爀攀攀渀礀⸀最椀昀ऀ愀 猀挀爀攀攀渀猀栀漀琀ഀഀ
		"      "    2.gif	another
਍ऀऀ∀      ∀    ㌀⸀最椀昀ऀ愀渀漀琀栀攀爀ഀഀ
		"      "    4.gif	and another
਍ऀऀ∀      ∀    㔀⸀最椀昀ऀ爀攀愀氀氀礀 搀漀 甀 渀攀攀搀 琀漀 欀渀漀眀㼀㼀ഀഀ
--------------------------------------
਍唀猀愀最攀㨀ഀഀ
--------------------------------------
਍吀漀 甀猀攀 䜀爀攀礀⸀䘀漀砀⬀ 樀甀猀琀 爀甀渀 䜀䐀䘀倀 昀爀漀洀 礀漀甀爀 瀀爀漀最爀愀洀 洀攀渀甀ഀഀ
The Lib option on your home menu will display the lib file and its contents, [<] and [>] will scroll by one [^] and [v] will scroll by 10 I believe. [Clear] will exit
਍吀栀攀 挀漀洀瀀椀氀攀 漀瀀琀椀漀渀 眀椀氀氀 猀琀愀爀琀 琀栀攀 挀漀洀瀀椀氀椀渀最 瀀爀漀挀攀猀猀ഀഀ
To make a program to compile just create a new program and edit it from the TI-OS, adding the commands you want into it. End your program with a double period
਍吀漀 攀渀琀攀爀 挀漀洀洀攀渀琀猀 椀渀猀攀爀琀 愀 㸀 愀琀 琀栀攀 猀琀愀爀琀 漀昀 礀漀甀爀 氀椀渀攀 愀渀搀 琀栀攀 挀漀洀瀀椀氀攀爀 眀椀氀氀 猀欀椀瀀 琀栀攀 氀椀渀攀 眀栀攀渀 椀琀 挀漀洀瀀椀氀攀猀ഀഀ
One word of warning never forget to place the double period at the end or it will continue until your memory is full, adding in an error code that Celtic 3 generates
਍ⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀഀഀ
The Lib:
਍ⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀഀഀ
this is the Lib, every command proceeded by a ^ will be replaced by the code under it
਍猀漀洀攀 漀昀 琀栀攀猀攀 挀漀洀洀愀渀搀猀 爀攀焀甀椀爀攀 砀䰀䤀䈀 漀爀 琀栀攀 䌀攀氀琀椀挀 ㌀ 愀瀀瀀 琀漀 眀漀爀欀 爀椀最栀琀ഀഀ

਍㨀帀䜀匀䔀吀ഀഀ
:ClrDraw:Func:CoordOff:GridOff:AxesOff:LabelOff:ExprOff
਍ഀഀ
:^PAUSE
਍㨀　鈀䬡㨀　鈀䔡㨀刀攀瀀攀愀琀 䬀 漀爀 䔀㰀㈀　㨀最攀琀䬀攀礀鈀䬡㨀䔀⬀㄀鈀䔡㨀䔀渀搀ഀഀ

਍㨀帀䌀䤀刀䌀䰀䔀ഀഀ
:Input :X→A:Y→B:Input :√((X-A)2+(Y-B)2)→C:Circle(A,B,C
਍ഀഀ
:^QUITS
਍㨀䌀氀爀䠀漀洀攀㨀䌀氀爀䐀爀愀眀㨀䄀砀攀猀伀渀㨀匀琀漀瀀ഀഀ

਍㨀帀儀唀䤀吀刀ഀഀ
:ClrHome:ClrDraw:Return
਍ഀഀ
:^SETPROG
਍㨀䤀渀瀀甀琀 ∀一䔀圀䘀䤀䰀䔀㨀 ∀Ⰰ匀琀爀　㨀搀攀琀⠀　Ⰰ匀琀爀　Ⰰ㔀⤀ഀഀ

਍㨀帀䐀䔀䰀倀刀伀䜀ഀഀ
:Input "DELFILE: ",Str0:det(0,Str0,4
਍ഀഀ
:^STATS
਍㨀搀攀琀⠀㐀Ⰰ　⤀㨀䄀渀猀鈀刡㨀搀攀琀⠀㐀Ⰰ㄀⤀㨀䄀渀猀鈀䄡㨀搀攀琀⠀㐀Ⰰ㌀⤀㨀䄀渀猀鈀匡琀爀㄀ഀഀ

਍㨀帀䜀䜀䘀ഀഀ
:Input "GROUP?",Str0:det(11,Str0):Output(1,1,Ans):Pause :Input "EXTRACT?",A:det(12,Str0,A):If Ans:Disp "DONE":If not(Ans):Disp "Err::?":
਍ഀഀ
:^CLR
਍㨀爀攀愀氀⠀　Ⰰ㄀⤀㨀䌀氀爀䠀漀洀攀ഀഀ

਍㨀帀匀䌀刀䔀䔀一ഀഀ
:AxesOff:real(7,0):real(6
਍ഀഀ
:^A PROG
਍㨀䤀渀瀀甀琀 ∀刀唀一 瀀爀最洀∀Ⰰ匀琀爀　㨀匀琀爀　㨀爀攀愀氀⠀㄀　Ⰰ　Ⰰ　ഀഀ

਍㨀帀堀䬀ഀഀ
:real(8
਍ഀഀ
:^MOS HDR
਍㨀㨀∀䜀爀攀礀⸀䘀漀砀⬀ 瀀愀爀猀攀搀ഀഀ

਍㨀帀䄀ⴀ䜀䔀吀ഀഀ
:Repeat getKey:End
਍ഀഀ
:^K-GET
਍㨀　鈀䬡㨀圀栀椀氀攀 渀漀琀⠀䬀⤀㨀最攀琀䬀攀礀鈀䬡㨀䔀渀搀ഀഀ

਍㨀帀䐀㠀 䠀䐀刀ഀഀ
::DCS
਍ഀഀ
:^D16 HDR
਍㨀㨀䐀䌀匀㘀ഀഀ

਍㨀帀䤀䌀伀一㠀ഀഀ
:"3F5191FB8F8581FF
਍ഀഀ
:^ICON16
਍ഀഀ
:"3E5B529692BBF24296109E388A10FE00000065B45AAA69A24080028001000000
਍㨀帀䜀刀䔀夀㄀ഀഀ
:0→K:While not(K):real(3,1,0,1):real(3,2,0,1):getKey→K:End
਍ഀഀ
:^GREY2
਍㨀　鈀䬡㨀圀栀椀氀攀 渀漀琀⠀䬀⤀㨀爀攀愀氀⠀㌀Ⰰ㌀Ⰰ　Ⰰ㄀⤀㨀爀攀愀氀⠀㌀Ⰰ㐀Ⰰ　Ⰰ㄀⤀㨀最攀琀䬀攀礀鈀䬡㨀䔀渀搀ഀഀ

਍㨀帀一伀 䐀伀一䔀ഀഀ
:ClrHome:Output(1,14,"    
਍ഀഀ
:^NO DONE ASM
਍㨀䄀猀洀⠀瀀爀最洀렀䬃䐀ഀഀ

਍㨀帀倀䔀一ഀഀ
:0→X:0→Y:0→K:While K≠105:Pxl-Change(Y,X):0→K:While K=0:getKey→K:End:Pxl-Change(Y,X):If K=21:Pxl-Change(Y,X):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 X=‾1:0→X:If X=95:94→X:If Y=‾1:0→Y:If Y=65:64→Y:End
਍ഀഀ
:^LINE
਍㨀䤀渀瀀甀琀 㨀堀鈀䄡㨀夀鈀䈡㨀倀琀ⴀ伀渀⠀堀Ⰰ夀⤀㨀䤀渀瀀甀琀 㨀䰀椀渀攀⠀堀Ⰰ夀Ⰰ䄀Ⰰ䈀ഀഀ

਍㨀帀堀ⴀ吀䔀匀吀ഀഀ
:1:real(0):If not(Ans):Then:ClrHome:Disp "INSTALL xLIB":Return:End
਍ഀഀ
:^DISP
਍㨀䐀椀猀瀀 䄀渀猀ഀഀ
--------------------------------------
਍䈀甀最猀㨀ഀഀ
--------------------------------------
਍䤀 栀愀瘀攀 渀漀琀 昀漀甀渀搀 愀渀礀 漀琀栀攀爀 琀栀攀渀 琀栀攀 椀渀昀椀渀椀琀攀 氀漀漀瀀 椀昀 礀漀甀 搀漀 渀漀琀 愀搀搀 椀渀 琀栀攀 搀漀甀戀氀攀 瀀攀爀椀漀搀ഀഀ
If you find any please E-mail me or post the bug on this forum http://www.cemetech.net/forum/viewtopic.php?p=79280#79280
਍ⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀഀഀ
Thanks:
਍ⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀഀഀ
thank you to all those who helped me with this project on Chemetech.net