Korszerű programozás?

Már jó ideje nem írtam ide. Ennek egy oka volt: programot kellett írnom. De nem is akármilyet. Az volt az igény, hogy Windows-on és Dos-on is működjön. A Delphi az utóbbi kitétel miatt kilőve.
Aztán eszembe jutott, hogy a volt munkahelyemen (a kenyérgyárban) is dosos programmal dolgoztunk amit Clipper-ben írtak kb. 22 évvel ezelőtt. Így muszály volt nekem is megtanulni ezt a rég elfeledett nyelvet ami első látásra igen könnyűnek látszik, ha jobban megnézed akkor azért húzod a szád.

Clipperben olyan, hogy SQL? Ne is álmodjunk róla. Egy csoportváltásos lista így néz ki:

DO WHILE !EOF()
   SR:=SR+1
   IF MSOFOR != SOFOR
     @SR, 1 SAY REPLICATE(CHR(205), 130)
     @SR+1, 1 SAY "                                                                                          Összesen:"+STR(OSULY, 8,2)+" "+STR(RERTEK, 10, 2)+" "+STR(EERTEK, 10, 2)
     SR:=62
     STORE 0 TO OSULY, RERTEK, EERTEK
     MSOFOR:=SOFOR
   ENDIF
   IF SR > 60
      EJECT
      STORE 0 TO SR
      LAP:=LAP + 1
      DO ROS_FEJ
   ENDIF
   @SR, 1 SAY CIKKSZAM+" "+MEGNEV+" "+STR(RENDOSSZ, 10, 2)+" "+STR(ELFOGOSSZ, 10, 2)+" "+STR(ELFOGOSSZ - RENDOSSZ, 10, 2)+" "+STR(VISSZOSSZ, 10, 2)+" "+STR(SULYOSSZ, 8, 2)+" "+STR(RENDERTEK, 10, 2)+" "+STR(ELADERTEK, 10, 2)
   OSULY:=OSULY + SULYOSSZ
   RERTEK:=RERTEK + RENDERTEK
   EERTEK:=EERTEK + ELADERTEK
   SKIP
 ENDDO

Ez azt csinálja, hogy sofőrönként kiírja a rendeléseket, cikkszámra gyűjtve amit persze egy korábbi eljárásban szépen összeadtunk egy új *.dbf fájlba.

Érdekes az adatbeviteli technológiája ennek a programnyelvnek. Míg delphiben rádobunk a formra egy menüt, addig clipperben min 20 sor.

PROCEDURE RENDELES
   DECLARE MREND
   DECLARE RKEP
   DECLARE STATIC7, STATIC6
   DECLARE STATIC8
   DECLARE STATIC9 
   @4, 2 CLEAR TO 22, 78
   @24,20 CLEAR TO 24, 40
  
   DO WHILE .T.
     STORE 1 TO HELP_CODE
     DO KERET
     DO PRFEJ WITH "RENDELÉSEK FELVITELE, MÓDOSÍTÁSA"
     STORE 0 TO MREND
     SET COLOR TO &SZIN1
     @ 8, 15, 17, 65 BOX B_SINGLE
     SET COLOR TO &SZIN5
     @10, 20 PROMPT "1 - ELŐZETES RENDELÉSEK FELVITELE         "
     @11, 20 PROMPT "2 - NAPI RENDELÉSEK KEZELÉSE              "
     @12, 20 PROMPT "3 - RENDELÉSEK LEKÉRDEZÉSE                "
     @13, 20 PROMPT "4 - RENDELÉSEK TÖRLÉSE                    "
     @14, 20 PROMPT "5 - RENDELÉSEK BEOLVASÁSA FLOPPYRÓL       "  
     @15, 20 PROMPT "6 - JÁRAT SZERVEZÉS                       "
                       
     MENU TO MREND
     IF MREND = 1
         KERET()
         SAVE SCREEN TO RKEP
         RENDFELV()
         RESTORE SCREEN FROM RKEP
     ELSEIF MREND = 2
         keret()
         RMOD()
     ELSEIF MREND = 3
         KERET()
         REND_KIIR()
     ELSEIF MREND = 4
         KERET()
         REND_TORL()
     ELSEIF MREND = 5
         KERET()
         REND_BE()
     ELSEIF MREND = 6
         DO KERET
         DO TURASZ
     ELSEIF MREND = 0
       EXIT
     ENDIF

   ENDDO

RETURN

Ugye milyen szép. Az adatbevitel is hasonlóan történik:

PROCEDURE T_ADATBE
  DO WHILE .T.
    @6, 20 GET MTURANEV PICTURE "XXXXXXXXXXXXXXXXXXXX" COLOR SZIN6 VALID !EMPTY(MTURANEV)
    @7, 20 GET MSOFOR PICTURE "XXXX" COLOR SZIN6 VALID JOSOFOR(MSOFOR,7,25)
    @8, 20 GET MGK PICTURE "!!!-999" COLOR SZIN6 VALID JOGK(MGK)
    READ
    CLEAR GETS
    IF LASTKEY() = 3 .OR. LASTKEY() = 18
      LOOP
    ENDIF
    SET COLOR TO &SZIN1
    IF LASTKEY() = 27
      TKILEP := .T.
      EXIT
    ENDIF
    DECLARE XM
    STORE 0 TO XM
    STORE ALERT("Helyes a kitöltés?",{"IGEN", "NEM"}) TO XM
    IF LASTKEY() = 27
      TKILEP := .T.
      EXIT
    ENDIF
    IF XM = 1
       EXIT
    ENDIF
  ENDDO
RETURN

Szóval minden adatbevitelhez legalább egy ilyen eljárást kellett megírni, meg még a szövegeket hozzá. 29.887 programsort írtam meg, ami lefordítva 1 Mbyte.

2011

Boldog Új Évet Kívánok!

Remélem az idei év úgy fog sikerülni mindenkinek, ahogy szeretné.

A csőrös csóka esete a csinos csőrös csókalánnyal

Két csóka ül a recsegős fa ágán

Csőrös csóka arcán kaján mosolyt lát

A csinos csőrös csókalány.

Csőrös csóka csücsöríti csőrös csóka ajkát

Melyet odanyom lazán a csinos csőrös csókalány

Púderral borított csőrös csóka orcájára.

Csőrös csóka csavarja csőrös csőrét,

A csókalány arcán nagy meglepődés

Melyet csőrös csóka úrfi csücsörítős csőrével okozott.

Csókolózás után jött a csőrkoptatás.

Csőrös csóka csőrével a csinos csőrös csókalány

Szájába adott egy hatalmas csöves kukoricát.

Ez aztán a csőrkoptatás és csattogás!

Csinos csókalány, aki csőrös

Csőrével darálja begyébe a csövet

S a csőrös csóka megmozgat minden követ,

Hogy csőrével előbb elkopogtassa a csövet.

Ám a csinos csőrös csókalány

A csőrével hamarabb elkopogtatta a nagy fa ágán a ti-ti-tát,

Mikor még a csókafiú a kukoricán a szemet kopogtatta.

Csinos csőrös csókalány már nem csücsörített

A csőrös csóka csőrére.

Elrepült, s rá se nézett leendő férjére

Aki még mindig ebédel, s rágja,

Kinek csőre szaga inkább emlékeztet

A csőrmester zárkacsövének csőszagára.

Mikrofon mindörökké ?!

Egyszer volt, hogy nem volt, volt egyszer egy mikrofon... Akár kezdődhetne így is e kis történet, de mégsem. A mi nap jutott eszembe cigizék közben odakinn a farkasordító hidegben, hogy milyen sok közöm volt a mikrofonhoz. Akik ismernek azok tudják, hogy általános és középiskolában is ráadióztam. De vannak amit sokan nem tudnak.

Az egész történet a mikrofonnal még 12 éves koromban kezdődött. Nyári szünetben az utcabeliekkel nagyon unatkoztunk és kitaláltuk, hogy rendezzünk vetélkedőket kinn az aszfalton. Sok készülődés után megszerveztük a versenyeket még a környékbeli utcákból is jöttek hasonló korú gyerekek a játékra. Emlékszem 100 forint volt a nevezési díj és azzal a címszóval illetük ezt az összeget, hogy a verseny végén mindenki visszakapja. Ez így is volt, persze nem a százast adtuk vissza, hanem vettünk belőle nyereményeket. Napsütéses nyári napon kipakoltam a zenés cuccot, előtte építettem egy kezdetleges keverőt, hogy a mikrofon és a zene egyszerre tudjon szólni, mint a majálison a nagyoknál, Komáromi Laci bácsiéknál. Én voltam a műsorvezető, zengett az egész utca tőlünk, és még a másik, szomszédos utcákban is lehetett hallani "gyönyörűen felkonferált" mondataimat, így a szülők is élvezhették a verseny minden pillanatát és tudták, hogy jó kezekben vannak a gyerekek.

Erre a történetre majd másfél év elteltével jött az a felkérés, hogy legyek benne az iskolarádióban, ugyanis akkor már nagy "dj-ként" ismertek sokan a sulibéli osztálybulikról mint diákok, mint tanárok. Így én lettem a Diákstúdió első zenei szerkesztője. Mivel nyolcadik osztályos voltam, így csak fél évig tudtam betölteni ezt a titulust. Még ma is meg van az a Coca-Colás üveg amit névreszólóan kaptam a búcsúztatásomkor, meg az ellenőrző is meg van amiben igazgatói dícséretet kaptam iskolánk akkor igazgatójától aki most városunk polgármestere.

Nem álltunk itt meg. Jött a középiskola. Első kérdésem mi volt az osztályfőnökhöz? Valaki? Hát persze az, hogy: "Van-e iskolarádió itt?" Volt. Első éves koromban kezdett beindulni, kaptunk saját stúdiót lennt az XT és az AT termek mellett, az akkor még kopottas ajtajú garázs egyik szobájában. Mivel a technikus kolléga nagyon nagyon lassan húzta ki a kéteres, hagyományos árnyékolt vezetéket így csak akkor indult el az adás mikor már második évfolyamos voltam. Azt hiszem decemberben indultunk be a téli szünet előtti héten voltak a próba adások. Első évben nagyon kezdeti jelleggel voltunk, szünetekben inkább zene szólt és néha böffentettünk valamit a mikrofonba, mintsem, hogy komoly műsoraink lettek volna. Következő évtől én lettem a stúdióvezető s hirdettünk felvételt, mivel nagyon kevesen voltunk. Jöttek is szép számmal. Minden napra jutott egy ember, volt aki párban, volt aki egyedül vitte az adást, színvonalas műsoraink voltak. Ebben az évben a Diákrádiósok Vajda Péter emlékversenyére is eljutottunk Szarvasra, mely 2004. június 3-5. között került megrendezésre. Ötödik helyezést értünk el, de boldogok voltunk mert bejutottunk egy olyan versenyre ahol sok szép ötletet lehet összegyűjteni. Mire végzős lettem már rutinná vált az interjú készítés. Készítettem interjút a Desperadoval (2003), a Groove House-zal (2004) és MC Hawerrel meg Teknővel (2005) a farsangokon, illetve iskolánk névadójának, Móricz Zsigmond unokájával. Sajnos a vége nagyon csúnyára sikeredett. Az egyik kolléganővel hatalmi harcokat vívtunk, ugyanis nagy szerette volna ő azt a pozíciót amiben én voltam 2 évig. Azt hitte, hogy Ő majd jobb lesz nálam és megmutatja majd nekem. Így egyszer egy reggelen előtört belőle a féltékenység és lehordott minden szarnak, hogy nem őt akarom utódomnak, ezt abból az alaptalan feltételezésből gondolta ki, hogy az egyik újonc kislánynak elmondtam, hogy hogy szoktuk a Móricz-napot csinálni. Ezt ő félreértette. Az állítása és a vágyai nem jöttek be, nem működött már úgy a rádió, mint az "én koromban", szinte semmi adás nem volt.

Az egyetemen is rádióztam, és nagyon komoly lépés volt a berendezett stúdió, keverőszoba, bemondószoba hangszigetelten a mi, középiskolás stúdiónkhoz képest ahol néha még fűtés is alig volt. A mai napig emlékezni fogok arra a műsorra amit ketten csináltunk Alice-szel. A műsor címe: SZTRÁJK! volt, a név onnan jött, hogy akkoriban sok volt a vasutas sztrájk és egyszer csak így beugrott. Az utolsó adáson sajnos nem lehettem ott, az influenza legyőzött.

Ennyi a pályafutásom eddig a mikrofonnal, nem tudom mit hoz a jövő, de szívesen emlékszem vissza ezekre az időkre. Most jut eszembe, hogy az egyik Móricz-nap teljes hanganyaga (majd 6 óra hosszú, többségében Gönczi Károly tanárúr hangjával tarkított) itt lapul a fiókomban. Középiskolai pályafutásom legszebb pontjának ezen nap technikai levezénylését és rögzítését tartom.

Update 2010.12.18: Most jutott eszembe, hogy egyik évben még fiatal koromban szerepeltem a Party rádióban, mint születésnapos, élő műsorban köszöntöttek fel. 

Revolution 2010

A mai naptól a hivatalos honlapomon elérhető, letölthető, hallgatható az új albumom a REVOLUTION 2010.

Jó szórakozást hozzá, remélem elnyeri mindenki tetszését. Véleményezni itt kommentben vagy a honlapon vendégkönyvben.

Revolution 2010 az új album

Kicsit feszengek az új album miatt. Ahány embernek már megmutattam annyi különböző véleményt hallottam. Eddig nem így volt. A közönség eddig javarészt egyformán nyilatkozott a zenék tetszéséről, most nem így van.

Még dolgozgatok az albumon csinosítgatom itt-ott, de van bennem egy kétely, hogy lehet nem kéne megjelentetni.

Röviden pár sort az albumról:
- próbáltam új színt vinni a zenéimbe (lehet, hogy nem kéne) néhol ötvöztem az "élő" zenei hangzást az elektronikus muzsikával,

- vannak rajta akusztikus dalok is melyek olyan lágy hatást keltenek bennem.

- már nem is tudom, hogy mért a Revolution 2010 címet adtam neki.

Hű, ez tényleg pár sor lett. Íme az album borítója, a megjelenés 2010. december 6-án várható a délutáni órákban a honlapomon.

(kattra megnő)

Megtört a hallgatás

Egy év, hét hónap és huszonkét nap után megpróbálkozok a lehetetlennel. Újra blogolok. Nem tudom, hogy mi fog ebből kisülni, de újra érzek arra inspirációt, hogy írkáljak ide mindenfélét.

A mi folyik itt rész kicsit át fog formálódni, már a blogdesign megváltozott, hamarosan összeszedem magam és lökök egy hatalmas bejegyzést.