Sayfa 5

DIM ABI DİM POKE EK,1:G0TO INPUT VERİN THEN 8 INPUT RAKAM OLARAK VERİN": YU IF OR THEN PRİNT 4 GOTO 12888 38SPACE ><RVSOFF ) ZO$ PRİNT * YE <SHIFT-SPACE YE<SHİFT-SPACE ACE )1<7SPACE )<RVSOFF)" ZI$-" > ZI$ PRİNT İİ. <RVSOFF ><3SPACE HARC AMA LİSTESİ" PRİNT 2. K BUTCE HESABI" PRİNT <RVSOFF )<3SPACE MASRAF İNCE <RVSÖN)<2SPACE <RVSOFF )<3SPACE)BİL GİLERİN DOSYALANMASI PRİNT <RVSOFF )<3SPACEYAYLIK/YILLI K BUTCE GRAFİĞI":PRİNT <RVSOFF ><3 SPACE HESAP PRİNT "<DOWN)<4SPACE <RVSOFF AYARI PRİNT “<DOWN><4ASPACE )8. <RVSOFF YEROGRAM UZU NLUGUZSAAT PRİNT * <DOLİN)(4SPACE ) )<3SPACE PRİNT GET Z$:1F VAL(Z$)C1 OR VAL(Z$))9 THEN 20 IF THEN 75 IF 2$2*2" THEN 2088 IF THEN 11580 IF THEN GÖSÜB 30000:PRİNT 147) BÜ EK,BtTEND IF 3800 IF 32006 IF 2$-*4"60TO 50882 IF 2$:"3*60TO 6508 1F THEN PRİNT 1 2 UZ UNLUGU GET C$z"* THEN 47 IF THEN 54 IF C$<)"2" THEN 47 IF 2$-"8B" THEN PRİNT "<CLR)C3DOWN) "PEEK (45) (46) -PEEK (43)- DOLU"; PRİNT BOS TU SA BASIN” GET A$:IF THEN S8 GoTO 8 PRİNT ICİN “40 GET T$:1F THEN PRİNT IF T&OCHRS(32)GÖOTO 55 8 PRİNT ZO$"(2SPACE )<RVSON><SSPACE YUCSHİFT-SPACE FT-SPACE YUCSHİFT-SPACE ) YACSHİFT-SPACEYM ACESPACE