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