home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 October / 64er_Magazin_85-10_1985_Markt__Technik_de.d64 / hypra-text (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  21.7 KB  |  752 lines
  1. 0 goto10
  2. 1 ifpeek(198)>0thengeta$:return
  3. 2 gosub30600:goto1
  4. 3 print" + [194]itte warten + [201]ch  a r b e i t e  + ":return
  5. 4 poke908,0:poke918,30:poke920,11:poke917,36:poke924,0:a$="":return
  6. 5 sys50176,a$,a$:f=peek(913):return
  7. 9 goto30001
  8. 10 goto 22000
  9. 11 gosub31000:poke650,128:poke2,184
  10. 12 gosub40000
  11. 14 print:l$=a6$
  12. 15 kl=1:printchr$(14)
  13. 17 dima$(600):an=0:max=600
  14. 26 print"[147]";pt$;""
  15. 27 goto100
  16. 30 a$=left$(a$,len(a$)-1):return
  17. 31 ifright$(a$,1)=" "thengosub30:goto31
  18. 32 return
  19. 40 a$=left$(a$(t),len(a$(t))-1):return
  20. 70 rem ** unterprogramm **
  21. 71 print:print"[199]eben sie ein,von welcher [218]eilennr      (0=[193]nfang)"
  22. 72 inputv:ifv=0thenv=1
  23. 73 print"[199]eben sie ein,bis zu welcher [218]eilennr   (0=[197]nde)"
  24. 74 inputb:ifb>maxthenprint"[218]u gross !":goto74
  25. 75 ifb=0thenb=an
  26. 79 return
  27. 80 print"":return
  28. 90 printleft$(a6$,mb):return
  29. 95 gosub80:fori=1to4:gosub90:next:gosub80:return
  30. 100 print"[147]";pt$;:close2:close15:close5:poke198,0:ba=0:dr=0:br=0:sp=0
  31. 101 ifan/max>0.7thenb1$=""+str$(int((an/max)*100))+" % [214][207][204][204] !!![146]":x=fre(9)
  32. 102 ifan/max>0.7thenb2$="[5] = [211]peichern[146]":b3$="[193][195][200][212][213][206][199][146]":sp=1
  33. 103 v$(50)=d$:v$(47)=ba$:v$(46)=str$(rr):v$(45)=str$(rr+rr*(mw/100))
  34. 104 v$(44)=str$(rr*(mw/100))
  35. 105 poke54296,0:ifpeek(1022)=200thenam=2
  36. 107 print"";pt$;
  37. 109 poke53265,27
  38. 110 print"  [196]atum: ";d$
  39. 111 gosub300:print""
  40. 112 print" [221] [211]ystem    [146] :";b1$
  41. 113 print" [221] [197]mpfehlung[146] :";b2$
  42. 114 print" [221]           [146] :";b3$
  43. 115 print" [221] [212]ext name  :";t1$
  44. 116 print" [221] [208]latz      :";max-an;"[218]eilen frei"
  45. 120 rem ** menu **
  46. 125 print"-1-  [212]ext erstellen"
  47. 130 print"-2-  [212]ext aendern"
  48. 132 print"-3-  [208]rofiprint laden"
  49. 134 print"-4-  [194]ildschirmausgabe"
  50. 135 print"-5-  [193]rbeiten mit [196]iskette "
  51. 136 print"-6-  ";fu$
  52. 137 print"-7-  [193]rbeiten mit [214]ariablen"
  53. 145 print"[196]ie [198]unktionstasten"
  54. 147 print"f1= [197]ingabe f3=[194]ildschirmausgabe"
  55. 148 print"f5= [197]nde   ";
  56. 149 ifsp=1thengosub30601
  57. 150 geta$:ifa$=""then150
  58. 154 ifa$="[134]"then7000
  59. 155 ifa$="[133]"then1015
  60. 156 ifa$="[135]"then8000
  61. 197 ifval(a$)<1orval(a$)>8then150
  62. 199 x=val(a$):onxgoto1000,2000,56100,7100,5000,20000,9700
  63. 200 goto 100
  64. 260 return
  65. 300 rem ** bs aufbau **
  66. 301 ifba=1thenreturn
  67. 310 a1$=" [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][192][192][192][192][192][192][192][174]"
  68. 320 a2$=" [171][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][179]"
  69. 330 a3$=" [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][192][192][192][192][192][192][192][192][192][192][192][189]"
  70. 340 a4$=" [221][221]"
  71. 350 print"":printa1$:printa4$:printa4$:printa4$:printa2$
  72. 360 printa4$:printa4$:printa2$
  73. 370 fort=1to9:printa4$:next:printa2$
  74. 380 printa4$:printa4$:printa4$:printa3$;
  75. 499 ba=1:return
  76. 1000 print"[147]";pt$
  77. 1001 print" * * [212]extprogramm     * *  [197]ingabe  * * [146]";:ta=0:ta$=""
  78. 1003 print"=1=  [197]ingabe des [212]extes"
  79. 1004 print"=2= [197]ingabe des [212]extnames"
  80. 1005 print"=3= [197]ingabe ueber [205]aske"
  81. 1007 print"=4= [212]ext loeschen"
  82. 1008 print"=5= [196]en [212]ext ausfuellen":print"=6= [197]ingabe [212]abulatorzeile"
  83. 1009 gosub1
  84. 1010 ifa$="0"ora$="[133]"then100
  85. 1011 b1$="[193]endern [2]":b2$="[211]peichern [5]":t=val(a$)
  86. 1013 ift=0then1009
  87. 1014 ontgoto1015,1850,33000,1300,9400,1830,100
  88. 1015 print"[147]";pt$:print" * *  [212]extprogramm    * *  [197]ingabe  * * [146]";:ta=0
  89. 1016 b1$="[193]endern   [2]"
  90. 1017 b2$="[211]peichern [5]"
  91. 1018 b3$="[193]nsehen   [f3]"
  92. 1020 a=an:goto2014
  93. 1040 ifk1$="[212][193][211][212][197][206][146] f7=[200][197][204][208]           f5=[218]eile hoch"then1050
  94. 1046 k1$="[212][193][211][212][197][206][146] f7=[200][197][204][208]           f5=[218]eile hoch"
  95. 1047 k2$="[200]ome = [212]abulator    [210][197][212][213][210][206]=[218]eile runter"
  96. 1048 k3$="crsr hoch = [215]ort vor    :crsr => rechts"
  97. 1049 k4$="crsr runter=[215]ort zurueck:crsr <= links":return
  98. 1050 k1$="[198]unktionst.[146] f1=[197]nde : f2=[197]infuegen"
  99. 1051 k2$="f3= [218]eilen [204]oeschen : f4=[194]lock copieren"
  100. 1052 k3$="f5=[218]eile hoch       : f6=[211]eite +/-"
  101. 1053 k4$="f7=[200][197][204][208]   [146]          : f8=[194]lock laden":return
  102. 1100 fori=g8tomax
  103. 1110 gosub1400
  104. 1120 iflen(a$(i+1))<m8thenreturn
  105. 1130 next:return
  106. 1300 gosub1301:goto1000
  107. 1301 print"[147]";pt$;"          [212]ext loeschen                 "
  108. 1302 print"[194]ist du sicher? [j/(n)] ":gosub1:ifa$<>"j"then100
  109. 1305 print"":fort=1tomax:print"[145]";t:a$(t)="":next
  110. 1310 an=0:return
  111. 1400 b=len(a$(i)):fora=m8to1step-1
  112. 1410 ifmid$(a$(i),a,1)=" "ormid$(a$(i),a,1)="[160]"then1430
  113. 1420 next:print"[218]eile zu lang:fehler":return
  114. 1430 a$(i+1)=right$(a$(i),b-a)+" "+a$(i+1):a$(i)=left$(a$(i),a)
  115. 1450 return
  116. 1460 print"[147]":fort=0toan:printa$(t):next:print"[145][145]"
  117. 1470 return
  118. 1830 print"[147]";pt$
  119. 1831 input"[205]aximale [218]eilelaenge (39)";m8:gosub1832:goto1000
  120. 1832 m8=m8+2:ifm8<10thenm8=39
  121. 1833 print"[147]";pt$:print"[197]ingabe [212]abulatorzeile":print"!=[211]tart +=[212]ab.[211]top -=[206]icht
  122. 1834 t7$[178][200](t7$,[195](t7$)[171]1)
  123. 1835 a$[178][200](t7$,m8):[141]9:t7$[178]a$
  124. 1840 m8[178]m8[171]2:t7$[178][200](t7$[170]"----------------------------------------",m8[171]1)
  125. 1841 [129]t[178]1[164][195](t7$):[139][202](t7$,t,1)[178]"!"[167]cb[178]t
  126. 1842 [130]:t7$[178]t7$[170]"!":[151]917,m8
  127. 1845 [142]
  128. 1850 [153]"load(NULL)extname":a$[178]t1$:[141]9:t1$[178]a$:[137]1000
  129. 2000 [153]"load";pt$
  130. 2001 [153]" + + (NULL)extprogramm     + +  atnendern  + + wait";:[153]"atnendern [1]wait"
  131. 2002 [153]"  >0< (NULL)enu":[153]"  >1< (NULL)ext aendern"
  132. 2003 [153]"  >2< (NULL)ort tausch"
  133. 2005 [153]"  >3< (NULL)ext loeschen"
  134. 2006 [141]1
  135. 2008 [139]a$[178]"0"[176]a$[178]"input"[167]100
  136. 2009 b1$[178]"(NULL)peichern [5]":b2$[178]"atnnsehen   [f3]":b3$[178]"left$ilfe     [f7]"
  137. 2010 t[178][197](a$):[139]t[179]1[176]t[177]3[167]2006
  138. 2011 [145]t[137]2012,2900,1300
  139. 2012 [141]80:[153]" 0 = valnde : 1 = atnnfang"
  140. 2013 [133]"atnb (NULL)eile";a:a[178]a[171]1:[139]a[178][171]1[167]a[178]an
  141. 2014 [141]1046
  142. 2020 a[178]a[170]1:[139]a[177]an[167]an[178]a
  143. 2030 [139]a[179]1[167]a[178]1
  144. 2031 y[178]t:a$[178]a$(a)
  145. 2040 ee[178]1:a$[178]a$(a):g8[178]a:[141]30000
  146. 2041 [139]u9[178]1[167]a$(a[170]1)[178][200](a6$,cb[171]1)[170]r$[170]" "[170]a$(a[170]1):u9[178]2
  147. 2050 a$(a)[178]a$:[139][195](a$(a))[177]m8[167]2040
  148. 2060 [139]a$(a)[178]">"[167]a$(a)[178]""
  149. 2061 pp[178]a:[139]f[178]3[167]2600
  150. 2062 [139]f[178]7[167][141]1040:[137]2030
  151. 2063 [139]in[178]1[175]f[179][177]0[167]in[178]0:[141]2560:[139]f[178]1[167]f[178]0
  152. 2064 [139]f[178]1[167]ee[178]0:[137]100
  153. 2065 [139]f[178]6[167]2200
  154. 2070 [139]in[178]1[167][141]2350
  155. 2071 [139]f[178]2[167]2500
  156. 2072 [139]f[178]4[167]2800
  157. 2073 [139]f[178]8[167]2100
  158. 2075 [139]f[178]5[167]a[178]a[171]1:[137]2030
  159. 2080 a$[178]a$(a):y[178]t:[137]2020
  160. 2100 [153]" * * (NULL)extprogramm    * * peeklock laden * *"
  161. 2110 [141]95:[141]4:[151]920,22
  162. 2120 [153]"(NULL)ame des peeklockes":[141]5:[139]f[178]1[167]2020
  163. 2121 a$[178]">"[170]ba$[170]"??????"[170]a$
  164. 2125 [160]2:[160]5:[159]2,fa,15:[159]5,fa,2,a$[170]",s,r":[141]34000:[139]en[179][177]0[167]2100
  165. 2130 [132]5,z:[141]2530
  166. 2140 [129]t[178]1[164]z:[141]34100:[141]34000:[139]a$[178]">"[167]a$[178]""
  167. 2150 a$(pp[170]t)[178]a$:[130]:[160]2:[160]5:a[178]a[170]z:[141]2560:[137]2020
  168. 2200 [141]95
  169. 2201 [153]"f5= (NULL)eite + "
  170. 2202 [153]"f6= (NULL)eite -    "
  171. 2203 [153]"peekitte waehlen"
  172. 2210 [141]1:[139]a$[178]"input"[167]a[178]a[171]1:[137]2020
  173. 2220 [139]a$[178]"read"[167]a[178]a[170]10:[137]2020
  174. 2230 [139]a$[178]"if"[167]a[178]a[171]12:[137]2020
  175. 2240 [137]2210
  176. 2300 z[178]1:[141]2530
  177. 2320 a$(a[170]1)[178][201](a$(a),[195](a$(a))[171][194](925)):cc[178]999:in[178]1
  178. 2330 a$(a)[178][200](a$(a),[194](925))
  179. 2340 [139][200](a$(a[170]1),1)[178]" "[167]a$(a[170]1)[178][201](a$(a[170]1),[195](a$(a[170]1))[171]1):[137]2340
  180. 2345 a$(a)[178]a$(a)[170]"close":a[178]a[171]1:[137]2360
  181. 2350 z[178]1:[141]2530
  182. 2360 [153]"!!! (NULL)extprogramm !!! atnufschiebemodus !!!":[142]
  183. 2500 [153]" * * (NULL)extprogramm    * * atnufschieben * *":[141]2510:[137]2020
  184. 2510 [141]95
  185. 2511 [153]"f3 = (NULL) - (NULL)eilen  f5 = bis [f1]"
  186. 2512 [141]1:[139]a$[178]"input"[167]2560
  187. 2513 [139]a$[178]"read"[167]2300
  188. 2520 [153]"(NULL)ieviele (NULL)eilen":[133]z:pp[178]pp[171]1:a[178]a[171]1
  189. 2530 [129]o[178]an[170]z[164]pp[170]z[169][171]1
  190. 2540 a$(o)[178]a$(o[171]z):[130]
  191. 2550 [129]o[178]pp[170]1[164]pp[170]z:a$(o)[178]"":[130]:an[178]an[170]z
  192. 2560 [153]" + (NULL)extprogramm + valingabe / atnendern +  ":[142]
  193. 2600 [153]" * * (NULL)extprogramm    * * (NULL)oeschen   * * "
  194. 2610 [141]95
  195. 2620 [153]"(NULL)ieviele (NULL)eilen":[133]z
  196. 2630 [129]o[178]pp[164]an[170]z
  197. 2640 a$(o)[178]a$(o[170]z):[130]
  198. 2650 [129]o[178]an[171]z[164]an:a$(o)[178]"":[130]:an[178]an[171]z:[141]2560:a[178]a[171]1:[137]2020
  199. 2800 [153]" * * (NULL)extprogramm    * * lenopieren    * *":z[178]0:z1[178]0
  200. 2810 [141]95:[153]"(NULL)arkieren sie das untere valnde mit [f3]"
  201. 2820 [153]"[f1] = valnde   :  [f3] = (NULL)arkieren"
  202. 2825 [153]"[f5] = hoch   :  [f7] = runter"
  203. 2829 z[178]1
  204. 2830 [139]z[170]pp[179]1[176]z[170]pp[177]max[167]z[178]1
  205. 2831 g9[178]pp[170]z[171]6:[141]30705:[151]781,11:[151]782,0:[158]58636
  206. 2832 [153]"";a$(pp[170]z);"wait"
  207. 2833 [141]1:[139]a$[178]"input"[167]2030
  208. 2834 [139]a$[178]"read"[167]z[178]z[171]1
  209. 2835 [139]a$[178]"let"[167]z[178]z[170]1
  210. 2836 [139]a$[178]"dim"[167]2850
  211. 2840 [137]2830
  212. 2850 [139]z1[178]0[167]z1[178]z:[141]80:[153]"(NULL)arkieren sie wohin der peeklock soll    ":[137]2830
  213. 2860 z2[178]pp[170]z[171]1
  214. 2881 g9[178]pp[170]z[171]6:[141]30705:[151]781,11:[151]782,0:[158]58636
  215. 2886 [129]t[178]pp[164]pp[170]z1:a$(((t[170]1)[171]pp)[170]z2)[178]a$(t):[130]
  216. 2887 [139]an[179]((t[170]1)[171]pp)[170]z2[167]an[178]((t[170]1)[171]pp)[170]z2
  217. 2890 [137]7000
  218. 2900 [153]"load(NULL)ach welchem (NULL)ort soll gesucht werden":a$[178]""
  219. 2901 [141]9:c$[178]a$:[139]f[179][177]0[167]100
  220. 2902 [153]"load(NULL)elches (NULL)ort soll dafuer eingesetzt     werden":[141]9:b$[178]a$
  221. 2903 [153]"load";pt$;"     (j) = atnendern  (n)=(NULL)assen"
  222. 2910 l1[178][195](c$):l2[178][195](b$):l3[178]l2[171]l1
  223. 2920 [129]t[178]1[164]an[170]1:x[178]0:g[178]1:cc[178]0:[141]30400
  224. 2921 [139]cc[178]999[167][141]2960:cc[178]0
  225. 2925 x[178][195](a$(t)):[139]x[178]0[167][130]:[137]100
  226. 2930 [129]g[178]1[164]x
  227. 2935 [139][202](a$(t),g,l1)[179][177]c$[167][130]:[130]:[137]100
  228. 2939 [153]"";a6$;a6$;a6$
  229. 2940 [153]"";[201]("   "[170][196](t),3);" ";[200](a$(t),g[171]1)[170]""[170]c$[170]"wait";
  230. 2941 [153][201](a$(t),[195](a$(t))[171]g[171][195](c$)[170]1)
  231. 2942 [141]1:[139]a$[178]"n"[167]2950
  232. 2945 a$[178][200](a$(t),g[171]1)[170]b$[170][201](a$(t),x[171](g[170]l1)[170]1):x[178]x[170]l3:[141]30400:a$(t)[178]a$
  233. 2946 [139]cc[178]999[167][141]2960                           
  234. 2950 [130]:[130]:[137]100
  235. 2960 a$(t)[178]a$:a$(t[170]1)[178]r$[170]" "[170]a$(t[170]1):[139][195](a$(t[170]1))[179]m8[167][142]
  236. 2970 z[178]1:pp[178]t[170]1:[141]2530:a$[178]a$(t[170]1):[141]30400:a$(t[170]1)[178]a$:a$(t[170]2)[178]r$:[142]
  237. 4000 [153]"load";pt$
  238. 4001 [153]" + (NULL)ariablen aus der str$ateiverwaltung  + "
  239. 4002 [153]"-1- (NULL)ach (NULL)ummer"
  240. 4011 [153]"-2- (NULL)ach (NULL)amen"
  241. 4020 [141]1:[139]a$[178]"input"[167]100
  242. 4030 [139]a$[178]"1"[167][133]"(NULL)ummer";y:[137]4499
  243. 4040 [153]"load";pt$:[153]"(NULL)ame":[141]4:[141]5:b$[178]a$:[139]f[178]1[167]100
  244. 4050 [141]4100:[139]f[179][177]999[167]4499
  245. 4060 [137]4230
  246. 4100 [160]2:[159]2,fa,15:[159]5,fa,2,"ad,s,r":[141]34000:[139]er[179][177]0[167]100
  247. 4110 [141]34100:[132]5,a
  248. 4120 [139][200](a$,[195](b$))[178]b$[167][160]2:[160]5:y[178]a:[142]
  249. 4150 [139](st [175] 64)[178]64[167][160]2:[160]5:[137]4200
  250. 4160 [137]4110
  251. 4200 f[178]999:[153]"load";pt$
  252. 4210 [153]"str$atensatz ";b$
  253. 4220 [153]"nicht vorhanden.":[142]
  254. 4230 [153]"peekitte [f1] druecken":[141]1:[137]100
  255. 4499 [141]4500:[137]4560
  256. 4500 [160]2:[160]5
  257. 4501 hb[178][181](y[173]256):lb[178]y[171]hb[172]256
  258. 4510 [159]2,fa,15:[159]5,fa,2,"asalem,l,"[170][199](254)
  259. 4520 [152]2,"p"[170][199](2)[170][199](lb)[170][199](hb)[170][199](1)
  260. 4522 [132]2,en
  261. 4525 [139]en[179][177]0[167][153]"val(NULL)(NULL)(NULL)(NULL) ascalsche str$iskette !!!":[142]
  262. 4530 b[178]20:[141]4700:[141]4750:v$(1)[178]b$
  263. 4531 b[178]20:[141]4700:[141]4750:v$(2)[178]b$
  264. 4532 b[178]20:[141]4700:[141]4750:v$(3)[178]b$
  265. 4533 b[178]4:[141]4700:v$(4)[178]b$
  266. 4534 b[178]20:[141]4700:[141]4750:v$(4)[178]v$(4)[170]" "[170]b$
  267. 4536 b[178]16:[141]4700:v$(5)[178]b$
  268. 4537 b[178]2:[141]4700:v$(6)[178]b$[170]".":[141]4700:v$(6)[178]v$(6)[170]b$[170]".":b[178]4:[141]4700
  269. 4538 v$(6)[178]v$(6)[170]b$:b[178]10:[141]4700:v$(7)[178]b$
  270. 4539 b[178]2:[141]4700:v$(8)[178]b$
  271. 4542 b[178]10:[141]4700:v$(9)[178]b$
  272. 4544 b[178]10:[141]4700:v$(10)[178]b$
  273. 4546 b[178]20:[141]4700:[141]4750:v$(11)[178]b$
  274. 4548 b[178]20:[141]4700:v$(12)[178]b$
  275. 4549 b[178]20:[141]4700:[141]4750:v$(13)[178]b$
  276. 4550 b[178]20:[141]4700:[141]4750:v$(14)[178]b$
  277. 4555 [160]2:[160]5:[142]
  278. 4560 [153]"load";pt$:[153]"str$atensatz ";v$(2)
  279. 4561 [139]ba$[179][177]v$(8)[175]pr[178]0[167]v$(7)[178]"passwort geschuetzt"
  280. 4565 [153]:[129]t[178]1[164]14:[153]v$(t):[130]:[153]"peekitte [f1] druecken":[141]1:[137]100
  281. 4599 [137]100
  282. 4700 [151]917,b[171]1:[151]915,5:[158]50182,b$
  283. 4740 [139][201](b$,1)[178]" "[167]b$[178][200](b$,[195](b$)[171]1):[137]4740
  284. 4749 [142]
  285. 4750 a$[178][200](b$,1):[139][198](a$)[179]65[176][198](a$)[177]90[167][142]
  286. 4760 b$[178][201](b$,[195](b$)[171]1):b$[178][199]([198](a$)[170]32)[170]b$:[142]
  287. 5000 [137]5500
  288. 5001 [153]"load";pt$:[153]"(NULL)aden von str$iskette"
  289. 5010 [153]"   -1- (NULL)ext loeschen und neuen                 (NULL)ext laden"
  290. 5020 [153]"   -2- left$inter alten (NULL)ext laden"
  291. 5021 [153]"   -3- (NULL)istings laden"
  292. 5025 [153]"peekefehl";
  293. 5030 [141]1
  294. 5040 [139]a$[178]"input"[167]100
  295. 5041 b1$[178]"atnnsehen [f3]":b2$[178]"atnendern [2]"
  296. 5042 [139]a$[178]"1"[176]a$[178]"3"[167][141]1305:[137]5050
  297. 5043 [139]a$[178]"2"[167]5050
  298. 5045 [137]5030
  299. 5050 [153]"-";a$;"-":i[178]0:[139]a$[178]"3"[167]i[178]999
  300. 5060 [153]"load(NULL)ame der str$atei":a$[178]"":[141]9:t1$[178]a$:b$[178]a$:[139]f[178]1[167]100
  301. 5061 [139][200](a$,1)[179][177]"@"[167]5066
  302. 5062 a$[178][201](a$,[195](a$)[171]1):t[178][197](a$):a$[178]v$(30[170]t)
  303. 5063 [139]t[177]b[176]b[178]0[167]5060
  304. 5064 [137]5100
  305. 5066 [153]"atnufzeichnungsdatum:":a$[178]"??????":[141]9
  306. 5070 [139]pr[179][177]1[167]a$[178]">"[170]ba$[170]a$[170]b$
  307. 5071 [139]pr[178]1[167]a$[178]b$
  308. 5100 [143]
  309. 5102 [159]2,fa,15,"i0"
  310. 5103 [141]34000
  311. 5104 [159]5,fa,5,"0:"[170]a$[170]",s,r"
  312. 5105 ax[178]0:[141]34000:[139]en[178]62[167]100
  313. 5106 [139]i[178]999[167]5200
  314. 5107 [132]5,ax:[129]t[178]1[164]ax
  315. 5110 [143]
  316. 5111 [141]34100:a$(t[170]an)[178]a$:[139]a$(t[170]an)[178]">"[167]a$(t[170]an)[178]" "
  317. 5112 [141]34000
  318. 5113 [161]a$:[139]a$[178]"input"[167][160]2:[160]5:[137]100
  319. 5114 [130]
  320. 5115 an[178]an[170]ax
  321. 5120 [160]2:[160]5:[137]100
  322. 5200 [143]
  323. 5210 an[178]an[170]1
  324. 5211 [161]a$:[139]a$[178]"input"[167][160]2:[160]5:[137]100
  325. 5220 [141]34100:a$(an)[178]a$:[139]st[179][177]64[167]5210
  326. 5230 [160]2:[160]5:[137]100
  327. 5400 [153]"load";pt$:[153]"(NULL)ergleichen von str$iskette"
  328. 5401 a$[178]t1$:[153]"(NULL)ame":[141]9:[139]f[178]1[167]100
  329. 5402 [159]2,fa,15,"i0":[141]70
  330. 5403 [141]34000:[139]pr[179][177]1[167]a$[178]">"[170]ba$[170]"??????"[170]a$
  331. 5404 [159]5,fa,5,"0:"[170]a$[170]",s,r"
  332. 5405 [141]34000:[139]en[179][177]0[167]100
  333. 5407 [132]5,ax:[139]b[179][177]0[175]ax[179][177]b[171]v[167][153]"(NULL)eilenanzahl falsch"
  334. 5408 [129]t[178]1[164]ax
  335. 5410 [141]34100:[139]a$[178]">"[167]a$[178]" "
  336. 5412 [153]a$:[151]198,0:[146]198,1:[161]a$:[139]a$[178]"input"[167]5420
  337. 5413 [141]34000
  338. 5415 [130]
  339. 5420 [160]2:[160]5:[153]"(NULL)aste druecken":[141]1:[137]100
  340. 5500 [153]"load";pt$
  341. 5501 [153]" + (NULL)enu str$isketten-(NULL)perationen         + "
  342. 5502 [153]" laden     [4]"
  343. 5503 [153]" speichern [5]"
  344. 5510 [143]
  345. 5520 [153]"  -0- (NULL)enu"
  346. 5521 [153]"  -1- (NULL)ext vergleichen"
  347. 5525 [153]"  -2- (NULL)ext umbenennen"
  348. 5527 [153]"  -3- (NULL)ext loeschen"
  349. 5529 [153]"  -4- (NULL)ext laden"
  350. 5530 [153]"  -5- (NULL)ext speichern"
  351. 5532 [153]"  -6- right$nhaltsverzeichnis"
  352. 5534 [139]pr[178]1[167][153]"  -7- str$isk formatieren"
  353. 5536 [139]pr[178]1[167][153]"  -8- str$isk (NULL)ame + right$str$ aendern"
  354. 5550 [141]1
  355. 5551 [139]a$[178]"0"[176]a$[178]"input"[167]100
  356. 5552 [139][197](a$)[178]0[167]5500
  357. 5553 [145][197](a$)[137]5400,5650,5700,5001,6000,5800,5600,5900
  358. 5555 [142]
  359. 5600 [153]"load";pt$:pa$[178]"":[139]pr[178]0[167]100
  360. 5610 [153]" str$ i s k e t t e  asc o r m a t i e r e n "
  361. 5630 a$[178]"str$isketten (NULL)ame":[141]9:b$[178]a$:[139]f[178]1[167]100
  362. 5631 [153]"(NULL)chuetzen?":a$[178]"n":[141]9:[139]a$[178]"j"[167][133]"(NULL)asswort";pa$
  363. 5633 [139]a$[178]"j"[175][195](pa$)[179]10[167]pa$[178]pa$[170][199](0):[137]5633
  364. 5634 a$[178]"id"
  365. 5635 [153]"str$isketten right$str$  ":[141]9:id$[178]a$:a$[178][200](b$[170]"................",16)
  366. 5640 id$[178][200](id$[170]"te",2)
  367. 5641 [141]3
  368. 5642 [159]2,fa,15,"n:"[170]a$[170]","[170]id$:[160]2:[139]pa$[178]""[167][137]100
  369. 5643 [159]15,fa,15,pr$:[159]2,fa,2,"#"
  370. 5644 [152]15,"b-r 2 0 18 0":[152]15,"b-p 2 164"
  371. 5645 [152]2,[199](0)[170][199](0)[170][199](0):[152]15,"b-p 2 180":[152]2,pa$
  372. 5646 [152]15,"b-p 2 2":[152]2,"o";
  373. 5647 [152]15,"b-w 2 0 18 0":[160]2:[160]15:[137]100
  374. 5650 [153]"load";pt$:[153]"  +  (NULL) e x t   u m b e n e n n e n  +   "
  375. 5651 [153]"atnlter (NULL)ame":a$[178]"":[141]9:[139]f[178]1[167]100
  376. 5652 b$[178]a$:a$[178]"ttmmjj":[153]"str$atum":[141]9
  377. 5655 c$[178]a$:[153]"(NULL)euer (NULL)ame":[141]9
  378. 5656 [139]pr[178]1[167][141]3:a$[178]">"[170]a$:b$[178]">"[170]b$
  379. 5657 [139]pr[178]0[167][141]3:a$[178]">"[170]ba$[170]da$[170]a$:b$[178]">"[170]ba$[170]c$[170]b$
  380. 5660 [159]2,8,15,pr$
  381. 5670 [152]2,"r:"[170]a$[170]"="[170]b$:[141]34000:[160]2:[137]100
  382. 5700 [153]"load";pt$:[153]"    +  (NULL) e x t   l o e s c h e n  +     "
  383. 5715 [153]"(NULL)ame":[141]9:b$[178]a$:[139]f[178]1[167]100
  384. 5716 a$[178]"??????":[153]"str$atum      ":[141]9:[141]3
  385. 5717 [139]pr[179][177]1[167]a$[178]">"[170]ba$[170]a$[170]b$
  386. 5718 [139]pr[178]1[167]a$[178]">"[170]b$
  387. 5719 [159]2,fa,15,pr$
  388. 5720 [152]2,"s0:"[170]a$:[160]2:[137]100
  389. 5800 [160]15:[160]2:[159]15,fa,15,"i":[153]"load";pt$
  390. 5801 [153]"load";pt$:[153]"  + right$nhaltsverzeichnis der str$iskette  +  "
  391. 5810 [159]2,fa,2,"#"
  392. 5811 [152]15,"b-r 2 0 18 0":[152]15,"b-p 2 165"
  393. 5812 [161]#2,a$:[139]a$[179][177]""[167]5816
  394. 5813 [152]15,"b-p 2 180":pa$[178]"":[129]t[178]1[164]10:[161]#2,a$:pa$[178]pa$[170]a$:[130]
  395. 5814 [153]"str$ie str$iskette ist geschuetzt: chr$eben (NULL)ie  das (NULL)asswort ein"
  396. 5815 [133]a$:[139]a$[179][177]pa$[167][160]2:[160]15:[137]100
  397. 5816 b$[178]"":x[178]999:[141]5910:x[178]0:b$[178]"dim"
  398. 5817 [139]a$(2)[178]"inhalt"[167]an[178]an[170]2:a$(an)[178]id$[170]" "[170]n$:an[178]an[170]1
  399. 5820 t[178]18:s[178]1:b[178]0
  400. 5821 [141]5898
  401. 5830 [152]15,"u1 2 0";t;s
  402. 5840 v[178]0
  403. 5841 [161]#2,x$:x$[178]x$[170][199](0):t[178][198](x$)
  404. 5842 [161]#2,x$:x$[178]x$[170][199](0):s[178][198](x$)
  405. 5845 [129]x[178]0[164]7:[152]15,"b-p 2";x[172]32[170]2
  406. 5846 [161]#2,x$,a$:z[178][198](x$[170][199](0)):[139]z[179][177]8[172]16[170]1[175]pr[178]0 [167]5855
  407. 5847 [141]5890
  408. 5848 [139]b[178]10[167]b[178]0:[153]"peekitte f3 druecken":[146]198,1:[161]b$:[141]5898
  409. 5849 [139]b$[178]"input"[167]100
  410. 5850 x$[178]"seq ":[139]z[179][177]0[175]pr[178]1[167][141]5870
  411. 5851 [139]pr[178]0[175]z[179][177]0[167][153]"   ";b,"cmd";ff$:v$(30[170]b)[178]c$
  412. 5852 [139]pr[178]1[167][153]"  ";x$,ff$
  413. 5855 [130]x
  414. 5856 [139]t[179][177]0[167]5830
  415. 5860 [153]"peekitte f1 druecken":[141]1
  416. 5865 [137]100
  417. 5870 [139]z[178]130[167]x$[178]"prg "
  418. 5871 [139]z[178]129[167]x$[178]"seq "
  419. 5872 [139]z[178]194[167]x$[178]"prg<"
  420. 5873 [139]z[178]131[167]x$[178]"usr "
  421. 5874 [139]z[178]193[167]x$[178]"seq<"
  422. 5875 [139]z[178]195[167]x$[178]"usr<"
  423. 5880 [139]a$(1)[178]"p"[175]z[179][177]130[175]z[179][177]194[167][142]
  424. 5881 [139]a$(2)[179][177]"inhalt"[167][142]
  425. 5885 an[178]an[170]1:a$(an)[178]id$[170]" "[170]x$[170]ff$:[142]
  426. 5888 [137]100
  427. 5890 [139]pr[178]1[167]5897
  428. 5891 [161]#2,a$,a$:[139]a$[179][177]">"[167]z[178]0:[142]
  429. 5892 [161]#2,a$,b$:ff$[178]a$[170]b$:[139]ff$[179][177]ba$[175]ba$[179][177]"--"[167]z[178]0:[142]
  430. 5893 c$[178]">"[170]a$[170]b$:[161]#2,a$,b$:ff$[178]ff$[170]"  "[170]a$[170]b$[170]".":c$[178]c$[170]a$[170]b$
  431. 5894 [161]#2,a$,b$:ff$[178]ff$[170]a$[170]b$[170]".":c$[178]c$[170]a$[170]b$
  432. 5895 [161]#2,a$,b$:ff$[178]ff$[170]a$[170]b$[170]"  close":c$[178]c$[170]a$[170]b$
  433. 5896 [129]y[178]1[164]7:[161]#2,a$:c$[178]c$[170]a$:ff$[178]ff$[170]a$:[130]y:b[178]b[170]1:[142]
  434. 5897 ff$[178]"":[161]#2,a$:[129]y[178]0[164]15:[161]#2,a$:ff$[178]ff$[170]a$:[130]:b[178]b[170]1:[142]
  435. 5898 [153]"load";pt$:[153]"str$isk: ";n$;"  right$str$:";id$;""
  436. 5899 [153]"    (NULL)r.  (NULL)er  str$atum     (NULL)ame":[142]
  437. 5900 [139]pr[178]0[167]100
  438. 5901 [153]"load";pt$:[153]"atnendern des str$isknamens  oder der str$isk right$str$"
  439. 5902 [153]"str$ie zu atnendernde str$iskette einlegen und":[153]"  [f3]  druecken"
  440. 5903 [151]198,0:[141]1:[139]a$[179][177]"dim"[167]100
  441. 5908 b$[178]""
  442. 5909 [159]15,8,15,"i":[152]15,pr$:[159]2,8,2,"#"
  443. 5910 [152]15,"b-r 2 0 18 0":[152]15,"b-p 2 144":[129]t[178]1[164]20:[161]#2,a$:b$[178]b$[170]a$:[130]
  444. 5920 n$[178][200](b$,16):id$[178][201](b$,2)
  445. 5921 [139]x[178]999[167][142]
  446. 5925 [153]"(NULL)ame  ";n$:[133]"on(NULL)ame";n$
  447. 5927 [153]"right$str$    ";id$:[133]"onright$str$  ";id$
  448. 5930 n$[178]n$[170]"closeclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclose":id$[178]id$[170]"++":n$[178][200](n$,16):id$[178][200](id$,2)
  449. 5940 [152]15,"b-p 2 144":[152]2,n$;id$;:[152]15,"b-w 2 0 18 0"
  450. 5945 [160]2:[160]15
  451. 5950 [133]"(NULL)asswort";pa$:[139]pa$[178]"0"[167]100
  452. 5960 [139][195](pa$)[179]10[167]pa$[178]pa$[170][199](0):[137]5960
  453. 5970 [137]5643
  454. 6000 [153]"load";pt$:[153]"+ + (NULL) e x t    atn u f z e i c h n e n + +"
  455. 6001 [153]"(NULL)extname: ";t1$
  456. 6002 [153]" [f1]=valnde   [=] = (NULL)extname"
  457. 6004 a$[178]"=":[141]9:[139]f[178]1[167]100
  458. 6005 [139]a$[178]"="[167]a$[178]t1$:[139]t1$[178]""[167][153]"(NULL)ame fehlt":[137]6004
  459. 6006 t1$[178]a$:b$[178]">"[170]ba$[170]"??????"[170]a$
  460. 6007 [153]"atnlle (NULL)orgaenger loeschen (j/n)?":[141]1
  461. 6008 [139]a$[178]"j"[167][159]2,8,15,"s:"[170]b$:[160]2
  462. 6009 b1$[178]"str$rucken [3]":b2$[178]"valnde [f5]"
  463. 6015 a$[178]t1$:[141]70
  464. 6016 t1$[178]a$:[159]2,fa,15,"i0":a$[178]">"[170]ba$[170]da$[170]a$:[152]2,pr$
  465. 6017 [141]34000
  466. 6018 [159]5,fa,5,"@0:"[170]a$[170]",s,w"
  467. 6021 [141]34000
  468. 6022 ax[178]b[171]v:[152]5,[196](ax)
  469. 6024 [129]t[178]v[164]b:[139]a$(t)[178]""[176]a$(t)[178]" "[167]a$(t)[178]">"
  470. 6030 [152]5,a$(t):[139]a$(t)[178]">"[167]a$(t)[178]""
  471. 6031 [141]34000
  472. 6032 [130]:[160]2:[160]5:[137]100
  473. 7000 t[178]0:x[178]0
  474. 7002 [139]x[179]0[167]x[178]0
  475. 7003 [141]7030:[129]t[178]1[164]20
  476. 7004 [153]"";[201]([196](t[170]x[172]20),1);"wait";a$(t[170]x[172]20)
  477. 7006 [130]t
  478. 7007 [153]"f1=valnde   f3=(NULL)eite +   f5=(NULL)eite - "
  479. 7008 b1$[178]"atnendern   [2]"
  480. 7009 b2$[178]"(NULL)peichern [5]":b3$[178]"left$ilfe     [f7]"
  481. 7010 [141]1
  482. 7011 [139]a$[178]"input"[167]100
  483. 7012 [139]a$[178]"read"[167]x[178]x[171]1:[139]x[177][178]0[167]7002
  484. 7013 [139]a$[178]"dim"[167]x[178]x[170]1:[139]x[172]20[179]an[167]7002
  485. 7014 [139]x[172]20[177][178]an[167]x[178]0:[137]7002
  486. 7015 [139]x[179]0[167]x[178][181](an[173]20):[137]7002
  487. 7020 [137]7010
  488. 7030 [153]"load +(NULL) e x t  6 4 +peekildschirm+(NULL)eile        "
  489. 7031 [153]" +(NULL) e x t  6 4 +peekildschirm+(NULL)eile";x[172]20;"-"
  490. 7032 [142]
  491. 7100 [153]"load";pt$:[153]" + +      peekildschirmausgabe         + + "
  492. 7105 [133]"atnb (NULL)eile";x:[139]x[179]1[176]x[177]an[167]x[178]1
  493. 7106 x[178][181](x[173]20):[137]7002
  494. 8000 [153]"load";pt$
  495. 8002 g[178]0
  496. 8006 [153]" -1- (NULL)eustart des (NULL)rogramms"
  497. 8007 [153]" -2- right$nfo ueber (NULL)peicherplatz"
  498. 8008 [153]" -3- (NULL)on aus"
  499. 8009 [153]" -4- (NULL)on an"
  500. 8010 [141]1
  501. 8011 [139]a$[178]"1"[167]10000
  502. 8013 [139]a$[178]"0"[176]a$[178]"input"[167]100
  503. 8014 [139]a$[178]"1"[167][138]
  504. 8015 [139]a$[178]"2"[167][153][184](9);"(NULL)eichen frei":[153]" (NULL)aste druecken":[141]1:[137]26
  505. 8016 [139]a$[178]""[167][133]"code";a$:[139]a$[178]"susi"[167]55555
  506. 8017 [139]a$[178]""[175](ba$[178]"--"[176]ba$[178]"of")[167]pr[178]1:[153]"(NULL)rog ok":[141]1:[137]100
  507. 8018 [139]a$[178]""[167]pr[178]0:[153]"(NULL)rogrammierer aus":[141]1:[137]100
  508. 8019 [139]a$[178]"3"[167]t9%[178]1:[153]"(NULL)on aus":[137]100
  509. 8020 [139]a$[178]"4"[167]t9%[178]0
  510. 8021 [139]a$[178]""[175]pr[178]1[167][128]
  511. 8099 [137]100
  512. 9400 [143]*** fill ***
  513. 9401 [153]"load";pt$:[153]" * * (NULL)extprogramm * * atnusfuellen  * *   "
  514. 9407 f2[178]0:[153]"(NULL)eben den (NULL)ext [j/n]":[141]1:[139]a$[178]"j"[167]f2[178]1
  515. 9408 [139]a$[178]"input"[167]100
  516. 9409 [139]f2[178]1[167][153]"(NULL)inks/(NULL)echts [l/r]":[141]1:g[178]1:[139]a$[178]"r"[167]g[178]2
  517. 9410 [141]70
  518. 9421 [133]"(NULL)chrittweite";s:[139]s[179][178]0[167]9421
  519. 9429 [153]"load(NULL)as ?"
  520. 9430 a$[178]"":[141]9:[139]f[178]1[167]100
  521. 9440 [139]b[177]an[167]an[178]b
  522. 9450 [129]t[178]v[164]b[169]s
  523. 9452 [139]f2[178]0[167]a$(t)[178]a$
  524. 9453 [139]f2[178]1[175]g[178]1[167]a$(t)[178]a$[170]a$(t)
  525. 9454 [139]f2[178]1[175]g[178]2[167]a$(t)[178]a$(t)[170]a$
  526. 9455 [130]:[137]7000
  527. 9689 [142]
  528. 9700 [153]"load";pt$;""
  529. 9710 [153]"  1  (NULL)ariablen zeigen"
  530. 9712 [153]"  2  (NULL)ariablen eingeben"
  531. 9713 [153]"  3  (NULL)ariablen an"
  532. 9714 [153]"  4  (NULL)ariablen aus"
  533. 9715 [153]"  5  (NULL)ariablen zu (NULL)ext"
  534. 9717 [153]"  6  (NULL)ariablen als (NULL)ext 1-50"
  535. 9718 [153]"  7  (NULL)ext als (NULL)ariablen 1-50"
  536. 9719 [153]"  8  (NULL)ariablen aus str$ateiverwaltung"
  537. 9750 [141]1
  538. 9755 [139]a$[178]"0"[176]a$[178]"input"[167]100
  539. 9760 [145][197](a$)[137]9800,9900,9780,9785,9850,9790,9795,4000
  540. 9770 [137]9750
  541. 9780 v9[178]1:[153]"(NULL)ariablen an":[129]t[178]1[164]999:[130]:[137]9700
  542. 9785 v9[178]0:[153]"(NULL)ariablen aus":[129]t[178]1[164]999:[130]:[137]100
  543. 9790 [129]t[178]1[164]50:a$(t)[178]v$(t):an[178]50:[130]:[137]100
  544. 9795 [129]t[178]1[164]50:v$(t)[178]a$(t):[130]:[137]100
  545. 9800 [153]"load";pt$
  546. 9801 [129]t[178]1[164]50:[153]t,v$(t)
  547. 9810 [139]t[173]20[178][181](t[173]20)[167][141]1:[153]"load";pt$
  548. 9820 [130]:[141]1:[137]100
  549. 9850 [141]3:v9[178]1
  550. 9860 [129]t[178]1[164]an:a$[178]a$(t):[141]30300:a$(t)[178]a$:[130]:v9[178]0:[137]100
  551. 9900 [153]"load";pt$:[153]"      + + (NULL)ariablen valright$(NULL)chr$atnpeekval + +"
  552. 9901 [133]"(NULL)ariablen (NULL)r.";a:[139]a[177]40[167]9900
  553. 9910 a$[178]"":[141]9:v$(a)[178]a$
  554. 9920 [153]:[153]"(NULL)och eine? [j/n]"
  555. 9930 [141]1
  556. 9940 [139]a$[178]"n"[167]100
  557. 9950 [137]9900
  558. 10000 [153]"load";pt$:b$[178]a$
  559. 10010 [153]"atnlenleft$(NULL)(NULL)(NULL)chr$ !!! (NULL)ext unbedingt (NULL)(NULL)valright$lenleft$val(NULL)(NULL)"
  560. 10020 [153]"right$st der (NULL)ext schon gespeichert? [j/n]"
  561. 10030 [141]1:[139]a$[179][177]"j"[167]6000
  562. 10040 a$[178]b$:[151]930,0:[137]8013
  563. 20000 [153]"load";pt$:[153]" + + (NULL)extprogramm + + (NULL) val len left$ (NULL) val (NULL)  + +"
  564. 20009 [153]" [e]= valnde"
  565. 20010 [153]" [c]= (NULL)peicher loeschen"
  566. 20011 [153]" [m]= (NULL)ehrwertsteuer eingeben"
  567. 20013 [153]" [+] [-] [*] [:] = (NULL)echenoperationen"
  568. 20015 rr[178][181]((rr[172]100)[170]0.5)[173]100
  569. 20019 [153]"";rr;"wait";
  570. 20020 [141]1
  571. 20030 [139]a$[178]"c"[167]rr[178]0:[137]20000
  572. 20031 [139]a$[178]"e"[176]a$[178]"input"[167]100
  573. 20032 [139]a$[178]"m"[167][133]"(NULL)teuer in %   14cmdcmdcmdcmd";mw:[137]20000
  574. 20034 [139]a$[179][177]"+"[175]a$[179][177]"-"[175]a$[179][177]"*"[175]a$[179][177]":"[167]20020
  575. 20040 [153]a$;"  ";:[133]x
  576. 20050 [139]a$[178]":"[175]x[178]0[167][153]"ascehler... nicht durch 0 dividieren":[137]20020
  577. 20060 [139]a$[178]":"[167]rr[178]rr[173]x
  578. 20061 [139]a$[178]"*"[167]rr[178]rr[172]x
  579. 20062 [139]a$[178]"+"[167]rr[178]rr[170]x
  580. 20063 [139]a$[178]"-"[167]rr[178]rr[171]x
  581. 20064 [137]20000
  582. 22000 [139][194](1022)[178]0[167][141]22100
  583. 22001 [139][194](1022)[178]0[167][151]1022,1:[147]"zeichen b",8,1
  584. 22002 [139][194](1022)[178]250[167][151]1022,240:[147]"zeichen din",8,1
  585. 22003 [139][194](1022)[178]1[167][151]53272,11:[151]56576,[194](56576)[175]252:[151]648,192
  586. 22004 [139][194](1022)[178]240[167][151]53272,11:[151]56576,[194](56576)[175]252:[151]648,192
  587. 22005 [139][194](1022)[178]1[167][151]1022,2:[147]"zeichen d",8,1
  588. 22006 [153]"load":[139][194](1022)[178]240[167][151]1022,199:[147]"zeichen ddin",8,1
  589. 22007 [139][194](1022)[178]2[167][151]1022,3:[147]"profip v1.0",8,1
  590. 22008 [139][194](1022)[178]199[167][151]1022,200:[147]"profip v1.0",8,1
  591. 22009 [139][194](1022)[178]111[167][151]53272,11:[151]56576,[194](56576)[175]252:[151]648,192:[128]
  592. 22010 [137]11
  593. 22100 [153][199](14);"load (NULL)extverarbeitungsprogramm      (NULL).ascendt "
  594. 22105 [153]"(NULL)as fuer eine (NULL)astaturbelegung?"
  595. 22106 [133]" [din] - [cbm]dincmdcmdcmdcmdcmd";a$
  596. 22107 [139]a$[178]"din"[167][151]1022,250
  597. 22108 [141]3:[142]
  598. 30000 g9[178]g8[171]6:[141]30700:xt[178]0:[139][195](a$)[177]m8[167]a$[178][200](a$,m8)
  599. 30001 [151]922,am:cf[178]1:[139]u9[178]2[167]u9[178]0:cp[178][195](r$)[170]cb:[137]30020
  600. 30002 [139]cc[178]999[167]cp[178][195](a$(g8)):cc[178]0:[137]30020
  601. 30010 cc[178]0:x[178]0:cp[178]cb
  602. 30020 [139]cp[178]0[167]cp[178]1
  603. 30021 [151]908,cp[171]1:[151]918,m8[171](m8[173]5):[151]920,11:[151]917,m8:[151]924,0
  604. 30040 [158] 50176,a$,a$ :f[178][194](913):[139]a$[178]"> "[167]a$[178]""
  605. 30045 [141]31
  606. 30053 [139]f[178]9[167][141]30550:[137]30020
  607. 30054 [139]f[178]15[167]a$[178]"":a$(g8)[178]"":[137]30000
  608. 30055 [139]f[178]11[167][141]30400:a$(g8)[178]a$
  609. 30056 [139]f[178]20[167]cc[178]999:f[178]5
  610. 30057 [139]f[178]16[167]f[178]0:[139][201](a$,1)[179][177]"rnd"[167]a$[178]a$[170]"rnd"
  611. 30099 [141]30300:[141]30400:[153]:[142]
  612. 30300 [143] ** variablen test **
  613. 30301 [139]v9[178]0[167][142]
  614. 30310 [129]b[178]1[164][195](a$)[171]2
  615. 30320 [139][202](a$,b,1)[179][177]"@"[167][130]:[142]
  616. 30330 x[178][197]([202](a$,b[170]1,2)):[139]x[177]50[167]x[178]0
  617. 30340 a$[178][200](a$,b[171]1)[170]v$(x)[170][201](a$,[195](a$)[171]b[171]2):[137]30310
  618. 30350 [130]:[142]
  619. 30400 [139][195](a$)[179]m8[167][142]
  620. 30401 [139][195](a$)[177]80[167]30440
  621. 30403 cc[178]999:[129]i[178]m8[164]1[169][171]1
  622. 30410 [139][202](a$,i,1)[179][177]" "[167][130]i:[137]30440
  623. 30420 r$[178][201](a$,[195](a$)[171]i):a$[178][200](a$,i[171]1):u9[178]1
  624. 30421 [139][201](r$,1)[178]" "[167]r$[178][200](r$,[195](r$)[171]1):[137]30421
  625. 30430 [139][195](a$)[177][178]m8[167][130]:[137]30440
  626. 30431 [142]
  627. 30440 [141]95:[153]">> (NULL)eile zu lang << ascehler !!":[151]198,0
  628. 30441 a$[178][200](a$,m8[171]1)
  629. 30442 [141]30601:[139][194](198)[179]1[167]30442
  630. 30443 [151]198,0:[142]
  631. 30550 [139]cp[170]1[177][195](t7$)[176]xt[178]1[167][142]
  632. 30560 x[178]0:[129]z[178]cp[170]1[164][195](t7$):[139][202](t7$,z,1)[178]"+"[175]x[178]0[167]x[178]1:cp[178]z
  633. 30570 [130]:[139]x[178]0[167]xt[178]1
  634. 30580 [139][195](a$)[179]cp[167]a$[178]a$[170]"close":[137]30580
  635. 30590 [142]
  636. 30600 [143] ** error system **
  637. 30601 [139]t9%[178]1[167][142]
  638. 30602 [151]53280,1
  639. 30603 [151]54296,15:[151]54277,25:[151]54278,4[172]16[170]4
  640. 30610 [151]54273,29:[151]54272,69:[151]54276,17
  641. 30619 [129]t[178]1[164]200:[130]
  642. 30620 [151]53280,0:[129]t[178]1[164]200:[130]
  643. 30621 [151]54276,0:[151]54277,0:[151]54278,0:[142]
  644. 30700 [143]   ** fenster **
  645. 30701 [153]"";pt$:[153]"";t7$
  646. 30702 [141]80:[141]30750
  647. 30705 [153]"":[129]i[178]0[164]10:[151]781,i[170]5:[151]782,0:[158]58636
  648. 30710 [139]g9[170]i[179][178]0[167][141]90:[137]30740
  649. 30720 v[178]mb[171][195](a$(i[170]g9)):[139]v[179]0[167]v[178]0
  650. 30730 [153]a$(i[170]g9)[170][200](a6$,v)
  651. 30740 [130]:[141]90:[142]
  652. 30750 [153]k1$;[200](a6$,(mb[170]2)[171][195](k1$))
  653. 30751 [153]k2$;[200](a6$,(mb)[171][195](k2$))
  654. 30752 [153]k3$;[200](a6$,(mb)[171][195](k3$))
  655. 30753 [153]k4$;[200](a6$,(mb)[171][195](k4$)):[142]
  656. 31000 [143] *****************************
  657. 31001 [143] *****************************
  658. 31002 [143] **     initialisierung     **
  659. 31003 [143] *****************************
  660. 31004 [143] *****************************
  661. 31006 pt$[178]"left$ypra-text (NULL)1.0          by (NULL)liver ascendtwait":me[178]100:[153]"load";pt$
  662. 31009 fu$[178]"(NULL)echnen":mw[178]14
  663. 31010 [134]v$(50)
  664. 31016 [151]53281,0:[151]53280,0:[139]m8[179][178]7[167]m8[178]36
  665. 31019 t7$[178]"!----+----+----+----+----+----+----------"
  666. 31020 [141]46000:b1$[178][196](m8)[170]" (NULL)eichen (NULL)odus"
  667. 31048 a6$[178]"                                                                   "
  668. 31060 b1$[178]"(NULL)aden       [5]"
  669. 31061 b2$[178]"valingabe     [f1]"
  670. 31062 b3$[178]"left$ilfe       [f7]"
  671. 31063 [141]1840:pr$[178]"m-w"[170][199](1)[170][199](1)[170][199](1)[170]"a"
  672. 31150 [153]"load";pt$:[153]"chr$uten (NULL)ag,";v$(1)
  673. 31160 [153]"peekitte geben (NULL)ie das str$atum ein."
  674. 31199 [142]
  675. 33000 [143] *** formblatt ***
  676. 33001 [153]"load";pt$:[153]" + (NULL) a s k e  ausfuellen  + (NULL)on (NULL)enu 1 +":a[178]cb
  677. 33004 b1$[178]"(NULL)peichern [5]":b2$[178]"atnendern [2]"
  678. 33010 [129]pq[178]1[164]an
  679. 33020 a$[178]a$(pq):a$(pq)[178]a$
  680. 33021 [139][195](a$)[178]0[167][130]:[137]33099
  681. 33022 [129]px[178]1[164][195](a$):l[178]0
  682. 33025 [139][202](a$,px,1)[178]"to"[167]cb[178]px:[137]33050:[139]cc[178]4[175]c8[178]0[167]100
  683. 33027 [130]:g9[178]pq[171]6:[141]30700:[130]:[137]33099
  684. 33050 [129]px[178]cb[164][195](a$):[139][202](a$,px,1)[178]"to"[167][130]
  685. 33060 a$[178][200](a$(pq),cb)[170][200](a6$,px[171]cb[171]1)
  686. 33061 x[178][195](a$(pq))[171]px[170]1:[139]x[177]0[167]a$[178]a$[170][201](" "[170]a$(pq),x)
  687. 33062 a$(pq)[178]a$
  688. 33070 g8[178]pq:[141]30000:a$(pq)[178]a$:[139]f[178]1[167]100
  689. 33072 [137]33022
  690. 33099 cb[178]a:[137]100
  691. 33200 [142]
  692. 34000 [143] *****************************
  693. 34001 [143] *                           *
  694. 34002 [143] *  floppy control           *
  695. 34003 [143] *                           *
  696. 34010 [143] *****************************
  697. 34020 [132]2,en,em$,et,es:[139]en[178]0[167][142]
  698. 34050 [153]"";en;"  ";em$
  699. 34060 [153]"(NULL)aste druecken"
  700. 34070 [141]1
  701. 34080 [139]en[178]62[176]xy[178]999[167][142]
  702. 34090 [153]"(NULL)ontrollieren und nach dem beheben      [f1] druecken"
  703. 34091 [141]1:[139]a$[179][177]"input"[167]34091
  704. 34092 [152]2,"i":[137]100
  705. 34100 [151]915,5:[151]908,0:[151]917,m8:[158]50182,a$
  706. 34110 [141]31:[142]
  707. 34500 [129]t[178]20767[170]8500 [164]65000
  708. 34510 [139][194](t)[179][177]0[167][130]
  709. 34520 x[178]t
  710. 34530 [153][194](x)[170][194](x[170]1)[172]256
  711. 34540 x[178]x[170]2
  712. 34550 [139][194](x)[178]0[167]x[178]x[170]3:[153]:[137]34530
  713. 34560 [153][199]([194](x));:x[178]x[170]1:[137]34550
  714. 40000 [153]"str$atum:":a$[178]"------":[141]9:da$[178]a$
  715. 40010 [139]da$[178]"------"[167]40000
  716. 40020 d$[178][200](da$,2)[170]"."[170][202](da$,3,2)[170]".19"[170][201](da$,2):[142]
  717. 43000 [143]
  718. 43040 am[178]1
  719. 43060 [142]
  720. 46000 [153]"load";pt$;[199](14):m8[178]39:cb[178]1:mb[178]39:t9%[178]1
  721. 46001 [153]"(NULL)arameterdiskette einlegen"
  722. 46002 [139][194](930)[179][177]0[167]ba$[178][199]([194](930))[170][199]([194](931)):fa[178][194](932):[137]46070
  723. 46003 [153]"ascloppy  atndr.:  8":[141]1:fa[178][197](a$):[139]a$[178][199](13)[167]fa[178]8
  724. 46004 [139]fa[179]8[176]fa[177]9[167]46003
  725. 46005 t9%[178]1:[153]"(NULL)ame         ":[141]4:[141]5:b$[178]a$:t[178]0:[153]
  726. 46006 [139][197](b$)[179][177]0[167]y[178][197](b$):[141]4500:[137]46010
  727. 46007 [141]4100:[139]f[179][177]999[167][141]4500
  728. 46010 [139]f[178]999[176]en[179][177]0[167][153]"peekenutzer nicht registriert":[141]1:[137]46000
  729. 46013 [139][194](1022)[178]200[167]am[178]2
  730. 46050 m8[178]39
  731. 46053 [139]v$(7)[178]"-"[167][153]"(NULL)eine (NULL)ugriffsberechtigung":[141]1:[137]46000
  732. 46055 [139]t[177]2[167][153]:[153]"(NULL)asswort falsch":[141]1:[137]46000
  733. 46056 [153]"lenodewortstop":[141]4:[141]5:[153]"":[139]a$[179][177]v$(7)[167]t[178]t[170]1:[137]46055
  734. 46058 ba$[178]v$(8)
  735. 46060 [151]930,[198]([200](ba$,1))
  736. 46061 [151]931,[198]([201](ba$,1))
  737. 46062 [151]932,fa
  738. 46070 xy[178]0:[142]
  739. 55555 [160]15:[159]15,8,15,"i":[160]15
  740. 55556 [153]"loadich speichere": [148]"@:pt"[170]da$,8
  741. 55557 [151]2,0
  742. 55560 [153]"ist gespeichert":[128]
  743. 56100 [153]"load";pt$
  744. 56101 [153]" atnlenleft$(NULL)(NULL)(NULL)chr$ !!!wait"
  745. 56102 [153]" (NULL)ur wenn der (NULL)ext schon gespeichert"
  746. 56103 [153]" ist, dann die left$ypra-text str$iskette"
  747. 56104 [153]" einlegen, und [f8] druecken !!!"
  748. 56106 [141]1:[139]a$[179][177]"restore"[167]100
  749. 56107 [153]"load";pt$:[153]"right$ch lade nun (NULL)rofiprint"
  750. 56108 [153]"  peekitte warten ..."
  751. 56109 [151]2,0:[147]"profiprint",8
  752.