home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 55 / 055.d81 / diskwriter (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  7KB  |  245 lines
  1. 3 poke816,165:poke817,244:poke808,234
  2. 4 ifldthen112
  3. 5 poke53280,6:poke53281,0:print"[147]":s$=""
  4. 7 xl$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  5. 10 print""xl$chr$(13)"[158][196]iskwriter [205]enu"
  6. 15 prints$"[198][146]ormat a [198][197][197][196][194][193][195][203] disk from a blank"
  7. 20 prints$"[197][146]nter [196]iskwriter [197]ditor"
  8. 25 prints$"[210][146]eturn to [204]oadstar"
  9. 30 print"[159][208]ress [198], [197], or [210]
  10. 32 [153]""xl$
  11. 35 [141]55000:[139]r$[179][177]"e"[175]r$[179][177]"r"[175]r$[179][177]"f"[167]35
  12. 40 [139]r$[178]"f"[167][141]50000:[160]15:[156]:[137]5
  13. 45 [139]r$[178]"e"[167]110
  14. 50 [159]15,8,15,"r0:hello connect=hello connect":[132]15,e:[160]15:[139]e[179][177]63[167]60
  15. 55 [151]56,160:[151]650,0:[151]808,237:[156]:[151]178,255:[147]"hello connect",8
  16. 60 [153]"def(NULL)lease (NULL)lace (NULL)oadstar right$n (NULL)(NULL)(NULL)(NULL) str$rive!":[129]t[178]1[164]1800:[130]:[137]5
  17. 100 [151]650,255:[151]808,239:[153]"";:[137]110
  18. 101 xx[178]0:[139]xy[179]760[167][142]
  19. 102 [153]"(NULL)ut of lines!!!":[129]t[178]1[164]500:[130]:[153]"on                 "
  20. 103 xx[178][171]1
  21. 104 [142]
  22. 110 [139][194](49156)[179][177]34[167]40000
  23. 112 [153]" right$nsert your asceedback disk in the drive  and press a key."
  24. 113 [151]198,0:[146]198,1:[161]t$
  25. 115 ld[178]0: [141]125:[151]55,0:[151]56,39:[156]:s[178]10000:[151]53272,23
  26. 120 xl$[178]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan":[137]135
  27. 125 [151]1020,1:[151]1021,19:[151]1022,0:[151]1023,39:[142]
  28. 130 :
  29. 135 iprc[178]49447 :lsav[178]49429: xd$[178]""
  30. 140 mttp[178]49432 :mbot[178]49435
  31. 145 sdwn[178]49414 :scup[178]49411
  32. 150 sfil[178]49417 :lfil[178]49420
  33. 155 lmov[178]49441 :mwip[178]49438
  34. 160 dchr[178]49423 :ichr[178]49426
  35. 165 wwrp[178]49444 :clsm[178]49408
  36. 170 mdel[178]49450 :mins[178]49453
  37. 175 wchk[178]49456 :prnt[178]49459
  38. 180 [158] mwip
  39. 182 [141]885
  40. 185 [141]770
  41. 190 [150][165]s(x)[178]x[172]40[170]9960
  42. 195 [151]646,12:[158] clsm:[141]340:[141]445:ln[178]1:[137]200
  43. 200 ps[178]1465:[151]53272,23:t$[178]"x":[141]720:[137]210
  44. 205 [143] *
  45. 210 [161]c$:[139]c$[179][177]"" [167]230
  46. 215 [151]ps,[194](ps)[176]128
  47. 220 [161]c$:[139]c$[179][177]"" [167]230
  48. 225 [151]ps,[194](ps)[175]127:[137]210
  49. 230 [139]c$[178]""[167][141]680:[141]450:[138]
  50. 231 [151]150,[198](c$):[158]iprc:[139] [194](150)[178]0[167]310
  51. 232 [145][194](151)[137]236,250,255,260,265,270,275,280,285,290,295,300,305,306
  52. 235 [137]220
  53. 236 xy[178]ln:[141]101:[139]xx[167]245:[143] cr
  54. 240 [151]ps,[194](ps)[175]127:ps[178]1465:[158]lsav,ln:ln[178]ln[170]1:[158] scup:[158] mbot,ln[170]8
  55. 245 [137]320
  56. 250 [141]435:[137]220:ins char
  57. 255 [141]370:[137]220:crs lt
  58. 260 [141]385:[137]220:crs rt
  59. 265 [141]395:[137]220:crs up
  60. 270 [141]420:[137]220:crs dn
  61. 275 [141]510:[137]220:[174]d line del
  62. 280 [141]565:[137]220:[174]i line ins
  63. 285 [137]220
  64. 290 [141]800:[141]725:[137]220:[174]p [153]er
  65. 295 [141]350:[137]220:del char
  66. 300 [137]220:[174]x exit
  67. 305 [141]885:[137]220:[174]h help
  68. 306 [141]1000:[137]220:[174]f functi[145]s
  69. 310 lp[178][194](49151[170][198](c$))
  70. 315 [151]ps,lp:ps[178]ps[170]1:[139]ps[178]1503[167] ps[178]1465:[141]470:[158]lsav,ln:[158] mbot,ln[170]8
  71. 320 [139]ln[177]nl[167]nl[178]ln
  72. 325 [137]210
  73. 330 :
  74. 335 :
  75. 340 [129]t[178]55736[164]55776:[151]t,7:[130]:[142]
  76. 345 [143] *del char*
  77. 350 [139] ps[179]1466 [167] [142]
  78. 355 [151]150,ps[171]1465:[151]ps,[194](ps)[175]127:[158] dchr
  79. 360 ps[178]ps[171]1:[142]
  80. 365 [143] *cur lf
  81. 370 [139] ps[177]1465 [167][151]ps,[194](ps)[175]127:ps[178]ps[171]1
  82. 375 [142]
  83. 380 [143] *cur rt*
  84. 385 [139] ps[179]1502 [167][151]ps,[194](ps)[175]127:ps[178]ps[170]1
  85. 390 [142]
  86. 395 :
  87. 400 [139]ln[178]1[167][153]"             (NULL)tart of textprint#":[141]645:[142]
  88. 405 [151]ps,[194](ps)[175]127:[158]lsav,ln:ln[178]ln[171]1:[158]sdwn
  89. 410 [139] ln[177]10[167] [158]mttp,ln[171]10
  90. 415 [142]
  91. 420 [143] *** cursor down ***
  92. 425 [139]ln[177][178]nl[167][141]635:[142]
  93. 430 [151]ps,[194](ps)[175]127:[158]lsav,ln:ln[178]ln[170]1:[158] scup:[158] mbot,ln[170]8:[142]
  94. 435 [143] *** insert character ***
  95. 440 [151]ps,[194](ps)[175]127:[151]150,ps[171]1463:[158] ichr:[142]
  96. 445 :
  97. 450 [153]"list or"xl$"^"
  98. 455 [151]ps,[194](ps)[175]127
  99. 460 [129]t[178]1[164]3:[153]" (NULL)                                    (NULL)":[130]t
  100. 465 [153]" /"xl$"exponononon";:[142]
  101. 470 :
  102. 475 xy[178]ln:[141]101:[139]xx[167][142]
  103. 476 xf[178]0:[139][194](1502)[178]32[167]xf[178][171]1
  104. 480 sm[178][165]s(ln[170]1):[151]251,[181](sm[173]256):[151]250,sm[171][194](251)[172]256
  105. 485 fm[178][165]s(nl):[151]253,[181](fm[173]256):[151]252,fm[171][194](253)[172]256
  106. 490 [158]wchk:[139][194](150)[179][177]0[167][151]1020,12:[158]sdwn:[158]mins:nl[178]nl[170]1:[151]1020,1
  107. 495 [158] wwrp:ps[178][194](150)[170]1464:[158]lsav,ln:[158] scup:ln[178]ln[170]1
  108. 500 [139]xf[178][171]1[167]ps[178]1465
  109. 505 [142]
  110. 510 :
  111. 515 [139] nl[178]0 [167] [142]
  112. 520 [153]xd$"str$eleting a line..."
  113. 525 sm[178][165]s(ln):[151]251,[181](sm[173]256):[151]250,sm[171][194](251)[172]256
  114. 530 sm[178][165]s(nl[170]1):[151]253,[181](sm[173]256):[151]252,sm[171][194](253)[172]256:[158] mdel
  115. 535 [151]1020,11:[158] scup:[141]125:ps[178]1465:nl[178]nl[171]1
  116. 540 [158]lsav,ln:[158] mbot,ln[170]8
  117. 545 [141]665:[151]150,0:[151]151,0
  118. 550 [151]152,0:[151]153,o
  119. 555 [139] nl[179]ln [167] [141]395
  120. 560 [142]
  121. 565 [143] *** add a line ***
  122. 570 xy[178]nl:[141]101:[139]xx[167][142]
  123. 571 [153]xd$"cmdright$nserting a line..."
  124. 575 sm[178][165]s(ln):[151]251,[181](sm[173]256):[151]250,sm[171][194](251)[172]256
  125. 580 fm[178][165]s(nl):[151]253,[181](fm[173]256):[151]252,fm[171][194](253)[172]256:[158] mins
  126. 585 :nl[178]nl[170]1
  127. 590 [151]ps,[194](ps)[175]127:[151]1020,11:[158]sdwn:[141]125:ps[178]1465
  128. 600 [141]665:[151]150,0:[151]151,0:[151]152,0
  129. 605 [151]153,0:[142]
  130. 635 [143] buzzer
  131. 640 [153]xd$"valnd of text"
  132. 645 [129]t[178]1[164]40:[130]t:[137]665
  133. 650 [151]54296,15:[151]54277,45:[151]54278,165
  134. 655 [151]54276,33:[151]54273,6:[151]54272,5
  135. 660 [129]t[178]1[164]200:[130]:[151]54276,32:[151]54273,0:[151]54272,0:[151]198,0:[142]
  136. 665 [153]"                               ":[142]
  137. 670 :
  138. 675 :
  139. 677 [141]450:[153]"atnre you sure you want to exit?(y/n)"
  140. 678 [161]d$:[139]d$[178]"" [167]678
  141. 679 [139]d$[179][177]"y"[167] ow[178]0:[142]
  142. 680 [158]lsav,ln
  143. 681 [141]450:[153]"saving 'comments'":[159]15,8,15,"r0:comments=0:comments"
  144. 685 ow[178][171]1:[132]15,a$:[139] a$[179][177]"63"[167]710
  145. 690 [153]"onfile exists! replace?(y/n)";:[141]650
  146. 695 [161] r$:[139]r$[179][177]"y"[175]r$[179][177]"n" [167]695
  147. 700 [139] r$[178]"n"[167] [160]15:[142]
  148. 705 [153]" clr(NULL).(NULL).print#":[152]15,"s0:comments":[160]15
  149. 710 [151]251,(nl[170]1)[173]256:[151]250,256[172]((nl[170]1)[173]256[171][194](251)):[158] sfil
  150. 715 sv[178][171]1:[142]
  151. 720 [143] *** menu ***
  152. 725 [151]ps,[194](ps)[175]127:[158]lsav,ln:[141]450
  153. 730 [153]"print#[len(NULL)(NULL)(NULL)]openright$print#waitnsert line  [len(NULL)(NULL)(NULL)]open(NULL)print#waitrinter"
  154. 735 [153]"[len(NULL)(NULL)(NULL)]openstr$print#waitelete line  [len(NULL)(NULL)(NULL)]openvalprint#waitxit and"
  155. 740 [153]"[len(NULL)(NULL)(NULL)]openleft$print#waitelp               save text"
  156. 745 [139] t$[178]"x"[167] [142]
  157. 750 [141]55000:me$[178]r$
  158. 755 [139] me$[178]"d"[176]me$[178]"i"[176]me$[178]"p"[176]me$[178]"h"[176]me$[178]"s"[176]me$[178]"x"[167] [142]
  159. 760 [137]750
  160. 765 [143] *** load
  161. 770 [153]"load":[141]445:[153]"loading 'comments'":[158]mwip
  162. 775 [158]lfil:nl[178][194](250)[170][194](251)[172]255:[139]nl[179][177]0 [167]790
  163. 780 :
  164. 785 [159]15,8,15:[132]15,s$:[160]15:[142]
  165. 790 [129]t[178]1[164]9:[158] mbot,t:[158]scup:[130]t:[158]sdwn:[141]340:[142]
  166. 795 [143] *** printer options ***
  167. 800 [158]lsav,ln:[141]450
  168. 805 [153]"       ===== (NULL)(NULL)right$(NULL)(NULL)val(NULL)print# ====="
  169. 810 [153]"(NULL)eady printer and hit space bar."
  170. 815 [153]"(NULL) to cancel.                    "
  171. 820 [161]p$:[139]p$[178]"" [167]820
  172. 825 [139]p$[179][177]" "[167] [153]"on(NULL).(NULL)., don't print.":[129]t[178]1[164]699::[130]t:[142]
  173. 830 [159]4,4,7:[157]4:[153][199](17);
  174. 8