TempleOSCDV4.11.ISO

Apps/AfterEgypt/Comics.HC

@@ -0,0 +1,26 @@
+U0 ViewComics()
+{
+  I64 i=0;
+  U8 *st;
+  CDirEntry *tempde=FilesFind("Comics/*.DD*"),*tempde1=tempde;
+  CDoc *doc=DocNew;
+  DocPrint(doc,"$$LTBLUE$$");
+  while (tempde) {
+    st=StrNew(tempde->name);
+    FileExtRem(st);
+    tempde->user_data=DocPrint(doc,"$$MU-UL,\"%-10ts\",LE=%d$$ ",st,tempde);
+    Free(st);
+    tempde=tempde->next;
+    if ((i++&3)==3)
+      DocPrint(doc,"\n");
+  }
+  while (TRUE) {
+    if ((tempde=PopUpMenu(doc))>0)
+      Ed(tempde->full_name);
+    else
+      break;
+  }
+  DocDel(doc);
+  DirTreeDel(tempde1);
+}
+