Welcome, Guest. Please login or register.


Author Topic: BASIC (Read 151364 times)

Offline ergoGnomik

  • EP lover
  • *
  • Posts: 687
  • Country: hu
  • Stray cat from Commodore alley
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Firefox 52.0 Firefox 52.0
    • View Profile
Re: BASIC
« Reply #1290 on: 2018.March.14. 09:43:06 »
Csak ezt tudom elképzelni, de ezt honnan veszi...?
A TO fenntartott szót az alábbi BASIC utasítások/parancsok használják a referencia kézikönyv szerint:
  • CAPTURE FROM £csat TO £csat
  • COPY FROM £csat TO £csat
  • DELETE sormeghat TO sormeghat
  • DIM a(1 TO 10),FRED$(9),B(-7899 TO -7890)
  • DISPLAY £csat: AT a FROM b TO c
  • FOR egyszerű változó=kif TO kif STEP kif
  • LIST £csat:sor-meghat TO sor-meghat
  • NUMERIC i,a(10),b(-10 TO 20,2 TO 4)
  • REDIRECT FROM £csat TO £csat
  • RENUMBER sormeghatározás TO sormeghatározás AT kif STEP kif
  • CASE kif TO kif (SELECT)
  • STRING tomb$(4 TO 99)*10
  • TRACE ON TO £csat

A Zzzip-nek talán az lehet a baja, hogy nem írták elég "intelligensre" a szövegértelmezőjét, így ezt a határesetet nem tudja helyesen feloldani. Próbáltad már úgy, hogy lecseréled a változó nevét?

Offline szipucsu

  • EP addict
  • *
  • Posts: 7216
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Chrome 64.0.3282.168 Chrome 64.0.3282.168
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: BASIC
« Reply #1291 on: 2018.March.14. 10:07:47 »
CASE kif TO kif (SELECT)
Jé, a CASE után is állhat TO? Ezt még sose használtam.

Szerintem is az lesz a gond, hogy basic parancsok, szavak nem lehetnek változók. Már csak egy olyan program kellene Lacinak, mely az összes TO változót lecseréli basic programjában valami más, megadott változónévre.

Offline Lacika

  • EP addict
  • *
  • Posts: 2869
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Firefox 59.0 Firefox 59.0
    • View Profile
    • http://www.ep128.hu
Re: BASIC
« Reply #1292 on: 2018.March.14. 21:33:19 »
hát TO az egy utasítás for ciklusban: FOR X=1 TO 5 például

Valóban, a TO-t átnevezve már sikerült lefordítani a programot, igaz más okból kifolyólag nem működik helyesen :(

Offline endi

  • EP addict
  • *
  • Posts: 6633
  • 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:
  • Chrome 65.0.3325.181 Chrome 65.0.3325.181
    • View Profile
    • Honlapom
Re: BASIC
« Reply #1293 on: 2018.April.04. 19:14:17 »
itt a basic, látom a snapshotból nem jöttetek rá hogy ez pont azt csinálja amiről beszéltek, poke-olja az exos karakterkészletet :)
biztos lehet optimalizálni. vagy akár átírni gépi kódra.
A diplomás magyar programozó megcsinált egy pacmant egy év alatt, majd lefikázta a világ legjobb játékait. :D

Offline Ferro73

  • EP lover
  • *
  • Posts: 518
  • Country: hu
  • OS:
  • Linux (Ubuntu) Linux (Ubuntu)
  • Browser:
  • Firefox 59.0 Firefox 59.0
    • View Profile
Re: BASIC
« Reply #1294 on: 2018.April.07. 13:27:27 »
itt a basic, látom a snapshotból nem jöttetek rá hogy ez pont azt csinálja amiről beszéltek, poke-olja az exos karakterkészletet :)
biztos lehet optimalizálni. vagy akár átírni gépi kódra.

Az eredeti kb 76 másodperc

a v2 kb 69 másodperc
a v3 kb 21 másodperc csak BASIC


Online IstvanV

  • EP addict
  • *
  • Posts: 4681
  • OS:
  • Linux Linux
  • Browser:
  • Firefox 58.0 Firefox 58.0
    • View Profile
Re: BASIC
« Reply #1295 on: 2018.April.07. 16:23:20 »
Assembly változat (a CLEAR FONT-ot nem tartalmazza, így többszöri futásnál halmozódik az effektus):
* fontmod.com (0.06 kB - downloaded 46 times.)

Offline Ferro73

  • EP lover
  • *
  • Posts: 518
  • Country: hu
  • OS:
  • Linux (Ubuntu) Linux (Ubuntu)
  • Browser:
  • Firefox 59.0 Firefox 59.0
    • View Profile
Re: BASIC
« Reply #1296 on: 2018.April.07. 16:27:15 »
Az eredeti kb 76 másodperc

a v2 kb 69 másodperc
a v3 kb 21 másodperc csak BASIC

a v4 kb 14 másodperc ennél gyorsabbra én nem tudom csak BASIC-ben.

Illeszd be valahogy ezt:
Code: [Select]
  ld c,4
  ld hl,0b480h
  ld de,0128
ujsor  add hl,de
  ld b,128
kov  ld a,(hl)
  rrca
  ld (hl),a
  inc hl
  djnz kov
  dec c
  jr nz,ujsor
  ret

Online IstvanV

  • EP addict
  • *
  • Posts: 4681
  • OS:
  • Linux Linux
  • Browser:
  • Firefox 58.0 Firefox 58.0
    • View Profile
Re: BASIC
« Reply #1297 on: 2018.April.07. 18:45:59 »
* fontmod5.bas (0.3 kB. 24x1 - viewed 46 times.)

Offline endi

  • EP addict
  • *
  • Posts: 6633
  • 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:
  • Chrome 67.0.3396.87 Chrome 67.0.3396.87
    • View Profile
    • Honlapom
Re: BASIC
« Reply #1298 on: 2018.August.20. 12:11:32 »
van ez a tök jó játék: https://youtu.be/MxsYDzts1Dg
illetve ennek 2d verziója: https://youtu.be/J4M40JoZELM

na most 2d-ben, basic-ben is meg lehetne ezt csinálni, lpt margó állítással, poke-olással, tök gyors lenne zippelve, jó játékélményt adna.
el is kezdtem. :)
a 3d (izometrikus) verzió is lehetséges lenne gépi kódban talán.
ez a játék is marha jó példa arra amúgy, hogy még a mai napig ki lehet teljesen egyszerű és alapvető jó ötleteket találni, amik még a régi gépeken is megvalósíthatóak! nagyon bírom az ilyeneket.
A diplomás magyar programozó megcsinált egy pacmant egy év alatt, majd lefikázta a világ legjobb játékait. :D

Offline Lacika

  • EP addict
  • *
  • Posts: 2869
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Firefox 62.0 Firefox 62.0
    • View Profile
    • http://www.ep128.hu
Re: BASIC
« Reply #1299 on: 2018.October.06. 11:45:18 »
Elkezdtem felrakni IS-BASIC példákat a Rosettacode-ra.