home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 5 / Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64 / 11_4lektion (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  41 lines
  1. 10 print"[147][144]  << adressenliste >>":print" mit diesem programm koennen sie namen,"
  2. 20 print"adressen & telefonnummern speichern und":print"sie jederzeit wieder ";
  3. 30 print"aufrufen."
  4. 40 print"bei eingabe eines in der liste gespei-"
  5. 45 print"cherten namens werden die adresse und"
  6. 50 print"die telefonnummer gedruckt.
  7. 52 [153]"(wollen sie das programm beenden, so"
  8. 54 [153]"geben sie als namen <ende> ein.)"
  9. 60 [153]"geben sie z.b.:stopcbm-64  ein."
  10. 70 [153] "eingabe des namens:":[140]
  11. 80 [133] n$
  12. 82 [139]n$[178]"ende"[167]500
  13. 90 [135] l$
  14. 100 [139] l$ [178] "ende der liste" [167] 330
  15. 110 [135] a1$,a2$,t$
  16. 120 [139] l$ [179][177] n$ [167] 90
  17. 130 [153]"load"
  18. 140 [153]n$
  19. 150 [153] "stopadresse:"
  20. 160 [153]"     "a1$
  21. 170 [153]a2$
  22. 180 [153]"t.:"t$
  23. 190 [137]70
  24. 200 [143]-------------------------------
  25. 210 [143] neue namen koennen jederzeit           der liste hinzugefuegt werden.
  26. 220 [143] es muessen dazu nur genuegend           databefehle fuer jede eingabe
  27. 230 [143] der liste ,die namen, strasse,          stadt und telefonnummer
  28. 240 [143] enthalten, geschrieben werden.          ------------------------------
  29. 250 [153]""
  30. 260 [131] "cbm-64","lyoner str.38"
  31. 270 [131] "6000 frankfurt/m 71"
  32. 280 [131] " (0611)6638/0"
  33. 290 [131] "commodore","901 california ave."
  34. 300 [131] "palo alto, ca 94304"
  35. 310 [131] "(415) 326-4000"
  36. 320 [131] "ende der liste"
  37. 330 [153]n$
  38. 340 [153]"steht nicht in der liste"
  39. 350 [137]70
  40. 500 [128]
  41.