home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 157
/
157.d81
/
b.partitions
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
62 lines
1 rem partitions by ernie barkman 4/23/1989 makes 4 - 18 track
2 rem partitions on 1581 drive using tracks 1-18, 19-36, 43-61, and
3 rem 62-80 leaving tracks 37-42 free. track 40 is the directory track.
6 rem partition size=720 4th chr$=int(720/256) or 2
7 rem 3rd chr$=720-(4th chr$*256)or 208
8 rem 2nd chr$=0 or first sector
9 rem 1st chr$=starting track
10 poke53281,0:poke53280,0:print"[147]"
11 print"[129] [212][200][197] [205][201][199][200][212][217] [204][207][193][196][211][212][193][210] 1581 [208][193][210][212][201][212][201][207][206][197][210]
12 [153]"cont peeke careful if you're booting this
13 print" from [204][207][193][196][211][212][193][210]. [207]nce it's booted,
14 [153]" remove the (NULL)(NULL) disk and insert a for-
15 print" matted 1581 disk in your 1581 drive.
16 [153]" valnter your 1581 device number: ";
20 [133] dv:[139]dv[179]8[167]dv[178]8
30 [153]" (NULL)he 3.5 inch disk must be formatted
32 print" with no programs or partitions on it.
40 [153]" (1cont) lenontinue.
42 print" (2[154]) [209]uit to [204][207][193][196][211][212][193][210].
50 [161]a$:[139]a$[179]"1"[176]a$[177]"2"[167]50
60 [139]a$[178]"2"[167]40000
70 q$[178][199](34)
100 [159]15,dv,15
115 [153]"loadopen (NULL)ow working on partition #1,":[153]" named "q$"side 1"q$"."
130 [152]15,"/0:side 1,"[170][199](1)[170][199](0)[170][199](208)[170][199](2)[170]",c"
140 [152]15,"/0:side 1"
150 [152]15,"n0:side 1,s1"
200 [152]15,"/"
215 [153]"open (NULL)ow working on partition #2,":[153]" named "q$"side 2"q$"."
230 [152]15,"/0:side 2,"[170][199](19)[170][199](0)[170][199](208)[170][199](2)[170]",c"
240 [152]15,"/0:side 2"
250 [152]15,"n0:side 2,s2"
300 [152]15,"/"
315 [153]"open (NULL)ow working on partition #3,":[153]" named "q$"side 3"q$"."
330 [152]15,"/0:side 3,"[170][199](43)[170][199](0)[170][199](208)[170][199](2)[170]",c"
340 [152]15,"/0:side 3"
350 [152]15,"n0:side 3,s3"
400 [152]15,"/"
415 [153]"open (NULL)ow working on partition #4,":[153]" named "q$"side 4"q$"."
430 [152]15,"/0:side 4,"[170][199](62)[170][199](0)[170][199](208)[170][199](2)[170]",c"
440 [152]15,"/0:side 4"
450 [152]15,"n0:side 4,s4"
500 [152]15,"/"
510 [160]15:[153]"cont atnll done..."
520 [153]" (1cont) str$o another disk
530 print" (2[154]) [210]eturn to [204][207][193][196][211][212][193][210]
540 [151]198,0
550 [161]a$:[139]a$[179]"1"[176]a$[177]"2"[167]550
560 [139]a$[178]"1"[167][138]
570 [137]40000
10000 d[178][194](186):n$[178]"b.1581 partition":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
40000 [129]i[178]8[164]29:[151]820[170]i,i:[130]:[139]dv[177]8[175]dv[179]30[167][151]828,dv:[151]820[170]dv,8
40010 a$[178]"presenter":[141]40030:a$[178]"hello connect":[141]40030
40020 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
40030 [129]j[178]8[164]29:i[178][194](820[170]j):[139]i[178]14[167][130]
40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
40060 [130]:[142]
40070 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]