SourceCoder Beta!
» >
» Goto page 1, 2, 3  Next
» View previous topic :: View next topic  

Cool?
1337
 100%  [ 6 ]
n00b
 0%  [ 0 ]
Total Votes : 6

At long last, SourceCoder has reached the beta stage. To my knowledge, it can completely parse any and all TI-83, TI-83+/SE, and TI-84+/SE BASIC programs and display tokenized source code.

http://www.cemetech.net/projects/basicelite/sourcecoder.php

Please run all of your programs and help me find errors with it. Kindly post any parse errors you find with what SourceCoder rendered and what the line was supposed to be. The more people report misrenders, the faster I will be able to publish this!
Geopipe
looks good, but I would eliminate the pics if I were you, so this way one could copy and paste into notepad

btw, the TI-Graphlink does this also
I am the eye of the river
>(<')


Not as efficiently, IMHO. Smile
I did the images so people can copy/paste source code into an HTML doc.
Geopipe
heh..can you please PM me the source code to this? i'd like to turn it into a Ti-BASIC GUI editor for the comp (thats not as hard to get to as graphlink, and is better looking, with cool stuff Cool )

Oh, and you might want to add a <title> to it Wink
maybe you can have a choice on whether text only or text with images
I am the eye of the river
>(<')


I tried a couple programs, didn't see any errors in it.

I am sorry I wan't around to post the topic. Crying I haven't been near a comp for almost the entire day. Sad
I am having some issues with this specifically...oh hell, heres the actual source (plz I just whipped this up for a friend and I'm sure its not optomized, don't be too harsh):

Code:

:"Pipe Maze 1.00
Lbl 02
ClrHome
Menu("---MAIN  MENU---","Random Level",01,"Created Level",99,"Quit",Q
Lbl 01
ClrHome
DelVar U
Menu("Speed","Very Slow",12,"Slow",13,"Medium",14,"Fast",15,"Ridiculous",16
Lbl 12
U+1üU
Lbl 13
U+1üU
Lbl 14
U+1üU
Lbl 15
U+1üU
Lbl 16
U+1üU
iPart((60U)^(5/4)üU
DelVar Z
Menu("Difficulty","Easy",03,"Medium",04,"Hard",05,"Professional",06
Lbl 03
Z+1üZ
Lbl 04
Z+1üZ
Lbl 05
Z+1üZ
Lbl 06
Z+1üZ
DelVar H
Menu("Length","Very Short",07,"Short",08,"Medium",09,"Long",10,"Endurance",11
Lbl 07
H+1üH
Lbl 08
H+1üH
Lbl 09
H+1üH
Lbl 10
H+1üH
H+1üH
ú16H+88üH
Goto 17
Lbl 11
96üH
Lbl 17
ClrHome
Output(3,1,"----------------GENERATING LEVEL----------------
DelVar [A]
{97,15}üdim([A]
For(A,1,H,Z
1+3randInt(1,4üB
1ü[A](A,B
1ü[A](A,B-1
End
Goto 98
Lbl 99
If [A](97,1)=0
Goto 02
[A](97,1üH
[A](97,2üZ
[A](97,3üU
Lbl 98
ClrHome
Output(8,1,"PICK GOAL
Output(1,1," A  B  C  D  E
2üX
DelVar K
While Kø105 and Kø21
Output(2,X,"^
DelVar K
While not(K
getKeyüK
End
Output(2,X,"
If K=24 and X>2
X-3üX
If K=26 and X<13
X+3üX
End
X/3üM
For(B,H,8,ú8
ClrHome
Output(1,1," 1  1  1  1  1   1  1  1  1  1   1  1  1  1  1   1  1  1  1  1   1  1  1  1  1   1  1  1  1  1== 1  1  1  1  1   1  1  1  1  1   1  1  1  1  1   1  1  1  1  1   
Output(5,15,B
BüE
For(D,8,1,ú1
For(A,1,13
[A](E,A)üC
If C
Output(D,A,"-
End
E-1üE
End
For(F,1,U
3üG
End
End
ClrHome
Output(4,1," 1  1  1  1  1   1  1  1  1  1   1  1  1  1  1   1  1  1  1  1   1  1  1  1  1   1  1  1  1  1   1  1  1  1  1 
2üX
DelVar K
While Kø105 and Kø21
Output(3,X,"V
DelVar K
While not(K
getKeyüK
End
If K=24 or K=26
Then
Output(3,X,"
If K=24 and X>1
X-3üX
If K=26 and X<13
X+3üX
End
End
For(B,1,H-7,8
ClrHome
Output(1,1," 1  1  1  1  1   1  1  1  1  1   1  1  1  1  1   1  1  1  1  1   1  1  1  1  1   1  1  1  1  1== 1  1  1  1  1   1  1  1  1  1   1  1  1  1  1   1  1  1  1  1   
Output(5,15,B
For(F,1,8
For(E,1,13
[A](B-1+F,EüC
If C
Output(F,E,"-
End
End
For(A,1,8
Output(A,X,"*
If [A](B-1+A,X-1)=1
Then
X-3üX
For(G,1,25
1üI
End
Output(A,X+2,"*
For(G,1,25
1üI
End
Output(A,X+1,"*
For(G,1,25
1üI
End
Output(A,X,"*
Else
If [A](B-1+A,X+1)=1
Then
X+3üX
For(G,1,25
1üI
End
Output(A,X-2,"*
For(G,1,25
1üI
End
Output(A,X-1,"*
For(G,1,25
1üI
End
Output(A,X,"*
End
End
For(G,1,25
1üI
End
End
End
ClrHome
Output(7,1," U  U  U  U  U
Output(8,1," A  B  C  D  E
For(A,1,7
Output(A,X,"*
For(G,1,25
1üI
End
End
Pause
ClrHome
If X/3=M
Then
Output(1,1,"YOU ARE         VICTORIOUS!!
Else
Output(1,1,"YOU LOSE
End
Pause
Goto 02
Lbl Q
ClrHome
Output(1,1,"


And here's what I'm getting:


Code:

Total File Size: 2080 bytes
TI-83/+/SE file

Program Data Size:2006

::"PIpe Maze 1.00
:Lbl 02
:ClrHome
:Menu"---MAIN MENU---","RandO LeveM",01,"Created LeveM",99,"QuIt",Q
:Lbl 01
:ClrHome
:DelVar U
:Menu"Speed","VerY SMOw",12,"SMOw",13,"MedIu",14,"Fast",15,"RidIcuMOus",16
:Lbl 12
:U+1U
:Lbl 13
:U+1U
:Lbl 14
:U+1U
:Lbl 15
:U+1U
:Lbl 16
:U+1U
:(60U)xroot((5/4)U
:DelVar Z
:Menu"DIFFIcuMtY","EasY",03,"MedIu",04,"Hard",05,"PrOFessIOnaM",06
:Lbl 03
:Z+1Z
:Lbl 04
:Z+1Z
:Lbl 05
:Z+1Z
:Lbl 06
:Z+1Z
:DelVar H
:Menu"LengtH","VerY SHOrt",07,"SHOrt",08,"MedIu",09,"LOng",10,"Endurance",11
:Lbl 07
:H+1H
:Lbl 08
:H+1H
:Lbl 09
:H+1H
:Lbl 10
:H+1H
:H+1H
:-16H+88H
:Goto 17
:Lbl 11
:96H
:Lbl 17
:ClrHome
:Output(3,1,"----------------GENERATING LEVEL----------------
:DelVar [A]
:97,15dim([A]
:For(A,1,H,Z
:1+3randInt(1,4B
:1[A](A,B
:1[A](A,B-1
:End
:Goto 98
:Lbl 99
:If [A](97,1)=0
:Goto 02
:[A](97,1H
:[A](97,2Z
:[A](97,3U
:Lbl 98
:ClrHome
:Output(8,1,"PICK GOAL
:Output(1,1," A B C D E
:2X
:DelVar K
:While K105 and K21
:Output(2,X,"xroot(
:DelVar K
:While not(K
:getKeyK
:End
:Output(2,X,"
:If K=24 and X>2
:X-3X
:If K=26 and X<13
:X+3X
:End
:X/3M
:For(B,H,8,-8
:ClrHome
:Output(1,1," 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1== 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
:Output(5,15,B
:BE
:For(D,8,1,-1
:For(A,1,13
:[A](E,A)C
:If C
:Output(D,A,"-
:End
:E-1E
:End
:For(F,1,U
:3G
:End
:End
:ClrHome
:Output(4,1," 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
:2X
:DelVar K
:While K105 and K21
:Output(3,X,"V
:DelVar K
:While not(K
:getKeyK
:End
:If K=24 or K=26
:Then
:Output(3,X,"
:If K=24 and X>1
:X-3X
:If K=26 and X<13
:X+3X
:End
:End
:For(B,1,H-7,8
:ClrHome
:Output(1,1," 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1== 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
:Output(5,15,B
:For(F,1,8
:For(E,1,13
:[A](B-1+F,EC
:If C
:Output(F,E,"-
:End
:End
:For(A,1,8
:Output(A,X,"*
:If [A](B-1+A,X-1)=1
:Then
:X-3X
:For(G,1,25
:1I
:End
:Output(A,X+2,"*
:For(G,1,25
:1I
:End
:Output(A,X+1,"*
:For(G,1,25
:1I
:End
:Output(A,X,"*
:Else
:If [A](B-1+A,X+1)=1
:Then
:X+3X
:For(G,1,25
:1I
:End
:Output(A,X-2,"*
:For(G,1,25
:1I
:End
:Output(A,X-1,"*
:For(G,1,25
:1I
:End
:Output(A,X,"*
:End
:End
:For(G,1,25
:1I
:End
:End
:End
:ClrHome
:Output(7,1," U U U U U
:Output(8,1," A B C D E
:For(A,1,7
:Output(A,X,"*
:For(G,1,25
:1I
:End
:End
:Pause
:ClrHome
:If X/3=M
:Then
:Output(1,1,"YOU ARE VICTORIOUS!!
:Else
:Output(1,1,"YOU LOSE
:End
:Pause
:Goto 02
:Lbl Q
:ClrHome
:Output(1,1,"

Complete! 1867 tokens rendered in 0.912713 seconds.
All coding and tables ©2004-2005 Kerm Martian
Token information is property of Texas Instruments, Inc. Extracted from published documentation.






Question your beliefs!
I only see the xpart error. Anyone else spot something there?
Geopipe
The different sizes of text...
it is screwing up my RoboCalc program too. Inserting tokens where they arent wanted. Like "e" for NE, stuff like that. also this reminds of this linklinklink. except this reads directly from source

heres the code that got outputted:

::"ROBOCAMC COAD CeTeR
:AxesOff
:GridOff
:FnOff
:PlotsOff
:getKey:getKey
:SetUpEditorRBCLC
:18dim(LRBCLC
:7,5,7,5,7,5,5,8,5,8,5,8,3,2,3,2,3,2L1
:seq(LRBCLC(X)L1(X) and LRBCLC(X)1,X,1,18)L2
:SortA L2
:If L2(1)=0
:7,2,7,2,7,2,1,1,1,1,1,1,3,2,3,2,3,2LRBCLC
:DelVar L1DelVar L2
:ClrDraw
:ClrHome
:Text(-1,16,24,"ROBOCAMC
:Text(-1,24,6,"COAD CeTeR
:For(T,1,2
:For(X,1,11
:sub("[Dot][Box][Cross]OXOX[Cross][Box][Dot] ",X,1
:Text(-1,32,18,Ans+" "+Ans+" "+Ans+Ans+" "+Ans+" "+Ans
:End
:End
:ClrDraw
:ClrHome
:1I
:Repeat 0
:Output(8,2,"SYSTe SeTTIgS
:Output(2,2,"OUTPUT A
:Output(3,2,"OUTPUT B
:Output(4,2,"OUTPUT C
:Output(1,2,"JOYSTICK
:Output(5,2,"SENSOR 1
:Output(6,2,"SENSOR 2
:Output(7,2,"SENSOR 3
:Output(I,1,">
:DelVar K
:Repeat K=21 or K=45
:getKeyK
:If K=25 or K=34
:Output(I,1,"
:I+(K=34 and ICool-7(K=34 and I=Cool-(K=25 and I1)+7(K=25 and I=1)I
:If K=25 or K=34
:Output(I,1,">
:End
:If K=45
:Goto ND
:If I=1
:Then
:ClrDraw
:1Ymin
:63YMax
:1Xmin
:95Xmax
:Horizontal(8
:Horizontal(7
:Line(23,8,23,1
:Line(22,8,22,1
:Text(57,0,"COFIg
:Text(57,24,"STOP
:Line(40,8,40,1
:Line(41,8,41,1
:Text(57,42,"TgMA
:Line(58,8,58,1
:Line(59,8,59,1
:Text(57,60,"TgMB
:Line(76,8,76,1
:Line(77,8,77,1
:Text(57,78,"TgMC
:Text(0,0,"JOYSTICK PAeM (CLEAR eXITS)
:Text(6,0,"DIReCTIO:
:Text(12,0,"OUTPUT A:
:Text(18,0,"OUTPUT B:
:Text(24,0,"OUTPUT C:
:Text(30,0,"SeSOR 1:
:Text(36,0,"SeSOR 2:
:Text(42,0,"SeSOR 3:
:StorePic 1
:DelVar K
:Repeat K=45
:getKeyK
:If K=11
:Then
:ClrDraw
:Text(1,1,"JOYSTICK COFIg(CLEAR eXITS)
:1O
:8R
:Text(-1,R,0,"-
:DelVar K
:Repeat K=45
:getKeyK
:If K=25 or K=34
:Then
:Text(-1,R,0,"
:R-8(K=25 and RCool+16(K=25 and R=Cool+8(K=34 and R24)-16(K=34 and R=24)R
:Text(-1,R,0,"-
:End
:If K=21 and R=8
:O+(O3)-2(O=3)O
:If K=21 and R=16
:Then
:LRBCLC(13+2(O-1
:+(3)-2(=3LRBCLC(13+2(O-1
:End
:If K=21 and R=24
:Then
:LRBCLC(12+2O
:+(=1)-(=2LRBCLC(12+2O
:End
:Text(-1,8,8,"OUTPUT: ",sub("ABC",O,1
:Text(-1,16,8,"MODe: ",sub("DRVSTRLGT",3(LRBCLC(13+2(O-1))-1)+1,3
:Text(-1,24,8,"ReVeRSe? ",sub("TRUE FALSE",5(LRBCLC(12+2O)-1)+1,5
:End
:ClrDraw
:RecallPic 1
:DelVar K
:End
:End
:End
:If I5 and I7
:Then
:Repeat getKey=21
:Output(I,11,10LRBCLC(2(I-1)-1)+LRBCLC(2(I-1))
:End
:Output(I,11,"
:End
:If I=8
:Then
:ClrDraw
:Text(-1,0,0,"SeTTIgS::OUTPTS
:For(A,1,5,2
:Text(-1,8A,6,sub("ABC",(A+1)/2,1),":POWeR=",LRBCLC(A)
:End
:8R
:DelVar K
:Repeat K=21
:getKeyK
:Text(-1,R,0,">
:If K=25 or K=34
:Then
:Text(-1,R,0,"
:R+16(K=34 and R40)-32(K=34 and R=40)-16(K=25 and RCool+32(K=25 and R=8R
:End
:R/8T
:LRBCLC(T
:+(K=26 and 7)-6(K=26 and =7)-(K=24 and 1)+6(K=24 and =1LRBCLC(T
:Text(-1,R,54,LRBCLC(T
:End
:DelVar K
:ClrDraw
:For(A,1,5,2
:Text(-1,0,0,"SeTTIgS::SeSRS
:Text(-1,8A,6,(A+1)/2,":TYPe=",sub("NONELGHTTCH RTTNTEMP",4(LRBCLC(A+6)-1)+1,4
:Text(-1,8A+8,18,"MODe=",sub("RAW PLSEPCTGBOOLEDGERTTNoF oC ",4(LRBCLC(A+7)-1)+1,4
:End
:8R
:0C
:Repeat K=21
:getKeyK
:Text(-1,R,C,">
:If K=34 or K=25
:Then
:Text(-1,R,C,"
:R+8(K=34 and R48)-40(K=34 and R=4Cool-8(K=25 and RCool+40(K=25 and R=8R
:C+12not(C)-12(C=12C
:End
:6+R/8T
:LRBCLC(T
:If C=0
:Then
:+(K=26 and 5)-4(K=26 and =5)-(K=24 and 1)+4(K=24 and =1LRBCLC(T
:Text(-1,R,48,sub("NONELGHTTCH RTTNTEMP",4(LRBCLC(T)-1)+1,4
:End
:If C=12
:Then
:+(K=26 and Cool-7(K=26 and =Cool-(K=24 and 1)+7(K=24 and =1LRBCLC(T
:Text(-1,R,48,sub("RAW PLSEPCTGBOOLEDGERTTNoF oC ",4(LRBCLC(T)-1)+1,4
:End
:End
:End
:If I2 and I4
:Then
:DelVar K
:Repeat K=21 or K=25 or K=34
:getKeyK
:LRBCLC(2(I-1
:Output(I,11,sub("--FF<<>>",2(-1)+1,2
:+(K=26 and 5)-4(K=26 and =5)-(K=24 and 1)+4(K=24 and =1LRBCLC(2(I-1
:End
:Output(I,11,"
:End
:End
:Lbl ND
:ClrDraw
:ClrHome
:Output(1,1," PROgRAeD BY: THOAS DICKeRSO (EMFPRICe13) OF STICKFIgURe GRAPHIC PRODUCTIOS
:For(X,1,500
:End
:ClrHome
:Output(1,1,"SPeCIAM THAKS:
:Output(3,1," SUPeRGOOSe:
:Output(4,1,"FOR THe FMASHY STARS ROUTIe
:Output(7,1," DAVe BAU: FOR NQC
:For(X,1,500
:End
:ClrHome
:Output(1,1," SAI KHAWA: IR HARDWARe HeMP
:Output(4,1,"DAD:
:Output(5,1,"FOR THe LEGOS AD TeACHIg e HOW.
:For(X,1,500
:End
:ClrHome
:Output(1,1," GOOgMe: FOR HAVIg A gReAT SeARCH egIe.
:For(X,1,500
:End
:ClrHome
:Output(1,1,"MOST ESPeCIAMMY:THe TI COUITYFOR AMM YOUR SUPPORT!
:For(X,1,500
:End
:For(X,1,11,1
:"[Dot][Cross][Box]OXOX[Box][Cross][Dot]
:sub(Ans,X,1
:Output(4,9,Ans+Ans+Ans+Ans
:End
:ClrHome
:Output(1,1,"
<- Please Support on Lego Ideas
Ya its the xpart error and the menu is all screwed up. its missing the opening parenthases and the cases are screwed up. Also the order is some cases is messed up.

Edit: Notice post times, this was for mine Cool






Question your beliefs!
So it looks like I've got some interesting char case bugs to look into. Also xpart.
Geopipe
EDIT: please try now. I fixed all those bugs.
Geopipe
still doesn't have a <title> tag Razz
My poor little Menu's are still bereft of their left "(". Otherwise it works on my programs Smile

Edit: Oh, and there's still the matter of the xroots






Question your beliefs!
whoa..Kerm...nice job...thought u scrapped it 4 a min. there...
Free Pencil-thin Ipod!
now its missing the -> sign. and spaces.

::"RoboCalc Command Center
:AxesOff
:GridOff
:FnOff
:PlotsOff
:getKey:getKey
:SetUpEditorRBCLC
:18dim(LRBCLC
:7,5,7,5,7,5,5,8,5,8,5,8,3,2,3,2,3,2L1
:seq(LRBCLC(X)L1(X) and LRBCLC(X)1,X,1,18)L2
:SortA L2
:If L2(1)=0
:7,2,7,2,7,2,1,1,1,1,1,1,3,2,3,2,3,2LRBCLC
:DelVar L1DelVar L2
:ClrDraw
:ClrHome
:Text(-1,16,24,"RoboCalc
:Text(-1,24,6,"Command Center
:For(T,1,2
:For(X,1,11
:sub("[Dot][Box][Cross]oxox[Cross][Box][Dot] ",X,1
:Text(-1,32,18,Ans+" "+Ans+" "+Ans+Ans+" "+Ans+" "+Ans
:End
:End
:ClrDraw
:ClrHome
:1I
:Repeat 0
:Output(8,2,"System Settings
:Output(2,2,"OUTPUT A
:Output(3,2,"OUTPUT B
:Output(4,2,"OUTPUT C
:Output(1,2,"Joystick
:Output(5,2,"SENSOR 1
:Output(6,2,"SENSOR 2
:Output(7,2,"SENSOR 3
:Output(I,1,">
:DelVar K
:Repeat K=21 or K=45
:getKeyK
:If K=25 or K=34
:Output(I,1,"
:I+(K=34 and ICool-7(K=34 and I=Cool-(K=25 and I1)+7(K=25 and I=1)I
:If K=25 or K=34
:Output(I,1,">
:End
:If K=45
:Goto ND
:If I=1
:Then
:ClrDraw
:1Ymin
:63YMax
:1Xmin
:95Xmax
:Horizontal(8
:Horizontal(7
:Line(23,8,23,1
:Line(22,8,22,1
:Text(57,0,"Config
:Text(57,24,"Stop
:Line(40,8,40,1
:Line(41,8,41,1
:Text(57,42,"TglA
:Line(58,8,58,1
:Line(59,8,59,1
:Text(57,60,"TglB
:Line(76,8,76,1
:Line(77,8,77,1
:Text(57,78,"TglC
:Text(0,0,"Joystick Panel (CLEAR exits)
:Text(6,0,"Direction:
:Text(12,0,"Output A:
:Text(18,0,"Output B:
:Text(24,0,"Output C:
:Text(30,0,"Sensor 1:
:Text(36,0,"Sensor 2:
:Text(42,0,"Sensor 3:
:StorePic 1
:DelVar K
:Repeat K=45
:getKeyK
:If K=11
:Then
:ClrDraw
:Text(1,1,"Joystick Config(CLEAR exits)
:1O
:8R
:Text(-1,R,0,"-
:DelVar K
:Repeat K=45
:getKeyK
:If K=25 or K=34
:Then
:Text(-1,R,0,"
:R-8(K=25 and RCool+16(K=25 and R=Cool+8(K=34 and R24)-16(K=34 and R=24)R
:Text(-1,R,0,"-
:End
:If K=21 and R=8
:O+(O3)-2(O=3)O
:If K=21 and R=16
:Then
:LRBCLC(13+2(O-1
:+(3)-2(=3LRBCLC(13+2(O-1
:End
:If K=21 and R=24
:Then
:LRBCLC(12+2O
:+(=1)-(=2LRBCLC(12+2O
:End
:Text(-1,8,8,"Output: ",sub("ABC",O,1
:Text(-1,16,8,"Mode: ",sub("DRVSTRLGT",3(LRBCLC(13+2(O-1))-1)+1,3
:Text(-1,24,8,"Reverse? ",sub("TRUE FALSE",5(LRBCLC(12+2O)-1)+1,5
:End
:ClrDraw
:RecallPic 1
:DelVar K
:End
:End
:End
:If I5 and I7
:Then
:Repeat getKey=21
:Output(I,11,10LRBCLC(2(I-1)-1)+LRBCLC(2(I-1))
:End
:Output(I,11,"
:End
:If I=8
:Then
:ClrDraw
:Text(-1,0,0,"Settings::Outpts
:For(A,1,5,2
:Text(-1,8A,6,sub("ABC",(A+1)/2,1),":Power=",LRBCLC(A)
:End
:8R
:DelVar K
:Repeat K=21
:getKeyK
:Text(-1,R,0,">
:If K=25 or K=34
:Then
:Text(-1,R,0,"
:R+16(K=34 and R40)-32(K=34 and R=40)-16(K=25 and RCool+32(K=25 and R=8R
:End
:R/8T
:LRBCLC(T
:+(K=26 and 7)-6(K=26 and =7)-(K=24 and 1)+6(K=24 and =1LRBCLC(T
:Text(-1,R,54,LRBCLC(T
:End
:DelVar K
:ClrDraw
:For(A,1,5,2
:Text(-1,0,0,"Settings::Sensrs
:Text(-1,8A,6,(A+1)/2,":Type=",sub("NONELGHTTCH RTTNTEMP",4(LRBCLC(A+6)-1)+1,4
:Text(-1,8A+8,18,"Mode=",sub("RAW PLSEPCTGBOOLEDGERTTNoF oC ",4(LRBCLC(A+7)-1)+1,4
:End
:8R
:0C
:Repeat K=21
:getKeyK
:Text(-1,R,C,">
:If K=34 or K=25
:Then
:Text(-1,R,C,"
:R+8(K=34 and R48)-40(K=34 and R=4Cool-8(K=25 and RCool+40(K=25 and R=8R
:C+12not(C)-12(C=12C
:End
:6+R/8T
:LRBCLC(T
:If C=0
:Then
:+(K=26 and 5)-4(K=26 and =5)-(K=24 and 1)+4(K=24 and =1LRBCLC(T
:Text(-1,R,48,sub("NONELGHTTCH RTTNTEMP",4(LRBCLC(T)-1)+1,4
:End
:If C=12
:Then
:+(K=26 and Cool-7(K=26 and =Cool-(K=24 and 1)+7(K=24 and =1LRBCLC(T
:Text(-1,R,48,sub("RAW PLSEPCTGBOOLEDGERTTNoF oC ",4(LRBCLC(T)-1)+1,4
:End
:End
:End
:If I2 and I4
:Then
:DelVar K
:Repeat K=21 or K=25 or K=34
:getKeyK
:LRBCLC(2(I-1
:Output(I,11,sub("--ff<<>>",2(-1)+1,2
:+(K=26 and 5)-4(K=26 and =5)-(K=24 and 1)+4(K=24 and =1LRBCLC(2(I-1
:End
:Output(I,11,"
:End
:End
:Lbl ND
:ClrDraw
:ClrHome
:Output(1,1," Programmed by: Thomas Dickerson (ElfPrince13) Of StickFigure Graphic Productions
:For(X,1,500
:End
:ClrHome
:Output(1,1,"Special Thanks:
:Output(3,1," SuperGoose:
:Output(4,1,"For the flashy stars routine
:Output(7,1," Dave Baum: For NQC
:For(X,1,500
:End
:ClrHome
:Output(1,1," Sami Khawam: IR hardware help
:Output(4,1,"Dad:
:Output(5,1,"For the LEGOs and teaching me how.
:For(X,1,500
:End
:ClrHome
:Output(1,1," Google: For having a great search engine.
:For(X,1,500
:End
:ClrHome
:Output(1,1,"Most Especially:The TI CommunityFor all your support!
:For(X,1,500
:End
:For(X,1,11,1
:"[Dot][Cross][Box]oxox[Box][Cross][Dot]
:sub(Ans,X,1
:Output(4,9,Ans+Ans+Ans+Ans
:End
:ClrHome
:Output(1,1,"
<- Please Support on Lego Ideas
Those all work perfectly now, only thing I see is {} being omitted.
Geopipe
No they don't! You still need to fix the parenthases after Menu commands and put in the ^ instead of xroot. Here's proof:
Parsed file wrote:
Total File Size: 2080 bytes
TI-83/+/SE file

Program Data Size:2006

::"Pipe Maze 1.00
:Lbl 02
:ClrHome
:Menu"---MAIN MENU---","Random Level",01,"Created Level",99,"Quit",Q
:Lbl 01
:ClrHome
:DelVar U
:Menu"Speed","Very Slow",12,"Slow",13,"Medium",14,"Fast",15,"Rediculous",16
:Lbl 12
:U+1U
:Lbl 13
:U+1U
:Lbl 14
:U+1U
:Lbl 15
:U+1U
:Lbl 16
:U+1U
:iPart((60U)xroot((5/4)U
:DelVar Z
:Menu"Difficulty","Easy",03,"Medium",04,"Hard",05,"Professional",06
:Lbl 03
:Z+1Z
:Lbl 04
:Z+1Z
:Lbl 05
:Z+1Z
:Lbl 06
:Z+1Z
:DelVar H
:Menu"Length","Very Short",07,"Short",08,"Medium",09,"Long",10,"Endurance",11
:Lbl 07
:H+1H
:Lbl 08
:H+1H
:Lbl 09
:H+1H
:Lbl 10
:H+1H
:H+1H
:-16H+88H
:Goto 17
:Lbl 11
:96H
:Lbl 17
:ClrHome
:Output(3,1,"----------------GENERATING LEVEL----------------
:DelVar [A]
:97,15dim([A]
:For(A,1,H,Z
:1+3randInt(1,4B
:1[A](A,B
:1[A](A,B-1
:End
:Goto 98
:Lbl 99
:If [A](97,1)=0
:Goto 02
:[A](97,1H
:[A](97,2Z
:[A](97,3U
:Lbl 98
:ClrHome
:Output(8,1,"PICK GOAL
:Output(1,1," A B C D E
:2X
:DelVar K
:While K105 and K21
:Output(2,X,"xroot(
:DelVar K
:While not(K
:getKeyK
:End
:Output(2,X,"
:If K=24 and X>2
:X-3X
:If K=26 and X<13
:X+3X
:End
:X/3M
:For(B,H,8,-8
:ClrHome
:Output(1,1," 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1== 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
:Output(5,15,B
:BE
:For(D,8,1,-1
:For(A,1,13
:[A](E,A)C
:If C
:Output(D,A,"-
:End
:E-1E
:End
:For(F,1,U
:3G
:End
:End
:ClrHome
:Output(4,1," 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
:2X
:DelVar K
:While K105 and K21
:Output(3,X,"V
:DelVar K
:While not(K
:getKeyK
:End
:If K=24 or K=26
:Then
:Output(3,X,"
:If K=24 and X>1
:X-3X
:If K=26 and X<13
:X+3X
:End
:End
:For(B,1,H-7,8
:ClrHome
:Output(1,1," 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1== 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
:Output(5,15,B
:For(F,1,8
:For(E,1,13
:[A](B-1+F,EC
:If C
:Output(F,E,"-
:End
:End
:For(A,1,8
:Output(A,X,"*
:If [A](B-1+A,X-1)=1
:Then
:X-3X
:For(G,1,25
:1I
:End
:Output(A,X+2,"*
:For(G,1,25
:1I
:End
:Output(A,X+1,"*
:For(G,1,25
:1I
:End
:Output(A,X,"*
:Else
:If [A](B-1+A,X+1)=1
:Then
:X+3X
:For(G,1,25
:1I
:End
:Output(A,X-2,"*
:For(G,1,25
:1I
:End
:Output(A,X-1,"*
:For(G,1,25
:1I
:End
:Output(A,X,"*
:End
:End
:For(G,1,25
:1I
:End
:End
:End
:ClrHome
:Output(7,1," U U U U U
:Output(8,1," A B C D E
:For(A,1,7
:Output(A,X,"*
:For(G,1,25
:1I
:End
:End
:Pause
:ClrHome
:If X/3=M
:Then
:Output(1,1,"YOU ARE VICTORIOUS!!
:Else
:Output(1,1,"YOU LOSE
:End
:Pause
:Goto 02
:Lbl Q
:ClrHome
:Output(1,1,"

Complete! 1867 tokens rendered in 0.061433 seconds.
All coding and tables ©2004-2005 Kerm Martian
Token information is property of Texas Instruments, Inc. Extracted from published documentation.






Question your beliefs!
F5 my friend, I fixed those before you posted that. Smile
Geopipe
  
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
SourceCoder Beta!
» Goto page 1, 2, 3  Next
» View previous topic :: View next topic  
Page 1 of 3
» All times are UTC - 5 Hours
 
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

 

Advertisement