Szukam listingi programów

[Tomaaz]

 Nie,  bo  wciaz  w  podrozy.      

[gornipio]

 komorka  tak  samo  jak  u  mnie?  ze  nie  masz  pl  znakow...

[Tomaaz]

 Laptop,  ale  nie  moj  i  bez  polskich  znakow.

[Tomaaz]

 Mandelbrot  -  poprawiona  (szybsza)  wersja.  
   
  5  POKE  53280,6    
  10  POKE  53272,  PEEK  (53272)  OR  8    
  20  POKE  53265,  PEEK  (53265)  OR  32    
  40  FOR  Y  =  1024  TO  2023    
  50  POKE  Y,  246    
  60  NEXT  Y    
  70  FOR  X  =  8192  TO  16191    
  80  POKE  X,  0    
  90  NEXT  X    
  100  D  =  3/266    
  110  E  =  2/200    
  120  FOR  X  =  0  TO  266    
  130  FOR  H  =  0  TO  99    
  140  GOSUB  500    
  150  IF  C  =  50  THEN  K  =  X  +  53  :  Y  =  H  :  GOSUB  1000  :  Y  =  199  -  H  :  GOSUB  1000    
  160  NEXT  H    
  170  NEXT  X    
  180  GOTO  180    
  500  A  =  0    
  510  B  =  0    
  520  C  =  0    
  530  X2  =  (D  *  X)  -  2    
  540  Y2  =  (E  *  Y)  -  1    
  550  A2  =  A*  A-  B  *  B    
  560  B2  =  2  *  A  *  B    
  570  A  =  A2  +  X2    
  580  B  =  B2  +  Y2    
  590  Z  =  A  *  A  +  B  *  B    
  600  IF  Z  >=  4  THEN  RETURN    
  610  C  =  C  +  1    
  620  IF  C  =  50  THEN  RETURN    
  630  GOTO  530    
  1000  PY  =  INT  (Y  /      
  1010  PX  =  INT  (K  /      
  1020  LIN  =  Y  AND  7    
  1030  BIT  =  7  -  (K  AND  7)    
  1040  BAJT  =  8192  +  PY  *  320  +  PX  *  8  +  LIN    
  1050  POKE  BAJT,  PEEK  (BAJT)  OR  (2  ^  BIT)    
  1060  RETURN

[wegi]

 Dałbyś  gdzieś  linka  do  wersji  z  d64  czy  t64,  żeby  nie  trzeba  było  wpisywać

[Skull]

 @wegi:  np.  w  vice  można  przeklejać  

[Skull]

 i  jest  jeszcze  błąd  w  linii  :  
  540  Y2  =  (E  *  Y)  -  1    
   
  zamiast  Y  powinno  być  H  
   
   

[gornipio]

 listingi  tez  sie  przydaja  tym,  co  nie  maja  zadnych  nosnikow  np.  kaset

[Tomaaz]

 wegi,  dalbym  linka  i  zrobil  to  raz  i  porzadnie,  gdybym  miel  swobodny  dostep  do  emulatora  i  do  komputera  w  ogole.        
   
  skull,  dzieki!      

[wegi]

 dzięki  dzięki  skull  -  już  nie  mogę  się  pastwić  nad  Tomaaz`em  -  ale  jak  będziesz  miał  dostęp  to  w  końcu  zrobisz  gotowe  do  pobrania  Tomaaz?

[Tomaaz]

 Wróciłem,  przyjrzałem  się  i...  było  źle.      Tutaj  wersja  ostateczna  do  ściągnięcia  -  http://w684.wrzuta.pl/plik/0f5U1rcoRyp/mandelbrot\' target=_blank>http://w684.wrzuta.pl/plik/0f5U1rcoRyp/mandelbrot .  
   
  A  tu  listing:  
   
  5  POKE  53280,6  
  10  POKE  53272,  PEEK  (53272)  OR  8  
  20  POKE  53265,  PEEK  (53265)  OR  32  
  40  FOR  Y  =  1024  TO  2023  
  50  POKE  Y,  246  
  60  NEXT  Y  
  70  FOR  X  =  8192  TO  16191  
  80  POKE  X,  0  
  90  NEXT  X  
  100  D  =  3/266  
  110  E  =  2/200  
  120  FOR  X  =  0  TO  266  
  130  FOR  H  =  0  TO  100  
  140  GOSUB  500  
  150  IF  C  =  50  THEN  K  =  X  +  53  :  Y  =  H  :  GOSUB  1000  :  Y  =  200  -  H  :  GOSUB  1000    
  160  NEXT  H  
  170  NEXT  X  
  180  GOTO  180  
  500  A  =  0    
  510  B  =  0    
  520  C  =  0    
  530  X2  =  (D  *  X)  -  2  
  540  Y2  =  (E  *  H)  -  1  
  550  A2  =  A*  A-  B  *  B    
  560  B2  =  2  *  A  *  B  
  570  A  =  A2  +  X2  
  580  B  =  B2  +  Y2  
  590  Z  =  A  *  A  +  B  *  B    
  600  IF  Z  >=  4  THEN  RETURN  
  610  C  =  C  +  1  
  620  IF  C  =  50  THEN  RETURN  
  630  GOTO  530  
  1000  PY  =  INT  (Y  /    
  1010  PX  =  INT  (K  /    
  1020  LIN  =  Y  AND  7  
  1030  BIT  =  7  -  (K  AND  7)  
  1040  BAJT  =  8192  +  PY  *  320  +  PX  *  8  +  LIN  
  1050  POKE  BAJT,  PEEK  (BAJT)  OR  (2  ^  BIT)  
  1060  RETURN  

[zyga]

 @Gornipio:  
  cyt  \'  listingi  tez  sie  przydaja  tym,  co  nie  maja  zadnych  nosnikow  np.  kaset  \'  
   
  Raczej  chodzi  tu  o  wartość  poznawczą,  możliwość  przeanalizowania  kodu.  Bo  praca  z  komputerem  bez  jakiejkolwiek  pamięci  masowej  mija  się  z  celem.  Chociaż  pamiętam  że  kiedyś  wpisałem  z  Bajtka  \'Tylko  o  Atari\'  grę  Tron  i  nie  wyłączałem  komputera  przez  kilka  dni,  bo  nie  miałem  magnetofonu  

[gornipio]

 @zyga  niezłe  ;P

[zyga]

 Offtopic,  ale  pamiętam  z  magnetofoniarskich  czasów,  że  gdy  zacząłem  rysować  w  ArtStudio  (głównie  dlatego  że  pozwalało  ono  zapisywać  obrazki  na  taśmie),  na  jednej  stronie  kasety  60  minut  -  zapis  w  normalu  -  mieściły  się  3  obrazki    Masakrą  było  czekanie  aż  obrazek  się  zapisze...  
  Do  wyświetlania  używałem  potem  procedurki  z  C&A  wklepanej  pod  monitorem  z  BlackBoxa  v8.  A  następnie  zawartość  pamięci  zapisywałem  z  poziomu  Black  Boxa  już  w  turbo  z  dodaną  basicową  linią  sys.  Black  Box  miał  fajną  instrukcję  <-W  służącą  do  zapisu  zawartości  pamięci  z  zadanym  adresem  początkowym  i  końcowym.  Można  było  w  ten  sposób  ominąć  słynne  Micrus  Copy  zmieniając  adres  startowy  na  wcześniejszy.  Potem  wystarczało  załadować  program  poleceniem  <-L\'\',1,1  i  heja    
   
  Na  wspominki  mi  się  zebrało....

[zyga]

 A  jak  się  dorobiłem  carta  FC  to  już  był  hajlajf,  bo  można  było  ustawić  znaczniki  początka  i  końca  programu  w  basicu  i  wydać  komendę  PACK  !  To  jedyna  znana  mi  mozliwość  skorzystania  z  packera  dla  magnetofoniarzy.