Kod:
data : deger_1(4),deger_2(7),deger_3(5).
deger_1 = 'Sapofis'.
deger_2 = 'Türkiye'.
deger_3 = 'Forum'.
SHIFT deger_1. " Default ta sol taraf bir karakter siler
SHIFT deger_2 RIGHT BY 3 PLACES. " deger_2 değişkenindan sağdan 3 karakter sil
SHIFT deger_3 RIGHT. " deger_3 değişkeninden sağdan 1 karakter sil
WRITE: / deger_1, deger_2, deger_3.
ÇIKTI : apofis Türk Foru
Başka Fonksiyonu
************************************************** ********
data :cumle(30) type c.
cumle = 'SAPOFIS Kullanicilari'.
SHIFT cumle UP TO
'ofis'.
"yazdığımız ofis kelimesinden öndeki değerleri sil.
WRITE / cumle.
ÇIKTI :
OFIS Kullanicilari