1 Kasım 1986 Tarihli Commodore Gazetesi Sayfa 44

PROGRAM ADI : 5S.J0Y boa 10 DHTH ÜYNHMIKÜP YUKARI , YUKARI SAGA, »ASAĞI SAGA,ASAGĞI, ASAGI SOLA, aOL BBO20 DATA YUKARI SOLA 20230 DIM A$C8):FOR I-0 TÜ BSiREAD A$LI):N T 60040 INPUT '<CLR)(DONN><RIGHT/HHNGI JÜOYS i TICK "; J<2>1 AND J<)Z THEN 48 20050 J 90060 J-0B:PRIİNT A$J) 90065 I-JOY:1F IsJ THEN 65 Js1 IF 1>8 THEN PRİNT "ATES & "i Ad882 PRIİNT A$C1):G60T0 65 # Psl-İR PROGRAM ADI : 5.RESET 20010 DATA "SATIR 18" ©dğ11 DATA "SATIR 11" B0di2 DATA "SATIR i8" O9013 DATA "SATIR 13" 20014 DATA "SATIR 14" 20015 DATA "SATIR 15" 90016 DATA "SATIR 16" 88100 INPUT "SATIR NO (18-16) 10 OR SN>16 THEN i18ğ B8110 RESET SN:READ A$IPRINT "<RVSON>"AS: GÜTÜ 188 "3SNEIİF SNX PROGRAM ADI : 5.USE BEdlİO INPUT "MİIKTARI "ŞASIİF Azâ THEN END 0020 INPUT "PARA BİRİMİ ";TL$ 90030 INPUT "VİRGÜLDEN ÜNCE KAC BASAMAK " ; VO A2040 IİNPUT "VİRGÜLDEN SONRA KAC BAZAMAK " ; VS 09045 A$-"" 0050 FOR I-i TO VO:ASSASL"H": NEXT Odü6A A$HsASL",* BğO7A FOR Isi TO VS:AS-ASLL"H":NEXT alaizisizi H$ A$4*" "4*TLS:PRINT "(EDONN)" USE A K, ——— amanz 00090 PRINT :USE HS »STR$CA):PRINT "<4DOLİN >Ilı Uq PROGRAM ADI : S.FILL&SCROLL “BOgn1fd FCOL A,A,40.25,0 Bö020 FOR 1-1024 TO 2023:POKE I,1:NEXT Bğa3a FOR 1=ı TO 388 GOSUB 1000:FCOL R,C, W,D, Bag4a PRINT "(CLR)"'FCÜL A, :8 60050 Is1 TO 300:6GOSUB 1800 FCHR R,C, D RND(B)#ESB NEKT ag0068 PRİNT "<CL asaza FÜR I-i TO 300:GOSUB 1000:FILL R,C, H, D, RND3)*256,RNOD<C3B)K1G:NEXT 00075 FOR 1-1024 Tü 2023:POKE | >RNDCB) 425 EKXT Ba08a FÜR J-1 TO 188:J-IİNT(RNDC8)x8):GOSU 08890 IF J-s1 THEN FOR 11zi TO RNDC8)x4100: DOLİND R,C Lİ,D:NEXT :GOT0O asnığa IF J-2 THEN OR II—l TO RND(B)#IS D OLİNB R,C,W,D T OT B Ad1180 IF J-3 THEN FUR II=1 TÜ RND(S)*!BB' PU R,C,Lİ,D:NEXT :GÖTO 30 gği2d IF J- 4 THEN FOR I1-1İ TO RND(S)*IS U R.,C,W,DiNEKXT :GOTO 340 68136 IF J-5 THEN FDR Ils1 TO RND(8)4*100: EFTLİ R,C, :NEXT :6 00140 I1F J-6 THEN FOR II—l TO RNDCS)xİ1S:L EFTİ ,C W,Di:NEXT :GOTO 300 00150 IİF J-7 TAEN FOR Il'l TO RNDC8)x1d0: N R,C,LI,D:NEXT :GOTO Bğ16ü IF J-0 THEN FOR Il—l TO RND(8)415:R IGHTB #W,DEiNEXT :GOTO 340 BO300 NEXT EU JU 2399 PRIİINT "<CLR>":END Bi1AdO R- RND(B)*ES ÜZRNDC8) x40 i4Jz PND(8)1(4 O-C)*LEDAERNDAB) &C25-R)4*1:RETURN PROGRAM ADI : 5.FETCH Bğğl1d PRIİINT "RCLR)(DONN)LUTFEN A-Z ARASI TUSLARA BASINIZ: "/ A09020 FETCH "<HOME>",İS,ASIPRINT :PRİNT : GOSUB 18f 20040 PRİNT "<DOLNN>LUÜTFEN A-Z DISINDAKI T USLARA<LISSPACE.BASINIZ: "; 20050 FETCH "<DOKN>",8,AS:PRINT :GÜSÜUB iİü gğ Ağdö7zO PRİNT "<DOLNDARTIK TUM TUSLARI KULL ANABILIRSINIZ" AdA30 FETCH "<HÜME><DOLN>",25,ASIPRINT :P RINT :GOSUB 1ğğü B10 PRİNT "<DOLN>'GWERTYUTOP' TUSLARINI KULLANAIN: "? Bğl110 FETCH "GWERTYUTOP" NT #GOSUB 10028 Bğ120 PRİINT "<DOWN>HARFLERİ VE İ-2-3 RAKA MLARINI GİRİN: "? ğğ130 FETCH "<HOME>1İ23",1İS5,A$HIPRINT :GOSU ;İS,ASIPRINT :PRI 10Ba 08146 PRINT "<DÜLİN)SADECE SAYILAR,NOKTA V E 'T;,L, '<9SPACEYKARAKTERLERİ: " AO15A FETCH "1234567890 .TL",15,ASIPRINT :GOSUB 180f 203939 END Biğd€ PRİNT "<RYSON>VERDİĞİNİZ YAZI:<RYSÜ FF> "AS:RETURN MOLA KISA BİR SÜRE İÇİN ESKİ Commodore 16 Commodore 64 Commodore Plus/4 Datasette 1531 Disk Drive 1541 APPLE I| E'lerinizi Commodore'un tüm yeni veya istediğiniz modelleriyle uygun şartlarda değiştiriyoruz. Tel: 147 28 00 -583 72 46 NOVA BİLGİSAYAR 44