How to unpack a Function by example

[B+]

input "Enter a string to insert dots ";insertThis$
print "Here it is from the function: ";insertDotBetweenEveryCharacter$(insertThis$)
print "Here it is from the function unpacked into main code: ";

'unpack function into main code block(s)
insertMe$ = insertThis$ '<<<<<<<<<<<<<<<<<<<<<< give parameters starting values
[startLoop]
i = i + 1
if i > len(insertMe$) then 'remove last _
   'exit function 'done
   goto [exitLoop] '<<<<<<<<<<<<<<<<<<<<<<<<<< instead of exit function, exit the code block that is from function
else
   if i = 1 then
       insert.BetweenEveryCharacter$ = mid$(insertMe$, i, 1)  ' <<< change name from function's name so no name conflict
   else
       insert.BetweenEveryCharacter$ = insert.BetweenEveryCharacter$;".";mid$(insertMe$, i, 1) ' ditto above comment
   end if
end if
goto [startLoop]
[exitLoop]
print insert.BetweenEveryCharacter$

'Here is a sample function to unpack (without any loop structure other than GOTO)
function insertDotBetweenEveryCharacter$(insertMe$)
[startLoop]
i = i + 1
if i > len(insertMe$) then
   exit function 'done
else
   if i = 1 then 'first character doesn't get a dot
       insertDotBetweenEveryCharacter$ = mid$(insertMe$, i, 1)
   else
       insertDotBetweenEveryCharacter$ = insertDotBetweenEveryCharacter$;".";mid$(insertMe$, i, 1)
   end if
end if
goto [startLoop]
end function


Oh hey! no label name conflicts, label names inside functions stay inside the function and can use same label name in main code without conflict.

Unpacking Functions is kind of silly but you can use just the reverse of this process to take main code block(s) to pack into a Function and that is smart!

[tsh73]

Ow.
Reversing things that kind of silly is smart.
Sounds very mathy for me.
I need a badge with that.

[B+]

The Internet has got everything!

www.google.com/search?hs=ha5&sxsrf=ACYBGNTCwmFQvJLH2hl_U38UNhwU72F6Lg:1580838430894&q=badges+for+math+genius&tbm=isch&source=univ&client=opera&sa=X&ved=2ahUKEwj0lPuIurjnAhXPKM0KHRR8DSMQsAR6BAgKEAE&biw=1297&bih=667

Is there a badge for the Internet? Sure: 

www.google.com/search?hs=9IQ&sxsrf=ACYBGNQWwjKNC0NFkkdXyz96p5DkMnjxgA:1580838620974&q=badges+for+Internet+genius&tbm=isch&source=univ&client=opera&sa=X&ved=2ahUKEwib5szjurjnAhWWbs0KHYKADrUQ7Al6BAgKEBk&biw=1297&bih=667

[casco]

Unpacking Functions is kind of silly but you can use just the reverse of this process to take main code block(s) to pack into a Function and that is smart!

Meow, B+, is it ok to stick with the old-fashioned way?

input "enter string: "; a$
input "enter single-character delimiter: "; d$

for i=1 to len(a$)
  ad$=ad$+mid$(a$,i,1)+d$
next i

print left$(ad$,len(ad$)-1)
end

loops

[B+]

Woof! casco, What's more old fashioned than GOTO! ;-))

The original post was responding to a student rejecting code demos in functions wanting something done in main only (I guess). So this was attempt (maybe d.u.m.b but es task was to insert commas between every 3) to show how easy it is to take a function and main stream it, so to speak.

Another part of students assignment was to not use a FOR... NEXT Loop or any loop structure??? So I was showing how GOTO provides loop functionality without a formal loop structure like FOR, WHILE, DO, REPEAT and whatever else is out there. Probably went over everyone's head, oh well... I had fun. ;-))

[tsh73]

is it ok to stick with the old-fashioned way?

Line numbers! You forgot line numbers!
And program used to be IN ALL CAPS.
And - string variables used to be single-character only.



(it was ZxSpectrom online emulator.
Man, I stuck to keyboard Graph mode and hardly escaped alive!)

[casco]

Feb 6, 2020 16:57:25 GMT tsh73 said:

is it ok to stick with the old-fashioned way?

Line numbers! You forgot line numbers!
And program used to be IN ALL CAPS.
And - string variables used to be single-character only.

Sorry to say I'm not overall familiar with the Sumerian period. That's a remarkable clay fragment though.

[casco]

Feb 6, 2020 13:53:47 GMT B+ said:

Woof! casco, What's more old fashioned than GOTO! ;-))

The original post was responding to a student rejecting code demos in functions wanting something done in main only (I guess). So this was attempt (maybe d.u.m.b but es task was to insert commas between every 3) to show how easy it is to take a function and main stream it, so to speak.

Another part of students assignment was to not use a FOR... NEXT Loop or any loop structure??? So I was showing how GOTO provides loop functionality without a formal loop structure like FOR, WHILE, DO, REPEAT and whatever else is out there. Probably went over everyone's head, oh well... I had fun. ;-))

Oh, I missed that post!