Szukam listingi programów

[pawciopl]

 Poszukuję  listingi  programów  napisanych  w  basic`u  ,  tak  abym  mógł  je  sobie  przepisać  na  komodorcu  i  uruchomić  .  

[wegi]

 ściągnij  sobie  skany  książek  powyżej  albo  z  retroreaders  numery  kebaba  czy  też  c&a  -  tam  będzie  sporo...

[Tomaaz]

 http://www.bombjack.org/commodore/books/pdf/Mostly_BASIC%20Applications_for_your_Commodore_64_Book_1.pdf\' target=_blank>http://www.bombjack.org/commodore/books/pdf/Mostly_BASIC%20Applications_for_your_Commodore_64_Book_1.pdf
   
  http://www.bombjack.org/commodore/books/pdf/Mostly_BASIC%20Applications_for_your_Commodore_64_Book_2.pdf\' target=_blank>http://www.bombjack.org/commodore/books/pdf/Mostly_BASIC%20Applications_for_your_Commodore_64_Book_2.pdf
   
  http://www.bombjack.org/commodore/books/pdf/24_Tested_Ready-To-Run_Game_Programs_in_BASIC.pdf\' target=_blank>http://www.bombjack.org/commodore/books/pdf/24_Tested_Ready-To-Run_Game_Programs_in_BASIC.pdf
   
  http://www.bombjack.org/commodore/books/pdf/34_More_Tested_Game_Programs_in_BASIC.pdf\' target=_blank>http://www.bombjack.org/commodore/books/pdf/34_More_Tested_Game_Programs_in_BASIC.pdf
   
  A  tutaj  masz  listing  programu  jaki  ostatnio  napisałem.    Wykreśla  on  na  ekranie  jeden  z  najsłynniejszych  fraktali  -  zbiór  Mandelbrota.  Na  C64  całość  będzie  trwała  kilka  lub  kilkanaście  godzin,  więc  lepiej  uruchamieć  w  emulatorze  z  najszybszą  mozliwą  prędkością.  
   
  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  Y  =  0  TO  199  
  140  GOSUB  500  
  150  IF  C  =  50  THEN  K  =  X  +  53  :  GOSUB  1000  
  160  NEXT  Y  
  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

[pawciopl]

 Dzięki  !  o  takie  amatorskie  programy  mi  chodziło  ja  postaram  się  umieścić  także  swoje

[wegi]

 Pisz  pisz  i  przepisuj,  potem  trafisz  na  taką  linię:  
   
  10  sys(2064)  
   
  Potem  zaczniesz  się  zastanawiać  co  się  po  tym  sys(2064)  dzieje  i...  może  zaczniesz  programować?      

[pawciopl]

 Na  razie  monitor  i  te  \'inne\'  sprawy  mnie  odstraszają  

[Tomaaz]

 W  ogóle  się  tym  nie  przejmuj.  Jeśli  sprawia  Ci  radochę  pisanie  w  BASICU,  pisz  w  BASICU.  Będziesz  miał  ochotę  spróbować  kodu  maszynowego,  spróbujesz.  Nie  będziesz  miał  -  nie  spróbujesz.    
   
  Ja  kiedyś  pisałem  dość  sporo  w  kodzie  maszynowym.  Sam  język  w  miarę  pamiętam,  ale  wyleciały  mi  z  głowy  wszystkie  adresy,  obsługa  przerwań,  grafiki  itp.  Czasami  ciągnie  mnie  by  sobie  przypomnieć,  ale  jak  próbuję  z  jakąś  książką,  to  mnie  odrzuca.    A  w  BASICU  coś  sobie  skrobnę  od  czasu  do  czasu  i  mnie  to  zwyczajnie  cieszy.  Tak  więc  -  do  roboty!  No  i  wrzucaj  listingi  programów,  choćby  najbanalniejszych.  Ja  Cię  nie  wyśmieję.  

[Gizmoń]

 Tomaaz:  wpisałem  Twój  program  do  mojego  C64.  Po  trzynastu  godzinach  pracy  (od  11  w  nocy  do  południa  następnego  dnia)  uzyskałem  taki  efekt:  
   
  http://obrazki.elektroda.net/73_1246703885.jpg\' target=_blank>http://obrazki.elektroda.net/73_1246703885.jpg
   
  http://obrazki.elektroda.net/91_1246703952.jpg\' target=_blank>http://obrazki.elektroda.net/91_1246703952.jpg
   
  Bardzo  fajny  żuczek      

[wegi]

 fajny  sprzęt  elektroniczny  masz  w  domu        
   
  Jak  chcesz  zobaczyć  inne  ciekawe  fraktale  szybciej  liczone  obejrzyj  np.  winteractive  albo  coma  light  12  oxyronu

[Gizmoń]

 No,  sprzęt  jest  fajny        W  większości  własnej  roboty        
  ---  
  Mam  różne  własne  programy.  Napisz,  jaki  by  Cię  interesował,  a  go  spróbuję  przepisać  (w  nawiasach  jest  podana  długość  programu):  
   
  -Generator  funkcji  (strasznie,  by  nie  powiedzieć  inaczej,  długi;  obsługuje  trzy  kanały  SIDa,  ustawienia  pokazywane  są  jako  ramka  poruszająca  się  nad  skalą,  generuje  przebiegi:  trójkątny,  piłokształtny,  prostokątny  o  regulowanym  wypełnieniu  i  biały  szum.  Można  je  na  siebie  nakładać,  regulować  ich  amplitudę,  częstotliwość  itp.)    
   
  -Program  do  projektowania  obiektów  Sprite  (też  strasznie  długi;  obiekt  rysuje  się  myszką  lub  joystickiem  na  większej  części  ekranu  -  jeden  piksel  ma  wielkość  czcionki.  Następnie  obrazek  można  zakodować  tak  jak  to  się  robi  dla  obiektów  Sprite  (ale  wszystko  robi  komputer  w  około  20s).  Pokazuje  się  podgląd,  który  można  powiększyć  2x.  Obrazki  w  formie  gotowej  serii  liczb  można  zapisać  na  dyskietce,  przepisać  z  ekranu,  wydrukować.  Do  wydrukowania  niezbędny  jest  odpowiedni  interfejs  User  Port,  głowica  z  drukarki  igłowej,  kartka  papieru  i  kalka      .  Z  dyskietki  można  obrazek  wczytać  i  edytować.)  
   

[Gizmoń]

 -Program  do  porządkowania  zawartości  dyskietki  (mogę  przepisać;  umożliwia  zmianę  nazwy  pliku,  usunięcie  jednego  lub  serii  plików,  formatowanie  dyskietki.  W  każdym  momencie  można  zobaczyć  katalog  dysku)  
   
  -Program  do  sprawdzania  zawartości  pamięci  (też  jakoś  przepiszę;  pokazuje  zawartość  z  określonego  przedziału  lub  śledzi  zmiany  w  jednej  komórce.  Umożliwia  też  wpisanie  do  przedziału  lub  jednej  komórki  jakiejś  liczby)  
   
  -Gra  -  lecisz  balonem,  przeszkadzają  Ci  inne  balony  i  nieruchome  (!)  ptaszki,  musisz  w  określonym  czasie  (chyba  40s)dolecieć  do  czarnego  balonu    .  Wbrew  pozorom  nie  jest  to  takie  łatwe.  (troszkę  długaśny)    
   
  -Prototyp  sterownika  myszy  (krótki;  porusza  wskaźnikiem  w  formie  krzyżyka)  
   
  -Zegarek  wielofunkcyjny  (łatwo  się  przepisze,  ma  budzik,  minutnik  i  takie  tam  różne)  
   
  Mam  też  programy  wykorzystujące  User  Port  (sterownik  wyświetlacza  widmowego,  głowicy  z  drukarki  igłowej  (ten  program  jest  też  częścią  innego,  do  projektowania  duszków),  program  parkujący  mechanizm  kserokopiarki  itp.).  Wymagają  odpowiedniego  interfejsu  podłączanego  do  user  portu.  
   

[Tomaaz]

 A  Ty  masz  te  programy  tylko  na  oryginalnym  C64  czy  też  na  PC.  Bo  jak  one  takie  długie,  to  ciężko  Ci  będzie  przepisywać.  Jak  masz  na  PC  to  podeślij  mi  mailem  tego  od  spriteów  i  tego  od  dźwięku.  
   
  A  ode  mnie  jeszcze  jeden  fraktal.  Tym  razem  prostszy,  ale  za  to  z  polskim  rodowodem  -  \'Trójkąt  Sierpińskiego\'.  No  i  na  efekt  nie  trzeba  czekać  tak  długo.    
   
  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  X1  =  160  
  110  X2  =  160  
  120  Y1  =  0  
  130  Y2  =  0  
  140  FOR  K  =  1  TO  50000  
  150  LOS  =  INT  (RND  (1)  *  3)  
  160  IF  LOS  =  0  THEN  X1  =  (X2  +  160)  /  2  :  Y1  =  Y2  /  2    
  170  IF  LOS  =  1  THEN  X1  =  X2  /  2  :  Y1  =  (Y2  +  200)  /  2    
  180  IF  LOS  =  2  THEN  X1  =  (X2  +  320)  /  2  :  Y1  =  (Y2  +  200)  /  2    
  190  GOSUB  1000  
  200  X2  =  X1  
  210  Y2  =  Y1  
  220  NEXT  K  
  230  GOTO  230  
  1000  PY  =  INT  (Y1  /    
  1010  PX  =  INT  (X1  /    
  1020  LIN  =  Y1  AND  7  
  1030  BIT  =  7  -  (X1  AND  7)  
  1040  BAJT  =  8192  +  PY  *  320  +  PX  *  8  +  LIN  
  1050  POKE  BAJT,  PEEK  (BAJT)  OR  (2  ^  BIT)  
  1060  RETURN

[Gizmoń]

 Niestety,  te  programy  mam  tylko  na  oryginalnym  C64      Ale  to  nic,  mogę  spróbować  przepisać  (bo  nawet  porządnej  drukarki  do  C64  nie  mam).  Akurat  są  takie  deszczowe  dni...        
  Zacznę  od  generatora  funkcji.

[Gizmoń]

 Właśnie  zobaczyłem  listing  programu  \'od  dźwięków\'  zajmującego  18  bloków  dyskietki  (program  do  projektowania  duszków  zajmuje  aż  22  bloki).  Ostatnia  linia  ma  numer  1750  (w  tym  drugim  aż  6080),  a  odstępy  nie  zawsze  wynoszą  10.  Niestety  tyle  zajmuje  obsługa  suwaczków  nad  skalami  i  innych  gadżetów.  Może  więc  zrobię  inaczej:  nagram  program(y)  na  taśmę,  i  te  piski  zapiszę  na  komputerze  (prawdopodobnie  *.WAV).  Plik  wyślę  lub  umieszczę  w  internecie.  Trzeba  go  będzie  sobie  nagrać  na  taśmę  i  wrzucić  do  komputerowego  kaseciaka  (a  może  emulatory  mają  wirtualny  magnetofon?).  

[Tomaaz]

 O  przepisywaniu  to  nawet  nie  myśl.  To  mordęga.  A  i  bez  błędów  się  pewnie  nie  obejdzie  (poprawianie  zajmnie  więcej  czasu  niż  przepisywanie).  
   
  Ja  nie  mam  C64.  Nie  wiem  też  czy  ta  metoda  z  WAV  jest  dobra.  Może  znajdziesz  program,  który  przerobi  tego  WAVa  na  PRG?  Ktoś  bardziej  obeznany  w  sprawach  sprzętowych  powinien  się  wypowiedzieć.