Welcome, Guest. Please login or register.


Author Topic: BASIC (Read 154681 times)

Offline IstvanV

  • EP addict
  • *
  • Posts: 4753
  • OS:
  • Linux (Suse) Linux (Suse)
  • Browser:
  • Firefox 3.0.3 Firefox 3.0.3
    • View Profile
Re: BASIC
« Reply #105 on: 2008.December.01. 14:15:25 »
Át tudnád ezt EP-re írni? :)
epgraph.bas - a program IS-BASIC-re átírva, 16 színű módban (lehetne 4 színű is, akkor nagyobb lenne a felbontás, de a színek számát csökkenteni kellene). Mivel nagyon lassan fut, még emulátoron 200 MHz-es Z80-at beállítva és a memória időzítést kikapcsolva is, ezért ez egy kissé "lebutított" változat, amelyben 16-szor kevesebbszer fut le a ciklus.
epgraph2.bas - ugyanaz gyorsítás nélkül, azoknak, akik nagyon türelmesek :)
epgraph.lua - ez csak érdekesség, ep128emu Lua script verzió (a debuggerben lehet futtatni). Még így is viszonylag lassú (nekem a Windowsos emulátorral kb. 9-10 másodperc), de az idő jelentős részét a vonalrajzolás teszi ki. Bár ez a program bonyolultnak tűnhet, ez csak az EP képernyőjére rajzoló rutinok miatt van; az eredeti BASIC programot egyébként minimális változtatásokkal át lehetett írni.
« Last Edit: 2008.December.01. 14:36:00 by IstvanV »

Offline IstvanV

  • EP addict
  • *
  • Posts: 4753
  • OS:
  • Linux (Suse) Linux (Suse)
  • Browser:
  • Konqueror 3.5.9 Konqueror 3.5.9
    • View Profile
Re: BASIC
« Reply #106 on: 2008.December.01. 16:37:52 »
epgraph.lua - ez csak érdekesség, ep128emu Lua script verzió (a debuggerben lehet futtatni). Még így is viszonylag lassú (nekem a Windowsos emulátorral kb. 9-10 másodperc), de az idő jelentős részét a vonalrajzolás teszi ki. Bár ez a program bonyolultnak tűnhet, ez csak az EP képernyőjére rajzoló rutinok miatt van; az eredeti BASIC programot egyébként minimális változtatásokkal át lehetett írni.
Animált változat :) Indítása: "Load from file", "Run", és "Step".

Offline nyuzga

  • EP addict
  • *
  • Posts: 1954
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Opera 9.52 Opera 9.52
    • View Profile
Re: BASIC
« Reply #107 on: 2008.December.01. 16:38:40 »
Az igen! :cool:
A lua 10 másodperc alatt kirajzolta.
Köszönöm. :)
1913-0

Offline vizor

  • EP fan
  • *
  • Posts: 239
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 3.0.4 Firefox 3.0.4
    • View Profile
    • http://vizor.uw.hu
Re: BASIC
« Reply #108 on: 2008.December.01. 16:41:07 »
EP32-n nem tudom betölteni az egraph.bas-okat.

*** Invalid EXOS function code.

 :?:

Mostanában txt-ben szoktam IS-BASIC kódokat csinálni. Win alatt Notepad-al könnyebb a kódot szerkeszteni és az EP32 be tudja olvasni.

Offline IstvanV

  • EP addict
  • *
  • Posts: 4753
  • OS:
  • Linux (Suse) Linux (Suse)
  • Browser:
  • Konqueror 3.5.9 Konqueror 3.5.9
    • View Profile
Re: BASIC
« Reply #109 on: 2008.December.01. 16:44:20 »
Az igen! :cool:
A lua 10 másodperc alatt kirajzolta.
Ebből a számolás kb. 1 másodperc, a többi a vonalak rajzolása. :)

Offline IstvanV

  • EP addict
  • *
  • Posts: 4753
  • OS:
  • Linux (Suse) Linux (Suse)
  • Browser:
  • Konqueror 3.5.9 Konqueror 3.5.9
    • View Profile
Re: BASIC
« Reply #110 on: 2008.December.01. 16:53:46 »
EP32-n nem tudom betölteni az egraph.bas-okat.
Próbáld ep128emu-val :)
Quote
Mostanában txt-ben szoktam IS-BASIC kódokat csinálni. Win alatt Notepad-al könnyebb a kódot szerkeszteni és az EP32 be tudja olvasni.
A Zozosoft által leírt módon listázott programok:
« Last Edit: 2008.December.01. 17:02:43 by IstvanV »

Offline vizor

  • EP fan
  • *
  • Posts: 239
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 3.0.4 Firefox 3.0.4
    • View Profile
    • http://vizor.uw.hu
Re: BASIC
« Reply #111 on: 2008.December.01. 17:46:59 »
Bocsánatot kell kérnem !

Elírtam a filenevet, epgraph.bas helyett egraph.bas  :oops: Természetesen az EP32 is beolvassa a bas file-t.

Elfelejtettem, szólhattatok volna, hogy tape rendszerben az EXOS errorcode akár "bad command or filename"-t is jelenthet  :ds_icon_cheesygrin:

Amúgy 1 GHz-es Z80 sebességnél 5 perc alatt még nem alakult ki az ábra. Talán meg kellene néznem azt az új emut  :)

Offline Zozosoft

  • EP addict
  • *
  • Posts: 13070
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 3.0.4 Firefox 3.0.4
    • View Profile
    • http://enterprise.iko.hu/
Re: BASIC
« Reply #112 on: 2008.December.01. 18:00:13 »
Elfelejtettem, szólhattatok volna, hogy tape rendszerben az EXOS errorcode akár "bad command or filename"-t is jelenthet  :ds_icon_cheesygrin:
Ez EP32 magnó emuláció bug.

Offline szipucsu

  • EP addict
  • *
  • Posts: 7336
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 3.0.4 Firefox 3.0.4
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: BASIC
« Reply #113 on: 2008.December.01. 18:29:03 »
Bár ez nem igazán tartozik ehhez a témához, de már van újabb ep128emu 2.0.6 beta verzió is (lásd itt). :)
Természetesen feltettem azóta. De ezzel sem csíkozódik. (Sose legyen nagyobb problémám. :D )
SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
SOUND PITCH 25,SYNC 2
Videos

Offline IstvanV

  • EP addict
  • *
  • Posts: 4753
  • OS:
  • Linux (Suse) Linux (Suse)
  • Browser:
  • Konqueror 3.5.9 Konqueror 3.5.9
    • View Profile
Re: BASIC
« Reply #114 on: 2008.December.01. 19:09:27 »
Amúgy 1 GHz-es Z80 sebességnél 5 perc alatt még nem alakult ki az ábra. Talán meg kellene néznem azt az új emut  :)
A sebesség azzal sem lesz feltétlenül jobb (viszont pontosabb és többet tud :)), de az EP32-ben sem lehet 200 MHz-nél nagyobb Z80 órajelet beállítani. Az ep128emu-ban a Z80 frekvenciát 200 MHz-re állítva, és a memória időzítés emulációját kikapcsolva nekem kb. 85% a sebesség, és így az epgraph2.bas futása több, mint 1 óra után még mindig nem fejeződött be, tehát igazi gépen ez 40-50 óránál is több lehet.

Offline Ep128

  • EP addict
  • *
  • Posts: 1561
  • Country: hu
  • OS:
  • Windows Vista Windows Vista
  • Browser:
  • Firefox 3.0.4 Firefox 3.0.4
    • View Profile
    • Honlapom
Re: BASIC
« Reply #115 on: 2008.December.01. 23:36:12 »
Ezen nincs is mit csodálkozni, anno mi az ENTERPRESS újságban leközölt BASIC grafikákat (miután bepötyögtük tesómmal és START -ot nyomtunk) volt, hogy több, mint fél napon át rajzolgatta az (akkor még) 4Mhz -es alap gép. :-) Ebéd elõtt kezdte rajzolni és vacsora utánra lett készen.  :) De hogy örültünk neki, meg csodáltuk hosszú perceken át a sötétkék vonalakból álló ábrát!  ;-)

Offline vizor

  • EP fan
  • *
  • Posts: 239
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 3.0.4 Firefox 3.0.4
    • View Profile
    • http://vizor.uw.hu
Re: BASIC
« Reply #116 on: 2008.December.02. 11:29:31 »
Quote from: Ep128
Ebéd elõtt kezdte rajzolni és vacsora utánra lett készen.   :) De hogy örültünk neki, meg csodáltuk hosszú perceken át a sötétkék vonalakból álló ábrát!   ;-)
És utánna milyen jó érzés volt kiadni a :VSAVE parancsot kétnyelvû gépen és elmenteni, hogy a :VLOAD-al egy másodperc alatt megjelenjen  :)
« Last Edit: 2008.December.02. 11:54:14 by vizor »

Offline Zozosoft

  • EP addict
  • *
  • Posts: 13070
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 3.0.4 Firefox 3.0.4
    • View Profile
    • http://enterprise.iko.hu/
Re: BASIC
« Reply #117 on: 2008.December.03. 20:39:05 »
És utánna milyen jó érzés volt kiadni a :VSAVE parancsot kétnyelvû gépen és elmenteni, hogy a :VLOAD-al egy másodperc alatt megjelenjen  :)
Jaja!  :)
Nem véletlen, hogy amikor a második gépünket vettük, az Otthon áruházban a fél raktárat kipakoltattuk, hogy olyan német gépet adjanak, aminek fehér pöttyös a cartridge  :ds_icon_cheesygrin:
Nagyon sokáig nem volt tiszta, a sajtóban sem, hogy a német=kétnyelvû. Mindenesetre abból indultunk ki, hogy pont olyan legyen mint az elsõ gépünk, mert az kétnyelvû.
Húúú de meg izzadtunk anno, amikor elõször beírtuk, hogy :UK, hogy Úristen, hogyan lehet ezt visszacsinálni  :lol:

Offline vizor

  • EP fan
  • *
  • Posts: 239
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 3.0.4 Firefox 3.0.4
    • View Profile
    • http://vizor.uw.hu
Re: BASIC
« Reply #118 on: 2008.December.03. 22:18:09 »
Néha nagy kedvem lenne a mai tudásommal akkori programálmaimat megvalósítani EP-en :)
Csak mostanában eléggé el vagyok foglalva a PIC mikrovezérlõk programozásának tanulásával. Na az az igazi, 35 utasítás, 1 utasítás 1 ciklus  :ds_icon_cheesygrin:

Offline Tuby128

  • EP lover
  • *
  • Posts: 920
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Opera 9.52 Opera 9.52
    • View Profile
Re: BASIC
« Reply #119 on: 2008.December.28. 01:24:46 »
 A múltkor kerestem a neten az ENTERPRESS újság '92-es programozási versenyének gyõztes programját a CYCLOPS-t de sajnos nem találtam. Ha nem emlékezne valaki, akkor megsúgom, hogy "négyzetrácsos táblán kell érméket levenni, azzal a megkötéssel, hogy csak azt veheted le, amelyiken átemeltél egy érmét". Anno apám szépen kimásolta az újságból és felvette kazira, de azok a kazetták már ki tudja merre vannak. Szóval vettem a fáradságot, és begépeltem. Gépelés közben egyszerre tanulmányozni is tudtam (igazából ez volt a fõ cél), és meg kell hogy mondjam, nagyon fondorlatos megoldásokat talált ki a szerzõ.
 Mint ahogy mindig szokott, most is úgy másoltam le, hogy tele volt hibákkal, de hála az ep32 emulátornak, gyorsan kijavítottam õket. És ha már ennyit dolgoztam, gonoltam közszemlére teszem, hogy mások is kipróbálhassák, ha nincs idejük 900-egynéhány sort beptyögtetni. Nekem annak idején a menürendszer kinézete tetszett a legjobban, és ennyi év után is bejön.
« Last Edit: 2009.September.08. 13:24:22 by MrPrise »