Jump to content
IGNORED

Extended basic games??


MaDDuck

Recommended Posts

Here is a disk in which I've collected what I consider 11 of the best single-file pure Extended BASIC games (i.e., which could be used from cassette).

 

BESTofXB.dsk

 

But if you want ready-made WAV files, see here: https://ftp.whtech.com/Cassettes/rawWAVfiles/

 

For an overview of some of the best XB games, you can see here (some cassette, some not):

 

 

 

And since you're working with cassette, if you're interested in type-ins, maybe Shuttle by Jim Beck.  It's a really, really concise (but very well made) Extended BASIC game. 

 

100 RANDOMIZE
110 CALL CLEAR
120 DIM A(11)
130 T=1
140 FOR D=2 TO 12 :: CALL COLOR(D,16,2) :: NEXT D
150 CALL SCREEN(2)
160 CALL HCHAR(1,1,136,32) :: CALL HCHAR(24,1,136,32) :: CALL VCHAR(1,1,136,24) :: CALL VCHAR(1,32,136,24)
170 DISPLAY AT(8,12):"SHUTTLE"
180 DISPLAY AT(12,10):"BY JIM BECK"
190 DISPLAY AT(20,1):"PRESS ANY KEY TO START GAME."
200 CALL KEY(0,K,S) :: IF S<>0 THEN 250
210 CALL COLOR(14,T,T)
220 T=T+1
230 IF T=17 THEN T=1
240 GOTO 200
250 CALL CLEAR
260 CU=5 :: R=1 :: A(1)=0 :: A(2)=-7 :: A(3)=-10 :: A(4)=-7 :: A(5)=0
270 A(6)=7 :: A(7)=10 :: A(8)=7 :: A(9)=0 :: A(10)=-7 :: A(11)=-10
280 CALL CHAR(125,"0000001000000000183C52DFFB4A3C18347EFFFFFE7E7E2C")
290 CALL CHAR(128,"0008081C141C00000000201C141C00000000001C741C00000000001C141C2000")
300 CALL CHAR(132,"0000001C141C08080000001C141C02000000001C171C00000000021C141C0000")
310 FOR D=20 TO 4 STEP-1
320 CALL SPRITE(#D,127,8,D*8,1+INT(254*RND),4,-25+INT(50*RND))
330 IF D=5 THEN CALL MOTION(#D,4,-5+INT(10*RND)) :: CALL COLOR(#D,11) :: CALL PATTERN(#D,126)
340 IF D=12 THEN CALL MOTION(#D,4,-5+INT(10*RND)) :: CALL PATTERN(#D,32)
350 NEXT D
360 CALL SPRITE(#1,128,16,96,120)
370 DISPLAY AT(5,6):"Press FIRE to begin."
380 CALL KEY(1,K,S) :: IF S=0 THEN 380
390 CALL HCHAR(5,1,32,32)
400 GOTO 750
410 CALL JOYST(1,X,Y) :: IF X<>0 THEN 750
420 CALL COINC(ALL,FR) :: IF FR=-1 THEN 450
430 CALL KEY(1,K,S) :: IF K=18 THEN 790
440 GOTO 410
450 CALL COINC(#1,#CU,10,FR) :: IF FR=-1 THEN 680
460 CALL MOTION(#1,0,0)
470 CALL POSITION(#1,G,H)
480 C=16
490 CALL DELSPRITE(ALL)
500 FOR DE=1 TO 2
510 FOR D=1 TO 8
520 CALL SOUND(-200,-7,0)
530 CALL SPRITE(#D+1,125,C,G,H,A(D+2),A(D))
540 NEXT D
550 CALL DELSPRITE(#1)
560 C=5
570 NEXT DE
580 CALL DELSPRITE(ALL)
590 DISPLAY AT(12,7):"G A M E   O V E R"
600 FOR D=1 TO 200
610 NEXT D
620 DISPLAY AT(15,9):"SCORE : ";SCR
630 FOR D=1 TO 200
640 NEXT D
650 DISPLAY AT(23,1):"PRESS ANY KEY TO PLAY AGAIN."
660 CALL KEY(0,K,S) :: IF S=0 THEN 660
670 CALL CLEAR :: RUN
680 CALL COLOR(#CU,2) :: CALL PATTERN(#CU,32)
690 SCR=SCR+25
700 CALL SOUND(-50,990,0,999,0,995,0)
710 R=R+X/4 :: IF R=9 THEN R=1 ELSE IF R=0 THEN R=8
720 IF CU=5 THEN CU=12 ELSE CU=5
730 CALL COLOR(#CU,11) :: CALL PATTERN(#CU,126)
740 GOTO 420
750 R=R-X/4 :: IF R=9 THEN R=1 ELSE IF R=0 THEN R=8
760 CALL COINC(ALL,FR) :: IF FR=-1 THEN 450
770 CALL PATTERN(#1,127+R) :: CALL MOTION(#1,A(R+2),A(R))
780 GOTO 420
790 CALL MOTION(#1,A(R+2)*2,A(R)*2)
800 X=0
810 CALL COINC(ALL,FR) :: IF FR=-1 THEN 450
820 CALL SOUND(-150,-7,5)
830 CALL KEY(1,K,S) :: IF S<>0 THEN 810
840 GOTO 750

 

 

  • Like 6
Link to comment
Share on other sites

Fantastic video. You are hands-down the best video maker we have in our community.

 

There was another XB game that blew my socks off back in the day. It was called Secret Agent, written by Malcolm Adams, and distributed by Stainless Software in the UK (1984). I think it may have only been distributed in the UK. It's well worth a look if you can find it. There are screen shots here. I searched high and low, but I can't find the game :(

 

 

  • Like 4
  • Thanks 1
Link to comment
Share on other sites

Can't find Secret Agent by Malcolm Adams???  You must be using google.....


 


 

You can find it on my page of programs at:

http://shawweb.myzen.co.uk/stephen/pc99dsk.htm  and do a page search for Secret Agent, with other games by Malcolm.  He used to have his own web page with downloads but that has gone.  Some disks are pc99 format others v9t9 format - use Fred's Dir program to convert between the two.

 

Note that Secret Agent depends greatly on sprite speed and was written for European 50Hz  pal.

Sprite speeds will need adjusting for 60Hz NTSC consoles or emulations to avoid the agent jumping the wrong distances all the time.
 


 

In addition the TI Gamebase also has Secret Agent.  Still looking for TI Gamebase?  Safely tucked away, as a 435MB zip at:     http://tinyurl.com/y9xz6m46

regards     bb

 

Edited by blackbox
  • Like 2
  • Thanks 2
Link to comment
Share on other sites

2 hours ago, blackbox said:

You can find it on my page of programs at:

http://shawweb.myzen.co.uk/stephen/pc99dsk.htm  and do a page search for Secret Agent, with other games by Malcolm.  He used to have his own web page with downloads but that has gone.  Some disks are pc99 format others v9t9 format - use Fred's Dir program to convert between the two.

Oh no! That's my afternoon gone! :lol:

(Oh, and a big HELLO to you! Long time no see! :waving:)

  • Like 2
  • Haha 1
Link to comment
Share on other sites

16 hours ago, blackbox said:

Hiya Mark, how did the afternoon go?
Me? I was listening to this lovely audio CD called "Between the Strings" - I wonder how many of those there are around?
(Other members of this group may not be aware that Mark played (plays?) guitar...)
Take care..... bb

Oh, less than 50! I don't even have one myself any more (though I still have the tracks). I got exposure on the BBC and a trip to Pebble Mill out of it. Mixing with all the TV stars! Ha! Fun days! It was number 1 on the mp3.com blues charts for a while! Remember mp3.com? It was 24 years ago!!!! LOL!

  • Like 2
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...