home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8703a.d64 / boot-generator (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.