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

Blue Max

RetroMaNiaC
Joined
13 Οκτ 2020
Μηνύματα
766
Αντιδράσεις
2.328
Γεια χαρά παιδιά,

Βρήκα στην αποθήκη κάποια παλιά τεύχη 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)

MICROMAD.jpg PIXEL.jpg PC-MASTER.jpg


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

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

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

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

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

Windows XP Professional.

Κώδικας:
    pen 14
    print "I want to win"

HOBBY_BASIC_I_WANT_TO_WIN.png
 

konc

Retro Member
Joined
30 Νοέ 2010
Μηνύματα
139
Αντιδράσεις
61
χαχαχα τέλειο 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!'

cmi.png
 
Τελευταία επεξεργασία:

Rygar

Apple Lover
Joined
14 Ιουλ 2006
Μηνύματα
7.692
Αντιδράσεις
1.468
Print "hello world"

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

Blue Max

RetroMaNiaC
Joined
13 Οκτ 2020
Μηνύματα
766
Αντιδράσεις
2.328
You are in!. Καλή επιτυχία :)
 

Rygar

Apple Lover
Joined
14 Ιουλ 2006
Μηνύματα
7.692
Αντιδράσεις
1.468
Οχι! Χάριν αστεϊσμού το είπα, ας μπουν αλλα παιδγιά στη γκλήρωση. Αλλωστε εχω αρκετά πίκτσελ στην αποθήκη.
 

Blue Max

RetroMaNiaC
Joined
13 Οκτ 2020
Μηνύματα
766
Αντιδράσεις
2.328
"Ο νικητής/τρια θα ανακοινωθεί το Σάββατο 20 Φεβρουαρίου το βραδάκι."

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

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

Mr.Computer

RetroNoob
Joined
14 Ιαν 2021
Μηνύματα
14
Αντιδράσεις
38
ΑΑΑΧ! Ίσα που δεν πρόλαβα! Τέλος πάντων, μόλις έφτιαξα κάτι στα γρήγορα σε 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 στο φόρουμ, οπότε αν δεν το βλέπετε, δοκιμάστε όταν είστε συνδεδεμένοι.

hb.png
 
Τελευταία επεξεργασία:

Blue Max

RetroMaNiaC
Joined
13 Οκτ 2020
Μηνύματα
766
Αντιδράσεις
2.328
@Mr.Computer δεν ήθελα να συμβεί αυτό :shocked:

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

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

konc

Retro Member
Joined
30 Νοέ 2010
Μηνύματα
139
Αντιδράσεις
61
Ευχαριστούμε και δημόσια για την χειρονομία, ήταν πραγματικά πολύ ωραία ιδέα και είχε την πλάκα της :)
@Mr.Computer δεν είμαι μοναχοφάης και ειδικά με τα δώρα, στείλε pm να κανονίσουμε αν θέλεις κάτι συγκεκριμένο να στο στείλω εγώ! (μόνο τα πρώτα PCMaster θα βάλω σίγουρα κάτω από το στρώμα να τα ζεσταίνω τις νύχτες :D )
 

Mr.Computer

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

konc

Retro Member
Joined
30 Νοέ 2010
Μηνύματα
139
Αντιδράσεις
61
@konc Ευχαριστώ πολύ, αλλά δεν είναι ανάγκη να ταλαιπωρείσαι με ταχυδρομεία κτλ. Είναι 2 Pixelάκια που μου λείπουν, όμως δεν καίγομαι. Κάποια στιγμή θα τα βρω.
Ένα αναπαυτικό στρώμα από PC-Master πηγαίνει ασορτί μ' ένα μαλακό μαξιλάρι από Pixel! :)
Ευχαρίστως να στα στείλω πάντως
 

Blue Max

RetroMaNiaC
Joined
13 Οκτ 2020
Μηνύματα
766
Αντιδράσεις
2.328
Παιδιά ευχαριστώ για την συμμετοχή σας.

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

Mr.Computer

RetroNoob
Joined
14 Ιαν 2021
Μηνύματα
14
Αντιδράσεις
38
@Blue Max Ήταν διασκεδαστική ιδέα! Συγχαρητήρια και για τον interpreter.

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

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