Allah ü Teala Rahmet eylesin.
private sub Dünya_hayatı()
dim i
i=nefes sayısı
for i=0 to son_nefes
if i=son_nefes then "Dünya durmayıp döner, İnsan sanki bir fener, Ne kadar çok yaşasa, Akıbet bir gün söner!":goto ahirethayatı
else
a=amel
if amel=kötü then günah=günah+1
if amel=iyilik then sevap=sevap+1
next
iff(sevap>günah,"Cennet","NoCennet")
end sub