Show Posts

1

Weboldalak / Re: EP128.hu

« on: 2019.November.20. 22:18:24 »

Igen, levettem.
Ez a verzió volt fent.

2

Weboldalak / Re: EP128.hu

« on: 2019.November.13. 17:51:25 »

Lemmings-ből létezik más konverzió az EDC-félén felül? Mint kiderült az hibás...

Néha kiakad a következő szint töltésekor, és a csákányozáskor néha szemét a képernyőn, és emiatt nem játszható, mert faldarabnak tekinti.

3

Spectrum-ról / Re: Mag the Magician

« on: 2019.September.02. 22:49:06 »

Szép!
És 64K-s gépen is jó sebességgel fut.

4

Programozás / Re: BASIC

« on: 2019.August.25. 19:50:20 »

Ááá! Most látom, hogy lehagytam az END-et! Az hiányzott neki. Fordításnál viszont nem jelzett hibát...

5

Programozás / Re: BASIC

« on: 2019.August.25. 12:52:42 »

Zozo, menjünk le egy kicsit dedóba, elakadtam az első lépésnél...

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.

6

Konvertálás / Re: IK

« on: 2019.August.21. 18:00:54 »

Hogy készült ez a változat? A CPC-s IK teljesen másképp néz ki.

7

Konvertálás / Re: IK

« on: 2019.August.21. 17:00:28 »

Szépen néz ki!
Hány háttér van?

8

Programozás / Re: HiSoft Pascal

« on: 2019.August.15. 17:23:35 »

Quote from: Povi on 2019.August.15. 13:45:00

az 14AE területre nem szerencsés írni

Ahhh! Nyomdahiba...

Kösz!

9

Programozás / Re: HiSoft Pascal

« on: 2019.August.14. 17:04:03 »

Valami bugot találhattunk...
A program lefut, de pl a W parancsra lefagy a PASCAL.

10

Programozás / Re: HiSoft Pascal

« on: 2019.August.14. 14:08:49 »

Jól értem, így kellene működnie:

Code: [Select]

PROGRAM HIBA;
VAR TMP: CHAR;
    I:INTEGER;
BEGIN
  RA:=CHR(101);
  TMP:=EXOS(3);
  IF RA<>CHR(0) THEN BEGIN
    RDE:=#14AE;
    POKE(#023F,CHR(#C9));
    USER(#0231);
    POKE(#023F,CHR(#C3));
    RA:=CHR(121);RDE:=#14AE+1;RBC:=ORD(PEEK(#14AE,CHAR));
    TMP:=EXOS(8);
    WRITELN('.')
  END;
  WRITELN('Vege.')
END.

Ez "csatorna nincs nyitva" hibaüzenetre is a fentit adja.

11

Programozás / Re: HiSoft Pascal

« on: 2019.August.13. 14:11:55 »

A memória egy adott területéről (hossz-byte-tal az elején) egy szövegfüzért kiírni van valami egyszerűbb módszer ehelyett:

Code: [Select]

PROGRAM HIBA;
VAR TMP,RA: CHAR;
    I:INTEGER;
BEGIN
  RA:=CHR(101);
  TMP:=EXOS(3);
  IF RA<>CHR(0) THEN BEGIN
    RDE:=#14AE;
    TMP:=EXOS(28);
    FOR I:=#14AE+1 TO #14AE+ORD(PEEK(#14AE,CHAR)) DO
      WRITE(PEEK(I,CHAR));
    WRITELN('.')
  END
END.

A PEEK hiába rugalmas, típusmegadásnál csak konstans fogad el...

12

Programozás / Re: Szövegrendező funkciók

« on: 2019.August.11. 17:10:06 »

Quote from: szipucsu on 2019.August.07. 22:18:24

Sose értettem, mi az a PRINT USING. Mi lehet olyan fantasztikus, amit nélküle nem lehet megvalósítani.

Pl. táblázatos adatkiírást.

13

Programozás / Re: BASIC

« on: 2019.July.06. 17:51:51 »

Quote from: Ferro73 on 2019.July.05. 21:39:01

Szerkesztek egy DEF CHAR rutint

Szerintem felesleges ennyire "túlmisztifikálni" a dolgot egy sima set character egyszerűbb, mint DATA-sorokból beolvasni, majd karakter-soronként POKE-ézni...

Code: [Select]

...
130 CALL HFONT
...
2410 DEF HFONT
2420   WHEN EXCEPTION USE NINCSHFONT
2430     EXT "HFONT"
2440   END WHEN 
2450   HANDLER NINCSHFONT
2460     CLEAR FONT
2470     SET CHARACTER 145,24,24,60,102,126,102,102
2480     SET CHARACTER 151,24,24,126,96,120,96,126
2490     SET CHARACTER 133,28,24,60,24,24,24,60
2500     SET CHARACTER 146,6,60,102,102,102,102,60
2510     SET CHARACTER 148,66,60,102,102,102,102,60
2520     SET CHARACTER 153,102,92,102,102,102,102,60
2530     SET CHARACTER 149,24,102,102,102,102,102,60
2540     SET CHARACTER 137,102,66,102,102,102,102,60
2550     SET CHARACTER 143,51,102,102,102,102,102,60
2560     SET CHARACTER 129,24,24,60,6,62,102,62
2570     SET CHARACTER 147,24,24,60,102,126,96,60
2580     SET CHARACTER 132,28,16,56,24,24,24,60
2590     SET CHARACTER 134,24,24,60,102,102,102,60
2600     SET CHARACTER 135,102,0,60,102,102,102,60
2610     SET CHARACTER 136,102,102,60,102,102,102,60
2620     SET CHARACTER 138,24,24,102,102,102,102,60
2630     SET CHARACTER 139,102,0,102,102,102,102,60
2640     SET CHARACTER 140,54,36,102,102,102,102,60
2650   END HANDLER 
2660 END DEF