home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 33 / 64er_Magazin_Sonderheft_33_19xx_Markt__Technik_de_Side_B.d64 / boot-generator (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  37 lines
  1. 100 rem *********************
  2. 110 rem *                   *
  3. 120 rem *  boot-generator   *
  4. 130 rem *                   *
  5. 140 rem *                   *
  6. 150 rem *  thomas nellessen *
  7. 160 rem *                   *
  8. 170 rem *                   *
  9. 180 rem *  april '86        *
  10. 190 rem *                   *
  11. 200 rem *********************
  12. 210 :
  13. 220 print"[147]     boot-generator eingabedaten"
  14. 230 print"     ***************************":print
  15. 240 input" name des 1. progs.";a$:print
  16. 250 a$=left$(a$,16)
  17. 260 input" name des 2. progs.";b$:print
  18. 270 ifa$=b$thenprint"keine gleichen namen":fori=1to500:next:run
  19. 280 b$=left$(b$,16):lb=len(b$)
  20. 290 print" gib startadresse des masch.progs ein    "
  21. 300 printlb+48"bytes ab startadresse erforderlich  "
  22. 310 input" startadresse";ad
  23. 320 ad$=mid$(str$(ad+lb),2):la=len(ad$)
  24. 330 print"[147]new"
  25. 340 print"10 fori="ad"to"ad+47+lb":reada:pokei,a:next"
  26. 350 print"15 fori=631to"634+la":reada:pokei,a:next"
  27. 360 print"20 poke198,"4+la":load"chr$(34)a$chr$(34)",8,1
  28. 370 [153]"25 data";
  29. 380 [129]i[178]1[164]lb:[153]([198]([202](b$,i,1)))"cmd,";:[130]:[153]"cmd "
  30. 390 [153]"30 data162,8,160,1,32,186,255,169,"lb",162,0,160,192,32"
  31. 400 [153]"35 data189,255,169,0,32,213,255,134,45,132,46,32,94"
  32. 410 [153]"40 data166,169,82,162,213,160,13,141,119,2,142,120"
  33. 420 [153]"45 data2,140,121,2,169,4,133,198,96,83,89,83,";
  34. 430 [129]i[178]1[164]la:[153][198]([202](ad$,i,1))"cmd,";:[130]:[153]"13"
  35. 440 [153]:[153]"save"[199](34)[200](b$,11)".boot"[199](34)",8"
  36. 450 [129]i[178]631[164]640:[151]i,13:[130]:[151]198,10
  37.