Jump to content

Photo

VINTAGE Games in BASIC


32 replies to this topic

#26 RXB OFFLINE  

RXB

    River Patroller

  • 3,583 posts
  • Location:Vancouver, Washington, USA

Posted Sun Apr 14, 2019 1:57 PM

If you can find them easily you should post these programs to save others the trouble of converting them.

I find this pretty hard to believe I am only one that owned this book and typed in the programs from it and converted them?

 

Hell exact duplicates were put out by 99er Mag and other PC mags.



#27 RXB OFFLINE  

RXB

    River Patroller

  • 3,583 posts
  • Location:Vancouver, Washington, USA

Posted Sun Apr 14, 2019 3:07 PM

I find it had to believe no one but me owned that book and converted programs out of it?

Though I do remember most were exact duplicates from 99er and other mags.

 

Anyway they have to be in this ZIP:

 

 

Attached Files



#28 twoodland OFFLINE  

twoodland

    Moonsweeper

  • 265 posts
  • Location:Delaware, OH

Posted Mon Apr 15, 2019 6:37 AM

I have converted game #1 Acey Ducey using minimal changes.  

10 PRINT TAB(26);"ACEY DUCEY CARD GAME"
20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
21 PRINT 
22 PRINT 
30 PRINT "ACEY-DUCEY IS PLAYED IN THE FOLLOWING MANNER "
40 PRINT "THE DEALER (COMPUTER) DEALS TWO CARDS FACE UP"
50 PRINT "YOU HAVE AN OPTION TO BET OR NOT BET DEPENDING"
60 PRINT "ON WHETHER OR NOT YOU FEEL THE CARD WILL HAVE"
70 PRINT "A VALUE BETWEEN THE FIRST TWO."
80 PRINT "IF YOU DO NOT WANT TO BET, INPUT A 0"
100 N=100
110 Q=100
120 PRINT "YOU NOW HAVE";Q;"DOLLARS."
130 PRINT 
140 GOTO 260
210 Q=Q+M
220 GOTO 120
240 Q=Q-M
250 GOTO 120
260 PRINT "HERE ARE YOUR NEXT TWO CARDS: "
270 A=INT(14*RND)+2
280 IF A<2 THEN 270
290 IF A>14 THEN 270
300 B=INT(14*RND)+2
310 IF B<2 THEN 300
320 IF B>14 THEN 300
330 IF A>=B THEN 270
350 IF A<11 THEN 400
360 IF A=11 THEN 420
370 IF A=12 THEN 440
380 IF A=13 THEN 460
390 IF A=14 THEN 480
400 PRINT A
410 GOTO 500
420 PRINT "JACK"
430 GOTO 500
440 PRINT "QUEEN"
450 GOTO 500
460 PRINT "KING"
470 GOTO 500
480 PRINT "ACE"
500 IF B<11 THEN 550
510 IF B=11 THEN 570
520 IF B=12 THEN 590
530 IF B=13 THEN 610
540 IF B=14 THEN 630
550 PRINT B
560 GOTO 650
570 PRINT "JACK"
580 GOTO 650
590 PRINT "QUEEN"
600 GOTO 650
610 PRINT "KING"
620 GOTO 650
630 PRINT "ACE"
640 PRINT 
650 PRINT 
660 INPUT "WHAT IS YOUR BET":M
670 IF M<>0 THEN 680
675 PRINT "CHICKEN!!"
676 PRINT 
677 GOTO 260
680 IF M<=Q THEN 730
690 PRINT "SORRY, MY FRIEND, BUT YOU BET TOO MUCH."
700 PRINT "YOU HAVE ONLY ";Q;" DOLLARS TO BET."
710 GOTO 650
730 C=INT(14*RND)+2
740 IF C<2 THEN 730
750 IF C>14 THEN 730
760 IF C<11 THEN 810
770 IF C=11 THEN 830
780 IF C=12 THEN 850
790 IF C=13 THEN 870
800 IF C=14 THEN 890
810 PRINT C
820 GOTO 910
830 PRINT "JACK"
840 GOTO 910
850 PRINT "QUEEN"
860 GOTO 910
870 PRINT "KING"
880 GOTO 910
890 PRINT "ACE"
900 PRINT 
910 IF C>A THEN 930
920 GOTO 970
930 IF C>=B THEN 970
950 PRINT "YOU WIN!!!"
960 GOTO 210
970 PRINT "SORRY, YOU LOSE"
980 IF M<Q THEN 240
990 PRINT 
1000 PRINT 
1010 PRINT "SORRY, FRIEND, BUT YOU BLEW YOUR WAD."
1015 PRINT : :
1020 INPUT "TRY AGAIN (YES OR NO)":A$
1025 PRINT : :
1030 IF A$="YES" THEN 110
1040 PRINT "O.K., HOPE YOU HAD FUN!"
1050 END 




#29 twoodland OFFLINE  

twoodland

    Moonsweeper

  • 265 posts
  • Location:Delaware, OH

Posted Mon Apr 15, 2019 6:40 AM

I find it had to believe no one but me owned that book and converted programs out of it?

Though I do remember most were exact duplicates from 99er and other mags.

 

Anyway they have to be in this ZIP:

 

 

 

Thank you for sharing those files!



#30 FDOS OFFLINE  

FDOS

    Moonsweeper

  • 279 posts

Posted Tue Apr 16, 2019 6:44 PM

Question how many XB are updated or still being supported today?

 

Is someone updating Myarc XB II?

 

I don't know, and I don't keep track, as I don 't care any more.  I have no time to learn anything new; TI or Geneve.



#31 LASooner OFFLINE  

LASooner

    Moonsweeper

  • 401 posts

Posted Tue Apr 16, 2019 6:59 PM

I find this pretty hard to believe I am only one that owned this book and typed in the programs from it and converted them?

 

Hell exact duplicates were put out by 99er Mag and other PC mags.

 

I already wrote that I did, and that I no longer have the cassettes 


  • RXB likes this

#32 FarmerPotato ONLINE  

FarmerPotato

    Moonsweeper

  • 340 posts
  • Location:Austin, TX

Posted Wed Apr 17, 2019 9:36 AM

For the more interesting programs, the screen width was the main limiting factor. I remember way back when trying to convert a really cool naval warfare game (I think it's in Ahl's second book) but being thwarted by the fact that it required 80 columns...

 

I spent many after school days and summers working on programs out of the two David H. Ahl books of Creative Computing.

 

I remember adapting the red book's Seabattle to 28 columns with graphic characters (I especially liked the sea monster.) It's like TI Trek but with a submarine, torpedoes, island base, and sea monsters. (Apt, because the Enterprise is basically a submarine in space.) ("The real name of this program is, "Underwater Pie Lob")

 

From the first book my favorite was Hammurabi (I never had the TI version from Oldier but Goodies I), a strange lifelong affinity that 30 years later led me to the basement of the Oriental Institute of Chicago.

 

From the third book of much bigger programs, I adapted Dukedom to look nice in Extended Basic.

 

I purchased the eBooks of Ahl when he had an official website, and the  BekerBot folio of robot illustrations from the books. I have converted some BekerBots into vector artwork and made one very large gold foil covered version.

 

Love those BekerBots.

 

http://www.bekerbots.com/botbooks.htm



#33 Vorticon OFFLINE  

Vorticon

    River Patroller

  • 3,726 posts
  • Location:Eagan, MN, USA

Posted Wed Apr 17, 2019 11:35 AM

 

I spent many after school days and summers working on programs out of the two David H. Ahl books of Creative Computing.

 

I remember adapting the red book's Seabattle to 28 columns with graphic characters (I especially liked the sea monster.) It's like TI Trek but with a submarine, torpedoes, island base, and sea monsters. (Apt, because the Enterprise is basically a submarine in space.) ("The real name of this program is, "Underwater Pie Lob")

 

 

You were able to adapt Seabattle??? I recall trying - and failing miserably - to do that. I eventually typed it in on my PCjr much later and it definitely is a fun game. My favorite as a matter of fact out of all of Ahl's books.

You wouldn't still have a copy of the TI version, wouldn't you?






0 user(s) are browsing this forum

0 members, 0 guests, 0 anonymous users