home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 179 / 179.d81 / headercolor (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  69 lines
  1. 10 poke53281,0:poke53280,0:print"[147]":poke53371,0
  2. 20 dv=peek(186):ifdv<8thendv=8
  3. 30 dimc(16):fori=0to15:readc(i):next
  4. 40 data144,5,28,159,156,30,31,158,129,149,150,151,152,153,154,155
  5. 50 h$=chr$(141)+chr$(145)
  6. 60 print"[147][129]   [212][200][197] [205][201][199][200][212][217] [204][207][193][196][211][212][193][210] [200][197][193][196][197][210] [195][207][204][207][210][201][218][197][210]"
  7. 70 print"[155]            by [203]nees [195]alhoon
  8. 80 [153]" cont(1cont) ascormat a 1541 disk with a colored
  9. 90 print"     header.
  10. 100 [153]" (2cont) lenhange the header name and color
  11. 110 print"     on a formatted disk without
  12. 120 [153]"     re-formatting it.
  13. 130 poke198,0
  14. 140 geta$:ifa$<"1"ora$>"2"then140
  15. 150 m=1:ifa$="2"thenm=2
  16. 160 gosub630
  17. 170 fori=3to19:poke781,i:sys59903:next
  18. 180 print""
  19. 190 poke19,65:print"":input"[155][195]olor of header: ";c1
  20. 200 print"":input"[155][195]olor of files: ";c2
  21. 210 print"":input"[155][200]eader name (12 max.): ";hn$
  22. 220 iflen(hn$)>12thenprint"[145][145][145]":goto210
  23. 230 poke19,0:print
  24. 240 ifm=2then380
  25. 250 print:input"[155][201][196] ([197]nter nothing for short[206][197][215])";id$
  26. 260 iflen(id$)>2thenprint"[145][145][145]":goto250
  27. 270 print"[154]   [201]nsert disk to be formatted in
  28. 280 [153]"   drivesys"dv"contand press (NULL)(NULL)atnlenval.
  29. 290 poke198,0
  30. 300 geta$:ifa$=""then300
  31. 310 nn$=h$+chr$(c(c1))+hn$+chr$(c(c2))
  32. 320 ifid$<>""thennn$=nn$+","+id$
  33. 330 open15,dv,15,"n0:"+nn$:close15
  34. 340 print"[158][196]one!"
  35. 350 tq=ti
  36. 360 ifti<tq+200then360
  37. 370 goto60
  38. 380 print"[154]   [201]nsert disk to be renamed in
  39. 390 [153]"   drivesys"dv"contand press (NULL)(NULL)atnlenval.
  40. 400 poke198,0
  41. 410 geta$:ifa$<>" "then410
  42. 420 nn$=h$+chr$(c(c1))+hn$+chr$(c(c2))
  43. 430 iflen(nn$)<16thennn$=nn$+chr$(160):goto430
  44. 440 open15,dv,15,"i0"
  45. 450 open1,dv,5,"#"
  46. 460 print#15,"u1:5 0 18 0"
  47. 470 print#15,"b-p:5 144"
  48. 480 od$="":fori=1to16:get#1,a$:ifa$=""thena$=chr$(0)
  49. 490 od$=od$+a$:next
  50. 500 print"[154][207]ld name: "od$
  51. 510 print#15,"b-p:5 144"
  52. 520 print#1,nn$;
  53. 530 print#15,"u2:5 0 18 0"
  54. 540 print#15,"i0"
  55. 550 close1:close15
  56. 560 print"[154][206]ew name: "mid$(nn$,3,len(nn$)-3)
  57. 570 print"[158][196]one!"
  58. 580 print"      [154](1[154]) [193]nother   (2[154]) [209]uit
  59. 590 [161]a$:[139]a$[179]"1"[176]a$[177]"2"[167]590
  60. 600 [139]a$[178]"1"[167]60
  61. 610 [153]"loadopen":[128]
  62. 630 [151]214,20:[153]
  63. 640 [153]"0 print#peeklack 4 print#(NULL)urple  8 print#(NULL)range  12print# chr$rey 2
  64. 650 print"1 [152][215]hite 5 [152][199]reen   9 [152][194]rown   13[152] [204]t. [199]rn
  65. 660 [153]"2 print#(NULL)ed   6 print#peeklue   10 print#(NULL)t. (NULL)ed 14print# (NULL)t.peeklue
  66. 670 print"3 [152][195]yan  7 [152][217]ellow 11 [152][199]rey 1  15[152] [199]rey 3"
  67. 680 return
  68. 10000 d=peek(186):n$="0:headercolor":open15,d,15,"s"+n$:close15:saven$,d:end
  69.