Sayfa 13

A 8 T A VI OSYASI" 244 PRİNT BİZ 81,116G0SUD 376100SUD 362 Fİ <RVSOFF) HASTA KAYIT " PRİMT FI K AYIT ARAMA * PRİNT FS <RWSOFF) K AYIT SİLME * PRIMT FT (RWSOFF) C PRIMNT 102 PRİMT G6) ( YAPILACAK HAGTANIN ADI 37 a POKE TABDCİIIILINPUT "<DO LANI <BUF ) CAD) OPEM OÖPEM 1,6,15 GBOSUB 17G PRIMT © YAŞ)" FOR TO 9 PRİMTAL, ECE LYAS -TRH< ) INPUT ACE) ,B&<1) INPUT "COOL FPOKE 74<7SPACE )<CTAL-7) CASPACE)" ACC) <RYSOFF YI 1NTHZ IMPUT <R İNPUT <R FSSC) INPUT <R POKE 29<7SPNCC) <RWGOFT PRIMT AZDIKLARINIZDA HATA YAR MI ? BET Y&rIF THEM 168

GOSUB 309LPRIMNT KAYIDA DEYAM EDECEKMİSİMNİZ GET IF 126 GOSUB <AYVGON) KAYDI YAPILDI 962 CLOSE 11CLOSE 2160T0 GO CLOSE 2100T0O Tâ PRİNT OKUNACAK HASTANIN ADI

3941008UB 374 POKE "<DO TE 1,0,151GOSUB 176 GOSUB O MİN KAYDI. OKUNUYO C-0 TO GOSUB FOR TO 3 )CHRSCO) PRİNT "<RİGHT) IGHT)4 LYAS“ TAH <D 1 ) <RYSOFF )<CTRL-T) SON) 3S DD ) <RWSOFF )<CTRL-7) » SON) SBULOULAR <RWSOFF)<CTRL-F) D SOÖN)ETAHKL İL <ESPACE ) <RUVSOFF)<CTRL-T) SOM) ZON)BTEDAY <ESPACE ) PRIMT GECMİS n GET THEM 166 1F THEM 174 CLOSE 11CLOSE 2160T0O SO 136 THEN RETUR IF THEM 3881PRIİNT "ELIT YDİ YOKTUR 14 FOR TO 12001NERT CLOSE 11CLOSC 2100T0 GO GET Getir 1F IF 1F IF RECTURM KAY DI SILİMECEK HASTANIN ADI SOYADI <ES PACE > 1 394100SUD 13 "<DO

THEM 102 THEM Ta THEN 186 THEN 194 THEM 804

OPEM GOSUB SANS HİM KAYDI <RY SOFF)*

CLOSE 1160T0O GO POKE 13,641PRINT "<DO OPEM GOSUB OND HİN KAYDI SİLİNİYOR <RY