TempleOS V5.03 Nightly (ISO SHA-1 aed1efc)

Demo/AcctExample/HomeKeyPlugIns.HC

@@ -126,38 +126,6 @@ Bool MyPutKey(I64 ch,I64 sc)
 		"$$BLUE$$";
 	    }
 	    return TRUE;
-	  case SC_F5:
-	    if (sc&SCF_KEY_DESC)
-	      KeyDescSet("Cmd /GodOffer");
-	    else
-	      GodOffer;
-	    return TRUE;
-	  case SC_F6:
-	    if (sc&SCF_SHIFT) {
-	      if (sc&SCF_KEY_DESC)
-		KeyDescSet("Cmd /TOSIns");
-	      else
-		TOSIns;
-	    } else {
-	      if (sc&SCF_KEY_DESC)
-		KeyDescSet("Cmd /TimeIns");
-	      else
-		TimeIns;
-	    }
-	    return TRUE;
-	  case SC_F7:
-	    if (sc&SCF_SHIFT) {
-	      if (sc&SCF_KEY_DESC)
-		KeyDescSet("Cmd /NISTGodIns2");
-	      else
-		NISTGodIns2;
-	    } else {
-	      if (sc&SCF_KEY_DESC)
-		KeyDescSet("Cmd /GodIns");
-	      else
-		GodIns;
-	    }
-	    return TRUE;
 	  case SC_F8:
 	    if (sc&SCF_SHIFT) {
 	      if (sc&SCF_KEY_DESC)
@@ -185,6 +153,22 @@ Bool MyPutKey(I64 ch,I64 sc)
 	else
 	  AutoComplete;
 	return TRUE;
+      case 'f': //With sync
+	if (sc&SCF_KEY_DESC)
+	  KeyDescSet("Cmd /FrameGrabber Sync");
+	else if (fg_on)
+	  FrameGrabberToggle(FALSE,FALSE,FALSE);
+	else
+	  FrameGrabberToggle(TRUE,FALSE,FALSE);
+	return TRUE;
+      case 'F': //With sync and intro TOS theme
+	if (sc&SCF_KEY_DESC)
+	  KeyDescSet("Cmd /FrameGrabber Intro");
+	else if (fg_on)
+	  FrameGrabberToggle(FALSE,FALSE,TRUE);
+	else
+	  FrameGrabberToggle(TRUE,TRUE,FALSE);
+	return TRUE;
       case 'h':
 	if (sc&SCF_KEY_DESC)
 	  KeyDescSet("Cmd /WinTileHorz");
@@ -211,12 +195,6 @@ Bool MyPutKey(I64 ch,I64 sc)
 	else
 	  WinTileVert;
 	return TRUE;
-      case 'V':
-	if (sc&SCF_KEY_DESC)
-	  KeyDescSet("Cmd /FrameGrabberToggle");
-	else
-	  FrameGrabberToggle;
-	return TRUE;
       case 'l':
 	if (sc&SCF_KEY_DESC)
 	  KeyDescSet("Edit/Put Link to Cur Pos on Clip");
@@ -246,6 +224,20 @@ Bool MyPutKey(I64 ch,I64 sc)
 	  "$$AN,\"<TODO>\",A=\"ANC%d\"$$",i;
 	}
 	return TRUE;
+      case 'p':
+	if (sc&SCF_KEY_DESC)
+	  KeyDescSet("Cmd /JukeBox");
+	else
+	  PopUp("#include \"::/Apps/Psalmody/Load\";"
+		"JukeBox(\"::/Home/Sup1/Sup1Hymns\");");
+	return TRUE;
+      case 'P':
+	if (sc&SCF_KEY_DESC)
+	  KeyDescSet("Cmd /Psalmody");
+	else
+	  PopUp("#include \"::/Apps/Psalmody/Load\";"
+		"Psalmody(\"~/Sup1/Sup1Hymns\");");
+	return TRUE;
 
 	//Ins your own ALT-key plug-ins
       case '1':
@@ -284,30 +276,6 @@ Bool MyPutKey(I64 ch,I64 sc)
 	else
 	  "$$ID,-5$$";
 	return TRUE;
-      case 'b':
-	if (sc&SCF_KEY_DESC)
-	  KeyDescSet("Cmd /Jump to Bad Code");
-	else //$LK,"::/Adam/God/HSNotes.DD"$
-	  GodCodeJmp;
-	return TRUE;
-      case 'g':
-	if (sc&SCF_KEY_DESC)
-	  KeyDescSet("Edit/BlogScrnShot");
-	else
-	  BlogScrnShot;
-	return TRUE;
-      case 'p':
-	if (sc&SCF_KEY_DESC)
-	  KeyDescSet("Cmd /JukeBox(Home/Sup1Hymns)");
-	else
-	  JukeBox("~/Sup1/Sup1Hymns");
-	return TRUE;
-      case 'P':
-	if (sc&SCF_KEY_DESC)
-	  KeyDescSet("Cmd /JukeBox(Home/Sup1Songs)");
-	else
-	  JukeBox("~/Sup1/Sup1Songs");
-	return TRUE;
     }
   }
   return FALSE;