Make your own free website on Tripod.com

MultiTester 1.0


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>