|
eins
|
 |
« Yanıtla #225 : Mayıs 22, 2017, 13:57:31 ÖS » |
|
Ben de benzer yöntemi kullanırken özellikle poke kullanmıştım kontrol karakterleri meselesini yanlış anladığımdan dolayı. Hatta ekranı silmek için bile SYS atmıştım başa CLR karateri kullanmamak adına...
|
|
|
|
|
Logged
|
Doberman ♦ megaOne ♦ HDMI-64 ♦ HDMI-520 ♦ NewSchool
|
|
|
|
Skate
|
|
« Yanıtla #226 : Mayıs 22, 2017, 14:13:19 ÖS » |
|
Bu arada print"{CLR}" ile sysxxxxx her ikisi de 8 karakter kaplıyor. Ancak satır sonunda kullanılırsa print"{CLR} şeklinde 7 karakter ile sys'ye 1 byte fark atıyor. Bunu da dip not olarak düşeyim.  |
|
|
|
|
Logged
|
|
|
|
|
wizofwor
|
|
« Yanıtla #227 : Mayıs 22, 2017, 14:15:42 ÖS » |
|
Öyle de yapsam copy&paste ile aktarılamıyor Vice'a. Vice'dan copy ettiğim haliyle paste ediyorum buraya. Doğrudan copy&paste sağlamadıkça tek tek uğraşmaya gerek yok.
Ben IDE üzerinden çalıştırdığım için onun farkında değilim. Yapıştırdıktan sonra gerekli kodları ekleyerek hallediyorum. Hepsi bir yerde olduğu için problem olmuyor. |
|
|
|
« Son Düzenleme: Mayıs 22, 2017, 14:18:59 ÖS Gönderen: wizofwor »
|
Logged
|
|
|
|
|
Skate
|
|
« Yanıtla #228 : Mayıs 22, 2017, 14:20:14 ÖS » |
|
Ben 256 byte ASM kodlarının başında sinüs tablosu hesaplatmaya yönelik olarak kullanmak haricinde C64 basic'ini en son 90'lı yılların ilk yarısında kullanmış biri olarak 2017'de normal şartlarda ölsem bir daha CBM basic kodu yazmam diyordum. Bu yarışmayı ilk duyduğumda da "peeeh" dedim, sonra acayip sardım.  Teşekkürler @wizofwor. Gel gör ki madem 2017'de c64 basiciyle uğraşıyorum, doğrudan c64 üzerinde (Vice) uğraşıyorum. 2 satır basic kodunu da Vice'dan yazalım artık... |
|
|
|
|
Logged
|
|
|
|
|
Skate
|
|
« Yanıtla #229 : Mayıs 22, 2017, 14:34:47 ÖS » |
|
85 byte 0 inputa:fori=1toa:print:printspc(60-i*2);:forj=1toi:print"B{DOWN}M N{UP}B{UP}{4 LEFT}N M{DOWN}";:nextj,i
Satırı elle girmek isteyen varsa printleri ? olarak yazabilir. |
|
|
|
|
Logged
|
|
|
|
|
Skate
|
|
« Yanıtla #230 : Mayıs 22, 2017, 14:53:07 ÖS » |
|
Hakkıyla tek satır 79 byte 0 inputa:fori=1toa:printtab(99-i*2);:forj=1toi:print"B{DOWN}M N{UP}B{UP}{4 LEFT}N M{DOWN}";:nextj,i
|
|
|
|
|
Logged
|
|
|
|
|
Skate
|
|
« Yanıtla #231 : Mayıs 22, 2017, 14:54:43 ÖS » |
|
78 byte 0 inputa:fori=1toa:printtab(99-i*2):forj=1toi:print"B{DOWN}M N{UP}B{UP}{4 LEFT}N M{DOWN}";:nextj,i
|
|
|
|
|
Logged
|
|
|
|
|
i_r_on
|
|
« Yanıtla #232 : Mayıs 22, 2017, 15:11:12 ÖS » |
|
Aşık atışmasına çevirdiniz resmen işi |
|
|
|
|
Logged
|
Every imagination is one's self reflection but not every self reflection is imagination. <I.R.on - 2001> twitter | blog |
|
|
|
Skate
|
|
« Yanıtla #233 : Mayıs 22, 2017, 15:13:29 ÖS » |
|
Siz de katılın, threesome, orgy falan olsun. |
|
|
|
|
Logged
|
|
|
|
|
Skate
|
|
« Yanıtla #234 : Mayıs 22, 2017, 15:22:34 ÖS » |
|
Bu arada cursor'ın bir üst satırda kalması eğer kurallara aykırı diye düşünüyorsanız sonuna bir :print eklenir ki bu da 6 byte daha ekler çözüme. Bence o print olmadan da sonuç düzgün çünkü ready. çizim alanının üstüne gelmiyor. Ama son satırın üstüne gelmesi dert edilirse dediğim gibi 6 byte daha ekleyin sonuca.
|
|
|
|
|
Logged
|
|
|
|
|
eins
|
|
« Yanıtla #235 : Mayıs 22, 2017, 15:36:21 ÖS » |
|
@skate, yavaş git. Gün içi iş yoğunluğundan bakamadım. Akşama traşlanacak birşeyler kalsın bana da... |
|
|
|
|
Logged
|
Doberman ♦ megaOne ♦ HDMI-64 ♦ HDMI-520 ♦ NewSchool
|
|
|
|
Skate
|
|
« Yanıtla #236 : Mayıs 22, 2017, 15:37:31 ÖS » |
|
Benim de yoğun bir günüm ama multitask çalışıyorum. |
|
|
|
|
Logged
|
|
|
|
|
Skate
|
|
« Yanıtla #237 : Mayıs 22, 2017, 16:33:39 ÖS » |
|
74 byte 0 inputa:a$="B{DOWN}M N{UP}B{UP}{4 LEFT}N M{DOWN}":fori=0toa:printtab(99-i*2)b$;:b$=b$+a$:next
|
|
|
|
« Son Düzenleme: Mayıs 22, 2017, 16:36:48 ÖS Gönderen: Skate »
|
Logged
|
|
|
|
|
Skate
|
|
« Yanıtla #238 : Mayıs 22, 2017, 16:36:32 ÖS » |
|
73 byte 0 inputa:a$="B{DOWN}M N{UP}B{UP}{4 LEFT}N M{DOWN}":fori=0toa:printtab(60-i*2)b$:b$=b$+a$:next
Not: Sona yaklaştık, eğer ulaşmadıysak. |
|
|
|
|
Logged
|
|
|
|
|
Skate
|
|
« Yanıtla #239 : Mayıs 22, 2017, 16:48:07 ÖS » |
|
@delimawi: akşama alternatif denerken bu versiyona ulaşacaksın. işini kolaylaştırayım, 1 byte daha uzun oluyor. 0 inputa:a$="B{DOWN}M N{2 UP}{3 LEFT}N M{DOWN}":fori=0toa:printtab(60-i*2)b$"B":b$=b$+a$:next
|
|
|
|
|
Logged
|
|
|
|
|
Commodore
