Initial (manual) import

TempleOSCD/Demo/ScrnCodes.HC

@@ -0,0 +1,27 @@
+/*See $LK,"TextBase Layer",A="HI:TextBase Layer"$ for the format
+of the U32 you pass to TextChar()
+
+See $LK,"::/Doc/CharOverview.DD"$, $LK,"::/Demo/ExtChars.HC"$,
+and $LK,"::/Demo/Graphics/FontEd.HC"$.
+
+Hold <ALT> and press a 3 digit decimal number
+or press <CTRL-ALT-a> to enter extended characters.
+*/
+
+U0 DrawIt(CTask *task,CDC *)
+{
+  I64 i;
+  for (i=0;i<256;i++)
+    TextChar(task,,(i&15)*2,(i/16)*2,i+BLACK<<12+WHITE<<8);
+}
+
+U0 ScrnCodes()
+{
+  SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
+  DocClear;
+  Fs->draw_it=&DrawIt;
+  GetChar(,FALSE);
+  SettingsPop;
+}
+
+ScrnCodes;