home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 3 #10
/
Commodore_Disk_User_Vol.3_10_1990_-.d64
/
superboot!
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
69 lines
10 poke53281,0:poke53280,12
20 print"[147][155] superboot! "
30 n$="":b$="!":s=0:f=0:b=1:nf=1
40 input"main program name ";n$
50 l=len(n$)
60 if l>15 then print"filename too long":print"rename if necessary.":end
70 print"boot symbol for autoboot or "
80 input"press return for ! symbol ";b$
90 f$=b$+n$
100 print"autoboot file is ";f$;" "
110 print"sys address for main program or "
120 input"<return> if basic.";s
130 print"sys address to activate first load or "
140 input"<return> if no first load ";f
150 if s then sh=int(s/256):sl=s-sh*256:b=0
160 if f then fh=int(f/256):fl=f-fh*256:nf=0
170 open15,8,15,"i"
180 open2,8,2,f$+",p,w"
190 print#2,chr$(167);chr$(02);
200 print#2,chr$(l);n$;
210 if f then gosub 500
220 if nf then gosub 600
230 if b then gosub 700
240 if s then gosub 800
250 n=56-l
260 if f then n=n-20
270 if b then n=n-12
280 if n=0 then 310
290 fork=1ton:print#2,chr$(0);
300 next
310 print#2,chr$(139);chr$(227);
320 print#2,chr$(168+l);chr$(02);
330 close 2
340 print" dos message [146]";
350 get#15,e$:e=st
360 printe$;:ife=0then350
370 close 15
380 print"to boot - load "chr$(34);f$;chr$(34)",8,1 "
390 if nf then 420
400 print"copy first load file "
410 print"to disc and rename "chr$(34);b$;chr$(34)" "
420 end
500 for k=1to14:read a:print#2,chr$(a);
510 next
520 print#2,chr$(32);chr$(fl);chr$(fh);
530 for k=1to3:read a:print#2,chr$(a);
540 next
550 return
600 fork=1to17:read a:next
610 return
700 fork=1to44:read a:print#2,chr$(a);
710 next
720 return
800 for k=1to12:read a:print#2,chr$(a);
810 next
820 for k=1to6:read a:next
830 for k=1to17:read a:print#2,chr$(a);
840 next
850 print#2,chr$(76);chr$(sl);chr$(sh);
860 return
900 data 169,001,166,187,164,188,032,189
910 data 255,169,000,032,213,255,032,068
920 data 166,173,167,002,162,168,160,002
930 data 032,189,255,169,000,133,185,166
940 data 043,164,044,032,213,255,169,131
950 data 141,002,003,169,164,141,003,003
960 data 134,045,132,046,032,089,166,032
970 data 051,165,076,174,167