Detecting the current slot

12Me21Created: ~8 years ago

PRGNAME$() returns the name of the program in the current slot by default, and you can compare the result with PRGNAME$(SlotNumber).

DEF CURRENTSLOT()
 VAR NAME$=PRGNAME$()
 VAR SLOT%
 FOR SLOT%=0 TO 3
  IF NAME$==PRGNAME$(SLOT%) THEN RETURN I%
 NEXT
 RETURN -1
END

EDIT: there's a possibly better way using BACKTRACE and CHKCHR

~8 years agoEdited ~8 years ago by 12Me21

snail_#2

12me using suffixes??? Lol anyway this is pretty clever. I was thinking about how someone would do this recently. Only problem I can imagine is if two slots have the same name for whatever reason.

~8 years ago

12Me21 #3

I only use high quality suffixes

~8 years ago