Rijn/TempleOS-Rijn
1
1 Fork 0
Code Issues Pull Requests 1 Actions Packages Projects Releases Wiki Activity

TempleOSCDV5.00.ISO

Browse Source
This commit is contained in:
Terry A. Davis authored and minexew committed 2018-09-08 21:48:09 +02:00
1 parent 122df6338e
commit f6eacf7744
374 files changed
+11078 -11204
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

Misc/DoDistro.HC
+1 -1
View File
@@ -1,6 +1,6 @@
//Make Your own Distro by #include-ing this file.
#define STD_DISTRO_DVD_CFG "Tb\nScale2Mem(2048,0x40000)\nt \n\n\n\n"
#define STD_DISTRO_DVD_CFG "TB\nScale2Mem(2048,0x40000)\nT \n\n\n\n"
U0 MakeMyISO(U8 *_out_iso_filename)
{//Does everything with current drive.
Misc/OSInstall.HC
+8 -6
View File
@@ -20,8 +20,7 @@ U0 InstallDrv(U8 drv_let)
Bool VMPrtDsk(CTask *task,CATARep *ata_drv)
{
if (ata_drv) {
XTalkWait(task,"PrtDsk;\nYCp%d\nYYY",ata_drv->num);
XTalkWait(task,"%d\nY\nY\n",(drv_dsk_dsk_size-DRV_HEADER)/2);
XTalkWait(task,"PrtDsk(,0.5,0.5);\nC\np%d\nY",ata_drv->num);
return TRUE;
} else
return FALSE;
@@ -33,7 +32,7 @@ U0 VMInstallDrv(CTask *task,U8 drv_let,
InstallDrv(drv_let);
XTalkWait(task,"BootHDIns('%C');\n\nB\n0x20000\n",drv_let);
if (ata_drv)
XTalkWait(task,"Cp%d\n",ata_drv->num);
XTalkWait(task,"C\np%d\n",ata_drv->num);
if (atapi_drv)
XTalkWait(task,"Tp%d\n",atapi_drv->num);
XTalkWait(task,"\n\n\n"); //Exit Drives,Dsk Cache,Options
@@ -90,7 +89,7 @@ U0 RegularInstallWiz()
WinVert(Fs->win_top,(Fs->win_top+Fs->win_bottom)>>2-1,task);
WinVert(task->win_bottom+3,Fs->win_bottom);
WinToTop(Fs);
XTalk(task,"Mount;\nCp");
XTalk(task,"Mount;\nC\np");
num_hints=ATARep(FALSE,,&head);
"\nInclude '$$PURPLE$$0x$$FG$$' for hexidecimal numbers.\n\n";
@@ -126,7 +125,10 @@ U0 RegularInstallWiz()
DrvRep;
do {
st=GetStr("\nDestination Partition Letter: ");
drv_let=ToUpper(*st);
if (*st)
drv_let=Let2Let(*st);
else
drv_let=0;
Free(st);
} while (!('A'<=drv_let<='Z'));
'\n';
@@ -148,7 +150,7 @@ U0 RegularInstallWiz()
}
InstallDrv(drv_let);
XTalkWait(task,"BootHDIns('%C');\n\nB\n0x20000\n"
"Cs%s\n%s\n%C\n\n\n", //Exit Drives,Dsk Cache,Options
"C\ns%s\n%s\n%C\n\n\n", //Exit Drives,Dsk Cache,Options
drv_let,base0,base1,'0'+unit);
"$$RED$$Install Master Boot loader?$$FG$$";
if (YorN) {
Misc/OSTestSuite.HC
+319 -329
View File
@@ -1,32 +1,47 @@
U0 TS(I64 i,F64 t0)
{
progress4=i;
progress4_max=172;
progress4_t0=t0;
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=170;
progress4_t0=ts_t0;
*progress4_desc=0;
RegExe("TempleOS/OSTestSuite");
}
U0 TSFile(U8 *name,I64 ms=750)
U0 TSFile(U8 *name,I64 mS=750)
{
CTask *task=User("#include \"%s\";Sleep(%d);\n",name,ms);
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)
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);
Sleep(mS);
if (ch)
PostMsgWait(task,MSG_KEY_DOWN_UP,ch,0);
DeathWait(&task,TRUE);
}
/*
U0 DoInputPointer()
U0 DoMouseDemo()
{
CTask *task=User;
XTalkWait(task,"#include \"::/Demo/Graphics/InputPointer\";\n");
XTalkWait(task,"#include \"::/Demo/Graphics/MouseDemo\";\n");
Sleep(500);
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
DeathWait(&task,TRUE);
@@ -232,8 +247,8 @@ U0 DoDoodle()
{
CTask *task=User;
XTalkWait(task,"#include \"::/Demo/Graphics/Doodle\";\n");
PostMsgWait(task,MSG_IP_L_DOWN,10,10);
PostMsgWait(task,MSG_IP_L_UP,100,200);
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);
@@ -244,16 +259,16 @@ U0 DoSpeedLine()
I64 i=PURPLE+1; //+1 because TRANSPARENT
CTask *task=User;
XTalkWait(task,"#include \"::/Demo/Graphics/Speedline\";\n");
PostMsgWait(task,MSG_IP_L_DOWN,10,10);
PostMsgWait(task,MSG_IP_L_UP,100,200);
PostMsg(task,MSG_IP_R_DOWN_UP,0,0);
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_IP_L_DOWN,50,10);
PostMsgWait(task,MSG_IP_L_UP,150,200);
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);
@@ -271,13 +286,6 @@ U0 DoKeyBitMap()
DeathWait(&task,TRUE);
}
U0 DoMountain()
{
CTask *task=User("#include \"::/Demo/Graphics/Mountain\";\n");
Sleep(1500);
Kill(task);
}
U0 DoDigits()
{
CTask *task=User;
@@ -297,14 +305,14 @@ U0 DoSymmetry()
{
CTask *task=User;
XTalkWait(task,"#include \"::/Demo/Graphics/Symmetry\";\n");
PostMsgWait(task,MSG_IP_R_DOWN,100,100);
PostMsgWait(task,MSG_IP_R_UP,200,200);
PostMsgWait(task,MSG_MS_R_DOWN,100,100);
PostMsgWait(task,MSG_MS_R_UP,200,200);
Sleep(100);
PostMsgWait(task,MSG_IP_L_DOWN,10,10);
PostMsgWait(task,MSG_IP_L_UP,100,200);
PostMsgWait(task,MSG_MS_L_DOWN,10,10);
PostMsgWait(task,MSG_MS_L_UP,100,200);
Sleep(250);
PostMsgWait(task,MSG_IP_L_DOWN,100,200);
PostMsgWait(task,MSG_IP_L_UP,400,400);
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);
@@ -314,10 +322,10 @@ U0 DoBSpline()
{
CTask *task=User;
XTalkWait(task,"#include \"::/Demo/Graphics/BSpline\";\n");
PostMsgWait(task,MSG_IP_L_DOWN_UP,50,50);
PostMsgWait(task,MSG_IP_L_DOWN_UP,300,100);
PostMsgWait(task,MSG_IP_L_DOWN_UP,150,300);
PostMsgWait(task,MSG_IP_R_DOWN_UP,0,0);
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);
@@ -342,11 +350,11 @@ U0 DoStadium()
CTask *task=User;
XTalkWait(task,"#include \"::/Demo/Games/Stadium/Stadium\";\n");
Sleep(50);
PostMsgWait(task,MSG_IP_L_DOWN_UP,100,10);
PostMsgWait(task,MSG_MS_L_DOWN_UP,100,10);
Sleep(300);
PostMsgWait(task,MSG_IP_L_DOWN_UP,320,20);
PostMsgWait(task,MSG_MS_L_DOWN_UP,320,20);
Sleep(300);
PostMsgWait(task,MSG_IP_L_DOWN_UP,520,10);
PostMsgWait(task,MSG_MS_L_DOWN_UP,520,10);
Sleep(300);
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
DeathWait(&task,TRUE);
@@ -472,7 +480,7 @@ U0 DoFlatTops()
TaskWait(task->popup_task);
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
DeathWait(&task->popup_task);
PostMsgWait(task,MSG_IP_R_DOWN_UP,RandI16%400+200,RandI16%300+150);
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);
@@ -566,8 +574,8 @@ U0 DoPixCollision()
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;
IPSet(w-35,h-35);
InSetIP(10,w+35,w+35);
MsSet(w-35,h-35);
InSetMs(10,w+35,w+35);
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
DeathWait(&task,TRUE);
}
@@ -631,16 +639,16 @@ U0 DoCtrlR1()
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_IP_L_DOWN,150,150);
PostMsgWait(task,MSG_IP_L_UP,150,95);
PostMsgWait(task,MSG_MS_L_DOWN,150,150);
PostMsgWait(task,MSG_MS_L_UP,150,95);
Sleep(250);
PostMsgWait(task,MSG_IP_L_DOWN,150,150);
PostMsgWait(task,MSG_IP_L_UP,190,190);
PostMsgWait(task,MSG_MS_L_DOWN,150,150);
PostMsgWait(task,MSG_MS_L_UP,190,190);
Sleep(250);
PostMsgWait(task,MSG_IP_L_DOWN,150,150);
PostMsgWait(task,MSG_IP_L_UP,110,190);
PostMsgWait(task,MSG_MS_L_DOWN,150,150);
PostMsgWait(task,MSG_MS_L_UP,110,190);
Sleep(250);
PostMsg(task,MSG_IP_R_DOWN_UP,100,100);
PostMsg(task,MSG_MS_R_DOWN_UP,100,100);
//Color
task_num=BirthWait(&task->popup_task,task_num);
@@ -661,10 +669,10 @@ U0 DoCtrlR1()
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_IP_L_DOWN,150,150);
PostMsgWait(task,MSG_IP_L_UP,190,190);
PostMsgWait(task,MSG_MS_L_DOWN,150,150);
PostMsgWait(task,MSG_MS_L_UP,190,190);
Sleep(250);
PostMsg(task,MSG_IP_R_DOWN_UP,100,100);
PostMsg(task,MSG_MS_R_DOWN_UP,100,100);
//Exit
BirthWait(&task->popup_task);
@@ -691,7 +699,7 @@ U0 DoF2Macro()
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[SYS_SEMA_RECORD_MACRO],0))
while (!Bt(&sys_semas[SEMA_RECORD_MACRO],0))
Yield;
while (*ptr)
@@ -804,9 +812,9 @@ U0 DoBattleLines()
TaskWait(task->popup_task);
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
DeathWait(&task->popup_task);
IPSet(430,300,,TRUE);
InSetIP(10,530,400);
IPSet(,,,FALSE);
MsSet(430,300,,TRUE);
InSetMs(10,530,400);
MsSet(,,,FALSE);
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
DeathWait(&task,TRUE);
}
@@ -854,11 +862,11 @@ U0 DoDunGen()
DeathWait(&task,TRUE);
}
U0 DoTimeOut()
U0 DoTitanium()
{
I64 i;
CTask *task=User;
XTalkWait(task,"#include \"::/Apps/TimeOut/Run\";\n");
XTalkWait(task,"#include \"::/Apps/Titanium/Run\";\n");
Sleep(200);
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
for (i=0;i<3;i++) {
@@ -954,61 +962,61 @@ U0 DoStrut()
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
IPSet(200,200,,TRUE);
PostMsgWait(task,MSG_IP_L_DOWN,0,0);
MsSet(200,200,,TRUE);
PostMsgWait(task,MSG_MS_L_DOWN,0,0);
Refresh(2);
IPSet(GR_WIDTH-200,200,,TRUE);
PostMsgWait(task,MSG_IP_L_DOWN,0,0);
MsSet(GR_WIDTH-200,200,,TRUE);
PostMsgWait(task,MSG_MS_L_DOWN,0,0);
IPSet(GR_WIDTH/2,400,,TRUE);
PostMsgWait(task,MSG_IP_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);
IPSet(200,200,,TRUE);
PostMsgWait(task,MSG_IP_L_DOWN,0,0);
IPSet(GR_WIDTH-200,200,,TRUE);
PostMsgWait(task,MSG_IP_L_UP,0,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);
IPSet(200,200,,TRUE);
PostMsgWait(task,MSG_IP_L_DOWN,0,0);
IPSet(GR_WIDTH/2,400,,TRUE);
PostMsgWait(task,MSG_IP_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);
IPSet(GR_WIDTH-200,200,,TRUE);
PostMsgWait(task,MSG_IP_L_DOWN,0,0);
IPSet(GR_WIDTH/2,400,,TRUE);
PostMsgWait(task,MSG_IP_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);
IPSet(GR_WIDTH/2,GR_HEIGHT/2,,TRUE);
PostMsgWait(task,MSG_IP_L_DOWN,0,0);
IPSet(GR_WIDTH-200,200,,TRUE);
PostMsgWait(task,MSG_IP_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);
IPSet(GR_WIDTH/2,GR_HEIGHT/2,,TRUE);
PostMsgWait(task,MSG_IP_L_DOWN,0,0);
IPSet(GR_WIDTH/2,400,,TRUE);
PostMsgWait(task,MSG_IP_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);
IPSet(GR_WIDTH/2,GR_HEIGHT/2,,TRUE);
PostMsgWait(task,MSG_IP_L_DOWN,0,0);
IPSet(200,200,,TRUE);
PostMsgWait(task,MSG_IP_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);
IPSet(GR_WIDTH/2,400,,TRUE);
PostMsgWait(task,MSG_IP_L_DOWN,0,0);
IPSet(GR_WIDTH-200,200,,TRUE);
PostMsgWait(task,MSG_IP_L_UP,0,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);
IPSet(GR_WIDTH/2,400,,TRUE);
PostMsgWait(task,MSG_IP_L_DOWN,0,0);
IPSet(200,200,,TRUE);
PostMsgWait(task,MSG_IP_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);
IPSet(,,,FALSE);
MsSet(,,,FALSE);
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
LBts(kbd.down_bitmap,Char2ScanCode('1'));
@@ -1036,28 +1044,6 @@ U0 DoRawHide()
DeathWait(&task,TRUE);
}
U0 DoAfterEgypt()
{
CTask *task=User("#include \"::/Apps/AfterEgypt/Run\";\n");
BirthWait(&task->popup_task);
Sleep(600); //It flushes messages!
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
DeathWait(&task->popup_task);
TaskWait(task);
Sleep(1000);
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0); //Camp
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);
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0); //Map
Sleep(1000);
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0); //Map
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0); //Camp
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0); //Main Menu
DeathWait(&task,TRUE);
}
U0 DoPoleZeros()
{
CTask *task=User("#include \"::/Demo/Graphics/PoleZeros\";\n");
@@ -1073,11 +1059,11 @@ U0 DoWhap()
{
CTask *task=User;
XTalkWait(task,"#include \"::/Demo/Games/Whap\";\n");
IPSet(300,200);
MsSet(300,200);
Sleep(500);
InSetIP(3,350,300);
InSetMs(3,350,300);
Sleep(500);
InSetIP(3,450,200);
InSetMs(3,450,200);
Sleep(500);
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
DeathWait(&task,TRUE);
@@ -1086,14 +1072,14 @@ U0 DoWhap()
U0 DoGrid()
{
CTask *task=User("#include \"::/Demo/Graphics/Grid\";\n");
IPSet(200,200);
MsSet(200,200);
Sleep(150);
InSetIP(2,400,400);
InSetIP(2,200,400);
InSetIP(2,200,200);
IPSet(,,,TRUE);
InSetMs(2,400,400);
InSetMs(2,200,400);
InSetMs(2,200,200);
MsSet(,,,TRUE);
Sleep(50);
IPSet(,,,FALSE);
MsSet(,,,FALSE);
DocBottom(DocPut(task));
DeathWait(&task,TRUE);
}
@@ -1102,11 +1088,11 @@ U0 DoPick()
{
CTask *task=User;
XTalkWait(task,"#include \"::/Demo/Graphics/Pick\";\n");
IPSet(200,200);
MsSet(200,200);
Sleep(500);
IPSet(,,,TRUE);
InSetIP(4,400,400);
IPSet(,,,FALSE);
MsSet(,,,TRUE);
InSetMs(4,400,400);
MsSet(,,,FALSE);
Sleep(500);
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
DeathWait(&task,TRUE);
@@ -1116,11 +1102,11 @@ U0 DoPick3D()
{
CTask *task=User;
XTalkWait(task,"#include \"::/Demo/Graphics/Pick3D\";\n");
IPSet(200,200);
MsSet(200,200);
Sleep(500);
IPSet(,,,TRUE);
InSetIP(4,400,400);
IPSet(,,,FALSE);
MsSet(,,,TRUE);
InSetMs(4,400,400);
MsSet(,,,FALSE);
Sleep(500);
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
DeathWait(&task,TRUE);
@@ -1151,9 +1137,9 @@ U0 DoKeepAway()
BirthWait(&task->popup_task);
TaskWait(task->popup_task);
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
IPSet(100,100);
MsSet(100,100);
Sleep(1500);
PostMsgWait(task,MSG_IP_R_DOWN_UP,ip.pos.x,ip.pos.y);
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);
@@ -1197,22 +1183,22 @@ U0 DoMassSpring()
TaskWait(task->popup_task);
PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
DeathWait(&task->popup_task);
PostMsgWait(task,MSG_IP_L_DOWN_UP,50,50); //#1
PostMsgWait(task,MSG_IP_L_DOWN_UP,50,200); //#2
PostMsgWait(task,MSG_IP_L_DOWN_UP,210,50); //#3
PostMsgWait(task,MSG_IP_L_DOWN_UP,310,200);//#4
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_IP_R_DOWN,50,50); //1-2
PostMsgWait(task,MSG_IP_R_UP,50,200);
PostMsgWait(task,MSG_MS_R_DOWN,50,50); //1-2
PostMsgWait(task,MSG_MS_R_UP,50,200);
Sleep(500);
PostMsgWait(task,MSG_IP_R_DOWN,210,50);//3-4
PostMsgWait(task,MSG_IP_R_UP,310,200);
PostMsgWait(task,MSG_MS_R_DOWN,210,50);//3-4
PostMsgWait(task,MSG_MS_R_UP,310,200);
Sleep(500);
PostMsgWait(task,MSG_IP_R_DOWN,50,200);//2-4
PostMsgWait(task,MSG_IP_R_UP,310,200);
PostMsgWait(task,MSG_MS_R_DOWN,50,200);//2-4
PostMsgWait(task,MSG_MS_R_UP,310,200);
Sleep(500);
PostMsgWait(task,MSG_IP_R_DOWN,50,50); //1-3
PostMsgWait(task,MSG_IP_R_UP,210,50);
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);
@@ -1463,10 +1449,10 @@ U0 DoClickCallBack()
DeathWait(&task,TRUE);
}
U0 DoMenuButton()
U0 DoMenuBttn()
{
CTask *task=User;
XTalkWait(task,"#include \"::/Demo/DolDoc/MenuButton\";\n");
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);
@@ -1558,198 +1544,202 @@ U0 DoAsmAndC2()
}
U0 OSTestSuite()
{ //$MA+LIS-X,"RENUM",LM="I64 i;for (i=0;i<172;i++){if(i)Msg(MSG_KEY_DOWN_UP,0,SC_F3);else\"%cTS(%c\",CH_CTRLF,CH_ESC;Msg(MSG_KEY_DOWN,0,SC_CURSOR_RIGHT);Msg(MSG_KEY_DOWN,0,SC_CURSOR_RIGHT);Msg(MSG_KEY_DOWN,0,SC_CURSOR_RIGHT);\"%03d\",i;Msg(MSG_KEY_DOWN,0,SC_CURSOR_RIGHT);Msg(MSG_KEY_DOWN,0,SC_CURSOR_RIGHT);Msg(MSG_KEY_DOWN,0,SC_CURSOR_RIGHT);\"%c%c%c\",CH_BACKSPACE,CH_BACKSPACE,CH_BACKSPACE;}"$
F64 t0=tS;
{
CTask *task;
TS(000,t0); DoBlackDiamond;
TS(001,t0); DoTalons;
TS(002,t0); DoFlatTops;
TS(003,t0); DoDunGen;
TS(004,t0); DoFPS;
TS(005,t0); DoZoneOut;
TS(006,t0); DoVaroom;
TS(007,t0); DoRocket;
TS(008,t0); DoRocketScience;
TS(009,t0); DoBattleLines;
TS(010,t0); DoBigGuns;
TS(011,t0); DoFlapBat;
TS(012,t0); DoTimeOut;
TS(013,t0); DoToTheFront;
TS(014,t0); DoPsalmody;
TS(015,t0); DoJukeBox;
TS(016,t0); if (!sys_heap_init_flag) DoSpan; //Has FloodFill
TS(017,t0); DoStrut;
TS(018,t0); DoRawHide;
TS(019,t0); DoKeepAway;
TS(020,t0); DoAfterEgypt;
TS(021,t0); DoXCaliber;
TS(022,t0); DoWenceslas;
TS(023,t0); DoBomberGolf;
TS(024,t0); DoTheDead;
TS(025,t0); DoTreeCheckers;
TS(026,t0); TSFile("::/Demo/RadixSort");
TS(027,t0); DoMPAdd;
TS(028,t0); TSFile("::/Demo/MultiCore/Primes");
TS(029,t0); if (FileFind(BIBLE_FILENAME))
TSFile("::/Demo/MultiCore/Palindrome");
TS(030,t0); TSFileChar("::/Demo/MultiCore/Clouds");
TS(031,t0); if (mp_cnt>1) TSFile("::/Demo/MultiCore/MPRadix");
TS(032,t0); if (mp_cnt>1 && DrvIsWritable(':'))
TSFileChar("::/Demo/MultiCore/LoadTest");
TS(033,t0); if (mp_cnt>1) TSFile("::/Demo/MultiCore/MPPrint");
TS(034,t0); if (mp_cnt>1) TSFile("::/Demo/MultiCore/Lock");
TS(035,t0); if (mp_cnt>1) TSFile("::/Demo/MultiCore/Interrupts");
TS(036,t0); TSFileChar("::/Demo/Graphics/SpritePlot");
TS(037,t0); TSFileChar("::/Demo/Graphics/Elephant",,CH_SHIFT_ESC);
TS(038,t0); TSFileChar("::/Demo/Graphics/SpritePlot3D");
TS(039,t0); TSFile("::/Demo/Graphics/SpritePut");
TS(040,t0); TSFile("::/Demo/Graphics/SpritePutExt");
TS(041,t0); TSFile("::/Demo/Graphics/SpriteText");
TS(042,t0); TSFile("::/Demo/Graphics/SpriteRaw");
TS(043,t0); TSFile("::/Demo/Graphics/EdSprite");
TS(044,t0); TSFile("::/Demo/Graphics/Balloon",0);
TS(045,t0); TSFile("::/Demo/Carry");
TS(046,t0); TSFile("::/Demo/Directives");
TS(047,t0); DoRandDemo;
TS(048,t0); TSFileChar("::/Demo/Graphics/Extents");
TS(049,t0); TSFileChar("::/Demo/Graphics/NetOfDots");
TS(050,t0); TSFileChar("::/Demo/Graphics/SunMoon");
TS(051,t0); DoLowPassFilter;
TS(052,t0); DoMathAudioDemo;
TS(053,t0); TSFileChar("::/Demo/Graphics/Lines");
TS(054,t0); TSFileChar("::/Demo/Graphics/Bounce",,CH_SHIFT_ESC,FALSE);
TS(055,t0); DoMsgLoop;
TS(056,t0); DoASCIIOrgan;
TS(057,t0); DoMorseCode;
TS(058,t0); DoPixCollision;
TS(059,t0); DoDoodle;
TS(060,t0); DoMassSpring;
TS(061,t0); DoSpeedLine;
TS(062,t0); DoKeyBitMap;
TS(063,t0); DoMountain;
TS(064,t0); DoBSpline;
TS(065,t0); DoGrModels;
TS(066,t0); TSFileChar("::/Demo/Graphics/Blot",1800);
TS(067,t0); if (DrvIsWritable('~')) DoScrnCapture;
TS(068,t0); DoGrid;
TS(069,t0); DoPick;
TS(070,t0); DoPick3D;
TS(071,t0); DoWhap;
TS(072,t0); DoPalette;
TS(073,t0); TSFile("::/Demo/Print");
TS(074,t0); TSFileChar("::/Demo/Graphics/Shading",1500);
TS(075,t0); TSFileChar("::/Demo/Graphics/RotateTank",1500);
TS(076,t0); TSFileChar("::/Demo/Graphics/3DPoly",1500);
TS(077,t0); TSFileChar("::/Demo/Graphics/Box",1500);
TS(078,t0); DoSymmetry;
TS(079,t0); TSFileChar("::/Demo/Graphics/Shadow",1500);
TS(080,t0); TSFileChar("::/Demo/Graphics/Transform",,CH_SHIFT_ESC);
TS(081,t0); DoPredatorPrey;
TS(082,t0); DoPoleZeros;
TS(083,t0); DoDigits;
TS(084,t0); DoStadium;
TS(085,t0); DoElephantWalk;
TS(086,t0); DoHalogen;
TS(087,t0); TSFileChar("::/Demo/Games/Maze",,CH_SHIFT_ESC);
TS(088,t0); TSFileChar("::/Demo/Graphics/FontEd",,CH_SHIFT_ESC);
TS(089,t0); DoLattice;
TS(090,t0); DoCtrlR1;
TS(091,t0); DoF2Macro;
TS(092,t0); TSFile("::/Demo/SubIntAccess");
TS(093,t0); DoDemoDoc;
TS(094,t0); TSFile("::/Demo/DolDoc/TreeDemo");
TS(095,t0); TSFile("::/Demo/DolDoc/TextDemo");
TS(096,t0); TSFile("::/Demo/DolDoc/CursorMove");
TS(097,t0); DoMiniCompiler;
TS(098,t0); TSFile("::/Demo/Lectures/MiniGrLib",0);
TS(099,t0); TSFileChar("::/Demo/TimeIns");
TS(100,t0); DoPhoneNumWords;
TS(101,t0); TSFile("::/Demo/Dsk/UnusedSpaceRep");
TS(102,t0); TSFile("::/Demo/Dsk/BlkDevRep");
TS(103,t0); DoLastClass;
TS(104,t0); if (DrvIsWritable('~')) DoFPrintF;
TS(105,t0); TSFile("::/Demo/Dsk/SerializeTree");
TS(106,t0); DoExceptions;
TS(107,t0); TSFileChar("::/Demo/ScrnCodes");
TS(108,t0); TSFile("::/Demo/ExtChars");
TS(109,t0); TSFile("::/Demo/Graphics/PanText",0);
TS(110,t0); TSFile("::/Demo/Graphics/CharAnimation");
TS(111,t0); DoCharDemo;
TS(112,t0); TSFile("::/Demo/DateTime");
TS(113,t0); TSFile("::/Demo/SubSwitch");
TS(114,t0); TSFile("::/Demo/NullCase");
TS(115,t0); TSFile("::/Demo/MagicPairs");
TS(116,t0); TSFileChar("::/Demo/Graphics/Hanoi",3000);
TS(117,t0); DoSquirt;
TS(118,t0); TSFileChar("::/Demo/Graphics/CommonAncestor",1500,CH_SHIFT_ESC);
TS(119,t0); DoCartesian;
TS(120,t0); TSFileChar("::/Demo/Games/RainDrops",,CH_SHIFT_ESC);
TS(121,t0); TSFileChar("::/Demo/Games/Collision",1500);
TS(122,t0); DoLogic;
TS(123,t0); TSFile("::/Demo/CompileDemo");
TS(124,t0); DoPrompt;
TS(125,t0); if (DrvIsWritable('~')) DoWebLog;
TS(126,t0); if (DrvIsWritable('~')) DoRevFile;
TS(127,t0); if (DrvIsWritable('~')) DoSortFile;
TS(128,t0); if (DrvIsWritable('~')) DoToHtmlToTXT;
TS(129,t0); if (DrvIsWritable('~')) TSFile("::/Demo/RegistryDemo");
TS(130,t0); DoDefine;
TS(131,t0); TSFile("::/Demo/GlblVars");
TS(132,t0); DoFileRead;
TS(133,t0); TSFile("::/Demo/ParenWarn");
TS(134,t0); TSFile("::/Demo/DolDoc/DefineStr");
TS(135,t0); TSFile("::/Demo/DolDoc/Data");
TS(136,t0); TSFile("::/Demo/DolDoc/CallBack");
TS(137,t0); TSFile("::/Demo/ClassMeta");
TS(138,t0); if (DrvIsWritable('~')) DoNumBible;
TS(139,t0); DoForm;
TS(140,t0); DoClickCallBack;
TS(141,t0); DoMenuButton;
TS(142,t0); DoMenuSprite;
TS(143,t0); DoSuggestedSpelling;
TS(144,t0); TSFileChar("::/Demo/WordSearch");
TS(145,t0); TSFile("::/Demo/StkGrow");
TS(146,t0); TSFile("::/Demo/MemDemo");
TS(147,t0); TSFileChar("::/Demo/Snd/WaterFowl");
TS(148,t0); TSFile("::/Demo/Asm/AsmHelloWorld");
TS(149,t0); DoAsmAndC1;
TS(150,t0); DoAsmAndC2;
TS(151,t0); TSFile("::/Demo/Asm/AsmAndC3");
TS(152,t0); TSFile("::/Demo/Asm/MulByHand");
TS(153,t0); TSFile("::/Demo/Asm/DivByHand");
TS(154,t0); TSFile("::/Demo/Asm/BuzzFizz");
TS(155,t0); TSFile("::/Demo/Asm/PutDec");
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("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(156,t0); XTalkWait(task,"DocMax;Prof;HeapLog(ON);\n");
TS(157,t0); XTalkWait(task,"PCIRep;Sleep(750);\n");
TS(158,t0); XTalkWait(task,"MemBIOSRep;Sleep(750);\n");
TS(159,t0); XTalkWait(task,"MemRep;Sleep(750);\n");
TS(160,t0); XTalkWait(task,"ZipRep;Sleep(750);\n");
TS(161,t0); XTalkWait(task,"ProfRep;Sleep(750);\n");
TS(162,t0); XTalkWait(task,"HeapLogSizeRep;Sleep(750);\n");
TS(163,t0); if (mp_cnt>1) XTalkWait(task,"CPURep(TRUE);Sleep(750);\n");
TS(164,t0); if (DrvIsWritable(':')) XTalkWait(task,"ChkDsk;Sleep(750);\n");
TS(165,t0); if (DrvIsWritable(':')) {
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("ChkDsk"); if (DrvIsWritable(':'))
XTalkWait(task,"ChkDsk;Sleep(750);\n");
TS("DrvView"); if (DrvIsWritable(':')) {
XTalkWait(task,"DrvView;\n");
Sleep(750);
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
}
TS(166,t0); if (DrvIsWritable(':')) {
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(167,t0); XTalkWait(task,"ATARep;\npSleep(750);\n");
TS(168,t0); XTalkWait(task,
TS("ATARep"); XTalkWait(task,"ATARep;\npSleep(750);\n");
TS("HashDepthRep"); XTalkWait(task,
"HashDepthRep(adam_task->hash_table);Sleep(750);\n");
TS(169,t0); XTalkWait(task,"Who;Sleep(750);\n");
TS(170,t0); XTalkWait(task,"DrvRep;Sleep(750);\n");
TS(171,t0); XTalkWait(task,"TaskRep;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;
"Elapsed Time:%5.3f\n",tS-t0;
ProgressBarsRst("TempleOS/OSTestSuite");
"Elapsed Time:%5.3f\n",tS-ts_t0;
}
OSTestSuite;
Misc/PCIDevices.DD
+1 -1
View File
@@ -212,7 +212,7 @@
602C SN9C102C home made
602D VID_0C45&PID_6480&MI_00 USB Webcam
6030 USB\VID_0C45&PID_6029\5&18D8BE1C&0&1 USB WebCam
610C USB\VID_0C45&PID_610B\7&3211544E$$0$$2 usb web camera
610C USB\VID_0C45&PID_610B\7&3211544E$$$$0$$$$2 usb web camera
6128 USB\VID_0C45&PID_613C&REV_0101 USB &#1074;&#1077;&#1073;-&#1082;&#1072;&#1084;&#1077;&#1088;&#1072;
6128_ USB\VID_0C45&PID_6148&REV_0101 USB PC Camera Plus
6129 USB\VID_0C45&PID_6128\5&3875c171&0&1 USB WebCam
Misc/Tour/Tour.IN
+6 -6
View File
@@ -13,8 +13,8 @@ U0 TourPutTask()
Fs->border_src=BDS_CONST;
Fs->border_attr=LTGRAY<<4+DrvTextAttrGet(':')&15;
Fs->text_attr =LTGRAY<<4+BLUE;
Fs->win_inhibit=WIG_TASK_DFT-WIF_SELF_BORDER-WIF_SELF_IP_L
-WIF_SELF_IP_R-WIG_DBL_CLICK;
Fs->win_inhibit=WIG_TASK_DFT-WIF_SELF_BORDER-WIF_SELF_MS_L
-WIF_SELF_MS_R-WIG_DBL_CLICK;
doc=DocPut;
doc->flags|=DOCF_FORM;
DocCursor(FALSE,doc);
@@ -29,13 +29,13 @@ U0 TourPutTask()
if (ch==CH_SPACE && doc->cur_entry!=doc) {
if (doc->cur_entry->de_flags & DOCEF_LINK)
'' CH_SPACE;
else if (doc->cur_entry->type_u8==DOCT_BUTTON)
else if (doc->cur_entry->type_u8==DOCT_BTTN)
tour_okay_pressed=TRUE;
}
DocUnlock(doc);
if (tour_okay_pressed) {
Fs->win_inhibit=WIG_TASK_DFT-WIF_SELF_BORDER-WIF_SELF_IP_L
-WIF_SELF_IP_R-WIG_DBL_CLICK;
Fs->win_inhibit=WIG_TASK_DFT-WIF_SELF_BORDER-WIF_SELF_MS_L
-WIF_SELF_MS_R-WIG_DBL_CLICK;
if (sys_focus_task==Fs)
WinRefocus;
} else {
@@ -67,7 +67,7 @@ U0 TourPut(U8 *st,Bool wait_okay=FALSE)
DocClear(doc);
}
} else
ThrowBreak(tour_task);
Kill(tour_task,,TRUE);
}
public I64 PopUpTourPart()
Misc/Tour/Tour1.IN
+3 -3
View File
@@ -45,13 +45,13 @@ U0 RevealPopUpHelp(I64 scf)
while (kbd.scan_code&(SCF_CTRL|SCF_ALT|SCF_SHIFT)==scf) {
ScanKey(,,TRUE);
if (1.0<tS-t0<1.15)
Snd(100);
Snd(34);
else
Snd(0);
Snd;
Sleep(1);
}
LBEqu(&Fs->win_inhibit,WIf_SELF_KEY_DESC,old_key_desc);
Snd(0);
Snd;
} while (tS-t0<1.0);
}