#: 9968 S10/OS9/6809 (CoCo)
    26-Mar-91  06:09:03
Sb: #9963-#HELP! (Please)
Fm: Kevin Darling 76703,4227
To: Bob Archambault 76506,3544 (X)

Bob - nope, everyone is just super busy these days... I used to catch all
"to all" messages that were left unanswered after a day or two, but haven't
had much time myself lately.  It's not at all unusual on most forums to
have to repeat questions; we're just not used to having to do that here.
Plus... your questions are tough ones , and not easily answered.

Nevertheless. Hmm. I tried creating a simple Basic09 program which would
take the game name as a parameter, but my GShell doesn't want to pass things
the way I needed.  In the interim, here's a program which you can customize
and rename/pack to start a program in a VDG screen.  Let me know if you
do/don't get it to work at all.  Use any kind of window type in the AIF,
it doesn't matter. - kev

PROCEDURE place.game.name.here
(* Opens next vdg window, runs program named at bottom

DIM Game:STRING
DIM path,I_GetStt,SS_DevNm:BYTE
DIM c$:STRING[1]
TYPE stack=CC,A,B,DP:BYTE; X,Y,U:INTEGER
DIM reg:stack
I_GetStt=$8D \ SS_DevNm=$0E

(* Find next window, and find its name to "dev$" using SS_DevNam
OPEN #path,"/w"
reg.A=path
reg.B=SS_DevNm
reg.X=ADDR(nam$)
RUN syscall(I_GetStt,reg)
dev$=""
FOR j=1 TO 32
c$=MID$(nam$,j,1)
EXITIF LAND(ASC(c$),$80)0 THEN 
dev$=dev$+CHR$(LAND(ASC(c$),$7F))
ENDEXIT 
dev$=dev$+c$
NEXT j
CLOSE #path \(* critical part; hope no one else starts up!

(* Do the usual vdg stuff: xmode it, chd, start program, etc
Game="ninja"
PRINT "Starting ";Game
CHD "/dd/games/ninja/data"
SHELL "xmode /"+dev$+" type=1" \(* "xmode /wx type=1"
SHELL Game+">>/"+dev$+"&" \(* "game >>/wx&"
SHELL "xmode /"+dev$+" type=80" \(* reset window type to normal
END 

There is 1 Reply.