home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 43
/
64er_Magazin_Sonderheft_43_19xx_Markt__Technik_de_Side_A.d64
/
dezimal-format
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
801b
|
50 lines
300 rem****** listing 3/2 ***********
305 :
307 :
310 rem---dezimal-format mit tab---
315 :
320 print"0123456789012345678901234567890123456789
325 [153]
330 [135] k
335 [139] k[178]0.0 [167] 400
340 k$[178][196](k)
345 [129] j[178]1 [164] 40
350 v$[178][202](k$,j,1)
355 [139] v$[179][177]"." [167] [130] j
360 [153] [163]12[171]j) k
365 j[178]40
370 [137] 330
375 [131] 123.5,-2175.334,0.23,22.4567,0.0
399 :
400 [143]---dezimal-format mit strings----
405 :
410 [129] i[178]1 [164] 40
415 z$[178]z$[170]" "
420 [130]
425 [153]
430 [135] k
435 [139] k[178]0.0 [167] 500
440 k$[178][196](k)
445 [129] j[178]1 [164] 40
450 v$[178][202](k$,j,1)
455 [139] v$[179][177]"." [167] [130] j
460 [153] [201](z$[170]k$,12[170]([195](k$)[171]j))
465 j[178]40
470 [137] 430
475 [131] 123.5,-2175.334,0.23,22.4567,0.0
490 :
500 [143]----zahlen gleicher laenge-----
505 :
510 [129] i[178]1 [164] 8
515 z$[178]z$[170]" "
520 [130]
523 l[178]7
525 [153]
530 [135] k
535 [139] k[178]0.0 [167] [128]
540 k1$[178][196](k)
545 k2$[178][202](k1$,1,l)
560 [153] [163]12) [201](z$[170]k2$,l)
570 [137] 530
575 [131] 123.5,-2175.334,0.23,22.4567,0.0