home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 41
/
64er_Magazin_Sonderheft_41_19xx_Markt__Technik_de.d64
/
sequentiell
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
550b
|
32 lines
100 rem
110 anzahl=1
120 input "name";n$(anzahl)
130 input "vorname";v$(anzahl)
140 input "telefon";t$(anzahl)
150 if n$(anzahl)<>"ende" then anzahl=anzahl+1:goto 120
160 anzahl=anzahl-1
170 :
180 rem
190 for i=1 to anzahl
200 : print n$(i)
210 : print v$(i)
220 : print t$(i)
230 next i
295 rem
300 open 1,8,2,"adressen,s,w"
310 for i=1 to anzahl
320 : print#1,n$(i)
330 : print#1,v$(i)
340 : print#1,t$(i)
350 next i
360 close 1
370 :
380 rem
400 anzahl=1
410 open1,8,2,"adressen,s,r"
420 input#1,n$(anzahl):printn$(anzahl)
430 input#1,v$(anzahl):printv$(anzahl)
440 input#1,t$(anzahl):printt$(anzahl)
450 if st<>64 then anzahl=anzahl+1:goto 420
460 close 1