home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 21
/
64er_Magazin_Sonderheft_21_19xx_Markt__Technik_de_Side_B.d64
/
startadressen
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
30 lines
60000 print"[147]","startadressen von",,,"[157][157]m-programmen im basic[154]"
60010 print" haben sie mehrere m-prg in basic-zeilen mit merge [146]";
60020 print" verknuepft und dieses pro- gramm angehaengt, werden ";
60030 print"die start- adressen automatisch ermittelt.
60040 [153]" zugleich erfolgt eine neue nummerierung dieser zeilen ab 1 in";
60050 [153]" einerschritten."
60060 [133]" anzahl der zeilen ";az$:az[178][197](az$)
60070 [139]az[178]0[167][153]"on on":[137]60060
60080 [153]"load openwarten sie bittecont"
60090 z[178]0:n[178]1:an[178]2051:en[178]an[170]az[172]256:[134]sa(100)
60100 [153]""n"cmd. zeile":[151]an,n:an[178]an[170]3:sa(n)[178]an:n[178]n[170]1
60105 [139]n[177]az[167][153]"":[137]60130
60110 [129]i[178]an[164]en:[139][194](i)[179][177]0[167][130]
60120 an[178]i[170]3:i[178]en:[130]:[137]60100
60130 [153],"cmd";:[129]i[178]1[164]6:[139]sa(i[170]z)[167][153]sa(i[170]z)"cmd";
60135 [130]:z[178]z[170]6:[153]:[139]z[179]az[167]60130
60140 [153]" adressen auch ausdrucken? (j/n)"
60150 [161]a$:[139]a$[178]"n"[167]60200
60160 [139]a$[179][177]"j"[167]60150
60170 [153]" wenn drucker bereit, dann shiftcont":[146]653,1:z[178]0:[159]4,4:[157]4
60180 [153],:[129]i[178]1[164]6:[139]sa(i[170]z)[167][153]sa(i[170]z)"cmd";
60185 [130]:z[178]z[170]6:[153]:[139]z[179]az[167]60180
60190 [152]4:[160]4
60200 [153]" ein tip: adressen in rem-zeilen fassen bzw variablen zuordnen!"
60210 [153]" soll dieses suchprogramm ",," geloescht werden (j/n)?"
60220 [161]a$:[139]a$[178]"n"[167][128]
60230 [139]a$[179][177]"j"[167]60220
60240 a[178][194](45)[170][194](46)[172]256[171]1178:[151]251,a[175]255:[151]252,a[173]256
60250 [151]a[171]2,0:[151]a[171]1,0:[151]45,[194](251):[151]46,[194](252):[156]