#help_index "Misc/TOS/God;God/TOS" I64 tos_timestamp=0,tos_type=0; RegDft("TempleOS/TOSNIST","I64 tos_nist_offset=-8049;\n"); RegExe("TempleOS/TOSNIST"); public I64 CDate2Unix(CDate dt) {//TempleOS datetime to Unix timestamp. return ToI64((dt-Str2Date("1/1/1970"))/CDATE_FREQ+NIST_TIME_OFFSET); } public CDate Unix2CDate(I64 timestamp) {//Unix timestamp to TempleOS datetime. return (timestamp-NIST_TIME_OFFSET)*CDATE_FREQ+Str2Date("1/1/1970"); } public U0 NISTBeaconSync() {//Help get local clk in sync with NIST clk. I64 i,j; CDate dt; CDateStruct ds; while (!ScanChar) { dt=Now; Date2Struct(&ds,dt); i=CDate2Unix(dt); j=FloorI64(i,60); "%d %d %02d %02d\n",i,j,ds.sec,(60+ds.sec-(i-j))%60; Sleep(100); } tos_nist_offset=GetI64("tos_nist_offset (%d):",tos_nist_offset); RegWrite("TempleOS/TOSNIST","I64 tos_nist_offset=%d;\n",tos_nist_offset); } U0 NISTBeaconURL(I64 timestamp) {//Insert NIST Beacon header into blog. U8 *tag; CDateStruct ds; CDate dt=Unix2CDate(timestamp); Date2Struct(&ds,dt+local_time_offset+30*CDATE_FREQ); "$TX,\"NIST Beacon Date:%D Time:%02d:%02d Unix TimeStamp:%u\"," "HTML=\"https://beacon.nist.gov/home\"$\n",dt,ds.hour,ds.min,timestamp; tag=MStrPrint("https://beacon.nist.gov/rest/record/%d",timestamp); "$TX,\"NIST Beacon Record:%$Q\",HTML=\"%$Q\"$\n",tag,tag; Free(tag); } U0 NISTGodIns1() { tos_type=PopUpPickLst("ExtDec5Bible\0LinuxWords\0HappyWords\0Words1000\0" "Words10k\0Hex5Bible\0Hex8Books\0Doodle\0Movie100\0Painting100\0" "Painting1000\0Poems100\0Metallica\0"); switch (tos_type) { case: tos_timestamp=GodHeaderIns("Bible"); break; case: tos_timestamp=GodHeaderIns("LinuxWords"); break; case: tos_timestamp=GodHeaderIns("HappyWords"); break; case: tos_timestamp=GodHeaderIns("Words1000"); break; case: tos_timestamp=GodHeaderIns("Words10k"); break; case: tos_timestamp=GodHeaderIns("Bible"); break; case: tos_timestamp=GodHeaderIns("BookPick"); break; case: tos_timestamp=GodHeaderIns("Doodle"); break; case: tos_timestamp=GodHeaderIns("Movie100"); break; case: tos_timestamp=GodHeaderIns("Painting100"); break; case: tos_timestamp=GodHeaderIns("Painting1000"); break; case: tos_timestamp=GodHeaderIns("Poems100"); break; case: tos_timestamp=GodHeaderIns("Metallica"); break; } Once("tos_timestamp=%d;\ntos_type=%d;\n" "In(\"Blog(TRUE);\n\");",tos_timestamp,tos_type); } U0 NISTGodIns2() { CRandExtDec5Form *gm=CAlloc(sizeof(CRandExtDec5Form)); gm->timestamp=tos_timestamp; switch (tos_type) { case: if (DocForm(gm(CRandExtDec5Form *))) { NISTBeaconURL(gm->timestamp); TOSBookLines("~/Sup1/Sup1Blog/NumBible.TXT",ST_BIBLE_LINES, gm->rnd0,20,-5,FALSE,FALSE); } break; case: if (DocForm(gm(CHexWordForm *))) { NISTBeaconURL(gm->timestamp); Adam("GodInit(\"~/Sup1/Sup1Words/LinuxDict.TXT*\");"); GodWordBatch(gm,16,5); } break; case: if (DocForm(gm(CHexWordForm *))) { NISTBeaconURL(gm->timestamp); Adam("GodInit(\"~/Sup1/Sup1Words/HappyWords.TXT*\");"); GodWordBatch(gm,16,5); } break; case: if (DocForm(gm(CHexWordForm *))) { NISTBeaconURL(gm->timestamp); GodWordBatch(gm,10,3); } break; case: if (DocForm(gm(CHexWordForm *))) { NISTBeaconURL(gm->timestamp); GodWordBatch(gm,10,4); } break; case: if (DocForm(gm(CRandHex5Form *))) { "$TX,\"How this random Bible passage was chosen.\"," "HTML=\"http://www.templeos.org/Wb" "/Home/Web/TAD/NISTPassage.html\"$\n"; NISTBeaconURL(gm->timestamp); TOSBookLines("~/Sup1/Sup1Blog/NumBible.TXT",ST_BIBLE_LINES, gm->rnd0,20,16,TRUE,TRUE); } break; case: if (DocForm(gm(CRandHex8Form *))) { "$TX,\"How this random book pick was chosen.\"," "HTML=\"http://www.templeos.org/Wb" "/Home/Web/TAD/NISTPick002.html\"$\n"; NISTBeaconURL(gm->timestamp); GodBooksPassageU32(Str2I64(gm->rnd0,16), "~/*","C:/Home/Books?/*"); } break; case: if (DocForm(gm(CHexWordForm *))) { NISTBeaconURL(gm->timestamp); TOSGodDoodle(GSRC_NIST_BEACON,gm); } break; case: if (DocForm(gm(CMoviesForm *))) { NISTBeaconURL(gm->timestamp); GodVideoDigits("Top 100 Movies", "http://www.afi.com/100years/movies10.aspx", gm->rnd0,2,"~/Sup1/Sup1Blog/Movies100.DD.Z"); } break; case: if (DocForm(gm(CPaintings100Form *))) { NISTBeaconURL(gm->timestamp); GodWebIdx("Top 100 Paintings", "http://www.brushwiz.com/most-famous-paintings", gm->rnd0,2,"~/Sup1/Sup1Blog/Paintings100.DD.Z"); } break; case: if (DocForm(gm(CPaintings1000Form *))) { NISTBeaconURL(gm->timestamp); GodWebIdx("Top 1000 Paintings", "http://en.most-famous-paintings.com/MostFamousPaintings." "nsf/ListOfTop1000MostPopularPainting", gm->rnd0,3,"~/Sup1/Sup1Blog/Paintings1000.DD.Z"); } break; case: if (DocForm(gm(CPoems100Form *))) { NISTBeaconURL(gm->timestamp); GodWebIdx("Top 100 Poems", "http://100.best-poems.net/top-100-best-poems.html", gm->rnd0,2,"~/Sup1/Sup1Blog/Poems100.DD.Z"); } break; case: if (DocForm(gm(CMetallicaForm *))) { NISTBeaconURL(gm->timestamp); GodVideoDigits("Metallica Song", "http://home.hccnet.nl/a.r.adams/lyrics/" "metallica/songindex.html", gm->rnd0,2,"~/Sup1/Sup1Blog/Metallica.DD.Z"); } break; } Free(gm); }