TI Basic Help

[suchiaruzu]

[Pam]

[Caesar]

In ti basic IIRC an "end" statement anywhere except the end of the program will cuase it to either give a syntax error or just simply stop the program there.

[suchiaruzu]

Hmm yes and no. It looks like I will have to rewrite the whole thing anyway. It would be great if someone came up with a solution though, so I won't repeat the mistake...

[suchiaruzu]

[Caesar]

Your code is so much more advanced than mine. I was playing around with my calc and a friends with a link cable and I decided I was gonna fool around with the send( and get( commands. My code is as follows:

clrhome
input "-",P
send(P)

Thats my send app, heres the recieving app:

get(p)
disp p

The app works fine, but I want to be able to send and receive in one app so you don't have to launch seperate apps to do everything. Any suggestions?

[suchiaruzu]

UPDATED!!!
Well, that is what the program above is supposed to do. Here is an updated version (I am posting this here for the guys at the IRC chan as well):

[code]
()
Prgm
Lbl boot
Local id
PopUp {"Horst","Johnboy","Johnnie","Johnson"},id

If id="1" Then
DelVar schonda
schonda=getType(horst)
If schonda="NONE" Then
Local horst
CopyVar id,horst
SendChat horst
Goto name
Else
Dialog
Title "Gibt's schon"
Text "Zu spät, es gibt schon einen Horst!"
EndDlog
Goto boot
EndIf

ElseIf id="2" Then
DelVar schonda
schonda=getType(johnboy)
If schonda="NONE" Then
Local johnboy
CopyVar id,johnboy
SendChat johnboy
Goto name
Else
Dialog
Title "Gibt's schon"
Text "Zu spät, es gibt schon einen Johnboy!"
EndDlog
Goto boot
EndIf

ElseIf id="3" Then
DelVar schonda
schonda=getType(johnnie)
If schonda="NONE" Then
Local johnnie
CopyVar id,johnnie
SendChat johnnie
Goto name
Else
Dialog
Title "Gibt's schon"
Text "Zu spät, es gibt schon einen Johnnie!"
EndDlog
Goto boot
EndIf

ElseIf id="4" Then
DelVar schonda
schonda=getType(johnson)
If schonda="NONE" Then
Local johnson
CopyVar id,johnson
SendChat johnson
Goto name
Else
Dialog
Title "Gibt's schon"
Text "Zu spät, es gibt schon einen Johnson!"
EndDlog
Goto boot
EndIf
EndIf

Lbl name
If getType(nom)

[Caesar]

[Michael Y]

What calculator are you programming this for? This looks TOTALLY different than the TI-BASIC I program on my TI-83+, and AFAIK the different calculator models have slightly different versions.

[suchiaruzu]

[Jadam]

[Caesar]