Sayfa 29

FOR Isi TO 53280.61 POKE 33281.141PRİNT ISLEMLERİ *1GOSUN 206 PRİNT SRC (6) KASA" PRİNT BCSRIGKTDAYLIK KASA" PRİNT 1GOSUB KASA" PRİNT GOSUB BS41ASVALCASILIR ACI OR T HEN 118 ON AGOTO 123.191.247.181 SYS 50260 REM #88 GÜNLÜK KASA KASA*IGOSUB Gİ 322 ON AGOTO 185.164.114 KASA-BILGI B 296 INPUT GİRİNİZ TAS PRİNT *<HOME E>* GOSUB T TAS T-SRACE >" 1GOSUB 3 34 3 BE“ e 3091N-211GOSUB CO-41GOSUB * * TF OR THEN 136

COS251GOSUB 1GOSUB 2991 3

* * 131 İsi TO NOİSUSSUSVA 1 *T OX L A 238 *“<RVSON> BİLGİLER DOGRU GİRİLDİ Mİ? < RVSOFF )* GOSÜB 89411F THEN 128 286 30BLARINT TAS -SPACE> 3271GOSUB 3 24 3 BE" * * IF OR 153 1GOSUB 3 * * NOSNOSLEGOTO 146 Isi TO NOİSÜSSUSVA 1 *T OÇ SHİFT-SPACE

PACEDA 1GOSUB 330 BİLGİLER DOGRU GİRİLDİ Mİ? < RVSOFF >* GOSUB THEN 143 #2.sı 8.SU PRİNTH 8.NL 2.NO FOR Isi TO FOR Isi TO YAPRINTM2 CLOSE 123 KOSE*GUNLUK KASA-KAYIT İNCELEME sup 296 POKE 19.G4LINRUT RIHİ GİRİNİZ PRİNT CAR IGHT) <4OSPAC E>* GOSUB T TAS THEN CLOSE CLOSE 15160TO 180 .SU NI .NO FOR Isi 1 FOR Isi TO 1 CLOSE, 15 T-SPACE )<RVSOFF >" 1GOSUB 327 FOR Isi TO 3091P RINT ACSCI) SUB 3301NEXT 1 *T OX SHİFT-SPACE >P<SHİFT-SPACE 1 GOSUB 330 GOSUB 341 KOSA*SUNLUK. KASA-KAYIT İNCELEME * 160 SUB TAS T-SPACE ><RVSOFF 1GOSUB 327 FOR Isi TO 11GOSUB 3881P RINT B$ AGSCL) 33 1 3OSEPRİNT *T OX SHİFT-SPACE PACE YACSHİFT-SPACE 336 GOSUB 341160TO 123 338:GOSUB 18 3 REM #88 AYLIK KASA ISLEMLERİ sax KASA"IGOSUB K FİLE 322 ON AGOTO 194.223.114 KASA-FİLE v8 296 İNPUT GIRINI