Bump!Guys is there any interest to port interpeters for infocom adventures or level 9 text adventures under Symbos?
I think what symbos needs now is applications.i dont think playing a text adventure on a window would be a very hard thing to do.I have seen many interpeters for other systems,so an msx one would be good.

So any interest?

Yes, really will be easy to do it. At less programming with C.
In any case, i hope that Prodatron returns to SymbOS development soon for continue giving support to developers.

A Z-machine or Level 9 interpreter would be excellent. Also whatabout a GAC interpreter, since this would create over 100+ new msx games. Yes I hope and pray that Prodatron will return one day soon from whatever he's doing.

Note that there's already a Z-machine implementation for CP/M that runs fine on MSX2. You can play Zork

And then: scummVM for MSX

Manuel running all these adventures through Symbos would be much better than cp/m

Hi all, I was just wondering on peoples opinions on debugging for symbasic. Because Symbasic is a PC IDE, the compilation will spot any syntax errors etc in the compilation, however runtime errors within symbos have a problem that the code no longer has reference to specific command / function / original code that caused the issue. Yes it knows the problem but isn't able to relate that to where the issue sits within your PC based listing.

The solution I have is to issue a error dialog with Program Counter Address / Error Number. This could then be entered into symstudio and it would find the bad instruction using a retrospective compilation. Does this sound okay or an suggestions?

Anyway this will be for later, as the first release (in a few days) will lack any runtime error capture.

It sounds fine indeed. Anyway, as an alternative, you can also think about generating debug executables (if they're not too much bloated) with some basic info about what line has generated the current code.

Your first idea is the best in terms of executables size; using a compilation map table, the IDE could easily point out the error in the sources.

or keep a separate file which knows what got where. Debugging meta data. With minimal run time error data you can then use it to track back stuff. Well, in theory

*bump*

Is SymbOS on hold or something? What's prodatron doing?

Well he turned up on the symbos yahoo group some weeks back to say he's doing some other hobby project and is still busy with work, and won't probably be back on symbos for a few months. Hope he continues with symbos, as there are lots of tiny little things that need adding or changing. Hopefully we'll see some more symbos activity in the next few weeks

Hey I hope somebody can check this out and see if it works okay on an MSX in symbos. Obviously I'm a CPC man and do all my testing on the amstrad. I can't seem to get the msx emu's running symbos, so I must be really stupid.

Anyway its a small test of a app written in symbasic. Download here www.dread-donkey.com/symstudio/downloads/symdev1.rar

The actual symbasic code for this stupid little program looks like this.

Global BoxX(20),BoxY(20)
Global Loop,Num,X_Old,Y_Old,X,Y
Global LeftX,RightX,TopY,BottomY
Global Count,LastSecond,FormNo,NoOfBlocks
Global ScrollText$,SecScroll$
Global ScrCount,a

;**** Main loop of Form Form1
FUNCTION Form1_Main
	LeftX = Paint1_Left
	RightX = Paint1_Width+Paint1_Left
	TopY = Paint1_Top
	BottomY = Paint1_Height+Paint1_Top
	For Loop=1 to NoOfBlocks
		Num=GetObjId(FormNo , 2 + (Loop-1))
		X_Old = GetObjLeft ( Num ) :Y_Old = GetObjTop ( Num )
		X = X_Old + BoxX ( Loop ) : Y = Y_Old + BoxY ( Loop )
		SetObjPos Num,X,Y
		;Paint1_Appearance=Int(rnd(16))
		;RefreshArea Paint1_ID,Paint1_Left,rnd(Paint1_Height)+Paint1_Top,Paint1_Width+Paint1_Left,1
		RefreshObj Num
		If (BoxX(Loop)>0 and X+13=>RightX) or (BoxX(Loop)<0 and X<LeftX+2) then
			BoxX(Loop)=Neg(BoxX(Loop))
		Endif
		If (BoxY(Loop)>0 and Y+13=>BottomY) or (BoxY(Loop)<0 and Y<TopY+4) then
			BoxY(Loop)=Neg(BoxY(Loop))
		Endif
	next
	Count=Count+1
	;If (Count mod 1)=0 then
		LastSecond=GetSecond()
		Label1_Text="Blocks moved "+Str$(Count*12)
		refreshobj Label1_ID
		SecScroll$=Mid$(ScrollText$+ScrollText$,ScrCount+1,50)
		ScrCount=ScrCount+1
		If ScrCount=>Len(ScrollText$) Then ScrCount=0
		Label2_Text=SecScroll$
		RefreshObj Label2_ID
	;endif
ENDF

;**** Code called on Opening Window Form1
FUNCTION Form1_Open
	ScrollText$="***** This is a demonstration of SymBasic, and Symbos coding. Isn't it rather cool *****"	
	ScrCount=0
	Count=0
	FormNo=1
	NoOfBlocks=12
	For Loop=1 to NoOfBlocks
		BoxX(Loop)=Int(rnd(7))-3
		BoxY(Loop)=Int(rnd(7))-3
	Next
ENDF
;**** Code called on event occuring on Button1
FUNCTION Button1_Event
	Button1_Text="I said not too!"
	a=Dialog("That was a very bad|thing you've done, so|don't do it again",1,1)
ENDF

So nobody wants to check out my stupid little symbos application then? Oh well. Would be nice to know that applications are working on MSX the same as the CPC before i release the beta of symbasic in a few days.

Quote:

So nobody wants to check out my stupid little symbos application then?

I tried to run APP01.EXE (Stupid demo) at OCM_DE1.
Works not bad.

Trembint: just tested . It works perfectly. Great to see how many things can be done with SymbOS. Tested on my 1chipMSX and last SymbOS beta and using 16 colour mode. Great!