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