home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 August / 64er_Magazin_86-08_1986_Markt__Technik_de_Side_A.d64 / vokabeltrainer (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  19KB  |  818 lines
  1. 1000 rem"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  2. 1010 [143]"(NULL)   (NULL)okabeltrainer by:   (NULL)
  3. 1020 rem"[221]    [193]lfred [211]chnabel     [221]
  4. 1030 [143]"(NULL) atnnton-von-(NULL)ehner-(NULL)tr.5 (NULL)
  5. 1040 rem"[221] 8813 [211]chillingsfuerst  [221]
  6. 1050 [143]"(NULL)   (NULL)el. (09868) 1030    (NULL)
  7. 1060 rem"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
  8. 1070 :
  9. 1080 [151]53281,0:[151]53280,0:[151]646,0
  10. 1090 [153]"load"
  11. 1100 [141]7370:[141]7520:[143]"tantan right$nit tantan
  12. 1110 :
  13. 1120 poke650,128:gosub4000
  14. 1130 :
  15. 1140 rem"[176][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][174]
  16. 1150 [143]"(NULL) (NULL)rogramm  *** (NULL)peeder ***  (NULL)
  17. 1160 rem"[221]  [197]inzeiler aus der 64'er   [221]
  18. 1170 :
  19. 1180 [160]1:[159]1,8,15,"m-w"[170][199](7)[170][199](28)[170][199](1)[170][199](15):[160]1
  20. 1190 :
  21. 1200 [143]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp
  22. 1210 :
  23. 1220 rem"[192][192] [199]rundmaske [192][192]
  24. 1230 :
  25. 1240 [151]53280,0:[151]646,1:[151]53265,32
  26. 1250 qq[178]qq[170]1
  27. 1260 [151]53281,1:[153]"load";:[151]53281,6
  28. 1270 [129]i[178]1063[164]1983[169]40:[151]i,93:[151]i[170]1,93:[130]
  29. 1280 [151]1024,112:[151]1104,109:[151]1144,112:[151]1824,109
  30. 1290 [151]1864,112:[151]1984,109
  31. 1300 [151]1063,110:[151]1143,125:[151]1183,110:[151]1863,125
  32. 1310 [151]1903,110:[151]2023,125
  33. 1320 [129]i[178]1025[164]1062
  34. 1330 : [151]i,64:[151]i[170]80,64: [151]i[170]120,64:[151]i[170]800,64
  35. 1340 : [151]i[170]840,64:[151]i[170]960,64
  36. 1350 [130]
  37. 1360 [139]qq[178]2[167]1390
  38. 1370 [141]7650:[143]"left$ilf-(NULL)aske laden"
  39. 1380 [137]1250
  40. 1390 [151]53265,27
  41. 1400 :
  42. 1410 [143]"ortantantantantantantantantan^
  43. 1420 rem"[221]  [205]enue  [221]
  44. 1430 [143]"/tantantantantantantantantanexp
  45. 1440 :
  46. 1450 t$="[205] e n u e"
  47. 1460 gosub3660:gosub3770:rem"[212]itelb."
  48. 1470 print"[198]1 = [206]eue [214]okabeldatei einrichten"
  49. 1480 print"[198]3 = [194]estehende [214]okabeldatei aendern"
  50. 1490 print"[198]5 = [214]okabeln abfragen"
  51. 1500 print"[198]7 = [196]rucken"
  52. 1510 print"[196]isk-[205]enue:"
  53. 1520 print"1 = [196]irectory
  54. 1530 [153]"2 = ascilenamen aendern"
  55. 1540 [153]"3 = asciles loeschen"
  56. 1550 [153]"4 = ascormatieren"
  57. 1560 [153]"5 = (NULL)alidieren"
  58. 1570 [153]"6 = right$nitialisieren"
  59. 1580 [153]"asc8 = valnde"
  60. 1590 [151]211,1:[151]214,22:[158]58640
  61. 1600 [153]"peekitte waehlen (NULL)ie einen (NULL)enuepunkt"
  62. 1610 [141]3890: [143]"get"
  63. 1620 : [139] xx[178]133 [167] dn[178]1:[137]1880
  64. 1630 : [139] xx[178]134 [167]1720
  65. 1640 : [139] xx[178]135 [167]2260
  66. 1650 : [139] xx[178]136 [167]8800
  67. 1660 : [139] xx[178]140 [167]8760
  68. 1670 : xx[178][197](x$):[139] xx[178]0 [176] xx[177]6 [167] 1610
  69. 1680 : [145] xx [137]7920,7970,8260,8410,8600,8690
  70. 1690 :
  71. 1700 [143]"tantan (NULL)okabeln eingeben/aendern
  72. 1710 :
  73. 1720 t$="[214]okabeln aendern":gosub3660
  74. 1730 gosub4820:rem"[196]atei laden"
  75. 1740 if xe=140 then1410
  76. 1750 if vn>99 theni=vn:xe=133:goto1920
  77. 1760 if fe<>62 then1900
  78. 1770 :
  79. 1780 : gosub3810:rem"[200]ilfz"
  80. 1790 : close2
  81. 1800 : gosub3810:       rem"[200]ilfzeile"
  82. 1810 : print"[145][145][196]atei  "n$" [146] existiert nicht."
  83. 1820 : print"[211]oll [196]atei eingerichtet werden ? (j/n)"
  84. 1830 gosub3890:               rem"get"
  85. 1840 :   if x$="j" thendn=1:fi$=n$:gosub3660:       goto1910
  86. 1850 :   if x$="n" then1410
  87. 1860 goto1830
  88. 1870 :
  89. 1880 fi$="":t$="[206]eue [214]okabeldatei"
  90. 1890 gosub3660
  91. 1900 if dn=0 then1920
  92. 1910 i=1:vn=1
  93. 1920 x$="[215]oerter bisher eingegeben"
  94. 1930 gosub4460:rem"[214]okabel-[205]aske"
  95. 1940 gosub4530
  96. 1950 gosub5980
  97. 1960 if i>99 theni=vn:xe=134:goto6080
  98. 1970 if xe=140 then2000
  99. 1980 :
  100. 1990 i=vn
  101. 2000 : gosub5720:rem"[214]ok. erfassen"
  102. 2010 : if xe<>140 then2060
  103. 2020 : if d$(1)=". " then1410
  104. 2030 : gosub7280
  105. 2040 :   if x$="j" then2210
  106. 2050 :   if x$="n" then1410
  107. 2060 : if xe=139 then2140
  108. 2070 : if xe=133 or xe=134 or xe=137 or xe=138 then6050
  109. 2080 : ifxe= 136thenxe=134:goto6090
  110. 2090 gosub4530:     rem"[214]okabel-[205]aske"
  111. 2100 i=i+1:vn=vn+1
  112. 2110 if i<=99 then2000
  113. 2120 goto2170
  114. 2130 :
  115. 2140 if d$(1)=". " then2000
  116. 2150 goto2210
  117. 2160 :
  118. 2170 gosub3810:rem"[200]ilfzeile"
  119. 2180 print"[145][145]"spc(12)" [196]atei voll [146]"
  120. 2190 gosub3890:               rem"[199]et"
  121. 2200 gosub5980:   rem"[200]ilfzeile [197]ing."
  122. 2210 gosub7030:   rem"[196]atei speichern"
  123. 2220 if xe=140 theni=vn:goto1940
  124. 2230 clr:gosub7370:          rem"[201]nit"
  125. 2240 goto1410
  126. 2250 :
  127. 2260 rem"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  128. 2270 [143]"(NULL)  (NULL)okabeln abfragen  (NULL)
  129. 2280 rem"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
  130. 2290 :
  131. 2300 t$[178]"(NULL)okabeln abfragen"
  132. 2310 [141]3660:[141]3770:[143]"(NULL)itelb."
  133. 2320 x$[178]"(NULL)okabeln abgefragt"
  134. 2330 [141]4490:     [143]"(NULL)okabel-(NULL)aske"
  135. 2340 [141]4820:       [143]"str$atei laden"
  136. 2350 : [139] xe[178]140 [167]1410
  137. 2360 : [139] fe[178]0 [167] 2400
  138. 2370 :   [153]"str$atei existiert nicht"
  139. 2380 :   [141]3890:           [143]"chr$et"
  140. 2390 :   [137]2340
  141. 2400 [141]3770:x$[178]"(NULL)okabeln abgefragt":[141]4490
  142. 2410 [141]3810:         [143]"left$ilfzeile"
  143. 2420 [153]"onon f wait (NULL)okabeln frisch abfragen oder"
  144. 2430 [153]"tab(atab(wait so wie gespeichert ?"
  145. 2440 [141]3890:               [143]"chr$et"
  146. 2450 : [139] x$[178]"f" [167]3530
  147. 2460 : [139] x$[178]"a" [167]2490
  148. 2470 [137]2440
  149. 2480 :
  150. 2490 [141]3810:         [143]"left$ilfzeile"
  151. 2500 [153]"onon d wait = str$eutsch  -> valnglisch   !        wait"
  152. 2510 [153]"tab(etab(wait = valnglisch -> str$eutsch    !menue   "
  153. 2520 [141]3890:               [143]"get"
  154. 2530 : [139] x$[178]"e" [167] [153]"onon";:[137]2570
  155. 2540 : [139] x$[178]"d" [167] [153]"on"; :[137]2570
  156. 2550 : [139] x$[178]"restore" [167]2260
  157. 2560 [137]2520
  158. 2570 [153]"(NULL)oment bitte, ich sortiere."
  159. 2580 a$[178]x$
  160. 2590 [141]4650:      [143]"(NULL)(NULL) (NULL)ortieren"
  161. 2600 [141]3810:         [143]"left$ilfzeile"
  162. 2610 [153]"onon'(NULL)val(NULL)(NULL)(NULL)(NULL)' nicht gewusst"
  163. 2620 [153]"'asc1' atnbfrage beenden"
  164. 2630 :
  165. 2640 i[178]1
  166. 2650 [151]211,2:[151]214,5:[158]58640
  167. 2660 :[153][201]([196](i),[195]([196](i))[171]1);:[139]i[179]10[167][153]" "
  168. 2670 :
  169. 2680 [143]"tantan (NULL)okabel aussuchen tantantantantantantantantan
  170. 2690 ifng=0then3330:   rem"[193]lle gewusst
  171. 2700 k[178][181]([187](1)[172]ng)[170]1
  172. 2710 [139] a$[178]"d" [167]y1[178]11:y2[178]16:xd$[178]d$(k):xe$[178]e$(k)
  173. 2720 [139] a$[178]"e" [167]y1[178]16:y2[178]11:xd$[178]e$(k):xe$[178]d$(k)
  174. 2730 x[178][197]([202](xd$,2,1))
  175. 2740 xd$[178][201](xd$,[195](xd$)[171]2)
  176. 2750 xe$[178][201](xe$,[195](xe$)[171]2)
  177. 2760 [139] x[177][178]5 [167]x[178]x[171]1:[137]3190
  178. 2770 :
  179. 2780 [151]211,2:[151]214,y1:[158]58640
  180. 2790 [153]xd$
  181. 2800 [151]211,2:[151]214,y2:[158]58640
  182. 2810 en[178]36:po[178]p[170]y2[172]40[170]2:[141]4240:[143]"valing.
  183. 2820 if xe=133 then 3610
  184. 2830 :
  185. 2840 rem"[192][192] [199]ewusst oder nicht ? [192][192][192][192][192][192]
  186. 2850 [151]211,1:[151]214,y2:[158]58640
  187. 2860 [153]""x3$"":[153]"on";
  188. 2870 [153]xe$:[139]n$[178]""[167]3050
  189. 2880 x$[178]xe$
  190. 2890 j[178]1
  191. 2900 : [139] [202](x$,j,1)[178]"(" [167]2940
  192. 2910 j[178]j[170]1:[139] j[179][178][195](x$) [167]2900
  193. 2920 [137]2960
  194. 2930 :
  195. 2940 x$[178][200](x$,j[171]1)
  196. 2950 [139] [201](x$,1)[178]" " [167] x$[178][200](x$,[195](x$)[171]1):[137]2950
  197. 2960 j[178]1
  198. 2970 : [139] [202](x$,j,1)[178]";" [167]3000
  199. 2980 j[178]j[170]1:[139] j[177][195](x$) [167]3000
  200. 2990 [137]2970
  201. 3000 [139] n$[178][200](x$,j[171]1) [167]3160
  202. 3010 [139] j[177][195](x$) [167]3050
  203. 3020 x$[178][201](x$,[195](x$)[171]j)
  204. 3030 [137]2960
  205. 3040 :
  206. 3050 [143]"tantan (NULL)icht gewusst tantan
  207. 3060 :
  208. 3070 if x>0 then x=x-1
  209. 3080 xd$="."+right$(str$(x),1)+xd$
  210. 3090 ifa$="d"thend$(k)=xd$
  211. 3100 ifa$="e"thene$(k)=xd$
  212. 3110 poke211,13:poke214,y1-2:sys58640
  213. 3120 print"[198]alsch "
  214. 3130 poke198,0:wait198,1
  215. 3140 goto3270
  216. 3150 :
  217. 3160 rem"[192][192] [199]ewusst [192][192]
  218. 3170 :
  219. 3180 x[178]x[170]1:[139] x[178]5 [167] x[178]8
  220. 3190 xd$[178]"="[170][201]([196](x),1)[170]xd$
  221. 3200 [139] a$[178]"d" [167]xe$[178]e$(k):d$(k)[178]d$(ng):e$(k)[178]e$(ng):d$(ng)[178]xd$:e$(ng)[178]xe$
  222. 3210 [139] a$[178]"e" [167]xe$[178]d$(k):d$(k)[178]d$(ng):e$(k)[178]e$(ng):d$(ng)[178]xe$:e$(ng)[178]xd$
  223. 3220 [151]211,13:[151]214,y1[171]2:[158]58640
  224. 3230 [153]"(NULL)ichtig"
  225. 3240 ng[178]ng[171]1
  226. 3250 [151]198,0:[146]198,1
  227. 3260 :
  228. 3270 i[178]i[170]1
  229. 3280 [151]211,13:[151]214,y1[171]2:[158]58640
  230. 3290 [153]"       "
  231. 3300 [141]4530:      [143]"(NULL)okabelmaske"
  232. 3310 [137]2650
  233. 3320 :
  234. 3330 [143]"tantan atnlle (NULL)okabeln gewusst tantan
  235. 3340 :
  236. 3350 for k=1 to vn-1
  237. 3360 : if a$="d" thend$(k)="."+right$(d$(k),len(d$(k))-1)
  238. 3370 : if a$="e" thene$(k)="."+right$(e$(k),len(e$(k))-1)
  239. 3380 nextk
  240. 3390 ng=vn-1
  241. 3400 if a$="d" and left$(d$(1),2)=".8" then3440
  242. 3410 if a$="e" and left$(e$(1),2)=".8" then3440
  243. 3420 goto2650
  244. 3430 :
  245. 3440 rem"[192][192] [193]lle [214]ok. 5 mal gewusst [192][192]
  246. 3450 :
  247. 3460 [141]3810:         [143]"left$ilfzeile"
  248. 3470 [153]"onon(NULL)ie beherrschen diese (NULL)ektion. (NULL)ollen"
  249. 3480 [153]"(NULL)ie damit weiterarbeiten ? (j/n)"
  250. 3490 [141]3890:               [143]"chr$et"
  251. 3500 : [139] x$[178]"j" [176] x$[178]"n" [167]3530
  252. 3510 [137]3490
  253. 3520 :
  254. 3530 [129]i[178]1[164]vn[171]1
  255. 3540 : d$(i)[178]". "[170][201](d$(i),[195](d$(i))[171]2)
  256. 3550 : e$(i)[178]". "[170][201](e$(i),[195](e$(i))[171]2)
  257. 3560 [130]i
  258. 3570 ng[178]vn[171]1
  259. 3580 [139] x$[178]"n" [167] 3610
  260. 3590 [137]2490
  261. 3600 :
  262. 3610 [143]"tantan str$atei neu saven tantan
  263. 3620 :
  264. 3630 gosub7030:       rem"[196]atei saven"
  265. 3640 goto1410
  266. 3650 :
  267. 3660 rem"[192][192] [213][208] [212]itelbild [192][192]
  268. 3670 :
  269. 3680 [151]211,0:[151]214,1:[158]58640
  270. 3690 [153]x1$
  271. 3700 [139] fi$[178]"" [167] x[178]20[171][195](t$)[173]2
  272. 3710 [139] fi$[177]"" [167] x[178]20[171]([195](fi$)[170]2)[173]2[171][195](t$)[173]2
  273. 3720 [151]211,x:[151]214,1:[158]58640
  274. 3730 [153]t$;
  275. 3740 [139] fi$[177]"" [167] [151]211,37[171][195](fi$):[151]214,1:[158]58640:[153]"["fi$"]wait"
  276. 3750 [142]
  277. 3760 :
  278. 3770 [151]211,0:[151]214,4:[158]58640
  279. 3780 [129] l[178]1 [164]15:[153]x1$:[130]
  280. 3790 [151]211,1:[151]214,19:[158]58640
  281. 3800 [153]"[_] = left$ilfsfunktion                   wait"
  282. 3810 [151]211,0:[151]214,22:[158]58640
  283. 3820 [153]x1$:[153]x1$
  284. 3830 [142]
  285. 3840 :
  286. 3850 [151]211,0:[151]214,22:[158]58640
  287. 3860 [153]x4$:[153]x4$
  288. 3870 [142]
  289. 3880 :
  290. 3890 [143]"tantan (NULL)(NULL) get x$ tantantan
  291. 3900 :
  292. 3910 poke 198,0:poke53280,6
  293. 3920 getx$:ifx$=""then3920
  294. 3930 : xx=asc(x$)
  295. 3940 : if x$="_" thensys49152:poke198,0:wait198,1:sys49152
  296. 3950 poke53280,0
  297. 3960 return
  298. 3970 :
  299. 3980 rem"[192][192] [213][208] [198]ehlerkanal auslesen [192][192]
  300. 3990 :
  301. 4000 [151]2,8:[158]49194
  302. 4010 : [139] [194](2)[178]0 [167]4080
  303. 4020 : [141]3810:      [143]"left$ilfzeile"
  304. 4030 : [153]"ononpeekitte schalten (NULL)ie die ascloppy ein"
  305. 4040 : [153]"und legen (NULL)ie die str$atendiskette ein."
  306. 4050 : [151]198,0:[146]198,1
  307. 4060 [137]4000
  308. 4070 :
  309. 4080 [132]9,fe,f$,t,s
  310. 4090 : [139] fe[178]0 [176] fe[178]31 [167][142]
  311. 4100 : [141]3810:      [143]"left$ilfzeile"
  312. 4110 : [153]"onon"fe"  "f$" wait "t;s
  313. 4120 : [139] fe[178]1 [167]4140
  314. 4130 : [153]"ascehler beseitigen und (NULL)aste druecken."
  315. 4140 : [141]3890:            [143]"chr$et"
  316. 4150 [137]3980
  317. 4160 :
  318. 4170 [143]"tantan (NULL)(NULL) str$ateinamen eingeben tantan
  319. 4180 :
  320. 4190 gosub3810:en=14:  rem"[200]ilfzeile"
  321. 4200 print"[145][145][196]ateiname: "x5$"     !director[146]"
  322. 4210 print s$ spc(18)"!menue   "
  323. 4220 print"[145][145]"spc(12);
  324. 4230 qq=1:po=1916
  325. 4240 rem"[192][192] [213][208] [212]exteingabe [192][192][192][192][192][192][192][192][192][192][192]
  326. 4250 [151]198,0
  327. 4260 z[178]1:z1[178]128:n$[178]""
  328. 4270 : [151]po,[194](po)[170]z1
  329. 4280 : [161]x$:[139] x$[178]"" [167]4280
  330. 4290 : xe[178][198](x$)
  331. 4300 : [139]xe[178]95 [167][158]49152:[151]198,0:[146]198,1:[158]49152:[151]198,0:[137]4280
  332. 4310 : [139]xe[178]136 [175] qq[178]1 [167] [141]5200:[137]4170
  333. 4320 : qq[178]0
  334. 4330 : [139] xe[178]13 [176] (xe[177]132 [175] xe[179]141) [167] [151]po,[194](po)[171]128:[142]
  335. 4340 : [139] xe[179][177]20 [167]4390
  336. 4350 :   [139] z[178]1 [167] [151]po,[194](po)[171]128:[137]4260
  337. 4360 :     z[178]z[171]1  :[151]po,[194](po)[171]z1:po[178]po[171]1:[153]".cmdcmd";
  338. 4370 :     n$[178][200](n$,[195](n$)[171]1)
  339. 4380 : [137]4270
  340. 4390 : [139] xe[179]31 [176] (xe[177]127[175]xe[179]161) [167]4280
  341. 4400 : [139] xe[178]44 [167]x$[178]";"
  342. 4410 : n$[178]n$[170]x$:[153]x$;
  343. 4420 z[178]z[170]1:po[178]po[170]1:[139] z[179][178]en [167]4270
  344. 4430 z[178]z[171]1:po[178]po[171]1:[153]"cmd cmd";:[137]4370
  345. 4440 [142]
  346. 4450 :
  347. 4460 [143]"tantan (NULL)(NULL) (NULL)okabeln-(NULL)aske tantan
  348. 4470 :
  349. 4480 gosub3770:        rem"[199]undmaske"
  350. 4490 poke211,0:poke214,4:sys58640
  351. 4500 print"[176][192][192][192][192][174]"
  352. 4510 print"[221]    [221] "x$
  353. 4520 print"[173][192][192][192][192][189]"
  354. 4530 poke211,0:poke214,8:sys58640
  355. 4540 poke646,5
  356. 4550 print"[176][192][192][192][192][192][192][192][192][174]":print"[221][196]eutsch [221]"
  357. 4560 print"[171][192][192][192][192][192][192][192][192][177]"left$(x2$,27)"[174]"
  358. 4570 print""x3$:print"[173]"x2$"[189]"
  359. 4580 poke211,0:poke214,13:sys58640:poke646,5
  360. 4590 print"[176][192][192][192][192][192][192][192][192][174]":print"[221][197]nglisch[221]"
  361. 4600 print"[171][192][192][192][192][192][192][192][192][177]"left$(x2$,27)"[174]"
  362. 4610 print""x3$:print"[173]"x2$"[189]"
  363. 4620 poke646,1
  364. 4630 return
  365. 4640 :
  366. 4650 rem"[192][192] [213][208][160][211]ortieren [192][192]
  367. 4660 :
  368. 4670 j[178]1:k[178]vn[171]1
  369. 4680 [139] a$[178]"e" [167]4710
  370. 4690 : [139] [200](d$(j),1)[178]"." [167]4770
  371. 4700 : [137]4720
  372. 4710 : [139] [200](e$(j),1)[178]"." [167]4770
  373. 4720 : x$[178]d$(k):d$(k)[178]d$(j):d$(j)[178]x$
  374. 4730 : x$[178]e$(k):e$(k)[178]e$(j):e$(j)[178]x$
  375. 4740 : k[178]k[171]1
  376. 4750 : [139] k[178]j [167]4800
  377. 4760 [137]4690
  378. 4770 j[178]j[170]1
  379. 4780 [139] j[178]k [167]4800
  380. 4790 [137]4690
  381. 4800 [142]
  382. 4810 :
  383. 4820 [143]"tantan (NULL)(NULL) str$atei laden tantan
  384. 4830 :
  385. 4840 s$="[laden]    "
  386. 4850 gosub4170:  rem"[196]ateiname eing."
  387. 4860 if xe=140 thenreturn
  388. 4870 if (xe= 13 and n$="") or xe<>13 then4840
  389. 4880 if n$=fi$ then return
  390. 4890 gosub3980:      rem"[198]ehlerkanal"
  391. 4900 close2:open2,8,2,"vo."+n$+",s,r"
  392. 4910 gosub4080:      rem"[198]ehlerkanal"
  393. 4920 gosub3810:        rem"[200]ilfzeile"
  394. 4930 print"[145][145][204]oading  "n$" [146]"
  395. 4940 if fe>0 then return
  396. 4950 dn=0
  397. 4960 vn=0
  398. 4970 fi$=n$
  399. 4980 input#2,ng
  400. 4990 : vn=vn+1
  401. 5000 : input#2,d$(vn)
  402. 5010 : input#2,e$(vn)
  403. 5020 if (st and 64)<>64 then4990
  404. 5030 close2
  405. 5040 vn=vn+1
  406. 5050 gosub3660:        rem"[212]itelbild"
  407. 5060 return
  408. 5070 :
  409. 5080 rem"[192][192] [196]irectory anzeigen [192][192]
  410. 5090 :
  411. 5100 d$[178]"":s[178]0:xn$[178]""
  412. 5110 [141]3850:  [143]"left$ilfzeile"
  413. 5120 [153]"ononganze str$ir!nur str$atei"[166]11)xn$
  414. 5130 [153][166]31)"zurueck"
  415. 5140 [141]3890:              [143]"get"
  416. 5150 : [139] xx[178]136 [167] [139] s[177]0 [167] [141]3770:[137]5210
  417. 5160 : [139] xx[178]133 [167] d$[178]"":[137]5210
  418. 5170 : [139] xx[178]134 [167]5200
  419. 5180 : [139] xx[178]140 [167][142]
  420. 5190 [137]5140
  421. 5200 d$[178]"vo."
  422. 5210 [141]3770:           [143]"(NULL)itelb"
  423. 5220 z[178]1:[139] xx[178]136 [167] [153]"":[137] 5620
  424. 5230 :
  425. 5240 ft$(0)[178]"..str$el..":ft$(1)[178]"(NULL)equential":ft$(2)[178]"(NULL)rogram":ft$(3)[178]"(NULL)ser"
  426. 5250 ft$(5)[178]"(NULL)elative"
  427. 5260 [160]2:dn$[178]""
  428. 5270 [152]9,"i"
  429. 5280 [141]3980:      [143]"ascehlerkanal"
  430. 5290 [141]3810:        [143]"left$ilfzeile"
  431. 5300 [159]2,8,2,"#"
  432. 5310 [152]9,"u1 2 0 18";s
  433. 5320 [152]9,"b-p 2 144"
  434. 5330 [129]i[178]0[164]15:[161]#2,x$:[139] x$[178]"close" [167] 5360
  435. 5340 : [143]"   ^='(NULL)hift'-'(NULL)pace' !!"
  436. 5350 : dn$[178]dn$[170]x$
  437. 5360 [130]i
  438. 5370 [153]""x1$""dn$:[153]:[153]
  439. 5380 :
  440. 5390 s[178]1:bf[178]664
  441. 5400 [152]9,"u1 2 0 18";s
  442. 5410 [152]9,"b-p 2 0":by[178]0
  443. 5420 [161]#2,x$:t[178][198](x$[170][199](0))
  444. 5430 [161]#2,x$:s[178][198](x$[170][199](0))
  445. 5440 dn$[178]""
  446. 5450 by[178]by[170]5:[152]9,"b-p 2";by
  447. 5460 [129]i[178]0[164]15:[161]#2,x$:dn$[178]dn$[170]x$:[130]i
  448. 5470 [139] [195](dn$)[178]0 [167] 5670
  449. 5480 by[178]by[170]25:[152]9,"b-p 2";by
  450. 5490 [161]#2,x$:x[178][198](x$[170][199](0))
  451. 5500 [161]#2,x$:x[178]x[170][198](x$[170][199](0))[172]256
  452. 5510 [139] x[179] 10 [167] dn$[178]dn$[170]" "
  453. 5520 [139] x[179]100 [167] dn$[178]dn$[170]" "
  454. 5530 dn$[178]dn$[170][196](x)[170]" peekl. "
  455. 5540 bf[178]bf[171]x:[139] bf[179]0 [167] bf[178]0
  456. 5550 by[178]by[171]28:[152]9,"b-p 2";by
  457. 5560 [161]#2,x$
  458. 5570 dn$[178]dn$[170]ft$([198](x$[170][199](0))[175]3)
  459. 5580 [139] d$[178]"vo."[175] [200](dn$,3)[179][177]d$ [167]5620
  460. 5590 [153]""dn$
  461. 5600 z[178]z[170]1:[139] z[179]16 [167]5620
  462. 5610 xn$[178]"weiter":[137]5110
  463. 5620 by[178]by[170]30
  464. 5630 [139] by[179]255 [167] 5440
  465. 5640 [139] t[178]0 [176] t[177]35 [167] 5670
  466. 5650 [137]5400
  467. 5660 :
  468. 5670 [160]2:xn$[178]"      "
  469. 5680 [153]""[166]26) bf"peekl. free"
  470. 5690 [139] qq[178]1 [167][142]
  471. 5700 [137]5100
  472. 5710 :
  473. 5720 [143]"tantan (NULL)(NULL) (NULL)okabeln erfassen tantan
  474. 5730 :
  475. 5740 poke211, 2:poke214, 5:sys58640
  476. 5750 : printright$(str$(i),len(str$(i))-1);  : if i<10 thenprint" "
  477. 5760 : poke211,2:poke214,11:sys58640
  478. 5770 : en=36:po=1466:gosub4240:rem"[197]ingabe"
  479. 5780 : if n$>"" then d$(i)=". "+n$
  480. 5790 : if xe=139 or xe=133 or xe=134 or xe=137 or xe=138 or xe=140 thenreturn
  481. 5800 : if xe=136 then5840
  482. 5810 if xe=13 and po=1466 then goto6570
  483. 5820 : if (xe=135 or xe=13) and n$="" thengoto5760
  484. 5830 : goto5870
  485. 5840 : if n$="" then return
  486. 5850 : gosub4530:goto5760
  487. 5860 :
  488. 5870 poke211,2:poke214,16:sys58640
  489. 5880 : en=36:po=1666:gosub4240:rem"[197]ingabe"
  490. 5890 : e$(i)=". "+n$
  491. 5900 : if xe=133 or xe=134 or xe=137 or xe=138 thenreturn
  492. 5910 : if xe=136 then5950
  493. 5920 : if (xe=13 or xe=135 or xe=139) and n$="" then5870
  494. 5930 fi$=""
  495. 5940 : return
  496. 5950 : if n$="" then5850
  497. 5960 gosub4580:goto5870
  498. 5970 :
  499. 5980 rem"[192][192] [213][208] [200]ilfszeile [214]ok.eingabe
  500. 5990 :
  501. 6000 [141]3850:[143]"left$ilfszeile"
  502. 6010 [153]"onon 1 vor   ! 1 rueck !aendern  !loeschenwait"
  503. 6020 [153]"10 vor   !10 rueck !speichern!menue   wait"
  504. 6030 [142]
  505. 6040 :
  506. 6050 [143]"tantan (NULL)(NULL) (NULL)okabeln blaettern tantan
  507. 6060 :
  508. 6070 if xe=133 and i=vn then2000
  509. 6080 if xe=133 theni=i+ 1:goto6120
  510. 6090 if xe=134 theni=i- 1:goto6160
  511. 6100 if xe=137 theni=i+10:goto6120
  512. 6110 if xe=138 theni=i-10:goto6160
  513. 6120 if i> 99 then i=99
  514. 6130 if i>=vn then1940
  515. 6140 goto6180
  516. 6150 :
  517. 6160 if i<1 theni=1:goto6130
  518. 6170 :
  519. 6180 poke211, 2:poke214, 5:sys58640
  520. 6190 printright$(str$(i),len(str$(i))-1);:   if i<10 then print" "
  521. 6200 gosub4530:     rem"[214]okabelmaske"
  522. 6210 poke211,2:poke214,11:sys58640
  523. 6220 printright$(d$(i),len(d$(i))-2)
  524. 6230 poke211,2:poke214,16:sys58640
  525. 6240 printright$(e$(i),len(e$(i))-2)
  526. 6250 gosub3890:              rem"get"
  527. 6260 : xe=asc(x$)
  528. 6270 : if xe=135 thenfi$="":goto6360
  529. 6280 : if xe=136 thenfi$="":goto6390
  530. 6290 : if xe=140 thengosub7280
  531. 6300 :   if x$="j" then2210
  532. 6310 :   if x$="n" then1410
  533. 6320 : if xe=139 then2210
  534. 6330 : if xe=133 or xe=134 or xe=137 or xe=138 then6080
  535. 6340 goto6250
  536. 6350 :
  537. 6360 gosub5720:rem"[214]okabeln erfassen"
  538. 6370 goto6050
  539. 6380 :
  540. 6390 rem"[192][192] [214]okabel loeschen [192][192][192][192][192][192][192][192][192]
  541. 6400 [139] i[178]1 [175] d$(i)[178]"" [167] 6180
  542. 6410 [141]3810:        [143]"hilfzeile"
  543. 6420 [153]"onon(NULL)irklich loeschen ? (j/n)
  544. 6430 gosub3890:              rem"get"
  545. 6440 : if x$="j" then6470
  546. 6450 : if x$="n" then6550
  547. 6460 goto6430
  548. 6470 if vn=100 then d$(99)="":e$(99)="":goto6520
  549. 6480 if vn=2 then d$(1)="":e$(1)=""    :goto6520
  550. 6490 for j=i tovn-1
  551. 6500 : d$(j)=d$(j+1):e$(j)=e$(j+1)
  552. 6510 next
  553. 6520 : vn=vn-1:if i=vn then1940
  554. 6530 : if vn<=1 then vn=1:goto1940
  555. 6540 : if  i<=1 then  i=1
  556. 6550 gosub5980
  557. 6560 goto6180
  558. 6570 :
  559. 6580 rem"[192][192] [211]uchroutine [192][192][192][192][192][192][192][192][192][192][192][192][192][192]
  560. 6590 :
  561. 6600 x$[178]"(NULL)uchroutine":[141]4460
  562. 6610 q9[178]i
  563. 6620 [151]211,2:[151]214,11:[158]58640
  564. 6630 en[178]36:po[178]1466:[141]4240
  565. 6640 x[178][195](n$)
  566. 6650 i[178]1
  567. 6660 :[139]n$[178]""[167]6900
  568. 6670 :[141]4530:d$[178][201](d$(i),[195](d$(i))[171]2):e$[178][201](e$(i),[195](e$(i))[171]2)
  569. 6680 :[151]211,2:[151]214,11:[158]58640
  570. 6690 :[153]d$
  571. 6700 :[151]211,2:[151]214,16:[158]58640
  572. 6710 :[153]e$
  573. 6720 :[151]211,2:[151]214,5:[158]58640:[153]i
  574. 6730 :[139]x[177][195](d$)[167]6760
  575. 6740 :x$[178]d$:[141]6950
  576. 6750 :[139]j[177]0[167]6800
  577. 6760 :[139]x[177][195](e$)[167]6870
  578. 6770 :x$[178]e$:[141]6950
  579. 6780 :[139]j[178]0[167]6870
  580. 6790 [143] gewusst
  581. 6800 :[151]211,2:[151]214,22:[158]58640
  582. 6810 :[153]"weitersuchen (j/n) ?"
  583. 6820 :[141]3890
  584. 6830 :[139]x$[178]"j"[167][141]3810:[137]6870
  585. 6840 :[139]x$[178]"n"[167]6920
  586. 6850 :[137]6820
  587. 6860 :
  588. 6870 i[178]i[170]1
  589. 6880 [139]i[178]100[167]6900
  590. 6890 [139]i[179]100[175]d$(i)[177]""[167]6670
  591. 6900 i[178]q9:[137]6920
  592. 6910 :
  593. 6920 x$[178]"(NULL)oerter bisher eingegeben"
  594. 6930 [141]4460:[141]5980:[137]6120
  595. 6940 :
  596. 6950 j[178]1
  597. 6960 [139]n$[178][200](x$,[195](n$))[167][142]
  598. 6970 [139][202](x$,j,1)[178]";"[167]7000
  599. 6980 j[178]j[170]1:[139]j[177][195](x$)[167]7020
  600. 6990 [137]6970
  601. 7000 x$[178][201](x$,[195](x$)[171]j)
  602. 7010 [137]6960
  603. 7020 j[178]0:[142]
  604. 7030 [143]"tantan (NULL)(NULL) str$atei speichern tantan
  605. 7040 :
  606. 7050 s$="[speichern]"
  607. 7060 gosub4170:  rem"[196]ateiname eing."
  608. 7070 if xe=140 thenreturn
  609. 7080 gosub3980:      rem"[198]ehlerkanal"
  610. 7090 close2:open2,8,2,"vo."+n$+",s,w"
  611. 7100 gosub4080:      rem"[198]ehlerkanal"
  612. 7110 if fe=0 then7200
  613. 7120 : gosub3810:print"[145][145][196]atei existiert bereits !"
  614. 7130 : print"[193]lte [196]atei ueberschreiben ? (j/n)
  615. 7140 [141]3890:              [143]"get"
  616. 7150 [139]x$[178]"n"[167]7050
  617. 7160 [139]x$[178]"j"[167][152]9,"s:vo."[170]n$:[160]2:[159]2,8,2,"vo."[170]n$[170]",s,w":[137]7180
  618. 7170 [137]7140
  619. 7180 [141]3810:       [143]"left$ilfszeile"
  620. 7190 [153]"onon(NULL)aving  "n$" wait"
  621. 7200 [152]2,vn[171]1
  622. 7210 [129]j[178]1[164]vn[171]1
  623. 7220 : [152]2,d$(j)
  624. 7230 : [152]2,e$(j)
  625. 7240 [130]j
  626. 7250 [160]2
  627. 7260 [142]
  628. 7270 :
  629. 7280 [143]"tantan (NULL)(NULL)closestr$atei nicht gespeichert
  630. 7290 :
  631. 7300 gosub3810:        rem"[200]ilfzeile"
  632. 7310 print"[145][145][196]atei ist noch nicht gespeichert !!"
  633. 7320 print"[211]oll [196]atei gespeichert werden ? (j/n)"
  634. 7330 gosub3890:              rem"get"
  635. 7340 if x$<>"j" and x$<>"n" then7330
  636. 7350 return
  637. 7360 :
  638. 7370 rem"[192][192] [213][208] [201]nit [214]ar. + [205]aschpge. [192][192]
  639. 7380 :
  640. 7390 [143]"tantan right$nit (NULL)ariablen tantantantantantantantantantantan
  641. 7400 :
  642. 7410 dimd$(99),e$(99)
  643. 7420 x1$="                                      "
  644. 7430 x2$="[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]"
  645. 7440 x3$="[221]................................... [221]"
  646. 7450 x4$="         !         !         !        [146]"
  647. 7460 x5$="............."
  648. 7470 p=1024
  649. 7480 printchr$(14)chr$(8);
  650. 7490 close9:open9,8,15
  651. 7500 return
  652. 7510 :
  653. 7520 rem"[192][192] [201]nit [205]asch.programme [192][192][192][192][192]
  654. 7530 :
  655. 7540 [143]"bildschirmchanger"
  656. 7550 [131] 169,0,133,87,169,4,133,88,169,56,133,89,169,199,133,90,160,0,177,87
  657. 7560 [131]170,177,89,145,87,138,145,89,200,208,243,230,88,230,90,169,8,197,88
  658. 7570 [131] 208,231,96
  659. 7580 [129]i[178]49152[164]49193:[135]x:[151]i,x:[130]
  660. 7590 :
  661. 7600 [143]"floppy an/aus"
  662. 7610 [131] 169,1,160,192,162,33,32,189,255,169,1,160,15,166,2,32,186,255,32
  663. 7620 [131] 192,255,176,2,169,0,133,2,169,1,32,195,255,96,32
  664. 7630 [129]i[178]49194[164]49227:[135]x:[151]i,x:[130]
  665. 7640 :
  666. 7650 [143]"tantan (NULL)(NULL) left$ilfsanzeige tantan
  667. 7660 :
  668. 7670 print""spc(14)"[200]ilfs-[212]afel"
  669. 7680 print"[[198]8] menue[146] fuehrt in die letzte [193]nwen-
  670. 7690 [153]"dung oder das letzte (NULL)enue zurueck."
  671. 7700 [153]"--------------------------------------"
  672. 7710 [153]"right$m str$isk-(NULL)enue ist jeweils der volle   "
  673. 7720 [153]"(NULL)rogrammname zu verwenden. atnnsonsten  "
  674. 7730 [153]"wird bei (NULL)okabeldateien die (NULL)ennung   "
  675. 7740 [153]" vo. wait nicht mit eingegeben !!         "
  676. 7750 [153]"--------------------------------------"
  677. 7760 [153]"(NULL)ritt eine ascehlermeldung durch die    "
  678. 7770 [153]"ascloppy auf und werden keine (NULL)assnahmen"
  679. 7780 [153]"erklaert, verfahren (NULL)ie bitte nach dem"
  680. 7790 [153]"peekedienungshandbuch zur ascloppy 1541.   "
  681. 7800 [153]"--------------------------------------"
  682. 7810 [153]"[_] = zurueck ins (NULL)rogramm            wait"
  683. 7820 [151]211,0:[151]214,22:[158]58640
  684. 7830 [153]"  [asc1]   !  [asc3]   !  [asc5]   !  [asc7]  wait"
  685. 7840 [153]"  [asc2]   !  [asc4]   !  [asc6]   !  [asc8]  wait"
  686. 7850 [158]49152
  687. 7860 [142]
  688. 7870 :
  689. 7880 [143]"ortantantantantantantantantantantantantantantantantantantan^
  690. 7890 rem"[221]  [196]isketten-[205]enue  [221]
  691. 7900 [143]"/tantantantantantantantantantantantantantantantantantantanexp
  692. 7910 :
  693. 7920 rem"[192][192] [196]irectory [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
  694. 7930 :
  695. 7940 [141]5080: [143]"str$irectory"
  696. 7950 [137]1410
  697. 7960 :
  698. 7970 [143]"tantan ascilenamen aendern tantantantantantantantan
  699. 7980 :
  700. 7990 qq=1:gosub5080:qq=0:   rem"[196]ir."
  701. 8000 gosub3810:        rem"[200]ilfzeile"
  702. 8010 print"[145][145][194]isheriger [206]ame: "x5$"..."
  703. 8020 poke211,18:poke214,22:sys58640
  704. 8030 en=17:po=1922:gosub4240:rem"[197]ing.
  705. 8040 [139] xe[178]140 [167]1410
  706. 8050 [139] xe[179][177]13 [167][153]:[137]8010
  707. 8060 [139] n$[178]"" [167]1410
  708. 8070 a$[178]n$
  709. 8080 [153]:[153]"(NULL)euer (NULL)ame     : "x5$"..."
  710. 8090 [151]211,18:[151]214,23:[158]58640
  711. 8100 po[178]1962:[141]4240:  [143]"valingabe"
  712. 8110 [139] xe[178]140 [167]1410
  713. 8120 [139] xe[179][177]13 [167][153]"on";:[137]8080
  714. 8130 [141]3980:      [143]"ascehlerkanal"
  715. 8140 [152]9,"r:"[170]n$[170]"="[170]a$
  716. 8150 [141]4080:      [143]"ascehlerkanal"
  717. 8160 [139] fe[178]63 [167]x$[178]"bereits":[137]8190
  718. 8170 [139] fe[178]62 [167]x$[178]"nicht":[137]8190
  719. 8180 [137]1410
  720. 8190 : [141]3810:      [143]"left$ilfzeile"
  721. 8200 : [153]"onon ascile existiert "x$" !! wait"
  722. 8210 : [153]"[peekitte (NULL)aste druecken]"
  723. 8220 : [141]3890:            [143]"chr$et"
  724. 8230 :
  725. 8240 [137]8000
  726. 8250 :
  727. 8260 [143]"tantan asciles loeschen tantantantantantantantantantantan
  728. 8270 :
  729. 8280 qq=1:gosub5080:qq=0:   rem"[196]ir."
  730. 8290 gosub3810:        rem"[200]ilfzeile"
  731. 8300 print"[145][145][204]oeschfile : "x5$"..."
  732. 8310 print"[[215]enn fertig, '[210][197][212][213][210][206]' druecken]."
  733. 8320 poke211,14:poke214,22:sys58640
  734. 8330 en=17:po=1918:gosub4240:rem"[197]ing.
  735. 8340 [139] xe[178]140 [167]1410
  736. 8350 [139] n$[178]"" [167] 1410
  737. 8360 [141]3980:      [143]"ascehlerkanal"
  738. 8370 [152]9,"s:"[170]n$
  739. 8380 [141]4080:      [143]"ascehlerkanal"
  740. 8390 [137]8290
  741. 8400 :
  742. 8410 [143]"tantan ascormatieren tantantantantantantantantantantantantantan
  743. 8420 :
  744. 8430 gosub3810:        rem"[200]ilfzeile"
  745. 8440 print"[145][145][206]ame:"x5$"...  [201][196]:..  !       "
  746. 8450 printspc(31)"! menue [146]";
  747. 8460 poke211,6:poke214,22:sys58640
  748. 8470 en=17:po=1910:gosub4240:rem"[197]ing.
  749. 8480 [139] xe[178]140 [167]1410
  750. 8490 [139] xe[179][177]13 [167][153]:[137]8430
  751. 8500 a$[178]n$
  752. 8510 [151]211,27:[151]214,22:[158]58640
  753. 8520 en[178]3:po[178]1931:[141]4240:[143]"valing.
  754. 8530 if xe=140 then1410
  755. 8540 if xe<>13 thenprint:goto8510
  756. 8550 gosub3980:      rem"[198]ehlerkanal"
  757. 8560 print#9,"n:"+a$+","+n$
  758. 8570 gosub4080:      rem"[198]ehlerkanal"
  759. 8580 goto1410
  760. 8590 :
  761. 8600 rem"[192][192] [214]alidieren [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
  762. 8610 :
  763. 8620 [141]3980:      [143]"ascehlerkanal"
  764. 8630 [141]3810:      [143]"left$ilfzeile  "
  765. 8640 [153]"onon"[166]13)" (NULL)alidieren "
  766. 8650 [152]9,"v"
  767. 8660 [141]4080:      [143]"ascehlerkanal"
  768. 8670 [137]1410
  769. 8680 :
  770. 8690 [143]"tantan right$nitialisieren tantantantantantantantantantantan
  771. 8700 :
  772. 8710 gosub3980:      rem"[198]ehlerkanal"
  773. 8720 print#9,"i"
  774. 8730 gosub4080:      rem"[198]ehlerkanal"
  775. 8740 goto1410
  776. 8750 :
  777. 8760 print"[147]"x2$"[192][192][192][192]       [208] r o g r a m m - [197] n d e        [146]"x2$"[192][192][192][192]"
  778. 8770 print""
  779. 8780 poke 53280,6:end
  780. 8790 :
  781. 8800 rem"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  782. 8810 [143]"(NULL) (NULL)okabeln drucken (NULL)
  783. 8820 rem"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
  784. 8830 :
  785. 8840 d1[178]14:d2[178]15:sl[178]72:ga[178]4:sa[178]7
  786. 8850 t$[178]"str$ r u c k e n"
  787. 8860 [141]3660:[141]3770
  788. 8870 [141]9140:[139] xe[178]140 [167]1410
  789. 8880 [141]3850:[153]"ononstr$rucken"[166]23)"(NULL)enue"
  790. 8890 [141]3890
  791. 8900 : [139] xx[178]133 [167]8930
  792. 8910 : [139] xx[178]140 [167]1410
  793. 8920 [137]8890
  794. 8930 [141]3810:[153]"onon"[166]6)"peekitte str$rucker vorbereiten "
  795. 8940 [153]"(NULL)enn fertig:(NULL)aste druecken (asc8=zurueck"
  796. 8950 [141]3890
  797. 8960 [139] xx[178]140 [167]1410
  798. 8970 [141]3850:[153]"onon(NULL)ause"[166]25)"atnbbruch"
  799. 8980 [151]2,4:[158]49194
  800. 8990 [139] [194](2)[177]0 [167]8930
  801. 9000 zz[178]2:[160]2:[159]2,ga,sa
  802. 9010 [152]2,[199](d1)"(NULL) o k a b e l d a t e i"[199](d2)[199](13)
  803. 9020 [129]i[178]1 [164] vn[171]1
  804. 9030 : [152]2,[201](d$(i),[195](d$(i))[171]2)" ";
  805. 9040 :[152]2,[202](x3$,2,34[171][195](d$(i)))" ";
  806. 9050 : [152]2,[201](e$(i),[195](e$(i))[171]2)
  807. 9060 : [161]x$:xx[178][198](x$[170][199](0)):[139]xx[178]133[167][151]198,0:[146]198,1
  808. 9070 :   [139] xx[178]136 [167]i[178]999:[130]i:[137]8800
  809. 9080 : zz[178]zz[170]1:[139] zz[178]sl[171]2 [167] [152]2,[199](13)[199](13):zz[178]1
  810. 9090 [130]i
  811. 9100 [152]2,[199](13)"*****"
  812. 9110 [160]2
  813. 9120 [137]8800
  814. 9130 :
  815. 9140 fe[178]0:xx[178]0:[141]4820
  816. 9150 [139] fe[177]0 [167]9140
  817. 9160 [142]
  818.