Enterprise Forever
:HUN => Programozás => BASIC => Topic started by: szipucsu on 2024.March.18. 16:41:31
-
Intelligens on-line renumber (http://xtro.hu/tvc.html). 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.) (https://wiki.enterpriseforever.com/index.php?title=IS-BASIC_tr%C3%BCkk%C3%B6k)
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ő:
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
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:
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):
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
-
http://www.ep128.hu/Ep_Util/Pic/chrset_UK.gif
[attach=1]
Más konfigurációk karakterkódjai (http://www.ep128.hu/Ep_Util/Brd.htm).
-
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.
[attachurl=1]
Normál, 2 színű karakterek tervezése, karakterek és karakterkészlet betöltése, kimentése:
[attachurl=2]
Az utóbbi program + sok-sok karakterkészlet (.FNT fájl)
[attachurl=3]
Karakterkészlet bombabiztos kimentése:
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:
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
-
Szín alapján színkód keresése. Színátmenetek kereséséhez külön jó.
[attachurl=1]
Hasonló, csak hexadecimális alakban írja ki a szín kódját. SPACE és ERASE gomb használható. (By Geco)
[attachurl=2]
LGB oldalán on-line színkereső (http://ep.lgb.hu/colors.html)
-
Már be is van töltve (epfileio.rom és Enable Virtual File I/O nem árt):
[attachurl=1]
Zzzip leírás (http://ep128.hu/Ep_Util/Zzzip.htm)
-
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.)
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
-
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 (https://enterpriseforever.com/basic/altalanos-basic-kerdesek/) topikba írjátok.