Welcome, Guest. Please login or register.


Author Topic: Turbo Pascal 3 (Read 11342 times)

Offline Lacika

  • EP addict
  • *
  • Posts: 2928
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 22.0 Firefox 22.0
    • View Profile
    • http://www.ep128.hu
Turbo Pascal 3
« on: 2013.July.27. 15:17:38 »
Topicnyitó video.

Offline Lacika

  • EP addict
  • *
  • Posts: 2928
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 22.0 Firefox 22.0
    • View Profile
    • http://www.ep128.hu
Re: Turbo Pascal 3
« Reply #1 on: 2013.July.27. 15:25:13 »
Mostanában elkezdtem felfrissíteni gimis emlékeimet. Különös tekintettel a grafikára (PC-n az teljesen másképp működött).
A letölthető csomagba bekerült egy kibővített GRAFCS.TPU (ez volt a három alternatíva közül a legszimpatikusabb), ez már majdnem teljes értékű (csak a SET CHARACTER hiányzik belőle).

Offline Lacika

  • EP addict
  • *
  • Posts: 2928
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 22.0 Firefox 22.0
    • View Profile
    • http://www.ep128.hu
Re: Turbo Pascal 3
« Reply #2 on: 2013.July.27. 15:31:41 »
Az oldalra kikerült - a rend kedvéért - Turbo Pascal 1 és 2 is. Mindegyik verzió rendesen be van állítva. A lowvideo és highvideo is működik. Anno színtelen volt a TP, pedig csak be kellett azt is állítani a setup-ban. Valószínűleg a GmbH azért nem állította be anno, mert míg CP/M-ben normál és fényes szín van, addig IS-DOS-ban zöld és piros. Normál esetben a szövegszerkesztőben a piros forráskód elég vadító lenne, ezért inkább nem kapcsolták be a színeket.
Most úgy van beállítva, hogy a lowvideo a piros a normvideo a zöld szín.
A TP-s csomagba példaprogramok is kerültek, és itt és itt is vannak példaprogramok. (Van Pascal-os prímszámteszt - ez már elkészült BASIC-ben Forth-ban is).
Az ismertető is kiegészült, többek között a grafikai.tpu rutinjainak ismertetésével.
« Last Edit: 2013.July.27. 15:36:26 by Lacika »

Offline Lacika

  • EP addict
  • *
  • Posts: 2928
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 22.0 Firefox 22.0
    • View Profile
    • http://www.ep128.hu
Re: Turbo Pascal 3
« Reply #3 on: 2013.July.27. 15:34:09 »
A grapfcs.tpu escape szekvenciákat használ, ez alapján egy "hangos" tpu-t is össze elehetne eszkábálni, aki ért hozzá... Gondolom hangcsatorna nyitva van, IS-DOS-ból, ha van click, meg bell (aztán lehet, hogy tévedek?)

Offline Lacika

  • EP addict
  • *
  • Posts: 2928
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 22.0 Firefox 22.0
    • View Profile
    • http://www.ep128.hu
Re: Turbo Pascal 3
« Reply #4 on: 2013.July.27. 15:38:29 »
Érdemes összehasonlítani a vezerek.bas és vezérek.pas vagy a prim.bas és prim.pas sebességét. Nagy potenciál maradt a Turbo Pascal-ban anno, az Ep tökéletes pkatform lett volna hozzá.

Online szipucsu

  • EP addict
  • *
  • Posts: 8067
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 22.0 Firefox 22.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Turbo Pascal 3
« Reply #5 on: 2013.July.27. 17:07:42 »
Quote from: Lacika
Topicnyitó video.
A témához nem nagyon értek, de nagyon kellett már ilyen videó, ami bemutatja az IS-DOS-t és egyebeket.
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 endi

  • EP addict
  • *
  • Posts: 7305
  • Country: hu
  • grafikus, játékfejlesztõ, programozás, scifi, tudományok, vallás
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Opera 9.80 Opera 9.80
    • View Profile
    • Honlapom
Re: Turbo Pascal 3
« Reply #6 on: 2013.July.27. 18:15:30 »
ez jó, bár nem a legjobb példa, mert itt a vonalhúzogatás, fillezésés meg az exos rutinok hívogatása viszi az időt

valami sprite kirakás vagy ilyesmi teszt kéne, de abban meg szerintem az asmmal nem tudja felvenni a versenyt
Vigyázat! Szektás vagyok! :)

Offline Lacika

  • EP addict
  • *
  • Posts: 2928
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 22.0 Firefox 22.0
    • View Profile
    • http://www.ep128.hu
Re: Turbo Pascal 3
« Reply #7 on: 2013.July.27. 21:00:13 »
Quote from: endi
ez jó, bár nem a legjobb példa, mert itt a vonalhúzogatás, fillezésés meg az exos rutinok hívogatása viszi az időt
Nem a sebességet akartam bemutatni, hanem valami egyszerű, de látványos algoritmust, amit nem strukturált nyelvben büntetés megvalósítani. Amúgy az Ep grafikai rutinjait is érdemes bemutatni, mert nagyon gyorsak a többi 8 bites géphez képest.
A sebességet esetleg a prímszámteszt vagy a 8 vezér feladványt megoldó programmal lehetne bemutatni.
« Last Edit: 2013.July.30. 20:33:46 by Lacika »

Offline Lacika

  • EP addict
  • *
  • Posts: 2928
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 22.0 Firefox 22.0
    • View Profile
    • http://www.ep128.hu
Re: Turbo Pascal 3
« Reply #8 on: 2013.July.27. 23:13:51 »
Újabb összehasonlító video.

Offline endi

  • EP addict
  • *
  • Posts: 7305
  • Country: hu
  • grafikus, játékfejlesztõ, programozás, scifi, tudományok, vallás
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Opera 9.80 Opera 9.80
    • View Profile
    • Honlapom
Re: Turbo Pascal 3
« Reply #9 on: 2013.July.27. 23:40:47 »
Emlékszem annak idején a z80 és EP basic tudásommal 2 nap alatt áttértem pascalra pc-n. Azaz 2 nap után már folyékonyan írtam a játékaimat pc-re. :)

Vajon hogy alakult volna ha már EP-n pascalban programozok?
Vigyázat! Szektás vagyok! :)

Online szipucsu

  • EP addict
  • *
  • Posts: 8067
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 22.0 Firefox 22.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Turbo Pascal 3
« Reply #10 on: 2013.July.28. 11:52:34 »
Quote from: endi
Vajon hogy alakult volna ha már EP-n pascalban programozok?
Spóroltál volna 2 napot! :D
Amúgy jók ezek a videók!
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

Online szipucsu

  • EP addict
  • *
  • Posts: 8067
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 22.0 Firefox 22.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Turbo Pascal 3
« Reply #11 on: 2013.July.28. 12:01:22 »
Quote from: Lacika
Újabb összehasonlító video.
Látom, a Star Sabre-t is feltetted. Hogy az milyen nehéz játék... és milyen jó a grafikája és a zenéje! Ez most OFF volt.
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 Lacika

  • EP addict
  • *
  • Posts: 2928
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 22.0 Firefox 22.0
    • View Profile
    • http://www.ep128.hu
Re: Turbo Pascal 3
« Reply #12 on: 2013.July.28. 18:36:47 »
Quote from: endi
Emlékszem annak idején a z80 és EP basic tudásommal 2 nap alatt áttértem pascalra pc-n. Azaz 2 nap után már folyékonyan írtam a játékaimat pc-re. :)
Tényleg, valakinek nincsenek meg a régi Pascal-os programjai (vagy akármilyen Pacal-program)?

Offline endi

  • EP addict
  • *
  • Posts: 7305
  • Country: hu
  • grafikus, játékfejlesztõ, programozás, scifi, tudományok, vallás
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Opera 9.80 Opera 9.80
    • View Profile
    • Honlapom
Re: Turbo Pascal 3
« Reply #13 on: 2013.July.28. 18:41:54 »
egy elég komoly játékom forrása megvan, csak azt képtelenség lenne ep-re átírni
itt egy videó belőle: https://vimeo.com/21230836
Vigyázat! Szektás vagyok! :)

Offline endi

  • EP addict
  • *
  • Posts: 7305
  • Country: hu
  • grafikus, játékfejlesztõ, programozás, scifi, tudományok, vallás
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Opera 9.80 Opera 9.80
    • View Profile
    • Honlapom
Re: Turbo Pascal 3
« Reply #14 on: 2013.July.28. 19:28:34 »
rákerestem, talán valamelyik átírható ep-re

http://www.wieringsoftware.nl/mario/

http://www.gladir.com/CODER/TPASCAL7/tetris.htm

freepascal, ami elvileg tp kompatibilis
http://wiki.freepascal.org/Castle_Game_Engine
Vigyázat! Szektás vagyok! :)