ΠΡΟΓΡΑΜΜΑ  Κρεμμάλα
ΜΕΤΑΒΛΗΤΕΣ
  ΧΑΡΑΚΤΗΡΕΣ: Α[20],Β[20],γ,σημαία,Δ[20],σημαία2,σημαία3
  ΑΚΕΡΑΙΕΣ: ι,ν,πλ,ν1,count,count1,count2,count3,count4
ΑΡΧΗ
  count4 <-- 0                                               !Μεταβλητή που μετράει το πλήθος των γραμμάτων
  count2 <-- 0
  σημαία2 <-- 'ψ'
  count1 <-- 0                                               !Μεταβλητή που μετράει το πλήθος των διπλών γραμμάτων
  count <-- 0                                                !Μεταβλητή που μετράει το συνολικό πλήθος επαναλήψεων
  πλ <-- 6                                                   !Μεταβλητή που μετράει τις προσπάθεις που απομένουν
  ν1 <-- 0                                                   !Μεταβλητή που το πλήθος των σωστόν γραμμάτων
  ΓΡΑΨΕ
  ΓΡΑΨΕ   !                                                       Ατνώνης Γιωτάκης 2011
  ΓΡΑΨΕ   !                                                    Για την glwssomatheia.info
  ΓΡΑΨΕ 'Πληκτρολόγησε την λέξη και στο τέλος *'
Αρχή_επανάληψης                                              !Εισαγωγεί λέξης μέχρις ότου εισαχθεί *
  count4 <-- count4+1
  ΔΙΑΒΑΣΕ Α[count4]
Μέχρις_ότου Α[count4]='*'
ν <-- count4-1
Για ι απο 1 μέχρι ν                                          !Εμπλουτισμός του πίνακα Β με τον χαρακτήρα '_'
  Β[ι] <-- '_'
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ                                                     !Εντόλη αν για την διαφοροποίηση της λέξης 'πλεόν' ανάλογα με το αν είναι η πρώτη φορά που εκτελείτε
  ΑΝ COUNT>0 τότε
    ΓΡΑΨΕ 'Η μορφή της ζητούμενης λέξης πλέον είναι'
  Αλλιώς
    ΓΡΑΨΕ 'Η μορφή της ζητούμενης λέξης είναι'
  Τέλος_αν
  Για ι από 1 μέχρι ν                                       !Εμφάνησει τις λέξης που πρέπει να βρεθεί
    ΓΡΑΨΕ_ Β[ι]
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ
  ΓΡΑΨΕ
  Αν σημαία2 = 'ψ' τότε                                     !Εντόλη αν για την διαφοροποίηση της εντολής 'Γράψε ανάλογα με το αν είναι η πρώτη φορά που εκτελείτε
    ΓΡΑΨΕ 'Δώσε ένα γράμμα'
  Αλλιώς
    ΓΡΑΨΕ 'Τα λαθασμένα γράμματα που έχεις δηλώσει μέχρι τώρα είναι'
    ΓΡΑΨΕ
    Για ι από 1 μέχρι count1
      ΓΡΑΨΕ_ Δ[ι],','
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ
    ΓΡΑΨΕ 'Δώσε ένα γράμμα'
    ΓΡΑΨΕ
  Τέλος_αν
  count <-- count+1
Αρχή_επανάληψης                                            !Διαβάζει το γράμμα από τον δεύτερο παίχτη
  ΔΙΑΒΑΣΕ γ
  σημαία3 <-- 'α'
  Για ι από 1 μέχρι count1
    Αν Δ[ι]=γ τότε
      σημαία3 <-- 'ψ'                                      !Η σημαία ορίζετε ψευδής καθώς το γράμμα που πληκτρολόγησε ο χρήστης έχει ξαναδωθεί
      ΓΡΑΨΕ 'Έχείς ξαναδώσει το γράμμα αυτό'
    τέλος_αν
  Τέλος_επανάληψης
Μέχρις_ότου σημαία3='α'
σημαία <-- 'ψ'
Για ι απο 1 μέχρι ν                                        !Ελέγχετε αν υπάρχει το γράμμα που πληκτρολόγησε στην λέξη
  Αν Α[ι]=γ τότε
    Β[ι] <-- γ
    ν1 <-- ν1+1
    σημαία <-- 'α'                                         !Αν υπάρχει το γράμμα η σημαία ορίζετε αληθής για να διαχωριστεί η εντολή 'Γραψε' στις κατάλληλες εντολές έπειτα
  Τέλος_αν
Τέλος_Επανάληψης
Αν σημαία = 'α' τότε
  ΓΡΑΨΕ
  ΓΡΑΨΕ 'Το γράμμα',γ,'υπάρχει.'
  ΓΡΑΨΕ

  ΓΡΑΨΕ 'Επιτρεπόμενες προσπάθειες ακόμα',πλ
  ΓΡΑΨΕ
Αλλιώς
  count1 <-- count1+1
  Δ[count1] <-- γ                                         !Εισαγεί τα γράμματα στον πίνακα Δ ,που έχουν εισαχθεί από τον χρήστη
  πλ <-- πλ-1                                             !Αφαιρεί το επίπεδο ζωής
  σημαία2 <-- 'α'
  ΓΡΑΨΕ
  ΓΡΑΨΕ 'Δεν υπάρχει το γράμμα',γ,'Έχασες μια ζωή.Υπολοιπό ζωής',πλ
  ΓΡΑΨΕ
Τέλος_αν
Μέχρις_ότου πλ=0 Η ν1=ν                                   !Ελέγχει αν έχουν τελειώσει η επιτρεπόμενες προσπάθειες ή ο χρήστης έχει βρεί την λέξη ώστε να τερματίσει
Αν πλ>0 τότε                                              !Εμφανίζει κατάλληλο μύνημα ανάλογα με το αν έχασε ή νίκησε
ΓΡΑΨΕ
ΓΡΑΨΕ 'Κέρδισες'
ΓΡΑΨΕ
Αλλιώς
ΓΡΑΨΕ
ΓΡΑΨΕ 'Εχασες'
ΓΡΑΨΕ
ΓΡΑΨΕ 'Η λέξη ήταν΄'
ΓΡΑΨΕ
Για ι από 1 μέχρι ν                                      !Σε περίπτωση που έχασε εμφανίζει την σωστή λέξη
  ΓΡΑΨΕ_ Α[ι]
Τέλος_επανάληψης
Τέλος_αν

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ    Κρεμμάλα