Welcome, Guest. Please login or register.


Author Topic: BASIC (Read 194938 times)

Offline Ferro73

  • EP lover
  • *
  • Posts: 765
  • Country: hu
  • OS:
  • Linux (Ubuntu) Linux (Ubuntu)
  • Browser:
  • Firefox 68.0 Firefox 68.0
    • View Profile
Re: BASIC
« Reply #1365 on: 2019.July.18. 15:05:39 »
Javítottam még.
A nevet középre igazítja.
És van valami kurzor féleség.
Majd ha nem kell más bele akkor megy csak a hasznos progikhoz.
Véleményeket, javaslatokat várom.

Offline Ferro73

  • EP lover
  • *
  • Posts: 765
  • Country: hu
  • OS:
  • Linux (Ubuntu) Linux (Ubuntu)
  • Browser:
  • Firefox 68.0 Firefox 68.0
    • View Profile
Re: BASIC
« Reply #1366 on: 2019.July.27. 16:14:00 »
BASIC-ben a "PRESS TO FIRE" majd a IF JOY(0,1,2) = 16 THEN ...
Helyet egy kicsit gyorsabb gépi kód USR(PRJOYS,0).
Még BASICben is gyors de ZZZIPben pláne.
Ha érdemes akkor bekerülhet a hasznos BASIC progik topikba.

Vagy hasznos ZZZIP programok BASIC-ben?

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 75.0.3770.100 Chrome 75.0.3770.100
    • View Profile
    • Honlapom
Re: BASIC
« Reply #1367 on: 2019.July.27. 16:42:53 »
Ha érdemes akkor bekerülhet a hasznos BASIC progik topikba.
Vagy hasznos ZZZIP programok BASIC-ben?

mindenképpen kerüljön be!
és ez nem csak zzzippben jó, hanem akkor is ha le van tiltva a keyboard csatorna vagy a megszakítás, gyorsítási céllal.
szóval jók az ilyen kis progik!
Vigyázat! Szektás vagyok! :)

Offline Ferro73

  • EP lover
  • *
  • Posts: 765
  • Country: hu
  • OS:
  • Linux (Ubuntu) Linux (Ubuntu)
  • Browser:
  • Firefox 68.0 Firefox 68.0
    • View Profile
Re: BASIC
« Reply #1368 on: 2019.July.27. 17:47:29 »
Most már függetlenül vizsgálhatjuk billentyűt.

Az EXOS megkerülésével.

Offline Tuby128

  • EP lover
  • *
  • Posts: 960
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Chrome 74.0.3729.108 Chrome 74.0.3729.108
    • View Profile
Re: BASIC
« Reply #1369 on: 2019.August.05. 15:06:19 »
Lányommal ma játszottunk az Enterprise-on. Csináltam neki kis programocskát, amiben jól kiélte nyomkodási kedvét.
A gond az, hogy ha több SOUND parancs várakozik, akkor várni kell amíg véget nem ér. Erre volt valami flush parancs, amivel a hangpuffert lehet üríteni. Vajon ez az amit keresek a célomra?
És ha igen, akkor mi a szintaxisa?

Offline Zozosoft

  • EP addict
  • *
  • Posts: 13657
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Firefox 68.0 Firefox 68.0
    • View Profile
    • http://enterprise.iko.hu/
Re: BASIC
« Reply #1370 on: 2019.August.05. 15:11:17 »
És ha igen, akkor mi a szintaxisa?
CLEAR SOUND

Offline szipucsu

  • EP addict
  • *
  • Posts: 8401
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Chrome 75.0.3770.142 Chrome 75.0.3770.142
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: BASIC
« Reply #1371 on: 2019.August.05. 16:13:14 »
CLEAR SOUND
Vagy az is jó, ha a SOUND paraméterébe beírod, hogy INTERRUPT, és megszakítja az előző hangot. Pl.:

SOUND PITCH SQR(87),DURATION 10,INTERRUPT

De ez mindig csak az adott csatornán szakítja meg a hangot.
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 Tuby128

  • EP lover
  • *
  • Posts: 960
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Chrome 74.0.3729.108 Chrome 74.0.3729.108
    • View Profile
Re: BASIC
« Reply #1372 on: 2019.August.05. 16:23:49 »
A Flush parancsot mikor használjuk? Ha a "TAPE:" csatorna pufferét nem írtuk még tele, de szeretnénk kiíratni a fájl végét a kazettára?

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 75.0.3770.142 Chrome 75.0.3770.142
    • View Profile
    • Honlapom
Re: BASIC
« Reply #1373 on: 2019.August.24. 19:59:54 »
hú ez most kicsit meglepett: egy sorban ha gosub van, utána kettősponttal bármit írhatunk, még rem vagy ! se kell, nem veszi figyelebe, hibát se ír.
ez gagyi :)

pl.
10 gosub 100: BLABLABLA
Vigyázat! Szektás vagyok! :)

Offline Lacika

  • EP addict
  • *
  • Posts: 2940
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Firefox 68.0 Firefox 68.0
    • View Profile
    • http://www.ep128.hu
Re: BASIC
« Reply #1374 on: 2019.August.25. 12:52:42 »
Zozo, menjünk le egy kicsit dedóba, elakadtam az első lépésnél... :oops:

Beírom ASMON-ba próbaképp (szorzunk 256-tal):
Code: [Select]
M1  LD H,L
    LD L,00
    RET

Assemble options:
Memory assemly NO
Object file name: P.BAS
EXOS module header YES
EXOS module type: 4

Ha lefordítom, a P.BAS-t nem tudom betölteni. :smt017
« Last Edit: 2019.August.25. 18:16:31 by Lacika »

Offline Ferro73

  • EP lover
  • *
  • Posts: 765
  • Country: hu
  • OS:
  • Linux (Ubuntu) Linux (Ubuntu)
  • Browser:
  • Firefox 68.0 Firefox 68.0
    • View Profile
Re: BASIC
« Reply #1375 on: 2019.August.25. 13:52:11 »
Na erre én is kíváncsi vagyok.
Én
Code: [Select]
   org 1000h
M1  LD H,L
    LD L,00
    RET
Assemble options:
Memeory assemly Yes
Object file name:
EXOS module header
EXOS module type:
PASS2.... YES

majd M 1000
ki jegyzetelem 00,01,02

Aztán basic ALOCATE CODE szorz=HEX$("00,01,02")

PRINT usr(szorz,4)
 1024

valami ilyesmit csinálok én
« Last Edit: 2019.August.25. 13:58:09 by Ferro73 »

Offline Ferro73

  • EP lover
  • *
  • Posts: 765
  • Country: hu
  • OS:
  • Linux (Ubuntu) Linux (Ubuntu)
  • Browser:
  • Firefox 68.0 Firefox 68.0
    • View Profile
Re: BASIC
« Reply #1376 on: 2019.August.25. 18:28:07 »
Nem lehet máshogy kinyerni a video: buffer kezdő címét.
Csak akkor lehet ha DISPLAY-t kiadjuk?
Pedig szerintem az EXOS már az OPEN parancsra lefoglalja azt a mennyiségű (X*Y) bájtót.

Offline Zozosoft

  • EP addict
  • *
  • Posts: 13657
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 68.0 Firefox 68.0
    • View Profile
    • http://enterprise.iko.hu/
Re: BASIC
« Reply #1377 on: 2019.August.25. 18:59:28 »
Zozo, menjünk le egy kicsit dedóba, elakadtam az első lépésnél... :oops:
Nekem működik.
23853-023855-123857-2

De van már EP-s SJASM-ünk, az is tud már BASIC-et:
Code: [Select]
HEADER 4
ld h,l
ld l,0
ret
end


Offline Zozosoft

  • EP addict
  • *
  • Posts: 13657
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 68.0 Firefox 68.0
    • View Profile
    • http://enterprise.iko.hu/
Re: BASIC
« Reply #1378 on: 2019.August.25. 19:05:46 »
Nem lehet máshogy kinyerni a video: buffer kezdő címét.
EXOS 11, 3-as alfunkció.
De ti pókolni szerettek :twisted:

Offline Ferro73

  • EP lover
  • *
  • Posts: 765
  • Country: hu
  • OS:
  • Linux (Ubuntu) Linux (Ubuntu)
  • Browser:
  • Firefox 68.0 Firefox 68.0
    • View Profile
Re: BASIC
« Reply #1379 on: 2019.August.25. 19:22:58 »
Igen de a scrollnál sokat kellet keresgélni  mire rá leltem a pontos címre.
Mivel nem a puffer elejéről indul ezért a PRINT AT 15... DISPLAY AT 1 FROM 15 TO ....
nem azt eredményezi.
Meg így rá érünk később bedobni képet,


Ugyan így kilehet kérni pl ATTRIBUTUM csatorna PIXEL cím és ATTRIB címet is ez kettő különböző cím lenne szerintem.
Érhető a kérdés?
Köszönöm.