T"ACELE ETME!":"CUNKU ACELE EDEN HIC BIR ZAMAN PIRINC YETISTIREMEZ...:A$(500),B$(500),C$(500),D$(500),F$(500),T$(255),L$(75),P$(75):9504000:15,8,15:2,8,2,"PROG,LISTA":15,EN$,EM$:""EN$EN$"62"2:15:9 "PATLAMA..A 2:15:2,8,2,"PROG.LISTA,S,W":2:2,8,2,"PROG.LISTB,S,W"c 2:2,8,2,"PROG.LISTC,S,W":2} ZT$"......":900:60 SA1500 A$(SA):" ":""A$(SA):900 A$(SA)""SASA1:A$(SA1)"S":900:65, ""16);:B$(SA):16)" ":16)""B$(SA):900:2000n ""27);:C$(SA):27)" ":""27)C$(SA):C$(SA)""18 ""35);:D$(SA):D$(SA)""D$(SA)"OK":""D$(SA):900 F$(SA)C$(SA)" "D$(SA): <53281,0:53280,0:ZO$" "S >ZA$"PROGRAMA GORE ARAMA":DF$"KASETE VEYA DISKETE GORE ARAMA" ?ZB$"ALFABETIK SIRAYA DIZDIRME":ZC$"PRINTER'DEN LISTE ALMA":ZS$"SON" A""ZO$ZO$ZO$"P R O G R A M L I S T E S I"- C" 1 "ZA$:" 2 "DF$:" 3 "ZB$:" 4 "ZC$L D" 5 BILGI GIRISIb E" 6 SONt FT$:T$""70 GT$"1"900:100 HT$"2"900:300 JT$"3"900:400 KT$"4"900:450 MT$"5"900:500 NT$"6"708 P900:53281,6:53280,14:"CALISMANIZI KAYDEDECEK MISINIZ E/H"J ST$:T$""83] UT$"H"900:m VT$"E"83v W900 ]2,8,2,"PROG.LISTA,S,A":I1SA:2,A$(I)::2 ^3,8,3,"PROG.LISTB,S,A":I1SA:3,B$(I)::3_4,8,4,"PROG.LISTC,S,A":I1SA:4,F$(I)::4:900:?d""ZO$ZO$ZO$""ZA$"_f"PROGRAM ADI :";Z$:900gU0:" "h""Z$":"iL1(Z$):"";:::(Z$,1)"*"4050:148j2,8,2,"PROG.LISTA,S,R":3,8,3,"PROG.LISTB,S,R":4,8,4,"PROG.LISTC,S,R"BkA$"":B$"":C$"":2,A$:3,B$:4,C$QlA$""112gnZ$A$UU1:114po107pU0"ARADIGINIZ ISIM BU LISTEDE YOK ":900:148q900:148rL1(B$)1:L10L10sPR$(B$,L1) tPR$9)(B$,1)13)ZT$" "C$:900:1072:3:4C"BASKA ARAMA YAPACAK MISINIZ ? E/H"VT$:T$""151lT$"E"900:100}T$"H"151900:65,""ZO$ZO$ZO$""DF$""."ISTEDIGINIZ KASET VEYA DISKET ";KD$:900/" "!0" "G1P0:KD$:Q1(KD$):"";::""22,8,2,"PROG.LISTA,S,R":3,8,3,"PROG.LISTB,S,R":4,8,4,"PROG.LISTC,S,R"3A$"":B$"":C$"":2,A$:3,B$:4,C$4B$""3205KD$B$PP1:3306KD$B$307*@P0"BU ISIMDEKASET VEYA DISKET YOK !":900:3408E900:340VJA$17)ZT$" "C$:900:307_M340lT2:3:4^" BASKA INCELEMEE/H"`T$:T$""352aT$"E"900:300bT$"H"352c900:65""ZO$ZO$ZO$""ZB$"" 2100BA0:1,8,15:2,8,2,"PROG.LISTA,S,R":1,EN$,EM$:EM$aEN$"62"2:15:EM$:400k2:12,8,2,"PROG.LISTA,S,R":3,8,3,"PROG.LISTB,S,R":4,8,4,"PROG.LISTC,S,R"AA1A$"":B$"":C$"":2,A$:3,B$:4,C$:A$""415 A;A$20)B$30)C$40612:3:4:"PRESS ANY KEYDT$:T$""416Q900:65" 1 BUTUN VERILER":" 2 ISIMLERT$:T$""419T$"1"1100I0:C23:"":15,8,15:2,8,2,"ALFALIST,S,R":15,EN$,EM$ EM$:EN$"62"2:15:400II1/ICT$:T$""424IICCC23:"":900m2,P$:ST2:15:"TAMAM":428|I;P$:423I13000::900:400" 1 BUTUN VERILER":" 2 ISIMLERT$:T$""430T$"2"440T$"1"430J"ACELE ETME....";"LOAD"(34)"ALFAQUICK1"(34)",8"jI05:A:631I,A::198,6 19,13,82,85,78,13"ACELE ETME....";"LOAD"(34)"ALFAQUICK"(34)",8"I05:A:631I,A::198,6 19,13,82,85,78,13 6""ZO$ZO$ZO$""ZC$""" 1 ALFABETIK DOKUM":" 2 SIRASIZ DOKUM":" 3 ";"KASET VEYA DISKETE GORE DOKUM":" 4 ANA MENUT$:T$""453T$"1""":900:960T$"2""":900:800*T$"3""":900:1500;T$"4"453H900:65I0:15,8,15:2,8,2,"ALFALIST,S,R":15,EN$,EM$:EM$EN$"62"2:15:4504,4:4,(14)" COMMODORE 64 PROGRAMLARI":4:4:4:4,4:4,(15):4II1:G2((I)):ST480<2,SK$:G(SK$):JI1:G3((J)):ST481j2,SP$(L)(SP$):LJ1:G4((L)):ST482}2,ST$:ST4834,I5G2)SK$20G)J5G3)SP$20G1)L5G4)ST$:IL4654:2:15:4974804,I5G2)SK$20G):4804,I5G2)SK$20G)J5G3)SP$:4800" ANY KEY!"CT$:T$""498Q900:450""ZO$ZO$ZO$"BILGI GIRISI":511"CIKIS ICIN ISMI RETURN VERIN""PROG ADI K VEYA D FEET,ID-NOT" " "103" 1 KLAVYEDEN"T"2 BILGI EKLEMEx"3 YANLIS DUZELTME"4 DIR KAYDI" 5 ANA MENUT$:T$""520 T$"1"900:700 T$"2"900:548  T$"3"900:550  T$"4"900:30001T$"5"520>900:65Y$"":SASA11000:15&""ZO$ZO$ZO$"Y A N L I S D U Z E L T M E("1 DISKETI DUZELTME":"2 HAFIZAYI DUZELTME*T$:T$""554+T$"2"900:600,T$"1"554>-900:""(147)"LOAD"(34)"PROSIL"(34)",8"^.I05:A:631I,A::198,6v/ 19,13,82,85,78,13|0X"LISTEYI INCELEYIN HATALI PROGRAMIN NOSUNU TESBIT EDIN"ZI1SA:I;A$(I)15)B$(I)25)F$(I):]"YANLIS P NOSU";YP:900d: e:Qg"P ISMI ";A$(YP):"KASET-DISKET";B$(YP):"FEET-ID";C$(YP)h"NOT ";D$(YP):900:F$(YP)C$(YP)" "D$(YP)l"BASKA E/H"mT$:T$""621nT$"E"900:600oT$"H"621q900:"KACINCI VERI YE KADAR KAYDEDECEKSINIZ";SA:900:YSA*v"VERI SILME E/H=wT$:T$""631SxT$"H"900:500d{T$"E"631|900:"LISTEYI INCELEYIN LISTE F1F) ILE GURDURUM. EIR TUS"~I1SA:I;A$(I)18)B$(I)27)F$(I)T$:T$""640T$""900: "KACINCI SILECEKSINIZ?";SA1900] ISZ1SA:A$(I1)A$(I):B$(I1)B$(I):F$(I1)F$(I)::SASA1 I1SA:I;A$(I)17)B$(I)27)F$(I): "BASKA E/H T$:T$""652 T$"H"900:500 900:636 500 SA0500 501! 15,8,15:2,8,2,"PROG.LISTA":15,EN$,EM$:EM$9!!EN$"62"2:15:450U!"2:15:4,4,10:4,10:4!#2,8,2,"PROG.LISTA,S,R":3,8,3,"PROG.LISTB,S,R":4,8,4,"PROG.LISTC,S,R":!$J0:5,4!%JJ1:2,A$:K1(A$):3,B$:K2(B$):4,C$!&A$""2:3:4:5:4503"R15,8,15:2,8,2,"PROG.LISTB,S,R":15,EN$,EM$:"";EM$M"SEN$"62"2:15:450e"T2:15:PT0890:"U2,8,2,"PROG.LISTB,S,R":J0"VJJ1"W2,B$:B$""2:870"XJ1L$(PT)B$:PT;L$(PT),"YB$L$(PT)L$(PT1)B$:PTPT1:PT;L$(PT),#ZB$"":854#fQPT:NUQ#hFNU3#iF(F2):F0882B#kJ0:KPNFJ#lQJT#mIQF#nL$(Q)L$(I)D$L$(Q):L$(Q)L$(I):L$(I)D$:QQF:Q0877#oJJ1:JK873#p876#rK0:F0FT:JF1F1:L$(J)L$(F)889#tP$(K)L$(F):KK1#vI:F$z"":I0PT:I;P$(I),:9$|:"BASKIYA BASLAYALIM MI E/HL$}T$:T$""893_$~T$"E"900:o$T$"H"893}$900:450$54296,15:54277,64:54278,128:54276,17$MB(4(1))1:54273,H1(MB):54272,L1(MB):T175:%54273,0:54272,0:54276,0:S%H1(1)34:H1(2)45:H1(3)57:H1(4)62:L1(1)76:L1(2)189:L1(3)172:L1(4)149Y%%" 1 ALFABETIK ISIMLER":" 2 ALFABETIK BUTUN VERILER%T$:T$""965%T$"2"1200%T$"1"965%"":459&900:"HAFIZ ADA VERI YOK !":I12000::\&LI0:C12:"":15,8,15:2,8,2,"ALFALIST1,S,R":15,EN$,EM${&VEM$:EM$"62"2:15:400&W2,DF:I1DF&XICT$:T$""1112&YICCC12:"":900&Z2,A$:I;P$::2:15:"TAMAM"&\T$:T$""1116']900:400>'I0:15,8,15:2,8,2,"ALFALIST1,S,R":15,EN$,EM$:EM$X'EN$"62"2:15:450'4,4:4,(14)" COMMODORE 64 PROGRAMLARI"(15):4:4:4'4,4:4,(14)(14)(14)(14)" A"(15):HJ$"A"'2,DF:I1DF'2,A$((A$,1)HJ$1250=(4:4,(14)(14)(14)(14)(14)" "(A$,1)(15)D(4T(HJ$(A$,1)y(4,16)A$:""I::2:4:15:450(ZO$ZO$ZO$"KASET-DISKETE GORE DOKUM(" 1 BUTUN KASET-DISKETLER)" 2 ISTENILEN KASET-DISKETLER"*)" 3 ANA MENU>)T$:T$""1504Z)T$"1"900:850:1550q)T$"2"900:1510)T$"3"1504)900:450)"ISTEDIGINIZ KASET VEYA DISKET";KD$)15,8,15:2,8,2,"PROG.LISTA":15,EN$,EM$:"";EM$*EM$"62"2:15:1500**2:15:4,4,10:4,10:4v*2,8,2,"PROG.LISTA,S,R":3,8,3,"PROG.LISTB,S,R":4,8,4,"PROG.LISTC,S,R"*1,4*1:1:1,(13)(14)"NG"(15):1*2,A$:E1(A$):A$""I15:I::*3,B$:4,C$:B$KD$A$"":1522 +1,A$20E1)ZT$2)C$*+A$18)ZT$25)C$:A$"":15227+PK0PTP+KD$P$(PK):1512:PKY+450+B$(SA)""B$(SA)B$(SA1):""16)B$(SA);::++4" 1 SIRALI LISTE":" 2 SIRASIZ LISTE" ,>" 3 SIRAYA DIZDIRME":" 4 ANA MENU!,?T$:T$""21117,CT$"1"900:418R,FT$"2"900:"":402h,HT$"3"900:429z,JT$"4"2111,M900:65, "DIRECTORY SI KAYDEDILECEK DISKETI TAKIN", "HAZIR OLUNCA F1, T$:T$""3004, T$""3004- 900:15,8,15:""I- 1,8,2,"$":X1141:15,EN$,EM$:""X;EM$:#1,A$:- T$(0)"DEL":T$(1)"SEQ":T$(2)"PRG":T$(3)"USR":T$(4)"REL"- J17:3100- N$B$:J2:3100- I$B$:#1,A$:J2:3100:O$B$- L188:#1,A$:. "DISK:"N$"ID:"I$"DOS:"D$:. "DISK ADINI VERIN:";M$:M$""900:"":3023C. ""r. P18:YY1:#1,T$,A$,A$:T$""T$(128). J15:3100:N$B$. #1,A$,A$,A$,A$,A$,A$,A$,A$,A$,L$,H$. L(L$(0))256(H$(0)):C$(Y)T$((T$)128)(L)/ F$(Y)C$(Y):L03040/ ST1:15:31505/ A$(Y)15)B$(Y)30)C$(Y)I/ P3#1,A$,A$V/ P:3026/ B$"":L0J:M1,A$:A$(30)A$(160)B$B$A$/& J:B$""/( A$(Y)B$:B$(Y)NA$:C$(Y)T$((T$)128)(L):F$(Y)C$(Y):)0N "LISTEYI KONTROL EDIN,HATA VARSA "YANLISDUZELTME" ILE DUZELTMEYI YAPIN."w0O "BOS KARAKTERLER VARSA SAYAC NOSUNU IZLEYEREK KAYDEDILMESINI IST EDIGI";0P "NIZ ISIMLERIN NOSUNU VERIN,YOKSA E BASIN"0Q T$:T$""31530R 900:SAY:600153281,0:53280,0:"î51N018:""38)"":c1"ý1BA$""1BC$"۳"1BB$""2""BA$:N016:BC$::BB$b2BD$"":BE$" ":""BD$;BE$s2BD$;"";BE$2BD$;"";BE$2BD$;"";BE$2BD$;"";BE$2" "3" P R O G L I S T "I3" "f3BF$""3""BF$BE$:BF$""BE$:BF$""BE$3BF$" (C) 1987 - BULENT UNAL "3"۱)4""26)"":"۲"u4"PRG/87.03.21";4HG$" P R O G L I S T (C) 1987 BULENT UNAL -BASLAMAK ICIN SPACE- "4HI$(HG$,2,70)(HG$,1):HG$HI$:""(HI$,38)5J15:T$:T$(32) 5:4022&5:35UZ(Z$)52,8,2,"PROG.LISTA,S,R":3,8,3,"PROG.LISTB,S,R":4,8,4,"PROG.LISTC,S,R"5A$"":B$"":C$"":2,A$:3,B$:4,C$5A$""40645(Z$,UZ1)(A$,UZ1)UU1:4070540556U0"ARADIGINIZ ISIM BU LISTEDE YOK":696A$17)B$27)C$:4055