home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 9 / Commodore_Disc_09_19xx_-_de.d64 / disk-tool.64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  10.2 KB  |  343 lines
  1. 7 open15,8,15
  2. 8 gosub5000
  3. 9 rem ***********************
  4. 10 fori=32768to32900:read da:pokei,da:nexti:sys32768
  5. 11 data076,006,128,076,073,128,120,173
  6. 12 data000,221,041,252,141,000,221,169
  7. 13 data055,141,024,208,169,204,141,136
  8. 14 data002,169,097,141,017,003,169,128
  9. 15 data141,018,003,160,000,132,003,169
  10. 16 data208,133,004,162,016,169,051,133
  11. 17 data001,177,003,072,169,048,133,001
  12. 18 data104,145,003,200,208,239,230,004
  13. 19 data202,208,234,169,055,133,001,088
  14. 20 data096,120,165,001,072,032,253,174
  15. 21 data032,235,183,169,048,133,001,160
  16. 22 data000,138,145,020,104,133,001,088
  17. 23 data096,165,020,072,165,021,072,032
  18. 24 data247,183,165,001,072,169,052,120
  19. 25 data133,001,160,000,177,020,168,104
  20. 26 data133,001,088,104,133,021,104,133
  21. 27 data020,076,162,179,255
  22. 28 rem *** 33 schriftzeichnen ***
  23. 29 data27,0,0,3,7,15,31,15,10,65,0,28,62,62,28,8,28,106
  24. 30 data28,0,128,224,240,248,252,248,168,66,0,28,62,62,28,8,28,106
  25. 31 data29,10,10,10,10,10,10,10,15,67,137,8,8,8,20,34,66,129
  26. 32 data30,168,168,168,168,168,168,168,248,69,137,8,8,8,20,34,66,129
  27. 33 data31,0,127,127,127,126,124,120,120,70,0,0,0,0,0,31,63,63
  28. 34 data33,0,255,253,255,63,31,15,15,71,0,0,0,0,0,152,140,124
  29. 35 data35,15,31,63,255,127,127,127,255,72,118,126,134,246,246,114,114,114
  30. 36 data36,120,124,126,127,126,126,126,127,74,127,127,127,127,127,119,112,112
  31. 37 data37,0,0,0,0,0,15,31,25,76,0,124,127,111,112,127,50,61
  32. 38 data38,0,0,0,0,0,224,240,48,77,0,254,253,252,28,254,14,254
  33. 39 data39,48,60,254,254,231,230,24,24,78,254,14,254,14,252,254,255,14
  34. 40 data40,25,121,127,127,103,103,24,24,80,63,48,63,49,126,127,127,6
  35. 41 data41,1,1,7,13,30,96,64,58,81,31,32,64,72,79,68,34,26
  36. 42 data42,240,8,8,8,176,16,16,8,82,240,8,4,36,228,36,72,144
  37. 43 data43,4,8,8,16,16,16,8,7,85,224,32,224,32,224,32,224,128
  38. 44 data44,8,8,8,16,16,32,32,192,86,7,4,7,4,7,4,7,1
  39. 45 data45,31,15,7,11,17,32,64,128,-1
  40. 46 readz
  41. 47 ifz<>-1thenfori=0to7:read da:sys32771,(55296+(z*8)+i),da:next i
  42. 49 ifz<>-1then46
  43. 50 close15:poke198,0:rem ** einleitung **
  44. 51 print"[147]":poke53280,0:poke53281,0:poke646,2
  45. 57 print"                                       [146]"
  46. 58 print"          [212][160][207][160][207][160][204][160][196][160][201][160][211][160][203][160][160]6 4         [146]"
  47. 59 print"                                       [146]"
  48. 60 poke646,1:  print"    created by s.martin  (c)  1987     [146]"
  49. 61 print"                                       [146]":poke646,1
  50. 62 print"    [\  _!  %&  )*  [193][194]  [198][199]  [204][205]  [209][210]"
  51. 63 print"    ]^  $#  ('  +,  [195][197]  [202][200]  [208][206]  [214][213]"
  52. 64 print"   [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  53. 65 print"   [165]sf[167][165]fm[167][165]qt[167][165]rf[167][165]cp[167][165]rd[167][165]dt[167][165]bm[167]
  54. 66 [153]"   tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab( "
  55. 67 [139]jpo[178]0[167]4600
  56. 68 x[178]2:y[178]11:[151]211,2:[151]214,y:[158]58732:[153]"-":[151]56334,0
  57. 69 [139]x[179]2[167][151]211,x:[151]214,y:[158]58732:[153]" ":x[178]38
  58. 70 [139]x[177]38[167][151]211,x:[151]214,y:[158]58732:[153]" ":x[178]2
  59. 71 dir[178]15[171]([194](jpo)[175]15):feu[178][194](jpo)[175]16
  60. 72 [139]dir[178]8[167]x[178]x[170]1:[137]100
  61. 73 [139]dir[178]4[167]x[178]x[171]1:[137]110
  62. 74 [139]feu[178]0[167][137]120
  63. 75 [137]69
  64. 100 [151]211,x:[151]214,y:[158]58732:[153]"-"
  65. 101 [151]211,x[171]1:[151]214,y:[158]58732:[153]" ":[137]69
  66. 110 [151]211,x:[151]214,y:[158]58732:[153]"-"
  67. 111 [151]211,x[170]1:[151]214,y:[158]58732:[153]" ":[137]69
  68. 120 [139]x[178]4[176]x[178]5[167]199
  69. 121 [139]x[178]8[176]x[178]9[167]300
  70. 122 [139]x[178]12[176]x[178]13[167]400
  71. 123 [139]x[178]16[176]x[178]17[167]500
  72. 124 [139]x[178]19[176]x[178]20[167]800
  73. 125 [139]x[178]24[176]x[178]25[167]999
  74. 126 [139]x[178]28[176]x[178]29[167]1500
  75. 127 [139]x[178]31[176]x[178]32[167]4000
  76. 128 [137]68
  77. 199 [151]56334,1:[143] ** scratch file **
  78. 201 [151]211,x:[151]214,y:[158]58732:[153]" ":[141]700
  79. 202 [151]211,10:[151]214,13:[158]58732:[153]"     scratch    wait":[141]4530
  80. 203 [151]211,11:[151]214,16:[158]58732:[153]"file name :"
  81. 204 c[178]17:[141]9000
  82. 205 [151]211,11:[151]214,17:[158]58732:[133]qw$
  83. 206 lk$[178]qw$:[141]9010
  84. 212 [159]15,8,15
  85. 213 [151]646,0:[137] 2000
  86. 214 [161]a$:[139]a$[178]""[167]207
  87. 215 [137]68
  88. 300 [151]56334,1:   [143] ** disk format. **
  89. 301 [151]211,x:[151]214,y:[158]58732:[153]" ":[141]700
  90. 302 [151]211,10:[151]214,13:[158]58732:[153]"   format.disk    wait":[141]4530
  91. 303 [151]211,11:[151]214,16:[158]58732:[153]"disk name:"
  92. 304 c[178]17:[141]9000
  93. 305 [151]211,11:[151]214,17:[158]58732:[133]fa$
  94. 306 lk$[178]fa$:[141]9010
  95. 310 [151]211,11:[151]214,18:[158]58732:[153]"fwaitormat. / lwaitoeschen"
  96. 311 [161]i$:[139]i$[178]""[167]311
  97. 312 [139]i$[178]"f"[167]315
  98. 313 [139]i$[178]"l"[167]2100
  99. 314 [137] 312
  100. 315 [151]211,11:[151]214,19:[158]58732:[153]"disk id  :"
  101. 316 c[178]20:[141]9000
  102. 317 [151]211,11:[151]214,20:[158]58732:[133]id$
  103. 318 hg$[178]id$:[141]9015
  104. 340 [159]15,8,15:[151]646,0:[137]2050
  105. 341 [137]68
  106. 399 [143] *** exit ***
  107. 400 [141]700:[151]56334,1
  108. 401 [151]211,11:[151]214,16:[158]58732:[153]"g o o d b y e "
  109. 402 [129]i[178]1 [164]600:[130]i
  110. 403 [153]"loadload"[170][199](34)[170]"$"[170][199](34)[170]",8":[153]"open4,4:cmd4:list"
  111. 405 [137]10000
  112. 500 [151]56334,1:     [143] ** neubenennung file **
  113. 501 [151]211,x:[151]214,y:[158]58732:[153]" ":[141]700
  114. 502 [151]211,10:[151]214,13:[158]58732:[153]"   rename file  wait":[141]4530
  115. 503 [151]211,11:[151]214,16:[158]58732:[153]"old   name :"
  116. 504 c[178]17:[141]9000
  117. 505 [151]211,11:[151]214,17:[158]58732:[133]df$
  118. 506 [151]211,11:[151]214,18:[158]58732:[153]"new   name  :"
  119. 507 c[178]19:[141]9000
  120. 508 [151]211,11:[151]214,19:[158]58732:[133]tu$
  121. 509 lk$[178]df$:[141]9010
  122. 510 hg$[178]tu$:[141]9015
  123. 517 [159]15,8,15:[151]646,0:[137]2060
  124. 518 [161]a$:[139]a$[178]""[167]518
  125. 542 [137]68
  126. 700 [143] ** window **
  127. 701 [151]211,7 :[151]214,12:[158]58732:[153]"                         "
  128. 702 [151]211,7 :[151]214,13:[158]58732:[153]"                         "
  129. 703 [151]211,7 :[151]214,14:[158]58732:[153]"                         "
  130. 704 [129]y[178]15[164]21
  131. 705 [151]211,7 :[151]214,y:[158]58732:[153]"sgn                       +":[130]y
  132. 706 [151]211,7 :[151]214,22:[158]58732:[153]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  133. 707 [142]
  134. 800 [143] *** copy ***
  135. 802 [151]56334,1:   [141]700:[151]211,10:[151]214,13:[158]58732:[153]"       copywait"
  136. 803 [141]4530
  137. 804 [151]211,8:[151]214,15:[158]58732:[153]" kwaitopieren / zwaitusammen f."
  138. 805 [161]i$:[139]i$[178]""[167]805
  139. 806 [139]i$[178]"k"[167]810
  140. 807 [139]i$[178]"z"[167]840
  141. 808 [137]805
  142. 810 [151]211,8:[151]214,16:[158]58732:[153]" file   name    :"
  143. 811 c[178]17:k[178]11:[141]9001
  144. 812 [151]211,8:[151]214,17:[158]58732:[133]lk$
  145. 814 [151]211,8:[151]214,18:[158]58732:[153]" copy   name     : "
  146. 815 c[178]19:k[178]11:[141]9001
  147. 816 [151]211,8:[151]214,19:[158]58732:[133]hg$
  148. 818 [141]9010:[141]9015
  149. 820 [159]15,8,15:[151]646,0:[137]2070
  150. 840 [151]211,8:[151]214,16:[158]58732:[153]"number of file 2/4:"
  151. 841 c[178]17:k[178]10:[141]9001
  152. 842 [151]211,8:[151]214,17:[158]58732:[133]nb$:nb[178][197](nb$)
  153. 843 [129]j[178]1[164]nb
  154. 844 [151]211,8:[151]214,18:[158]58732:[153]"file   name   ";j
  155. 845 c[178]19:k[178]10:[141]9001
  156. 846 [151]211,8:[151]214,19:[158]58732:[133]ma$(j)
  157. 847 i[178]1
  158. 848 o$[178][202](ma$(j),i,1):[139]o$[178]"."[167] 850
  159. 849 i[178]i[170]1:[137]848
  160. 850 ma$(j)[178][200](ma$(j),i[171]1)
  161. 851 [130]j
  162. 852 [151]211,8:[151]214,18:[158]58732:[153]"general    name  "
  163. 853 c[178]19:k[178]10:[141]9001
  164. 854 [151]211,8:[151]214,19:[158]58732:[133]lk$
  165. 855 [141]9010
  166. 872 [159]15,8,15:[151]646,0:[137]2080
  167. 998 [143] *** neubenennung disk ***
  168. 999 [151]56334,1:[141]700:[151]211,10:[151]214,13:[158]58732:[153]"   rename disk wait"
  169. 1000 [141]4530:i[178]1:d[178]0:x$[178]" "
  170. 1002 a[178]1:p$[178][199](160)
  171. 1004 i$[178]"i0"
  172. 1006 [159]1,8,15,i$:[141]1040
  173. 1008 [141]1032:r$[178]h$:[161]#2,x$,x$,c$,b$
  174. 1010 [151]211,8:[151]214,16:[158]58732:[153]"name:";r$
  175. 1012 [151]211,8:[151]214,17:[158]58732:[153]"id:";c$;b$
  176. 1014 [151]211,8:[151]214,18:[158]58732:[153]"new   name  :"
  177. 1015 c[178]19:k[178]11:[141]9001
  178. 1016 [151]211,8:[151]214,19:[158]58732:[133]lk$
  179. 1017 [141]9010:[129]i[178]1[164]16[171][195](lk$):lk$[178]lk$[170][199](32):[130]i
  180. 1020 [129]x[178]l[170]1[164] a:lk$[178]lk$[170]p$:[130]
  181. 1022 [152]1,"b-p:";2;144:[152]2,lk$;
  182. 1024 [152]1,"u2:";2;0;18;0:[141]1040
  183. 1028 [152]1,i$:[141]1040:[160]2
  184. 1030 [141]1032:[160]2:[160]1
  185. 1031 [137]50
  186. 1032 [159]2,8,2,"#":[141]1040:h$[178]""
  187. 1034 [152]1,"u1:";2;0;18;0:[141]1040
  188. 1036 [152]1,"b-p:";2;144:[129]x[178]a[164]16
  189. 1038 [161]#2,t$:h$[178]h$[170]t$:[130]:[142]
  190. 1040 [132]1,e,m$,j,k:[139]e[178]0[167][142]
  191. 1042 [151]211,6:[151]214,23:[158]58732:[153]"error";e;m$;j;"-";k
  192. 1044 [160]2:[160]1:[128]
  193. 1500 [143] *** directory ***
  194. 1501 [151]56334,1
  195. 1502 [153]"load          d i r e c t o r y            wait"
  196. 1504 a$[178]""
  197. 1505 [159]1,8,15,"i0":[132]1,a$:[139]a$[179][177]"00"[167][160]1:[137]51
  198. 1506 i$[178]"":[159]2,8,2,"#":[152]1,"u1:2 0 18 0":[153]:[153]
  199. 1507 [152]1,"b-p:"2;144:[153] "       ";
  200. 1508 [129]x[178]144[164]161:[161]#2,b$:[153]b$;:[130]
  201. 1509 [129]x[178]1[164]5:[161]#2,b$:i$[178]i$[170]b$:[153]b$;:[130]:[153]:[153]:t%[178]18:s%[178]1
  202. 1510 [152]1,"u1:"2;0;t%;s%:[152]1,"b-p"2;0:[161]#2,t$,s$
  203. 1511 t$[178]t$[170][199](0):s$[178]s$[170][199](0):t%[178][198](t$):s%[178][198](s$)
  204. 1512 n$[178]"":[129]po[178]2[164]226[169]32:typ$[178]"":[152]1,"b-p:"2;po
  205. 1513 [161]#2,typ$:[139]typ$[178]""[167] [137] 1523
  206. 1514 [152]1,"b-p:"2;po[170]28:[161]#2,lb$,hb$
  207. 1515 lb$[178]lb$[170][199](0):hb$[178]hb$[170][199](0):l[178][198](lb$)[170][198](hb$)[172]256
  208. 1516 [139]l[179]100[167][153]" ";:[139]l[179]10[167][153]" ";
  209. 1517 [153]l [199](34);:bo[178]0:n$[178]"":[152]1,"b-p:"2;po[170]3:c$[178]" "
  210. 1518 [129]z[178]1[164]16:[161]#2,c$
  211. 1519 [153]c$;:[139]c$[179][177][199](34)[167][139]c$[179][177][199](160)[167]n$[178]n$[170]c$
  212. 1520 [130]z
  213. 1521 [139][195](n$)[178]0[167]po[178]226:t%[178]0:[153][199](34):[137]1523
  214. 1522 [153]
  215. 1523 [130]
  216. 1524 [139]t%[179][177]18[167][137]1526
  217. 1525 [137]1510
  218. 1526 [152]1,"m-r"[199](250)[199](2):[161]#1,a$:a$[178]a$[170][199](0)
  219. 1527 [152]1,"m-r"[199](252)[199](2):[161]#1,c$:c$[178]c$[170][199](0):x[178][198](a$)[170][198](c$)[172]256
  220. 1528 [153][163]4)x;"block free.":[160]1:[160]2
  221. 1529 [153]:[153]"  f1: directory        f3:     menu   wait":n$[178]"" :a$[178]""
  222. 1530 [141]4531:[137]1500
  223. 1997 :
  224. 1998 [143] *** scratch  ***
  225. 1999 :
  226. 2000 [153]"loadprint#15,"[170][199](34)[170]"s0:"[170]lk$[170][199](34):[153]"goto50"
  227. 2010 [137]10000
  228. 2050 :
  229. 2051 [143] ***  format.  ***
  230. 2052 :
  231. 2053 [153]"loadprint#15,"[170][199](34)[170]"n0:"[170]lk$[170]","[170]hg$[170][199](34):[153]"goto50"
  232. 2054 [137]10000
  233. 2060 :
  234. 2061 [143] ***  rename file  ***
  235. 2062 :
  236. 2063 [153]"loadprint#15,"[170][199](34)[170]"r0:"[170]hg$[170]"="[170]lk$[170][199](34):[153]"goto50"
  237. 2064 [137]10000
  238. 2070 [153]"loadprint#15,"[170][199](34)[170]"c0:"[170]hg$[170]"=0:"[170]lk$[170][199](34):[153]"goto50"
  239. 2071 [137]10000
  240. 2080 [153]"loadprint#15,"[170][199](34)[170]"c0:"[170]lk$[170]"=0:";
  241. 2081 [129]i[178]1[164]nb[170]1:[139]i[178]nb[167][153]ma$(nb)[170][199](34)
  242. 2082 [153]ma$(i)[170]",0:";:[130]i
  243. 2083 [153]"goto50"
  244. 2084 [137]10000
  245. 2100 [143] *** disk loeschen  ***
  246. 2101 [159]15,8,15:[151]646,0
  247. 2102 [153]"loadprint#15,"[170][199](34)[170]"n0:"[170]lk$[170][199](34):[153]"goto50"
  248. 3000 [137] 10000
  249. 4000 [141]700:[151]211,15:[151]214,13:[158]58732:[153]"b a m     wait"
  250. 4010 [151]56334,1: [159]15,8,15,"i0"
  251. 4020 y$[178]""
  252. 4030 x$[178]""
  253. 4040 [150] [165]s(z)[178]2[174](s[171][181](s[173]8)[172]8)[175](sb([181](s[173]8)))
  254. 4050 [159]2,8,2,"#"
  255. 4060 [152]15,"u1:2,0,18,0"
  256. 4070 [152]15,"b-p:2,144"
  257. 4080 [129]i[178]1[164]20:[161]#2,a$:n$[178]n$[170]a$:[130]
  258. 4085 [151]211,11:[151]214,16:[158]58732:[153]"disk  name  :"
  259. 4090 [151]211,11:[151]214,17:[158]58732:[153]n$
  260. 4091 [151]211,11:[151]214,18:[158]58732:[153]"f1  for menu "
  261. 4092 [151]211,11:[151]214,19:[158]58732:[153]"et f3 to continu"
  262. 4110 [161]i$:[139]i$[178]" "[167]4110
  263. 4112 [139]i$[178][199](133)[167][160]2:a$[178]"":n$[178]"":ts[178]0:[137]50
  264. 4113 [139]i$[178][199](134)[167]4120
  265. 4114 [137]4110
  266. 4120 [152]15,"b-p:2,1"
  267. 4130 [161]#2, a$, a$, a$
  268. 4150 [153]"load"[170]y$[170]"   12345678901234567890123456789012345"
  269. 4160 [153]"          t r a c k s           1-35  "
  270. 4170 [129]i[178]20[164]0[169][171]1:[153]i:[130]
  271. 4180 [129]t[178]1[164]35:x[178]t[170]4:[141]4340:[130]
  272. 4200 [153]y$[170]""[170]"         block free :";ts[171]17
  273. 4205 a$[178]"":n$[178]"":ts[178]0
  274. 4210 [161]i$:[139]i$[178]""[137]4210
  275. 4290 [160]2:[160]15:[137]51
  276. 4340 [161]#2,sc$,a$,b$,c$
  277. 4350 ts[178]ts[170][198](sc$[170][199](0))
  278. 4360 sb(0)[178][198](a$[170][199](0))
  279. 4370 sb(1)[178][198](b$[170][199](0))
  280. 4380 sb(2)[178][198](c$[170][199](0))
  281. 4390 [153]y$[170][200](x$,x[171]1)[170]"cmd";
  282. 4400 [139]t[177]24[175]s[178]18[167][153]" ";:[137]4500
  283. 4410 o1$[178]"spc(":o2$[178]".":[139]t[178]18[167]o1$[178]"*wait":o2$[178]".wait":[143]  video inv.= dirrectory
  284. 4420 [129]s[178]0[164]20
  285. 4430 [139]t[179]18[167]4480
  286. 4440 [139]t[177]30[175]s[178]17[167][153]" ";:[137]4500
  287. 4450 [139]t[177]24[175]s[178]18[167][153]" ";:[137]4500
  288. 4460 [139]t[177]17[175]s[178]19[167][153]" ";:[137]4500
  289. 4470 [139]t[177]17[175]s[178]20[167][153]" ";:[137]4500
  290. 4480 [139][165]s(s)[178]0[167][153]o1$;:[137]4500
  291. 4490 [153]o2$;
  292. 4500 [153]"oncmd";
  293. 4510 [130]
  294. 4520 [142]
  295. 4530 [151]211,9:[151]214,15:[158]58732:[153]"f1:continu / f3:menu"
  296. 4531 [161]i$:[139]i$[178]""[167]4531
  297. 4532 [139]i$[178][199](133)[167][142]
  298. 4533 [139]i$[178][199](134)[167][137]50
  299. 4534 [137]4531
  300. 4540 [142]
  301. 4599 [143] *** port des joysticks ***
  302. 4600 [151]211,1:[151]214,13:[158]58732:[153]"             "
  303. 4601 [151]211,1:[151]214,14:[158]58732:[153]"  joystick   "
  304. 4602 [151]211,1:[151]214,15:[158]58732:[153]"             "
  305. 4603 [129]y[178]16[164]19
  306. 4604 [151]211,1:[151]214,y:[158]58732:[153]"sgn           +":[130]y
  307. 4605 [151]211,1:[151]214,20:[158]58732:[153]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  308. 4606 [151]211,2:[151]214,17:[158]58732:[153]"port joys.:"
  309. 4607 [151]211,2 :[151]214,18:[158]58732:[133]jpo$
  310. 4608 i[178]1
  311. 4609 u$[178][202](jpo$,i,1):[139]u$[178]" "[167] 4611
  312. 4610 i[178]i[170]1:[137]4609
  313. 4611 ty[178][197]([200](jpo$,i[171]1)):[139]ty[178]1[167]jpo[178]56321:[137]68
  314. 4612 jpo[178]56320:[137]68
  315. 5000 [143] ** einleitung **
  316. 5002 [153]"load":[151]53280,0:[151]53281,0:[151]646,1
  317. 5004 [153]:[153]:[153]:[153]:[153]
  318. 5010 [153]"                  (NULL)right$                                      mid$(NULL)"
  319. 5011 [153]"  (NULL)str$str$right$(NULL)str$right$(NULL)str$right$(NULL)right$ orlenright$(NULL)right$(NULL)str$right$(NULL)right$(NULL)lenright$ (NULL)str$str$right$(NULL)right$"
  320. 5012 [153]"  mid$right$(NULL)(NULL)chr$(NULL)left$chr$(NULL)left$chr$left$ peek(NULL)left$chr$left$peek(NULL)(NULL)peekmid$(NULL)(NULL)(NULL) peek(NULL)len(NULL)chr$peek"
  321. 5013 [153]"   peekpeek chr$ left$chr$ left$chr$mid$right$peek left$chr$left$peekmid$right$peek(NULL)right$mid$right$ peekmid$lenright$chr$peek(NULL)right$"
  322. 5014 [153]"   mid$(NULL) mid$asc(NULL)mid$asc(NULL)mid$asc(NULL)/len(NULL)mid$(NULL)mid$right$peekmid$(NULL)mid$len(NULL) peek(NULL)right$peekchr$mid$(NULL)peek"
  323. 5015 [153]"  (NULL)lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen(NULL)peek      peekmid$(NULL)peekmid$lenright$peek"
  324. 5016 [153]"  mid$lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen(NULL)      mid$ascasc(NULL)  mid$(NULL)":[153]:[153]:[153]:[153]:[153]
  325. 5025 [153]:[153]" created by s.martin  (c) january 1987"
  326. 5026 [153]"        for  cbm 64 & vic-1541"
  327. 5027 [129]i[178]1[164]1200:[130]
  328. 5028 [153]"load":[142]
  329. 9000 k[178]13
  330. 9001 [151]211,k:[151]214,c:[158]58732:[153]"................"
  331. 9002 [142]
  332. 9010 i[178]1
  333. 9011 o$[178][202](lk$,i,1):[139]o$[178]"."[167] 9013
  334. 9012 i[178]i[170]1:[137]9011
  335. 9013 lk$[178][200](lk$,i[171]1)
  336. 9014 [142]
  337. 9015 i[178]1
  338. 9016 z$[178][202](hg$,i,1):[139]z$[178]"."[167] 9018
  339. 9017 i[178]i[170]1:[137]9016
  340. 9018 hg$[178][200](hg$,i[171]1)
  341. 9019 [142]
  342. 10000 [151]631,19:[151]632,13:[151]633,13:[151]634,13:[151]198,4
  343.