home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 16
/
64er_Magazin_Sonderheft_16_19xx_Markt__Technik_de_Side_A.d64
/
micro-tagebuch
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
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-