100 ? ," **********************"
110 ? ," *      Atari-AMPEL   *"
115 ? ," * (c) Happy-Computer *"
117 ? ," *      Version 1.1   *"
120 ? ," **********************"
130 ? 
140 ? ,"CTRL S = Sichern"
150 ? 
160 ? "Einen Moment Geduld bitte.";
190 POKE 16,64:POKE 53774,64
230 DIM F$(15),FB$(15),FR$(27)
240 DIM ML$(261),CIO$(83)
250 GOSUB 1000
260 ? CHR$(156)
270 ? "Programmlaenge ";:INPUT L
280 DIM A$(L+8)
290 ? "Programmname ";:INPUT F$
300 IF F$="" THEN 290
310 F=0:FOR I=1 TO LEN(F$):F=F+(F$(I,I)=":"):NEXT I
320 IF F=0 THEN FR$="D:":FR$(3)=F$:F$=FR$
330 ? "Filename ";F$
340 FB$="D:BACKUP.OBJ"
350 FR$=F$:FR$(LEN(FR$)+1)=","
360 FR$(LEN(FR$)+1)=FB$(3)
420 AD=0:TRAP 510:OPEN #1,4,0,F$
430 E=USR(ADR(CIO$),1,7,ADR(A$),L)
440 IF E=1 THEN ? "Schon fertig":END 
450 IF E<>136 THEN ? "Disk-Read-Error ";E:END 
460 AD=PEEK(856)+256*PEEK(857)
470 AD=8*INT(AD/8):TRAP 65535
510 CD=USR(ADR(ML$),ADR(A$),AD)
520 ON CD GOSUB 590,690,710
530 AD=AD+8*(CD=0)
540 IF AD<=L THEN 510
550 AD=L:GOSUB 590
560 POKE 16,192:POKE 53774,192:END 
590 TRAP 600:CLOSE #1:XIO 33,#1,0,0,FB$
600 TRAP 610:CLOSE #1:XIO 32,#1,0,0,FR$
610 TRAP 660:CLOSE #1:OPEN #1,8,0,F$
620 E=USR(ADR(CIO$),1,11,ADR(A$),AD)
630 CLOSE #1
640 IF E<>1 THEN ? "Disk-Error ";E
650 TRAP 65535:RETURN 
660 CLOSE #1
670 ? "Disk-Error ";PEEK(195):RETURN 
690 ? CHR$(253):? "Pruefsummenfehler"
700 RETURN 
710 ? "Fehler!!!!";:LIST 510:END 
1000 Q=0
1010 FOR I=1536 TO 1592
1020 READ A:Q=Q+A:POKE I,A
1030 NEXT I
1040 IF Q<>4196 THEN ? "Data Error":LIST 1300,1390:END 
1050 Q=0
1060 FOR I=1 TO 261
1070 READ A
1080 IF A>255 THEN GOSUB 1190
1090 ML$(I)=CHR$(A):Q=Q+A
1100 NEXT I
1110 READ A:IF Q<>A THEN 1200
1120 Q=0
1130 FOR I=1 TO 83
1140 READ A:Q=Q+A:CIO$(I)=CHR$(A)
1150 NEXT I
1160 IF Q<>10894 THEN ? "Data Error ";:LIST 1950,2080:END 
1170 RETURN 
1190 IF Q=A THEN READ A:Q=0:RETURN 
1200 ? "Data Error"
1210 IF A=7931 THEN LIST 1430,1530
1220 IF A=6585 THEN LIST 1540,1640
1230 IF A=8135 THEN LIST 1650,1750
1240 IF A=7184 THEN LIST 1760,1860
1250 IF A=2222 THEN LIST 1870,1910
1300 DATA 173,37,228,72,173,36
1310 DATA 228,72,96,72,74,74
1320 DATA 74,74,32,20,6,104
1330 DATA 41,15,9,48,201,58
1340 DATA 144,2,105,6,168,173
1350 DATA 71,3,72,173,70,3
1360 DATA 72,152,96,50,31,30
1370 DATA 26,24,29,27,51,53
1380 DATA 48,63,21,18,58,42
1390 DATA 56,190,52
1430 DATA 169,0,133,213,104,201
1440 DATA 2,240,16,170,240,5
1450 DATA 104,104,202,208,251,169
1460 DATA 3,44,169,1,133,212
1470 DATA 96,104,133,215,104,133
1480 DATA 214,104,133,217,104,133
1490 DATA 216,24,101,214,133,214
1500 DATA 165,217,101,215,133,215
1510 DATA 169,155,32,28,6,165
1520 DATA 217,32,9,6,165,216
1530 DATA 7931
1540 DATA 32,9,6,169,58,32
1550 DATA 28,6,169,0,133,218
1560 DATA 173,252,2,41,191,162
1570 DATA 17,221,39,6,240,5
1580 DATA 202,16,248,48,239,134
1590 DATA 219,141,252,2,32,0
1600 DATA 6,41,127,32,28,6
1610 DATA 165,219,201,16,240,168
1620 DATA 144,40,165,218,240,205
1630 DATA 74,176,5,169,126,32
1640 DATA 6585
1650 DATA 28,6,160,4,70,220
1660 DATA 102,221,102,222,102,223
1670 DATA 102,224,102,225,102,226
1680 DATA 102,227,102,228,136,208
1690 DATA 235,198,218,184,80,178
1700 DATA 10,10,10,10,160,4
1710 DATA 10,38,228,38,227,38
1720 DATA 226,38,225,38,224,38
1730 DATA 223,38,222,38,221,38
1740 DATA 220,136,208,234,230,218
1750 DATA 8135
1760 DATA 165,218,201,18,240,19
1770 DATA 201,16,208,4,169,60
1780 DATA 208,5,74,176,206,169
1790 DATA 32,32,28,6,184,80
1800 DATA 198,165,217,10,101,216
1810 DATA 10,101,220,10,101,221
1820 DATA 10,101,222,10,101,223
1830 DATA 10,101,224,10,101,225
1840 DATA 10,101,226,10,101,227
1850 DATA 197,228,208,18,169,62
1860 DATA 7184
1870 DATA 32,28,6,160,7,185
1880 DATA 220,0,145,214,136,16
1890 DATA 248,169,0,44,169,2
1900 DATA 133,212,96
1910 DATA 2222
1950 DATA 104,201,4,208,66,104
1960 DATA 104,170,104,104,133,212
1970 DATA 104,133,214,104,133,213
1980 DATA 104,133,216,104,133,215
1990 DATA 160,134,138,201,8,176
2000 DATA 33,10,10,10,10,170
2010 DATA 165,212,157,66,3,165
2020 DATA 213,157,68,3,165,214
2030 DATA 157,69,3,165,215,157
2040 DATA 72,3,165,216,157,73
2050 DATA 3,32,86,228,132,212
2060 DATA 169,0,133,213,96,160
2070 DATA 10,170,240,244,104,104
2080 DATA 202,208,251,240,237
