home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 July / 64er_Magazin_85-07_1985_Markt__Technik_de.d64 / logik-1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  446 b   |  16 lines
  1. 10 rem---------------------------------
  2. 20 rem       logik - 1
  3. 30 rem---------------------------------
  4. 40 :
  5. 50 print"[147]       geheimcode mit not"
  6. 60 print:print
  7. 70 print" geben sie ein wort ein";
  8. 100 inputa$:l=len(a$):dima(l),b(l),b$(l):k=0
  9. 110 c$=""
  10. 120 fori=1tol:a(i)=asc(mid$(a$,i,1)):b(i)=nota(i)-257:b$(i)=chr$(b(i)):nexti
  11. 130 fori=1tol:c$=c$+b$(i):nexti
  12. 140 ifk=0then:print:print"text           = ";a$
  13. 145 ifk=1then:print:print"geheimcode     = ";a$
  14. 150 k=k+1:ifk=1thena$=c$:goto110
  15. 160 print:print"entschluesselt = ";c$
  16.