home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 91 / 64er_Magazin_Sonderheft_91_19xx_Markt__Technik_de_Side_A.d64 / fahrrad (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  15KB  |  560 lines
  1. 10 remfahrrad
  2. 11 gosub10010
  3. 12 print:print"    directory-routine wird geladen"
  4. 20 gosub9002
  5. 100 gosub10010
  6. 180 print"[221]             r b - s o f t            [221]";
  7. 190 print"[171]CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC[179]";
  8. 200 print"{$7d}                                      {$7d}";
  9. 210 print"{$7d}    fahrtenbuch               = f1    {$7d}";
  10. 220 print"{$7d}                                      {$7d}";
  11. 230 print"{$7d}    fahrradkosten             = f3    {$7d}";
  12. 240 print"{$7d}                                      {$7d}";
  13. 250 print"{$7d}    fahrraddaten erfassen     = f5    {$7d}";
  14. 260 print"{$7d}                                      {$7d}";
  15. 270 print"{$7d}    fahrraddaten anzeigen     = f7    {$7d}";
  16. 280 print"{$7d}                                      {$7d}";
  17. 290 print"[221]                                      [221]";
  18. 300 print"{$7d}                                      {$7d}";
  19. 310 print"[221]    disketteninhalt           = f2    [221]";
  20. 320 print"{$7d}                                      {$7d}";
  21. 330 print"[221]    programmende              = f4    [221]";
  22. 340 print"{$7d}                                      {$7d}";
  23. 350 print"[173]CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC";
  24. 360 poke2023,125:poke56295,15
  25. 400 getm$:ifm$=""then400
  26. 410 ifm$=chr$(133)then1000
  27. 420 ifm$=chr$(134)then2001
  28. 430 ifm$=chr$(135)then3000
  29. 440 ifm$=chr$(136)then4010
  30. 450 ifm$=chr$(137)then6010
  31. 460 ifm$=chr$(138)then7010
  32. 480 goto 400
  33. 1000 gosub10010
  34. 1090 print"[221]                                      [221]";
  35. 1091 print"[221]        f a h r t e n b u c h         [221]";
  36. 1092 print"[221]                                      [221]";
  37. 1110 print"[171]CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC[179]";
  38. 1120 fori=1to13
  39. 1130 print"{$7d}                                      {$7d}";
  40. 1140 next
  41. 1150 print"[173]CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC";
  42. 1160 poke2023,125:poke56295,15
  43. 1170 print""
  44. 1180 print""
  45. 1191 print"weiterer eintrag        = f1"
  46. 1192 print"fahrtenbuch anzeigen    = f3"
  47. 1193 print"fahrtenbuch drucken     = f5"
  48. 1194 print"zurueck zum grundmenue  = f7"
  49. 1200 getm$:ifm$=""then1200
  50. 1201 ifm$=chr$(133)then1300
  51. 1202 ifm$=chr$(134)then1400
  52. 1203 ifm$=chr$(135)then1500
  53. 1204 ifm$=chr$(136)then100
  54. 1205 goto 1200
  55. 1300 gosub10010
  56. 1310 print:print"            weiterer eintrag"
  57. 1312 print"            [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  58. 1314 print"            bitte eintippen:"
  59. 1316 print
  60. 1318 input"  datum (10-stellig):   ";f$
  61. 1320 print
  62. 1322 input"  strecke (bis 10 st.): ";g$
  63. 1324 print
  64. 1326 input"  entfernung km:        ";f
  65. 1328 print
  66. 1330 input"  fahrzeit minuten:     ";g
  67. 1332 print"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  68. 1334 print"              richtig j/n"
  69. 1336 getm$:ifm$=""then1336
  70. 1338 ifm$="j"then1346
  71. 1340 ifm$="n"then1300
  72. 1342 goto1336
  73. 1346 open2,8,2,"fahrtbuch,s,a"
  74. 1354 print#2,f$
  75. 1356 print#2,g$
  76. 1358 print#2,f
  77. 1360 print#2,g
  78. 1362 close2
  79. 1364 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  80. 1366 print"          weiterer eintrag j/n"
  81. 1368 getm$:ifm$=""then1368
  82. 1370 ifm$="j"then1300
  83. 1372 ifm$="n"then1000
  84. 1374 goto1368
  85. 1400 print"[147]"
  86. 1402 rem fahrtbuch ansehen
  87. 1403 clr:s$="[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  88. 1404 open2,8,2,"fahrtbuch,s,r"
  89. 1406 s=s+1:print"          fahrtbuch        seite: ";s
  90. 1408 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  91. 1410 print"datum      strecke         km      min."
  92. 1412 prints$
  93. 1414 input#2,f$
  94. 1416 input#2,g$
  95. 1418 input#2,f
  96. 1420 input#2,g
  97. 1422 iflen(f$)<10thenf$=f$+" ":goto1422
  98. 1424 iflen(g$)<10theng$=g$+" ":goto1424
  99. 1426 h$=str$(f)
  100. 1427 f=(f*10):f=int(f):f=f/10
  101. 1428 iff=int(f)thenh$=h$+".0"
  102. 1434 iflen(h$)<9thenh$=" "+h$:goto1434
  103. 1435 iflen(g$)>10theng$=left$(g$,10)
  104. 1436 g=int(g)
  105. 1438 i$=str$(g)
  106. 1440 iflen(i$)<6theni$=" "+i$:goto1440
  107. 1442 printf$;" ";g$;" ";h$;" ";i$
  108. 1444 l=l+1:s1=s1+f:s2=s2+g
  109. 1446 ifl=15then1452
  110. 1448 ifst=64then1470
  111. 1450 goto1414
  112. 1452 prints$
  113. 1454 print"    naechste seite = 1, hardcopy = h"
  114. 1456 getm$:ifm$=""then1456
  115. 1458 ifm$="1"then1464
  116. 1460 ifm$="h"thengosub8002
  117. 1462 goto1456
  118. 1464 l=0:print"[147]"
  119. 1466 goto1406
  120. 1470 close2:prints$:print"summen                ";
  121. 1472 s$=str$(s1)
  122. 1473 s1=(s1*10):s1=int(s1):s1=(s1/10)
  123. 1474 ifs1=int(s1)thens$=s$+".0"
  124. 1480 iflen(s$)<9thens$=" "+s$:goto1480
  125. 1482 s2=int(s2)
  126. 1484 t$=str$(s2)
  127. 1486 iflen(t$)<6thent$=" "+t$:goto1486
  128. 1488 prints$;" ";t$
  129. 1490 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  130. 1492 print"     zurueck = f7, hardcopy = h"
  131. 1494 getm$:ifm$=""then1494
  132. 1495 ifm$="h"thengosub8002
  133. 1496 ifm$=chr$(136)then1000
  134. 1497 goto1494
  135. 1500 print:open1,4
  136. 1501 print"[147]":print"       fahrtbuch wird gedruckt"
  137. 1502 rem fahrtbuch drucken
  138. 1504 s$="[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  139. 1506 open2,8,2,"fahrtbuch,s,r"
  140. 1508 s=s+1:print#1,"          fahrtbuch       "
  141. 1510 print#1,"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  142. 1512 print#1,"datum      strecke         km      min."
  143. 1514 print#1,s$
  144. 1515 n$=f$:o$=g$:n=f:o=g
  145. 1516 input#2,f$
  146. 1518 input#2,g$
  147. 1520 input#2,f
  148. 1522 input#2,g
  149. 1523 ifn$=f$ando$=g$andn=fando=gthen1568
  150. 1524 iflen(f$)<10thenf$=f$+" ":goto1524
  151. 1526 iflen(g$)<10theng$=g$+" ":goto1526
  152. 1527 iflen(g$)>10theng$=left$(g$,10)
  153. 1528 h$=str$(f)
  154. 1529 f=(f*10):f=int(f):f=(f/10)
  155. 1530 iff=int(f)thenh$=h$+".0"
  156. 1534 iflen(h$)<9thenh$=" "+h$:goto1534
  157. 1536 g=int(g)
  158. 1538 i$=str$(g)
  159. 1540 iflen(i$)<6theni$=" "+i$:goto1540
  160. 1542 print#1,f$;" ";g$;" ";h$;" ";i$
  161. 1544 s1=s1+f:s2=s2+g
  162. 1550 goto1515
  163. 1568 close2:print#1,s$:print#1,"summen                ";
  164. 1570 s$=str$(s1)
  165. 1572 s3=s1:ifs3=int(s1)thens$=s$+".0"
  166. 1574 s3=(s1*10):ifs3=int(s3)thens$=s$+"0"
  167. 1576 iflen(s$)<9thens$=" "+s$:goto1576
  168. 1578 s2=int(s2)
  169. 1580 t$=str$(s2)
  170. 1582 iflen(t$)<6thent$=" "+t$:goto1582
  171. 1584 print#1,s$;" ";t$
  172. 1586 print#1,"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]":close1
  173. 1588 print"    druck beendet, zurueck = f7"
  174. 1590 getm$:ifm$=""then1590
  175. 1594 ifm$=chr$(136)then1000
  176. 1596 goto1590
  177. 2000 rem kosten
  178. 2001 gosub10010
  179. 2002 fori=1to3
  180. 2004 print"{$7d}                                      {$7d}";
  181. 2006 next
  182. 2008 print"[171]CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC[179]";
  183. 2010 fori=1to13
  184. 2012 print"{$7d}                                      {$7d}";
  185. 2014 next
  186. 2016 print"[173]CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC";
  187. 2018 poke2023,125:poke56295,15
  188. 2020 print"":print"f a h r r a d k o s t e n"
  189. 2022 print"erfassen      = f1"
  190. 2024 print"auswertungen  = f3"
  191. 2026 print"zurueck       = f7"
  192. 2028 getm$:ifm$=""then2028
  193. 2030 ifm$=chr$(133)then2040
  194. 2032 ifm$=chr$(134)then2201
  195. 2034 ifm$=chr$(136)then100
  196. 2036 goto2028
  197. 2040 gosub10010
  198. 2041 fori=1to3
  199. 2042 print"[221]                                      [221]";
  200. 2043 next
  201. 2044 print"[171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]";
  202. 2045 fori=1to13
  203. 2046 print"[221]                                      [221]";
  204. 2047 next
  205. 2048 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]";
  206. 2049 poke2023,125:poke56295,15
  207. 2050 print"erfassen fahrradkosten"
  208. 2052 print"reparaturen     = f1"
  209. 2054 print"pflegemittel    = f3"
  210. 2056 print"sonstige kosten = f5"
  211. 2058 print"zurueck         = f7"
  212. 2060 getm$:ifm$=""then2060
  213. 2062 ifm$=chr$(133)thenk$="r":goto2074
  214. 2064 ifm$=chr$(134)thenk$="p":goto2074
  215. 2066 ifm$=chr$(135)thenk$="s":goto2074
  216. 2068 ifm$=chr$(136)then2001
  217. 2070 goto2060
  218. 2074 gosub10010
  219. 2076 print"bitte erfassen"
  220. 2078 print"[184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  221. 2080 ifk$="r"thenprint"             reparaturen"
  222. 2082 ifk$="p"thenprint"             pflegemittel"
  223. 2084 ifk$="s"thenprint"            sonstige kosten"
  224. 2086 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  225. 2088 input"datum (10-stellig):   ";k1$
  226. 2090 print:input"bezeichnung (-15 st): ";k2$
  227. 2092 print:input"betrag dm:            ";k1
  228. 2094 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  229. 2096 print"               richtig j/n"
  230. 2098 getm$:ifm$="j"then2104
  231. 2100 ifm$="n"then2040
  232. 2102 goto2098
  233. 2104 open2,8,2,"kosten,s,a"
  234. 2106 print#2,k$
  235. 2108 print#2,k1$
  236. 2110 print#2,k2$
  237. 2112 print#2,k1
  238. 2114 close2
  239. 2116 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  240. 2118 print"        position ist gespeichert"
  241. 2119 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  242. 2120 forn=1to500:nextn:goto2040
  243. 2200 rem auswertungen kosten
  244. 2201 clr
  245. 2210 gosub10010
  246. 2220 fori=1to3
  247. 2230 print"{$7d}                                      {$7d}";
  248. 2240 next
  249. 2250 print"[171]CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC[179]";
  250. 2260 fori=1to13
  251. 2270 print"{$7d}                                      {$7d}";
  252. 2280 next
  253. 2290 print"[173]CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC";
  254. 2300 poke2023,125:poke56295,15
  255. 2302 print"auswertungen kosten"
  256. 2304 print"reparaturen     = f1"
  257. 2306 print"pflegemittel    = f3"
  258. 2308 print"sonstige kosten = f5"
  259. 2310 print"gesamtkosten    = f2"
  260. 2312 print"zurueck         = f7"
  261. 2314 getm$:ifm$=""then2314
  262. 2316 ifm$=chr$(133)thenka$="r":goto2330
  263. 2318 ifm$=chr$(134)thenka$="p":goto2330
  264. 2320 ifm$=chr$(135)thenka$="s":goto2330
  265. 2322 ifm$=chr$(137)thenka$="g":goto2330
  266. 2324 ifm$=chr$(136)then2001
  267. 2326 goto2314
  268. 2330 open2,8,2,"kosten,s,r"
  269. 2332 print"[147]"
  270. 2334 print"    fahrrad: ";
  271. 2336 ifka$="r"thenprint"reparaturen"
  272. 2338 ifka$="p"thenprint"pflegemittel"
  273. 2340 ifka$="s"thenprint"sonstige kosten"
  274. 2342 ifka$="g"thenprint"gesamtkosten"
  275. 2344 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  276. 2346 ifka$<>"g"thenprint"datum      bezeichnung       betrag dm"
  277. 2348 ifka$="g"thenprint"    bezeichnung           betrag dm"
  278. 2350 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  279. 2352 ifka$="g"then2500
  280. 2354 input#2,k$
  281. 2356 input#2,k1$
  282. 2358 input#2,k2$
  283. 2360 input#2,k1
  284. 2362 ifst=64andka$<>k$then2400
  285. 2364 ifka$<>k$then2354
  286. 2366 iflen(k1$)<10thenk1$=k1$+" ":goto2366
  287. 2368 iflen(k2$)<15thenk2$=k2$+" ":goto2368
  288. 2370 iflen(k2$)>15thenk2$=left$(k2$,15)
  289. 2372 k3$=str$(k1)
  290. 2374 ifk1=int(k1)thenk3$=k3$+".0"
  291. 2376 if(k1*10)=int(k1*10)thenk3$=k3$+"0"
  292. 2378 iflen(k3$)<10thenk3$=" "+k3$:goto2378
  293. 2380 l=l+1
  294. 2382 printk1$;" ";k2$;" ";k3$
  295. 2384 k2=k2+k1
  296. 2386 ifl=15then2390
  297. 2387 ifst=64then2400
  298. 2388 goto2354
  299. 2390 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  300. 2392 print"    naechste seite = 1, hardcopy = h"
  301. 2393 getm$:ifm$="1"then2332
  302. 2394 ifm$="h"thengosub8002
  303. 2395 goto2393
  304. 2400 close2
  305. 2402 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  306. 2404 k4$=str$(k2)
  307. 2406 ifk2=int(k2)thenk4$=k4$+".0"
  308. 2408 if(k2*10)=int(k2*10)thenk4$=k4$+"0"
  309. 2410 iflen(k4$)<10thenk4$=" "+k4$:goto2410
  310. 2412 print"           summe der kosten";k4$
  311. 2414 print"======================================="
  312. 2416 print"          zurueck=f7,hardcopy=h"
  313. 2418 getm$:ifm$=chr$(136)then2001
  314. 2420 ifm$="h"then8002
  315. 2422 goto2418
  316. 2500 input#2,k$
  317. 2502 input#2,k1$
  318. 2504 input#2,k2$
  319. 2506 input#2,k1
  320. 2508 ifk$="r"theng1=g1+k1
  321. 2510 ifk$="p"theng2=g2+k1
  322. 2512 ifk$="s"theng3=g3+k1
  323. 2514 ifst=64then2520
  324. 2516 goto2500
  325. 2520 close2
  326. 2522 g1$=str$(g1)
  327. 2524 ifg1=int(g1)theng1$=g1$+".0"
  328. 2526 if(g1*10)=int(g1*10)theng1$=g1$+"0"
  329. 2532 g2$=str$(g2)
  330. 2534 ifg2=int(g2)theng2$=g2$+".0"
  331. 2536 if(g2*10)=int(g2*10)theng2$=g2$+"0"
  332. 2542 g3$=str$(g3)
  333. 2544 ifg3=int(g3)theng3$=g3$+".0"
  334. 2546 if(g3*10)=int(g3*10)theng3$=g3$+"0"
  335. 2550 open2,8,2,"kaufpreis,s,r"
  336. 2552 input#2,g4
  337. 2554 close2
  338. 2556 g4$=str$(g4)
  339. 2558 ifg4=int(g4)theng4$=g4$+".0"
  340. 2560 if(g4*10)=int(g4*10)theng4$=g4$+"0"
  341. 2562 g5=g1+g2+g3+g4
  342. 2564 g5$=str$(g5)
  343. 2566 ifg5=int(g5)theng5$=g5$+".0"
  344. 2568 if(g5*10)=int(g5*10)theng5$=g5$+"0"
  345. 2570 open2,8,2,"fahrtbuch,s,r"
  346. 2572 input#2,f1$
  347. 2574 input#2,f2$
  348. 2576 input#2,f1
  349. 2578 input#2,f2
  350. 2580 g6=g6+f1
  351. 2582 ifst=64then2586
  352. 2584 goto2572
  353. 2586 close2
  354. 2588 g6$=str$(g6)
  355. 2590 ifg6=int(g6)theng6$=g6$+".0"
  356. 2592 if(g6*10)=int(g6*10)theng6$=g6$+"0"
  357. 2593 g7=g5/g6:g7=(g7*100):g7=int(g7):g7=g7/100
  358. 2594 g7$=str$(g7)
  359. 2596 ifg7=int(g7)theng7$=g7$+".0"
  360. 2598 if(g7*10)=int(g7*10)theng7$=g7$+"0"
  361. 2600 iflen(g1$)<10theng1$=" "+g1$:goto2600
  362. 2601 iflen(g2$)<10theng2$=" "+g2$:goto2601
  363. 2602 iflen(g3$)<10theng3$=" "+g3$:goto2602
  364. 2603 iflen(g4$)<10theng4$=" "+g4$:goto2603
  365. 2604 iflen(g5$)<10theng5$=" "+g5$:goto2604
  366. 2605 iflen(g6$)<10theng6$=" "+g6$:goto2605
  367. 2606 iflen(g7$)<10theng7$=" "+g7$:goto2606
  368. 2610 print"    kaufpreis            ";g4$
  369. 2612 print
  370. 2614 print"    reparaturen          ";g1$
  371. 2616 print
  372. 2618 print"    pflegemittel         ";g2$
  373. 2620 print
  374. 2622 print"    sonstige kosten      ";g3$
  375. 2624 print
  376. 2626 print"    [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  377. 2628 print"    summe der kosten     ";g5$
  378. 2630 print"    [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  379. 2632 print"    gefahrene kilometer  ";g6$
  380. 2634 print"    [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  381. 2636 print"    kosten je kilometer  ";g7$
  382. 2638 print"    ==============================="
  383. 2640 print
  384. 2642 print"      zurueck = f7, hardcopy = h"
  385. 2644 getm$:ifm$=chr$(136)then2001
  386. 2646 ifm$="h"thengosub8002
  387. 2648 goto2644
  388. 3000 gosub10010
  389. 3080 print"[221]                                      [221]";
  390. 3081 print"[221]                                      [221]";
  391. 3082 print"[221]                                      [221]";
  392. 3083 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]";
  393. 3160 poke56295,15
  394. 3170 print""
  395. 3180 print"f a h r r a d d a t e n"
  396. 3200 print"bitte eintippen:
  397. 3210 [153]"          usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr"
  398. 3220 [153]
  399. 3230 [133]"typ (rad, rennrad ...): ";d1$
  400. 3240 [153]
  401. 3250 [133]"farbe des rades:        ";d2$
  402. 3260 [153]
  403. 3270 [133]"verkaeufer:             ";d3$
  404. 3280 [153]
  405. 3290 [133]"kaufdatum:              ";d4$
  406. 3300 [153]
  407. 3310 [133]"kaufpreis:              ";d5$
  408. 3320 [153]
  409. 3330 [133]"reifengroesse:          ";d6$
  410. 3340 [153]
  411. 3350 [133]"kettengroesse:          ";d7$
  412. 3360 [153]"usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr"
  413. 3370 [153]"                richtig j/n"
  414. 3380 [161]m$:[139]m$[178]""[167]3380
  415. 3390 [139]m$[178]"j"[167]3420
  416. 3400 [139]m$[178]"n"[167]3000
  417. 3410 [137]3380
  418. 3420 [159]15,8,15:[152]15,"s:fahrraddaten":[160]15
  419. 3430 [159]2,8,2,"fahrraddaten,s,w"
  420. 3440 [152]2,d1$
  421. 3450 [152]2,d2$
  422. 3460 [152]2,d3$
  423. 3470 [152]2,d4$
  424. 3480 [152]2,d5$
  425. 3490 [152]2,d6$
  426. 3500 [152]2,d7$
  427. 3510 [160]2
  428. 3520 [159]15,8,15:[152]15,"s:kaufpreis":[160]15
  429. 3530 [159]2,8,2,"kaufpreis,s,w"
  430. 3540 d5[178][197](d5$)
  431. 3550 [152]2,d5
  432. 3560 [160]2
  433. 3570 [153]"usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr"
  434. 3571 [159]15,8,15
  435. 3572 [152]15,"s:kosten"
  436. 3573 [152]15,"s:fahrtbuch"
  437. 3574 [160]15
  438. 3575 [159]2,8,2,"fahrtbuch,s,w"
  439. 3576 [160]2
  440. 3577 [159]2,8,2,"kosten,s,w"
  441. 3578 [160]2
  442. 3580 [153]" daten sind gespeichert, zurueck = f7"
  443. 3590 [161]m$:[139]m$[178][199](136)[167]100
  444. 3600 [137]3590
  445. 4000 [143] fahrraddaten ansehen
  446. 4010 [141]10010
  447. 4080 [129]i[178]1[164]1
  448. 4090 [153]"{$7d}                                      {$7d}";
  449. 4100 [130]
  450. 4110 [153]"-CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC<";
  451. 4120 [129]i[178]1[164]15
  452. 4130 [153]"{$7d}                                      {$7d}";
  453. 4140 [130]
  454. 4150 [153]"/CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC";
  455. 4160 [151]2023,125:[151]56295,15
  456. 4170 [153]""
  457. 4180 [153]"   f a h r r a d d a t e n"
  458. 4190 [159]2,8,2,"fahrraddaten,s,r"
  459. 4200 [132]2,d1$
  460. 4210 [132]2,d2$
  461. 4220 [132]2,d3$
  462. 4230 [132]2,d4$
  463. 4240 [132]2,d5$
  464. 4250 [132]2,d6$
  465. 4260 [132]2,d7$
  466. 4270 [160]2
  467. 4280 [153]" fahrradtyp:       ";d1$
  468. 4300 [153]" farbe des rades:  ";d2$
  469. 4320 [153]" verkaeufer:       ";d3$
  470. 4340 [153]" kaufdatum:        ";d4$
  471. 4360 [153]" kaufpreis:        ";d5$;" dm"
  472. 4380 [153]" reifengroesse:    ";d6$
  473. 4400 [153]" kettengroesse:    ";d7$
  474. 4420 [153]"zurueck = f7, hardcopy = h";
  475. 4430 [161]m$:[139]m$[178][199](136)[167]100
  476. 4431 [139]m$[178]"h"[167][141]8002
  477. 4440 [137]4430
  478. 6000 [143] directory anzeigen
  479. 6010 [153]"load"
  480. 6020 [158]50002
  481. 6030 [153]"          zurueck = f7"
  482. 6040 [161]m$:[139]m$[178][199](136)[167]100
  483. 6050 [137] 6040
  484. 7000 [143] ende
  485. 7010 [141]10010
  486. 7080 [129]i[178]1[164]3
  487. 7090 [153]"{$7d}                                      {$7d}";
  488. 7100 [130]
  489. 7110 [153]"{$7d}          wait    wait    wait       wait         wait    {$7d}";
  490. 7120 [153]"{$7d}      wait         wait   wait    wait    wait    wait        {$7d}";
  491. 7130 [153]"{$7d}      wait        wait  wait  wait    wait    wait    wait        {$7d}";
  492. 7140 [153]"{$7d}         wait     wait  wait  wait    wait    wait       wait     {$7d}";
  493. 7150 [153]"{$7d}      wait        wait  wait  wait    wait    wait    wait        {$7d}";
  494. 7160 [153]"{$7d}      wait        wait    wait    wait    wait    wait        {$7d}";
  495. 7170 [153]"{$7d}          wait    wait    wait       wait         wait    {$7d}";
  496. 7180 [153]"{$7d}                                      {$7d}";
  497. 7190 [153]"-CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC<";
  498. 7200 [153]"{$7d}noch offene dateien werden geschlossen{$7d}";
  499. 7210 [153]"-lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen<";
  500. 7220 [153]"{$7d}c 64 wird in einschaltzustand versetzt{$7d}";
  501. 7230 [153]"-CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC<";
  502. 7240 [153]"{$7d}     programm ist damit beendet       {$7d}";
  503. 7250 [153]"/CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC";
  504. 7260 [151]2023,125:[151]56295,15
  505. 7270 [129]n[178]1[164]1500:[130]n
  506. 7280 [158]65511
  507. 7290 [158]64738
  508. 8000 [143] texthardcopy
  509. 8002 zs[178][194](53272)
  510. 8004 b[178]1024
  511. 8006 d$[178]"c"
  512. 8008 [139]zs[178]21[167][159]1,4,0
  513. 8010 [139]zs[178]23[167][159]1,4,7
  514. 8012 [152]1,[199](27);"@"
  515. 8014 [152]1,[199](27);[199](108);[199](10);
  516. 8016 [129]z[178]0[164]24
  517. 8018 [129]s[178]0[164]39
  518. 8020 m[178]b[170]z[172]40[170]s
  519. 8022 x[178][194](m)
  520. 8024 [139]x[177]127[167]x[178]x[171]128
  521. 8026 [139]x[177][178]32[175]x[179][178]63[167]8034
  522. 8028 [139]x[177][178]64[175]x[179][178]95[167]x[178]x[170]32:[137]8034
  523. 8030 x[178]x[170]64
  524. 8032 [137]8034
  525. 8034 [152]1,[199](x);
  526. 8036 [130]s
  527. 8038 [152]1,[199](13);
  528. 8040 [130]z
  529. 8042 [160]1
  530. 8044 [142]
  531. 9000 [143] directory
  532. 9002 [140]
  533. 9004 as[178]50002
  534. 9008 [135]pk:[139]pk[178][171]1[167][142]
  535. 9009 [151]as,pk:as[178]as[170]1
  536. 9010 [137] 9008
  537. 9020 [131]169,1,162,187,160,195,32,189,255,169
  538. 9022 [131]8,133,186,169,96,133,185,32,213,243
  539. 9024 [131]165,186,32,180,255,165,185,32,150,255
  540. 9026 [131]169,0,133,144,32,215,170,160,5,132
  541. 9028 [131]2,32,165,255,133,251,164,2,136,208
  542. 9030 [131]244,32,165,255,164,144,208,41,166,251
  543. 9032 [131]32,205,189,169,32,32,210,255,32,165
  544. 9034 [131]255,166,144,208,24,170,240,6,32,210
  545. 9036 [131]255,76,150,195,169,13,32,210,255,32
  546. 9038 [131]225,255,240,5,160,3,76,121,195,32
  547. 9040 [131]171,255,76,66,246,36,0,0,0,0
  548. 9042 [131]-1
  549. 10000 [143] maske
  550. 10010 [151]53281,0:[151]53280,0:[151]53272,21:[153]"loadlist";
  551. 10020 [153]"orCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC^";
  552. 10030 [153]"{$7d}                                      {$7d}";
  553. 10040 [153]"{$7d}                             wait         {$7d}";
  554. 10050 [153]"{$7d}         r b - f a h r r a d wait         {$7d}";
  555. 10060 [153]"{$7d}                             wait         {$7d}";
  556. 10070 [153]"{$7d}                                      {$7d}";
  557. 10080 [153]"-CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC<";
  558. 10090 [142]
  559. 11000 [128]
  560.