home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1984 April / 64er_Magazin_84-04_1984_Markt__Technik_de.d64 / merge (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  58 lines
  1. 1 rem  *************************
  2. 2 rem  *                       *
  3. 3 rem  *  merge 1.1     11/83  *
  4. 4 rem  *                       *
  5. 5 rem  *   von heinz boeffel   *
  6. 6 rem  *    kantstrasse  12    *
  7. 7 rem  *  6680 neunkirchen  7  *
  8. 8 rem  *                       *
  9. 9 rem  *************************
  10. 10 print chr$(14);chr$(147)
  11. 30 print"          *** merge 1.1 ***"
  12. 40 print"          von heinz boeffel";chr$(13);chr$(13)
  13. 50 print"[196]as [208]rogramm [205][197][210][199][197] setzt den [218]eiger"
  14. 60 print"fuer [194]asic-[193]nfang unmittelbar hinter"
  15. 70 print"das im [211]peicher befindliche [208]rogramm.";chr$(13)
  16. 80 print"[211]omit kann ein weiteres [208]rogramm hinter"
  17. 90 print"das bestehende geladen werden.";chr$(13)
  18. 100 print"[199]eben sie hierzu den [194]efehl [211][217][211] 50000"
  19. 110 print"ein. [196]as nachgeladene [208]rogramm kann"
  20. 120 print"genau wie das erstgeladene behandelt"
  21. 130 print"werden.";chr$(13)
  22. 150 print"[213]m den [194]asic-[218]eiger wieder zurueck-"
  23. 160 print"zusetzen, geben [211]ie wieder [211][217][211] 50000"
  24. 170 print"ein. [196]ie beiden [208]rogramme ergeben nun"
  25. 180 print"zusammen ein einziges [208]rogramm.";chr$(13)
  26. 190 print "[218]um [204]aden bitte [204]eertaste druecken!"
  27. 200 get g$:if g$<>" " then 200
  28. 210 print chr$(147);chr$(142)
  29. 220 for i=50000 to 50264:read q:poke i,q:next i
  30. 230 new
  31. 10000 data 169,255,133,2,165,43,201,1,208,13
  32. 10010 data 133,251,165,44,201,8,208,5,133,252
  33. 10020 data 76,125,195,165,251,133,43,165,252,133
  34. 10030 data 44,162,0,189,0,196,240,6,32,22
  35. 10040 data 231,232,208,245,96,160,0,177,43,208
  36. 10050 data 12,200,177,43,208,7,200,177,43,208
  37. 10060 data 2,133,2,230,43,208,2,230,44,165
  38. 10070 data 2,208,228,162,0,189,167,195,240,6
  39. 10080 data 32,22,231,232,208,245,96,13,13,32
  40. 10090 data 32,32,32,32,32,32,32,32,32,42
  41. 10100 data 42,42,32,77,69,82,71,69,32,49
  42. 10110 data 46,49,32,42,42,42,13,32,32,32
  43. 10120 data 32,32,32,32,32,32,32,86,79,78
  44. 10130 data 32,72,69,73,78,90,32,66,79,69
  45. 10140 data 70,70,69,76,13,13,32,32,32,32
  46. 10150 data 32,32,32,32,32,32,80,82,79,71
  47. 10160 data 82,65,77,77,32,79,78,32,72,79
  48. 10170 data 76,68,33,13,0,0,13,13,32,32
  49. 10180 data 32,32,32,32,32,32,32,32,42,42
  50. 10190 data 42,32,77,69,82,71,69,32,49,46
  51. 10200 data 49,32,42,42,42,13,32,32,32,32
  52. 10210 data 32,32,32,32,32,32,86,79,78,32
  53. 10220 data 72,69,73,78,90,32,66,79,69,70
  54. 10230 data 70,69,76,13,13,32,32,32,32,32
  55. 10240 data 32,32,32,32,32,80,82,79,71,82
  56. 10250 data 65,77,77,83,32,77,69,82,71,69
  57. 10260 data 68,33,13,0,0,0,0,0,0,0
  58.