home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 63
/
64er_Magazin_Sonderheft_63_19xx_Markt__Technik_de_Side_A.d64
/
init
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
3KB
|
76 lines
10 rem ********************************
20 rem * funktionenhilfe fuer den c64 *
30 rem * michael suhr *
40 rem * 5160 dueren wernerstr. 10 *
50 rem * tel: 02421/14666 *
70 rem ********************************
100 :
110 rem mc-datas
120 :
130 data 32,253,174,32,235,183,142,168,2,165,20,141
140 data 169,2,165,21,141,170,2,173,169,2,24,105
150 data 12,141,169,2,144,9,24,173,170,2,105,1
160 data 141,170,2,173,169,2,141,0,208,173,170,2
170 data 141,16,208,173,168,2,105,50,141,1,208,173
180 data 169,2,56,233,12,141,169,2,176,5,169,0
190 data 141,170,2,173,168,2,74,74,74,141,172,2
200 data 173,170,2,24,74,173,169,2,41,254,106,74
210 data 74,141,171,2,169,0,133,251,169,96,133,252
220 data 24,173,171,2,42,42,42,144,2,230,252,24
230 data 101,251,133,251,144,2,230,252,24,174,172,2
240 data 240,56,169,0,141,175,2,169,0,141,174,2
250 data 24,169,64,109,174,2,141,174,2,144,3,238
260 data 175,2,24,169,1,109,175,2,141,175,2,202
270 data 208,230,24,173,174,2,101,251,133,251,144,2
280 data 230,252,24,165,252,109,175,2,133,252,173,168
290 data 2,41,7,101,251,133,251,173,169,2,41,7
300 data 73,7,170,169,1,160,0,202,48,3,10,208
310 data 250,141,173,2,177,251,13,173,2,145,251,96
320 data 120,169,0,133,1,160,0,169,0,133,251,169
330 data 96,133,252,169,0,145,251,200,192,0,240,8
340 data 76,243,192,230,252,76,243,192,165,252,201,128
350 data 208,245,160,0,169,0,133,251,169,88,133,252
360 data 169,16,145,251,200,192,0,240,8,76,20,193
370 data 230,252,76,20,193,165,252,201,92,208,245,169
380 data 55,133,1,88,96,48
390 :
400 rem spritedatas
410 :
420 data0,24,0,0,24,0,0,60,0,0,60,0,0,126,0,0,255,0,0,24,0,0,24,0,0,24,0
430 data0,24,0,0,24,0,0,24,0,0,24,0,0,60,0,0,60,0,0,126,0,0,0,0,0,0,0,0,0,0,0
440 data0,0,0,0,0
450 :
460 rem fehlerunterdrueckung
470 :
480 data 224,128,240,3,134,144,96,76,139,227
490 :
500 rem ** startwerte einlesen ***
510 rem die wichtigen variablen im ueberblick
520 rem s1 maschinenroutine
530 rem s2 high-res loeschen
540 rem st status
550 rem y,y1,y2,y3 werte einer fkt.
560 rem x parameter der fkt.
570 rem za,ze,f,z,s zaehler
580 rem a,h,hh,h1..h9 hilfsgroessen
590 rem fl,fe flaggen;div.bedeutung
600 rem nu,be,ex,de,lu flaggen fuer berechnetes
610 rem e$,es$,me$ beinhalten die fkt.
620 rem q$,a$,b$,c$ hilfstrings
630 rem de(),de$(),lu() errechnete werte
640 :
650 s1=49152:s2=49380
660 fora=49152to49457
670 readh:pokea,h:hh=hh+h
680 next:ifhh<>36747thenprint"[198]ehler in [196]atas!":end
690 fora=23808to23808+62
700 readh:pokea,h
710 next
720 fora=700to709:readh:pokea,h:next
730 syss2
740 poke 49457-28,peek(699):rem farbe der graphik
750 :
760 load"hprogramm",8
770 :
0