KermMartian wrote:
Chipmaster wrote:
Sorry to stray from the topic slightly but, WHY WASN'T SC2 in the POTY Computer Category!?!
Thank you!! Posted to that effect in the poll. ticalc.org only features programs included in their archives
btw did u fixed that CS2 2 byte truncation bug? because I noticed that most program I parsae get truncated at the end. For example here is XXR code from TI-Graph Link (its in french but you have an idea of what is it anyway):
Quote:
Asm(prgmZCALCVER
RepüC
If C=0 et (partD–c(L?(1))=.1 ou .3=partD–c(L?(1:Then:EffEcr:Output(1,1,"ERROR: THIS LEVEL IS NOT COMPATIBLE WITH THE REGULAR 83+!
Stop:End
7üdim(L‚
24üL‚(1:34üL‚(2:25üL‚(3:26üL‚(4:1üL‚(5:If L‚(6)ø5 et L‚(6)ø6:6üL‚(6:If L‚(7)ø1 et 0øL‚(7:0üL‚(7
partEnt(L?(1üS
AxesNAff:PleinEcr:Flottant:Normal:EffDessin:AffGraph
While 1
L‚(6üD
L‚(7üE
0üH
100üP
9üÃ
0üV
r–el(7,0
2üT
0codeTouch(:Repeat W=54
Repeat W=54 ou T=4 ou T=8
r–el(3,3,3,1
r–el(3,3,3,0
r–el(8:RepüW
r–el(4,0,1+(C=0),0
T+1+(C=0üT
End
If T=4:entAl–at(0,3üZ:If T=8:Then:0üT
r–el(1,16entAl–at(0,5),48,2,16,1,2Z,0,3,0,0:End
End
For(Z,1,6,.25+.25(C=0
partEnt(ZüT
r–el(4,0,T+T(C=0),0
r–el(3,3,3,1
r–el(3,3,3,0
End
r–el(3,3,0,0
For(Z,1,3+.1(Cø0),.1+.1(C=0
partEnt(ZüT
r–el(4,1,T+T(C=0),1
End
For(W,.2,.4,.2
For(Z,3,1,úW-W(C=0:partEnt(ZüT:r–el(4,0,T+T(C=0),1
End
For(Z,1,3,W+W(C=0:partEnt(ZüT:r–el(4,1,T+T(C=0),1
End
End
If non(C:r–el(4,1,4,1
r–el(1,0,63,12,1,3,0,32,3,0,0
For(Z,1+(C=0),24,1+1(C=0
r–el(1,0,0,12,Z,1,0,56-Z,0,0,1
End
0üT
r–el(1,0,12,12,7,1,0,16,3,0,0
Texte(12,70,sous-Cha ne("BEFOREAFTER ",6D-29,6
r–el(1,0,12,12,7,1,0,16,3,0,0
r–el(1,0,6,12,7,1,0,16,3,0,0
Texte(6,50,sous-Cha ne("EASYHARD",4E+1,4
r–el(1,0,6,12,7,1,0,16,3,0,0
Repeat Z=54 ou Z=55
r–el(8:RepüZ
r–el(1,0,T,12,7,1,0,16,3,0,1
If Rep=54:Then:If T=12:Then
D+1üD:If D=7:5üD
If D=5:Texte(12,70,"BEFORE
If D=6:Texte(12,70,"AFTER
0üZ:End
If T=6:Then:E=0üE:If E=1:Texte(6,50,"HARD
If E=0:Texte(6,50,"EASY
0üZ:End
End
r–el(1,0,T,12,7,1,0,16,3,0,0
If Z=4:Then:If T<6:Then:18üT:Else:If Cø0:Then:r–el(1,0,T-3,12,7,1,0,16,3,0,1
r–el(1,0,T-3,12,7,1,0,16,3,0,0
End:T-6üT:End:End
If Z=1:Then:If T>12:Then:0üT:Else:If Cø0:Then:r–el(1,0,T+3,12,7,1,0,16,3,0,1
r–el(1,0,T+3,12,7,1,0,16,3,0,0
End:T+6üT:End:End
End
For(W,0,88,8+8(C=0
r–el(1,W,0,1+(C=0),63,4,0,0,1,0,0
r–el(1,88-8(C=0)-W,0,1+(C=0),63,4,2,0,1,0,1
End
DüL‚(6:EüL‚(7
If Z=55 ou T=18:Then:Output(1,1,"
Return:End
5üF
0üU
longueur(Cha ne1üX:If X>16:16üX
For(T,0,6,1+(C=0
For(Z,1,X
Texte(ú1,27,T(Z-1),sous-Cha ne(Cha ne1,Z,1
End
End
Texte(ú1,27,0,Cha ne1
For(Z,30,ú34,ú2
For(T,0,Z,1+(C=0:End
r–el(4,0,1+(C=0),1
End
For(Z,1+(C=0),24,1+1(C=0
r–el(1,0,0,12,Z,2,0,24-Z,0,0,1
End
For(Z,0,100+100(Cø0:End
If partD–c(L?(1))=.1 ou non(partD–c(L?(1:Then:.2+L?(1üL?(1
For(R,5,8
r–el(3,R,0,0
r–el(1,0,0,12,24,2+7(R=6 ou R=
,0,0,2,0,0
r–el(1,0,0,12,24,2+7(R=6 ou R=
,0,24,1,0,1
If R=5:SauveImage 5:If R=6:SauveImage 6:If R=7:SauveImage 7:If R=8:SauveImage 8
End:End
r–el(0
Texte(ú1,27,30,"READY
For(R,5,8
r–el(3,R,3,1
For(T,0,100+100(Cø0:End
r–el(3,R,3,0
End
Texte(ú1,27,15,"HERE WE GO!
For(R,5,8
r–el(3,R,3,1
For(T,0,100+100(Cø0:End
r–el(3,R,3,0
End
0üZ
(dim(L?)<200)+2(dim(L?)<100üK
If C=0 ou partD–c(L?(1))=.3:Then
Repeat Z=22 ou P<1 ou U>K
Texte(ú1,0,66,P
Texte(7,67,V
codeTouch(üZ:r–el(1,16L?(Ã),48,2,16,1,2L?(Ã),0,3,0,0
r–el(3,F,3,1
For(T,0,S:End
L‚(1+L?(Ã-D
If Z=Rep:Then
V+1üV
If V>H:VüH
P+8+2VüP
Else
If Repø1 ou (E=1 et (Z=34 ou (Zù24 et Z÷26:Then:0üV:r–el(1,70,32,3,8,1,0,24,3,0,0
-4-ÃüP:End
End
r–el(3,F,3,0
F+1üF:If F=9:5üF
r–el(4,0,8,0
Ã+1üÃ
If Ã=dim(L?:Then:U+1üU:9üÃ:End
For(T,0,S:End
End
Else
Repeat Z=22 ou P<1 ou U>K
If non(partD–c(Ã:Then
Texte(ú1,0,66,P
Texte(7,67,V
codeTouch(üZ:r–el(1,16L?(Ã),48,2,16,1,2L?(Ã),0,3,0,0
r–el(3,F,3,1
End
For(T,0,S:End
If non(partD–c(Ã:Then
L‚(1+L?(Ã-D
If Z=Rep:Then
V+1üV
If V>H:VüH
P+8+2VüP
Else
If Repø1 ou (E=1 et (Z=34 ou (Zù24 et Z÷26:Then:0üV:r–el(1,70,32,3,8,1,0,24,3,0,0
-4-ÃüP:End
End
r–el(3,F,3,0
F+1üF:If F=9:5üF
r–el(4,0,8,0:End
Ã+.5üÃ
If Ã=dim(L?:Then:U+1üU:9üÃ:End
For(T,0,20+1.8S:End
End
End
If Z=22:Then:r–el(3,F,3,0:For(T,0,88,8+8(C=0
r–el(1,T,0,1+(C=0),63,4,0,0,1,0,0
r–el(1,88-8(C=0)-T,0,1+(C=0),63,4,2,0,1,0,1
End
Else:If P>0:Then:Texte(ú1,19,0,"CLEARED!"
Texte(26,0,"SCORE:",P,"!
Texte(32,0,"MAX COMBO:",H
Else
Texte(ú1,24,25,"FAILED!
End
Repeat Z=54:r–el(3,F,3,1:r–el(3,F,3,0:F+1üF:If F>8:5üF
For(T,0,15+15(Cø0:r–el(8:If Rep=54 ou Rep=55:54üZ:End
End
r–el(3,F,3,0
For(T,0,88,8+8(C=0
r–el(1,T,0,1+(C=0),63,4,0,0,1,0,0
r–el(1,88-8(C=0)-T,0,1+(C=0),63,4,2,0,1,0,1
End
End
End
and here is the SC2 version:
BASIC Code wrote:
:Asm(prgmZCALCVER
:Ans→C
:If C=0 and (fPart(L
1(1))=.1 or .3=fPart(L
1(1:Then:ClrHome:Output(1,1,"ERROR: THIS LEVEL IS NOT COMPATIBLE WITH THE REGULAR 83+!
:Stop:End
:7→dim(L
2
:24→L
2(1:34→L
2(2:25→L
2(3:26→L
2(4:1→L
2(5:If L
2(6)≠5 and L
2(6)≠6:6→L
2(6:If L
2(7)≠1 and 0≠L
2(7:0→L
2(7
:int(L
1(1→S
:AxesOff:Full:Float:Normal:ClrDraw:DispGraph
:While 1
:L
2(6→D
:L
2(7→E
:0→H
:100→P
:9→θ
:0→V
:real(7,0
:2→T
:0getKey:Repeat W=54
:Repeat W=54 or T=4 or T=8
:real(3,3,3,1
:real(3,3,3,0
:real(8:Ans→W
:real(4,0,1+(C=0),0
:T+1+(C=0→T
:End
:If T=4:randInt(0,3→Z:If T=8:Then:0→T
:real(1,16randInt(0,5),48,2,16,1,2Z,0,3,0,0:End
:End
:For(Z,1,6,.25+.25(C=0
:int(Z→T
:real(4,0,T+T(C=0),0
:real(3,3,3,1
:real(3,3,3,0
:End
:real(3,3,0,0
:For(Z,1,3+.1(C≠0),.1+.1(C=0
:int(Z→T
:real(4,1,T+T(C=0),1
:End
:For(W,.2,.4,.2
:For(Z,3,1,‾W-W(C=0:int(Z→T:real(4,0,T+T(C=0),1
:End
:For(Z,1,3,W+W(C=0:int(Z→T:real(4,1,T+T(C=0),1
:End
:End
:If not(C:real(4,1,4,1
:real(1,0,63,12,1,3,0,32,3,0,0
:For(Z,1+(C=0),24,1+1(C=0
:real(1,0,0,12,Z,1,0,56-Z,0,0,1
:End
:0→T
:real(1,0,12,12,7,1,0,16,3,0,0
:Text(12,70,sub("BEFOREAFTER ",6D-29,6
:real(1,0,12,12,7,1,0,16,3,0,0
:real(1,0,6,12,7,1,0,16,3,0,0
:Text(6,50,sub("EASYHARD",4E+1,4
:real(1,0,6,12,7,1,0,16,3,0,0
:Repeat Z=54 or Z=55
:real(8:Ans→Z
:real(1,0,T,12,7,1,0,16,3,0,1
:If Ans=54:Then:If T=12:Then
+1→D:If D=7:5→D
:If D=5:Text(12,70,"BEFORE
:If D=6:Text(12,70,"AFTER
:0→Z:End
:If T=6:Then:E=0→E:If E=1:Text(6,50,"HARD
:If E=0:Text(6,50,"EASY
:0→Z:End
:End
:real(1,0,T,12,7,1,0,16,3,0,0
:If Z=4:Then:If T<6:Then:18→T:Else:If C≠0:Then:real(1,0,T-3,12,7,1,0,16,3,0,1
:real(1,0,T-3,12,7,1,0,16,3,0,0
:End:T-6→T:End:End
:If Z=1:Then:If T>12:Then:0→T:Else:If C≠0:Then:real(1,0,T+3,12,7,1,0,16,3,0,1
:real(1,0,T+3,12,7,1,0,16,3,0,0
:End:T+6→T:End:End
:End
:For(W,0,88,8+8(C=0
:real(1,W,0,1+(C=0),63,4,0,0,1,0,0
:real(1,88-8(C=0)-W,0,1+(C=0),63,4,2,0,1,0,1
:End
→L
2(6:E→L
2(7
:If Z=55 or T=18:Then:Output(1,1,"
:Return:End
:5→F
:0→U
:length(Str1→X:If X>16:16→X
:For(T,0,6,1+(C=0
:For(Z,1,X
:Text(‾1,27,T(Z-1),sub(Str1,Z,1
:End
:End
:Text(‾1,27,0,Str1
:For(Z,30,‾34,‾2
:For(T,0,Z,1+(C=0:End
:real(4,0,1+(C=0),1
:End
:For(Z,1+(C=0),24,1+1(C=0
:real(1,0,0,12,Z,2,0,24-Z,0,0,1
:End
:For(Z,0,100+100(C≠0:End
:If fPart(L
1(1))=.1 or not(fPart(L
1(1:Then:.2+L
1(1→L
1(1
:For(R,5,8
:real(3,R,0,0
:real(1,0,0,12,24,2+7(R=6 or R=
,0,0,2,0,0
:real(1,0,0,12,24,2+7(R=6 or R=
,0,24,1,0,1
:If R=5:StorePic 5:If R=6:StorePic 6:If R=7:StorePic 7:If R=8:StorePic 8
:End:End
:real(0
:Text(‾1,27,30,"READY
:For(R,5,8
:real(3,R,3,1
:For(T,0,100+100(C≠0:End
:real(3,R,3,0
:End
:Text(‾1,27,15,"HERE WE GO!
:For(R,5,8
:real(3,R,3,1
:For(T,0,100+100(C≠0:End
:real(3,R,3,0
:End
:0→Z
:(dim(L
1)<200)+2(dim(L
1)<100→K
:If C=0 or fPart(L
1(1))=.3:Then
:Repeat Z=22 or P<1 or U>K
:Text(‾1,0,66,P
:Text(7,67,V
:getKey→Z:real(1,16L
1(θ),48,2,16,1,2L
1(θ),0,3,0,0
:real(3,F,3,1
:For(T,0,S:End
:L
2(1+L
1(θ-D
:If Z=Ans:Then
:V+1→V
:If V>H:V→H
+8+2V→P
:Else
:If Ans≠1 or (E=1 and (Z=34 or (Z≥24 and Z≤26:Then:0→V:real(1,70,32,3,8,1,0,24,3,0,0
-4-θ→P:End
:End
:real(3,F,3,0
:F+1→F:If F=9:5→F
:real(4,0,8,0
:θ+1→θ
:If θ=dim(L
1:Then:U+1→U:9→θ:End
:For(T,0,S:End
:End
:Else
:Repeat Z=22 or P<1 or U>K
:If not(fPart(θ:Then
:Text(‾1,0,66,P
:Text(7,67,V
:getKey→Z:real(1,16L
1(θ),48,2,16,1,2L
1(θ),0,3,0,0
:real(3,F,3,1
:End
:For(T,0,S:End
:If not(fPart(θ:Then
:L
2(1+L
1(θ-D
:If Z=Ans:Then
:V+1→V
:If V>H:V→H
+8+2V→P
:Else
:If Ans≠1 or (E=1 and (Z=34 or (Z≥24 and Z≤26:Then:0→V:real(1,70,32,3,8,1,0,24,3,0,0
-4-θ→P:End
:End
:real(3,F,3,0
:F+1→F:If F=9:5→F
:real(4,0,8,0:End
:θ+.5→θ
:If θ=dim(L
1:Then:U+1→U:9→θ:End
:For(T,0,20+1.8S:End
:End
:End
:If Z=22:Then:real(3,F,3,0:For(T,0,88,8+8(C=0
:real(1,T,0,1+(C=0),63,4,0,0,1,0,0
:real(1,88-8(C=0)-T,0,1+(C=0),63,4,2,0,1,0,1
:End
:Else:If P>0:Then:Text(‾1,19,0,"CLEARED!"
:Text(26,0,"SCORE:",P,"!
:Text(32,0,"MAX COMBO:",H
:Else
:Text(‾1,24,25,"FAILED!
:End
:Repeat Z=54:real(3,F,3,1:real(3,F,3,0:F+1→F:If F>8:5→F
:For(T,0,15+15(C≠0:real(8:If Ans=54 or Ans=55:54→Z:End
:End
:real(3,F,3,0
:For(T,0,88,8+8(C=0
:real(1,T,0,1+(C=0),63,4,0,0,1,0,0
:real(1,88-8(C=0)-T,0,1+(C=0),63,4,2,0,1,0,1
:End
:
Generated by
SourceCoder, © 2005
Cemetech look carefully at the end: some lines are missing, you should look into that