This is a program which is designed to assist you in debugging Multitasker programs by running only one at once. Please ot that this is a beta version, and thus may be unstable.
To install:Copy the text below the line into the "body" portion of a new memo in Palm Desktop. Then HotSync your device to install the software. To run it, simply locate the "MultiTester.bas" program in yBasic and run it.
Program begins below
#multitester.bas rem Multitasker testing program by Nathan Whitmore rem This is a BETA, use at your own risk rem specify the file at the end of the program input "Enter app ID number", idn input "Enter active ID number", screen input "enter timeout", tout runmain=1 if idn=1 then gosub init1 if idn=2 then gosub init2 if idn=3 then gosub init3 if idn=4 then gosub init4 if idn=5 then gosub init5 if idn=6 then gosub init6 if idn=7 then gosub init7 if idn=8 then gosub init8 if idn=9 then gosub init9 if idn=10 then gosub init10 loopermain: if runmain=1 oldtimemain=timer if screen=idn if idn=1 then gosub grun1 if idn=2 then gosub grun2 if idn=3 then gosub grun3 if idn=4 then gosub grun4 if idn=5 then gosub grun5 if idn=6 then gosub grun6 if idn=7 then gosub grun7 if idn=8 then gosub grun8 if idn=9 then gosub grun9 if idn=10 then gosub grun10 endif if screen>idn if idn=1 then gosub qrun1 if idn=2 then gosub qrun2 if idn=3 then gosub qrun3 if idn=4 then gosub qrun4 if idn=5 then gosub qrun5 if idn=6 then gosub qrun6 if idn=7 then gosub qrun7 if idn=8 then gosub qrun8 if idn=9 then gosub qrun9 if idn=10 then gosub qrun10 endif
if screenif idn=1 then gosub qrun1 if idn=2 then gosub qrun2 if idn=3 then gosub qrun3 if idn=4 then gosub qrun4 if idn=5 then gosub qrun5 if idn=6 then gosub qrun6 if idn=7 then gosub qrun7 if idn=8 then gosub qrun8 if idn=9 then gosub qrun9 if idn=10 then gosub qrun10 endif lastmain=oldtimemain-timer if lastmain>tout then runmain=0 refreshdata=0 if winrequest(idn)=1 winrequest(idn)=0 draw "Window requested",1,20 fn wait(0.5) refreshdata=1 endif if closemywindow(idn)=1 closemywindow(idn)=0 draw "Window close requested",1,20 fn wait(0.5) refreshdata=1 endif
endif goto loopermain
sub quietibrate draw "Quiet ibrate requested",1,20 fn wait(0.5) return
sub nosiyibrate draw "Noisy vibrate requested",1,20 fn wait(0.5) return
rem Specify filename here\/
#include <#insertfilenamehere.bas>
