Welcome, Guest. Please login or register.


Author Topic: BASIC (Read 209672 times)

Offline geco

  • EP addict
  • *
  • Posts: 5728
  • Country: hu
  • OS:
  • Linux Linux
  • Browser:
  • Firefox 52.0 Firefox 52.0
    • View Profile
Re: BASIC
« Reply #1215 on: 2017.October.15. 12:01:06 »
BASIC-ben ami a program olvashatóságát javítja (szóközök, megjegyzések, utasítások külön sorokba írása, stb.), az általában lassítja is és a méretét növeli. :)
Áhá, ezt nem tudtam, úgy emlékeztem a rövidítéseket sem oldják fel (mint pl a P + shift O), de leteszteltem, az megtörténik.

Offline Lacika

  • EP addict
  • *
  • Posts: 2946
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Firefox 56.0 Firefox 56.0
    • View Profile
    • http://www.ep128.hu
Re: BASIC
« Reply #1216 on: 2017.October.15. 12:09:59 »
BASIC-ben ami a program olvashatóságát javítja (szóközök, megjegyzések, utasítások külön sorokba írása, stb.), az általában lassítja is és a méretét növeli. :)

Az a vicc, hogy Ep-n gyorsabban fut a program! A Plus4-es RENUMBER pedig valószínűleg a világ leglassabb átsorszámozása.

Offline geco

  • EP addict
  • *
  • Posts: 5728
  • Country: hu
  • OS:
  • Linux Linux
  • Browser:
  • Firefox 52.0 Firefox 52.0
    • View Profile
Re: BASIC
« Reply #1217 on: 2017.October.15. 12:21:59 »
Az a vicc, hogy Ep-n gyorsabban fut a program! A Plus4-es RENUMBER pedig valószínűleg a világ leglassabb átsorszámozása.
Hm, ez érdekes, úgy emlékszem a C+4 basic elég gyors.

Offline Lacika

  • EP addict
  • *
  • Posts: 2946
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Firefox 56.0 Firefox 56.0
    • View Profile
    • http://www.ep128.hu
Re: BASIC
« Reply #1218 on: 2017.October.15. 18:25:04 »
"Imádom" ezt a Microsoft BASIC-nek csúfolt gájnyolást...
Erre varjatok gombot:

Code: [Select]
700 for k=1 to 9
702 if o$(k)<>o$ then next:print"drop what??":goto 180
710 if o(k)>0 then print"You dont have that item!":goto 180
720 ml=ml-1:o(k)=l:print"Okay,it's done!":goto 180
730 for k=1 to 9:if o$(k)<>o$ then next:print"Get what??":goto 180
740 if o(k)=-1 then print"You already have it!":goto 180

Valaki ezt nekem lefordítaná "magyarra"? A 702., 730. sorban a next utáni rész mikor fut le?

Offline Zozosoft

  • EP addict
  • *
  • Posts: 13718
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 56.0 Firefox 56.0
    • View Profile
    • http://enterprise.iko.hu/
Re: BASIC
« Reply #1219 on: 2017.October.15. 18:32:07 »
Én úgy tippelem akkor, ha az o$ hossza nem 1-9.

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:
  • Chrome 61.0.3163.100 Chrome 61.0.3163.100
    • View Profile
    • Honlapom
Re: BASIC
« Reply #1220 on: 2017.October.15. 18:33:02 »
then next :D

haha ez vicces, bár belegondolva, gépi kódban úgyis ez lesz/lehet belőle XD
Vigyázat! Szektás vagyok! :)

Offline IstvanV

  • EP addict
  • *
  • Posts: 4825
  • OS:
  • Linux Linux
  • Browser:
  • Firefox 52.0 Firefox 52.0
    • View Profile
Re: BASIC
« Reply #1221 on: 2017.October.15. 18:33:21 »
Ha ez is Commodore BASIC, akkor a legegyszerűbb kipróbálni:
19141-0

19143-1
« Last Edit: 2017.October.15. 19:05:30 by IstvanV »

Offline Lacika

  • EP addict
  • *
  • Posts: 2946
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Firefox 56.0 Firefox 56.0
    • View Profile
    • http://www.ep128.hu
Re: BASIC
« Reply #1222 on: 2017.October.15. 18:58:00 »
Máshol nem tartozik hozzá NEXT
Én így alakítottam át:

Code: [Select]
700 for k=1 to 9
702 if o$(k)<>o$ then 722
710 if o(k)>0 then print"You dont have that item!":goto 180
720 ml=ml-1:o(k)=l:print"Okay,it's done!":goto 180
722 next
724 print"Drop what??":goto 180

Az "igazi  érdekességek" a GET és a BUY ciklusban vannak. A két ciklus között GOTO-zik ezzerrel össze-vissza, mint atom... Hogy nekem mekkora szerencsém van, hogy anno Ep-t kaptunk öcsémmel... :smt029

Offline Povi

  • EP addict
  • *
  • Posts: 1965
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Chrome 61.0.3163.100 Chrome 61.0.3163.100
    • View Profile
    • http://povi.fw.hu
Re: BASIC
« Reply #1223 on: 2017.October.16. 13:50:08 »
Máshol nem tartozik hozzá NEXT
A 8K-s Altair BASIC-ben szerintem lefutna konvertálás nélkül.
*** Speicherplatz zu klein

Offline IstvanV

  • EP addict
  • *
  • Posts: 4825
  • OS:
  • Linux Linux
  • Browser:
  • Firefox 52.0 Firefox 52.0
    • View Profile
Re: BASIC
« Reply #1224 on: 2017.October.16. 14:41:31 »
Az "igazi  érdekességek" a GET és a BUY ciklusban vannak. A két ciklus között GOTO-zik ezzerrel össze-vissza, mint atom... Hogy nekem mekkora szerencsém van, hogy anno Ep-t kaptunk öcsémmel... :smt029

Ez egyébként ugyanabból a sorozatból egy újabb játék lesz? A kód hasonlónak tűnik, de nem találom a Mansion-ben.

Offline Lacika

  • EP addict
  • *
  • Posts: 2946
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Firefox 56.0 Firefox 56.0
    • View Profile
    • http://www.ep128.hu
Re: BASIC
« Reply #1225 on: 2017.October.16. 18:11:18 »
Ugyanaz a sorozat: Castle Dracula (Adventure 5). Már, ha kiigazodok a GOTO-k, GOSUB-ok, THEN NEXT és hasonló csodák rejtelmein... A 2. 4. részhez nincs "megoldókulcs", azokat nem hiszem, hogy megcsinálom.

Offline Lacika

  • EP addict
  • *
  • Posts: 2946
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Firefox 56.0 Firefox 56.0
    • View Profile
    • http://www.ep128.hu
Re: BASIC
« Reply #1226 on: 2017.October.16. 22:58:20 »
Szerintem elkészült.

Offline szipucsu

  • EP addict
  • *
  • Posts: 8583
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Chrome 61.0.3163.100 Chrome 61.0.3163.100
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: BASIC
« Reply #1227 on: 2017.October.16. 23:52:56 »
Castle Dracula (Adventure 5)
Úgy látszik, idén a Commodore játékok átírásának az éve van (vö. Skramble, Exorcist). Z80-as Spectrum, CPC program már nem kihívás. Hiába, egyre rutinosabb a csapat! :D
100 SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
110 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
120 SOUND PITCH 25,SYNC 2
Videos

Offline Lacika

  • EP addict
  • *
  • Posts: 2946
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Firefox 56.0 Firefox 56.0
    • View Profile
    • http://www.ep128.hu
Re: BASIC
« Reply #1228 on: 2017.October.23. 16:06:40 »
Itt egy teszt verzió az Adventure 2-ból.
Csak nem nagyon lehet tesztelni "megoldókulcs" nélkül... Kinek van hozzá affinitása?
Kétféle hiba lehet még elvileg benne: nem inicializált változók, illetve - bár ebből már nem sok lehet - olyan változónevek, amelyek azonosak tömbváltozók neveivel.
A .prg a Plus4-es verzió összehasonlítás végett.
« Last Edit: 2017.October.23. 17:47:49 by Lacika »

Offline Lacika

  • EP addict
  • *
  • Posts: 2946
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Firefox 56.0 Firefox 56.0
    • View Profile
    • http://www.ep128.hu
Re: BASIC
« Reply #1229 on: 2017.October.24. 16:59:35 »
Úgy tűnik nem nagy az érdeklődés...
Amire eddig rájöttem:
N, N, GET KEYS, S, S, S, U, GET GLASSES, D, E, GET STAFF, W, S, E, E, GET BAGEL, W, W, N, EXAMINE WALL, DROP STAFF, DROP BAGEL, HELP, PRAY, S, E, E, S, WEAR GLASSES, E, EXAM TABLE, PUSH TABLE, D, REMOVE GLASSES, EXAM DOOR, OPEN DOOR, W, S, W, W, GET BOOK, N, GET RING, EXAMINE RING, WEAR RING, S

Csak innen nem tudok kikeveredni, valami kimarad.