πρόγραμμα 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]
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
τέλος_επανάληψης
τέλος_προγράμματος