Pur NOKLAŞ CG4 için Püf Noktaları Burak KİPER Kusursuz çalışacak bir program yaptınız. Programa önemli bilgiler gireceksiniz ve bu bilgiler program so- nunda veya belirli aralıklarla saklanacak. Bir de prog- ramınızı tİcari amaçla hazırladığınızı düşünün. Böyle bir programın çalışma sırasında bir hata vererek dur- maması gerekir. Çünkü program hata mesajını verip durduğunda o ana kadar yazılmış olan veriler kay- bolur. Programı yüzde yüz hatasız hale getirseniz bi- le bir printer'ın kapalı olması DEVİCE NOT PRENEST ha- tasına yol açıp verilerin kaybolmasına neden olur. Bir printer'ın kapalı mı açık mı olduğunu nasıl cınlaycıbl— liriz? Aşağıdaki yedi satırı programınıza ekleyerek ter'ıin durumunu programdan konirol edeblllrslnlz 100 GÖSÜB 900:END 900 ÖPEN 4,4,0: PRİNT # 4, CHRS(0) 910 I1F ST-0 THEN PRİNT “PRİNTER ACIK“:CLOSE # 4: RETU RN 920 PRİNT “LUTFEN PRİNTER'İ AÇIN”: CLOSE # 930 PRİNT “TEKRAR DENEMEK İÇIN BİR TUŞA BASIN" 940 GET A$: İF A$—”” THEN ©: 950 GÖTO 900 Eğer makine dili ile bir program hazırlıyorsanız, CHKOUT rutinini kullanarak printer'ı kontrol edebilirsi- niz. CHKOUT kullanımdaki çıktı kanalını gösterir. CHRO- UT kullanılmadan evvel CHKOUT rutininin çağrılması gerekir. Bu sırada, eğer kapalıysa Cary biti ya- nar. Aşağıdaki makina dili programımız çıktıyı prin- ter'a gönderiyor ve printer'ın açık olup olmadığını kontrol ediyor. SETLFES — $FFBA SETNAM — $FFBD CLOSE — $FFC3 OÖPEN — — $FFCO CLRCHN — $FFCC CHKOUT - $FFCO STROUT — $ABİE GETNİN — — $FFE4 PRTKON LDA # 4 ; bir numaralı kanalı kullan LDK# 4 : yazıcı alet numarası dört LDY #O : İkincil adres JSR SETLFS LDA# 0 : dosya İsminin uzunluğu JSR SETNAM