Voyage of the Beano and Tetroid with CF Card

Anything QL Software or Programming Related.
User avatar
ngcard
ROM Dongle
Posts: 17
Joined: Sat Aug 03, 2019 3:56 pm
Location: Venice, Florida
Contact:

Voyage of the Beano and Tetroid with CF Card

Postby ngcard » Fri Oct 18, 2019 6:25 pm

I recently purchased a Tetroid Card which includes a Compact Flash Interface and Minerva and Qubide etc. I wanted to get "The Voyage of the Beano" adventure to run from the CF card, which I eventually did, but it wasn't easy and the documentation I found for this kind of thing was lacking, so in case anyone else is struggling, here's what I did.

I have a second partition set up on my CFCard, so in turn I have a win2_ drive. I created a directory on here called "Beano" and copied the game files into it.

To get the game to run, you need to use a substitution utility to fool the game into thinking it is running from a floppy disk. I found the usual DEV_USE tricks didn't work, in particular the DEV_USE flp didn't work on the Tetroid. What does work is the "SUB" device driver which can be found on Dilwyn's site http://www.dilwyn.me.uk/tk/sub.zip. So, I copied the sub_rext into the win1_SYS folder and added "LRESPR sys$&'sub_rext'" to my main boot file.

Then I edited the boot file in the win2_BEANO_ directory and added these lines...

Code: Select all

10 SUB_DRV win2
20 SUB_USE 1,BEANO
30 SUB_USE FLP


The 1st line tells the SUB driver to use the win2 drive. The 2nd line creates a drive called sub1_ and points it to the BEANO directory on win2. The 3rd line renames the sub drives to flp, so my sub1_ drive became flp1_. Now performing a dir flp1_ shows the contents of the BEANO directory on win2.

At this point if you do an "LRUN win2_beano_boot" the game runs and thinks it is running from its default configuration of flp1_.

My main boot file...

Code: Select all

100 WIN_DRIVE 2,1,2
110 LET dev$='win1_'
120 LET sys$=dev$&'SYS_'
130 addr=RESPR(250) : LBYTES sys$&'exists_bin',addr : CALL addr
140 :
150 IF NOT(EXISTS('TK2_EXT')) THEN
160   addr=RESPR(16876) : LBYTES sys$&'tk226_bin',addr : CALL addr
170 END IF
180 TK2_EXT
190 :
200 base=RESPR(3000) : LBYTES sys$&'vtkql_bin',base : CALL base
240 :
260 LRESPR sys$&'sub_rext'
540 LRESPR sys$&'history_cde'
550 HISTORY #0, 20
560 :
570 NEW


The Beano boot file with the lines I added at the top...

Code: Select all

[10 SUB_DRV win2
20 SUB_USE 1,BEANO
30 SUB_USE FLP
100 REMark BOOT FOR THE VOYAGE OF THE BEANO
110 REMark (C) 1990  A. PEMBERTON
120 RESTORE
130 MODE 4:OPEN#3,scr:WINDOW#3,512,256,0,0:PAPER#3,0:CLS#3
140 FOR r=1 TO 23:OPEN#(r+3),scr:WINDOW#(r+3),20,40,(r*20+20),0:PAPER#(r+3),0:INK#(r+3),7
150 x$="THE VOYAGE OF THE BEANO"
160 FOR r=1 TO 23:AT#(r+3),3,0:PRINT#(r+3),x$(r):BEEP 1000,r*RND(10 TO 50):PAUSE 3
170 a=RESPR(512):LBYTES flp1_font_cde,a:CALL a
180 LBYTES flp1_p0,131072+60*128:credits
185 play
190 FOR x=4 TO 9:wave -1,x,5:PAUSE 3
200 FOR x=4 TO 16:wave 1,x,5:wave -1,x+6,5
210 FOR x=17 TO 21:wave 1,x,5:wave -1,x+6,21-x
220 FOR x=22 TO 27:wave 1,x,27-x:PAUSE 3
230 INK#3,7:AT#3,24,27:PRINT#3,"PRESS ANY KEY TO GET UNDER WAY....":dummy$=INKEY$(-1):AT#3,24,15:CLS#3,4
240 EXEC_W flp1_BEANO_obj
250 :
260 DEFine PROCedure wave (direction,start,number)
270  FOR r=1 TO number
280   SCROLL#(start-1+r),direction*(6-r)
290  END FOR r
300 END DEFine wave
310 DEFine PROCedure credits
320  AT#3,21,0:INK#3,4:PRINT#3,,,"A GRAPHIC ADVENTURE BY ALAN PEMBERTON AND FRANCIS O'BRIEN"\,,,"    COPYRIGHT  1990  C G H  SERVICES"
330 END DEFine credits
340 DEFine PROCedure play
350  LOCal note$,dur,del,x,loop
355  REPeat loop
360  IF BEEPING:NEXT loop
370  IF EOF:EXIT loop
380  READ note$,dur,del
390  IF dur=0:RETurn
400  x=CODE(note$)
410  SELect ON x
420   =97:n=42
430   =98:n=37
440   =99:n=35
450   =100:n=70
460   =101:n=61
470   =102:n=56
480   =103:n=50
490   =67:n=170
500   =65:n=96
510  END SELect
520  BEEP 1000*dur,n
530  PAUSE 4*del
535  END REPeat loop
540 END DEFine play
550 DATA 'c',1,1,'b',1,1,'c',2,2.25,'C',2.25,2.25,'C',2.25,2.25,'g',.75,.75,'f',.75,.75,'e',.75,.75,'g',.75,.75,'c',.75,.75,'b',1,1,'c',2,2,'x',0,0


Neal
Derek_Stewart
QL Wafer Drive
Posts: 1564
Joined: Mon Dec 20, 2010 11:40 am
Location: Runcorn, Cheshire, UK

Re: Voyage of the Beano and Tetroid with CF Card

Postby Derek_Stewart » Fri Oct 18, 2019 9:11 pm

Hi,

Well done in finding a solution with SUB.

The DEV device does work, the FLP device has to be changed first with the FLP_USE command.

i.e. FLP_USE "FDD"

The DEV device gets confused with FLP device being the same.


Regards,

Derek
User avatar
genetika
Brittle Membrane
Posts: 113
Joined: Thu May 05, 2011 5:38 pm
Location: Rome, ITALY
Contact:

Re: Voyage of the Beano and Tetroid with CF Card

Postby genetika » Sat Oct 19, 2019 9:31 pm

Derek_Stewart wrote:Hi,

Well done in finding a solution with SUB.

The DEV device does work, the FLP device has to be changed first with the FLP_USE command.

i.e. FLP_USE "FDD"

The DEV device gets confused with FLP device being the same.


Hi Derek.
What is the complete command sequence in order to use DEV_USE ?

I tried without success the following sequence :

On Smsq/e, I wrote:

Dev_use 1, win1_sys_
Dev_use flp
Dir flp1_

Return:
Not found

I would like to try with FLP_USE

Which is the correct sequence?

Thanks in advance.
Regards,
Max


User avatar
dex
Trump Card
Posts: 214
Joined: Thu Dec 23, 2010 1:40 pm

Re: Voyage of the Beano and Tetroid with CF Card

Postby dex » Sat Oct 19, 2019 10:46 pm

See THIS THREAD

FLP_USE FDD : REMark Temporary Device for FLP
DEV_USE 1,"win1_sys_" : REMark Point Dev1_ to sys directory
DEV_USE FLP : REMark DEV is now FLP


Derek_Stewart
QL Wafer Drive
Posts: 1564
Joined: Mon Dec 20, 2010 11:40 am
Location: Runcorn, Cheshire, UK

Re: Voyage of the Beano and Tetroid with CF Card

Postby Derek_Stewart » Sat Oct 19, 2019 10:47 pm

Hi,

Just an echo of the prevoious messge...

You try reading this message thread:

viewtopic.php?f=12&t=1629

In that message thread, I detailed how to get the game running in QPC2.

But, try this:

FLP_USE FDD : REMark Temporary Device for FLP
DEV_USE 1,"win1_beano_" : REMark Point Dev1_ to beano directory
DEV_USE FLP : REMark DEV is now FLP

This should work on any system that uses the DEV device.

Or you could use tge SUB device, which is really good and will probably work better in a non-SMSQ/E system.


Regards,

Derek
User avatar
genetika
Brittle Membrane
Posts: 113
Joined: Thu May 05, 2011 5:38 pm
Location: Rome, ITALY
Contact:

Re: Voyage of the Beano and Tetroid with CF Card

Postby genetika » Sun Oct 20, 2019 7:03 am

PERFECT !

THANKS

Max



Who is online

Users browsing this forum: No registered users and 4 guests