Corrupted Vic 20 game (Not seen before)
Moderator: Moderators
- Mayhem
- High Bidder
- Posts: 3028
- Joined: Mon May 24, 2004 7:03 am
- Website: http://www.mayhem64.co.uk
- Location: London
I've been going through your TAPs recently Frank and pulling out anything I can find. I know NBLA went through some of them too in the past and extracted games. So far there's been a handful needed for GB20.
Speaking of which there is a Haunted House in there already but it only requires 3k (might be one of those however that can work with any type of expanded memory). Or could be a new different game. Mother Hen isn't in there for sure though.
Speaking of which there is a Haunted House in there already but it only requires 3k (might be one of those however that can work with any type of expanded memory). Or could be a new different game. Mother Hen isn't in there for sure though.
Lie with passion and be forever damned...
I'm hopeful to find more stuff too.... When i've backed up my entire tape collection (blanks, personal recorded stuff etc), i'll happily upload somewhere for people to check out incase there is anything i've missed.
I'll highlight any particular Vic 20 tapes, but you've pretty much seen most of them posted here.
One for the tape experts... I have a old tape which has remains of a SEUCK game I was working on many years ago (Saved in SEUCK file format). It picks up the game half way through the tape, but the tape finishes before all the blocks are loaded in. Hence its missing about 5-10 blocks. However, I am pretty sure I had a second copy at the start of the tape, but for some reason recorded over the start header with a 5/10 block type in cheat for Delta. Would anyone be able to patch over the Delta cheat signals with the SEUCK game start header from half way through and produce a full file? Or is this maybe a step too far?
I'll highlight any particular Vic 20 tapes, but you've pretty much seen most of them posted here.
One for the tape experts... I have a old tape which has remains of a SEUCK game I was working on many years ago (Saved in SEUCK file format). It picks up the game half way through the tape, but the tape finishes before all the blocks are loaded in. Hence its missing about 5-10 blocks. However, I am pretty sure I had a second copy at the start of the tape, but for some reason recorded over the start header with a 5/10 block type in cheat for Delta. Would anyone be able to patch over the Delta cheat signals with the SEUCK game start header from half way through and produce a full file? Or is this maybe a step too far?
First part of Haunted House Adventure
Here is the basic part of Haunted House Adventure.
Converted by hand from Basic tokens.
10 REM HAUNTED HOUSE ADVENTURE
20 REM ***********************
30 REM THIS VERSION FOR "MICROSOFT" BASIC
40 REM REQUIRES A MINIMUM OF 16K
50 REM SELECT "TEXT MODE" IF NECESSARY
60 REM *******************************
70 V=25:W=36:G=18
80 GOSUB 1600
90 PRINT CHR$(147):PRINT "HAUNTED HOUSE"
100 PRINT "-------------"
110 PRINT "YOUR LOCATION"
120 PRINT D$(RM)
130 PRINT "EXITS:";
140 FOR I=1 TO LEN(R$(RM))
150 PRINT MID$(R$(RM),I,1);",";
160 NEXT I
170 PRINT
180 FOR I=1 TO G
190 IF L(I)=RM AND F(I)=0 THEN PRINT "YOU CAN SEE ";O$(I);" HERE"
200 NEXT I
210 PRINT "========================="
220 PRINT "M$:M$="WHAT"
230 INPUT "WHAT WILL YOU DO NOW";O$
240 V$="":W$="":VB=0:OB=0
250 FOR I=1 TO LEN(O$)
260 IF MID$(O$,I,1)=" " AND V$=""THEN V$=LEFT$(O$,I-1)
270 IF MID$(O$,I-1,1)<>"" THEN W$=MID$(O$,I+1,LEN(O$)-1):I=LEN(O)
280 NEXT I
290 IF W$=""THEN V$==O$
300 FOR I=1 TO
310 IF V$=V$(I) THEN VB=I
320 NEXT I
330 FOR I=1 TO W
340 IF W$=O$(I) THEN LET OB=I
350 NEXT I
360 IF W$="" AND OB=O THEN M$="THAT'S SILLY"
370 IF VB=O THEN VB=V+1
380 IF W$="" THEN M$="I NEED TWO WORDS"
390 IF VB>V AND OB=0 THEN M$="YOU CAN'T '"+O$+"'"
400 IF VB>V AND OB=O THEN M$="YOU DON'T MAKE SENSE"
410 IF VB> AND OB>O AND C(OB)=O THEN M$="YOU DON'T HAVE '"+W$
420 IF F(26)=1 AND VB=13 AND RND(3)<>3 AND VB<>21 THEN M$="BATS ATTACKING!":GOTO 90
Converted by hand from Basic tokens.
10 REM HAUNTED HOUSE ADVENTURE
20 REM ***********************
30 REM THIS VERSION FOR "MICROSOFT" BASIC
40 REM REQUIRES A MINIMUM OF 16K
50 REM SELECT "TEXT MODE" IF NECESSARY
60 REM *******************************
70 V=25:W=36:G=18
80 GOSUB 1600
90 PRINT CHR$(147):PRINT "HAUNTED HOUSE"
100 PRINT "-------------"
110 PRINT "YOUR LOCATION"
120 PRINT D$(RM)
130 PRINT "EXITS:";
140 FOR I=1 TO LEN(R$(RM))
150 PRINT MID$(R$(RM),I,1);",";
160 NEXT I
170 PRINT
180 FOR I=1 TO G
190 IF L(I)=RM AND F(I)=0 THEN PRINT "YOU CAN SEE ";O$(I);" HERE"
200 NEXT I
210 PRINT "========================="
220 PRINT "M$:M$="WHAT"
230 INPUT "WHAT WILL YOU DO NOW";O$
240 V$="":W$="":VB=0:OB=0
250 FOR I=1 TO LEN(O$)
260 IF MID$(O$,I,1)=" " AND V$=""THEN V$=LEFT$(O$,I-1)
270 IF MID$(O$,I-1,1)<>"" THEN W$=MID$(O$,I+1,LEN(O$)-1):I=LEN(O)
280 NEXT I
290 IF W$=""THEN V$==O$
300 FOR I=1 TO
310 IF V$=V$(I) THEN VB=I
320 NEXT I
330 FOR I=1 TO W
340 IF W$=O$(I) THEN LET OB=I
350 NEXT I
360 IF W$="" AND OB=O THEN M$="THAT'S SILLY"
370 IF VB=O THEN VB=V+1
380 IF W$="" THEN M$="I NEED TWO WORDS"
390 IF VB>V AND OB=0 THEN M$="YOU CAN'T '"+O$+"'"
400 IF VB>V AND OB=O THEN M$="YOU DON'T MAKE SENSE"
410 IF VB> AND OB>O AND C(OB)=O THEN M$="YOU DON'T HAVE '"+W$
420 IF F(26)=1 AND VB=13 AND RND(3)<>3 AND VB<>21 THEN M$="BATS ATTACKING!":GOTO 90
Line 300 looks funny as well.
I think line 270 may be wrong as line 420.
Here's the output from CBM BASIC Lister:
Cheers,
Luigi
I think line 270 may be wrong as line 420.
Here's the output from CBM BASIC Lister:
Code: Select all
REM CBM BASIC LISTER V2.02 BETA Developed with GTK+ 2.0 and GLADE
REM (C) 2004-06 Luigi Di Fraia
REM LISTING OF FILE:
REM START ADDRESS: $1201
REM END ADDRESS+1: $166B
REM SIZE (BYTES): 1130
10 REM HAUNTED HOUSE ADVENTURE
20 REM ***********************
30 REM THIS VERSION FOR "MICROSOFT" BASIC
40 REM REQUIRES A MINIMUM OF 16K
50 REM SELECT "TEXT MODE" IF NECESSARY
60 REM *******************************
70 V=25:W=36:G=18
80 GOSUB 1600
90 PRINT CHR$(147):PRINT"HAUNTED HOUSE"
100 PRINT "-------------"
110 PRINT "YOUR LOCATION"
120 PRINT D$(RM)
130 PRINT "EXITS:";
140 FOR I=1 TO LEN(R$(RM))
150 PRINT MID$(R$(RM),I,1);",";
160 NEXT I
170 PRINT
180 FOR I=1 TO G
190 IF L(I)=RM AND F(I)=0 THEN PRINT "YOU CAN SEE ";O$(I);" HERE"
200 NEXT I
210 PRINT "========================="
220 PRINT M$:M$="WHAT"
230 INPUT "WHAT WILL YOU DO NOW";O$
240 V$="":W$="":VB=0:OB=0
250 FOR I=1 TO LEN(O$)
260 IF MID$(O$,I,1)=" " AND V$=""THEN V$=LEFT$(O$,I-1)
270 IF MID$(O$,I+1,1)<>"" THEN W$=MID$(O$,I+1,LEN(O$)-1):I=LEN(O)
280 NEXT I
290 IF W$=""THEN V$==O$
300 FOR I=1 TO
310 IF V$=V$(I) THEN VB=I
320 NEXT I
330 FOR I=1 TO W
340 IF W$=O$(I) THEN LET OB=I
350 NEXT I
360 IF W$>"" AND OB=O THEN M$="THAT'S SILLY"
370 IF VB=O THEN VB=V+1
380 IF W$="" THEN M$="I NEED TWO WORDS"
390 IF VB>V AND OB=O THEN M$="YOU CAN'T '"+O$+"'"
400 IF VB>V AND OB=O THEN M$="YOU DON'T MAKE SENSE"
410 IF VB> AND OB>O AND C(OB)=O THEN M$="YOU DON'T HAVE '"+W$
420 IF F(26)=1 AND RM=13 AND RND(3)<>3 AND VB<>21 THEN M$="BATS ATTACKING!":GOTO 90
Luigi
Gimme a couple of additional TAP images of the tape, please. Some data may be recoverable with a bit of work.bokvamme wrote:If you've got the time, please look at the tap Luigi.
I think those blocks after the Haunted House block is cbm loader too, but the pulses are shifted. It's time we get a REAL tap expert have a look
I am actually based in UK, so that I can look at the tape itself.
Thank you.
Cheers,
Luigi.
Could you please put a link to the post you are referring to or quote it here? Sadly I haven't been following the whole discussion in this thread for I have a very little time.fgasking wrote:Just out of interest, would the idea in my previous post be possible with regards to a C64 file i'm trying to save?
Cheers,
Luigi.