home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1987 March
/
64er_Magazin_87-03_1987_Markt__Technik_de_Side_A.d64
/
boot-generator
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
37 lines
100 rem *********************
110 rem * *
120 rem * boot-generator *
130 rem * *
140 rem * *
150 rem * thomas nellessen *
160 rem * *
170 rem * *
180 rem * april '86 *
190 rem * *
200 rem *********************
210 :
220 print"[147] boot-generator eingabedaten"
230 print" ***************************":print
240 input" name des 1. progs.";a$:print
250 a$=left$(a$,16)
260 input" name des 2. progs.";b$:print
270 ifa$=b$thenprint"keine gleichen namen":fori=1to500:next:run
280 b$=left$(b$,16):lb=len(b$)
290 print" gib startadresse des masch.progs ein "
300 printlb+48"bytes ab startadresse erforderlich "
310 input" startadresse";ad
320 ad$=mid$(str$(ad+lb),2):la=len(ad$)
330 print"[147]new"
340 print"10 fori="ad"to"ad+47+lb":reada:pokei,a:next"
350 print"15 fori=631to"634+la":reada:pokei,a:next"
360 print"20 poke198,"4+la":load"chr$(34)a$chr$(34)",8,1
370 [153]"25 data";
380 [129]i[178]1[164]lb:[153]([198]([202](b$,i,1)))"cmd,";:[130]:[153]"cmd "
390 [153]"30 data162,8,160,1,32,186,255,169,"lb",162,0,160,192,32"
400 [153]"35 data189,255,169,0,32,213,255,134,45,132,46,32,94"
410 [153]"40 data166,169,82,162,213,160,13,141,119,2,142,120"
420 [153]"45 data2,140,121,2,169,4,133,198,96,83,89,83,";
430 [129]i[178]1[164]la:[153][198]([202](ad$,i,1))"cmd,";:[130]:[153]"13"
440 [153]:[153]"save"[199](34)[200](b$,11)".boot"[199](34)",8"
450 [129]i[178]631[164]640:[151]i,13:[130]:[151]198,10