Sayfa 27

3 INPUT#15,HTS:CLOSE 15:1F HT$-"62” T HEN GOSÜB 20 GOTO 32 GÖSÜB 194:GOSUB 247 PRİNT AL$; IK$;BLS;CMSC3):PRINT PRINT ALS$S;DTS$S;BLS;CMSC5):PRINT AL$; BS$; BLS; IF J-2 THEN KAS;ESC3);KMS5;ROS ATS; SPS; IF THEN PRİNT ; SPS; YDS; SPS; RES; AK$;CMSC8) PRINT 220 GET IF ©O<>1 AND Ç<>2 AND Ç<>3 AND AND ©<>5 AND AND AND THEN 158 IF (J-2 AND 0-7) OR AND T HEN GOSUB 219:G0TO 158 ON OĞOÜTÜ 57,65,110,118,169,139,182, 253 PRINT PRİNT A$;BSC10);ESC3); SRS; RES;"LUTF EN SIFREYI GOSUB 220: INPUT SF$: IF SFE$-”KURSAT” THEN RETURN PRINHT ET$:FOR T-1 TO 4 PRINT YSS;ASC8);”SI FRE TUTMUYOR”; NEXT FOR T—1 TO 9:GOSUB 219:FOR TT-1 TO 50: NEXT :NEXT :FOR TO 250:NEXT :GOTO 162 PRINT B&<C11);ESC3); YSS; "HAFIZA BüÜS & VERİ YOK“:GOSUB 232:G60TO 244 GOSUÜUB 194: PRINT $;CMS(6):GOSUB 220 IF S-SF THEN 168 PRINT PRINT *SİLİNECEK KAYIT NÜ"; CN$;SPS; : INPUT SK$:GÜSÜUB 219 SK-—VAL(SK$):T-SK:1F SK>S OR SK<1 TH ER 171 PRINT ECEK PRİNT BSC10):GOSUB 240 PRİNT YSS;"SILİNECEK MI * ASCİ); BES; RES; ROS; HA