Sorgenti

gentoday/GENTODAY.PRG

@@ -0,0 +1,27 @@
+#xtranslate ntrim( <x> ) => alltrim(str( <x> ))
+* ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
+FUNCTION gen_today_ch(  )
+* ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
+local x:=fcreate("TODAY.CH")
+local mese:= cmonth(date())
+local giorno:=day(date())
+local gsett:=cdow(date())
+local ordinal:=""
+local ora:=time()
+local cbuff:=""
+do case
+   case giorno = 1 .or. giorno = 21 .or. giorno = 31
+        ordinal:= "st"
+   case giorno = 2 .or. giorno = 22
+        ordinal:= "nd"
+   case giorno = 3 .or. giorno = 23
+        ordinal:= "rd"
+   otherwise
+        ordinal:= "th"
+endcase
+cbuff:="#define _COMPILE_DATE_ 'Compiled on "+gsett+", "+mese+" "+ntrim(giorno)+ordinal+", "+ntrim(Year(date()))+"'"
+fwrite(x,cbuff)
+fclose(x)
+
+RETURN NIL
+

gentoday/go.bat

@@ -0,0 +1,5 @@
+call bld_b32.bat GENTODAY
+del GENTODAY.c
+del GENTODAY.obj
+del GENTODAY.tds
+del GENTODAY.ppo

src/3D.PRG

@@ -0,0 +1,43 @@
+#include "common.ch"
+_3dalert(  ,  ,  ,  ,{"úÄÍþ³’ïþÍÄú","of","TWT","Proudly","Presents"})
+* ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
+FUNCTION _3dalert(y1,x1,y2,x2,aMessage,cColBox,cColup,cColdown,cColMes,cColbut,aBut  )
+* ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
+local sav
+local counter:=0
+default amessage to {""}
+default aBut to {"Ok"}
+default y1 to (maxrow()/2)-(len(amessage)/2)-2
+default y2 to (maxrow()/2)+(len(amessage)/2)+3
+default x1 to (maxcol()/2)-10
+default x2 to (maxcol()/2)+10
+default cColBox  to "bg+/r"
+default cColup   to "w+/r"
+default cColdown to "n/r"
+default cColMes  to "w+/r"
+default cColBut  to "w+/B"
+sav:=savescreen(y1,x1,y2+2,x2+2)
+dfpushcursor()
+setcursor(0)
+dfShade( y1,x1,y2,x2 )
+dfSayBox( y1,x1,y2,x2, cColup, cColdown, cColBox )
+setcolor(cColMes)
+aeval( aMessage,{|scritta| counter++,;
+                           devpos( y1+1+counter,(maxcol()/2-len(scritta)/2) ),;
+                           devout(scritta) } )
+
+setcolor( cColBut )
+devpos(y2-2,(maxcol()/2)-(len(abut[1])+4)/2)
+devout ( "[ "+abut[1]+" ]" )
+
+inkey(0)
+
+dfpopcursor()
+restscreen(y1,x1,y2+2,x2+2,sav)
+RETURN NIL
+
+* ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
+FUNCTION alert(  )
+* ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
+
+RETURN NIL