home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh9x / sh91a.d64 / fahrrad (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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"}                                      }";
  9. 210 PRINT"}    FAHRTENBUCH               = F1    }";
  10. 220 PRINT"}                                      }";
  11. 230 PRINT"}    FAHRRADKOSTEN             = F3    }";
  12. 240 PRINT"}                                      }";
  13. 250 PRINT"}    FAHRRADDATEN ERFASSEN     = F5    }";
  14. 260 PRINT"}                                      }";
  15. 270 PRINT"}    FAHRRADDATEN ANZEIGEN     = F7    }";
  16. 280 PRINT"}                                      }";
  17. 290 PRINT"[221]                                      [221]";
  18. 300 PRINT"}                                      }";
  19. 310 PRINT"[221]    DISKETTENINHALT           = F2    [221]";
  20. 320 PRINT"}                                      }";
  21. 330 PRINT"[221]    PROGRAMMENDE              = F4    [221]";
  22. 340 PRINT"}                                      }";
  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"}                                      }";
  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"}                                      }";
  181. 2006 NEXT
  182. 2008 PRINT"[171]cccccccccccccccccccccccccccccccccccccc[179]";
  183. 2010 FORI=1TO13
  184. 2012 PRINT"}                                      }";
  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"}                                      }";
  248. 2240 NEXT
  249. 2250 PRINT"[171]cccccccccccccccccccccccccccccccccccccc[179]";
  250. 2260 FORI=1TO13
  251. 2270 PRINT"}                                      }";
  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]"}                                      }";
  449. 4100 [130]
  450. 4110 [153]"-cccccccccccccccccccccccccccccccccccccc<";
  451. 4120 [129]I[178]1[164]15
  452. 4130 [153]"}                                      }";
  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]"}                                      }";
  488. 7100 [130]
  489. 7110 [153]"}          WAIT    WAIT    WAIT       WAIT         WAIT    }";
  490. 7120 [153]"}      WAIT         WAIT   WAIT    WAIT    WAIT    WAIT        }";
  491. 7130 [153]"}      WAIT        WAIT  WAIT  WAIT    WAIT    WAIT    WAIT        }";
  492. 7140 [153]"}         WAIT     WAIT  WAIT  WAIT    WAIT    WAIT       WAIT     }";
  493. 7150 [153]"}      WAIT        WAIT  WAIT  WAIT    WAIT    WAIT    WAIT        }";
  494. 7160 [153]"}      WAIT        WAIT    WAIT    WAIT    WAIT    WAIT        }";
  495. 7170 [153]"}          WAIT    WAIT    WAIT       WAIT         WAIT    }";
  496. 7180 [153]"}                                      }";
  497. 7190 [153]"-cccccccccccccccccccccccccccccccccccccc<";
  498. 7200 [153]"}NOCH OFFENE DATEIEN WERDEN GESCHLOSSEN}";
  499. 7210 [153]"-LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN<";
  500. 7220 [153]"}C 64 WIRD IN EINSCHALTZUSTAND VERSETZT}";
  501. 7230 [153]"-cccccccccccccccccccccccccccccccccccccc<";
  502. 7240 [153]"}     PROGRAMM IST DAMIT BEENDET       }";
  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]"}                                      }";
  553. 10040 [153]"}                             WAIT         }";
  554. 10050 [153]"}         R B - F A H R R A D WAIT         }";
  555. 10060 [153]"}                             WAIT         }";
  556. 10070 [153]"}                                      }";
  557. 10080 [153]"-cccccccccccccccccccccccccccccccccccccc<";
  558. 10090 [142]
  559. 11000 [128]
  560.