CompuServe Messages

MENU 5,0,1,"Test" MENU 5,1,1,"Hit me" MENU 5,2,2," Hi" MENU 5,3,1,"Finish" ON MENU GOSUB CheckMenu MENU ON toggle = 1 WHILE 1<>2 SLEEP WEND STOP CheckMenu: menuid = MENU(0) menuitem = MENU(1) IF menuitem = 3 THEN MENU OFF MENU RESET STOP END IF IF menuitem = 2 THEN PRINT "Hi there!" IF menuitem = 1 THEN MENU 5,2,2-toggle toggle = 1-toggle PRINT "you toggled me" END IF RETURN