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): F$(SA)C$(SA)" "D$(SA): <53281,0:53280,0:ZO$" "0 >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$) D" 5 BILGI GIRISI? E" 6 SONQ FT$:T$""70g GT$"1"900:100} HT$"2"900:300 JT$"3"900:400 KT$"4"900:450 MT$"5"900:500 NT$"6"70 P900:53281,6:53280,14:"CALISMANIZI KAYDEDECEK MISINIZ E/H"' ST$:T$""83: UT$"H"900:J VT$"E"83S 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$:900lgU0:" "zh""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"kA$"":B$"":C$"":2,A$:3,B$:4,C$.lA$""112DnZ$A$UU1:114Mo107pU0"ARADIGINIZ ISIM BU LISTEDE YOK ":900:148q900:148rL1(B$)1:L10L10sPR$(B$,L1)tPR$9)(B$,1)13)ZT$" "C$:900:1072:3:4 "BASKA ARAMA YAPACAK MISINIZ ? E/H"3T$:T$""151IT$"E"900:100ZT$"H"151g900:65,""ZO$ZO$ZO$""DF$""."ISTEDIGINIZ KASET VEYA DISKET ";KD$:900/" "0" "$1P0:KD$:Q1(KD$):"";::""p22,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:340E900:3403JA$17)ZT$" "C$:900:307<M340IT2:3:4h^" BASKA INCELEMEE/H"{`T$:T$""352aT$"E"900:300bT$"H"352c900:65""ZO$ZO$ZO$""ZB$""2100A0:1,8,15:2,8,2,"PROG.LISTA,S,R":1,EN$,EM$:EM$>EN$"62"2:15:EM$:400H2: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$""415A;A$20)B$30)C$4062:3:4:"PRESS ANY KEY!T$:T$""416.900:65j" 1 BUTUN VERILER":" 2 ISIMLER}T$: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$""424&ICCC23:"":900J2,P$:ST2:15:"TAMAM":428YI;P$:423sI13000::900:400" 1 BUTUN VERILER":" 2 ISIMLERT$:T$""430T$"2"440T$"1"430'"ACELE ETME....";"LOAD"(34)"ALFAQUICK1"(34)",8"GI05:A:631I,A::198,6_ 19,13,82,85,78,13e"ACELE ETME....";"LOAD"(34)"ALFAQUICK"(34)",8"I05:A:631I,A::198,6 19,13,82,85,78,13""ZO$ZO$ZO$""ZC$""e" 1 ALFABETIK DOKUM":" 2 SIRASIZ DOKUM":" 3 ";"KASET VEYA DISKETE GORE DOKUM":" 4 ANA MENUT$:T$""453T$"1""":900:960T$"2""":900:800T$"3""":900:1500T$"4"453%900:65]I0:15,8,15:2,8,2,"ALFALIST,S,R":15,EN$,EM$:EM$wEN$"62"2:15:4504,4:4,(14)" COMMODORE 64 PROGRAMLARI":4:4:4:4,4:4,(15):4II1:G2((I)):ST4802,SK$:G(SK$):JI1:G3((J)):ST481G2,SP$:G1(SP$):LJ1:G4((L)):ST482Z2,ST$:ST4834,I5G2)SK$20G)J5G3)SP$20G1)L5G4)ST$:IL4654:2:15:4974804,I5G2)SK$20G):4804,I5G2)SK$20G)J5G3)SP$:480 " ANY KEY!" T$:T$""498.900:450e""ZO$ZO$ZO$"BILGI GIRISI":511"CIKIS ICIN ISMI RETURN VERIN""PROG ADI K VEYA D FEET,ID-NOT"" "10"1 KLAVYEDEN/"2 BILGI EKLEMES"3 YANLIS DUZELTMEq"4 DIR KAYDI" 5 ANA MENUT$:T$""520 T$"1"900:700 T$"2"900:548 T$"3"900:550 T$"4"900:3000 T$"5"520900:654$"":SASA11000:15m&""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"9.I05:A:631I,A::198,6Q/ 19,13,82,85,78,13W0X"LISTEYI INCELEYIN HATALI PROGRAMIN NOSUNU TESBIT EDIN"ZI1SA:I;A$(I)15)B$(I)25)F$(I):]"YANLIS P NOSU";YP:900d:e:,g"P ISMI ";A$(YP):"KASET-DISKET";B$(YP):"FEET-ID";C$(YP)`h"NOT ";D$(YP):900:F$(YP)C$(YP)" "D$(YP)rl"BASKA E/H"mT$:T$""621nT$"E"900:600oT$"H"621q900:"KACINCI VERI YE KADAR KAYDEDECEKSINIZ";SA:900:YSAv"VERI SILME E/HwT$:T$""631.xT$"H"900:500?{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:"KACINCIYI SILECEKSINIZ";SZ:9009 ISZ1SA:A$(I1)A$(I):B$(I1)B$(I):F$(I1)F$(I)::SASA1b I1SA:I;A$(I)17)B$(I)27)F$(I):r "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$!!EN$"62"2:15:4501!"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:450"R15,8,15:2,8,2,"PROG.LISTB,S,R":15,EN$,EM$:"";EM$)"SEN$"62"2:15:450A"T2:15:PT0890:f"U2,8,2,"PROG.LISTB,S,R":J0:PT0p"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"hFNU#iF(F2):F0882##kJ0:KPTF+#lQJ5#mIQFs#nL$(Q)L$(I)D$L$(Q):L$(Q)L$(I):L$(I)D$:QQF:Q0877#oJJ1:JK873#p876#rK0:F0PT:IF1F1:L$(I)L$(F)886#tP$(K)L$(F):KK1#vI:F#z"":I0PT:I;P$(I),:$|:"BASKIYA BASLAYALIM MI E/H-$}T$:T$""893@$~T$"E"900:Q$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:5%H1(1)34:H1(2)45:H1(3)57:H1(4)62:L1(1)76:L1(2)189:L1(3)172:L1(4)149;%%" 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$:EN$"62"2:15:400o&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$:'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)&(46(HJ$(A$,1)[(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$""1504;)T$"1"900:850:1550R)T$"2"900:1510d)T$"3"1504r)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:4W*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,(14)(14)KD$(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$"":1522+PK0PT0+KD$P$(PK):1512:PK9+450l+B$(SA)""B$(SA)B$(SA1):""16)B$(SA);::r++4" 1 SIRALI LISTE":" 2 SIRASIZ LISTE"+>" 3 SIRAYA DIZDIRME":" 4 ANA MENU,?T$:T$""2111,CT$"1"900:4182,FT$"2"900:"":402H,HT$"3"900:429Z,JT$"4"2111g,M900:65, "DIRECTORY SI KAYDEDILECEK DISKETI TAKIN", "HAZIR OLUNCA F1, T$:T$""3004, T$""3004, 900:15,8,15:"")- 1,8,2,"$":X1141:15,EN$,EM$:""X;EM$:#1,A$:i- T$(0)"DEL":T$(1)"SEQ":T$(2)"PRG":T$(3)"USR":T$(4)"REL"x- 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:"":3023#. ""R. P18:YY1:#1,T$,A$,A$:T$""T$(128)g. 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:3150/ A$(Y)15)B$(Y)30)C$(Y))/ P3#1,A$,A$6/ P:3026n/ B$"":L0J:#1,A$:A$(39)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."Y0O "BOS KARAKTERLER VARSA SAYAC NOSUNU IZLEYEREK KAYDEDILMESINI IST EDIGI";0P "NIZ ISIMLERIN NOSUNU VERIN,YOKSA E BASIN"0Q T$:T$""31530R 900:SAY:800053281,0:53280,0:"î1N018:""38)"":E1"ýv1BA$""1BC$"۳"1BB$""1""BA$:N016:BC$::BB$D2BD$"":BE$" ":""BD$;BE$U2BD$;"";BE$g2BD$;"";BE$z2BD$;"";BE$2BD$;"";BE$2" "2" P R O G L I S T "+3" "H3BF$""n3""BF$BE$:BF$""BE$:BF$""BE$3BF$" (C) 1987 - BULENT UNAL "3"۱ 4""26)"":"۲"W4"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)4J15:T$:T$(32)5:40225:5UZ(Z$)a52,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:4070540555U0"ARADIGINIZ ISIM BU LISTEDE YOK":66A$17)B$27)C$:4055