home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 41 / 64er_Magazin_Sonderheft_41_19xx_Markt__Technik_de.d64 / sequentiell (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  550 b   |  32 lines
  1. 100 rem
  2. 110 anzahl=1
  3. 120 input "name";n$(anzahl)
  4. 130 input "vorname";v$(anzahl)
  5. 140 input "telefon";t$(anzahl)
  6. 150 if n$(anzahl)<>"ende" then anzahl=anzahl+1:goto 120
  7. 160 anzahl=anzahl-1
  8. 170 :
  9. 180 rem
  10. 190 for i=1 to anzahl
  11. 200 : print n$(i)
  12. 210 : print v$(i)
  13. 220 : print t$(i)
  14. 230 next i
  15. 295 rem
  16. 300 open 1,8,2,"adressen,s,w"
  17. 310 for i=1 to anzahl
  18. 320 : print#1,n$(i)
  19. 330 : print#1,v$(i)
  20. 340 : print#1,t$(i)
  21. 350 next i
  22. 360 close 1
  23. 370 :
  24. 380 rem
  25. 400 anzahl=1
  26. 410 open1,8,2,"adressen,s,r"
  27. 420 input#1,n$(anzahl):printn$(anzahl)
  28. 430 input#1,v$(anzahl):printv$(anzahl)
  29. 440 input#1,t$(anzahl):printt$(anzahl)
  30. 450 if st<>64 then anzahl=anzahl+1:goto 420
  31. 460 close 1
  32.