home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1990 July
/
64er_Magazin_90-07_1990_Markt__Technik_de_Side_A.d64
/
kurvenmaster
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
21 lines
1 ifpeek(2030)<>1theni=1:fori=7616to7722:readj:pokei,j:nexti:poke2030,1
2 s=2024:pokes,160:pokes+1,0:pokes+2,99:pokes+4,40:pokes+5,40:sys7616:pokes+7,1
3 i=53272:pokei-7,27:pokei,21:pokei+8,1:pokei+9,1:print"[147][154]":input"fnf(x)= ";a$
4 print"[147]12 deffnf(x)=";a$:print"g[207]5":poke631,13:poke632,13:poke198,2:end
5 poke53272,24:poke53265,59:fori=4^5to2023:pokei,225:nexti:ifpeek(2031)<>1then12
6 sys7616:poke2031,0:for i=12035to12347step8:pokei,170:nexti
7 for i=0to7680step320:forj=8352to8359:pokei+j,peek(i+j)or128:nextj:nexti
8 fori=12194to12034step-40:pokei,peek(i)or128:pokei+2,peek(i)or128:nexti
9 fori=12194to12314step 40:pokei,peek(i)or128:pokei+2,peek(i)or128:nexti
10 fori=12195to8995 step-1600:pokei,peek(i)or64:pokei-8,peek(i-8)or1:nexti
11 fori=12195to15395step 1600:pokei,peek(i)or64:pokei-8,peek(i-8)or1:nexti
13 fori=1to319:j=99-fnf((i-160)/40)*40:a=int(j/8):b=int(i/8):ifj>199orj<0then15
14 z=8*b+8192+j-a*8+a*320:pokez,peek(z)or128/2^(i-b*8)
15 nexti:wait198,1:poke53265,27:poke53272,21:print"[147]":input"out ";d:ondgoto2,3
16 data169,000,162,250,157,000,032,157,250,032,157,244,033,157,238,034,157,232
17 data035,157,226,036,157,220,037,157,214,038,157,208,039,157,202,040,157,196
18 data041,157,190,042,157,184,043,157,178,044,157,172,045,157,166,046,157,160
19 data047,157,154,048,157,148,049,157,142,050,157,136,051,157,130,052,157,124
20 data053,157,118,054,157,112,055,157,106,056,157,100,057,157,094,058,157,088
21 data059,157,082,060,157,076,061,157,070,062,202,208,157,141,000,032,096