home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1995 August / 64er_Magazin_95-08_1995_Markt__Technik_de_Side_B.d64 / editieren (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  498b  |  20 lines
  1. 8400 printchr$(147)left$(la$,79)
  2. 8410 printchr$(19)chr$(18)tab(2)" [196]atensatz editieren "tab(23)"[210]ecord-[206]r.: ";rn
  3. 8420 print
  4. 8430 printtab(2)"[206]achname: ";ds$(1)
  5. 8440 printtab(2)"[214]orname : ";ds$(2)
  6. 8450 printtab(2)"[211]trasse : ";ds$(3)
  7. 8460 printtab(2)"[208][204][218]     : ";ds$(4)
  8. 8470 printtab(2)"[215]ohnort : ";ds$(5)
  9. 8480 printtab(2)"[212]elefon : ";ds$(6)
  10. 8490 print:printleft$(la$,79)
  11. 8500 sp=12: rem eingabespalte bleibt gleich!
  12. 8510 for zl=2 to 7
  13. 8520 gosub 7900: rem eingabe-cursor positionieren
  14. 8540 poke19,64:inputds$(zl-1):poke19,0:print
  15. 8550 next zl
  16. 8552 id$(rn)=ds$(1): in(rn)=rn
  17. 8560 gosub 5000: gosub 6000
  18. 8565 rp=1: gosub 2000: gosub 7250
  19. 8570 return
  20.