[Turbo Pascal] Q&A official thread

Page 8/12
1 | 2 | 3 | 4 | 5 | 6 | 7 | | 9 | 10 | 11 | 12

By santiontanon

Hero (602)

santiontanon's picture

11-07-2018, 16:31

Oh, I see! Yes, that makes sense. I was Googling about it, and apparently what is needed to indicate end of file is just a new line that starts with the "CTRL-Z" (1a) character: http://map.grauw.nl/resources/dos2_environment.php (Section 3.2)

By SdC

Resident (38)

SdC's picture

11-07-2018, 20:13

Exactly. That's also the way to terminate a stream on all STDIO channels (sending/receiving on TTY or COM)

By Francisco Gálvez

Rookie (19)

Francisco Gálvez's picture

11-07-2018, 20:43

Thanks everybody (this comunity is really really nice to me) ... I'll try all your advices this weekend. Cross fingers.

By Francisco Gálvez

Rookie (19)

Francisco Gálvez's picture

17-07-2018, 21:29

All you guys are awesome ....
The environment suplied by popolony2k worked and it's really good. I had to install Visual c ++ Redistributable (a lib is missing) but it worked with no problems and it is simple an powerfull.

I can now keep my unabomber's costume in the closet XD

There's a long way to go ... i do not know why i can't change the color of my sptrites and lots of tiny things, but now the problem is just read, search and effort ... The main tool, my biggest problem , is now solved.

I have to work with libraries (I'm beginng with lamassari's ones, it looks easier) but it's a question of time and effort.

Thanks manuel, popolony2k, ToriHino and santiontanon (and the rest) for supporting ... wow .. It was harder that i thought. I was close to give up.

By SdC

Resident (38)

SdC's picture

18-07-2018, 07:49

Francisco Gálvez wrote:

... I had to install Visual c ++ Redistributable (a lib is missing) but it worked with no problems
....

I assume you mean the template project https://github.com/decocq-stuff/msx-pascal-project-template
In that case, thanks I'll include that in the documentation. It's for the operation of the file-to-disk tool only, so it's not a required component. It is possible to compile without it, and just mount the folder in the emulator instead of dsk. I thought it was useful to include it to make it easy to distribute the finished program ;), and for use with other emulators that do not support mounting folder.
Good luck coding!

By ToriHino

Master (236)

ToriHino's picture

18-07-2018, 19:33

I use mounting the folder in the emulator as well and this works great. One single build from the editor updates the executable within the emulator. Really looking forward to the additional extensions to this already great setup.

By SdC

Resident (38)

SdC's picture

19-07-2018, 07:27

ToriHino wrote:

I use mounting the folder in the emulator as well and this works great. One single build from the editor updates the executable within the emulator. Really looking forward to the additional extensions to this already great setup.

Make sure you're using the dosbox.conf file that I updated last weekend; it makes dosbox run at full speed instead of a slow pentium Wink

By ToriHino

Master (236)

ToriHino's picture

19-07-2018, 21:25

SdC wrote:
ToriHino wrote:

I use mounting the folder in the emulator as well and this works great. One single build from the editor updates the executable within the emulator. Really looking forward to the additional extensions to this already great setup.

Make sure you're using the dosbox.conf file that I updated last weekend; it makes dosbox run at full speed instead of a slow pentium Wink

Took it in and indeed it's even faster now Cool Although even the pentium did already not take that long...

By Francisco Gálvez

Rookie (19)

Francisco Gálvez's picture

21-07-2018, 12:10

Hi folks...
Sorry for bothering but i'm getting crazy. I thought it woluld be solved with the new programming envionment but it does not (arrrgh)
I'll explain myself...
You can see this simple code ?...
PROGRAM Space;

{$I screen.inc}
{$I sprite.inc}
{$I color.inc}

var NaveS1,NaveS2,NaveS3,NaveS4 :Sprite8Type;
var EnemS1 :Sprite8Type;

begin
NaveS1[0] := 0;
NaveS1[1] := 0;
NaveS1[2] := 1;
NaveS1[3] := 1;
NaveS1[4] := 2;
NaveS1[5] := 2;
NaveS1[6] := 2;
NaveS1[7] := 7;
NaveS2[0] := 7;
NaveS2[1] := 9;
NaveS2[2] := 31;
NaveS2[3] := 169;
NaveS2[4] := 207;
NaveS2[5] := 137;
NaveS2[6] := 249;
NaveS2[7] := 134;
NaveS3[0] := 0;
NaveS3[1] := 0;
NaveS3[2] := 128;
NaveS3[3] := 128;
NaveS3[4] := 64;
NaveS3[5] := 64;
NaveS3[6] := 64;
NaveS3[7] := 224;
NaveS4[0] := 224;
NaveS4[1] := 144;
NaveS4[2] := 248;
NaveS4[3] := 149;
NaveS4[4] := 243;
NaveS4[5] := 145;
NaveS4[6] := 159;
NaveS4[7] := 97;
EnemS1[0] := 0;
EnemS1[1] := 0;
EnemS1[2] := 0;

SetSpritePattern(0,NaveS1);
SetSpritePattern(1,NaveS2);
SetSpritePattern(2,NaveS3);
SetSpritePattern(3,NaveS4);

Clrscr;Screen(4);Color(15,1,1);
EnableSprites;SpriteSize16;SpriteSizeNormal;

PutSprite(0,0,50,50);

repeat until keypressed;

End.


Well if I add this line EnemS1[3] := 0; after line 45 and complie I got the error:
21/07/2018-12:03:04,22-[make]: Compiler error:
source/PROGRAM.PAS:63:1:error:Unknown identifier or syntax error-41

It has no sense. I've try everything (exceting the right answer, obviusly). No carry returns, no copy and paste, change the variable names, putting lines one after other ... It's a nightmare. I accept errors i i kame mistakes but ... errors like that ..

Any help would be vey apresiated.. Thanks

By SdC

Resident (38)

SdC's picture

21-07-2018, 13:46

Is that with the include library from Kari?

Page 8/12
1 | 2 | 3 | 4 | 5 | 6 | 7 | | 9 | 10 | 11 | 12
My MSX profile