ENTERPRISE KLUB
2019. szeptember 7., 1055 Budapest, Nyugati tér 9. 14-19 óráig
Részletek
Welcome, Guest. Please login or register.


Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Lacika

Pages: [1] 2 3 4 5 6 7 8 ... 187
1
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.

2
Konvertálás / Re: IK
« on: 2019.August.21. 17:00:28 »
Szépen néz ki!
Hány háttér van?

3
Programozás / Re: HiSoft Pascal
« on: 2019.August.15. 17:23:35 »
az 14AE területre nem szerencsés írni

Ahhh! Nyomdahiba...:oops: Kösz!

4
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.

5
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.

6
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...

7
Programozás / Re: Szövegrendező funkciók
« on: 2019.August.11. 17:10:06 »
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.

8
Programozás / Re: BASIC
« on: 2019.July.06. 17:51:51 »
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

9
Egyéb témák / Re: Milyen gyári kazettáid vannak?
« on: 2019.June.05. 18:13:23 »
Még egy friss szerzemény :ds_icon_cheesygrin:
(Attachment Link)

Kérek szépen scan-t!

10
CPC-ről / Re: Nigel Mansell's Grand Prix
« on: 2019.May.07. 23:20:48 »
Más hibát nem találtam. Ha begyakoroljuk a pályát, jókat lehet vele menni! ;-)

11
CPC-ről / Re: Nigel Mansell's Grand Prix
« on: 2019.May.06. 17:30:17 »
A csomagolt verzióban valami akkor történt. Most csak addig nő a turbó-nyomás, amíg az adott számbillentyűt nyomva tartjuk. Amúgy folyamatosan minimumon (1-es fokozaton) van, a kijelző szerint.

12
CPC-ről / Re: Nigel Mansell's Grand Prix
« on: 2019.May.05. 23:24:51 »
Bug report: a turbo nyomás nem állítható az 1-4 billentyűkkel. Ez a hang módosításával lehet összefüggéssel, mert a hangnak változnia kellene a turbónyomás változtatásával.

13
Weboldalak / Re: Enterprise a neten
« on: 2019.May.01. 18:10:04 »
Amin nálam mint van, annak a mérete 4 Kb alatt van. A TV-ben 4K-nál nagyobb a program.

14
Weboldalak / Re: Enterprise a neten
« on: 2019.May.01. 10:05:51 »
28:16

Zozo, a programot megpróbálod betölteni?

15
Egyéb témák / Re: Régészeti leletek
« on: 2019.April.19. 10:56:38 »
Jó mazsolázást!

Az 5 perces adatkazetta borító alapból ilyen ferde? Vagy nem lett egyenesen bescannelve?

Pages: [1] 2 3 4 5 6 7 8 ... 187