100 REM-------- VERSION 4 4/27/69 RJC 105 PRINT "&K&J&J&J" 110 PRINT ,"PLAY----TAKE-A-WAY" 120 PRINT 130 PRINT 140 PRINT ,"DO YOU KNOW HOW TO PLAY"; 150 INPUT (1,0)" ---=>",B$ 160 IF B$="y" THEN 350 165 IF B$="Y" THEN 350 170 PRINT "&K" 180 PRINT ,"THIS GAME CONSISTS OF FOURTEEN" 190 PRINT ,"(O)S IN A LINE. YOU ARE ALLOWED" 200 PRINT ,"TO TAKE EITHER 1,2,OR 3" 210 PRINT ,"IN EVERY MOVE. YOU DO THIS BY" 220 PRINT ,"TYPING EITHER 1, 2, OR 3 WHENEVER" 230 PRINT ,"UNIVAC TYPES A . THE OBJECT IS TO" 240 PRINT ,"FORCE YOUR OPPONENT (UNIVAC) TO" 290 PRINT ,"TAKE THE LAST (O)" 300 PRINT ,"TO END THE GAME AT ANY TIME" 310 PRINT ,"ANSWER THE QUESTION MARK WITH A '0'" 340 PRINT 350 PRINT TAB(25);"READY" 360 PRINT 370 PRINT ,"SHALL I GO FIRST"; 380 INPUT (1,0)" ---=>",C$ 390 IF C$="y" THEN 1190 395 IF C$="Y" THEN 1190 400 PRINT 410 PRINT 420 PRINT ,"O O O O O O O O O O O O O O" 430 INPUT X 440 ON FNZ(X) GOTO 450,1080,1120,1160 450 PRINT ,"YOUR MOVE IS" 460 PRINT ,"0 O O O O O O O O O O O O O" 470 PRINT ,"UNIVAC TAKES ONE" 480 PRINT ,"0 0 O O O O O O O O O O O O" 490 INPUT X 500 ON FNZ(X) GOTO 510,890,930,1160 510 PRINT ,"YOUR MOVE IS" 520 PRINT ,"0 0 0 O O O O O O O O O O O" 530 PRINT ,"UNIVAC TAKES TWO" 540 PRINT ,"0 0 0 0 0 O O O O O O O O O" 550 INPUT X 560 ON FNZ(X) GOTO 570,800,850,1160 570 PRINT ,"YOUR MOVE IS" 580 PRINT ,"0 0 0 0 0 0 O O O O O O O O" 590 PRINT ,"UNIVAC TAKES THREE" 600 PRINT ,"0 0 0 0 0 0 0 0 0 O O O O O" 610 INPUT X 620 ON FNZ(X) GOTO 630,720,760,1160 630 PRINT ,"YOUR MOVE IS" 640 PRINT ,"0 0 0 0 0 0 0 0 0 0 O O O O" 650 PRINT ,"UNIVAC TAKES THREE FOR WIN" 660 PRINT ,"0 0 0 0 0 0 0 0 0 0 0 0 0 O" 670 PRINT 680 PRINT ,"DO YOU WANT TO PLAY AGAIN"; 690 INPUT (1,0)" ---=>",A$ 700 IF A$="y" THEN 340 705 IF A$="Y" THEN 340 710 GOTO 1310 720 PRINT ,"YOUR MOVE IS" 730 PRINT ,"0 0 0 0 0 0 0 0 0 0 0 O O O" 740 PRINT ,"UNIVAC TAKES TWO FOR WIN" 750 GOTO 660 760 PRINT ,"YOUR MOVE IS" 770 PRINT ,"0 0 0 0 0 0 0 0 0 0 0 0 O O" 780 PRINT ,"UNIVAC TAKES ONE FOR WIN" 790 GOTO 660 800 PRINT ,"YOUR MOVE IS" 810 PRINT ,"0 0 0 0 0 0 0 O O O O O O O" 820 PRINT ,"UNIVAC TAKES TWO" 830 PRINT ,"0 0 0 0 0 0 0 0 0 O O O O O" 840 GOTO 610 850 PRINT ,"YOUR MOVE IS" 860 PRINT ,"0 0 0 0 0 0 0 0 O O O O O O" 870 PRINT ,"UNIVAC TAKES ONE" 880 GOTO 830 890 PRINT ,"YOUR MOVE IS" 900 PRINT ,"0 0 0 0 O O O O O O O O O O" 910 PRINT ,"UNIVAC TAKES ONE" 920 GOTO 540 930 PRINT ,"YOUR MOVE IS" 940 PRINT ,"0 0 0 0 0 O O O O O O O O O" 950 PRINT ,"UNIVAC TAKES ONE" 960 PRINT ,"0 0 0 0 0 0 O O O O O O O O" 970 INPUT X 980 ON FNZ(X) GOTO 800,850,990,1160 990 PRINT ,"YOUR MOVE IS" 1000 PRINT ,"0 0 0 0 0 0 0 0 0 O O O O O" 1010 PRINT ,"UNIVAC TAKES ONE" 1020 PRINT ,"0 0 0 0 0 0 0 0 0 0 O O O O" 1030 INPUT X 1040 ON FNZ(X) GOTO 720,760,1050,1160 1050 PRINT ,"BINGO BINGO BINGO" 1060 PRINT ,"UNIVAC HAS BEEN DEFEATED" 1070 GOTO 660 1080 PRINT ,"YOUR MOVE IS" 1090 PRINT ,"0 0 O O O O O O O O O O O O" 1100 PRINT ,"UNIVAC TAKES THREE" 1110 GOTO 540 1120 PRINT ,"YOUR MOVE IS" 1130 PRINT ,"0 0 0 O O O O O O O O O O O" 1140 PRINT ,"UNIVAC TAKES TWO" 1150 GOTO 540 1160 PRINT ,"YOU FORFEIT THIS GAME" 1170 PRINT ,"FOR CHEATING!!!!" 1180 GOTO 680 1190 PRINT 1200 PRINT 1210 PRINT ,"UNIVAC TAKES ONE" 1220 PRINT ,"0 O O O O O O O O O O O O O" 1230 INPUT X 1240 ON FNZ(X) GOTO 1080,1120,890,1160 1250 DEF FNZ(X) 1260 IF X<1 THEN 1290 1270 LET X=X 1280 IF X<=3 THEN 1300 1290 LET FNZ=4 1300 RETURN (X) 1305 FNEND 1310 END