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.
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.
3
Programozás / Re: HiSoft Pascal
« on: 2019.August.15. 17:23:35 »az 14AE területre nem szerencsés írni
Ahhh! Nyomdahiba...
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.
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:
Ez "csatorna nincs nyitva" hibaüzenetre is a fentit adja.
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:
A PEEK hiába rugalmas, típusmegadásnál csak konstans fogad el...
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
(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.
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?