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

TempleOSCD_140715.ISO

Browse Source
This commit is contained in:
Terry A. Davis authored and minexew committed 2018-09-08 21:46:09 +02:00
1 parent 7ef616a20e
commit 64f679eeb9
1095 files changed
+24814 -221011
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

Misc/MakeDistro.CPP
+1 -1
View File
@@ -7,7 +7,7 @@ $FG,4$$TX,"VMware Player",HTML="https://my.vmware.com/web/vmware/free#desktop_en
(The $FG,4$$TX,"VMware",HTML="https://my.vmware.com/web/vmware/free#desktop_end_user_computing/vmware_player/5_0"$$FG$ web page takes a whole minute to load. They hide the free version.)
Purchase $FG,4$$TX,"VMware WorkStation",HTML="http://www.vmware.com"$$FG$ or download $FG,4$$TX,"WinImage",HTML="http://www.winimage.com/winimage.htm"$$FG$ if you wish to transfer files
in and out. The VMWare Workstation will stretch to full-screen and make drives
in and out. The VMware Workstation will stretch to full-screen and make drives
accessible from Windows.
$HL,1$*/
Misc/OSTestSuite.CPP
+197 -160
View File
@@ -6,13 +6,13 @@ U0 TSStart()
U0 TS()
{
progress4=ts_num++;
progress4_max=150;
progress4_max=155;
*progress4_desc=0;
}
U0 TSEnd()
{
if (ts_num!=progress4_max)
"$$RED$$Progress4:%d$$FG$$\n",progress4;
ST_ERR_ST "Cnt %d should be %d.\n",ts_num,progress4_max;
else
"$$GREEN$$Test Suite Completed$$FG$$\n";
ProgressBarsRst;
@@ -31,7 +31,7 @@ U0 DoElephant()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Graphics/Elephant\";\n");
Sleep(1000);
Sleep(750);
SendMsg(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
XTalk(task,"Exit;\n");
}
@@ -40,7 +40,7 @@ U0 DoSpritePlot3D()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Graphics/SpritePlot3D\";\n");
Sleep(1500);
Sleep(750);
SendMsg(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
XTalk(task,"Exit;\n");
}
@@ -49,7 +49,7 @@ U0 DoSpritePut()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Graphics/SpritePut\";\n");
Sleep(1000);
Sleep(750);
XTalk(task,"Exit;\n");
}
@@ -57,7 +57,7 @@ U0 DoSpritePutExt()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Graphics/SpritePutExt\";\n");
Sleep(1000);
Sleep(750);
XTalk(task,"Exit;\n");
}
@@ -65,7 +65,7 @@ U0 DoSpriteText()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Graphics/SpriteText\";\n");
Sleep(1000);
Sleep(750);
XTalk(task,"Exit;\n");
}
@@ -86,8 +86,8 @@ U0 DoBalloon()
U0 DoEdCSprite()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Graphics/EdCSprite\";\n");
Sleep(1000);
XTalkWait(task,"#include \"::/Demo/Graphics/EdSprite\";\n");
Sleep(750);
XTalk(task,"Exit;\n");
}
@@ -95,25 +95,24 @@ U0 DoExtents()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Graphics/Extents\";\n");
Sleep(1500);
Sleep(750);
SendMsg(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
XTalk(task,"Exit;\n");
}
U0 DoDotNet()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Graphics/DotNet\";\n");
XTalkWait(task,"#include \"::/Demo/Graphics/NetOfDots\";\n");
Sleep(300);
SendMsg(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
XTalk(task,"Exit;\n");
}
U0 DoMoon()
U0 DoSunMoon()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Graphics/Moon\";\n");
XTalkWait(task,"#include \"::/Demo/Graphics/SunMoon\";\n");
Sleep(300);
SendMsg(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
XTalk(task,"Exit;\n");
@@ -236,13 +235,13 @@ U0 DoSpeedLine()
U0 DoKeyBitMap()
{
I64 i_sc=A2ScanCode('i');
I64 i_sc=Char2ScanCode('i');
CTask *task=SpawnUser;
XTalk(task,"#include \"::/Demo/KeyBitMap\" Exit;\n");
Sleep(20);
LBts(key_down_bitmap,i_sc);
LBts(kbd.down_bitmap,i_sc);
Sleep(500);
LBtr(key_down_bitmap,i_sc);
LBtr(kbd.down_bitmap,i_sc);
}
U0 DoMountain()
@@ -278,15 +277,6 @@ U0 DoDigits()
XTalk(task,"Exit;\n");
}
U0 DoDither()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Graphics/Dither\";\n");
Sleep(500);
SendMsg(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
XTalk(task,"Exit;\n");
}
U0 DoSymmetry()
{
CTask *task=SpawnUser;
@@ -334,7 +324,7 @@ U0 DoCaptureScreen()
SendMsg(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
Sleep(500);
SendMsg(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
Sleep(2000);
Sleep(750);
SendMsg(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
XTalk(task,"Exit;\n");
Del("HOME/ScreenShot.GRA.Z");
@@ -377,6 +367,19 @@ U0 DoPalette()
XTalk(task,"Exit;\n");
}
U0 DoElephantWalk()
{
I64 i;
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Games/ElephantWalk\";\n");
for (i=0;i<15;i++) {
SendMsg(task,MSG_KEY_DOWN,0,SC_CURSOR_RIGHT);
Sleep(50);
}
SendMsg(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
XTalk(task,"Exit;\n");
}
U0 DoHalogen()
{
CTask *task=SpawnUser;
@@ -410,11 +413,11 @@ U0 DoTheDead()
XTalk(task,"Exit;\n");
}
U0 DoBulgeBomber()
U0 DoBomberGolf()
{
I64 i;
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Games/BulgeBomber\";\n");
XTalkWait(task,"#include \"::/Demo/Games/BomberGolf\";\n");
for (i=0;i<7;i++) {
SendMsg(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_UP);
SendMsg(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_RIGHT);
@@ -527,7 +530,7 @@ U0 DoRainDrops()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Games/RainDrops\";\n");
Sleep(1000);
Sleep(750);
SendMsg(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
XTalk(task,"Exit;\n");
}
@@ -559,7 +562,7 @@ U0 DoMorseCode()
PostMsg(task,MSG_KEY_DOWN,CH_SPACE,0);
Sleep(50);
PostMsg(task,MSG_KEY_UP,CH_SPACE,0);
Sleep(1350);
Sleep(500);
SendMsg(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
XTalk(task,"Exit;\n");
@@ -569,7 +572,7 @@ U0 DoPixCollision()
{
I64 w,h;
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Graphics/PixCollision\";\n");
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;
SetIP(w-35,h-35);
@@ -756,15 +759,6 @@ U0 Do3DPoly()
XTalk(task,"Exit;\n");
}
U0 DoLogo()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Graphics/Logo\";\n");
Sleep(1500);
SendMsg(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
XTalk(task,"Exit;\n");
}
U0 DoRotateTank()
{
CTask *task=SpawnUser;
@@ -793,7 +787,7 @@ U0 DoExtendedChars()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/ExtendedChars\";\n");
Sleep(1000);
Sleep(750);
XTalk(task,"Exit;\n");
}
@@ -801,7 +795,7 @@ U0 DoCharGraphics()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Graphics/CharGraphics\";\n");
Sleep(1500);
Sleep(750);
SendMsg(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
XTalk(task,"Exit;\n");
}
@@ -810,7 +804,7 @@ U0 DoDateTime()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/DateTime\";\n");
Sleep(1000);
Sleep(750);
XTalk(task,"Exit;\n");
}
@@ -818,7 +812,7 @@ U0 DoSubSwitch()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/SubSwitch\";\n");
Sleep(1000);
Sleep(750);
XTalk(task,"Exit;\n");
}
@@ -844,7 +838,7 @@ U0 DoTimeIns()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/TimeIns\";\n");
Sleep(1500);
Sleep(750);
SendMsg(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
XTalk(task,"Exit;\n");
}
@@ -853,7 +847,7 @@ U0 DoWaterFowl()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Snd/WaterFowl\";\n");
Sleep(1500);
Sleep(750);
SendMsg(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
XTalk(task,"Exit;\n");
}
@@ -862,7 +856,7 @@ U0 DoWaterFowl()
U0 Do()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Apps/MusicOrgan/Examples\";\n");
XTalkWait(task,"#include \"::/Apps/Psalmody/Examples\";\n");
Sleep(500);
SendMsg(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
XTalk(task,"Exit;\n");
@@ -883,7 +877,7 @@ U0 DoCartesian()
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Graphics/Cartesian\";\n");
XTalkWait(task,"0.2*x`1.5\n");
Sleep(1500);
Sleep(750);
SendMsg(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
XTalk(task,"Exit;\n");
}
@@ -922,7 +916,7 @@ U0 DoCommonAncestor()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Graphics/CommonAncestor\";\n");
Sleep(3000);
Sleep(1500);
SendMsg(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
XTalk(task,"Exit;\n");
}
@@ -931,7 +925,7 @@ U0 DoPalindrome()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/MultiCore/Palindrome\";\n");
Sleep(1500);
Sleep(750);
XTalk(task,"Exit;\n");
}
@@ -939,7 +933,7 @@ U0 DoMagicPairs()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/MagicPairs\";\n");
Sleep(1500);
Sleep(750);
XTalk(task,"Exit;\n");
}
@@ -947,9 +941,9 @@ U0 DoMPAdd()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/MultiCore/MPAdd\";\n");
Sleep(1000);
Sleep(750);
SendMsg(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
Sleep(1000);
Sleep(750);
SendMsg(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
XTalk(task,"Exit;\n");
}
@@ -958,7 +952,7 @@ U0 DoLock()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/MultiCore/Lock\";\n");
Sleep(1500);
Sleep(750);
XTalk(task,"Exit;\n");
}
@@ -966,7 +960,7 @@ U0 DoClouds()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/MultiCore/Clouds\";\n");
Sleep(1500);
Sleep(750);
SendMsg(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
XTalk(task,"Exit;\n");
}
@@ -1093,16 +1087,16 @@ U0 DoTimeOut()
SendMsg(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
for (i=0;i<3;i++) {
SendMsg(task,MSG_KEY_DOWN,CH_SPACE,0);
LBts(key_down_bitmap,SC_CURSOR_RIGHT);
LBts(kbd.down_bitmap,SC_CURSOR_RIGHT);
Sleep(200);
SendMsg(task,MSG_KEY_UP,CH_SPACE,0);
LBtr(key_down_bitmap,SC_CURSOR_RIGHT);
LBtr(kbd.down_bitmap,SC_CURSOR_RIGHT);
Sleep(200);
SendMsg(task,MSG_KEY_DOWN,CH_SPACE,0);
LBts(key_down_bitmap,SC_CURSOR_LEFT);
LBts(kbd.down_bitmap,SC_CURSOR_LEFT);
Sleep(200);
SendMsg(task,MSG_KEY_UP,CH_SPACE,0);
LBtr(key_down_bitmap,SC_CURSOR_LEFT);
LBtr(kbd.down_bitmap,SC_CURSOR_LEFT);
Sleep(200);
}
SendMsg(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
@@ -1122,7 +1116,7 @@ U0 DoLoadTest()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/MultiCore/LoadTest\";\n");
Sleep(2000);
Sleep(750);
SendMsg(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
XTalk(task,"Exit;\n");
while (TaskValidate(task))
@@ -1133,7 +1127,7 @@ U0 DoPrimes()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/MultiCore/Primes\";\n");
Sleep(2500);
Sleep(750);
XTalk(task,"Exit;\n");
}
@@ -1141,7 +1135,7 @@ U0 DoRadixSort()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/MultiCore/RadixSort\";\n");
Sleep(1000);
Sleep(750);
XTalk(task,"Exit;\n");
}
@@ -1149,7 +1143,7 @@ U0 DoPageTableEntries2()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Lectures/PageTableEntries2\";\n");
Sleep(1500);
Sleep(750);
XTalk(task,"Exit;\n");
}
@@ -1157,7 +1151,7 @@ U0 DoInterrupts()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/MultiCore/Interrupts\";\n");
Sleep(1000);
Sleep(750);
XTalk(task,"Exit;\n");
}
@@ -1165,7 +1159,7 @@ U0 DoStkGrow()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/StkGrow\";\n");
Sleep(1000);
Sleep(750);
XTalk(task,"Exit;\n");
}
@@ -1187,6 +1181,8 @@ U0 DoStrut()
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Apps/Strut/Run\";\n");
SendMsg(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
SetIP(200,200,,TRUE);
SendMsg(task,MSG_IP_L_DOWN,0,0);
WinMgrSync(2);
@@ -1244,9 +1240,9 @@ U0 DoStrut()
SetIP(,,,FALSE);
SendMsg(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
LBts(key_down_bitmap,A2ScanCode('1'));
LBts(kbd.down_bitmap,Char2ScanCode('1'));
Sleep(600);
LBtr(key_down_bitmap,A2ScanCode('1'));
LBtr(kbd.down_bitmap,Char2ScanCode('1'));
SendMsg(task,MSG_KEY_DOWN_UP,'Z',0);
Sleep(200);
SendMsg(task,MSG_KEY_DOWN_UP,'Z',0);
@@ -1412,7 +1408,7 @@ U0 DoKeepAway()
SendMsg(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
SetIP(100,100);
Sleep(1500);
SendMsg(task,MSG_IP_R_DOWN_UP,ipx,ipy);
SendMsg(task,MSG_IP_R_DOWN_UP,ip.pos.x,ip.pos.y);
Sleep(1000);
SendMsg(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
XTalk(task,"Exit;\n");
@@ -1423,13 +1419,13 @@ U0 DoRocket()
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Games/Rocket\";\n");
SendMsg(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_UP);
Bts(key_down_bitmap,SC_CURSOR_UP);
Bts(kbd.down_bitmap,SC_CURSOR_UP);
Sleep(1000);
Btr(key_down_bitmap,SC_CURSOR_UP);
Btr(kbd.down_bitmap,SC_CURSOR_UP);
SendMsg(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_RIGHT);
Bts(key_down_bitmap,SC_CURSOR_RIGHT);
Bts(kbd.down_bitmap,SC_CURSOR_RIGHT);
Sleep(1000);
Btr(key_down_bitmap,SC_CURSOR_RIGHT);
Btr(kbd.down_bitmap,SC_CURSOR_RIGHT);
Sleep(1000);
SendMsg(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
XTalk(task,"Exit;\n");
@@ -1567,10 +1563,8 @@ U0 DoEagleDive()
{
I64 i;
CTask *task=SpawnUser;
XTalkWait(task,"Cd(\"::/Demo/Games\");Del(\"EagleDive.BIN.Z\");\n");
XTalkWait(task,"Cmp(\"EagleDive.CPP\");\n");
XTalkWait(task,"#include \"::/Demo/Games/EagleDive\";\n");
Sleep(500);
XTalkWait(task,"Load(\"EagleDive\");\n");
for (i=0;i<10;i++) {
SendMsg(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_UP);
Sleep(50);
@@ -1580,7 +1574,6 @@ U0 DoEagleDive()
Sleep(50);
}
SendMsg(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
XTalkWait(task,"Del(\"::/Demo/Games/EagleDive.BIN.Z\");\n");
XTalk(task,"Exit;\n");
}
@@ -1588,7 +1581,7 @@ U0 DoEagleDive()
U0 Do()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Apps/MusicOrgan\";\n");
XTalkWait(task,"#include \"::/Apps/Psalmody\";\n");
Sleep(500);
SendMsg(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
XTalk(task,"Exit;\n");
@@ -1600,7 +1593,7 @@ U0 DoPhoneNumWords()
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/PhoneNumWords\";\n");
XTalkWait(task,"702-254-4223\n\n");
Sleep(1500);
Sleep(750);
XTalk(task,"Exit;\n");
}
@@ -1609,7 +1602,7 @@ U0 DoSuggestedSpelling()
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/SuggestSpelling\";\n");
XTalkWait(task,"effecient\n\n");
Sleep(1500);
Sleep(750);
XTalk(task,"Exit;\n");
}
@@ -1622,6 +1615,27 @@ U0 DoWordSearch()
XTalk(task,"Exit;\n");
}
U0 DoFPrintF()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Dsk/FPrintF\";\n");
XTalkWait(task,"::/Demo/Dsk/FPrintF.TXT");
SendMsg(task,MSG_KEY_DOWN_UP,CH_ESC,0);
XTalkWait(task,"Type(\"::/Demo/Dsk/FPrintF.TXT\");\n");
SendMsg(task,MSG_KEY_DOWN_UP,CH_CTRLO,0);
XTalkWait(task,"Del(\"::/Demo/Dsk/FPrintF.TXT\");\n");
Sleep(500);
XTalk(task,"Exit;\n");
}
U0 DoSerializeTree()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Dsk/SerializeTree\";\n");
Sleep(500);
XTalk(task,"Exit;\n");
}
/*
U0 Do()
{
@@ -1632,15 +1646,6 @@ U0 Do()
XTalk(task,"Exit;\n");
}
U0 DoFPrintF()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Dsk/FPrintF\";\n");
Sleep(1500);
SendMsg(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
XTalk(task,"Exit;\n");
}
U0 DoRaw()
{
CTask *task=SpawnUser;
@@ -1659,12 +1664,32 @@ U0 DoUnusedSpaceRep()
XTalk(task,"Exit;\n");
}
U0 DoBlkDevRep()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Dsk/BlkDevRep\";\n");
Sleep(500);
XTalk(task,"Exit;\n");
}
U0 DoLastClass()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/LastClass\";\n");
Sleep(500);
SendMsg(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
Sleep(500);
SendMsg(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
Sleep(500);
XTalk(task,"Exit;\n");
}
U0 DoMiniCompiler()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Lectures/MiniCompiler\";\n");
XTalkWait(task,"1+2*(3+4)\n");
Sleep(1500);
Sleep(750);
SendMsg(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
XTalk(task,"Exit;\n");
}
@@ -1684,7 +1709,7 @@ U0 DoWebLog()
SendMsg(task,MSG_KEY_DOWN_UP,'\n',0);
SendMsg(task,MSG_KEY_DOWN_UP,'\n',0);
SendMsg(task,MSG_KEY_DOWN_UP,CH_ESC,0);
Sleep(1000);
Sleep(750);
XTalk(task,"Exit;\n");
}
@@ -1694,7 +1719,7 @@ U0 DoReverseFile()
Del("::/Demo/ReverseFileExample/PoemForward.TXT.Z");
XTalk(task,"#include \"::/Demo/ReverseFileExample/Reverse\";"
"Type(\"::/Demo/ReverseFileExample/PoemForeward.TXT.Z\");"
"Sleep(1000);"
"Sleep(750);"
"Exit;\n");
while (TaskValidate(task));
}
@@ -1704,7 +1729,7 @@ U0 DoSortFile()
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/SortFileExample/F64FileGen\";\n");
XTalkWait(task,"#include \"::/Demo/SortFileExample/F64FileSort\";\n");
Sleep(1000);
Sleep(750);
XTalk(task,"Exit;\n");
}
@@ -1724,7 +1749,7 @@ U0 DoLogic()
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Apps/Logic/Run\";\n");
XTalkWait(task,"NAND\nNOR\n\n0x100\n0xF0\n0xCC\n0xAA\n\n0x12\n\n");
Sleep(1500);
Sleep(750);
SendMsg(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
XTalk(task,"Exit;\n");
}
@@ -1739,15 +1764,6 @@ U0 Do()
XTalk(task,"Exit;\n");
}
U0 Do()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/OldSchool\";\n");
Sleep(500);
SendMsg(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
XTalk(task,"Exit;\n");
}
U0 Do()
{
CTask *task=SpawnUser;
@@ -1762,7 +1778,7 @@ U0 DoPrint()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Print\";\n");
Sleep(2000);
Sleep(750);
XTalk(task,"Exit;\n");
}
@@ -1770,7 +1786,7 @@ U0 DoSubIntAccess()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/SubIntAccess\";\n");
Sleep(1000);
Sleep(750);
XTalk(task,"Exit;\n");
}
@@ -1778,7 +1794,7 @@ U0 DoParenWarn()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/ParenWarn\";\n");
Sleep(1500);
Sleep(750);
XTalk(task,"Exit;\n");
}
@@ -1786,7 +1802,7 @@ U0 DoCompileDemo()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/CompileDemo\";\n");
Sleep(1500);
Sleep(750);
XTalk(task,"Exit;\n");
}
@@ -1798,7 +1814,7 @@ U0 DoPrompt()
XTalkWait(task,"1.0+2*3`2\n");
XTalkWait(task,"Terry Davis\n");
XTalkWait(task,"*-1\n");
Sleep(2000);
Sleep(750);
SendMsg(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
XTalk(task,"Exit;\n");
}
@@ -1807,14 +1823,14 @@ U0 DoClassMeta()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/ClassMeta\";\n");
Sleep(2000);
Sleep(750);
XTalk(task,"Exit;\n");
}
U0 DoForm()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Doc/Form\";\n");
XTalkWait(task,"#include \"::/Demo/DolDoc/Form\";\n");
Sleep(250);
XTalk(task,"54321");
Sleep(250);
@@ -1826,18 +1842,35 @@ U0 DoForm()
SendMsg(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN);
SendMsg(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN);
SendMsg(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN);
SendMsg(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN);
Sleep(250);
XTalk(task,"MyName");
Sleep(1000);
Sleep(750);
SendMsg(task,MSG_KEY_DOWN_UP,CH_ESC,0);
Sleep(1500);
Sleep(750);
XTalk(task,"Exit;\n");
}
U0 DoClickCallBack()
{
I64 i;
CTask *task=SpawnUser;
XTalk(task,"#include \"::/Demo/DolDoc/ClickCallBack\";\n");
for (i=0;i<3;i++) {
while (!TaskValidate(task->popup_task))
Yield;
TaskWait(task->popup_task);
SendMsg(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
Sleep(250);
}
Sleep(500);
XTalk(task,"Exit;\n");
}
U0 DoMenuButton()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Doc/MenuButton\";\n");
XTalkWait(task,"#include \"::/Demo/DolDoc/MenuButton\";\n");
SendMsg(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
Sleep(500);
SendMsg(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN,0);
@@ -1852,7 +1885,7 @@ U0 DoMenuButton()
SendMsg(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
while (TaskValidate(task->popup_task))
Yield;
Sleep(1000);
Sleep(750);
SendMsg(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
XTalk(task,"Exit;\n");
}
@@ -1860,7 +1893,7 @@ U0 DoMenuButton()
U0 DoMenuSprite()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Doc/MenuSprite\";\n");
XTalkWait(task,"#include \"::/Demo/DolDoc/MenuSprite\";\n");
SendMsg(task,MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN,0);
Sleep(50);
SendMsg(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
@@ -1878,8 +1911,8 @@ U0 DoMenuSprite()
U0 DoTreeDemo()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Doc/TreeDemo\";\n");
Sleep(1000);
XTalkWait(task,"#include \"::/Demo/DolDoc/TreeDemo\";\n");
Sleep(750);
XTalk(task,"Exit;\n");
}
@@ -1888,34 +1921,34 @@ U0 DoExceptions()
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Exceptions\";\n");
XTalkWait(task,"yy");
Sleep(1000);
Sleep(750);
XTalk(task,"Exit;\n");
}
U0 DoTextDemo()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Doc/TextDemo\";\n");
Sleep(1000);
XTalkWait(task,"#include \"::/Demo/DolDoc/TextDemo\";\n");
Sleep(750);
XTalk(task,"Exit;\n");
}
U0 DoCursorMove()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Doc/CursorMove\";\n");
Sleep(1000);
XTalkWait(task,"#include \"::/Demo/DolDoc/CursorMove\";\n");
Sleep(750);
XTalk(task,"Exit;\n");
}
U0 DoDemoDoc()
{
CTask *task=SpawnUser;
XTalkWait(task,"Ed(\"::/Demo/Doc/DemoDoc.TXT\");\n");
XTalkWait(task,"Ed(\"::/Demo/DolDoc/DemoDoc.TXT\");\n");
SendMsg(task,MSG_KEY_DOWN_UP,CH_CTRLG,0);
XTalkWait(task,"100");
SendMsg(task,MSG_KEY_DOWN_UP,CH_ESC,0);
Sleep(1000);
Sleep(750);
SendMsg(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
XTalk(task,"Exit;\n");
}
@@ -1934,10 +1967,10 @@ U0 Do()
U0 DoFileRead()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Doc/FileRead\";\n");
Sleep(1000);
XTalkWait(task,"#include \"::/Demo/DolDoc/FileRead\";\n");
Sleep(750);
SendMsg(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
Sleep(1000);
Sleep(750);
SendMsg(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
XTalk(task,"Exit;\n");
}
@@ -1945,24 +1978,24 @@ U0 DoFileRead()
U0 DoData()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Doc/Data\";\n");
Sleep(500);
XTalkWait(task,"#include \"::/Demo/DolDoc/Data\";\n");
Sleep(750);
XTalk(task,"Exit;\n");
}
U0 DoDefineStr()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Doc/DefineStr\";\n");
Sleep(1500);
XTalkWait(task,"#include \"::/Demo/DolDoc/DefineStr\";\n");
Sleep(750);
XTalk(task,"Exit;\n");
}
U0 DoCallBack()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Doc/CallBack\";\n");
Sleep(1500);
XTalkWait(task,"#include \"::/Demo/DolDoc/CallBack\";\n");
Sleep(750);
XTalk(task,"Exit;\n");
}
@@ -1971,7 +2004,7 @@ U0 DoDefine()
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Define\";\n");
XTalkWait(task,"YS\n");
Sleep(1500);
Sleep(750);
XTalk(task,"Exit;\n");
}
@@ -1979,7 +2012,7 @@ U0 DoDefine()
U0 Do()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Doc/UnusedDefine\";\n");
XTalkWait(task,"#include \"::/Demo/DolDoc/UnusedDefine\";\n");
Sleep(500);
SendMsg(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
XTalk(task,"Exit;\n");
@@ -2024,7 +2057,7 @@ U0 DoBuzzFizz()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Asm/BuzzFizz\";\n");
Sleep(1000);
Sleep(750);
XTalk(task,"Exit;\n");
}
@@ -2032,7 +2065,7 @@ U0 DoMulByHand()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Asm/MulByHand\";\n");
Sleep(1000);
Sleep(750);
XTalk(task,"Exit;\n");
}
@@ -2040,7 +2073,7 @@ U0 DoDivByHand()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Asm/DivByHand\";\n");
Sleep(1000);
Sleep(750);
XTalk(task,"Exit;\n");
}
@@ -2048,7 +2081,7 @@ U0 DoPutDec()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/Asm/PutDec\";\n");
Sleep(1000);
Sleep(750);
XTalk(task,"Exit;\n");
}
@@ -2056,32 +2089,32 @@ U0 DoGlblVars()
{
CTask *task=SpawnUser;
XTalkWait(task,"#include \"::/Demo/GlblVars\";\n");
Sleep(1500);
Sleep(1000);
XTalk(task,"Exit;\n");
}
U0 DoReps()
{
CTask *task=SpawnUser;
TS; XTalkWait(task,"DocMax;ProfAll;HeapLog(ON);\n");
TS; XTalkWait(task,"PCIRep;Sleep(1000);\n");
TS; XTalkWait(task,"MemBIOSRep;Sleep(1000);\n");
TS; XTalkWait(task,"MemRep;Sleep(1000);\n");
TS; XTalkWait(task,"ProfRep;Sleep(1000);\n");
TS; XTalkWait(task,"HeapLogRep; HeapLog(OFF);Sleep(1000);\n");
TS; XTalkWait(task,"BlkDevRep;Sleep(1000);\n");
TS; XTalkWait(task,"ChkDsk;Sleep(1000);\n");
TS; XTalkWait(task,"DocMax;Prof;HeapLog(ON);\n");
TS; XTalkWait(task,"PCIRep;Sleep(750);\n");
TS; XTalkWait(task,"MemBIOSRep;Sleep(750);\n");
TS; XTalkWait(task,"MemRep;Sleep(750);\n");
TS; XTalkWait(task,"ZipRep;Sleep(750);\n");
TS; XTalkWait(task,"ProfRep;Sleep(750);\n");
TS; XTalkWait(task,"HeapLogRep; HeapLog(OFF);Sleep(750);\n");
TS; XTalkWait(task,"ChkDsk;Sleep(750);\n");
TS; XTalkWait(task,"DrvView;\n");
Sleep(1500);
Sleep(750);
SendMsg(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
XTalkWait(task,"DskView;\n");
Sleep(1500);
Sleep(250); //Short because ATARep takes time.
SendMsg(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
TS; XTalkWait(task,"ATARep;\npSleep(1000);\n");
TS; XTalkWait(task,"HashDepthRep(adam_task->hash_table);Sleep(1000);\n");
TS; XTalkWait(task,"Who;Sleep(1000);\n");
TS; XTalkWait(task,"PrtRep;Sleep(1000);\n");
TS; XTalkWait(task,"TaskRep;Sleep(1000);\n");
TS; XTalkWait(task,"ATARep;\npSleep(750);\n");
TS; XTalkWait(task,"HashDepthRep(adam_task->hash_table);Sleep(750);\n");
TS; XTalkWait(task,"Who;Sleep(750);\n");
TS; XTalkWait(task,"PrtRep;Sleep(750);\n");
TS; XTalkWait(task,"TaskRep;Sleep(750);\n");
XTalk(task,"Exit;\n");
}
@@ -2108,7 +2141,7 @@ U0 OSTestSuite()
TS; DoAfterEgypt;
TS; DoXCaliber;
TS; DoWenceslas;
TS; DoBulgeBomber;
TS; DoBomberGolf;
TS; DoTheDead;
TS; DoChessNet;
TS; DoMPAdd;
@@ -2131,7 +2164,7 @@ U0 OSTestSuite()
TS; DoCarry;
TS; DoExtents;
TS; DoDotNet;
TS; DoMoon;
TS; DoSunMoon;
TS; DoLowPassFilter;
TS; DoMathAudioDemo;
TS; DoLines;
@@ -2146,7 +2179,6 @@ U0 OSTestSuite()
TS; DoKeyBitMap;
TS; DoMountain;
TS; DoCoach;
TS; DoDither;
TS; DoBSpline;
TS; DoGrModels;
TS; DoBlot;
@@ -2167,11 +2199,11 @@ U0 OSTestSuite()
TS; DoPoleZeros;
TS; DoDigits;
TS; DoStadium;
TS; DoElephantWalk;
TS; DoHalogen;
TS; DoMaze;
TS; DoFontEd;
TS; DoCtrlR1;
TS; DoLogo;
TS; DoSubIntAccess;
TS; DoDemoDoc;
TS; DoTreeDemo;
@@ -2181,6 +2213,10 @@ U0 OSTestSuite()
TS; DoMiniGrLib;
TS; DoPhoneNumWords;
TS; DoUnusedSpaceRep;
TS; DoBlkDevRep;
TS; DoLastClass;
TS; if (IsDrvWritable(':')) DoFPrintF;
TS; DoSerializeTree;
TS; DoExceptions;
TS; DoScreenCodes;
TS; DoExtendedChars;
@@ -2210,6 +2246,7 @@ U0 OSTestSuite()
TS; DoCallBack;
TS; DoClassMeta;
TS; DoForm;
TS; DoClickCallBack;
TS; DoMenuButton;
TS; DoMenuSprite;
TS; DoSuggestedSpelling;
@@ -2232,4 +2269,4 @@ U0 OSTestSuite()
OSTestSuite;
//$LK,"::/Demo/Dsk/DskRaw.CPP"$
//$LK,"::/Demo/Graphics/InputPointer.CPP.Z"$
//$LK,"::/Demo/Graphics/InputPointer.CPP"$
Misc/PCIDevices.TXT
+403 -276
View File
File diff suppressed because it is too large. Load diff
Misc/Dollar.CPP → Misc/ToDolDoc.CPP
+3 -6
View File
@@ -1,8 +1,5 @@
public U0 Dollar(U8 *files_find_mask,U8 *fu_flags=NULL)
//This is for importing non-"TempleOS" text files.
//$BK,1$WARNING:$BK,0$Do not use on files with dollar cmds
// or on binary files. See $LK,"FilesFind",A="MN:FilesFind"$() for flags.
{
public U0 ToDolDoc(U8 *files_find_mask,U8 *fu_flags=NULL)
{//Convert text file to $LK,"DolDoc",A="FI:::/Doc/DolDocOverview.TXT"$.
CDoc *doc;
I64 fuf_flags=0;
CDirEntry *tempde,*tempde1;
@@ -16,5 +13,5 @@ public U0 Dollar(U8 *files_find_mask,U8 *fu_flags=NULL)
DocDel(doc);
tempde=tempde->next;
}
DirLstDel(tempde1);
DirTreeDel(tempde1);
}
Misc/Tour/Tour.AUT
+8 -7
View File
@@ -5,14 +5,15 @@ public I64 PopUpTourPart()
DocPrint(doc,"$$PURPLE$$TempleOS Tours$$FG$$\n\n"
"$$CM+LX,4,4$$$$BT,\"Part 1: The basics\",LE=1$$"
"$$CM+LX,4,4$$$$BT,\"Part 2: Editing and running programs\",LE=2$$"
"$$CM+LX,4,4$$$$BT,\"Part 3: Adding macros to personal menu\",LE=3$$"
"$$CM+LX,4,4$$$$BT,\"Part 3: Adding macros to PersonalMenu\",LE=3$$"
"$$CM+LX,4,4$$$$BT,\"Part 4: Choose filename, choose dir\",LE=4$$"
"$$CM+LX,4,4$$$$BT,\"Part 5: WordStat\",LE=5$$"
"$$CM+LX,4,4$$$$BT,\"Part 6: Search (Grep)\",LE=6$$"
"$$CM+LX,4,4$$$$BT,\"Part 7: Editor filter\",LE=7$$"
"$$CM+LX,4,4$$$$BT,\"Part 8: Debugging\",LE=8$$"
"$$CM+LX,4,4$$$$BT,\"Part 9: Wow!!\",LE=9$$"
"$$CM+LX,4,4$$$$BT,\"Part 10: Test Suite\",LE=10$$"
"$$CM+LX,4,4$$$$BT,\"Part 7: TempleOS File masks\",LE=7$$"
"$$CM+LX,4,4$$$$BT,\"Part 8: Editor filter\",LE=8$$"
"$$CM+LX,4,4$$$$BT,\"Part 9: Debugging\",LE=9$$"
"$$CM+LX,4,4$$$$BT,\"Part 10: Wow!!\",LE=10$$"
"$$CM+LX,4,4$$$$BT,\"Part 11: Test Suite\",LE=11$$"
"$$CM+LX,4,4$$$$BT,\"Done\",LE=DOCM_CANCEL$$\n");
doc->flags|=DOCF_FORM;
i=SrvUser("WinMax;DocMenuDo(0x%X,0);",doc);
@@ -26,8 +27,8 @@ U0 TourMenu()
I64 i;
while (TRUE) {
i=PopUpTourPart;
if (i>=1) {
SPrint(buf,"::/Misc/Tour/Tour%X.AUT",i);
if (i>0) {
StrPrint(buf,"::/Misc/Tour/Tour%X.AUT",i);
ExeFile(buf);
} else
break;
Misc/Tour/Tour1.AUT
+19 -18
View File
@@ -1,4 +1,4 @@
//This puts the cursor at the bottom
//Puts the cursor at the bottom.
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
"\n";
@@ -13,31 +13,31 @@ PopUpOk(
"You must remember the semicolon.\n"
);
AFPmtStr("Dir;\n");
Sleep(1000); //allow user time to see dir
AFGetStr("Dir;\n");
Sleep(1000); //Allow user time to see dir
'\n';
PopUpOk(
"After clicking $$GREEN$$[OKAY]$$FG$$, you will be at the\n"
"command line.\n\n"
"Press $$GREEN$$<CTRL-M>$$FG$$.\n\n"
"This will access your personal menu.\n"
"Press $$GREEN$$<CTRL-m>$$FG$$.\n\n"
"This will access your PersonalMenu.\n"
"You can customize it. It's like your\n"
"START menu and desktop.\n");
AFGetChar(CH_CTRLM);
Sleep(1000);
PopUpOk(
"You can get to your personal menu\n"
"You can get to your PersonalMenu\n"
"by clicking on the word \"$$GREEN$$MENU$$FG$$\" in the\n"
"title bar.\n");
PopUpOk(
"After clicking $$GREEN$$[OKAY]$$FG$$, you will be back at\n"
"the personal menu.\n\n"
"the PersonalMenu.\n\n"
"Press $$GREEN$$<CURSOR-DOWN>$$FG$$ nine times.\n");
//This puts the cursor at the top
//Puts the cursor at the top
Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
I64 i;
@@ -46,7 +46,7 @@ for (i=0;i<9;i++)
PopUpOk(
"Keyboard commands are:\n\n"
"$$GREEN$$<SPACE BAR>$$FG$$\tLeft-action\n"
"$$GREEN$$<SPACE>$$FG$$\t\tLeft-action\n"
"$$GREEN$$<ENTER>$$FG$$\t\tRight-action\n"
"$$GREEN$$<ESC>$$FG$$\t\tSave and exit\n"
"$$GREEN$$<SHIFT-ESC>$$FG$$\tAbort\n"
@@ -56,8 +56,8 @@ PopUpOk(
"After clicking $$GREEN$$[OKAY]$$FG$$, the cursor will be\n"
"on top of a macro we wish to run.\n"
"\n"
"After clicking $$GREEN$$[OKAY]$$FG$$, press $$GREEN$$<SPACE BAR>$$FG$$.\n");
AFPmtStr(" ");
"After clicking $$GREEN$$[OKAY]$$FG$$, press $$GREEN$$<SPACE>$$FG$$.\n");
AFGetStr(" ");
Sleep(1000);
PopUpOk(
@@ -72,18 +72,19 @@ PopUpOk(
"are macros and will change directories.\n");
PopUpOk(
"\"$$GREEN$$<CTRL-T>$$FG$$\" after clicking $$GREEN$$[OKAY]$$FG$$ to toggle\n"
"to plain text mode.\n");
"Press $$GREEN$$<CTRL-t>$$FG$$ after clicking $$GREEN$$[OKAY]$$FG$$\n"
"to toggle plain text mode.\n\n"
"These are \"DolDoc\" commands.");
AFGetChar(CH_CTRLT);
Sleep(1000);
PopUpOk(
"The widgets are bracketed with dollar sign\n"
"characters. \"LK\" stands \"link\" and \"MA\"\n"
"stands for \"macro\".\n\n"
"Now, \"$$GREEN$$<CTRL-T>$$FG$$\" to toggle back to\n"
"The DolDoc widgets are bracketed with\n"
"dollar sign characters.\n\n"
"\"LK\" stands \"link\".\n"
"\"MA\" stands for \"macro\".\n\n"
"Now, $$GREEN$$<CTRL-t>$$FG$$ to toggle back to\n"
"regular mode.\n");
AFGetChar(CH_CTRLT);
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
Sleep(1000);
Misc/Tour/Tour2.AUT
+17 -19
View File
@@ -1,4 +1,4 @@
//This puts the cursor at the bottom
//Puts the cursor at the bottom.
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
"\n";
@@ -13,7 +13,7 @@ PopUpOk(
"$$GREEN$$<ENTER>$$FG$$ to complete the command.\n");
AFPrint(25,"Cd(\"::/Demo/Games\");Dir;");
AFPmtStr("\n");
AFGetStr("\n");
PopUpOk(
"Now, we're going to edit a file. Normally,\n"
@@ -23,7 +23,7 @@ PopUpOk(
"$$GREEN$$<ENTER>$$FG$$ to complete the command.\n");
AFPrint(25,"Ed(\"CastleFrankenstein.CPP.Z\");");
AFPmtStr("\n");
AFGetStr("\n");
Msg(MSG_KEY_DOWN_UP,0,SC_CURSOR_UP|SCF_CTRL);
Sleep(1000);
@@ -39,12 +39,11 @@ PopUpOk(
"bottom will run the program when we\n"
"$$GREEN$$#include$$FG$$ it.\n");
PopUpOk(
"$$GREEN$$<SHIFT-ESC>$$FG$$ to abort the editor.\n"
);
AFGetChar(CH_SHIFT_ESC,CH_ESC);
AFGetChar(CH_ESC,CH_SHIFT_ESC);
PopUpOk(
"Now, we'll run the CastleFrankenstein.CPP.Z\n"
@@ -53,8 +52,8 @@ PopUpOk(
"when you are done.\n");
AFPrint(25,"#include \"CastleFrankenstein\";");
AFPmtStr("\n");
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
AFGetStr("\n");
AFUntilChar(CH_ESC,CH_SHIFT_ESC);
PopUpOk(
"The program is still in memory and we\n"
@@ -64,17 +63,16 @@ PopUpOk(
"run it again.\n");
AFPrint(25,"CastleFrankenstein;");
AFPmtStr("\n");
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
AFGetStr("\n");
AFUntilChar(CH_ESC,CH_SHIFT_ESC);
PopUpOk(
"$$GREEN$$<CTRL-ALT-A>$$FG$$\tExtended ASCII\n"
"$$GREEN$$<CTRL-ALT-C>$$FG$$\tBreak(interrupt) program\n"
"$$GREEN$$<CTRL-ALT-E>$$FG$$\tSpawn new user terminal window\n"
"$$GREEN$$<CTRL-ALT-M>$$FG$$\tMutes sound\n"
"$$GREEN$$<CTRL-ALT-T>$$FG$$\tSwitch tasks\n"
"$$GREEN$$<CTRL-ALT-X>$$FG$$\tKill task (window)\n"
"$$GREEN$$<CTRL-ALT-a>$$FG$$\tExtended ASCII\n"
"$$GREEN$$<CTRL-ALT-c>$$FG$$\tBreak(interrupt) program\n"
"$$GREEN$$<CTRL-ALT-e>$$FG$$\tSpawn new user terminal window\n"
"$$GREEN$$<CTRL-ALT-m>$$FG$$\tMutes sound\n"
"$$GREEN$$<CTRL-ALT-t>$$FG$$\tSwitch tasks\n"
"$$GREEN$$<CTRL-ALT-x>$$FG$$\tKill task (window)\n"
);
AFPrint(50,"Ed(\"CastleFrankenstein.CPP.Z\");\n");
@@ -89,7 +87,7 @@ CTask *task=sys_focus_task;
PopUpOk(
"$$GREEN$$<SHIFT-ESC>$$FG$$ to abort the application.\n"
"Then, $$GREEN$$<CTRL-ALT-X>$$FG$$ to kill the task.\n"
"Then, $$GREEN$$<CTRL-ALT-x>$$FG$$ to kill the task.\n"
);
WinToTop(task);
while (TaskValidate(task))
@@ -98,12 +96,12 @@ while (TaskValidate(task))
PopUpOk(
"$$GREEN$$<SHIFT-ESC>$$FG$$ to abort the editor.\n");
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
AFUntilChar(CH_ESC,CH_SHIFT_ESC);
PopUpOk(
"Explore the $$LK+PU,\"DemoIndex\",\"FI:::/Doc/DemoIndex.TXT\"$$. You'll find it\n"
"on your menu. It's arranged by difficulty.\n"
"Hit $$GREEN$$<SPACE BAR>$$FG$$ on a demo index listing\n"
"Hit $$GREEN$$<SPACE>$$FG$$ on a demo index listing\n"
"and $$GREEN$$<F5>$$FG$$ to run from the editor.\n"
);
Misc/Tour/Tour3.AUT
+18 -20
View File
@@ -1,22 +1,22 @@
//This puts the cursor at the bottom
//Puts the cursor at the bottom.
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
"\nCd(\"::/Demo/Games\");Dir;\n";
PopUpOk(
"Now, we're going to add the\n"
"CastleFrankenstein.CPP.Z program\n"
"to your personal menu.\n\n"
"Press $$GREEN$$<CTRL-M>$$FG$$\n"
"to get to your personal menu.\n");
"to your PersonalMenu.\n\n"
"Press $$GREEN$$<CTRL-m>$$FG$$\n"
"to get to your PersonalMenu.\n");
AFGetChar(CH_CTRLM);
Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
Sleep(1000);
PopUpOk(
"$$GREEN$$<CTRL-L>$$FG$$ to invoke the\n"
"$$GREEN$$<CTRL-l>$$FG$$ to invoke the\n"
"text-widget resource editor.\n"
"\n"
"($$GREEN$$<CTRL-R>$$FG$$ invokes the\n"
"($$GREEN$$<CTRL-r>$$FG$$ invokes the\n"
"graphic resource editor.)\n"
);
AFGetChar(CH_CTRLL);
@@ -30,11 +30,10 @@ for (i=0;i<6;i++)
AFGetKey(SC_CURSOR_DOWN);
PopUpOk(
"$$GREEN$$<SPACE BAR>$$FG$$.\n");
AFPmtStr(" ");
"$$GREEN$$<SPACE>$$FG$$.\n");
AFGetStr(" ");
Sleep(1000);
PopUpOk(
"Now, we'll fill-in the visible text\n"
"of the macro.\n");
@@ -57,9 +56,9 @@ Sleep(1000);
Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
PopUpOk(
"Press $$GREEN$$<SPACE BAR>$$FG$$ to test it.\n");
AFPmtStr(" ");
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
"Press $$GREEN$$<SPACE>$$FG$$ to test it.\n");
AFGetStr(" ");
AFUntilChar(CH_ESC,CH_SHIFT_ESC);
PopUpOk(
"Now, we'll do a fancier macro that pops-up\n"
@@ -67,7 +66,7 @@ PopUpOk(
"returning mem to the system.\n");
Msg(MSG_KEY_DOWN,CH_CTRLM,0x43200000432);
Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
Msg(MSG_KEY_DOWN,CH_CTRLL,0);
Msg(MSG_KEY_DOWN,CH_CTRLL,0x42600000426);
for (i=0;i<6;i++)
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN);
AFPrint(," Click here for Pop-up version");
@@ -81,9 +80,8 @@ PopUpOk(
for (i=0;i<2;i++)
AFGetKey(SC_CURSOR_DOWN);
PopUpOk(
"$$GREEN$$<SPACE BAR>$$FG$$ to\n"
"check the box.\n");
AFPmtStr(" ");
"$$GREEN$$<SPACE>$$FG$$ to check the box.\n");
AFGetStr(" ");
Sleep(500);
PopUpOk("$$GREEN$$<ESC>$$FG$$ to exit the form.\n");
@@ -96,14 +94,14 @@ Sleep(500);
Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
PopUpOk(
"$$GREEN$$<SPACE BAR>$$FG$$ to test it.\n");
AFPmtStr(" ");
"$$GREEN$$<SPACE>$$FG$$ to test it.\n");
AFGetStr(" ");
Sleep(3000);
PopUpOk(
"$$GREEN$$<CTRL-S>$$FG$$ to save your\n"
"personal menu file, if you wish.\n"
"Your personal menu is special and\n"
"PersonalMenu file, if you wish.\n"
"Your PersonalMenu is special and\n"
"does not save on $$GREEN$$<ESC>$$FG$$.\n");
if (Fs->parent_task->popup_task) {
'' CH_SHIFT_ESC;
Misc/Tour/Tour4.AUT
+12 -16
View File
@@ -1,7 +1,6 @@
//This is an example of your documentation.
//This is an example of how you do documentation.
//This puts the cursor at the bottom
//Puts the cursor at the bottom.
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
"\nEd(\"::/Misc/Tour/Tour4.AUT.Z\");\n";
Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
@@ -13,25 +12,22 @@ PopUpOk(
"using the $$GREEN$$<F4>$$FG$$ filename chooser.\n");
'' CH_CTRLL;
Sleep(1000);
Sleep(1500);
'' CH_SPACE;
Sleep(1000);
Sleep(1500);
'' CH_SPACE;
Sleep(1000);
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN);
Sleep(1000);
Sleep(2000);
PopUpOk(
"Press $$GREEN$$<F4>$$FG$$.\n"
"Pick any file and press $$GREEN$$<ESC>$$FG$$.");
"Press $$GREEN$$<F4>$$FG$$. Pick any\n"
"file and press $$GREEN$$<ESC>$$FG$$.");
AFGetKey(SC_F4);
PopUpOk(
"Press $$GREEN$$<ESC>$$FG$$.\n");
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
PopUpOk("Press $$GREEN$$<ESC>$$FG$$.\n");
AFGetChar(CH_ESC);
PopUpOk(
"$$GREEN$$<SHIFT-ESC>$$FG$$ to abort.\n");
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
PopUpOk("$$GREEN$$<SHIFT-ESC>$$FG$$ to abort.\n");
AFGetChar(CH_SHIFT_ESC);
PopUpOk(
"$$GREEN$$<SHIFT F4>$$FG$$ to pick directories.\n");
PopUpOk("$$GREEN$$<SHIFT F4>$$FG$$ to pick directories.\n");
Misc/Tour/Tour5.AUT
+3 -3
View File
@@ -2,7 +2,7 @@ PopUp("WSInit(\"::/*;~*Bible.TXT*\");");
WordStat(ON);
Sleep(3500);
//This puts the cursor at the bottom
//Puts the cursor at the bottom.
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
"\nCd(\"::/Demo\");\n";
@@ -33,7 +33,7 @@ Sleep(500);
PopUpOk(
"$$GREEN$$<SHIFT-ESC>$$FG$$ to abort the source code.\n");
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
AFUntilChar(CH_ESC,CH_SHIFT_ESC);
Sleep(100);
sys_focus_task=Fs;
@@ -61,4 +61,4 @@ Sleep(1000);
Sleep(2000);
PopUpOk(
"$$GREEN$$<SHIFT-ESC>$$FG$$ to abort the source code.\n");
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
AFUntilChar(CH_ESC,CH_SHIFT_ESC);
Misc/Tour/Tour6.AUT
+16 -18
View File
@@ -6,16 +6,15 @@ PopUpOk(
PopUpOk("Press $$GREEN$$<ENTER>$$FG$$.");
//This puts the cursor at the bottom
//Puts the cursor at the bottom.
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
"\n";
"F(\"RED\");";
AFPmtStr("\n");
AFGetStr("\n");
Sleep(3000);
PopUpOk("Notice the number of matches.\n");
PopUpOk(
"Try it with the $$GREEN$$+l$$FG$$ flag.\n"
@@ -23,16 +22,15 @@ PopUpOk(
PopUpOk("Press $$GREEN$$<ENTER>$$FG$$.");
//This puts the cursor at the bottom
//Puts the cursor at the bottom.
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
"\n";
"F(\"RED\",\"+l\");";
AFPmtStr("\n");
AFGetStr("\n");
Sleep(3000);
PopUpOk("Notice the number of matches.\n");
PopUpOk(
"Try it with the $$GREEN$$+l-i$$FG$$ flag.\n"
@@ -41,15 +39,15 @@ PopUpOk(
PopUpOk("Press $$GREEN$$<ENTER>$$FG$$.");
//This puts the cursor at the bottom
//Puts the cursor at the bottom.
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
"\n";
"F(\"RED\",\"+l-i\");";
AFPmtStr("\n");
AFGetStr("\n");
Sleep(3000);
PopUpOk("Notice the number of matches.\n");
PopUpOk(
"The wrapper function is in your\n"
@@ -59,17 +57,17 @@ PopUpOk(
PopUpOk("Press $$GREEN$$<ENTER>$$FG$$.");
//This puts the cursor at the bottom
//Puts the cursor at the bottom.
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
"\n";
"Ed(\"HOME/Adam3dWrappers.CPP.Z\");";
AFPmtStr("\n");
AFGetStr("\n");
Sleep(2000);
PopUpOk(
"$$GREEN$$<SHIFT-ESC>$$FG$$ to abort the source code.\n");
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
AFUntilChar(CH_ESC,CH_SHIFT_ESC);
PopUpOk(
"$$GREEN$$+lb$$FG$$ is whole label just before.\n"
Misc/Tour/Tour7.AUT
+25 -36
View File
@@ -1,39 +1,28 @@
"Ed(\"::/Misc/Bible.TXT.Z\");\n";
Sleep(1000);
"FF(\"/Kernel/*\");";
PopUpOk("Let's list files in the\n"
"$$GREEN$$/Kernel$$FG$$ and sub directories.\n\n"
"TempleOS masks have one\n"
"base directory and multiple\n"
"filename masks.\n"
"Press $$GREEN$$<ENTER>$$FG$$.");
AFGetStr("\n");
PopUpOk(
"$$GREEN$$<CTRL-F>$$FG$$ to find.\n"
);
"FF(\"/Kernel/*\",\"-r\");";
PopUpOk("The recurse $$GREEN$$+r$$FG$$ flag\n"
"is usually set. Let's\n"
"turn it off.\n\n"
"Press $$GREEN$$<ENTER>$$FG$$.");
AFGetStr("\n");
AFGetChar(CH_CTRLF);
AFPrint(150,"new song");
PopUpOk("Cursor down 8 times.\n");
I64 i;
for (i=0;i<8;i++)
AFGetKey(SC_CURSOR_DOWN);
PopUpOk(
"Press '$$GREEN$$2$$FG$$' to show\n"
"all lines within 2 of a match.\n");
AFPmtStr("2");
Sleep(1000);
PopUpOk("Press $$GREEN$$<ESC>$$FG$$.\n");
AFGetChar(CH_ESC);
Sleep(500);
PopUpOk(
"Look around and press $$GREEN$$<ESC>$$FG$$\n"
"to turn off filter.\n");
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
Sleep(1000);
PopUpOk(
"You can combine filters to\n"
"effectively do AND searches.\n");
Sleep(1000);
'' CH_SHIFT_ESC;
"FF(\"/Kernel/M*;*.HPP*\");";
PopUpOk("Let's have two mask of\n"
"$$GREEN$$M*$$FG$$ plus $$GREEN$$*.HPP*$$FG$$\n\n"
"Press $$GREEN$$<ENTER>$$FG$$.");
AFGetStr("\n");
"FF(\"/Kernel/M*;*.HPP*;~Mem*\");";
PopUpOk("Let's unselect $$GREEN$$Mem*$$FG$$.\n\n"
"Press $$GREEN$$<ENTER>$$FG$$.");
AFGetStr("\n");
PopUpOk("There is no way to include\n"
"multiple base directories.\n");
Misc/Tour/Tour8.AUT
+26 -41
View File
@@ -1,54 +1,39 @@
PopUpOk("Press $$GREEN$$<ENTER>$$FG$$.");
"Ed(\"HI:Debugging\");";
AFPmtStr("\n");
PopUpOk(
"$$GREEN$$<SHIFT-ESC>$$FG$$ to abort.\n");
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
"Ed(\"::/Misc/Bible.TXT.Z\");\n";
Sleep(1000);
PopUpOk(
"We will now use $LK,"Uf",A="MN:Uf"$() to\n"
"unassemble a function.\n"
"It takes the function name\n"
"as a string arg.\n\n"
"Press $$GREEN$$<ENTER>$$FG$$.");
"WinMax;WinBorder;\nUf(\"CAlloc\");";
AFPmtStr("\n");
"$$GREEN$$<CTRL-F>$$FG$$ to find.\n"
);
PopUpOk("Press $$GREEN$$<CURSOR-UP>$$FG$$ eight times..");
AFGetChar(CH_CTRLF);
AFPrint(150,"new song");
PopUpOk("Cursor down 8 times.\n");
I64 i;
for (i=0;i<8;i++)
AFGetKey(SC_CURSOR_UP);
AFGetKey(SC_CURSOR_DOWN);
PopUpOk(
"Press $$GREEN$$<SPACE BAR>$$FG$$.\n");
AFPmtStr(" ");
"Press '$$GREEN$$2$$FG$$' to show\n"
"all lines within 2 of a match.\n");
AFGetStr("2");
Sleep(1000);
PopUpOk("Press $$GREEN$$<ESC>$$FG$$.\n");
AFGetChar(CH_ESC);
Sleep(500);
PopUpOk(
"$$GREEN$$<SHIFT-ESC>$$FG$$ when finished.\n");
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
//This puts the cursor at the bottom
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
"AFView;\n";
PopUpOk(
"$$GREEN$$<SHIFT-ESC>$$FG$$ when finished.\n");
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
"Look around and press $$GREEN$$<ESC>$$FG$$\n"
"to turn off filter.\n");
AFUntilChar(CH_ESC,CH_SHIFT_ESC);
Sleep(1000);
PopUpOk(
"We can unassemble a\n"
"numeric address with $LK,"U",A="MN:U"$().\n\n"
"Press $$GREEN$$<ENTER>$$FG$$.");
"U(&CAlloc);";
AFPmtStr("\n");
"You can combine filters to\n"
"effectively do AND searches.\n");
Sleep(1000);
"AFView;\n";
PopUpOk(
"$$GREEN$$<SHIFT-ESC>$$FG$$ when finished.\n");
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
PopUpOk("The opcodes are slightly nonstandard.");
"Ed(\"::/Compiler/OpCodes.TXT.Z\");\n";
PopUpOk(
"$$GREEN$$<SHIFT-ESC>$$FG$$ to abort.\n");
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
'' CH_SHIFT_ESC;
Misc/Tour/Tour9.AUT
+40 -19
View File
@@ -1,30 +1,51 @@
PopUpOk(
"All text widgets work everywhere.\n"
"The $$GREEN$$Type()$$FG$$ command is like\n"
"the DOS command of the same name\n"
"or the UNIX, $$GREEN$$cat$$FG$$ command.\n"
"We will now send your menu document\n"
"to the command line. They use the same\n"
"document format and it is active!!.\n");
PopUpOk("Press $$GREEN$$<ENTER>$$FG$$.");
"Ed(\"HI:Debugging\");";
AFGetStr("\n");
PopUpOk(
"$$GREEN$$<SHIFT-ESC>$$FG$$ to abort.\n");
AFUntilChar(CH_ESC,CH_SHIFT_ESC);
//This puts the cursor at the bottom
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
"\n";
PopUpOk(
"We will now use $LK,"Uf",A="MN:Uf"$() to\n"
"unassemble a function.\n"
"It takes the function name\n"
"as a string arg.\n\n"
"Press $$GREEN$$<ENTER>$$FG$$.");
"WinMax;WinBorder;\nUf(\"CAlloc\");";
AFGetStr("\n");
"Type(\"HOME/PersonalMenu.TXT\");";
AFPmtStr("\n");
PopUpOk("Press $$GREEN$$<CURSOR-UP>$$FG$$ eight times..");
I64 i;
for (i=0;i<8;i++)
AFGetKey(SC_CURSOR_UP);
Sleep(1500);
AFPrint(250,"Dir;\nAFView;\n");
PopUpOk(
"Press $$GREEN$$<SPACE>$$FG$$.\n");
AFGetStr(" ");
PopUpOk(
"$$GREEN$$<SHIFT-ESC>$$FG$$ when finished.\n");
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
AFUntilChar(CH_ESC,CH_SHIFT_ESC);
//Puts the cursor at the bottom.
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
PopUpOk(
"$$GREEN$$Type()$$FG$$ can also be used on\n"
"$$GREEN$$.BMP$$FG$$ or $$GREEN$$.GRA$$FG$$ files!");
"We can unassemble a\n"
"numeric address with $LK,"U",A="MN:U"$().\n\n"
"Press $$GREEN$$<ENTER>$$FG$$.");
"U(&CAlloc);";
AFGetStr("\n");
Sleep(1000);
PopUpOk("The opcodes are slightly nonstandard.");
"Ed(\"::/Compiler/OpCodes.TXT.Z\");\n";
Msg(MSG_KEY_DOWN,CH_CTRLF,0x42100000421);
"MOV";
Msg(MSG_KEY_DOWN,CH_ESC,0x100000001);
PopUpOk(
"$$GREEN$$<SHIFT-ESC>$$FG$$ to abort.\n");
AFUntilChar(CH_ESC,CH_SHIFT_ESC);
Misc/Tour/TourA.AUT
+21 -6
View File
@@ -1,10 +1,25 @@
PopUpOk(
"We will now run a test-suite\n"
"that automatically executes\n"
"most TempleOS demos. It takes\n"
"a few minutes, so kick-back.\n");
"All text widgets work everywhere.\n"
"The $$GREEN$$Type()$$FG$$ command is like\n"
"the DOS command of the same name\n"
"or the UNIX, $$GREEN$$cat$$FG$$ command.\n"
"We will now send your menu document\n"
"to the command line. They use the same\n"
"document format and it is active!!.\n");
PopUpOk("Press $$GREEN$$<ENTER>$$FG$$.");
"#include \"::/Misc/OSTestSuite\";";
AFPmtStr("\n");
//Puts the cursor at the bottom.
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
"\n";
"Type(\"HOME/PersonalMenu.TXT\");";
AFGetStr("\n");
Sleep(1500);
AFPrint(250,"Dir;\n");
Sleep(1500);
PopUpOk(
"$$GREEN$$Type()$$FG$$ can also be used on\n"
"$$GREEN$$.BMP$$FG$$ or $$GREEN$$.GRA$$FG$$ files!");
Misc/Tour/TourB.AUT
+10
View File
@@ -0,0 +1,10 @@
PopUpOk(
"We will now run a test-suite\n"
"that automatically executes\n"
"most TempleOS demos. It takes\n"
"a few minutes, so kick-back.\n");
PopUpOk("Press $$GREEN$$<ENTER>$$FG$$.");
"#include \"::/Misc/OSTestSuite\";";
AFGetStr("\n");