Sayfa 6

IF KACCSEC) <0 THEN 2415 KACCSECYAKACLSEC)-1 PRİNT KELİMESİNİN KARSIL CEVSa*1* THEN GOTO 2550 İF THEN PRİNT "BRAVO" 1GOSUB 2410 PRİNT "YANLIS CEVAP", "DOGRUSU <SEC> GOSÜUB * 1160TO 2418 IF Fsi THEN 2560 PRİNT * GOSUB PRİNT "<CLR><SSPACE SİLME" PRİNT ><RVSONDG<RVSOF SİLME" GET THEN 2603 IF THEN 6108 İNPUT "FARS THEN RETURN FOR 1-0 TO SAYAC 1F ARSSALSCI) THEN 2650 NEXT “KAYITTA 68 00:60TO 2605 FOR TO SAYAC ALSIN) NEXT 2608 DATA YERİNE YERLES TIRIN" DATA TUSUNA BASIN" DATA * DATA *<RIİGHT>1-DİSKETE OKUMA" , UK KAYIT" TESTİ", ZCUK SİLME" PRİNT 5080 GET ASIIF THEN 1088 IF OR VALCAS))6 THEN 3025 ON VALCAS)GOSUB 1800, 1200,3400,3200 ,3600 ,3880 3088 İNPUT YTURK

İNS<*1* THEN RETURN FOR Iz0 TO SAYAC THEN PRİNT 6000:GOTO NEXT 1 PRİNT KAYITLI DEGİL" 6000:60TO 3206 REM ##SOZCUK İNPUT 1 "7 TÜSCZ > TINRUT * İNGİLİZCE 1 ) IF ALSCZ)4"1" OR THEN A YE" * Z>1000 THEN "HAFIZADA YER GOTO 3450 >. FOR Ns© TO S1 NEXT N PRİNT "<CLR><SDOMNDSORU*F FOR TO NEİF THEN 3615 NEXT LEPRİNT "SORULACAK KELİME KALM ADI":GOSUB 6080:60TO 2550 IF KACİSEC)-0 THEN 3615 KACCSEC)SKACLSEC)-1 PRİNT KELİMESİNİN KARSIL *CASPACE THEN