home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1985 July
/
64er_Magazin_85-07_1985_Markt__Technik_de.d64
/
cent.listing1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
3KB
|
82 lines
0 rem ********************************
1 rem * *
2 rem * c64 centron *
3 rem * *
4 rem * von *
5 rem * wolfgang fastenrath *
6 rem * und *
7 rem * elmar schulte *
8 rem * *
9 rem * tel. 02246/7132 *
10 rem * *
11 rem * lohmar, april 1985 *
12 rem * *
13 rem ********************************
14 poke55,0:poke56,64:restore
15 of=16384:gosub1000:sys16384
20 of=25641:gosub1000
30 of=25661:gosub1000
40 of=28861:gosub1000
50 of=30131:gosub2000
60 of=30140:gosub2000
70 of=30162:gosub2000
80 of=30168:gosub2000
90 of=30355:gosub2000
100 of=30489:gosub2000
110 of=30544:gosub2000
120 of=30748:gosub2000
130 of=30761:gosub2000
140 of=30781:gosub2000
150 of=32221:gosub1000
160 of=32450:gosub1000
170 of=27969:gosub3000
180 of=27940:gosub3000
190 of=28091:gosub3000
200 of=25695:gosub1000
210 of=25783:gosub1000
220 of=28884:gosub1000
300 print"[147]<1> abspeichern
310 [153]"<2> testoption
315 print"<3> ende
320 [153]"bitte waehlen <1/2/3>
340 geta$:ifa$=""then340
345 ifa$="1"then350
347 ifa$="2"then400
348 ifa$="3"thenend
349 ifa$<>"1"ora$<>"2"ora$<>"3"then340
350 print"[147]'c64 centron' (bereich $6000 - $8000)"
360 print"wird auf diskette gespeichert"
370 sys 16421:end
400 poke16388,96:poke16393,224:poke16398,0:poke16401,0:poke16416,0:sys16384
410 poke16388,160:poke16393,160:poke16398,0:poke16401,0:poke16416,192:sys16384
420 poke1,53
430 print"[147]basic und c64 centron befinden sich":print"jetzt im ram."
440 print"die funktion kann getestet werden."
450 end
1000 i=0
1010 reada:ifa<0thenreturn
1020 pokeof+i,a:i=i+1:goto1010
1030 end
2000 reada:pokeof,a:reada:pokeof+1,a:return
3000 reada:pokeof,a:reada:pokeof+1,a:reada:pokeof+2,a:return
31999 data120,160,0,169,224,141,15,64,169,96,141,18,64,185,0,255,153,0,255,200
32000 data208,247,238,15,64,238,18,64
32001 data173,18,64,201,128,208,234,88,96,169,0,133,251,169
32002 data96,133,252,169,1,162,8,160,1,32,186,255,169,13,162,73,160,64,32,189
32003 data255,169,251,162,0,160,128,32,216,255,96,67,54,52,32,67,69,78,84,82
32004 data79,78,47,79,0,-55,169,194,160,254,-55,169,234,160,253,-55,13,163
32005 data13,83,82,160,160,80,204,82,195,13,204,13,211,160,13,214,13,160,13,43
32006 data141,-55,160,2,160,6,160,11,160,16,160,13,160,0,160,18,160,7,160,20
32007 data160,9,169,37,141,4,220,169,64,141,5,220,76,110,255,32,66,89
32008 data84,69,83,32,82,65,77,13,0,-55,147,13,32,42,32,67,54,52,32,67,69,78
32009 data84,82,79,78,32,42,32,0,-55,76,95,228,76,212,240,32,0,241,44,12,221
32010 data48,6,32,151,238,76,68,237,165,149,44,12,221,80,26,72,173,12,220,201
32011 data219,208,3,108,54,3,104,201,65,144,10,201,192,144,4,41,127,208,2,9,32
32012 data32,183,228,24,36,163,16,5,169,0,141,12,221,88,96,169,13,32,183,228,208
32013 data242,-55,141,1,221,173,13,221,173,0,221,41,251,141,0,221,9,4,141,0,221
32014 data169,16,44,13,221,240,251,96,-55,201,36,240,14,173,12,221,41,127,141
32015 data12,221,32,151,238,76,39,237,169,255,141,3,221,44,12,221,48,13,173,12
32016 data221,9,128,141,12,221,169,0,32,183,228,24,88,96,120,44,12,221,48,5,88
32017 data32,54,237,96,72,41,31,201,7,8,173,12,221,40,208,3,9,64,44,41,191,141
32018 data12,221,104,41,240,201,224,208,215,76,154,228,-55