Re: Ancient Integer game - pushing blocks around to trap robots

[Andy McFadden <fadden@fadden.com>]

schmidtd@my-deja.com <schmidtd@my-deja.com> wrote:
> I believe the version I saw was typed in from a magazine, probably from
> 1979-1980 vintage or so (given the fact that it was in Integer BASIC).
> Does it ring any bells with anyone else?  Googling brings up lots of
> hits like CRobots and Daleks, but it really isn't anything close to
> being that sophisticated.

I found a lo-res version in Integer BASIC.  Doesn't look like block-pushing
was part of the game.

Here's the first part of it:

  100 REM        *** ROBOTS ***
  110 REM IDEA TAKEN FROM "MORE BASIC
  120 REM COMPUTER GAMES", EDITED BY
  130 REM DAVID H. AHL, BY NATE TRUHER
  140 TOPLINE=30000:BOTLINE=30010:LEFTLINE=30020:RIGHTLINE=30030:MIDLINE=30040:TP=41:BT=47:WD=6:MID=44:SP=2:BEG=8:CLR=32000
  150 POKE 1,TP: POKE 3,BT: DIM ROBOT(400): TEXT : CALL -936
  220 PRINT "YOU ARE SOMEWHERE ON A FIELD FILLED WITH";
  230 PRINT "AND SURROUNDED BY HIGH VOLTAGE BARRIERS.";
  240 PRINT "THIS IN ITSELF ISN'T SO BAD, BUT THERE"
  250 PRINT "ARE A NUMBER OF KILLER ROBOTS ON THE"
  260 PRINT "FIELD THAT WANT TO DO NASTY THINGS TO"
  270 PRINT "YOU, LIKE TWISTING YOUR NECK OFF.  YOUR"
  280 PRINT "SITUATION WOULD BE TOTALLY HOPELESS, BUT";
  290 PRINT "THE ROBOTS CAN ONLY DETECT OBJECTS THAT"
  300 PRINT "GIVE OFF HEAT, SO THEY CAN'T SEE THE"
  310 PRINT "BARRIERS OR EACH OTHER.  IF YOU CAN"
  320 PRINT "AVOID THE ROBOTS LONG ENOUGH TO GUIDE"
  330 PRINT "ALL OF THEM INTO THE BARRIERS OR EACH"
  340 PRINT "OTHER, YOU WILL BE SET FREE.  (IF YOU"
  342 PRINT "ARE HOPELESSLY STUCK, PRESSING EITHER"
  344 PRINT "BUTTON WILL CAUSE YOU TO JUMP TO SOME"
  346 PRINT "OTHER RANDOM SPOT ON THE FIELD, BUT"
  348 PRINT "YOU COULD LAND ON A BARRIER OR A ROBOT"
  350 PRINT "AND KILL YOURSELF.": PRINT 
  353 PRINT "THE WHITE SPACE IS THE FIELD, THE"
  354 PRINT "LINES ARE THE BARRIERS, THE RED DOTS ARE";
  355 PRINT "THE ROBOTS, AND YOU ARE THE BLACK DOT."
  357 PRINT : PRINT "PRESS RETURN WHEN READY";: CALL -756: CALL -936: PRINT "PLEASE CENTER YOUR JOYSTICK-"
  360 PRINT : PRINT "MAKE BOTH NUMBERS EQUAL TO ZERO WITH THEJOYSTICK THEN PRESS RETURN KEY:";

-- 
Send mail to fadden@fadden.com (Andy McFadden) - http://www.fadden.com/
CD-Recordable FAQ - http://www.cdrfaq.org/
CiderPress Apple II archive utility for Windows - http://www.faddensoft.com/
Fight Internet Spam - http://spam.abuse.net/spam/ & http://spamcop.net/