home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 55 / 64er_Magazin_Sonderheft_55_19xx_Markt__Technik_de_Side_B.d64 / changeadress (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  1.8 KB  |  84 lines
  1. 1 rem startadresse auf diskette
  2. 2 rem aendern (4/90 h.beiler)
  3. 3 rem =========================
  4. 10 gosub1000
  5. 20 l=1:p=3:x=8:d=5:f=2:fl=0:f2=0
  6. 40 open1,8,15
  7. 50 open2,8,2,"#"
  8. 60 print#1,"u1";2;0;18;0
  9. 70 print#1,"b-p";2;144
  10. 90 fori=0to15:get#2,a$:printa$;:next:printchr$(32);
  11. 100 print#1,"b-p";2;162
  12. 110 fori=0to4:get#2,a$:printa$;:next:printchr$(13);
  13. 112 print"adresse  filename":println$
  14. 120 print#1,"u1";2;0;18;l
  15. 130 print#1,"b-p";2;1
  16. 140 get#2,c$:se=asc(c$):sa=se-l
  17. 150 print#1,"u1";2;0;18;l
  18. 160 print#1,"b-p";2;f
  19. 170 get#2,d$:ifd$=""thend$=chr$(0)
  20. 171 ifasc(d$)=0andfl=0then300
  21. 181 ifasc(d$)<>130then300
  22. 190 print#1,"b-p";2;p
  23. 200 get#2,a$:t=asc(a$)
  24. 202 get#2,a$:ifa$=""thena$=chr$(0)
  25. 203 s=asc(a$)
  26. 210 print#1,"u1";2;0;t;s
  27. 220 print#1,"b-p";2;2
  28. 230 get#2,a$:ifa$=""thena$=chr$(0)
  29. 232 lo=asc(a$)
  30. 234 get#2,a$:ifa$=""thena$=chr$(0)
  31. 236 hi=asc(a$)
  32. 238 gosub1300
  33. 240 printlo+256*hi;
  34. 250 print#1,"u1";2;0;18;l
  35. 260 print#1,"b-p";2;d
  36. 270 fori=0to15
  37. 280 get#2,a$:printtab(9)a$;
  38. 290 next:goto500
  39. 300 printchr$(13);:x=x-1:d=d+32:p=p+32:f=f+32
  40. 301 ifx=0andfl=1then350
  41. 310 ifx=0andfl=0thenl=l+sa:x=8:p=3:d=5:f=2:goto120
  42. 320 ifse=255andfl=0thenfl=1:l=se-sa:goto120
  43. 340 goto150
  44. 350 close2:close1:run
  45. 500 gett$
  46. 505 ift$="x"andfl=0thenclose2:close1:run
  47. 506 ift$="e"thenclose2:close1:printchr$(147):poke808,237:end
  48. 510 ift$=chr$(32)then300
  49. 520 ift$="a"thengosub600:goto300
  50. 530 goto500
  51. 600 gosub700:printchr$(32);:poke19,64:inputla:poke19,0:print
  52. 610 hi=int(la/256):lo=la-(hi*256)
  53. 630 print#1,"u1";2;0;t;s
  54. 640 print#1,"b-p";2;2
  55. 650 print#2,chr$(lo);:print#2,chr$(hi);
  56. 660 print#1,"u2";2;0;t;s
  57. 665 gosub1300
  58. 670 return
  59. 700 rem
  60. 710 print:print"neue ladeadresse:[146]";
  61. 720 return
  62. 1000 fori=1to39:ln$=ln$+"[192]":lr$=lr$+chr$(32):next
  63. 1005 poke53280,0:poke53281,0:poke646,15
  64. 1011 print"[147]"chr$(142)ln$
  65. 1020 print"          change load-adress           "
  66. 1021 println$
  67. 1031 println$
  68. 1040 print" a=aendern   space=weiter    x=abbruch "
  69. 1041 printtab(12)"e=programmende"
  70. 1042 println$
  71. 1060 println$
  72. 1070 printtab(5)"richtige diskette einlegen und"
  73. 1080 printtab(10)"<return> druecken !"
  74. 1090 println$:print
  75. 1100 gett$:ift$=chr$(13)then1110
  76. 1101 ift$="e"thenpoke808,237:print"[147]":end
  77. 1102 goto1100
  78. 1110 gosub1200
  79. 1120 fori=1to10:printlr$:next:gosub1200
  80. 1130 return
  81. 1200 poke214,8:poke211,0:sys58640:return
  82. 1300 poke214,12:poke211,0:sys58640:fori=1to3:printlr$:next
  83. 1400 poke214,12:poke211,0:sys58640:printlr$:return
  84.