Welcome, Guest. Please login or register.


Author Topic: Mit lehetne kihozni az EP Basic-bõl? (Read 14497 times)

Offline szipucsu

  • EP addict
  • *
  • Posts: 8068
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 18.0 Firefox 18.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Mit lehetne kihozni az EP Basic-bõl?
« Reply #15 on: 2013.January.31. 18:44:19 »
Szerintem a TVC-re írt Létra című basic játék rendkívül látványos és nagyon jól játszható is. Nem tudom, ilyen "dinamikus" játékot láttam-e EP-re basicben.
Kicsit már off, nekem a hamika/Gombócfaló jellegű megvalósítás is nagyon tetszik, és basic-ből nem is nehéz megcsinálni. Nagyon ötletes húzás, hogy mindig csak letörli a kígyó utolsó karakterét, ahogy előre lépked, és azt a látszatot kelti, mintha az egész kígyó menne előre. Bár ezt szinte bármilyen gépen meg lehet csinálni basicben, de akkor is.

A Holdraszállás című EP basic játék is jó kis logikai feladvány és az ötlet is jó.
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 PiotrSoft

  • EP fan
  • *
  • Posts: 230
  • Country: hu
  • Fõhajtást a hõsöknek, könnycseppet az áldozatoknak
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 18.0 Firefox 18.0
    • View Profile
    • nem teljesen rollam szól de mégis rollam szól, ha megnézed megérted
Re: Mit lehetne kihozni az EP Basic-bõl?
« Reply #16 on: 2013.January.31. 19:14:59 »
Hát a kígyó az egy scrollozó rutin.
Igen valóban egyszerű de látványos eredménnyel jár.

Sajna a TVC kimaradt az életemből, ezért nem ismerem a Létra kódját.

Ki kellene találni, hogy csak meglévő ismert programokat " versenyeztessünk ", vagy ugorjunk neki egy új projektnek?

Szerintem ha valaki eddig nem látott BAS-sal rukkol elő az magasabb jóindulattal és "pontszámmal" kezdjen.

Utána nézek a létrának az éjjel. 

Hátha konvertálható a rutin.
Medgyesegyháza s Mezõkovácsháza után, Budapestre vetett a sors.Itt tanultam, dolgoztam mígnem megházasodtam s Budakalászra költöztem.Voltam programozó, jármû-villamossági szerelõ,jelenleg látványtechnikus és tûzoltó, de ami a legfontosabb 3 gyermek apja!

Online Zozosoft

  • EP addict
  • *
  • Posts: 13519
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 18.0 Firefox 18.0
    • View Profile
    • http://enterprise.iko.hu/
Re: Mit lehetne kihozni az EP Basic-bõl?
« Reply #17 on: 2013.January.31. 19:19:07 »
Úgy általában érdekes, hogy TVC-re sokkal több BASIC játék van, pedig a két BASIC elég közeli rokon.
De lehet azért is, mert nem voltak elkényeztetve sok Spectrum játékkal, így inkább többet programoztak :-)

Offline PiotrSoft

  • EP fan
  • *
  • Posts: 230
  • Country: hu
  • Fõhajtást a hõsöknek, könnycseppet az áldozatoknak
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 18.0 Firefox 18.0
    • View Profile
    • nem teljesen rollam szól de mégis rollam szól, ha megnézed megérted
Re: Mit lehetne kihozni az EP Basic-bõl?
« Reply #18 on: 2013.January.31. 19:24:39 »
zozo
van valami tvc emu ami elindul win7 en?
Medgyesegyháza s Mezõkovácsháza után, Budapestre vetett a sors.Itt tanultam, dolgoztam mígnem megházasodtam s Budakalászra költöztem.Voltam programozó, jármû-villamossági szerelõ,jelenleg látványtechnikus és tûzoltó, de ami a legfontosabb 3 gyermek apja!

Online Zozosoft

  • EP addict
  • *
  • Posts: 13519
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 18.0 Firefox 18.0
    • View Profile
    • http://enterprise.iko.hu/
Re: Mit lehetne kihozni az EP Basic-bõl?
« Reply #19 on: 2013.January.31. 20:14:06 »
Quote
van valami tvc emu ami elindul win7 en?
A WinTVC az fut (bár az ep128emu-hoz képest meglehetősen fapados...). BASIC program esetén lehet próbálkozni az EP-s TVC emulátorral is.

Offline szipucsu

  • EP addict
  • *
  • Posts: 8068
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 18.0 Firefox 18.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Mit lehetne kihozni az EP Basic-bõl?
« Reply #20 on: 2013.January.31. 22:27:07 »
A Létra benne van a TVC programcsokorban, és működik a szoftveres TVC emulátorral, csak kilistázni nem lehet, de az ilyen apróságokat pl. Zozo pillanatokon belül le szokta küzdeni. A Bányász is érdekes játék, kicsit vicces is.
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 PiotrSoft

  • EP fan
  • *
  • Posts: 230
  • Country: hu
  • Fõhajtást a hõsöknek, könnycseppet az áldozatoknak
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 18.0 Firefox 18.0
    • View Profile
    • nem teljesen rollam szól de mégis rollam szól, ha megnézed megérted
Re: Mit lehetne kihozni az EP Basic-bõl?
« Reply #21 on: 2013.January.31. 22:46:12 »
igen
sajnos tényleg nem lehet kilistázni.

De szerintem nem megoldhatatlan az Ep-n is adaptálni.

Valahogy nem jutok dűlőre magammal, hogy próbáljam visszaidézni az IS BASIC ot s írjam meg.
Vagy várjam míg más megteszi. 

Első mellett az az érv, hogy lenne egy saját program amit én írtam Ep-re :)
A másik érv ellene szól, minek nekem egy saját program úgy se használná senki, elkéstem 20 évet vele. :)

Zozo! Ki tudod halászni a programlistát?
Medgyesegyháza s Mezõkovácsháza után, Budapestre vetett a sors.Itt tanultam, dolgoztam mígnem megházasodtam s Budakalászra költöztem.Voltam programozó, jármû-villamossági szerelõ,jelenleg látványtechnikus és tûzoltó, de ami a legfontosabb 3 gyermek apja!

Offline endi

  • EP addict
  • *
  • Posts: 7305
  • Country: hu
  • grafikus, játékfejlesztõ, programozás, scifi, tudományok, vallás
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Opera 9.80 Opera 9.80
    • View Profile
    • Honlapom
Re: Mit lehetne kihozni az EP Basic-bõl?
« Reply #22 on: 2013.January.31. 23:50:57 »
20 éve se használta volna senki, mindenki átiratokkal játszott...
Vigyázat! Szektás vagyok! :)

Online Zozosoft

  • EP addict
  • *
  • Posts: 13519
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 18.0 Firefox 18.0
    • View Profile
    • http://enterprise.iko.hu/
Re: Mit lehetne kihozni az EP Basic-bõl?
« Reply #23 on: 2013.February.01. 09:12:03 »
Quote from: PiotrSoft
minek nekem egy saját program úgy se használná senki, elkéstem 20 évet vele. :)
Ahogy mondani szoktam, ez az egész retró gépezés alapvetően saját magunk szórakoztatásáról szól. Van aki kertészkedik, van aki hegyet mászik, van aki keresztrejtvényt fejt, és van aki régi 8 bites gépeket birizgál. Aztán ha a mi hobbink eredményének hasznát veszi másik 1-5-10-20-... ember, az csak plusz öröm!
A programozás részt lehet a hegymászáshoz hasonlítani, ahogy a hegymászó kitűzi maga elé a célt, hogy "azt az xy hegyet én meg tudom mászni", itt is kitűzheted a célt, hogy pl. "én azt az xy játékot/feladatot meg tudom írni IS-BASIC-ben!"

Offline Lacika

  • EP addict
  • *
  • Posts: 2929
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 6.0.2 Firefox 6.0.2
    • View Profile
    • http://www.ep128.hu
Re: Mit lehetne kihozni az EP Basic-bõl?
« Reply #24 on: 2013.February.01. 09:35:26 »
Ez így van! (A hegymászásos példa is tökéletes!)
Tulajdonképpen én is csak agytorna végett kezdtem el ilyen Limonádé meg Kvíz programot írogatni, fraktálokat rajzolgatni meg Rosetta Code-os feladatokat megcsinálni. Az azért öröm volt, hogy hamar visszajöttek a régi emlékek. Betompulás ellen tökéletes, arra nem számítok, hogy "tömeges igény" lenne ezekre a a programokra...

Offline PiotrSoft

  • EP fan
  • *
  • Posts: 230
  • Country: hu
  • Fõhajtást a hõsöknek, könnycseppet az áldozatoknak
  • OS:
  • Linux Linux
  • Browser:
  • Chrome 18.0.1025.166 Chrome 18.0.1025.166
    • View Profile
    • nem teljesen rollam szól de mégis rollam szól, ha megnézed megérted
Re: Mit lehetne kihozni az EP Basic-bõl?
« Reply #25 on: 2013.February.01. 11:07:14 »
Zozo! ez jó volt.
Már csak egy buktája van,hogy hegyet legalább olyan jól mászok mint ó-héberről újlatinra fordítok. 

Viccet félretéve. 

Hogy tudom az emulátorból előcsalogatni a programot?

Az esélytelenek nyugalmával kezdek neki.
Én leszek a legmegdöbbentebb ha bármi is sikerűlhet ebből.
Medgyesegyháza s Mezõkovácsháza után, Budapestre vetett a sors.Itt tanultam, dolgoztam mígnem megházasodtam s Budakalászra költöztem.Voltam programozó, jármû-villamossági szerelõ,jelenleg látványtechnikus és tûzoltó, de ami a legfontosabb 3 gyermek apja!

Offline szipucsu

  • EP addict
  • *
  • Posts: 8068
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 18.0 Firefox 18.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Mit lehetne kihozni az EP Basic-bõl?
« Reply #26 on: 2013.February.01. 13:20:34 »
Egyszer tuti, hogy kilistáztam már ezeket a programokat, láttam a listájukat, de már nem tudom, hogyan. Talán valami TVC-s oldalról töltöttem le akkor a játékokat.
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 Zozosoft

  • EP addict
  • *
  • Posts: 13519
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 18.0 Firefox 18.0
    • View Profile
    • http://enterprise.iko.hu/
Re: Mit lehetne kihozni az EP Basic-bõl?
« Reply #27 on: 2013.February.01. 13:40:45 »
Elvileg ez a megoldás.
Gyakorlatilag is. A szövegfájl az betölthető IS-BASIC-be, ha a reszlit kitöröljük. Ha hibával leáll, akkor kilistázva látszik meddig ette meg, aztán a következő sort kell javítani.
Aztán lesz mit módosítgatni, pl CLS helyett CLEAR SCREEN, több utasításos sorokat szét szedni külön sorba, stb.
« Last Edit: 2013.February.01. 14:13:38 by Zozosoft »

Offline PiotrSoft

  • EP fan
  • *
  • Posts: 230
  • Country: hu
  • Fõhajtást a hõsöknek, könnycseppet az áldozatoknak
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 18.0 Firefox 18.0
    • View Profile
    • nem teljesen rollam szól de mégis rollam szól, ha megnézed megérted
Re: Mit lehetne kihozni az EP Basic-bõl?
« Reply #28 on: 2013.February.01. 19:13:16 »
:bow: Köszi Zozo!

A lista kinyerve, van  benne poke még meg kell keresni mit akar a VTC-n "pakolni"

Valahogy hosszabb programra vártam.

Most leülök úgy nyolc-tíz sör barátságát élvezni, közben kitalálom, megírjam vagy se.

De lehet nagy fába vágtam a fejszémet.

Valahogy nem az objektum orientált sémát követi. Vajon miért? :)
Code: [Select]
AUTORUN
   1 POKE 2841,255:POKE 2842,127:POKE 5891,255:RUN 10
   8 I=I/2
   9 FOR X=0 TO I:NEXT:RETURN
  10 GRAPHICS4:SETPALETTE65,68,85,20:SETPAPER0:SETBORDER65:GOTO300
  25 PRINTAT1,1,:I=500
  26 FORK=0TOP:GOSUB9:SETPALETTE65,20,68,85:SETBORDER65:GOSUB9
  27 SETPALETTE65,85,20,68:SETBORDER65:GOSUB9
  28 SETPALETTE65,68,85,20:SETBORDER65:NEXT:RETURN
 150 FORZ=V TO0 STEP-4:PLOT,X-3*V,Y+3*V+Z; X,Y+Z; X+3*V,Y+3*V+Z:NEXT:RETURN
 210 FOR Z=0 TO V STEP 4:PLOT,X+9*V,Y+9*V-Z; X+7*V,Y+11*V-Z; X+2*V,Y+11*V-Z; X+Z,Y+9*V; X+Z,Y; X+2*V,Y-2*V+Z; X+7*V,Y-2*V+Z; X+9*V,Y+Z:NEXT
 220 FORK=0 TO 0.41*V STEP4:PLOT,X+9*V,Y+9*V-Z-K; X+7*V-K,Y+11*V-Z; X+2*V+K,Y+11*V-Z; X+Z,Y+9*V-K; X+Z,Y+K; X+2*V+K,Y-2*V+Z; X+7*V-K,Y-2*V+Z; X+9*V,Y+Z+K:NEXT:RETURN
 265 FORZ=0 TO V STEP4:PLOT,X+5*V,Y-Z; X,Y-Z, X+2*V+Z,Y-V; X+2*V+Z,Y-6*V:NEXT:RETURN
 300 CLS
 305 SETINK3:V=60:FOR J=0 TO 12 STEP4:X=360+J:Y=712+  J:GOSUB265:NEXT
 310 SETINK2:X=376:Y=728:GOSUB265:SETINK2:PRINTAT 7,13,"T"
 315 SETINK2:V=64:FOR J=0 TO 12 STEP4:X=519+J:Y=196+  J:GOSUB150:NEXT
 318 X=523:Y=196:PLOT,X,Y; X+3*V+8,Y+3*V+8
 320 SETINK3:X=535:Y=212:GOSUB150:SETINK2:PRINTAT7,15,"V"
 321 B=7:A=16:GOSUB420
 330 SETINK3:X=236:Y=196:V=60:GOSUB210
 331 FORZ=0TO1.41*V STEP4:PLOT,X+9*V,Y+8*V-0.41*V+Z; 252+9*V,228+8*V-0.41*V; X+9*V,Y+9*V
 332 PLOT,X,Y+9*V; 252+Z,228+9*V; X+2*V,Y+11*V
 333 PLOT,X+9*V,Y+Z; 252+9*V,228; X+9*V,Y+1.41*V:NEXT
 337 A$=" ":FORA=0 TO 5:GOSUB365:NEXT
 338 SETINK2:PRINTAT 7,18,"\t9c":GOSUB371
 339 SETINK1:X=252:Y=228:V=60:GOSUB210:SETINK2
 341 A$="C  ":B$=" C ":C$="  C":GOSUB392:P=1:GOSUB25:GOSUB390
 343 GOSUB392:GOSUB390:GOSUB392:GOSUB8:PRINTAT7,19,A$:GOSUB9
 344 SETCHARACTER160,255,255,255,255,255,255,255,255,255,255
 345 PRINTAT7,18,A$:GOSUB9:PRINTAT7,16,"\ta0C ":A$="\t9a":B$="'":C$=A$
 346 GOSUB370:GOSUB365:A$="C":GOSUB370:PRINTAT7,17,F$:GOSUB365
 347 A=15:GOSUB395:A$=F$:GOSUB370:GOSUB365:GOSUB370
 348 GOSUB9:GOSUB365:A=16:GOSUB420:PRINT"\ta0":GOSUB370:GOSUB365:A$="\ta0"
 349 GOSUB370:PRINTAT7,15," ":A=16:GOSUB395:A=17:GOSUB420:GOSUB365:GOSUB370
 350 GOSUB364:A$="\t89":GOSUB370:GOSUB364:A$="'":PRINTAT7,17,A$:GOSUB370
 351 PRINTAT7,16," V":GOSUB364:A$="V":GOSUB370:C$=B$:B$=A$:A$=" T\ta0  ":A=13
 352 GOSUB401:A$="T ":GOSUB400:A$=" ":GOSUB370:A$="   T\ta0":GOSUB400:C$=B$
 353 B$=" ":A$="\ta0":GOSUB370:B$=A$:GOSUB370:POKE2896,2:PRINT#0,AT21,14,"STUDIÓ":SETINK0:SETPAPER2
 354 A$=" ":B$=A$:D$=A$:E$=A$:GOSUB370:A$=STRING$(9,32):A$(5)="T":GOSUB400:B$="novoTrade"
 355 GOSUB25:I=50:FORC=2TO5:A$=A$(2:):GOSUB400:NEXT
 356 FORC=4TO1STEP-1:A$=B$(C:5):GOSUB400:NEXT
 357 FORC=1TO4:A$=" "&A$:GOSUB400:NEXT
 358 FORC=1TO4:A$=STRING$(4-C,32)&B$(:5+C):GOSUB400:NEXT
 362 POKE2896,0:PRINTAT21,1,:SETPAPER0:SETINK0:LOAD"letra1":RUN
 364 E$=F$
 365 F$=E$:E$=D$:D$=C$:C$=B$:B$=A$:RETURN
 370 GOSUB9
 371 PRINTAT8,17,A$:PRINTAT9,17,B$:PRINTAT10,17,C$:PRINTAT11,17,D$:PRINTAT12,17,E$:PRINTAT13,17,F$:RETURN
 390 GOSUB8:PRINTAT7,19,A$:GOSUB9:PRINTAT7,19,B$:GOSUB9:PRINTAT7,19,C$:RETURN
 392 GOSUB8:PRINTAT7,19,B$:RETURN
 395 SETINK1:PRINTAT7,A,"V":SETINK2:RETURN
 400 GOSUB9
 401 PRINTATB,A,A$:RETURN
 410 SETINK3:X=236:Y=196:V=60:GOSUB210
 420 PRINTATB,A,"\t8c";:RETURN
« Last Edit: 2013.February.01. 20:52:56 by Zozosoft, Reason: Program kód code blokkba helyezve »
Medgyesegyháza s Mezõkovácsháza után, Budapestre vetett a sors.Itt tanultam, dolgoztam mígnem megházasodtam s Budakalászra költöztem.Voltam programozó, jármû-villamossági szerelõ,jelenleg látványtechnikus és tûzoltó, de ami a legfontosabb 3 gyermek apja!

Offline vizor

  • EP fan
  • *
  • Posts: 239
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 18.0 Firefox 18.0
    • View Profile
    • http://vizor.uw.hu
Re: Mit lehetne kihozni az EP Basic-bõl?
« Reply #29 on: 2013.February.01. 20:18:46 »
Quote from: PiotrSoft
 Most leülök úgy nyolc-tíz sör barátságát élvezni, közben kitalálom, megírjam vagy se.
8-10 sör után te még tudod használni a gépet? :ds_icon_cheesygrin: