Stuff

:DCS
"555035555555555555E32355555555555032323055555555E3323333555555553232333335555555E323333323055555503333323235555555E333223233555555503233233055555555E3223355555555555E3330555555555555B3555555555555555555555555555555555555555555555555555555555555555555555555
If 80>det([[20:Then:Disp "Get Doors CSE to run this:","http://dcs.cemetech.net":Return:End
3→dim(⌊SBSET
If (⌊SBSET(1)≠11 and ⌊SBSET(1)≠14) or (⌊SBSET(2)≠11 and ⌊SBSET(2)≠14) or (⌊SBSET(3)≠11 and ⌊SBSET(3)≠14):Fill(14,⌊SBSET
Lbl 1
Menu("ACTION?","CONVERT",C,"SETINGS",SE,"CANCEL",CA
Lbl SE
0→Xmin:0→Ymin:160→Xmax:120→Ymax
ClrDraw
BackgroundOn WHITE
TextColor(BLACK
Text(­1,20,15,"SUPER BASIC SETTINGS"
Text(70,102,"1.COMMANDS
Text(90,104,"2.PREFIXES
Text(110,117,"3.KEYS
TextColor(ORANGE
Text(­1,140,60,"CLEAR TO EXIT
"▫
TextColor(⌊SBSET(1)
Text(68,92,Ans
TextColor(⌊SBSET(2)
Text(88,94,Ans
TextColor(⌊SBSET(3)
Text(108,107,Ans
0→K
While K≠45
getKey→K
If max(K={92,93,94:Then
If K=92:Then
If ⌊SBSET(1)=11:Then
14→⌊SBSET(1)
Else
11→⌊SBSET(1)
End
TextColor(⌊SBSET(1)
Text(68,92,"▫
End
If K=93:Then
If ⌊SBSET(2)=11:Then
14→⌊SBSET(2)
Else
11→⌊SBSET(2)
End
TextColor(⌊SBSET(2)
Text(88,94,"▫
End
If K=94:Then
If ⌊SBSET(3)=11:Then
14→⌊SBSET(3)
Else
11→⌊SBSET(3)
End
TextColor(⌊SBSET(3)
Text(108,107,"▫
End
0→K
End:End
Goto 1
Lbl C
ClrHome
Disp "Use rowSwap( for AppVars"
Input "READ: ",Str1
Str1→Str0
1:det(0
If sub(Str9,1,1)="":Then
1→H
length(Str9)-1→E
sub(Str9,2,E)→Str2
Else
0→H
Disp "NO WRITE TITLE SPECIFIED.","WRITING TO '1CONV'.
"1CONV"→Str2
End
Str2→Str0
1:det(0
If Str9≠"..P:NT:FN":Menu(Str2+" ALREADY EXISTS","CANCEL",CA,"ADD ON",CO,"OVERWRITE",OW
Lbl OW
det(6
Lbl CO
If Str9≠"..P:NT:FN":Then
1:det(2
End
Str1→Str0
1:det(0
If Str9="..P:NT:FN":Then
Disp "COULDN'T FIND READ PROGRAM
Pause
Stop
End
If Str1=Str2:Then
Disp "NAMES CAN NOT BE THE SAME!
Pause
Stop
End
startTmr→T
Disp "CONVERTING...","Depending on the size of","the file, this could","take a while.
Str2→Str0
det(4
1→V
If H=1:2→V
det(3
Str9→Str3
Str1→Str0
0:det(0
For(A,V,θ,1)
Str1→Str0
A:det(0
If ⌊SBSET(1)=14:Then
If Str9="/P":"Pause "→Str9
If Str9="/I":"real(0,3,2"→Str9
If Str9="/CD":"ClrDraw"→Str9
If Str9="/CH":"ClrHome"→Str9
End
If ⌊SBSET(2)=14:Then
length(Str9)→E
If sub(Str9,1,1)="*":"Disp "+sub(Str9,2,E-1)→Str9
End
If length(Str9)>2:Then
If ⌊SBSET(2)=14:Then
If sub(Str9,1,1)=".":"real("+sub(Str9,2,E-1)→Str9
If sub(Str9,2,1)="­":sub(Str9,1,1)+":det("+sub(Str9,3,E-2)→Str9
End
If ⌊SBSET(1)=14:Then
If sub(Str9,1,2)="/K":"getKey"+sub(Str3,1,1)+sub(Str9,3,E-2)→Str9
If sub(Str9,1,2)="/L":"Lbl "+sub(Str9,3,E-2)→Str9
If sub(Str9,1,2)="/G":"Goto "+sub(Str9,3,E-2)→Str9
If sub(Str9,1,2)="//":sub(Str9,3,1)+sub(Str9,4,1)+"1"+sub(Str3,1,1)+sub(Str9,3,1)→Str3
End
If ⌊SBSET(3)=14:Then
If inString(Str9,")A"):Then
length(Str9)→E
inString(Str9,")A"→F
sub(Str9,1,F-1)+"Ans"+sub(Str9,F+2,E-F-1)→Str9
End
If inString(Str9,")RS"):Then
length(Str9)→E
inString(Str9,")RS")→F
sub(Str9,1,F-1)+"rowSwap("+sub(Str9,F+3,E-F-2)→Str9
End
If inString(Str9,")>"):Then
length(Str9)→E
inString(Str9,")>")→F
sub(Str9,1,F-1)+""+sub(Str9,F+2,E-F-1)→Str9
End
If inString(Str9,")L"):Then
length(Str9)→E
inString(Str9,")L")→F
sub(Str9,1,F-1)+"⌊"+sub(Str9,F+2,E-F-1)→Str9
End
If inString(Str9,")("):Then
length(Str9)→E
inString(Str9,")(")→F
expr(sub(Str9,F+2,1))+1→G
sub(Str9,1,F-1)+sub("Str0Str1Str2Str3Str4Str5Str6Str7Str8Str9",G,1)+sub(Str9,F+3,E-F-2)→Str9
DelVar G
End:End:End
If Str9="real(.NULLSTR" or Str9="..NULLSTR":""→Str9
Str2→Str0
A:det(2
End
If H=1:Then
1:det(7
Else
θ+1:det(7
End
Disp "DONE!","SECONDS TAKEN:"
Disp checkTmr(T
Pause
DelVar Str0:DelVar Str9:DelVar Str1:DelVar Str2:DelVar Str9:DelVar Str3:DelVar T
Lbl CA
Stop