[McKracken]

Slucajno sam poslednih para dana imao srecu da prepravljam neki kod koji trci na VAX VMS, pisan u DEC BASICU koji radi na serveru koji niija gasen od 1989.

To me je podstaklo da napisem sledecu poruku danasnjim generacijama:

"JOJ, KAKO JE VAMA DOBRO!"

Pozelis da ucis programiranje, a na raspolaganju ti Google, forumi, OOP, klase, IDE-i, dzabe knjige, serveri sa x GB i n jezgara na y Ghz.

Kao slatkis ide parce koda:

	! Get the beginning purge date.
	CALL DT_ADD_MONTHS(DATE_NOW$,-cActLogKeep,R.DATE$,STS)
	! Primary key is descending.  Delete anything on or before the 
	! beginning purge date.

	KEY_925$	= SEG$(R.DATE$,1,6)
   	CALL CGI_READ_APX_REGARDLESS(KEY_925$,gCHAN(925),0,STS)
	EOF_925		= (STS<>0)
5010
	WHILE NOT EOF_925
                DEL_CNT	= DEL_CNT+1

		DEL_KEY$	= F925L001$+F925L002$
		CALL CGI_DBDELETE(DEL_KEY$,gCHAN(925),0,STS)

		! Ignore errors and return.
		RETURN IF STS<>0

     		CALL CGI_READ_NEXT_REGARDLESS(gCHAN(925),0,STS)

		! Only delete a max of 100 records per session.
		EOF_925	= (STS<>0) OR (DEL_CNT>=100)
	NEXT

	CALL CGI_CLOSE_FILE(925,STS)

	RETURN