![]() |
#1 |
Siva eminencija
Grand Master
|
![]() 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: Kôd:
! 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 ![]() |
![]() |
![]() |
"Hvala" McKracken za poruku: |
![]() |
#2 |
Alpha male
Certified
|
![]() Današnja deca su užasna generacija ! Nevaljala, nemirna, ne poštuju starije, stalno govore ružne reči. Mi smo bili mnogo bolji!
(zapis na egipatskom pergamentu 1000 godina p. n. e.) |
![]() |
![]() |
4 članova zahvaljuje Ivan Minic za poruku: |
![]() |
#3 |
Super Moderator
Invented the damn thing
Datum učlanjenja: 06.06.2005
Poruke: 2.371
Hvala: 370
701 "Hvala" u 194 poruka
![]() ![]() ![]() ![]() ![]() ![]() ![]() |
![]() "A certain someone ^^ had a senior moment, but we love him, and he got us a free rug out of it."
(Homer Simpsons in The Simpsons movie) ![]() |
![]() |
![]() |
![]() |
#4 |
Super Moderator
Invented the damn thing
Datum učlanjenja: 06.06.2005
Poruke: 2.371
Hvala: 370
701 "Hvala" u 194 poruka
![]() ![]() ![]() ![]() ![]() ![]() ![]() |
![]() I jos da dodam, taj Basic je kako mu i ime kaze za pocetnike za razliku od CMS-a
![]() |
![]() |
![]() |
![]() |
#5 |
VD IT Direktora
Invented the damn thing
Datum učlanjenja: 08.06.2005
Lokacija: Beograd
Poruke: 2.118
Hvala: 503
1.307 "Hvala" u 282 poruka
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() |
![]() Kakav je ovo pomodarski BASIC bez LET?!
CALL i RETURN?? Čis' fenseraj.
__________________
blog Poslednja izmena od jablan : 07. 02. 2011. u 23:26. |
![]() |
![]() |
![]() |
#6 |
Vladan Zirojević
Grand Master
|
![]() Nema GOTO?!
|
![]() |
![]() |
![]() |
#7 |
Knowledge base
Wrote a book
Datum učlanjenja: 07.06.2005
Lokacija: Neđe ođe...
Poruke: 1.198
Hvala: 339
688 "Hvala" u 178 poruka
![]() ![]() ![]() ![]() ![]() ![]() ![]() |
![]() Izjava od neki dan, povodom auta kojem su ukrali točkove i ostavili ga da leži na parkingu: "U moje vrijeme su makar postavljali klocne kad ukradu točkove, a ova današnja omladina..."
__________________
Чак Норис може да си ги врзе врвките на чевлите со стапалата. |
![]() |
![]() |
![]() |
#8 |
Siva eminencija
Grand Master
|
![]() Ima GOTO i to da ti oci ispadnu i u pitanju je enterprise level aplikacija (u prevodu, kroz nju prodje vise stotina "CMS sajtova dnevno").
I posle kukaju kako neki jezik nije dovoljno dobar za "enterprise". Fenseraj... Poslednja izmena od McKracken : 08. 02. 2011. u 01:39. |
![]() |
![]() |
![]() |
|
|