home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1995 June
/
64er_Magazin_95-06_1995_Markt__Technik_de_Side_B.d64
/
feldl.korrig.
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
257b
|
7 lines
4999 rem beispiel fuer drei datenfelder ds$(1)-ds$(3)
5000 le$=" ": rem leerstring zum auffuellen
5010 ds$(1)=left$(ds$(1)+left$(le$,abs(15-len(ds$(1)))),15)
5020 ds$(2)=left$(ds$(2)+left$(le$,abs(15-len(ds$(2)))),15)
5030 ds$(3)=left$(ds$(3)+left$(le$,abs(15-len(ds$(3)))),15)
5040 return