0 REM**********************************
1 REM*          RAM-FLOPPY            *
2 REM**********************************
3 REM*  UWE KLATT                     *
4 REM*  BILLERBECKER STR. 27          *
5 REM*  4939 STEINHEIM                *
6 REM*  TEL. 05233/5672               *
7 REM**********************************
8 POKE53280,0:POKE53281,11
9 POKE646,8
10 PRINT"BITTE WARTEN"
11 REM *****************************
12 REM *** DATAS  LESEN          ***
13 REM *****************************
14 FORI=40704TO40768:READA:POKEI,A:S=S+A:NEXT
15 IFS<>6567THENEND
16 FORI=40784TO40849:READA:POKEI,A:S=S+A:NEXT
17 IFS<>14392THENEND
18 FORI=40853TO40902:READA:POKEI,A:S=S+A:NEXT
19 IFS<>20412THENEND
20 REM *****************************
21 REM ***        MENUE          ***
22 REM *****************************
23 PRINTCHR$(147)
24 PRINT"                                        ";
25 PRINT" RAM-FLOPPY 25.5 KBYTE                  ";
26 PRINT"                                        "
27 PRINT"'@V'  VERSCHIEBT PROGRAMM IN  RAM-FLOPPY"
28 PRINT"'@T'  VERTAUSCHT PROGRAMM MIT RAM-FLOPPY"
29 REM *****************************
30 REM *** MC PROGRAMM STARTEN   ***
31 REM *****************************
32 SYS40704:NEW
33 REM *****************************
34 REM *** DATAS FUER 1. MC TEIL ***
35 REM *****************************
36 DATA169,159,133,56,133,52,169,0,133,55,169,21,141,8,3,169
37 DATA159,141,9,3,96,32,115,0,240,4,201,64,240,3,76,231
38 DATA167,32,115,0,201,84,240,7,201,86,240,12,76,8,175,32
39 DATA115,0,32,80,159,76,174,167,32,115,0,32,149,159,76,174
40 DATA167
41 REM *****************************
42 REM *** DATAS FUER 2. MC TEIL ***
43 REM *****************************
44 DATA169,0,133,45,169,104,133,46,120,165,1,41,252,133,1,169
45 DATA0,133,98,133,100,141,0,160,169,160,133,101,169,8,133,99
46 DATA162,96,160,0,177,98,133,102,177,100,145,98,165,102,145,100
47 DATA200,208,241,230,99,230,101,202,208,232,165,1,9,3,133,1
48 DATA88,96
49 REM *****************************
50 REM *** DATAS FUER 3. MC TEIL ***
51 REM *****************************
52 DATA120,165,1,41,252,133,1,169,0,133,98,133,100,141,0,160
53 DATA169,160,133,101,169,8,133,99,162,96,160,0,177,98,145,100
54 DATA200,208,249,230,99,230,101,202,208,240,165,1,9,3,133,1
55 DATA88,96