home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 24 / 64er_Magazin_Sonderheft_24_19xx_Markt__Technik_de_Side_B.d64 / micro-tagebuch (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  679b  |  17 lines
  1. 5 print"[147]   [197]lektronisches [212]agebuch"
  2. 10 poke808,254:print"   [205]enue:":input"   1=codieren, 2=decodieren";w
  3. 12 print"   [194]itte [196]iskette einlegen!"
  4. 15 printtab(26)"tt.mm.jjjj[145][145]":input"                  [196]atum ";d$
  5. 18 print"   [195]odezahlen x,y,z":input"   durch [203]omma getrennt ";a,b,c
  6. 20 dimt(839),t$(839):x=0:ifw=2then70
  7. 25 print"[147]   [212]exteingabe (max. 839 [218]eichen)":print"   '*' = [197]nde":print">";
  8. 30 gett$(x):ift$(x)=""then30
  9. 35 ift$(x)="*"orx=839then50
  10. 40 printt$(x);:x=x+1:goto30
  11. 50 open1,8,2,d$+",s,w":print#1,x:fori=0tox-1:b=b+(a*c):print#1,asc(t$(i))+c+b
  12. 60 nexti:close1:goto99
  13. 70 print"[147]>";:open1,8,2,d$+",s,r":input#1,x:fori=0tox-1:b=b+(a*c):input#1,t(i)
  14. 80 t(i)=(t(i)-b)-c:ift(i)<0ort(i)>255thenclose1:print"[198]alsche [197]ingabe":goto99
  15. 90 printchr$(t(i));:nexti:close1
  16. 99 clr:poke808,237:end:rem -pts,1985-
  17.