home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh28b.d64 / sequentiell (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  550b  |  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.