CEMETECH
Leading The Way To The Future
Login [Register]
Username:
Password:
Autologin:

Don't have an account? Register now to chat, post, use our tools, and much more.
Latest Headlines
» June Software Trifecta, Part 3: Sandpaper v1.0
» June Software Trifecta, Part 2: gCnClient v2.0
» June Software Trifecta, Part 1: Doors CS 7.2 Beta 3
» Sandpaper v0.95 Calculator FTP Client/Server
Online Users
There are 150 users online: 3 members, 122 guests and 25 bots.
Members: CalebHansberry, gbl08ma.
Bots: VoilaBot (2), Magpie Crawler (2), VoilaBot (3), Googlebot (18).
RSS & Social Media
[t] Follow @cemetech
[t] 'Like' Cemetech
[RSS] News Headlines
[RSS] Latest Posts
SAX
You must log in to view the SAX chat widget
First Ever Ti-BASIC Include File
» >
    »
» View previous topic :: View next topic  
Author Message
spud2451


Advanced Member


Joined: 27 May 2011
Posts: 245
Location: york maine
Posted: 01 Sep 2011 05:25:31 pm    Post subject: First Ever Ti-BASIC Include File
hey guys i just finished the first ever ti-basic include file like in C++

to include it you just type at the beginning of your program:


Code:

number of lines in your program -> b
program name -> Str0
prgm include


and it adds functions
_________________
there are 10 kinds of people in this world...
those who understand binary and those who don't




Last edited by spud2451 on 02 Sep 2011 07:44:14 am; edited 1 time in total
Back to top
souvik1997


Guru-in-Training


Joined: 19 Apr 2010
Posts: 2870
Posted: 01 Sep 2011 06:36:40 pm    Post subject:
You should post the source or put a link in your post so people can download it. What kinds of functions does it add?
_________________
CALCnet Tournament-38%


deviantArt
Back to top
spud2451


Advanced Member


Joined: 27 May 2011
Posts: 245
Location: york maine
Posted: 01 Sep 2011 06:47:45 pm    Post subject:
it adds player functions. including:

:player - this draws a player to the screen

:plyrmove - this allows movement of the player

edit: found glitch player functions all the sudden not working
edit2: accidental ram clear deletes the include file
_________________
there are 10 kinds of people in this world...
those who understand binary and those who don't


Back to top
comicIDIOT


Guru


Joined: 01 May 2006
Posts: 5140
Location: SFBA, California
Posted: 01 Sep 2011 07:55:28 pm    Post subject:
spud2451 wrote:
edit2: accidental ram clear deletes the include file
RAM Clears in general will delete it. You need a way for the program calling the include to unarchive it, then re-archive it when it returns control back.

I think I'm missing the concept but one way or anther to avoid deletion on RAM Clear, you need to find way to execute it while the include is archived.
_________________


-Alex
Back to top
spud2451


Advanced Member


Joined: 27 May 2011
Posts: 245
Location: york maine
Posted: 01 Sep 2011 07:58:19 pm    Post subject:
here's the code


Code:

:For(N,5,B,1)
:det(5,Str0,N)→Str1
:If Str1="PLAYER"
:Then
:identity(5,"182424183C5A3C66",1,8,X,Y,3,0,1
:End
:If Str1="PLYRMOVE"
:Then
:0→A
:While A=0
:getKey→A
:End
:identity(5,"182424183C5A3C66",X,Y,1,8,3,0,1
:If A=24
:Then
:X-1→X
:End
:If A=25
:Then
:Y-1→Y
:End
:If A=26
:Then
:X+1→X
:End
:If A=34
:Then
:Y+1→Y
:End
:End
:If Str1≠"PLAYER" and Str1≠"PLYRMOVE"
:Then
:det(6,"XYZPRGM",Str1,1
:prgmINCLUDE
:End
:End

_________________
there are 10 kinds of people in this world...
those who understand binary and those who don't


Back to top
Ashbad


I am governor Jerry Brown


Joined: 01 Dec 2010
Posts: 2423
Location: There lived a certain man in Russia long ago
Posted: 01 Sep 2011 08:20:21 pm    Post subject:
Interesting. I really doubt this is the "first" time something like this has been made (in fact, you could call any Hybrid BASIC utility an "include file") but good job nonetheless Smile
_________________
-Ashbad
Back to top
KermMartian


Site Admin


Joined: 14 Mar 2005
Posts: 55882
Location: Earth, Sol, Milky Way
Posted: 02 Sep 2011 03:01:51 am    Post subject:
Comic, funnily enough, Doors CS via xLIB lets you execute archived BASIC programs from other BASIC programs. Spud, this seems fairly nifty; not something terribly new, per se, but a new way (and more categorical way) of looking at it. Well done. But please, make friends with your shift key. A topic title gets all non-articles capitalized.
_________________
Back to top
_player1537


Guru-in-Training


Joined: 25 Nov 2009
Posts: 2958
Posted: 03 Sep 2011 11:44:49 pm    Post subject:

Code:
:For(N,5,B,1)
:det(5,Str0,N)→Str1
:If Str1="PLAYER"
:identity(5,"182424183C5A3C66",1,8,X,Y,3,0,1
:If Str1="PLYRMOVE"
:Then
:Repeat A
:getKey→A
:End
:identity(5,"182424183C5A3C66",X,Y,1,8,3,0,1
:X-(A=24)+(A=26->X
:Y-(A=25)+(A=34->Y
:End
:If Str1≠"PLAYER" and Str1≠"PLYRMOVE"
:Then
:det(6,"XYZPRGM",Str1,1
:prgmINCLUDE
:End
:End


Optimized! On that note, I am very surprised that this actually works >.> Shouldn't you call prgmXYZPRGM since you just wrote a line of code to it? Calling prgmINCLUDE again should make an endless loop, no?
_________________
http://tanner.myserverathome.com
Back to top
KermMartian


Site Admin


Joined: 14 Mar 2005
Posts: 55882
Location: Earth, Sol, Milky Way
Posted: 04 Sep 2011 11:01:19 pm    Post subject:
Mmm, I should definitely think so. Good catch on that last bit, Catherine.
_________________
Back to top
Display posts from previous:   
Register to Join the Conversation
Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.

» Go to Registration page
First Ever Ti-BASIC Include File
    »
» View previous topic :: View next topic  
Page 1 of 1 » All times are GMT - 5 Hours

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

© Copyright 2000-2013 Cemetech & Kerm Martian :: Page Execution Time: 0.033333 seconds.