100 REM********************************
110 REM*  FLOPPY-LISTER VERSION 1.0   *
120 REM*           VON:               *
130 REM*     BERNHARD  SCHULZKI       *
140 REM*     SCHLOSSHALDE  8          *
150 REM*     7470 ALBSTADT-1          *
160 REM********************************
170 :
180 AZ=49
190 FORI=49152TO49842STEP50
200 IFI=49802THENAZ=40
210 FORJ=0TOAZ
220 READX
230 SU=SU+X
240 POKEI+J,X
250 NEXT
260 PRINT"DATABLOCK:[146]";INT((I+J-49153)/50);
270 READC
280 IFSU+C=0THENPRINT" OK.":GOTO300
290 PRINT" FEHLERHAFT.":F=F+1
300 SU=0:SW=0
310 NEXT
320 PRINT:PRINTF;"FEHLER."
330 IFF<>0THENPRINT:PRINT"BEHEBEN SIE DIE FEHLER !":END
340 PRINT:PRINT"ABSPEICHERN AUF DISKETTE ? (J/N) ":PRINT
350 GETT$
360 IFT$="N"THENPRINT"FERTIG":END
370 IFT$="J"THEN390
380 GOTO350
390 INPUT"PROGRAMMNAME ";N$
400 RESTORE
410 OPEN1,8,1,"0:"+N$
420 PRINT#1,CHR$(0)CHR$(192);
430 FORI=49152TO49842
440 READX
450 IFX<0THENREADX
460 PRINT#1,CHR$(X);
470 NEXT
480 CLOSE1
490 REM *** DATABLOCK 0 ***
500 DATA  32, 253, 174, 32, 158, 173, 32, 163, 182, 165
510 DATA  100, 133, 167, 165, 101, 133, 168, 160, 0, 177
520 DATA  167, 153, 31, 195, 200, 192, 3, 144, 246, 173
530 DATA  31, 195, 201, 20, 176, 30, 201, 4, 144, 36
540 DATA  160, 0, 173, 33, 195, 133, 168, 173, 32, 195
550 DATA -6472
560 REM *** DATABLOCK 1 ***
570 DATA  133, 167, 177, 167, 153, 34, 195, 200, 204, 31
580 DATA  195, 208, 245, 76, 83, 192, 169, 111, 160, 194
590 DATA  32, 30, 171, 76, 116, 164, 169, 136, 160, 194
600 DATA  76, 70, 192, 162, 0, 189, 34, 195, 141, 30
610 DATA  195, 201, 80, 240, 8, 201, 83, 208, 233, 160
620 DATA -7040
630 REM *** DATABLOCK 2 ***
640 DATA  4, 208, 2, 160, 0, 232, 189, 34, 195, 201
650 DATA  76, 240, 6, 201, 68, 208, 215, 200, 200, 232
660 DATA  189, 34, 195, 201, 58, 208, 205, 140, 14, 195
670 DATA  174, 31, 195, 169, 44, 72, 157, 34, 195, 232
680 DATA  173, 30, 195, 157, 34, 195, 104, 232, 157, 34
690 DATA -6924
700 REM *** DATABLOCK 3 ***
710 DATA  195, 169, 82, 232, 157, 34, 195, 169, 0, 232
720 DATA  157, 34, 195, 238, 31, 195, 173, 40, 3, 141
730 DATA  15, 195, 173, 41, 3, 141, 16, 195, 169, 34
740 DATA  141, 40, 3, 169, 194, 141, 41, 3, 173, 31
750 DATA  195, 162, 37, 160, 195, 32, 189, 255, 169, 2
760 DATA -5986
770 REM *** DATABLOCK 4 ***
780 DATA  162, 8, 160, 2, 32, 186, 255, 32, 192, 255
790 DATA  162, 2, 32, 198, 255, 172, 14, 195, 185, 171
800 DATA  194, 141, 17, 195, 185, 172, 194, 141, 18, 195
810 DATA  108, 17, 195, 169, 0, 141, 19, 195, 141, 20
820 DATA  195, 141, 21, 195, 162, 0, 32, 15, 194, 176
830 DATA -6258
840 REM *** DATABLOCK 5 ***
850 DATA  3, 76, 233, 193, 32, 207, 255, 157, 22, 195
860 DATA  165, 144, 208, 5, 232, 224, 8, 144, 233, 141
870 DATA  21, 195, 169, 0, 232, 224, 8, 176, 7, 157
880 DATA  22, 195, 232, 76, 19, 193, 32, 76, 194, 173
890 DATA  20, 195, 32, 42, 194, 173, 19, 195, 32, 42
900 DATA -6222
910 REM *** DATABLOCK 6 ***
920 DATA  194, 169, 58, 32, 210, 255, 162, 0, 189, 22
930 DATA  195, 32, 35, 194, 232, 224, 8, 144, 245, 32
940 DATA  76, 194, 169, 18, 32, 210, 255, 162, 0, 189
950 DATA  22, 195, 41, 127, 201, 32, 176, 4, 169, 46
960 DATA  208, 3, 189, 22, 195, 32, 210, 255, 232, 224
970 DATA -6520
980 REM *** DATABLOCK 7 ***
990 DATA  8, 144, 232, 169, 13, 32, 210, 255, 173, 21
1000 DATA  195, 208, 17, 24, 173, 19, 195, 105, 8, 141
1010 DATA  19, 195, 144, 3, 238, 20, 195, 76, 244, 192
1020 DATA  76, 233, 193, 32, 81, 194, 32, 81, 194, 162
1030 DATA  255, 32, 81, 194, 165, 167, 232, 157, 179, 194
1040 DATA -6602
1050 REM *** DATABLOCK 8 ***
1060 DATA  224, 3, 144, 243, 32, 81, 194, 232, 165, 167
1070 DATA  157, 179, 194, 208, 245, 232, 157, 179, 194, 232
1080 DATA  157, 179, 194, 169, 179, 133, 95, 160, 194, 132
1090 DATA  96, 32, 55, 165, 173, 0, 3, 72, 173, 1
1100 DATA  3, 72, 169, 34, 141, 0, 3, 169, 194, 141
1110 DATA -6750
1120 REM *** DATABLOCK 9 ***
1130 DATA  1, 3, 32, 195, 166, 104, 141, 1, 3, 104
1140 DATA  141, 0, 3, 32, 15, 194, 176, 177, 76, 233
1150 DATA  193, 32, 207, 255, 32, 210, 255, 165, 144, 208
1160 DATA  8, 32, 15, 194, 176, 241, 76, 233, 193, 32
1170 DATA  204, 255, 169, 2, 32, 195, 255, 173, 15, 195
1180 DATA -6193
1190 REM *** DATABLOCK 10 ***
1200 DATA  141, 40, 3, 173, 16, 195, 141, 41, 3, 169
1210 DATA  96, 160, 194, 32, 30, 171, 165, 203, 201, 60
1220 DATA  208, 250, 169, 0, 133, 198, 96, 165, 203, 240
1230 DATA  14, 201, 63, 208, 8, 165, 203, 240, 6, 201
1240 DATA  10, 208, 248, 56, 96, 24, 96, 72, 169, 32
1250 DATA -6216
1260 REM *** DATABLOCK 11 ***
1270 DATA  32, 210, 255, 104, 72, 74, 74, 74, 74, 32
1280 DATA  66, 194, 168, 104, 41, 15, 32, 66, 194, 72
1290 DATA  152, 32, 210, 255, 104, 76, 210, 255, 24, 105
1300 DATA  246, 144, 2, 105, 6, 105, 58, 96, 169, 32
1310 DATA  76, 210, 255, 32, 207, 255, 133, 167, 165, 144
1320 DATA -5983
1330 REM *** DATABLOCK 12 ***
1340 DATA  240, 5, 104, 104, 76, 233, 193, 96, 13, 32
1350 DATA  32, 32, 32, 18, 32, 83, 80, 65, 67, 69
1360 DATA  32, 13, 0, 13, 70, 69, 72, 76, 69, 82
1370 DATA  58, 32, 78, 65, 77, 69, 32, 90, 85, 32
1380 DATA  76, 65, 78, 71, 32, 33, 13, 0, 13, 70
1390 DATA -3171
1400 REM *** DATABLOCK 13 ***
1410 DATA  69, 72, 76, 69, 82, 58, 32, 70, 65, 76
1420 DATA  83, 67, 72, 69, 83, 32, 69, 73, 78, 71
1430 DATA  65, 66, 69, 70, 79, 82, 77, 65, 84, 32
1440 DATA  33, 13, 0, 127, 193, 233, 192, 215, 193, 233
1450 DATA  192
1460 DATA -3679