home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1988 November
/
64er_Magazin_88-11_1988_Markt__Technik_de_Side_A.d64
/
adressverwaltung
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
50 lines
10 dim a$(100):dim b$(100):dim c$(100)
15 print chr$(147)
20 print:print"adressverwaltung v2
30 [153]:[153]"gespeicherte adressen:"az
40 [153]:[153]"bitte waehlen:
50 print" (1) eingabe einer neuen adresse
60 [153]" (2) ausgabe aller adressen
70 print" (3) suche nach adresse
80 [153]" (4) ende
90 print
100 get w$
110 if w$="1"then 1000
120 if w$="2"then 2000
130 if w$="3"then 3000
140 if w$="4"then 4000
150 goto 100
1000 az=az+1
1010 print"die"az"[157]. adresse wird eingegeben.
1020 [133]"vorname + name ";a$(az)
1030 [133]"adresse ";b$(az)
1040 [133]"telefon ";c$(az)
1050 [153]:[153]"adresse erfasst.":[137] 30
2000 [139] az[178]0 [167] [153]"keine adressen gespeichert !":[137] 40
2010 [129] i[178]1 [164] az
2020 [153]
2050 [153]:[153]"name: "a$(i)
2060 [153]"adresse: "b$(i)
2070 [153]"telefon: "c$(i)
2080 [153]:[153]"bitte eine taste
2090 print"abbruch mit <e>
2100 [161] a$
2110 [139] a$[178]"e"[167] 40
2120 [139] a$[178]""[167] 2100
2130 [130]
2140 [137] 40
3000 [139] az[178]0 [167] [153]"keine adressen gespeichert !":[137] 40
3010 [133]"suche nach welchem namen ";s$
3020 f[178]0:[129] i[178]1 [164] az
3030 [139] s$[179][177]a$(i)[167] 3100
3040 [153]:[153]"adresse gefunden:
3050 print:print"name: "a$(i)
3060 print"adresse: "b$(i)
3070 print"telefon: "c$(i)
3080 f=1
3100 next
3110 if f=0 then print:print"leider nicht gefunden
3120 [137]40
4000 [153]"tschuess !
4010 end