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 >
Wrap
Commodore BASIC
|
2022-10-26
|
498b
|
20 lines
8400 printchr$(147)left$(la$,79)
8410 printchr$(19)chr$(18)tab(2)" [196]atensatz editieren "tab(23)"[210]ecord-[206]r.: ";rn
8420 print
8430 printtab(2)"[206]achname: ";ds$(1)
8440 printtab(2)"[214]orname : ";ds$(2)
8450 printtab(2)"[211]trasse : ";ds$(3)
8460 printtab(2)"[208][204][218] : ";ds$(4)
8470 printtab(2)"[215]ohnort : ";ds$(5)
8480 printtab(2)"[212]elefon : ";ds$(6)
8490 print:printleft$(la$,79)
8500 sp=12: rem eingabespalte bleibt gleich!
8510 for zl=2 to 7
8520 gosub 7900: rem eingabe-cursor positionieren
8540 poke19,64:inputds$(zl-1):poke19,0:print
8550 next zl
8552 id$(rn)=ds$(1): in(rn)=rn
8560 gosub 5000: gosub 6000
8565 rp=1: gosub 2000: gosub 7250
8570 return