home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 105
/
Tiger_Disk_105_20xx_Tiger-Crew-Disk_de_Side_B.d64
/
zeilenloescher
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2023-02-26
|
475b
|
11 lines
1 ifa=0thenpoke53281,peek(53280):a=1:load"msp loe*",8,1
10 print"[147] zeilenloescher ":print"die jetzt geladene maschinensprache-"
11 print"routine ermoeglicht es dir, in einem basic-programm zeilen zu ";
12 print"loeschen:":print" [175][175][175][175][175][175][175][175][175][175][175][175]":print"einfach sys49243,x-y[146]";
13 print" eingeben.":print"'x' ist hierbei die erste zeile[146],"
14 print"die geloescht werden soll,"
15 print"'y' die letzte[146] zu loeschende zeile[146]."
16 print""tab(14)" tigercrew "
17 poke198,0:wait198,1:poke198,0
18 sys49243,1-17