SparrowOSTS_121127.ISO

SparrowOS/Apps/AfterEgypt/Comics.CPP

@@ -0,0 +1,27 @@
+U0 ViewComics()
+{
+  I64 i=0;
+  U8 *st;
+  CDirEntry *tempm,*tempm1;
+  CDoc *doc=DocNew;
+  tempm=FilesFind("Comics/*.TXT.Z");
+  tempm1=tempm;
+  while (tempm1) {
+    if (!(i++&3))
+      DocPutS(doc,"\n");
+    st=StrNew(tempm1->name);
+    FileExtRem(st);
+    tempm1->user_data=DocPrintF(doc,"$$MU-UL,\"%-10ts\",%d$$ ",st,tempm1);
+    Free(st);
+    tempm1=tempm1->next;
+  }
+  while (TRUE) {
+    if ((tempm1=PopUpMenu(doc))>0)
+      Ed(tempm1->full_name);
+    else
+      break;
+  }
+  DocDel(doc);
+  CDirListDel(tempm);
+}
+