5 PRINT"[147]   [197]LEKTRONISCHES [212]AGEBUCH"
10 POKE808,254:PRINT"   [205]ENUE:":INPUT"   1=CODIEREN, 2=DECODIEREN";W
12 PRINT"   [194]ITTE [196]ISKETTE EINLEGEN!"
15 PRINTTAB(26)"TT.MM.JJJJ[145][145]":INPUT"                  [196]ATUM ";D$
18 PRINT"   [195]ODEZAHLEN X,Y,Z":INPUT"   DURCH [203]OMMA GETRENNT ";A,B,C
20 DIMT(839),T$(839):X=0:IFW=2THEN70
25 PRINT"[147]   [212]EXTEINGABE (MAX. 839 [218]EICHEN)":PRINT"   '*' = [197]NDE":PRINT">";
30 GETT$(X):IFT$(X)=""THEN30
35 IFT$(X)="*"ORX=839THEN50
40 PRINTT$(X);:X=X+1:GOTO30
50 OPEN1,8,2,D$+",S,W":PRINT#1,X:FORI=0TOX-1:B=B+(A*C):PRINT#1,ASC(T$(I))+C+B
60 NEXTI:CLOSE1:GOTO99
70 PRINT"[147]>";:OPEN1,8,2,D$+",S,R":INPUT#1,X:FORI=0TOX-1:B=B+(A*C):INPUT#1,T(I)
80 T(I)=(T(I)-B)-C:IFT(I)<0ORT(I)>255THENCLOSE1:PRINT"[198]ALSCHE [197]INGABE":GOTO99
90 PRINTCHR$(T(I));:NEXTI:CLOSE1
99 CLR:POKE808,237:END:REM -PTS,1985-