home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 35 / 035.d81 / diskwriter (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  6.9 KB  |  245 lines
  1. 3 poke816,165:poke817,244
  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:setup=setup":[132]15,e:[160]15:[139]e[179][177]63[167]60
  15. 55 [151]56,160:[151]650,0:[151]808,237:[156]:[147]"hello connect",8
  16. 60 [153]"def(NULL)lease (NULL)lace (NULL)oadstar (NULL)ide 2 in 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$[178]"" [167]695
  147. 700 [139] r$[179][177]"y"[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. 831 lc[178]0:lp[178]1
  175. 832 [139]nl[171]lp[179]120[167]836
  176. 833 [129]i[178]lp[164]lp[170]59:rs[178]60:[141]863:[130]
  177. 834 [139][194](203)[178]23[167]880
  178. 835 [153]:[153]:[153]:[153]:[153]:[153]:lp[178]lp[170]120:[137]832
  179. 836 rs%[178](nl[171]lp[170]2)[173]2:rs[178]rs%:[129]i[178]lp[164]lp[170]rs[171]1:[141]863
  180. 837 [130]
  181. 840 [153]"";:[161]k$:[160]4:[142]
  182. 860 :
  183. 863 m1[178][165]s(i):m2[178][165]s(i[170]rs)
  184. 864 [151]151,m1[173]256:[151]150,256[172](m1[173]256[171][194](151)):[158]prnt
  185. 866 [151]151,m2[173]256:[151]150,256[172](m2[173]256[171][194](151)):[158]prnt
  186. 867 [142]
  187. 868 :
  188. 885 [143] help screen ***
  189. 890 [151]ps,[194](ps)[175]127:[158]lsav,ln:[153]"load"
  190. 895 [153]"sys        (NULL)elcome to str$right$(NULL)(NULL)(NULL)(NULL)right$(NULL)val(NULL)print#"
  191. 900 [153]"                                       "
  192. 905 [153]" (NULL)o move the cursor, use the len(NULL)(NULL)(NULL) keys,"
  193. 910 [153]" or press (NULL)val(NULL)(NULL)(NULL)(NULL) to move down a line."
  194. 915 [153]" (NULL)o insert a line, press control-right$."
  195. 920 [153]" (NULL)o delete a line, press control-str$."
  196. 935 [153]" (NULL)o exit and save your feedback, press"
  197. 936 [153]" control-val."
  198. 940 [153]"                                      "
  199. 945 [153]" (NULL)ow press the (NULL) key and start typing."
  200. 950 [161] t$:[139] t$ [178] "" [167]950
  201. 955 [139] t$[179][177]"x" [167]950
  202. 960 [153]"load":[151]646,12:[158] clsm
  203. 965 [141]450:[141]730:[141]340
  204. 970 [129]p[178]ln[171]10[164]ln[170]7
  205. 975 [139] p[179]1[167]985
  206. 980 [158] mbot,p:[158] scup
  207. 985 [130]p:[158] mbot,p
  208. 990 [141]340:[142]
  209. 999 [143] *** functions ***
  210. 1000 [142]
  211. 40000 [160]15:[159]15,8,15,"r0:diskwriter ml.o=diskwriter ml.o":[132]15,e:[160]15
  212. 40010 [139]e[178]63[167]40050
  213. 40020 [153]"load(NULL)lease reinsert (NULL)oadstar disk and press a key.":[141]55000:[137]40000
  214. 40050 [153]"loadsysloading":ld[178][171]1:[147]"diskwriter ml.o",8,1
  215. 49990 [143] *** check disk routine ***
  216. 50000 [153]"loadright$nsert disk to format & press a key":[134]se%(255):[159]15,8,15
  217. 50005 [141]55000:[159]8,8,8,"#":[152]15,"b-p:"8;0
  218. 50010 [151]53280,6:dn$[178]""
  219. 50020 [152]15,"u1:"8;0;18;0:[141]50280
  220. 50030 :
  221. 50040 [139]er[179][177]0[167]50080
  222. 50050 [129]x[178]0[164]162:[161]#8,a$:se%(x)[178][198](a$[170][199](0)):[153]".";:[130]
  223. 50060 [129]x[178]144[164]161:dn$[178]dn$[170][199](se%(x)):[153]":";:[130]
  224. 50070 [137]50100
  225. 50080 [153]"load(NULL)orking..."
  226. 50082 [152]15,"n0:diskwriter,jg":[141]50280:[139]er[178]0[167][142]
  227. 50085 [151]53281,0:[153]"loadvalrror - "er$".  (NULL)ress a key.":[137]55000
  228. 50090 :
  229. 50100 [160]8
  230. 50110 [153]"load":[151]53280,2:[153][166]10)"(NULL)closeatnclose(NULL)close(NULL)closeright$close(NULL)closechr$ ! ! !"
  231. 50120 [153]"  (NULL)ou now have a disk in your drive"
  232. 50130 [153]"   that has a name of ";dn$
  233. 50140 [153]"open  atnre you sure you want to erase it"
  234. 50150 [153][163]16)"(y/n)?"
  235. 50160 [141]55000:k$[178]r$:[139]k$[179][177]"y"[175]k$[179][177]"n"[167]50160
  236. 50170 [139]k$[178]"n"[167][142]
  237. 50210 [139][200](dn$,8)[179][177]"loadstar"[167]50080
  238. 50220 [153]"load (NULL)his is a (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) disk, are you"
  239. 50230 [153]" positive you want to erase it? (y/n)"
  240. 50240 [141]55000:[139]r$[179][177]"y"[175]r$[179][177]"n"[167]50240
  241. 50250 [139]r$[178]"n"[167][142]
  242. 50270 [137]50080
  243. 50280 [132]15,er,er$:[142]
  244. 55000 [151]198,0:[146]198,1:[161]r$:[142]
  245.