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