home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1984 December / 64er_Magazin_84-12_1984_Markt__Technik_de.d64 / merge_fleig (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  63 lines
  1. 10 rem merge
  2. 20 printchr$(147)
  3. 30 print"   merge"
  4. 50 print"das merge programm setzt den zeiger"
  5. 60 print"fuer basic-anfang unmittelbar hinter"
  6. 70 print"das im speicher befindliche programm":print
  7. 80 print"somit kann ein weiteres programm hinter"
  8. 90 print"das bestehende geladen werden"
  9. 100 print"geben sie hierzu den befehl sys 50000"
  10. 110 print"das nachgeladene programm kann"
  11. 120 print"genau wie das erstgeladene behandelt"
  12. 130 print"werden":print
  13. 150 print"um den basic-zeiger wieder zurueck-"
  14. 160 print"zusetzen, geben sie wieder sys 50000 ein"
  15. 170 print"die beiden programme ergeben nun"
  16. 180 print"zusammen ein einziges programm"
  17. 220 for i=50000 to 50264 :read q:pokei,q:next
  18. 225 :
  19. 226 :
  20. 230 rem neues programm
  21. 240 for i=49152 to 49152+21
  22. 250 read q:pokei,q
  23. 260 next
  24. 300 for i=49408 to 49408+10
  25. 310 read q:pokei,q
  26. 320 next
  27. 325 sys 49408
  28. 330 :
  29. 340 :
  30. 1000 data 169,255,133,2,165,43,201,1,208,13
  31. 1010 data 133,251,165,44,201,8,208,5,133,252
  32. 1020 data 76,125,195,165,251,133,43,165,252,133
  33. 1030 data 44,162,0,189,0,196,240,6,32,22
  34. 1040 data 231,232,208,245,96,160,0,177,43,208
  35. 1050 data 12,200,177,43,208,7,200,177,43,208
  36. 1060 data 2,133,2,230,43,208,2,230,44,165
  37. 1070 data 2,208,228,162,0,189,167,195,240,6
  38. 1080 data 32,22,231,232,208,245,96,13,13,32
  39. 1090 data 32,32,32,32,32,32,32,32,32,42
  40. 1100 data 42,42,32,77,69,82,71,69,32,49
  41. 1110 data 46,49,32,42,42,42,13,32,32,32
  42. 1120 data 32,32,32,32,32,32,32,86,79,78
  43. 1130 data 32,72,69,73,78,90,32,66,79,69
  44. 1140 data 70,70,69,76,13,13,32,32,32,32
  45. 1150 data 32,32,32,32,32,32,80,82,79,71
  46. 1160 data 82,65,77,77,32,79,78,32,72,79
  47. 1170 data 76,68,33,13,0,0,13,13,32,32
  48. 1180 data 32,32,32,32,32,32,32,32,42,42
  49. 1190 data 42,32,77,69,82,71,69,32,49,46
  50. 1200 data 49,32,42,42,42,13,32,32,32,32
  51. 1210 data 32,32,32,32,32,32,86,79,78,32
  52. 1220 data 72,69,73,78,90,32,66,79,69,70
  53. 1230 data 70,69,76,13,13,32,32,32,32,32
  54. 1240 data 32,32,32,32,32,80,82,79,71,82
  55. 1250 data 65,77,77,83,32,77,69,82,71,69
  56. 1260 data 68,33,13,0,0
  57. 10998 :
  58. 10999 rem neue datas
  59. 11000 data 32,115,0,201,64,240,6,32,121
  60. 12000 data 0,76,231,167,32,115,0,32,80
  61. 13000 data 195,76,174,167
  62. 14000 data 169,0,141,8,3,169,192,141,9,3,96
  63.