Welcome, Guest. Please login or register.


Author Topic: IS-BASIC fejlesztők számára programok, eszközök, help (Read 21237 times)

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 10074
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Intelligens on-line renumber. A sorszámok nélküli soroknak is ad sorszámot. TVC-n összezsúfolt, sok utasítást tartalmazó sorok szétszedésére ideális.

Wiki: IS-BASIC trükkök (billentyűkódok, joy értékek, stb.)

Megfelelő videolap beállítása:
SET VIDEO COLOUR

A színüzemmódot (színmód, VIDEO COLOUR) állítja be az ezután megnyitandó videolapokra. A lapok megnyitásakor a nullás módot választja ki alapértelmezésként a gép. Nagyfelbontású grafikus lapoknál (HIRES) a vízszintes irányban egymás mellet levő képpontok és a használható színek száma a következő:
Code: [Select]
set video colour 0 - 2 szín, 640 képpont;
set video colour 1 - 4 szín, 320 képpont;
set video colour 2 - 16 szín, 160 képpont;
set video colour 3 - 256 szín, 80 képpont.
Kisfelbontású lapokon (LORES) a színek száma nem változik, csak a képpontok száma fele akkora.

SET VIDEO MODE
Code: [Select]
mód 0 - 40 oszlopos szöveglap (2 színpár)
mód 1 - nagyfelbontású grafikus lap
mód 2 - 80 oszlopos szöveglap (4 színpár)
mód 5 - kisfelbontású grafikus lap
mód 15 - attributum típusú grafikus lap

ENTERPRISE felirat lentre:
Code: [Select]
4350 DEF EPI
 4360   SET 22,5:SET 23,1:SET 24,20:SET 25,1
 4370   OPEN #98:"video:"
 4380   SET 22,1:SET 23,2:SET 24,20:SET 25,1
 4390   OPEN #99:"video:"
 4400   SET #98:PALETTE 0,7,63,255
 4410   SET #98:INK 1:PRINT #98,AT 1,1:"EN      SE"
 4420   SET #98:INK 2:PRINT #98,AT 1,3:"TE  RI"
 4430   SET #98:INK 3:PRINT #98,AT 1,5:"RP"
 4440   SET #99:PALETTE 0,73,217,219,162,180,197
 4450   FOR B=0 TO 5
 4460     SET #99:INK B+1
 4470     FOR A=0 TO 36 STEP 8
 4480       IF A>26 THEN LET A=A-4
 4490       PLOT #99:4+B*108,A;88+B*108,A
 4500       IF B=5 THEN PLOT #99:636,A
 4510     NEXT
 4520   NEXT
 4530   DISPLAY #98:AT 26 FROM 1 TO 1
 4540   DISPLAY #99:AT 27 FROM 1 TO 1
 4550 END DEF

Színkódok színátmenetekhez (Tomato77-től, Banana játékból):
Code: [Select]
0, 128, 16, 144, 2, 130, 18, 146  // green
0, 96, 40, 12, 76, 108, 37,    // purple
0, 64, 8, 72, 1, 65, 9, 73       // red
0, 32, 224, 4, 196, 36, 228  // blue

Banana 2:

0, 96, 68, 12, 44, 12, 68, 96,      // dark purple
0, 128, 16, 144, 2, 130, 18, 130,   // green
0, 64, 8, 72, 1, 65, 9, 65,         // red
0, 64, 192, 136, 24, 88, 17, 145,   // brown
13, 97, 232, 56, 112, 148, 70, 102, // pink - blue
0, 32, 224, 4, 196, 36, 228, 172,   // blue
0, 192, 24, 216, 3, 195, 27, 195,   // yellow
0, 96, 40, 12, 76, 108, 37, 101,    // purple
0, 132, 20, 148, 6, 176, 48, 128,   // cyan
7, 56, 192, 0, 64, 8, 72, 1,        // gray - dark red
120, 49, 120, 56, 28, 56, 120, 49,  // gray - brown
8, 136, 24, 16, 48, 160, 32, 40 };  // rainbow

zöldes:
130,18,146,210,154,218
« Last Edit: 2024.April.05. 12:39:52 by szipucsu »
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 10074
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Karakterek és kódjaik
« Reply #1 on: 2024.March.18. 16:47:20 »
« Last Edit: 2024.April.16. 17:13:13 by szipucsu »
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 10074
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Karakterek szerkesztése, kimentése, betöltése
« Reply #2 on: 2024.March.18. 16:53:13 »
Gracha 3 színű karakterek tervezése: (Definiáláshoz shift-tel kell nyomni a gombot!) Tervezés után vissza a menübe és mentés, valami.txt-ben set character-t megkeresni.
[ Guests cannot view attachments ]

Normál, 2 színű karakterek tervezése, karakterek és karakterkészlet betöltése, kimentése:
[ Guests cannot view attachments ]

Az utóbbi program + sok-sok karakterkészlet (.FNT fájl)
[ Guests cannot view attachments ]

Karakterkészlet bombabiztos kimentése:
Code: [Select]
9900 LET LPB_ADD=SPEEK(255,16372)+((SPEEK(255,16373)-128)*256)
 9910 LET CHAR_TAB=16384-(256-SPEEK(255,LPB_ADD+6))*128
 9920 OPEN #106:"file.CHR" ACCESS OUTPUT
 9930 FOR X=CHAR_TAB TO CHAR_TAB+128*9
 9940   PRINT #106:CHR$(SPEEK(255,X));
 9950 NEXT
 9960 CLOSE #106

Karakterkészlet bombabiztos betöltése:
Code: [Select]
 120 ALLOCATE 40
  130 CODE LDCHAR=HEX$("DB,B2,F5,3E,FF,D3,B2,2A,F4,BF,3E,06,85,6F,5E,23,56,06,07,CB")
  140 CODE =HEX$("13,CB,12,10,FA,CB,B2,01,80,04,3E,6A,F7,06,F1,D3,B2,C9,00,00")

 9900 DEF CHARS
 9910   LET FONT=(SPEEK(255,16372)+SPEEK(255,16373)*256)-1152
 9920   LET X=SPEEK(255,16372)+((SPEEK(255,16373)-128)*256):LET CHAR_TAB=16384-(256-SPEEK(255,X+6))*128
 9930   OPEN #106:"file.CHR" ACCESS INPUT
 9940   CALL USR(LDCHAR,0)
 9950   CLOSE #106
 9960 END DEF
« Last Edit: 2024.April.16. 17:13:42 by szipucsu »
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 10074
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Színek
« Reply #3 on: 2024.March.18. 17:02:25 »
Szín alapján színkód keresése. Színátmenetek kereséséhez külön jó.
[ Guests cannot view attachments ]

Hasonló, csak hexadecimális alakban írja ki a szín kódját. SPACE és ERASE gomb használható. (By Geco)
[ Guests cannot view attachments ]

LGB oldalán on-line színkereső
« Last Edit: 2024.April.02. 23:05:56 by szipucsu »
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 10074
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Zzzip
« Reply #4 on: 2024.March.21. 22:54:52 »
Már be is van töltve (epfileio.rom és Enable Virtual File I/O nem árt):
[ Guests cannot view attachments ]

Zzzip leírás
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 10074
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Soronként változtatható palettájú képernyő beállítása
« Reply #5 on: 2024.April.27. 13:57:11 »
Soronként változtatható palettájú attribútum képernyő beállítása. 24 soros, de könnyen beállítható más is.
Írni rá nem a PRINT #csat,AT sor,oszlop:, hanem a PRINT #sor, AT 1,oszlop: tud.
Letörölni az egészet nem tudja a CLEAR #csat önmagában, hanem ott van a DEF CLS eljárás erre.
Ha nem attribútum képernyő kell, akkor a SET VIDEO MODE és SET VIDEO COLOR után mást is meg lehet adni.
Szöveges lapoknál a kurzor kikapcsolására is szükség lehet.
(A megfelelő színeket még be kell állítani, a programban az adatok csak tájékoztató jellegűek.)

Code: [Select]
7000 DEF VIDEO_INI
 7005   SET VIDEO Y 1:SET VIDEO X 40
 7010   SET VIDEO COLOR 0:SET VIDEO MODE 15
 7015   FOR X=1 TO 24 !27
 7020     OPEN #X:"video:"
 7025     DISPLAY #X:AT X FROM 1 TO 1
 7030     !SET #X:PALETTE BLACK,223,BLACK,GREEN,BLACK,GREEN,BLACK,RED
 7035   NEXT
 7040   SET #1:BIAS 24
 7045   SET #1:PALETTE 52,255,14,25
 7050   SET #2:PALETTE 180,255,14,25
 7055   SET #3:PALETTE 52,255,14,25
 7060   SET #4:PALETTE 164,255,14,25
 7065   SET #5:PALETTE 36,255,14,25
 7070   SET #6:PALETTE 4,255,14,25
 7075   SET #7:PALETTE 4,255,14,25
 7080   SET #8:PALETTE 32,254,14,25
 7085   SET #9:PALETTE 32,254,14,25
 7090   SET #10:PALETTE 32,254,14,25
 7095   SET #11:PALETTE 52,255,14,25
 7100   SET #12:PALETTE 180,255,14,25
 7105   SET #13:PALETTE 52,255,14,25
 7110   SET #14:PALETTE 164,255,14,25
 7115   SET #15:PALETTE 36,255,14,25
 7120   SET #16:PALETTE 4,255,14,25
 7125   SET #17:PALETTE 4,255,14,25
 7130   SET #18:PALETTE 32,223,BLACK,GREEN,BLACK,GREEN,BLACK,RED
 7135   SET #19:PALETTE 32,223,BLACK,GREEN,BLACK,GREEN,BLACK,RED
 7140   SET #20:PALETTE 32,223,BLACK,GREEN,BLACK,GREEN,BLACK,RED
 7145   SET #21:PALETTE 32,223,BLACK,GREEN,BLACK,GREEN,BLACK,RED
 7150   SET #22:PALETTE 32,223,BLACK,GREEN,BLACK,GREEN,BLACK,RED
 7155   SET #23:PALETTE 32,223,BLACK,GREEN,BLACK,GREEN,BLACK,RED
 7160   SET #24:PALETTE 32,223,BLACK,GREEN,BLACK,GREEN,BLACK,RED
 7165   !SET #25:PALETTE 32,254,14,25
 7170   !SET #26:PALETTE 32,254,14,25
 7175   !SET #27:PALETTE 32,254,14,25
 7180 END DEF
 7200 DEF CLS
 7205   FOR X=24 TO 1 STEP-1  !27 TO
 7210     CLEAR #X
 7215   NEXT
 7220 END DEF
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 10074
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: IS-BASIC fejlesztők számára programok, eszközök, help
« Reply #6 on: 2024.April.29. 11:08:32 »
Ebben a topikban azok számára teszünk közzé kész programrészeket, akik IS-BASIC-ben programozni szeretnének.
Csak kész programrészek kerülnek ide, a kommenteket az Általános BASIC Kérdések topikba írjátok.
« Last Edit: 2024.April.29. 15:09:21 by szipucsu »
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos