Szukam listingi programów

[OSH]

 Ja  dołożę  do  tego  swoje  trzy  grosze:  Bardzo  dobra  jest  książka  Rüdigera  Baumanna  \'Grafika  komputerowa\'.  Facet  prowadzi  człowieka  za  rączką,  pokazując  mu  jak  tworzyć  w  BASIC-u  grafikę.  Ksiazka  jest  REWELACYJNA  i  warto  ja  mieć  w  swoich  zbiorach.  Ktoś  tu  kiedyś  już  nawet  jej  szukał  -  bywa  na  Allegro.  Sam  mam,  ale  kompletnie  brak  mi  czasu  na  zeskanowanie  jej.  Żałuję,  niestety  życie  (a  przede  wszystkim  zdobywanie  kasy  na  to  życie)  jest  ważniejsze.  Ale  może  jednak  mi  sie  uda  znaleźć  trochę  czasu...

[andrus64]

 Też  ją  mam,  ale  jeszcze  nie  przestudiowałem  jej  do  końca.  Polecam,  bo  książka  chcąc  nie  chcąc  wprowadza  do  turbo  assemblera.  

[MCbx]

 Emulatory  MAJĄ  wirtualne  magnetofony,  a  i  jest  program  WAV-PRG  i  Tape64  (ten  ostatni  pod  DOSa)  do  konwertowania  WAV->PRG  i  na  odwrót.  Poza  tym  najlepszy  do  transferu  C64-PC-C64  jest  kabelek  XE1541  i  pecet  z  DOSem  i  programem  64HDD  -  emuluje  1541  w  plikach  D64.

[Mikra_Lbn]

 Kilka  ciekawych  programów  można  znaleźć  w  książce  Romana  Poznańskiego.  
  http://www.filety.net/arty/literatura/offline/przygody-z-komputerem.rar\' target=_blank>http://www.filety.net/arty/literatura/offline/przygody-z-komputerem.rar

[Vertical]

 Ja  kiedyś  napisałem  wiele  programów  w  Basicu,  ale  większość  to  takie  durnoty  xD.  Jednak  były  tez  warte  uwagi  jak  np.  program  do  zamieniania  liczb  binarnych  na  dziesiętne  i  odwrotnie,  program  do  robienia  duszków  -  rysowało  się  joystickiem.  
   
   
  A  mam  pytanie.  Jak  w  emulatorze  odpalić  te  programy  których  listingi  niektórzy  z  was  podali?  Wkleić  to  trzeba  najpierw  do  notatnika  tak?  A  co  dalej?

[Tomaaz]

 A  nie  możesz  po  prostu  przepisać?      Możesz  też  skorzystać  z  tego  programu  http://www.ajordison.co.uk/index.html\' target=_blank>http://www.ajordison.co.uk/index.html .    
   
  W  emulatorze  VICE  istnieje  możliwość  bezpośredniego  wklejania  tekstu,  ale  -  przynajmniej  u  mnie  -  zamiast  liter  pojawiają  się  różne  znaczki  (cyfry  pozostają  niezmienione).  Jest  na  to  jakaś  rada?

[wegi]

 a  gdzie  reszta  wątku?

[wegi]

 Właśnie  zaskoczyłem  -  możesz  jeszcze  fasta  dorobić  bo  tam  jest  symetria  -  czyli  jak  spojrzysz  na  pointy:  
   
  (Xmin  ;  Y  Min)  =  (Xmin  ;  Ymax)  
   
  Chyba  jasne  to  -  jak  poprawisz  będzie  2  x  szybciej  

[Tomaaz]

 W  tym  uproszczonym  przypadku  zbioru  Mandelbrota  rzeczywiście  można  tak  zrobić,  ale  jeśli  chciałbyś  wprowadzić  np.  opcję  powiększania,  to  już  oczywiście  nie  będzie  to  działać.  
   
  Dzięki  i  pozdrawiam!      

[wegi]

 Ja  właśnie  o  TYM  przypadku  mówię    
   
  Powiedziałeś  \'A\'  -  to  i  \'B\'  -  popraw  2  x  szybciej  będzie  -  czy  to  nie  fajne  ?      

[Tomaaz]

 130  FOR  Y  =  0  TO  99    
  ...  
  150  IF  C  =  50  THEN  K  =  X  +  53  :  GOSUB  1000:  Y  =  199  -  Y  :  GOSUB  1000  
   
  Nie  jestem  pewien  czy  dokladnie  tak,  bo  nie  mam  w  tym  momencie  dostepu  do  emulatora  (jak  rowniez  do  polskich  znakow    ).  
   

[wegi]

 Jakbyś  mógł  to  popraw  i  cały  wrzuć  OK    

[Tomaaz]

 Poprzednia  poprawka  byla  zla.  Tu  jest  calosc  i  teraz  powino  byc  OK.        
   
  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  :  H  =  199  -  Z  :  GOSUB  1000  
  160  NEXT  Z    
  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)

[Tomaaz]

 Zle  mi  sie  wkleilo.        
   
  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  Z    
  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]

 Sprawdziłeś,  że  działa?  Tak  pytam  bo  ja  jeszcze  nie...