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 >
Wrap
Commodore BASIC
|
2022-10-26
|
859b
|
20 lines
10 rem ==> id-change <==
20 rem (c) 11/89 by alex gevatter
30 :
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]"
50 print"([195]) 11/89 by [193]lex [199]evatter"r$"[194]itte waehlen:"r$" [206] [146] ==> [196]i";
60 print"sk-[206]ame aendern"r$" [201] [146] ==> [196]isk-[201][196] aendern"r$" [197] [146] ==> [197]nde"
70 poke198,0:wait198,1:geta$:ifa$="e"thenprint"[147]";:end
80 ifa$="i"thenan=162:en=166:l=5:n1$="[201][196] ":n2$=" [201][196]":goto110
90 ifa$<>"n"then70
100 an=144:en=159:l=16:n1$="[206]ame ":n2$="r [206]ame"
110 print"[147][196]isk-"n1$"aendern (max."l"[218]eichen!)":open1,8,15:open2,8,5,"#"
120 print#1,"u1 5 0 18 0":a$="":fori=antoen:print#1,"b-p";5;i:get#2,d$:a$=a$+d$
130 next:print"[154][193]lte"n2$": "a$;r$"[154][206]eue"n2$;:poke631,5:poke632,18
140 poke198,2:inputa$
150 iflen(a$)<lthena$=a$+" ":goto150
160 fori=antoen:print#1,"b-p";5;i:b$=mid$(a$,i-(an-1),1):a=asc(b$)
170 print#2,chr$(a);:next:print#1,"u2 5 0 18 0":close2:input#1,a,b$,c,d
180 print#1,"i":close1:print"[154][196]isk-[211]tatus:"r$"[157]"a""b$"[146]"c"[157]"d
190 print"[154][212]aste!":poke198,0:wait198,1:run