home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh2x
/
sh25.d64
/
floppy-lader
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
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