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 >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
41 lines
10 print"[147][144] << adressenliste >>":print" mit diesem programm koennen sie namen,"
20 print"adressen & telefonnummern speichern und":print"sie jederzeit wieder ";
30 print"aufrufen."
40 print"bei eingabe eines in der liste gespei-"
45 print"cherten namens werden die adresse und"
50 print"die telefonnummer gedruckt.
52 [153]"(wollen sie das programm beenden, so"
54 [153]"geben sie als namen <ende> ein.)"
60 [153]"geben sie z.b.:stopcbm-64 ein."
70 [153] "eingabe des namens:":[140]
80 [133] n$
82 [139]n$[178]"ende"[167]500
90 [135] l$
100 [139] l$ [178] "ende der liste" [167] 330
110 [135] a1$,a2$,t$
120 [139] l$ [179][177] n$ [167] 90
130 [153]"load"
140 [153]n$
150 [153] "stopadresse:"
160 [153]" "a1$
170 [153]a2$
180 [153]"t.:"t$
190 [137]70
200 [143]-------------------------------
210 [143] neue namen koennen jederzeit der liste hinzugefuegt werden.
220 [143] es muessen dazu nur genuegend databefehle fuer jede eingabe
230 [143] der liste ,die namen, strasse, stadt und telefonnummer
240 [143] enthalten, geschrieben werden. ------------------------------
250 [153]""
260 [131] "cbm-64","lyoner str.38"
270 [131] "6000 frankfurt/m 71"
280 [131] " (0611)6638/0"
290 [131] "commodore","901 california ave."
300 [131] "palo alto, ca 94304"
310 [131] "(415) 326-4000"
320 [131] "ende der liste"
330 [153]n$
340 [153]"steht nicht in der liste"
350 [137]70
500 [128]