1
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.
És 64K-s gépen is jó sebességgel fut.
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.
2
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...
3
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):
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.
Beírom ASMON-ba próbaképp (szorzunk 256-tal):
Code: [Select]
M1 LD H,L
LD L,00
RETAssemble 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.
4
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.
6
Programozás / Re: HiSoft Pascal
« on: 2019.August.15. 17:23:35 »az 14AE területre nem szerencsés írni
Ahhh! Nyomdahiba...
Kösz!
7
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.
8
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.
9
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...
10
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.
11
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
12
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!
13
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! 
14
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.
15
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.