1 Nisan 1986 Tarihli Commodore Gazetesi Sayfa 30

SoAza 5easo Bi İ IİFYAJ)#YCI)THEN200 GoTOİBsüa NEKTJ:NEXTİ PRINT'"4TAKIMLAR 0 G6 BM AY P" PRİINT” . FOR1-İTOLS:PRİNTTSCI)3/TABLİS)İSTRECOCİ) )/ TABCİS)ISTRECGCI)) / TABLSİ)STRECBCT)); PRIİNTTAB<24)STRE<MCI)): TABLCEFP)STRSECALI)):TABC3O)STRAECYCI)): TABC33)STRSCPCT)) IFİ-İ6THKENPRINT" n NEXTİ PRINT"El " GETA$: IFASz" "THEN240 RETURN : PRİNT" (" INPUT"KAC TANE MAC GİRİLECEK: " 3NMS İFNMİ< #ATHENRETURN FORM- 1L TONM PRİINT' Ç2" M". MACI"IPRİNT"--------- * *INPUT"MRTOKİIM #İ:":TİS INPUT "MTAKIM #2:":TES INPUT"EBONUC (Hİ-H2)1";S$ı LELEN(5$)15C1)-VAL(SB) FORK-İTOL: IFMİD$SLS$,K,İ)-"-"THENSL2 ) SVALCMIDE(SE,KTI,L-K)) NEKTK: I-1 İFTİS-TES D )THENASİ:Bz2:GOSUBLOTA I1F TE&-TESL ) THENAS2:B-1:GOSUB1O7A İFT-2THENT-A:NEXTM:İGOTOSAdA 1-141:1Fİ>1İ9THENPRİNT"EEOĞE *& YANLIS VERİ k46d" : FORUS İ TOZO0O:NEKTİGOTO1020 GoTO1a4A OYLT)SOYCL)41 İFSCA)>SCBİTKENPTC T )EPTCT)4*21GACI)SGACI)4*1:60TOLİ1İSA İFESCA)-ESLBİTHENPTC D )-PTC1)*1:BECT)-SBECİ)4*1:60TOL1SA IFSCA)<SLBİTKENMACI)-MALI*I ATKIOSATILI4*SCA)IYECTİEYECİ)4*5£B) AYCIDSATCD)-YECI) T-T*1:RETURN INPUT"AGIRIS KLAYYEDEN MI TEYPTEN Mİ <(KZT):":G$11FG$-"T"THEN2OB1fA PRIİINT"JTAKIMLARIN SIİMDİYE KADAR"IPRINT"MEOLAN BİLGİLERİNİ GİRİNİZ" FORUS1TOZSAMOA:NEKTİFOR1-1T019 PRİINT'TAKIM M"7 TEBCTİEPRİNT'Gİ-------------------- "EINPUT"MOYUN: "FOYCİ) INPUT"EGALİIBİYET: " GAL I: İNPUT"EBERABERLİK"3BECİ)TİNPUT"MATTIGI"JATLI) İNPUT"EYEDİGİ: "#YEKİYİMAKI)SOYCDD-GALII-BESİİİPTİ DD EGACI ) O*BELİ) AVYCIOSATCI)-YECTİSİNPUT"EMEBİLGİLER DOGRU MU <EZH):";D4: İFDSS"H"THENZ0A3 NEXTİ:RETURN PRİNT" (J" OPENL, İ A,"PUAN CETVELİ" FOR1-1TO0138 TOPUTH#İ,PTCTOTINPUTHİ,OYCTDLİNPUTAL , GACI) S INPUTKİ,BECİOSİNPUTKİ,MALI) INPUTHİÇATCI)I INPUTHİ,YECİ)SİNPUTHL AYCI) NEKTİ CLOSE 1 :RETURN PRİNT ÜG GFORİSİTOL91 İFPTC D )<OATHENP-P*1:NEXT:GOTO3ANA NEXT IFP-ATHENPRİNT" 3 ** BELLEKTE VERİ YOK # x*6ğ" : FORN-1TO2000:NEXT:RETURN PRİNT' G4" :OPENİ,İ,İ,"PUAN CETVELİ" FOR1-1TO19 PRİNTHİ,PTCİ)EPRİNTHİ,OYCİ)EPRİNTHİ , GACIYEPRİNİHİ,BECİ)İPRİNTEL,MACI) PRİINTHİÇATCI):IPRİNTHİ,YECİDEİPRİNTHİÇAYCI) NEKXTİ CLOSET:RETURN PRİNT'LERBBRRİ | M :PUAN CETYELİ" PRINT"ERDERRBİİ 2 M :MAC SONUCLARINI GİRME" PRİNT'ENAEBEBIİ 3 M :ESKİ VERİLERİ YÜKLEME" PRINT"EEERERBİA 4 M :VERİLERİ SAKLAMA" GETİSİ İFİS-""THENSO4A IFTİ£#-"1“THENGOSUBA5:GOTOSANA Fis”"E'TRENGOSUBR1MDAN:GOTASANA İFTS-" 3" THENGOSUB200A:GOTOSANA ( 1$-"4“ THENGOSUR 3NMN : GOTOSAAB Gorosada