1724 lines
47 KiB
HolyC
Executable File
1724 lines
47 KiB
HolyC
Executable File
I64 ts_i;
|
||
F64 ts_t0;
|
||
|
||
U0 TS(U8 *desc)
|
||
{//We must set these because an app can call $LK,"ProgressBarsRst",A="MN:ProgressBarsRst"$.
|
||
U8 *st=MStrPrint("%d. %s",ts_i,desc);
|
||
if (*desc)
|
||
progress3_max=1;
|
||
else
|
||
progress3_max=0;
|
||
StrPrint(progress3_desc,"%*hc%s",
|
||
(PROGRESS_DESC_LEN-StrLen(st))>>1,CH_SPACE,st);
|
||
Free(st);
|
||
progress4=ts_i++;
|
||
progress4_max=171;
|
||
progress4_t0=ts_t0;
|
||
*progress4_desc=0;
|
||
RegExe("TempleOS/OSTestSuite");
|
||
}
|
||
|
||
U0 TSFile(U8 *name,I64 mS=750)
|
||
{
|
||
CTask *task=User("#include \"%s\";Sleep(%d);\n",name,mS);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 TSFileChar(U8 *name,I64 mS=750,I64 ch=CH_SPACE,Bool wait=TRUE)
|
||
{
|
||
CTask *task=User;
|
||
if (wait)
|
||
XTalkWait(task,"#include \"%s\";\n",name);
|
||
else
|
||
XTalk(task,"#include \"%s\";\n",name);
|
||
Sleep(mS);
|
||
if (ch)
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,ch,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
/*
|
||
U0 DoMouseDemo()
|
||
{
|
||
XTalkWait(task,"#include \"::/Demo/Graphics/MouseDemo\";\n");
|
||
}
|
||
U0 DoPullDownMenu()
|
||
{
|
||
XTalkWait(task,"#include \"::/Demo/PullDownMenu\";\n");
|
||
}
|
||
U0 DoTicTacToe()
|
||
{
|
||
XTalkWait(task,"#include \"::/Demo/Games/TicTacToe\";\n");
|
||
}
|
||
U0 DoLife()
|
||
{
|
||
XTalkWait(task,"#include \"::/Demo/Graphics/Life\";\n");
|
||
}
|
||
U0 DoZing()
|
||
{
|
||
XTalkWait(task,"#include \"::/Demo/Games/Zing\";\n");
|
||
}
|
||
U0 DoSlider()
|
||
{
|
||
XTalkWait(task,"#include \"::/Demo/Graphics/Slider\";\n");
|
||
}
|
||
U0 DoScrollBars()
|
||
{
|
||
XTalkWait(task,"#include \"::/Demo/Graphics/ScrollBars\";\n");
|
||
}
|
||
U0 DoWhap()
|
||
{
|
||
XTalkWait(task,"#include \"::/Demo/Games/Whap\";\n");
|
||
}
|
||
U0 DoDataBase()
|
||
{
|
||
XTalkWait(task,"#include \"::/Demo/Dsk/DataBase\";\n");
|
||
}
|
||
U0 DoDskRaw()
|
||
{
|
||
XTalkWait(task,"#include \"::/Demo/Dsk/DskRaw\";\n");
|
||
}
|
||
U0 DoTimeClock()
|
||
{
|
||
XTalkWait(task,"#include \"::/Apps/TimeClock\";\n");
|
||
}
|
||
U0 DoLectures()
|
||
{
|
||
XTalkWait(task,"#include \"::/Demo/Lectures\";\n");
|
||
}
|
||
U0 DoInFile()
|
||
{
|
||
XTalkWait(task,"#include \"::/Demo/InFile\";\n");
|
||
}
|
||
U0 DoSpy()
|
||
{
|
||
XTalkWait(task,"#include \"::/Demo/Spy\";\n");
|
||
}
|
||
U0 DoUnusedDefine()
|
||
{
|
||
XTalkWait(task,"#include \"::/Demo/DolDoc/UnusedDefine\";\n");
|
||
}
|
||
U0 DoOnceDemo()
|
||
{
|
||
XTalkWait(task,"#include \"::/Demo/OnceDemo\";\n");
|
||
}
|
||
*/
|
||
$PL,1000$
|
||
U0 DoRandDemo()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/RandDemo\";\n");
|
||
XTalkWait(task," ");
|
||
XTalkWait(task," ");
|
||
Sleep(750);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoLowPassFilter()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/Graphics/LowPassFilter\";\n");
|
||
Sleep(300);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
Sleep(300);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
Sleep(300);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
Sleep(300);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
Sleep(300);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoMathAudioDemo()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/Graphics/MathAudioDemo\";\n");
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
Sleep(500);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
Sleep(500);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
Sleep(500);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoMsgLoop()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/MsgLoop\";\n");
|
||
Sleep(300);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
Sleep(300);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoASCIIOrgan()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/Snd/ASCIIOrgan\";\n");
|
||
Sleep(100);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,'A',0);
|
||
Sleep(200);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,'B',0);
|
||
Sleep(200);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,'C',0);
|
||
Sleep(200);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoDoodle()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/Graphics/Doodle\";\n");
|
||
PostMsgWait(task,MSG_MS_L_DOWN,10,10);
|
||
PostMsgWait(task,MSG_MS_L_UP,100,200);
|
||
Sleep(500);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoSpeedLine()
|
||
{
|
||
I64 i=PURPLE+1; //+1 because TRANSPARENT
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/Graphics/Speedline\";\n");
|
||
PostMsgWait(task,MSG_MS_L_DOWN,10,10);
|
||
PostMsgWait(task,MSG_MS_L_UP,100,200);
|
||
PostMsg(task,MSG_MS_R_DOWN_UP,0,0);
|
||
BirthWait(&task->popup_task);
|
||
while (i--)
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN);
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,CH_ESC,0);
|
||
TaskWait(task);
|
||
PostMsgWait(task,MSG_MS_L_DOWN,50,10);
|
||
PostMsgWait(task,MSG_MS_L_UP,150,200);
|
||
Sleep(1000);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoKeyBitMap()
|
||
{
|
||
I64 i_sc=Char2ScanCode('i');
|
||
CTask *task=User("#include \"::/Demo/KeyBitMap\";\n");
|
||
Sleep(50);
|
||
LBts(kbd.down_bitmap,i_sc);
|
||
Sleep(500);
|
||
LBtr(kbd.down_bitmap,i_sc);
|
||
Sleep(50);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoDigits()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/Games/Digits\";\n");
|
||
Sleep(100);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
Sleep(100);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
Sleep(250);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,'1',0);
|
||
Sleep(250);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoSymmetry()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/Graphics/Symmetry\";\n");
|
||
PostMsgWait(task,MSG_MS_R_DOWN,100,100);
|
||
PostMsgWait(task,MSG_MS_R_UP,200,200);
|
||
Sleep(100);
|
||
PostMsgWait(task,MSG_MS_L_DOWN,10,10);
|
||
PostMsgWait(task,MSG_MS_L_UP,100,200);
|
||
Sleep(250);
|
||
PostMsgWait(task,MSG_MS_L_DOWN,100,200);
|
||
PostMsgWait(task,MSG_MS_L_UP,400,400);
|
||
Sleep(250);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoBSpline()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/Graphics/BSpline\";\n");
|
||
PostMsgWait(task,MSG_MS_L_DOWN_UP,50,50);
|
||
PostMsgWait(task,MSG_MS_L_DOWN_UP,300,100);
|
||
PostMsgWait(task,MSG_MS_L_DOWN_UP,150,300);
|
||
PostMsgWait(task,MSG_MS_R_DOWN_UP,0,0);
|
||
Sleep(1500);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoScrnCapture()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/Graphics/ScrnCapture\";\n");
|
||
Sleep(500);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
Sleep(500);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
Sleep(750);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
DeathWait(&task,TRUE);
|
||
Del("~/DemoScrnShot.GR*");
|
||
}
|
||
|
||
U0 DoStadium()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/Games/Stadium/Stadium\";\n");
|
||
Sleep(50);
|
||
PostMsgWait(task,MSG_MS_L_DOWN_UP,100,10);
|
||
Sleep(300);
|
||
PostMsgWait(task,MSG_MS_L_DOWN_UP,320,20);
|
||
Sleep(300);
|
||
PostMsgWait(task,MSG_MS_L_DOWN_UP,520,10);
|
||
Sleep(300);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoPalette()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/Graphics/Palette\";\n");
|
||
Sleep(400);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
Sleep(400);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoElephantWalk()
|
||
{
|
||
I64 i;
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/Games/ElephantWalk\";\n");
|
||
for (i=0;i<15;i++) {
|
||
PostMsgWait(task,MSG_KEY_DOWN,0,SC_CURSOR_RIGHT);
|
||
Sleep(50);
|
||
}
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoHalogen()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/Games/Halogen\";\n");
|
||
PostMsgWait(task,MSG_KEY_DOWN,0,SC_CURSOR_UP);
|
||
Sleep(1000);
|
||
PostMsgWait(task,MSG_KEY_UP,0,SC_CURSOR_UP);
|
||
PostMsgWait(task,MSG_KEY_DOWN,0,SC_CURSOR_RIGHT);
|
||
Sleep(333);
|
||
PostMsgWait(task,MSG_KEY_UP,0,SC_CURSOR_RIGHT);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoTheDead()
|
||
{
|
||
I64 i;
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/Games/TheDead\";\n");
|
||
for (i=0;i<15;i++) {
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
Sleep(50);
|
||
}
|
||
for (i=0;i<15;i++) {
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_UP);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
Sleep(50);
|
||
}
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoBomberGolf()
|
||
{
|
||
I64 i;
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/Games/BomberGolf\";\n");
|
||
for (i=0;i<7;i++) {
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_UP);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_RIGHT);
|
||
Sleep(100);
|
||
}
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
for (i=0;i<7;i++) {
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_UP);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_LEFT);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_LEFT);
|
||
Sleep(200);
|
||
}
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoZoneOut()
|
||
{
|
||
I64 i;
|
||
CTask *task=User("#include \"::/Demo/Games/ZoneOut\";\n");
|
||
BirthWait(&task->popup_task);
|
||
TaskWait(task->popup_task);
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
for (i=0;i<15;i++) {
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_RIGHT);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
Sleep(100);
|
||
}
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoVaroom()
|
||
{
|
||
I64 i;
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/Games/Varoom\";\n");
|
||
for (i=0;i<10;i++) {
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_UP);
|
||
Sleep(50);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_UP);
|
||
Sleep(50);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_UP);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_LEFT);
|
||
Sleep(50);
|
||
}
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoFlatTops()
|
||
{
|
||
CTask *task=User("#include \"::/Demo/Games/FlatTops\";\n");
|
||
BirthWait(&task->popup_task);
|
||
TaskWait(task->popup_task);
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
DeathWait(&task->popup_task);
|
||
PostMsgWait(task,MSG_MS_R_DOWN_UP,RandI16%400+200,RandI16%300+150);
|
||
Sleep(1500);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoWenceslas()
|
||
{
|
||
I64 i;
|
||
CTask *task=User("#include \"::/Demo/Games/Wenceslas\";\n");
|
||
BirthWait(&task->popup_task);
|
||
TaskWait(task->popup_task);
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
Sleep(100);
|
||
BirthWait(&task->popup_task);
|
||
TaskWait(task->popup_task);
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
Sleep(100);
|
||
BirthWait(&task->popup_task);
|
||
TaskWait(task->popup_task);
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
Sleep(100);
|
||
for (i=0;i<25;i++) {
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_RIGHT);
|
||
Sleep(25);
|
||
}
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoTreeCheckers()
|
||
{
|
||
I64 task_num;
|
||
CTask *task=User("#include \"::/Demo/Games/TreeCheckers\";\n");
|
||
|
||
task_num=BirthWait(&task->popup_task);
|
||
TaskWait(task->popup_task);
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN);
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN);
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
|
||
BirthWait(&task->popup_task,task_num);
|
||
TaskWait(task->popup_task);
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
|
||
Sleep(500);
|
||
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,'\n',0);
|
||
Sleep(500);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoMorseCode()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/Snd/MorseCode\";\n");
|
||
Sleep(50);
|
||
|
||
PostMsg(task,MSG_KEY_DOWN,CH_SPACE,0);
|
||
Sleep(200);
|
||
PostMsg(task,MSG_KEY_UP,CH_SPACE,0);
|
||
Sleep(350);
|
||
|
||
PostMsg(task,MSG_KEY_DOWN,CH_SPACE,0);
|
||
Sleep(50);
|
||
PostMsg(task,MSG_KEY_UP,CH_SPACE,0);
|
||
Sleep(350);
|
||
|
||
PostMsg(task,MSG_KEY_DOWN,CH_SPACE,0);
|
||
Sleep(50);
|
||
PostMsg(task,MSG_KEY_UP,CH_SPACE,0);
|
||
Sleep(25);
|
||
PostMsg(task,MSG_KEY_DOWN,CH_SPACE,0);
|
||
Sleep(200);
|
||
PostMsg(task,MSG_KEY_UP,CH_SPACE,0);
|
||
Sleep(25);
|
||
PostMsg(task,MSG_KEY_DOWN,CH_SPACE,0);
|
||
Sleep(50);
|
||
PostMsg(task,MSG_KEY_UP,CH_SPACE,0);
|
||
Sleep(500);
|
||
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoPixCollision()
|
||
{
|
||
I64 w,h;
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/Graphics/Collision\";\n");
|
||
w=task->pix_width>>1 +task->pix_left+task->scroll_x;
|
||
h=task->pix_height>>1+task->pix_top +task->scroll_y;
|
||
MsSet(w-35,h-35);
|
||
InSetMs(10,w+35,w+35);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoBlackDiamond()
|
||
{
|
||
I64 i;
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/Games/BlackDiamond\";\n");
|
||
for (i=0;i<15;i++) {
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_RIGHT);
|
||
Sleep(75);
|
||
}
|
||
for (i=0;i<12;i++) {
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN);
|
||
Sleep(75);
|
||
}
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoCtrlR1()
|
||
{
|
||
I64 i,task_num;
|
||
CTask *task=User;
|
||
XTalkWait(task,"//");
|
||
PostMsg(task,MSG_KEY_DOWN_UP,CH_CTRLR,0);
|
||
task_num=BirthWait(&task->popup_task);
|
||
TaskWait(task->popup_task);
|
||
for (i=0;i<1;i++)
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN);
|
||
PostMsg(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
//Color
|
||
task_num=BirthWait(&task->popup_task,task_num);
|
||
TaskWait(task->popup_task);
|
||
for (i=0;i<2;i++)
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN);
|
||
PostMsg(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
task_num=BirthWait(&task->popup_task,task_num);
|
||
TaskWait(task->popup_task);
|
||
for (i=0;i<2;i++)
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN);
|
||
PostMsg(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
|
||
//Width
|
||
task_num=BirthWait(&task->popup_task,task_num);
|
||
TaskWait(task->popup_task);
|
||
for (i=0;i<4;i++)
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN);
|
||
PostMsg(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
task_num=BirthWait(&task->popup_task,task_num);
|
||
TaskWait(task->popup_task);
|
||
for (i=0;i<4;i++)
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN);
|
||
PostMsg(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
|
||
//Line
|
||
task_num=BirthWait(&task->popup_task,task_num);
|
||
TaskWait(task->popup_task);
|
||
for (i=0;i<7;i++)
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN);
|
||
PostMsg(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
DeathWait(&task->popup_task);
|
||
PostMsgWait(task,MSG_MS_L_DOWN,150,150);
|
||
PostMsgWait(task,MSG_MS_L_UP,150,95);
|
||
Sleep(250);
|
||
PostMsgWait(task,MSG_MS_L_DOWN,150,150);
|
||
PostMsgWait(task,MSG_MS_L_UP,190,190);
|
||
Sleep(250);
|
||
PostMsgWait(task,MSG_MS_L_DOWN,150,150);
|
||
PostMsgWait(task,MSG_MS_L_UP,110,190);
|
||
Sleep(250);
|
||
PostMsg(task,MSG_MS_R_DOWN_UP,100,100);
|
||
|
||
//Color
|
||
task_num=BirthWait(&task->popup_task,task_num);
|
||
TaskWait(task->popup_task);
|
||
for (i=0;i<2;i++)
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN);
|
||
PostMsg(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
task_num=BirthWait(&task->popup_task,task_num);
|
||
TaskWait(task->popup_task);
|
||
for (i=0;i<3;i++)
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN);
|
||
PostMsg(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
|
||
//Circle
|
||
task_num=BirthWait(&task->popup_task,task_num);
|
||
TaskWait(task->popup_task);
|
||
for (i=0;i<10;i++)
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN);
|
||
PostMsg(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
DeathWait(&task->popup_task);
|
||
PostMsgWait(task,MSG_MS_L_DOWN,150,150);
|
||
PostMsgWait(task,MSG_MS_L_UP,190,190);
|
||
Sleep(250);
|
||
PostMsg(task,MSG_MS_R_DOWN_UP,100,100);
|
||
|
||
//Exit
|
||
BirthWait(&task->popup_task);
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN+SCF_CTRL);
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,0,SC_CURSOR_UP);
|
||
PostMsg(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
DeathWait(&task->popup_task);
|
||
Sleep(1000);
|
||
XTalk(task,"\n");
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoF2Macro()
|
||
{
|
||
I64 i;
|
||
U8 *ptr="\"Boo!\\n\";\n";
|
||
CTask *task=User;
|
||
DeathWait(&sys_macro_task);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_F2);
|
||
BirthWait(&sys_macro_task);
|
||
TaskWait(sys_macro_task);
|
||
|
||
PostMsgWait(sys_macro_task,MSG_KEY_DOWN_UP,0,SC_CURSOR_RIGHT|SCF_CTRL);
|
||
PostMsgWait(sys_macro_task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN);
|
||
PostMsgWait(sys_macro_task,MSG_KEY_DOWN_UP,0,SC_CURSOR_RIGHT);
|
||
PostMsgWait(sys_macro_task,MSG_KEY_DOWN_UP,CH_SPACE,0); //Press RECORD
|
||
while (!Bt(&sys_semas[SEMA_RECORD_MACRO],0))
|
||
Yield;
|
||
|
||
while (*ptr)
|
||
PostMsgWait(task,MSG_KEY_DOWN,*ptr++,0);
|
||
|
||
PostMsgWait(sys_macro_task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN);
|
||
PostMsgWait(sys_macro_task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN);
|
||
PostMsgWait(sys_macro_task,MSG_KEY_DOWN_UP,CH_SPACE,0); //Press STOP
|
||
|
||
for (i=0;i<10;i++)
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_F2|SCF_SHIFT);
|
||
|
||
PostMsg(sys_macro_task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&sys_macro_task);
|
||
|
||
Sleep(1000);
|
||
XTalk(task,"\n");
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoLightTable()
|
||
{
|
||
CTask *task=User("#include \"::/Demo/Graphics/LightTable\";\n\n");
|
||
TaskWait(task);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,'2',0);
|
||
PostMsgWait(task,MSG_MS_L_DOWN, 100 ,200);
|
||
PostMsgWait(task,MSG_MS_L_UP, 640-100 ,200);
|
||
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,'3',0);
|
||
PostMsgWait(task,MSG_MS_L_DOWN_UP,100 ,200);
|
||
PostMsgWait(task,MSG_MS_L_DOWN_UP,100 ,200);
|
||
PostMsgWait(task,MSG_MS_L_DOWN_UP,100 ,200);
|
||
PostMsgWait(task,MSG_MS_L_DOWN_UP,120 ,180);
|
||
PostMsgWait(task,MSG_MS_L_DOWN_UP,160 ,120);
|
||
PostMsgWait(task,MSG_MS_L_DOWN_UP,320 ,10);
|
||
PostMsgWait(task,MSG_MS_L_DOWN_UP,640-160 ,120);
|
||
PostMsgWait(task,MSG_MS_L_DOWN_UP,640-120 ,180);
|
||
PostMsgWait(task,MSG_MS_L_DOWN_UP,640-100 ,200);
|
||
PostMsgWait(task,MSG_MS_L_DOWN_UP,640-100 ,200);
|
||
PostMsgWait(task,MSG_MS_L_DOWN_UP,640-100 ,200);
|
||
PostMsgWait(task,MSG_MS_R_DOWN_UP,0,0);
|
||
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,'4',0);
|
||
PostMsgWait(task,MSG_MS_L_DOWN_UP,320,190);
|
||
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,'5',0);
|
||
PostMsgWait(task,MSG_MS_L_DOWN,460,280);
|
||
PostMsgWait(task,MSG_MS_L_UP ,500,220);
|
||
|
||
Sleep(1500);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoPredatorPrey()
|
||
{
|
||
CTask *task=User("#include \"::/Demo/Graphics/PredatorPrey\";\n");
|
||
BirthWait(&task->popup_task);
|
||
TaskWait(task->popup_task);
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
Sleep(1500);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoCharDemo()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/Games/CharDemo\";\n");
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_UP);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_LEFT);
|
||
Sleep(750);
|
||
PostMsg(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoLattice()
|
||
{
|
||
I64 i;
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/Graphics/Lattice\";\n");
|
||
for (i=0;i<20;i++)
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_UP);
|
||
for (i=0;i<6;i++) {
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,'+',0);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_LEFT);
|
||
}
|
||
for (i=0;i<6;i++) {
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_LEFT);
|
||
}
|
||
for (i=0;i<16;i++) {
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_RIGHT);
|
||
}
|
||
Sleep(500);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoCartesian()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/Graphics/Cartesian\";\n");
|
||
XTalkWait(task,"0.2*x`1.5\n");
|
||
Sleep(750);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoMPAdd()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/MultiCore/MPAdd\";\n");
|
||
Sleep(750);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
Sleep(750);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoFlapBat()
|
||
{
|
||
I64 i;
|
||
CTask *task=User("#include \"::/Demo/Games/FlapBat\";\n");
|
||
BirthWait(&task->popup_task);
|
||
TaskWait(task->popup_task);
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
Sleep(500);
|
||
for (i=0;i<4;i++) {
|
||
PostMsgWait(task,MSG_KEY_DOWN,CH_SPACE,0);
|
||
Sleep(100);
|
||
PostMsgWait(task,MSG_KEY_UP,CH_SPACE,0);
|
||
Sleep(100);
|
||
}
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoBattleLines()
|
||
{
|
||
CTask *task=User("#include \"::/Demo/Games/BattleLines\";\n");
|
||
BirthWait(&task->popup_task);
|
||
TaskWait(task->popup_task);
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
DeathWait(&task->popup_task);
|
||
MsSet(430,300,,TRUE);
|
||
InSetMs(10,530,400);
|
||
MsSet(,,,FALSE);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoBigGuns()
|
||
{
|
||
I64 i,task_num;
|
||
CTask *task=User("#include \"::/Demo/Games/BigGuns\";\n");
|
||
task_num=BirthWait(&task->popup_task);
|
||
TaskWait(task->popup_task);
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
BirthWait(&task->popup_task,task_num);
|
||
TaskWait(task->popup_task);
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
for (i=0;i<5;i++) {
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_LEFT);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_LEFT);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_LEFT);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_LEFT);
|
||
Sleep(200);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
}
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoDunGen()
|
||
{
|
||
I64 i;
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/Games/DunGen\";\n");
|
||
for (i=0;i<10;i++) {
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_RIGHT);
|
||
Sleep(100);
|
||
}
|
||
for (i=0;i<12;i++) {
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN);
|
||
Sleep(100);
|
||
}
|
||
for (i=0;i<6;i++) {
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_RIGHT);
|
||
Sleep(100);
|
||
}
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoTitanium()
|
||
{
|
||
I64 i;
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Apps/Titanium/Run\";\n");
|
||
Sleep(200);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
for (i=0;i<3;i++) {
|
||
PostMsgWait(task,MSG_KEY_DOWN,CH_SPACE,0);
|
||
LBts(kbd.down_bitmap,SC_CURSOR_RIGHT);
|
||
Sleep(200);
|
||
PostMsgWait(task,MSG_KEY_UP,CH_SPACE,0);
|
||
LBtr(kbd.down_bitmap,SC_CURSOR_RIGHT);
|
||
Sleep(200);
|
||
PostMsgWait(task,MSG_KEY_DOWN,CH_SPACE,0);
|
||
LBts(kbd.down_bitmap,SC_CURSOR_LEFT);
|
||
Sleep(200);
|
||
PostMsgWait(task,MSG_KEY_UP,CH_SPACE,0);
|
||
LBtr(kbd.down_bitmap,SC_CURSOR_LEFT);
|
||
Sleep(200);
|
||
}
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoToTheFront()
|
||
{
|
||
I64 task_num;
|
||
CTask *task=User("#include \"::/Apps/ToTheFront/Run\";\n");
|
||
task_num=BirthWait(&task->popup_task);
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,'\n',0);
|
||
task_num=BirthWait(&task->popup_task,task_num);
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,0,SC_CURSOR_RIGHT);
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
task_num=BirthWait(&task->popup_task,task_num);
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,0,SC_CURSOR_RIGHT);
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
BirthWait(&task->popup_task,task_num);
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN,CH_SPACE,0);
|
||
DeathWait(&task->popup_task);
|
||
Sleep(5000);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoPsalmody()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Apps/Psalmody/Run\";\n");
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,'z',0);
|
||
PostMsgWait(task,MSG_KEY_DOWN,'h',0);
|
||
Sleep(200);
|
||
PostMsgWait(task,MSG_KEY_UP,'h',0);
|
||
PostMsgWait(task,MSG_KEY_DOWN,'g',0);
|
||
Sleep(200);
|
||
PostMsgWait(task,MSG_KEY_UP,'g',0);
|
||
PostMsgWait(task,MSG_KEY_DOWN,'h',0);
|
||
Sleep(200);
|
||
PostMsgWait(task,MSG_KEY_UP,'h',0);
|
||
PostMsgWait(task,MSG_KEY_DOWN,'j',0);
|
||
Sleep(200);
|
||
PostMsgWait(task,MSG_KEY_UP,'j',0);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_LEFT+SCF_CTRL);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,'x',0);
|
||
Sleep(1250);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoJukeBox()
|
||
{
|
||
CTask *task=User("#include \"::/Apps/Psalmody/Load\";"
|
||
"JukeBox(\"::/Apps/Psalmody/Examples\");\n");
|
||
BirthWait(&task->popup_task);
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,0,SC_CURSOR_RIGHT);
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
Sleep(1500);
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task->popup_task);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoSpan()
|
||
{
|
||
CTask *task=User("#include \"::/Apps/Span/Run\";\n");
|
||
BirthWait(&task->popup_task);
|
||
TaskWait(task->popup_task);
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
Sleep(1500);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoStrut()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Apps/Strut/Run\";\n");
|
||
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
|
||
MsSet(200,200,,TRUE);
|
||
PostMsgWait(task,MSG_MS_L_DOWN,0,0);
|
||
Refresh(2);
|
||
|
||
MsSet(GR_WIDTH-200,200,,TRUE);
|
||
PostMsgWait(task,MSG_MS_L_DOWN,0,0);
|
||
|
||
MsSet(GR_WIDTH/2,400,,TRUE);
|
||
PostMsgWait(task,MSG_MS_L_DOWN,0,0);
|
||
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,'s',0);
|
||
|
||
MsSet(200,200,,TRUE);
|
||
PostMsgWait(task,MSG_MS_L_DOWN,0,0);
|
||
MsSet(GR_WIDTH-200,200,,TRUE);
|
||
PostMsgWait(task,MSG_MS_L_UP,0,0);
|
||
|
||
MsSet(200,200,,TRUE);
|
||
PostMsgWait(task,MSG_MS_L_DOWN,0,0);
|
||
MsSet(GR_WIDTH/2,400,,TRUE);
|
||
PostMsgWait(task,MSG_MS_L_UP,0,0);
|
||
|
||
MsSet(GR_WIDTH-200,200,,TRUE);
|
||
PostMsgWait(task,MSG_MS_L_DOWN,0,0);
|
||
MsSet(GR_WIDTH/2,400,,TRUE);
|
||
PostMsgWait(task,MSG_MS_L_UP,0,0);
|
||
|
||
MsSet(GR_WIDTH/2,GR_HEIGHT/2,,TRUE);
|
||
PostMsgWait(task,MSG_MS_L_DOWN,0,0);
|
||
MsSet(GR_WIDTH-200,200,,TRUE);
|
||
PostMsgWait(task,MSG_MS_L_UP,0,0);
|
||
|
||
MsSet(GR_WIDTH/2,GR_HEIGHT/2,,TRUE);
|
||
PostMsgWait(task,MSG_MS_L_DOWN,0,0);
|
||
MsSet(GR_WIDTH/2,400,,TRUE);
|
||
PostMsgWait(task,MSG_MS_L_UP,0,0);
|
||
|
||
MsSet(GR_WIDTH/2,GR_HEIGHT/2,,TRUE);
|
||
PostMsgWait(task,MSG_MS_L_DOWN,0,0);
|
||
MsSet(200,200,,TRUE);
|
||
PostMsgWait(task,MSG_MS_L_UP,0,0);
|
||
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,'t',0);
|
||
|
||
MsSet(GR_WIDTH/2,400,,TRUE);
|
||
PostMsgWait(task,MSG_MS_L_DOWN,0,0);
|
||
MsSet(GR_WIDTH-200,200,,TRUE);
|
||
PostMsgWait(task,MSG_MS_L_UP,0,0);
|
||
|
||
MsSet(GR_WIDTH/2,400,,TRUE);
|
||
PostMsgWait(task,MSG_MS_L_DOWN,0,0);
|
||
MsSet(200,200,,TRUE);
|
||
PostMsgWait(task,MSG_MS_L_UP,0,0);
|
||
|
||
MsSet(,,,FALSE);
|
||
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
LBts(kbd.down_bitmap,Char2ScanCode('1'));
|
||
Sleep(600);
|
||
LBtr(kbd.down_bitmap,Char2ScanCode('1'));
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,'Z',0);
|
||
Sleep(200);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,'Z',0);
|
||
Sleep(200);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,'Z',0);
|
||
Sleep(200);
|
||
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoRawHide()
|
||
{
|
||
CTask *task=User("#include \"::/Demo/Games/RawHide\";\n");
|
||
BirthWait(&task->popup_task);
|
||
TaskWait(task->popup_task);
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
Sleep(2500);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoPoleZeros()
|
||
{
|
||
CTask *task=User("#include \"::/Demo/Graphics/PoleZeros\";\n");
|
||
BirthWait(&task->popup_task);
|
||
TaskWait(task->popup_task);
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
Sleep(750);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoWhap()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/Games/Whap\";\n");
|
||
MsSet(300,200);
|
||
Sleep(500);
|
||
InSetMs(3,350,300);
|
||
Sleep(500);
|
||
InSetMs(3,450,200);
|
||
Sleep(500);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoGrid()
|
||
{
|
||
CTask *task=User("#include \"::/Demo/Graphics/Grid\";\n");
|
||
MsSet(200,200);
|
||
Sleep(150);
|
||
InSetMs(2,400,400);
|
||
InSetMs(2,200,400);
|
||
InSetMs(2,200,200);
|
||
MsSet(,,,TRUE);
|
||
Sleep(50);
|
||
MsSet(,,,FALSE);
|
||
DocBottom(DocPut(task));
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoPick()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/Graphics/Pick\";\n");
|
||
MsSet(200,200);
|
||
Sleep(500);
|
||
MsSet(,,,TRUE);
|
||
InSetMs(4,400,400);
|
||
MsSet(,,,FALSE);
|
||
Sleep(500);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoPick3D()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/Graphics/Pick3D\";\n");
|
||
MsSet(200,200);
|
||
Sleep(500);
|
||
MsSet(,,,TRUE);
|
||
InSetMs(4,400,400);
|
||
MsSet(,,,FALSE);
|
||
Sleep(500);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoGrModels()
|
||
{
|
||
CTask *task=User;
|
||
I64 i,j,task_num=-1;
|
||
XTalkWait(task,"#include \"::/Apps/GrModels/Run\";\n");
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
PostMsg(task,MSG_KEY_DOWN_UP,CH_ESC,0);
|
||
for (i=0;i<4;i++) {
|
||
task_num=BirthWait(&task->popup_task,task_num);
|
||
TaskWait(task->popup_task);
|
||
for (j=0;j<=i;j++)
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN);
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
}
|
||
Sleep(1000);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,'n',0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoKeepAway()
|
||
{
|
||
CTask *task=User("#include \"::/Apps/KeepAway/Run\";\n");
|
||
BirthWait(&task->popup_task);
|
||
TaskWait(task->popup_task);
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
MsSet(100,100);
|
||
Sleep(1500);
|
||
PostMsgWait(task,MSG_MS_R_DOWN_UP,ms.pos.x,ms.pos.y);
|
||
Sleep(1000);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoRocket()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/Games/Rocket\";\n");
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_UP);
|
||
Bts(kbd.down_bitmap,SC_CURSOR_UP);
|
||
Sleep(1000);
|
||
Btr(kbd.down_bitmap,SC_CURSOR_UP);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_RIGHT);
|
||
Bts(kbd.down_bitmap,SC_CURSOR_RIGHT);
|
||
Sleep(1000);
|
||
Btr(kbd.down_bitmap,SC_CURSOR_RIGHT);
|
||
Sleep(1000);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoRocketScience()
|
||
{
|
||
CTask *task=User("#include \"::/Demo/Games/RocketScience\";\n");
|
||
BirthWait(&task->popup_task);
|
||
TaskWait(task->popup_task);
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN);
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
Sleep(750);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
Sleep(2000);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoMassSpring()
|
||
{
|
||
CTask *task=User("#include \"::/Demo/Games/MassSpring\";\n");
|
||
BirthWait(&task->popup_task);
|
||
TaskWait(task->popup_task);
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
DeathWait(&task->popup_task);
|
||
PostMsgWait(task,MSG_MS_L_DOWN_UP,50,50); //#1
|
||
PostMsgWait(task,MSG_MS_L_DOWN_UP,50,200); //#2
|
||
PostMsgWait(task,MSG_MS_L_DOWN_UP,210,50); //#3
|
||
PostMsgWait(task,MSG_MS_L_DOWN_UP,310,200);//#4
|
||
Sleep(500);
|
||
PostMsgWait(task,MSG_MS_R_DOWN,50,50); //1-2
|
||
PostMsgWait(task,MSG_MS_R_UP,50,200);
|
||
Sleep(500);
|
||
PostMsgWait(task,MSG_MS_R_DOWN,210,50);//3-4
|
||
PostMsgWait(task,MSG_MS_R_UP,310,200);
|
||
Sleep(500);
|
||
PostMsgWait(task,MSG_MS_R_DOWN,50,200);//2-4
|
||
PostMsgWait(task,MSG_MS_R_UP,310,200);
|
||
Sleep(500);
|
||
PostMsgWait(task,MSG_MS_R_DOWN,50,50); //1-3
|
||
PostMsgWait(task,MSG_MS_R_UP,210,50);
|
||
Sleep(1500);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoSquirt()
|
||
{
|
||
I64 i;
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/Games/Squirt\";\n");
|
||
for (i=0;i<5;i++) {
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_UP);
|
||
Sleep(100);
|
||
}
|
||
for (i=0;i<5;i++) {
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_LEFT);
|
||
Sleep(100);
|
||
}
|
||
for (i=0;i<5;i++) {
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN);
|
||
Sleep(100);
|
||
}
|
||
for (i=0;i<5;i++) {
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_RIGHT);
|
||
Sleep(100);
|
||
}
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoXCaliber()
|
||
{
|
||
I64 i;
|
||
CTask *task=User;
|
||
XTalk(task,"#include \"::/Apps/X-Caliber/Run\";\n");
|
||
|
||
Sleep(100);
|
||
if(TaskValidate(task->popup_task)) {
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,0,SCF_CTRL|SC_CURSOR_DOWN);
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
DeathWait(&task->popup_task);
|
||
}
|
||
|
||
for (i=0;i<5;i++) {
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SCF_SHIFT|SC_CURSOR_UP);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SCF_SHIFT|SC_CURSOR_RIGHT);
|
||
}
|
||
for (i=0;i<10;i++) {
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
PostMsgWait(task,MSG_KEY_DOWN,0,SC_CURSOR_RIGHT,0);
|
||
Sleep(100);
|
||
PostMsgWait(task,MSG_KEY_UP,0,SC_CURSOR_RIGHT,0);
|
||
Sleep(50);
|
||
}
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoFPS()
|
||
{
|
||
I64 i;
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/Games/CastleFrankenstein\";\n");
|
||
for (i=0;i<15;i++) {
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_UP);
|
||
Sleep(50);
|
||
}
|
||
for (i=0;i<8;i++) {
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_RIGHT);
|
||
Sleep(50);
|
||
}
|
||
for (i=0;i<9;i++) {
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_UP);
|
||
Sleep(50);
|
||
}
|
||
for (i=0;i<6;i++) {
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_RIGHT);
|
||
Sleep(50);
|
||
}
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoTalons()
|
||
{
|
||
I64 i;
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/Games/Talons\";\n");
|
||
Sleep(500);
|
||
for (i=0;i<10;i++) {
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_UP);
|
||
Sleep(50);
|
||
}
|
||
for (i=0;i<10;i++) {
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN);
|
||
Sleep(50);
|
||
}
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoPhoneNumWords()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/PhoneNumWords\";\n");
|
||
XTalkWait(task,"702-254-4223\n\n");
|
||
Sleep(750);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoSuggestedSpelling()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/SuggestSpelling\";\n");
|
||
XTalkWait(task,"effecient\n\n");
|
||
Sleep(750);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoFPrintF()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/Dsk/FPrintF\";\n");
|
||
XTalkWait(task,"~/DemoFPrintF.DD.Z");
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_ESC,0);
|
||
XTalkWait(task,"Type(\"~/DemoFPrintF.DD.Z\");\n");
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_CTRLO,0);
|
||
XTalkWait(task,"Del(\"~/DemoFPrintF.DD*\");\n");
|
||
Sleep(500);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoLastClass()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/LastClass\";\n");
|
||
Sleep(500);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
Sleep(500);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
Sleep(500);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoMiniCompiler()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/Lectures/MiniCompiler\";\n");
|
||
XTalkWait(task,"1+2*(3+4)\n");
|
||
Sleep(750);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoWebLog()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/WebLogDemo/WebLogRep\";\n");
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,'\n',0);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,'\n',0);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_ESC,0);
|
||
Sleep(750);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoRevFile()
|
||
{
|
||
CTask *task;
|
||
Del("~/DemoPoemFwd.DD*");
|
||
task=User("#include \"::/Demo/RevFileDemo/Rev\";"
|
||
"Type(\"~/DemoPoemFwd.DD.Z\");Sleep(750);\n");
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoSortFile()
|
||
{
|
||
CTask *task=User("#include \"::/Demo/SortFileDemo/F64FileGen\";"
|
||
"#include \"::/Demo/SortFileDemo/F64FileSort\";Sleep(750);\n");
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoToHtmlToTXT()
|
||
{
|
||
CTask *task=User("#include \"::/Demo/ToHtmlToTXTDemo/HtmlGen\";"
|
||
"#include \"::/Demo/ToHtmlToTXTDemo/TXTGen\";"
|
||
"Type(\"~/DemoOutPage.TXT\");Sleep(750);\n");
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoLogic()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Apps/Logic/Run\";\n");
|
||
XTalkWait(task,"NAND\nNOR\n\n0x100\n0xF0\n0xCC\n0xAA\n\n0x12\n\n");
|
||
Sleep(750);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoPrompt()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/Prompt\";\n");
|
||
XTalkWait(task,"1+2*3<<4\n");
|
||
XTalkWait(task,"1.0+2*3`2\n");
|
||
XTalkWait(task,"Terry Davis\n");
|
||
XTalkWait(task,"*-1\n");
|
||
Sleep(750);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoNumBible()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/DolDoc/NumBible\";\n");
|
||
Del("~/DemoNumBible.DD*");
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoForm()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/DolDoc/Form\";\n");
|
||
Sleep(250);
|
||
XTalk(task,"54321");
|
||
Sleep(250);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN);
|
||
Sleep(250);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SCF_CTRL|SC_CURSOR_LEFT);
|
||
XTalk(task,"77777");
|
||
Sleep(250);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN);
|
||
Sleep(250);
|
||
XTalk(task,"MyName");
|
||
Sleep(750);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_ESC,0);
|
||
Sleep(750);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoClickCallBack()
|
||
{
|
||
I64 i;
|
||
CTask *task=User("#include \"::/Demo/DolDoc/ClickCallBack\";\n");
|
||
for (i=0;i<3;i++) {
|
||
BirthWait(&task->popup_task);
|
||
TaskWait(task->popup_task);
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
Sleep(250);
|
||
}
|
||
Sleep(500);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoMenuBttn()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/DolDoc/MenuBttn\";\n");
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
Sleep(500);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN,0);
|
||
Sleep(500);
|
||
PostMsg(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
BirthWait(&task->popup_task);
|
||
TaskWait(task->popup_task);
|
||
Sleep(500);
|
||
PostMsgWait(sys_focus_task,MSG_KEY_DOWN_UP,0,SC_CURSOR_RIGHT);
|
||
Sleep(500);
|
||
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
DeathWait(&task->popup_task);
|
||
Sleep(750);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoMenuSprite()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/DolDoc/MenuSprite\";\n");
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN,0);
|
||
Sleep(50);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
Sleep(300);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN,0);
|
||
Sleep(50);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN,0);
|
||
Sleep(50);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
Sleep(300);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoExceptions()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/Exceptions\";\n");
|
||
XTalkWait(task,"yy");
|
||
Sleep(750);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoDemoDoc()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"Ed(\"::/Demo/DolDoc/DemoDoc.DD\");\n");
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_CTRLG,0);
|
||
XTalkWait(task,"100");
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_ESC,0);
|
||
Sleep(750);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoFileRead()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/DolDoc/FileRead\";\n");
|
||
Sleep(750);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
Sleep(750);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoDefine()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/Define\";\n");
|
||
XTalkWait(task,"YS\n");
|
||
Sleep(750);
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoAsmAndC1()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/Asm/AsmAndC1\";\n2\n");
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 DoAsmAndC2()
|
||
{
|
||
CTask *task=User;
|
||
XTalkWait(task,"#include \"::/Demo/Asm/AsmAndC2\";\n2\n");
|
||
DeathWait(&task,TRUE);
|
||
}
|
||
|
||
U0 OSTestSuite()
|
||
{
|
||
CTask *task;
|
||
ts_t0=tS;
|
||
ts_i=0;
|
||
|
||
TS("BlackDiamond"); DoBlackDiamond;
|
||
TS("Talons"); DoTalons;
|
||
TS("FlatTops"); DoFlatTops;
|
||
TS("DunGen"); DoDunGen;
|
||
TS("FPS"); DoFPS;
|
||
TS("ZoneOut"); DoZoneOut;
|
||
TS("Varoom"); DoVaroom;
|
||
TS("Rocket"); DoRocket;
|
||
TS("RocketScience"); DoRocketScience;
|
||
TS("BattleLines"); DoBattleLines;
|
||
TS("BigGuns"); DoBigGuns;
|
||
TS("FlapBat"); DoFlapBat;
|
||
TS("Titanium"); DoTitanium;
|
||
TS("ToTheFront"); DoToTheFront;
|
||
TS("Psalmody"); DoPsalmody;
|
||
TS("JukeBox"); DoJukeBox;
|
||
TS("Span"); if (!sys_heap_init_flag) DoSpan; //Has FloodFill
|
||
TS("Strut"); DoStrut;
|
||
TS("RawHide"); DoRawHide;
|
||
TS("KeepAway"); DoKeepAway;
|
||
TS("XCaliber"); DoXCaliber;
|
||
TS("Wenceslas"); DoWenceslas;
|
||
TS("BomberGolf"); DoBomberGolf;
|
||
TS("TheDead"); DoTheDead;
|
||
TS("TreeCheckers"); DoTreeCheckers;
|
||
TS("RadixDort"); TSFile("::/Demo/RadixSort");
|
||
TS("MPAdd"); DoMPAdd;
|
||
TS("Primes"); TSFile("::/Demo/MultiCore/Primes");
|
||
TS("Palindrome"); if (FileFind(BIBLE_FILENAME))
|
||
TSFile("::/Demo/MultiCore/Palindrome");
|
||
TS("MPRadix"); if (mp_cnt>1) TSFile("::/Demo/MultiCore/MPRadix");
|
||
TS("LoadTest"); if (mp_cnt>1 && DrvIsWritable(':'))
|
||
TSFileChar("::/Demo/MultiCore/LoadTest");
|
||
TS("MPPrint"); if (mp_cnt>1) TSFile("::/Demo/MultiCore/MPPrint");
|
||
TS("Lock"); if (mp_cnt>1) TSFile("::/Demo/MultiCore/Lock");
|
||
TS("Interrupts"); if (mp_cnt>1) TSFile("::/Demo/MultiCore/Interrupts");
|
||
TS("SpritePlot"); TSFileChar("::/Demo/Graphics/SpritePlot");
|
||
TS("Elephants"); TSFileChar("::/Demo/Graphics/Elephant",,CH_SHIFT_ESC);
|
||
TS("SpritePlot3D"); TSFileChar("::/Demo/Graphics/SpritePlot3D");
|
||
TS("SpritePut"); TSFile("::/Demo/Graphics/SpritePut");
|
||
TS("SpritePutExt"); TSFile("::/Demo/Graphics/SpritePutExt");
|
||
TS("SpriteText"); TSFile("::/Demo/Graphics/SpriteText");
|
||
TS("SpriteRaw"); TSFile("::/Demo/Graphics/SpriteRaw");
|
||
TS("EdSprite"); TSFile("::/Demo/Graphics/EdSprite");
|
||
TS("Balloon"); TSFile("::/Demo/Graphics/Balloon",0);
|
||
TS("Carry"); TSFile("::/Demo/Carry");
|
||
TS("Directives"); TSFile("::/Demo/Directives");
|
||
TS("RandDemo"); DoRandDemo;
|
||
TS("Extents"); TSFileChar("::/Demo/Graphics/Extents");
|
||
TS("NetOfDots"); TSFileChar("::/Demo/Graphics/NetOfDots");
|
||
TS("SunMoon"); TSFileChar("::/Demo/Graphics/SunMoon");
|
||
TS("LowPassFilter"); DoLowPassFilter;
|
||
TS("MathAudioDemo"); DoMathAudioDemo;
|
||
TS("Lines"); TSFileChar("::/Demo/Graphics/Lines");
|
||
TS("Bounce"); TSFileChar("::/Demo/Graphics/Bounce",,CH_SHIFT_ESC,FALSE);
|
||
TS("MsgLoop"); DoMsgLoop;
|
||
TS("ASCIIOrgan"); DoASCIIOrgan;
|
||
TS("MorseCode"); DoMorseCode;
|
||
TS("PixCollision"); DoPixCollision;
|
||
TS("Doodle"); DoDoodle;
|
||
TS("MassSpring"); DoMassSpring;
|
||
TS("SpeedLine"); DoSpeedLine;
|
||
TS("KeyBitMap"); DoKeyBitMap;
|
||
TS("BSpline"); DoBSpline;
|
||
TS("GrModels"); DoGrModels;
|
||
TS("Blot"); TSFileChar("::/Demo/Graphics/Blot",1800);
|
||
TS("ScrnCapture"); if (DrvIsWritable('~')) DoScrnCapture;
|
||
TS("Grid"); DoGrid;
|
||
TS("Pick"); DoPick;
|
||
TS("Pick3D"); DoPick3D;
|
||
TS("Whap"); DoWhap;
|
||
TS("Palette"); DoPalette;
|
||
TS("Print"); TSFile("::/Demo/Print");
|
||
TS("Shading"); TSFileChar("::/Demo/Graphics/Shading",1500);
|
||
TS("RotateTank"); TSFileChar("::/Demo/Graphics/RotateTank",1500);
|
||
TS("3DPoly"); TSFileChar("::/Demo/Graphics/3DPoly",1500);
|
||
TS("Box"); TSFileChar("::/Demo/Graphics/Box",1500);
|
||
TS("Symmetry"); DoSymmetry;
|
||
TS("Shadow"); TSFileChar("::/Demo/Graphics/Shadow",1500);
|
||
TS("Transform"); TSFileChar("::/Demo/Graphics/Transform",,CH_SHIFT_ESC);
|
||
TS("LightTable"); DoLightTable;
|
||
TS("PredatorPrey"); DoPredatorPrey;
|
||
TS("PoleZeros"); DoPoleZeros;
|
||
TS("Digits"); DoDigits;
|
||
TS("Stadium"); DoStadium;
|
||
TS("ElephantWalk"); DoElephantWalk;
|
||
TS("Halogen"); DoHalogen;
|
||
TS("Maze"); TSFileChar("::/Demo/Games/Maze",,CH_SHIFT_ESC);
|
||
TS("FontEd"); TSFileChar("::/Demo/Graphics/FontEd",,CH_SHIFT_ESC);
|
||
TS("Lattice"); DoLattice;
|
||
TS("CtrlR1"); DoCtrlR1;
|
||
TS("F2Macro"); DoF2Macro;
|
||
TS("SubIntAccess"); TSFile("::/Demo/SubIntAccess");
|
||
TS("DemoDoc"); DoDemoDoc;
|
||
TS("TreeDemo"); TSFile("::/Demo/DolDoc/TreeDemo");
|
||
TS("TextDemo"); TSFile("::/Demo/DolDoc/TextDemo");
|
||
TS("CursorMove"); TSFile("::/Demo/DolDoc/CursorMove");
|
||
TS("MiniCompiler"); DoMiniCompiler;
|
||
TS("MiniGrLib"); TSFile("::/Demo/Lectures/MiniGrLib",0);
|
||
TS("TimeIns"); TSFileChar("::/Demo/TimeIns");
|
||
TS("PhoneNumWords"); DoPhoneNumWords;
|
||
TS("UnusedSpaceRep"); TSFile("::/Demo/Dsk/UnusedSpaceRep");
|
||
TS("BlkDevRep"); TSFile("::/Demo/Dsk/BlkDevRep");
|
||
TS("LastClass"); DoLastClass;
|
||
TS("FPrintF"); if (DrvIsWritable('~')) DoFPrintF;
|
||
TS("SerializeTree"); TSFile("::/Demo/Dsk/SerializeTree");
|
||
TS("Exceptions"); DoExceptions;
|
||
TS("ScrnDCodes"); TSFileChar("::/Demo/ScrnCodes");
|
||
TS("ExtChars"); TSFile("::/Demo/ExtChars");
|
||
TS("PanText"); TSFile("::/Demo/Graphics/PanText",0);
|
||
TS("CharAnimation"); TSFile("::/Demo/Graphics/CharAnimation");
|
||
TS("CharDemo"); DoCharDemo;
|
||
TS("DateTime"); TSFile("::/Demo/DateTime");
|
||
TS("SubSwitch"); TSFile("::/Demo/SubSwitch");
|
||
TS("NullCase"); TSFile("::/Demo/NullCase");
|
||
TS("Magicpairs"); TSFile("::/Demo/MagicPairs");
|
||
TS("Hanoi"); TSFileChar("::/Demo/Graphics/Hanoi",3000);
|
||
TS("Squirt"); DoSquirt;
|
||
TS("CommonAncestor");
|
||
TSFileChar("::/Demo/Graphics/CommonAncestor",1500,CH_SHIFT_ESC);
|
||
TS("Cartesian"); DoCartesian;
|
||
TS("RainDrops"); TSFileChar("::/Demo/Games/RainDrops",,CH_SHIFT_ESC);
|
||
TS("Collision"); TSFileChar("::/Demo/Games/Collision",1500);
|
||
TS("Logic"); DoLogic;
|
||
TS("CompileDemo"); TSFile("::/Demo/CompileDemo");
|
||
TS("Prompt"); DoPrompt;
|
||
TS("WebLog"); if (DrvIsWritable('~')) DoWebLog;
|
||
TS("RevFile"); if (DrvIsWritable('~')) DoRevFile;
|
||
TS("SortFile"); if (DrvIsWritable('~')) DoSortFile;
|
||
TS("ToHtmlToTXT"); if (DrvIsWritable('~')) DoToHtmlToTXT;
|
||
TS("RegistryDemo"); if (DrvIsWritable('~'))
|
||
TSFile("::/Demo/RegistryDemo");
|
||
TS("Define"); DoDefine;
|
||
TS("GlblVars"); TSFile("::/Demo/GlblVars");
|
||
TS("FileRead"); DoFileRead;
|
||
TS("ParenWarn"); TSFile("::/Demo/ParenWarn");
|
||
TS("DefineStr"); TSFile("::/Demo/DolDoc/DefineStr");
|
||
TS("Data"); TSFile("::/Demo/DolDoc/Data");
|
||
TS("CallBack"); TSFile("::/Demo/DolDoc/CallBack");
|
||
TS("ClassMeta"); TSFile("::/Demo/ClassMeta");
|
||
TS("NumBible"); if (DrvIsWritable('~')) DoNumBible;
|
||
TS("Form"); DoForm;
|
||
TS("ClickCallBack"); DoClickCallBack;
|
||
TS("MenuBttn"); DoMenuBttn;
|
||
TS("MenuSprite");DoMenuSprite;
|
||
TS("SuggestedSpelling"); DoSuggestedSpelling;
|
||
TS("WordSearch"); TSFileChar("::/Demo/WordSearch");
|
||
TS("StkGrow"); TSFile("::/Demo/StkGrow");
|
||
TS("MemDemo"); TSFile("::/Demo/MemDemo");
|
||
TS("WaterFowl"); TSFileChar("::/Demo/Snd/WaterFowl");
|
||
TS("AsmHelloWorld"); TSFile("::/Demo/Asm/AsmHelloWorld");
|
||
TS("AsmAndC1"); DoAsmAndC1;
|
||
TS("AsmAndC2"); DoAsmAndC2;
|
||
TS("AsmAndC3"); TSFile("::/Demo/Asm/AsmAndC3");
|
||
TS("MulByHand"); TSFile("::/Demo/Asm/MulByHand");
|
||
TS("DivByHand"); TSFile("::/Demo/Asm/DivByHand");
|
||
TS("BuzzFizz"); TSFile("::/Demo/Asm/BuzzFizz");
|
||
TS("PutDec"); TSFile("::/Demo/Asm/PutDec");
|
||
|
||
task=User;
|
||
TS("Prof"); XTalkWait(task,"DocMax;Prof;HeapLog(ON);\n");
|
||
TS("PCIRep"); XTalkWait(task,"PCIRep;Sleep(750);\n");
|
||
TS("MemBIOSRep"); XTalkWait(task,"MemBIOSRep;Sleep(750);\n");
|
||
TS("MemPageRep"); XTalkWait(task,"MemPageRep;Sleep(750);\n");
|
||
TS("MemRep"); XTalkWait(task,"MemRep;Sleep(750);\n");
|
||
TS("ZipRep"); XTalkWait(task,"ZipRep;Sleep(750);\n");
|
||
TS("ProfRep"); XTalkWait(task,"ProfRep;Sleep(750);\n");
|
||
TS("HeapLogSizeRep"); XTalkWait(task,"HeapLogSizeRep;Sleep(750);\n");
|
||
TS("CPURep"); if (mp_cnt>1)
|
||
XTalkWait(task,"CPURep(TRUE);Sleep(750);\n");
|
||
TS("DskChk"); if (DrvIsWritable(':'))
|
||
XTalkWait(task,"DskChk;Sleep(750);\n");
|
||
TS("DrvView"); if (DrvIsWritable(':')) {
|
||
XTalkWait(task,"DrvView;\n");
|
||
Sleep(750);
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
}
|
||
TS("DskView"); if (DrvIsWritable(':')) {
|
||
XTalkWait(task,"DskView;\n");
|
||
Sleep(250); //Short because ATARep takes time.
|
||
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
|
||
}
|
||
TS("ATARep"); XTalkWait(task,"ATARep;\npSleep(750);\n");
|
||
TS("HashDepthRep"); XTalkWait(task,
|
||
"HashDepthRep(adam_task->hash_table);Sleep(750);\n");
|
||
TS("Who"); XTalkWait(task,"Who;Sleep(750);\n");
|
||
TS("DrvRep"); XTalkWait(task,"DrvRep;Sleep(750);\n");
|
||
TS("TaskRep"); XTalkWait(task,"TaskRep;Sleep(750);\n");
|
||
DeathWait(&task,TRUE);
|
||
|
||
ProgressBarsRst("TempleOS/OSTestSuite");
|
||
"Elapsed Time:%5.3f\n",tS-ts_t0;
|
||
}
|
||
|
||
OSTestSuite;
|