0.115
mari@pi mari@pi Τετ. 11 Ιούν. 2008 0:59 tags πειραιάς , κεραίες , θάλασσα 0 views
_
_
mari@pi mari@pi Παρ. 6 Ιούν. 2008 2:37 tags όρος πατέρας 0 views 3 σχόλια
?
?
από tt39 tt39 2008-06-06 09:19
Δώσε και μια περιγραφή ρε φίλε.
Άκου, green.
από mari@pi mari@pi 2008-06-06 11:51
μια πόρτα που βλέπω από την αυλή απέναντι στο εξοχικό?
από tt39 tt39 2008-06-06 14:13
Έστω.
mari@pi mari@pi Πεμ. 5 Ιούν. 2008 18:30 tags όρος πατέρας 0 views
ενάδερ καλιτέκνικ πίκτουρ
ενάδερ καλιτέκνικ πίκτουρ
mari@pi mari@pi Πεμ. 5 Ιούν. 2008 11:23 tags mainframe , προβλήματα , γραμματοσειρές 0 views
F x'D3015B'
F x'D3015B'

mari@pi mari@pi Πεμ. 29 Μαϊος. 2008 19:42 tags όρος πατέρας 0 views 1 σχόλια
,
,
από tt39 tt39 2008-05-30 11:08
Πολύ μινιμάλ σε βρίσκω.
mari@pi mari@pi Πεμ. 29 Μαϊος. 2008 19:27 tags κομπιούτερ 0 views
βάρα με(punch me) κι ας κλαίω
βάρα με(punch me) κι ας κλαίω
mari@pi mari@pi Τρι. 27 Μαϊος. 2008 1:00 tags κρήτη 0 views 3 σχόλια
το φαράγγι του Χα .!,
το φαράγγι του Χα .!,
από patataki88* patataki88* 2008-05-27 13:17
re teleio alla egw dn nomizw oti tha ebaina.. einai oso terastio fainetai????
από mari@pi mari@pi 2008-05-28 10:34
δεν ξέρω μέχρι πόσο μέσα φτάνει,, εμείς προχωρήσαμε μέχρι κάποιο σημείο,, βρίσκεσαι ξαφνικά να προχωράς ανάμεσα σε δύο γυμνούς βράχινους τοίχους που απέχουν κάνα μέτρο μεταξύ τους ,,είναι λίγο απόκοσμο το μέρος ,,
από mari@pi mari@pi 2008-08-05 17:32
Το φαράγγι της Άρβης τελικά,,
mari@pi mari@pi Δευ. 26 Μαϊος. 2008 1:23 tags κρήτη , ποτάμι 0 views
the original 1600x1200 picture  - 180 rotated
the original 1600x1200 picture  - 180 rotated
mari@pi mari@pi Πεμ. 22 Μαϊος. 2008 15:51 tags προγραμματισμός 0 views 5 σχόλια
/* rexx */
drop l.
"execio * diskr MYLIST (stem l. finis"
if rc ^= 0 then do
   say 'error in reading MYLIST file !!!'
   say 'rc='rc
   exit 1
end
drop nj.;j=0
j=j+1;nj.j="//MAI     JOB (000),ME,CLASS=C,MSGCLASS=X,"
J=J+1;NJ.J="//     ​​​​​   NOTIFY=ME,TYPRUN=SCAN,"​​​
j=j+1;nj.j="//     ​​​​​   MSGLEVEL=(1,1),REGIO​N=0​M,T​IME=1440;
j=j+1;nj.j="//**   UNLOAD PROS SUBMIT"
do l=2 to l.0
   j=j+1;nj.j="//STEP"l-1"  EXEC PGM=IKJEFT01,REGION=0M"
   j=j+1;nj.j="//SYSEXEC  DD DISP=SHR,DSN=A.V.ARSINST"
   j=j+1;nj.j="//SYSTSPRT DD SYSOUT=*"
   j=j+1;nj.j="//SYSTSIN  DD *"
   j=j+1;nj.j="ARSSHL /usr/lpp/ars/bin/arsadmin +"
   j=j+1;nj.j=" unload -h ARCH -g +"
   j=j+1;nj.j="'"strip(substr(l.1, 1, 71))"' +"
   j=j+1;nj.j=" -u admin -p password -L +"
   j=j+1;nj.j=word(l.l, 1)
   j=j+1;nj.j="//STDENV DD *"
   j=j+1;nj.j="_BPX_SHAREAS=YES"
   j=j+1;nj.j="_BPX_BATCH_SPAWN=YES"
   j=j+1;nj.j="/*"
   j=j+1;nj.j="//OSHOUT1 DD SYSOUT=*,DCB=(RECFM=F,LRECL=255)"
   j=j+1;nj.j="//* "
end
nj.0=j
"execio * diskw OUTF (stem nj. finis"
if rc ^= 0 then do
   say 'error in writing OUTf file !!!'
   say 'rc='rc
   exit 2
end
/*
 NEWSTACK
 DO j=1 TO Nj.0
     QUEUE nj.j
 END
 QUEUE " "
'SUBMIT *' */
exit 0
από thk thk 2008-05-22 17:18
say 'I quit' tyrannosayrus rex. Το jurrassic park της πληροφορικής.
από mari@pi mari@pi 2008-05-22 19:11
τα ανεβάζω γιατί όταν χρειάστηκε να τα γράψω και ρώτησα το γκουγκλ μ΄έφτησε,,
από thk thk 2008-05-22 19:16
ναι αλλά δεν μας λες τι κάνει - δε μας λες..
από mari@pi mari@pi 2008-05-22 20:00
σας λέω τι κάνει στο πεδίο περιγραφή αλλά μπορεί να είναι πιο εύκολο να βρείτε τι κάνει, από το να βρείτε που στο καλό φαίνεται αυτή η περιγραφή που πληκτρολογούσα τόοοση ώρα γαμώτο,
από mari@pi mari@pi 2008-05-29 18:02
diy για πάνταααα (για τα πάνταααα ,,,?,,?
mari@pi mari@pi Δευ. 19 Μαϊος. 2008 12:22 tags mainframe , προγραμματισμός 0 views
ID DIVISION.
PROGRAM-ID MAICHDG.
*-------------------------------------------------
*-    YPOLOGISMOS  CH-DIGIT  T.K ME MODULUS 10
*-        ​​​​      COMMO​N-A​REA
*-        ​​​​ IN  ARIQMOS 9(5)
*-         OUT    CHDG5-N  9
*-        ​​​​  ME-15-07-2006
*-------------------------------------------------
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
     DECIMAL-POINT IS COMMA.
DATA DIVISION.
WORKING-STORAGE SECTION.
77  S1        ​​​​    PIC 9  ​ ​   VALUE ZERO.
77  SW        ​​​​    PIC 9  ​ ​   VALUE ZERO.
*-
01  AR-IN-X.
   05  AR-TK   PIC 9.
   05  AR-SEL  PIC 9(4).
*-
01  AR-X.
   05  AR-F      PIC 9  OCCURS 5 TIMES.
01  AR-N      REDEFINES  AR-X     PIC 9(5).
*-
01  RES-X.
   05  RES-1        ​​​​ PIC 9.
   05  RES-2        ​​​​ PIC 9.
01  RES-N        ​​​​ REDEFINES RES-X   ​​     PIC 99.
*-
01  AC-X.
   05  F        ​​​​     PIC X.
   05  AC-LAST        PIC 9.
01  AC-N        ​​​​  REDEFINES AC-X  ​​      ​​ ​​PIC 9(2).
*-------------------------------------------------​​​​--
LINKAGE SECTION.
     COPY RMAICHDG.
PROCEDURE DIVISION USING RMAICHDG.
*---------------------------------
*-
   MOVE CHDG5-TK TO AR-TK
   MOVE CHDG5-SEL TO AR-SEL
*-
   MOVE    AR-IN-X TO AR-X
*-
   MOVE    1    TO SW
   MOVE    ZERO TO RES-N AC-N
*-
   PERFORM VARYING S1 FROM 5 BY -1 UNTIL S1 = 0
      IF      SW  = 1
        ​​​​      MOVE ​​3TOSW
      ELSE        ​​​​    
        ​​​​      MOVE ​​1TOSW
      END-IF
      COMPUTE RES-N = AR-F (S1)  *  SW
      COMPUTE AC-N = AC-N  +  RES-N
   END-PERFORM       ​​​​       ​​ ​​      ​​  ​
*-
   COMPUTE RES-N = 10  -  AC-LAST       ​​​​     
*-
   COMPUTE CHDG5-N = RES-2
*-
   MOVE 0 TO RETURN-CODE
   GOBACK.
mari@pi mari@pi Τετ. 14 Μαϊος. 2008 17:33 tags γκραφιτι , πειραιάς 0 views
surprise ,,by the harbour
surprise ,,by the harbour
mari@pi mari@pi Τετ. 14 Μαϊος. 2008 16:55 tags κρήτη 0 views
*
*
mari@pi mari@pi Τετ. 14 Μαϊος. 2008 10:45 tags μιλάνο 0 views
τέκνο πάρτυ στο μιλάνο 1.1.2007 - το κτίριο είναι εγκαταλελειμμένο
εργοστάσ​ιοτης άλφα ρομέο ...

τέκνο πάρτυ στο μιλάνο 1.1.2007 - το κτίριο είναι εγκαταλελειμμένο εργοστάσιο της άλφα ρομέο - πέρασα ολόκληρο το απόγευμα  κολλώντας  τις δύο φώτο στο photoshop,,, βουαλά

mari@pi mari@pi Κυρ. 11 Μαϊος. 2008 20:27 tags λίνουξ , επιφάνεια εργασίας 0 views
το ντέσκτοπ του ξεχασμένου σούσε. η φώτο εδώ
το ντέσκτοπ του ξεχασμένου σούσε. η φώτο εδώ