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