Retrocomputer, Emulazione, Riparazioni Scambi/Vendite e collezionismo - Cerco Commodore - Approfondimenti, Listati Basic Commodore

Commodore CErco COmmodore - l'iniziativa di appassionati di retrocomputer


Listato per il basic dello Spectrum per tracciare una curva ad alta risoluzione

      100 border 0: paper 0: cls
      110 ink 6
      120 for x= 0 to 255
      130 plot x,x*x/380
      140 next x
      150 for x= 0 to 255
      160 plot x,x*x/380
      170 draw 0,-(x*x/380)
      180 next x
      190 pause 200: ink 5: cls
      200 for x=0 to 255
      210 let y=rnd*x/1.5
      220 plot x,y
      230 draw 0,-y
      240 next x
      250 pause 200: ink 3: cls
      260 for x= 0 to 255
      270 plot x,ln(x/5+1)*40
      280 next x
      290 for x=0 to 255
      300 let y= ln(x/5+1)*40
      310 plot x,y
      320 draw 0,-y
      330 next x
      340 pause 200: ink 4:cls
      350 for x=0 to 255
      360 plot x,80+cos(pi/180*(180+x*1.41))*80
      370 next x
      380 for x=0 to 255
      390 let y=80+cos(pi/180*(180+x*1.41))*80
      400 plot x,y
      410 draw 0,-y
      420 next x
		

Torna indietro



Copyright 2003 - 2018 (c) - Tutti i diritti riservati -