Sayfa 29

00130 INPUT “<RVSON)#TESHİSCASPACE > 1 <RVSO .GSLPRİNT 08133 INPUT "<RVSON)#TEDAVICASPACE <RVSO 00136 1PRİNT 00138 PRINT TABC3)CIRRINT "KAYIDA DEVAM E DECEKMİSİNİZ? <EZH)" 00140 GET THEN 102 00141 IF THEN 145 00143 IF AND THEN 140 00145 CLOSE 8 60146 GOTO 5 00200 GOSUB 550 88202 OPEN 2.8.2."HASTA.S.R" 00205 NT “<CLR)>"1GOSUB 708 090208 PRİNT <2SPACE)O M 88210 PRİNT SOYADI 1 <RVSOFF > BO212 PRİNT "<RVSONDSYASI YERİ *)BSLPRINT 00214 PRİNT "<RVSON)#MURACAATLESPACE ) 1 <RV SOFF) 80216 PRİNT "<RVSON) CRV SOFF) PRİNT “<RVSON) #BULGULARC2SPACE > 1 <RV SOFF> 00218 PRİNT > 1 <RV SOFF) 80218 PRİNT *<RVSON)#TESHİSC4SPACE <RVSO FF) 08220 PRİNT "<RVSON)#TEDAV CASRACE > 1 CRVSO FF> BORA2 PRİNT İCİN AR ALIK CUBUGUNA BASINCERIGHT)>" 68223 PRİNT MENU İCİN RETURNA BASINLERİGKT)" GET THEN 224 00226 IF THEN 205 00228 IF YE-CHRSC13) THEN 832 00230 IF AND YEOCKRSCİ3) TH EN 224 60232 CLOSE 81GOTO 5 00300 GOSUB 53280 BIPOKE 53281.11PRINT 68302 S M<2SR ACE)İ L R A M >*APRİNT 00365 PRINT "HASTA ADINI YAZ IN 00310 OPEN 2.8.2."HASTA.S.R" 88312 "<CLR)>" 00314 1-1 00316 FOR I-2 TO 5008 00318 00320 IF THEN 358 00322 PRİNT A YI ANI YOR 08325 IF 14500 THEN SAYI sı 00327 NEXT I 00350 GOSUB 708 88352 SOYADI 1 <RVSOFF > 00355 YERİ *)BSLPRINT 00357 PRİNT > 1 <RV 00359 PRİNT > 1 <RV e

")DSEPRIİNT "<RVSON) 1 <RV SOFF) PRINT 1 <RVSOFF > > 1 <RVSO FF> “)GSLPRINT FRİNT “<RVSON>#TEDAVI <4ASPACE Yi <RVSO FF> EPRİNT PRINT "<RVSON) <RVSOFF )<245RACE)<RV OLSUN "<RVSON)C<2SPACE YANA DO NMEK ICİN RETURNA BASIN" GET V&11F V&e"" THEN 375 IF THEN 388L11F (13) THEN 375 CLOSE 816G0TO 5 PRINT "<CLR)"1POKE 53280.11:POKE 81.1:PRINT PRİNT 1 PRINT "<RVSON><7SPACE)G E C MI S<3 SPACE)O L S U PRINT *<26SPRACE)<RVSONDDR ALI HATAY <2SPACE)* PRİNT "<25SPACE )<RVSON>BEVLİYE UZMA NI * FOR TO CLOSE "<CLR)"LEND FOR Isi TO 58 PRINT 1 PRINT 1PRINT PRİNT PRINT H A S T A N Iİ N<2SRA CEK A YO I<ESPACEYYOKTUR" NEKT I