Satır Silici - $0013

• BASIC
• Programlama teknikleri
• Program dökümü

Eğer ekrandaki bir satırı çevreyi etkilemeden silmek istiyorsanız bu programı kullanın. Kernal rutinleri yardımıyla POKE 781, y, POKE 782, x ve POKE 783, 0 komutlarından sonra vereceğiniz SYS 65520 komutlarıyla 'y' olarak verdiğiniz parametrenin gösterdiği satır silinecektir ve POKE'larla verdiğiniz x ve y değerleri kursörünüzün koyulacağı satırı belirtecektir. Bu kısa program BASIC programlarınızda kullanmanız için idealdir ve eminiz ki size büyük kolaylıklar sağlayacaktır.

PROGRAM ADI : SATIR SİLİCİ
00015 PRİNT "<CLR><LOSPACEDARA CUBUGUNA B
<1868>
COMMODOR
<201)>
00025 PRİNT "<LOSPACEYARA CUBUGUNA BASINI
Z * <127>
00030 <009>
00040 POKE 198,1 <012>
00050 GOSUB 100:5YS 59903:REM SATIRI SİL
<255>
<019>
<016>

ASINIZ "
00020 FOR Asi TO 23:PRİNT
E DERGİSİ ABUR-CUBUR !

00060 Xs#X-1:1F THEN 15
00070 GOTO 40
00100 POKE 781,X:POKE 782,Y:POKE 783,0:5Y

S 65520:RETURN <145>