Raster Şeritleri - $0011

• Makine dili / Assembler
• Programlama teknikleri
• Grafik ve çizim
• Demo sahnesi
• Program dökümü

Bu programı yazıp çalıştırırsanız tanıtım veya giriş ekranlarınıza renk katacak efektler elde edebilirsiniz. Program makine dilinde yazılmıştır ve interrupt tekniğiyle çalışır. Bu sebeple siz program yapmaya devam ederken bu şeritler de çalışmaya devam eder. Ama bu programı interrupt tekniğiyle çalışan diğer programlarla beraber kullanmaya çalışırsanız bilgisayarınız kilitlenebilir.

PROGRAM ADI : RASTER SERİTLERİ
00000 REM ---- RASTER SERİTLERİ ---- <255>
00010 FOR TO 49273:READ D:POKE T,
00020 DATA 72,138,72,152,72,164,2,200,18
2,16,208,2,160,0,132,2,185,28,192
00030 DATA 141,33,208,141,33,208,76,81,2
S4,1,3,6,14,1,3,6,14,1,3,6,14,1,3,6
<252>
DATA 14,32,155,183,134,251,32,155,1
83,134,252,32,155,183,134,253,32
DATA 155,183,134,254,165,251,141,28
.192,141,32,192,141,36,192,141,40
DATA 192,165,252,141,29,192,141,33,
192,141,37,192,141,41,192,165,253
DATA 141,30,192,141,34,192,141,38,1
92,141,42,192,165,254,141,31,192
DATA 141,35,192,141,39,192,141,43,1
92,96,153
POKE 53281,.:POKE 2,.:POKE 792,.:PO
KE 793,192
SYS 49196,1,11,12,15
POKE 56580, 34:POKE 56581,1:POKE 565
82,.:POKE 56583,.
POKE 56589,130:POKE 56590,17:POKE S
6591,81
PRINT
ER "

<238>

<212>

<223>
<230>
<210>
<135>
<253>

<242>
<199>

<003>

<180>
"<CLR><7SPACEDABUR CUBUR-RAST