home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mail Madness! 4
/
Mail_Madness_04_19xx_-_Side_B.d64
/
telefon-nr.druck
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
38 lines
10 rem ********************************
20 rem * *
30 rem * telefon - spass *
35 rem * *
40 rem * (c) by harald detlefsen 1985 *
50 rem * *
60 rem ********************************
80 x$(0)="vorname: ":x$(1)="name: ":x$(2)="vorwahl: ":x$(3)="telefon: ":z$=" "
100 a$(0)="m. gorbatschow ":b$(0)="007/09-2959051 "
110 a$(1)="ronald reagan ":b$(1)="001/202-4451414 "
120 a$(2)="helmut kohl ":b$(2)="0228-561 "
130 a$(3)="francois mitterand ":b$(3)="0031-2615100 "
140 a$(5)="elisabeth ii ":b$(5)="00441-9304832 "
150 a$(6)="papst johannes paul ":b$(6)="009722-554111 ":
170 poke53280,0:poke53281,0:print"[147][158] wichtige telefon-nummern "
172 goto180
174 poke211,10:poke214,10:sys58640:return
175 forx=0to36:printz$;:nextx:return
180 forn=0to3:gosub174:gosub175:gosub174:printx$(n);:open1,0:inputy$(n):close1
190 nextn:a$(4)=y$(0)+" "+y$(1):iflen(a$(4))<19then230
210 a$(4)=left$(y$(0),1)+". "+y$(1):iflen(a$(4))<19then230
220 a$(4)=left$(y$(1),19)
230 z=((len(a$(4)))-19)*(-1):forn=0toz:a$(4)=a$(4)+z$:nextn:
240 b$(4)=y$(2)+"-"+y$(3):z=((len(b$(4)))-15)*(-1):forn=0toz:b$(4)=b$(4)+z$:
245 nextn
250 open1,4:open10,4,10
255 print#10
256 fory=0to3
310 print#1,chr$(14)"wichtige wichtige ":print#1
330 print#1,chr$(14)"telefon-nummern telefon-nummern "
340 print#1,chr$(14)"------------------ ------------------":print#1
360 forn=0to6:
365 print#1,a$(n)chr$(29)b$(n)chr$(29)" "chr$(29)a$(n)chr$(29)b$(n)chr$(29)
367 nextn:forx=0to1
368 print#1
369 nextx
370 nexty:close1:close10:end