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