ΠΡΟΓΡΑΜΜΑ μο_browser
ΣΤΑΘΕΡΕΣ
  Ν = 5
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: τοπκ, τοπδ, επιλογή, απωθήσεις, τρέχουσα
  ΧΑΡΑΚΤΗΡΕΣ: ΣΤκ[Ν], ΣΤδ[Ν], προς_ώθηση
 !ΣΤκ, κύρια στοίβα
 !ΣΤδ, δευτερεύουσα στοίβα
ΑΡΧΗ
  τοπκ <- 0
  τοπδ <- 0
  απωθήσεις <- 0
  ΓΡΑΨΕ 'Βρισκόμαστε στην αρχική σελίδα του browser (Home Page).'

  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ 'ΕΠΕΛΕΞΕ ΛΕΙΤΟΥΡΓΙΑ ΙΣΤΟΡΙΚΟΥ: 1,2,3 ή 0'
    ΓΡΑΨΕ '1.ΕΜΠΡΟΣ'
    ΓΡΑΨΕ '2.ΠΙΣΩ'
    ΓΡΑΨΕ '3.ΝΕΑ'
    ΓΡΑΨΕ '0.ΕΞΟΔΟΣ'
    ΔΙΑΒΑΣΕ επιλογή

    ΕΠΙΛΕΞΕ επιλογή

      ΠΕΡΙΠΤΩΣΗ 1
        ΓΡΑΨΕ 'Εμπρός κατά μία διεύθυνση στο ιστορικό..'
        ΑΝ τοπδ=0 ΤΟΤΕ
          ΓΡΑΨΕ 'Αδύνατον! Δεν υπάρχουν διευθύνσεις στο ιστορικό μπροστά από το σημείο που βρισκόμαστε ήδη'
        ΑΛΛΙΩΣ
          ΚΑΛΕΣΕ push(ΣΤκ,τοπκ,ΣΤδ[τοπδ])
          ΚΑΛΕΣΕ pop(ΣΤδ,τοπδ,1)
        ΤΕΛΟΣ_ΑΝ

      ΠΕΡΙΠΤΩΣΗ 2
        ΓΡΑΨΕ 'Πίσω κατά μία διεύθυνση στο ιστορικό..'
        ΑΝ τοπκ=0 ΤΟΤΕ
          ΓΡΑΨΕ 'Αδύνατον! Δεν υπάρχουν διευθύνσεις στο ιστορικό πίσω από το σημείο που βρισκόμαστε ήδη'
        ΑΛΛΙΩΣ
          ΚΑΛΕΣΕ push(ΣΤδ,τοπδ,ΣΤκ[τοπκ])
          ΚΑΛΕΣΕ pop(ΣΤκ,τοπκ,1)
        ΤΕΛΟΣ_ΑΝ

      ΠΕΡΙΠΤΩΣΗ 3
        ΓΡΑΨΕ 'Δώσε νέα διεύθυνση σελίδας: '
        ΔΙΑΒΑΣΕ προς_ώθηση
        ΚΑΛΕΣΕ push(ΣΤκ, τοπκ, προς_ώθηση)
          !διέγραψε οτιδήποτε υπάρχει στο ιστορικό μπροστά από το σημείο που βρισκόμαστε ήδη
          ΑΝ τοπδ > 0 ΤΟΤΕ
            ΚΑΛΕΣΕ pop(ΣΤδ, τοπδ, τοπδ)
          ΤΕΛΟΣ_ΑΝ

      ΠΕΡΙΠΤΩΣΗ 0
        ΓΡΑΨΕ 'Γίνεται έξοδος από το πρόγραμμα. Το ιστορικό καθαρίζει..'
        ΚΑΛΕΣΕ pop(ΣΤκ,τοπκ,τοπκ)
        ΚΑΛΕΣΕ pop(ΣΤδ,τοπδ,τοπδ)
      ΠΕΡΙΠΤΩΣΗ ΑΛΛΙΩΣ
        ΓΡΑΨΕ 'Μη αναγνωρίσιμη επιλογή. Προσπαθήστε ξανά. '
    ΤΕΛΟΣ_ΕΠΙΛΟΓΩΝ

    ΑΝ τοπκ>0 ΤΟΤΕ
      ΓΡΑΨΕ 'Μετάβαση στη σελίδα: ', ΣΤκ[τοπκ]
    ΑΛΛΙΩΣ
      ΓΡΑΨΕ 'Επιστρέψαμε στην αρχική σελίδα του browser (Home Page).'
    ΤΕΛΟΣ_ΑΝ

  ΜΕΧΡΙΣ_ΟΤΟΥ επιλογή = 0
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ 
!===================================
ΔΙΑΔΙΚΑΣΙΑ push(ΣΤ, τοπ, προς_ώθηση) 
ΣΤΑΘΕΡΕΣ
  Ν = 5
ΜΕΤΑΒΛΗΤΕΣ
  ΧΑΡΑΚΤΗΡΕΣ: ΣΤ[Ν], προς_ώθηση
  ΑΚΕΡΑΙΕΣ: τοπ
ΑΡΧΗ
  ΑΝ τοπ < Ν ΤΟΤΕ
    τοπ <- τοπ + 1
    ΣΤ[τοπ] <- προς_ώθηση
  ΑΛΛΙΩΣ
    ΓΡΑΨΕ 'στοίβα γεμάτη, δεν έγινε ώθηση (η σελίδα δεν αποθηκεύθηκε στο ιστορικό)'
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
!===================================
ΔΙΑΔΙΚΑΣΙΑ pop(ΣΤ, τοπ, απωθήσεις)
ΣΤΑΘΕΡΕΣ
  Ν = 5
ΜΕΤΑΒΛΗΤΕΣ
  ΧΑΡΑΚΤΗΡΕΣ: ΣΤ[Ν]
  ΑΚΕΡΑΙΕΣ: τοπ, απωθήσεις, ι
ΑΡΧΗ
  ΓΙΑ ι ΑΠΟ απωθήσεις ΜΕΧΡΙ 1 ΜΕ_ΒΗΜΑ -1
    ΑΝ τοπ > 0 ΤΟΤΕ
      τοπ <- τοπ - 1
    ΑΛΛΙΩΣ
      ΓΡΑΨΕ 'στοίβα ήδη άδεια, δεν έγινε απώθηση'
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ 
!ArxeioEisodou
3
youtube.com
3
facebook.com
3
youtroll.com
3
yahoo.com
3
google.com