home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh16a.d64
/
micro-tagebuch
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
679b
|
17 lines
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-