ÿþ-------------------------------------------

-------------------------------------------

|  Grey.Fox + v1.3.7		|

|  Nathaniel van Diepen	|

|  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:: 	GDFPV137	all the programs needed for compiling

		GDFPV137.8xg	the group containing the compiler

		README.txt	this file

		Screeny.gif	a screenshot

		"      "    2.gif	another

		"      "    3.gif	another

		"      "    4.gif	and another

		"      "    5.gif	really do u need to know??

--------------------------------------

Usage:

--------------------------------------

To use Grey.Fox+ just run GDFP from your program menu

The Parse option will start the parsing process

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

To enter comments insert a > at the start of your line and the compiler will skip the line when it compiles Eg: >hello there

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

To change the lib file add a + to the start of the line then the program name of the lib Eg: +XLIBER

To add in another files contents to the parsing process insert a * to the start Eg: *HEADER

The file that is included with the * has to be backwards, exept the '..' needs to be at the end still

--------------------------------------

The Lib:

--------------------------------------

this is the Lib, every command proceeded by a ^ will be replaced by the code under it

some of these commands require xLIB or the Celtic 3 app to work right



:^OUT

:Output(1,1,Ans



:^GRSET

:Func:CoordOn:GridOff:AxesOn:LabelOff:ExprOn



:^TEXT

: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=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:Input "Text(Y,X,'",Str1:Text(Y,X,Str1



:^SHADE

:Disp "":Output(1,1,"Shade(":Input "",Str1:Strº%Equ(Str1,X<span style="font-size: 0.7em">1T</span>):ClrHome:Disp "":Output(1,1,"Shade(0,":Input "",Str1:Strº%Equ(Str1,Y<span style="font-size: 0.7em">1T</span>):Shade(X<span style="font-size: 0.7em">1T</span>,Y<span style="font-size: 0.7em">1T</span>



:^GSET

:ClrDraw:Func:CoordOff:GridOff:AxesOff:LabelOff:ExprOff:ZStandard



:^PAUSE

:0’!K:0’!E:Repeat K or E<20:getKey’!K:E+1’!E:End



:^CIRCLE

:Input :X’!A:Y’!B:Input :sqrt((X-A){^2}+(Y-B){^2})’!C:Circle(A,B,C



:^QUITS

:ClrHome:ClrDraw:AxesOn:Stop



:^QUITR

:ClrHome:ClrDraw:Return



:^SETPROG

:Input "NEWFILE: ",Str0:det(0,Str0,5)



:^DELPROG

:Input "DELFILE: ",Str0:det(0,Str0,4



:^STATS

:det(4,0):Ans’!R:det(4,1):Ans’!A:det(4,3):Ans’!Str1



:^GGF

: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

:real(0,1):ClrHome



:^SCREEN

:AxesOff:real(7,0):real(6



:^A PROG

:Input "RUN prgm",Str0:Str0:real(10,0,0



:^XK

:real(8



:^MOS HDR

::"Grey.Fox+ parsed



:^A-GET

:Repeat getKey:End



:^K-GET

:0’!K:While not(K):getKey’!K:End



:^D8 HDR

::DCS



:^D16 HDR

::DCS6



:^ICON8

:"3F5191FB8F8581FF



:^ICON16

:"3E5B529692BBF24296109E388A10FE00000065B45AAA69A24080028001000000



:^GREY1

:0’!K:While not(K):real(3,1,0,1):real(3,2,0,1):getKey’!K:End



:^GREY2

:0’!K:While not(K):real(3,3,0,1):real(3,4,0,1):getKey’!K:End



:^NO DONE

:ClrHome:Output(1,14,"    



:^NO DONE ASM

:Asm(prgm¸KD



:^PEN

: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

:Input :X’!A:Y’!B:Pt-On(X,Y):Input :Line(X,Y,A,B



:^X-TEST

:1:real(0):If not(Ans):Then:ClrHome:Disp "INSTALL xLIB":Return:End



:^DISP

:Disp Ans



Generated by SourceCoder (http://www.cemetech.net/projects/basicelite/sourcecoder.php)

© 2005 Cemetech (http://www.cemetech.net)

--------------------------------------

Bugs:

--------------------------------------

I have not found any other then the infinite loop if you do not add in the double period

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