64er Magazin 84_4

Programme mischen
C64IVC20
Disk Copy Disk Copy Disk COp~
I '
100 PRINT"~ASIC - DATA - LADER FUER 'DISK COPY
110 INPUT"MMANFANGSADRESSE";AD:ED=AD+135
120 FORI=ADTOED-1
130 READZ:POKEI,Z:NEXT
140 HB=INT(ED/256):LB=EDAND255
150 PRINT"-"ADEN SIE I'UN DAS PROGRAMM 'DISK COPY'.
160 PRINT"~EBEN SIE NACH DEM LADEN EIN:":PRINT"~OKE 45,"LB":POKE 46,"HB"
170 PRINT"MMDAS PROGRAMM BEFINDET SICH JETZT VOLL-
180 PRINT"~TAENDIG IM SPEICHER UND KANN GE'SAVED' MWERDEN.
180 DATAI62,1,32,188,255,160,0,32,207,25~,120,170,165,1,41,252,133,1,138,145
200 DATA252,165,1,8,3,133,1,88,32,183,255,201,64,240,11,201,0,208,7,200,208
210 DATA221,230,2~3,208,217,32,204,255,132,254,165,253,133,255,86,162,1,32
220 DATA201,255,160,0,120,165,1,41,252,133,1,177,252,170,165,1,8,3,133,1,88
230 DATAI38,32,210,2~~,32,183,2~~,201,0,208,17,200,208,2,230,253,165,255,187
240 DATA253,208,217,186,254,144,213,240,211 ,76,204,255, 162 ,3,32,188,255,32
2~0 DATA207,25~,32,210,255,208,248,168,13,32,210,255,76,204,255,0,0,0
READY.
Bild 2. Basic Lader für »Dlsk Copy«
rem :
rem
11/83
merge 1.1
rem
rem heinz boef
von fel
rem
12
kantstrasse
rem
7
6680 neunkirchen
rem
8 rem . . .
9 rem ·······(i4).chrS(147)" )
10 print chrS ' merge 1.1 .. , S(13)'chrS(13
" .. , ff l"'chr '
30 print von heinz boe e 'Zeiger"
40 print" ramm MERGE setzt den hinter"
50 print"Das prog. Anfang unmittelbar amm "'chrS(13)
60 print"fuer Ba~~~~cher befindliche pro~rhinte~"
70 print"das.lmka~n ein weiteres prog~a~'chrS(13)
80 print"som~t de geladen werde . S 50000"
90 print"das bestehe~ierzu den Befehl SY kann"
100 print"GebenDs~enaChgeladeneprogram~andelt"
110 print"ein . a~ das erstgeladene be
. t"aenau w~e )
120 prl n b "'chrS(13 eck-"
130 print"wer~en.B~sic-Zeiger w~eder ~~~u50000"
150 print"um en eben Sie w~eder nun"
160 print"zuset~e:'b~ldenprogramme erg~b;'~Ch['S(13)
170 print"e~n. 1 . einziges prograrn . "'en l "
" ammen eln t te druec.... .
180 print zus b'tte Leer as
, t "Zum Laden 1 00
190 prl n . S()"" then 2
200 get gS:~fS~147);ChrS(142) . ke i q:next i
210 pr1n~ c r to 50264:read q.po ,
220 for 1=500 00 1 208 13
230 new 5 133,2,165,43,201, , 33'252
10000 data i~;'~;1:165,44,201,8,~0~35i~5,252,133
10010 data , 195 165 251,13, , 22
10020 data :~'i~~'o 189,0:196,2~~'~'~~7 43,208
i~~~~ ~~~~ i~i2~~2i~~~4~~;O~~7~2~~oi::'~~5208
10050 data , , 230 43 208,2, , '240 6
10060 data ~';~~'~28,162,O,189,;6~61~;'13,32
10070 data , 22' 231,232,208,24 '. 32 42
10080 data ;~'32'32,32,32,32,32'~~'32'49
10090 data , , 77 69 82,71, , ,
10100 data 42,42,;~' 42:42:42,13,32,~2,~~
10110 data 46,49'32'32,32,32,32,86,79'69
10120 data 32,32'69'73,78,90,32,66,79'32
10130 data 32,72'69'76,13,13,32,32,32'71
10140 data 70,70'32'32,32,32,80,82,79'79
10150 data 32,32'77'77 32 79,78,32,72,
10160 data 82,65, '13'0013,13,32,32
10170 data 76,~8,33'32:32,32,32,32,42,42
10180 data 32,32'~~'69,82,71,69,32,49,4~
10190 data 42,32, 42' 42 42,13,32,32,32';2
10200 data 49,32'32'32:32,32,86,79,78'70
10210 data 32,32'73'78,90,32,66,79,69'32
10220 data 72,69'76'13 13,32,32,32,32'82
10230 data 70,69, '32'328082,79,71,
10240 data 32,32'~~:83:32:77:69,82,71,69
10250 data 65'~~'13,0,0,0,0,0,0,0
10260 data 68, ,
santo Werden beide, Bit 0
und Bit 1, auf 0 gesetzt, ist zusätzlich
auch noch der Ein­
Ausgabebereich abgeschaltet.
Eigentlich doch
ganz einfach.
Der Teufel steckt wie fast
immer im Detail: Wenn der
Basic-Interpreter abgeschaltet
ist, wie soll dann ein
Basic-Programm laufen?
Mehr noch, ohne sein Betriebssystem
ist der Prozesready.
94 I~
Ausgabe 4/April 1984