0 Members and 2 Guests are viewing this topic.
"L₁"→Str1
[015D]→Str1"NAME"[00]
.Write a series of 2-byte values to an OS list (Pointer to name, number of elements, pointer to list of 2-byte values)Lbl OSL GetCalc(r₁,r₂*9)→r₄ r₂→{r₄-2}ʳ For(r₅,0,r₂-1) {r₅*2+r₃}ʳ→float{r₅*9+r₄} EndReturn
..INNUMBER"Your text here->Str9.(following is not necessary).sub(IN).returnLbl INDiagnosticOffClrHomeStr9->A"+-*/^C -369)TV .258(CPS0147,SALO>LL[X2][X-1]MA->Str4Text(2,0,A)0->KWhile K=0getKey->KEndText(8,6,{Str4+K-10}>Char)0->LWhile L=0getKey->LEndText(12,6,{Str4+L-10}>Char0->MWhile M=0getKey->MEndText(16,6,{Str4+M-10}>Char{Str4+K-10}->X{Str4+L-10}->Y{Str4+M-10}->ZPause 2000ClrHome0->K
Use Repeat K instead of While K.
I challenge anyone to find a single optimization in this code or produce a smaller library of their own (/me waits for Quigibo to make it way more compact than anyone thought possible)
Nice routine
..INNUMBER"Your text here->Str9.(following is not necessary).sub(IN).returnLbl INDiagnosticOffClrHomeStr9->A"+-*/^C -369)TV .258(CPS0147,SALO>LL[X2][X-1]MA->Str4Text(2,0,A)0->Krepeat getKey->KEndText(8,6,{Str4+K-10}>Char)0->LWhile L=0getKey->LEndText(12,6,{Str4+L-10}>Char0->MWhile M=0getKey->MEndText(16,6,{Str4+M-10}>Char{Str4+K-10}->X{Str4+L-10}->Y{Str4+M-10}->ZX-48*10+Y-48*10+Z-48->XPause 2000ClrHome0->K