home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_014_19xx_-_de_Side_B.d64 / cd-teiler (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  46 lines
  1. 0 rem                                    * cd-teiler * freeware by marek roth. *
  2. 2 print"[147]  cd-teiler * freeware by marek roth.
  3. 4 [153]"             written 1993.
  4. 10 dima(256,3):poke53272,20:print"laenge seite 1 ?  keine angabe bedeutet
  5. 12 [133]"halbe gesamtzeit (m,ss)  0,00cmdcmdcmdcmdcmdcmd";f,e:e[178]e[170]60[172]f
  6. 20 i[178]1:[153]"gebe die zeiten der titel einer cd ein!
  7. 22 print"0,00 startet berechnung.
  8. 30 [153]i"cmd. zeit  (m,ss)  0,00cmdcmdcmdcmdcmdcmd";:[133]a(i,2),a(i,3)
  9. 40 a(i,0)[178]a(i,3)[170]a(i,2)[172]60
  10. 50 [139]a(i,0)[178]0[167]90
  11. 60 i[178]i[170]1:[137]30
  12. 90 [129]j[178]1[164]i:g[178]g[170]a(j,0):[130]:[153]"load";:i[178]i[171]1:s1[178]g:d[178]g[173]2
  13. 92 [139]i[179]3[167][153]"zuwenig titel.":[128]
  14. 96 [139]e[177]g[171]1[167][153]"zuwenig gesamtzeit um seite 1 voll      zubekommen.":[128]
  15. 100 j[178]i
  16. 110 [139]a(j,1)[178]0[167]a(j,1)[178]1:s1[178]s1[171]a(j,0):[137]200
  17. 120 a(j,1)[178]0:s1[178]s1[170]a(j,0):j[178]j[171]1:[139]j[178]0[167]400
  18. 130 [137]110
  19. 200 s2[178]g[171]s1
  20. 220 [139]e[177]0[167]230
  21. 222 [139]s1[177]s2[167]dn[178]s1[171]s2:[137]230
  22. 224 dn[178]s2[171]s1
  23. 230 [139]e[178]0[167]240
  24. 232 [139]s1[177]e[167]dn[178]s1[171]e:[137]240
  25. 234 dn[178]e[171]s1
  26. 240 [139]dn[179]d[167]d[178]dn:[137]300
  27. 250 [137]100
  28. 300 [153]"";:y[178]1:[129]j[178]1[164]i:[139]a(j,1)[178]0[167][153]"                    ":[153]"on";
  29. 310 [139]a(j,1)[178]0[167][153]j"cmd. "[163]8)a(j,2)"cmd:"a(j,3)"cmd "[163]19)"(NULL)":y[178]y[170]1
  30. 320 [130]:[153]"                    "
  31. 322 [153][163]7)"on="[181](s1[173]60)"cmd:"s1[171]60[172][181](s1[173]60);
  32. 330 [129]z[178]y[164]24:[153]:[153]"                   ";:[130]:y[178]1:[153]"";
  33. 332 [153]"gesamt="[181](g[173]60)"cmd:"g[171]60[172][181](g[173]60)"cmd ";
  34. 334 [139]e[178]0[167][153]", unterschied="[181](d[173]60)"cmd:"d[171]60[172][181](d[173]60)"cmd ";
  35. 336 [139]e[177]0[167][153]", abweichung="[181](d[173]60)"cmd:"d[171]60[172][181](d[173]60)"cmd ";
  36. 340 [129]j[178]1[164]i:[139]a(j,1)[178]1[167][153][163]20)"                   "[199](20)" ":[153]"on";
  37. 342 [139]a(j,1)[178]1[167][153][163]19)"(NULL)"j"cmd. "[163]28)a(j,2)"cmd:"a(j,3)"cmd ":y[178]y[170]1
  38. 350 [130]:[153][163]20)"                   "[199](20)" "
  39. 352 [153][163]19)"on(NULL)       ="[181](s2[173]60)"cmd:"s2[171]60[172][181](s2[173]60);
  40. 360 [129]z[178]y[164]24:[153]:[153][163]20)"                   "[199](20)" ";:[130]
  41. 370 [153]"gesamt="[181](g[173]60)"cmd:"g[171]60[172][181](g[173]60)"cmd ";
  42. 380 [139]e[178]0[167][153]", unterschied="[181](d[173]60)"cmd:"d[171]60[172][181](d[173]60)"cmd ";
  43. 382 [139]e[177]0[167][153]", abweichung="[181](d[173]60)"cmd:"d[171]60[172][181](d[173]60)"cmd ";
  44. 390 [139]d[177]1[167]100
  45. 400 [139]d[178]g[173]2[167][153]"die zeiten lassen sich nicht teilen.
  46.