Sayfa 24

"<CLR><3RİGHT><DOWN><İORİIGHT>

BILGI GIRISI" INPUT A Y ADINI GİRİNİZ<4SPACE>:";T$

OPEN OPEN 1,8,15:G0SUB 3000 INPUT#2,T$ FOR Isi TO 10 £ NEXT :€CLOSE İ:CLÜSE 2 FOR TÜ 10 PRİNT FP)

PRİNT INPUT "<ÜP><2RİGH NEXT 2 İNPUT 2 000:GÜSUB 4600 INPUT YAPILACAK AY ADI<2SPACE>:";T$ ÖPEN

ÖPEN (İ,8,15:GOSUB FOR 151 TÜ 10 NEXT :CLOSE 1: CLOSE 2000 :GOTO 170 INPUT YAPILACAK AY OPEN ÖPEN 1,8,i1i5:GÜSUB 3000 PRİNT ;T$:PRİNT *<RVSON>NO KIYE<3SPACE>ODENEN<4SPACEYKALAN

INPUT#2,T$ FOR İsi TÜ 10 PRİNT

INPUT IF XC1)<0 THEN D 1014 PRİNT PRİNT