15 lines
245 B
Text
15 lines
245 B
Text
"FEE FIE"→Str1
|
|
"HUFF AND PUFF"→Str2
|
|
"MIRROR MIRROR"→Str3
|
|
"TICK TOCK"→Str4
|
|
For(I,1,4)
|
|
Disp I▶Hex+3,":",strGet(Str1,I-1),i
|
|
End
|
|
Disp "NUMBER? "
|
|
input→A
|
|
{A}-'0'→N
|
|
If N<1 or N>4
|
|
Disp "BAD NUMBER",i
|
|
Return
|
|
End
|
|
Disp strGet(Str1,N-1),i
|