typed in this BASIC game from "More BASIC Computer Games"!

https://archive.org/details/More_BASIC_Computer_Games

load it with:

brandy -load corral.bas

i think there is something wrong with the random movement code for the horse symbol H, so i will look into that.

i think now that i have a simple little development environment for typing out BASIC games, i can go through the book, and curate a sample of BASIC games for educational purposes (:

for those on mastodon who cannot see more than four attachments:

1 PRINT TAB(26);"CORRAL" 
2 PRINT TAB(20);"CREATIVE COMPUTING" 
3 PRINT TAB(18);"MORRISTOWN, NEW JERSEY"
4 PRINT:PRINT:PRINT
10 DIM A(21)
40 DIM S(2,9)
50 FOR I=1 TO 2:FOR J=0 TO 9
60 DATA 0,1,2,3,3,2,2,1,0,-1
70 DATA 1,2,3,4,5,4,3,2,1,0
100 PRINT "  YOU ARE THE COWBOY.  GO CATCH YOUR HORSE IN THE CORRAL!"
110 INPUT "DO YOU WANT FULL INSTRUCTIONS";F$
120 IF LEFT$(F$,1)="N" GOTO 190
130 PRINT "YOU MOVE TOWARD YOUR HORSE 1 TO 5 STEPS AT A TIME."
140 PRINT "IF YOU MORE THAN HALVE THAT SEPARATION HE WILL BOLT!"
150 PRINT "HE MAY ALSO BOLT WHEN HE IS CLOSE TO THE RAIL"
160 PRINT "WHEN YOU COME WITHIN 2 STEPS HE MAY KICK. SO LOOKOUT!!"
180 PRINT
190 PRINT "AFTER `?` TYPE IN DIGIT FROM 1 TO 5 FOR COWBOY`S NEXT MOVE"
200 C=1:L=1:K=0:M=0:N=0:GOSUB 800
220 IF R>5 THEN Q=-Q
225 H=13+Q:GOSUB 810
230 T=2+P:PRINT
300 B$="            "
310 FOR J=1 TO 21:A(J)=32:NEXT J
320 A(C)=67:A(H)=72
330 PRINT N,"I";
333 FOR J=1 TO 21:PRINT CHR$(A(J));:NEXT J
337 PRINT "I",B$;
370 X=ABS(H-C):L=SGN(H-C)
380 N=N+1:IF K>0 GOTO 640
390 IF N>100 THEN 980
395 INPUT D
400 IF D>0 AND D<6 GOTO 450
420 PRINT "ILLEGAL MOVE. TRY AGAIN",;:GOTO 390
450 E=C+L*D:IF E<1 OR E>21 THEN 420
460 C=E:GOSUB 800
510 G=P:H=H+L*G:GOSUB 810
530 IF X<2*D AND D>1 GOTO 570
540 IF H>1 AND H<20 THEN 600
545 GOSUB 800
550 IF R>2 GOTO 600
555 IF X>7 GOTO 300
570 G=9+2*P:H=H-L*G:L=-L:GOSUB 810
580 IF ABS(H-C)>1 THEN 590
585 H=H-3*L:GOSUB 810
590 B$="BOLTED      ":GOTO 310
600 IF ABS(H-C)>2 GOTO 300
605 GOSUB 800
610 IF R>3 GOTO 700
615 GOSUB 800
620 K=P+2:M=M+1:H=H-5*L:GOSUB 810
630 B$="KICKED":GOTO 310
640 IF M>T GOTO 900
650 K=K-1:PRINT:GOSUB 800
670 H=H+L*(P+1):GOSUB 810:GOTO 300
700 IF H=C THEN 930
705 GOTO 300
800 R=INT(10*RND(1)):P=S(1,R):Q=S(2,R):RETURN
810 IF H<1 THEN H=1
820 IF H>21 THEN H=21
830 RETURN
900 PRINT:PRINT "THOSE KICKS LANDED YOU IN THE HOSPITAL!"
910 PRINT " GET WELL SOON!!":GOTO 960
930 FOR J=1 TO 21:A(J)=32:NEXT J:A(C)=35
940 PRINT ,"I";
943 FOR J=1 TO 21:PRINT CHR$(A(J));:NEXT J
947 PRINT "I"
950 PRINT:PRINT "YIPPEE! NOW SEE IF YOU CAN CATCH HIM IN FEWER MOVES"
960 INPUT "ANOTHER ROUNDUP";F$
970 IF LEFT$(F$,1)="Y" THEN 200
975 GOTO 999
980 PRINT:PRINT "ENOUGH!! YOU`D DO BETTER AS CAMP COOK!":GOTO 960
999 END