home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 2
/
64er_Magazin_Sonderheft_02_86-02_1986_Markt__Technik_de.d64
/
ram-floppy
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
57 lines
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