1 A$="ΠΟΜΕΤ"
2 FOR T=0 TO 10:PRINT CHR$(PEEK(&HF168-T));:NEXT
3 A$="ΞΑΜΕΤ"
4 FOR T=0 TO 10:PRINT CHR$(PEEK(&HF168-T));:NEXT
5 PRINT FRE("")
6 FOR T=0 TO 10:PRINT CHR$(PEEK(&HF168-T));:NEXT
7 MID$(A$,1,2)="ΠΟ"
8 FOR T=0 TO 10:PRINT CHR$(PEEK(&HF168-T));:NEXT