0 Members and 3 Guests are viewing this topic.
Load() .Start at beginning of VATWhile 1 .Start loopIf dim()=5 .If this VAT entry is a program.The next line is a little hacky and will not work in versions lower than 1.2.1.This manually sets up Y₀ to be used to access this variable(dim()ʳʳ→{°Y₀+2}??dim()ʳ,dim()ʳ-16384)→{°Y₀}ʳ.Here you perform whatever checks to see if the variable fits your pattern and act accordinglyEndEnd!If Next() .Continue loop if there are more VAT entries to process
:"A"→Str1 :length(Str1)→L :If GetCalc("prgmASDF",L)→A :Copy(Str1,A,L) :Else :Disp "Creation error" :End
:getcalc("str1"-->A :length(A)→L :If GetCalc("prgmASDF",L)→B :Copy(A,B,L) :Else :Disp "Creation error" :End
getcalc("str1"-->A length(A)→L If GetCalc("prgmASDF",L-1)→B Copy(A,B,L-1) Else Disp "Creation error" End
:GetCalc("Str1")→A:{A-2}ʳ→L:If GetCalc("prgmASDF",L)→B:Copy(A,B,L):Else:Disp "Creation error":End