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 >
Encoding:
Commodore BASIC  |  1995-01-01  |  257 b   |  7 lines
  1. 4999 rem beispiel fuer drei datenfelder ds$(1)-ds$(3)
  2. 5000 le$="               ": rem leerstring zum auffuellen
  3. 5010 ds$(1)=left$(ds$(1)+left$(le$,abs(15-len(ds$(1)))),15)
  4. 5020 ds$(2)=left$(ds$(2)+left$(le$,abs(15-len(ds$(2)))),15)
  5. 5030 ds$(3)=left$(ds$(3)+left$(le$,abs(15-len(ds$(3)))),15)
  6. 5040 return
  7.