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