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