zi

de winamp pe shuffle (chiar interesantă selecţia aia aleatoare de a făcut-o), cu ceva mai mult uitat pe geam... iarna asta e de zahăr (nu, nu te pe ea şi iese ceai)... ieri noapte cineva a tăvălit pomii prin zahărul ăsta pudră, iar străzile seamănă cu nişte mari aluaturi umflate şi cocoşate, cum sunt alea de cozonac, acoperite de un strat de zahăr bilos şi grunjos şi bucăţele de nucă din aia pisată... din păcate însă, sunt de nemâncat...

şi, cu toate astea, nervi... şi dor de ducă...

p.s.1: cum anunţă oamenii veştile bune pe-aici :)

IDENTIFICATION DIVISION. PROGRAM-ID. RADU-MIHAI. AUTHOR. SILVIA-ADN-STEFAN.
DATE-WRITTEN. 2008-01-13. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 BIRTH.
03 PLACE PIC X(20).
01 RADU.
03 WEIGHT PIC 9V999.
03 HEIGHT PIC 99. PROCEDURE DIVISION. MOVE 'SPITALUL MUNICIPAL' TO PLACE OF BIRTH.
MOVE 3,350 TO WEIGHT OF RADU. MOVE 50 TO HEIGHT OF RADU. DISPLAY 'HELLO WORLD'.
EXIT.

Si ca sa compilam fara erori... adaugam in ENVIRONMENT DIVISION:
CONFIGURATION SECTION.
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.
Apoi se executa cu succes :P

PERFORM UNTIL CAR-IS-FULL
OBTAIN NEXT multa-sanatate-si-fericire WITHIN familia-voastra-mare KEEP EXCULSIVE
IF ERROR-STATUS = DB-END-OF-SET
OBTAIN DUPLICATE
END-IF
END-PERFORM

p.s.2: şi-o poznă, că nu mai pusesem de mult una cu subsemnatul :D