home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 May / 64er_Magazin_90-05_1990_Markt__Technik_de_Side_A.d64 / id-change (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  859 b   |  20 lines
  1. 10 rem      ==> id-change <==
  2. 20 rem (c) 11/89 by alex gevatter
  3. 30 :
  4. 40 poke53280,0:poke53281,0:r$=chr$(13):print"[147][154][201][196]-[195]hange"r$"[163][163][163][163][163][163][163][163][163]"
  5. 50 print"([195]) 11/89 by [193]lex [199]evatter"r$"[194]itte waehlen:"r$" [206] [146] ==> [196]i";
  6. 60 print"sk-[206]ame aendern"r$" [201] [146] ==> [196]isk-[201][196] aendern"r$" [197] [146] ==> [197]nde"
  7. 70 poke198,0:wait198,1:geta$:ifa$="e"thenprint"[147]";:end
  8. 80 ifa$="i"thenan=162:en=166:l=5:n1$="[201][196] ":n2$=" [201][196]":goto110
  9. 90 ifa$<>"n"then70
  10. 100 an=144:en=159:l=16:n1$="[206]ame ":n2$="r [206]ame"
  11. 110 print"[147][196]isk-"n1$"aendern  (max."l"[218]eichen!)":open1,8,15:open2,8,5,"#"
  12. 120 print#1,"u1 5 0 18 0":a$="":fori=antoen:print#1,"b-p";5;i:get#2,d$:a$=a$+d$
  13. 130 next:print"[154][193]lte"n2$": "a$;r$"[154][206]eue"n2$;:poke631,5:poke632,18
  14. 140 poke198,2:inputa$
  15. 150 iflen(a$)<lthena$=a$+" ":goto150
  16. 160 fori=antoen:print#1,"b-p";5;i:b$=mid$(a$,i-(an-1),1):a=asc(b$)
  17. 170 print#2,chr$(a);:next:print#1,"u2 5 0 18 0":close2:input#1,a,b$,c,d
  18. 180 print#1,"i":close1:print"[154][196]isk-[211]tatus:"r$"[157]"a""b$"[146]"c"[157]"d
  19. 190 print"[154][212]aste!":poke198,0:wait198,1:run
  20.