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