home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 25 / 64er_Magazin_Sonderheft_25_19xx_Markt__Technik_de.d64 / floppy-lader (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  44 lines
  1. 10 rem  ***************************
  2. 20 rem  *                         *
  3. 30 rem  *     floppy - lader      *
  4. 40 rem  *                         *
  5. 50 rem  *     von uwe gerlach     *
  6. 60 rem  *     riedeselstr. 64     *
  7. 70 rem  *     6100  darmstadt     *
  8. 80 rem  *                         *
  9. 90 rem  ***************************
  10. 100 :
  11. 110 rem  laedt ein normales file ab
  12. 120 rem  der dort angegebenen adresse
  13. 130 rem  in den floppy-speicher.
  14. 140 rem  belegt puffer 1 in der floppy
  15. 150 rem  ($0400 bis $04ff).
  16. 160 :
  17. 200 open 1,8,15: rem befehlskanal floppy
  18. 400 print: print "moment bitte": print: print
  19. 510 for i=0 to 217: rem alle datas
  20. 520 read d: s=s+d
  21. 530 print#1,"m-w";chr$(i);chr$(4);chr$(1);chr$(d): rem in puffer 1
  22. 540 next i
  23. 550 if s<>21797 then print"falsch! nur mut - nocheinmal tippen": end
  24. 700 input "filename";n$
  25. 710 for i=1 to 16: rem auffuellen
  26. 720 n$=n$+chr$(160): rem shift space
  27. 730 next i
  28. 740 n$=left$(n$,16)
  29. 750 print#1,"m-w";chr$(240);chr$(4);chr$(16);n$: rem filename nach $04f0
  30. 800 print#1,"m-e";chr$(0);chr$(4): rem hilsprogramm im puffer 1 starten
  31. 850 close 1: rem befehlskanal schliessen
  32. 900 :
  33. 901 data173,0,28,9,8,141,0,28,32,29,4,173,0,28,41,247,141,0,28,138,240,6
  34. 902 data32,199,230,32,44,193,96,32,177,4,160,2,132,55,162,0,185,0,3,240,44
  35. 903 data200,200,200,189,240,4,201,42,240,15,201,63,240,5,217,0,3,208,25,200
  36. 904 data232,224,16,208,234,164,55,200,185,0,3,141,178,4,200,185,0,3,141,182
  37. 905 data4,76,117,4,165,55,24,105,32,168,132,55,144,195,173,0,3,208,3,162
  38. 906 data57,96,141,178,4,173,1,3,141,182,4,76,29,4,32,177,4,169,0,133,167
  39. 907 data173,3,3,133,168,172,2,3,162,4,169,0,133,53,173,0,3,208,12,173,1,3
  40. 908 data24,105,1,133,53,32,194,4,96,141,178,4,173,1,3,141,182,4,32,194,4
  41. 909 data208,241,32,177,4,162,2,76,134,4,169,18,133,6,169,1,133,7,169,128
  42. 910 data133,0,165,0,48,252,96,189,0,3,145,167,200,208,4,230,168,240,8,232
  43. 911 data228,53,208,239,162,0,96,162,82,96,200
  44.