πρόγραμμα  chat
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ:i,l
  ΧΑΡΑΚΤΗΡΕΣ:a[8],b[8]
αρχή
  a[1] <-- 'hi'
  a[2] <-- 'apo pou eisai?'
  a[3] <-- 'kai ego to idio!!!'
  a[4] <-- 'aleithia sou leo'
  a[5] <-- 'telos panton age?  '
  a[6] <-- 'kai ego, to pisteveis??!!??!!'
  a[7] <-- 'kai ego '
  για i από 1 μέχρι 1000
    γράψε_'.'
  τέλος_επανάληψης
  για i από 1 μέχρι 10000
    γράψε'connection will be established in    ',11 - i DIV 900 ,'   seconds'
  τέλος_επανάληψης
  για i από 1 μέχρι 1000
    γράψε_ '.................................'
    ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
  τέλος_επανάληψης
  για i από 1 μέχρι 7
    γράψε 'ΧΡΗΣΤΗΣ:   XXXX'
    για l από 1 μέχρι 100
      γράψε '.'
      ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
      γράψε 'ΧΡΗΣΤΗΣ:   XXXX'
    τέλος_επανάληψης
    γράψε a[i]
    γράψε
    γράψε
    γράψε
    γράψε
    διάβασε b[i]
    ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
  τέλος_επανάληψης
τέλος_προγράμματος