home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 32
/
032.d81
/
personalizer
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
60 lines
5 poke53280,.:poke53281,.:print"[147]";
6 rem changes error messages
7 data 42101,44277,43884,42086,48579
8 for x=1 to 5:read v(x):next
10 if peek(40964)=65 then 50
20 for x=828 to x+24:read d:pokex,d:next
22 sys 828:rem move basic rom to ram
25 data 169,0,133,251,169,160,133,252
26 data 160,0,162,32,177,251,145,251,200
27 data 208,249,230,252,202,208,244,96
30 poke1,peek(1) and254:poke40964,65:poke49153,192:poke 49152,2
50 def fnh(de)=int(de/256)
52 def fnl(dn)=dn-fnh(dn)*256
60 m=peek(49153)*256+peek(49152)
65 poke 808,239 :rem disable stop key
200 printchr$(147)
205 print"i will list error messages"
210 print"press f7 to change message"
212 print"press f1 to end program"
215 print"press any other key to continue listing":print:print
500 for z=41768 to 41824 step2
505 n=n+1:print n;
510 lb=peek(z):hb=peek(z+1):lc=256*hb+lb
530 pk=peek(lc):if pk>128 then printchr$(pk-128);:goto550
535 lc=lc+1:printchr$(pk);:goto530
550 gosub1000:if f then gosub950
590 next
800 for w=1 to 5
805 z=v(w):gosub900
810 gosub1000:if f=0 then next:goto1050
815 gosub950:next:goto1050
820 pokez,fnl(m):pokez+2,fnh(m)
825 if n=30 then pokem,13:m=m+1
830 forx=1 to len(m$):c$=mid$(m$,x,1):pokem,asc(c$):m=m+1:next
835 if n>29 and n<33 then pokem,13:m=m+1
840 pokem,0:m=m+1
850 return
900 lb=peek(z):hb=peek(z+2):lc=256*hb+lb
915 n=n+1:print n;
920 pk=peek(lc):if pk>0then print chr$(pk);:lc=lc+1:goto920
930 return
950 m$="":print"change to what?":print
964 poke631,34:poke632,34:poke633,20:poke198,3
965 input m$:if m$=""then return
966 if n>29 then 820
967 pokez,fnl(m):pokez+1,fnh(m)
970 forx=1 to len(m$)-1:c$=mid$(m$,x,1):pokem,asc(c$):m=m+1:next
975 pokem,asc(right$(m$,1))+128:m=m+1
980 print:return
1000 getk$:ifk$=""then 1000
1002 print
1020 f=0:if k$=chr$(136)then f=1
1030 if k$<>chr$(133)then return
1050 poke 49153,fnh(m):poke 49152,fnl(m)
1060 poke 808,237 :rem enable stop key
1070 print:printchr$(18)"program over.. good bye":end
2000 for x=43 to 46:print"poke";x;",";peek(x):print:print:next:print
2030 poke43,0:poke44,160:poke45,peek(49152):poke46,peek(49153)
2040 print"save messages then enter above pokes"