Still hate programming

Still hate programming
Code: Select all
MAINID ,our_aeshandle ,mess(3) ,e
0 1 0 0
Code: Select all
MAINID ,our_aeshandle ,mess(3) ,e
0 1 1 16
Code: Select all
if mess(3)=our_aeshandle
Code: Select all
IF mes_type>=WM_TOPPED AND mes_type<=WM_MOVED THEN
IF mess(3)<>our_aeshandle THEN EXIT SUB 'its not our window
END IF
SELECT CASE mes_type
CASE MN_SELECTED:
' its a menu
Code: Select all
MAX_PROGS=PEEKW(PEEKL(GB+4)+2
Code: Select all
IF max_progs>1 THEN
IF GETCOOKIE("MagX",dum&) THEN cookie_tasking$="MagiC Multitasking O/S" : EXIT FUNCTION
IF GETCOOKIE("Gnva",dum&) THEN cookie_tasking$="Geneva Multitasking O/S" : EXIT FUNCTION
IF GETCOOKIE("MINT",dum&) THEN cookie_tasking$="MultiTOS O/S (MINT)" : EXIT FUNCTION
ELSE
cookie_tasking$="Standard TOS Single tasking"
END IF
ah yep. So no idea about why that errors then. I will just remove that function and not bother with it.