1 Nisan 1986 Tarihli Commodore Gazetesi Sayfa 22

&63 Kolon Dırec’rory" programını yükleyip uygulayarak nasıl bir şey elde edeceğinizi mi merak ediyorsunuz? İşte bu formafta bir İiste manager database petspeed compiler supaerbase 16 n ıb A7 superbase 56 2 Ed.manager P ö petspeed p 3 start.p 5 2 loader P 538 Ppassi P 4 henter s 30 proğgğram P SO passa P 2 hselect 5 24 64.$8009 p SO0 pass3 P 6 hfind - 7 64.$7a0 p 15 passda P ü houtput s 10 64.$7ü008A p i passdb p 5 hecalc s i B4.$933c P 3 l12 P 3 hreport 5 14 6d.sort p 4 ib -bib p 3 hexecute s 68 EBd.arithedit P 3 lüg3ü P 3) Hhelp 5 28 Gd.bacKur p 1 bBackup P ö hfile 3 F7e Gd.crseatesedit p 3E Garrors P T hformat 5 43 GBü,manipulate p g report P 4 hbatch £ 7O Gd.raeport P z hasört - Z 64.=ort p 3 hpro 5 €4 sc.hslp screehs < v himaltıtaiı 5 fz.help screaens < 3 h fise Tfili 5 € da.checkbook & 5 hrnen ü z dp 5 B hocommandı z ar 5 3 himpor 5 e 8C 5 3 hexpoart 5 ts KBodo p 11 Mhlabels S fs KB0Ü0K 5 İ Ccüst.inv s bro. bocok p e st.F z < da list 5 1 TRSINING z Hu SE. list £ a p ts list p 108 İlüader P fs.xmas l1ist z 10 loadere P Ermaxmas 1ist p dd utilit» P € da.task manağge & 1 yZ.de 1dmay85 5 sC.task mMmanage' £ 14 delete.p g tz.task manazer P 13 makalabels.p 5 fs.task manager &- g labels.p & Brn.tasK manağser P e da.portfoöli 5 dp.portfalio 5 aAr.poartfalio 5 € sc.portfolio 5 ta.partfoalio p fs.portfolio 5 Hra.portfolio p Pf.checkbaok 3 z rf.xmas ist z € rf.task list 5S rf.portfoliü g da.data baze dem s ts.data base dem p brn.data basze derm p fs.data basze daem s 2 5C0.data base dem s Hlocks #raeszdü bloücEKs frees356 blocks frees-3İ6 PROGRAM ADI : 3KOLON DİRECTORY B0040 GET AS:IF A$-"” THEN 40 <B41> 88041 INPUT "BASLIK ";HDSCZG) <139> 20042 HOS(ZG)-LEFTE<HDSCZG)4"<CE3SPACE)" ,2 BBO10 DEF FNR<X)-(X<L32) OR (X>127 AND XC1 3)4"<ESPACE>" <813> <199 60845 FL--İ <148> 00815 DIM TS$(4) ,NMSC2,193),BLZ(2,143),FRA 80058 OPEN 1,8,15:0PEN 2,8,2,"#":PRINTHİ, ),DNSE<C2) ,HDEC2) , ZISCL) , ZESC1),TUZ "U1 2 6":18;0:TUNC0)-1 <157) (18) <Ba2a> B00686 PRINTHİ,"B-P 2 144":FOR 15144 TO 16 008280 2Z6-0:PRINT "<CLR>"::FOR 150 TO 4:RE 1:GET #ALASIIF A$-"" THEN AS-C$ <asa> T$CD)ENERT iZİSLA)E” "iZiİS(L)A"K OO078 IF FNRCASCLAS)) THEN A$z"?" <asa> "İZES(A)E" K" <ısa> 68030 Nscze) ZDNS(ZG)YASINEXT 3DNSCZG) -ON BB021 Za)-" ":C$-CKHRSCA):DATA D,S,PLU, $(Z6)4"," esila> R : çgiti) BO100 FOR 17162 TO 163:GET #2,AS:IF A$z"" Bf830 FOR SYsO TO 18:TUZ(5Y)-0:NEXT <193) THEN A$-C$ <1739) BOB31 PRİNT "<2DOLW><RVSON)"ZG*İ"<LEFT> 6105 IF FNRCASOCLAS)) THEN A$z"2" <085)> DISKET LUTFEN !" <194) BO1180 DNE<ZG)SDNS(ZG) *tASINEXT PRİNT DNS$<