"win7 alatt már nem fut nekem"

Nálam fut 64 biten. Jó kis játék lehetett volna ebből.

hú, nem tudnál felvenni videót?
nekem is win7 64 bit van. simán csak elindítod és fut?

Igen. Bár az Avast sz%rakodott, hogy ismeretlen file, de kikapcsoltam.
Nálad ezek hiányozhatnak :

Net Framework 4.7
Vcredist Összes 2005-2015 32-64-bit
Esetleg Java 7-8 32-64

Majd próbálok videót készíteni, de most nincs fent olyan programom.

hú ez tök jó, köszi. már régen láttam, jó volt újra látni

ja hát ez előfordul
de biztos nem vírusos

Szervusztok!

Elkezdtem ismerkedni a HiSoft Pascallal, és máris elakadtam. Szeretném a grafikai lehetőségeket próbálgatni. Láttam, hogy a GRAPH16.HPU-ban sok eljárás van, amik közül csak néhányra volna szükségem (videolapok nyitása és megjelenítése, paletta és BIAS beállítása), ezért arra gondoltam, hogy ezeket bemásolom magába a programba. Próbából a keret színét szerettem volna átállítani az alábbi mini programmal, ami lefordul, de futáskor lefagy:

PROGRAM Proba;

PROCEDURE BORDER(C:INTEGER);
BEGIN
  INLINE(#DD,#7E,#02,#CD,#B0,#BC);
END;

BEGIN
  BORDER(255);
END.

Szerintetek ennek kellene így működnie, vagy hol rontottam el?

Ilyen inline-os soroknál honnan tudja, hogy a "C" paramétert honnan vegye? Több eljárást nézegetve a #02 lett gyanús, mert több eljárásban is előfordult. Ez mutatja, hogy pl. valami után 2 bájttal található az érték?

Köszönöm a választ! Egy rövid próba után úgy néz ki, hogy megértettem, hogyan működik.

Még azt szeretném kérdezni, hogy a Basic-es SPOKE híján a videomemóriába hogyan lehet közvetlenül bele"poke"-olni? A Pascal POKE-ja a belapozott négy szegmenst eléri egy Word értékkel? Arra gondoltam, hogy miután megvan a Nick cím és az abból kiszámolt szegmens száma, azt belapozom valahová. Ha jól értem, a nullás lapot nem illik használni, ezért mondjuk a kettesre: OUT(#B2,CHR(szegmens)); Ezek után még kell módosítani a címet, hogy 32768 és 49151 közötti értéke legyen? Így lehet elérni a kettes lapra belapozott szegmenst?

A GRAPH16.HPU-nál a képernyő egyszerűen a 49152 (-16384) címtől kezdődően érhető el, mindig be van lapozva.

Érdemes ilyen esetekben hexa formában megadni a forráskódban a címeket, és akkor nem kell negatív számokkal elcsúfítani a kódot.
pl.:
POKE(#c000,value);
Arra figyelni kell, hogy a value bármilyen típus lehet, ha char, akkor egy bájtot fog írni, de ha pl. integer akkor két bájtot a 0xc000 és 0xc001 címre.

Sziasztok!

Megint segítséget szeretnék kérni. Basic-ben a keret színét be lehet állítani a SPOKE 255,16352,n paranccsal. Pascalban miért nem működik az alábbi program?

Program Border;
BEGIN
  Poke(#BFE0,Chr(73));
END.

#3FE0-val sem működik, illetve próbáltam Out paranccsal belapozni az FF szegmenst, de úgy sem csinál semmit.