1 Nisan 1986 Tarihli Commodore Gazetesi Sayfa 23

26) <123)> 803386 ZGsZGtISIF 263 THEN 38 <876) 601260 FOR 154 TO 146 STEP 4:PRİNTİK1,"B-P 88348 OPEN 4,4,6:PRINT#H4,CHR$<27):CLOSE 4 "i çeeb” tOPEN 1,4,7:PRIİNTH 1 ,HDSCG)HOSC İ )HDS O6ö121 IF 1572 THEN NEXT <887)> (2) : <229> 006130 GET #a,AS:1F A$-z"" THEN A$-C$ <B27> 88345 FOR I-0 TO 2:PRİNT#1,DNS<C1)"<4SPACE 00140 FRA<ZG)5 FR7(28)+HSC(6$)=NEXT <235> >"33NEXT <166)> 681586 TR:18:SEs <B37) 88358 PRINT#1I <075> 00168 IF TU/(SEJ THEN 325 <179> 886355 FOR I-i TO 75:PRİNT#1,"-"::NEXT :PR 60161 TUZ<SE)-İ <187)> INT#İ <249)> 88162 PRINT#1,"Ul 2 8";TR3SE:GET #2,TRS$:6 88368 FOR 1586 TO 143:FOR T-8 TÜ 2:1F NMSC ET #E,SE$ <B48> T.1)5"" THEN 388 <124> O0170 TR>ASCLTRS4*CS):SESASCLSESLCS) <848> 80370 PRİNT#İ,LEFT$CMID$SCSTR$SCBLACT,.1)),82 00188 FOR I-0 TO 7:PRİNT#1İ,"B-P 2"/2t1x*32 <B34) )4" <3SPACE>",3):NMS<T,1)7 "<aSPACE>" 00190 GET #2,A$:ASASCLASLCSIIF AzO THEN ; <049> 318 <833) 880375 GOT0 384 <065> 086195 FLsEFL*1İ <eda2> 8863886 I1F T-86 THEN IF NM$SC1,1)5"" THEN IF 002080 BzA AND 7:NMS(ZG,FL)-T$X <B066) Nuis5(2,1)-"" THEN T-3:60T0 384 <174> 020216 BzA ANO 84 NMS(ZG,FL) Si NMS(ZG FUL)421 80381 IF Tsi THEN IİF NM$<C2,1)xz"" THEN T53 $(-(Bs64) <ı24> :GOTO 384 <968> 00236 BzA AND 128 NMS(ZG FL)s2Za$l(-<(Bz128) 80382 IF Tsa2 THEN 384 <8872 )*NMSCZG, <Ba3) 08383 PRIİNT#1,"<2aS5SPACE>"; 3513 00250 a <B75)> 868384 NEXT :PRINTH1 <812> 60255 FOR 1153 TO 18:PRINT#1,"B-P 2";72*4*1k 88385 I1F NM$C8,1)-"" AND NMSCİ,1)5"" AND etll <190)> Nui5(2,1)z"”" THEN 398 <2a25> 002686 GET #2,AS$:IF AS$-"" THEN A$-C$ <159> 886386 NEXT <076> 00265 I1F FNRCASCLAS)) THEN A$z"2" <E4T> 88398 FOR 1-86 TO &8 <075> O0270 NS-NStASINEKT <065> 88391 PRIİNT#1,"BLOCKS FREE-"LEFT$CMIDS$S(ST 682886 NMS(ZG,FL)-" "*NSFNMSCZG,FL <168> RS(FRV(I)) 2)4*"<3İSPACE )" ,3): "<LOSPA 06290 PRIİNT#İ,"B-P 2":3041x432: GET Ha,L$:6G GE3“ <a7a> E 2,H$ <246> 08332 NEXT #PRİNTHLEİPRİNTR1:CLOSE <158> 003086 BLA(ZG,FL)SASCLIHS*CS) KESEYASCLLERCS 68335 PRINT “(CLR><DOHN)<PIGHT*DUPDUPFHF <i112> ICIN «'E BASINIZ. <1a21> 60305 PRINT LEFT$<CMID$CSTRSCBLZ<Z2G,FL)),2 88336 PRINT "(DOHN)(RIGHT)TE*RHP 1ICIN HER )4"<3SPACE )" ,3):NMSCZG,FL) <123> HANGI BIR TUS. <058> 003186 NEXT (BER, 08400 GET B$:1F BS-”' THEN 488 <25e> BA320 IF TR<>G THEN 168 <147> 884186 IF B$<>"e" THEN RUN <166> 60325 PRINT "BLOCKS FREE -"FRACZG):CLOSE 884286 OPEN 4,4,6:PRIİINTH4,CHRSC32):CLOSE 4 (245> 1:CLOSE 2 <156> “©BOLKİTAP i © PERİYODİK 4& z commodore -16 © SÜREKLİFORM e ; . Hnmelım ] z commodore -64 3DİSKET © 5 1/4DİSKET BüTÜN BiLGİSAYARLARINA Printer'lar, © 8DİSKET ©RİBBON : /Çi commodore PLus4 : Yesil ekranlar ©KARTUS e€ ŞERİT Rıînkııı Gâ:gnîlîlm , cl commodore -128 © CONNECTİON ekranlar, ; Data rekorder'ler Söri 2 Ce commodorePpc 10 URSEZİZECENİLRONİC) Joystick malşîrr_ıelenm Ct commodore -pc20 —— BUNLAR İÇİN! — —ağ rır ç a vi © ©e EMSALLERİNE GÖRE © Her telefon edene ğ | Muşavirlik DAHA ucuz, DAHA GARANTİLİ, © Vektup yazana % Disket © MARİFETLİ, © Bizzat gelenlere » Driverlar, © © BOLPROGRAMLI, her türlü bilgi, - '© NETWORK İÇİN İDEAL brosur, katolog verilir Prubîem:nnizı Tele teknik 0 NETİCE OLARAK ——— | halleder. f 'a BİLGİSAYARI YETKİLİ SATICISI ONEL eektronik'ten ©e ALMAKTA HEM BUGÜN için l-î')NEL Selanik Cad. 6/B ANKARA hemde YARIN için elektronik Tel:337609 341089 ini menfaatiniz vardı I 23