Κερδίστε 15 παλιά περιοδικά πληροφορικής (PIXEL,PC MASTER,MICROMAD)

[Blue Max]

Γεια χαρά παιδιά,

Βρήκα στην αποθήκη κάποια παλιά τεύχη PIXEL και PC Master.
Είναι 15 περιοδικά, τα περισσότερα σε καλή κατάσταση, δύο έχουν σχισμένο εξώφυλλο.

7 PC Master (τεύχη 3,5,6,7,9,11,12)
6 PIXEL (τεύχη 12,13,79,95,100 και σούπερ PIXEL)
1 MICROmad (τεύχος 22)
1 Personal Computers (τεύχος 11)




Θέλω να τα χαρίσω όπως είναι όλα μαζί σε κάποιο μέλος του Retromaniax.
Οπότε, και αν δεν υπάρχει αντίρρηση από τους διαχειριστές, κάνω έναν άτυπο μίνι διαγωνισμό.

Για να τα διεκδικήσετε, απλώς ανεβάστε ένα screenshot από ένα δικό σας πρόγραμμα (οτιδήποτε) γραμμένο στην Hobby Basic.
Ιδανικά (αλλά όχι απαραίτητο) να αναφέρετε και την έκδοση των Windows (XP/VISTA/7/8/10).

Όποια παιδιά ανεβάσουν φώτο αυτόματα παίρνουν μέρος στην κλήρωση.
Οι συμμετοχές κλείνουν την Παρασκευή 19 Φεβρουαρίου.
Ο νικητής/τρια θα ανακοινωθεί το Σάββατο 20 Φεβρουαρίου το βραδάκι.
Ένα πρόγραμμα επιλογής τυχαίου ονόματος θα αναδείξει τον νικητή/τρια.

Αυτός/τή θα κάνει έναν κόπο μια καθημερινή να έρθει μέχρι τον ηλεκτρικό σταθμό του Μοσχάτου (ώρες γραφείου).
Θα με πάρει ένα τηλέφωνο, είμαι δίπλα, σε 5 λεπτά θα τα έχει στα χέρια του.
Tα στέλνω και με κούριερ αν δεν τον/την πειράζει να επιβαρυνθεί τα έξοδα αποστολής.
Καλή επιτυχία.

Παράδειγμα έγκυρης συμμετοχής στην κλήρωση.

Windows XP Professional.

    pen 14
    print "I want to win"

 

[Always Somewhere]

Είσαι ωραίος!

 

[konc]

χαχαχα τέλειο thread! Έτσι για να θυμηθούμε τα $ και τα locate ξανα.
Έψαχνα την PSET στο manual να το κάνω πιο όμορφο αλλά ναι, κατανοητό γιατί δεν υπάρχει υλοποίηση σε windows cmd

Windows 10

CLS:LOCATE 0,5
C$='.':R=1
FOR COL=0 TO 45
AT COL,0,C$ : AT 50-COL,4,C$
IF COL MOD 15=0 AND COL>0 THEN AT 0,R,C$ : AT 50,4-R,C$ : R=R+1
WAIT 500
NEXT
PEN 14 : AT 18,2,'Count me in!'

 

[Blue Max]

@konc πολύ ωραία. You are in!

 

[Rygar]

Print "hello world"

Θέλω όλα τα Πίκτσελ (όπως τα'λεγε η μάνα μου).

 

[Blue Max]

You are in!. Καλή επιτυχία

 

[Rygar]

Οχι! Χάριν αστεϊσμού το είπα, ας μπουν αλλα παιδγιά στη γκλήρωση. Αλλωστε εχω αρκετά πίκτσελ στην αποθήκη.

 

[Blue Max]

"Ο νικητής/τρια θα ανακοινωθεί το Σάββατο 20 Φεβρουαρίου το βραδάκι."

Μια μέρα νωρίτερα, και αφού δεν υπάρχουν άλλες συμμετοχές...

Συγχαρητήρια @konc, τα περιοδικά είναι δικά σου.

 

[Mr.Computer]

ΑΑΑΧ! Ίσα που δεν πρόλαβα! Τέλος πάντων, μόλις έφτιαξα κάτι στα γρήγορα σε Windows XP:

cls
cursor false,0:color 0,6
a$ = 'I ' + chr(3) + ' PIXEL':x=0:y=0:dx=1:dy=1:l=len(a$)
print a$
repaint 2,0,1,1,6,4
while 1
move x,y,l,1,x+dx,y+dy
x=x+dx:y=y+dy
if x+l=80 or x=0 dx=dx*-1
if y=24 or y=0 dy=dy*-1
wait 150000
endw

Υ.Γ. Το κάτωθι είναι animated png. Μου δείχνει το animation μόνο όταν έχω κάνει login στο φόρουμ, οπότε αν δεν το βλέπετε, δοκιμάστε όταν είστε συνδεδεμένοι.

 

[Blue Max]

@Mr.Computer δεν ήθελα να συμβεί αυτό

Πέρασαν 2 βδομάδες χωρίς συμμετοχή, και βιάστηκα να τα δώσω, τα πήρε ο @konc

Ευχαριστώ για την συμμετοχή, τέλειο I ♥ PIXEL

 

[Mr.Computer]

@Blue Max Δεν πειράζει! Έτσι κι αλλιώς σήμερα το είδα, τελευταία στιγμή... Σημασία έχει η συμμετοχή!

 

[konc]

Ευχαριστούμε και δημόσια για την χειρονομία, ήταν πραγματικά πολύ ωραία ιδέα και είχε την πλάκα της
@Mr.Computer δεν είμαι μοναχοφάης και ειδικά με τα δώρα, στείλε pm να κανονίσουμε αν θέλεις κάτι συγκεκριμένο να στο στείλω εγώ! (μόνο τα πρώτα PCMaster θα βάλω σίγουρα κάτω από το στρώμα να τα ζεσταίνω τις νύχτες )

 

[Mr.Computer]

@konc Ευχαριστώ πολύ, αλλά δεν είναι ανάγκη να ταλαιπωρείσαι με ταχυδρομεία κτλ. Είναι 2 Pixelάκια που μου λείπουν, όμως δεν καίγομαι. Κάποια στιγμή θα τα βρω.
Ένα αναπαυτικό στρώμα από PC-Master πηγαίνει ασορτί μ' ένα μαλακό μαξιλάρι από Pixel!

 

[konc]

@konc Ευχαριστώ πολύ, αλλά δεν είναι ανάγκη να ταλαιπωρείσαι με ταχυδρομεία κτλ. Είναι 2 Pixelάκια που μου λείπουν, όμως δεν καίγομαι. Κάποια στιγμή θα τα βρω.
Ένα αναπαυτικό στρώμα από PC-Master πηγαίνει ασορτί μ' ένα μαλακό μαξιλάρι από Pixel!

Ευχαρίστως να στα στείλω πάντως

 

[Blue Max]

Παιδιά ευχαριστώ για την συμμετοχή σας.

Ευελπιστώ σε περισσότερες συμμετοχές την επόμενη φορά.

 

[Mr.Computer]

@Blue Max Ήταν διασκεδαστική ιδέα! Συγχαρητήρια και για τον interpreter.

@konc Μόνο αν τα έχεις διπλά. Μου λείπει αυτό με τον C-128 κι αυτό με τα Modem, αλλά θα πρέπει να κοιτάξω σε περίπτωση που τα έχω και δεν το θυμάμαι. Αν είναι, εν καιρώ θα σου στείλω μήνυμα.

@Rygar Εμένα μου έλεγαν «Θα πήξεις με τα Πίξελ»