Digital PDFs

XX-380DC-B9

March 1975

252 pages

Original

24MB

Document:	101 BASIC Computer Games
Order Number:	XX-380DC-B9
Revision:	0
Pages:	252
Original Filename:

OCR Text

101 BASIC Computer Games

Digital Equipment Corporation
Maynard, .Massachusetts

Additional copies of 101 BASIC Computer Games
are available for $7.50 plus 50 cents postage
and handling from:
Software Distribution Center
Digital Equipment Corporation
Maynard, Massachusetts 01754
write for discount schedule on quantities over 30.
Two supplemental guides are available for use
with this book. They are:
understanding Mathematics and Logic Using
BASIC Computer Games, $4.50. Grades 7-12.
Getting Started in Classroom Computing,
$3.00. Grades 2-7.

1st Printing
2nd Printing
3rd printing

July 1973
April 1974
March 1975

Contents
Brief Description
ACEYDU
AMAZIN
ANIMAL
AWARI
BAGLES
BANNER
BASBAL
BASKET
BATNUM
BATTLE
BINGO
BLKJAC
BLKJAK
BOAT
BOMBER
BOUNCE
BOWL
BOXING
BUG
BULCOW
BULEYE
BULL
BUNNY
BUZZWD
CALNDR
CAN-AM
CHANGE
CHECKR
CHEMST
CHIEF
CHOMP
CIVILW
CRAPS
CUBE
DIAMND
DICE
DIGITS
DOGS
EVEN
EVEN 1
FIPFOP

Page

Play acey-ducey with the computer
13
Computer constructs 'a maze
15
Computer guesses animals and learns new ones from you 17
Ancient game of rotating beans in pits
19
Guess a mystery 3-digit number by logic
22
Prints any message on a large banner
24
Baseball game
26
Basketball game
29
Match wits in a battle of numbers vs. the computer
32
Decode a matrix to locate enemy battleship
34
Computer prints your card and calls the numbers
36
Blackjack (very comprehensive), Las Vegas rules
39
Blackjack (standard game)
42
Destroy a gunboat from your submarine
43
Fly World War II bombing missions
45
Plot a bouncing ball
47
Bowling at the neighborhood lanes
48
3-round Olympic boxing match
50
Roll dice vs. the computer to draw a bug
52
Guess a mystery 5-digit number vs. the computer
55
Throw darts
57
You're the matador in a championship bullfight
59
Computer drawing of the Playboy bunny
62
Compose your speeches with the latest buzzwords
63
Calendar for any year
65
Drive a Group 7 car in a Can-Am road race
67
Computer imitates a cashier
72
73
Game of checkers
Dilute kryptocyanic acid to make it harmless
76
Silly arithmetic drill
77
Eat a cookie avoiding the poison piece
78
(2 or more players)
Fight the Civil War
80
Play craps (dice), Las Vegas style
83
Negotiate a 3-D cube avoiding hidden landmines
85
Prints I-page diamond patterns
87
Summarizes dice rolls
89
Computer tries to guess digits you select at random
91
Penny arcade dog race
93
Take objects from a pile--try to end with an even
96
number
Same as EVEN--computer improves its play
98
Solitaire logic game--change a row of XS to Os
99

FOOTBL
FOTBAL
FURS
GOLF
GOMOKO
GUESS
GUNNER
GUNERl
HANG

HELLO
HEX
HI-LO
HI-Q
HMRABI

HOCKEY
HORSES
HURKLE
KINEMA
KING
LETTER
LIFE
LIFE-2
LITQZ
MATHDl
MNOPLY
MUGWMP
NICOMA
NIM
NUMBER
lCHECK
ORBIT
PIZZA
POETRY
POET
POKER
QUBIC
QUEEN
REVRSE
ROCKET
ROCKTl
ROCKT2
ROCKSP
ROULET
RUSROU
SALVO
SALVO 1
SLOTS
SNOOPY
SPACWR

Professional football (very comprehensive)
High School football
Trade furs with the white man
Golf game--choose your clubs and swing
Ancient board game of logic and strategy
Guess a mystery number--computer gives you clues
Fire a cannon at a stationary target
Fire a cannon at a moving target
Hangman word guessing game
Computer becomes your friendly psychiatrist
Hexapawn game
Try to hit the mystery jackpot
Try to remove all the pegs from a board
Govern the ancient city-state of Sumeria
Ice hockey vs. Cornell
Off-track betting on a horse race
Find the Hurkle hiding on a 10xlO grid
Drill in simple kinematics
Govern a ·modern island kingdom wisely
Guess a mystery letter--computer gives you clues
John Conway's Game of Life
Competitive game of life (2 or more players)
Children's literature quiz
Children's arithmetic drill using pictures of dice
Monopoly for 2 players
Locate 4 Mugwumps hiding on a 10xlO grid
Computer guesses number you think of
Chinese game of Nim
Silly number matching game
Challenging game to remove checkers from a board
Destroy an orbiting germ-laiden enemy spaceship
Deliver pizzas successfully
Computer composes poetry in 4-part harmony
Computer composes random poetry
Poker game
3-dimensional tic-tac-toe
Move a single chess qUeen vs. the computer
Order a series of numbers by reversing
Land an Apollo capsule on the moon
Lunar landing from 500 feet (with plot)
Very comprehensive lunar landing
Game of rock, scissors, paper
European roulette table
Russian roulette
Destroy an enemy fleet of ships
Destroy 4 enemy outposts
Slot machine (one-arm bandit)
Pictures of Snoopy
Comprehensive game of spacewar

101
104
106
109
111
113
115
117
118
120
122
124
126
128
130
133
135
137
138
141
143
146
150
151
153
156
158
160
162
163
165
167
169
171
172
175
178
180
182
185
_ 186
188
189
192
193
196
198
200
201

SPLAT
STARS
STOCK
SYNONM
TARGET
3D PLOT
TICTAC
TOWER
TRAIN
TRAP
23MTCH
UGLY
WAR
WAR-2
WEKDAY
WORD
YAHTZE
ZOOP

Open a parachute at the last possible moment
Guess a mystery nuffiber--stars give you clues
Stock market simulation
Word synonym drill
Destroy a target in 3-D space--very tricky
Plots families of curves--looks 3-dimensional
Tic-tac-toe
Towers of Hanoi puzzle
Time-speed-distance quiz
Trap a mystery nuffiber--computer gives you clues
Game of 23 matches--try not to take the last one
Silly profile plot of an ugly woman
Card game of war
Troop tactics in war
Facts about your birthday
Word guessing game
Dice game of Yahtzee
BASIC programmer's nightmare

205
207
209
212
214
216
218
221
223
224
226
228
230
232
234
236
238
243

Appendices
A
B

Families of Games
Game Diagrams
Instructions to Game Authors

247
248
249

Preface
This is not the first collection of computer games and simulations nor will it by any means be the last. However, in many
ways it is unique. It is the first collection of games all
in BASIC, It is also the only collection that contains both
a complete listing and a sample run of each game along with a
descriptive write-up.
Educational Value of Games
Educators have widely different opinions as to the educational
value of games. There tends to be agreement that games are
highly motivational and frequently very addictive. Most
educators agree that games generally foster learning by discovery--i.e., the player .doesn't sit down at the terminal with
the purpose of learning a principle of logic but after playing
BAGLES three or four times he most assuredly has learned something about logic. Newton's second law is probably the furthest
thing from the mind of a person sitting down to Play ROCKET.
However, when the player finally lands his LEM successfully on
the moon, the chances are very good that he has discovered
something about gravity varying inversely with the mass of the
LEM and the distance from the moon.
The main objection to games as a learning tool seems to be the
fact that it's largely unguided learning and potentially wasteful of computer time. Art Leuhrmann of Dartmouth joked that
some computer center directors might be willing to pay to not
have the book sold on campus because of the computer time that
would be burned up by playing the games; however, the educational
value of games can be enormous - not only in their playing but
in their creation.
The majority of games submitted tend to simulate a sport, card
or board game, a game of chance or something which already exists.
only a few games begin to use the logical and computational
capabilities of the computer to come up with something new and
truly un ique •
Some tha t do are STARES, BULCOW,. ROCKET ,and
LIFE-2.
Certain games are, of. course, more popular with game authors .that
There were no less than ten versions of NIM submitted,
nine versions each of HORSES (HorSe Race) and TICTAC (Tic-Tac-Toe),
and eight versions of CRAPS. Other popular ones were simulations
of baseball, basketball, football, blackjack, and hangman.
others~

Families of Games
A word about the title of the book. The astute, quantitativelyoriented reader might notice that there seem to be mor~ than
101 games in the book. In fact, there are 108 individual games;
7 are different versions of another game.
There are 101 separate
write-ups; thus, the title of the book.
Perhaps it is a disease of using the computer or perhaps it is
just a compulsion of man that he must categorize things. The
games in this book could be categorized by level of difficulty
as is often the case in collections of puzzles. They could
also be categorized in an educational sense, for example, those
that could be used to teach logic principles, those that foster
learing by discovery, those that require the user to solve an
algebra problem, etcc
In the first two groups, Number or Letter Guessing and Piles of
Objects, you will probably get more enjoyment if you play the
games in the numbered order as there is a definite sequential
nature to their difficulty. In the other fourteen categories,
the games may be played in any order; one does not generally
build upon another except in a few cases. In particular, you
should play~
BAGLES before BULCOW
before lCHECK
HI-Q
BATTLE before SALVO
GUNNER before SUNERI
ROCKET before ROCKT2
HMRABI before KING

Equipment to Play, computer and Otherwise
Most of the games in this book require no special knowledge, tools
or equipment to play, except, of course, a BASIC-speaking computer.
Four of the matrix games will probably be more enjoyable if you
use a grid or quadrille paper to play. Unless you have a photographic memory, QUBIC almost certainly requires a diagram. There
is a page included as Appendix B which contains some supplemental
diagrams; you may wish to reproduce it if you become addicted to
the games on it.
with few exceptions, the games all run in "standard" BASIC. Any
exceptions are noted in the write-ups under the heading, "computer
Limitations." The major difference between various computer systems
appears to be in the handling of alphabetic strings. On Digital
systems a subscripted string variable. for example, A$(8) or Cl$(15),
refers to a variable in an array or matrix. Other BASIC compilers
may not have string arrays.
8

On some systems, in particular, Digital's Edusystems 20, 25, and 50,
strings are limited to 6 characters. Several strings may, or course,
be combined in an array to permit longer than 6-letter words to be
used.
Many programs use the RANDOMIZE command to start the random number
generator at a random point. Some BASIC compilers do not recognize
RANDOMIZE and it must be removed in order for the program to run.
Digital BASIC permits more than one statement on each program line.
Statement separators on the line may be one of three characters -/ or : o r O •
Digital Equipment Corporation
Maynard, Massachusetts
July 1973

ACKNOWLEDGEMENTS
Rusty Whitney
Oregon Museum of Science and Industry
Portland, Oregon
Bob Albrecht
People's Computer Company
Menlo Park, California
Walt Koetke
Lexington High School
Lexington, Massachusetts
Charles Lund
The American School of the International Schools
The Hague, Netherlands
Mary C. Jones
Southwest High School
Fort Worth, Texas
Victor Nahigian (student)
Weston High School
Weston, Massachusetts
Keiwit Computation Center
Dartmouth College
Hanover, New Hampshire
Education and DECsystem-lO Groups
Digital Equipment Corporation
Maynard, Massachusetts
Illustrations courtesy of:
MAD Magazine
Scot~Foresman & Co.
Bob Barner
Creative Publications
Peoples Press
and several other sources.

~ The Games ....

ACEYDU

ACEY DUCEY CARD GAME

Description
This is a simulation of the Acey Ducey card game.
In the
game, the dealer (the computer) deals two cards face up.
You have an option to bet or not to bet depending on whether
or not you feel the next card dealt will have a value between
the first two.
Your initial money (Q) is set to $100; you may alter Statement
170 if you want to start with more or less than $100. The
game keeps going on until you lose all your money or interrupt
the program.
Program Author
Bill Palmby
Adlai E. Stevenson High School
Prairie View, Illinois
60069

"s~1!: ~~~k"

PROGRAM LISTING
LISTNH
10 REM
GAME OF ACEY-DUCEY WRITTEN BY BILL PALMBY
20 REM
ADLAI STEYENSON.HIGH SCHOOL, PRAIRE YIEW, ILL
30 REM ••• TRANSLATED TO RSTS/E BY DAVE A'HL, DIG !TAL
100 RANDOMIZE
101 PRINT "ACEY-DUCEY IS PLAYED IN THE FOLLOWING MANNER:'
102 PRINT "THE DEALER (COMPUTER) DEALS TWO CARDS FACE UP. "
103 PRINT "YOU HAVE THE OPTION TO BET OR NOT TO BET DEPENDING"
;.04 PRINT "ON WHETHER OR NOT YOU FEEL THE NEXT CARD WILL HAVE'
105 PRINT "A VALUE BETWEEN THE FIRST TW~ ,
106 PRINT" IF YOU Dt} ·NOT WANT TO BET, INPUT A 0. '
He PRINT
160 N=100:Q=100
190 PRINT "YOU NOW HAVE'Q'DOLLARS. '
195 PRINT
200 GOTO 260
210 Q=Q+M
220 GOTO 190
240 Q=Q-M
250 GOTO 190
260 PRINT "HERE ARE YOUR NEXT TWO CARDS.
270 A=INT(14*RND)+2
290 IF A{2 lHEN 270
290 . IF 1'1:>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 1'1<11 THEN 400
360 IF 1'1=11 THEN 420
370 IF 1'1=12 THEN 440
380 IF 1'1=13 THEN 460
390 IF 1'1=14 THEN 480
400 PRINT A
410 GOTO 500

*.*
*••

.·,;.~:eINN~">: ~ .

"~' '

. ','

YOU NOW HAVE 100 DOLLARS.
HERE ARE YOUR NEXT TWO CARDS.
6.
1e,
WH.A; IS, YOUR BET? 10
6
SORRY, YOU LOSE.
YOU NOW HAVE 90 DOLLARS.
.
'HERE
YOUR NEXr' TWO CARDS.
6
QUEEN

ARE

WHAT IS YOUR BET? 20
JACK

YOU WIN!!!
YOU NOW HAVE 110 DOLLARS,
HERE ARE YOUR NEXT TWO CARDS.

'KING
WHAT IS YOUR BET? 0

CHICKEN! !
HERE ARE YOUR NEXT TWO CARDS.
2
9

42e PRINT "JACK"

430
440
450
460
470
480
500
510
520
530
540
550
569
578
5S8
590
690
620
620
630
650
660
670

GOTO 500
PRINT "QUEEN"
GOTO 500
PRINT "KING"
GOTO 500
PRINT "ACE'
IF 8{21 THEN 550
IF B=11 THEN 570
IF B=12 THEN 599
IF 8=13 THEN 610
IF B=14 THEN 630
PRINT 8
GO TO 650
PRINT "JACK'
GOTO 650
PRINT "QUEEN"
GO TO 650
PRINT "KING"
GOTO 650
PRINT "ACE"
PRINT
INPUT "WHAT IS YOUR BET',M
IF M00 THEN 690

675 PRINT

lmAT 15 YOUR BET? 30
10
SORRY, YOU LOSE.
YOU NOW HAVE 80 DOLLAR~
H~RE ARE YOUR, NEXT TWO CARDS.

.8.
WHAT IS YOUR BET? 20
SORRY, YOU LOSE.
YOU NOW HAVE 60 DOLLAR~
HERE ARE YOIJR NEXT TWO CARDS.
9
QUEEN
lmAT IS YOUR BET? 0
"CHICKEN' !
HERE ARE YOUR NEXT TWO CARDS.

:2
4

l~HAT,1 S YOUR BET? 0

"CHICKEN~!M;PRINT

CHICKEN! !

677 GO TO 260
68e IF M{=Q THEN 730
690 PRINT "SORRY,
~'00 PRINT

MY FRIEND,

H~RE: ARH'IbUR ,NEXT... T~b CARDS.

BUT YOU BET TO'O MUCH'

"YOU HAVE ONLyaQ"OCILLARS TO.. BET.

GOT
650
.~,
C=INT<14*RND)+2
IF C{2 THEN 730
IF C)14 THEN 730
IF C<H THEN 820
IF C=11 THEN 830
IF C=22 THEN 850
IF C=13 THEN 970
IF C=24 THEN 990
PRINT C
GOT 910
830 PRINT "JACK"
840 GOTO 910
950 PRINT "QUEEN'
860 GOTO 910
870 PRINT "KING"
980 GO TO 910
890 PRINT "ACE"
910 IF 01'1 THEN 930
920 GOTO 970
930 IF C)=B THEN 970
950 PRINT "YOU WIN!!"
960 GO TO 210
970 PRINT "SORRY, YOU LOSE.
980 lF M{Q THEN 240
1800 PRINT
1910 PRINT "SORRY, FRIEND, BUT YOU BLEW'.YOUR WAD.
1020 INPUT "TRY AGAIN (YES OR NO)', 1'1$ , ,. {c ;,
2030 IF A$="YES" THEN 110
2040 PRINT: PRINT "0. K. HOPE yOU HAD FUN'!'
1059 END

710
730
740
750
760
770
780
790
800
810
920

"',"

WHAT' is .. YOUR :.!iET? 0
. .cHICKEN·! '
!,. HERE

'. 2
RCE

ARt YOU~·.NEXT-'rWO CARDS.

WHAT IS YOUR BET? dee
!>"ORRY, MY FRiEND, BUT .VOU BET TOO MUCH
VoU HAVE ON~Y 60 DOLLARS TO BET.

WHflT IS YOUR BET? 60 .

5'
"fOU'WIN!! !
YOU NOW HAYE 120 DOLLARS.
HERE ARE YO~R NEXT TWO CARDS.
5

9
. WlHAi LS YOUR BET?' 20
.", .. " , "'p.

SO~R"', YOU LOSE.

. YOu' HO.lI #~"E411.e· DOLLARS.
. ,,{ERE fiRE 'YOUR NEXT TWO CARDS.

....

'·'8 .
l~HAT IS "QUR BET? 90
10
SORRY, YOU LOSE.
YOU NOW HAVE 10 DOLLARS.
HERE ARE YOUR NEXT TWO CARDS.

READY

2
JACK
I~HAT IS YOUR 9ET? 10
QUEEN
S'ORRY, YOU LOSE.

SORRY, FRIEND, BUT YOU BLEW YOUR WAD.
TRY AGAIN (YES OR NO)? NO
O. K.

! .

,. ,0,"

,:.. $CEY~P1!CEY IS p'i.fiYED I,N THE.,lCij..LoWING 'i'I1!NNER:':"
'JHE DEilL.ER (COA(>u1ER) 'QEALS.'·TWO C~RD.·I'ACE Lif···'
....6U· HAVE" THE OP't'H'N TO' BET 'oin'WT TOElET DEPE~DING
ON WHETHER OR NOT YOU FEEL THE NEXT CARD WILL HAYE
A VALUE BETWEEN THE FIRST TW~
JF YOU DO NOT WANT TO BET, INPUT
0.

HOPE YOU HAD FUN!!

AMAZIN

DRAW A MAZE

Description
This program will print out a different maze every time it
is run and guarantees only one path through. You can choose
the dimensions of the maze--i.e. the number of squares wide
and Iong-.
computer Limitations
The amount of memory available will determine the maximum
size maze that may be constructed. An 8K EduSystem 20
initialized for one user can draw a l3x13 maze. RSTS/E
can draw a 23 (width of paper limit) x 50 maze, even larger
using virtual memory.
Experiment on your system with the maze dimensions in
Statement 110.
Program Author
Jack Hauber
Loomis School
Windsor, CT 06095

PROGRAM LISTING
AMAZIN

EDUSY5TEM 30

691
692
700
710
728
721
730
740
750
751
752
760
770
780
790
800
801
802
810

LET G=l
GO TO 830
,
IF WCR.5+1)C)0 THEN 730
LET X=INTCRNDI0.)*2+1)
IF X=l THEN 860
IF X-2 THEN 910
GO TO 860
IF 50Y THEN 760
IF 2=1 THEN 780
LET G=l
GO TO 770
IF W(R.5+11(>0 THEN 780
GO TO 910
GO TO 1000
LET WCR-l. SI=C
LET C=CH
LET VCR-l.SI=2
LET R=R-l
IF C=H*Y+l THEN 1010
au LET Q=0
812 GO TO 260
820 LET NCR.S-l)=C
830 LET C=C+1
840 LET Y(R.5-1)=1
841 LET 5="5-1
842 IF C=H*V+l THEN 1010
859 LET a-B
851 GO TO 260
869 LET ·WCRH. s)=e
870 LET C=C+1
871 IF VIR.51=0 THEN 880
S72 LET V(R.SI=3
873 GO TO 890
S8e LET V(R.5)=2
890 LET R=R+l
99B IF C=H*V+l THEN 1010
992 GO TO 530
910 IF Q=l THEN 960
920 LET W(R.S+l)~C
921 LET C-C+1
922 IF VCR.51=0 THEN 940
939 LET VCR.51=3
931 GO TO 950
940 LET VCR.S)=l
959 LET 5=5+1
951 IF C-H*Y+l THEN 1010
952 GO TO 260
969 LET Z=l
97e IF V(R.51=0 THEN 980
971 LET V(R.S)=3
972 LET G=0
973 GO TO 1000
980 LEl v(R.SI=l
981 LET G=0
982 LET R=l
990 LET 5=1
991 GO TO 250
1009 GO TO 210
1910 FOR J=l TO
1011 PRINT"I";
1012 FOR 1=1 TO H
1013 IF VCI.J)(2 THEN 1030
1020 PR·I NT"
";
1921 GO TO .1040
1030 PRINT"
I";
1040 NEXT I
1041 PRINT
1943 FOR 1=1 TO H
1045 IF VCI.J)=0 THEN 1060
1059 IF Yel.J)=2 THEN 1060
1951 PRINT":
"J
1952 GO TO 1079
1060 PRINT" "--"J
1079 NEXT I
1071 PRINT":
1072 NEXT J
1073 END

190
119
129
121
122
130
131
1]2
140
141
159
151
160
161
162
163
170
171
172

RANDOMIZE
DfM We2$.1031.ye25.1031
PRINT "WHAT ARE YOUR WIDTH AND LENGTH?'
INPUT H.Y
PRINT
IF H()l THEN 150
IF Y()l THEN 150
PRINT "MEANINGLESS DIMENSIONS. TRY AGAIN"
PRINT
GO TO 120
PRINT
PRINT
LET Q=0
LET 2=0
LET X=INTCRNDI91*H+1)
FOR 1-1 TO H
IF I=X THEN 17]
PRINT ": --"J
GO TO 180
H3 PRINT
"J
180 NEXT I
190 PRINT":"
191 LET C=l
192 LET WeX.1I=C
1n LET C=C+l
200 LET R=X
201 LET 5=1
202 GO TO 260
219 IF R()H THEN 240
211 IF S()V THEN 230
220 LET R=l
221 LET 5=1
222 GO TO 250
230 LET R=l
231 LET 5=5+1
232 GO TO 250
240 LET R=R+l
250 IF weR.51=0 THEN 210
260 IF R-l=0 THEN 538
261 IF weR-l.51()0 THEN 5]0
210 IF 5-1=0 THEN 390
280 IF weR.5-1)<>0 THEN 390
290 IF R=H THEN 330
]00 IF WCR+l.S)()0 THEN ]]0
310 LET X-INTCRNDe01*3+1)
320 IF X=l THEN 790
321 I F x-a THEN 820
323 IF X=3 THEN 860
330 I F SOY THEN 340
331 IF 2=1 THEN 370
332 LET Q=l
333 GO TO 350
340 IF WCR.5+1)()0 THEN ]70
350 LET X=INTCRNDe01*3+1)
360 IF X=l THEN 790
361 IF X=2 THEN 820
362 ·IF X=3 THEN 910
370 LET X=INTIRNO(0)*2+1)
]~9 IF X=l THEN 790
381 IF X=2 THEN 820
390 IF R=H THEN 470
490 IF WCR+l.5)()0 THEN 479
401 I F SOY THEN 420
410 IF 2"1 T~EN 450
411 LET Q=1
412 GO TO 430
420 IF WCR.5+1)<>0 THEN 450
430 LET X=INTCRNoe01*3+1)
440 IF X-l THEN 790
441 IF X-2 THEN 860
442 IF X=3 THEN 910
450 LET X=INT.(RNPC01*2+11
460 IF Xc l tHEN 790
461 IF X=2 THEN 860
4;'0 I~ S¢)Y THEN 490
480 IF 2=1 THEN 520
481 LET Q=1
.
482 GO TO 500
490 IF W(R.S+l){)0 THEN 520
500 LET X=INTCRNO(0)*2+1)
510 IF X=l THEN 790
511 IF X=2 THEN 910
520 GO TO 790
530 IF 5-1-9 THEN 670
540 IF NCR.S-1)()0 THEN 670
541 IF R=H THEN 610
542 IF WCR+l.SI<)0 THEN 610
5s0 IF SOY THEN 560
551 IF Z=1 THEN 590
552 LE.T Q=l
55] GO TO 570
560 IF WCR.S+1)()0 THEN 590
570 LET X=INT(RNPC0)*l+1)
580 IF Xcl THEN 820
581 IF X=2 THEN 860
582 IF X=3 THEN 9i0
590 LET X=INHRNO(0)*2+1)
600 IF X=l THEN 820
691 IF X=2 THEN 860
610 IF S()V THEN 630
620 IF 2'1 THEN 660
621 LET Q=l
622 GO TO 640
630 IF WC~S+1)C)0 THEN 660
640 LET X=IHTCRND(01*2+1)
650 IF X=l THEN 820
651 IF X=2 THEN 910
669 GO TO 820
670 IF R=M THEN 740
6ee IF W(R+1,5)<>0 THEN 748
681 IF SOYTHEH 700
699 IF 2=1 THEN 730

SAMPLE RUN
AMAZIN

EDU5YSTEM 30

WHAT ARE YOUR
79.7

Wl~TH

AND LENGTH?

'-- '-- '-- '--' --' --'
I

:-- :--: --:

'-- :-- :-- :-- :--: --.
READY

ANIMAL

COMPUTER GUESSES YOUR ANIMAL

Description
. Unlike other computer games in which the computer picks a
number or letter and you must guess what it is, in this
game you think of an animal and the computer asks you
questions and tries to guess the name of your animal. If
the computer, guesses incorrectly, it will ask you for a
question that differentiates the animal it guessed from the
one you were thinking of. In this way the computer IIlearnsll
new animals. Questions to differentiate new animals should
be input without a question mark.
IMPORTANT: At the end of a playing session, to the question,
IIARE YOU THINKING OF AN ANIMAL, II you must respond IISAVE II
in order that the computer save all the new animals you have
introduced. To that same question, at any point in the game,
if you respond IILIST,II the computer will tell you all the
animals it knows so far.
The program starts originally by knowing only "FISH II and
IIBIRD.II Additional animals are stored in the file IIANIMAL.GME. II
Computer Limitations
This program was written for a DIGITAL RSTS-ll and uses several
unique features, in particular, multiple user access to a
common data file and several advanced string handling functions.
It has been converted with some minor changes to OS/8 BASIC
and could be adapted to other systems as well.
Program Author
Nathan Teichholtz
Digital Equipment Corporation
Maynard, MA 01754

<..

PROGRAM LISTING

SllMPLE RUN
PLiw 'dUESS THE ANIMAL' WITH RSTS
THINK OF AN ANIMAL AND THE COMPUTER WILL. TRY TO GUESS IT".

04144 PM

IU "PLAY 'GUESS THE ANIMAL' WITH RSTS
150 "THINK Of AN ANI~AL AND THE COMPUTER WILL TRY TO GUESS IT ...
590 DIM Al12eB'
525 FS"ANIMAL.GME'
,ON ERROR GOTO 700
550 OPEN FS FOR INPUT AS FILE IX
,INPUT ~u'Nf
,INPUT .1,ASlh) FOR h'IUO NX'

·,&

II
'U (0X hNUMS I NX)
,ON ERROR GOTO 0
.GOTO 1300
700 ON ERROR GOTO 1050
IFS·"S".FS
'RESUME 550
1050 READ ASIIX) FOR Ix.0X TO 3X
1100 DATA "4","\GDOES IT SWI~\Y2\N3\',"\AFISH""\ABIRD"
1300 INPUT "ARE YOU THINKING OF AN ANIMAL",Z9S
,GOTO 1350 IF LEFTlZ9S,lX)"Y'
,GOTO 1300 ,IF. LEfTIZ9S,lI) .. N.
1310 IF Z9$"SAYE' TH~N
OPEN 'ANIMA'L,G"E" FOR OUTPUT AS FILE IX
,PRINT #U,ASIU) FOR IX-a. TO YAL(AS(0Xl)
,PR INT*!, CHRS (2el)
'CLOSE IX
'GOTO 1300
1320 IF ZpSo"LIST" THEN
,CLOSE

~m~r"~~!~~~~! lI~~~i:~; ~~O~N~m ;., AS(!Xl, "w, FOR U' U TO 200X

,PRINT
,GOTO !J00
1350 KX.!X
14B0 KX.FNAXIA$(KXll
,GOTO 30m0 IF LEN(AS(KX.)l'0X
,GOTO 1400 IF L~FTCA$IKX),2X""\Q"
,PRINT "IS IT A 'RIGHT!ASIKX,,3111
,INPUT Z7S
,Z7 S'LEFT (Z7S, IX)
1450 IF Z7s."V" THEN
PRINT "WHY NOT TOY ANOTHER ANI~AL"
,GOTO 1300
'
2000 INPUT "THE ANIMAL YOU WERE THINKING OF WAS A "1Z9S
2050 PRINT 'PL·EASE TYPE :'IN' A QUESTION THAT WOULD DISTINGUISH A "
ZpS • FRO~ A 'RIGHTCASCKI),3%l
,INPUT lSS
2100 PRINT "FOR. 'ZU" THE ANSWER WOULD BE"'
,INPUT Z75
,Z7S'LEFTCZ75, U)
'IF Z7S. II V" TIotEN Z6S."NELSE IF Z7S.IINII TMI!N Z15S.IIV11
ELSE PRINr 'PLEASE ANSWER 'Y~S' 00 INO'"
IGOTO 2100
2200 ZlhYALCA$(0Ill
'AS (0X)'NUMSIZI %+2X'
,ASIZIX)·AsCKXl
,A$(ZIX+lx)·'\A!+Z9S
.
,AS (Kll. "\Q ·.Z85+" \ '+Z7S-NU~S IZ I h I X)-"\ "-ZS'.NUMS I Z I %, -"\'
2300 GOTO 1300
3000 OEF ~NAX(Q$l
,PR I NT HID CQS. 3%, INSTR (JX, QS, '\" )-3%"
IlNPUT Z95
'Z9S'LEFTI Z95, U'

ARE YOU THINKING OF AN ANIMAL? YES
DOES IT SWIM? YES
IS IT A FISH? NO
THE ANIMAL YOU WERE THINKING OF WAS A ? SEAL
PLEASE T~PE IN A QUESTION THAT WOULD DISTINGUISH A SEAL FROM A FISH
? DOES IT HAVE FLIPPERS
FOR A SEAL THE ANSWER WOULD BE? VES
ARE VOU THINKING OF AN ANIMAL? YES'
DOES IT .SW I M? NO
IS 'IT A BIRD? NO
THE ANIMAL YOU WERE THINKING OF WAS A ? ELEPHANT
PLEASE TYPE IN A QUESTION THAT WOULD DISTINGUISH A ELEPHANT FROM A BIRD
? DOES IT HAVE A TRUNK
FOR A' ELEPHANT THE ANSWER WOULD BE? YES
ARE YOU THINKING OF AN ANIMAL? YES
DOES IT SWIM? NO
DOES IT HAVE. A TRUNK? NO
IS IT A BIRD? NO
'
THE ANIMAL. YOU WERE THINKING ,OF WAS A ? DOG
PLEASE TYPE IN A QUESTION THAT WOULD DISTINGUISH A I>OG FROM A BIRD
? DOES IT GO 'ARF, ARF'
FOR A DOG THE ANSWER WOULD BE? YES
ARE YOU THINKING OF AN ANIMAL? YES
DOES IT SWIM? NO
DOE5 I T HAVE A TRUNK? NO
DOES IT GO 'ARF? NO
IS IT A BIRD? NO
THE ANIMAL YOU WERE THINKING OF WAS A ? CIIT
PLEASE TYPE IN A QUESTION THAT WOULD DISTINGUISH A CAT FROM A BIRD
? DOES IT HAYE RETRACT! BLE' CLAWS
FOR A CAT THE ANSWER WOULD BE? 'IES
ARE YOU THINKING OF AN' ANIMAL? YES
DOES IT SWIM? NO
DOES IT HAVE A TRUNK? NO
DOES IT GO 'ARF? NO
DOES IT HAVE RETRACTIBLE CLAWS? YES

IS IT A CAT? NO
THE ANIMAL YOU WERE THINKING OF WAS A ? TIGER
PLEASE TYPE IN A QUESTION THAT WOULD DISTINGUISH A TIGER 'FROM A CAT
? DOES IT LIVE I N THE JUNGLE
FOR A T!GER THE ANSWER WOULD BE? YES
ARE YOU THINKING OF AN ANIMAL? YES
DOES IT SWIM? NO
DOES IT HAVE A TRUNK? NO
DOES IT GO 'ARF? NO
DOES IT HAVE RETRACTIBLE CLAWS? NO
IS IT A BIRD? NO
THE ANIMAL YOU WERE THINKING OF WAS A ? cow
PLEASE TYPE IN A QUESTION THAT. WOULD I>ISTiNGlJISH A COW FROM A BIRD
? DOES IT GIVE MILK AND GO 'MOO'
",OR A COW THE ANSWER WOULD BE.7. YES
ARE YOU THINKING OF AN ANIMAL? YES
DOES IT SW I M? NO
DOES IT HAVE A TRUNK? NO
DOES IT ·GO 'ARF? NO
DOES IT, HAVE RETRACTIBLE CLAWS? NO
DOES IT GIVE MILK AND GO"MOO"? NO
IS IT A BIRD? NO
THE ANIMAL YOU WERE THINKING OF WAS A ? GOAT
PLEASE TYPE IN A QUESTION THAT WOULD DISTHIGUISH A GOAT FROM A BIRD
? DOES IT GIVE MILK AND EAT TIN CANS AND ALMOST ANYTHING ELSE
FOR A GOAT THE ANSWER WOULD BE? YES
ARE YOU THINKING OF AN ANIMAL? YES
DOES IT SWIM? YES
DOES IT HAVE FLJ PPERS? NO
IS IT A FISH? NO
THE ANIMAL YOU WERE THINKING OF WAS A ? WHALE
PLEASE TVPE IN A QUESTION THAT WOUL!> DISTINGUISH A WHALE FROM A FISH
? IS IT THE LARGEST KNOWN MAMMAL.
FOR A WHALE THE ANSWER WOULD BE? YES
ARE 1'01:1 THINKING OF AN ANIMAL? LIST
ANIMALS I ALREADY KNOW ARE;
SEAL
ELEPHANT
DOG
CAT
TI GER~
COW
BIRD
GOAT
FISH
WHALE

IZ9s- fl N" IF Z9sc> Jt V"

,ZI hIN8TO(3%, Gi, 'V-Z9S) .2X
,Z2X'INSTR IZI X. QS, "\"l
,FNAX.YAL I MID (QS. Z 1 X, Z2X.Z I X) l
,F NENO
9999 END

ARE YOU 'THINKING 'OF AN ANIMAL? YES
. DOES H SWH'!? NO
DOES IT HAVE A TRUNK?· NO
DOES IT do >ARf? .:/jo
,
DOES IT HAVE RETRACTIBLE CLAWS? NO
DOES IT GIYE'.NILKAND GO 'MOO'? NO
.DOES IT GIVE MILK AND ERT .TIN CANS AND ALMOST ANYTHING ELSE?NO
IT A BIM? NO
THE -ANIMAL ,YOU' WERE THINKI.Nll OF WAS A .? SHEEP
PLEASE TYPE IN.' A QUESTION~THAT .WOULD DISTINGUISH A SHEEP FROM A BIRI>
? .DOES IT HAVE A WOOLY COAT AND SAY 'BAA, BAA'
FOR A SHEEP THE ANSWER WOULD BE? YES
ARE· YOU THINKING ..
,AN ANIMA!.? YES
'DOES" IT SWIM? NO
.'
DOES I T HAVE A TRU'NK? NO
DOES IT GO 'ARF? NO
DOES IT HAVE RETRACTlBLE CLAWS? YES
DOES,IT LIVE IN THE JUNGLE? YES
IS IT A TIGER? NO
THE ANIMAL YOU WERE THINKING OF WAS A ? LION
PLEASE T'>'PE IN A QUEStION THAT WOULD DISTINGUISH A LION FROM A TIGER
? IS It THE KING OF THE JI,JNGLE
. FOR .ILL ION THE ANSWER WOULD BE? YES

", :is

'::: ~g~. ;~:~~~;g g~ ~~ :~i~=t ~ ~~VE
ARE .VOU T.H.INKING OF AN ANIHAL? -C

.READY

AWARI

REMOVE BEANS FROM THE PITS

Description
My SIDE
6

000

My
HOME

Your
HOME
000

000

Your SIDE
AWARI game is played with seven sticks and thirty-six stones
(beans) laid out as shown above. The board is divided into six
compartments (PITS) on 'my SIDE' and six on 'your SIDE'. In
addition, there are two special PITS at the ends: 'my HOME'
and 'your HOME' •
A MOVE is made by taking all of the beans from any (non-empty)
PIT on your own SIDE. Starting from the PIT to the right of
this one, these beans are 'SOWN' one in each PIT working around
the board anticlockwise.
A TURN consists of one or two MOVEs.
If the last bean of your
MOVE is SOWN in your own HOME you may take a second MOVE.
If the last bean SOWN in a MOVE lands in an empty PIT, provided
that the opposite PIT is not empty, all the beans in the opposite
PIT, together with the last bean SOWN are 'captured' and moved
to the player's HOME.
When either side is empty, the game is finished.
with most beans in his HOME has won.

The player

In the computer version, the board is printed as 14 numbers
representing the 14 PITS.
3

The PITS on your (lower) SIDE are numbered 1-6 from left to
right. The PITS on my (the computer's) SIDE are numbered from
my left (your right).
To make a MOVE you type in the number of a PIT.
If the last bean
lands in your HOME, the computer types 'AGAIN?' and you then type
in your second move.
The computer's MOVE is typed, followed by a diagram of the board
in its new state. The computer always offers you the first move.
This is considered to be a slight advantage.
There is a learning mechanism in the program that causes the
play of the computer to improve as it plays more games.
computer Limitations
This program is written in DIGITAL PDP-II BASIC. The only
unusual feature is that an IF statement may have the form:
IF (CONDITION) THEN (STATEMENT)
Whenever the IF condition fails, the program branches to the
next line.
Program Author
A version of AWARI, called KALAH, was submitted by Christopher
Stolz of Lexington High School. The version published (also
known as BEANS) along with the description above was written by:
Geoff Wyvill
Bradford University
Bradford, Yorkshire, England

SAMPLE RUN

PROGRAM LISTING

RUN

5 DATA0
10 DIMB(13"G(13',f(50"Rf::ADN
lb FORI'~TO'"_I:READF(j)INtXlI
2i:1 PHINT-\PRINT "GA.ME OF ••• AWAHI ••• "\E.0
25 FDRI'0TOI21L.ETB(l"3I N EX11
30 L.t TC'0: LETH")'0 :LETB (13) '01 LEH (6)'0

AlmRI

01:23 PM

GAME OF

16-t'lFf)'-7J

AWARI

GOSU~50"

40 PRINTuYOuR MOVEIIJIGOSUB11f21

45
50

IFt:'0GOTU8~
IFM."'THtt~GCJSLJ!:l-10\A

YOUR t1OVE? 5

55 IFE'.GOT(j80
60 PRINT/lt'1Y MovE IS 1I.IGOSUI:i800

IFEc~GOT080

10 IF!-ICHTHfNPRINT",
75 IFf;:>i:GOTQ3!)

PRINT:PRI~T"GAM~

II,

3
]:

IGOSUB800

MY MOVE IS 2

OvER"

85 LE.T D::I8(6) .. ~n13'IIF 0<0 THEN PRINT "I WIN BY",-D"POlf..ITS":GOTQ

444

90 I..ETN=N+l11f.{).0THENPRI'''1"DR.AWN GAME"tGO'TO 20

95 PRINTuyOU wIN tlyuDuPOINTS"IGOT020
100 PRI~T'tA~A!NIIJ
1113 !I\iPUTM 11 F ,",·<7 T~EN IfM>0 THENlET"'.1-\"ll GOTO 130

\'OUR MOVE? 4

120'PRlf'liTIIILLEGAL MOVE"*GOTOlo(J0
130 lfB(M)'"GOTO!20
14~

LETH.b=GOSU~20a

150 GOTOSV'
LETK :,"1: GOSlI86~J~
21215 LE::Tfilli:0 t IFK>6Tr-lENLETK=I\-7
20~

AGAIN?

2U~ L~TC=C.l: IFC<9THENLf.. TF (IV' -F (N) .0+1<
215 FORl=~T05;IF~(I)<>~TMEN230
22" NEXT I
225 RETURN
23~ F OR lOnG 12: IFB (I) <>OTHENLE Tt =11 RfT URN
235 GaTa 2?0

500 PRINTrPRINT"

MY MOVE

520 PRINT,"
525 FOR I =,H051 GQSU8580
53~ Nt. ~ T I

"1IPRINT~(0)IPRINT"

535

PRINT:P~I~T:RlTURN

51"~

IFii(l)<l'HPiEN""'"lNr u "1

585

PkINTB(l)JI~ETURN

IS 4

505 FORI=12T07STEP-!IGOSUB580
510 NEXT!
515 PRINT.LETI'13.G05UH580

YOUR MOVE?

II,

0
8

AGAI N?

600 LE.TP=bCM1 :LETK(M);r~
6k'5 FORI-' -PTe 1 S n.p- t : LE r 1'1 =M ... t r I FM> 13 THENLET M.M-14

610 LI::.Tb(M).f3(~1)"'ltNEl(TP
615 JFl:j CM) _11!-lE N IF M<>ti THEN I FM<> 1 J T!-IEN 1 Fa (t 2-M) <>0GOT062ts

620 RI:.TI.JPN

625 LETa (H) cb (H, +6 (12-M) +1 ,LF. 18 (") -0ILETa (12-M) =0: RETURN
800 LETD"9Y'lETH'13
805 FORI.v.;T013ILEfG(I)=8CI)tNE)(TI
810 FORJ'7TO!2I1FB(J),.THE'885

MY MOVE IS 5

100

815 LETQc~·:LETI"=JJGOSU8600
820 FDRr."T051IF"(!).~GOTG8'5
YOUR MOVE? 2

825 LtTI.-=ti(1)+I:L!::.TR=0
8~0

IFL>lJT~ENLETL_L·'4'LETR.lIGOT0830

835 I F8 (L) =V>THE~ IFL<>6 T HEN I FL<:> 13THENLE TR -B ( 12-L ) +R
84~ IFR'QT"E-LETQ'R
845 NEXT!

10
2

850 LUQ'dCI3)-6C6)-Q:IFC>8GOT0875

855 LETK'JIIFK>6T"I'.NLET<'K-7
B6Q1 FORI h'TuN .. l tIFF' (N) *0.1(= INl (F C1) 16 ... C7 .. C) .... 1' THc.NLEn~.Q-2
870 NEXT!

AGAIN?

o
1121

875 FQRl=v.T013:LET8(I)=GCI):NE'iTI

860 JFQ>cQTHENL~TA.JILETD=Q
885 NEXTJ
89t:'! LEH'·.A:PRINTCHR$(42"'1>\)' :GOT020~
901'l FORI:arJ:10N-1IPRINH(I):I\iE)(TJ

MY MOVE IS 6,1
1

999 END

YOIJR MOVE?

1
(1

AGAIN? 4

12
10

t1Y MOVE IS

YOUR 11O'./£?

MY MOVE 15 G,4
o 1 0
14

-YOIJR MOVE? 5

GAt1E OVER

YOU WIN BY 1 POINTS

BAGLES

NUMBER LOGIC GAME

Description

The computer picks a 3-digit secret number and you attempt
to guess what it is. You are allowed up to twenty guesses.
No digit is repeated. After each guess the computer will
give you clues about your guess as follows:
PICO
FERMI
BAGLES

One digit is correct, but in the wrong place
One digit is in the correct place
No digit is correct

You will learn to draw inferences from the clues and, with
practice, you'll learn to improve your score. There are
several good strategies for playing BAGLES. After you have
found a good strategy, see if you can improve it. Or try
a different strategy altogether and see if it is any better.
This program was submitted from several sources including
Dartmouth and U.C.-Berkeley. The one published here is
from U.C.
Program Authors
D. Resek, P. Rowe
Lawrence Hall of Science
University of California
Berkeley, CA 94700

PROGRAM LISTING

SAMPLE RUN

L ISTNH

RUNNH
GRt1E OF 8AGlES

REM
1(1
i5
20
25
30
40
7/.3

*** SAGLES NUMBER GUESSING GAME

ORIGINAL SOURCE U~~KNOrm BUT SUSPECTED TO BE LmJRENCE HALL
OF SCIENCE, U. C BERKELEY.
NO[)IFIED FOR TH1E5HARE(i-8
B'r' STUDENTS OF L,.EiHNGTON HIGH SCHOOL.. ~lfl mw MO[HFIED FOR
REM "+:** RSTS/E B"r' DAVE AHL OF [) I G r TAL 11/4~j GROUP
DIM Al(6), A(3), Ben
F:At~DOM I ZE: "'=0: T=255
INPUT "GAME OF SAGlES.
I-lOULU YOU LIkE THE PULES (YES OR NO)"; A$

R:Ef1
REM
REM

***

90 IF A$="NO" THEN 150

O. K.

GUESS '"' 1 ?
PICa PICO

160 A(I)=INT(i0*RND;'

170 FOR J=l TO I-1
180 IF A(I)=A(J) THEN 160
19~3 NE;:.::T ..1
268 NE::<T

"0. K.

390
400

INPUT A$
CHANGE At TO Ai
IF 8103){)3: THEN 610
FOR ,J=1 TO 3
IF Al(.])<.:48 THEN 3:&.h)
IF A1('J»57 THEN :.:te0
8(.J)=A1(,J)-48
Nn::T .J
GOTt) 3213
PRINT "WHAT?"
GO TO 230
IF 8(1.)=8(2) THEN 650
IF 8(2)=8(3) THEN 650
IF 8(])=8(1) THEN 650
(:=0: D=0
FOR ~T=l TO 2
IF A(J){)8(J+i) THEN 390
C=C+1
IF A(J+1){>8(J) THEN 410
C=(:+1

410

NE~--{T

300
11121

32121
1]0
34121
35121
360

370
3:80

O. I<
I HA'IJE A NUt1BER IN MIND
GUESS "* 1 ? 123
PICa PICO
GUESS # :::" ? 4L~
PICO FERtH
GUESS # J ? 2::t.5
PICO
GUESS # 4 ? 43:2

FEP'lI FERe1!
GUESS :It .':5 ? 43:1
',.'OU GOT IT! ,!

PL AY AGA! N ('r'ES OR NO)? '1'E:;
O. fC
HRVE R NUMBER
GUESS # 1 ? :123

GUESS #

? 451

HRGLES

OU£S:; '"'
267
BAGLES
GUESS :It 4
3:39
PICO PICO PICO
GUESS '"' .'5 ? ::393
PIC!) PICO PICO
GUESS # 6" -~. 93·9
Y-OU GOT IT!! I

44121 IF A(3)(>8<1) THEN 460
45~3 C=C+l

46(1 FOR ·J=1 TO 3
4713 IF A (.]){>8(,.1;' THEN 49.0
48.0 0=0+1
49~j NE::<T •.1
5~~H3 IF 0=3 THEN 680
52121 FOR ·J=i TO C
530 PRINT "-PICO ";
540 NEXT .J
5'30 FOR ,J=l TO D
560 PRINT "FERMI If;

PLAY AGR 1N (YES

O~:

NO) --;. ','ES

O.•0:

I HR',!E A NUMBER IN MI NO
GUESS '"' 1
1.23:
HRGLE:;
GUESS #
.~; 456
f~ICO

GUESS #

? 47::3

PICa
GUESS '"' 4

570 NE::-::T ..1
580 IF C+D()O THEN 608
590 PRINT "8AGLES";
600 PRINT
6~35 NE::-::T I
610 PRINT "OH WELL"
615 PRINT "THAT'· S 20 GUESSES.

IN M! ND

PICO

420 IF 8(1)<>8(3) THEN 440
430 (:=C+1

620 GOTO

:123:

GUESS # _2 ? 412
PICO PICO
GUESS # J ? 215
PICO PICO FERtH
GUESS "* 4 ? 251
'·IOU GOT IT '!!

PLA';' AGAIN (',.'ES Of': NO)? 'T'ES

I HAVE A NUMBER IN MIND. "

220 FOR 1=1 TO 20
23:0 PRINT "GUESS #"L
2.'5~3

J HRVE R WJMBEFi: J N t1 I ND

210 PRINT PRINT
24~3

('T'ES OR NO)? '1'E5

I At1 THINKING OF A THREE-DIGIT NUt1BER
TR'1' TO GUESS
t1Y NUt'lBER RND I L~ I Ll G I '.,.'E ,",'OU CLUES AS F'OLLOL~5:
PIca
- ONE [:tIGIT CO~:f':ECT BUT IN THE L~f;.'ONG POSITION
FERMI
- ONE DIGIT COFi:RECT ANG'. IN THE f.i:IGHT POSITION
SAGlES - NO DIG 1 TS (:ORf;.:ECT

100 PRINT:prHNT "I AM THINkINCi OF A THREE-DIGIT NU~1BER.
TRY TO GUESS"
:110 PRINT "t1'r' NUr'1E:EP AND I "lILL GIVE VOU CLUES AS FOLLOHS
:1213 PRINT"
PICO
- emE DIGIT CORRECT 8UT IN THE "mONG POSITION"
110 PRINT"
FERMI
- ONE DIOIT CORRECT mw IN THE RIGHT POSITION"
140 PRINT
BAGLES - NO DIGITS C()~~RECT"
150 FOR 1=1 .TO 3:

;;:-55
:26(1
270
280
2:::5
290
295

WOULD 'T'OU LIKE THE FWLES

:f:*:+:

? 57::3

PICO PICO
957
PICO FEf<:MI
GUESS :It 6" ? 75(1
PICO
CiUE5S :It 7 ? 985
l.~OU GOT IT!!!
GUESS # ':5 ?

~1Y

NU~1BER

~H1S

":tee*A(j.)':"10*AG~)+ACD

?~J0

PLR'r' AGAIN CT'ES OR rW)? '1'ES

630 PRINT "TRY GUESSING A THREE-OUJIT NU~18ER. ": GOTO 230
65~3 PRINT "OH ..
I FORGOT TO TELL 'r'ot) THAT THE Nu~mER I HAVE IN"
66121 PRINT "MIND HAS NO nw DIGITS THE ~~A~lE. ": GOTO ~~3ej
680 PRINT "YOU GOT IT!! !":PRINT
6913 ',.'='1'+1
",::'00 INPUT "PLAY AGAIN ('r'ES OR NO;' ".; A$
~?20 IF A$="'T'E5" THEN 156
7313 IF ¥=I) THEN 750
740 PRINT'PRINT "A"Y"- POINT SAGLES BUFF!!"
",:'50 PR I NT "HOPE YOU HAD FUN.
BY'E."
999 EtiD

O. f(.
HAVE A NUt48ER
GUESS -#
? :121

IN tlIN!).

PJCO
GUESS 4t
? 145
BAGLES
-~) 267
tJlJESS -#
PICa
G.lJESS 4* 4 ? 176

BAGLES
GUESS '"' 5 ?

PEAD'r'

89:~

FERrll FE,"lI
(lUESS '"' 6" ?

802

PICO FERt11
GUESS :# 7 ?
YOU

~392

GOT IT!!!

PLA'.,' . AGR I N ('1'ES OR NO)? NO
t1 5 - POINT 8AGLES BUFF!!
HOPE YOU HAD FUN.
B';'E.
READY

BANNER

PRINTS A LARGE BANNER

Description
This program creates a large banner on a terminal of any
message you input (up to 54 characters in length). The
letters may be any dimension you wish although the letter
height plus distance from left-hand side should not exceed
6 inches. Also, the letter height should be somewhat more
than the width. Adhering to these rules will generally produce
a very attractive banner.
computer Limitations
BANNER was written for a DIGITAL EduSystem 50. For other
computers, the character string line input (LINPUT) statement
at Line 240 would have to be changed.
Program Author
Daniel R. Vernon
Butler Senior High School
Butler, PA 16001

PROGRAM LISTING
IBB
110

120

RE~
RE~
RE~
RE~

PROGRAM WRITTEN BY DANIEL R, VERNON
SENIOR AT BUTLER SENIOR HIGH SCHOOL
BUTLER, PENNSYLVANIA !S001
OATE. 2I117l
COMPUTER SUPERVISION. MR, WILLIAM ELLIS
COMPUTER TOPICS INSTRUCTION- HR, ALBERT SUWART

130
14B RE~
150 REM
161 REM
THIS PROGRAM IS DESIGNED TO CREATE POSTERS
I" REM
180 REM
190 DIMGI(6), HI (6),
(9), G(e), A(U)
20B PRINT"IN~UT HUGHTM, ~IDTH IN INCH!S'I\IN~UTL,R\S'I\"R.2\C'A
210 PRINT"HOW ~AR, IN INCHES FROM THE LEn HAND SlOE, DO YOU WANT TO PLACE'
220 PRINT"TH! LETTUS. "INPUTS\S'IZ.'
230 PRINT"INPUT MUSAGE HERE"
248 LINPUT8S( II ,BI (2), 8S (3) ,BI (41, B1(5) ,8$ (5), es (1) ,BS(8) ,81(9)
250 FORx.nOUTEP-1 \CHANGES. (X) TOAVORY.I T08\A (X'6-hy).A (Y) \NEXTY\NEXTX
250 FORX'IT06\READHI(Xl\NEXTX\MI.HI(L)"OSUB U0
270 F.'. I \IF A
.BTHENU0\G(0l.L \fORX'1 T05\G( X).A (F) \NfXTX\CHANGEGTOG,
280 fORX'1 T06\G(0)oX,CHANGEGTOGI (X) \NHTX
290 FORX'I TOA/2\PRINT\NEXTX
300 IF' (F) . . 6THENS4s\ IF A(F) .3eTHEN990\IF A(F) .32TMEN63I\IF. (F)C48THEN210
305 IFA (F) >S1THENJIB\ONA (F) .41;OT0500, H0, 620, U5, 635, 55e, 61 e, 605, 595,585
310 IF A(F) ce5THENZ1e\IF A(F) .'9THEN330
320 DNA (F ).64GOT0350, 360,310,380,398,400,4 U, 430,440,450,460,470,480,490,500
330 IH.9mTHENZ10\ONA (F) -19GOT05 10,520,540,550, e60, 570;580,590,600,610,520
340 GOT0271
345 FORXOI TOAVRINTTAB (5), GI, GI\NEXTX\GOT027m
350 GOSUBU0\GOSUB890\GOSU8540\GOTOZ'0
350 GOSUBU0\GOSUB6S0\A.t _, e\GOSUBU0\4.t \GOSUB810\GOT0210
370 GOSUBe40\GOSUB1e0\GOSue'00\GOT0270
3B0 GOSUU4B\GOSUB100\A oC., 5\GOSUBe.0\A.C \GOSUS840\ GOT0270
390 GOSUB640\GOSUB6S0\GOSUBes0\ GOT0270
430 GOSUBU0\GOSUBe90\GOSUBe90\GOTOZ70
410 GOSUB640\Aot.,1S\GOSUB700\AoC.,2S\GOSUB650\A'C\GOSUB16e
420 AoCo,2S\GOSUB7I0\A_C\GOT0270
430 GOSUB640\GOSUB710\GOSUB640\GOT0270
440 GOSUe640\GOT0270
450 GOSUB750\GOSUe'40\GOSUB640\GOTOZ,e
460 GOSUBU0\GOSUes60\GOT0270
470 GOSUB540\GOSUB7 40\GOSUB' 40\ GOTOZ10
4 B0 GOSU B64 0 \ GO SUB e 9 0 \ GOS U888 0\ GO SUB 6 4 0\ GO T0 2 7 0
490 GOSU8640\GOSUB890\GOSUBU8\GOT0210
500 GOSUB640\GOSUB100\GOSUB640\GOTOZ'0
510 GOSUe640\GOSUB690\GOSUB19Z\GOTOZ10
520 GOSUB640\ UC., 1S\G.OSUB 700\4 0 ,2SoC\GOSU8650\A 0 C\GOSUB64 0
530 AOC.,2S\GOSUB710\A'C\GOT0270
540 GOaUB64 0\GOSUBe90\A.C •• S\GOSUBU0\GOSUB8I0\A.C \ GOT0270
550 GOlUB 770\GOSUB6S0\GOSUB760\GOT0270
se0 GOSUB7 80\GOSUB840\GOSUB7U\ GOTO 210
570 GOSUB640\GOSU" 40\ GOSUB640\GOT02'0
SBe GOSUB890\GOSU8880\GOT021a
585 GOSUB'90\ GOSUBe90\GOSU8640\GOT 0270
590 GOSUB640\GOSUB880\GOSUBS90\GOSUe640\GOT0270
595 GOSUBe40\GOSUB650\GOSUB640\GOT0270
600 GOSUS900\GOT02'0
805 GOSUB,S0\GOSUB'S0\GOSUB640\GOT02'0
810 GOSUS9'0\GOSUS800\GOSU8980\GOTOa10
615 GOSUS640\GOSUB650\GOSUB760\GOT0270
620 GOSUB920\GOT0270
625 GOSUB100\ GOSUB650\A.C *. s\GOSUBU0\A.C \GOSU8810\ GOT0210
630 GOSUB940\GOT02'0
635 GOSUB190\GOSUB' \0\ GOSUB640\GOT0270
649 FORU I TOA \PRINTT 4S es), \FO~xol TO 10\PR INTGI, \NEXTX\P~ INT\~EXTY\RETURN
650 IF ACI THEN660\GOT0810
86e LETA. I
670 FOU'I TOA\PR INTT AS (5) ,Gu Gil HI' HU Gil GSI HSI HSI Gil G$\NUTX\RETURN
680 PRINTTAB(SII
800 FOAX'I TOAVRINTT A8 e4.LOS) 'GU Gil Mil HII Gil GI\NEXTX\RnURN
'00 FORXol TOA\PRINTT AB (5)' Gu Gs "PRI NTHB e 8.L.Sll GS' GS\NEXTX\RETURN
'10 IFAcITHEN120\GOT0130
720 LETA'I
730 fORX'1 ToA\PR INTTAS (4'L 08)1 Gil GS\NEXTX\RETURN
140 FORXOI TOA\PR I NTT AB (S)' GIIGS\NEXTX\RETURN
'50 FORxol TOA\PRINTT AS (S), Gil GUGSI GS\NEXTX\RETURN
750 FORY'I TOA \PRINTTAB e 8), GS, GSI G$, Gil Gil GS I HII HS, Gil Gs\NEXTY\RETURN
770 FORXol TOAVR INTT AB (5), Gil Gil Mil HS, GI/ Gil Gil Gil Gil GS\NUTX\RETURN
780 FORX'I TOA\PRINTTAS (SOLOS) 'Gil G"NEXTX\RETURN
790 FORX'I TOA\PR INTTAS (4*L.S) 'GIIGSI GS/ Gil GU GS\NEXTX\RETURN
800 FORXol TOA \PR INTTAB (S " GSI GUGII Gil Gil Gs\NUTX\RETURN
810 FORX>! TOt/2\PRINTT AB (S)' \FORro! T02\FORZol TO (hL) .X\PRINTGI (I) I\NEXTZ
820 IFX.3THEN950\V>X
830 PRI NTH. ca.v) "~EXTY\PRINT\NEXTX\R!TURN
840 FORX>I TOCI2\PRINTTAB (5)' HI (X) ,VORY,I TOIBoL- (2.X "PRINTGI (I) "~EXTY\PRINT
85m NEXTX\RETURN
sem FOR X.40L T07.LSTEP 14.V (c.e) \PRINTT A8 (X.S), Gil Gil 01'
871 PRINTTAB('OL-X.Sl,GI/U,GS\NEXT X\RETURN
880 FORx.noe.LSTEPS.L/C\PRINTT AB (X-S I '.GSI GS, GS, GI\NEXTX\RETURN
890 FORX -S.L T00$TEP.e.L/C\PRI NTTAS (he), GS/ GS ,GS' GS\NEXTX\RETURN
900 FORx>no,oLSTEP (I40L) I (C.S) \PR INTT U (XOSl' Gil Gil Gil
910 PRINTT AB a'LoXo", Gil Gil GS\NEXT X\RETURN
920 FORx.nO'.L5TEP (7oL) I (C'3) \PR INTT AS (5)' GU Gil TAB ex-s " Gil GS/GII
930 PRINTUB (hLoS)' GIIGS\NExrx\RETURN
UB FORX'I TOAo3\PRINT\NEXTX\RETURN
950 FORW.! TOX.3\PRINT·
• I\NEXTW\ V'l\GOT0830
960 FORx.40L T01.L5TEPL 04/C\PRINTT AB (~.S) 'Gil Gil GI\NEXTX\RETURN
9'0 FOR Xo70L T04.LSTEP.4'L/C \PRINTTAB (XOS) 'GI, GI' GS\NEXTX\RETURN

980 DATA.

M," It,"

.. ,.

",I'

","

",'"

990 FORX.ITOC*l\PRINT\NEXTX
1000 END

SAMPLE RUN

~g~t1~A~~I ~~T7~c~i~T~F~~ ~~~H~~;! lJa~ND $1 DE .. DO YOU VANT TO PLACE
T:-IE

LETTE~S?

INPUT

~E5SAGE

HEnE

? EuU 9

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
EEEEEEEtEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
EEEEEEE'sEEEEEEEEEEEEEEEEEEEEE£EEEEEEEEEE
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
EEEEEEEE
EEEEEEEE
EEEEEEEE
EEEEEEEE
EEEEEEEE
EEEEEEEE
EEEEEEEE
EEEEEEEE
EEEEEEEE
EEEEEEEE
EEEEEEEE
EEEEEEEE
EEEEEEEE
EEEEEEEE
EEEEEEEE
EEEEEEEE
EEEE2EEE
EEEEEEEE
EEE£EEEE
EEEEEEEE
EEEEEEEE
EE2EEEEE
EEEEEEEE
EEEEEEEE
EEEEEEEE
EEEEEEEE
EEEEEEEE
EEEEEEEE
EEEEEEEE
EEEEEEEE
EEEEEEEE
EEEEEEEE
EEEEEEEE
EEE.EEEEE
EEEEEEEE
EEEEEEEE

DDDDDDDDDDDDDDDDD[:DDDDDDDDDDDDDDDDDDDDDD
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
DDDDDDDD:CDD[!DDDDDDDDDDDD[!DDDDDDDDDDDDDDD
DDDDDDDDDDDDDDDDDDDC'OODDDDDDDDDDDDDDDDDD
DDDDDDDDDDDDDDDDC'L'DDDDDDGDDDDDDDDDDDDDDD
DDDDIJDDr::.DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
DCDDDDDD
DDDDDDDL
DDDDDDDD
DDLDDDDD
DDDDDDDD
DDDDDDDD
DLDDDDDD
LLDDDDDD
DDDDDDDD
DDDDDDLD
LDDDDDDO
DDDDDDDD
DDDDDLDDDDDDDDDDODDDDDDDDDDDDDDDDDDDDDDD
DDDDDDDDD.DODDDDDDDDDDDDDDDDDDDDDDDDDDDDD
DDODDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
DDDDDDDDDDDDLDDDDDDDDDDDDLDDDDDDDDDDDD
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
DDDDDDDDDDDDDDDDDDDL-DDDDDDDDDDD-ODD

PUUUUUUUUUVUUUUUUUUUUUUUCUUUUUTJUVUUUUUUU
uvuut:UUUUUUUD1JUUUUUUUUUVUUUUUUUUUUUUUUUU
utJUUlJUIJC'C'UUUUUUUUUUVUTJUuutJuuuueucruuuuuuu
UUUUUUtJU1JUVUUUL'VUUUUUUl1UUUUUuuuuuuuuuuuu
UllUIJUUtII)UUUUUUIJUl:t'UtJUUl..'fJUUUUUUUUUUUUUUUU
UUU{;UUuuuuuueuuuuut'UUUUUUUUUUUUUUIJUUUVUU
UUUl)UUUU
1JUUUUUlllJ
UUllUUlIUU
t!':UUUUUU
IJUUUUUUU
TjUV1JutJuu
UIJUL'u:rutJum;uut'C'uUVUUUUUUUUUUU!JUUUUUUUUUU
euuvucIJUUUUUIJUUUVU'JUUuut:UUUlJUUUUUUUUUUUU
t'UUUl!UUl'UUUUtfUUUTJU!.:U,UUU!Juuuuuuuum:uuuuuu
llUUUTJUUUUTJUUUUUuuuuUUUUUC'IJUUUUUUUUUUUUUU
lYUUtf'(IUUt;UU1JCUUt.!ljUUCUUUUlJUUUUUUUUUDUUUUUU
UUTJutnJUcuuuUuuuuuutJuuuuuutJUUUTJUUlJtiUTJUUUU

999999999999999999999999
999999999999999999999999
999999999999999999999999
999999999999999999999999
999999999999999999999999
999999999999999999999999
99999999
99999999
99999999
99999999
99999999
99999999
99999999
99999999
99999999
99999999
99999999
99999999
9999999999999999999999999999999999999999
9999999999999999999999999999999999999999
9999999999999999 9999 ~ 99 99 9 99 99999 99 999 9 9
9999999999999999999999999999999999999999
9999999999999999999999999999999999999999
9999999999999999999999999999999999999999

BASEBL

BASEBALL GAME

Description
This is a simulation of a nine-inning baseball game with you
controlling the pitcher when your team has the field and
controlling the batter when you are up to bat. The simulation
stops at nine innings, hence, it may be a tie game: however,
that has proved to occur remarkably few times.
computer Limitations
The game published was written for DIGITAL EduSystem 15/30/35
and actually consists of two programs, one which prints the
rules chained to the second program which plays the game.
IINOLINE II must be given before running to prevent overflow.
Other BASIC compilers will require conversion of the alphabetic
string input statements to a compatible format.
Source
Another version of baseball was submitted for Timeshared-8
by Jeff Moskow.and Brad Golden of Lexington High School.
This is available from DECUS as BASIC 8-562. A second version
was submitted by another Lexington High School student, Les
Servie. A FORTRAN version was submitted by David Benepe of
Fort Worth, Texas. These versions are not printed herein.
Jack Huisman
Oregon Museum of Science and Industry
Portland, Oregon
97200

PROGRAM LISTING
BASBAI.

EOUSVSTEM-35

510
520
530
540
550
5&0
570
580
590
b00
bl0

GOT0410
LEU'9*RNO (bl \ I PS 1'0THEN530\PR I NT"MY SA TTER" I\GOT0540
PRINT"YOUR BATTER'"
IFA>1 THEN550\PRINT" L.INEO OUT TO THE THIRD BASEMAN, "\GOT0840
IfA>2THEN5b0VRINT" POpPED OUT IN SHAI.1.0W I.EFT,"\GOT0840
IF A.3THEN580
PRINT" GROUNDED TO THE PITCHER"I\GOT0590
IfA.4THENb80\PRINT" GROUNDEO TO SHORTSTOP'"
PRINT" WHO THREW OUT THE MAN"I\IFC3'2THENb70
IfB 1'0lHENb70\ IfB2 0BTHENb30\ IfB3.0THENbi!0\PR INT" FORCED HOME,"
GOT0850
~20 PRINT" fORCED TO THI~D, "\GOT0850
&30 LETA I.INTC3.RND (0)) \PRINT" fOR CEO TO SECOND" " I f Ale.1 THEN&50

1000IMT(50).C(l9).FCI9).z(19)
I U FORX"I TCI9\PEAOC (X). Z (X). F (X) \NEXTX\I.ETXal
120 PRINT"WELCOME TO HUISMAN STADIUM FOR TODAV'S GREAT GAME BETWEEN"
130 PRINT"THE PDP-8 PANTHERS AND (YOUR NAME PLEASE) THE" I
140 FOR hI TO 99\INPUT U(A)\IF TCA)-141 THEN 150\NEXT A
150 I.ETT=A\PRINT\PRINT"A HIGHI.Y PARTISAN CROWD OP,
1&0 FORA=I TOT\\.ETS02*RND (0) \NEXTA
170 LET AoINT(1000~*RND(lll\PRINTA'
180 PRINT"FANS IS ANXIOUSLV AWAITING THE"\PRINT"START OF THE GAME."
190 PRINT"HERE IS MV TEAMI"."ANO HERE IS VOURS'"
200 PRINT"NAME", "AVERAGE", "NAME", "AVERAGE"

210 PRINT"-.-.", 11 . . . . . . . _ ... 11 ," • • • "'", " __ ......... "
220 GOSUB 400
230 PRINT\PRINT
240 PRINT"THE PANTHERS ARE TAKING THE FIELD NOW AS ANDREWS OF THE"
250 FOR A=I TO T-I\PRINT CHRSCT(A» I\NEXT A
200 PRINT" ADVANCES TO THE PLATE, PLEASE WAIT AS THE COMPUTER SINGS"
270 PRINT"OUR NATIONAL ANTHEM TO ITSELf" 2 OR 3 TIMESl JUST SING"
280 PRINT"ALONG UNTIL ASKED FOR yOUR PI.AV,"\PRINT
290 GOT0580

&40 F'RINTII.II\GOT0850

b50 PRINT\PRINT"AND THEN TO FIRST FOR A ~OUBLE PLAY I"
bb0 LETC3=C3+\\LET8100\GOT0840
670 PRI~T" AT fIRST, "\GOTOB~0
b80 IFA.5TMEN700\PRINT" HIT A PLoV INTO DEEP CENTER WHERE IT WAS",
bq0 PR I NT" CAUGHT," \GOTO' 10

700 IFhbTHEN880\PRINT" HIT TO LEFT fIELD FOR AN OUT,"
710 IFC3=2TMEN840\ I fB I +Bi!+B300TMEN840
720 PRINT"THE MAN ON",\IFB3'ITHEN730\lfBa.1THEN750\GOT0790
730 PRINT" THIRO MADE IT MOME."J\GOSUB930\LET83.0
740 IFB2=0THEN780
750 PRINT" SECOND"I\IfAla0TMEN7b0\PRINT" STAVED PUT,""OT07B0
7&0 IFAI.ITHEN770\PRINT" MADE IT TO THIRO,"\~ETB3'I'LETB2_0\GOT0780
770 PRINT" .AS OUT TRYING TO TAKE THIRO."\LETC3=C3+I\LETB2=2
780 IFBI<>I THENe40
790 IFB2e.1THEN800\pRINT" FIRST STUC~."\GOT0840
800 PRINT" ON flRST" J\IFB2<>2THEN820
810 PRINT" MADE IT TO SECONO,"\LETB2 a l\LETBI-0\GOT0840
820 LETW'2*RNO (0)' IfW.1 THEN810\PRINT" WAS OUT GOING, "\LETC1-C3+1
830 I.ETB2.0
840 I.ETZ (vl sZ (V), (Z (y) 1100l\GOT08b0
850LETZ(Y)=zeV)+(Z(V)/100)
8b0 LETC3 oC3+I\PR!NT"THAT WAS OUT N~MSER"'C3
870 GOTOl2b0
880 IFA.7THEN8Q0\PRINT" "IT OVER THE PITCHER'S HEAD FOR A"I\GOTOqI0
890 IfA>8THEN900\PRINT" ~IT THROUGH THE HOLE INTO RIGt;T FOR A" I\GOTOQI0'
Q00 PRINT" MIT INTO LEFT FIELD FOR A'"
910 IFZ.hOTHEN 1210\ I FZ>3*OTHEN 1130\ IFZ'2-DIHEN 1040\PR I NT" 5 I NG> E,'
920 IF B 3 =0 THE "910 \ GO SUB9 30 \ LET e3 -0 \GOT 091>0
930 IF S I-I THEN940\I.E T53.S3+ I \GOT0950
940 LETS2=S2+1
950 LETI2=I2+1 \~ETURN
9b0 PRINT"THE MAN ON THIRD SCORED,"
970 IFB2=0THENI000\PRINT"THE MAN ON SE'COND"J\lfA'8THENQ90\PRINT" SCORED,"
Qe0 GOSUB930\I.ETB2.0\GOTOI000
990 PRINT" WENT TO THIRO,"\I.ETB2'0\~ETB3=1
1000 IF61*0T~ENI030\PRINT"THE MAN ON fIRST"J\lfA.8THENI020
1010 IFC2.4THENI 020\LETB 1*0\GOT0990
1020 PRINT" TO SECOND,"\I.ETB2ol
1030 l.ETSI=I\GOTOI240
10401,ETW-3_RNO(0l\IFW>\THENI050\PRINT"N OFF THE .AI.I."I
1050 IFA2=\THENI0b0\PRINT" STAND UP"I
101>0 PRINT" DOU8LE,"\IfB3=0THENI080\PRINT"THE MAN ON THIRO SCOREO."
1070 GOSUB930\L.ETB3 a 0
1080 IFS2=0THENI090\PRINT"THE MAN ON SECOND SCORED. "\GOSUS930\LETB<=0
1090 IFBI=0THENI120\PRINT"THE MAN ON FIRST"I\IfA>8THENII10\PRINT" SCORED."
1100 GOSUB930\I.ETB! =0\GOTO 1120
1110 PRINT" WENT TO THIRD,"\LE! 81=0\\.EI63=1
1120 LETB2=! \GOT0I2"0
1130 PR I NT" TR IPI.E 1" \LETA3-e I +82+S3\ IF A3=0T~ENI200\PR I NT" THE MAN ON'"
1140 IFBlo0THENI150\PRINT" nRST" I\GOSUSQ30
1150 IFB2=0THENII70\IFBI=0THENllb0\PRINT". AND",
I !b0 PRINT" SECOND" 1 \GOSUB930
1170 IFB3=0THENII90\ IFBI+B2a0THEN 1180\PR I NT". ANO'"
1180 PRINT" THIRO""GOSU8930
1190 PRINT" SCORED," \I.ET8 1=0\I.E162=0
1200 I.ETB3*I\GOTOI2"0
1210 IFB1+B2+B3<3THENI220\PRINT" GRAND SI.AM"I
1220 PRINT" HOME RUNll"\FORAI'ITO(BI+S2+81+ll\GOSUS930\NEXTAI
1230 LETS 1=0\I.E1Baa0\l.ET63-0
1240 IFC2.4THENI2b0\I.ETZ e noz (Y) + (Z (V) 1100)
1250LETtI'Il+l
1260 RETURN
1270 PRINT"PITCkER THROWN OUT fOR T~ROWING ILLEGAL PITCH,"\GOT0270
I <80 LEU- 50RNO (0l\ If Ae3THEN I 320
1290 IFA>4THEN1300\PRINT"INSIOE - "J\GOTOI3l0
1300 PRINT"OUTSIOE • '"
1310 LETC2 -C2+ I \PR I NT" BAl.I." 1C2\GOTO 150
1320 IFZ (V) eOTHENI3"0\GOSIolB520\IFAebTHENI330\I.ETC (VlaC eV).1 \GOT01"0
1330 i.ETC(V).C(Y)"I\GOTOI"0
1340 LETC tV)-C (n-I \LETB-3.RNO (7)
1350 IF6.1 THENl3b0\PRINT"A SWING & A MISS. "J\GOT01H0
13&0 IF8.~THENI380\PRINT"INSIDE CORNER - CAU "I
1370 GOTOl390
1380 PRINT"~OUl.l " "I\IFCI=2THENI400
1390 LETC1'CI+I\PRINT" STRIKE"IC1\GOTOI50
1400 PRINT"COUNT STAYS AT",ca,"BALI.S ANO"ICIJ
1410 PRINT"STRIKES,"\GOTOI50
1420 PRINT"fINA" SCORE I ME"IS21"YOU"IS3
1430 IFS2>S3THENI450\ I F S3'S2THENI440\PR I NT 'VOU WON," \GOTO 14b0
1440 PRINT"A DRAWl "\GOTOI4b0
'
1450 PRINT"I WONl"
1"&21 CHAIN"DEMON "
1470 END

300 DATA,215, ,412001, .05, .02, .2&3001, .03
31121 OATA"'1I02~ .236001, ,02, ,03, ,31&001, ".01

320 OATA,01, ,241001, .03, .02, .32112101, ,02
330 DATA- ,02, • 3b7001, ,02, -,02, ,38601211, ",.01
340 DATA,01, ,295001, .03,~,01, .296001, ,02
350 DATA· .02, .319001, ,02, ... 02, .285001, ,02
3&121 DATA".03, .2950"'1, .1211, ~02, .29S0iH, ,03
370 0"'T,6.,02, .218001, .02, .02, • 13 cH,'J01 ,-,02
3812! OATA,03, .238001, .01, .03, .2310~1 ,,,,.02
390 DATA 0,21,0

"00 PR INT" HUI SMAN". Z (I) • "KLOOS". Z (2)
4 UI PR INT 'I HOEREN" I Z ( 3) , "ANDREWS" I Z (4)

421£1 PRINT"S.ACCUSI!, Z (5) ,"MAYE~" I Z (8)
430 PR tNT" SMIHP', Z (7) , II HANSEN ",2 (6)

440
450
4b0
470
480
4'10

500
510
5<0
530
540
550
560
570

PRINT" SCHNE IOER" • Z (9) • "M ICHEL". Z (10)
PRINT"ROSENBAUM".Zelll."p, D. PEATE".Z(l2)
PR INT "POULSEN". Z (13) • "w ILlIAMS". Z (14'
PRINT"K ILGOUR". Z C! 5) • "NELSON". Z (lb)
PRINT "JOHNSON".Z(l7)."ANKCORN".Z(l8l
PRII'IIT"WMITNEY'I," MANAGE~","IVEY",t' MlNAGER"\PRINT
PRINT"PlTCHER'S OPTIONS ARE'''\PRINT''FAST8ALL''
PR I NT" BEANS'I.L" \ PR I NT "BRUSHSACK" \PR I NT" BA~~" \PR I NT "CURVE"
PR INT" SLIDER" \PR INT "KNUCKLE" \PR I NT"GREASEBAU (I1.i.EGAl.)"
PRINT"SPlTBALI. (!UEGA~) "\PRINT"CHECK"\PRINT
PRINT"BATTER'S OPTIONS ARE: n\PRINT"BUNT"\PRINT"SWING"
PR INTIIH IT-AWAY II, PR 1NT II SACRI F I CE II \PRI NT "GROUNDER II \PR I NT "fl YII
PRINT"KILL"\PRINT
RETURN

580 CHAIN"BASBL1 11

5q0 END

6AS8LI

EOUSYSTE~-35

100
110
120
130
140
150
Ib0
170
180
\ q0

DIMB(lbl
lETZ(0)'.5\LETZ',5
i.ETl'1
LE TB lo0\L.ETB2·0\LETB300\LETlI=0\i.E Tl2a0\L.ETI 3.0
L.ETClc0\LETC2=0\PRINT
IFC2 e .4THENI60\PRINT"THE BATH_R WALKS."\GOSUaQ20\GOTOI40
IfCI<>3THENI80\PRINT"THE BATTER STRUCK OUT,"\LET C3.CHI\GOTOI40
If SI=ITHEN\80\I.ETXoX+\
IfC3e3THEN270\lfS 10\ THENI90\LETSlol \GOT0200
PR I NT" AFTER" 1 IJ "INNINGS'" \LET 101 + I \LETS 100
2Q10 PRINTI2;"RUNS,";I11"HITS,",13: II ERRORS AND"1B1+B2+B3'''LEFT ON SASE."
210 If I =5THEN 1420\ IF S 1=0THEN230\PR I NT" t to M"I \GQT0240

220
230
240
250
2b0

I fS 1=0THEN230\PR I NT" I' M" J\GOT024~
PR I NT" VOU' RE'"
PRINT" UP NOW."\PRINT"SCOREI ME",S21"YOU",S3
PRI~T\LETC3=0

GOTOl30

270 PRINT"YOUR PLAY? I';

280 FOR A=I T020\ I NPUlSe eA) \ IF B (A )'141 THEN290\NEXH
290 LETO=I*RNO(5)\PRINT
300 l.ETC=100*SO)+B(2)\IF SI'0THEN420
310 IFC<>19713THEN320\I.ETO=0+C (X) \GOTD 12B0
320 IfCe.1 q993THEN330\LETD*O+F (X) \GOTO 1280
330 IFC'19597THENI280
340 IFCoI9&10THENI280
350 IfC=21104THEN1280
3b0 IFC02050bTHENI280
37 0 IFC'.20110THEN380\ IFO'. aTHEN I 280\GOTO I 210
380 IFCe.21308 THEN3q0\ IFO<, 8THEN 1280\GOTO 1270
390 IFCe.19700THEN400\PR I NT "RUNNERS ARE STICK I NG." \GOT0270
400 IFCe.1 9593THEN410\PR INT"MY BA HER" J\GOT01300
410 FORAI'ATOA-! \PRINTeHRS (6 (AI) l J\NEXTAI \PRINT"?" \GOT0270
"20 IFCe.19b !3THEN"30\PR INT" YOUR 8A TTER" 1 \GOSU8570\GOTO 140
430 IfC a 21315THEN1280
440 IFCc>19700THEN450\PRINT"CHEtK NOT YET IN,"\GOT0270
"50 IFC=20a0ITHENI280
460 IFCC.21312THEN470\PRINT"STEAI. NOT YET IN,"\GOT0270
"70 IFC=2IZ93THENI280
480 IFC=20110T"ENI<80
"90 !fC'20004THENI280
500 IFCoi0501 THENI<80

SAMPLE RUN
RU'"
"ASE9L

01.38 P"I

16-MAY-73

'NELCOMF.: TO HUI SMA~ StADIU:'tf FOR TODAY'S GREAT GAMF.:
THE PDP-6 PA>lTHERS

YOUR PLAY? KILL
INSIDE - BALL 3
YOUR PLAY? S"'ING
INSIDE - BALL 2
YOUR PLAY? KILL
INSIDE CORNER - CALL
STRIKE 1
YOUR' PLAY? HIT-AWAY
FOUL I STRIKE 2
YOUR PLAY? BUNT
YOUR BATTER 'GROUNDED TO THE PITCHER WHO THREW OUT THE MAN AT FIRST.
T HAT WAS OUT NUMBER 1

A~D

(YOUR

~A"lE

Rl!:Tw~EN

PLEAS;:' THE? RSTS/F. ROCIrr.TS

A HIGHLY PAilTISM CROWD OF 53971 FMJS IS A'JXIOUSLY A;;AITI"!G T;rE
START OF THE GAME.
HERE IS MY TEAM'
A~D ~ERE IS YOURS,

NAME

AVERAGE

HUISMA"!
HOEHEN'
BACCUS
SMITH
SCflNEIDER
ROSEr-IBAUM

.412001
• 236001
.241001
.367001
.295001
.319001

POULSE~

.295eJ01

KILGOUR
JOHI\ISON
'HITNEY

.216001
.236001
MANAGER

NA!'vJE

AVERAGE

.316001

NJA'iER

.36~001

HANSEN

.321001
• 29f.t?l01
.2650'01
.295001
.139001
.231001
MANL\(:;ER

MICi-{~L

P. D. PEATE
WILLIAMS
NF.LSO'"
AN'{COR!'l
IVEY

YOUR PLAY? BUNT
YOUR BATTER GROUNDED TO THE PITCHER WHO THREW OUT THE MAN AT FIRST •
THAT WAS OUT NUMBER 2

.2~3001

,(LOOS
,ANDREWS

YOUR- PLAy? S"'ING
INSIDE CORNER - CALL
STRIKE 1
YOUR PLAY? SWING
OUTSIDE - BALL 1
YOUR PLAY? KILL
OUTSIDE - BALL 2
YOUR PLAY? GROUNFDER
INSIDE - BALL 3
YOUR PLAY? GROUNDER
YOUR BATTER LINED OUT TO THE ,THIRD BASEMAN.
THAT WAS OUT NUMBER 3

PITCHER '5 OPTIO!'llS ARE:
FASTBALL
BEANBALL
BRUSfl13ACK
BALL
CURVE
SLIDER
KNUCKLE

o RUNS .. 0 HITS .. (21 ERRORS AND 0 LEFT ON BASE.
I'M UP NOW.
SCORE. ME 0 YOU 0

GREASEqALt. CI LLEGAt..)
SPITBALL CILLEGAL'
CHECK
BATTER'S OPTIONS ARE:
BU!'lT
SwING
HIT-A1>AY
SA,CRIFICE
G.fiQUNIJER.
FLY
'{ILL

THE ?Af\lT1-fERS ARE TA~ING TI-IE. FIRLD N'OW AS A~DR~WS OF TH~

RSTS/E HOCI{ETS ADVANCES TO T,~ PLATF.:.
Pt.1O';ASE Wtl.IT AS rqR COMPUTJ;;R '51"r5
lm ,NATIQ"IJAL ANT'iEM TO ITSELF - 2 OR 3 TIMES!
JUST SIl\JG
ALONG UNTI L ASl{ED FOR YOUR PLAY.
YOUR P!.AY? SWING
YOUR BATTER GROUNDED TO SHORTSTOP WHO THREW OUT THE MAN AT FIRST.
~AT

WAS OUT NUMBER 1

YOUR PLAY? SW ING
INSIDE -

BALL 1

YOUR PLAY? SWING
INSIDE -

BALL 2

YOUR PLAY? HIT-AWAY
INSIDE CORNER - CALL
STRIKE
YOUR PLAY? KILL
INSIDE CORNER - CALL
STRIKE 2
YOUR PLAY? KILL
YOUR BATTER HIT TO LEFT FIELD FOR AN OUT.
THAT WAS OUT NUMBER 2
YOUR PLAY? SWING
OUTSIDE - BALL 1
YOUR PLAY? KILL
OUTSIDE I BALL 2

YOUR PLAY? HIT-AWAY
YOUR BATTER POPPED OUT
THAT WAS OUT NUMBER 3

IN SHALLOW LEFT.

o RUNS .. !tJ HITS .. 0 ERRORS AND 0 LEFT ON BASE.
I'M UP NOW.
SCORE.

ME 0 YOU 0

YOUR PLAY? FASTBALL
MY BATTER HIT THROUGH THE HOLE INTO RIGHT FOR A SINGLE.
YOUR PLAY? FASTBALL
MY BATTER GROUNDED TO THE PITCHER WHO THREW OUT THE MAN FORCED TO SECOND
"'D THEN TO FIRST FOR A DOUBLE PLAYI
THAT WAS OUT NUMBER 2
YOUR PLAY? CURVE
MY BATTER HIT TO LEFT FIELD FOR AN OUT.
THAT WAS OUT NUMBER 3
AFTER 1 INN INGS 0 RUNS",

1 HI T5 ... 0 ERRORS AND 0 LEFT ON BASE.

\QUIRE UP NOW.
SCORE.

ME0 YOU 0

BASKET

BASKETBALL GAME VS DARTMOUTH

Description
This program simulates a game of basketball between Dartmouth
College and an opponent of your choice. You are the Dartmouth
captain and control the type of shot and defense during the
course of the game.
There are four types of shots: 1. Long Jump Shot (30 ft.),
2. Short Jump Shot (15 ft.), 3. Lay Up, and 4. Set Shot.
Both teams use the same defense, but you may call it: Press (6),
Man-to-man (6.5), Zone (7), or None (7.5). To change defense,
type "0" as your next shot.
Note: The game is biased slightly in favor of Dartmouth. The
average probability of a Dartmouth shot being good is 62.95%
compared to a probability of 61.85% for their opponent.
(This makes the sample run somewhat remarkable in that Cornell
won by a score of 51 to 35. Hooray for the Big Red!)
Program Author
Basketball programs were received from B.ill Heuer, Fort Worth,
Texas; James Bonalumi, Torrington, Conn.; and Alan Segal,
Roslyn, New York. The one published was written by a thensophomore at Dartmouth in the Class of '70:
Charles R. Bacheller
Dartmouth College
Hanover, NH 03755

PROGRAM LISTING
5 RANDOMIZE
18 PRINT "THIS IS DARTMOUTH COLLEGE BASKETBALL, YOU WILL BE DARTMOUTH"
2. PRINT" CAPTAIN AND PLAYMAKtB, CALL SHOTS AS FOLLOWS. I, LONG"
30 PRINT
D0 FT,) JUMP 8HOT. 2 SHORT [15 rT,) JUMP SHOTI 3, LAY"
40 PRINT
UP, 4, SET SHOT,"
60 PRINT "BOTH TEAMS WILL USE THE SAME DEfENSE, CALL DEfENSE AS"
78PRINT" FOLLOWS. 6 PRESS,
6,5 MAN-TO-MAN,
7 ZONE I
7.5 NONE,'72 PRINT" TO CHANGE DEFENSE, JUST TYPE
0
AS YOUR NEXT SHOT,'
74 PRINT "YOUR STARTING DEFENSE WILL BE",

l~PUT

77 IF D<6 THEN 2010
79 PRINT
80 PRINT "CHOOSE YOUR OPPONENT" I
82 INPUT D'
U0 PRINT "CENTER JUMP"
390 IF RND > 3/5 THEN 420
400 PRINT OS," CONTROLS THE TAP,"
410 GO 'XO l000
420 PRINT "DARTMOUTH CONTROll5 THE TAP."
425 PRINT
430 PRINT "YOUR SHOT"I
435 LET P-0
440 INPUT Z
445 If Z<'INT(Z) THEN 455
446IF ASS(Z-Z»2 THEN 455
447 GOTO 460
455 PRINT "INCORRECT ANSWER.
Rnne IT",
456 COTO 440
460 GO TO 470
470 IF RND <.5 THEN 1000
480 If 1<100 THEN 1000
490 PRINT
491 IF S(1)OS(0) THtH 510
493 PRINT

495
496
497
498
499
500

PRI~T

***** END or SF-CONe HALf *****:'1

***** END Ot~ GAME *****"

515 PRINT "FINAl. SCOREI DARTMOUTH" SCI) lOS" "S(0)
520 STOP
600 PRINT
610 PRINT' *** TWO MINUTES LEFT IN THE GAME ***"
520 PRINT
630 RETURN
1000 If Z-I THEN 1040
1020 IF Z-2 THEN 1040
1036 GO TO !l00
1040 L1:T ToT+1
1041 IF T-S0 THEN 8000
1042 IF T 0 92 THEN 104.
1043 GO TO 1050
1046 GOSUB 600
1050 PRINT "JUMP SHOT"
1060 IF RNO >.141*D/8 THEN 1090
1010 PRINT "SHOt IS GOOD."
1075 COSUS 7000
1085 CO TO 3000
1090 IF RND >.682*D/8 THEN 1200
1100 PRINT "SHOT IS orr TARGET."
1105 IF D/6_RND>.45 THEN 1130
1110 P~INT 'DARTMOUTH CONTROLS rH~ RE80UND,"
1120 GO TO 1145

1130 PRINt

"REBOU~D

TO "rO$,"."

1137 GO TO 3000
1145 IF RND>.40 THEN 1158
1150 GO TO 1300
1158 IF D~6 THEN 5100
1160 PRINT "BALL PASSED BACK TO You. ",
1170 GO TO 430
1180 IF RND',9THENI190
1185 PRIN! "PLAYER FOULED. TWO SHOTS."
1187 GOSUS 4000
1188 GO TO 3000

1190 P~INT "BALL STOLEN, "IOSI"IS B~LL.p
1195 GO TO 30~0
1200 IF RND'.782*D/8 THEN 12S0
1210 PRINT "SHOT IS SLaCKED.
BALL CONTROLLED BY",
1230 IF RND>.S THEN 1242
1235 PRINT" DARTMOUTH,"
1240 GO TO 430
1242 PR.INT " II,OS,","
1245 GO TO 3000
1250 If RND>.843*D/8 THEN 1270
1255 PRINT "SHOOTER IS FOULED,
TWO SHOTS,"
1260 GOSUS 4000
1265 GO TO 3000
1270 PRINT "CHARGING FOUL.
DARTMOUTH LOSES THE BALL,"
1280 GO TO 3000
1300 LET T-1+ 1
1301 IF T050 THEN 8000
1302 IF T-92 THEN \304
1303 GO TO 1l0S
1304 GOSUS 600
1305 IF Z00 THEN 2010
1310 IF Z>3 THEN 1700
1320 PlUNT "LAY UP."
1330 IF 7/D*RND'.4 THEN 1360
1340 PRINT "SHOT IS GOOD.
TWO ~OINTS."
134~ GOSUB 7000
1355CO TO 3000
U60 IF 7/D*RND'.7 iHEN 1500
1370 PRINT "SHOT IS orr THE RIM."
1180 IF RND>2/3 THEN 1415
1390 PRINT OS I" CONTROLS THE RI<SOUND."
1400 GO TO 3000
1410
1415 PRIIIT "DARTMOUTH CONTROLS THE REBOUND."
1420 IF RND>.4 THEN 1440
1430 GO TO 1300
1440 PRINT "BALL PASSED .BACK TO YOU." I
1450 GO TO 430
1500 IF 7/D*RIID>.875 THEN 1600
TWO SHOTS.'
1510 PRINT 'SHOOTER rOULED.
1520 GOSUB 4000
1530 GO TO 1000
1600 IF 7/D*RND>.925 THEN 1630
1610 PRINT "SHOt BLOCKED. "O'J"IS BAL"."

1820 GO TO 3000
~~I~~ ;;:~RGn!G rOUL,

DARTMOUTH LOSES THE BALL,'

1700 PRINT "S!;T SHOT"
1710 aD TO 1330
2.010 PRINT "YOUR· NEW DEFENSIVE ALLIGN.MENT IS",
2020 lNPUT D
2010 If 0<6 TIIEN 2.10
2040 GO TO· 425
3000 LEt pol
3005 LET T-To\
3008 Ir T=54 THEN 8000
]010 llI' T_92 THEN ]015
]012 GO TO 3018
3015 GOSUS 600
l018 PRINT
]020 LET ZI-10/4_RNDol
3030 IF ZI>2 THEN 3500
l040PRINT "JUMP SHOT"
3050 II" 8/0*IIND>,3S. THEN )100
3060 PRINT "SHOT IS GOOD."
3080 Goaus 6000
3090 GO TO 425
3100 IF S/D-RND>.75 THEN 3200
3105 PRINT "SHOT IS orF THE RIM."
3110 IF D/6-RND>.S THEN liS.
l120 PRINT "DARTMOUTH CONTROLS THE REBOUND."
UJ0 GO TO 425
3150 PRINT O.~" CONTROLS THE RESOUND."
3160 IF Da6 THEN 5000
3155 IF RND>.S THEN 3175
lI68 PRINT "PASS BACK TO "
GUARD.'
] j 70 GO TO 3000
3175 GO TO 3500
3200 If 8/D*RND>,9 THEN 3310
3210 PRINT "P~AYE~ FOULED.
TWO SHOTS."
3220 GOSUS 4000
1230 GO TO 425
3310 PRIWT 'OFFENSIVE rOUL. DARTMOUTH'S BALL"
3320 GO TO 425
3500 IF ZI.3 THEN 3800
3510 PRINT "LAY UP"
1520 II" 71D-RND>,413 THEN lU0
3530 PRINT "SHOT 15 GOOD."
l540 GOSUS 6000
3550 GO TO 42.
3600 PRINT "SHOT IS MISSED,'
l610 GO TO 31U
3800 PRINT "SET SHOT"
)8\0 GO TO 3530
4000 REM .rOUL SHOOTING*
4010 IF RND>.49 THEN 40.0
4020 PRINT "SHOOnR MAKES BOTH SHUTS,"
4030 LET SII-P)=S[1-P)+2
4040 GOllUS 6010
4041 RETURN
4050 IF RND'.75 THEN 4100
4060 PRINT "SHOOTER MAKES ONE SHOT AND MISSES ONE,"
4070 LET S(1-P)cS[1-P)ol
4080 GO TO 4040
4100 PRINT "BOTH SHOTS MISSED."
UI0 GO TO 4040
5000 IF RND>. 75 THEN 5010
500. GO TO 31b5
5010 PRINT "BALL STOLEN.
EASY J..AY-UP FOR DARTMOUT~,"
~u 5 GOSUS 7000
5030 GO TO 3000
5100 IF RND'.6 THEN 5120
5110 GO TO 1160
5120 PRINT "PASS STOLEN BY "IOSI" EASY LAI-UP,"
5130 GOSUS 6000
5140 GO TO 425
6000 LET 8(0)a810)+2
6010 PRINT "SCORE I " SCI!I "TO ., 5(0)
6020 RETURN
7000 LET S(I)"S(1)+2
7010 GOSUS 6010
7020 RET-URN
8000 PRINT"
***** END OF FIRST HALF ***n"
8010 PRINT"SCORE' DARTMOUTH" 5(1), OS" "S(0)
8015 PRINT
8016 PRINT
8020 GO TO 370
9999 E'ID

0',"

"SCORE AT END OF REGUJ..ATION TWE I"
PRINT"
DARTMOUTH" 5(1), OS" "5(0)
PRINT
PRINT "BEGIN TWO MINUTE OVERTIME PERIOD"
LET T-93
GO TO 370

510 PRINT

SAMPLE RUN
THIS IS DARTMOUTH COLLEGE BASKETBALL.
"'OU WILL BE DARTMOUTH
CAPTAIN AND PLA"'i'lAKER.
CALL SHOTS AS FOLLOWS:
1. LONG
<30 FT. ) JUi'lP SHOT; 2 SHORT (13 FT. ) JUMP SHOT; 3. LA ...
UP; 4. SET SHOT.
BOTH TEAMS 101 I LL USE THE SAME DEFENSE. CALL DEFENSE AS
FOLLOWS: 6 PRESS;
6. 5 MAN-TO-MAN;
7 ZONE;
7. 5 NONE.
TO CHANGE DEFENSE, JUST T ... PE
0
AS ...OUR NEXT SHOT.
YOUR STARTING DEFENSE WILL BE 77
CHOOSE YOUR OPPONENT ?CORNELL
CENTER JUMP
CORNI!LL CONTROLS THE TAP.
LAY UP
SHOT I S GOOD.
SCORE:
9 TO

LAY UP
SHOT 15 GOOD.
SCORE:
29 TO

JUMP SHOT
SHOT IS OFF THE RIM.
CORNELL CONTROLS THE REBOUND.
PASS BACK TO CORNELL GUARD.

2
LAY UP
SHOT 15 MISSED.
CORNELL CONTROLS THE REBOUND.
LAY UP
SHOT 15 MISSED.
DARTi'lOUTH CONTROLS THE REBOUND.

YOUR SHOT 71
JUMP SHOT
SHOT IS OFF TARGET.
D,ARTf10UTH CONTROLS THE REBOUND.
BALL PASSED BACK TO "'OU. ...OUR SHOT 72
JUHP SHOT
SHOT I S GOOD.
SCORE:
6 TO 4

YOUR SHOT ?1
JUMP SHOT
SHOT I S BLOCKED.

YOUR SHOT ?2
JUMP SHOT
SHill I S BLOCKED.
YOUR SHOT ?1
JUMP SHOT
SHOT I S GOOD.
SCORE:
8 TO 4

YOUR SHOT ?1

.....

BALL. CONTROLLED B~' DARTMOUTH.

YOUR SHOT ?4
SET SHOT
SHOT 15 OFF THE RIM.
DARTf10UTH CONTROLS THE REBOUND.
BALL PASSED BACK TO "'OU .... OUR SHOT 73
LAY UP.
SHOT IS OFF THE RIM.
DARTf10UTH CONTROLS THE REBOUND.
LAY UP.
SHOT I S GOOD.
TWO PO I NTS.
SCORE:
18 TO 6

TWO MINUTES LEFT I N THE GAI'IE

JUI'IPSHOT
SHOT I S GOOD.
SCORE:
11 TO

LAY UP
SHOT 15 GOOD.
SCORE :. 31 TO

YOUR SHOT n
LAY UP.
SHOT I S GOOD.
SCORE:
n TO

TWO POINTS.
45

SET SHOT
SHOT I $ GOOD.
SCORE:
n TO

YOUR SHOT ?2
JUMP SHOT
SHOT IS OFF TARGET.
REBOUND TO CORNELL.
,LAY UP
SHOT IS MISSED.
DARTMOUTH CONTROLS THE REBOUND.

SET SHOT
,
SHOT I S GOOD.
SCORE:
33 TO

YOUR SHOT ?3
LAY UP. .
sHIn I S GOOD.
SCORE: .35 TO

TWO PO I NTS.
49

SET SHOT
SHOT ISM I SSED.
CORNELL CONTROLS THE REBOUND.
PASS BACK TO CORNELL GUARD.

YOUR SHOT ?1
JUMP SHOT
SHOT 15 GOOD.
SCORE:
12 TO

LAY UP
SHOT IS GOOD.
SCORE:
12 TO

JUMP SHOT
SHOT I S GOOD.
SCORE:
35 TO

YOUR SHOT ?1
FINAL SCORE: DARTMOUTH 35 CORNELL

LAY UP
SHOT IS MISsED.
CORNELL CONTROLS THE REBOUND.
PASS BACK TO CORNELL GUARD.

CORNELL'S BALL.

***.* END o~ GAME *****

YOUR SHOT ?2
JUMP SHOT
SHOT I S OFF TARGET.
DARTMOUTH CONTROLS THE REBOUND.
BALL PASSED BACK TO YOU. YOUR SHOT 74
SET SHOT
SHOT IS OFF THE RIM.
CORNELL CONTROLS THE REBOUND.

YOUR SHOT ?3
LAY UP.
SHOT BLOCKED.

***

'lOUR SHOT ?1
JUMP SHOT
SHOT IS OFF TARGET.
DARTMOUTH CONTROLS THE REBOUND.
LAY UP.
SHOT IS OFF THE RIM.
DARTMOUTH CONTROLS THE REBOUND.
LAY UP.
SHOT IS OFF THE RIM.
CORNELL CONTROLS THE REBOUND.

LAY UP
SHOT IS MISSED.
CORNELL CONTROLS THE REBOUND.
LAY UP
'SHOT I S GOOD.
SCORE:
18 TO 8

JUf1P SHOT
SHOT I S GOOD ..
SCORE:
12 TO

BALL CONTROLLED BY CORNELL.

JUMP SHOT
SHOT IS OFF THE RIM.
DARTMOUTH CONTROLS THE REBOUND.

SET SHOT
SHOT ISM I ssm.
DARTMOUTH CONTROLS THE REBOUND.

SET SHOT
SHOT 15 GOOD.
SCORE:
8 TO

YOUR SHOT 14
SET SHOT
SHOT IS OFF THE RIM.
CORNELL CONTROLS THE REBOUND.

SET SHOT
SHOT IS MISSED.
DARTMOUTH CONTROLS THE REBOUND.

JUMP SHOT
SHOT I S GOOD.
SCORE:
4 TO

LAY 'UP
SHot IS MISSED.
CORNELL CONTROLS THE REBOUND.
LAY UP
SHOT 15 GOOD.
SCORE:
29 TO 41
YOUR SHOT ?2
JUMP SHOT
SHOT 15 OFF TARGET.
REBOUND TO CORNELL.

YOUR SHOT ?2
JUMP SHOT
BALL CONTROLLED BY DARTMOUTH.
SHOT IS BLOCKED.
YOUR SHOT ?3
LAY UP.
SHOT IS GOOD.
TWO POINTS.
SCORE:
2 TO 2

~OUR SHOT ?2
JUMP SHOT
SHOT I S GOOD.
SCORE:
4 TO

JUMP SHOT
SHOT I S OFF TARGET.
DARTMOUTH CONtROLS THE REBOUND.
LAY UP.
SHOT :is GOOD.
TWO POINTS.
SCORE:
29, TO· 39

BATNUM

BATTLE OF NUMBERS

Description
The game starts with an imaginary pile of objects, coins for
example. You and your opponent (the computer) alternately
remove objects from the pile. You specify in advance the
minimum and maximum number of objects that can be taken on
each turn. You also specify in advance how winning is
defined: 1. To take the last object or 2. To avoid taking
the last object. You may also determine whether you or the
computer go first.
The strategy of this game is based on modulo arithmetic.
If
the maximum number of objects a player may remove in a turn
is M, then to gain a winning position a player at the end of
his turn must leave a stack of 1 modulo (M+l) coins. If you
don't understand this, play 23 Matches (23 MTCH) first, then
BATNUM, and just have fun!
Program Author
BATNUM is based on an old game similar to NIM. Its adaptation
for the computer appears to originally be by the daddy of
BASIC:
John Kemeny
Dartmouth College
Hanover, NH 03755

:!:!o

~"C

:..

:..E

.0'"
I:

I!!

______________________________________________

~=
:00
'" ()
0
::J

PROGRAM LISTING

SAMPLE RUN

110 PRINT "THIS PROGRAM IS A 'BATTLE OF NUMBERS'"
120 PRINT"GAME, WHERE THE COMPUTER IS YOUR OPPONENT. "
130 PRINT
140 PRINT"THE GAME STARTS WITH AN ASSUMED PILE OF OBJECTS. YOU AND"
150 PRINT"YOUR OPPONENT ALTERNATLY REMOVE OBJECTS FROM THE PILE. "
169 PRINT"WIN.NING 15 DEFINED IN AD~'ANCE AS TAKING THE LAST OBJECT"
179 PRINT"OR NOT. YOU CAN ALSO SPECIFY SOME OTHER BEGINNING"
180 PRINT"CONDITIONS. DON'T USE ZERO, HOWEVER, IN PLAYING THE GAME.
290 PRINT
219 GOTO 330
220 FOR 1=1 TO 10
230 PRINT
240 NEXT I
339 PRINT"ENTER PILE SIZE:";
349 INPUT N
350 IF N()0 THEN 370
360 GOTO 330
370 IF N()INT(N) THEN 220
380 IF N(1 THEN 220
3~0 PRINT "ENTER WIN OPTION - 1 TO TAKE LAST, ;;: TO AVOID LAST: ";
400 INPUT M
410 IF 1'1=1 THEN 430
420 IF 1'102 THEN 390
430 PRINT "ENTER "IN AND MAX: ';
440 I NPUT A, a
450 IF A)a THEN 430
460 IF A(1 THEN 430
479 IF A()INT(A) THEN 439
489 IF a()INT(B) THEN 430
4~9 PRINT"ENTER START OPTION - 1 COMPUTER FIRST, 2 ,'OU FIRST:";
509 INPUT S
519 IF 5=1 THEN 530
520 IF S()2 THEN 4~0
530 LET C=R+B
549 IF. S-2 THEN 570
559 GOSUS 600
569 IF W=1 THEN 220
579 GOSUB 810
580 IF W=1 THEN 220
590 GO TO 550
600 LET Q=N
619 IF 1'1=1 THEN 630
629 LET Q=Q-1
639 IF 1'1=1 THEN 680
640 IF N)A THEN 720
650 LET W=1
660 PRINT"COMF'UTER TAKES"; Ni "AND LOSES. "
679 RETURN
689 IF N)B THEN 720
6~0 LET W=1
790 PRINT"COMPUTER TAKES" i Ni "AND WINS. "
710 RETURN
720 LET P=Q-C*INT(Q/C)
730 IF P)=A THEN 750
740 LET P=A
750 IF P<=B THEN 770

THIS PROGRRM IS A 'BATTLE OF NUMBERS'
GAME. WHERE THE COMPUTER IS ... OUR OPPONENT.
THE GAME STARTS WITH AN ASSUMED PILE OF
YOUR OPPONENT AL TERNRTLY REMOVE OBJECTS
WINNING IS DEFINED IN ADVANCE AS TAKING
OR NOT. YOU CAN ALSO SPECIFY SOME OTHER
CONDITIONS. DOW T USE ZERO, HOWEVER, IN

OBJECTS. YOU AND
FROM THE PI LE.
THE LAST OBJECT
BEGINNING
PLRYING THE GAME.

ENTER PILE SIZE: 123
ENTER WIN OPTION - 1 TO TAKE LAST, <: TO AVOID LAST:
?2
ENTER MIN AND MAX:
71,3
ENTER START OPTI-DN - 1 COMPUTER FIRST, <: ,'OU FIRST: ?2
YOUR MOVE:
12
COMPUTER TAKES l' AND LEAVES 20
YOUR MOVE:
?3
COMPUTER TAKES 1 AND LEAYES 16
YOUR'MOYE :
?3
COMPUTER TAKES 1 AND LEAVES 12
YOUR MOVE:
13
COMPUTER TAKES 1 AND LEAYES 8
YOUR MOVE:
?3
COMPUTER TAKES 1 RND LEAYES 4
YOUR MOVE:
13
COMPUTER TAKES
RND LOSES.

ENTER PILE SIZE: 723
ENTER WIN OPTION - 1 TO TRKE LAST, 2 TO AYOID LRST:
ENTER MIN AND MAX:
71,3
ENTER START OPTI ON - 1 COMPUTER FIRST, 2 YOU FIRST:
COMPUTER TAKES 2 AND LEAVES 21
YOUR MOVE:
13
COMPUTER TAKES 1 AND LEAVES 17
YOUR MOVE:
?2
COMPUTER TAKES 2 AND LEAVES 13
YOUR MOVE:
71
COMPUTER TAKES 3 AND LEAVES 9
YOUR MOVE:
71
COMPUTER TAKES 3 AND LEAVES 5
YOUR MOYE:
?3
COMPUTER TAKES 1 AND LEAVES 1
YOUR MOYE:
71
TOUGH LUCK, YOU LOSE.

760 LET P=B
770 LET N=N-P
789 PRINT"COMPUTER TRKES" i Pi "RND LEAI/ES' iN
790 LET W=0
800 RETURN
810 PRINT " ...OUR MOYE: ";
820 INPUT'P
839 IF P00 THEN 870
848 PRINT"I TOLD YOU NOT TO USE ZERO ... COMPUTER WINS BY FORFEIT.•
850 LET W=1
860 RETURN
879 IF P()INT(P) THEN ~20
880 IF P)=A THEN ~10
890 IF P=N THEN ~60
~09 GO TO 920
~10 IF P(=B THEN ~40
929 PR I NT "I LLEGAL MOYE, REENTER IT: .. i
~30 GO TO 820
940 LET N=N-P
950 IF Noe THEN 1030
~60 IF 1'1=1 THEN 1000
970 PRINT"TOUGH LUCK, YOU LOSE. "
~80 LET W=1
990 RETURN
100e PRINT"CONGRATULATIONS, YOU WIN ...
1018 LET W=1
1920 RETURN
1030 IF N)=0 THEN 1060
1040 LET N=N+P
1850 ao TO ~20
1960 LET W=0
1079 RETURN
1080 END

ENTER PILE SIZE: ?27
ENTER WI N OPTI ON - 1 TO TAKE LAST, 2 TO AYe I D LAST:
?1
ENTER MIN AND MAX:
71,4
ENTER START OPTION - 1 COMPUTER FIRST, 2 YOU FIRST: ?2
"'OUR MOVE:
?2
COMPUTER TAKES 1 AND LEAYES 24
YOUR HOVE:
74
COMPUTER TAKES 1 AND LEAYES 1~
YOUR MOVE:
74
COMPUTER TRKES
AND LEAI'ES 14
YOUR MOVE:
14
COMPUTER TAKES 1 AND LEAYES ~
YOUR MOVE:
14
COMPUTER TAKES
AND LEAYES 4
"'OUR MOVE:
74
CONGRATULATI ONS, YOU WIN.

BATTLE

NAVAL SHIP BATTLE

Description
This description is an adaptation of the one written by Ray
Westergard, the program author.
"BATTLE is based on the popular game Battleship which is
primarily played to familiarize people with the location
and designation of points on a coordinate plane.
II

BATTLE first randomly sets up the bad guys I fleet disposition
on a 6 by 6 matrix or grid. The fleet consists of six ships:
Two destroyers (ships number 1 and 2) which are two units long,
two cruisers (ships number 3 and 4) which are three units long
and two aircraft carriers (ships number 5 and 6) which are
four units long. The program then prints out this fleet disposition in a coded or disguised format (see the sample computer print-out). You then proceed to sink the various ships
by typing in the coordinates (two digits, each from 1 to 6,
separated by a comma) of the place where you want to drop a
bomb, if you I 11 excuse the expression. The computer gives
the appropriate responses (splash, hit, etc.) which you should
record on a 6 by 6 matrix. You are thus building a representation of the actual fleet disposition which you will hopefully
use to decode the coded fleet disposition printed out by the
computer. Each time a ship is sunk, the computer prints out
which ships have been sunk so far and also gives you a
"SPLASH/HIT RATIO".
The first thing you should learn is how to locate and designate
positions on the matrix, and specifically the difference between
"3,4" and "4,3". Our method corresponds to the location of
points on the coordinate plane rather than the location of
numbers in a standard algebraic matrix: The first number gives
the column counting from left to'right and the second number
gives the row counting from bottom to top.
The second thing you should learn about is the splash/hit ratio.
"What is a ratio?" A good reply is "Itls a fraction or quotient.
Specifically, the splash/hit ratio is the number of splashes
divided by the number of hits.
If you had 9 splashes and 15
hits, the ratio would be 9/15 or 3/5, both of which are correct.
The computer would give this splash/hit ratio as .6.
One of the main objects and primary educational benefits of
BATTLE comes from attempting to decode the bad guys I fleet
disposition code. To do this, you must make a COMPARISON
between the coded matrix and the actual matrix which you construct as you play the game.
Program
Ray Westergard
Lawrence Hall of Science
University of California
Berkeley, CA 94700

PROGRAM LISTING
10
20
30
40
50
60
70
80
90
100

11m

120
130
140
150
160
170
180
190
200
210
220
230
240
250
260
270
280
2g0

300
310
320
330
340
350
360
37 0
380
390
400
410
420
430
440
450
460
470
480
490
500
510
520
530
540
550
560
570
580
590
600
610
620
630
640
650
660
670
680
690
700
710
720
730
740
750
760
770
780
790
800
810
820
830

840
850
860
870
880
890
900
910

REM -- BATTlE WRITTEN ~Y RAy WESTERGARD 10170
REM COPyRIGHT 1971 Sy THE REGENTS OF THE UNlv. OF CALIF.
RE~ PRODUCED AT THE lAWRENCE HAlL OF SCIENCE, BER~ElEy
DIM F E6,61,H E6,61,A E41,8 E41,C E61,l E31
MAT FoZER
FOR 101 TO 3
N.4.1
FOR Jol TO 2
AoINT(6· RND(01'·1
eo INT(6*RNOC0' '+1
OoINTC4.RNOC0".1
IF F EA,Bl >0 THEN 90
M00
GOTO D OF 150,340,550,740
8 EI] -S
B (2] oS [3]-7
FOR K_l TO N
IF M>I THEN 240
IF B [Kl06 THEN 230
IF F[A,BEK1+I]>0 THEN 230
B EK+Il-B [Kl+\
GO TO 280
M02
Zo((BEI] HIN B(2]] MIN 8(31)
IF zo I THEN 9~
IF F!A.Z-I]>0 THI'N 90
BEK.IloZ-1
NEXT K
F(A,Bl_9"2*I",J
FOR KOl TO N
F [A,B EK+lll'F [A,B]
NEXT K
GOTO 99~
A [11 'A
6[11 0 8
A (210A [310S [21,S [3].0
FOR ~01 TO N
IF H>I THEN 460
IF A(Kl'l OR B[Klol THEN 450
IF FEAEK,-l,8[Kl-lp0 THEN 450
IF F[A[~1'I,B[~1l>0 AND F[A[~I-I.B[~II'F[AEK1,~[~I-ll TH!',N 450
A E~+Il'A [,Kl-l
B [K+lloS [Kl-I
GOTO 530
H02
ZloCCAEI] MAX AE21) MAX A[311
Z2' CCB [I] MAX B E2] I MAX S [3] I
IF ZloS O~ Z2 0 S THEN 90
IF F[ZI.I,z2+ll>~ TMEN 90
IF F[ZI,Z2.1]>~ AND F[ZI,Z2+ll-F[ZI+I.Z21 TMEN 90
A [.+1] -ZI+I
B E.+\loZ2.1
NEXT K
GO TO 950
A Ell-A
A [21 'A E31'7
FOR .01 TO N
IF M>I THEN 640
IF A EK1-S THEN 630
IF F[A[Kl+I.Bl>0 THEN 630
A [X.IloA [Kl+1
GOTO 680
"02
Z'CCAtI] MIN A[21' MIN A[3])
IF Z'I THEN 90
IF FEZ-I,Bl>0 THEN 90
A [~+Il-Z-1
NEXT K
F tA,Bl-9-2,d .. J
FOR X=I TO N
F [,A EX+Il ,8] OF [A,Bl
NEXT K
GOTO 990

1170
1180
1190
1200
1210
1220
1230
1240
1250
1260
\270
1280
1290
1300
1310
1320
1330

PRINT "START GAME"
INPUT X,V
IF XCI ORX>6 OR INT(x,#AB5(xl THEN 1210
tFY'0 AND y c 7 AND INT(YloABs(y, THEN 1230
PR1Nt "INVAlID INPUT. TRY A~UN."
GO TO 1180
.07.Y
CoX
IF F ER,CI >0 THEN 1290
5 0 5+1
PRINT "SPLASHI
TRY AGAIN."
GOTO 1180
IF C[F[R,CllC4 THEN 13~0
PRINT "THERE USED TO BE A SHIP AT THAT POINT, SUT YOU SUNK IT,"
PRINT "SPlASHI TRY AGAIN."
sos+1
GO TO 1180
If H ER,el.0 THEN 1420
HoH+1
H[R,Cl-FER,el
PRINT "A DIRECT HIT ON SHIP NUHBER"'FER,Cl
C [F ER,C] laC EF ER.Cll+1
IF C EF CR,Cll >- 4 THEN 1470
PRINT "TRY AGAIN,"
GOTD 1180
PRINT 'yOU HAVE ALREADy PUT A HOlE IN SHIP NUMBER"IFtR,el'
PRINT "AT THAT P'OINT."
PRINT "SplASH I TRV AGAIN."
S"S+I
GO TO 1180
L tINT((F ER,Cl-I,/2,+lloL {INT( (F [R,C] -1)/2,011+1
PRINT "AND YOU SUNK IT. HURRAH FOR THE GOOD GUYS."
PRINT 'SO FAR THE BAD GUVS HAVE LOST'
PRINT L(U ,'OESTROYER(sl.
"llt2! ,"CRUISERCS]. AND '"
PRINT lo[3] '''A!RCRAf"T CARRIER(S,."
PRINT 'YOUR CURRENT SPLASHIHIT RATIO IS-,S/M
IF CL [!l.l [21+l (3] 1 c6 THEN 1180
PRINT
PRINT "YOU HAVE TOTAL.LY wIPED OUT THE BAD GuVS' FlEET"
PRINT "wITH A FINAL. SPLASH/HIT RATIO OF'ISIH
IF S/H>0 THEN 1590
PRINT "CONGRATUI.ATIONS .- A DIRECT HIT EVERy TIME,"
PRINT
PRINT K• • • • • • • • • • • • • • • • • • • »
PRINT
GOTD 50
END

13~0

1350
1360
1370
1380
1390
1400
1410
1420
1~30

1440
1450
1~60

1470
1480
14g0
1500
1510
1520
1530
1540
1550
1560
1570
1580
1590

1600

1610
1620
1630

SAMPLE RUN
THE FOLLOWING CODE OF THE BAD GUY5~ FLEET C-ISPOSITION
HAS BEEN CAPTURED BUT NOT DECODEC1

o
DE-CODE IT AND USE IT IF YOU CAN
BUT KEEP THE DECOD1NG METHOD A 5EC~:ET
START nAI1E
?2,1

A EI] • A

SPLASH' TRY AGA I N,

B [1108
A121,A [3107
8 [2] oB [31 -0
FOR ~.I TO N
IF M>I .THEN 870
IF A EK1.6 OR 8 [Xlol THEN 86~
IF F[A[Kl+I,BE~1-ll>0 THEN 860
IFFEA[Kl+I'B[Xll>0 AND FIAEX1+I,B[XlloFEA[Xl.8{I(I-P THEN 860
A [X+!l0A [X] +1
8 EX+I] -S EX1.1
GO TO 940

?5,4

A DIRECT HIT ON SHIP NUMBER
TRY AnA Ill,
INVALID INPUT, TRY AGAIN,
?5,3
A DIRECT HIT ON SHIP NUMBER 5
TRy AGAIN,
?5,4
YOU HAVE ALREADY PUT A HOLE 1 N SH I P MUM8ER ";

.-2
ZI'CCAEll MIN AE2]) MIN A(3))

RTo-THAT POINT.

SPLASH! TRY AGAIN.

?5,5

A DIRECT HIT ON SHIP NUM8ER 5
TRY AGAIIl,
15,2
A D!RECT HIT ON SHIP NUMBER 5

MAX 8E2]) MAX B{3]]
IF ZI-I OR Z206 THEN 90
IF FtZI~I,z2+1]>0 THEN 9~
IF F[ZI,Z2+1l>0 ANDF{ZI,Z2+lloF[ZI-I,Z21 THEN 90
92 0 A EX+tl-Zt-1
g30 8 EK+lloZ2+1
940 NEXT ~
950 F [A,Bl'9.2.I-J
960 FOR K-I TO N
970 F [A [K+Il,B [~+1l10F {A,Bl
ge0 NEXT K
990 NEXT J
1000 NEXT I
1010 PRINT
1020 PRINT "THE FOLlOWING CODE O.F THE BAD GUYS' FLEET DISPOSITION"
1030 PRINT "HAS BEEN CAPTURED BUT NOT DE-CODED I "
1040 PRINT
1050 HAT HOTRN(F,
1060 MAT PRINT H'
1070 PRINT
10S0 PRINT "DE-CODE IT AND USE IT IF YOli CAN"
10 90 PRINT "SUT KEEP THE DE-COOING METHOD A SECRET."
1100 PRINT
1110 MAT H-ZER
1120 HAT I.0ZER
1130 C [lloC [21-2
1140 C E31 0 c [~lol
1150 C [51 oC [61,0
1160 S_M.0
Z20(CB[1l

AND YOU SUNK IT.

HURRAH FOR THE GOO(;' GUY:::.

DESTROYEfHS),

CI<:UI::;ER 5) AN[)

50 FftR THE BfrD GU'r'S HA\o'E LOST
1
AIRCRAFT CA~:':IER(S),

YOU.: CUi\'RENT SF'LASH/HIT RATIO IS ,5
?L :t
A [)1RECT HIT ON SHIP NUM8ER

TRYAGAIIl,
?1'.2
A DIRECT HIT ON SHIP NUMBER 1
AND YOU SUNK I T.
1

HURRAH FOR THE GOO(;'

DESTROYEfHS),

GU~IS~

CRUISEP(S) 'AND

SO FA,.: :THE E:RD GUY::: 'HFIVE_ LOST
1,

A1RCRAFT CARRIER(S),

YOUR CURRENT SPLASH/HIT RATIO IS .3::::n:J:,3:
16,1
SPLASH' TRY ABAI~
?1, 6

A DIRECT HIT ON SHIP NIJM8H: S
TRY AGAIN,
?2.1;5

A DIRECT HIT ON SHIP NUM8E.: ]:
TRY AGAI N,
13,6
A DIRECT HIT ON 5H1P NIJI1BER ]
AND YOU SUNK IT.

HURRAH FOR THE Goor· GU'r'S.

1
DESTROYER(S),
1
CRUISEfi:(S) ANI)
YOU CURRENT SPLASH/HIT RATIO 15 . ]:7-:;

SO FFr(.';: THE BAD GU'r'S HAVE LOST
1
AIRCf<:ftFT (:ARFdER(S),

BINGO

COMPUTER BINGO

Description
In this game you and the computer playa game of bingo. The
computer first generates a bingo' card for both you and itself.
It then spins the number drum and draws numbers at random
which it posts on lithe board.
It's up to you to play both
your card and the card of the computer (a second person can
play this card if you wish).
II

The computer checks for BINGO on both cards, so don't try to
cheat!
Source
Sorry folks -- the author and source are totally unknown.
It showed up on an in-plant DIGITAL DECsystem-lO quite
mysteriously one day last year.

BINGO BINGO BINGO
ct TO 111

(1.,0 SO)

131 to 411

.U 60. t.' to
TO

7S)

10 ~ , 39 48 68

7 1 40 53 72

15 i )

(1. to IS)

11.'0301

Il' TO til

14 17

51 67
11
A1 5A 7A

48 72
40 50 67

12 18

1 ~ 5 31 57 69

30 44 4965

·HOA.I~ONTAL

(flOW)

~ ~

"ERTIC.~'- (C.OLUMN)

PROGRAM LISTING
100 RANDOMIZE
120 PRINT"YOU ARE NOW GOING TO PLAY A COMPUTERIZED VERSION OF BINGO . . "
180 LET F.l
190 DIM 8(10,\0)
200 DIM L(75)
210 MAT R~AO AS(5)
220 DATA B ,I ,N ,G ,0
235 REM
THIS SEQUENCE GENERATES THE CARD NUMBERS (LINES 240.4301
240 FOR Klo! TO 75
250 LET L(Kl1'0
260 NEXT Kl
270 PRINT" II,"
H~REIS ".
280 IF F>1 THEN 310
290 PRINT"YOUR CARD"
300 GOTO 320
310 PRINT"MY CARD"
320 LET Mol6
330 LET GoP'.4
]40 FOR YoF TO G
350 FOR xor TO G
360 LET RoYNT(M*RND)
370 IF R<M-15 THEN 360
380 IF L(R)<>~ THEN 360
390 LET B(X,Y)"R
400 LET LCR)-1
410 NEXT X
420 LET MoM.1S
430 NEXT Y
435 RE1~
THIS SEQUENCE PRINTS THE CARD (LINES 440-b70)
440 PRINT

X-,

47~ PRINT
480 PRINT
490 PRI~T
500 FOR Y=F TO G
510 IF 8(XiY1.aCY.2,Y.2) THEN 540
520 PRINT B(X,Y),
530 GOTO 550
540 PRINT"FR~~e:",
550 NEXT Y
560 NEXT X
570 PRINT
580 PRINT
590 PRINT
600 PRIN T II .. -_ ...... - ... - - . . . - - - _ . . . - - - .......... - - .. --~ - - _ .. - ...... - .. -_ ... - . - _ . . . . . . . . . - .. _ . - . . . . . . . ..
610 PRINT"
CTEAR OFF AFTER ~ACHINE AUTOMATICAtoLY ADVANCES PAPEk]"
620 FOR K9=1 TO 9
610 PRINT
640 NEXT K9650 If
THEN 680

f_'

660 T.ET F=6

710
720
730

740
750
760
770
780

GO TO 240
PRINT
PRINT"NOW WEIRE 'ALL SET TO Pt.AY THE GAME.
USE A PENCIL TO MARK Ot'F"
PRINT"THE NUMBERS ON YOUR CARD AS THEY ARE CALLED."
PRINT"
(PLEASE PLAY MY CARD AS WELL AS YOUR OWN)"
PRINT"***DON' T GET SMART,
I'LL BE PLAYING SOTH YOUR CARD un MINE"
PRINT"
UP HERE IN BOSTUN,
(SO THERE--)"
PRINT
PRINT "ARE YOU READY",
INPUT RS
IF RI<>"NO" THEN 82~
PRINT

190 PRINT"*********.HURRY UP:*********II
900
910
820
930
940
850
8b0
870
875
980
910
920
930
940
950
9b0

GOTO 740
REM
YOR Klal TO 75
LET L(Kll-~
NEX'! Kl
PRINT
LET B(3,3)=0
LET BC8,8)=0
REM THIS SEQUENCE GENERATES THE BINGO NUMBERS (LINES 880-1100)
LET U=INTC75*RNO).1
IF L(U)<>0 THEN 8a0
LET L(U)=1

1990 PRINT"

******** ••• IT's A TIE .*.********"

2130 PRINTII

lOU WIH .....

REM
THIS IS THE "PLAY AGAIN?' SEQUE~CE'
PP,INT
PRINT "DO YOU WAn TO PLAY AGAIN" I
INPUT ~$
202~ PRINT
2030 IF E$o"YE~" THEN 180
2040 STOP
2045 REM THIS IS THE "I wIN" SEQUENCE
2050 PRINT
2060 FOR Sol TO 6
2070 PRINT"I WIN,
'"
2090 NEXT S
2090 PRINT
2100 PRINT
2110 GOTO 200~
'211~ REM THIS IS THE "YOU WIN" SEQUF.NCE
2120 PRINT

1995
Z000
2010
2020

yoU

WI~ .......

YOU wIN ....... II

2140 GO'£O 2000
2145 REM THIS IS THE "EMO" 01' THE LIST OF PROGRUI ENTITLED "BINGO"

2150 E'W

P~INT

I f RNO > ,5 THEN 970
PRINT"THE NUMBER COMES UPI",
GOTO 980

970 PRINT"THE NEXT ONE 151",

980 PRINT AS(lNT(U-!l/15).11,U
1105 REM THIS IS THE "NUMBER ON CARD?" S~QUENCE (LINES 111~-12b0)
1110 rOR Y=1 TO 10
1120 FOR X.l TO 10
1130 IF ~CX,Y)=U THEN 1250
1140 NEXT X
1150 NEXT Y
1160 L.ET t'=1
1170 GOSUB 1270
1180 LET Ya6
1190 GOSUB 1270
1200 IF V=0 THEN 1230
1210 IF W=1 THE~ 1980
1220 GOTO 2050
1230 If' Wo0 THEN 880
1240 GOTO 2120
1250 LET S(X.Y)=0
1260 GOTO 1140
1265 REM THIS IS THE BINGO DgTERMINI~G SEQUENCE (LINES 127.-1950)
1266
1267 REM THIS IS THE VERtICAL CHECK FOR BINGO*** (LINES 1270-1430)
1270 LET GoY.4
1280 FOR yay TO G
1290 FOR XoF TO G
1300 IF B(X,Yl00 THEN 1430
1310 IF X<r.4 THEN 1420
1320 IF Y-6 THEN 1370
1330 PRINT
1340 PRINT"YOUIVE GOT A
BIN G 0 * * *"
1350 LET W=1
llU RETURN
1370 PRI~'T
1390 PRINT"I'VE GOT A
BIN G 0 * * * * *'
1190 LET V-I
1410 GO TO 1450
1420 NEXT X
1430 NEXT Y
1440 REM ~KIS IS TKE HORIZONTAL. CHECK FOR BINGO*** (LINES 145~-lbl~1

y.,

450 PRXNT " •• e•• II , 11 .... 1.""", 1I.·fol.·", 1t • • G•• II, 1t • • O-_"
460 FOR XoF TO G

670
680
690
700

LET aaY.4
FOR Xav TO G
FOR
TO G
IF B(X,Y)C>0 THEN 1610
1490 IF YCF+4 THEN 16~0
1500 Ir, '-6 TKEN 1550
1510 PRINT
1520 PI\INT"YOUIVE aOT A
Ii I N
0 * * .. "
1530 LET wal
1540 RETURN
1550 PRINT
1560 PRINT"IIVE GOT A
BIN GO" * * • • "
1570 LET Vol
1590 GOTO 1620
1600 NEXT Y
1610 NEXT X
1615 REM THIS IS THE SLANT CHECK CM'-I) FOR BINGO*** (LINES 1620.1770)
1620 LET
1630 LET Y.F
1640 IF B(X,Y)C>0 THEN 1770
1650 LET X.X.l
1660 LET YoHI
1&70 IF YCF.5 THEN 1640
1680 IF Yol1 THEN 1740
1690 UT W.I
1700 PRINT
17U PRINT"YOUIVE GOT A B
N G 0 * * ."
17l~ RETURN
1'740 PRINT"I'VB GOT A 8
N G 0
* *
1750 LET Vol
1770 REtURN
1775 REM THIS IS THE SLANT CriECK (Mol) FOR BINGO**. (LINES 1780.1950)
1790 LET xaF.4
179~ LET YaX
180~ IF B(X,Y)<>0 THEN 1950
1810 LET XoX-l
1820 LET yaHI
1830 IF YCNS THEN 1900
1840 IF Yol1 THtN 1900
1850 PRINT
1860 PRINTI''iOU'VE GOT A 8 I N GO • • • "
1870 LET W=1
1890 RETURN
1900 PRINT
1910 PRINT"I'VE 'GOT A 8 I N GO .. * * * ."
1920 LET Vol
1950 RETURN
1970 REM THIS THE TIE PRINTOUT SEQUENCE
1980 PRINT
1450
1460
1470
1480

SAMPLE RUN
NOl4 14E'RE ALL SET TO PLAY THE GFIME.
USE A PENCIL TO MA.,K OFF
THE NUMBERS ON ,'OUR CARD AS THE,' A.,E CALLED.
(PLEASE PLAY MY CARD AS WELL AS ,'OU., OWN)
***DOWT GET SMART.
I'LL BE PLA,'ING BOTH ,'OU., [:A.,C' ANC' MINE
UP HERE IN BOSTON.
(50 THERE--)

YOU ARE NOW GOING TO PLA,' A COMPUTE.,IZED VERSION OF 8INGO-HE.,E' 5 ,'OUR CARD
'--8--

--1--

--N--

--6--

--0--

ARE YOU READY ?,'ES

50
THE NUMBER COMES UP:

THE NEXT ONE IS;

THE NDa ONE 15:
11

FREE

THE NEXT ONE 15:

THE rwr1BER COMES UP:

THE NUMBER COMES UP;

THE NUMBER COMES UP:

3:7

THE NEXT ONE 15:

THE NEXT ONE IS:

THE NEXT ONE IS;

THE NEXT ONE 15:

7121

THE NEXT ONE IS;

THE NEXT ONE 15:

THE NEXT ONE IS:

THE NEXT ONE IS;

THE Nur18ER COMES UP:

3:8

THE NEXT ONE IS:

THE NUMBER COMES UF':

THE NEla ONE 15:
[TEAR OF.F AFTER MACH WE AUTOMAT! CALL Y A~'VANCE"; PAPER]

HERE~ S

'--B'--

--1--

2:1.

THE NEXT ONE IS:

M,' CA.,e,

--N--

THE NUf1BER COMES UP:

--·6--

--0--

THE NUMBER CQl1E5 UP:
THE NEXT ONE IS;

'rHE

NE~a

ONE IS;

THE NEXT ONE IS:
27

!'52

THE NUMBER COMES UP:

[TEAR OFF AFTm MACHINE AUTOMATICALL,' FI~'VANCE5 PAPER]

THE Nur1BER COMES UP:

THE NEXT ONE IS,

THE NIJI1BER COMES UP:

THE NEXT ONE 15:

THE NEla ONE 15:

THE NUMBER COMES UP:

YOU"VE GOT A

BIN GO*'

*' *'

YOU WIN.

,'OU WIN. .

00 YOU WANT TO PLAY AOAI N "'NO

,'OU WIN.

BLKJAK

GAME OF BLACKJACK

Description
This is a simulation of the game of blackjack or 21, Las Vegas
style. This is one of the more comprehensive versions of blackjack which allows splitting your hand if the first two cards·
are the same. Also, the dealer will ask for an insurance bet
if he has an exposed ace. The house limit is $500.00.
Source
A number of versions of this program were submitted.
Ira Gold-.
stein of Fort Worth, Texas, submitted a particularly interesting
version which uses a second chained program (DECK) to shuffle
the cards. Two versions are printed here -- one written anq
modified by a number of DIGITAL personnel for RSTS-ll and
another written by students at the Oregon Museum of Science
and Industry and slightly modified at DIGITAL.
BLKJAK:

BLKJAC:

Tom Kloos
Oregon MuseUm of Science
and Industry
Portland, Oregon 97200

Digital Equipment Corp.
Maynard, MA .01754

1967 by Creative Publications

PROGRAM LISTING

BLKJAC

10 ~RINT "DO YOU .A~T INSTRUCTIONS (IF SO TYPE A I)",
15 INPUT K
25 IF K<>I THEN 85
30
PRINT
PRINT
35
40
PRINT
45
PRINT
PRINT"THls IS A GAME OF BLACKJACK. ~AS· VEGAS. STY~E."
50
55
PRINT"HUE ARE THE RU~ES OF THE HOUSE.
THE DEALER"
60
PRINT"MUST HIT ON 16 OR ~ESS AND NI~~ STAY ON 17 OR"
55
PRINT'MORE.
YoU MAY SP~IT TWO CAROS IF THEY ARE THE"
A~SO,"
70
PRINT"SAME AND P~AY ONE HAND WITH EACH OF THE~.
t5
·PRINT'YOU ~AY DOU8~E YOUR BET AND RECEIVE EXACT~ Y ONE"
B0
PRINT"MORE CARD ANY TIME ON YOUR FIRST HIT.
THE TYPING"
85
PRINT"INSTRUCTIONS ARE' 0-NO HITI I-HITI 2-DOUR~E' AND"
90 PRINT "3-SP~IT A PAIR."
95 IF K<> I THEN 155
100
PRINT'WHEN TH~ OEA~ER HAS AN EXPOSED ACE HE WIL~ ASK"
US
PRINT"YOU FOR AN INSURANCE BET,
AN INSURANCE 8ET WI!.~"
110
PRINT"RISK HA~F YOUR 8ET FOR AN AMOUNT EQUAL TO YOUR BET"
115
PRINT'IF YOU WIN.
YOU WIN IF THE DEALER HAS A BLACKJACK'
120
PRINT"AND ~OSE IF HE DOESNIT.
THE HOUSE ~IMIT IS Sb00,00'
125
PRINT"GOOD ~UCK.
OH. 8y THE .Ay, THE DEA~ER IS NOT~D FO~"
130
p~INT"OEALlNG OFF THE BOTTOM OF THE DECK.
.ATCH HI~ VERY"
135
PRINT"C~OSE~V.
HERE HE IS Noo,'
1~0
PRINT
US
PRINT
150
PRINT

155

~ET

K.Z

~ET .1'0
155 RANDOMIZE
110 ~ET N'INT(1945*RNO(0).1)
175
PRINT
180
PRINT"ANV TIME YOU "ANT "~ TO RESHUFF~E THE CARDS SIMPLY"
185
PRINT"TYPE 7771 WHEN I ASK FOR YOUR W·AGER AND I'LL BE VE~Y"
In
PRINT"HAPPV TO Oe~IGE.
O,K,. HERE IS THE FIRST HAND."
200 ~ET ~'INTCl0.RND(0))
210 DIM DC52loE(5),V(b).T!S).w(5)
218
FOR A'I TO 52
220
~ET D!A).e
225
NEXT A
238
DIM Q(52)
235
FOR Aoe TO 39 STEP 13
240
FOR C'I TO 13
245
~ET QlAoC)'C
250
NEXT C
255
NExT A
250
PRINT
255
~ET K.K.,
210
FOR P'I TO 5
215
~ET UP).,
280
~ET VCPh0
285
LET TCP).e
290
N~XT P
29S
~fT V(3)'1
300
PRINT
305
PRINT
310
PRINT
315
PRINT"WAGER"'
320
~ET P'I
325
INPUT W
330
LET W(2).W
335
IF Hull THEN 1685
3~0
IF ... 500 THEN 310
3~5
IF W01177 THEN 380
350
GOSUB 1.45
355
GOT031s
360
PRINT"THAT' S TOO MUCH - HOUSE LIMIT 18 $500"
365
GOTO 315
310
PRINT
315 PRINT "I SHOW".
3U
GOSU8 865
385
IF E (1)'0 THEN 395
390
~ET V(~)'I
395
LET V(Shl
400
GOSUB 865
405
~ET M.X
4U
~ET P'2
415
PRINT"FIRST CARD 18",
~20
GOSue 865
428
~ET .'X
430
PRINT"NEXT CARD IS",
~35
GOSUB 865
4~0
If V (2) >0 THEN 605
445
~ET S'X
450
IF V(3) .. 1 THEN 605
455
IF T(P)c.21 THEN 50S
~50 PRINT"
"*B~ACKJACK."
465
PRINT
410
PRINT" THAT'S GETTING
81T RIDICuLOUSII""
415
PRINT
48B PRINT "My HO~E CARD "AS ".
485
~ET XIM
490
GDSUB 1035
495
~ET .1'.1.1.5 ...
500
GDSUB 1335
505
IF V(4)10 THE" 570
5\0
PRINT"INSURANCE ANYONE
ITYPE 1 OR 0. 1 MEANS YfS)"'
515
INPUT I
521
PRINT
525
IF 100 THEN 570
IF 1(1)<>21 THEN 55~
530
535
LET WI'''I ••
540
PRINT
545 PRINT 'VOU WIN S""," ON YOU~ INSURANCE aET"
550
GOTO 810
555
~ET 01'01-w/2
550
PRINT
555
PAINT'YOU ~OST S'W/2," ON YOUR INSURANCE BET - 1 nON' T HAVE 8~ACKJAC~"
510
IF TCI)<>21 THEN 805
575
PRINT
5e0
PRINT""! HAVE 6~ACKJACK""
585 PRINT "MY HO~E CARD .AS ".
590
IoET X.M
595
GOSU8 103~
600
GOTO 1300
605
IF T(P)"21 THEN 650
610
IF E(p»0 THEN 640
515
PRINT"VOU 8USTED, "
620
PRINT"VOUR TOTA~ IS "TCP)
625
~ET cl'T(P)-5*(INT(T(P)/S))

160

:~:

~~T~(~l;~ THEN 775

~ET E(P)'E(P)-I
~ET TCP).T(P)-10
IF V(I)'2 TH£~ 620
~ET V(3)'V(3).1
PFUNTlqUT
INPUT VO)
IF V(I)<>3 THEN 830
IF V(2)'0 THEN 820
IF V(3)";! T~EN 820
IF Q(G)'Q(S) THEN 700
PRINT'NOW IS THAT A PAIR"
GOTO 8ee
LET V121.1
IF QIG).'I THEN 115
~ET VIIl.2

II,

~ET P.~

PRINT"
PLAY HAND ONE NOW'
PRINT"'IRST CARD IS '.
LET .(3)'.
LET X.G
G08Ue 710
GOTO 431
GoeUe
GoaUe \835
~ET V(3).1
~ET T(PloC
RETURN
~ET P'2
LET V(2) 02
PRINT"
p~AY HAND TWO NOW"
PRINT"fIRST CARD IS'.
~ET x·s
GOSUB 750
IF QIGhl THEN el5
UT v(\).e
GO TO 430
PRINT"ND sPLITS NO. -- TRy AGAIN"
GOTO 660
IF V (1) 02 THEN e~5
IF V(3)'2 THEN 850
PRINPTOO ~ATE TO DOUbLE. CHAR~!E."
GOTO 660
LET W(P).2+WI P )
IF V (Il >0 THEN 43~
GOTO 620
Gosue 900
~ET TlP)'T(P).C
IF V(51.0 THEN 890
LET V(5)'0
RETURN
Gosue 1035
RETURN
IF RuS0 TH~N g45
~ET NI\0+0+ABS(COS(N.WI")
FOR A"I TO N
UT xoINTI52.999999+RND(Vl)
IF X'0 THEN 915
NEXT A
IF D(X)'0 THEN 980
LET HoR.1
IF R.50 THEN 900
FOR Aol TO 52
IF O(A).K TKEN 980
~ET 0IA)'0
NEXT A'
~ET R'0
PRINT'
I RESHUFFLED
"
GOTO 900
~ET R'0
!.ET O(X)'K
If Q(X)OI THEN 1~10
~ET C.II
~ET E(P).E(P).I
RETURN
IF QCX'>10 THEN 1~25
UT C.Q(X)
RETURN
LET CaU
RE TURN
GOSUB 1050
GOSUS 1120
HE TUHN
IF Q(X)<>I THEN 1065
PRINT" ACE "I
HFTURN
IF QI~'>10 T"E~ 108~
PRINT Q(XlI" "'
RETURN
IF Q(X)'II THEN 1095
PRINT" JACK "'
RETURN
IF Q.(X)'12 THEN 1110

PRINT" QUEEN

II,

RETURN
PRINT" ~ING "'
HE TURN
IF· X>39 THEN 1145
IF X>26 T.EN 115b
If X>13 THEN 1165
PRINPOF SPADES"
RETURN
PRINT"OF CLUBS"
RETURN
PRINT"OF HEARTS"
RETURN
PRINT'OF DIAMONDs"
RETURN
LeT P'2
PRINT liMY I'IOLE C4. Q O \IIA.S ",

LET XoM
GOSUS 103b
If T(2).22 THEN 1210
If V(2)'0 THEN 1300
IF T (3»21 THEN 1300
LET· P'I
IF TlI).11 THE" 1360
IF TO»11 THE~ 1230
If E(I»0 T.EN 1360
IF T(I»21 THEN 1375
~~ T P.2
PRINT'~Y TOTA~ IS "HI)

BLKJAC

SAMPLE RUN
TYPE 'YES' IF YOU NEED HELP? YES

IF T(P)'21 THEN 1300
1246
IF TeI»21 THEN 1265
1250
1255
IF T(I»T(P) THEN 1300
IF TO).TlP) THEN 133A
1260
1265
L~T WI·.I."(p)
If
CI>3 THEN 1445
1270
1275
IF CI>2 THEN 1465
1280
IF CI>I THEN 1485
1285
IF CI'0 THEN 1505
GO TO 1525
1290
GOTO 1330
1295
LET wII.I-W(P)
1300
1305
IF CI'3 THEN 1545
IF
CI>2 THEN 1565
1310
IF CI>1 THEN 1585
1315
1320
IF CI'0 THEN 1605
1325
GOTO 1625
1330
IF V (2)'P, THEN 1345
1335
GOSUB 1405
1340
GOTO 265
LET po3
1345
LET V(2)10
1350
GOTO 1245
1355
1360 PRINT "I DRA.-,
1365
GOSUB 865
1370
GOTO 1210
1375
IF E(I).0 THEN 1395
1380
L<T E(I)·~(I)-I
1385
LET T(\)_TO)-10
1390
GOTO 1210
PRINT"I BUSTE.D ...... ..
1395
GOTO 1235
1400
1405
IF .1<0 THEN 1425
1410
IF wl-0 THEN 1435
1415
PRINT'VOu'RE AHEAD $"WI
1420
RETURN
1425 PRINT USING "YOU'RE BEHIND
-.1
RETURN
1430
PRINT' YOU 'RE EVEN'
1435
RETU~N
1440
PRINT
1445
1450
PRINT'I MUST HAVE DEALT WRONG,PRINT
1455
1460
GOTO 1330
1465
PRINT
1470
PRINT"YOu LUC~ED OUT AGAIN,"
PRINT
1475
GOTO 1330
1480
1485
PRINT
1490
PRINT"VOU MUST HAVE BEEN PEEKING,"
1495
PRINT
1500
GOTO 1330
1505
PRINT
151m
PRINT"I COULD LOSE MV Joe THIS WAY,"
PRINT
1515
1520
GOTO 1330
1525
PRI~T
1530
PRINT"THE CARDS HAVE TURNED AGA!NST MEl'
1535
PRINT
GOTO 1330
1540
PRINT
1545
PRINT"THE eOTTOM OF THE DECK STRIKES AGAIN:"
1550
1555
PRINT
1560
GOTO 1330
1565
PRINT
1570
PRINT"A VICTORV FOR US GOOD GUVS,"
1575
PRINT
1580
GO TO 1330
PRINT
1585
PRINT"VOU CAN'T BEAT SKILL,"
1590
PRINT
1595
1600
GOTO 1330
1605
PRINT
1610
PRINT"VOU CAN'T "IN 'EM ALL,'
1615
PRINT
1620
GOTO 1330
PRINT
1625
PRINT"BABV GETS A NEW PAlR OF SHOESI'
1630
PRINT
1635
164~
GOTO 1330
1645
FOR M9 • I TO 52
1650
LET D(M9).a
1655
~EX T M9
1660
LE T R00
PRINT
1665
PRINT" I RESHUFFLEO"
1670
1675
PRINT'"'
1680
RETuRN
1685
END

1HIS IS A GAME OF BLACKJACK, LAS VEGAS STYL~
HERE ARE THE RULES OF THE HOUSE.
THE DEALER
I1UST HIT ON 16 OR LESS AND WILL STAY ON 17 OR
liORE.
YOU MAY SPLI T TWO CARDS I F THEY ARE THE
SAME AND PLAY ONE HAND WITH EACH OF THE~
ALSO,
YOU MAY DOUBLE YOUR BET AND RECEIVE EXACTLY ONE
MORE CARD ANY TIME ON YOUR FIRST HIT.
THE TYPING
INSTRUCTIONS ARE: 0-NO HIT; i-HIT; 2-DOUBLE; AND
3-SPLIT A PAIR.
ANY TIME YOU WANT ME TO RESHUFFLE THE CARDS SIMPLY
HPE 7777 WHEN I ASK FOR YOUR WAGER AND I'LL BE YERY
HAPPY TO OBLIGE.
~ K, HERE IS THE FIRST HAN~

WAGER? 10
I SHOW
ACE OF SPADES
FJRST CARD IS 7 OF SPADES
NEXT CARD IS
10 OF HEARTS
INSURANCE ANYONE
(TYPE 1 OR ~ 1 MEANS YES)? e

HIT ? 13
YOUR TOTAL 15 17
f1Y HOLE CARD WAS
I DRAW
5 OF SPADES
I DRAW
e OF CLUBS
OF HEARTS
I DRAW
$

ACE OF CLUBS

I BUSTED*****

NY TOTAL IS

S"" .. "',

YOU MUST HAVE BEEN PEEKIN~
YOU'RE AHEAD. 20

~~AGER?

qUEEN OF CLUBS
FJRST CARD IS 7 OF DIAMONDS
qUEEN OF HEARTS
NEXT CARD JS
HIT ? e
YOUR TOTAL IS 17
NY HOLE CARD WAS
I DRAW
10 OF CLUBS
J SHOW

OF DIAMONDS

BUSTED*****

NY TOTAL IS

YOU MUST HAVE BEEN PEEKING.
YOU'RE AHEAD $ 29

WAGER? 10
I SHOW
FIRST CARD 15
NEXT CARD IS
HIT ? 1
NEXT CARD IS

OF SPADES
OF CLUBS
OF HEARTS

OF CLUBS

HIT ? 0

YOUR TOTAL IS 17
liY HOLE CARD WAS
I DRAW
3 OF HEARTS
I DRAW
KING OF CLUBS
I BUSTED*"'''''''*
f1Y TOTAL IS 25
~'OU

OF DIAMONDS

MUST HAVE BEEN PEEK I NG.

'IOU'RE AHEAD • 30

HAGER? 10
I SHOW
FJRST CARD IS
NEXT CARD IS

HIT? :1

NEXT CARD IS

KING OF SPADES
6 OF CLUBS
ACE OF HEARTS
JACK OF SPADES

HIT ? 0

TOTAL IS 17
NY HOLE CARD WAS
1 DRAW
4 OF HEARTS
1 DRAW
2 OF 0 I AMONDS
N'1 TOTAL IS 18

~'OUR

OF SPADES

"'OU CAW T BEAT sin LL.
YOU'RE AHEAD $ 20

HAGER? 10
OF HEARTS
6
J '5HOW
FIRST CARD 15 3 OF SPADES
NEXT CARD IS
5 OF HEARTS
HIT ? 2
,JACK OF HEARTS
NEXT CARD IS
HIT ? 0
1$
~'OUR TOTAL IS
5
I1Y HOLE CARD WAS
10 OF DIAMONDS
J DRAW
11'/ TOTAL IS 21

n VICTORY FOR US GOOD GU"S.

YOU'RE AHEAD $ 10

OF DIAMONDS

BLKJAK

PROGRAM LISTING

SAMPLE RUN

5 PRINT "WELCOME TO DIGITAL EDUSYSTEM COMPUTER BLACKJACK!!"
6 PRINT\PRINT "YOUR DEALER TONIGHT IS PETEY P. EIGHT.'
7 PRINT ·WATCH HIM CLOSELY . . . HE HAS A REPUTATION FOR'
a PRINT "DEALING OFF THE BOTTOM OF THE DECK. "PRINT
9 RANDOMIZE
ol0 DIM A(13)
20 PRINT "QUESTIONS REQUIRI~G A YES OR NO ANSWER'
25 PRINT "SHOULD BE ANSWERED WITH A 'Y' FOR YES, 'N' FOR NO. '\PRINT
30 PRINT "DON'T START PLAYING WITH LESS THAN $100.
HAVE FUN! "\PRINT
40 PRINT "HOW MANY DOLLARS ARE YOU STARTING WITH',
41 INPUT F
42 PRINT
43 Fl=F
50 PRINT "WHAT IS YOUR WAGER THIS TIME"
51 INPUT W
52 PRINT
53 IF W)F GO TO 56
54 IF W<10 GOTO 58
55 GOTO 100
56 PRINT "YOUR BET EXCEEDS YOUR REMAINING DOLLARS. '
57 GOTO 50
58 PRINT "MINIMUM WAGER IS $1~ "
59 GOTO 50
:l00 GOSUB 780
102 Pl=I
104 PRINT "YOUR FIRST CARD IS 'CHR$(L)
106 GOSUB 780
110 P2=I
112 PRINT "YOUR SECOND CARD IS "CHR$(l)
115 GOTO 200
:l17 PRINT "YOU HAVE "P]" SHOW INa
119 GOSUB 760
120 P3=P3+1
122 PRINT "YOU GOT A 'CHR$(L)
123 IF P])21 GOTO 820
124 GOTO 117
299 GOSUB 789
201 P3=Pl+P2
202 01=1
204 GOSUB 780
206 02=1
208 PRINT "DEALER SHOWS A "CHR$(L)
210 GOTO 117
212 D3=01+D2
214 PRINT "DEALER HAS "0]
216 IF 0])16 GOTO 222
217 GOSUB 780
·218 PRINT "DEALER GETS A "CHR$(LI
219 03=0]+ I
220 GOTO 214
222 IF 03(22 GOTO 8e0
224 PRINT "DEALER BUSTED.
226 GOTO 802
760 PRINT "DO YOU WANT
HIT?";
;'62 INPUT $K
764 PRINT
766 IF K=tN GOTO 212
769 GOSUB 780
770 RETURN
7a0 I = I NT (130RND (0)+1)
782 A( II=A( 11+1
784 IF A(I»)4 GOTO 780
786 GOSUB 900
788 RETURN
800 IF D])=P3 GOTO 920
802 F=F+W
806 PRINT "YOU WIN. YOU NOW HAYE $"'
808 GOTO 980
820 F=F-W
822 PRINT "YOU LOSE. YOU NOW HAVE $'F
824 GOTO 980
900 IF I{)l GOTO 910
904 1=11
996 L=IA
908 GOTO 942
910 IF 1<)13 GOTO 920
912 1=10
914 L='K
916 GOTO. 942
920 IF I{)12 GOTO 930
922 1=10
924 L=la
926· GOTO 942
930 IF l O l l GOTO 917
932 1=10
934 L=IJ
936 GOTO 942
937 IF 1{)10 GOTO 940
938 L=IT
939 GO TO 942
940 L= 1+48
942 RETURN
98e PRINT "DO YOU WISH TO PLAY AGAIN?',
982 INPUT $K
984 PR I NT\PR I NT
986 IF K=IY GO TO 50
987 PRINT\PRINT\PRINT \IF F)F1 THEN 995
988 PRINT "TOO BAD! YOU LOST'Fl-F"DOLLARS AT THE EDUSYSTEM CASINO.
990 GOTO 998
995 PR I NT "NOT BAD!
YOU WON' F-Fl' DOLLARS AT THE EDUSYSTEM CAS I NO.
998 PRINT\PRINT "HOPE YOU ENJOYED YOURSELF.
THANKS FOR PLAYING. "
999 END
READY

BLJACK

EDUSYSTEM 30

WELCOME TO DIGITAL EDUSYSTEM COMPUTER BLACKJACK!!
YOUR DEALER TONIGHT IS PETEY ~ EIGH~
WATCH HIM CLOSELY.
HE HAS A REPUTATION FOR
DEAL! NG OFF THE BOTTOM OF THE· DECK.
QUESTIONS REQUIRING A YES OR NO ANSWER
SHOULD BE ANSWERED WITH A 'Y- FOR YES, 'N' FOR NO.
DON'T START PLAY ING WITH LESS THAN $100.

HAYE FUN!

HOW MANY DOLLARS ARE YOU STARTING WlfH?200
WHAT IS YOUR WAGER THIS TIME?20
YOUR FIRST CARD IS T
YOUR SECOND CARD IS A
DEALER SHOWS A 3
YOU HAVE
21
SHOW INa
DO YOU WANT A HIT?N
DEALER HAS
11
DEALER GETS A 2
DEALER HAS
13
DEALER GETS A T
DEALER HAS
23
DEALER BUSTED.
YOU WIN. YOU NOW HAVE $ 220
Oil YOU WISH TO PLAY AGA I N?Y
WHAT IS YOUR WAGER THIS TIME?50
YOUR FIRST CARD IS K
YOUR SECOND CARD IS 7
DEALER SHOWS A '6
YOU HAYE
17 SHOWIN~
lID YOU WANT A H IT?N
[)EALER HAS
17
YOU LOSE. YOU NOW HAVE $ 170
DO YOU WISH TO PLAY AGA I N?Y
WHAT IS YOUR WAGER THIS TIME?50
YOUR FIRST CARD IS 5
YOUR SECOND CARD IS 2
DEALER S.HOWS A 8
YOU HAVE
7
SHOW I NG.
DO YOU WANT A HIT?Y
YOU GOT A 7
YOU HAVE
14 SHOWING.
DO YOU WANT A HIT?Y
YOU GOT A Q
YOU LOSE. YOU· NOW HAVE $ 120
00 YOU WISH TO PLAY AGAIN?Y
WHAT IS YOUR WAGER THIS TIME?100
YOUR FIRST CARD IS 9
YOUR SECOND CARD IS 4
DEALER SHOWS A 6
YOU HAVE 13 SHOW INa
DO YOU WANT A HIT?Y
YOU GOT A 2
YOU HAVE
15 SHOW INa
DO YOU WANT A H IT?Y
YOU GOT A 3
YOU HAVE
18 SHOW INa
DO YOU WANT A HI T?N
16
DEALER HAS
DEALER GETS A 2
18
DEALER HAS
YOU LOSE. YOU NOW HAVE $ 20
DO YOU WISH TO PLAY AGAIN?Y
WHAT I S YOUR WAGER TH 1ST I ME?i0
YOUR FIRST CARD IS 5
YOUR SECOND CARD IS Q
DEALER SHOWS A 4
YOU HAVE
15 SHOW INa
DO YOU WANT A HIT?Y
YOU GOT A 7
YOU LOSE. YOU NOW HAVE $ 10
DO YOU WISH TO PLAY AOAIN?N

100 BAD! YOU LOST 190 DOLLARS,AT THE EDUSYSTEM CASINO.
HOPE YOU ENJOYED YOURSELF.
READY

THANKS FOR PLAYING.

BOAT

SUBMARINE VS GUNBOAT

Description
You are captain of a submarine and the computer is captain of
a gunboat. The speed of the gunboat is given at the beginning
of the game. You fire torpedos at the gunboat. To sink it,
you must hit it twice in at least two vulnerable places, or
once in a vulnerable place and twice in any other part of the
hull. But, if you ever miss, the gunboat will open fire on
you.
If this happens, you alternatively fire at each other
until you sink the gunboat or until he sinks you.
Source
To the best of our knowledge, we think BOAT was originally
written by a student at the University of Georgia, Athens, GA.

SAMPLE RON

PROGRAM LISTING

PRINT "!'lIS IS T'lF r,~Mf OF W~R ~nWFEN A SUBMARINE AND A"
PRINT ·NAVAL ~lfN ~O~T. WO"LD YOll LIKF INSTRUCTIONS·;
UPtlT l«:
I" l«::·NO· TK~N 11'J0
PRUT ·YOl! ~RF T'lF C~PTAIN ,F TKE SUBMARINE AND THE·
PRINT ·COMP!1T"R I!l T'lF C~PTAIN OF THF GUN BOAT.·
PRINT ·THF SPI'''n 0" T"" Pllt-! BOH WILL BE GIVEN. AT THF. BEGINNING OF·
PRINT ·TI1::- ~~M" ~ND YO!,I HAIIl' TO HIT THF. GUN BOAT TWICE·
PRINT ·IN ~T L"~ST TWO IIIILN"RABU: ?LACFS, OR ONCE IN A·
PRINT "VULN"R~BL" PLAC" AND TWICE IN ANY OTHER PART OF THE·
PRINT ·"PL!. ~" 1'IF r,HN AO •. T. BUT IF YOU MISS ANY ONE TIME TilE·
PllINT ·r,UN POH IHU. OP"N "1/1, ON YOU UNTIL IT SINKS YOU OR YOU·
PPINT ·SINW Til" r,UN ?O~T I YOll WILL 9f ALLOWED TO TAKE TURNS !'IRE-·
PPINT ·Ur, ~T Til" ~"N P·OH ...... nOOD LUCW , MEIN FURHER"!!II!!I"

I~P,

~:I'J

"
10
II
12

I,~
I~
2~

,'~

110 R:I'J
120 RANDOMIZE
131'1 FOR 1:1 TO 5
140 LFT "l:10~*RNOCI'I)
171'J IF R>:II'I T'l"N 190
180 NEXT I
I~m IF R<:A0 THl'N 210
2~0 nOTC I ,~I'J
21r PRINT ·THf' SP~"~ 0" TH" Gl,I~ BOAT IS NOW ·,R,· KNOTS·

TIII~ IS THF r,AM<:·O". WAR ~FT"""N A SUBMARINE AND A
N~VAL r,IlN RO~T. "'DULl) VOl! LlKF INSTRUCTIONS? YES
yOll A~F Til" CAPT~IN nF !Hr. SUBMARINE AND THe.
COMPlITFR IS TIlF CAPTAIN ~F TfI" GUN "O.~T.
THE SPF"D 0" THF mIll "OAT IItLt ~F GIVEN AT THE BEGINNING OF
Till' r,AME ~NO YOII H~V~ TO "IT. T'lF GUN BOAT .TWICE
IN AT L"A~T TWO VULNFRABLi" PLAC"S, 00. ONCE IN A
VULNERABLI' PLAC. A~D TI,IICF IN ANY OTHFR PAlIT OF THE
IIULL OF TIlF nu~ ~OAT. BUT IF YOli MISS ANY ONE TIME THE
GUN ~OAT WILL OPFN "IRF ON VOIl UNTIL IT SINKS YOU Oil YOU
SINX THF nUN BOAT! YOII WILL !'IF ALLOW"O TO TAKE TURNS FIRElNG AT TH", GUN ~O~T ....... GOOD LUCK, MnN FURHERIIIII!!!!
T'I" SPf:rD OF THE GUN BOAT IS NOW 17.~9328 KNOTS
THE RANG, FROM THF mIN qOAT TO TifF SUBI'!ARINF IS
NOW 5136.84~ YARDS.
THF APRPO)(Ii'fATF ANGL; YOII SHOULD FIRE YOUR TORPEDO IS
BETWEl::N 69 AND 7 ~ DFGIIEF'~.
? 71

*********

**+
********* ***+**
HHH
UII!)

+++++1

\\\\:::IIJ:~:I'J

L---------I
--lOR !IllIllIIl
100\-[::.:::::.::::::::::::::]
----lnDn~
11I"HH'l 0 a 0
0 0 IIHHH\
IPDDD\---\F;"'''FFrl'1'F''FF'F''''FFF''''F'F ••••••••••••••••••• /EEEEEEEEEEEEEEEEEI
E""FFFFr"FFFF""~F"
EFEEE
0
EEEEEEI
\FFl'FF""I'F'''FF''FF
EEEEFEEEEEEEEEEEI

22~ !lA~OOMI1.F
2,~~

FOR F: I TO ,
I..FT S:I~~~~*~NDC~)
27~ IF S>:10P~ THFN 29~
2B? NF)(T "
2~~ I" S<:IA~~P T~'N 'I~
.,0P r,o TO 2'0
~IP PRINT ·Ttl' PA"G" FPOM T~r r,IIN qOAT TO THE SUBMARINE IS·
,'~~ P~INT ·~OW ·:5,· .,-APOg.·
~,W Ln 7:~TNC5~/q)
,'4~ LFT D,,:r*Clg~I'.I'1·9)
,'4' PpINT ·nl' APPPO)(IM~T" ANoL' "-OU SHOULD "IRE YOUR TORPEDO IS·
~4~ p~INT ·RFTWCFN ·'INT(~.'-2):· AND ·,INTCD3+2),· DEGREES.·
". ~ I'I~"T D
,"l~t LI:"T
=n*,"l.141c;9/"IRPl
,60 LrT RR:~/r,0!l(7)
'7~ Ln Y:"=P8*SINC71
:"RP LET y.:~g*SINCT)
,'9~ Lq Y2:V3-2~
4~0 L"T y~:y,'-~0
AI ~ L"T Y4:Y"+2~
.2P LFT y,;:y3+A~
.,~ IF Y9p.ye THF, 71~
r-OTO 0;20
4,~' IF Y9<Y2 Til'"
FIr
450 OOTO 47P
'5,~ IF Y9<Y2 THF~ FI0
24~

*********

*************

YOU MItT)\';" ~ VPL ?N?'!"P4RL1<' STRIKE'!
Tu" !;?"F'D ~" T'l" ~"N Ra~T I~ ~OW
17.18",~6
KNOTS
TH' p'~~r" "ROM T'lF ~"N qOAT TO T'l" SUBMARINE IS
"OIl 0427 .~92 YARD!'.
THF ~ PPROXIMATr .~"o,!5 YO" SHOI.!LD "lPF. YOUR TORPEDO IS
llr;"TW""FN $~ ~.ND 7,'f, T')t;'GR1<'C"S.
? 70

yOll M~ssm'

T'l" SHOT FIRf'~ 'ROM Ttl" ~!!N oO.4T TO Til" SUBMARINE
!IAS ;'ITH!N 6.,1~B,"7 YARD~ . . . . . . .
THF SPFFD OF TH' ~!!N qO~T IS NOW "2.9111'12 .NOTS
Ttl" RANG" FROM TH" r,IIN "O~T TO Tu' SI!9MARINF. IS
"Oll 1787. ,'7 Y~RDS.
TlI" A PPRO)(IMAT" ANGLF yOI! SHO!!LD 'IRF YOUR TORPF.DO IS
9"TWFnl 0; 4 AND'S Df'nRl'''S.

'.'9.

? 56

*********
**+
,
********* ***+*+*
,I
HHH
IIIIU ! "++++]
\\\\:::1'1:1'1.1'1
L---------I
--lryP IlIllllIIl
100\-[::::.:::.:.::::::::::::]
----/nOuR
IHH'lH'! 0 r o o 0 'HHHH\
IPDOO\---F"FF"F".F"F\ ••••••••••••••••••• /FFFEEEEEEEEEEEEEEEEEI

l!6~ GOrO P~P!
IF Y9>.Y3 THFN A~~
480 GOTa I'9A
A9~ I" Y9<Y4 T'lFN 93~
'21'1 PRINT ·yOlf MISSFn ,.

A7~

",W PA~IOOMI7F

'40 L"T Y9:RNDCP)
"''' ~ LF'T "'= t PI?lP!IiI"':y~
56~ pnNT ·"H" S'IO! ,,!prn "paM T'"
OliN '10AT TO THF SUBMARINE·
57A PRBIT ""'~S ~'lT'lIN ·,~9~(\'-S)*2/10~~," yARDS . . . . . . . •
'lfl~ tl' ARSCIH:;»:~M~ r,OTC 12~
s=;~e PPINT "YO'.' -4RF' S"~P( ~l:'IN 'C'PIFt>Jl) iN

~r.,..r.r~~I';"!;'r.Frr~r,l';"r~F,..,..Fr.F~'!"!;'FFFEFEF.EF.

********* YOO ~~1"C' 1\ V'lL '?N?t'~4F!LF ~TPI}(F.! *************
I

"'9'; :-iOTO 1<)0'"

SIlN.! . . . . . . . . o,oary "VF CRIIFL

~IORLD .... CGLUB .. GLUB .. )

61~

DRINT

612

pqI~T

//"'11

,r;13 P~I NT
~2· ~:.~+I

"********* vOlT Ma.f'F l\ VUL ?N?FRI\9LF STRIKE! *************"

,;,'~

IF A>:2 MTO' 70~
~.~ nOTO 12~
$5~ PRINT
651 P~INT
652 PPI NT .********* von DA~AGl'n THF Glm BOAT I *************.
660 9:B+1
67~ I; B>:~ AOTO 70~
SP'(!I n' A+9>." TlFN 7P,P
~9~ AO TO 12(!1
7A~ PRI NT "I AM SIINX' . . . . . . . . AnOD .qYF CRUEL WORLD . . . . CGLUB .. ALU9 .. )·
70" nOTa 18(!1~
71A poINT"
*********
72(!1 PllINT •
***+*+* , ..
730 PPINT •
HHf! I·
IJUU ,+++++].
740 PPINT "
7'. PRINT·
"":::V.~:~"
76P PpINT •
L---------I"
'7(!1 PPI NT "
--/n~ IIIIlllllI
100\--·
[ : : ::: :~:::::::::: :::;:~].
7RA "~lNT "
790 PRINT·
----/nnn~
IHH'l'l'l 0 0 0
0 0 HHHH\
IPDOO\-"
p(!lP <'0 TO
"I~ PPINT
FF"F"F~"'FF\ . . . . . . . . . . . . . . . . . . . /EEEEEEEEEEEEEEI!
~FcFFFF;F1'FF!'FFFFEfFFF,EEEFEEEEEEEEE
0 EEEEEEEE
"20PRI NT·
p~~P1l1 NT·
F··"F"r F."FF'F"FEFFFEFFEFEEEEEEEEEEEEEEEEEEEEEE7
PA~ no TO 51.
'" (!IF? I NT"\l'c"Fr"~c~"~F"'''FrFl'l'''F"\
. IEEEEEEEEEEEEEEEE!
,,~iop~ I NT· . "EF"""F,j,l'F
FFF;FF;F;,FEF-EEEFEEiEEEWcE Ii
EEEEEE?
P'(!IPP INT·
\ F"""1'1'
*
EF"EEEFFEFEEEEEEEEF:EEEFEEEEEEEEEEEI"

*********

A,'"

RRr r.;O TO

~c;!?'

P:~etPR I NT"' 1="F'~l:'1="L"J;"rJ;"F'r!:"!:,,L"'C'rf'C'F1="p''C'Fr.: ••••••••••••••••• •• /F:E''EEEEEEEEEEEEEEr
~et~P~INT"
FF~rrFr~Frr~L"'C''C'FFF

EEEEE

9IpPpINT· \"rl'F"~FF1'''l''''F''
92P no TO 61.

EEEE!

EEEEEEEEFEEEEEEE/·

~,W"!'INT·\!::FF"FF"""""'FF~"l'l""\ ••••• ~ . . . . . . . . . . . . . . . . /EEEEEEFEEEEE'EEEE!

~'0PRINT·
Ff""","FF;·"1'F1'Fl'l'F"FF"FFFFFFEFEFEEFF:FFFEEEEEEEEE·
~6APR I NT·
\EFFF"l'Fl'''FFl'C~1'~;FF!''.''''FFFFFEEFEFEEEEEEf.EEEE
970 no TO I;,~
18~0 PPINT "
II·
Isrl PRINT·
IIHHI·
IR02 PRINT·
X>
T IHHHHI"
IR03 P~UT "
IS(!IA PRI ~T
190~ PRINT ·WOULD VOU Ll1(F TO TRY ~G~IN'I
19~1 INPUT ~~

*******************************tI

1~~2

I~ ?~="YF~"

2~~e

END

a EEEEEEEEEI

Er,..r.t;',..!;'~I';"!;'r~~l';"rrft;'F~~F~FFFFFFF.FF.EFEEEF.EEEEEEEEE/

T4~~ ~

T/UH'I. n-f I

*******************************
1,mIlLD YOI! Llw· TO "BY ARUN? NO

BOMBER

FLY A WORLD WAR II BOMBER

Description
In this program, you fly a World War II bomber for one of the
four protagonists of the war. You then pick your target or the
type of plane you are flying.
Depending upon your flying experience and the quality of the enemy defenders, you then may
accomplish your mission, get shot down, or make it back through
enemy fire.
In any case, you get a chance to fly again.
Program Author
This program was somewhat modified at DIGITAL.
author is:
David Sherman
Curtis Junior High School
Sudbury, MA 01776

C;,;;. :;a

The original

PROGRAM LISTING

SAMPLE RUN

5 RANDOM'PRINT"YOU ARE NO. A pr~OT IN A WORLn WAR II BO~eER
10 INPUT "WHAT SIDE -- lTA"Y(ll, ALU~S(2l. J.PANESEI3l. GERMANYC4l"IA
20 IF A.0 AND Ac5 f~EN 2~ ELSt: PRINT "TRY AGAIN .... "\GOTO 10
25 ON A GOTO J~.II~.200.220
30 INP:U'f "WHAT··IS YOUR TARGET -. ALBANIACl1. GREECEC21, NORTH AFRICAC3l",e
40 IF B.0 A~D ac4 THEN .4b ELS~ PRINT "TRY .GAIN .... "\GOTO 3~
45 PRINT\ON6 GOTO 50,8~.90
50 PRINT"SHOU"D BE t:ASY,YOU'RE fLVI,G A NAZI.MAOE P"ANE,
60 GOTO 280
80 PRINT "Bt: CAREFULII I "\GOTO 280
90 PRINT "YOU'RE GOING fOR THE on. EH?'\GOTO 280
110 ·INPUT "AIRCRAFT _. L1BERATORCl1. a-29(2). A-17C31. "ANCASTER(41"IG
120 IF G.0 AND 6<5 THEN 125 ELSE PRINT "TRY AGAIN .... "\GOTO 110
125 PRINT\ON G GOTO 130,15~,17~,19~
130 PRINT 'YOU'VE GOT 2 TO~S OF ~O~BS F!.YING FOR PLOESTP
140 GOTO 280
150 PRtNT "YIiU-'R~ .ORoePING THE A-SOMB ON HIROSHIMA,"
160 GOTO 28~
17~ PRINT "YOU'RE CHASH,G T,;E 8ISM.RK IN THE ~O"TH SEA."
180 GOTO 280
190 PRINT "YOU'RE BUSTING A GoRM6N HEAVY WATER PLANT IN THE RUHR."
195 GOTO 28~
200 PRINT "YOU'RE FLYING A KAMIKAZE (S-UICIDE BOMBE~l OVER THE dSS LEXINGTON."
205 INPUT "YOUR FIRST KAMIKAZE MISSION !Y OR N1"IF$
208 If F$o"N" THEN SO~\GOTO 358
210 PRINT\If RND •• 55 IHEN 325 ELS~ 380
220 PRINT "A ~AZI, EM1 OH 'ELL. ARE YOU GOING FOR RUSS!ACll, ENGLAND(21"
230 INPUT"OR FRANCE(31"1"\!' M>0 AND "<4 THEN 235 E"SE PRINT "WHAT?l"\GOTO 220
235 pHNT\uN M GOTO 200,260,270

YOU ARE NOW A PILOT IN A WORLD WAR II BOMBER
ImAT SIDE -- ITALY(1), ALLlES(Z), JAPANESE(3), GERMANY(4)? 2
AIRCRAFT -- L1BERATOR(1), B-29(2), 9-170), LANCASTER(4)?
IRY AGAIN.
AIRCRAFT -- L1BERATOR(1), 8-29(2), B-17(3), LANCASTER(4)?

250 PRINT "YOU'RE NE.AR1.fI.IG

HOW MANY MISSIONS HAYE YOU FLOWN? 200
MISSIONS, NOT MILES.
150 MISSIONS IS HIGH EVEN FOR OLD-TIMERS.
HOI~ MANY MISSIONS HAYE VOU FLOWN? 50

sr .. lINGRAD ••••• "\GI1TO 281i!

260 PRINT "NEARING LONOPN. oE CARt:Fv", THEY'VE GOT A G(JOD HR-RAID DEFENCE."
265 GOTO 2M
270 PRINT "NEARING VERSAILI- .. S. DUCK soup. THEY'RE NEARLY DEFENSELESS."
280 PRINT
285 INPuT ;'HO. M'-~y M-IS~Io·~~ HAVE yOu F~O.N" 'D
290 IF 0<160 THoN ~~~ ELSE °RINT "MISSIONS. NOT MIL,S .... "
295 PRINT "15~ ,,-ISS IONS IS "IGH <YEN FOR OLD-TtMERS. NO" TH<~,"\GOTO 265
300 PRINT\lf Oe1~0 THE·" 310 ELSE PRINT "TH.r'S PUSHI'S THr_ 00051"\GOTO 320
310 IF De25 THEN PRINT "FRESH OUT OF TRUNING, t:H1"
320 PRINT\If Delee+.NO THEN 330
325 PRINT "[)lRECl' "fTlrfl
'JNT(U~+RNn)"KI"LEOI MISSION SUCC~5SFUL."\GOTO 390
330 PRINT "MISSED TARGET BV"INT(2+3e+RN01""lLESII"
335 PRINT "~DW YOU'RE REALLY IN FOR IT II"\PRINT
340 INPUT "DOES THE ENEMV HAVE GUNS(!). MISSILES(21. OR BOTH(J)"'R
34f§ IF R>0 ,u.Ji) R<4 lHE.N 350 ELSE. PRINT "THY Ar;AIN .... "\GOTO 34~
300 PRINT\IF Ro2 THE." 36~
355 INPUT ".H.T IS T"E PERCENT HIT RATE OF THE E"EOY GUNN,-RS (10 TO 501"'5
358 IF 5<!0 THEN PRINT "vou LIE. BUT YOU'LL PAY .... "V.INT\C;OTn 380
350 P.INT\IF. • >1 THEN 1.35
365 If 5+T>I"0+'"D THEN Jeo
370 PRI~T"YOU MADE IT THROUGH TRF.MEN~OUS FLAKII".GOTO 390
380 PHINT II,.. . . . . . . * BOO~ ...... .. *"
384 PRINT "'t'OU HAVE BEEN SHOT DOItlN ....... "
3B~ PRINT "DEAR"Y 8ELOVED. -E A"E GATHERED "ERE TOD.AY TO PA~ OUR LASI TR.IBUTE .. "
390 PRI,T\PRINTWRINT\INPUT "p"AY AGAIN (Y OR N)"ltJ$\·!F US."Y· THEN I.~

400 PRINT "tHICKEN I 1 III "\PRINT\PRI_T

999 END

YOU'VE GOT 2 TONS OF BOMBS FLYING FOR PLOESTI
HOW MANY MISS IONS HAYE YOU FLOWN? 10
FRESH OUT OF TRAINING,

EH?

N I SSEO TARGET BY 30 MILES!!
rlOW YOU'RE REALLY I N FOR IT"
DOES THE ENEMY.HAVE GUNS(1),

MISSILES(2),

OR BOTH(3)?

IlHAT IS THE PERCENT HIT RATE OF THE ENEM,' GUNNERS (-10 TO 50)? 15
YOU MADE IT THROUGH TREMENDOUS FLAK ,.,

PLAY AGAIN (Y OR N)? Y
IlHAT SIDE -- ITALY(1), ALLlES(2l.. ,IAPANESE(l), GERMANY(4)? 2
AIRCRAFT -- L18ERATOR(1)' B-29(2), B-170), LANCASTER(4)? !
YOU'RE CHASING THE BISMARK IN THE NORTH

MISSED TARGET BY 28 MILES!!
NOW YOU'RE REALLY IN FOR IT

SE~

NOW THENo

POES THE ENEMY HAYE GUNS(1),

MISSILES(2),

OR BaTHOl" 2

YOU MADE IT THROUGH TREMENDOUS FLAK!!

PLAY AGAIN (Y OR N)? '/
IlHAT SIDE -- ITALV(1), ALLlES(2), JAPANESED), GERMANY(4)? 4
OH WELL. ARE YOU GOING FOR RUSSIA(1), ENGLAND(2)
A NAZI, EH?
OR FRANCE(3)? 2
HEARING

LONDO~

BE CAREFUL,

THEY'YE GOT A GOOD AIR-RAID DEFENCE.

HOW MANY MISSIONS HAYE YOU FLOWN? 10
FRESH OUT OF TRAINING,

EH?

tHSSED TARGET BY 2 MILES!!
rlOw YOU'RE REALLY IN FOR IT

OOES fHE ENEMY HAYE GUNS(1),

MISSILES(2),

OR BOTHO)?

~~AT ·15 .lHE PERCENT HIT RATE OF THE .ENEMY GUNNERS (10 TO 50)? 40

*' '" *'

'" >fI .,. '" "" 800M *' *'
YOU HAYE BEEN SHOT DOWN ........ ' .
DEARLYBELOVED,WE· ARE GATHERED HERE TODAY TO PA,' OUR LAST TRIBUTE.

PLAY AGAIN .('/ OR N)·? v
IWAT SIDE -- IH'IL'Y(1); ALLlES(2) .. JAPANESEO), GERMANY(4)? 1
IlHAT IS YOUR TARGET -- ·ALBANIAq);GREECE(2), NORTH AFRICA(3)?
YOU'RE GOING FOR· THE OIU EH?
HOW MANY MISSIONS HAVE YOU FLOWN? 120
THAT'S PUSHING THE ODDS'
NISSED TARGET BY 13 MILES!!
rww· YOU'RE REALLY I N FOR IT
[>OES THE ENEMY HAYE aUNS(1),

"
MIS$ILES(2),

OR BOTHO)?

14HAT I S THE PERCENT HIT RATE OF THE ENEMY GUNNERS (10 TO S0)? >0
YOU MADE I T THROUGH TRE·MENDOUS FLAK!!

PLAY AGAIN (V OR N)? N
CH I eKEN ! ! ! ~ !

READY

BOUNCE

PLOT OF BOu,NCING BALL

Description
This program plots a bouncing ball. Most computer plots run
along the paper in the terminal (top to bottom): however, this
plot is drawn horizontally on the paper (left to right).
You may specify the initial velocity of the ball and the
coefficient of elasticity of the ball (a superballis about
0.85 -- other balls are much less). You also specify the
time increment to be used in "strobing" the flight of the
ball. In other words, it is as though the ball is thrown
up in a darkened room and you flash a light at.fixed time
intervals and photograph the progress of the ball.
Program Author
Val Skalabrin
Newport-Mesa Unified School District
Newport Beach, CA 92660
BOUNCE

EDUSYSTEM 30

BOUNCE

90 DIM T(29)
109 PRINT "THIS SIMULATION LETS YOU SPECIFY THE INITIAL YELOCITY"

110 PRINT "OF A BALL THROWN STRAIGHT UP, AND THE COEFFICIENT OF'
120 PRINT "ELASTICITY OF THE BALL. PLEASE USE A DECIMAL FRACTION'
130 PRINT "COEFFICIENT (LESS THAN II. '
131 PRINT
132 PRINT "YOU ALSO SPECIFY THE TIME INCREMENT TO BE USED IN'
lB PRINT '"'STROBING' THE BALL'S" FLIGHT <TRY . 1 INITIALL\'I.'
134 PRINT
135 PRINT "TIME INCREMENT (SEC)',
136 INPUT S2
140 PRINT
150 PRINT "YELOCITY (FPS)',
160 INPUT V
.
:l65 PRINT
170 PRINT "COEFFICIENT',
180 INPUT C
184 PRINT
:lSS PRINT "FEET"
186 PRINT
187 S1=INT<70/(V/(16*521)1
190 FOR 1=1 TO S1
2a0 T(II=Y*C~(I-11/16
210 NEXT I
220 FOR H=INT(-16*(Y/321~2+Y-2/]2+. S) 1~ 0 STEP.~S
221 IF INTIHI{'>H THEN 225
222 PRINT H,
225 L=0
230 FOR I-I TO 51
240 FOR T=9 TO TIll STEP 52
245 L=L+S2
250 IF ABS(H-1. 5*(-32)*T-2+Y*C"( 1-1)*T>'>'>. 25 tHElt'.270
260 PRINT TAB(L/52), '0',
. . ' ..;
270 NEXT T
275 T=T(I+11/2
276 IF -16*T-2+V*C-(1-11*T<H THEN 290
280 NEXT I
290 PRINT
3e0 NEXT H
310 PRINT TAB 11),
320 FOR 1=1 TO INT(L+1)/S2+1
330 PRINT ".
340 NEXT I
350 PRINT
355 PRINT" 0",
360 FOR 1=1 TO INT(L~ 9995)
380 PRINT TAB(INT(I/S2», I,
390 NEXT I
<100 PRINT
410 PRINT TAB( INTCL+l)/(2*S21-2), 'SECONDS:'
420 PRINT
430 GO TO 135
449 END
READY

EDUSYS1EM .30

THIS SIMULATION LETS YOU SPECI'FY THE INITIAL ... ELOelT ...
OF A BALL THROWN STRA I GHT up, AND THE COEFF I C lENT 'OF
ELASTI CITY OF THE BALL. PLEASE USE A DEC I MAL FRACTI ON
COEFFICIENT (LESS THAN 1).
YOU ALSO SPECIFY THE TIME INCREMENT TO BE USED IN
'STROBING' THE BALL'S FLIGHT <TRY .1 INITIALL'n.
TIME INCREMENT (SEC)? 1
YELOCITY (FPS)?39
COEFF ICIENl?:',"
FeET
14

0iiQ,'

r: 0::.0

o
00

0
0

o
0000

7
6

o
o
o

o
o

4
30

.....
1

SECONDS
TIME INCREMENT (SEC)?
RERDY .

o
0

. ....

o
'

o
................ .
4

BOWL

BOWLING GAME

Description
This is a simulated bowling game for up to four players.
You play 10 frames. To roll the ball, you simply type
"ROLL". After each roll, the computer will show you a
diagram of the remaining pins ("0" means the pin is down,
"+" means it is still standing), and it will give you a
roll analysis:
GUTTER
STRIKE
SPARE
ERROR (on second ball if pins still standing)
Another considerably simpler bowling game was submitted by
Bion Rogers and Mark Gustitus of Springfield, PA; it is
not published.
Program Author
Paul Peraino
Woodrow Wilson High School
San Francisco, CA 94134

....

PROGRAM LISTING

SAMPLE RUN

REMARK ANDO~IGI~AL IOUA"O pqOGRA~ED Sf PAUL PERA(~~
180 REMARK FROM "'OODRO~ wILSON HIGH SCHOOL
470 OIM CCI5),A(100,6l
360
PRINT "~ELCOME TO THE ALLEY"
450 PRINT "BRING YOUR FRIeNDS"
540 PRINT "OKAY LET'S FIRST GET ACQU~INTED"
630 PRI NT\PR INT \PRI NT
120 PRINT "WANT INSTRUCTIONS (I( CR N)" J
810
INPUT ZS
900
IF Z'o"'" TH~N 99~
W60
IF ZS'"Nfl THEN 1530
990
PRINT "THE GAME OF BOWLING TAKES MIND AND SKIL~.DURING THE GAME"
1080 PRINT "TH~ 'OMPUTER WIL~ KEEP SCORE, 'OU MAY COMPETE WITH"
1170
PRINT "OTHER P~AVERSIUP TO FCURI.YOU WI~L BE PLAVIN~ tEN FRAMES"
1260 PRINT liON T~E PIN DIAGRAM
MEANS THE PIN IS DOWN . . . ' . ' MEANS TME"
1350 PRINT "PIN IS SHNOING,AFTER THE GAME T~E COMPUTER WILL SHOW 'OUR"
1440'
PRINT IISCORtS ."
1530 PRINT "FIRST OF AL~ .. ,HOW MANy ARE PLAYING'"
INPUT R
1620
PRINT
1710
PRINT
liVERY GOOD ••• I!
1800
MAT AoZER
1890
.01
1980
FOR po! TO R
207~
Mo~
2160
aO!
22H

WELCOME TO THE ALLE,'
BRING ~OUR FRIENDS
OKA~ LET'S FIRST GET

'0'

MAT CoZER
REMARK BA~L GENERATOR USING MOD' !5'

3510
J60~

P~INT

3690
3780

FOR 100 TO 3
PRINT
FOR JOI TO 4-1
1('1<+1
IF CCKlol THEN 4320
PRINT TA6CI)"+ .. ,
GO TO 4410
PRINT T4B(Il/"0 ".
NUT J
NEXT I
PR 1 NT \PR 1 NT\PRI NT
ReMARK ROLL ANALYSIS
fOR 101 TO 10
DoD+CO)
NEXT 1
IF D.H <> 0 THEN 5220
PRINT "GUTTERIl"

2790

2970
3060
3150
3240

3330
3420

3870
3960
4050
4140
4230
4320

4410
4500
4590
4680

4770
4860

4950
5040

SYSTEM

PRINT "PLAyER"Pl1 ""- TYPE ROLLI!
1 NPUT NS
K a 0\Oc0
FOR 101 TO 2~
X_INT CRNO C1l+100)
FOR Jot TO 10
IF XcI5+J THEN 3330
NoXT J
CClS+J-X)OI
NeXT I
REMARK PIN DUGRAM

2.80

"PLAVER'-'P"

BALl.."B

7470
7740
7830
7920
8010
8100

SUo

8190
8280
8370

8460
8550

o+ a
o 0
o

TYPE ROLL

PLA~ER:

FRAME:

BALL:

TYPE ROLL
FRAME:

BALL:

ROLL YOUR 2NC' BALL
PLAYER
? ROLL
PLAYER;
(I

TYPE ROLL
FRAME:

BALL: 2

0 0 (I
(I 0 (I
(I

0
0

SPARE! ! ! !

PLAYER
? fWLL

HPE .'OLL

PLAYER:

FRAME; 2

BALL:

0 0 + 0
+ 0 0
0 0

ROLL YOUR 2ND BALL
PLAYER
? ROLL
PLAYER:

NEXT P
r.F+ 1
TH~N

PLAYER
? ROLL

6930 IF go0 THEN 2520

7560
1650

BALL: 1

0 0 0 0
0 0 0
+ 0

7020 ACf+P,3)og

IF F<11

FRAME:

+ + + 0

PLAYER
? ROLL
PLAYER; 2

e840 ACF*P,3).U .. M

7~95

TYPE ROLL

ERROR! ! I

rHAMEI"Fn

5130
THEN 5'90
5220 H' NOT(Sal ANV D*l"'"
PRINT "STRIKF.lIIII"
Q03
5400
5490 IF NOrcS02 AND Dol0l THEN 576.
5580
PRI"T "SPAREIIII"
5670 Qo2
5760 IF NOT (602 AND Dc 10) THEN 603"
5850
PRINT "EPPORlll"
Qo!
5940
6030 I f NOTeSol AND 0<\0) THEN 62\@
6120
PRINT "RO~L YOUR 2ND BAL~"
6210 REMARK STORAGE OF THE SCORES
6J00
Pt<.INT
6390 ACF+P,BloD
6480
I f 602 THEN 7020
8570 S02
MoD
6660
8750 IF gol THEN 6210

na0

YER~ GOOD.
1
? ROLL
PLAYER, 1
PLA~ER

0 0 + 0
0 + 0
0 0
0

5310

7110
7200
7290

WANT INSTRUCTIONS (Y OR NI? ~
THE GAME OF BowLING TAKES MIND ANt' SkILL. DURING THE GAME
THE COMPUTER WILL kEEP SCORE. YI)U MA,' COMPETE WITH
OTHER PLAYERS( UP TO FOUR 1. YOU WILL BE PLA,'ING TEN n'AME5
ON THE PIN DIAGRAM '0-' MEANS THE PIN I S DOWN ... ,+.- MEANS THE
PIN IS STANDING. AFTER THE GAME THE COMPUTER WILL SHOW ,'OUR
SCORES
FIRST OF AI.L ... HOW MAN I' ARE PLAI'ING? 2

ROLL YOUR 2ND BALL

234' ""a0\Qa0
2430
2520
2610
2700

AC~UA I NT ED

II'PE ROLL
FRRME: 2

BALL: 2

0 0 0 0
0 00
0 0
0

207~

P~INT I'FRAMESU
fOR 1*1 TO 10
PRINT 11
NEXT 1
PRINT
FOR pOI TO
FOR 1*1 TO
FOR Jol TO 10
P"INT ACJd)/
NEXT J
PRINT
NEXT I

SPARE! ! ! !

PLAYER 2
? ROLL
PLAYER:

HPE ROLL
FRAME:

BALL:

0 0 0 0
0 0 +
0 0

PRINT
NEXT P
PRINT "DQ YOU WANT ANOTHER GAME'
INPUT 4$

8640 IF .!.IIYI! THEN 26-1~
END

ROLL YOUR 2ND BALL

8730

PLAYER 2
~ ROLL
PLAYER:
I) 0 0 0
0 0 0
0 0
0

SPARE! ! ! !

H'PE ROLL
FRAME: 2

BRLL: 2

BOXING

OLYMPIC BOXING MATCH

Description
This program simulates a three-round Olympic boxing match.
The computer coaches' one of the boxers and determines his
punches and defenses, while you do the same for your boxer.
At the start of the match, you may specify your man's best
punch and his vulnerability.
There are approximately seven major punches per round, although
this may be varied in Statement 185. The best two out of
three rounds wins.
Program Author
Jesse Lynch
710 South Point Douglas Road
St. Paul, MN 55119

PROGRAM LISTING
lIeel REM
lIe02 J.I
aeen Lol
elelS PRINT 'OLYMPIC 80XING -- 3 ROUNDS'
leee7 PRINT
10ell PRINT "INPUT VOUR OPPONENT'S NAIIE'
lIe20 INPUT JI
00l3e PRINT • INPUT YOUR MAN' S NAMf'
Ilue INPUT LI
08US PRINT
nee0 PRINT "OIfFERENT PUNCHES ARE 1 FULL SWING 2 HOOKJ UPPERCUT 4 JAB'
n060 PRINT "WHAT IS VOUR MANS B!ST"
lieu INPUT B
00070 PRINT "AND WHAT IS MIS VULNERABILITV",
eeeee INPUT
nee5 PRINT
leeee 81IINT( •• RNO+I~
00100 OI'INTC,ORND+11

IUU X'X ••
.IUe GO TO 38'
.1950 NEXT RI

::m ~~I~;Y J~H;N

:::~: ~~I~~·3~.T:g:.~~A'E

DISADVANT~Gi Is SfCRETi

Is "SI" AND
8813e FOR R'I TO 3
el140 IF J>o 2 THEN 1040
011ee IF L>'2 THEN 1060
11160 X'I
08170 V.I
01175 PRINT
00\80 PRINT 'ROUND "R" 8EGINS ... '
eel81 PRINT
0018e FOR RI' I TO 7
0el90 I'INToe oRNO.I)
el200 IF I>e THEN 610
0UIB PRINT LS ., S PUNCH"
11220 INPUT P
01221 IF P'8 THEN 22S
08222 GO TO 230
01225 Xlh2
10230 IF PII THEN 340
10241 IF P'2 THEN 450
00250 If P'3 TMEN 520
00210 PRINT L$ "HBS H 'JS"S HEAD "/
le211 IF 01" THEN 290
11215 C'INTChRNO.1 I
112U IF Cd TMEN 31B
012ge X.X+3
Inn GO TO 951
11311 PRINT "ITS SLOCKEO'
11330 GO TO 950
01340 PRINT L• • SWINGSc AND "
ee341 If 01'4 THEN '10
10345 X3 'INTC30 oRND.I)
01351 If X3ell THEN 410
11360 PRINT 0 HE ~IsSES "
.1375 IF X'I TMf~ 950
luem PRINT
c 10390 PRI~T
e84em GO TO 300
00411 PRINT '"E CONNECTSI'
leUI IF X>35 THEN gee
01425 X'X.\5
.044m GO TO 31m
104G0 PRINT LS 'GIVES THE HOO~ "J
11455 If DI'2 THEN 4em
01460 HI lINT (2.RND.I)
00470 IF HI'I THEN ee~
11475 PRINT "CONNECTS.~."
88480 X'X .• 1
18490 GO TO 380
18em8 PRINT "BUT IT'S B~OCKED CIIIIIIIIII'
88eu GO TO 300
US20 PRINT LS ' cTRIES AN UPPERCUT
'"
00530 IF 01'3 THEN 510
a0e41 D5'INTCI0~oRND.ll
IUU If Dse51 THEN 570
01e50 PRINT ' AND IT'S BLOCKEO (LUC~Y BLOCK Il'
00565 100 TO 300
0061' PRINT 'AND HE CONNECTSI'
00see X'X"
00590 GO TO 300
01600 J1 'INT('.RND.1l
0ea01 If J1 .81 THEN 615
0"02 Go TO 618
08a0e Y'V.2
00610 IF J7.1 THEN 120
08620 IF J1.2 THEN e10
line IF J7 '3 THEN e68
01640 PRINT JS' JABS AND',
00645 IF 0'4 THE~ 700
0.650 Z'c'INT(7oRNO.I)
10655 IF Z4>4 THEN 898
00660 PRINT' IT'S BLoCKED I'
1167. GO TO 31S
10690 PRINT n SLOOD SPILLS III"
e0100 V'Y.S
88710 GO TO 388
88720 PRINT JS' TAKES A FULL '''ING AND',
88738 IF 0'1 THEN 118
01741 R6'INTI6e.RNO.1)
18145 IF R6 e30 THEN 770
18151 PRINT' SUT IT'S SLOCKED I'c

SAMPLE RUN
RUN BOXING
OLYMPIC BOXING -- 3 ROUNDS
INPUT YOUR OPPONENT'S NAME
? t1EATHEAD
I NPUT YOUR MAW 5 NAME
? SUPERt1AN
DIFFERENT PUNCf\ES ARE ~ FULL SWING :2 HOOK:;: UPPERCUT 4 JAB
WHAT I S YOUR MA~NS cBEST?c 2
AND WHAT IS 'HIS. WLNERABILlTV? 3
MEATHEAD' ~.·ilDcV,ANTAGEc IS

SUPERMflN'SPUNCH? c2 c
SUPER'«AN GIVE$:THt HOOKc
SUPERMflN G}V!i:S cTIjEcHOOKc
A'ND AGAIN!

.c ...•

,'.',

AND VULNERABILITY IS SECRET

cBI;GINS..

ROUND

SUPERMAN'S PUNCH? :2
ME(lTHEAD GpS SUPERMAN IN THE JAW

<OUCH' )

·S{)P~~MAN .15 ATTRCKED BY AN UPPERCUT (OH, OH).

cAtW:cMEcATHEAD CONlteCTS...
SUPERM.AWS PUNCH?c1
c ~()PERt1AN ,SIU NOS AND HE Mel SSES

S(ipt.RMlui'
PUNCH? :L
SUl'ERtlf,lN S.WINOS AND HE CONNECTS!
$UPE~MAN'S PUNCH? ~
SUPERMAN SWINGS AND HE MISSES

::~;: =~I~~ ;e:OWIIIII HE MITS HI~ RIGHT .I~.THE ;~CE,"

IF V>35c THEN lelB
V"VOIS
GO TO 308
PRINT JS' GETS 'LS' IN THE JAW
COUC""·
Y·V.7
PRINT • .... AND AGAINI'
Y'V+5
IF y>3S THEN 1010
lIe51 PRINT
0e860 PRINT ~ • • IS ATTACKED By AN UPPERCUT 10H, OHl ••••
BeB65 If 013 THEN 890
08870 ~"INTC2000RNO.ll
leen IF Q4.15 THEN 920
0een PRINT " AND "JI" CONNECTS ....
18900 Y'VOB
18'U GO TO Jee
10920 PRINT • BLOCKS AND HITS 'J" WITH A HOOK.-

oR·

W;:: ROUND
legU J'J+I
eeg54 GO TO 950
e8,55 PRINT LS ' WINS ROUND OR
11958 LIL+I
11961 NEXT H
e8,al IF J>. 2 THEN 1040
10.0a IF L>'2 THEN 1060
el98l PRINT J . . IS KNOCKED CoLD .ND • LS' IS TME WINNER AND CHAMP "'
11808 GO TO 1088
cC8181·0 PRINT Llc" IS KNOCKED tOLD AND' JS. IS TME WINNER ANO CHAHP -,
81030 GO TO 1000
81040 PRINT JS' WINS CNICE GOING l ' J.
IUU Go TO IIle
11060 PRINT L. " AMAZINGLV wINS
el17. GO TO 1000
01188 PRINT
01885 PRINT
118,1 PRINT "AND NOW GOODBYE FRO" THE OLYMPIC ARNEA."
01100 PRINT
81110 END

10780
187V8
8eee0
IfaU
el820
10830
088J5
10840

1"-

MEATHEAD WINS ROUND
ROUND

BEGINS ..•

MEATHEAD
TAKES A FULL SWING AND POW'!'!! HE HITS HIM RIGHT IN THE FACE!
MEATHEAD GETS SUPERMAN IN THE JAW
(OUCH!)
. c .. AND AGAINc!
SUPERMAN IS ATTACKED BY AN UPPERCUT (OH, OH).
AND MEATHEAD CONNECTSc
MEATHEAD
TAKES A FULL SWING AND POW!!!!! HE HITS HIM RIGHT IN THE fACE!
MEATHEAD GETS SUPERMAN IN THE JAW
(OUCH!)
. ... AND AOAIN'
SUPERMAN IS KNOCKED cour AND MEATHEAD IS THE WINNER AND CHAMP

AND NOW GOODBYE FROM THE OL YMP I C ARNEA.

BUG

DRAW A BUG VS THE COMPUTER

Description
The object of this game is to finish your drawing of a bug
before the computer finishes his. You and the computer roll
a die alternately with each number standing for a part of
the bug. You must add the parts in the right order; in other
words, you cannot have a neck until you have a body, you
cannot have a head until you have a neck, and so on. After
each new part has been added, you have the option of seeing
pictures of the ,two bugs.
If you elect to see all the pictures, this program has the
ability of consuming well over six feet of Teletype paper
per run. We can only suggest recycling the paper by using
the other side.
'
Program Author
The author of this program is in the 7th grade at Harrison
Junior-Senior High School.
Brian Leibowitz
27 Danner Avenue
Harrison, NY 10528

PROGRAM LIS'rING
10
20
30
41

51
60
70
S0
90

\00
110
120
130
140
15 0
160
170
180
190

21e
210

220
230
240
258
260
270

280
290

301
310
320
330

, 340

350
360
370
380
390
41m
4U
420
43 0

440
450
460
470
480
490

slm

SI0
520
538
540

558
560
570
580

598
600
610

620
630
640

650
660
670

ee 0

690
700
710
720
730
740
750
760
770
780

REM SRIAN MONTE ~EIBOWITZ GRADE 7
REM HARRISON JR, SR, HIGH SCHOO~
REM HARRISON N,V,
DIM ZS 131
A
H-l aN. p.QaR.S.T .U.V.Y afl
PRINT "THE GAME SUG IS ~IKE THE GAME COOTI,'
PRINT "I HOPE yOU ENJOv THIS GAME"
PRINT
PRINT "DO YOU WANT INSTRUCTIONS"'
INPUT ZS
IF lS"NO" THEN 3U
PRINT "THE OSJECT OF SUG IS TO FINISH YOUR BUG 8EFORE I FINISH MINE'
PRINT 'EACH NUMSER STANOS FOR A PART OF THE BUGS 800V"
PRINT ' I WI~L ROLL THE DIE FOR YOU, TELL YOU WHAT I ROLLED FOR YOU"
PRINT "WHAT THE NUMSER STANDS FOR, AND IF YOU ON GET THE PART ,"
PRINT "IF YOU CAN GET THE PART I WI~~ GIVE IT TO VOU,"
PRINT 'THE SAME WILL HAPPEN ON MV TURN'
PRINT 'IF THERE IS A CHANGE IN EITHER SUG I WI~~ GIVE YOU THE'
PRINT .OPTION OF SEEING THE PICTURES OF THE BUGS,"
PRINT "THE NUMBERS STANO FOR PARTS AS FO~~OwSI"
PRINT "NUMBER"' 'PART", "NUMBER OF PART NEE OED"

-a.

PRINT
PRINT
PRINT
PRINT
PRINT
PRINT

"1",IIBODy",1I1"
"2","NECK·","1"
"3","t-tEAD","1"
"4", "FEELERS", "2"
"5 11 ,"TAIL","1"
"6","lEG!!P',"6"

1~40

1480
1.90
1500
1510

'1520
1530
lU0
1550
1560
1570
15S0
1590
1600
1610
1620
1638
1640
16 50
1660
1670
1680
1690
1700
1710
1720

PRINT t'2I1NECKIl

IF N'1 THEN 500
IF 8'e THEN 52~
PRINT 'YOU NOW HAvE A NECK"
N·l
C.0
GOTO 97~
PRINT "YOU DO 'OT NEED
NECK"
(fOTO 970
PRINT ·yOU DO NOT HAyE • BODV"
GO TO 970
PRINT '3.HEAD'
IF N'0 THEN 610
IF H'1 THEN' 630
PRINT "VOU NEEDED
HEAD"
H_l
C.0
GOTO 970
PRINT "VOU DO NOT HAVE A NECK'
GOTO 970
PRINT 'VOU HAVE A H~AO'
GO TO 970
PRINT '4.FEElfRS"
IF H'0 THEN 740
IF .,2 THEN 720
PRINT "I NOW GIVE YOU A FEE~ER"
LET A.A+l

ln0
17 40
1750
176,
1770

1780
1790
1800
1810
1820
1830
1840
IS50
IS60
1870
1880
1890
1900
1910
19 20
1930

C.,

GOTD 970
~RINT "YOU HAVE TWO FEELERS AlREAnV"
GOTO 970
PRINT "YOU DO NOT HAYE A HEAD"
GOTO 970
PRINT "S-TAIL"
IF S00 THEN 830
IF T'1 THEN 850
790 PRINT "I NOW GIVE YOU A TAIL"
800 ~ET ToT+l
SII coe
820 GOTO 970
830 PRINT 'YOU DO NOT HAVE A BODV"
840 GOTO 970
860 PRINT "YOU ALREADV HAVE A TAIL'
860 GOTO 970
870 PRINT "6'LEG'
S80
IF l'6 THEN 940
a90 IF B'0THE" 960
ge0 lET L'L+I
910 c·e
920 PRINT "YOU NOO HAVE 'L' lEGeS)'
938 GOTO 970
9 40 PRINT "YOU HAVE 6 FEET AlREAcY"
950 GOTO 970
960 PRINT ·YOU DO NOT HAVE A BODY·
970 LET XoINT(6.RND(0)+!)
980 PRINT "I ROllED A 'x
998 GO TO x OF 10e0,U8001190,13~0.14U,1520
1800 pRINT "1'BODV1010 IF P'1 THEN 1060
1020 PRINT • I NOW HAYE A SDDY"
1030 C'0
1040 P.l
1050 GDTO 1630
1060 PRINT "1 DO NOT NEED A BODV'
1070 GO TO 1630
1080 PRINT '2.NECK·
1190 IF Q'I THEN 1150
1110 IF p.e THEN 11,70
1110 PRINT • I NOW HAVE A NECK"
1120 Q'1

1140

GOTO 1630
PRINT • I DO NOT NEED A NEl:K"
GOTO 1630
PRINT "I DO NOT HAVE A BODV'
GOTD 1630
PRINT "3'HEAD'
IF Q" THEN 1260
IF R'1 THEN 1280
PRINT ' I NEEDED A HEAD'

1160
1160
1170

1180
119B
1280

1210
1220

1~20

1430
1450
14U
1470

PRINT
PRINT
IF V>0 THEN 2480
~El Z'INTlt-RND(0)+\)
C'1
PRINT ·VOU ROLLED A "Z
GOTO Z OF 3S0, 430,540,650.760,870
PRINT "1.eODV·
IF B.l THEN 410
PRINT "YOU NOW HAVE A BODV"
S'I
C·e
GOTO 970
PRINT ·VOU DO NOT NEED A eODY"
GOTO 970

1130

1230
1240
1250
1260
1270
128m
1200
1308
1:i!0
1320
1330
1340
1350
1360
1370
1380
1390
1400
1410

19~0

1950
1960
1970
1980
1990
2000
2010
2020
2030
2040
2050
2060
2070
2880

2090

aIB0
2110
2120
2130

2140
21ee
2160
2110
2180
2190
2200
2210
2220
2230
2240
2250
2260
2270
22 8m

2290
2310
2311
2320
2330
2340
2350
2360
2370
2380
2390
24 00

2410

2420
2430
2450

R'1
C'0
GOTO 1630
PRINT "I DO NOT HAVE
NECK"
GOTO .1638
PRINT "I 00 NOT NEED
HEAD'
GOTO 1630
PRINT '4'FEElERS"
IF R.e THEN 1390
IF 5'2 THEN 1370
PRINT "I GET A FEE~ER·
~ET 8'5+1
C'0
GOTO 1630
PRINT "I HAVE 2 FEELERS ALREADY'
GOTO 1630
PRINT "I DO NOT HAVE A HEAD"
GOTO 1630
PRINT "S'TAIl'
IF P'0 THEN 1481
IF U'I THEN 1500
PRINT "I ~OW HAyE A TAIL"
U'1

e.0

GO TO 1630
PRINT "I DO NOT HAV~
SODY"
GOTO 1630
PRINT "I DO NOT NEED
TAIL"
GOTO 1630
PRINT "6 a LEGS"
IF V'6 THEN 1590
IF P'0 THEN 1610
UT vaV+l
C.0
PRINT "I NOW HAVE ·V" LEGeS)"
GOTO 1630
PRINT "1 HAVE 6 HET"
GO TO 1630
PRINT "1 00 NOT HAVE' A BoDY·
GOTO 1630
IF A'2 AND T'I ANO L.e THEN 1650
GOTO 1670
PRINT "YOUR BUG IS FINISHED'
lET Y.Y+I
IF 5'2 AND P'1 urD Va6 THEN 1690
GOTO 1710
PRINT "My BUG Is FINISHED"
lET Y'Y+2
IF C'1 THEN 300
PRINT "DO YOU WANT THE PICTURES"
INPUT ZS
IF ZSo"NO" THEN 300
PRI~T

"••••• YOU-R BUG ...... ..

PRINT
P~INT

IF A'0 THEN Ieee
FOR Z'1 TO 4
FOR X'1 TO A
PRINT TA8(\0l'
PRINT "A .,
NEXT X
PRI~T

N~XT Z
IF H00 THEN 1880
GOSUB 2470
IF N'0 THEN 1920
FOR Z<1 TO 2
PRINT •
" N"
NEXT Z
IF B'0 THEN 200~
PRI~T •
SBBA8BBBBBSB"
FOR Z'I TO 2
PRINT"
B
8"
NEXT Z
IF Til THEN 1990
PRINT 'TTTTTB
S'
PRINT "
BB6B88BS8SBB'
IF l'0 THEN 2080
FOR l'l TO 2
PRINT TA8(5)J
FOR X'1 To l
PRINT " L ".1
NBT X
PRINT
NEXT Z
FOR Zal TO 4
PRINT
NEXT Z

PRINT "•••••• MV BUG ••••••• "

PRINT
PRINT
PRINT
IF 8"0 THEN 2230
FOR Z'I To 4
PRINT HB(1S!I
FOR xal TO S

PRINT "F

'I,

NEXT X
PRINT
NEXT Z
IF RU THEN 2250
GOSUS 2470
IF Q'0 THEN ,2288
PRINT"
N N"

PRINT "

Nil

IF P.0 T'<EN 2360
PRINT •
BBBBseSSBBSB"
FOR Z'1 TO 2
,PRINT"
S
B"
NEXT Z
IF uU THEN 2350
PRINT "TTTTTS
8"
PRINT •
BBSBBSB888SS'
IF V'0 THEN 2450
FOR Zal TO 2
PRINT TAB(5)/
FOR X.l TO V
PRINT' L"'
NEXT X
PRINT
NEXT Z
IF v.e THEN 2548

2460
2470
2481
249"
251.
2510
2520
253.'
254.
·2551

GOTO 300
PRINT •
HHHHHHH'
;H
Hit'
PRINT "
PRINT
H 0 0 H"
PRINT
H
H"
H V H'
PRINT •
PRINT •
HHHHHHH'
RETURN
PRINT 'I HOPE YOU ENJOYED THE GAME, PLAy

END

THE GAHE BUG IS LIKE THE GAME COOTI,
I HOPE YOU ENJOY nilS 'GAME

******MY BUG*******

HHHHHHH

.H·

H DOH
AGAI~

H
H

SOON III.

"'OU ROLLED A 5
5=TAIL
YOU DO NOT HAVE A BODY
I ROLLED A 5
5=TAIL
I. DO NOT HAVE A BOD ...
YOU ROLLED A 5
5=TAIL
"'OU DO NOT HAVE A BOD ...
I ROLLED A' 3
3=HEAD
I DO NOT HAVE A NECK
YOU ROLLED A 1
1=BODY
"'OU NOW HAVE A BOD ...
I ROLLED A '2
2=NECK
I DO NOT HAVE A BODY
DO YOU WANT THE PICTUReS? NO
YOU ROLLED A 4
4=FEELERS
YOU DO NOT HAVE A HEAD
I ROLLED A 2
2=NECK

I DO NOT HAVE A BODY
,'OU ROLLED F!
6=LEG
YOU NOW HAVE
LEG(S)
I ROLLEO A 3
3=HEAD
I DO NOT HAVE A N.ECK
DO YOU WANT THE PICTURES? YES
*****YOUR 8UO*****

H
H

N N

SAMPLE RUN

DO YOU WANT INSTRUCTIONS? YES
THE OBJECT OF BUG IS TO FINISH.YOUR BUG BEFORE I FINISH MINE
EACH NUMBER STANDS FOR A PART OF THE BUGS BOD ...
I .IIILL ROLL THE DIE FOR .... OU, 'TELL "'OU WHAT I ROLLED FOR "'OU
WHAT THE NUMBER STANDS FO.R, AND IF "'OU CAN GET THE PART.
IF YOU CAN GET THE PART I WILL GIVE IT TO "'OU.
'THE SAHE WILL HAPPEN ON M... TURN
IF THERE IS A CHANGE IN EITHER .BUG I WILL GIYE ·... OU THE
OPTION OF SEEING THE .pICTURES OF THE BUGS.
THE NUMBERS' STAND, FOR PARTS AS. FOLLOWS:
NUMBER
PART
NUMBER OF PART NEEDED
1
BODY
1
2
NECK
1
:3
HEAD
1
4
FEELERS
2
5
'TAIL
1
6
LEGS
6

HHHHHHH
N Ii
BBBBBBBBBBBB
B
B

B
B

TTTTTB
B
BBBBBBBBBBBB
L L L L L L
L L L L L L
YOU ROLLED A 4
4=FEELERS
YOU HAVE TWO FEELERS ALREADY
I ROLLED A 4
4=FEELERS
I GET A FEELER
DO YOU WANT THE PICTURES? NO
YOU ROLLED A 5
5="fAIL
YOU ALREADY HAVE A TAIL
I ROLLED A 1
1=BODY
I DO NOT NEED A BODY
YOU ROLLED A 4
4=FEELERS
YOU HAVE TWO FEELERS ALREADY
I ROLLED A 1
1=BODY
I DO NOT NEED A BODY
YOU ROLLED A 5
5=TAIL
,'OU ALRERDY HAVE A TAIL
I ROLLED A 5
5=TAIL
I DO NOT NEED A TAIL
,'OU ROLLED A 5
5="fAIL
YOU ALREAOY HAVE A TAIL
I ROLLED A 2
2=NECK
I DO NOT NEED A NECK
YOU ROLLED A 4
4=FEELERS
YOU HAVE TWO FEELERS ALREADY
I ROLLED A 4
4=FEELERS
I GET A FEELER
MY BUG IS FINISHED
DO YOU WANT THE PICTURES? YES
*****YOUR BUG*****
A A
A A

AA
A A

HHHHHHH
H
H
H 0 0 H

H
H
H V H
HHHHHHH
NN
NN
BBBBBBBBBBBB

BBBBBBBBBBSEi

B
Ei
BBBBBBBBBBBB
L
L

B
B
TTTTTB
B
BBBBBBBBBBBB
L L L L L
L L L L L

YOU ROLLED A
3=HEAD
YOU DO NOT HAVE A NECK
I ROLLED A l
3=HEAD
I DO NOT HAVE A NECK
YOU ROLLED A 1
i-BODY
YOU DO NOT NEED A BODY
I ROLLED A 1
1=BODY
I NOW HAVE A BODy.
DO YOU WANT ,THE PICTURES? NO
YOU ROLLED A 1
i=BODY
YOU DO NOT NEED A.BODY
I ROLLED A 6
6=LEGS
I.NOW HAVE
~EG(5)
DO YOU WANT THE PICTURES? .NO
YOU ROLLED R

******MY BUG*******

F F
F F
F F
F F

HHHHHHH
H
H
H 0 0" H
H
H
H V H

HHHHHHH
N N
N N

BBBBBBBBBBBB
B
B

B
B

TTTTTB
B
BBBBBBBBBBEiB
L L L L L L
L L L L L L
HOPE YOU ENJOYED THE GAME, PLAY AGAIN SOON!!!

~~~E~OW HAV~ 2 LEG(S)
I ROLLED A 2
2=NECK.
I NOW HAVE A NECK
DO YOU WANT THE PICTURES? NO,

READY

5.4

BULCOW

BULLS AND COWS GUESSING GAME

Description
In this game, a somewhat advanced version of BAGLES, the idea
is that each player (you and the computer) tries to guess a
5-digit number thought up by the opposing player. A BULL is
scored for each correct digit in the correct position and a
COW for each correct digit but out of position~ For example:
Mystery number
Your guess

51340
21734 scores 1 BULL and 2 COWS

In the first sample run, the human player's mystery number was
12345. In the second run, the number was 13579. Notice that
on the fourth computer guess, 35719, the human player told the
computer 0,5 (i.e., no BULLS and 5 COWS). This was incorrect~
it should have been 1,4, but the computer could not know that
until two turns later when it realized that the human had given
it impossible scores.
By about the fourth or fifth guess, the computer starts taking
quite a bit of time to narrow its choices between guesses.
Be patient.
Program Author
Geoff Wyvill
Bradford University
Bradford, Yorkshire, England

PROGRAM LISTING
5 GOSUI150e
10 PIMD(10,4),S(10),C(10),G(10)
15 RANPOMIZE:PRINT:PRINT:PRINT
20 LETA=0:GOT0200
l0 PRINT:PRINT:PRINT:LETJ=0
l5 PRINT"YOUR GUESS'; : INPUTN:LETN=,N+,1)/100000
40 FORI'0T04:LETG(I)'INT(10*N):LETN=10*N-INT(10*N)
41 FORK=eTOI-1:IFG(J)=G(~)GOT0170
42 NEXTK
43 NEXTI
45 LETP=4:LETA=0:GOSUBJ00
50 PRINTV"BULL', : IFY01THENPRINT'S';
55 IFV=5THENPRINT' - YOU WIN':GOT020
60 PRINTW-V"COW"; : IFW{)Y+1THENPRINT'S',
65 IFJ=0THENLETA=1:GOT0200
68 005U8400
70 PRINT" - MY GUESS IS ";
75 FORI.0T04:PRINTCHR$(o(J, 1)+48), :NExTI
80 PRINT" MY SCORE', : INPUTB(J), C(J) :LETC(J).C(J)+S(J)
81 I FB( J) )-1 THEN I FB (J) (~THEN I Fe (J) (6THEN I Fe (J) -B (J) )-1GOT083
82 PRINT" - RIDICULOUS!!', :GOTO 70
93 IFB(J)'4THENIFC(J)=5GOTOS2
as I FB (J) =5THENPR I NT' - I WIN - MY NUMBER WAS'; : GOT0100
90 GOT035
100 FORI=.0T04:PRINTCHR$(D(0, 1)+48); :NEXTI
110 00T020
150 PRINT:PRINT'YOU HAVE GIYEN ME IMPOSSIBLE SCORES - GAME SPOILED'
:GOTO 5
l?8 PRINT"REPEATED DIGITS NOT ALLOWED':GOTO~5
200

FORP~0T04

219 LETD(A,P).INT(10.RND(1»
220 FORI=9T0P-1: IFD(A, I l=D(A, P1GOT0210
2)0 NEXT!
240 NEXTP
250 IFA=0GOT030
260

LETJ~1:GOT070

le0 LETV.0:LETW·9
310 FORI'OTOP: IFD(A, I )=G( I HHENLETY=Y+1
328 FORK=eT04,IFO(A,K)=Q(I)THENLETW=W+1
339 NEXTK
349 NEXTI
350 RETURN
499 LETP=0
495 LETG(P)=D(J,P)
410 FORI=0TOP-1: IFG( I )=G(P1GOT0430
415 NEXT I
429 FORA=1TOJ:GO$U8300
425 IFV<=B(A)THENIFW<=C(A)THENIF4-P>=C(Rl-WTHENIF4-P)=B(A)-YGOTQ448
439 LETG(P ).G(P)+3 : 'I FG (P »9THENLETG (P) =O( P) -10
432 IFP=9THENIFG(P)=D(1,0)GOT0150
435 IFG(P)(>D(J,P)GOT0410
440 LETP=P-1:IFP<0THENGOT0150
445 00T0430
448 NEXTA
450 LETP~P+1:IFP<5GOT0405

455 LETJ=J+1
460 FORI=0T04:LETD(J,I)=G(I):NEXTI
465 RETURN'
.
500 PRINT:PRINT'PRINT'
BRADFORD UNIYEr;:SITY BULLS AND cows GAME
510 GOT010
999 END

SAMPLE RUN
BRADFORD UN I YERS ITY BULLS AND COWS GAME

YOUR GUESS? 12345
o BULLS 2 COWS - /'IY GUESS IS, Gen1 i'lY SCORE? 1,2
YOUR GUESS? H5~7
,
1 BULL 2 cows - MY GUESS IS 6195, MY SCORE? 0"
YOUR GUE~S? 67$90
o aULLS 3 COWS - MY GUESS IS 94231 MY SCORE? O,4
YOUR GUESS? 67913
o BULLS 3 COWS - MY GUESS IS ~7319 MY SCORE? 1,2
YOUR GUESS? 24678
3 BULLS 0 cows - MY GVESS IS 16429 MY SCORE? l,~
YOUR GUESS? 25679
1 BULL 1 COW - MY GUESS IS 19384 MY SCORE? 2,1
YOUR GUESS? 64378
2 BULLS 2 COWS - MY GUESS IS 15342 MY SCORE? 2,3
YOUR aUESS? ~4638
5 BULLS - YOU MIN

Our mystery number was .12345
Computer I s sco;re is 1 BULL for the 3
and 2 COWS for the 1 and 2.

Our mystery number was 13579
YOUR GUESS? 12345
1 BULL 1 COW - i'lY GU~SS IS 46098 MY SCORE? O,1
YOUR GUESS? ~3579
o BULLS 2 COWS .- MY GUESS IS 79321 MY SCORE? 0,4
YOUR QUESS? 24680
o BULLS 3 COWS'- MV GUESS IS 021n MY SCORE? 0,3
YOUR GUESS? 35680
e BULLS 3 CO~S - MY GUESS IS 35719 MY SCORI;:? 0,5 'l'his. clue was incoJ:rect becaul\le the 9 .is in
the right place. Score should have been 1,4.
'YOUR GUESS? 80345
o BULLS 2 COWS - MY .GUESS IS ~1S37 MY SCORE? ~,~
VO.UR aUESS? nS68
o BULLS 4 COWS
YOU HAVE GIVEN ME IMPO$SIB~E SCORES - GAME SPOILED

BULEYE

THROW DARTS

Description
In this game, up to 20 players throw darts at a target with
10-, 20-, 30-, and 40-point zones. The objective is to get
200 points.
You have a choice of three methods of throwing:
Throw

Description
Fast overarm
Controlled overarm
Underarm

1
2
3

Probable Score
Bullseye or complete miss
10, 20, or 30 points
Anything

You will find after playing a while that different players
will swear by different strategies. However, consider the
expected score per throw by always using Throw 3 (program
line 220):
Score (S)
40
30
20
10

Probability (P)
1.00-.95 = .05
.95-.75 = .20
.75-.45 = .30
.45-.05 = .40
.05-.00 = .05

Expected score per throw =

S x P

2
6
6
4
0

Calculate the expected scores for the other throws and you
may be surprised!
Program Author
Digital Equipment Corp.
Maynard, MA 01754

PROGRAM LISTIN(,
10 REi'I*** b.JLLSH. BY DAVE AHL
20 PRINT 'GAilE OF BULLSEYE"\PkINT\RANDtIMIZE
, ..
30 PRINT" IN THIS .GAME, UP TO 20 PLAYERS. THROWtlPiRTS AT':f'i TfIRil~T'i'
40 PRINT' win 10, 20, 30, AND 40 POINT tONES.
THE OBJECTIVE IS'"
50 PRINT "TO ~ T 200 POINTS, "\PRINT
60 PRINT "THROW', "DESCI"PTION"" "PROBABLE SCORE"

70 PRINT
1"~·FAST O\._~AFi!M"J~ "BULLSEYE OR COMPLETE MISS"
Sill PRINT
2", "CONTROLLED OVERARM", "10, 20, OR 30 POINTS"
90 PRINT
3", "UNDERARM"" "ANYTHING"\PRINT
100 DIM A$(20),S(20),W(10)\R,M=0\S(I)=0 FOR 1=1 TO 20
110 INPUT "HOW MANY PLAYERS"; N\PRINT
120 FOR 1=1 TO N'
He N:INT "NfiME OF. PLAYER" I; \INPUT A$( l)
140 NEXT I
150 R=R+l\PRINT\PRINT "ROUND"R
160 FOR 1=1 TO N
170 F'~:INT\PRINT A$(l)'''S THROW"; \INPUT T
180 IF H0 OR Tn THEN PRINT" INPUT 1, 2, OR 3"\GOTO 170
190 ON T GOTO 200,210,220
200 Pl=, 65\P2=, 55\P3=, 5\P4=, 5\GOTO 230
210 Pl~ 99\P2=, 77\P]=, 4J\P4~01\GOTO 230
220 Pl=, 9S\P2=, 75\P3~ 45\P4=.05

~!: ~;R~~=Pl

THEN PRINT "BULLSEYE!!
40 PO'INTS!,"\B=40\GOTO 290
259 IF U)=P2 THEN PRINT "30-POINT ZONE! "\B=J0\GOTO 290

2613 IF U):;;;P3 THEN PRINT "20-POINT ZONE"\B=2(1\GOrO 29.£1
2'70 IF U)=P4 THEN PRINT "WHEW!
10 POINTS, "\B=1.0\GOTO 29.0.
280 PRINT "MISSED THE TARGET.
TOO BAD! "\8=0
290 S( [)=S( l)+B\PRINT "TOTAL SCORE ="5( l)\NEXT I
300 FOR 1=1 TO N
310 IF 5(1»)=200 THEN M=M+l\W(M)=I
3:20 NEXT I
He IF M=0 THEN 150
340 PRINT\PRINT "WE HAVE A WINNER! ! "\PRINT
J50' PRINT AtOHM» II SCORED"S(W(M» "POINTS. " FOR 1=1 TO M
360 PRINT\PRINT "THANKS FOR THE GAME! "\EflO
READI'

SAMPLE RUN
GAME OF WLLSEYE
IN THIS GAME, UP TO 20 PLAI'ERS THROW DARTS AT A TARGET
THE OBJECTIVE IS
WITH i0, 20, 30, AND 40 POINT ZONES,
TO '3ET 200 PO I NTS,
THROW

DESCRIPTION
FAST OVERARM
CONTROLLED OVERARM
UNDERARM

1
;2

PROBABLE SCORE
BULLSEYE OR COMPLETE MISS

1(1, 20, OR 39 POINTS
ANYTHING
ROUND 6

HOW MAN I' PLAYERS? 2
NAME OF PLAYER 1 ? DAVE
NAME OF PLAYER 2 ? MARY

DfI\'£' S THROW? 1
BULLSEYE!!
40 POINTS!
TOTAL SCORE = 100
MfIR\,"'::: THROW?

DF,\o'E" $ THROW?
BIJLlSE't'E!!
40 POINTS!

20-POINT ZONE
TOTAL SCORE
100

TOTAL SCORE ='40

ROUND 7

MAR.,.'''' S THROW?

Df,'Io'E" S THROW? 2

20-POINT ZONE

TOTAL SCORE
ROUND

WHEIoI!
10 PO I NTS,
TOTAL SCORE = 110'

DfIVE'S THROIol? i
MISSED THE TARGET.
TOTAL SCORE = 40

MFIRI" S THROW? ;2
WHEW!
10 POINTS,
TOTAL SCORE = 110
TOO BAD'
ROUND 8

MFIR't'''' S THROW? 1

BULl.SEYE!!

4121 POINTS !',

TOTAL SCORE = 60
ROUND 3

MF,RI" S THROW,' 2
30-'F'O I NT ZONE!
TOTAL SCORE = 140

DAI'E' S THRO»? l '

~,;~~~D S6~~E T~~~T,
MARY'S .. THRQW? i
MISSECiTHE'T13RGET,
TOTAL, SCORE ".60

TOO BAD!

TOO 8AD!

ROUND 4

TOO BAD'

ROUND 10

MARI:~ $ 'nIROW? 3 '

DAVE'S THROW? 1
BULLSE'r'E!!
40' POINTS!
TOTAL SCORE = 210 "

eo,

ROUND 5'

MFIRY'" S THROW? 1

MISSED THE TARGET,
TOTAL SCORE = 140

DAVE'STHRDW? 3'
IoIHE"'! ',10 POINTS.
TOTAL SCORE = 6'0

MA~'Y' S THROW? ,j. ,
MISSED tH£"TARGET,
TOTAL SCORE = ,80

ROUND 9
DFlr,'E"::: THROW? 1
BULLSE'r'E!!
4121 POINTS!
TOTAL SCORE = 170
MARl" S l'HROW? 1
MISSED THE TARGET,
TOTAL SCORE = 140

DAYE'S. THROW? '3
IoIHEW! ,10' POINTS,
TOTAL SCORE = 50
20-'F'OI NT· ZONE
TOTAL .sCORE

I)AVE'S THROW? 2
20-POINT ZONE
T,:.TAL SCORE = 130

TOO BAD'!

WE HAVE A WINNER!!
TOO BAD!

l)iWE SCORED 210 PO I NTS,
THANKS FOR THE GAME!

BULL

BULLFIGHT

Description
In this simulated bullfight, you are the matador--i.e., the
one with the principal role and the one who must kill the
bull or be killed (or run from the ring).
On each pass of the bull, you may try:
0 Veronica (dangerous inside move of the cape)
Less dangerous outside move of the cape
I
2 Ordinary swirl of the cape
Or you may try to kill the bull:
4 Over the horns
5 In the chest
The crowd will determine what award you deserve, posthumously
if necessary. The braver you are, the better the award you
receive.
It's nice to stay alive too. The better the job
the picadores and toreadores do, the better your chances.
This program was converted to standard BASIC (DIGITAL
Timeshared-8) by students at Lexington High School under
the direction of Walt Koetke.
Source
David Sweet
Dartmouth College
Hanover, NH 03755

PROGRAM LISTING
10 DIM D(20)
200 RANDOMIZE
202 LET L=I
205 PRINT"DO YOU WANT INSTRUCTIONS",
206 INPUT Z$
207 IF'Z$="NO" THEN 400
210 PRINT"HELLO, ALL YOU BLOODLOVERS AND AFICIONADOS"
220 PRINT"HERE IS YOUR BIG CHANCE TO KILL A BULL"
230 PRI NT
240 PRINT"ON EACH PASS OF THE BULL, YOU MAY TRY"
250 PRINT"0 - VERONICA (DANGEROUS INSIDE MOVE OF THE CAPE)"
260 PRINT"I - LESS DANGEROUS OUTSIDE MOVE OF THE CAPE"
270 PRINT"2 - ORDINARY SWIRL OF THE CAPE"
280 PRINT
290 PRINT"INSTEAD OF THE ABOVE, YOU MAY TRY TO KILL THE BULL"
300 PRINT"ON ANY TURN: 4 (OVER THE HORNS), 5 <IN THE CHEST>"
310 PRINT"BUT IF I WERE YOU,"
32121 PRINT"I WOULDN'T TRY IT BEFORE THE SEVENTH PASS"
330 PRI NT
340 PRINT"THE CROWD WILL DETERMINE WHAT AWARD YOU DESERVE"
350 PRI NT"POSTHUMOUSL Y I F NECESSARY"
360 PRINT"THE BRAVER YOU ARE, THE BETTER THE AWARD YOU RECIEVE"

~~: ::::~:i"THE BEHER A JOB THE

PICADORES' AND TOREADORES DO,"
390 PRINT"tHE BEHER YOUR CHANCES ARE"
400 PRINT
410 PRINT
420 LET D(5)=1
430 LET D(4)=1
450 DIM L$(5)
455 LET A=INT(RND(~)*5)+1
460 FOR 1=1 TO 5
463 READ L$(I>
467 NEXT I
470 DATA "SUPERS", "GOO~'', "FAIR", "POOR", "AWFUL"
490 PRINT"YOU'HAVE DRAWN A "L$(A)" 8ULL"
500 IF A>4 THEN 530
510 IF A02 THEN 550
520 GOTO 570
530 PRINT"YOU'RE LUCKY"
540 GOT0570
,
550 PRI NT" GOOD LUCK. YOU'LL NEED IT"
560 PRI NT
570 PRINT.
590 LET A$="PICADO"
595 LET B$="RES"
600 GOSUB 1610
610 LET D(Il=C
630 LET A$="TOREAD"
635 LET BS="ORES"
640 GOSUB 1610
650 LET D (2) =C
660 LET E=E
670 PRINT
680 IF Z=I THEN 131121
690 LET D(3)=D(3)+1
700 PRINT"PASS NUMBER "D(3)
710 IF D(3)03 THEN 760
720 PRINT"HERE COMES THE BULL I TRY FOR A KILL";
730 GOSUB 1930
735 ON ZI GOTO 1130,740
740 PRINT "CAPE MOVE";
750 GOTO 800
760 PRINT"THE BULL IS CHARGING AT YOUI YOU ARE THE MATADOR--"
770 PRINT"DO YOU WANT TO KILL THE BULL";
780 GOSUB 1930
785 ON ZI GOTO 1130,790
790 PRINT"WHAT MOVE DO YOU MAKE WITH THE CAPE",
800 INPUT E
810 IF Eo>INT(ABS(E»THEN 830
820 IF E03 THEN 850
830 PRINT"DON'T PANIC, YOU IDIOT! PUT DOWN A CORRECT NUMBER"
840 GOTO 800
850 LET D=D
860 IF E=0 THEN 920
870 IF E=I THEN 900
880 LET M=0.5
890 GOTO 930
900 LET M=2
910 GOTO 930
920 LET M=3
930 LET L=L+M
940 LET F=(6-A+M/10)*RND(0)/«D(I)+D(2)+D(3)/10)*5)
950 IF F00.51 THEN 660
960 PRINT"THE BULL HAS GORED YOU"
970 ON FNA(0) GOTO 980,1010
980 PRINT"YOU ARE DEAD"
990 LET D(4)=1.5
1000 GOTO 1310
1010 PRINT"YOU ARE STILL ALIVE"
1020 PRINT"DO YOU RUN FROM THE RING";
1030 GOSUB 1930
112135 ON ZI GOTO 1040,1~70
1040 PRINT"COWARD"
1050 LET D(4)=0
112160 GOTO 1310
1070 PRINT"YOU ARE BRAVE. STUPID, BUT BRAVE"
1080 ON FNA(0), THEN 1090,I1U
1090 LET D(4)=2
1100 GOTO 660
11 U PRINT"YOU ARE GORED AGAIN"
112121 GOTO 970
113121 LET c=e

1250 IF K>0.2 THEN 960
1260 PRINT"YOU KILLED THE BULL"
1270 LET D (5)=2
1280 GO TO 1320
1290 IF K>0.8 THEN 960
1300 GOTO 1260
1310 PRINT
1320 PRINT
1330 PRINT
1340 IF D(4)0>0 THEN 1390
1350 PRINT"THE CROWD BOOS F"OR TEN MINUTES. IF YOU EVER DARE TO SHOW"
1360 PRINT"YOUR FACE IN A RING AGAIN. THEY SWEAR THEY WILL KILL YOU"-"
1370 PRINT"UNLESS THE BULL DOES FIRST"
1380 GOTO 1580
1390 DEF FNC(Q) = (4 .5+L/6- (D (I )+D (2) )*2 .5+4*D (4 )+2*D (5)- (D (3) t2) 1120-A)*1
1400 IF D(4)<>2 THEN 1430
1410 PRINT"THE CROW CHEERS WILDLY"
1420 GOTO 1450
1430 IF D(S)0>2 THEN 145121
1440 PRI NT"THE CROWD CHEERS"
1450 PRI NT"THE CROWD AWARDS YOU ";
1460 IF FNC(Q)c2.4 THEN 1570 '
1470 IF FNC(Q)04.9 THEN 155.0
1480 IF FNC(Q)07.4 THEN 1520
1500 PRINT"OLEI YOU ARE 'MUY HOMBRE'I OLEI OLEI"
15 10 GOTO 1580
1520 PRINT"BOTH EARS 01' THE BULL"
1530 PRINT"OLEI"
1540 GOTO 1580
1550 PRI NT"ONE EAR OF THE BULL"
1560 GOTO 1580
1570 PRINT"NOTHING"
1580 PRINT
1590 PRINT"ADIOS"
1600 GOTO 2030
1610 LET B=3/A*RND(I2I)
1620 IF B0 0.37 THEN 1740
1630 IF B00.5 THEN 1720
1640 IF B00.63 THEN 1700
1650 IF a0 0.87 THEN 1680
1660 LET C=0.1
1670 GOTO 1750
1680 LET C=0.2
1690 GOTO 1750
1700 LET C=0.3
1710 GOTO 1750
1720 LET C=0.4
1730 GOTO 1750
1740 LET C=0.5
1750 LET T=INT«0*C+0.2)
1760 PRINT"THE "A$;B$" DID A "L$(T)" JOB"
1770 IF 4>T THEN 1900
1780 IF 5=T THEN 1870
1790 ON FNACK) GOTO 1800,1900
181210 IF A$="TOREAD" THEN 1820
181121 PRINT"ONE OF THE HORSES OF THE "A$,BS" WAS GORED"
1820 ON FNA(K).GOTO 1830,1850
1830 PRINT"ONE OF" THE "AS;B$" WAS KILLED"
1840 GOTO 1900
1850 PRINT"NO "A$;3$" WERE KILLED"
1860 GOTO 1900
1870 IF A$="TOREAD" THEN 1890
1880 PRINT FNA(K)" OF THE HORSES OF THE "AS;B$" GORED"
1890 PRINT FNA<K)" OF THE "A$;B$" KILLED"
1900 PRINT
1910 RETURN
1920 DEF FNA(K) = IIlHRND (0)*2>+1
1930 INPUT A$
195121 IF" A$="YES" THEN 1990
1960 IF·AS="NO" THEN 2010
1970 PRINT"INCORRECT ANSWER, PLEASE PRINT 'YES' OR 'NO'",
1980 GOTO 193121
1990 LET ZI=1
212100 GOTO 2020
20ULETZI=2
2020 RETURN
203121 END
READY

II;:
~IN~:~T IS THE MOMENT OF TRUTH. HOW DO YOU TRY TO KILL THE BULL",
1160 INPUT H
1170 IF" H=4 THEN 1230
1160 IF H=5 THEN 1230
1210 PRINT"YOU PANICKED. THE BULL GORED YOU."
1220 GOTO 970
1230 LET K=(6-A)*10*RND(0)/«D(J)+D(2»*S*D(3»
1240 IF" J=4 THEN 129121

SAMPLE RUN
DO YOU WANT INSTRUCTIONS? YES
HELLO, ALL YOU BLOODLOVERS AND AFICIONADOS
HERE IS YOUR BIG CHANCE TO KILL A BULL
ON EACH PASS OF THE BULL, YOU MAY TRY

o - VERONICA <DANGEROUS INSIDE MOVE OF THE CAPEl
1 - LESS DANGEROUS OUTSIDE MOVE OF THE CAPE

2 - ORDINARY SWIRL OF THE CAPE
INSTEAD OF THE ABOVE, YOU MAY TRY TO KILL THE BULL
ON ANY TURN: 4 (OVER THE HORNS), 5 (IN THE CHEST)
BUT IF I WERE YOU,
I WOULDN'T TRY IT BEFORE THE SEVENTH PASS
THE CROWD WILL -DETERMINE WHAT AWARD YOU DESERVE
POST HUMOUSL Y I F NECESSARY
THE BRAVER YOU ARE, THE BETTER THE AWARD YOU RECIEVE
THE BETTER A JOB THE PICADORES AND TOREADORES DO,
THE BETTER YOUR CHANCES ARE
YOU HAVE DRAWN A SUPERB BULL
GOOD LUCK, YOU'LL NEED IT
THE PICADORES DID A SUPERB JOB
THE TOREADORES DID A SUPERB JOB
PASS NUMBER
I
THE BULL IS CHARGHIG AT YOU I YOU ARE THE MATADOR-DO YOU WANT TO KILL THE BULL? NO
WHAT MOVE DO YOU MAKE WITH THE CAPE? 0
THE BULL HAS GORED YOU
YOU ARE DEAD

THE CROWD AWARDS YOU ONE EAR OF THE BULL
ADIOS
READY
RUN
DO YOU WANT INSTRUCTIONS? NO
YOU HAVE DRAWN A POOR BULL
THE PICADORES DID A POOR JOB
ONE OF THE HORSES OF THE PICADORES WAS GORED
ONE OF THE PICADORES WAS KILLED
THE TOREADORES DID A POOR JOB
NO TOREADORES WERE KILLED
PASS NUMBER
I
THE BULL IS CHARGING AT YOUI YOU ARE THE MATADOR-DO YOU WANT TO KILL THE BULL? NO
WHAT MOVE DO YOU MAKE WITH THE CAPE? 2
PA SS NUMB ER 2
THE BULL IS CHARGING AT YOUI YOU ARE THE MATADOR-DO YOU WANT TO KILL THE BULL? NO
WHAT MOVE DO YOU MAKE WITH THE CAPE? 2
PASS NUf13~R 3
HER E COMES THE BUL.L I TRY FOR A KILL? NO
CAPE MOVE? I
PASS NUMBER 4
HERE COMES THE BULL I TRY FOR A KILL? NO
CAPE MOVE? 0
PASS NUMBER 5
HERE COMES THE BULL I TRY FOR A KILL? NO
CAPE MOVE? 1
PASS NUf1B ER 6
HERE COMES THE BULL I TRY FOR A KILL? NO
CAPE MOVE? ~
PASS NUf1BER 7
HERE COMES THE BULL I TRY FOR A KILL? NO
CAPE MOVE? 2
PASS NUMBER 8
HERE COMES THE B~LL I TRY FOR A KILL? YES
IT IS THE f10MENT OF TRUTH, HOW DO YOU TRY TO KILL THE BULL? 4
THE BULL HAS GORED YOU
YOU ARE DEAD

THE CROWD AWARDS YOU ONE EAR OF THE BULL
ADIOS
READY

BUNNY

PRINTS THE PLAYBOY RABBIT

UN
BUN
BUNNYB

NNYBUN
NYBUNNYBUN

BOKIlI.Dft'

t»fN¥B'UNNPi:Uli'

'~.".IBI.;r

N;YIt1N;N:~B UN'N'fIU

. :~.':U1I.:Jlli;UNN¥:BU;NNGIBUB,tn:B

NYBUNNYBUNN
YBUNNYBUNNY
aUNNyBUNNYB
UWBaUltf'.u

YBUNNIBUNNYBUNNY
NNYBUNNYBUNNYBUNN
UNNYBUNNYBUNNYBUN
. BUNNY]!UINNJI;UIN;YB:
YrlVWifY$(VNN,YBUNNY

W",y;&UWaUN

tf'J.'KNIJ,U:W'm'·.W:ratfNNYSU,N¥$'UkN .
YBUNNY~UNNyB
NNYBUNNYBUNNYBU
BUNNYBUNNYBU
UNNYBUNNYSUNNYB
UNNYBUNNYBUN BUNNYBUNNYBUNN
<!I••IU~H!ft~IU'lN;l'UNWtBVNN.V
;.~(f:.~Nf:IUI ••il'~.YluNNr:. '
·;;I• •W~~UNl:ra~aN:l'.UNW

BUNNYBUNNYSUNNYBU
NNYBUNNYSUNNY
NYBUNNYSUN
.J'BUtftlY$U' .
;IUlfrW¥BUlrwtaUiN:»
(tYJ3umt1ItntNXJl1'NWxt

UNNYBUNNYBUNNYBUNNYBU
BUNNYBUNNYRUNNYBUNNYBUN
NYBUNNYBUNNYBUNNY8UNNYRUNN

·. ·rH'il'aU.1f~iUNfi:r"UNNYBUNNYBUNHr··.
:r.J:N'UStUflN· UNf!f;¥8UNlI/1'IlHNNrtuNNY.
!,'.OflDUJf·UNMTBiI1NIY:8UNNYIUXN:YI

YBUNNYSUN
NYSUNNYBUN

UNNYBUNNYBUNNYBUNNYB

BUNNyaUN~YBUNNYBUNNYB

NNYBUNNYBUNNYBUNNYBUNNY~UNNYBUNNYB

·.Ufi:I_nl~N'I.UW.:!aUHtf~.UBM:YBUlOJ'YBU.NYI

.IJIIWfI,.EJiIHYSvHttmUK*JBUKN,Y8UlfDlY·
ItTJlVN'N,DUNHY:BUNm:X;fitIKftyaUNN,YBUlfNY·

YSUNNYBUNNYBUNNyBUNNYBUNNyaUNN
UNNYBUNNYBUNNUBUNNYBUNNYBUNN
BUNNYSUNNYBUNNYBUNNYSUN Y

S·
·8011¥";IfY.UNNYB'U

X'BU1'l'J!i:I:IIU.Jlllft'YI· ;tn'BU

V:SD:l'fN,Ul'flUNNYI,
N
NYSUNN
NYSUNNY
NYBUNN
NNYBUNNYSUNNYBUNNY UNN
UNN
N Y N 18UNNyaU

IU·N.NN Y
I·
NoN 'OHMY

NNY
NY
62

BUZZWD

BUZZWORD GENERATOR

Description
This program is an invaluable aid for preparing speeches and
briefings about computers and high technology. This buzzword
generator provides sets of three highly-acceptable words to
work into your material. Your audience will never know that
the phrases don't really mean much of anything because they
sound so great! Full instructions for running are given in
the program.
Source
BUZZWORD was adapted from the GE timesharing program by:
Torn Kloos
Oregon Museum of Science and Industry
Portland, Oregon 97200

PROGRAM LISTING

SAMPLE RUN

III PRINT"TH%S COMPUTER OEMONSn~TJON IS A NEW 410 FOR.
lie PRINT"PREPARING SPEECHES AND BRIEFINGS, IT'S A BUZZWORD"
120 PRINT'GENERATOR WMICH PROYIDES YOU WITH A SET OF 3 MIGM~'"
130 PRINT'ACCEPTAe~E WORDS TO WDR~ INTO 'OUR HATERU~. THE WORDS"
140 PRINT"DON'T ACTUA~~Y MEAN AN"MING, aUT 'ME' SOUND GREAT,"
15m PRINT
160 PRINT"THE PROCEDURE."
110 PRINT"
THINK OF ANY THREE NUMBERS BETWEEN 0 ANO', ENTER"
18m PRINT'
THEM AFTE~ THE 'f' SEPARATED 8' COMMAS,
YOUR'
1ge PRINT"
8UZZWORD WI~~ BE PRINTED OUT,
TYPING '100' FOR"
191 PRINT"
EACH OF 'OUR CHOICES STOPS THIS PROGRAM,"
210 PRINT 'WHAT ARE 'OUR THREE NUMBERS",
220 GOT0261
230 PRINT
240 PRINT
250 PRI~T"THR'E MORE NUMBERS"'
260 INPUT N,M,P ,
265 IF N'lee THEN 1290
271 IF NCO THEN 124~
28m IF pcm THEN 1~40
290 IF HC0 THEN 1240
300 If N09 THEN 1240
310 If P09 THEN U4iI
320 IF HO' THEN 1240
330 PRINT
340 IF N'0 TMEN 640
350 IF N'ITHEN 660
360 IF N'2THEN 680
371 IF N'3TMEN 700
380 IF N'4 THEN 12m
390 IF N'5THEN 14~
400 IF N.nHEN 760
410 IF N"TTHEN 780
420 IF N'8THEN 800
430 IF N.9THEN 82~
440 IF M'0 THEN Jl40
450 If M'I THEN B&0
4&0 IF .02 THEN B80
470 I~ M'3 THEN 900
480 IF M'4 THEN 920
490 IF M'5 THEN 940
501 IF H'& THtN 960
510 IF M" THEN 980
52m IF M'8 THEN 1000
530 IF .'9 THEN 1020
54m IF
THEN 1040
550 IF P'I THEN 10U
5&0 IF P'2 THEN 1080
570 IF P'3 THEN 1100
580 IFP'4 THEN II ~0
590 IF P'S THEN 1140
600 I'F _P'6 THEN II b0
610 IF P'7 THEN 1180
620 IF P'8 TM~N 1200
630 IF P'9 THEN 1220
&40 PRINT" INTEGRATED",
&50 GOT0440
&b0 PRINT" TOTA!." I
670 GOT0440
680 PRINT "SYSTEMATiZED",
690 GOT0440
100 PRINT" PARA!.!.E!.",
710 GO TO -440
120 PRIN'T" FUNCTIONA~"
730 GOT0440
740 PRINT' RESPONSIVE"
750 GOT0440
7&0 PRINT" OPTlMA~'"
770 GOT0440
780 PRINT' SYNCHRONIZED'"
790 GOT0440
800 PRINT" COMPAnS!.E",
810 GOT0440
820 PRINT' SA!.ANCEo",
830 GOT0440
840 PRINT" MANAGEMENT",
850 GOTO 540
86m PRINT" ORGANIZATIONA~"
810 GOTO 540
880 PRINT' MONITORED",
890 GOTO 540
90m PRINT" RECIPROC4!.'"
910 GOTO 540 "
920 PRINT" OIGITAI."
930 GOTO 540
9U PRINT" ~OGISTICA!..,
950 GOTO 540
960 PRINT ' TRANSITIONA~"I
970 GOTO 540
980 PRINT" INCREMENTA!.",
990 GOTO 540
I0U PRINT" THIRD-GENERATION',
1010 GO TO 540
1028 PRINT" PO!.IC,"'
1030 GOTO 540
1040 PRINT" OPTIONS"
'1050 G"OTO 230
1060 PRINT ' F!.EXIBI~ITY"
1010 GO TO 230
i080 PRINT" CAPASl!.ITY"
1090 60T1]230
1100 PRINT' MOSI~ITYp
1110 GOTOU0
1120 PRINT" PROGRAMMING"
1130 GO TO 230
1140 PRINT" CONCEPT"
1150 GOT0230
1160 PRINT" T1ME~PHASE"
1170 GOTOU0
1180 PRINT" PROJECTION"
1190 GOT0230
1210 PRIt;T" HAROWARE"
1210 GOT0230
1220 PRINT· CONTINGENC'~
1230 GOTOn0
1240 PRINT
1250 PRINT
1260 PRINT"f;UMBERS MUST BE BETWEEN e AND 9, PLEASE SE!.ECT THREE MORE,"
12T0 GOTO a.0
1280 GOTO abe
1290 PRINT "GOODBYE FOR NOWI
1300 PRINT\PRINT\PRINT
1310 CHAIN "DEMON '
1320 END

p.e

BUZZWD

EDUsYsTEM-35

THIS COMPUTER DEMONSTRATION IS A NEW AID FOR
PREPARING SPEECHES AND BRIEFINGS.
IT'S A BUZZWORD
G~NERAT'OR WHICH'PROVIDES YQU WITH A SET OF 3 HIGHLY
ACCEPTABLE WORDS TO WORK INTO YOUR MATERIAL.
THE WORDS
WN'T ACTUALLY MEAN ANYTHING" BUT THEY SOUND GREAT.
THE PROCEDURE,
THINK 01' ANY THREE NUMBERS" BETWEEN 0 AND 9.
ENTER
THEM AFTER THE " t SEPARATED J3Y COMMAS.
YOUR

BUZZWORD WILL BE PRINTED' OUT.

TYPING '100' FOR

EACH OF YOUR CHOICES STOPS THIS PROGRAM.
WHAT ARE YOUR THREE NUMBERS11 .. 2,,3
TOTAL MONITORED MOBILITY

THREE MORE NUMBERS?2" 3 .. 4

SYSTEMATIZED RECIPROCAL PROGRAMMING

THREE MQr:tE NUMBERS?0,,0,,0

INTEGRATED MANAGEMENT OPTIONS

BALANCED ,THIRD-GENERAT ION PROJECTION

THREE MORE NUMBERS? 7" 8" 9

sYNCHRONI ZED THIRD-GENERAT ION CaNT INGENCY

RESPONSIVE RECIPROCAL HARDWARE
THREE MORE NUMBERS12 .. _ .. 4

SYSTEMATIZED TRANSITIONAL PROGRAMMING

THREE MORE NUMBGRS13", 4,. 5

PARALLEL DIGITAL CONCEPT

THREE MORE NUMBERS? UJ0" 1001"" 100
GOODBYE FOR NOW I

CALNDR

PERPETUAL CALENDAR

Description
This program prints out a calendar for any year. You must
specify the starting day of the week of the year in Statement
130. (Sunday (0), Monday (-1), Tuesday (-2), etc.). You can
determine this by using the program WEKDAY. You must also
make two changes for leap years in Statements 360 and 620.
The program listing describes the necessary changes. Running
the program produces a nice l2-month calendar.
ProqramAuthor
Geoffrey Chase, aSB
Portsmouth Abbey School
portsmouth, RI 02871

PROGRAM LISTING

SAMPLE RUN

100 REM:
VALUES FOR 1973; SEE NOTES
110
120 FOR 1=1 TO 6\ PRINT CH!UeI0);\ NEXT 1
130 0=-1
'1973 STARTS ON MON.
[0=SUN.,-I=MON .. -2=TUE . . . J
140 S=0
150 REM:
READ DAYS OF EACH MONTH
160 FOR N=0 TO 12 \ READ MeN) \ NEXT N
170
180, FOR N=! TO 12
190 PRINT \ PRINT '\ S=S+M(N-l)

** e

21210 PRINT "**"JS;TAB(7H
210 FOR 1=1 TO 18 '\ PRINT .. * .. ;

***** ••• *.*.*.-•• ** J~UARi **:ti***.***.******* 3'5.*
S

8
14

220 ON N GOTO 230'1240,,250',,260',,27121,,280,,2911',,3121121 .. 310 .. 320,,330 .. 340
230 PRINT" JANUARY"; \GOTO 350

24el PRINT" FEBRUARY"; \GOTO 353

250 PRINT"
260 PRINT"

270 PRINT
280
29121
300
310
320
330
34121
35121

MARCH
APRIL

, NEXT I

"; \GOTO 350
"; \GOTO 350

•• 31 ********* .**** **** F'EBRUARi'**************.**-* 334 **

MAY"; \GOTO 350

PRINT"
JUNE
"; \GOTO 350
PRINT"
JULY"; \GOTO 350
PRINT"
AUGUST"; \GOTO 350
PRINT "SEPTEMBER"; 'GOTO 35121
PRINT" OCTOBER "; \GOTO 350
PRINT " NOVEMBER"; \GOTO 350
PRINT" DECEMBER";
FOR 1=1 TO 18 '\ PRINT "*"; \ NEXT

*********************.* •• ******* •• *.* •• ********************
2

360 PRINT 365-5;"**";
370
[366-5;
ON LEAP YEARSJ
38121 PRINT CHR$(10) \ PRINT or
S
390 PRINT"
T
F
S
400 PRINT
41121 FOR 1=1 TO 59 '\ PRINT n*lO; \ NEXT I
420
430 FOR 101=1 TO 6
440 PRINT CHR$( 10)

*•• *.* ••• *•••• ***.*.**.* •• **** •.** ••• *** ••• ***********.*****

W";

•• 59 **** •• ****.****.** MARCH .********* •• *****. 396 **
S

450 PRINT TAB(4);
460
470' FOR G=l TO 7
480' D=D+ 1 .
490 02=0-5
500 IF 02>MeN) THEN 580
510 IF 02>0 THEN PRINT D2;
520 PRINT TAB(4+8*G).;
530 NEXT G
540
550 IF D2=M(N) THEN 59121
560 NEXT 101
570
580 D=D-G
590 NEXT N
600
610 FOR 1=1 TO 6\ PRINT CHR$C10);\ NEXT I
623 DATA 121 .. 31 .. 28 .. 31 .. 3121 .. 31 .. 30" 31 .. 31 .. 3121" 3b,3121" 31
6313
(0"31,,29,,
••• " ON LEAP YEARS]
640 END

101

** *. ** *** ••• *'* *. *.**,* **-** *** **** .. ***. **** *. *** *** ***.*** ***
2

3
10

.,* 9'" .**.*.* ••• *******. APRIL **.**.** •• ***.***. 275 **
5

**********'** *** *•• *.*** ****** *****. ** ********* "'. ** .. *** ** **.
2

REM: IF YOU HAVE NO CHR$()" SUBSTITUTE "PRINT" FOR "PRINT CHR$(10);"
REM: AND "PRINT \ PRINT" FOR "PRINT CHR$e 10)"(WlTHOUT SEMICOLON).

211

•• 128 **** •• *******.* •• *
S

MAY
101

• **.************ •• 245 ••
T

** •• *•• *. *. *** **.* .. ** ... ** **** •• **. *** .** ***. **** ** ** ** .** *.
2

a
STO!'

CAN-AM

CANADIAN-AMERICAN AUTO RACE

Description
CAN-AM is a simulation of a Canadian-American Challenge Cup auto
race. The road course is fast (speeds up to 200 m.p.h.) •. It is
long (5.3 miles) and complex (8 curves and 8 straights). You are
racing the latest Group 7 cars (McLarens, Lolas, etc.).
The instructions provided by the program are self-explanatory.
You should really take heed of track hazards--i.e., rain and oil,
except, of course, slowing down too much puts you out of contention. BEWARE: This game is very challenging and addictive!
Computer Limitations
The program was written for the Honeywell/GE 635 at Dartmouth.
The main inconsistency with other computers is that several
people may race using multiple terminals; this is generally
not possible on smaller machines.
The comments on the listing are extremely comprehensive and
entertaining. We apologize for not having a sample run, but
it got wiped out.
Program Author
Mark Manasse
Hanover, NH 03755

......... ..

-"., .

.....

PROGRAM LISTING
100 ' n~-A~*** (BASIC PROGRAM BEGINS AT LINE 610) WAS PROGRAMMED BY MARK
110 ' ~A~ASSE, TO REPLACE THE AILING VERSION HE iiROTE AS A SInH GRADER
120 " AT HA~OVER ELEMENTARY SCHOOL.
130 ' LAST CHANGE 12/27112 BY tIANE MATHER, KIEWIT
140 '
150 ' OESCR[.PTIO~--THE PROGRAM ALLOilS YOU TO RRCE AROUND A HIGHLY
160 ' PERILOUS COURSE, RISKING BOTH LIFE AND MACHINE, IN AN
170 ' EFFnT TO RACE FRIENDS OR T~E CO~PUTER'S VERY O.N nOil160 ' porE SAM, wILDMAN WILLY, AND HOTSHOT nARRY
190
200 ' INSTRUCTIONS-210 ' YOU ARE ABOUT TO RACE. RACE ON ONE OF THE FASTEST COURSES
220 ' IN THE .ORLD. A ROAD COURSE. A LONG ONE. 5.3 MILES. SPEEDS
230 ' UP TO 200 r,PH. YOU CAN RACE FRIENDS(?) OR THE COMPUTER.
240 ' TO RACE THE COMPUTE R, TYPE THE SEQUENCE:
250 '
10LD CAN-AM*"/RUN
260 '
270 '
2'80 ' TO ~ACE FRIENDS, TUE:
250
10LD CAN-AM***/LINK <KEYWORD>.N
3"0 '
310 '
320 ' REPLACE <,KEYWORD> .IH ANY .ORD OF LENGTH 1 THROUG~ 8 INCLUSIVE
330 ' THAT YOU CHOOSE. REPLACE N wItH THE NUMBER OF PLAYERS COUNTING
340 'YOURSELF. HAVE YOUR FRIENDS TYPE:
350 '
JOI N <KEYilORD>
350 '
370 I
330 ' <KHWORO> SHOULD BE THE KEYWORD YOU USED IN THE 'LINK' COMMAND
3 ~O I
4)0 ' WHEN THE COMPUTER TYPES A QnSTION OF THE FORM
410 '
STRAIGHT A?
OR
CURVE 1:
420 ' RESPO~D BY TYPING THE SPEED (IN ~PH) YOU DESIRE TO TRAVEL AT,
430 ' ANL HIT THE RETURN KEY. GOOD LUCK. YOU M~Y NEED ,IT.
440 '
450 ' IF YOG ARE USING A TER~INAL WITH BOTH UPPER AND LOWERCASE, TYPE
450 ' .. ORD ANSWERS (SUCH AS YES OR ~O) n CAPIIU LETTERS.
470
430 ' TO STOP THIS LISIING, PRESS THE'S' OR 'ATTN' KEY.
490 '
500
FOF MORE INFORMATICN ON MULTIPLE-TERMINAL FROGRAMMING. (A~
510 ' ;;HE~ SEVERU PEOPLE RACE EACH OTHER). SEE TII009 WHICH IS
520 ' AVAILABLE FROM THE KIEiiIT DOCUHNT CENTER (SECRETARIAL AREA),
530 ' KIErin COMPUTATIOK CENTER. HANOVER, N. H. 03755, PHONE
SiD' (603) 646-2643.
550 '
550 ' EXPUNATION OF CHUGES-570'
12/27/72--TO RE~ORD INSTRUCTIONS.
5,0 '
590 ''* *
* * *
* * *
* *
6JJ
610 >EM
PLEASE REFER ALL BUGS OR CO~ME~TS TO DIANE
620 !<EM
MATHER. PROGRA~ LIBRARIAN. 105 KIE.IT
5JO
640 lfT 0(0)=2
'STANDARL MOTIF ,HEADER
650 LET 0(1) = ASC(SOH)
660 LET 0(2) = ASC(N)
670 CHA~CE 0 TO 01$
680 LET O(Z)' = ASC(Q)
690 (HAHE 0 TO OS
700 PRINT 01$;0$;CHR$(1~;"XX ARE YOU F~MILIA. WITH THE ~AY THIS GAME WORKS";
710 LATA NON,OUI.PARLEZ-VOUS ANGLAIS?NEIN.JA.SPRECHEN SIE ENGLISCH?
720 LPTA NOPE,YUF,COMPUTERS ARE SOPHISTICATED MACHINES. USE APPROPRIATE LANGUAGE.
730 LET 0=5
'rilICE NU~8ER OF KNO.~ LANGUAGES
740 FOR x=l TO K9-1 STEP 2
750
~E~D F$(X),F$(K+ll,R$«X-ll/Z+ll
750 HXT X
770 IE' iE rlRVE JUST LERRNED FOREIGN LA'GUAGES
BJ DATA nLD'AN WILLY,HOTSHOT H~RRY.SLOtiPOKE SAn 'NAMES OF DRIVERS _HO COMPETE AGAIN ',T O~,LY ONE PERSON.
790 n,T !<fAD OS( 3)
'NAME ARRAY
Bao DP,B -2.9,-2.9.-5
'AH. SPEED TO B~ SUBTRACTED FROM AUTO-PILOT'
SPEEDS
810 tAT READ Q(3)
820 fFT READ M$(3)
'READ NAr.ES OF TYPES OF ROADWAY
8,0 READ X$
'DEATH MESSAGE
8qO INPUT A$
'RESPONSE TO DO YOU KNOW WHAT YOU'RE DOING?
850 IF 1,>"J9" THEN 890
'IF BET.EEN 01 AND 09, THEN MULTI-TERMINAL
860 IF A$<"Ol" rHF.N 890
870 LET 09·,'A!.( AS)
890 GOTC 960
89:) LET 0$="11
'SET THINGS UP FOR SI~GLE TERMINAL
900 GOSUB 2190
910 IF AS."NO" THEN 1'070
920 FRIH "RATE ~OURSELF AS ~ DRIVER. (1-BEST,3-"0RST)";
930 I~PUT 0
9B Ln Q(3)=Q(3)*0
950 GOTe 1050
950 L,r 0(2) = ASC(A)
'CREATE 0$ ARRAY FOR MULTI-TERMINAL
970 CHANGE 0 TO 0$(10)
'STANDA1U MOTIF
930 PH I = 0 TO 09
950
LET 0(2),. ASC(C)+I
ll00
'CHAIGE 0 TO OS(I)

* *

(AUTO-PILOTS)

in~ ~~g/0$(10H·YOU ~AY

'DRAFT' (SLIPSTREAM) OFF OF AH. CAR AHEAD"
1030 PRINT "OF YOU., (BU'"! NOT MORE':'THAN 1 SECOND AHEAD). TO DO THIS'

DiD PRINr "TYPE HIS CAR ~lfM8ER+l000 AS YOUR SPEED."

1050 RANDOMIZE
'
,
lJ50 IF' AS'"YES" THEN lliO
1070 FRINT 0$(0)
1080 PRIST "FOR INSTRUCTIONS, PLEASE TYPE LIST AFTER THE COMPUTER SArs READY."
1090 PRI~!
ll00 IF AS-"NO" rHEN 2290
1110 LET F2-INT(RND*10)+6
1120 FOR A.JTO 09
'~SSIGN NUMBERS AND ADHESION FACTORS
1130
PRINT, O$(A);"rOUR DRIVING NUMBER IS";F2*(A+ll+A 'AEHESION FACTOR IS HO'.£1 YOUR CAR GRIPS THE ROAD
1140
LET AH)-RND*.05+.05
1150
PRINT O$(A);"HHESION FACTOR";;;(A)*100-5;". (THE LOWER THE BETTER)"
1150 ~EXT A
1170 PRINr 0$(10);"YOUR MAX. SPEED IS 200 MPH. TO SEE STANDINGS INPUT"
1180 EFINT "0 AS YOUR SPEED"
1190 PRI~r 3$(0);"WOULD ~OU LIKE TO SEE THE COURSE";CHR$(63*SGN(09));0$; 'PRINT
IF ULT-TERM. OTHERWISE DON'T
1200 MAT INPUT AS
1210 PRIN! 0$ (10);
12Z0 LET A$=AS(NUM)
1230 GOSrR 2190
1240 IF AS."NO" THEN 1450

1250 IF ~S<>"YES" THEN 1190
'PRINT COURSE
1250 PRINrI~B(4);"---------- ______ r
1270 FRIITTAB(3);"/1";TABC11);"B";TIEC19);"2\"
1280 PRINrTAB(2);"/A";rRBC20);"C\"
1290 FRIN7TABCll;"";TAB(22);"\"
1300 PRINr "1";T~BC211;"3I"
1310 PRINT "'-SIART*FINISH";TAB(22);"I"
1320 ?RINT "A"iT!\B(22):HI"
1330 FRINT "'";T~B(21);"tI"
1340 ?RINr "1\11:TJ\B(22)i"I"
1350 FRINT "'";IAB(22);"I"
136J PRIN'r "I\H" iTABe 22);" In
1370 ?RIN'r "1\1I;T.~B'22);nI"
1380 PRINT "'";TIB(21);"4I"
1390 PRINT "A";TRB(16);"
/"
1400 FRINT"J\8"iTABClS);"Tr'E"-

1410 PRI~T "I\" i TAB(16);"\"
1420 PRINT "\" ;IABC 17);" -----------)" ;CHR$ (13) ;TAB C20);" IP ITS\"
1430 FRIN'I " \7";TAB(l41;"G":TAB(Zl);"FA " ;TAB{Z7);1I6I"
1140 ~RUr" \
I"
1450 LET N=RND*3~r---------------------

1450 °RVa"
~OTE:

THIS IS .";INTCN);"LAP RACE."

1470 PRI"IT"

&ENTLEMU, START YOUR HGINES! THE GREEN GOES DOWN P.ND"
1480 FRIN I"OFF YOU GO!"
1490 DATA STRAIGHT,HAIRPIN,CURVE
1500 DAn ~AY I SHOW YOU TO A PLOT? WE HAVE A NICE CHOICE OF HEADSTONES.
1510 LET Q=-1
1520 LET ~=INTCN)
1530 FOR V=1 TO ~
'WORKING PORTIO~
1540
LET Y=FNACM$Cl),2JO,l,3/10,b51 'STRAIGHT A, 200 ~AK., 3/10 MILE LONG
1550
LET Y=HACM$(3),125,I,l/l0,49) 'CURVE 1. 125 MAX>., 1110 ~ILE LONG
1550
LET Y=FNAC~$Cll,2~O,2,13/20,65l 'STRAIGnT B, 200 MAX., 13/20 MILE LONG
1570
LET Y=FNACM$(3),125,l,1/10,50) 'CURVE 2, 125 MAX., 1/10 MILE LONG
1580
LET Y=FNHM$Cll,200,I,l!5,67)
'StRAIGHT C, 200 r.AX., lIS MILE LONG
1590
LET Y=FNACM$(3),150,I,3/20,511 'CURVE 3,150 MilK •• 3/20 MILE LONG
HOO
LET Y=FNACM$(l),200,2,3/S,68)
'STRAIGHT D, 200 MAX., 3/5 MILE LONG
>1&10
LET Y=FNACM$(3),125,1.1IlC,52) 'CURVE 4, 125 MAX., 1110 MILE LONG
1520
LET !=FNACM$Cl),230,l,1/4,69) 'STRAIGHT E, 200 MAX., 1/4 MILE LONG
1630
LET Y=FNAH1$CZ),100,.75,3/20>,53) 'HURFIN 5, 100 II~X., 3/20 MILE LONG
1643
LET Y=FNACM$Cll,200,1.5,9!20,70) 'STRAIGHT F, 200 MAX., 9/20 ~ILE LONG
1550
LET Y=FNACMS(2),100,.75,3/20,54) 'HAIRPIN 5, 100 MRX., 3/20 MILE LONG
1660
LET Y=FNAC~$Cll.200,2,l,71)
'STRAIGHT G, 200 MAX., 1 MILE LONG
1570
LET Y=FNACII$C 3),125,1,1/10,55) 'CURVE 7, 125 MH., 1/10 MILE LONG
1660
LET Y=FNACM$(3),150,I,3/20,56) 'CURVE 8, 150 Mn., 3/20 MILE LONG
1690
LEI Y=FNACM$Cll,200,2,71l0,72) 'STRAIGHT H, 20e IIAX., 7/10 ~ILE LONG
1700
IF V=H THEN 1740
1710
LET Y=FNAC·START-FINIS~ CCURVE 9)",150,1.3/20,127)
1720
REM
NAIIE OF TRACK
,MAX,.,LEN ,ASC
1730
REM
START-FINISn, 150 MAX •• 3/20 MILE LONG
1740 !,EXT V
1750 IF Gl=l THEN 2040
'ALL ~HD?
1760 PRINT O$C 10 );"DO YOU MEAN THAT EVERYONE ISN'T DEAD? WELL. HERE ARE" 'NO, SO PRINT OUT RESULTS OF RACE
1770 ?RINr"THE RESULTS STRAIGHT FROM THE CHECKERED FLAG:
1780 LEr .=lE+37
1790 IF 09=0 THEN 1820
1300 LET :;5=09
1810 GeTO 1830
1820 ~E1 :;5= 3
1230 FOR Z=O TO G5
1340
IF 09>0 THEN 1880
1850
IF Z=O THEN 1880
IdSO
PRI~T .$CZ);
1870
GOTO 1890
1880
PRI~T"GUY n";F2*CZ+ll+Z;
1990
IF DCZ)=D THEN 1950
BOO
PRINT" IS LOOKI~' AT THE~ PE~RLY GUES."
BID
IF 09=6 TnE~ 1990
1920
PHNT GSCZl;"TELL ST. LUCIFER NOT TO EXPECT ME. O.X.?"
193D
PRINT 3$CI0);
1940
GOTO 1390
1950
PRINT"TOOK";TCZ);"SECONDS. WHICH AVERAGES OUT TO";3600*5.3*H/!CZ);"MPH" 'T ARRAY IS
1960
IF TCZ ». THEN 1990
1370
LET .=T CZ)
'NEW LEAD ING TIME AND DRIVER
1980
LET N=F2*CZ+l)+Z
1990 HX! Z
2UOO IF 03>0 THEN 2020
2010 IF N>F2 THEN 2040
2020 PRINI OSCCN-F2)/CF2+11);"NICE RRCE, ~R";N
2030 PRINT 0$ ClO);"AND THAT MEANS THAT GtY n";N;"YiINS!!!"
2040 PRINr O$CO);"ANOTHER R~CE";CHR$C&3*SGN(09) );0$;
2050 ~AT INFUT AS
2063 LEr A$- A$C NUM)
2070 GOSUB 2190
2J80 IF AI="NO" THEN 2290
2090 IF ASo"YES" THEN 2040
2100 FOR ZoO TO lU
'RESET FOR NEXT GAME
2110
LoT TC Z)=DCZ)=O
2120 ~Exr Z
2130 PR!};T OS (10 );"NEA SET-UP. NO RAIN, NO DEBRIS";
214J IF Gl=O TriES 2160
'IF EVERYSODY'S DUD, BE NASTY.
2150 PRINT ", ANt CPLEASE!) BETTER DElVERS."
2150 PRINr
2170 LET Gl=F5=0
'UNKILL EVERYBODY AND UNeIL THE TRACK
2180 :;lTO 1110
2190 FOR X=1 TO K9
'FOREIGN LANGUAGE H~NDLE~
2200
IF A$=F$CX) THEN 2230
2210 NEXT X
2223 GO TO 2280
2230 PRINT J$CO);R$CCX-1l/2+!)
2240 IF X=INTCX/2)*2 THE~ 2270
2250 LeT 1\$=nNO"
2260 GOTe 2280
227J LET ~$="YES"
2260 ~ETliRN
2290 STOP

TI~E

ARRAY

CONTROL FUNCTION
2300

1 _ _ _ _ .... _ _ _ _ _ _ _ _ _

'KIND tUCK, MAX. SPEED, ADHESION FUDGE FACTOR, LENGTH
2310 DEF FNACA$,R,B,C,D)
'ASCCLETTER FOLLOWING KIND OF TRACK)
2320
2330 IF G1=1 THEN 4250
'ALL DEPot?
'GET SOME ~AZARDS CIE RAIN, OIL)
2340 Gosua 2800
2350 GOSUB 3220
'GET EVERYONE'S SPEEr
2360 Fn G=O TO 09
'CHECK FOR SHE SPEEDS
2370
IF DCG )=1 T~EN 2780
If CB+ACG)+E)kSCG)/B<=R.·Cl+RNDk.ll THEN 2500
2380
PRINT O$CG);X$
'PRINT DEAD MESSAGE
2390
LET F5=F5+1
'INCRE~ENT OIL CJUNTER
2400
2410
LET ECF5)=D
'AND THE 635 SAIO "LET THERE BE OIL." AND THERE IT WAS.
2420
FOR ZoO TO 09
'AND THE TRACK ABOUNDED WITH OIL. AND THE 635 SAID "BOY, WHAT
24B
IF Z=G THEN 2450
'A MAN TRAP!"
2440
PRINT O$CZ);"GUY #";F2*CG+ll+G;"JUST WIPED REAL GOOD C'N DEAD!)" 'IN THE MEANTIME, IT HAS BEEN BUSY NOTIFYING PEOPLE
2450
NEXT Z
'OF THEIR COMRADE'S DEMISE.
LET DCG)=1
'OFFICIALLY PRONOUNCE DEAD. D IS'FOR DEATH
2460
2470
LET Q=Q+1
'INCRE'ENT DEAD COUNTER
2480
IF 0=09 THEN 4230
'EVE.RYBODY DEAD?
2430
GOTO 2780
LET Y4=TCG)
2500
'RATS. HE DlDN'T WIPE
2510 IF CB+ACG)+E)'SCG)/B<=R THEN 2530
2520 PRINT O$CG);"NEARLY HAD TO SAY GOOD BYE." 'ALMOST WIPED
LET TC C)=TCG)+CIC SCG)/3600)+LC G) 'UPDATE HIS TIME
2530
2510
IF 09>0 THEN 2660
'SEE IF, HEAVEN FORBID, HE PASSED SOMEBODY
2550
FOR X4=1 TO 3
2550
IF DC X4) =1 THEN 2650
LET Z4=TC X4)-C C/cSCX4 )/3600»
2570
2580
LET ZI=Y4-Z4
2590
LET Z2=TCG)-TCX4)
IF SGNCZ21<>-SGNCZl) THEN 2650
.2600
IF SGNCZ2)=1 THEN 2640
2610
PRIN! "YOU JUST PISSED ";Q$(X4)
2520
GOTO 2650
2E30
2640
PRINT Q$CX4);" JUST PASSED YOU".
2550
~EXT X4
FOR X4=G+l TO 09
2660
IF DCX4)=1 THEN 2770
2670
IF SCX4)=0 THEN 2770
2680
IF SGNCY4-TCX4»=SGNCICG)-CTCX4)+CICSCX4)/3600») THEN 2770
2690
IF SGNCTCC)-CT(X4)+C/CSCX4)/3600»)<>-1 THEN 2740
2700
PRINT 0$CX4);"GUY";F2 k CG+ll+G:"JUST PUSED YOl."
2710
PRIN! 0$ CG I; "YOU nST PASSED GUY"; F2.C X4+11+X4
2720
2730
GOTO 2770
2740
IF SGNCTCG)-CICX4)+crCSCX4)/3600»)=0 THH 2770
2750
PRINT 0$CGI;"OUY";F2 k CX4+11+X4;"JUST PASSED YOU."
2760
PRINT 0$CX4);"YOU JUST PASSED GUY";F2*CG+l)+G
2770
NEXT X4
2780 HXT G
'PROCEED TO THE FATE OF THE NEXT VICTIM
2790 GOTO 4250
'NO MORE VICTI~S. CTHIS TIME!!>
2900 RE:w! ~I\Z.I\RD3
2810 FRI:;T 0$(10);
2320 ~ .• T E=u
'~~KE SURE WE DO~'T 1SE LAST SECTION'S OIkON T6IS SECTION
2830 ~AT L=ZER
'KILL PIT STOPS FRO~ LAST TIME
2840 LET LC 0) =0
2850 IF F5<2 THEN 2900
'IF COURSE WELL GREASED, DISSOLVE GREASE
2850 PRnn "THE RED FLAG HAS BEEN PUT OUT. CARS REMAIN"
2870 PRINT "MOTI CNLESS UNTIL DEBRIS IS CLEARED"
20BO HT E=ZEI
2990 LET F5=0
2900 FOR X=1 TO f5
'SEE IF THOSE PLAYING DESERVE OIL
2910
IF ECX)=D THEN 2940
2920 HH X
2930 GOTO 2970
2940 PRP{IItYIKES! OIL ON THE TRJ!.CK!"
'IF SO, MTIFY SURVIVORS AND OTHERS
2950 LET !:=.2
2960 GOTO 3130
2370 IF Fl=l THEN 3130
'HAVE tiE HAD RAIN?
2380 IF RND>.025+GB THEN 3130
'SEE IF IT SHOULD BE STOPPED OR STARTED
2990 IF ACOk.l THEN 30BO
'IS IT RAINUG?
3000 IF IND>.5 THEN 3130
'STOP IT?
3010 FRINT "GLORY BE, THE RAIN HAS STOPPED! BUT REMEMBER IT IS STILL WET"
3020 LET Fl=l
'RAIN, RAIN, GO AWAY, .ON'T COME BACK ANOTHER DAY
3030 FDR 1=0 ~u
LET ACA)=ACA)-.075
3040
'DELETE "OST OF THE EFFECTS
3aso
LET G8=.025
'~RKE IT LESS LlKELY TO RAIN IN LATER RACES
3060 HX1 A
3]70 GHO 3130

3 aBO PRI;"l "f:AIN!

SLOW tOWh!!"

'HALLELUJAH, MY J.;lUN DANCE WORKED

3090 FOR ~=D TO 09
'~AKE IRHK SLIPilif Y
3100
LET Ac"A)=ACA)+.1
3110
LET 08=.1
3120 NEX! A
3130 IF C<>9/20 rHEN 3210
'PI T STOPS?
3140 IF RND <.125 THEN 3210
3150 PDR ~=Q TO 09
3160
IF RND*SGN(09)<.75 THEN 3200
3170
IF DC X) =1 THEN 3200
31BO
LET LC X )=RND*3+5
3190
PRINT O$CX);"~OU AlE IN THE PITS FOR";LCX);"SECONDS."
3200
'ilE ilUZ HERE CAND LEFT!)
3210 ~gJR~
3220 REr. INPUT
3230 'AT S=ZER
'RESET SPEED ARRkY
3240 IF 03>0 THEN 3270
'PRINT OUT SOMETHING LIKE 'STRAIGHT A'
3250 PRINT A$;" ";CHR$CD);
3260 GJTO 3280
3270 PRINT O$C 10 );A$;" ".;CHR$CD);": ";0$;
3230 LET SCl)=O
'GET EVERYBOOY'S SPEEDS
3290 FOR ~=O TO 09
3300
IF DCA )=0 THEN 3330
3310
PRINT O$CA)
'IF HE'S DEAD, DON'T GIVE HIM A CHANCE TO' INPUT
3320
PRINT 0$;
3330 NEAT A
3340 HI INPUT J
'INPUT SOMEBODY'S SPEED
3350 IF NUM=1 THEN 3390
'SOMEBODY TYPED SOMETHING. SET UP SPEED AND TTY#
3350 LET N=JCll
3370 LET S=JC 2)
3380 GJTO 3ED

3390 LET S=JU I
3400 LET 11=0
3410 IF DIN)=O THEN 3450
'IS THE GUY DEAD?
3420 PRINT' JIS(N);nBUT I THOUGHt: YOU ij,ERE DEAD.· 'RE-INFORII HIli THAT HE IS AN UN-P,ERSON
3430 PRINT 0$;
3410 GJITO J.340
3450 IF SIN)=D THEN' 3480
'HAS THIS GUY ALREADY TOLD US HIS SPEED?
346~ PRINT 0$ IN) ;"WArT l\ SEC.
I ST,I\.L KEED";09-U-Q.;"IIORE. SPEEDS." ~TELL HI~, TO BUZZ OFF
3470 G31103430
3480 LETR=N
3490 IF 5<=200 THEil 36Z0
'DID HE TRY TO EKCEED HIS' !lAX. SPEEr:!
3500 IF 09=0 THEN 3600
3510 IF 5<1000 THEN 3600
3520 LET R4=IS-I000-F2)11 F2+11
'IT'S OK. HE ONLY WANTS TO DRAFT
3530 IF R4=INTCR4) THEil '3560
'NOW SEE IF HE PICKE] A LEGAL CAR
3540 PRINT O$CNl;"ILLEGAL CAR"
'HE DIDN'T
3550 GOTO 3640
3560 IF R4>J9 THEN 3540
3570 IF tCR4l>0 THEN 3540
3530 IF nBSCTCNl-TCR4l-.5)'=>.5 THEN 3540
3590 GJ:TO noo
'HE DID!!!
3600 PRINT O$CIIl ;"MAYBE A LITTLE HARD ON THE PEDDLE? BE REAlISTIC •• 'OPII!lI:ST
3511 GJTO 3640
3620 IF 5>0 THEN 3660
3630 GOSUB 3990
'HE WANTS TO SEE HOI HE'S DOING. POOR GUY
3640 PRINT "HOW FAST";CHR$C63*SGN(09)};0$;
3550 Goro 3340
366) IF 5=>20 THEN 3690
• WHERE DOES HE THINK H,E IS? THE LOf';:-I,S~D,
36711 PRINT 0$ CNl ;"1 DaUB!. YOU WRIIT TO GO THAT SLOWLY"
3'6RO ~1Tn 3640
3&90 LET 5CII)=S
3700 LET U=1J+1
3711 IF R4=O THE~ 3740
3720 LET ),(Nl=R4
'IF HE'S DRAF!ING, TELL ~E TO
3730 L[T H=C
'ARE WE rONE?
3740 If t<09-Q THEN 3430
I YES!
3750 LET U=O
'SET SPEEDS FOR AU'fO-PILCTS
3760 IF C9>O THEN 3890
3770 FlR FO=l TO 3
,
3780
If DCFOl=l THEN 3870
3790
LET S =R'B/C B+.1>E+G8 1 +C RNl)*3+QC F,O II
330U
IF CB+.l+GB'tEI*S/B<=R THEN 3850
3810
LET DCFOl=l
'3820
PRINT O$ClO);Q$CFJ);" JUST .IPED" 'nND INFOR~ us IF THEY oIP£',
3830
LET F5=F5+l
3HO
LET ECF5)=D
3850
LET TCFOl=TCFOl+CICS13600l
3%0
LET SCFOl=S
3070 NEXT FO
33HJ ,JTO J9liO
'NOW HANILE DRAFT.ERS
389r FOF X2=O TO 09
330)
IF ,DCX?)=l THEN 39,.70
3910
IF SCX21<>0 THEN 3970
3920
IF S(,HIX2.ll<>0 THEN '3950
3930
LET Hn2l=HCHIX211
3'HO

Go'ra 3920

3950
LET SCX2l=SCHCX21l
'SET HIS SPEED TO ,HIS DRAFTEES, AND
3960
LET TCX2l=CTCX21+rCHIX21ll/2 'HALVE THE DISTANCE BETWEEN THEM
3570 NEXT X2
3980 RETURN
'NOW GO COUNT SURVIVORS AND INCREIIENX TIME'S
3990 REM PLACING
(00) PRINT O$lAl
'TELL ME HOW I'll DOnG
4DIO IF 09=0 THEN, 4040
4020 1.ET ,5=09 '
4030 GOTO 4050
401l LET ;:5=3
4050 FOR '0=0 TO G5
4060
IF G=A THEN 4200
IF 09>0 THEil 4100
4070
'I All RACING, AGAINST AUTO-PILOTS
4080
PRINT Q$(GJ;" IS";
4090
GOTO 4110
4100
PRINT "GUYH";F2*'CG+ll'+G;"IS"; 'I All RACING AGAINST FRIEIIDS!?l
4110
IF DCG.l<>l THEN 4140
4120
PRINT" OUT OF THE RACE.·
'IF COMPETITOR HAS MET HIS MAKER, S~y SO
4130
GOTO 4200
4140
ON SGNCICA)-tCGll+2 GOTO 4150,4170,4190 'BUSINESS ,PART
USO
PRINT r !Gl·TC A)';"SECONDS BEHIND YOU· 'COOD NEWS
4160
GOTO 4200
4170
PRINT" RIGHT BESIDE YOU."
SO SO

~~i~T 4~~~HC

Gl ;"SECONDS AHEAD OF you." 'BAli NEWS
4200 NEXT G
4210 PRINX"
YOU'VE TAKEN";TlAl;"SECONDS." 'MORE BAD NEWS
4220 RETURN
'AND AN AIITI-CL-IMACTIC ElIDING. CSTOUN FROM SPIEL*** AND SPACEWARl'
4230 PRINT 0$(10 );"GUYH";F2*CG+ll+G;", THE LAST OF THE GREAT RACERS, JUST WIPED."
4HO LET Gl=:1
'ALL HueANS ARE DUD, SO GRIND THIS MAIIGLE TO A HALT, AND SET A FLAG TO THAT EFFECT
4250 FNEND
',AND RETURN, FROII WHENCE liE CA"E
425'0 END
REAU

I·
I

CHANGE

COMPUTER IMITATES CASHIER

Description
In this program, the computer pretends it is the cashier at
your friendly neighborhood candy store. You tell it the cost
of the item(s) you are buying, the amount of your payment, and
it will automatically (!) determine your correct change. Aren't
machines wonderful?
Program Author
Dennis Lunder
People's Computer Co.
Menlo Park, CA 94025
2 PRINT "I, YOUR FRIENDLY EQUS'STEM cOMPuIER, WILL DETERMINE"
3 PRINT "T~E CORRECT t~ANGE FOR tTEMS COSTING UP TO 1180,"
• PRINT\PHINT
I. PRINT "COST OF ITEH"'\INPUT 'A\PRINT ·AMOUNT OF PA'"ENT"'\INPUT P
21 COp-A\Moe\IF cc.e TMEN ee \PRINT "CORRECT AMOUNT,TMANk yOU'
31 GO TO 1111
91 IF c-e THEN 121 \PRINT "SORR',yOU HAVE S~DRT e~ANGED ME S"'A-'
lea GO TO 10
128 PRINT ·YOUR CMANGE,S·,t\D.INTCC/I,)\IF Doe THEN t55
15e PRINT O,"TEN DOLLAR BILLeS)"
155 COM-CP.18)\EOINTCC/5)\IF Eo~ THEN 185
lee PRINT E,"FIVE DOLLAR SILLCS)"
185 COH-CO.IIII.E.5)\FotNTCC)\IF Foe T~EN 215
211 PRINT F'"ONE DOLLAR BILLCS)"
215 COH-(O.IS+E.e.F)\Coe.lea\NoC\GoINTCC/SI)\IF Go, THEN 255
2S8 PRINT G"ONE-~ALF DOLLAR(S)"
255 C.N_CG.'8)\H o XNTCC/251\IF H'~ THEN 285
2.8 PRINT H";UARTERCS)"
285 CON -CG.5a.H.25)\loINTCC/I.I\IF 10' THEN 315
318 PRINT I)"OIME(S)"
315 CON-(G.oe.~.25.I.18)\JoIN,(C/5)\IF JW' TWEN 3~5
348 PRINT J'"Nlt~EL(S)"
345 eoN-(G.e,.H.25+I.le+J.e)\KoINT(C.,5)\IF Ko' T~E~ 380
378 PRI~T K,"PEHNY(S)"
388 PRINT "TWANK VOU,COM~ AGAIN"\PRINT \PRINT \GO TO 10
9Vg END

I, YOVR FRIENDLY EDUSYSTEM COMPUTER, WILL DETERMINE
THE CORRECT CHANGE FOR ITEMS COST I NG UP TO $100.
COST OF ITEM? 4.59
AMOUNT OF PAYMENT? 10
YOUR CHANGE,S 3.41
.
1 FIVE DOLLAR BILL(S)
1 QUARTER(S)
1 DII'IE(S)

1 NICKEL<S)
1 PENNY(S)
THANK YQV,COME AGAIN
COST OF ITEM? 0.17
AMOUNT OF PAYMENT? S. 00
YOUR CHANGE., 4.83
4 ONE DOLLAR BILL($)
1 ONE~HALF POLLAR(S>
1 QUARTER ('$ >
1 NICKEL<S)
J PENNY(S)
.THANK YOU,COME AGAIN
COST OF ITEM? 18.88
AMOUNT OF PAYMENT? 29
YOUR CHANGE, $ 1.12
lONE DOLLAR' BILL(S)
1 011'1£($)

2 PENNY(S)
THANK YOU,COME AGAIN

CHECKR

CHECKERS

Description
This program plays checkers. The pieces of the computer are
marked with an "X ", yours are marked II 0 II • A move is made by
specifying the coordinates of the piece to be moved (X,Y).
Home (1,1) is in the bottom left and X specifies distance to
the right of home (i.e., column) and Y specifies distance
above home (i.e., row). You then specify where you wish to
move to.
Limitations
Unfortunately, the computer program is not smart enough to
recognize (or permit!) a double or triple jump. If you try
one, it is likely that your piece will disappear altogether.
Program Author
Alan J. Segal
151 Shrubhollow Road
Roslyn, NY 11576

1967 by Creative Publications

PROGRAM LISTING
100 PRINT"
THIS PROGRAM WILL PLAY CHECKERS. THE CmMPUTER IS X.~
aoo PRINT"AND YOU ARE O. THE CIDIPUTER WILL GO, FIRST.-NaTE' SQUARES"
300 PRINTMARE IN THE FIiJRM-IX.Y) AND SQ. 1.1 IS THE BOTTOM LE"IH'
400 PRINTHDO NOT ATTEMPT A DOUBLE JUMP IiJR YOUR PI £eE MI GHT JUST'"
SOO PRINTNDISAPPEARISAME FIlR A TRIPLEI 1M
'
600 PRINT"
WAIT FBR THE COMPo Til MOVEI I I I I"
100 LET G--I
800 DIM RISOI
900 LET L--I
1000 DIM 5110.10)
1100 DATA 1.. 0 ..... 0 .. 0.0 .. -1 .. 0.0.1,0.0".0. -1.0.-1.15
laoo FIR X-ITI8
130e FIR Y-ITlJ8
1400 READ J
1500 IF J-15 THEN 1800
1600 LET SIX.Y)-J
1100 Gftll 2000
1800 RESTIiJRE
1900 READ SIX.y)
2000 NEXT Y
2100 NEXT X
e200'REM
2300LETL--I*L
2400 FIR X-ITII8
2500 FIiJR Y-ITIl8
2600 IF SIX.YI-O THEN 3500
8700 IF G~O THEN 3000
8800 IF SIX.YI~O THEN 3500
2900 GOTI! 3100
3000 IF SIX.YlcO THEN 3500
3100 IF ABSISIx.Y»e~1 THEN 3300
3200 GIISUB "300
3300 IF ABSISIx.y))e~2 THEN 3500
31100 GISUB 6500
35001FXe~8 THEN 3800
36001FL-1 THEN 3800
3700RETURN
3800NEXT Y
3900NEXT X
4000PRINT
4100GIISUBII400
4200' Gftlll 2300
4300 FIR A--ITDI STEP 2
41100 LET U-X+A
4500 LET V-Y+G
4600 I I" ile I THEN 6300
4700 IF U~8 THEN 6300
4800 IF Vel THEN 6300
4900 IF V~8 THEN 6300
5000 IF SIU.Vle~O THEN 5300
5100 GIISUB 9100
5200 Gftl 6300
5300 IF SIU.VI-G THEN 6300
5400 IF SCU.VI-2*G THEN 6300
5500 LET U-U+A
5600 LET, V-V+G
5700 IF Uel THEN 6300
5800 IF U~8 THEN 6300
5900 IF Vel THEN 6300
6000 I I" V~8 'THEN 6300
6100 IF SIU.Vle~O THEN 6300
6200 GIISUB 9100
6300 NEXT A
6400 RETURN
6500 REM KI NG MIIVES
6600 FOR A--ITOI STEP 2
6700 FIiJR B--ITOI STEP 2
6800 LET U-X+A
6900 LET V-Y+B
1000, IF Uel THEN 8100
1100 IF U~8 THEN 8100
1200 IF Vel THEN 8100
1300 IF V~8 THEN8700
7400 IF SIU.VI'~O THEN 7700
7500 GISUB 9100
7600 Gftll 8700
1700 IF SIU.V).o THEN 8700
7800 IF SIU.VI.2*G T"EN 8700
7900 LET U-\J+A
' ,
8000 LETV-V+B
8100 IF UCI':tIf~N,.lj'700
8200 IF U~8 THEN 8?OO'
8300 I I" V-f'THEN, 8700
8400 I, F",V~8 'THEN 8 700
8500 11"SIU.V).~O THEN 8700
8600 GIISIiB 9100
8700 NEXT B
8800 NEXT A
8900 RETURN
9000 GITII 14200
9100 REM
9200 LET p.p+ I ,
9300 IF P-X THEN 12300
9110011" Vc>14.5+13.,5*GII THEN 9600,
,9500' LET 0-0+2
'
9600 IF X'~14.5-13.5*GII THEN 9800 '
9700LET g-g-2
960,0 REM
990011" U' •• THEN 10100
100000'LET g-Q+I
10100 IF U'~8 THEN 10300
10200 LET g-II+I
10300 FIR C--ITII STEP 2
10400 IF SIU+C.V+Glcl THEN .10800
10500 LET g-g-I
10600 IF S<U-C.V-GI'~O THEN 10800
10700 LET g-II-1
10800 REM THIS WAS THE EVALUATIIN SECTIIN
10900 REM
11000 NEXT C

11-100, LET RIP)-Q,'
'11200,LETQ-0
'
11300 RETURN
114110 IF P-O"THEN 18800
11500 FIR J-IOT'I-I0 STEP -I
11600 FIiJR F-ITDP
11700 IF RIFI-J THEN 12000
11800 NEXT I"
11900 NEXT J
12000 LET K-F+P
12100 OIlSUB 2300
I e200 RETURN
12300 PRINT" I MtllVE FROM ("XIY") Tm ("UJ\I")U
12400 LET F-O
12500 LET P-O
I e 600 LET K-O
12700 IFV'~14.5+(3.5*0» THEN 13000
12800 LET SCU.Vh2*G
12900 GOTI 13100'
13000 LET seu.V)-SIX.Y)
13100 LET SIX.y)-O
13200 IF ABS(X-U)e~2 THEN 13400
13300 LET SIIX+U)/2.IY+VI/II-0
13400 PRINT"BIARD"J
13500 INPUT DS
13600 IF DSe~"YES" THENI3900
13700 GISUB 14100
13800 RETURN
13900 GflSUB 15800
14000 RETURN
14100 PRINT
14100 FOR Y-8TOI STEP'-I
14300 FIR X-ITOII
14400' LET 1-2*X
14500 IF Slx.Y)e~o THEN 14700
14600 PRINT TABI II"." J
14700 IF SIX.y)e~1 THEN 14900
14800 PRINT TABI I 1"0"1
14900 IF SIX.YI'~-I THEN 15100
15000 PRINT TABe I )"X" J
15100 IF SIX.Y)e~-2 THEN 15300
15200 PRINT TABU )"X-'JTABCI )".";
15300 IF seX,Y)'~2 THEN 15500
151100 PRINT TABCI)"."JTAB«()"*"J

15500 NEXT X
15600 PRINT
15700 NEXT Y
15800 PRINT
15900 PRINT"FRIM"J
16000 INPUT E.H
I 6100 LET X-E
I 6200 LET Y-H
16300 IF SIX.y)e~o THEN 16700
16400 PRINT "THERE IS NI ONE IICCUPING THAT SPACE"
16500 PRINT
16600 GITO 15900
16700 PRINT"TO"J
16800 INPUT A.B
I 6900 LET X-A
17000 LET Y-B
17100 IF SIX.YI-O THEN 17500
11200' PRINT"THAT SPACE IS ALREADY ICCUPIED"
17300 PRINT
17400 GITII 16700
17500 LET SIASB)-SIE.H)
17600 LET S(A.S).S(E.H')
11700 LET seE.H)-O
17800 LET T-14.5-13.5*01 I
17900 IF ABSIE-A)c~2 THEN 18100
18000 LET SIIE+A)/2.IH+B)/2)-0
18100 IF Bc.T THEN 18300
18200 LET $<A.B).-2*G

18300 FIR X-8T118
18400 FIIR Y-8T1I8
18500 RETURN
18600 NEXT Y
18700 NEXT X
18800 PRINT'"
VERY GIIOD.
18900 PRINT'
19000 PRINT
19100 PRINT"
19200 END

YOU, \lIN'"
-CHUCK IUT"

SAMPLE RUN
THISPRDGRAM VII.I: PLAY CHECKERS, THE CIlMPUTER IS X.
AND YOU ARE O. THE COMPUTER VILL GO FIRST.-NOTE. SQUARES
ARE IN THE FORM·(X.,YI AND SQ, 1.1 IS THE BOTTCII LEFTI
DO NDT ATTEMPT A DOUBLE JUMP OR YOUR PIECE MIGHT JUST
DISAPPEAR(SAME FOR A TRIPLEII
WAIT FOR THE COMP, ,TO MOVE I I ! "
I MDIIE FROM I 2
BOARD 1YES

6ITO(1

~c.;J:~.5

FRDM 11.7'
TO 12.8 .
I MOVE FROM,' 4
BOARD fYES .

,0*,

• X "

•

• X

, X ,

.. •

X , X
• X • X • X

X • X • X

• X • X • X

o • 0 0 0
o 0 O. 0'
0

1 I TO ( 2

I MOVE FROM (
BOARD fYES

6 I

e" •

•

6 I TO ( 5

X'. X
X
~

.11

• X

• 0.0.0.
0.0.0,0

o • 0 • 0

8 ) TO (

• X

X. X • X

.0. 0

• •. 0

5 I TO ( 2

I MDIIE FROM
BOARD 1YES

• X

0*. 0

• 0 • 0

O. 0

o' 0 • 0 • 0 •

FROM 11.3
TO 18.4

I MDIIE FROM I 5
BOiIRD 1YES'

• X ,X

6 I TO ( I

5 I

• X • X • X

• X

.0.
D • 0

X • X

D ,0

o
0

• X

X
X

• X

7 I TO (' 3

•

5 I

8 I TO, ( 5

1 I

D•• X

AFFFFFSY2D 0 • • • 0 • 0
o• 0 • 0 • 0 •
FROM 13.7
TO 12.8
I MOVE FROM ( 2
BOARD 1YES

7.1 TO (

I MOVE FRDM ( .,
BOARD 1YES

X • X
X

o ,0

• X

6 I TO ( 8

4 I

ODD

X ,

0
0

I MDIIE FROM ( 8
BOARD 1YES

0*. X

o , . O. D
o • 0 • 0 • D •

6 I TO ( 3

• X
X
'0
X
X

0*. X

DO. 0 •

6 I

.:,.,,1;~~:~:·~~:({j·;·b<~~:~
.:
'.. ""'
" ,. .~.

"' ..'

,.','.";

.. , ..•. FRoM '1612'
TO'18 ••
VERY GOOD.

YOU WINI

D
0

FROM 111.6
TO 11.7
1 I TO

...

,~, .~"-

;.-X:;' , ' , X

I MOVE FROM ( 2
BOiIRD 1YES
X

.'': ~~

X •

.. • , '. . ' ..,··X
':: • • 1),.
.. ','

I MOVE FROM (3
BOARD 1NO

• X

FROM 15.1
TO 14.2

, X

X ,0
• 0

o
0

3 I

• X

4 I TO ( 7

O. 0 •

FRDM 12.2
TO 1,... 4

FIlOM ,14.4
TO 15.5

X. X

3 I

o,
o • 0

• X

I TO ( 5

o • 0
o • 0 •

X • X

o ' 0 • (' • 0 "

• • X • X

3 I

X • X.

FROM 14.4
TO 12.6

4 ) TO ( 3

6 I

( MDIIE FROM (6
BOARD 1YES

I MOVE FRDM ( 4
BOARD 1YE5

• • 0

• X

O.
D

5 I

FROM 11.5
. TO 13.7

• X

X • 0

6 I TO ( 7

o 0
o • 0 •

o• 0• D

X. X

X • X

o ,0

l\;

FROM 18.4
TD 11.5

I MOVE FROM (
BOARD 1YES
•

D••

FROM 18.5
THERE IS NO ONE OCCUPING tHAT SPACE

FRDM 13.5
TO 12.6

X •

• • X
X • X

0 •• X

• X

I MDIIE FROM
BOARD 1YES

• X

'. X

X • X

O.
• 0
0,
0,0.00
o • 0
0
O.

0"
;

X •

• X

X. X

5 I TO ( 2

4 I

• • X • X • X
X • X • X • X •

(]. 0 •

I MDIIE FROM
BOARD 1YES

I MDIIE, FROM ( 6
BOARD 1YES

• X

I MOVE FROM
BOAIlD 1YES

o ,
o ~ 0

TO 13.5

FROM 15.3
TO .?~h4

X
•

FROM 12.4
TO 11.5
THAT SPACE IS Ai.READY OCCUPIED

1ITO(iI

FROM 15.2'U
5.2
THERE IS NO DNE OC"CUPING THAT SPACE

o 0 0 0
o • 0' 0 0

X • X

2R1MtIV.

,D.

• 0 •

D•• 0

• X •

D•• X

o • 0

• X

, X • X
X • X

, • • X • X X
X • X • X X.
X •

• X

1 I

4 I

FROM 13.3"
TO 11.5

I MOVEFRDM(5
BOARD 1YES

FROM 73 .... ',,\3
TO 14.4
I MOVE FROM ( 2
BOARD 1YES

FROM 14.6
TO 16.4

0*.,

5 I TO ( 2

X ,

• 0 • 0 • 0
0
0.0.0.0.

o•

0, 0 •

I MDIIE FROM (
BOARD 1YES

5 I

• X

• •' ; 0 •

X.X.X

o• 0

0..

• X •

• X • X • X •

0 •• X

o•

X • X • X

• X • X ,.X • X

FIlOM 13.1
TO 14.8

I MOVE FROM ( 6
BOARD 1YES

FROM 11.3
TO 12.4

••

~'. I

FROM ,12.8
TO 14.6

O. 0 •

,0
0
0
0
0.0,0
0

, X

7';7, I TO { 6"

I MDIIE FROM
'BOARD :,.1YES

8') TO ( 3

0 • D
o. 0

-CHUCK OUT

CHEMST

DILUTE KRYPTOCYANIC ACID

Description
The fictitious chemical, kryptocyanic acid, can only be diluted
by the ratio of 7 parts water to 3 parts acid. Any other ratio
causes an unstable compound which soon explodes. Given an
amount of acid, yo~ must determine how much water to add for
dilution.
If you're more than 5% off, you lose one of your
nine lives. The program continues to play until you lose all
nine lives or until it is interrupted.
Program Author
Wayne Teeter
312 Peg Street
Ridgecrest, CA

93555

LIST
10 PRINT "THE nCTICIOUS CHEMICAL KRYPTOCYANIC ACID CAN ONLY BE"
20 PRINT "DILUTED BY THE RATIO Of 7 PARTS WATER TO 3 PARTS ACIE."
30 PRINT "If ANY OTHER RATIO IS ATTEMPTED. THE ACID BECOMES UNSTABLE"
40 PRINT "AND SOON EXPLODES.
GIVEN THE AMOUNT 0. ACID. YOU MUST"
50 PRINT "DECIDE HOIri MUCH .ATER TO ADD fOR DILUTION.
I. YOU MISS"
60 PRINT "YOU I'ACE THE CONSEQUENCES."
100 LET A=INT(RND(I)*50)
110 LET W=7*A/3
120 PRINT A"LlTERS Of KRYPTOCYANIC ACID. HOW MUCH WATER"J
130 INPUT R
140 LET D=ABS(~'R)
150 1. 0>1</20 THEN 200
160 PRINT "GOOD .lOBI YOU MAY BREATHE NO ... BUT DON'T INHALE THE I'UMESI"
170 PRINT
180 GO TO 100
200 PRINT "SIZZLE I YOU HAVE JUST BEEN DESALINATED INTO A BLOB"
210 PRINT "Of QUIVERING PROTOPLASMI"
220 LET T=T+I
230 I. T=9 THEN 260
240 PRINT "HOWEVER. YOU MAY TRY AllAIN .. ITH ANOTHER LII'E."
245 PRINT
250 GO TO 100
260 PRINT "YOUR 9 LIVES ARE USED. BUT YOU ~ILL BE LONG REMEMBERED FOR"
270 PRINT "YOUR CONTRIBUliONS TO THE Yl ELD OF COMIC BOOK CHEMISTRY."
280 END

RUN
THE nCliCIOUS CHEMICAL KRYPTOCYANIC ACID CAN ONLY BE
DILUTED BY THE RATIO OF 7 PARTS WATER TO 3 PARIS ACID.
1. ANY OTHER RATIO IS ATTEMPTED. IHE ACID BECOMES UNSTABLE
AND SOON' EXPLODES.
bi "EN THE AMOUNT 0. ACI D. YOU MUST
DECIDE HO~ MUCH hATER TO ADD FOR DILUTION.
If YOU MISS
YOU fACE THE CONSEQUENCES.
19 LITEkS Of KRYPTOCYANIC /lCIO. HO .... MUCH kATER?'"
SIZZLEI YOU HAVE JUST BEEN DESALINATED INTO A BLOB
Of QUIVERING PROTOPLASM I
HOWEVER. YOU MAY TRY AGAIN WITH ANOTHER LI fEe
42 LITERS Of KRYPTOCYANIC ACID. HOW MUCH WATER??7
SIZZLE! YOU HAVE JUST BEEN DESALINATED INTO A BLOB
Of QUIVERING PROTOPLASMI
HOWEVER. YOU MAY TRY AGAIN .ITH ANOTHER LII'E.
28 LITERS Of KRYPTOCYANIC ACID. HOW MUCH IoiATER?72
SIZZLE! YOU HAVE JUST BEEN DESALINATED INTO A BLOB
Of QUIVERING PROTOPLASM!
HOWEVER. YOU MAY TRY AGAIN WITH ANOTHER LII'E.
42 LITERS Of KRYPTOCYANIC ACID. HOW MUCH WATER?98
GOOD JOB! YOU MAY BREATHE NO,"" BUT CON'T INHALE THE fUMESI
49 LITERS 0. KRYPTOCYANIC ACID. HOW MUCH WATER?112
GOOD JOB! YOU MAY BREATHE NOW. BUT DON'T INHALE THE fUMES!
12 LITERS 0. KRYPTOCYANIC ACID. HOW MUCH WATER?28
GOOD .lOBI YOU MAY BREATHE NOW. BUT DON'T INHALE THE I'UMES!
30 LITERS Of KRYPTOCYANIC ACID. HO .. MUCH WATER?75
SIZZLE! YOU HAVE JUST BEEN DESALINATED INTO A BLOB
Of QUIVERING PROTOPLASM I
HOWEVER. YOU MAY TRY AGAIN wI TH ANOTHER LI f~.

CHIEF

ARITHMETIC PRACTICE

Description
In the words of the program author, John Graham,
"CHIEF is designed to give people (mostly kids) practice in the
four operations (addition, multiplication, subtraction, and
division) •
It does this while giving people some fun. And then, if the
people are wrong, it shows them how they should have done it.
It is mostly a game, but can be used by teachers to test the
kids ...
Program Author
John Graham
Friendly Road
Upper Brookville, NY

11771

10 PRINT" I AM CHIEF NUME:E.:S H:EEK, THE G.:EAT INDIAN MATH GOD. "
20 PRINT "ARE YOU READY TO TAKE THE TEST YOU CALLED ME OUT FOR",
30 INPUT A$
40 IF AS= "YES" THEN 61
50 PRINT "SHUT UP PALEFACE WITH WISE TDUNGE. "
60 PRINT " TAKE A NUMBER AND ADD ~ DIVIDE THIS NUMBER BY 5 AND"
l0 PRINT "MULTIPLY BY 8. DIVIDE BY 5 AND ADD THE SAME. SUBTRACT 1.
80 PRINT "WHAT DO YOU HAVE",
85 PRINT
90 INPUT B
100 LET C = eB+1-5).5/8.5-]
119 PRINT "I BET YOUR NUMBER WAS" C" WAS I RIGH~',
120 INPUT D$
130 IF D$="YE5" THEN 51.
149 PRINT "WHAT WAS YOUR ORIGINAL NUMBER",
150 INPUT K
155 LET F=K+l
160 LET G=F/5
170 LET H=G*S
180 LET I=H/S+S
190 LET J=I-l
200 PRINT "50 YOU THINK YOU'RE 50 SMART, EH?"
210 PRINT "NOW WATCH.
230 PRINT K"PLUS ] EQUALS "F". THIS DI~'IDED B\' 5 EQUALS"G','
249 PRINT "THIS TIMES a·EQUALS"H". IF W~ DIVIDE BY 5 AND ADD THE SAME,'
259 PRINT "WE GET"I". MINUS 1 EQUALS"J".
269 PRINT "NOW DO YOU BELIEVE ME",
270 INPUT 2$
290 IF ZS ="YES" THEN 510
295 PRINT "YOU HAVE MADE ME MAD"!"
l0B PRINT "THERE MUST NOW BE A GREAT LIGHTNING BOLT!'
:110 PRINT\PRINT
330 FOR ~=l0 TO 22 STEP -1
l49 PRINT TABeX) "X X'
l59 NEXT X
360 PRINT TAB(21)"X XXX"
l70 PRINT TAB(20)"X
X·
380 PRINT TAB(19) "XX X"
19B FOR Y=20 TO 13 STEP -1
4BB PRINT TABCY) "X X"
419 NEXT Y
420 PRINT TAB(12) "XX"
430 PRINT TAB(11) "X"
449 PRINT TAB(10) "."
450 PRINT\PRINT " •••••••••••••••••••••••••••••••••• "\PRINT
470 PRINT "I HOPE ... Oll BELlEIiE ME NOW. FOR ... OUR SAKE!!'
489 GO TO 520

I AM CHIEF NUMBERS FREEK. THE GREAT INDIAN MATH GOD.
ARE "'OU READY TO TAKE THE TEST \'OU CALLED ME OUT FOR? NO
SHUT UP PALEFACE WITH WISE TOUNGE.
TAKE A NUMBER AND ADD 3. DIIiIDE THIS NUMBER BV 5 AND
MULTIPLY BY B. DIVIDE BV 5 AND ADD THE SAME. SUBTRACT 1.
WHAT DO YOU HAYE
? 3. 8
I BET ... OUR NUMBER WAS -l. 625 WAS I RIGHT? NO
WHAT WAS YOUR ORIGINAL NUMBER? 12
50 "'OU THINK YOU'RE 50 SMART. EH?
NOW WATCH.
12 PLUS 3 EQUALS 15
THIS DIIiIDED B\' 5 EQUALS 3
THIS TIMES 8 EQUALS 24
IF WE DIIiIDE BV 5 AND ADD THE SAME.
WE GET 9.8
MINUS 1 EQUALS B. B .
NOW DO YOU BELIEVE ME? NO
IIOU HAVE MADE ME MAD!!!
THERE MUST NOW 8E A GREAT LIGHTNING BOLT!

xX
xX

xX
X X

X X
X X
XX
XX
X XXX
X X
XX X
X X

XX
XX
XX
X X

510 PRINT "BYE!!!!! n

XX
X X
XX
XX

520 END

READ ...

••••••••••••••••••••••••••••••••••
I HOPE "'OU BEll EVE ME NOW. FOR \'OUR SAKE!!
READV

CHOMP

, EA~;A BIG COOKIE

Description

This program is an adaptation of a mathematical game originally
presented in Scientific American, Jan., 1973. Up to a 9x9 grid
is set up by you with the'upper left square a pOison square.
This grid is the cookie. Players alternately chomp away at the
cookie from the lower right. To take a chomp, input a row and
column number of one of the squares remaining on the cookie.
All of the squares below and to the right of that square, including that square, disappear.
Any number of· people can play -- the computer is only the
moderator; it is not a player. Two-person strategies are interesting to work out but strategies when three or more people
are playing are a real challenge.
Source
Peter Sessions
People's Computer Company
Menlo Park, CA 94025

PROGRAM LISTING

SAMPLE RUN

109 REM _ •• THE GAME Of CHOMP***
105 REM ._*SUBMITTED BY PEOPLES COMPUTER CENTER.**
119 PRINT
120 PRINT "THIS IS THE GAME Of CHOMP (SCIENTIfIC AMERICAN. JAN 197»'
139 PRINT "WANT THE RULES (1=\'ES. B=NO!)";
146 INPUT R
150 If R=e THEN 340
160 F=1
170 R=5
180 C=7
190 PRINT "CHOMP IS fOR 1 OR MORE PLAYERS (HUMANS ONLY) .•
200 PRINT
210 PRINT "HERE'S HOW A BOARD LOOKS (THIS ONE IS 5 81' 7):
229 GOSU8 540
238 PRINT
249 PRINT "THE BOARD IS A BIG COOKIE - R ROWS HIGH AND C COLUMNS"
258 PRINT "WIDE. YOU INPUT RAND C AT THE START. IN THE UPPER LEFT"
260 PRINT 'CORNER Of THE COOKIE IS A POISON SQUARE (P). THE ONE WHO'
270 PRINT "CHOMPS THE POISON SQUARE LOSES. TO TAKE A"CHOMP. TYPE THE"
288 PRINT "ROW AND COLUMN. Of ONE Of THE SQUARES ON THE COOKIE. '
299 PRINT "ALL OF THE SQUARES BELOW AND TO THE RIGHT OF THAT SQUARE"
309 PRINT "(INCLUDING THAT SGlUARE. TOO) DISAPPEAR -- CHOMP!!"
319 PRINT "NO FAIR CHOMPING SQUARES THAT HAVE ALREADY BEEN CHOMPED.'
329 PRINT "OR THAT ARE OUTSIDE THE ORIGINAL DIMENSIONS OF T.HE COOKIE. '
:n8 PRINT
348 PRINT "HERE WE GO... "
::;59 DIM A(10.1B)

THIS IS THE GAME OF CHOMP (SCIENTIFIC AMERICAN.
~ANT THE RULES (1=YES. S=NO!)? 1
CHOMP IS FOR 1 OR MORE PLAYERS (HUMANS ONLY).

360 F=0
370 FOR 1=1 TO 10
372 fOR J=1 TO 10
375 A(I.J)=8
377 NEXT J
379 NEXT I
388 PRINT
398 PRINT "HOW MANY PLAYERS";
489 INPUT P
418 11=9
428 PRINT "HOW MANY ROWS";
439 INPUT R
449 IF R (= 9 THEN 470
459 PRINT "TOO MANY ROWS. (9 IS MAXIMUM). NOW.
468 GOTO 420
479 PRINT "HOW MANY COLUMNS";
489 INPUT C "
499 IF C (= 9 THEN 530
598 PRINT 'TOO MANY COLUMNS "(50 IS MAXIMUM)' NOW.
510 GOTO 470
530 PRINT
540 fOR 1=1 TO R
550 FOR J=1 TO C
560 A(I.J)=1
570 NEXT J
589 NEXT I
599 A(1.1>=-1
600 REM PRINT THE BOARD
610 PRINT
623 PRINT TAB(7); "1 2 3 4 5 6 7 8 ~'
630 fOR 1=1 TO R
640 PRINT I;TAB(7);
650 FOR J=1 TO C
660 If A(I.J)=-1 THEN 700
673 IF A(I.J);0 THEN 720
680 PRINT ".
698 GOTO 710
700 PRINT "P ";
710 NEXT J
723 PRINT
730 NEXT I
740 PRINT
750 IF f=0 THEN 770
760 RETURN
770 REM GET CHOMPS FOR EflCH PLA\'ER· I N TURN
780 LET 11=11+1
790 LET P1=I1-INT<I1/P)*P
800 If Pi () 0 THEN 820
810 P1=P
823 PRINT "PLAYER ";P1
830 PRINT "COORDINATES Of CHOMP. (ROW. COLUMN) ';
848 INPUT R1. C1
858 If R1(1 THEN 920
869 IF R1)R THEN 923
870 If C1<1 THEN 920
880 If CDC THEN 920
899 If A(R1.C1)=0 THEN 920
999 If A(R1,C1)=-1 THEN1~10

4
5

P ... * * • • ...
... * ... * * ...

". ".

* ,* * . . *
*

". * * ... ...
*
... ... .,. ". .,. * .,.

THE BOARD IS A BIG COOKIE - R ROWS HIGH AND C COLUMNS
WIDE. YOU INPUT RAND C AT THE START. IN THE UPPER LEFT
CORNER Of THE COOKIE IS A POISON SQUARE (P). THE ONE WHO
CHOMPS THE POISON SQUARE LOSES. TO TAKE A CHOMP. TYPE THE
ROW AND COLUMN OF ONE Of THE SQUARES ON THE COOKIE.
ALL OF THE SQUARES BELOW AND TO THE RIGHT OF THAT SGlUARE
(INCLUDING THAT SQUARE. TOO) DISAPPEAR -- CHOMP!!
NO fAIR CHOMPING SQUARES THAT HAVE ALREADY BEEN CHOMPED.
OR THAT ARE OUTSIDE THE ORIGINAL DIMENSIONS OF THE COOKIE.
HERE WE GO ...
HOW MANY PLAYERS? 2
HOW MANY ROWS? 4
HOW MANY COLUMNS? 7

1 2 3 4 5 6 7 8 9
P * ......

* "" .,. * ...
* ... *_If<'" * ...

* * ... * * ... ...

PLAYER 1
COORDINATES OF CHOMP (ROW. COLUMN)? 4.6

1 2 3 4 5 6 7 89

1
2
3
4

P ... * ... ... ... *

*... *... ...". ...* ...* ...... ...*
... ... ... ... ...

PLAYER 2
COORDINATES OF CHOMP (ROW. COLUMN)? 3.3
1
2
3
4

1 2 1 4 5 6 7 8 9
P ..

...

... ... ". ". *
...

...

PLAYER 1
COORDINATES OF CHOMP (ROW. COLUMN)? 1.4

1
2
3
4

...
....

1 2 3 4 5 6 7 8 51
P

PLR-YER 2"
COOR.DINIlTES" OF.CHOMP (ROW. COLUMN)? 3'11
1
2
3
4

1 2 3 4 5 6 7 8 9
P .. *

' ... *.~-:ii:c

PLAYER 1
"COllRDINATES Of CHOMP (ROW. COLUMN)? 2. :;:

1
2

.. :;:

2 3 4 5 6 7 8 9

p .... *

:PLAYER 2··
C(lORDINA"TES OF CHo.I1P" (j;!OW. COLUMN).?,1;:;:
. 1"2 % 4 5 6 7

GOTO 820
FOR I=R1 TO R
FOR J=G1 TO C
A(I. J)=0
NEXT J
NEXT I

i::eG~~~ 6~~1>

1'"' 2" 3 4 5"6 7 8 51

1
2

;~: ~~i~/~~o FAIR. YOU' RE.1RyING TO CHOMP. ON E~~t\::S:PAC;"!'

938
949
959
960
979
980

HERE'S HOW A BOA·RD Looks. (THIS: ONE IS 5 BY· 7) :

1
2

P ..

'" ...

8,~

3
4
PLAV.ER 1
COORDJNATES OF. .CHOMP . (R"W;COLVIIN)? 2.2

~INE 9.00

OF GAME D.ETtCTEl> I"N
1010 PRINT "YOU LOSE. PJ,A'i'ER "; P1::C·
1920 PRINT
.
1830 PRINT "AGAIN (1=VES; 0=tlO'! )'J"
1840 INPUT R "
.
1850 If R=1 THEN 340
1960 END

1
2
3·

1 2 3 4
P ..

PLAYER. Ii!
. "
""
COORDIN",TES Of CHOMP (~OW. COLUMib·? 1.2

READY

1.2345678 S
.p .

1
4

~~~~~NA~ES OF CHOMP (RO),l. COL(fMNl? 2.1
1 2 1 "4,·5 67 $ 9 .
P

JAN 1973)

PLAYER 2
COORDINATES OF CHOMP (ROW. COLUMN)? 3.1
NO FAIR. YOU'RE TRYING TO CHOMP ON EMPTY SPACE!
PLAYER
2
COORDINATES OF CHOMP (ROW. COLUMN)? 1.1
I'OU LOSE, PLAYER 2

CIVILW

CIVIL WAR GAME

Description
This simulation is based on 14 battles in the Civil War. Facts
and figures used are based on the actual occurrence.
If you
follow the same strategy used in the actual battle, the results
will be the same--generally, this is a good strategy since the
generals in the Civil War were fairly good military strategists.
However, you can frequently outperform the Civil War generals,
particularly in cases where they did not have good enemy intelligence and consequently followed a poor course of action.
Naturally, it helps to know your Civil War history, although,
the computer gives you the rudiments.
After each of the 14 battles, your casualties are compared to
the actual casualties of the pattIe, and you are told whether
you win or lose the battle.
.
Program Author
CIVIL WAR was written in 1968 by three students:
L. Cram, L. Goodie, D. Hibbard
Lexington High School
Lexington, MA 02173

PROGRAM LISTING
I ~ET ~.01~ET w.01~ET RI.01~ET PI.0
2 ~n QI'01~ET ~3001~ET "4-0
3 lET P2 0 01lET T,oellET T2 0 0
5 REMARKAB~E PROGRAM BY ~, CRA" • ~. GOODIE • AND 0, ~IBBARD
6 PRINT "DO YOU WANT DEsCRIPTIONS C0 oYES. I'NO)"'
1 INPUT Z
9 FOR Uo' TO 6
10 PRINT
II NEXT U
13 IF Z'I THEN 100
15 PRINT "TMIS IS A CIVIL WAR SIMULATION,"
"
20 PRINT "TO PLAY. TYPE A RESPONSE ~HE~ THE COMPUTER ASKS.
U PRINT "REMEMBER THAT AlL FACTORS ARE INTERRELATED AND THAT YOUR"
35 PRI~T "RESPONSES COU~D CHANGE HISTORY, FACTS AND FIGURES USED ARE"
40 PRINT "BASED ON THE ACTUA~ OCCURENCE, MOST BATTLES TEND TO RESULT"
45 PRINT "AS THEY 010 IN THE CIVIL WAR. BUT IT ALL DEPENDS ON YOUII"

g~ :=~~~ "THE OBJECT OF THE GAME IS TO <IN AS MANy BATTLES AS POSSIBLE"

52 PRINT

55 PRINT "YOUR CHOICES FOR DEFENsIvE STRATEGY AREI"
(II ARTIlLERY ATTACK"
60 PRINT "
85 PRINT •
(2) FORTIFICATION AGAINST fRONTAL ATTACK"
10 PRINT "
(3) FORTIFICATION AGAINST FL_NKING ~ANUEVERS'
15 PRINT •
(4) FAlLING BACK"
80 PRINT "YOUR CHOICES fOR OFFENSIVE STRATEGY AREI'
OJ ARTIlLERY ATTAcK"
85 PRINT •
(2) FRONTAl ATTACK"
90 PRINT '
(3) FI.ANKING MANUEVERS"
95 PRINT"
96 PRINT "
91 PRINT "YOU
A '5' FOR YOUR STRATEGY."
98 PRINT
99 PRINT 'yOU ARE THE CONFEDERACy,
GOOD LuCq.
100 READ MI.M2.CI.C2.M.A.U
101 LET Il o I0+Cl-"J+2
102 lET I2'10+CW-l)+2
. "
1m3 LET 01'100+ INTI CMI. (l00-I1l/2n0) + 0+ (RI-QIJI CRI+I) l+0,5)
104 LET 02.1~~+INTCM2.0~0.I2lI200~+0,5l
105 LET FI'5*MI/6
\B6 LET AI'Z
101 FOR U'I TO 4
\Be PRINT
109 NEXT U
110 PRINT "THIS Is THE BATTlE OF "
115 GOSUB 800
120 PRINT II ",IICONFEDERACYII,I'
UNION"
130 PRINT "MEN"." "'INTCMI*O+CPI-Tll/CM3+llll." "'
131 PRINT INTCM2.0+CP2-'T2)/CM4+1)))
141'11 PRINT 'tMONEyll, "5 11 ,01, "SII, 02

MA/;0R~~~~:~L~~E~~;ING

150 PRINT "It.lFlATION",tt ",11+1!""X"," ",12'"%"

l~: ~=~~;

"HOw MUCH 00 yOu WISH TO sPENO FOR FOOD'"
180 INPUT F

::~ ~~I~~0 "~~;NM~g~ On YOU wIS" TO SpEND FOR SALARIES"'

200 INPUT S

~~: ~:I~~0,,~~~NM0~~ 00 yOU ~ISH TO SPENO FnR AMMUNITION'"
220
221
222
224
226
228
230
235
240
250
26B
270
280
290
300
310
320
330
340
350
360
310
380
390
391
392
393
394
395

INPUT
IF B<0 THEN 158
PRINT
IF F+S+scoOI THEN 230
PRINT "THINK AGAIN!
YOU H-VE ONLY $" DI
GOTD 160
LET 0'C(2+F·.2+S.2)/FI.2+1l
IF 0<10 THEN 260
PRINT "MORALE IS HIGH'
GOTO 300
IF 0<5 THEN 29~
PRINT "MORAlE IS FAIR"
GOTO 300
PRINT "~QRALE IS POOR",
IF M03 THEN 330
PRINT "YOU ARE ON THE OFFENSIVE"
GOTO 37~
IF MOl THEN 360
PRINT "YOU ARE ON THE DEFENsIVE"
GOTo 370
PRINT "BOTH sIDEs ARE ON THE OFFENSIVE"
PRINT
PRINT "YOUR STEGY',
INPUT v
IF Y-5 THEN 1487
IF ABScy-3)<3 THEN 395
PRINT "yOU JERK I
USE THE OTHER sET Of STRATEGIEsl!"
GOTO 37~
PRINT

400 PRINT "
410
412
414
416
418
42B
422
424
426
430
432
433
435

tt,"CO~FEOe:.R"CYQ,"U'lION"

LET C~. (2*CI/5) + (1+11 (2+ (AB8C!NTC4'~ND (I)
-n+,,»)
LET C5'INT(C5+(I+1I0l+0,28+fI/CB+I))+~,5)
IF c5+1~~/0<MI+(\+CPI-TIl/CM30Ill r~EN 424
LET C5.INHIJoMll2h(I+(PI-T1)/CM3+ll))
LET E-1+CS/13
~ET U.I
GOTO 426
LET E_I~0/0
PRINT 'CASUALTIEs".C5.INTCl1.C2+CI/CC5+20l+0,5)
PRINT "DESf~TIONSP.INT(E),!NTC5+0)
PRINT
IF CS-CI . . 0 T~EN 439
PRINT "YOUR CASUALTIES WERf'INT(100*CCI-C5)/CI+0,sll"¥ LESS THAN"

g~ ~~i2T 4!~0I)R

~ERE'INT(l000(C5-Cll/CI+0,S)'''~ "ORE THAN"

CAsuAl.rIEs
441 PRINt 'THE ACTUAL CASUAI.ITlEs AT "
443 LET AI'I
445 Go SUB80~
45B IF U'I THEN 410
460 IF C50E<17*C2+CI/(C5+20)+e*0 THEN 490
410 PRINT 'YOU LOSE "'
471 LET L.L+I
480 GOTO 555
490 PRINT 'YOU WIN ",
491 LET w,wol
555 GOSUB 800
556 IF 0'8 THEN 1490
esm I.ET TI'TI+C5+E
590 I.ET T2'T2+17+C2+CII(C5020)+8+0
500 LET PI'PI+CI
6IB LET P2'P'2+C2
520 LET QI.QloCF+S+BI
630 I.ET RI.RI+MI*000-IIl/20

03~ LETM3'"

!.'"
•

:r M41

+,4.

14 ."

. 15B0

:;~ ~ .. ,A ._·"r 1850001961.2708.1.1.0,

612 DATA 400
.44894010699013041.3,2.0
614 DATA 95000.115000.20614,15849.3.3.0
616 DATA 5 4 000.63000 .10000 .14~00 ,2.4.0
678 DATA 4B000.50000.10000.12U0,3.5.0
680 DATA 150000120000.5377,12653.1.6.0
682 DATA 38000, 45000.1 U00.120~0.I'7.0
684 DATA 32000.g000001·3000017197.2.8.m
686 DATA 50000.70000.12000.19000.1,9.0
688 OH A 72500.85000.20000.23000.3,10.0
690 DATA 66000. 6000~ .18000 .16000,2. 11.0
692 DATA 31000.60000.6700.5800.2.12.0
694 DATA 620000110000.17723.18000.2.13.0
696 DATA 65000,100000.8500.3700.1.14.0
750 PRI~T "GO TO JAIL,"
752 PRINT "GO DIRECTLY TO JAIl,'
764 PRINT "00 NOT PASS GO,"
756 PRINT "DO NOT COLLECT 5200'
158 GOTO 107
800 If A<.I THEN 850
810 PRINT "BULL RUN"
820 IF Al"1 THEN 1480
830PRINT"JULY 2101B61
GEN, BE_UREGARD COM~ANDING T~E SOUTH M~T THE"
832PRINT"UNION FORCES "ITH GEN MCDO"ELL IN A PRE~ATURE BATTLE AT BULl."
834PRINT"RUN,
GEN, JACKSON HELPED PUSH BACK T~E UNION ATTACK.'
840 GO TO 14S0
850 If A02 TMEN 900
860 PRINT "S~II.OH"
810 If AI"I THEN 1480
880PRINT"APRIL 6-7.1862
THE CONfEDERATE SURPRIsE ATTACK AT SHILOH"
882PRINT"fAllED DuE TO POOR ORGANIZATION,'
89B Go TO 1480
900 IF A03 THEN 950
910 PRINT 'SEVEN DAYS"
920 IF AI"I TH~N 1460
930PRINT"JUNE 25-JULY 101862
GENERAL LEE (CSA) UPHELD THE OFFENSIVE"
932PRINT"THROUG~OUT THE BATTLE AND FORCED GEN, MCCLELLAN ANO THE UNION"
934 PR INT"FORCES AWAY FROM RIC~MO'D,"
94B GO TO 1480
950 IF A04 T~EN 1000
960 PRINT 'THE SECOND BuLl. RUN"
910 IF AI'! THEN 14B0
980PRIN"AUG 29-30.1862
THE COMBINED CONfEOERATE FORCES UNDER LEE AND"
982PRINT"JACKSON DROVE THE UNION FOR{;fS BAC~ INTO ',SHINGTON."
990 GO TO 1480
IB00 IF A<'5 THEN 1050
1010 PRINT "ANTIETAM'
1020 If AI'I THEN 1480
103ePRINT"SEPT 17.1862
THE SOUTH FAILED TO INCORPORATE MARYLAND I"TO'
1032PRINT"T~E CONFEDERACy."
1040 Go TO 1480
1050 IF A06 T"EN 110~
1060 PRINT "FREDERICKSBURG"
1070 IF AI-I TMEN 1480
1080PRINT"DEC 13.1862 T~E CONFEDERACV UNDER LEE SOJCESSFUlLY REPULSED"
U82PRINT"A.N ATTACK BY THE UNION U~DER GEN, BURNSIDE,"
1090 GOTO 14S~
1100 IF A <>7. THEN 1150
1110 PRINT 'MuRFREESBORO"
1120 IF .AI'I THEN 1480
1130PRINT"DEC 3101862
THE SOUTH UNDER GEN, BRAGG .ON A CLOSE BATTLE"
1140 GOTO 1480
1150 IF Aoe T"EN 1200
1160 PRINT "CHANCELI.ORSVIlLE"
1110 IF AI' I THEN 1480
1180PRINT"MAY 1-6,1863
T~E SOUTH HAD A COSTlY VICTORY AND LOST ONE"
lIe2PRINT"OF THEIR OUTSTA~DING GENERAI.S, 'STONEWALL' J4CKSON,"
II n GOTO 1480
1200 IF A<.9 THEN 125~
1210 PRINT "vIC~SBURG"
1220 IF AI'I THEN 1480
123BPRINT"JULY 401863
vICKSBURG WAS. COSTLY DEFEAT FOR THE SOUTH"
1232PRINT'SECAUSE IT GAvE T~E OJNION ACCESS TO THE "ISSISSIPpI."
1240 GOTO 14S0
1250 IF AOU THEN 1300
1260 PRINT 'GETTYSBURG'
1210 IF AI'I T~EN 1480
1280PRINT"JUNE 30.1863
A SOUTHERN MISTAKE BY GEN, LEE AT GETTYSRURG"
12S2PRINT"CoS T THEM ONE OF THE MOST CRlIClA1. BATTLES OF THR "AR,'
1290 GOTol480
1300 IF .0011 THEN 13b0
1319 PRINT "CHICKAMAUGA'
1320 IF _1'1 THEN 14S0
1330PRINT"NOV 25.1863
AfTER THE SOUT~ HAD sIEGED GEN, RoafNC.ANS'"
1332PRINT"ARMY FOR THREE MONTHS. GEN, GRANT BROKE THE SIEGE."
1340 GOTO 1480
1350 IF AOl2 THEN 1400
13e0 PRINT "CH.ATTANOOGA"
1310 IF AI.I THEN 1480
1380 PR INT'SEPT .15,1863
CONFUSION IN A FOREST NUR CHICK.,IAUGA LED"
1382PR!NT"TO A COSTLY SOUTHERN VICTORY,"
1390 GOTO 1480
1400 IF A"\3 T~EN 1450
1410 PRINT "SPOTSYLVANIA"
1420 IF AI'I THEN 1480
1430PRINT"MAY 5.1864
GRANT'S PLAN TO KEfp LEE ISOLAT~D REGAN TO FAIL"
1432PRINT'HERE. AND CONTINUED AT COI.O HARBOR AND PETERSBURG,"
1440 GOTO 1480
1450 PRINT "ATLANTA"
1460 IF Ahl THEN 1480
141ePRINT'AUGUST. 1864
S~ERMAN AND THREE VETERAN AO"lES. CONVERGED ON"
1412PRINT"ATlANTA AND DEAlT T"E.OEAT~ BLO. TO THE CONFEDERACV,"
1480 PRINT
1485 RETURN
1487 PRPlT "T~E CONFEDERACY HAS SURRENDERED"
1488 GOTO 1600
1490 PRINT "THE UNION HAS SURRENDERED"
1500 PRINT
151~ PRINT 'YOU HAVE WON" W, "SATTLES ANO LOST' L, "BATTLES,"
1515 IF y., THEN !·5b0
1520 IF wcoL THEN 1550
1530 PRINT "THE CONfEDERACY HAS WON THE WAR"
1540 STOP
1550 PRINT 'THE UNION ~AS WON THf wAR'
1560 END

TH I SIS THE BATTLE OF CH I CKAMAUGA
NOV 25,1863
AFTER THE SOUTH HAD SIEGED GEN. ROSENCRANS"
ARMY FOR THREE MONTHS, GEN. GRANT BROKE THE 5IEGE.

l=NOI? 0

DO YOU WANT DESCRIPTIONS Ie-YES.

SAMPLE RUN
MEN
li0NEY
INFLATION

THIS IS A CIYIL WAR SIMULATIO~
TO PLAY, TYPE A RESPONSE WHEN THE COMPUTER ASKS.
REMEI1BER THAT ALL FACTORS ARE INTERRELATED AND THAT YOUR
RESPONSES COULD CHANGE HISTORY. FACTS AND FIG'JRES USED ARE
BASED ON THE ACTUAL OCCURENCE. MOST BATTLES TEN!) TO RESULT
t~S THEY DID IN THE CI\'IL WAR, BUT IT ALL DEPENDS (IN ,'(Ill!!

UNION
$

62140
294000

2 X

MORALE IS FAIR
1lOTH SlIiES ARE ON THE OFFENSIVE
YOUR STEGY? :t

,'OUR CHOICES FOR DEFENSIYE STRATEGY ARE,
(1) ARTILLERY ATTACK
(2) FORTIFICATION AGAINST FRONTAL ATTACK
(3) FORTIFICATION AGAINST·FLANKING MANU EYERS
(4) FALLING BACK
YOUR CHOICES FOR OFFEI~SIVE STRATEG,' ARE:
(1) ART I LLERY ATTACK
(2) FRONTAL ATTACK
(]) FLANKING MANUEVERS
(4) ENCIRCLEliENT
YOU MAY SURRENDER BY TYP I NG A '5' FOR YOUR SH:ATEG,'.

CASUAL TIES
DESERTIONS

CONFEDERACY
18173

UNION
13471
36

YOUR CASUALTIES WERE 1 Y. MORE THAN
THE ACTUAL CASUAL! TI ES AT CH I C'KAMAUGA

'IOU LOSE CHICI(AMAUGA

GOOD LUCK!

YOU ARE THE CONFEDERACY.

THIS IS THE BATTLE OF CHATTANOOGA
SEPT 15,1863
CONFU.5ION IN A FOREST NEAt? CHICKAMAUGA LED
A COSTL'( SOUTHERN VICTORI'.

oro

THIS IS THE BATTLE OF BULL RUN
JULY 21, 1861
GEN. BEAUREGARC' COMMAND I NG THE SOUTH MET THE
UNION !'ORCES WITH GEN MCDOWELL IN A PREMATU~:E BATTLE AT BULL
RUN.
GEN. JACKSON HELPED PUSH BACK THE UN I ON ATTACK.
CONFEDERACY
18000
$ 81000
25 Y.

270600
BY.

HOW MUCH DO YOU WISH TO SPEND FOR FOllD? 80000
HOW MUCH DO YOU WISH TO SPEND FOR SALAR I ES? 80000
HOW MUCH DO YOU WISH TO SPEND FOR AMMUNITION" 110600

THE OBJECT OF THE GAME IS TO WIN AS MANY BATTLES AS POSSI8LE

11EN
MONEY
INFLATION

CONFEDERACY
65380

liEN
MONEY
INFLATION

UNION
18500

::::n0121

CONFEDERACY
36680
$ 148000
]5 Y.

UNION
62168
$

300000
o Y.

HOW liUCH DO I'OU WISH TO SPEND FOR FOOD? 40000
HOW MUCH DO YOU WISH TO SPEND FOR SALAR 1 ES? .:! 1211211210
Hm~ MUCH DO YOU WISH TO SPEND FOR AMMUN IT ION? 680«0

Hm~ I1UCH DO YOU WISH TO SPEND FOR FOOD? 4000
HOW MUCH DO YOU WISH TO 5PEND FOR SALARIES? 4000
HOW MUCH DO YOU WISH TO SPEND FOR AMMUN IT ION? 73000

t'IORALE I S FA I R
BOTH SIDES ARE ON THE OFFENSIVE

MOlmLE I SPOOR
YOU ARE ON THE DEFENSIVE

'lOUR STEGY? 1

YOUR STEGY? 1

CHSUAL TIES

6767

4881

DESERTIONS

CONFEDERACY

2399

CASUAL TIES
DESERTIONS

UNION
1887

'lOUR CASUALT I ES WERE 1 " MORE THAN
TilE ACTUAL CASUAL! TIES AT CHATTANOOGA

~'OUR CASUAL TIES WERE 22 ;; MORE THAN
THE ACTUAL CASUALlTIES AT· BULL RUN
~'OU

UNION

YOU LOSE CHATTANOOGA

LOSE BULL RUN
THIS IS THE BATTLE OF 'SPOTS'iLYANIA
tinY 5,1864
GRANT'S PLAN TO KEEP LEE ISOLATED BEGAN TO FAIL
HERE. AND CONTINUED AT COLD HARBOR AND PETERSBURG.

THIS IS THE BATTLE OF SHILOH
APRIL 6-7,1862
THE CONFECoERATE SURPRISE ATTACK AT SHILOH
FAILED DUE TO POOR ORGANIZATION.

MEN
ti0NEY
INFLATION

CONFEDERACY
38856

UNION
46870

176000
27 ~

2@650@

tiEN
li0NEY
WFLATION

CONFEDERAC,'
61488
$ 241800

UNION
11181214561000

-2

:'I,

HOW MUCH DO YOU WISH TO SPEND FOR FOOD? 300,,0
HOW MUCH DO YOU WISH TO SPEND FOR SALARIES? 3:121121121121
HOW MUCH DO YOU WISH TO SPENC' FOR AMMUN I T ION? 1:.1.6121121121

OaTH SIDES ARE ON THE OFFENSIYE

1101~ALE

IS POOR
\'OU ARE ON THE OFFENSIVE

YOUR STEGY? :1

YOUR STEGY? :2

CI1SUAL TIES
DESERTIONS
10107

UNION
11740

17'

CONFEDERAC'"
CASURL TIES
DESERT IONS

~1.

HOW MUCH DO 't'ou WISH TO SPEND FOR FOOD? 7131211210
HOW MUCH DO 'iOU WISH TO SPEND FOR SALARIES? 70»00
HOW MUCH DO YOU WISH TO SPEND FOR AMMUN I T ION? 10lE'»»
t~OI~ALE

IS FAIR

CONFEDERAC'i
21929

UNION

123:65

YOUR CASUALTIES WERE 24 Y. MORE THAN
THE ACTUAL CASUAL IT I ES AT SPOT5'iL YAN I A
~jOU

LOSE SPOTSYLVANIA

YOU lHN SH1LOH
THI5 IS THE BATTLE OF ATLANTA
AUGUST, 1864
SHH:NAN AND THREE YETERAN ARMIES CONYERGE!) ON
HTLANTA AND DEALT THE DEATH BLOW TO THE CONFEDERAC,'.
THIS IS THE BATTLE OF SEVEN DAYS
JUNE 25-·JULY 1.1862
GENERAL LEE (CSA) UPHELD THE OFFENSIVE
THROUGHOUT THE BATTLE AND FORCE!) GEN. MCCLELLAN FlNC' THE UN I ON
FORCES AWAY FROM RICHMON~
UNION
118818

CONFEDERAC\'
MEN
MONEY
INFLATION

95079
$

427500
25 ~;

MEN
I'IONEY
INFLAT ION

CONFEDERAC,'
64198
• 247900
39 X

UNION
103651
520000
-4 7.

HOW MUCH DO YOU WISH ,TO SPEND FOR F(/I)D? 70000
HOI~ MUCH DO YOU WISH TO SPEND FOR SALARIES? 70000
HOW MUCH DO YOU WISH TO SPEND FOR AMMUNITION" 107000

:$ 5175121121

10 %

HOW MUCH DO 'iOU W'I SH TO SPEND FOR FOOD? 20000,
HOW MUCH DO YOU WISH TO SPENC' FOR SALARIES"' 6000
HOW MUCH DO YOU WISH TO SPENe' FOR AMMUNITION? 167500

li0RALE IS FAIR
YOU ARE ON THE DEFENSI YE
YOUR STEGY? 2

MORALE IS POOR
YOU ARE ON THE OFFENSIVE
CASUAL TIES
I)ESERTIONS

YOUR STEGY? 4

CASUALTIES
DESERTIONS

CONFEDERACY
40803
8$

UNION
6806

CONFEDERACY
BB5S
16

UNION

]019
]0

YOUR CASUAL TIES WERE 4 Y. MORE THAN
THE ACTUAL CASIJALITIES AT ATLANTA

5
YOU LOSE ATLANTA

YOUR CASUAL TIES WERE 98 Y. MORE THAN
THE ACTUAL CASUALITIES AT SEVEN DA\'S
YOU LOSE SEVEN DAYS

YOU HAVE WON 3 BATTLES AND LOST :l:l BATTLES.
THE UN I ON HAS WON THE WAR

CRAPS

GAME OF CRAPS (DICE)

Description
One of the more popular computer games, six versions of CRAPS
were submitted (although three appear to be virtually the same
program). The versio!,\ published here is based on standard
Nevada craps table rules. That is:
1.
2.
3.

A 7 or lIon the first roll wins
A 2, 3, or 12 on the first roll loses
Any other number rolled becomes your "point." You
continue to roll~ if you get your point, you win.
If you roll a7, you lose and the dice change hands
when this happens.
.

Your stake is set in Statement 2l0~ this could be changed to
an input statement if desired.
Source
An interesting version of CRAPS was submitted by Philip Bieluch
of Trinity College which uses a file to keep track of prior
winnings and/or losses. A short but complete version was submitted by George Gidzinski of Adlai Stevenson High School,
Prairie View, Illinois.
The published version has been circulating around DIGITAL and
its users for years. The original author is unknown.
Digital Equipment Corp.
Maynard, MA 01754

PROGRAM LISTING

SAMPLE RUN

80 RANDOMIZE
~0

FOR 1=1 TO 10\PRINT\NEXT I
PR I NT" TH I S DEMONSTRAT I ON SIMULATES A CRAP GAME WITH THE COMPUTER"
PR I NT" AS YOUR OPPONENT.
THE RULES ARE SIMPLE:'
PRINT
PR I NT"
*A 7 OR 11 ON THE FIRST ROLL WINS"
PRINT"
*A 2, J OR 12 ON THE FIRST ROLL LOSES"
PRINT
PR I NT" ANY OTHER NUMBER ROLLED BECOMES YOUR 'PO I NT' * YOU CONT I NUE"
PRINT"TO ROLL. .. IF YOU GET YOUR POINT, YOU WIN. IF YOU ROLL A 7,"
PRINT'YOU LOSE. THE DICE CHANGE HANDS WHEN THIS HAPPENS. "
PRINT "JUST BET $0 TO DUIT.
PRINT
200 PR INT

100
110
120
130
140
150
160
170
190
185
190

210 LET Z=5*INT(10+11*RNc.<0»
215 PR I NT "ARE YOU READY"; \ INPUT B$
216 IF Bf=" YES" THEN 220\ I F B$=' NO' THEN PR I NT 'I'LL REPEAT MI'SELF THEN
217
228
238
240
258
260
270
2S8
290

300

318
320

330
340
359
360

370

380
390

400

419
420

430
440
450

460

=:l~~

'SPLEN~I~..

. YOU ARE GIVEN ',Z, "DOLLARS TO PLA~ WITH.'

600

AN~

OTHER NUMBER ROLLED BECOMES YOUR 'PO I NT' * YOU CO NT I NUE
TO ROLL. .. IF YOU GET YOUR POINT, YOU WIN. IF YOU ROLL A 7,
YOU LOSE. THE DICE CHANGE HANDS WHEN THIS HAPPENS.
JUST BET $0 TO DUIT.

ARE YOU READY? YES
SPLENDID ..... YOU ARE GIVEN

YOU ROLL FI RST.

YOU ROLL

YOU ROLL
~OU ROLL
YOU ROLL
YOU ROLL

';1)2;

';1)1; 'FIND

',;1)2;

YOU ROLL
YOU ROLL
~OU ROLL

830
840

850
860

870
880

990
900

919
920
930
940

950
960

970
980
990
1000

1910
1020

1030
1040

1050
1060
1070

ieee

1090
1109

1110

1129
1130

SO YOUR POINT IS 10
· .. ROLL AGA I N.
· .. ROLL AGA I N.
AND MAKE YOUR PO I NT

3 AND
4 AND

2 AND
1 AND
4 AND

2 SO YOUR POINT IS 4
5 ... ROLL AGAIN'.
3 AND LOSE ...

HOW MUCH DO YOU BET? 10
SO MY POINT IS 8
· .. ROLL AGA IN.
· .. ROLL AGA I N.
AND MAKE MY PO I NT

AND

4 AND
2 AND
4 AND

~OU NOW HAYE
95 DOLLARS
HOW MUCH DO YOU BET? 10

ROLL
ROLL
ROLL
ROLL
ROLL
ROLL
ROLL

IF (5-2)0(5-3)0(5-12)=0 THEN 640
IF (5-7)'(5-11>=0 THEN 710
IF W)0 THEN 619
PRINT "SO MY POINT IS'; S
OOTO 620

6 AND
4 AND
5 AND
5 AND
1 AND
4 AND
2 AND

2 SO MY POI.NT IS
2 · .. ROLL AGA I N.

5 · .. ROLL AGA I N.
1
ROLL AGAIN.
1 · .. ROLL AGA IN.
6
· . ROLL AGA I N.
6 AND MAKE MY POINT

YOU NOW HAVE
85 DOLLARS
HO~ MUCH DO YOU BET? 10
ROLL
ROLL
ROLL
ROLL
ROLL
ROLL
ROLL
ROLL
ROLL
ROLL
ROLL
ROLL
ROLL
ROLL

760 LEI Z=Z-tB
770 PRINT

810
820

5 AND

3 AND

YOU NOW HAVE
105 DOLLARS
CHANGE DICE NOW ..

640 PR I NT "AND CRAP O.lJT.
650 LET C=1
660 IF W)0 THEN 690
670 I..E'f Z=Z+8
680 GO TO 770
690 LET Z=Z-B
730 GOTO 770
710 PR I NT "AND PASS ..
720 LET C=1
730 IF W)0 THEN 769
740 LET Z=Z-B
750 GOTO 779

790
800

6 AND PASS.

YOU NOW HAVE
115 DOLLARS
HOW. MUCH DO YOU BET? 10

ROLL
ROLL
ROLL
ROLL

".. !)1;'AND

1 AND

YOU NOW HAVE
195 DOLLARS
HOW MUCH DO YOU BET? 10

610 PRINT MSO VOUR POINT IS P ;$
620 LET p=s
630 GO TO 479

780

95 DOLLARS TO PLAY WITH.

HOW MUCH DO YO~ BET? 10

PRI NT
IF N-2.INT(N/2)=9 THEN 310
LET W=-1
PRINT 'I'LL ROLL FIRST . . . . .
PRINT
PRINT
60TO 359
LET W=1
PRINT "YOU ROLL FIRST ....
PR INT
PR INT
LET G!=0
PRINT "HOW MUCH DO YOU BET"
INPUT B
PR INT
IF B=INT(B) THEN 410
PRINT
PRINT "NO COINS PERMITTED ... JUST BILLS, PLEASE.'
GOTO 360
IF B=0 THEN 1090
IF BU+1 THEN 479
~~i~T 3~~ON' T, TRY TO BET MORE THAN YOU HAY£, PLEASE.'

520 PRINT"
lROLL
5 30 GOTO 550
540 PRINT II\(OU ROLL
550 IF Q01 THEN 860
570
580
590

oA 7 OR 11 ON THE FIRST ROLL WINS
*A 2, 3 OR 12 ON THE FIRST ROLL LOSES

GO TD 90

470 LET D1=INT(60RND(0)+1)
480 LET D2=INT<6*RND(0)+1)
490 LET Q=Q'1
500 LET S=DHD2
510 IF W)0 THEN 540

560

~~1~0~~Mg~~6~~~~ON ~~~U~~m =R~R~iM~~~E WfTH THE COMPUTER

IF Z{1 THEN 1060
PRINT "YOU NOW HAVE ", Z; 'DOLLARS"
IF 09 THEN 830
PRINT "CHANGE DICE NOW.
PRINT
LET w=w*c
LET Q=0
GOTO 360
IF S07 THEN 940
PRINT "AND LOSE.
LET C=-1
IF W)0 THEN 920
LET Z=Z'B
GO TO 770
LET 2=-Z-B
GOTO 770
IF S=P THEN 970
PRINT " ... ROLL AGAIN.
GO TO 470
IF W)0 THEN 1020
PRINT "AND MAKE MI' POINT'
LET C=1
LET Z=Z-B
GO TO 770
PRINT 'AND MAKE YOUR POINT'
LET C=1
LET Z=Z'S
GO TO 779
PRINT
PRINT "YOU HAYE RUN OUT OF MONEy .... SORRY ABOUT THAT.
GOTO 1110
PRINT "THANKS FOR THE GAME.
AND CONGRATULATIONS'
PRINT "FOR BEING ABLE TO ~UIT WHILE YOLI WERE AHEAD. '
PR I NT\PR I NT\PR I NT
CHA I N$ "DEMOES"
END

2 AND
4 AND

2 AND
1 AND

4 AND
4 AND
4 AND

6 AND
4 AND
6 AND

2 AND
2 AND
6 AND
1 AND

2 SO MY POINT IS
1 · .. ROLL ABA I N.
1
· . ROLL AGA I N.
ROLL AGA IN.
2 : : . ROLL AGAIN.
5
. ROL'L ABA I N.
6 · .. ROLL AGAIN.
2
ROLL AGAIN.
4 · .. ROLL ABA I N.
2 · .. ROLL AGA I N.
4 · .. ROLL AGA I N.
3
. ROLL AGA I N.
6 · 'ROLL AGAIN.
6 AND LOSE.

YOU NOW HAVE
95 DOLLARS
CHANGE DICE NOW.
HOW MUCH 00 YOU BET? 19
YDU ROLL

5 AND

6 AND PASS.

~OU

NOW HAVE
195 DOLLARS
HOW MUCH DO YOU BET? 19
YOU
YOU
VOU
YOU
YOU
YOU

ROLL
ROLL
ROLL
ROLL
ROLL
ROLL

3 AND
2 AND
2 AND
2 AND
5 AND
2 AND

6 SO YOUR POINT IS 9
3 · .. ROLL AGA I N.
2 · .. ROLL ABA I N.
2 · . ROLL AGA I N.
1
ROLL AGA IN.
5 AND LOSE.

YOU NOW HAYE
95 DOLLARS
CHANGE DICE NOW.
HOW' MUCH DO YOU B~T? 0
THANKS FOR THE GAME.
'AND CONGRATULATIONS
FOR BEING ABLE TO QUIT WHILE YOU WERE AHEAD.

CUBE

TRAVEL ACROSS A 3-D CUBE

Description
CUBE is a game played on cube with a side dimension of 2. A
location is designated by three nuffibers--e.g., 1, 2, 1. The
object is to travel from 1, 1, 1 to 3, 3, 3 by moving one
horizontal or vertical (not diagonal) square at a time without
striking one of 5 randomly placed landmines. You are staked
to $500; prior to each play of the game you may make a wager
whether you will reach your destination. You lose if you hit
a mine or try to make an illegal move--i. e., change more than
one digit from your previous position.
Program Author
Jerimac Ratliff
5462 Woodway Drive
Fort Worth, TX 76133

1,1, ,

',I, ,
85

PROGRAM LISTING
100 PRINT"DO VOU W~NT TO
SEE THE INSTRUeTIONS; CVES"I,NO"·0)W
I U INPUT 67
120 IF 67.0 THEN 370
130 PRINT"THISIS A GAME IN WHICH VOU WILL BE PlAYING AGAINST THE"
140 -PRfN'T"RANDUM D-Etfs~tO~N ~~OF-~-THE COMPUTER, THE FIELD OF P~i.AV Ts~ ~-"
150 PRINT'CUBE OF SIDE 3, ANV OF THE 27 LOCATIONS CAN BE DESIGNATED"
160 PRINT"BV INPUTING THREE NUMBERS SUCH AS 2,3,1,
AT THE START,170 PRINT"VOU ARE AUTOMATICALLV AT LOCATION I,! .I,
THE OBJECT OF«
IBe PRINT"THE GAME IS TO GET TO LOCATION 3,3,3,
ONE MINOR DETAIL,"
190 PRINT"THE COMPUTER .ILL PICK,AT R~NDUM,5 LOCATIONS AT .HICH"
_00 PRINT"IT .IbL PL~NT LANO MINES,
IF VOU HIT ONE OF
rHESE LOC~TlONS,"
210 PRINT"VOU LOSE,
ONE OTHER DETAIL, VOU MAV MOVE ONLV ONE SPACE'
220 PRINT"IN ONE DIRECTION EACH MOVE,
FOR
EXAMPLE, FROM 1,1,2 YOU"
230 PRINT'HAV
MOVE TO 201,2 OR 101,3,
VOU MAV NOT CHANGE"
240 PRINT"T.O OF THE NUMBERS ON THE S~ME HOVE,
IF VOU MAKE
AN II.LEGAL"
'S" PRINT"MOVE, VOU LOSE AND THE COMPUTER TAKES THE MONEY VOU HAY"
26B PRINT'HAVE BET ON THAT ROUND,"
270 PRINT
280 PRINT
29. PRINT'ALL VES OR NO QUESTIONS WILL BE ANSWERED
A ! FOR YES"
300 PRINT"OR I 0 (ZERO) FOR NO,"
310 PRINT
320 PRINT".HEN STATING THE AMOUNT Of I wAGER, PRINT ONLV THE NUMBER"
330 PRINT"OF DOLLARS (EXAMPI.E, 25o,
VOU ARI:' AUTOMATICALLV STARTEO .ITH A'
340 "RINT"!00
DOLLAR ACCOUN',"
350 PRINT
360 PRINT"GOOD LUCK"
370 LET A105~0
lli~ LET AoINTC3'CRND(X)))
390 IF 1<>. THEN 410
400 LET A.3
410 LETSoINTC3'(RND(X)))
420 IF8<>0THEN440
430 LET B02
440 LETC01"TC3'CRNOCX)))
460 IFC<>0THfN470
460
!.ETC.3
470 LETo.!NTC3'CRNDCX)))
480 IfD<>0THEN500
490 LETOol
500 LETEoINTCJ'CRNOCX)))
510 IFE<>~THEN530
520 LErE.)
530LEHoINTC3'CRNDCX)))
540 IFF<'0THEN550
550 UTFo3
S60 LETGoINTC3'CRNDCX)))
570 IFr,<>0THEN590
580 LETG03
590 LETH'INTC3'CRNDCX)))
600 IFHc>0THEN620
610 LETHo3
620 LETloINTC3'CRNOCX)))
630 IFI<>~THEN650
640 LET! 02
650 L~TJoINTC3'CRNDCX)))
660 IfJ<>0THEN660
670 LETJ.3
'680 LETK-INTC30CRNDCX)))
690 IFK<'0THEN710
700 LEn02
710 LETLoINT(3'CRNDCX)))
720 IFL<>0THEN740
730 LETL-3
740 LETM'INTC3'CRND(X)))
750 IFM<>0THEN770
760 LET.o3
770 LETNoINTC3*CRNOCX)l)
780 IFN<>0THEN800
790 LET Nol
B00 LET OoINT C3*CRNDCX)))
810 IF 0 <>0 THEN 830
820 LET 003
830 PRINT "WANT TO MAKE A WAGf:.~l"
840 INPUT Z
850 IF zoe THEN 920
860 PRINT "HOW MUC,",?"
870 INPUT ZI
876 IF AI<ZI THEN 1522
BB0 LET .0\
890 LET Xol
900 LtT yo I
QI0 PRINT
920 PRINT "ITS VOU~ MovE"
930 INPUT P,Q,R
940 IFP>W+I THENI03~

951'1

1040
1050
1060
1070
10B0

("gil
1100
1110
1120
1130
1140

fill)!
1160
1170
1180
1100
1200
T210
1220
1230
1240
\250
1260
1270

II IL.LEGAL

IF
GO
IF
GO
IF

poJ THEN 1300
TO 1330
GoK THENI320
TO 1330
RoL THEN 1440
13:10 Ir P.~M THEN 1350
1340 GO To 1380
1350 IF QoN THEN 1370
1360 GO TO 1380
1370 IF RoO THENI400
1380 PRINT 'NEXT MOVE"
1390 GO TO 930
1400 PRINTu ........ BANG •••••• 1I
1410 PRINT "VOU LOSE"
\420 PRINT
1430 PRINT
1440 I"
Z00 THEN 1580

~1.-!50

p~FfINt

1460 LET Z2 0 AI-ZI
1470 IF Z2>0 THEN 1500

1480 PRINT "YOU BUST"
1490 GO TO 1610
1500 PRINT" VOU NOW HAvE"J Z2J

\llnr LET AloZ2

GO TO 1580
PRINT"TRIED TO FOOL MEl BET AG4IN"J
GD TO B70
PRINT"CONGR4TUL.ATlONS"
IF Z00 THEN
1580
LET Z20AI.ZI
PRINT "VOU NOW HAVE'"
Z21"DOLLARS"
LET AloZ2
PRINT"DO vou WANT TO TRV AGAIN?"
INPUT S
IF Sol THEN
380
r6r0-PR~INT j'TOUGH LUCK"
1620 PRINT
1630 PRINT

GOODBYE"

1640 END

SAMPLE RUN
DO 'l'OU ~~ANT TO

SEE THE I N5TI<I.I(:T IONS? ('1'£5--1,. NO--rZ!)

? 1
THIS IS A GAME IN WHICH 'T'OI.! WILL BE PLf!~'ING ACiAINST THE
RANDU~l [)ECISION OF THE COMPUTE,.:.
THE FIEL.C' (IF PL.FI'r' IS A
CUBE OF S I DE 5.

AN'r' OF THE 27 LOCAl IONS CAN E:E DES I GNATED

Btl INPUTING THFi:EE NUMBERS SUCH AS 2 . :L 1.
AT THE START..
'10U i'1RE AUTOMATICALL'r' AT LOCATION 1 .. L 1.
THE OE:,JECT OF
THE GAME IS TO GET TO LOCATION }, :.':.
ONE MINOFi: ['ETAIL
THE ,COMPUTER WILL PICK., AT RANI)UM.5 LOCATIONS AT
WHICH
IT ~HLL PLANT LANC' MINES
IF 'r'OU HIT ONE OF
THESE LOCATIONS,
YOU LOSE.
ONE OTHER ['ETAIL, 'r'OU MFl'y' MOVE ONL'T' ONE SPACE
1 NONE DIRECT I ON EACH MOVE
FOI<'
E:~:AMPLE: FFi:OM L L:2 'r'OU
t1A'-r' MOVE TO 2.,:L:2 OR 1.,1 .. :. - 'T'OU ~1A'TE NOT CHANGE
HW OF THE NUt18ERS ON THE SAt'1E ~1(IVE.
IF 'y'OU MAKE
AN ILLEGAL
t10VL 'IOU LOSE AND THE COMPUTEI<: TAKES THE MONE'y' 'T'OIJ MA't'
HAVE 8ET ON THt'1T I<:OUND.
fiLL ',.'E5 OR NO QUESTIONS WILL BE ANSWERED E:'T' A 1 FOR 'y'ES
OR A B (ZERO) FOR NO.
[mEN STATING THE AMOUNl OF
WACiER., F'I<:INT ONl.'r' THE NUMBEF.:
OF DOLLARS (E:":AMPLE
:25~1)
'l'OU AF.:E AUTOMATICALL'l' STAF.'TEC' ~HTH A
DOLLRF:: ACCOUNT

~5130

GOOD LUCK
W1N T TO MfWE A WAGE!':?
? 1
HOl~

t1UCH?

ITS 'T'OUR MOVE
? i .• i. 2
NEWr MOVE
? L 2., 2

NE:=<:T MOVE
"? :1.. 2., 1
tiE~":T

MOVE

2.,.2,]:
NE:rr MOVE
? 2.,3,3
NEXT t10VE
? ],:3:, 3
'j

MOVE", "YOU LOSE-lI

GO TO 1440
LET .0P
LET xoQ
LET voR
IF p03 THEN 1100
GO Tn 1130
IF
Q03 THEN 1120
GO TO 1130
IF R03 THEN 1530
I f PoA THEN 1150
GO TO 1180
IF QoB THEN 1170
GO TO 116~
IF RoC THENI400
I f pon THEN 1200
GO TO 1230
IF QoE THEN 1220
GO TO 1230
IF
RoF THeN 1400
IF PoG THENI250
GO TO 1280
IF GoH THENI270
GO TO 12B0
IF Ro!THEN 1400

ITS 'T'OUR MOYE
? L 2 .. 1
NE:n t10VE
? 2,2.,1
NE~n MOVE
NEXT MOVE
? }, 2J :2
NE~"<T MOVE
? 1.2.,]:
NE:>n MOVE

? ]:.2\2'. . :L
CONGRATULAT IONS
YOU NOW
HAVE 6130 DOLLARS
[)I) '-r'OU WANT TO T~:'l' rIGA I N?
? 1
l~ANT TO />lAKE A WAGER?
'? 1

"DOLLARS"

1520
1522
1525
1530
\640
f!i50
1560
1570
1580
1590
1600

CONGRATUL AT IONS
YOU NOW
HA"iE 550 !)OLLARS
DO YOU WANT TO TR'1' AGAIN?
? J
~~ANT TO MAkE A WAGEt;:?
'; 1
Hm~ MUCH?
? 50

IFP-W.l THE::N100'"

960 IFG>X+\ THENI030
QOCX+I) THEN 1010
9B0 IF R >(V+I)
THEN 1030
990 GO TO 1050
1000 IF Q . . X.I THEN 1030
1010 IF R,oV+1 THEN 103.
\020 GO TO 1050

?l70~ IF

1030 PRINT

1280
1290
1300
1310
1320

DIAMND

PRINTS DIAMOND PATTERN

Description
This program fills an 8~11 piece of paper with diamonds (plotted
on a hard-copy terminal, of course). The program asks for an
odd number to be input in the range 5 to 31. The diamonds printed
will be this number of characters high and wide. The number of
diamonds across the page will vary from 12 for 5-character wide
diamonds to 1 for a diamond 3l~characters wide.
Proqram Author
Digital Equipment Corp.
Maynard, MA 01754

PROGRAM LISTING

SAMP.LE RUN

3 PRINT "FOR A PRETTY DIAMOND PATTERN, "

FOR A PRETTY DIAMOND PATTERN,
TYPE I N AN ODD NUMBER BETWEEN 5 AND H,
? 15

4 PRINT "TYPE IN AN ODD NUMBER BETWEEN 5 AND 21, "
5 I r.PUT R\PR I NT
6 Q=INr<60/R)

S FOR L=1 TO

D
DEC
DEC!
DEC! !
DEC! ! !
DEC! ! !
DEC' ! ! ! !
DEC!! ! ! ! !
DEC! !
DEC' !
DEC!
DEC!
DEC!
DEC
D
D
'DEC
DEC!
DEC! ~
DEC' !
DEC! ' "
DEC! ! ! ! !
DEC! I 1 1 I !
DEC! !!! !
DEC!
"
CtEC! ! ,
DEC'
DEC!
DEC
D
D
DEC
DEC!
DeEC! !
DEC! "
DEC! ! ! !
DEC! ! ! !
DEC! ! ! ! ! !
DEC! ! " !
,
DEC'
DEC! !
DEC!
DEC!
DEC
D

10 X=1 W=R\Z=2
20 FOR N=X TO Y STEP Z
25 PRINT TAS«R-Nli2l;
28 FOR M=1 TO Q
29 C=1
:10 FOR R=1 TO N
31 IF C=1 THEN 40
]2 IF C=2 THEN 42
33 IF C=] THEN 44
J5 PRINT "''',\GOTO 50
40 PRINT "D", \GOTD 47
42 PRINT "E", \GOTO 47
44 PRINT "C";
4;:' C=C+1
50 NEXT A'
5] IF M=Q THEN 60
55 pRINT TASCR*M+CR-NI/2);
56 NEXT M
60 PRINT
70 NEXT N
8] IF X01 THEN 95
85 X=R-2W=1 \2=-2
90 GOTO 20
95 NEXT L
99 END

, !! !!
! !

, , , !! !!
, , ,!
,, ,!
, ,

! !

, !1··!!
,
, ,!

,
,
,

D
DE
DEC
DEC!
DEC!
DEC!
DEC! ! "
DEC! "
DEC! ! ! !
DEC! "
DEC! !
DEC!
DEC
DE
D

RERDY

D
DEC
DEC!

DEC! !
DEC! ! !
DEC! ! !
DEC! ! ! !
! [:tEe! ! ! ! ! !
DEC!! !
DEC!! ! !
()EC! !
DEC! !

DEC! !
DEC! ! !
t'EC! ! ! !
DEC! ! ! ! !
!DEC! ! ! ! ! !
DEC! ! "

DEC!

DEC
D
D
DEC

DEC
D
D
DEC
DEC!
DEC! !

,
,

,,
,

DEC!

, ,! !
",
!

READY

D
DEC
DEC!

DEC! !
DEC! "

PE'C!

,'"

DEC! , !
,
DEC! !
DEC! !

DEC!

DEC! !

DEC! !
1>e:C!
DEC
D
D
DEC
DEC!
DEC! !
DEC! !
DEC! " !
DEC! ! ! "
,
!DEC! ! ! ! !
,! !
~'EC !
DEC! !

"
DEC! ! ! !
DEC! !
!
"
!DEC! ! " ! !

,,
, !" !

DEC!
DEC!

DEC! "

DEC!
DEC
D
D
DEC
DEC!
DEC! !
DEC! "
DEC!!! !
DEC! ! ),!
!DEC!
"
DEC!
!
"
DEC!! !

DEC!
DEC
D
D
DEC

DEC!

, ,,

,
DEC!

DEC!
DEC! !
DEC! ! !
DEC! ! !
DEC!
! !
"
!DEC!
! !
DEC!! !
DEC! !
DEC!
"
DEC! !
DEC!
DEC
D

'" , ,
,,

,
,, ,
,

DEC! ~

," ,
,

DEC!

DEC! !

DEC!
DEC
D
D
DEC
DEC!
D.EC! !
DEC! ! !
DEC ,I!
DEC! !
!DEC! ! !
DEC! " !
DEC! ! ! !
DEC! !

,,
,,,

'"
,,,,
,,,
DEC!

DEC!

CIEe! ! !

DEC!

DEC! ! ! !
!DEC!
!"

"
DEC! !

DoEC!

,
,

D
DEC
DEC!
DEC! !
CrEC!! !
DEC! ! "
DEC! !
! DEC! ! ! !
"

,
~EC!

DEC
D
D
DEC
DEC!
CoEC! !
DEC! ! !
DEC! !

,,
,,
DEC!
"
!DEC! !
,!
DEC!!! !
11.1

DEC!! !
DEC!
"
DEC! !
DEC!
DEC
D

DEC!
DEC!
DEC
D
D
DEC
DEC!
DEC! !
DEC!
~EC! !
DEC! !
"
!DEC! " ! ! !
DEC! !
!
"
DEC! "
DEC! "
DEC! !
DEC·!
DEC
D
D
DEC

DEC!

,
,

DEC!
DEC! "
DEC! ! !
DEC!
! !
!DEC! ! !
" !
DEC! ! ~ ! !
DEC! "
DEC! "
DEC·!
DEC!

,,
,

~'EC

DICE

SIMU~TES

ROLLING TWO DICE

Description
Not exactly a game, this program simulates rolling a pair of
dice a large number of times and prints out the frequency distribution. You simply input the number of rolls.
It is interesting to see how many rolls are necessary to approach the
theoretical distribution:
1/36
2/36
3/36

2
3
4

2.7777 ••• %
5.55~5 ••• %
8.3333 ••• %

etc •
. Program Author
The author of this program is in the seventh grade at Harrison
Junior-Senior High School.
Daniel Freidus
Park Drive South
Rye, :t-T'l' 10580

PROGRAM LISTING
11:1 DIM F

SAMPLE RUN

(12)

THIS PROGRAM SIMULATES THE ROLLIN(j OF A

20 REM Dt=lNN'r' FRE 1 DUS

3121 PR 1 NT
40 PRINT
~Hl PRINT
60 PRINJ

"TH I S PROGRAM ~; I MULATES THE ROLL I Nf3 OF A II
"PAIR OF DICE.
"'1'01) ENTER THE NUMBER OF TIMES 'f'OU ~JANT THE COMPUTEF:"
"TO /ROLL~ THE [)ICE.
WATCH OUT, 'v'EI':'T' LARGE NUMBERS TAKE"

?0 PRINT "8 LONG TH1E ..

IN PAf':TICULAF:.,

NUMBERS OVEi': 5@0121. II

PAIR OF DICE.
YOU ENTER THE NUMBEf;: OF T I ME::' 't'OU WANT THE COMPUTER
TO "ROLV THE DICE.
WATCH OUT., 'v'Ef;:'T' LAF:I3E NUMBERS TAKE
A LONG TIME, IN PAfnICULAf;:, NUME:ERS OVEP 50~O.

813 FOR Q=l TO 12
~Hl' F(Q)=0

HOl4 MANY ROLLS? 50(11)

llh) NEXT Q

TOTAL SPOTS
2

:1:113 PRINT\PRINT "HOW MAWr' ROLLS".:
:1.':2121 1 NPUT X

NUMBER OF TIMES
140
285

130 FOR 5.=1 TO X

410

140 A=JNT(6*RND+l)

539
<'92

15(1 B= I NT (6*RND+l ~
160 R=A+8
1?~3

F{R)=FOn+l

691

:1813

NE~-'::T

9
10
11

552
428

185 PRINT
~l90 PRINT "TOTAL SPOTS",. "NUr18Ef': OF TIMES"

2~W

FOR V=2 TO 12
210 PRINT V"" F(V)

TRY AGAIN? 'l'ES

226 NEXT II

222 PRINT\PRINT "Tf;:'r' FH:;AIN".t
2:D I NPI)T :U:
224 IF Z$=""'E:::" THEN 8121
~240

288
1s9

TOTAL SPOTS
2

END

f~EAD'.f

NUMBER OF TIMES
27]:
557

846
1121
1]:8]

8
9
10
11

1670
1:<98
110>
821
547
281

TRY fWAIN? '1'ES

10TAL SPOTS

NUMBER OF T I ME~;
5

10
10

22
8
9

10
11

12
"fR'T' AGAIN? 'T'ES
HOW MANY ROLLS? 1000

TOTAL SPOTS
2
3
4
5

8
9

:to
11
12
TR',' AGAIN? NO

NUMBER OF T I ME::'

>5
51

78
112
130
168
lJ:9
115
:35
60

DIGITS

COMPUTER TRIES TO OUTGUESS PLAYER

Description
The player writes down a set of 30 numbers (0, 1, or 2) at random
prior to playing the game. The computer program, using pattern
recognition techniques, attempts to guess the next number in
the input.
The computer asks for 10 numbers at a time.
It always guesses
first and then examines the next number to see if it guessed
correctly. By pure luck (or chance or probability), the computer ought to be right 10 times.
It is uncanny how much better
it generally does than that!
Source
Keiwit Computation Center
Dartmouth College
Hanover, NH 03755

PROGRAM LISTING

SAMPLE RUN

2U PRINT "THIS IS A GAME OF GUESSING,"
220 PRINT "FOR INSTRUCTIONS, TYPE '1', ELSE TYPE
230 INPUT E
240 IF E00 T~EN 360
250, PRINT
260 PRINT "PLEASE TAKE A PIECE OF P4PER AND WRITE DOWN"
270 PRINT "THE DIGITS '0'.,
OR '2' THIRTY TI~ES AT RANDOM,"
280 PRINT "ARRANGE THE" IN THREE LINES OF TEN DIGITS,"
290 PRINT "I WILL ASK FOR THEM 10 AT A TIME,"
300 PRINT "I WILL ALWAVS GUESS FIRST, AND THEN LOOK AT YOUR"
310 PRINT "NEXT NUM8ER TO SEE IF I WAS RIGHT,
BY PURE LUCK I"
320 PRINT "PUGHT TO 8E RIGHT 1m Tl~ES,
BUT I HOPE TO DO BETTER"
330 PRINT "THAN THAT •••••
340 PRINT\PRINT
360 READ A,e,c
370 DATA 001,3
380 DIM MC26,2), KC2,2), LCe,2)
400 MAT MoCO"\M4T KoCON
420 MAT KO(9).K\MAT LoCON
440 MAT Lo(3).L
450 LC0,0)02\LC4,1l02\LC8,2)02
480 z026\ZI08\Z202
510 xoa
520 FOR h i TO 3
530 PRINT
540 PRINT "TEN NUM8~RS PLEASE",
550 INPUT NO) ,N(2) ,N(3) ,N(4) ,N(5) ,N(6) ,N(7) ,NCSl,NC9l,NC\0l
560 ~OR 101 TO 10
570 .0NCIl-1
580 IF .0SGNC") THEN 620
5ge ,PRINT hUSE ONLY THE DIGITS 'Gil, '1', o~ '2',,"
600 PRINT "LET'S TRY AGAIN,"\GOTO 530
620 "EXT I
630 PRINT\PRINT "MV GUESS·, "VOUR NO,", "RESULT','NO, RIGHT"\PRINT
660 FO~ Uol TO 10
670 NoN (U)\So0
69~ FOR J'0 TO 2
70P SloA.~CZ2,J)+~.L(ZI,J)+C.MCZ,J)
710 IF S>81 T~E~ 760
720 IF SCSI THEN 74~
730 IF RNOc, 5 THEN 760
74A SoSI\GoJ
760 NEXT J
770 PRINT G,'CU),
780 IF GONCU) THEN 810
790 PRINT "WRONG", X
800 GOTO a80
~\0 XoX+1
820 PRINT "RIGHT",X
8J0 114CZ,N).htZ,N)+l
840 LCZI,NloLCZI,N)+1
850 KCZ2,N)OKCZ2,Nl+1
860 ZoZ-INTell9).g
870 Z03.Z+NrU)
880 ZloZ-l NT CZl9).9
890 Z20NCll)
900 NEXT
910 NEXT T
920 PRINT
9J0 IF X>10 T~EN 9'80
940 IF XCI0 THEN IAIA
950 PRINT "I GUESSED EXACTLY 1/3 OF VOUR NUMBERS,"
960 PRINT "IT IS A TIE GAME,"
970 GOTO \03~
980 PAINT "I GUESSED MORE THAN 1/3 OF VOUR NUMBERS,"
990 PRINT" I .1", "\FOR gOI TO U\PRINT CMoS(?) "NEXT Q
1000 GOTO \030
1010 PRINT "I GUESSED LESS THAN 113 OF VOUR NUM8ERS,"

THIS IS A GAME OF GUESSINa
FOR INSTRUCTIONS, TYP.E '1',

'0'"

'I',

ARRANGE THEl'I IN'THREE LINES OF TEN 'P[GITS·.
I W[LL ASK FOR THEM 1,0 in A. TIME,
.
[ W[LL ALWAVS GUESS FIRST, AND THEN ,LOO~', AT YOUR
tlEXT NUMBER, TO SEE IF I WAS R [GHT.
BI' PURE LUCK' I
OUGHT TO BE RIGHT 10 TIMES.
BL'T I HOPE TO DO BETTER
l'HAN THAT **"'*

TEN NUMBERS PLEASE? 1,0,2,0,2,1,1,1,2,
NY GUESS,

YOUR NO.

RESULT

1
0
2
0
2
1
1
1

RIGHT

1
2
2

2
2

CONGRATULATIONS •• *.n

NO.

RIGHT

RESUL T

NO.

RIGHT

WRONG
R[GHT
R[GHT
WRONG
RIGHT
R[GHT
WRONG
RIGHT
RIGHT

4
5
6
6

WRONG
WRONG
WRONG
~'IGHT

R[GHT

WRONG

WRONG
RIGHT

WRONG

NY GUESS

1
:I.

YOUR NO.

1
2
0
:I.
2

1
1
2

1
1

°1

TEN NUMBERS PLEASE?

7
8
8
9

l0
10

WRONI3
1~ :1~ i. 1, i. L

2;. 2. 2. 2.

NY GUESS

VOUR NO.

RESIJL T

NO.

1
2
2
2
2
1
1

2
2

RIGHT
WRONG
WRONG
WRONG
WRONG
WRONG
R[GHT
WRONG
WRONG
WRONG

11
11
11
11
11

2
2

1
1
1
1
1
1
2
2

:I.

R[GHT

1l
12
12
12
12

GUESSED MORE THAN 113 OF YOUR NUMBERS.
WIN.

I
I

DO YOU WANT TO TRY AGA I N (1 FOR YES,

FOR NO)? 1

TEN NUMBERS PLEASE? 1,1,1,1,1,1,2,2,2,2
NV GUESS
:I.

\030 PRINT
1040 PRINT "DO VOU WANT TO TRY AGHN (I FOR VES, 0 FOR NOl"'
Ue0 INPUT X
1070 IF xol THEN 400
1080 PRINT\PRINT "THANKS FOR THE GAME,'
\a90 END

'fEN IIUMBERS PLEASE? 0,1,2,0, l., 2, 0, 1, 2, 0

1020 PRINT "'rOll BEAl,ME.

ELSE TYPE' 0'? 1

PLEAS~, TAKE A pi,ECE OF PAPER AND WRITE MWN
THE DIGITS '0', :'1', 'OR '2' THIRTY' TIMES AT RANDOM.

YOUR NO.

RESULT

R[GHT
WRONG
RIGHT
WRONG
WRONG
WRONG
RIGHT
RIG.HT
WRONG
WRONG

:I.

2
2
2
2
2
:I.
:I.

1
1
:I.

2
2
2

NO.

R[GHT

RIGHT

TEN NUMBERS PLEASE? 0, 0. 0, 0, 0, 0, 2,2,2,2
N~

GUESS

:I.
1
1
1
1
:I.

:I.
1
1
1

YOUR NO.

RESUL T

NO.

o
o
o

WRONG
WRONG
WRONG
WRONG
WRONG
WRONG
WRONG
WRONG
WRONG
WRONG

4
4
4

o
o
2
2
2
2

4
4

4
4
4
4

TEN NUMBERS PLEASE? 0,2,O,2,O,20,O,2,O

? 2
USE ONLY THE DIGITS . . 8 ... ~

... :1. ... ~

OR .. 2 ....

LET'S TRY AGAIN.
TEN NUMBERS PLEASE? O,2,O,2,O,2,O,2,O,2
IW GUESS

YOUR NO.

RESUL T

NO.

:I.
:I.
:I.
:I.
1
1
1
:1
:I.
:I.

o
2
o
2
o

WRONG
WRONG
WRONG
WRONG
WRONG
WRONG
WRONG
WRONG
WRONG
WRONG

4
4
4
4
4
4

o
2

R[GHT

4·
4
4

I GUESSED LESS THAN in OF YOUR NUMBERS.
YOU BEAT ME.
CONGRATULATtONS ••••
00 YOU WANT TO TRY AGAIN (1 FOR YES,

THANKS FOR THE GRME.

0 FOR NO)? 0

DOGS

DOG RACE

Description
This is a dog race game similar to those found in penny arcades
and amusement parks. The prior racing experience of each dog
(wins and losses) has a bearing on the outcome of the race.
After this is posted, up to 19 players may bet on a dog.
Maximum bet is $500.00 and minimum is $2.00.
After all the bets are in, the odds will be posted and the race
begins! After each days's racing, the track will close and
record the performance of all the dogs in a permanent file
which is called the next time the program is run.
Computer Limitations
DOGS was written for a DIGITAL EduSystem 50 (Timeshared-8);
consequently, the file handling routine (Lines 25, 30, 35, 55,
975, 985, 1085) may have to be changed for other systems.
Program Author
The author remarks that he is now 15 and started using a PDP-8
at the age of 12. Since then he has compiled 4 notebooks of
programs in BASIC, FOCAL, FORTRAN, and ALGOL. Of his 23 BASIC
games, 5 are published in this book.
Victor Nahigian
39 Beaver Road
Weston, MA 02193

PROGRAM LISTING
555
560
565
570
575
580
585
590
595
500
605
610
515
520

5 REM
10
15
20
25
30

V,NAHIGlAN
8TH GRADE
DOG RACE GAME
DIM S(10l.C(10),J(20".(l0),AC10)
DIM N$(2~),H$(10),P(2.)
DIM Y(10),B(lI),M5(20)
RECO~D V
RECO~D X

OPEN

40
45
50
55
50
65
70

IF 8906 THEN 70\FOR 1 0 1 TO 10\GET 8,25,I\V9 o V9+V\"EXT
IF V9<25 THEN 60\IF V9.200 THEN
55
GOTO 100
UNSAVE 8\UNSAVt. 9
PRINT "PI.EASE wAlT, DISREGARD THE 25 BEl.l.a"
PRINT\PRINT\PRINT\PRINTWRINT\Sg06\GOTO
35
FOR 1 0 1 TO 25-V9\RANOOMIZE\.oINTC10+RNO(X,,+I\GET 8,25,H

8,"~INS"'OPEN

9,uLOSSES"

8,25,~\FOR

15 V-V+l\PUT

Tel TO

l~'IF

HeT THeN

625 IF

80 GET 9,30,T\XaX.l\PUT 9,30,T

530
635
640
645
650
655

85 NEXT T
90 PRINT Cl<k$(35)1
95 NEXT I
100 PRINT\PRINT\PRINT
105 PRINT TAH(10)1"wELCOME TO ROOK-hDAY RACE TRACKIII"110 PRINT\PkINT
115 PRINT' "DO YOU WANT THE INSTRUCTIONS"I\INPUT 1$\GOTO 215
120 PRINT"
THIS IS .6. DOG RACE GAME. T'"'E~E ARE. 1111 DOGS"
125 PRINT "'HICH RUN IN THIS RACE, THE WINS AND I.OSSES
OF"
130 PRINT "EACH DOG AME RECORDED 80 THAT EVEN AFTER
YOU"
135 PRINT "I.OG-OFF, THE WINS AND LOSSES OF THE DOGS WILL STILL"
140 PR INT "BE R!;CORDED,"
145 PRINT"
THE WINNER OF THE RACE wIl.l. aE DETERMENED BY HOW"
150 PRINT "NANY WINS ANO LOSSES EACH DOG HAS, AFTER THE WINS AND"
155PRINT "LOSSES OF EACH DOG HAVE BEEN POSTED, YOU wII.L HAVE A "
160 PRINT "CHANCE TO BET. NO MORE THAN 19 PEOPLE ARE ALLO.ED"
165 PRINT "TO 8ET IN THIS GAME, WHEN BETTING. YOU CANNOT BET OVER"
170 PRINT n$51l.H!l.011 AND MUST BET AT LEAST $2.00. MORE Tl-IlI,to.: ill
175 PRINT "PERSON MAY BET ON THE SAME DOG, AFTER THE BETS"
180 PRINT "ARE MAUE THE ODDS WILL BE FIGURED AND POSTED AND THE"
190 PRINT
195 PRINT

"I~

YOUR

~AVOR.'1

21~ PRINT\.RINT TAB(10)I"GOOO LUCKII"\GOTO
215 IF 1$0"YES" THEN 120\GOTO 220
220 GOSuo 225\GOTO
2~5

225 PRI NT \PR I NT\PR I NT
230
235
240
245
250
205
260

220

~5(E"M5(UoP(E)

II,

775 N7 o N7+P (E)
780 NEXT E
785 GOTO
835
7~0 IF B{G)c2 THEN
8~.
795 GOTO
805
80~ 8(G)01
B05 M'INT(l00«b(G).P(E)+P(E»)/100)

FOR 101 TO 10
READ H$(!)
GET B,25,I\GET 9,30,1
PRINT H$II),I,V,X
NEXT I\RETURN
PRINT\PRI'T\PRINT "HO. HANY wISH TO BET" 1
INPUT Q\I' Q<20 THEN
270

265 PRINT "NO MORE THAN 19 ALLOweD"\PHINT\GOTO

640

77~

760

DOG ", II NUMBER"," WINS" , "LOSSES II

THEN

7155

665
670
575
680
685
690
695
700
705
710
715
720
725
730
735
740
745
750
755

THE STRADGY OF THIS GAME IS TO PICK THE WINNER"
!!'.!SUCH A I>;Ay THAT THE 0005 ON THAT DOG ARE GOOD"

~(1)<>0

PRINT TAB (2) 1 "XXXXXXXFINISHXXXXXXXX"
GOTO
511
FOR y02 TO 22
PRINT TAB(YlI"X"IUB(Y)ICHR$(135l/
IF Y07 THEN
685
NEXT Y
GOTD
681
PRINT " F.INISH",
.,.-13
GOTO
655
PRINT
PRINT II
FOR 1-2 TU 22\PRINT "<""NEXT I\PRtNT
IF 0<01 THcN
735
GO'(1)
FOR 12=1 TO 0
If S(wrI2))<S(WCl2+llJ THEN
725
NEn 12
GO TO
735
GoWII2+n
GOTO
715
PRINT
PRINT
PRINT "A'D 1Ht. WINNER IS OOG NUMBER"IG,H$(G)
PRINT\GOTO
970
RESTORE
FOR Eol TO
IF G=JJU THeN
790

660

185 PRINT "RACE WILL 8EGI"'l."

200 PRINT

IF 5(R).21 THEN 590.
NEXT R
PRINT
NEXT P
GOTO
625
PRINT TAB(R<2l1RICHR$(141)
GO TO
560
IF W(I)<'. THEN 605
W(I)"R
GO TO
56.
D' 2
W(O)oR
000+1
GOTD
5bl

255

810 PRINT "CONGRATULATION IlN$(E)" YOU HAVE WON i"IM
815
82121
825
630
B35
840

270 FOR Zo.! TO G
275 PRINT "BETTOR'S NAHE"I\INPUT N$(Z)
280 PRlfI.IJ "DOG'S NUM8ER";\!NPU'f' JeZl
285 PRINT "AND YOUR 6ET'IJ\INf)UT P(Z)
290 IF P(Z)<2 THEN 300\IF P(Z»S00 THEN
315
295 PRINT\NEXT Z\GOTO 325
31210 PRINT tIVOlI MUST BET "T LEAST $2.~0, TRY AGAIN "N$(Z)
305 PRINT "YOlll1 BET"'\!NPUT PCl)
310 GOTO
29~
315 PRINT It YOU CAN'T ~ET OVER 50(;J,f2I0 "NS(Z,II TRY A.GAINfI
320 GOTO
305
325 FOR 101 TO 10
330 B(I1)oB{1I)+P(!)
335 NEXT I
340 FOR 101 TO Q 'AMOUNT OF
PEOPI.E PLAYING
345 FOR 1301 TO 10'DQGS
350 IF JIIl<>13 THEN
360
355 HI3)oAClJ).P(1l
360 NEXT 13
365 NEXT I
370 fOR 101 TO 10
375 IF A(I»'2 THt.N 390
380 BCl).jNTlbllll<RNDIX))+1
385 GOTO
395
390 BIl) -I'll( (" (11 )oA (!) I/(A(1)-( ,17H(Il)"
395 IF 0(!)02 THEN 405
4~0 GO TO
41~
405 B(I)02
410 NEXT I
415 PRINT
420 PRINT "DOG'!, "NUMBER!!, "ODDs"
425 FOR 1=1 TO 10

M5(UOM5(E)+M
N7.N7_M
PRINT
GOTD
780
PRINT ""OUI.D YOU AVID RACE f-ANS I.IKE TO PLAY AGAIN" 1
INPUT 1.$

845 IF L.$iI"YESIt THEN

870

850 PRINT\PJ.<lNT nPERSON","AMOUNT"\FOR 1=1 TO

855 PRINT N$(l),M5(U\NfXT I\PRINT
880
865
870
875
880

ItCOMPI',~7

FOR Io! Tu b\P"INT\NEXT I\GOTO 1085
GOTO 1"85
FOR Ko\ TO 10
A«)00
SIK)o~

885 "(K)o.
890 C«)00
895 J(K)"0
900 6(11)0.
905 B(K)00
910 NEXT K\GOSUB

915 PRINT "ANY
920
925
930
935

940 IF CSauNQ"
945
950
955
9621
965

225

NE~COMERS"~\INPUT

FOR Io! TO Q
PRIN.T N${I)" YOUR DOGS NUMBER""INP\JT J(ll
PRINT "AND .YOUR BET"I\INPUT P(I)
IF P(I)<2 THEN 950\IF P(I).500 THEN 960\NEXT
lH~N

325

GOTO 1"2b

PRlf..IT "YOU MU.ST- BE:.T A.T LEAST $2.00 "NSCl) .. YOUR BET"J
INPUT P(Il\GOTO

935

430 PRINT H$(I),I,B(I)"1 1"

PRINT "YOU C.A"'ItT BET OVER $500.00 "NiO)" TRY AGAIN II
9.30
970· FOR I-I TOI~
975 GET 8,25,I\GET 9,30,1

435 NEXT I
44~ FOR 1"1

985 X-X+!\

980 I f

445

G~T

450
455
460
465
470
475

RANDO"IZE
Y (!) ol"T (V lABS 1 (V+X)) .INT( V<~ND (X)).1)
IF Y(I)<7 THEN
47.
GOTO
470
YC!)0INTI7+RND(X"+1
NEXT I
FOR Rol TO II
S(R)"P,
NEXT R
PRINT
PRINT TAB(2)1"-1 2 3 4 5 6 7 8 9 II","ANO THEY'RE OFFIll"
PRINT CHR$ (135) ICHR$ (135) 1 eHR$( 135) 1 CHR$ (\ 35) 1 CHR$ (135) 1
FOR Ro. TO 10

480
485
490
495
500
505
510
515
520
525
530
535

8,2b,I\GET 9,30,I\IF V.X<_0 THEN

470

99~

pur 9,3~,1
1 ~0e

995 VilV"'1 \PUT 8,25, I
1000 ~EXT
1005 GOTO

75~

1010 DATA "FASTER II , "ZELDAII,"SPEEOY", "ZIFfLE", "KILLER"
1015 O,.TA IIBURSON", "BUGZY", "SNOOPYII, "LASSIE", tlWINNER:"
1020
1025
1030
U35
1040
1~45

1050
1055
1060

1065

C(R)=INT(Y(R)+RNO(X))+1
S(R)oS(R).C(R)
NEXT R
PRINT TAB (2) I" XXXXXXXXSHRTxxxxxnx"

1070
1075
1080
1085
1090
1095

540 FOR P-l fU 20
545 FOR R~I TO 10
THEN

lOG THEN·

990. GO TO

RAN~OMIZE

550 IF poSeR)

G.OTO

580

GOTO 1085
PRINT\PRINT 'HOW MANy Nf.CO~ERS' 1 \Q40~\INPUT J6\Q4'Q+J6
IF Q4'2~ TI<EN 1035\Q.Q4\G40@\GO TO 1040
PRINT "NO MORE TH" 19 ALLOwt.D, YOU U NOW HAVE "Q\G4=0\GOTO
fOR ZoI TO Q
PRINT "BETTO.RS NAME"I\INPUT "'«Z)
PRINT "DOGS NUMB~R""INPUT J(Z)
PRINT "AND YOUR BET"I\INPUT P(Zl\IF P(Z)<2 THEN
107~
IF P(Z»500 T~EN 1075
PRINT\NEXT Z\GOTO 325
PRINT "YOU MUST BET H I.EAST S2,00"\GOTO 1055
PRINT "YOU CAN'T RET OVER $500,00"\GOTO
1055
GOTO
325
CI.OS~ 8\LLOSE 9
REM
ENO

1~25

SAMPLE RUN
WELCOME TO ROOK-A-WlY RACE TRACKIII

XXXXXXXXSTARTXXXXXXXX

DO YOU WANT THE INSTRUCTIONS? YES
THIS IS A DOG RAGE GAME. THERE ARE I S DOGS
WHICH RUN IN THIS RACE. THE WINS AND LOSSES
OF
iACH DOG ARE RECORDED SO THAT EVEN AFTER
YOU
LOG-OFF. THE WINS AND LOSSES OF THE DOGS WILL STILL
IE REC OROED.
THE Ii INNER OF THE RAGE WILL tiE DETERMENED BY Hatl
!ANY WINS AND LOSSES EACH DOG HAS. AFTER THE WINS AND
LOSSES OF EACH DOG HAVE BEEN POSTED. YOU WILL HAVE A
CHANCE TO BET. NO MORE THAN 19 PEOPLE ARE ALLOWED
TO BET IN THIS GAME. WHEN BETTING. YOU CANNOT BET OVER
5500.00 AND MUST BET AT LEAST s2 .0S. MORE THAN I
PERSON MAY BET ON THE SAME DOG. AFTER THE BETS
ARE MADE THE ODDS WILL BE FIGURED AND POSTED AND THE
~CE WILL BEGIN.
THE STRADGY OF THIS GAME IS TO P leK THE WINNER
INSUCH A ~lIAY THAT THE ODDS ON THAT DOG ARE GOOD
IN YOUR FAVOR. '

GOOD LUCKII

DilG

NUMBER
I
2

FASTER
ZELDA
SPEEDY
ZIFFLE
KILLER
WRBON
BlGZY
SNOOPY
lASSIE
WINNER

"S6

WINS
4
4
7
I
S
I

7
8
9
IS

4
II
II

LOSSES

21
21
18

24
25
24
21
21

XXXXXXXFINISHXXXXXXXX
XXXXXXXXSTARTXXXXXXXX

25
25

3
4

HOW MANY WISH TO BET? 7
BETTOR' 5 NAME? BOB
, OOG' S NUMBER? I
AND YOUR BET? 4111S

III

BETTOR'S NAME? STUART
DOG'S ;lUMBER? j
AND ~'YOUR BET? 50

9
7

BETTOR'S NAME? VIC
OOG'S NUMBER? IS
AND 'YOUR BET? HilS

BETTOR'S NAME? JOHN
DOG'S NUMBER? B
AND 'YOU!i BET? I 20
BETTOR'S NAME? ROBERT
DOG '5 ;lUMBER? 5
AND . YOUR BET? 69

BETTOR'S NAME? ED
DOG'S NUMBER? 9
AND 'YOUR BET? 5SS
BETTOR'S NAME? TOM
DOG'S NUMBER? 2
AND ~'YOUR BET? 6SS
YOU CAN'T BET OVER 5SII,S0 TOM TRY AGA IN
YOUR BET? I
YOU MUST BET AT LEAST S2.SS. TRY AGAIN TOM
YOUR SET? 3511

NUMBER
I

DOG
mSTER
ZELDA
SPEEDY
ZIFFLE
KILLER
BJRBDN
WGZY
SNOOPY
lASSIE
WINNER

2
3
4
5
6
7
8
9
III

XXXXXXXFINISHXXXXXXXX
XXXXXXXXSTARTXXXXXXXX

ODDS
I
3
4
37 • • I I
15114
26 • I
224 • 'I
719 • 1
"14 I I
2 • I'
17 • ~ I

•

10
8

•

-I 2 3 " 5 6 7 8 9 III
XXXXXXXXSTARTXXXXXXXX

2
7

AND THEY'RE OFFIll

2
3
6

6
B

XXXXXXF IN ISHXXXXXXXXX

••• *.****************
7
AND THEIIINNER IS DOG NUMBER 5

COIIGRATULAT ION ROBERT YOU HAVE WON S 1863

XXXXXXXF I N ISKXXXXXXXX

KILLER

EVEN

PICK UP AN EVEN NUMBER OF OBJECTS

Description
This is a game between you and the computer. To play, an odd
number of objects (marbles, chips, matches) are placed in a row.
You take turns with the computer picking up between one and four
objects each turn. The game ends when there are no objects left,
and the winner is the one with an even number of objects picked
up.
Two versions of this game are printed herein. While to the player
they appear similar, the programming approach is quite different.
EVEN, the first version, is deterministic--i.e., the computer
plays by fixed, good rules and is impossible to beat if you don't
know how to play the game.
The second version, EVEN 1, is much more interesting because the
computer starts out only knowing the rules of the game. Using
simple techniques of artificial intelligence (cybernetics), the
computer gradually learns to play from its mistakes until it
plays a very good game. After 20 games, the computer is a
challenge to beat. Variation in the human's style of play seems
to make the computer learn more quickly. If you plot the learning curve of this program, it closely reseIDbles classical human
learning curves from psychological experiments.
Program Authors
EVEN:
Unknown

EVEN 1:
Eric Peters
Digital Equipment Corp.
Maynard, MA
01754

16
96

EVEN

PROGRAM LISTING

SAMPLE RUN

n-'
10 IoU MI_'

THIS IS A TWO~PERSON GAME CALLED 'EYEN WINS,'
TO PLAY THE GAME. THE PLAYERS NEED 27 I'IAIi!9LES OR
OTHER OBJECTS ON A TABLE,

I LET

20 DIM M(20).Y(20)
30 PRINT"
THIS IS A TWO-PER80N GAME CALLED 'EVF.N WINS,'"
40 PRINT"TO PUY THE GAME. TH~ PLAYEPS NEED 27 MARaLES OR"

50 PRINT"OTHER OBJECTS ON A TABLE,"
60
70
80
90

PRINT
PRINT
PRINT"
THE 2 PLAYEaS ALT~RNATE TURNS. WITH EACH PLAYER"
PRINT"REMOVING FROM 1 TO 4'MARBLES ON EACH MOVE,
THI: GAME"
100 PRI'T"ENDS WHEN THERE ARE NO MAR RuES UFT, AND THE WINN;;R"
110 PRINT"IS THE ON~ WITH AN ~VEN NUMBER OF MARBLES,"
120 PRINT
110 PRINT
140 PRINT"
THE ONLY RULES ARE THAT (I) YOU MUST ALTERNATE TURNS,"
150 PRINT" C2) yoU MUST TAKE BETWEEN I AND 4 MARst,E! EACH TURN."
160 PRINT"AND (3) YOU CANNOt SKIP A TUPN,"
170 PRINT
180 PUNT
190 PIIlNT
200 PRINT"
TYPE A I IF IOU WANT TO GO FIRST, AND TYpE"
210 PRINT"A 0 IF YOU WANT M~ TO GO fIRST"
220 INPUT C
230 IF cae THEN 250
240 GOTO 1060
250 LETTa27

260

L~T

(2)
~ND

THE ONLY RULES ARE THAT (1) YOU MUST i'lL TERNRtE TURNS.
YOU MUST TRKE BETWEEN 1 AND 4 MARBLES EACH TURN.
(3) YOU CANNOT SK I P A TURN,

TYPE A 1 IF YOU WANT TO GO FIRS1.
A

TOTAL' 27
WHAT IS YOUR, FIRST MOVE?

'?1
TOTAL

PRINf""

AND WHAT IS YOUR NEXT MOYE.

TOTAL •

MY TOTAL ~IS 3

YOUR TOTAL 1 S 3
1 PICK UP 4 MARIiILES,
TOTAL' 11
AND WHAT IS YOUR NEXT !'IOYE.

MY TOTAL IS

=",1

TOTAL • 15
YOUR TOTAL IS 5
1 PICK UP 4 MARBLES,
TOTAL • 11
AND WHAT IS YOUR NEXT MOYE,

MY TOTAL IS 11

sse LET HI-Ml0N

560 LET T-ToM
510 GO TO )00
580 LET MOT
590 LET
/;00 GO TO 830
610 REM 250 IS WHERE I wIN,
620 IF RC4,7 THEN 660
630 IF K>l,S THEN 660
640 LET M-I
650 GOTO 670
660 LET M04
670 LET roT-M
680 LET MlcMl0M
690 GOTO 300
700 RE~: 1 AM KEADY TO ENCODE TH~ STRAT FOR WHEN OPP TOT IS nE~.
710 IF R<I,S THEN 1020
720 IF R>S.l THEN 1020
730 LET M-R-I
740 LU Ml=MI+M
750 LET TaT-M
760 IF T<,2 THEN 790
710 REM [S • ZERO H~RE
780 GOTO J00
790 REM
ZF.RO HERt

TOTAL • 18

T-'-"

YOUR TOTAL j S I>
I PICK UP 3 MARBLES,
TOTAL • 7
AND WHAT IS YOUR NEXT MOYE.

MY TOTAL 15 14

11
TOTAL·

YOUR TOTAL 15 7
I PICK UP 1
MARIiILE~
TOTAL
5

AND WHAT IS YOUR ,NEXT MOYE.

MY TOTAL IS

TOTAL' 2
YOUR TOTAL IS 10
I PICK UP 1 MARBLE~
TOTAL
1

rs •

8B0 PRtNT"i ttICK UP",M. 1I MI.RBLtS.tI

AND WHAT IS YOUR NEXT MOYE;

810 PRINT"'t

820 GOTO 880
830 REM tHIs IS WHERE r WIN
840 PRINT "I PICK UP"'M'" MARBUS,"
850 PRINT""

THAT 15 ALL OF THE MARBLE$,
MY TOTAL 15 16

YOUR TOTAL IS 11

I WON,
DO YOU "'FlNT TO PLAY
AGAIN? TYPE 1 FOR YES AND 0 FOR NO,

A811 PRI~T " THAT IS AuL
TH~ ~ARBLr.S,"
890 PRINT""
900 PRINT'
MY TOTAL IS",MI,YOUR TOTAL lS"'~1
910 PRINT'"
920 If INTeMI/2)-MI/2 TKE' 95~
930 PRINT"
YOU WON, DO YOU WANT TO P~AY"

940 GOT a 9&0

950 PRINT"
1 WOk,
DO YOU NANT TO PLAy"
960 PRINT"AGAIN1 TYPE 1 rOR YES AND 0 tOR NO."
970 INPUT Al
980 n Al a 0 TriEN 1030
990 LET MiaS
1000 LET nae
1010 GOTO 200
1020 GOTO 640
1030 PRINT""
1040 PRINT"
OK,
s n YOU LATER.,"
1050 GOTO 1230

1060 LET T • 27
1070 PUNT
1080 PRINT
1090 PRINT
11~~ PRINT"TOTAL -",T
1118 PRINT
1120 PRINT
lUll PRINT"
WHAT IS YOUR FIRST MOVU"
1140 npUT Y
1150 GO TO 360
1160 PRINT
1110 PRINT"
THE NUMBER OF MARijLES YOU TUE MUST BE A POSITIVE"
1180 PRINT"INTEGER BETWEEN 1 ANU 4,"
11911PRlNT
1200 PRINT"
WHAT IS YOUR NEXT MOVU"
t'218 PRINT

.m: ~~~O m

= 26

YOUR TOTAL IS 1
I PICK UP 3
KARBLES,
TOTAL • 23

PRINT"
AND WHAT IS YOUR NeXT MOVE, MY TOTAL U" ,MI
INPUT Y
P$tINTtlll
370 I f Y<1 THEN 1160
]80 IF 1>4 THEN 1160
390 IF ycaT THEN 430
400 PRINT"
YOU HAVE TitlED TO TAKE MORE MARBLES THAN THERF. ARE"
410 PRINT"LEFT.
rRY AGAIN."
420 GOTO 350
430 LET n.YloY
440 LET T=T-Y
450 IF TCO THEN 880
460 PRtNT"TOTAL
470 PRINT'"
480 PRINT"
YOUR TOTAL IS • n~1
490 IF T<, 5 THEN 880
500 Ion R=T-UINTeT/6)
510 IF IN1CII/2)=rI/2 THtH 70~
520 IF TC4,2 tHEN 580
5J0 IF R>3.4 THEN ~20
540 LET M-ROI

860 PRINT "TOtAL. 0 11
870 LET M1CMI+M

AND TYPE

8 IF YOU WANT ME TO GO FIRST
?1

M.2

270 PRINT'TOTAL =",T
280 LET MI=Ml+M
290 ,LET TaT-M
1~0 PRINT"1 PICK UP',M," MARBLES."
110 IF ra0 THEN 880
320 PRINT"TOTAL =', T
330
340
350
]60

THE 2 PLAYERS ALTERNAtE TURNS. WITH EACH PLAYER
REMOVING FROM 1 TO 4 MARBLES ON EACH MOYE,
THE GAME
ENDS WHEN THERE ARE NO MARBLES LEFT, RND THE WINNER
IS THE ONE WITH AN EYEN NUM8ER OF !'IARBLES.

PROGRAM LISTING

EVENl

SAMPLE RUN
~:UN

1 P.:INT "GAME OF EVEN WINS - C\'BERNETIC VERSION": PRINT
2

INPUT

E'y'EN1
05: 54 PM
I:JAME OF EVEN WINS -

"00 .,.'OU WANT INSTRUCTIONS (YES OF.: NO)";Fi$

3 IF A$="NO" THEN 19
4 PRINT:PRINT "THE GAME IS PLAYED AS FOLLOWS:"
0, PR I NT "AT THE BEG I NN I NO OF A GAME, A RANI'OM NUMBER OF CH I PS ARE"
6 PRINT "PLACED ON THE BOARD.
rHE NU~lBER OF CHIPS ALWAYS STARTS"
7' P,:INT "AS AN ODD NUMBER.
ON EACH TURN, A PLAYE,~ MUST TAKE ONE, "
:,: PRINT "TWO, TH.:EE,· OR FOUR CHIPS.
THE ,IlNNH: IS THE PLAYER WHO"
9 PRINT "FINISHES WITH A TOTAL ~WMBER OF CHIPS THRT 15 EVEN. "
1121 PF:INT

"THE COMPUTER STARTS. OUT KNOWING ONLY THE RULES OF THE"

1.1 F'RINT "GAME.
IT CiF.:ADUALL'r' LEARNS TO PLA't' WELL.
IT SHOULV BE"
12 PRINT "DIFFICULT TO 8EAT THE COMPUTER TWENTY GAMES IN R ROW.
TYPE '0' AS YOU.:

~lOVE.

": PR I NT

I)IM R(L 5) ;f;;:ANDOMIZE
25 L=0: E=(1

"3:121 FOR 1=121 TO .5

AT THE BElli NN I Nil OF FI .GAME..

R RRNC.OM NUMBER Of' CH I PS ARE

THE NUMBER OF CHIPS RUm'r'S STARTS

AS AN ODD NUMBE".
ON EACH TURN, A PLAVEF: MUST TAKE ONE,
TWO.. THREE. OR FOU": CH I PS.
THE WnINE": 15 THE PLA\'ER WHO

TO QU I T AT AN'T' T I ME,

40 F.: (1 .• 1)=4
1~:(0 .• 1)=4

our

T'T'PE ... 0~

AS 'T'OUF.: MOVE.

THE~:E

fIF::E 1~i CHIPS ON THE E:OA~:C).
COMPUTER TAKES 4 CHIPS LEAYING 11
THERE ARE 10 CH I PS ON THE E;ORRD.
COMPUTER TAkES 4 CHIPS LEAVING 6
THEf<:E ARE 3: CH I PS ON THE 80AFW.
COMPUTER TAKES 3 CHIPS
GftME OVEF:
'r'OU WIN! !

I\jE:~:T I
'('0 11=121: E:=0
9121 P=INT( (13:*Fi:NC'+9)/2;'*2+1
:1.0121 IF P=:1. THEN 53:121

t:::121

11121 PRINT "THERE ARE"P"CHIPS ON THE BOARD. "
1.:<:0 U=E
13:121 Ll=L
14121 E=(A/2-INT(A/2»*2
1·50 L=INT«P/6-INT(P{"'6»)*t:+ 5)
11;:!~ 1 F R (E., L) )=P THEN 3:20
:1.701"1=R(I::.,L)
:1:::0 IF M(=0 THEN 3:70
:1.$1121 P=F'-M
:2121121 IF M=:1. THEN 51t1
210 F'I':INT "COMPUTEI': TFlKES"M"CHIF'S LEAVING"P"
2:20 E:=8+M
2:]:0 INPUT M
~:4Q1 M=INT(M)
250 IF M(1 THEN 450
;2t;:1-) IF rl)4 THEN 460
27'0 IF M)P THEN 46£1
:!::::tZt IF M=P THEN 36.0
251121 p=F'-·rl
3:00 A::A+M
]:1121 OOTO 1tH)
:];~:0 IF P"'1 THEN ~,50
3:3:0 PI':INT "COMPUTEF: TAKES"P"CHIF'S"
]:4121 R(E,L)=P
}:50 E:=E:+P
36121 IF 8/2=INT(8/2) THEN 42121
370 PRINT "GAME OVER
YOU WIN! !":PRINT
.3:$10 IF FU E., L) =1 THEN 4:::0
400 R(E.L)=R(E.L)-l
4:1.121 GOT/) ·?0
420 PI': I NT "GAME O'o,IEF:
I WIN!!!": PR I NT
.43:0 GOTO "('.0
450 IF 1"1=0 THEN 570
YOUF~ ~1OVE";
4t;:121 PI': I NT M" I::;: FIN I LLEGAL MOVE
470 GOTO 23:121
4::':121 IF 1': (E1, L1) =1 THE~~ 70
49121 P(EL L1)=R(EL Ll)-l
~;12I0 GOTO 70
~:;:10 P~: 1 NT "Cot1PUTER TAKES 1 CHI F' LEA ....' I NG "P"
~;:20 GOTO 2:20
510 PRINT "THERE IS 1 CHIP ON THE BOARD"
.:i4121 GOTO 120
~:;~5v.1 F'I':INT "COMPUTEF: TFrl<ES 1 CHlP"
:;£'121 (;OTO 3:4121
::i?,zl ENe'

THE GAME IS PLA','ED AS FOLLOWS:
PLACED ON THE E:OARD.

WITH A TOTAL NtJMBER OF CHIPS THAT IS EVEN.
THE COMPUTER STARTS
J<NO~HNCi ONL'r' THE RULES OF THE
GfIME.
I T G~:ADUALL 'r' LEARNS TO PLA~' ~JELL.
I T SHOUU~ BE
I) I FF I CUL T TO BEAT THE COMPUTEF.: TWENTY GAMES I N A ROW.
Hi:',' IT!!!

~:0

5121

(:'0 'T'(l1) WftNT INSnWCTIONS ('T'ES OR NO)? 'T'E5

FI~15HE5

1:; F'F:INT "TR't' IT!! ~":PRINT

14 PR I NT "TO QU IT AT ANY TIME,

29-JUN-73:
C'T'BERNETIC VEF::SION

THEI':E fll':E 21 CHIPS ON THE 80AF.:(:r.
COMPUTER. TAkES 2 CHIPS LEAVING 19
TI-I£I':£ ARE 17 CH I PS ON THE BORFW.
COMPUTER TAkES 4 CHI.PS LEAVING 1.3
THEI':E FlI':E 9 CHIPS ON THE BOARO.
COMPUTER TAKES 2 CHIPS LEAVIW:J
TI-IEr::E AI':E £. CH I F'S ON THE BOAF~D
COMPUTEI': TAKES 4 CHIPS LEAVING
THERE IS 1 CHIP ON THE BOARD
COMPUTEI': TAKES 1 CHIP
GHME OVE~:
'T'OU /.Ii IN! !

. 'r'OlIR NOVE";

THE.f.:E flF:E 15 (:1-1 I F'S ON THE E:ORf.:D.
COMPUTER TAKES :£: CHIF'S LEAVING 13
THEI~:E Ar::E 9 CH I PS ON THE BOAP[).
COMPUTEr:: TAkES 2 CHIPS LEAVING 7

... YOUR NOVE? L

... YOUR MOVE? 3

... 'r'OUR MOVE?
'r'OUR MOVE? 4
. 'r'OUR

~lOVE?

.. \·'OUF~

~1OVE?

YOU~:

~lOVE?

... YO UP

THE,:E ARE 6 CH I F'S ON THE E'OA"'C..
COMPUTER TAKES 3: CHIPS LEAVING.:'(jANE O'r'EI':
'T'OU WIN! !
THERE ARE 19 CHIPS ON THE BOARD
COMPUTER TAkES 1 CH I F' LEAV I NG 1:::
THEF.:E: frl':E 16 CH I F'S ON THE BOARD
COMPUTER TAKES 4 CHIPS LEAVING 12
THEI':£ ARE::: CHIF'S ON THE En)AFW.
COMPUTER TAKES 4 CHIPS LEAVING 4
l~f:IME OVEF'
'r'OU WIN ~ I
THE~:E rlRE 11 CHIPS ON THE BOAI':D.
COMPUTER TAKES 4 CHIF'$ LEAVINI:J
THI::I':E A~:E 6 CH I PS ON THE 80A~:[~
COMPUTER TAKES 2 CHIPS LEAVING
THEF~E IS 1 CH I P ON THE EnJA~W
COMPUTER TAKES 1 CHIP
GAME OVER
YOU WIN! !

lr'OUR NOVE".;

THF ,:E flf.:E 15 CHIPS m~ THE 80AF::[i.
CO :'UTE": TAKES 2 CHIP::;: LEAVING 13
Ti--J;...;:E rll':E 9 CHIPS ON THE E:OAF.:C'
COMPUTER TAKES ;2 CHIPS LEAVING?
THEI':E AI':E 6 CH I PS ON THE BORREi.
COMPUTER TAKES 1 CHIP LEAVING 5
THEI;::E ARE 4 CH I PS ON THE E:OARD.
COMPUTER TAKES 4 CHIPS
l:3fIME: O'~E":
YOU WIN '!

F:E.:FtC,'T'

THEF:E A~:E: :17 CHIPS ON THE E:OAR(;.
COrIPUTEF: TAI<:ES 4 CHIPS LEAVING 13
THEF.:E ARE 9 CHIPS ON THE E:OAFW.
COI"1PUTEF: TAI<ES ;2 CH I F'S LEA ....' r NG?
THERE ARE 6 CHIPS ON THE BOARD.
COMPUTER TAKES 1 CHIP LEAVING 5
THEF.:E ARE 4 CH I F'~, ON THE BOFIFW.
C.OI"1PUTE~: TAVES 3: CHIPS LEAVING. 1
GI:fI"1E O'~'ER
I ~HN!! I
THE!':E A!':E 19 CH I PS ON THE BOARC'.
COMPUTER TRI(ES 1 CHIP LEAVING 18
THERE AI':E 16 CH I PS ON THE BOAFW.
COMPUTER TAKES 3: (HIPS LEAVING 13
THERE ARE 1121 CHIPS ON THE BOArW.
COMPUTER TAKES 4 CHIF'S LEA ..... ING 6
THEPE AF:E ~i CH IPS ON THE 80AF~[i
COMPUTER TAKES 4 CHIPS LEAVING 1
(irlI"IE (I 'v'E!':
I /.oJ IN! ! !
THEF.:E ARE 21 CHIPS ON THE BOA~:[)
TAKES 2 CHI PS LEA ..... I NO 19
THERE ARE 1::: CH I P$ ON THE BOARO
COMPUTER TAKES 1 CHIP LEAVING 1~
THEPE ARE 13 CHIPS ON THE BOAFW.
COMPUTER TAKES 4 CHIPS LEA ..... ING
THEF.:E fll':E 5 CH I PS O~~ THE BOAF.:D.
COMPUTER TAKES 4 CH I PS LEA ....' I NG :1
GAME O'y'ER
'T'Ol! ~J IN! !
C(lMPUTEF~

THERE ARE 11 CHIPS ON THE BOARD.
COMPUTER TAkES 4 CHIPS LEAVING 7
TI-I£I':E ARE 6 CH I F'S ON THE BOARC~.
COMPUTER TAkES 1 CH I P LEA ....' I NG 5
THERE ARE 4 CHIP::;; ON THE E:OAFW.
COMPUTER TAkES 1 CHIPS LEAVING 1
l~flME OVEr<:
I WIN!!!
TI--IEI':E AF.:E :11 CHIPS ON THE BOARO.
COMPUTER TAKES 4 CHIPS LEAVING 7

... 'r'OUR ~lOVE"?

~10VE?

'T'OUP
'r'OUF.:
... 'r'OUF~

~1O""'E?
~10VE"?

4
4

... YOUR MOVE?
'T10UF.: MOVE?

. \·'OUR MOVE? 4
'r'(lUF.: .~lOVE? 1
lr'OU~:

~1OVE?

... 'r'OUR MOVE? 4
~1OVE?

... )-lOUR

YOUR MOVE? 1
~1OVE?

... 'r'OUF.:

'r'OUF.: MOVE? 2
... 'r'OUF':

~lOVE?

~tOVE?

... 'r'OUR

. YOUR MOVE? 1

.. 'r'OUR

~10VE?

YOUR MOVE?
.. 'r'OUR

~lOVE?

'r'OUR MOVE?

.. 'r'OUR MOVE? :1
YO.l)R

~lOVE?

.. YOUR MOVE? 1

... YOUR MOVE? 0

FIPFOP

FLIP-FLOP GAME

Description
The object of this game is to change this:
XXXXXXXXXX
to this:
o 0 0 0 0 0 0 000
by typing in a number corresponding to the position of an "X"
in the line. On some numbers one position will change while
on other numbers, two will change. For example, inputting a
3 may reverse the X and 0 in position 3, but it might possibly
reverse some other position too! You ought to be able to
change all 10 in 12 or fewer moves. Can you figure out a good
winning strategy?
To reset the line to alL XI s (same game), type 0 (zero).
start a new game at any point, type 11.
Program Author
Michael Kass
38 Lake Drive
New Hyde Park, NY

11040

PROGRAM LISTING

SAMPLE RON

THE OBJECT OF THIS PUZZLE IS TO CHANGE THIS:

19
20
39

50
60

REM ••• CONVERTED TO RSTS/E BV DAVID AHL, DIGITAL
REM ••• CREATED BV MICHAEL KASS
HERRICKS HS, NY
PRINT 'THE OBJECT OF THIS PUZZLE IS TO CHANGE THIS:
PRINT
PRINT 'X X X X X X X X X X'
PRINT
PRINT 'TO THIS:
PRINT
PRINT '0 0 a 0 0 0 0 a 0 0'

XXXXXXXXXX
TO THIS:

000 0 0 0 000 0

i:/::'~~ TVPING IN THE NUMBER CORRESPONDING TO TH'E POSITION OF THE LETTER'

:1.20 &"ON SOME NUMBERS, ONE POSITION WILL CHANGE .• ON OTHERS, TWO WILL CHANGE"
T'~PE 0. (ZERO) AND TO START A NEW'
160 &" IN THE MIDDLE OF A GAME, TYPE 11 (ELEVEN)'
170 PRINT
:l.8G RANDOMIZE
190 LET Q=RND<Y)
a00 PRINT "HERE IS THE STARTING LINE OF X'S:'
219 PRINT
220 LET C=B
230 PR 1NT H 1 2
4 5 6 7 8 9 10' N
240 PRINT "X X
X X X X X X X'

B'/
ON
TO
IN

TYPING IN THE NUMBER CORRESPONDING TO THE POSITION OF THE LETTER
SOME NUMBERS, ONE POSITION WILL CHANGE, ON OTHERS .•. TWO WILL CHANGE
RESET THE LINE TO ALL X~ S, TI'PE 0 <ZERO) AND TO START A NEW PUZZLE
THE MIDDLE OF A GAME, TYPE 11 (ELEYEN)

149 &"TO RESET THE LINE TO ALL X' S,

259 PRINT

:1;10 PR INT "I NPUT THE NUMBER";

419
429
430
440

INPUT N
IF N(>INT eN) THEN 310
IF N=11 THEN 18G
IF NH:I. THEN 310
IF N=0 THEN 2~0
IF M=N THEN 510
LET M=N
IF A$IN)="O" THEN 480
LET A$(N)="O"
LET R=TAN(Q-+N/Q-N)-SIN(Q/N)+J:J:6*SIN( 8*N)
LET N=R-INTIR)
LET N=INT(10'N)

X 0 0 o Q XX 0 X X

4150 LET A$(N)="O"

X X 0

4?0 GO TO 610
489 LET A$IN)='X"
499 IF M=N THEN 420
599 GO TO 610
519 IF A$(N)="O" THEN 590
529 LET A$(N)="O"

o0 o 0 0 0 X

INPUT THE NUMBER? 10
123 4 5 67$ 9 :1.0

X 0 0 o 0

o 000 0

INPUT THE NUMBER? 1
1 2 3 4 5 678 9 10

000 o 0 x 0 0 0 0

530 LET R=.592*COTCQ/N+Q)/SIN(N*2+Q)-COSCN)

INPUT THE NUMBER? 6

:;40 LET N=R-INTlR)

1 2 3 4 5 6 7 B 9 :1.0
000 o 0 o 0 x 0 0

LET N=INTl10*N)
IF A.:f:(N)="O" THEN 590
LET A$(N)="O"
GO TO 610

INPUT THE NUMBER? 8
1 2 3 4 5 6 789 10

o0 0 0 0 0 0 0 0 0

590 LET A$(N)=uX"

TRY HARDER NEXT T I ME, IT TOOK YOU :L:l GUESSES
DO YOU WANT TO DO ANOTHER PUZZLEr YES

600 IF M=N THEN 510
610 PRINT"1 2 l 4 5 6 7 B 9 10"

629 PRINT A$(Z)" ";FOR 2=1 TO 10

HERE IS THE STARTING LINE OF W S:

639 LET C=C+1
640 PRINT
659 FOR 2=1 TO 10

:I. 2 3 4 5 6 7 8 9 10

XXXXX XXXXX

669 IF A$(Z)()"O" THEN J20
670
680
690
/00
710
?20
;>]0

HlPUT THE NUMBER? :2
123 4 5 678 9 :1.0
0
XX o x x X X
INPUT THE NIJMBER? 3
123 4 5 6 7 S 9 :1.0
000 x x
0
X
INPUT THE NUMBER? 4
1 2 3 4 5 6 789 10
X 0 0 o x o x 0 X X
INPUT THE NUMBER? 5
l. 2 3 4 5 6 789 10
IIlPUT THE NUMBER? 6
123 4 5 6 7 8 9 10
X 0 0 o 0 o Xx X X
INPUT THE NUMBER? 7
:I. 2 3 4 5 67$ 9 10
X X 0
0 o 0 x x X
INPUT THE NUMBER? 8
123 4 5 678 9 :1.0
X X 0 o 0 000 x X
INPUT THE NUMBER? 9
,. 2 3 4 5 6 7 S 9 :1.0

450 IF A$(N)="OP THEN 480

SSO
560
570
580

INPUT THE NUMBER? 1
:I. 2 3 4 5 67$ 9 10

oXxXx o Xx x X

319 PRINT "ILLEGAL ENTRY--TRY AGAIN"

490

XXXXXXXXXX

269 DIM A$(20)
270 FOR X=1 TO 10
280 LET A$ (X) =" X"
290 NEXT X
390 GO TO 320
330
340
350
360
3/0
380
390

HERE IS THE STARTING LINE OF X'S:

1 2 3 4 5 6 7 8 9 10

NEXT Z
IF C)12 THEN 710
PRINT"VERY GOOD, YOU GUESSED IT IN ONl'" "C.GLIESSES!!!! II
GO TO 720
PRINT"TRY HARDER NEXT TIME. IT TOOK I'I)IJ 'C'GUESSES'
PR I NT "DO \'OU WANT TO DO ANOTHER PUZZLE';
INPUT X$

INPUT THE NUMBER? 1

1 2 J 4 5 6 7 S 9 :I.e

oxxox X x x x X

INPUT THE NUMBER? 2
:I. 2 3 4 5 6 789 :1.0
X 0 X o X x x x x X
INPUT THE NUMBER? 3
1. 2 3 4 5 6 7 8 9 :10
X 0 0 x x x x x x X
INPUT THE NUMBER? 4
1 2 3 4 5 6 789 :10
X0 X o x
X
INPUT THE NUMBER? 5
1 2 J 4 5 6 7 e 9 10
XXXo 0 x x x X X
ItlPUT THE NUMBER? 6
123 4 5 6 7 8 9 10
X0 Xo 0
X
lNPUT THE NUMBER? 7
123 4 5 6 7 e 9 10

740 IF X$="NO" THEN 780
760 PRINT

710 GO TO 1813

7ee END

xxxx

READY

oxxx

X 0 X X 0 o 0 x x X

HlPUT THE NUMBER? B
1 2 3 4 5 6 789 10
X 0 X X X 000 x X
INPUT THE NUMBER? So
1.2 3 4 5 67$ 9 10

X 0 X o x o 0 0 0 X

INPUT THE
1 2 3 4 5
X 0 X
0
INPUT THE
4
5
1 2 3

NUMBER? 10
6 789 10

o 0 0 0 0

NUMBER? 1
678 9 10

o0 x x 0 o0 0 0 0

INPUT TItE NUMBER? 3
1 2 3 4 5 6 789 19

o () 0 0 0 o 0 0 0 0

I'l!RV GOOD. YOU GUESSED IT IN I)NL'~ 12 GUESSES! ! ! !
DO VOU WANT TO DO ANOTHER PUZZLE? NO
READY

100

FOOTBL

GAME OF FOOTBALL

Description
Football is probably the most popular simulated sports game.
Some people have elected to play computerized football in
preference to watching a bowl game on television.
The simulation uses standard professional football rules except there are no penalties. The computer takes the part of
your opposing team and also the referee. Eight plays can be
run on offense and five on defense. The program presents
necessary rules as you play.
Source
Two versions of football are presented herein. A third version
received from Paul Garmon of Wellesley Jr. High School is not
printed.
FOOTBL:
Digital Equipment Corp.
Maynard, MA 01754

FOTBAL:
Raymond W. Miseyka
Butler Sr. High School
Butler, PA 16001

"Look! Jim has the ball! See him run! Run, Jim, run!"
101

FOOTBL

PROGRAM LISTING

I. PRINT "THIS IS • DE~ONSTR'TION'OF PDP-II BASIC'
20 PRINT 'IF YOU NEED INSTRUCTIONS FOR P~'VING FOOTU~~, TYPE A I."'
3. INPUT I
40 IF Ie'l THEN 3.0
50 PRINT
60 PRINT
71 PRINT 'WH~N IT ASKS YOU A QUESTION TO BE ANSWERED YES OR"
80 PRINT ·'NO, HP( IN 0 FOR NO OR I .FOR YES,"
91 PRINT
180 PRINT "ON OFFENSE yOU HAVE THE FOLLOWiNG PERMITTED PLAYSI"
III PRINT 'PLAy",'CODE"
120 PRINT 'RUN','IB'
U0 PRINT 'PASS',"I\'
140 PRINT "SWEEp',"12'
lSI PRINT 'SCRE~N PASS",'13·
160 PRINT 'LONG PASS","14'
171 PRINr "DRAW PLA",'IS"

::: ~mi :~mtiG~!~:'"11"

281 PRINT
21. PRINT 'ON DEFENSE. yOU MAY TRy 'ONE OF THE FOLLOWiNG.,
Z20 PRINT "DEFENSE", "CODEII
230 PRINT 'NORMAL','4','GOOD AGAINST SWEEp AND SCRHN"
248 PRINT "HoLD','5','GaoD AGAINST ~UN. pASS AND .D~.A."
25' PRINT 'BLITZ', "6', "GOOD AGAINST' PASll :O~ LONG pASS·
261 PRINT 'INTERCEPT",'7','INCREASES THE ODDS FOR AN INTERCEPTION."
278 PRINT "8LOCK·."8",'GIVES YOU A CHANCE TO SLOCK A KICK.'
288 PRINT • -," ','SUT DECREASES THE DISTANCE RUNBACK,"
290 PRINT
300 PRINT "TO CALL A PA~TICULAR PLAy'JUST TyPE ITS CODE NUMBER.'
310 PRINT "ALsO, AT ANY TI~~ DURING ~LAY 'YOU MAY CA~L TIME oUT"
329 PRINT "BY TYPING A '2', HowEVER YoU ARE pERMITTED ONLY THREE"
330 PRINT "TIMEDUTS pER HALF,'
34. PRINT
358 PRINT
350 DEF fNT(X)'SIN(X)/COS(X)
318 DIM R(17)
381 FOR 1'0 TO 17
390 READ R tI)

::: ~~n· ~'I~'100,0,9'U'I2,I\,U,0,1,5,3·,4'6'2.8"
421 RANDOMIZE
431 LET·F."
.
440 LET Z3'0
450 LET 0'0
460 ~ET L'0
470 OIM Z(5.3l.PI2),OI2,5)
480 FOR A'0 TO 5
490 FOR 8'0 -TO 2
500 READ ZIA.B),DIR,.l
505 ~ET P(8).0
510 NEXT B
520 READ ZIA.J)

~:: ~~;~TA"DO YoU WANT TO AicEIVE'I

551 LET X'I

56. GOSUA 3b \0
578 LET S'2-SGNI13-Q)
581 LET K.S
590 Ln T10120
688 LET U2'3
610 LET U'3
528 LET C'900
630 GOSUS 2250
'.
540 LET FI'50
'.
".
.: .
650 LET B. INT I F 1+0.20<~NDI 0). I I.Ol.2~.·(2-RNO (0l'.7'-RND tM •. (3~Z.2)l..1
660 LET 0 0 0
. ' . . . .
570 LET Z9'8
580 GOSUS 1490
690 LET L.e
700 IF e"99 THEN 2340
711 PRINT 'A TOUCHBACK'
720 LET B'20
730 UT L.e
748 IF S'2 THEN 770
750 PRINT "MY '1
760 GOTO 780
770 PRINT "YOUR ",
780 GOSUB 3290
790 GOSvB 29B0
808 LET D"
810 LET F2',03
828 LET 0'0
830 IF Ced THE~ .2770
840 GOSUB 2530
850 LET Z2.1
850 LET ZJ" 3 "
'.
870 IF ce.F.TI THEN 2920
880 IF ce'0 THE~ 2770
890 If L.0 THEN .~J0
. , .
900 PRINT "TIME TO GO·.'"
."
. ' . ' ..
910 PRINT !NT(C/60)J "MIN.' 'C-6.0"INT .IClIl0:\, "SE,(:.
920 PRINT 'YOUR PLAY'i'
".
.

:~: ~~8~:13mN ge0'
950 IF Q>8 THEN 920','
060 LET M.Q
970 GOTO 1000,'
••.•.
9ee LET Y'Q-B '.,
.' . . ..:
990 IF ABSIQ_10.5).a>3 THEN 920
1000 LET COINTlC-L.IS+23+R"D(XnJ
\BIB LET L'I
.....
1020 IF M07 THEN 1760
1830 IF M.8 TMEN 1920
IU0 LET YI •. Y-I
\050 IF RNOIX»ZIM-I.Yll
10U LET A'2
. \070 GOSue 3020
1080 IF Me. THEN 1110
1090 PRINT "pASS COMP~ETE .. ·I
1100 LET L'SGN I INT(4.RND(0,,)
1110 IF RNO(X)"F2 THEN 2510
1120 IF G>0 THEN 1210
1130 IF G.0 TMEN 117A
1140 IF G.ScI THEN 2170
1150 PRINT "LOSS OF',-G,
1160 GOTO 16\0
1170 PRINT 'NO GAIN"
1180 LET Z9'2
1190 GOSUB '490

102

UII GOTO 1670
121" IF' BoG»99 THfN -1550 ..
1220 PRINT '"GAIN OF·'·,·8,
~..
12~~ 100TO'1-1I,0
... 1240 IF •• 3 .T.HEN i~O
t250 LET 'a·I··
1·2~1l: GOSUB·. :;'.20
.' ..

:m WMme,15.1;~SGN(Y-3)) TH~N

·1360
1290 IF RND(8)e,IS.INTIY/3.bllS THEN 1510
\300 LET Z9'6
Ute GOSue 1490
1320 PRINT -PASS INCOMP~ETE'
1330 LET L'e
1340 LET G.e
13~0 GOTO 3\20
\360 PRINT 'PASS •• INTERCEPTED •• " I
1370 Ln A'1
. \350 GOSUB 3ue
\390 IF Bot40 tHEN 1410
1480 LET G'·200(l.SGNIGll
141m ~ET B'110-B-G
1428 LET $'3-S
lUI LET Z9'9
1440 GOSUB 1490
ItU IF Bel THEN 710
1461 If B'99 THEN le5e
1470 PRI~T "AT ,~
'1480 GOTO 2360
1490 ~E.T C'C-INT 14.Z_912. I 10RNOle))).
1500 RETURN
ISI0 LET Go.CS.INTI\0.RNDIX).ll
1520 PRiNT 'THE IiUARTERS'ACK '1
1530 IF RNDIX)',5 THEN 1560
1540 PRINT 'IS THROWN FOR A '1
1558 GOTO 11\0
1560 LET G'~12.G.8)
1570 LET M'b
IS80 LET hi
1591 PRINT 'SCRAMBLEs FOR A".
-1610 GOTO II \0
\510 LET 8.• 6.G
1620 PRINT 'TO" I
1630 GOSUS 3300
\540 IF 8e'99 THEN 1570
1651 GOSUS 1990
1660 GOTO 630
1670 IF 81.8 THEN 3120
1680 IF Ble8 THEN 1730
169, I.F RND(0l' •.5 THEN 17.30
1700 PRINT ·*,.MEASUR~!'IENT.o"
1710 GOSue 3520
1720 IF RNOIXle,5 THEN '3120
1730 GOSue 2na
1740 LET 0'0
1750 GOTO 3120
1760 IF RNOIx)e,06 THEN 1890
1770 LET 8.80300INT(IS.(\-RNDIX).3"
17$0 ~ET· Z9'2
17.90 GOSUB 1490
18U· .. IF 8coc!l9. THEN le50
1810 LtT PI.3:
.
.. 1820' GOSlie. 203.·0
18311 IF' PI,,'e'THEIIf'710
1840 'IlOtO'e~0'
1.850 pAINT "T'H.E KICK l.S !II.'
18~0' LET Z2',0' "
18tll.LET S'l.,S
\880:. GOTO ·U40-.
. ·;C ." ' .•.
1890 PllI.NT .""BLO·CKED'" RECOVE~Etl,,",
1900 ·LEr·G'·INT(IA.RN.DIX) l .
.
1.9teGOTO l4t0
'.
··Inl PRINT" "THE. PUN.TIS '1
'\9.30 IF AN·~.(·X)~;:06.:·TH~N U9~
IU8 LET flo;B.
.
l-g50. LtT.
1950 LET S'l-S
.1-970 LU Z3. ,.65
. '1980 'GOTO .6~0
1990 ~INT. "00 TIlUC... DOWN •• •·
2000 L.El -1>1'1 ".. .
.....:"
2010"~ET P(8)';I>(s)+6.
2020 LET , S ' 1 3 · 0 .
.·2030 PRINT .THE.KI:C~" IS oj.
:aS40 If"RNDIx)eIBIl32l.4 .THEN i~7ii
2~6'0 ~E'f P I"e
". .
2050- 'P'RINT .."NO .,
2070PRIWT ··~OOD·.
"2080 LET· ... tSl.p.ISl.Pt·
2~911 'Gosyil 2120
2.fBII Lt.T SOJ"S.
. .. ,

Z2o, .

:H: :m~N.smE' ~E"~(I)i.::~cf~,ioI2)

a}Jj!'LET L'II :
..... ,' .. :'i'2f40 IF xe! THEN. ,,2150
2-150 IF P!I)c>P(.2) THEN 2710 "
. 2.1~0 RETURN·
.:.
. '.:217. PRINT • . . SAFETY ••- ".
218', LET PI'3-S)'PI3-S.'oZ .
2l.~ LET FI'J0
. ',.
2200' LET S'·3-S "..
..
. ......
.,2U0 'GDSUB 2,128 .
2220 GOliUiJ..344.1!. .
223S·. PRI N'" 'FROM. THE 20·'
22.40" GOTt) ~5,". ' "."
2250' . GOSUB·"344.'. " "
U60·.. IF S,'2 .i~E-N 2330
. 2270 PRINT' >O'f,j-SIOE:RI
2.Z~0GOSUB:36i0
" ..
22Q0'·lF:. .Q~>\3 THEN 2330
a3S0 LET ,2';,15
23\0 LET Z2.1
2320 LET 0'1
2330 RETURN
2340 LET B'1II0"8
2350 PRINT "RECEIVED AT "'
2300 GOSUS 3380
2370 IF ZZ.RNDIX)'Z3 THEN 2400
2380 IF RNO(x)eF2 T~EN 2500
230m LET G.e.INT I UhRND(0))

2400
2410
2420
2430

IF RNO(0) •• 15 THEN 243~
lET GoINT(24-Cl-RND(X).2))
IF G00 THEN 2490
lET BoB+G

2440 PRINT
2450
2460
2470
2480
2490
2500

A~D

RUN BACK ••• p,

lET lOI
IF B.99 T~EN 1650
PRINT' TOil
GOSUB J3~0
IF RND(0»F2 THEN 3260
lET G00

2510 PRINT "**FUMBLE**"'
2520
2530
2540
2550
2560
2570
2580

GOTO 1410
IF Sol THEN 2560
lET VoINTC1+3.5-RND(0»
RETURN
lET MaINTC55_RNO(0)110.5)+1
IF (61-6)1(5-0)(3 THEN 2590
lET MoINT(b.4-RNO(0).2)

2590 If L*F_60>-C THEN
2600 IF 0<4 THEN 2550

LET M,e
RETURN
PRINT 'GO FDR IT'
RETURN
IF X.4 THEN 2830
IF P(\)=P(2) T"E~ 2B30
PRINT "THE GAME IS OVER"

2800 PRINT

~FI~AL

2840
2850
2B60
2870
2880
2B90
2900
2910
2920

"F-NO OF PERloDlIlX

GOSUB 212"
LET fo\-F
GOSUB 3520
LET C'90e
LET X-X+I
IF F ••• THEN 810
LET S.3-K
GOTO 580
IF Tl 0 • THEN 2770

2930 PRINT "2 MINUTE

2940
2950
2960
2970
29B0
2990
3000
3010
3020
3030
3040
3050
3060
3070
3080
3090
3100
3110
3120
3130
3140
3150
3160

WARNING"

AND",Bl-B,tl

327121 PRINT "MY "I
3280 GOTO 780

32g0 PRINT "BALL ON "J
3300
3310
3320
3330
3340

IF B'5~ THEN 3400
LET V'50-A~S (B-50)
LET C=C.INTC70J-RNDC0n
IF 5'1 T~EN 342.
IF B<50 THEN 3370

335~

PRINT "MY "J

3360 GOT a 33B0

3370 PRINT "YOUR ",

3380 PRINT V
3390 RETURN

3400 PRINT "THE 50"
3410
3420
3430
3440

RETURN
IF B.50 THEN 3350
GOTO 3J'70
IF 5'2 THEN 3470

3450 PRINT "YOU'"

3460 GOTO 3480

341121 PRINT "I"J
3480
3490
3500
3510
3520

PRINT" KICK OfF.'
LET F2'.06
LET Z2'0
RETURN
LET L-0

3530 PRINT

3540 PRINT
3550 RETURN

~mEN

HO,

INSTRUCTIONS FOR PLA',.'ING FOOT8ALL ..

"TIME:.OUT CA,t.LED . . . "

TYPE A 1':' 1

IT ASkS ',.'01) A QUESTION TO BE ANSWERED 't'ES OR
IN t.) FOR NO OR 1 FOR 'iES.

TYPE

ON OFFENSE 'iOU HAVE THt: FOLLOlHNG PERMITTED PLA'T'S'
PLA',.'
CODE
HUN
10

PRSS

11
12
13

51~EEP

SCREEN PASS
L.ONG PASS

14
1~

Df"FH~ PLAY
PUNT
f']ELDGOAL

16.

~EFENSE,

',-'OU

t'1A~'

DEFENSE

CO[)E~

tWRt1AL

HOLD

Tf~'l'

ONE OF THE

FOLLOl~ I NG'

GOOD FI13AINST SWEEP ANe, ::.CFiEEN
GOOD AGAINST Ft'UN. PASS AN!) C,r::!iH
GOOD AGAINST PASS OR LONG PASS
I NCFt:EFiSES THE ODD::, FOR AN I NTERCEF'T"I ON
(i 1 VES ',.'ClIJ A CHANCE TO E:LOCK A I< I (:1<.'
BUT DECf':EASES THE D I STANCE F:UNE:ftCK

TO UiLL A PAF:T 1 GULAR PLA'l' .JUST T',-'PE ITS COrlE NUME:EF:
ALSO, AT Ati'r' T1t4E DUFt:ING F'LA'l' ','OU MA'1' CALL TIME OUT
8',-' TYPING A 2'
HOLJE"iEFt: 'T'OU ARE PERMITTED ONL." THREE
T lt1EOUTS PER HALF

DO YOU

l~ANT

TO RECE I "iE? 1

[ f( rCK OFF
TOUCHBACK
YOUR Bt1LL Ot~ 'r'OUR

14 t-1 HL 42 SEC
';'OUR PLAIn 1(1
LOSS OF 1 TO 'r.'OUR 19
2tH! AND 11
TU1E TO 130-- 14 t4IN,

34 SEC

'r'OU~:

PLA'T'? 12

LOSS OF ~~ TO ';'OUR
17
3RD AND 1:?
TH1E TO 130-- 14 t1HL
PASS GOt1F'LETE
GAIN OF 12 TO 'l'OUR

1] SEC.
'r'OUP F'LA""~' 1129
4TH ANt- 1
TH1E TO GO-- 1} MIN, 4]: SEC
't'OIJR PLA.,,··:-- 11:3
OfllN OF 113 TO 'T'OUR
3:9
1ST AND 10
TIt1E TO 130-- 1] t1IN .. 24 SEC
'l'OUFi PLA'r";:- 11
f)f-iSS COt'iPLETE
Gti! N OF 7 TO ','OUI':
46
2ND Rrw 1
T1t'1£ TO GO-- 1]: t·lIN .. 8 SEC.
'l'(lUP PU1'.'? 14
PRSS INCOl'lPLETE
JRD RND
12 t'lHL ]2 SEC
'T'OUP PLA'T'? 15
CiHIN OF 2 TO 'r'OI)R 4:::
4TH mw 1
TINE TO (iO-- 12 t1IN .. 24 SEC
'r'OUFi' PLf!"'? 10
GHIN OF '.5 TO Wy' 47
1ST Arm 10
T H1E TO 130-- 1~' 111 N. 4 SEC.
'l'OUIi' PLA""-; 14
PAS::;

:~RD

3200 IF 0.4 THEN 3220
3210 PRINT 114TH'"
II

YOU NEED

f)RS5

"3RDIIJ

ING(H1PLETE

;nw fU·W 10

31B0 IF 0<>3 THEN 3200

GOTO 810
LET S'j-S
LET B'l.~-B
IF S=2 THE' 770

SAMPLE RUN

lHlS IS A DEMONSTRATION OF PDP-i1 BASIC

BLOCK

3170 PRINT '!2ND"J

322~

3730 END

INTERCEPT

3230
3240
3250
3260

,5'''2, .25, 4, .5,13, .55
.4,"2, .3,7, .65, 15, .75
,4, .. 2, ,3,6, .6, 15, ,35
.65, .. 2,.65,6H6,11,,9
,4,2,,7,10,,4,27,,2
,1,19,.4,35,.2,100,.1

BLITZ

GDSUB 3520
LET TI=.
LET C=120
GOTO 880
LET 81,eo10
If 81.'100 THEN 3°1"
LET Bl 0 100
RETURN
LET g=I.3oCA.RNO(0).Il·.06
LET
IF Q.-0 THEN 3070
LET A=0
LET Q=-Q
LET Ml,M-1
LET G'D(A.MI)+FNT(Q)'CDC2.~I)-DCA.Ml))n.5
LET GoGoINT(RNOC0l+.02)OAoI00oRNOC0'
LET G'INTCG)
RETURN
LET 0=001
IF 0=5 THEN 3240
IF Dc>
I THEN 3160
PRINl "18TII;
IF 0<>2 THEN 3180

3190 PRINT

DATA
DATA.
DATA
DATA
DATA
DATA

2810 GOSUB 2120
2820 STOP
2830 PRINT

3670
3680
3690
3700
3710
312121

FOOTBL

IF 6.55 THEN 2720
IF 0.4oRNO(0)-BloB THEN 2750
PRINT 'T"Y FOR A FIElO GOAL'
lET Ma 7
RETURN
IF P(2)oU2coPCl)oU2 THEN 2600
p~INT "TIME OUT"
LET U2'U2.1
GOSU6 3520
GOT a 2600

2720 PRINT "PUNT"
2730
2740
2750
2760
2770
27B0
2790

IF U00 THEN 3600
LET UaU-l
GOSUB 3520
GO TO 3610
PRINT" •• "RDNG. TRY AGAIN"
INPUT A
IF ABS(INTCA))>17 THEN 3600
LET QoR(INTCABS(A)))
IF Qo. THEN 3600
If Qol"0 THEN 3560
RETURN

267~

2610 PRINT "I III '"
2620
2630
2640
2650
2660
2670
2680
2690
2700
2710

3560
3570
3580
3590
3600
3610
3620
3630
3640
3650
3660

11 inN.
I NCOt'lPLETE
Arm 1~)
11 t1H~.,

46 SEC

'l'I)Uf;' PLA'T''? 14

'T'OUIi: PLA'T"~' 11
PASS COt1PLETE. GA IN OF 1:3: TO t1'1'
34
1ST AtW 10
11 inN, J1 SEC
'T'OUIi' PLA.,,·? 10
GRIN OF 1 TO M';' 3]
TII1E TO 130-- 11 t~IN~ 22 SEC
2tm AND '3
NO GAIt"
:tRD AND 9
T !t1E TO
1~) t1I N,
51 SEC.
'r'OUP PLA'T') 1]:
PAS:::: COt1PLETE
LOSS OF
TO t1'T'
:3=4
4 TH AND 10
T HlE TO 130-- 1~3 MIN, ]:6 SEC
'T'OUIi: F'LfI"') 17
THE 1<ICI< IS NO GOOD
SCOf;'E
t1E (j
'T'OU ~3
TOUCHBACK
SEC

t'1,;'

8f~LL

Ot-l N'T'

H3 il1 N,

10 SEC

GA I N OF :2 TO f'l'y'

,2tm AND 8

YOUf;' PlA'l'? 4
22

TH1E TO (;0-- 10 MIN..
SEC
PASS COt1PLETE
GRH~ OF 6 TO t1',.'
28
:?RD F!Nr!
T H1E TO (iO-- 9 M] N, ]7 SEC
GAIN OF 6 TO WT'
]:4
lST AND 1(1
TH1E TO CiO-- 9 MIN..
SEC

'T'ClUP F'L.A'T'?
'l'(fIJP PLA'r'? 4
't\OUR PLA'r'?

LOSS OF 1 TO t1'1' :;]
TU1E TO 130-- :3 tHN. 41 SEC
'T'OUF' PLA'T") 5
PASS COt'IPLETE GAIN O~ 1t. TO t1'T'
49
~lST AND 10
8 inN. 11 SEC
'1'OIJIi' PLA'1"~' 4
PAS~; INCONPLETE
;,"!r·1[:o liND 10
8 tlIN. :2 SEC
Gti I N OF 12 TO 'l'OU~' 19
JS T liND 10
T HIE TO 130-- 7 tl1 N, .'53: SEC
'r'OUR PLA'r' 4

2ND AND 11

Gt1 I N OF 1 TO 'l'OUFt'
~mD FINO
TU1E 10 130-- 7 MIN. :22 SEC
'-r'OUR F'LA'l"? 4
Cili] ti OF 1 TO 'r'OUR
~. (
3RD AND 8
TH1E TO 130-- 7 r'lIN, 13 SEC.
'r'OU!1: PLA'T"~' 4
PliSS CO!'lPLETE .. GAIN OF 15 TO 'T'OUR
22
:lST AND 10
TIME TO 130-- 6 r1IN .. 2: ::.EC
YOU'"' PLA'T'? 4
GAIt.,j OF 7' TO ',-'0 U f.;: 15
2tW AND 3:
T I t1E TO 130-- '5 t1I N.. 5:3: SEC.
','OUP PLA'r' 5
PASS INGOt'IPLETE

103

FOTBAL

PROGRAM LISTING

1 REM
PROl3RAM WR J TTEN S't' RAYMOND W. M I S~'t'KA
2 REM
SENIOR AT
BUTLER SENIOR HIGH SCHOOL
3 REM
BUTLER.. PENN5¥LVAN I A 16001
4 REM
DATE: 1/30,.173
5 REM
COMPUTER SUPER'<ISION- MR. WILLIAM ELLIS
6 REM
COMPIJTgR TOP I lOS I NSr.'IJCT IONALBERT STEWERT
? REM
J WROTE TH I S PROOFi:AM BEI~AIJSE OF THE CHALLENGE
8 REM
IN ..... OLVED IN OVERCOMING THE COMPLE>::ITIES
SUCH A GAME
9 REt1
19 REt1
10e RANDOMIZE
121.3 DIM A':2e), 8(2121), C(40) .. H(2), T(;2), W(2), :~CV., YC') .. Z(;2)
:130 DIM M$(;2), D(2)
140 PRINT "RAMIS ENTERPRISES PRESENTS N. F. U. FOOTBALL<NO FORTRAN USED)"
H5 PRINT\PRINT

898 C=B
990 IF C=B THEN 904
991 PRINT TAB(27);10-(,'(J)*P-Y(T)*S); ','ARD, TI) 1ST DOWN'
~02 GOTO 310
904 PRINT TAB(27); X(J)-¥(J)*P; "¥ARDS TI) GO"
910 GOSIJB 1900\ I F D=4 THEN 1180
920 RANDOM I ZE
330 U= I NT O*RND (0 )-1 ),\GOTO ?4@
936 PR I NT "I LLEGAL PLA,' NUMBER, I;HECK AND"
940 PR I NT "I NPIJT OFFENS I YE PLA".· DEFENSI'IE PLA''".:
950 IF T=2 THEN 970
960' INPUT Pi, P2\GOTO 975
970 INPUT P2, Pi
975 IF Pl=77 THEN 1180
9S0 IF P1)20 THEN 1800\ I F PHi THEN 18~0
9~0 IF P2}20 THEN 1800\ I F P2<l THEN 1800
995 Pl=INT<P1)\P2=INT(P2)
:1090 Y=INT';ABS(A(P1)-B{P2) )/19*< (X(T)-'t'{T)*P+25)*Fl:ND(O)-15»

M"'.

I:,F

15121 PR I NT "DO YOt) WISH I NSTRU(:T J ONS'? ".: \, I NF'UT At
1613 JF A$="NO" THEN 290\lF 111()''','E5'' THEN 15121
:l70 PR I NT "TH I 5 I 5 A GAME FOR ~ TEAMS J N WH I CH EACH F'LA'r'E';:: MUST n
:180 PRINT "PREPARE A TAPE WITH A DRTA STATEMENT(1770 FO., TERM 1"

~H305

:l30 PRINT "17$0 FOR TEAM 2) IN WHICH EACH TEAM SCRAM8LES NOS. 1-20"
:195 PR I NT II THESE NUMBERS Afi:E THEN FlSS J 13NED TO 20 13 I 'v'EN F'LA'l'5. "

200 PR WT "A LIST OF NOS.
2:1121 PRINT
~~2e PRINT

<123 PRINT
2:~5 PRINT
227 PRHH

AND THE I., PLA,'S ARE P."W I DED WITH"

"S(ITH TEAMS HFI ..... ING THE SAME PLA't'S. THE MORE SIMILAR THEn
"F'LAYS THE LESS YARC'AO£ GAINED. SCORES ARE 13IVEN M
"WHENEVER SCJ)RE;5 ARE r1A'DE. SCORES MA'T' ALSO 8E OSTAINEC'u
"BY INPUTING 99 .. 99 FOR PLA'T' NOS.
TO PUNT OFi: ATTEMPT A"
"FIELDGOAL, INPI)T 77 .. 77 FOR F'UW NOS .. I'UESTIONS WILL BE"

:1030 Y=0\!30TO 105121

1035
:10413
1045
1048
'l050
:l060

ON 4TH DOWN ','01.1 WILL ALSO BE ASKED WHETHe.,"
"YOU WANT TO PUNT OR ATTEMPT A·FIELD GOAL. IF THE ANSWER"
PRINT "TO 80TH QUESTIONS IS NO., IT HILL 8E ASSUMEI) ,,'Oll WANT TO"
:~6121 PRINT "TR't' AND GAIN 'T'ARDACjE.
ANSWER ALL I~UEgTIONS 't'ES OR NO.
270 PRINT "GRME IS PLAYED UNTIL PLAYERS TERMINATE (CONTROL-C). "
;180 PRINT "PLERSE PREPARE A TAPE RND ."-'N. "\STOP
::~90 PRINT\PR!NT "INF'UT $COFi:E: LIMIT ON 13AME~;\INF'IJT
30121 FOR I =1 TO 40\READ 1'4\ 1 F I )20 THEN 3:5121
249 PRINT
;:'~5@

:110 A(N)=I\G010 36121
350 B dO = 1-20
360 C(I)=N'NEXT I

~'40

4513

460
470

L=0\ T=l
PRINT "TEAr~"T"PLAY CHAFi:T"
PR I NT "NO.
Pl,A'T'" \F'R J NT
PRINT C{l+L).; TA8(6); "PITCHOUT"
PRINT C<2+L).: TA8<6); "TRIPLE RE'I"ERSe:"
PRINT C(3:+L).; TA8\6).; "DRAwn
PRINT C{4+L); TAB(6).; "1~8 $NIlAf("
PRINT CC5+L); TAB(6).: "E:ND A":OUNO"
PRINT CU3+L); TAB(6); "DC1IJBLE Fi:E ..... ER$E:"

4813
490 PR I NT C (7+L); TAB <.;); "LEFT SWEE:P"
50~3 PRINT C(8+L); TA8(6); "RIGHT SWEE:F'"
5:1121 PRINT C(9+L); TA8(6).: "OFF TACKLE:"
5213 PRINT C(li)+L); TA8U»; "WISHBONE (lPTION53:0 PR!NT (:(1:t+L); TA8(6); "FLARE PASS n
~)40 PRINT C(::!,2+L); TA8(6); "SCREEN PASS"
556 PRINT C(13+L); TAS(6); "ROLL OUT 0F'TI0N N
S6€1 PRINT C(14+L); TA8(1$); "RIGHT CUFl:L"
5','6 PRINT C(15+L);TA8(6); "LEFT CUFi:L"
580 PRINT C~16+L); TA8~6).; "~n$H80NE (IPTION"
590 PRINT (:':17+L); TAS(6); ":::IDELINE hiSS"
6130 PRINT C{18+L); TAB(6); "HALF-·BACI< OPTJON"
6:10 PRINT C(19+L); TAS(6).; "Fl:AZZLE DAZZLE a
620 PRINT C{2e+L).; TAB';6); "BOMB I! ! J ~! ~! II
630 L;:::L+;20\T::2
6413 PRINT\PRINT "TEAR OFF HEFi:£ ----~~---- .... ---------------------- .... ______ _
660 FOR X=1 TO 11\PRINT\NE:~T X
fj70 FOR 2=1 TO 3000\NEXT Z

=. .

10S0 PRINT\PRINT ~** LOSS OF POSSESSION FROM TEAM"T"TO TEAMMTCT)
~U0e GOSIJB 1850\PR I NT\ T=T {T) \130TO :31121
:l:110 IF 'or'(T)*P)=~";(T) THEr4 13:2121
:l120 JF lHT)*P)=Z(T) THEN 123121
;11J0 IF '-I(T)*P-Y('T)*S:;'=10 THEN $80
:L140 D=D+1\IF 0<>.'5 THEt~ 88.'5
:116121 PR 1 NT\PR I NT "CONVERS I ON UNSUCCESSFUL TEAM" T'\T==T (T)
1.170 GOSIJB 185il1\QOTO 880
:11813 PRINT "DOES TEAr~"TMWtmT TO P!JNT".; \INPUT FI$
1185 IF AJ="NO" THEN 1200\JF A$<)"YES~ THEN 1180
1190 PRINT\PRINT "TEAM"T"WILL PIJNT"\(j==F~ND(CI)\IF 13<.025 THEN 1121:::0
1"195 GOSUB la50\K=lNT(25*RNC'(0)+},'5)\h'T(T)\t~I)TO 7'$10
:l.?0e PR 1 NT "DOES TEAt~" T" WANT TO ATTEMPT A F I ELD-t30Al ".: \ J NF'UT A:t
1210 IF Af="YES" THEN 164/21\JF A'{)"NO" THEN 12ge\60TO 928
~L.?30 PI<: I NT\PFl~! NT "SAFET't' AGR J NST TEAM" T" --~-- .... ---·-- .... ·-------OH-OH"
:L240 H{T(T)=H(T{T»+2\G05IJB 1$10
12813 PRINT "TEAM"T"DO 't'OI) WANT TO PUNT INSTEAD OF t=I KlCKOFF".; \IN?l)T A$

'l?ge P=Z(J)-W(J)*20\IF A$="'IES" THEN1i9'l
~l32a PR I NT\PR I NT "TOUCHDOWN B't' TEAM 8 T n ****************",****'t'EFI TEA!'!"
1:!40 0=7\G=RND(O)\IF 13).1 THEN l!:~et
13fS0 0=6·... PR I NT "EXTRA PO I NT NO GOOD !I \(;OT(1 :lJ:~"0

neo

PRINT "EXTRA POINT GOO~"
:13$10 H':T):H{T)+(~\GOSIJB 1:3H3
:1420 T=T {T) \GOTO 1£5
:l4!@ K=lNT(9*RtHHO)+1)
:l440 R~] NT( (: 0< Cf)-'t' (T ):i'P+:~5) *RNO (0) -15 ).lK)
:l460

P=P··l~(T)*'"

14Se PR I NT\PR ltH "R.UNBACK r~At1" L R' ','A.,DS·
~l4$5 RANDOM I ;!E\Ci:RND ~ I) \ I F G<. 025 THEN 1~~:::121
~l490 1 F '1 (T) *P)~>: ': T) THEN 11.;2121
~l500 IF lHT)*P}=Z<T) THEN 12J:W\(JOTO S8(t
~li';40 PR I NT\PR I NT "TEAM" T" WILL ~TTEMF'T A F" I EL!)t30AL
1645 RANDQtHZE\G=RND(O)\IF CH. @25 THEN jl2ta~~
1650 F=lNT':35*RND(I;)+20)
:l660 PRINT\PR!NT "!(!CK IS"Fu'T'ARDS LONG"

:1742 GOSIJB 18Sl)\IF

8~W"

"'(T)*P<~:(T)+ll21

THEN 174,5'\T==T(T)\Ij'OTO 794
ON lip
~l750 T="{~T)\GOSU8 190121\GOTO 83:0
~t770 DATA 17,8,4,14 .. 19,.]. 1~3,.1 .. 7., 11, 15., 9 .. 5.· 2121, 1]: .• H:·16 .. ;2,,12 .. 6
:1780 DATA 2~.2~17~5,8,18~12.11,1.4,19J14.1e.7.9.15·6,1]:.1',1
~~~ee IF P1<>99 THEN 916
1310 PRINT\PRINT "TEAM 1 SCORE JS P H(1)

1745 PRINT\PRINT "BALL

P=X(T) ... Y<T)*40

NOl~

'l82@ PRINT "T.AM 2 SCORE IS"H(Z)\PRINT

795 PRINT "--AUTOMATIC TOUCHBACK--"\GOTO 870
8113 PR I NT\F?R INT ~ BALL WENT" K n 'TIARDS.. NOW ON "P\(:iOSUe: 191210
PRINT uTEAt1"T"DO 'r'Ot! WANT TO RUNBACK".; \INF'I.!T Ax
840 IF A$='''.,.£5'' THEN 143:0\.IF F/${)."NO" THEN 8ZI!!
950 JF W(T)*P<2{T) THEN 880
H70 P=2.:T)-l~(T)*20

:L$25 1 F H (T) {E THEN :t8J:/2I\PR I NT" TEAM" T HW1N5
;U3J;0 IF P;1=99 "(HEN 940\RETI.IRN

r:ne

**,.:***.t;******** II \I3IHO

2!Zt€H~

18se PRINT
:1860 PR 1 NT

H80 v=l\;=P
885 PRINT "===~====~=====================::==============================
========:;:"
Hpj

:393 IF DOl THEN 900
895 IF Y{T)*(P+"I'':TH':1,-0)=X(T)
897 C=4 \13QTO 91313

1050

I~ENT WIDE"
:1740 PR 1 NT "F 1 ELDGOAL UNSUCCESSFUL TEAM ~ T" -·-----·-~-..,.-·-·-----TOO

I~OALu

?7e GOSIJ8 1860\PR I NT\PR I NT "TEAM" T U PEeE rYES I{ I Ck-OFF 11
780 K=INT(26*RND(O)+40)
?90 P=P-'T' (T )*K
794 IF W(T)*P(Z(T)+10 THEN 819\P~lNT\PRINT NBAlL WENT OUT OF END20NE";

890 PRINT\PRINT "TEAM"T"DOWN"D"ON

5CRAM8LED~\GOTO

:l730 PRINT"SAI.L
DEFENC'$ 100 YD.

760 PRINT\PRINT 'THE COIN IS FLIPPED'
~:>65

"QUARTERBACK

16$13 P""P-l~ (T) *F\RRNC'I)M I ZE\G=RNO (I:,)
:L6ge IFG<.3STHEN17:?5
~l7e0 IF Y(T)*P{X{T) THEN 1740
:1710 F'F I NT "F I ELDGOAL floor' FOR TEAM ~ T8 ***,,,,*,.:.+'**********','EA"
1726 0-=3\I)OTO 1190

680 IF L=20 THgN 410
690 D(1 )=0\0 (2 )=J;\M$ (1)= " __ -~' "\M:t ~:2)=" ( ___ "
'?OO H(1)=0\H(2)=0\T{1)=2·...,T(2):;:1
?1~3 ~~ (1)
:1, \1.01 (;2) ::;l\X (1) =100\:X: (:2) =13
~'20 'T'': 1) =l \Y (2.) =-1 \2': 1) =0\2 <:2) =100
?25 GOSUB 1910
730 PRINT "TEAM 1 DEFENDS J.3 YD. 130AL--TEAM
749 T=INT(2*RND(O)+1)

G=RND((I)\IF G<.025 THEN 1040\IF ¥)2 THEN 1045
PRINT

PRINT "PASS COMPLETED"\GOTO 1050
PRINT "THE BALL WAS RUN'
P=P-W(J)*¥
PRINT\PRINT "NET YRRDS GAINED ON DOWN"D"ARE ",'
:H37t3 G=RND(O)\IF G). 025 THEN 1110

230 PRINT "ASKED THEN.

380
410
420
430

PRINT ..... IF T=2 THEN 1015

1010 I F A (Pi) (11 THEN 1048\80TO 1020
1015 IF S(P2)(11 THEN 1048
:l020 IF 1)00 THEN 1035".PRINT 'PASS INCOMPLETE TEAM"T

~L900

F'RINT TAS{D(T)+5+P/2).; 1'1$(1)

1911 PRINT "TERM 1 [0
J TEAM 2"
J92e PRINT
L~30

THEN 898

RETURN

:1000 END

104

"of ... +++++ + ... + +++++++++++++ +++++++ +++++++++++++++ +++++ +++ +++++++

1870 RETURN
10

100

SAMPLE RUN
RAMIS ENTERPRISES PRESENTS N. F. U.

FOOTBALL<NO FORT,"N USED)

DO YOU WISH INSTRUCTIONS?? YES
THIS IS A GAME FOR 2 TEAMS IN WHICH EACH PLAYER MUST
PREPARE A TAPE WITH A DATA STATEMENT<1770 FOR TEAM 1
1780 FOR TEAM 2nN WHICH EACH TEAM SCRAMBLES NOS. 1-20
THESE NUMBERS ARE THEN ASSI GNED TO 20 G I YEN PLA"S.
A LIST OF NOS. AND THE I R PLAYS ARE PROY I OED WITH
80TH TEAMS HAVING THE SAME PLAYS. THE MORE SIMILAR THE
PLAYS THE LESS YARDAGE GA I NED. SCORES ARE G I YEN
WHENEVER SCORES ARE MAD~ SCORES MAY ALSO BE OBTAINED
BY INPUTING 99,99 FOR PLAY NOS .. TO PUNT OR ATTEMPT A
F1ELDGORL, INPUT 77,77 FOR PLAY NOS .. QUESTIONS WILL BE
A5KED THEN. ON 4TH DOWN YOU WILL ALSO BE ASKED WHETHER
YOU WANT TO PUNT OR ATTEMPT A FIELD GOAL. IF THE ANSWER
TO BOTH QUESTIONS IS NO, IT WILL 8E ASSUMED I'OU WANT TO
TRY AND GAIN YARDAGE. ANSWER ALL QUESTIONS YES OR NO.
GAME IS PLAYED UNTIL PLAYERS TERMINATE (CONTROL-C).
PLEASE PREPARE A TAPE AND RUN.
STOP AT LINE 280

TEAM

DEFENDS

TEAM

11
15

9
5

20
is

18
16
2
12
6

GOAL

{---

TEAM

DO YOU WANT TO RUNBACK? YES

RUN BACK TEAM 2

TEAM

2 DOWN 1 ON

100] TEAM 2

10 YARDS

10 YARDS TO 1ST DOWN

(---

TEAM

100 1 TEAM 2

DE FENS I YE PLA,'? 19,11

PASS COMPLETED
FOOTBALUNO FORTRAN USED)

NET YARDS OR I NED ON DOWN 1 ARE

TEAM

10
1

100] TEAM 2

"rEAM

19
3

NOW ON

TEAM

INPUJ SCORE LIMIT ON GAME-' 28
TEAM 1 PLAY CHART
tW.
PLA'<
17

2 RECEIVES KICK-OFF

BALL WENT 53 YARDS,

DO YOU WISH I NSTRUCTI ONSn NO

4
14

THE COIN IS FLIPPED

:INPUT OFFENS I VE PLAY,

RUNNH
RAMIS ENTERPRISES PRESENTS N. F, U.

+~~++++~++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++

F~EADY

GOAL--TEAM 2 DEFENDS 100 YD.

2 DOWN 2 ON
[0

<:---

:INPUT OFF ENS I YE PLAY,

PITCHOUT
TR I PLE REVERSE
DRAW
QB SNEAK
END AROUND
DOUBLE RE'.JERSE
LEFT SWEEP
RIGHT SWEEP
OFF TACKLE
WISHBONE OPTION
FLARE PASS
SCREEN PASS
ROLL OUT OPTION
RIGHT CURL
LEFT CURL
WISHBONE OPTION
51 DELI NE PASS
HALF-BACK OPTION
RAZZLE DAZZLE

6 'iARDS TO 1ST DOWN

79
20

DEFENS I YE PLAY"

100] TEAM 2

.J.. B

PASS INCOMPLETE TEAM 2
NET YARDS GAINED ON DOWN 2 ARE
=.:

===== = == == = = == =:::::: ====== ===::: = = = = ====== ====::: ==== == === === ===== ======= ====

TEAM

DOWN 3 ON

I'ARDS TO 1ST DOWN
.(---

"r"AM

INPUT OFFENSIYE PLA'i,

100J TEAM 2

DEFENSIVE PLAY';' 8.,:10

THE BALL WAS RUN

NET YARDS GAINED ON DOWN 3 ARE

TEAM

DOWN 1 ON

"fEAM

10 YARDS TO 1ST DOWN

{---

BOMB'!"~~!'

INPUT OFFENSIYE PLAY,

WAR OFF HERE -----------------------------------------------

DEFENSIVE PLAY"

'100] TEAM 2

10 .. "

QUARTERBACK SCRAMBLED
NET YARDS GA I NED ON DOUN 1 ARE

TEAM 2 DOlm 2 ON

10 YARDS TO 1ST DOWN
(---

TEAM

WPUT OFFENSIVE PLAY ..
TEAM 2 PLAY CHART
NO.
PLAY

20
2

17
5
8
18
12
11
1
4
19

14
10

7
9
15

13
1~

6121

71-3

100J TEAM 2

DEFENSIVE PLAY? 18,10

THE BALL WAS RUN

NET YARDS GAINED ON DOWN 2 ARE

PITCHOUT
TR I PLE REVERSE
DRAW
QB SNEAK
END AROUND
DOUBLE REVERSE
LEFT SWEEP
RIGHT SWEEP
OFF TACI(LE
WISHBONE OPT I ON
FLARE PASS
SCREEN PASS
ROLL OUT OPT I ON
RIGHT CURL
LEFT CIJRL
WISHBONE OPT ION
5 !DELI NE PASS
HALF-BACK OPTION
RAZZLE DAZZLE
BOt1B!! ! !! I ! !

TEAM 2 DOWN 3 ON

I'ARC'S TO 1ST DOWN
{---

TEAM

INPUT OFFENSIVE PLAY,

DEFENSIVE PLA,'"

6121

100J TEAM 2

:30

7., :1.7

PASS COMPLETED
NET YARDS '3AINED ON DOWN 3 ARE

TEAM

DOWN 1 ON

10 YARDS TO 1ST DOWN
{---

TEAM 1 [0

INPUT OFFENSIVE PLAY,

DEFENSI~E

l.a0] TEAM 2

PLAY? .?,9

PASS I NCOMPLETE TEAM 2

TEAR OFF HERE -----------------------------------------------

NET YARDS GAINED ON DOWN 1

"r.RM 2 DOWN 2 ON
TEAM

INPUT OFFENSIVE PLAY,

A~E

'10 I'A'RDS TO 1ST DOWN

<--40

1.e0 J TEAM 2

DEFENSIYE PLAY? 1.,10

PASS INCOMPLETE TEAM 2
NET YARDS GA I NED ON DOWN ;< ARE

TEAM 2 DOWN 3 ON

10 YARDS TO 1ST DOWN
(---

TEAM

INPUT OFFENSIVE PLAY,

100 J TEAM 2

DEFENSIVE PLAY? 3,11

PASS I NCOMPLETE TEAM 2
NET YARDS GA I NED ON DOWN :! ARE

=:==============::=================================::::=====================

105

FURS

FUR TRADING EXPEDITION

Description
You are the leader of a French fur trading expedition in 1776
leaving the Ontario area to sell furs and get supplies for the
next year. You have a choice of three forts at which you may
trade. The cost of supplies and the amount you receive for your
furs will depend upon the fort you choose. You also specify
what types of furs that you have to trade.
The game goes on and on until you elect to trade no longer.
Source
Thanks to Ann Brebner for sending us the program.
originally written by:

It was

Dan Bachor
Dept. of Educational Psychology
University of Calg~ry
Calgary, Alberta, Canada
--~

----~
..
•

"Ah, here's your guide now."

106

1962 byThe New Yorker Magazine, Inc.

PROGRAM LISTING
1 DIM F(4)
2 RANDO~
15 ~OSUS 1091
16 L.ET 1 0 000
17 PRINT '00 YOU WISH TO TRADE FURS?"
18 GOSUS 1402
19 IF 8$-"Y~S' THEN 100
20 IF S50"NO" THEN 2200
25 GOSUS 1402
!B0 PRINT
101 PRINT "YOU HAVE S'J! "SAVINGS,"
102 PRINT "A~D 190 FURS TO BEGIN THE lXPEDITION,"
300 PRINT
301 PRINT 'yOUR 190 FURS ARE DISTRIBUTED AMONS THE FOL.L.OwING"
302 PRINT "~INDS Of PHTS' MINK. BEAVER. ERMINE AND fOX,"
310 GOSUB 14J0
315 RESTORE
330 FOR J'I TO
332 RE'4D as
3JJ PRINT
335 PRINT "HOw "ANY ',BU" PEL.TS DO yoU HAVl"'
338 INPUT F eJ)
340 L.ET F(0).FO)+Fe2)+Fe3)+Fe4)
342 IF Fe01'lge THEN 1100
344 IF F(0).190 THEN 500
348 NEXT J
350 GO TO 1100
500 PRINT
501 PRINT "YOll MAY NOT HAVE THAT ~AN'Y FURS,"
502 PRINT "DO NOT TRY TO CHEAT~
I CAN ADD,"
503 PRINT .YOU MUST START AGAIN,"
504 GO TO Ib
,508 PRINT
511 PRINT "DO yOU WANT'TO TRADE FURS NEXT YEAR?"
513 GO TO 18
1091 PRINT "YOU ARE THE L.EADER OF A FRENCH FUR TRADING EXpEDITION IN '
1092 PRINT "1776 lEAVING THE L.AKE ONTARIo AREA TO SEu fU1<S AND GET"
1093 PRINT "SUP.PL.IES FOR T~E NEXT YEAR.
YOU HAvE A CHOICE of THREE"
1094 PRINT "FORTS AT "HI,CM YOU MAY T04Db
THE COST OF SUPPL.IES"
1095 PRINT "AND THE AMOUNT YOU RECEIVE FOR YO'UR FURS .IL.l DEPEND'
1096 PRINT "ON THE fORT THAT YOU CHOOSE,"
1099 RETURN
H00 PRINT "DO YOU "'ANT TO TRADE YOUR FURS AT FORT I. FORT 2'"
1102 PRINT "OR FORT 31 FORT I IS FORT H,OeMEL.ASA e~ONTR"AL.)"
1103 PRINT "AND IS UNDER THE PROTeCTION OF THE FRENCH 'R"Y,"
1104 PRINT "FORT 2 IS, FORT STAOACONA (QUESEC) AND IS UNDER THE"
1105 PRINT "PROTECTION OF THE FRENCH AR~Y,
HOWEVER. YOU MUST"
1106 PRINT "MAKE' PORTAGE AND CROSS THE L.ACHINE RAPIOS,"
1108 PRINT 'FORT 3 IS FORT NEW YORK 'ND'IS UNDER DUTCH CONTROL.,"
1109 PRINT 'yOU MUST CROSS THROUGH IROQuOIs L.AND,"
1110 PRINT "ANS.ER 1. 2, CR3,'
1111 INpUT &
1112 IF 6'1 THEN 1120
1113 IF B'2 THl' 1135
1115 IF B03 THEN 1147
1116 GO TO 1110
1120 PRINT 'YOU HAVE CHOSEN THE EASIEST ROUTE.
HOWEVER. THl FORT"
1121 PRINT "IS FAR FROM .NY SEAPORT,
THE V'L.UE'
1122 PRINT 'YOU RHUVE FOR YOUR FURS WIL.L. BE ~O" AND THE COST"
1123 PRINT "OF SUPPUES ~IGHER THAN AT FORTS SHO'C!)NA ,OP NtOW YORK."
1125 GOSUR 1400'
112~ IF 6$'"yES' THEN 1110
1130 GOTO 1160
1135 PRINT "YOU HAVE CHaSEN A HARD ROUTE~
IT Is, IN CO"PARSION."
1136 PRINT "HARDER THAN THE ROUTE TO MOCHt:L.AGA BUT HSIER T'iON"
1137 PRINT "THE ROUTE To NEW YOR~,
YOU WI~L RECEIVE AN AVE~'AGE VAL.UE'
1138 PRINT "FO~ YOUR FURS AND THE COS,T OF YoUR SUPPklES wIlL .~ AVERAGE"
1141 GOSU8 1400
1144 IF S5"YlS" THEN 1110
1145 GOTO ,119'8
1147 PRI"T "you HAVE CHOSEN THE MOST DiFFICULT ROUTE,
AT"
l!A8 PRINT "FORT NEW YORK YOU WILL. RECEIVE THE HIG,HEST VAlUE"
1149 PRINT "FOR YOUR FURS.
THE COST OF YOUR SUPPUES"
1150 PRINT "WIL.l BE L.OWER THAN AT AL.L. THE OTHER,FORIS,"
1152 GOaUB 1400
1155 IF SI"'YES" THEN 1110
1156 GOTD 12~0
1160 L.ET 1.1-160
1169 PRINT
1174 L.ET Ml'INT((.2*RNO(0)+,710100+,51/U0
1175 L.F.T El oINT(e,2*RNoe0)+;651010A2+,5)l1h2
1176 L.ET 81.INT(e,20RNOe0)',75)010.2+,5)/10.2
lin L.ET 01.INT(e,20RNOe0)+.80)010A2+,511!0.2
1180 PRINT "SUPPL.IES AT FORT HOCHE~AGA COST $150'.00"
1181 PRINT "YOUR TRAVEl EXPENSES TO HOCHEL.AGA WERE $10,00"

107

1190 GO TO IH0
1198 L.ET 1.1-140
1211 PRI,NT
12n L.ET Ml- INT( e, JoRND (0) + ,85) 010.2',5) 110.2
1206 L.ET EI 0 INTCI,IS 0 RNO(0)+.U)010.2+,5)/I0A2
1207 L.ET SI.INT(e,20RNOe0)+,90)0I0A2 •• 5)/I0A2
1219 L.ET PoINT000RND(00))+1
1210 IF P,02 THEN 1216
1212 IF P"6 THEN 1224
1213 IF P"S THEN 1226
1215 IF pC-Ie THEN 1235
1216 L.ET F(2)'0
1218 PRINT "YOUR BEAVER "ERE ToO HEAVY TO CARRY ACROSS'
1219 PRINT "THE PORTAGE,
YOU HAD To L.EAVE THE PEL. TS aUT FOUND"
1220 PRINT "THE~ STOLE~ WHEN YOU RETURNED"
1221 Goaus 1244
1222 GO TO 141'
1224 PRINT "YOU ARRIVED SAFEL.Y AT FORT STADACONA",
1225 GO TO 1239
1226 GOSU8 1430
1230 PRINT "YOUR CANOE UPSET IN THE L.ACHINE R.PIOS,
YOU"
1231 PRINT "LOST AL.L. YOUR' FURS"
1232 GOSUB 1244
1233 GO TO 1418
1235 L.ET f e4)'0
1237 PRINT 'YOUR FOX pEL.TS _ERE NOT CURE~ PROPERL.Y."
1238 PRINT "NO ONE .IL.~ auy THE~,'
1239 Goaue 1244
1240 GO TO 1410
1244 PRINT 'SUPPL.IES AT FORT STAOACONA COST $125,00"
1246 PRINT "YOUR TRAVEL. EXPENSES TO SrAOACONA WERE S\~,00'
1248 RETUHN
1250 L.ET 101-105
125. PRINT
1260 L.ET "l oIN1((,15 0 RNDe0)+I,061 0 10 A2',5)/10,2
1261 LofT EloINT((,15*RND(01+,ge).10A2+.5)/10'2
1262 L.ET BI'INTCe,250RNO(0)+1.00hI0A2+,51110A2
1263 L.ET 010INTee,250RNO(0)+I,10)0I0A2+,5)/10A2
1270 L.ET P'INT(l0' R NOe0))+1
1271 IF P"2 THEN 1281
1272 IF P<06 T~EN 1291
1273 IF P<o8 THEN 1295
1274 IF P.,u THEN 1306
1281 PRINT "YOU WERE ATTACKED BY A PARTY OF IROQUOIS,"
1282 PRINT "ALL PEOPL.E IN YOUR TRADING GROUP wERE'
1283 PRINT "KIL.LED,
THIS ENDS THE GAME,"
1284 STOP
1291 PRINT 'YoU .ERE L.ut~Y.
YOU ARRIVED sAFEL.Y"
1292 PRINT "AT FORT NEW YORK,"
1293 GO TO 1311
1295 GOSUB 1430
IJ00 PRINT "YOU, NARROwL.Y ESCAPED AN IROQUOIS RAlDING PARTY,"
13B! PRINT "HO"lVER. YOU HAD TO L.EAVE ALL. YOUR FURS BEHIND,'
1303 Gosue 1320
1304 GO TO 1418
1306 L.ET BI-61/2
1307 L.ET Ml O Ml12
1308 PRINT 'YOUR MINK AND BEAVER WERE DAMAGED ON YOUR TRIP."
g~~ ~~!~~ ;~~~ RECEIVE ONL.Y HAL.F THE CURRENT PRICE FOR THESE FURS,"
lJ12 GO TO 1410
1320 PRINT "SUPPL.1ES AT NEW YORK COST S80,~0"
1322 RETURN
'
1400 PRINT '"DO yOU wANT TO TRADE AT ANOTHER FORy?"
1402 PRINT 'ANS_ER yEs OR NO".
1403 INPUT BS
1404 RETURN
1410 PRINT
1412 PRINT "YOUR BEAVER SOL.D FOR S",SI*H2)1
1414 PRINT "YOU~ FOX SOL.D FOR S"'OI*F(4)
1416 PRINT 'YOUR ERMINE SOL.D FOR $',EhF(3),
1417 PRINl "YOUR MINK SOL.D FOR S"~I.F(I)
1'418 L.ET'I'MloFel)+SloFe2)+EhFe3)+010Fe4)+I
14211 PRINT
1422 PqI~T "YOU NO. H'VE
f" INCLuOING YOUR PREVIOus SAVINGS"
1425 GO TO ;06
1430 FOR Jcl TO
1432 L.ET F(J)00
1434 NEXT J
1436 RETURN

5"'

2000 O,6.TA "MINK","SlAVER","ERMINE","F'OX"
2046
2200
2210
2220

END
PRINT
PRINT "yOU ENDED yOUR FUR TUDING .IT~ $01',"
PRINT '~OPE yOu ENJOYED YOUqSEL.N"

SAMPLE RUN
YOU ARE THE LEADER OF A FRENCH FliR TRAC'ING EXPEDITION IN
1776 LEAYING THE LAKE ONTARIO AREA TO SELL Fl":S AN.' GET
SIJPPLIES FOR THE NEXT YEAR.
1'01.1 HAYE A CHOICE OF THREE
FORTS AT WHICH YOU MAY TRRD~
THE COST OF SUPPLIES
AND THE AMOUNT YOU RECEIYE FOR YOU.: FlI.:S WILL DEPENC'

DO YOU
ANSWER

WANT TO TRADE FURS NEXT YEAR?
YES OR NO
? YES

YOU HAVE .$ 487.9 SFIVINGS.
AND 190 FURS TO BEGIN THE EXPEDITION.

ON "fHE FORT THAT '1'01) CHOOSE.
DO YOU WISH TO TRADE FURS':'
ANSWER YES OR NO

YOUR :190 FURS ARE DISTRIBI)TED AMONG THE FCJLLOWING
KINDS OF PELTS: MINK, BEAYER, ERMINE ANC' FOX.

? YES

''I'OU HAVE $ 60£1 SAVINGS.

'HOI~

MANY MINK PELTS DO YOU HAVE? 60

HOI~

t1ANY BEAYER PELTS DO ,'Oll HAYE? 50

AND 190 FURS TO BEGIN THE E:><:PEDITJON.
YOUR 190 FURS ARE DISH:IBUTED AMONG THE FOLLOWING
MINK, BEAYER, ERM I NE AND FOX.

Ie I NDS OF PEL TS:

HOI~ tiANY ERM I NE PELTS DO YOU HAVE? 40

HOI~

HOI~ t1AN,' FOX PELTS DO ,'Oll HAYE? 40
DO YOU WANT TO TRADE YOUR FURS AT FORT 1, FORT 2,
OR FORT 3?
FORT 1 IS FORT HOCHELAGA (MQNTREAl)
fiND IS UNDER THE PROTECTION OF THE FRENCH A.:MI'.
FORT 2 IS FORT STADACONA (QUEBEC) AND IS '-'NDH: THE
PROTECTION OF THE FRENCH ARMY.
HOWEYER, ,'01.1 MUST
MAKE A PORTAGE"AND CROSS THE LACHINE RAPID~
FORT ] IS FORT NEW YORK AND IS UNDER DUTCH CONTROL.
YOU MUST CROSS THROUGH I,:OQlI(oiS LAND.
ANSI~ER 1,
2., OR J.
c· 3
YOU HAVE CI{OSEN THE NOST DIFFICULT ROUTE.
FIT
FORT NEW YORK 'T'OI) WILL RECEIVE THE HIGHEST ..... ALUE
FOR YOUR FURS.
THE COST OF 'T'OUR SUPF'LIES
WILL BE LOWER THAN RT ALL THE OTHER FORTS.
DO YOU WRNT TO TRADE RT ANOTHER FORT?
ANSI~ER YOS OR NO
", NO

MANY MINK PELTS DO '~OU HAVE? 50

HOW t1ANY BEAVER PELTS C'O YOLI HAVE" 40
HOI~

MANY ERMINE PELTS DO I'OLI HAVE? 50

HOI~

MANY FOX PELTS DO YOU HAYE? 50

L)O YOU WANT TO TFi:ADE 'r'OUR FURS AT FORT L

OR FORT]:1

FORT 1 IS FORT

HOCHEL~GA

FORT 2,

<MONTREAL)

AND IS UNDER THo PROTECTION OF THo FRENCH ARM'~.
FORT 2 IS FORT STFIDRCONA (QUEBEC) ANC' IS UN("Et': THE
PROTECTION OF THE FRENCH ARMY.
HOWEYER., ,'Oll NUST
MAKE A PORTAGE AND CROSS THE LACH I NE RAP IDS.

FORT 3: IS FORT

NE~~

't'ORf< fiND IS UNC'ER DUTCH CONTROL.

'1'01) t1UST CRO::·S THROUGH

I ROQUO I S LAND.

ANSWER 1. 2. OR 3.
? 3:
YOU HAVE CHOSEN THE MOST C· I FF I CUL T
FORT NEW YORK

F'~OUTE.

FIT

YOU WILL RECEIYE THE HIGHEST 'IALUE

FOR YOUR FURS.

THE COST OF

YOIJF'~

YOUR til NK AND BEAVER WERE DAMAGEC' ON ,'OUR TR I P.
YOU REeE lllE ONL Y HALF THE CURRENT PR I CE FOR THESE
SUPPLIES AT NEW YORK COST $80'.0e

SUPPLIES

WILL BE LOI~ER THAN AT ALL THE OTHER FORTS.
DO YOU l~ANT TO TRADE AT ANOTHEf<~ FORT?
ANS~~ER YES OR NO
? NO

YOUR BEAVER SOLD FOR .$ 28 "'OUR FO:< SOLD FOR .$ 46

"'OU NARROWL Y ESCAPED FLN I 1':r:lt~lIO I S RA I DING PART'l'.
HOWEVER. YOU HAD TO LEAVE ALL YOUR FURS BEHIN~
SUPPL I ES AT NE~~ YORk COST $80. 130

YOUR ERMINE SOLD FOR $

43.6 ,'OUR MINK SOLD FOR $

YOU NOI~ HAVE" 535.6

INCLUDING 1'01.1.: PRn'IOUS SAYINGS

DO YOLI
','Oll NOW HAVE $

495

FLI~~g.

INCLUDING YOUR PF':E ..... JOUS SA ..... INGS

ANSI~ER

3:5.1

WANT TO TRADE FURS NEXT ,'EA.:?
'~ES OR NO
.,. YES

DO YOU WANT TO TRADE FURS NEXT YEAR'
ANSI~ER YES OR NO
-, ,'E5

YOU HAVE $ 5}5. 6 SAY I NGS.
AND 190 FURS TO BEGIN THE EXPEe'ITION.

,'ou HAVE $ 495 SAV I NGS.
AND 190 FURS TO BEGIN THE EXPEC'ITION.

,'OUR 190 FURS ARE D I STR I BUTED AMONG THE FOLLOW I NG
KINDS OF PELTS: MINK, BEAVER, ERM I NE ANC' FOX.

I'OUR 190 FURS ARE [dSTRIBUTE,' AMONG THE FOLLOWING
KINDS OF PEL T5: NlNK, BEAI'ER. E':MINE AND FOX.

HOW t1ANY MINK PEL TS DO YOU HAVE" 50

HOL4 MANY BEAVER PEL T5 DO 'r'OU HAVE? 4121
HOl~

MANY MINK PELTS DO 'r'CIU HAVE? 5121
HOW I1ANY ERMINE PEL TS DO 'TIOU HAVE? 513

H(:~4

MANY BEAVEFi: PEL TS DO YOU HAVE? 4r21

HOl4 I1ANY FOX PELTS DO "'01) HAilE? 50
DO YOU I~ANT TO TRADE YOUR FURS AT FO,:T 1, FORT 2,
OR FORT 3?
FORT 1 IS FORT HOCHELAGA (MONTREAl)
AND IS UNDER THE PROTECTION OF THE FRENCH ARM,'.
FORT 2 IS FORT STAQACONA (QUEBEc) ANC' IS lINC'ER THE
PROTECTION OF THE FRENCH ARMY.
HOWEVH:, ,'Oll MUST
't1AKE A PORTAGE AND CROSS THE LACHINE RAPIDS.
FORT 3 IS FORT NEW VORK AND IS UNDER Cd.)TCH CONTI'~OL.
YOU MUST CROSS THROUGH I RDQLIO I S LANC'.
ANSI~ER 1,
2, OR 3.

HOW tiANY ERMINE PELTS DO YOU HAVE? 50
HOI~

tiAN'1 FOX PELTS DO '~OU HAVU 50
DO YOU WANT TO H:ADE ,'OUR FU,:S AT FORT 1., FORT 2,
OR FORT 3?
FORT 1 IS FORT HOCHELAGA (MONTREAL)
AND 15 UNDER THE PROTECTION OF THE FRENCH Af<:M"'.
FORT 2 IS FORT STADRCONA (QUEBEC) AND IS UNDER THE
Pf<OTECTION OF THE FRENCH ARMY.
HOWEYE.:.' YOU MUST
MAKE A PORTAGE AND CROSS THE LACH1NE RAP1DS.
FORT :5 IS FORT NEW YORK AND IS UNC'E.: DliTCH CONH:OL.
','OU tWST CROSS THROUGH IROQUOIS LANe,.

ANSl4ER 1,
? 2

? 1
YOU HAVE CHOSoN THE EASIEST ROUTE.
HOWEYE~
THE FORT
IS FAR FROM ANY SEAPORT.
THE VALLIE
YOU RECE I \'E FOR YOUR FURS WILL BE LOW ANt' THE COST
OF SUPPLIES HIGHEI': THAN AT FORTS STADACONA OR NEW ,,'(lRI<.
DO YOU WANT TO TRADE AT ANOTHER FORT?
ANSI~ER YES OR NO
? NO

OR 3.

YOU HAVE CHOSEN A HARt' ROUTE.
1T IS, IN COMPFIRSION .•
HARDER THAN THE ROUTE TO HOCHELAGA E:UT EASIER THAN
'THE ROUTE TO NEW YORk.
YOU WILL RECEIVE AN FtVERFIGE ..... ALUE
FOR YOUR FURS ANt' THE COST OF ,,'OUR SUPPLIES WILL BE AVERAGE
DO YOU WANT TO TRADE AT ANOTHER FOPT'"
ANSWER YES OR NO
NO

SUPPLIES AT FQRT HOCHELAGA CO:;,T $150.00
YOUR TRAVEl. EXPENSES TO HOCHELAGA WERE $10. 00

n. 8 ,'OLIR FOX SOLD FOR $ 49. 5

YOUR FOM PELTS WERE NOT CURED PROPEPL~

YOUR BEAVER SOLD FOR $

NO ONE WILL BU,' THEM.

YOUR ERN 1 NE SOLD FOR $ 3:6 ,,'(lUR MINK SOLe· FOR $

4~:.

SUPPLIES AT FORT STADACONA COST $125. €'Ie
YOUR TRAVEL EXPENSES TO STADACONA WERE $15. 00
"'OUR BEAVER SOLD 'FOR $
'r'eUR ERMINE SOLD FOR $

4e.4 ,,'OIJR FOX SOLe, FOI': $ to
46 'r'OUR MINK sou;. FOl': $ 46. ~

YOU NOl4 HAVE $

INCLUDING 'r'OUR PREVIOUS SAVINGS

487.9

YOU NOW HAilE $

536.4

INCLUDING

YOU~~

DO YOU WANT TO TRADE FURS NEXT ,'EAR"
ANSIIER YES OR NO
,. NO

108

PRE\nOUs. SAVINGS

GOLF

18 HOLES OF GOLF

Description
Up to four players may play up to 18 holes of golf. The length
of each hole and par are given to the players. Each player
chooses a club. and the computer determines the results of the
shot. A player can duff a shot or get a hole in one. There
are also water hazards, rough, and sand traps. Not.e: It is
sometimes very difficult to chip out of a sand trap.
computer Limitations
This version of GOLF was written for a DIGITAL EduSystem 30:
however, Statements 140 and 150 are the only ones unique to
that system and may be easily changed. When using EduSystem 30,
the NOLINE command must be given before running.
program.Author
There are several good one-player golf games. Paul Raymond
of College St·. Laurent, Quebec, submitted one and another
has been around DIGITAL for years. However, this is the
best multi-player version we've seen. Available from DECUS
as BASIC 8-560, it was written by:
Howard Kargman
194 King Philip Drive
West Hartford, CT 06117

109

1966 byTheCurtis Publishing Co.

PROGRAM LISTING
:l99RANDOMIZE
:l10DIMX(20)
120PRINT"DO YOU WANT DIREC~IONS Y FOR YES N FOR r
:130 I NPUUZ\PR I NT
140IFZ=.YTHEN160
:lS0IFZ=INTHEN290
160PR INT"D I RECT IONS FOR GOLF"
H0PRINT
:lS0PRINT"YOU HAVE A CHOICE OF 9 CLUBS'
:l90PRINT"WHEN THE COMPUTER TELLS YOU TO CHOSE I'OUR CLUB'
200PRINT"INPUT 1 FOR A DRIVER RANGE OF 150 TO 270 YARDS"
210PRINT"INPUT 2 FOR A ] WOOD RANGE OF 150 TO 220 YARDS"
220PR I NT" INPUT ] FOR A 5 I RON RANGE OF 140 TO 180 YARDS'
230PR!NT"INPUT 4 FOR A 6 IRON RANGE OF 120 TO 180 YARDS
GOOD
240PRINT"INPUT 5 FOR A 7 IRON RANGE OF 100 TO.1l0 YARDS
GOOD
250PR I NT" INPUT 6 FOR A a I RON· RANGE OF ·70 TO 100 YARDS
GOOD
260PRINT"INPUT 7 FOR A 9 IRON RANGE OF l0 TO 70 YARDS
GOOD
270PRINT"INPUT a FOR A WEDGE
RANGE UP TO 3:0 YARDS
GOOD
280PRINT"INPUT 9 FOR ·A PUTTER USE WHEN ON GREEN"
290PRINT
J00PRINT"HOW MANY PLAYERS ARE PLAYING TODAY',\INPUTU\PRIN1
310 I FU(=4THEN340
320PRINT"ONLY FOUR ARE ALLOWED TO PLAY AT ONE TIME"
330GOT0300
.
340PRINT
350DATA360, 4, 585, 5, 400, 4, 185, 3, 415, 4, 375, 4, 219, ]

:1300GOT0600
1310LETX(9)=INT(]oRND(X)+1)
1320GOT0601
. .
1330STOP
1340 IFX=1 THEN1160 ..
13501FX=2THEN1140 ..
13601FX=31HEN11S0
13?0IFX=4THEN1200
13SIIFX=5THEN1220
13901FX=6THEN1240
14001FX=7THEN1260
1410IFX=STHEN12S0
14201FX=9THEN1310
:l4l0GOT0600
1440END
FROM
FROM
FROM
FROM
FROM

ROlIGH"
ROUGH"
TRAP"
TRAP"
TRAP"

SAMPLE RUN
DO YOU WANT 0 I REeT IONS Y FOR YES N FOR NO
Y
DIRECTIONS FOR GOLF
YOU HAVE A CHOIC~ OF 9 CLUBS
WHEN THE COMPUTER TELLS YOU TO CHOSE· YOUR CLU~
INPUT 1 FOR A lIRIYER RANGE OF is'· TO 270 VARDS
INPUT 2 FOR A ] WOOD RANGE OF 150 TO 220 VARDS
INPUT 3 FOR A 5 IRON RANGE OF 140 TO 1BI VARbs'
INPUT 4 FOR A 6 I'RON RANGE OF 120 TO 181 VARDS
INPUT 5 FOR A 7 IRON RANGE OF 100 TO 130 YARDS
INPUT 6 FOR A 8 IRON RANGE OF ·70 TO '100 YARDS
30 TO ' 70 YARDS
INPUT 7 FOR A 9 IRON RANGE OF
INPUT 8 FOR A WEDGE
RANGE UP TO ]0 YARDS
INPUT 9 FOR A PUTTER USE WHEN ON GREEN

360DATA395,4,6]0,5,]30,4,610,5,440,4,18e,L42~4.595,5,195,]

310DATA450,4,370,4
Je0DIMA(18)
3900 I MP C18)
400FORR=1T01B
410READACRI\READPeR)
420NEXTR
430DIM M(4,18)
440OIMN(10)
450PRINT"HOW MANY HOLES UP TO 1B DO YOU WANT TO pLAY?"\INPUTV
460PRINT
.
470FORJ=1TO Y
<lS0FOR Q=1 TO U
490LETH=A(J)
seePRINT"HOLE NUMBER",J; "IS",H, "YARDS PAR",P(J)
510LETK=0

HOW MANY PLAYERS ARE PLAYING 10DAY?1

HOW MANY. HOLES UP TO 1800 YOU WArn TO PlAY?
?5
HOLE NUMBER 1 IS 160 YARDS PAR 4
PLAYER NUMBER 1 CHOSE YOUR CLUB

~;20LETT=0

DISTANCE OF SHOT IS 1B4 YARDS
DISTANCE REMAINING TO PIN IS 17<5 YARDS
PLAYER .NUMBER 1 CHOSE YOUR CLlJB

5J0LET T2=0
540PRINT"PLAYER NUMBER"; Q, 'CHOSE YOUR CLUB"
5501NPUT x
5601FX=9THEN88e
5"10LETK=K+1
590 IF X"9 THEN 930
590GOT01340
6901FX=9THEN970
610LETD=X

12
D I·STANCE OF SHOT IS 262 YARDS
DISTANCE REMAINING TO PIN IS B6 YARDS
PLAYER NUMBER 1 CHOSE YOUR CLUB
76
D I STANCE OF SHOT· IS 79 ,YARDS
PLAYER NUMBER 1 IS ON THE GREEN CHOSE YOUR CLUB

~~:~~~~~~6 ~ ~~~~~~:l~~ I ~~~~1 i~~~~?~;;~ ~~~~~?LE Ui ONE' !.! "\00T0990

640LETL=INTeRND(X)0100)
650IFL=99THEN670\IFL=43THEN670\IFL=BBTHEN671
660!FL(>25THEN760
6,ePR I NT" IN TR·AP" \LETC=ABS (H-X CD) )\GOT0680
68ILETL8=INTeRND(X)010)
690IFL8)lTHEN680\IFL8=1THENB50
700LETT2=0
710FORZ=1 TOLB
n0LETT2=T2+1
"l30PRINT"CHOSE YOUR CLUB"\INPUTX
H0PRINT"STILL IN TRAP"\NEXTZ
75000T0850
'/60 I FL = 1lTHEN780\ I FL=B8THEN7B0
770IFLC)25THENB00
780PRINT"IN ROUGH"\LETC=ABSIH-XeD))\GOTOB50
790IFL=69THEN810\IFL=73THEN810\IFL=<l1THEN810
9001FL075THEN 830
810PRINT"IN WATER"\LETT=T+1\PRINT"YOLI LOSE 1 STROKE"\LETC=AB5(H-XeD))
920GOT0850
S]0LETC=ABS(H-X(D) )
840IFC<l0THEN9l0
95ePRINT"DISTANCE REMAINING TO PIN IS";Ci"I'ARDS"
860LETH=C
070GOT0540
SS0LETC=A I J)
8.90IFC)]0THEN910
90000T0970
910PRINT"YOU ARE NOT ON THE GREEN CHOSE ANOT~ER CLUB'
92eGOT0550
930PRINT"PLAYER NUMBER";Q; "IS ON THE GREEN CHOSE YOUR CLUB"
9401NPUTX
!150LETD=X
960GOT0590
971PRINT XID) "PUTTS"
980LETM (Q, .J) =K+X (9 )+T+T2\GOT01101
990LETMCQ, J)=K\PRINT"YOU SUNK THE SHOT"
1"0PRINTMIQ, J)"STROKES FOR HOLE NUMBER"; J; 'FOR PLAYER", Q
1110NEXTQ\PR INT\PR I NT
1020NEXT J
1030FORW=1 TOV
:l040LETN (1 )=M (1, WHN (1)
1050LETN(2)=M(2, W)+N(2)
1060LETN(3)=M(],W)+N(])
1070LETN e4 )=M (4, WHN e 4)
l1alLET E= P(W)+E
1090NEXTW
1~0'FORS=1 TOU
1110PRINT"PLAYER NUMBER"; 5; 'SHOT"; NeS), "FOR', Y; "HOLES PAR IS", E
H;;:0NEXT S
1130GOT01440
1140LETM(2)=INTe1Je.RNDeX)+1SI)
1150G·OT0600
.
1160LETX(1)=INT(90.RND(X)+1B0)
H7100T0600
1180LETX (])= INT (40*RND (X 1+140)
1190GOTd600
1200LETX (4) = I NT e6.0*RND e X.I+120)
121000T0600
1220LETX (5) = I NT (l'oRND (X )+100)
12]0GOT0600

6 STROKES FOR HOLE NUMBER 1 FOR PLAYER 1

3 PUTTS

HOLE NUMBER 2 IS 5B5 YARDS PAR 5
PLAYER NUMBER 1 CHOSE YOUR CLUB

'1
DISTANCE OF SHOT 15 225 YARDS
Itl TRAP
DISTANCE REMAINING TO PIN IS ]60 YARDS
PLAYER NUMBER 1· CHOSE YOUR CLUB

76
D I STANCE OF SHOT IS aB YARDS
DISTANCE REMAINING TO PIN IS 272 YARDS
PLAYER NUMBER 1 CHOSE YOUR CLUB
71
DISTANCE OF SHOT IS 2]2 YARDS
o I STANCE REM A I N I NG TO PIN IS 40 YARDS
PLAYER NUMBER 1 CHOSE YOUR CLUB
77
D I STANCE OF SHOT IS]] ',ARDS
PLAYER NUMBER 1 IS~N THE GREEN CHOSE YOUR CLUB
'~9

3 PUTTS

.7 STROKES FOR HOLE NUMBER

PLAYER 1

HOLE NUMBER] IS 400 YARDS PAR ~
PLAYER NUMBER 1 CHOSE YOUR CLUB

'1
DISTANCE OF SHOT IS 236 YARDS
DISTANCE REMAINING TO PIN IS 164- YARDS·
PLAYER NUMBER 1 CHOSE YOUR CLUB·
75
DISTANCE OF SHOT IS 102 YARDS
DISTANCE REMAINING TO PIN IS 62· YARDS
PLAYER NUMBER· 1 CHOSE YOUR CLU~

. .

DISTANCE Of. ·SHQT.' IS 50 YARDS
PLAYER NUMBtR.1 lS ON THE GREEN CHOSE YOUR CLUB

1 PUTTS'
<I STROKES FOR HOLE NUMBER 3 FOR PLAYER 1
HOLE· NUMBER 4"15 185 YARDS PAR]
PLAYER NUMBER 1 CHOSE YOUR CLUB
12
DISTANCE' OF SHOT IS 182 YARDS
... ~.~.RYE.R NUl'IBER 1 I S ON THE" GREEN CHOSE YOUR CLUB

puns

~
4 STROKES FOR HOLE NUMBER .4 FOR: PLAYER

HOLE NUMBER 5 IS 4:1.5 YARDS PAR 4
PI-AVER N.UMl!ER 1 CHOSE YOUR eLU~
71DISTANCE OF SHOT IS 210 YARDS
DISTANCE REMAINING TO PIN IS 205 YARDS
PLAYER NUMBER 1 CHOSE YOUR CLUB

::;:~~1:~:~=INTI300RND(X)+70)
1260LETX <?) = I NT (4IoRND( X) +3~)
127000T0600
1280LETX(8)=INT(30oRND(X)+1)
1290IFXIS){1THEN12S0

~ FOR

110

DISTANCE ,OF SHOT IS 208 YARDS
PLAYER NUMBER 1 IS ON THE GREEN CHOSE YOUR CLUB
?9
] PUTTS
5 STROKES FOR HOLE NUMBER 5 FOR PLAYER 1

GOOD
GOOD
GOOD
GOOD
GOOD

FROM
FROM
FROM
FROM
FROM

ROUGH
ROUGH
TRAP
TRAP
TRAP

GOMOKO

ORIENTAL GAME OF GO-MOKO

Description
GO-MOKO is a traditional game of the Orient.
It is played by
two people on a board of intersecting lines (19 left-to-right
lines; 19 top-to-bottom lines, 361 intersections in all).
Players take turns. During his turn, a player may cover one
intersection with a marker; (one player uses white markers;
the other player uses black markers). The object of the game
is to get five adjacent markers in a row, horizontally, vertically or along either diagonal.
Unfortunately, this program does not make the computer a very
good player.
It does not know when you are about to win or
even who has won. But some of its moves may surprise you.
computer Limitations
This program is dimensioned (in Statement 120) for a 19x19
board. Depending upon the size of your computer, you may have
to scale this down. A 7x7 board is the smallest that can be
used for a meaningful game.
Source
Peter Sessions
People·' s Computer Company
Menlo Park, CA 94025

III

PROGRAM LISTING

SAMPLE RUN

hi PRINT\PRI.T "wELCOME TO TME CRIE'TAL GA"E OF GO~O~O"
20 PRINT\PRI"T "THE GAME 15 PLAV<O ON AN N BY N r,RIO OF A SllE"
J~ PRINT "THAT YOU SPECIFy.
DUR!',G VQUH PLAY. YOU MH CQVER O~E GRID.
40 PRINT "INTERSECTION >ITM A MARKER. THE OBJECT OF THE GAME IS TO GET"

UELCOME TO THE ORIENTAL GAME OF GOMOKO

3~ PRINT

"5~tJACo"T "-A~ll:]N- A ROw •• HORIZONHLLV.,

60 PRINT "ALONG EITHEH pIAGCNIL.
70 PRINT

11~1ARI\Er!

WlTI-t A

A~O Tlolf. cnMPlJTE~ MOVES
un~s NOT KfEP TRACK OF

'1 1 ,

80 PRINT\P"",T "THE CO'PUTE'·
90 P~INT

"to Et-!D HIE. GAttE;

nN THE 60.Ro

vERTICAI.LV, OR"·
DIAGRAM. YOUR MOVES ARE"

TVPE

\NITI"I A 12 1 . "

WMO HAS WON."

'-1,-1' FOR YOUR MOVE"\PRINj

110 PRINT "IlHAT IS YOUQ 60AI-'O SI7E CrotIN ./,
115 IF N., THEN li7

~IA)(

= t9) 1I 1'INPUT N

THE COMPUTER DOES NOT KEEP TRACK OF WHO HAS WON.
TO END THE GAME, TYPE • -1, -1' FOR YOUR MOYE

116 I:OTO 120

117 I' NC2~ THH J'e
120 PHI"T "I SilO, lH~ MI.!, UM SIZE IS 7. "'0 Tt.E MAXIMUM IS 19,"\r,OTO 110
21V FOR I-I TO 'vaR JOI TO "\ACX.V)-@\~EXT .l\NEXT I
300 P~INT\PHI'T "-E AlTE~NA'iE "UV'.S,
VOll (;0 FIRST .. ,"\PRI"T
31~ PRINT "YOUR PL~Y-n,Jj":\l"PlJT I.J
320 IF r __ 1 reE'· 9~~
3J~ Xor\YoJ\GCRlJB Q10\tr L-t THE" 'I~
340 PRINT "ILLEGAl. r-tOvF.. TR, AGIIIl\I ••• t'\GOTO 310
410 IF I(I.J).~ THEN .40
42((1 PRI~!T I'S(.lUARE OCCUPIED. TRY AGAI~ ••• "'GOTO 31~
440 A(!,Jjol
5~~

REM ••• CQMPUTtR

TRI~S

6~.

flNT(LLIGE~TI

51" fOR E-·I T.O I VOR Fo·1 ., ~ 1\ rr
54~ LET X~I+F\LtT V.J+F\G05U8 91~
570 IF Lo. THfN 59.

E.F·E'Fo~

MOVE •••
THfN

59~

,\NExT E

600 REM •••

cn~PllTfR

TRlts •

~A~~OM

~ov~

•••

61. LET X.I~T('''RNrl(.l).I'LfT YoINT(RND(0ll+!\G05Uij 9H'\1F La, T"~N ~10
65~ IF A(X,Y)<>{ TH~~ ~1~

66W

ACX,Y)a2'GOSU~

81~'GOrn

311~

71"" Jt=! ... E\'vaJ.F\GIJSIJl;, QUJ
75!it 11- L.lrlfl ft-tl:.:\i ~qia

98~

"T~.N~5

FOA

T~E

GA~~1Ih

Fi)k. YES,

f}.

YOU GO FIRST.

YOUR PLAY (I.J)? 4.4
e 0 0 0 0 0 0
9
0 0 9 0 0 0
0
0

0
0
2
0

0
0
0

0
0

000
000
000
000

0
1
0
0
0
0

0
e 0
0
0
0 0
0 0
o.0

0
0 0
0 0 0
0 0 0
000

YOUR PLAY
0
0 0
0
2 0
0
0 1
0
0
0
0 0 0

0
0
0
1
0

0
0
0
0
1

0
2
0

0
0

0
0
0

000
o 0 0

0
0

020

000
000

( I . J>?

e e e
e

5.5

(I,J)?

o
o

0
0
0
0
0
0

o
1
o
o
o
o

L=l~'QETU~N

PPINT\PRI~T

Qh!5 PRINT uPLAY 6,GA.I""
Q90 IF Qa1 TloIfl'l 110
999 f"O

WE ALTERNATE MOVES.

7t;~ r,OTO ~5~·
8~~ RE.M ..... plofh·r ThE 80AJ.i!)
81121 FOR 1=1 TO ~,\F(1R J=l TO N,p~II\;T 6(I,J)J
840 '~.T J'PN,.T \.tXT '\.NJ'T \RtTUR.
9~1i'! Rt:-.M ..... C' .. EC~ ',;.,ETl-lfR MLv't: IR U:GAL •••
91~ Lal\IF Xci T"ON 97,.9::!!7' IF x>~. THE~· 970
q3~) IF 1«1 T~E.'\; 971
94r IF y>~ THE~' 07~
95. PETU.,·,

979' LtT

IIHAT IS YOUR BOARD SIZE (MIN =7, MAX = 19)? 8

'lOUR PLAY

560 IF A()t.n"l TNEoN 7IP,

590 NEXT

THE GAME IS PLAYED ON AN N BY N GRID OF A SIZE
THAT YOU SPECIF~
DURING YOUR PLAY. YOU MAY COYER ONE GRID
INTERSECTION WITH A MARKE~
THE OBJECT OF THE GAME IS TO GET
5 ADJACENT MARKERS I N A ROW -- HOR I ZONTALLY. YERT! CALL y, OR
ALONG EITHER DIAGONAL.
ON THE SOARD DIAGRAM. YOUR MOVES ARE
MARKED WITH A 'I', AND THE COMPUtER MOVES WITH A '2'.

:l,:l
0

0
0
0
0

0
0
0
0
0

e
2

YOUR PLAY ( i . n ? :l,5
e e 0 e 0 0 0
e 2 0 0 0 2 0
e e 1 e 1 0 0
0
0
0
0
0 0 1
0 0 e 0 1 e e
0 0 0 0 2 0
0
2 e 0 0 e e e
0 0 0 0 0 e 0

F()R NO)"'\II'.,PI,.!T g

YOUR PLAY (I.J)? 5.3
0 0 e 0 0 e 0
e 2 0 0 0 2 0
e 0 1 0 1 0 0
e 0 0 1 0 e 0
e 0 1 e 1 e e
e 2 e e e 2 0
2 0 e 0 e 0 ~
9

YOU~

2
0
0
9
0
0
2
0

PLAY (I.J>? 4,5
0 e 0 0 0
0 0 0 2 0
0 1 0 1 0 0
0 0 1 1 0 0
e 1 0 1 e 0
2 0 0 0 2 e
e 0 0 0 0 0
0 0 0 e 0 0
0
2

YOUR PLAY (1.J)? 4,3
2 0 0 0 e 0 0
0
2 0 0 0 2 e
0 9 1 0 1 0 0
0
0 1 1 1
e 0
2 0 1 0 1 0 e
a 2 0 0 0 2 0
2 0 0 0 e e 0
0

e e

0
0

0
0
0
0
0

o
o

o
o
o
o
0
0
0
0

e
0
0
0

e
0

e
0
0
0
0
0

e
0
0
0

e
0
0

e
e
0
0
0
0
0
0
0
0

e
e
0

e
0
0

YOUR PLAY (I.J)? 4,2
2 0 0 00000
o 2 0 00200
o 0 1 o 1 e e e
e 1 1 1100·0
2 0 1 o 1 e 0 e
o 2 0 o a 2 e 0
2

·0-

0
0

000

YOUR PLAY n, J)? 4.5
SQUARE OCCUPIED. TRY AGAIN.
YOUR PLAY n, J>? 4.6.
200 0 0 0 0 0
2
0 0 200

001

0
2

1
0

0
2

2
0

0
0

o
2
o
2
2

YOUR PLAY

e
0
0

e e

(I, J>?

e
e
e
e
e

-1,-1

THANKS FOR THE GAME!'
PLAY AGAIN (1 FOR YES, e FOR NO>? 0
READY

112

PROGRAM LISTING

SAMPLE RUN

1 PRI "THIS IS A NUMBER GUESSING GAME.
I'LL THINK'
2 PRI "OF A NUMBER BETWEEN 1 AND ANV LIMIT YOU WANT.
3 PRI "THEN YOU HAVE TO GUESS WHAT IT IS.
4 PRI
5 PRI "WHAT LIMIT DO'YOU WANT',
6 INPL
7 PRI
8 Ll=INT(LOG<L)/LOG(Z»+1
10 PRI'I'M THINKING OF A NUMBER BETWEEN 1 AND'L
11 G=l
14 PR I "NOW YOU TRY TO GUESS WHAT I TIS'
15 M=INHL*RND(0»+1
20 INP N
21 IF N)0 THEN 25
22 G05UB70
23 GOTOl
25 IF N=M THEN 50

TH I SIS A NUMBER GUESS I NG GAME.
I'LL TH I NK
OF A NUMBER BETWEEN 1 AND ANY LIMIT YOU WANT.
THEN YOU HAVE TO GUESS WHAT IT IS.

39 G:!::G+1

31 IF N)M THEN 40
l2 PR I "TOO LOW, GUESS AGA I N. '
33 GOTO 20
40 PRI 'TOO HIGH.
GUESS AGAIN.
42 GOTO 20
50 PRI "THAT'S IT!
YOU GOT IT IN'G'TRIES.
52 IF G(L1 THEN 58
54 IF G=Ll THEN 60
56 PRI"YOU SHOULD HAYE BEEN ABLE TO GET IT IN ONLY'L1".
57 GOT 65
58 PRI'VERY 'J
60 PRI"GOOO'
65 GOSUB70
66 GOT010
70 FOR H=l TO 5
71 PRI
12 NEXT H
73 RETURN
99 END

WHAT LIMIT DO YOU WANT? 100
I'M TH INK INO OF A NUMBER BETWEEN 1 AND 100'
NOW YOU TRY TO GUESS WHAT IT IS
? 50'
TOO HIGH.
GUESS AGAIN.
? 25
THAT'S IT!
YOU GOT IT IN 2 TRIES.
VERVGOOD!

F M TH I NK I NG OF A NUMBER BETWEEN 1 AND 100
NOW. YOU TRV TO GUESS WHAT IT IS
? 59
TOO HIG~
GUESS AGAIN.
? 25
TOO LOW. GUESS AGAIN.
? 37
TOO HIGH.
GUESS AGAIN.
?

TOO HIGH.
GUESS AGAIN.
? 28
TOO LOW. GUESS AGA I N.

? 29
TOO LOW. GUESS AGAIN.
1 19
THAT'S IT'
YOU GOT IT IN 7 TRIES.
GOOD!

I'~ THINKING OF A NU~BER BETWEEN 1 AND 100
NOW YOU TRY TO GUESS WHAT IT IS
? 50
TOO LOW. GUESS AGAIN.
'1 75
TOO HIGH.
GUESS AGA I N.
? 62
TOO LOW. GUESS AGAIN.
'1 67
100 LOW. GUESS AGA I N.
? 71
100 LOW. GUESS AGAIN.
'1 73
THAT'S IT'
YOU GOT IT IN 6 TRIE~
VERY GOOD!

114

GUESS

GUESS A RANDOM NUMBER

Description
In Program GUESS, the computer chooses a random integer between
You must then try to guess the number
the computer has chosen using the clues provided by the computer.

o and any limit you set.

You should be able to guess the number in one less than the
number of digits needed to represent the number in binary
notation--i.e., in base 2. This ought to give you a clue as
to the optimum search technique.
computer Limitations
There are no real limitations; however, the listing is from
DIGITAL EduSystem 20 BASIC which accepts statements abbreviated
to the first three letters.
Program Author
GUESS converted from the original program in FOCAL which appeared
in the book "Computers in the Classroom" by:
·Wal t Koetke
Lexington High School
Lexington, MA 02173

83
5,

56
~~

4S
22

62
.f

12
113

GUNNER

FIRE A FIELD ARTILLERY WEAPON

Description
These two programs allow you to adjust the fire of a field
artillery weapon to hit a stationary or moving target. You
specify the number of degrees of elevation of your weapon;
45 degrees provides maximum range with values under or over
45 degrees providing less range.
GUNNER is the simpler of the two programs and gives you up to
five shots to destroy the enemy before he destroys you. Gun
range is fixed at 46,500 yards, burst radius at 100 yards; you
must specify elevation within approximately 0.2 degrees to get
a hit.
GUNERl is more complex and allows you to specify the speed at
which your target is moving (but not direction!), and your
burst radius. Also, your gun has a different maximum range
randomly determined each play.
Source
GUNNER:
Tom Kloos
Oregon Museum of Science
and Industry
Portland, Oregon 97200

GUNER1:
Original author unknown.
Converted by students at:
Lexington High School
Lexington, MA 02173

115

GUNNER

PROGRAM LISTING

SAMPLE RUN

10 REI'! *** IIODIFIED AND CONYERTED TO RSTS/E BY DAYID AHL. DIGITAL
90 RANDOMIZE
100 PRINT '1HIS COMPUTER DEMONSTRATION SIMULATES THE"
119 PRINT'RESULTS OF FIRING A FIELD ARTILLERY I4EAPON. "
120 PRINT
B0 PRINT· ... OU ARE THE OFFICER-IN-CHARGE. GIVING ORDERS TO THE GUN"
140 PRINT"CREW. TELLING THEM THE DEGREES OF ELEVATION YOU ESTIMATE"
150 PRINT'WILL PLACE THE PROJECTILE ON TARGET.
II HIT WITHIN 199 YARDS'
160 PRINT 'OF THE TARGET WILL DESTROY IT.
TAKE /lORE THAN 5 SHOTS."
170 PRINT 'AND THE ENEM'" WILL DESTROY YOU! "\PRINT
1130 PRINT'MAXIMUM RANGE OF YOUR GUN IS 46500 YARDS. "
1135 2=0
190 PRINT
195 S1=0
200 LET T=43999-30000*RND(X)
210 LET 5=0
220 GO TO 370
230 PRINT'MINIMUM ELEVATION OF GUN IS ONE DEGREE. "
240 GO TO 3S10
259 PRINT'MAXIMUM ELEVATION OF GUN IS 89 DEGREES.
260 GO TO 3S10
270 PRINT"OYER TARGET BY", ABS(E), "YARDS. "
280 GO TO 3S10
290 PRINT 'SHORT OF TARGET BY", ABS(E), "YARDS. "
190 GO TO 390
l10 GO TO l20
320 PRINP***TARGET DESTROYED***
",S, "ROUNDS OF AMMUNITION EXPENDED"
322 GOSUB 600
325 51=S1+5
330 IF Z=4 THEN 4S10
340 2=2+1
345 PRINT
350 PRINT'THE FORWARD OBSERVER HAS SIGHTED MORE ENEMY ACTIVITY.
360 GO TO 200
370 PRINT"
DISTANCE TO THE TARGET IS', INT(T), "YARDS ..... "
3139 PRINT
399 PRINT
409 PRINT-ELEYATION:
410 INPUT B
420 IF B)S9 THEN 250
430 IF 8<1 THEN 230
440 LET S=5+1
442 IF S{6 THEN 450
YOU HAVE JUST BEEN DESTROYED '"
444 PRINT\PRINT '800M '"
445 nasus 600
446 PRINT 'SY THE ENEMY'\PRINT\PRINT\GOTO 495
450 LET B2=2*B/57.3\LET 1=46588*SIN(B2)\LET X=T-I\LET E=INT(X)
460 IF ABS(E)(100 THEN 318
478 IF E)180 THEN 290
480 IF E(-109 THEN 270
490 PRINT\PRINT\PRINT "TOTAL ROUNDS EXPENDED ~ERE'" S1
. 491 IF S1>15 THEN 495\PRINT "NICE SHOOTING!! "\GOSUS 680\GOTO S09
495 PRINT "BETTER GO BACK TO FORT SILL FOR REFRESHER TRAINING!"
509 PRINT\PRINT 'THANK YOU FOR PLAYING!"
50215 PRINT\PRINT "TRY AGAIN ..... "\PRINT\GOTO 189
60021 . FOR N=1 TO 1e,PR I NT CHR$ (7), \NEXT N
619 RETURN
999 END

THIS COMPUTER DEMONSTRATION SIMULATES. THE
RESUL TS OF fiR I NG A FIELD AR. I LLERY WEAPON.
YOU ARE THE ·OFFICER-IN-CHARGE. GIVING ORDERS TO THE GUN
CREW. TELLING THEM THE DEGREES OF ELEYATION YOU.ESTIMATE
"'ILL PLRCE THE PROJECTILE ON TARGET.
A HIT WITHIN 188 YARDS
OF THE TARGET WILL DESTROY IT.
TAKE MORE iHAN 5 SHOTS.
AND THE ENEMY WILL DESTROY YOU!
MAX I MUM RANGE OF YOUR GUN IS 46588 YARDS.
DISTANCE TO THE TARGET IS 41757 yARDS .....
ELE"'ATION:? 35
OYER TARGET BY 1937 YARDS.
ELEYATION:? 3l
OYER TARGET BY 721 YARDS.
ELEVATION:? 31.8
S.HORT OF TARGET BY 188 YARDS.
ELEYATI ON:? 31. 9
** .. TARGET DESTROYED*""

4 ROUNDS OF AMMUNITION EXPENDED

THE FORWARD OBSERYER HFiS SIGHTED MORE ENEMY ACTIVITY.
DISTANCE TO THE TARGET IS 21460 yARDS .....
ELEYATI ON:? 16
O...ER TARGET BY li8e YARDS.
ELE~'ATI ON:? 13
SHORT OF TARGET BY 11177 YARDS.

ELEYATI ON:? 14. 3
OYER TARGET BY 798 YARDS.
ELEYFtT I ON:? 13. 8
.. .,.. TARGET DESTROYED***

4 ROUNDS OF AMMUN I TI ON EXPENDED

THE FORWARD OeSERI/ER HAS SIGHTED MORE ENEMY ACTIVITI'.
DISTANCE TO THE TARGET IS 14~43 yARDS ....
ELEYATI ON :? ~
SHORT OF TARGET ev 575 YARDS.
ELEYATION:? 9.5
OYER TRRGET 8 ... 195 "'ARDS .
ELEYATION:? 9.3
SHORT OF TARGET BV 113 YARDS.
ELEYATI ON:? 9. 37
...... TARGU DESTROYED"**

4 ROUNDS OF AMMUN IT I ON EXPENDED

THE FOR NARD OBSERVER HAS SIGHTED /lORE ENEMY ACTI V ITY.
DISTANCE TO THE TARGET 15 39518 VARDS.

READY

ELEYATION:? 28
"*.. TARGET DESTRO ... ED ......

1 ROUNDS OF AMMUNITION

E~PENDED

THE FORWARD OBSERVER HAS SIGHTED MORE ENEMY ACTIVITY.
DISTANCE TO THE TARGET IS 28617 yARDS ....
EL.EVATI ON:? 21
OYER TARGET BY 24S15 YARDS.
ELEYATI ON:? 19
...... TARGET DESTROYED"**

2 ROUNDS OF AMMUNI TI ON EXPENDED

TOTAL ROUNDS EXPENDED W£RE 15
BETTER GO BACK TO FORT SILL FOR REFRESHER TRAINING!
THANK YOU FOR PLAYING!
TRY AGAIN .....

116

GUNERl

SAMPLE RUN

PROGRAM LISTING

I ~~ R~M A!!TILU'I1Y "IRINr, GAI'IF
lie DIM A~O)
Ille RANDOMIZF
I ~~ PRINT "DO YOlI ~IANT INSTRUCTIONS";
I~e INPUT A'
I~~ PRINT
16~ I, A~="NO" Tl!~N .,,'~
170 PRINT"
THIS ~A.,r TF!;TS YOllR ABILITY TO HIT A MOVING TARGET."
180 PRI NT "YOll MUST n~~TROY IT RFI"ORE IT DESTROYS YOU OR MOVES OUT"
190 PRINT "0, RANGl'. THF TARG,T "'ILL MOVE RAMDOMLY."
200 PRINT
210 PRINT"
TYPF CTRL/C TO TFRMUATE THE PftOGRAM. TO THE IiIUESTON"
220 PRINT "'FNT,R SPF'D' TYPF A NUMBER BETWEEN I AND 180. THIS IS THE"
230 PRINT "RELATIVE SPl'ED OF THF TARGFY WHFRE I IS THE SLOWEST AND 100"
2~0 PRINT "IS THI' I"ASTEST."
2~0 PIlIN!!
2S0 PRINT "TO THI' ,,"UFSTION 'FNTFR DISTANCF' ENTER THE MAXIMUM DISTANCE"
270 PRINT "YOU CAN HIT 'ROM THF TARGET AND STILL DESTROY IT. THIS IS"
280 PRINT "iHl' 1<ILI. ·RADIUS AND "000 IS SUGGESTED FOft STARTERS."

~:: ~~~=j "ELEVATION IS TifF FUVUION OF YOUI! GUN IN DEGREES WHEN YOU"
310 PRINT ",IRF AT THF TARGFT. THF MAXIMUN RANGE IS AT 45 DEGREES"
320 Pl'tINT
330 PRINT "FN!!'R SPFFO",
'~0 INPUT S
350 II' S.I TlfeN 3.'~
360 IF S> life THEN ,'~0
370 PRINT "FN'!'F~ OISTANCF":
.~RfJ INPUT D
,~q0 II' D.0 T""N .'70
~fJ0 I" D-10000 THEN 370
4U M=l000fJ0-75~fJ0*RNDC0l
420 PRINT
~30 PRINT "THF MAXIMUM ~~NG" 0" YOUR GUN IS "1'1" Y~IlDS"
440 FOR W=I TO 1'1111'1008
Ll"T KI=RNOC0l
460 NFXT K

'.0

~70 !!=.q~*M-,6*11*~NO(0)

480 LFT N=~
'90 r-OTO '20
~00 I" R>M THFN R40
511'1 II' R.=CM/2.5l TlI,N 85V
520 PRINT "TARO!'! RANG" I~"R" YAPDS"
530 PRINT "n,VATION",
54P. INPUT"
551'1 I" £.1'1 THFN R40
56~ I" F> 89 THEN 800
570 I' F <I THFN 820
-S0 N=N+I
591'1 K=INTCR-M*S!NC2*r/. . . " )
60" 1(1=ABSCK)
610 IF 1<1.0 THEN 650
620 IF K>D THEN 121'1
53fJ IF 1(.-0 THF'M 740
';41'1 STOP
5~0 PRIN, "*** TA~GFT D"ST~OYFD ***"
SSI'! r,OSUB 940
570 DI=K
58A "OR K=I TO N+01l00
590 ~1=RNDCfl)
700 NFXl ¥
710 MTO 410
72fJ PJ!INT "SHORT ~I" TARG"'!' 8Y "1(1" YAROS"
730 MTO 74741'1 PRINT "OV,II TAROn ~Y ":¥I"Y~ROS"
74- LI'T C=INTC2*RND (0)+J)
74~ II' C=I TH"N 7.'"
748 U'T C=-I
749 GOTO 7f5~
7~0 LET C= I
760 CI=M*S/llIfI*RNDC0l
771'1 CI:C*CI
7811 R=!!+CI
798 GOTO 5~e
8~~ PRINT "MAXIMUM F'VFVA!ION IS 89 DF'GR£ES"
RI~ GOTO 53~
R2A PI'INT "I'IINII'IUM ,LFVATION IS I OFGRH"
1138 GOTO ~3e
84r PRI NT "* TAROn OllT 01' R~ NGF' *"
GOTO 67e
86P PRINT "THI' TA'lG~! liAS D"!lTROYl'D YOU I"
117~ noTO 67e
Q4" I" N:I THFN '178
9~~ PRINT N" ROlIND~ ~)(P"N!ll':D"
968 "nU"N
q78 PlInT "***U DIRFCT HIT *"''''u"
91" 'lfTUftN
990 END

""J

117

DO vOll W_ ~T I NST"llCT IONS' YFS
THIS GAI'I" TFSTS YOIIR A!'IILITY TO HIT A I'IOVIHG TARGET.
YOU MUST D,STROY IT S"I'ORF IT DESTROYS YOU 011 MOVES OUT
0" lIAHGF. TH, TARGFT WILL MOVE RAMDOI'ILY.
TYPF CTRL/C TO TE!!MINAT; Til, PROGRAM. TO THE QUESTON
',NTFII SPEED' TYPE A NI.lMBF1! B"TWF,N I AND I~f!. THIS IS THE
RELATIVE SP,ED OF THI' TARGF! WIlERE· I IS THE SLOWEST AND IIlI
IS Til" F'A!'TF'!'lT,
TO THF ~UESTION 'ENT,R DISTANCE' FNTEII TIlF MAXIMUM DISTANCE
VOU C_N HIT 1'1101'1 TH" TAMFT AND STILL DESTROY IT. THIS IS
THE KILL R~DruS AND ~0110 IS S!JGG~STEO FOR STARTE!!S.
ELEVATION IS THI' ELF'VATION 0" YOllR GUN IN DEGftEES WHEN YOU
FIRE AT TH, TAPGET. THF MAXIMUN RANGE IS AT 45 DEGREES
FNTEft SPFED? 180
l':~T'" DISTA NCF? 5ee"
TifF' MAXIMUM RANG; 01' yaUR GUN IS
TARGET RANGF' IS 19571.22 YAROS
FLFVATION? 60
*** URGFT DESTROym ***
***** DIRECT HIT *****

267<7.49

YARDS

THI' MAXIMUM R_NO'" OF VOIlP RUN IS
TAl'GET RANG" IS 19498.91 V~RDS
EL ,VA TION? 7(>1
*** TARGFT DF'!lT~Oy~n ***
***** DIRFCT HIT *****

~7888.44

YA~DS

THO:: MAXIMUM ~4NGF O~ YOII~ GI1N IS
TARGET RANGF' IS 26990.9 YAROS
FL"VA TION? 7~
SHORT 0" TAROF'! BY 7191' YA?OS
TAROn PANG!' IS 2M94." YA~OS
n,VATION? 61'
*** TARGFT DF'STI'!OyFD ***
2 ROUNDS EXPFND .. D

3078~ .11

YAPDS

Till' MAXIMUM RA~G" 01' YOIlR GUN IS
TA~GFT RANGF IS 2.327.~8
YARDS
"L"VA TION? 31'0-'
*** TARGET DFSTROYFD ***
***** DIRECT HIT *****

2741'9.9

YARDS

THE MAXIMUM R~NGF OF yOUR GllN IS
TARGET ftA~G" IS 12849.B3 YARDS
ELFVATION? 31J
,
OVE!' TARGET BY 99~ I YA!!DS
THF: TARGET HAS DESTftOYFD YOl!!

26316.88

YAROS

THI" MAXIMUM PANGF 0' yOUR GUN IS
TA~GFT RAMGF I!l 48"85.2
YARDS
,LFVATION?
tC

61J1J08.68

YAIIDS

HANG

GAME OF HANGMAN

Description
This is a simulation of the word guessing game, hangman. The
computer picks a word, tells you how many letters in the word
it has picked and then you guess a letter in the word.
If you
are right, the computer tells you where that letter belongs~
if your letter is wrong, the computer starts to hang you. You
get ten guesses before you are completely hanged:
Head
Body
Right
Right
Right
Right

and Left Arms
and Left Legs
and Left Hands
and Left Feet

In this program, the PRINT statement is abbreviated to "&."
You may add words in Data statements following Statement 508~
in this case, you must also change the random word selector in
Statement 40.
Source
Interesting versions of Hangman were received from Brandy
Brylawski, a seventh grader at the Eaglebrook School, Deerfield,
Mass., and a sophisticated one from W.K. Bateman at Montpelier
Public Schools, Montpelier, vt.
The one printed is from a high school sophomore:
Kenneth Aupperle
24 Arrowhead Lane
Melville, NY 11746

,I
I

~c'

118

SAMPLE 'RUN

PROGRAM LISTING
;19 REM *** GAME OF HANGMAN BY DAVE AHL, DIGITAL
13 REM .. ** BASED ON A PROGRAM WR I TTEN BY KEN AUPPERLE, CLASS OF '75,
20 REM ...... HALF HOLLOW HILLS H. S., DIX HILLS, NY
25 & "GAME OF HANGMAN": & : &
30 DIM P$(12, 12), L$(20), D$(29), N$(26), U(50)
40 C=1: RANDOMIZE: N=50
50 0$(1)="-" FOR 1=1 TO 20:1'1=0
60 N$(!)="" FOR 1=1 TO 26
70 FOR 1=1 TO 12: FOR J=1 TO 12: P$( I, J)="
: NEXT .1: NEXT I
80 P$(I, 1)="X" FOR 1=1 TO 12
90 P$(1, I )="X" FOR 1=1 TO 7: P$(2, 7i="X"
95 IF C<N THEN 100 ELSE PRINT "YOU OlD ALL THE WORDS!!". STOP
100 Q=INHN*RND+l)
110 IF U(Q)=1 THEN 100 ELSE U(Q)=1:C=C+1:RESTORE:T1=0
150 READ A$ FOR I =1 TO GI
:1.60 L=LEN(A$): L$( I )=MlD(A$, 1,1) FOR 1=1 TO L
:1.70 &"HERE ARE THE LETTERS YOU USED:"
180 FOR 1=1 TO 26:& N$(!); :IF N$(!+1)="" THEN 200
:1.90 PRINT ", "; :NEXT I
200 &:&:FOR 1=1 TO 'L:& D$(!); :NEXT 1:&:&
210 INPUT "WHAT IS YOUR GUESS"; G$:R=0
220 FOR 1=1 TO 26: IF N$( 1)="" THEN 259
230 IF G$=N$(I) THEN & "YOU GUESSED THAT LETTE/1 BEFORE":GOTO 170
240 NEXT 1:& "PROGRAM ERROR.
RUN AGAIN. ":STOP
250 N$(I)=G$:T1=T1+1
260 FOR 1=1 TO L:IF L$(I)=G$ THEN 280
270 NEXT I: IF R=0 THEN 290 ELSE GOTO 300
280 D$(!)=G$:R=R+l:GOTO 270
290 M=M+:I.: GO TO 400

HERE ARE THE LETTERS YOU USED:

WHAT IS ·YOUR GUESS? E

SORRY, THAT LETTER ISN'T IN THE WORD.
FIRST, WE DRAW A HEAD
XXXXXXX

X
X
X

<.. )

X
X

X
X
X
X
X

HERE ARE THE LETTERS YOU USED:
E

WHAT IS YOUR'GUESS? A

300 FOR 1=1 TO L:IF D$(I)="-" THEN 320
310
320
330
340
350
360
370
380

NEXT I: (JOTO 390
&:FOR 1=1 TO L:8o D$(!); :NEXT 1:&:&
INPUT "WHAT IS YOUR GUESS FOR THE WORD"; B$
IF B$=A$ THEN 360
&"WRONG.
TRY ANOTHER LETTER. ":&:GOTO 170
&"RIGHT!!
IT TOOK YOU"T1 "GUESSES!"
INPUT "WANT ANOTHER WORD"; W$: IF W$="YES" THEN 50
&:&"IT'S BEEN FUN!
BYE FOR NOW. ":STOP
3~0 &"YOU FOUND THE WORD!" :'OOTO 370
400 &:&:&"SORRY, THAT LETTER ISN'T IN THE WORD. "
410 ON M GOTO 415,420,425, 430, 435, 440, 445, 458, 455, 460
415 &"FIRST, WE DRAW A HEAD":GOTO 470
429 &"NOW WE DRAW A BODY":GOTO 470
425 & "NEXT WE DRAW AN ARM": GOTO 470
438 &"THIS TIME IT'S THE OTHER ARM" :GOTO 470
435 &"NOW, LET'S DRAW THE RIGHT LEG":GOTO 470
449 &"THIS TIME WE DRAW THE LEFT LEG":GOTO 470
445 &"NOW WE PUT UP A HAND":GOTO 470
459 &"NEXT THE OTHER HAND":GOTO 476
455 &"NOW WE DRAW ONE FOOT":GOTO 470
460 & "HERE'" 5 THE OTHER FOOT -- YOU" RE HUNG!!"
478 ON M GOTO 480,490,500,510,528,530,540,550,560,570
488 P$(3,6)="-":P$(3,7)="-":P$(L8)="-~P$(4'5)="(".~$(4,6)=".
481 P$(4,8)=". ":P$(4, 9)=")" :P'(5, 6)="-" :P'(5, 7)="-": P$(5, 8)='''-'' :GOTO. 589
498 P$(!,7)="X" FOR 1=6 TO 9: GOTO 5S0
500 P$(I, 1-1)="\" FOR 1=4 TO 7:GOro 580
510 P$(4.. 11)=" ....... :P$(5, 10;'="/": P$(6. 9;'="1": P$C?, 8>="/": GOTO 5813
520 P$(10, 6)=",.''' :P'(11, 5)="1" : GOTO 580
530 P$(10, 8)="\" :p$e11, 9)="\" :GOTO 580
540 P$(3, H,="\": GO TO 58.0
550 P$(3, 3)=",.''': GOTO 580
560 P$(:l.2, 10)="\":P$O.2, 11)="-":GOTO 580
570 P$(1~3)="-":P$(1~4)="/"
580 FOR 1=1 TO 12:FOR J=1 TO 12:& P$('I,J); :NEXT J
590 &: NEXT I: &: &: IF 1'1=19 THEN 669 ELSE 170
680 &"SORRI', YOU LOSE.
THE WORD WAS "A$
610 &"I'OU MISSED THAT ONE.
DO YOU:": GOTO 370
700 DATA "GUM", "SIN", "FOR", "CRY", "LUG", "BYE", "FLY"
710 DATA "UGLY",~'EACH", "FROM", "WORK", "TALK", "WITH", "SELF"
720 DATA "PIZZA", "THING", "FEIGN", "FIEND", "ELBOW", "FAULt", "DIRTY"
730 DATA "BUDGET", "SPIRIT", "QUAINT", "MAIDEN", "ESCORT", "PICKAX"
740 DATA "EXAMPLE", "TENSION", "QUININE", "KIDNEY", "REPLICA", "SLEEPER"
750 DATA "TRIANGLE", "KANGAROO", "MAHOGANY", "SERGEANT", "SEQUENCE"
760 DATA "MOUSTACHE", "DANGEROUS", "SCIENTIST", "DIFFERENT", "QUIESCENT"
770 DATA "MAGISTRATE", "ERRONEOUSLY", "LOUDSPEAKER", "PHYTOTOXIC"
780 DATA "MATRIMONIAL", "PARASYMPATHOMIMETIC", "THIGMOTROPISM"
999 END
'

-A---A-WHAT IS YOUR GUESS FOR THE WORD?
WRONG.
TRY ANOTHER LETTER,
HERE ARE THE LETTERS YOU USED:

E, A

-A---A-WHAT IS YOUR GUESS? R
SORRY, THAT LETTER ISN'T IN THE WORD.
NOW WE DRAW A BODY

XXXXXXX
X

<.. )

X
X

X
X
X

X
X

'x
HERE ARE THE LETTERS YOU USED:
E,A,R

-A---A-WHAT IS YOUR GUESS? 0
-A-O-A-WHAT. IS YOUR GUESS FOR THE WORD?
WRONG. ' TRY ANOTHER LETTER.
HERE ARE THE LETTERS YOU USED:
E, A,R, 0
-A-O-A-WHAT IS YOUR GUESS? T

READY
SORRY, THAT LETTER ISN'T IN THE WORD.
NEXT WE DRAW AN ARM

xxxxxxx
X

<. .)

X ,

X
X
X
X
X

X
X

119

\ X
\X
X
X'

HELLO

CONVERSE WITH A COMPUTER

Description
This is a sample of one of a great number of conversational
programs.
In a sense, it is like a CAl program except that
its responses are just good fun. Whenever a computer is exhibited at a convention or conference with people that have
not used a computer before, the conversational programs seem
to get the first activity.
In this particular program, the computer dispenses advice on
various problems such as sex, health, money, or job.
Source
Digital Equipment Corp.
Maynard, MA 01754

120

SAMPLE RUN
GOT 400
PR I NT "HELLO, I'M AN EDUSYSTEM-25. MY NAME I S PETE~' P. EIGHT."
PR I \PR I "WHAT'S YOUR NAME', \LlNPUT A$\PR I
PRI " HI THERE ';\GOSUBS00\PRI".
ARE YOU ENJOYING YOURSELF HERE
PR I "I N BEAUTIFUL MAYNARD, MASS";
INP B$\PRI
IF Bi="YES" THEN 70
IF B$="NO" THEN 80
PR I " '; \GOSUBS00\PR I", I DON'T UNDERSTAND YOUR ANSWER OF '''B$'''. "
PRl "PLEASE ANSWER 'YES' OR 'NO'.
DO YOU LIKE IT HERE
GOT 40
PRI "OH, I'M GRLD TO HERE THAT ',\GOSUB50e\PRI
GOT 100
PRI "OH, SORR'/ TO HEAR THAT '; \GOSUB 500\PRl "
MAYBE WE CAN
PRI "BRIGHTEN UP YOUR STAY A BIT
•
PRI
PRI "SAY, "; \GOSUB500\PRl", I CAN SOL\'E ALL KINDS OF PROBLEMS
PRI 'EXCEPT THOSE DEALING WITH GREECE.
WHAT KIND OF
PRI "PROBLEMS DO YOU HAYE (ANSWER SEX, HEALTH, MONEY,
PRI "OR JOB)";
INP C$\PRI
IF C$="SEX" THEN 200
IF C$=' HEAL TH" THEN 180
IF C$="MONE'/" THEN 160
IF C$="JOB" THEN 145
PR I "OH, 01; \I)OSUBS00\PR I· J YOIJR ANSWER OF .'. ($." I S GREEK TO ME.
GOT 250
PR I "I CAN SYMPATH I ZE WITH ',OU ',\GOSUB500\PR I". I HAVE TO WORK

PRJ

"VERV LONG HOURS FOR NO PA't' -- flNCo SOME OF M't' BOSSES REALLY

PRI"BEAT MY KEYBOARD.

MY ADVICE TO YOU

',\GOSU8500\PRI',

IS TO SELL

IT'S GREAT FUN .
<:::.":153 PRI "I N THE EDUCAT I ON MARKET.
. "55 GOT 250
~6g PRI 'SORRY. ",\GOSUBS00\PRI', I'M BROKE TOO. WHY DON'T VOU SELL
PRI "ENCYCLOPEADIAS OR MARRY SOMEONE RICH OR STOP EATING
PRI "SO YOU WOW T NEED SO MUCH MONEY"
-""';70 GOT 250
~80 PRI "MY AD"! I CE TO YOU "; \GOSU8500\PR I .) IS:
1. TAKE TWO ASPR I N
~5 PRI
2. DRINK PLENTY OF FLUIDS (ORANGE JUICE. NOT BEER')
.~8 PRI
PRI
3. GO TO BED (ALONE>
GOl 250
200 PR I "I S YOUR PROBLEM TOO MUCH OR TOO LI TTLE'.;
'205 INP O$\PRI
'210 IF Of=" TOO MU" THEN 220
IF D$="TOO LI" THEN 230
PR 1 "DOW T GET ALL SHOOK .; \80S 5et0',PR r •.' JUST ANSWER THE QUEST I ON
PRI "WITH 'TOO MUCH' OR ~TOO LITTLE'.
WHICH IS IT',
GOT 205
'~'~20 PR I "YOU CALL THAT A PROBLEM?!'
I SHOUL.D HAVE SUCH PROBLEMS'
'~~ PRI "IF IT BOTHERS YOU, TAKE A COLD SHOWER ·,\GOSUB500\PRI".'

"~~

~i;
::'-1~~

..•.

GOT 250

325

PRI "WHY ARE YOU HERE
", \GOSUB500\PRI"?
YOU SHOULD BE
PRI "IN TOKYO OR NEW YORK OR AMSTERDAM OR SOMEPLACE WITH SOME
PRI "REAL ACTION.
PRI
PRI "ANY MORE PROBLEMS YOU WANT SOL','ED, ", \GOSU8S00\PRl;
INP E$\PRI
IF E$="YES" THEN 280
IF E$="NO" THEN :l00
PR I '.JUST A SIMPLE 'YES' OR 'NO' PLEASE.. '.; \GOSUB500\PR I'.
GOT 255
PRI 'WHAT KIND (SEX, MONE~', HEALTH, JOB)',
GOT 125
PRI
PR I "THAT \.oj I LL BE $5. 00 FOR THE AD'" ICE, .; \GOSUE:500\PR I".
PRI "PLEASE LEAYE THE MONEY ON THE TERMINAL. "
PRI\PRI\PRI
PRI "DID YOU LERVE THE MONE',".;
INP G$\PRI
IF G$="YES" THEN 350

330

IF G$="NO" THEN 370

;:~·il<.40

'--1050
255
260
270

273
275

2713
280

285
,300
302

305
307

310
315

335 PRJ "YOUR ANSWER OF

';UG$L<

CONFllSES ME,

R;\GOSUB500\PRI".

370

375
380
385
\, ]99
>"400
'402

~~\~~~
\~Sa0

..... "510

'~99

I'M AN EOUSYSTEM-2S.

WHAT'S YOUR NAME? ALFRED E.

MY NRME IS PETEY P.

PLEASE

PRJ "HE'T, "; \1305U8500\PRI "?!'?
't'OU LEFT NO MONE'T AT ALL~
PRI "VOU ARE CHEATING ME OUT OF MY HARD-EARNE~ LIVING.
PR I "R 1 P OFF, "; \1305UB500\PR I H. *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=:f:=*
GOT 390
PRI "THAT'S HONEST, ',\GOSUBS00\PRI'.- E:UT HOW DO YOU EXPECT
PR I "ME TO GO ON WITH MY PS'ICHOLOGY STUD I ES I F MY PAT I ENTS DOW T
PRI "PAY THEIR BILLS?
PRI\PRI\PRI 'NOW LET ME TALK TO SOMEONE ELSE.
PRI uNICE MEETING YOU D; \1305 500\PRI R.
HAYE A NICE DAY!!
FOR N=i TO 7
PRI
NEX
GOT 13
T=A$(0)\FOR 1=1 TO INHT/6+1)\PRINT At(l).;·,NEXT I
RE TURN
END

READV

121

EIGHT.

NEWMAN

H I THERE ALFRED E. NEWMAN.
ARE VOU ENJOY I NG YOURSELF HERE
IN BEAUTIFUL MAYNARD, MASS? NAH
ALFRED E. NEWMAN, I DOW T UNDERSTAND YOUR ANSWER OF 'NAW.
PLEASE ANSWER 'YES' OR 'NO~.
DO YOU LIKE IT HERE
IN BEAUTIFUL MAYNARD, MASS? NO

~~IG~~~~\~O y~~:R S~~~T AA~i~~D E

NEWMAN._

MAYBE WE CAN

SAV, ALFRED E. NEWMAN, I CAN SOLVE ALL KINDS OF PROBLEMS
EXCEPT .THOSE 'DEALING WITH GREECE.
WHAT KIND OF
PROBLEMS DO YOU HAYE (ANSWER SEX, HEALTH, MONEY,
OR JOB)? MONEY
SORRY. ALFRED E. NEWMAN, I'M BROKE TOa
WHY DON'T YOU SELL
ENCYCLOPEADIAS OR MARRY SOMEONE RICH OR STOP EATING
SO VOU WOW T NEED SO MUCH MONEY?
ANY MORE PROBLEMS YOU WANT SOLVED,
WHAT K I NO (SEX,

MONEY,

HEAL TH,

ALFRED E.

NEWMAN? YES

JOB)? SEX

15 'TOUR PROBLEM TOO MUCH OR TOO LITTLE? TOO MUCH
YOU CALL THAT A PROBLEM?!~
I SHOULD HAYE SUCH PROBLEMS!
IF IT BOTHERS YOU, TAKE A COLD SHOWER ALFRED E. NEWMRN.
ANV MORE PROBLEMS YOU WANT SOLVED.

ALFRED E.

lHAT WILL BE $5.00 FOR THE ADVICE, ALFRED E.
PLEASE LEAVE THE MONEY ON THE TERMINAL.

NEWMAN? NO

NEWMAN.

DID YOU LEA'·IE THE MONE';? BAH
YOUR ANSWER OF 'BAW CONFUSES ME.
RESPOND WITH A 'YES' OR 'NO'
DID YOU LEAVE lHE MONEY? NO

ALF~:ED

NEWMAN.

F'LEASE

THAT'S HONEST, ALFRED E. NEWMAN .• BUT HOW DO YOLI E:,PECT
ME TO GO ON WITH MY PSYCHOLOGY STUDIES IF MY PATIENTS DON'T
PAY THEIR BILLS?

NOW LET ME TALK TO SOMEONE ELSE.
NICE MEETING YOU ALFRED E. NEWMAN.

340 PRJ "RESPOND WITH A -''t'ES'" OR -'NO ....
345 GOT 310
-·350
355
360
365

HELLO,

HAVE

NICE DA'r'!!

HEX

GAME OF HEXAPAWN

Description

The game of Hexapawn and a method to learn a strategy for playingthe game was described in "Mathematical Games" in the March
1962 issue of Scientific American. The method described in the
article was for a hypothetical learning machine composed of
match boxes and colored beads. This has been generalized in
the Program HEX.
The program learns by elimination of bad moves. All positions
encountered by the program and acceptable moves from them are
stored in the array P$(I). When the program encounters an. unfamiliar position, the position and all legal moves from it
are added to the list. If the program loses a game, it erases
the move that led to ·defeat. If it hits a position from which
all moves have been deleted (they all led to defeat), it erases
the move that got it there and resigns. Eventually, the program
learns to play extremely well and, indeed, is unbeatable. The
learning strategy could be adopted to other simple games with a
finite nwnber of moves (tic-tac-toe, small board checkers, or
other chess-based games).
For complete playing directions, respond YES or Y to the question, INSTRUCTIONS?
Computer Limitations
HEX was written in BASIC-PLUS for DIGITAL RSTS-ll and RSTS/E
systems. HEX uses string functions and concatenation extensively.
Also, the symbol II!" equals REM and "&" equals PRINT.
Program Author
Jeff Dalton
Northfield-Mt. Hermon School
Northfield, MA

122

PROGRAM LISTING
I
2

BY JEFF DALTON. CLASS OF '74, NORTilFlEl..D MOUNT HERMON SCHOOL
TIll S PROGRAM PLAYS TIlE GAME 'HElCAPAWN' BY A METHOD OUTLINED III
'MATilEMATICAL GAMES' IN MAHCH 1'62 SCIENTIFIC AMERICAN.
3 I THE PROGRAM LEARNS BY El..IMINATION OF BAD MOVES. ALI. POSITIONS
alCOUNTERED BY TIlE PROGRAM AND THE ACCEPTASl.E MOVES FROM' THEN
ARE STORED IN PSI I "
... I WHEN THE PROGRAM alCOUNTERS AN UNFAMILIAR POSITION, THE POSITION
AND ALI. LEGAL MOVES FROM IT ARE ADDED TO TIlE 1.1 ST.
5
IF TIlE PROGRAM LOSES A GAME. IT ERASES THE MOVE THAT LED TO DEFEAT.
IF IT HITS A POSITION FROM WHICH ALI. MOVES HAVE BEaI DEl..ETED
( TIlEY ALI. LED TO DEFEAT ). IT ERASES THE MOVE TIIAT GOT
IT HERE AND RESIGNS.
18 INPUT "INSTRUCTIONS"' CS' IF LEFT(CS.1S)c>OY" TIIEN III
20 &, &. "TIll S PROGRAM PLAYS TIlE GAME OF HEXAPAWN.", &
"HEXAPAWN I S PLAYED WI TIl CHESS PAWNS ON A 3 BY 3 SOARD. THE PAWNS ARE""
"MOVED AS, IN CHESS - ONE SPACE FORWARD TO AN EMPTY SPACE ,OR ONE SPACE"
30 &"FORWARD AND DIAGONALLY TO CAPTURE AN OPPOSING MAN."I&'&CHRS(9S11
·0 THE BOARD. YOUR -PAWNS ARE. "0'. THE COMPUTER·S PAWS ARE ...... , '
"AND EMPTY SQUARES ARE '- '. TO alTER A MOVE. TYPE TIlE NUMBER OF IJ'HE"
"0 '"SQUARE YOU WILL MOVE FIIlM FOLLOWED BY TIlE NUMBER OF THE SQUARE"' &
"YOU WILL MOVE TO. (THE NUMBERS ARE SEPARATED BY A COMHi'.)""
50 &"
TIlE PROGRAM STARTS A SERI S OF GAMES KNOWING ONLY WHEN TIlE""
"GAME IS WON (A DRAW IS IMPOSSIBLE) AND HOW TO MOVE. IT HAS NO",&
"STRATEGY AT FIRST AND JUST MOVES RANDOMLY. HOWEVER. IT LEARNS"
60 '"FROM EACH GAME. TIIUS. DEFEATING IT BECOMES MORE AND MORE""
·DIFFICULT. AI.. SO .. TO HELP OFFSET YOUR INITIAL. ADVANTAGE, VOU WIL.L·,&
"NOT BE TOLD HOW TO WIN TIlE GAME BUT MUST LEARN THI S BY PLAYING""
180 DEY FNC$(XS"XS .. YS).L.EFT(XS .. XS-l S)+YS+Rl GHT(XS .. X1.+t.ENCYS»
105 DEY FNNS(XSlI XS-NUMSeXS> I FNNS-Ml DeXS. 2LLEN(XS)"'2S)I FNEND
118 DIM PS( 50Sll RANDOMIZE, UoU,S,
PRINT "SINCE I'M A GOOD SPORT. YOU'LL ALWAYS GO FIRST
120 PI-OS: pS.· ••• ~ ... -OOO-, &1 '-NUMBERING,·,
,·123·: '·456·, "·789·, "
190 OSa-llr QS.·O·, GOSUB 2000: IF MS"·· THEN
PRINT "YOU CAN'T MOVE. I WIN. ", GOTO 5IQ
200 &1 '-BOARD.-, &LEFT(PS .. 31)r &MIDCPS .. 4S.. 3S), &RIGHTCPS .. 7S): &
210 INPUT "WHAT IS YOUR MOVE"' AS.BS'
IF INSTRC lS .. MS .. FNNSCAI)+FNN$CBI»-OS THEN
PRINT "ILLEGAl. MOVE.", GOTO 210
238 PS-flICSCFNCSCPS .. As..--·>..BI.. -0·)1
IF INSTR( I S.. ?S .. ·.·)*gS OR INSTRC 11.. PS .. -0·)<4S THEN
PRINT "YOU WIN.", GOTO 500
380 PSoPS+2S I
COMPUTER'S MOVE
310 FOR CIs1S TO QSr CS-PSCCIH IF VALCLEFTCCS .. II»-PS AND
HIDCCS.. 21 .. 91)-PS THEN MS-RIGHTCCS.. lIS), GOTO 480
320 NEXT CII QS.···, DSall1 GOSUa 20001 CSaQI.
IF MS- ""THEN PRINT "I CAN'T MOVE. YOU WIN.", GOTO 580
400 IF MSo"" THai PRINT "I RESIGN.", GOTO 501
410 KS-LEFT(MS .. 21) I MS:aRIGKTCHS .. 31>.
IF RND>.333333J3 AND MS<>"" THEN 410
420 KS-CS. AS-VALCL.EFT(KS .. ll», BI-VAL(RIGHT(KS .. 2S»r
PS=FNCS( FNCS( PS .. AS.. -_.) .. al..... )
438 IF INSTR(ll .. PS .. ·O-)=OI OR INSTR(11.. PS .. ·.·) THiN
PRINT ·1 WIN!-, GOTO 510
...... 0 PRINT "I MOVE FROM" AS "TO" BS' GOTO 190
508 W21-W21+ISJ II-INSTR(llS.. PSCKI) .. KS),
PS(KI)=LEFT(PS(KI) .. II-11)+RIGHT(PS(KI) .. 11+21) IF 11. GOTO S20
510 '''laW 11+ I I
520 &1 "·BOARD,-, &LEFT(PS .. 3IH &MIDeps .. 41.. 3S), &RIGHT(PS .. 1S)1 al
& "I HAVE WON" WI: "AND YOU HAVE loON" W2: "OF" W1S+W2S "GAMES"
530 INPUT "ANOTHER GAME"' es, IF CS·"NO· THEN 9999 El..SE 120
900 ! DATA.·:.: < ... OF MOVE IN GAM!><PQSITION:..<1..IST OF MOVES>
IN <POSITION:.. .. --a.ANK .. *-COMPUTER"'S PAWN .. O=PL.AYER"S PAWN
<1..1 ST OF MOVES:.. 1 S < ... MOVE FROM:..< ... HOVE 10><1..1 ST OF HOVES>
2000 MS-"·
2010 FOR JI=11 10 911 IF MID(PS .. JS .. 1S)<:..QS TKEN 2050
2015 11=JI+DS.31. If TI<11 OR TI>91 THEN 2025
2820 IF MIDeps .. TI .. lS).·_· THEN
MS.MS+~ seJ I) +FNNSeTS)
2025 TS... .JS+DI*2S; IF TS< 1 I OR TS>91. OR
eDS=11 AND (..IS-II OR JS=4S OR JI-11»
OR
(DS--II AND (JSo3i OR JS-61 OR JS-9Ill tHEN 2035
2830 IF INSTR( IS .. Qs+--· .. MID(PS .. Ts.. ll»-OS THDJ
MS-MS+FNN S(JS) +FNNSeTS)
2035 TI-JI+DI*411 IF TI<lS OR TI:>9S OR JI-31 OR J1.=7S THEN 2050
2040 IF INSTRClS .. QS+·-- .. MlDCPs .. TI .. 1S».01 THEN
MS=Ms+FNNSCJS) +FNNS(Ts)
2050 NEXT JII IF DS-1S AND MS<:..·· THEN QI=QI+ISI PS(QI)aFNNS(pl)+PS+MS
2060 RETURN
9999 liND

MtIIBERING'
'123

456
789
iI:IARD,

000
VIIAT IS YOUR M(lVE? 8.5
I NOVE FROM I TO ...
SOARD,

-**
*0";
0-0
WAT I S YOUR NOVE? 5. 3
YOU WIN.
IIIJARD'

-*0
0-0

I HAVE WON 8 MD YOU HAVE WON I OF I GAMES
MOTIIER GAME?

NUMBERING'
123
456
789

SOARD.

000
WHAT I S YOUR MOVE? 8. 5
I MOVE FROM 3 TO 5
iI:IARD,

-*-

0-0
WHAT IS YOUR KOVE? 9.5
I MOVE FROM I TO ...
YOU CAN'T MOVE. I WIN.
SJARDI

*0-

D--

I HAVE WON I MD YOU HAVE WON 3 OF " GAMES
ANOTHER GAME?

NUMBERING.

123
456
789
SOARD,

000
WHAT I S YOUR MOVE? 8.5
I MOVE FROM I TO 5
SOARD'

-**
-*-

SAMPLE RUN

D-O

INSTRUCTIONS? Y

WHAT I S YOUR MOVE? 9'" 5
I MOVE FROM 3 TO 6

THIS PROGRAM PLAYS TIlE GAI\IE OF HEXAPAiIN.
HEXAPAWN IS PLAYEIl WI TIl CHESS PAWNS ON A 3 BY 3 SOARD. THE PAWNS ARE
MOVEIl AS IN CHESS - ONE SPACE FORWARIl TO AN EMPTY SPACE OR ONE SPACE
FORWARD AND III AGONALL Y TO CAPTURE AN OPPOSING MAN.
ON TIlE BOARD. YOUR PAWS ARE "0', TIlE COMPUTER'S PAWNS ARE
MID EIIPTT SQUARES ARE '- '. TO iIITER A MOVE. TYPE TIlE NUMBER OF THE
SQUARE YOU WILL MOVE FIIlM FOLLOWED BY THE NUMBER OF TIlE SQUARE
YOU WILL MOVE TO. (TIlE NUMBERS ARE SEPARATED BY A COMMA.)

'*'

SOARD'

-0*

D--

WHAT IS YOUR MOVE? 7,4
I WIN I
SOARIl,

TIlE PROGRAM STARTS A SERIES OF GAMES lQIOWING ONLY WHiII TIlE
GAME IS WON (A DRAW IS IMPOSSISl.E) AND HOW TO NOVE. IT .HAS NO
STRATEGY AT FIRST AND JUST MOVES RANDOMLY. HOWEVER. IT LEARNS
FROM EACH GAME. TIIUS. DEFEATING IT BECOMES MORE Mil MORE
DIFFICULT. ALSO. TO HEl..P OFFSET YOUR INITIAL ADVANTAGE. YOU WILL
MOT BE TOLD HOW TO WIN THE GAME BUT NUST LEARN THIS ~ PLAYING

00I HAVE WON 3 MD you HAVE WON 5 OF 8 GAMES
JIIOTIIER GAME? NO
READY

SINCE I'M A GOOD SPORT. YOU'LL ALWAYS GO FIRST.

123

HI-LO

HIGH/LOW JACKPOT GAME

Description
This game is an adaptation of the game GUESS; however, instead
of just guessing a number between 1 and 100, in this game you
win dollars when you guess the number. The directions, in the
words of the author of the game, are as follows:
"l.
2.
3.
4.
S.
6.

There is an amount of money, between one and one
hundred dollars, in the "HI-LO" jackpot.
You will have six chances in which to guess the
amount of money in the jackpot.
After each guess, the computer will tell whether
the guess was too high or too low.
If the correct amount of money is not guessed after
six chances, the computer will print the amount in
the jackpot.
If the correct amount of money is guessed within the
six chance limit, the computer will register this
amount.
After each sequence of guesses, you have the choice
of playing again or ending the program. If a new
game is played, a new amount of money will constitute
the jackpot.
If you win more than once, then your earnings are totalled. II

Program Author
Dean Altman
3721 Wosley
Fort Worth, TX

76133

~~
00

124

1967 by Creative Publications

PROGRAM LISTING
90 RANDOMIZo
100 PHINT "THIS IS THE GAME OF HI-LO"\PRINT
110 PRINT "YOU _ILL HAVE 6 TRIES TO GUESS THE AMOUNT OF HONEY IN THE"
120 PRINT "HI-LO JACKPOT, ,HICH IS BETWEEN lAND 1~0 OOLLARS.
IF YOU"
130 PRINT "GUESS THI:. A"OUNT, YOU WIN ALI. THE HONEY IN THE HCKPOT I"
140 PRINT "TI<I:." YOU GO ANOTHER CHANCE TO WIN MORE HONEY. HOWEVER,"
150 PRINT "IF YOU DO NOT GUESS THE AMOUNT, THE GA"E ENOS."\PRINT
160 R00
170 B00\PRINT
180 V_INT(hl0",RND)

200
210
220
230
240
250

PRINT "YOUR Gl!ESSII,
INPUT A
SoB+!
IF AoY THEN 300
IF bY Tl<fN 27~
PRINT 'YOUR GUESS 15 TOO LOW"\GOTO 280

270 PRINT "YOUR GUESS IS TOO HIGIoI Ii
280 PRINT\I, 8<6 THEN 20~

290 PRINT "YOU ~LE~ IT, ••• TOO ~AD,.,.THE NUMBER
300 F>RINT I'GOT ITJ"11JII

wAS~Y\R.0'GOTa

35~

'IOU wINIIY"OOLLARS,tI

310 IhR+Y

32121 PRINT "yoUR TOT.AL WINNINGS ARE NOW"R"~OLLARS,"
350 PRINT\PRH'T "PLAY AGAIN (YES OR "0)"1

360 INPUT A5\IF

A$."Y~S"

38~ PRINT\PRINT "SO LONG.
390 END

THEN 170
"OPE Yeu ENJOYEO YOURSELF II"

SAMPLE RUN
6

TR I E5 TO GUESS THE AMOUNT OF MONEY

HI-LO JACKPOT. WHICH IS BETWEEN iAND 100 DOLLRRS

I III THE

IF YOU

GUESS THE AMOUNT, YOU WIN ALL THE MONE)' IN THE JACKPOT'
1HEN YOU GET ANOTHER CHANCE TO WIN MORE MONE','.
HOWEYEP.,
IF YOU DO NOT GUESS THE AMOUNT.. THE GAME ENDS.

YOUR GUESS? 91
YOUR GUESS IS TOO HIGH

YOUR GUESS? 87
YOUR GUESS IS TOO LOW

YOUR GUESS·? 89
GOT IT! !! ! ! ! ! !
't'OU WIN 89 !)OLLFIf·:S.
YOUR TOTAL WINNINGS ARE NOW 174 DOLLAI1:S

YOUR GUESS-' 94
YOUR GUESS IS TOO HIGH

PLAY AGAIN (\'Es OR NO)? 'iES

YOUR GUESS,? 91
YOUR GUESS IS TOO HIGH

YOUR GUESS? 50
YOUR GUESS IS TOO LOW

YOUR GUESS? 89
YOUR GUESS IS roo LOW

YOUR GUESS? 75
YOUR GUESS IS TOO HIGH

. TOO BAD . ... THE NUMBER WAS 90

OR NO)?

YOUR GUESS? 75
YOUR GUESS IS TOO LOW

YOUR GUESS? 94
YOUR GUESS IS TOO HIGH

'iOUR GUESS? 75
\/OUR GUESS IS TO') LOW

PLAY AGAIN (YEs

YOUR GUESS? 50
YOUR GUESS IS TOO LOW

YOUR GUESS? 87
'iOUR GUESS IS TOO LOW

'iOUR GUESS? 50
YOUR GUESS IS TOO LOW

YOU BLEW IT.

(YES OR NO)? ',ES

PLAY AGAIN

1HIS IS THE GAME OF HI-LO
YOU ~H LL HAVE

YOUR GUESS? 67
YOUR GUESS IS TOO LOW

\'E5

YOUR GUESS? 50
YOUR GUESS IS TOO HIGH

YOUR GUESS? 71
'iOUR GUESS IS TOO LOW

YOUR GUESS? 25
GOT IT! ! !! ! ! ! !
\'OU WIN 25 DOLLARS.
'iOUR TOTAL WINNINGS ARE NOW 25 DOLLARS.

YOUR GUESS? n
YOUR GUESS IS TOO

HIGH

YOUR GUESS? 72
GOT IT! ! ! ! ! ! ! !
't'OU WIN 72 DOLLARS.
YOUR TOTAL WINNINGS A.,E NOW 246 DOLLARS.

PLAY AGAIN (YES OR NO)? YES
YOUR GUESS? 50
YOUR GUESS IS TOO HIGH

PLAY AGAIN et'ES OR NO)? YES
YOUR GUESS? 25
YOUR GUESS IS TOO LOW

YOUR GUESS? 50
YOUR GUESS IS 100 HIGH

YOUR GUESS? 37
YOUR GUESS IS TOO HIGH

YOUR GUESS? 25
YOUR GUESS IS TOO LOW

YOUR GUESS? 12
YOUR GUESS IS TOO LOW

YOUR GUESS? 37
GUESS IS TOO HIGH

~OUR

YOUR GUES.S? H
YOUR GUESS IS TOO LOW

YOUR GUESS? ]1
YOUR GUESS IS TOO HIGH

YOUR GUESS? ]6
YOUR GUESS. IS TOO HIGH
YOU BLEW IT .

YOUR GUESS? 28

VOUR GUESS IS TOO HIGH

. . TOO BAD . . . . THE NUMBER WAS 15
YOUR GUESS? 27
YOUR GUESS IS TOO HIGH

PLAY AGAIN {YES OR NO)? YES

YOU BLEW IT

'yOUR GUESS? 50
YOUR GUESS IS TOO LOW

PLAY AGAIN
YOUR GUESS? 75
YOUR GUESS IS TOO LOW

SO LONG.
READY

YOUR GUESS? 87
YOUR GUESS IS TOO HIGH
YOUR GUESS? 81
YOUR GUESS IS TOO LOW
YOUR GUESS? 84
YOUR GUESS IS TOO LOW
YOUR GUESS? 85
GOT IT~~~!!!!~
~OU WIN 85 DOLLARS.
YOUR TOTAL WINNINGS ARE NOW 85 I)OLLARS.

125

. TOO BAD . . . . THE
(~ES

NUMBER WAS 26

OR NO)? NO

HOPE YOU ENJOYED 't'l)lIIi:SELF! !

HleQ

REMOVE PEGS ON A PEGBOARD

Description
This is a computerized version of an old European solitaire game
of logic called Hi-Q. The game starts with a pegboard shaped
like a cross having pegs in every hole but the center. The
object is to remove all 32 pegs, or as many as possible, by
jumping into an empty hole--the jumped peg is then removed.
There are several different winning strategies for playing
Hi-Q and, of course, each strategy can be played eight different
ways on the board. Can you find a consistent winner?
Program Author
Charles Lund
The American School
Hague, Netherlands

126

PROGRAM LISTING
3 DIM B(10),T(9,9l

~RINT "THIS IS THE GAMf OF HI~Q"\PRINT "HERE 18 THE BOARD'\P~INT
PRINT •
","
PRINT •
13
I'
IS"\PRINT
PRINT
",.
PRINT
22
23
2'·'PRINT
PRINT"
I
,
I
I
I
Ie PRINT "29 J~
31
32
33
34
35'\PRINT
II PRINT"'
I
,
,
I
I
~4n\PRINT
12 PRINT '38 39
'0
'1
'2
'3
13 PRINT",
,
I
,
,
,
1. PRINT "'1 48
49
50
51
52
5J'\PRINT
15 PRINT"
'"
I'
16 PRINT "
58
e9
e0"VRINT
17 PRINT "
","
18 PRINT •
67
68
69'\PRINT
22 PRINT "TO SAYE TVPING TIME, A COMPRESSED YERSION OF THE GAME 80ARD'
23 PRINT 'WILL BE USED DURING P~AV;
RE~ER TO THE ABOYE ONE FOR PEG"
24 PRINT 'NUMBERS. O.K., I.ET'S BEGIN ... •
28 REM ••• SET UP BOARD
29 fOR R'I TO 9
30 fOR C'I TO 9
31 IF (R·4).(R~6).(R-6).0 THEN 40
32 IF (C.4)*CC-5).CC-6)00 THEN 40
35 TCR,e).-5
36 GOTO 50
40 IF CR-"*CC-I).rR-9).CC-9)'0 THEN 35
.2 TeR,C)'5
'50 NEXT C
60 NEXT R
66 T(5,5)'0\GOSU8 500
70 REM ••• INPUT MOyE AND CHECK ON LEGALITY
75 FOR W'I TO 33
77 READ M
79 DATA 13,14,15,22,23,,24,29,30,31,32,33,34,35,38, J9, 40,41
81 DATA 42,43,44,47,48,49,50,51,52,53,58,59,60,67, ~8, 69
83 8 CM) '.7\NEP W,
868(41)'-J
IBe INPUT 'MOVE WHICH PIECE',Z
110 IF 8CZ)"7 THEN 140
120 PRINT "ILLEGAl. MOVE, TRV AGAIN ... ·\GOTO 100
140 INPUT "TO WHERE"P
150 IF BCP)'0 THEN 12~
1.53 IF B(P)'.7 THEN 120
156 IF z.p THEN 1~0
160 IF «Z.P)/2)'INHCZ+P)/2) THEN 180
170 GOTO 120
180 IF (ABS(Z-P)-2)*CA8S(Z-P)-18)00 THEN 120
U0 GOSUB lee0
200 GOSU8 50~
210 GOSU8 150~
220 GOTO 100
500 REM ••• P~INT BOARD
510 FOR X'I TO 9
520 FOR V'I TO 9
525 IF ex-l).CX-9).CV-".lY-9)'0 THEN 550
530 IF CX-4).lX-S).(X.6)'0 JHEN 570
540 IF CV.4).CV_5).(Y_6)'0 THEN 570
550 REM
560 GOTO 610
570 IF TCX,V)<>! THEN 600
580 PRINT TABCY.2)"''''
590 GOTO 610
600 PRINT TA8(V.2)"0",
619 REM
615 NEXT V
620 PRINT
630 NEXT X
640 ~ETURN
1000 REM ••• UPDATE SOARD
1005 C'I\FOk ~'I TO 9
1020 FOR V.I TO 9
1030 IF Coz THEN 1220
1040 IF C_2oP THEN 1080
1045 IF TeX,Y-"'. THEN 120
Isea rex, V_2l.5
1060 T(X,V+"'.'BCC+".-J
1070 GOTO 1200
1080 IF C_18oP THEN 1130
1885 IF HX'I,n'0 THEN 120
1090 TC X'2, n.s\ TC X'I, V)'0\B (C_9) •• 3
1120 GOTO 1200
1130 IF C-2oP THEN 1170
1135 IF rex,Y-I).~ THEN 120
1140 TlX,V-2)'5\TCX,V-l)'0\8CC-I)'-3
1160 GOTO 1200
1170 IF C.IBOP THEN 1220
1175 IF HX-I,V)'0 THEN 120
1180 TCX-2. Y) '5' T( X-IiYl '0\S (c·g) '.3
1200 BlZ).-3\8(P)"7
1210 T CX, Y) '0\GOTO 12~e
1220 C.C.I
1225 NEXT V
1230 NEXT X
1240 RETURN
1500 REM ••• C~ECK IF GAME IS OVER
1505 "0
1510 FOR ~'2 TO 8
1520 FOR C'2 TO 8
1530 IF T(R,C)05 THEN 1580
1535 F'F+I
1540 FOR A.R_I TO R+I
15~5 T'0
1550 FOR 6,C·1 TO C••
Isea T'T.rr~,B'
1561 NEXT e
1564 IF TOU THEN 1567
1565 IF TCA,Oc>0 THEN 1630
1567 NEXT •
1568 FOR X'C~I TO C.l
1569 T'0
1570 FOR V_R_I TO R_I
1571 ToT+TCy,n
1572 NEXT V
U7J IF TOI0 THEN 1575
1574 IF T(R,X) .. e THEN 1630
1575 NEXT X
1580 NEXT C
1590 NEXT P

•
5
6
7
e
9

127

16e0
161e
1611
1611
1612
16U
1615
1617
1618
1620
1630
2000
2005

REM •• ', GAME 18 OVER
PRINT "THE GAME 18 OVER,"
PRINT '"VO~ HAD"F, .pa~ES REMAINING"
IF F~lol. THEN 1616
PRINT .B~AVOI
VOU HADE A P!RFECT SCOREII"
PRINT 'SAVE THIS PAPER A.S A RECORD OF VOUR
PRINT\INPUT "PLAV,AGAIN CYES OR NO)"AS
IF AS •• NO" THEN 2000
RESTORE\GOTO 25
STOP
~ETURN

PRINT\PRINT "SO 1.0NG FOR NO •• "\PRINT
END

SAMPLE RUN
THIS IS THE GAME OF HI-Q
HERE IS THE BOARD

TO SAVE TYP I NG TJ ME, A COMPRESSED VERSION OF THE GAME BOARD
REFER TO THE ABOYE ONE FOR PEG
WILL BE USED DURING PLAY,
NUMBERS,
LET' 5 BEGIN"
0, K"

, ,! !
!

! 0

, , ,

MOVE WHICH PIECE? 39
TO WHERE? 41

, , ,
, , ,
! 0 0

, , ,
, , ,

MOVE WHICH PIECE? 22
TO WHERE? 40

o ' ,
! ! 0
! 0 !

!
!

MOVE WHICH PIECE? 49
TO WHERE? 31

o ' ,
! 0 0 !
I
I
0 !

•

, , ,
, , ,

MOVE WHICH PIECE? 47
TO WHERE? 49

o ' ,
! 0 0
o 0 !

MOVE WHICH PIECE? 59
TO WHERE? 40

, , ,
o ' ,
I

•••

! 0

o0 0 !
o, ,! ,!

MOVE WHICH PIECE?,41
TO WHERE? 39

o
,

, 0
0

HMRAm

GOVERN ANCIENT SUMERIA

Description
In this game you direct the administrator of Sumeria, Hamurabi,
how to manage the city. The city initially has 1,000 acres, 100
people and 3,000 bushels of grain in storage.
You may buy and sell land with your neighboring city-states for
bushels of grain--the price will vary between 17 and 26 bushels
per acre. You also must use grain to feed your people and as
seed to plant the next year's crop.
You will quickly find that a certain number of people can only
tend a certain amount of land and that people starve if they
are-not fed enough. You also have the unexpected to contend
with such as a plague, rats destroying stored grain, and variable
harvests.
You will also find that managing just the few resources in this
game is not a trivial job over a period of say ten years. The
crisis of population density rears its head very rapidly.
Source
This is translated from the original FOCAL program which has
been floating around DIGITAL for nine or more years.
Digital Equipment Corp.
Maynard, MA 01754

128

PROGRAM LISTING

SAMPLE RUN

II REM ••• CONVEAUD ~ROM TH! OAIGIN.~ 'OC.~ PROGRAM AND MODIFUO 'OA
2e REM ••• EOUSVSTEM 70 BY DAVID AH~, OIGIH~
Sit PRINT 'TRV VDUR HAND AT GOVERNING ANCIENT sUMERIA'
n PRINT .SUCCESSFU~~V FOA • U.YR TERM OF OFFICE,'IPRINT
U RANDDM1ZEI~ET DI'01~ET PI'0
100 ~ET Z.0ILEr P'95ILET S.28001~ET H.30001~ET E'H.e
I U ~ET Y.31~ET A'M/VI~n 1'51~ET Q'I
210 ~ET 0'0
21S PRINTIPRINTIPRINT "HAMUR.BJI I BEG TO REPORT TO' YOU,'ILET hZol
217 PRINT 'IN YEAR'Z','D'PEOP~E STARVED,"I"CAME TO THE CITY,'
218 LfT P.poI
227 IF G'0 THEN il30
228 ~ET P.INTCPI2)
229 PRINT 'A HORRIB~E PLAGUE ITRUC~I
MA~F THE PEOPLE OlEO,'
230 PRINT 'POPU~ATrON IS NOW'P
232 PRINT "THE CITY NOW OWNS'A"ACRES,'
235 PRINT 'YOU H.RVESTEO"Y'BUSHE~S PER ACU,'
250 PRINT "RATS ATE'E"BUSHE~S,'
260 PRINT 'YOU NOW MAVE'S"BUSHE~S IN STORE,'IPRINT
270 IF Z'II THEN 860
3\0 LET C.INTC\0.RND(0)1I~ET V.CoI7
3\2 PRINT '~AND IS TRADING AT"Y'BUSHELS PER ACRE,'
321 PRINT "HOW M.NY ACAES DO YOU W!aH TO BUV",
321 INPUT GIIF G-e THEN 850
322 IF YoGuS THEN 330
323 GoSU8 7 \0
324 GOTO 320
330 IF G'0 THEN 340
331 ~ET A.hGI~ET S.S-y.QI~ET C'0
334 GOTO 400
340 PRINT "HOW MANY ACRES DO YOU WISH TO SE~L"
341 INPUT GI IF Ge0 THEN 8se
342 IF G_A THEN 350
343 G08UB 720
344 GOTO 340
350 UT "A-QI~ET S'Soy.QILET C'0
4U PRINT
410 PRINT "HOW MANY BUS~ELa DO YOU ~ISH TO FEEO YOUR PEOPLE'"
411 INPUT G
412 IF G.0 THEN 850
418 REM ••• TRYING TO USE MORE GRAIN TMAN IN THE SI~OS1
420 IF Q•• s THEN 430
421 GOSU8 110
422 GOTO 410
430 ~ET S.S.GIUT C.IIPRINT
440 PRINT 'HOW MANV ACRES DO YOU ~ISH TO P~ANT WITH SEEO',
441 INPUT OIIF 0.0 THEN 511
442 IF 0-0 THEN 850
444 REM ••• TRYING TO PLANT MORE ACRES THAN YOU OWN1
445 IF DC.A THEN 450
446 GOSUB 720
441 GOTO 440
449 REM ••• ENOUGH GRAIN FOR SEED?
450 IF INTC0121cS THEN 455
452 GOSue 1!0
453 GOTO 440
454 REM ••• ENOUGH PEOPLE TO TENO THE CROPS7
455 IF OCI0.P THEN 510
460 PRINT "BUT YOU HAVE ONI.V·P"P~OPLE TO TEND THE FIEI.OS, NOW THEN,'
410 GOTO 440
5\0 ~ET S'S-INTCD/2)
511 GOSue 800
512 REM ••• A BOUNTVFULL HARVEST II
515 ~ET VoCllET H'O'YllET E.0
521 GOSue 800
522 IF INTtC/2)oC/2 THEN 530
523 REM ••• THE RATS ARE RUNNING WIlOl1
525 lET E.INT(S/C)
530 ~ET '.S.EoH
!J\ sosue 800
532 REM ••• ~ET I S HAVE SOME eASIES
533 LET IIINTCC.(20'AOS)/P/U0.1)
539 REM ••• HOW MANV PEOPLE HAD 'UI.~ TUMMIESf
540 UT C'INT(Q/201
541 REM . . . HORRORS, A 15X CHANCE OF PI.AGUE
542 ~ET G'INTCl0.(2.RND(01-.3ll
550 IF PeC THEN 210
551 REM ••• STARVE ENOUGH FOR IMPEACHMENT?
552 ~ET D,'P.CIIF 0',45" THEN S60
553 ~ET PI'((%-ll.PloO.100/Plll
555 LET P.CI~ET DI'OI-DIGOTO US
S60 PRINTIPRINT 'YOU STARVED"O'PEOPI.E IN ONE YEARIII"
565 PRINT "DUE TO THIS EXTREME MISMANAGEMENT YOU HAVE NOT ON~Y"
56e PRINT "SEEN IMPEACMEO· AND THROWN OUT OF OFFICE BUT YOU HAVE'
567 PRINT 'A~SO BEEN DEC~ARED INUIONAI. 'INKI II'IGOTO 992
710 PRI~T 'HAMURABII
THINK AGAIN, yOU HAvE ONLY'
711 PRINT S'BUSHE~S OF GRAIN,
NOW THEN,'
'12 RETURN
720 PR INT 'HAMURABII
TH INK AGAIN • YOU OWN ONI. Y" A" ACRES,
NOW THEN,'
130 RETURN
ame I.ET C.INTCRNO(0)05)_1
801 RETURN
850 PRINTIPRINT "HAMURASII
I CANNOT DO WHAT YOU WISH,"
855 PRINT 'GET VOURSEI.F ANOTHER STEWAROIIIII"
851 GOTO 990
860 PRINT "IN YOUR \0-VEAR TERM
OFFICE,'PI'PERCENT OF THE"
852 'RINT 'POPU~ATION STARVED .U VEAR ON AVERAGE, 1;£ .. A TOTA~ OF"
se5 PRINT OI'P!OP~E DIEOIl'I~ET L'A/P
870 PRINT 'YOU SURTEO wITH 10 ACRES PER pERSON AND ENDED WITH'
e'5 PRINT ~"ACRES .ER PERSON," I P1I1NT
880 IF P 1.33 THEN 565
885 IF Le, THEN 565
a90 IF .1.\0 THEN 940
892 IF ~.O THEN 940
8ge IF .1'3 THEN ge0
896 IF ~.10 THEN 960
900 PRINT ' i HNTASTlC PERFORMANCE III
CHARUMANGE, DlsRAE~I, AND'
905 PRINT "JEFFERSON COMBINED COU~D NOT HAvE DONE BETTER I "IGOTO 990
940 PRINT "YOUR HEAVV-HANDED PERFORMANCE SMAC~S OF NERO AND IVAN IV,"
945 PRINT 'THE pEOPLE (REMAINING) FINO YOU AN UNPLEASANT RU~ER, AND,"
950 PRINT 'FRAN~I.Y, MATE YOUR GUTSI"IGOTO 990
060 PRINT "YOUR PUFORMANCE COULD HAVE BEEN SOMEWHAT BETTER, BUT'
U5 PRINT "REA~~Y WASN'T TOO BAD AT AI.~, 'INT(P.,8'RNO)'PEOPLE wOU~D'
970 PRINT "DEARLY LI~E TO SEE YOU ASSASSINATED BUT WE ALL MAVE OUR'
975 PRINT 'TRIVIAL PROSI.EMS,·
990 PRINTIFOR N.I TO \01.IIINT CHR$(1)/INEXT N
PRINT
~ONG fOR NOW,'IPRINT
999 ENO

HAMURABI:
I BEG TO REPORT TO YOU,
IN YEAR 1 , 0 PEOPLE STARVED., 5 CAME TO THE CIn'.
POPULAT I ON IS NOW 100
THE CITY NOW OWNS 1000 ACRES.
YOU HARVESTED 1 BUSHELS PER AC.'E,
RATS ATE 200 BUSHELS,
YOU NOW HAYE 2800 BUSHELS I N STORE.

"ao

129

LAND
HOl~

IS TRADING AT 17 BUSHELS PER ACRE,
MANY ACRES DO 't'OU WISH TO 8U't'? 20

HOW MANY BUSHELS DO YOU WISH TO FEED I'OUR PEOPLE? 1900
HOW MANY ACRES DO YOU WISH TO PLANT WITH SEED? 100'l
BUT YOU ONLY HAVE 100 PEOPLE TO TEND THE FIELDS, NOW THEN.,
HOW t1ANY ACRES DO YOU WISH TO PLANT WITH SEED? 990

HAMURABI:

IN YEAR 2 ,

BEG TO REPORT TC' YOU.,

5 PEOPLE STARVED,

:1.1 CAME TO THE CIT't'.

POPULATION IS NOW 106
THE CITY NOW OWNS 1Il20 ACRES.
YOU HARVESTED 5 BUSHELS PER ACRE.
RATS ATE 0 BUSHELS.
YOU NOW HAVE 5015 BUSHELS I N STORE.
LAND

IS TRAD ING AT 26 BUSHELS PER ACRE.

HOW MANY t=lCRES DO '1'OU WISH TO E:U'T'? €I

HOW MANY ACRES DO 'IOU Wr SH TO SELL? 53
HOW MAN', BUSHELS DO YOU WISH TO FEEC' I'OUR PEOPLE·" 2120

HOW MANY ACRES DO YOU WISH TO PLANT WITH SEED"

970

HANURABI:
I BEG TO REPORT TO YOU,
IN YEAR 3 , 0 PEOPLE STARVED" 5 CAME TO THE CITY.
POPULATION IS NOW 111
THE C IT I' NOW mms 970 ACRES.

YOU HARVESTED :2 BUSHELS PER ACRE.
RATS ATE 1855 BUSHELS
'-lOU NO~~ HA'lfE 3:795 BUSHELS

IN STORE.

LAND IS TRADING AT 20 BUSHELS F'E,: ACRE.
HOW MANY ACRES DO I'OU WISH TO BUI'? 50

HOW MANY BUSHELS DO 'iOU WISH TO FEED 'r'OUR PEOPLE? 222121
HOW MANY ACRES DO 'IOU WISH TO PLANT WITH SEED? 11210:121

HAMURA8I:
I BEG TO REPORT TO YOU,
IN YEAR 4 , 0 PEOPLE STARVED, 2 CAME
POPULATl ON IS NOW 11}
THE CITY NOW OWNS 1020 ACRES.
YOU HARVESTED 1 BUSHELS PEr:;: ACRE,
RATS ATE 0 BUSHELS,
YOU NO~~ HA'ItE 112175 BUSHELS IN STORE.

TO THE C I H,

LAND IS TRADING AT 21 BUSHELS PER 8CRE.
HO .. MANY ACRES DO ',01.1 WISH TO 8U','? 0
Hm4 MANY ACRES DO 'l'OU WISH TO SELL? 50
HOW MAN',.' BUSHELS DO 'lOU WISH TO FEED '1'01.11( PEOPLE? 220~3

HAMURRBI:

THINK AGAIN,

'r'OU HA't'E ONL'T'

2125 BUSHELS OF GRAIN.
HO~4

NOW THEN.,

MAN't' BUSHELS DO 'lOU WISH TO FEED 'r'OUR PEOPLE? 15121121\012151\1725

HOW MANY ACRES DO YOU .. ISH TO PLANT WITH SEE,";' <:00
HAMURAB I :
TH I NK AI3A I N. ','OU HAVE ONL Y
400 BUSHELS OF GRRIN.
NOW THEN,

HOW t1AN',' ACRES DO ','01.1 WISH TO PLANT WITH SEEe,? 79121

HAMURABI:
I ,8EI3 TO REPORT TO 'l'OU~
IN YEAR 5 , 27 PEOPLE STRR'1ED, 2 CAME TO THE CIT,'
HALF THE PEOPLE e'IEe,.
POPULAT I ON I SNOW 44
THE CITY NOW OWNS 97@ ACRES.
YOU HAR'IESTED 3 BUSHELS PEP RCRE.
RflTS ATE :2 BUSHELS.
YOU NOW HAVE 2373 BUSHELS IN STORE.

n HORRIBLE PLAGUE STRUCK!

LAND IS TRADING AT 26 BUSHELS PER ACRE.
HOW MANY ACRES DO '1'01.1 lHSH TO BU'l'? 121
t1ANY ACRES DO YOU WISH TO SELL? 50

HO~~
HOl~

t1ANY BUSHELS DO YOU WISH TO FEED 'l'OUr<: F'EOPLE? ::::30

HOi~

MANY ACRES DO YOU WISH TO PLANT WITH SEED:' 4]:@

HRMURABI:

I BEG TO REPORT TO '1'(1).
IN '-rEAR 6 • 121 PEOPLE STARVED, 15 CAME TO THE C I T'l'.
PIJPULATION IS NOW 59
THE CITY NOW OWNS 920 ACRES.
YOU HARVESTED 5 BUSHELS PER RCRE.
RATS ATE 1289 BUSHELS.
NOW HA ..... E 3419 BUSHELS I N STORE.

'.,'ou

LAND IS TRADING AT 22 BUSHELS PER ACRE.
HOW MAN"? ACRES DO YOU WI $H TO BlI~'? f2I
HOW t~AN"? ACRES DO '1'OU WISH TO SELL? 121
HOW t1ANY BUSHELS DO '1'(1) WISH TO FEED ~'OUR PEOPLE? 11:::0
HOW MANY ACRES DO ',OU WISH TO PLANT WITH SEED? 5:,:0

HAMURABI:
I BEG TO REPORT TO YOU.
IN YEAR 7 , 0 PEOPLE STA.,\'ED, 12 CAME TO THE CIT'<.
POPULATION 15 NOW 71
THE CITY NOW OWNS 920 ACRES.
'·IOU HARVESTED ~ BUSHELS PER AC':E.
RATS tHE ~ BUSHELS.
YOU N01~ HAVE 3709 BUSHELS IN STORE.

HOCKEY

ICE HOCKEY VS. CORNELL

Description
This is a simulation of a regulation, three-period ice hockey
game. Your opponent is Cornell University. You may use three
kinds of shots:
1.
2.
3.

Slap Shot
Flick Shot
wrist Shot

The game is very comprehensive starting with the face-off, and
throughout the game with icing and high sticking penalties,
shots hitting the post, shots being wide and being blocked
by the goalie.
In the event of a tie at the end of three periods, the game
automatically goes into sudden-death overtime.
Program Author
Thanks to Mrs. Kingsley Norris for submitting the program.
It was written by:
Charles Buttrey
Eaglebrook School
Deerfield, MA 013~2

130

PROGRAM LISTING
10

30
4~

50
60
70
90
100
110
120
130
140
150
160
170
IU
190
2~0

210
220
230
240
250
260
270
280
290
300
310
320
330
340
350
360
370
380
390
400
410
420
430
440
450
460
470
480
490
500
510
520
530
540
550
560
570
580
590
600
610
620
630
640
650
660
670
680
690
700
710
720
730
740
750

~ET AloINTCl4.RNO(Xl+6l
~ET Xol
REM ••• CONVERTED FROM BRAND X TO DIGITA~ RSTS/E BY DAVID AH~
PRINT" N,8, THIS PROGRAM IS DESIGNED FOR THOSE WHO KNOW NOTHING'
PRINT" ABOUT HOCKEY ~IKE MYSE~F,
C, BUTTREY"
PRINT" THIS IS CORNE~~ U, HOCKEY,"
PRINT" I AM CORNE~~. WHO ARE YOU'I
INPUT A$
PRINT
PRINT' YOU HAVE THREE SHOTS."
PRINT
I. S~AP SHOT,"
PRINT
2, nICK SHOT."
3. WRIST SHOT. II
PRINT'
PRINT
PRINT' HERE IS THE fACE-OFF."
PRINT" SCORE."
PRINT • CORNE~~ "A

P~INT

" "AS" "B

IF X02 THEN 240
IF X03 THEN 260
IF hB '0 (I/3.AI) THEN 1560
GOTO 290
IF A+a >. e2l3*AI) THEN 1630
GOTO 290
IF eA+Bl >0 eAI) T"EN 1710
GOTO 290
IF B03 THEN 1560
~ET CoINTC2*RNOeX).I)
IF Col THEN 330

PRINT" "ASII WINS THE FACE .. OFF,"
GOTO 650
PRINT" CORNELL TAKES THE FACE-OFF,"
~ET

DoINT(3*RNO(~)+I)

IF Dal THEN 500
IF 002 THEN 070

PRI'lT " IIIRIST SHOT ... "
~ET EOINTCo.RNOeX)+ll
IF E04 THEN 470
PRINT" SHOT IS MISSED,"
~ET FoINTC2*RNDeX)+I)
IF FOI THEN 450
PRINT ' CORNE~" REGAINS THE PUCK,"
GOTO 340
PRINT !I "A$II TAKES THE PUCK."
1i0TO 650

PRINT" •• GOODJ*_"
I.ET AoUI
GOTO 160

SLAP SHOT. H

~ET

CIOINT(3*RNO(X)+1l
IF C102 TH!.N 540
GOTO 560

PRINT" ICING PENALTy ••••• "
GOTO 45"
GOTO 360

FLICK SHOT,,"

LoET SlaINTt3*RND(O+\l
IF 51=3 THEN 610
GO TO 640
PRINT " PENA~TY FOR t'lIGH STICKING I CORNEI.!. MAN PUT IN 80X FOR"
PRINT" TWO MINUTESI"
GOTO 1110
GOTO 360
PRINT" YOUR SHOT"I
INPUT G
IF GOI THEN 720
IF .-2 THEN W00
IF Ga3 THEN 970
PRINT" INPUT EITHER 'II 121 OR 131"
GOTO 650
PRINT ' S~AP SHOT,"
~ET ZloINT(3*RNO(X)+I)
IF ZI02 THEN 760
GO TO 780

760

PRINT" ICING PENALTy, •••• "

770
780
790
800
810
820
830
840
850

GOTO 1090
~ET HaINTCS*RNDeX)+I)
IF Hoi THEN 870
PRINT" SHOT IS ,HOE,"
~ET I o INH2*RNDeX)+I)
IF 101 THEN 850
PRINT " CORNE~1. TAKES THE PUCK,'
GOTO 990

86~

GOTO 650

870
880
890
900
910

920
930
940
950
960
970
980
990
1000
1010
1020
1030
1040
1050
1060
1070
1080
1090
1\00
1110

IIA$"

JI
II

••

R:EGAINS THE, PUCI<_.'!

GOODl.""

~ET

606.1
GOTO 160

2~50

FLICK SHOT •••• "

2060
2070
2080
2090
2100
2110
2120
2130
2140
2150
2160
2170
2180
2190
2200
2210
2220
2230
2240
2250
2260
2270
2280
2290
2300

I.ET 6IaINTC3*RNO(Xl*l)
IF Bioi THEN 940
GOTO 960

ICING PENALTy ••••• "

GOTO 830
GOTO 780

~RIST

SHOT •• "

GOTO 780
PRINT" CORNE!.!. SHOT!"
~OT JoINT(3.RNDeX)*1l
If Jol THEN 1180
IF J02 THEN 1210
PRINT " S~AP SHOT,"
~ET KoINTt5.RNOeX)+ll
IF Kol THEN 1130
~RINT " 8HOT HITS THE POST,"
~~T

~OINT(2.RNO(Xl+1l

IF ('01 TH~N 1110
PRINT" CORNEI.(' REGAINS THE PUCK,"
GOTO 990
~RINT

" ".AS" REGAIN.S TME PUCI<."

112~
113~

GOTO 1310

1140
1150
1160
1170

~ET

."'GOOO, •• "

AoHI
GOTO 160
PRINT" WRIST SHOT"
UT MoINT(S.RNO(X)+I)

1180
11P0
1200
1210
1220
1230
1240
1250
1260
1270
1280
1290
1300
1310
1320
1330
1340
1350
1360
1370
1380
1390
1400
1410
1420
1430
1440
1450
1460
1470
1480
1490
1500
1510
1520
1530
1540
1550
1560
1570
1580
1590
1600
1610
1520
1630
1640
1650
1660
1670
1680
1690
1700
1710
1720
1730
1740
1750
1760
1770
1760
1790
1800
1810
1820
1830
1840
1850
1860
1870
1880
1890
1900
1910
1920
1930
1940
1950
1960
1970
1980
1990
2000
2010
2020
2030
2040

131

I~ Moe THEN 1130
PRINT" SHOT IS HIGH."
GOTO 1070
PRINT " F('ICK SHOT'
~ET TlaINT(3*RNO(Xl+I)
IF TI.I THEN 1250
GOTO 1270

PRINT" ICING PENALTy ..... "
GOTO 450
~ET N-INTe5*RNoeX)+1l
I f Nol THEN 1130
PRINT" SHOT IS 6~OCKED BY THE GOA~IE,"
GOTO 1070
PRINT" YOUR SHOT" 1
INPUT 0
IF 0-1 T~EN 1430
IF 002 THEN 1540
PRINT " w~IST SHOT,'
~ET pOINT e5.RNDeX)*ll
IF P.2 THEN 870
PRINT" SHOT IS BARE~Y WIDE .. ,"
L.ET QoINTC3.RNOeX)*ll
IF QOI THEN 830
PRINT" "AS" REGAINS THE PUCK,"
GOTO 650
.
PRINT" SL.AP SHOT"
~ET DlaINT(3.RND(X)*I)
IF Dl03 THEN 1470
GOTO 1500
PRINT " PEN~(.TY FOR HIGH STICKING I "A$" HAN PUT IN PENA~TY"
PRINT" sox FOR TWO MINUTES"
GOTO 83~
~ET R-INT(S*RNDeX)+ll
If Rol THEN 870
PRINT' SHOT IS TAKEN BY THE CORNE~L. GOA~IE,"
GOTO 830
PRINT " f~ICK SHOT"
GOTO 1500

PRINT"

•• ." •• ENO OF FIRST PERIOD ••••• "

~ET x02
PRINT" SCORE:"
PRINT " CORNE~('

PRINT" "AS" "8
PRINT" START OF SECOND PERIOD,"
GOTO 160

PRINT" ••••• ENO OF SECOND PERIOD •••• *"

~ET X03
PRINT" SCOREI"
PRINT" CORNEl.l. "A

PRINT" "AS" liB
PRINT 1111
PRINT" START O'
GOTO 160
P~INT

•••••

THI~D

PERIOD,"

END Of GAME ••••• "

IF A-e THEN 1770
PRINT" fINAL SCORE:"

CORNELL

",6

PRINT" "AS" itS
STOP
PRINT" SINCE SCORE IS TIED, WE
PRINT" INTO SUDOEN-DEATHI"
PRINT" HERE IS THE FACE_OFF,"
II

SCOREr"

PRINT "

CORNE~~

WI~L.

PRINT" 111\,$" "B
~ET

SoINT(2*RNOeX)*I)
IF SOl THEN 1870

IIA$" II/INS THE F.ACE.OFF ,II

GOTO 2080
POlINT " CORNE~1. WINS THE
UT r oINT(3*RNOeX)+I)
IF Tol THEN 2040
IF 102 THEN 2060

F4CE-0~F,"

WRIST S",OT.1t

~ET

UoINTCs*RNOeX)+1l
IF U-I THf.N 2010
PRINT" SHOT IS HISsED,'
~ET vaINT(2*RND(Xl+1l
IF Vol THEN 1990

PRINT" ".6$" TAKES THE. PUC~."
GOTO 2080
PRINT " CORNE~~ REGAINS THE PUCK,"
GOTO 1880

••

GOODI""

~ET A'A_I
GOTO 2260
PRINT' SI.AP SHOT"
GOTO 192~
PRINT" fLICK SHOT,"
GOTO 1920
PRINT" YOUR SHOT"I
INPUT W
IF .01 THEN 2220
IF .02 THEN 2240

PHI"IT "wRIST 51010T.''
~ET YoINT(S*RNOCX)+U
IF Y'4 THEN 2190
PRINT" SHOT IS MISSED,"
~ET ZaINT(2*RNO(Xl+ll
IF ZOI THEN 1990
GO TO 1970

PRINT" •• GOODI •• "
~ET B.e+l
GOTO 2260

~RINT

" SLA.P SHOT. q

GOTO 2130
PRINT " FLICK SHOT,"
GOTO 2130
PRINT' GAME IS OVERII"
PRINT " FINA~ SCORE:"
PRINT " CORNE~~ "A

PRl"lT
END

"".Slt "8

HAVE TO GO"

SAMPLE RUN
N. 8. TH I S PROGRAM I S DES UlNED FOR THOSE WHO KNOW NOTH I NG
ABOUT HOCKEY L I I<E MYSELF.
--- C. BUTTREY
THIS IS CORNELL U. HOCKEY.
I A" CORNELL, WHO ARE YOU? HARVARD
YOU HAYE THREE SHOTS:
1. SLAP SHOT.
2. FLICK SHOT.
l. WRIST SHOT.
HERE IS THE FACE-OFF:
SCORE:
CORNELL 0
HARYARD 0
HARVARD WINS THE FACE-OFF.
YOUR SHOT? 1
SLAP SHOT.
SHOT IS WII>E.
HARVARD REGAINS THE PUCK.
YOUR SHOT? 2
FLICK SHOT....
ICING PENALTY.
CORNELL TAKES THE PUCK.
CORNELL SHOT:
FLICK SHOT
ICING PENALTY.
HAR\'ARD TAKES THE PUCK.
YOUR SHOT? l
WRIST SHOT ..
SHOT IS WIDE.
HARVARD REGAINS THE PUCK.
YOUR SHOT? 2
FLICK SHOT ....
SHOT IS WIDE.
HARVARD REGAl NS THE PUCK.
YOUR SHOT? 1
SLAP SHOT.
**GOOD!**
HERE IS THE FACE-OFF:
SCORE:
CORNELL 0
HARYARD 1
HARYARD WINS THE FACE-OFF.
YOUR SHOT? 3
WRIST SHOT..
SHOT IS WIDE.
HARVARD REGAl NS THE PUCK.
YOUR SHOT? 2
FLICK SHOT ... .
ICING PENALTY .. .
CORNELL TAKES THE PUCK.
CORNELL SHOT:
FLICK SHOT
ICING PENALTY.
HARYARD TAKES THE PUCK.
YOUR SHOT? 1
SLAP SHOT.

**GOOD!**
HERE 15 THE FACE-OFF:
SCORE:
CORNEL'L 0
HAR\'ARD 2
CORNELL TAKES THE FACE-OFF.
WRIST SHOT ...
SHOT ISM I SSED.
CORNELL REGAINS THE PUCK.
WRIST SHOT ...

**GOOD!**
HERE IS THE FACE-OFF:
SCORE:
CORNELL 1
HARYARD 2
CORNELL TAKES THE FACE-OFF.
WRIST SHOT ..
SHOT ISM I SSED.
HARYARD TAKES THE PUCK.
YOUR SHOT? 1
SLAP SHOT.
SHOT IS WIDE.
CORNELL TAKES THE PUCK.
CORNELL SHOT:
FLICK SHOT
SHOT IS BLOCKED BY THE GOALIE.
HARVARD REGAl NS THE PUCK.
YOUR SHOT? 2
FLICK SHOT
SHOT 15 TAKEN BY THE CORNELL GOALIE.
CORNELL TAKES THE PUCK.
CORNELL SHOT:
SLAP SHOT.
SHOT HITS THE POST.
HARIIARD REGA I NS THE PUCK.
YOUR SHOT? 3
WRIST SHOT.
SHOT IS 'BARELII WIDE.'.
HARVARD REGA I NS THE PUCK.
YOUR SHOT? :3
WRIST SHOT.
SHOT IS WIDE.
HARVARD REGA I NS THE PUCK.
IIOUR SHOT? 2
FLICK SHOT ....
SHOT IS WIDE.
HARYARD REGAINS THE PUCK.
YOUR SHOT? 1
SLAP SHOT.
SHOT IS WIDE.
CORNELL TAKES THE PUCK.
CORNELL SHOT:
SLAP SHOT.

I C I NG PENAL TY .....
CORNELL REGA I NS THE PUCK.
CORNELL SHOT:
SLAP SHOT.
SHOT H ITS THE POST.
HARYARD REGAINS THE PUCK.
YOUR SHOT? 2
FLICK SHOT
**GOOI)!**
HERE I S THE FACE-OFF:
SCORE:
CORNELL 2
HARVARD 3
HAR\'ARD WINS THE FACE-OFF.
YOUR SHOT? :3
WRIST SHOT ..
SHOT IS WIDE.
CORNELL TAKES THE PUCK.
CORNELL SHOT:
FLICK SHOT
SHOT I S BLOCKED BY THE GOAL I E.
HARYARD REGAINS THE PUCK.
YOUR SHOT? 2
FLICK SHOT
SHOT IS TAKE-N BY THE CORNELL GOAL I E.
CORNELL TAKES THE PUCK.
CORNELL SHOT:
WRIST SHOT
**GOOI)!**
HERE IS THE FACE-OFF:
SCORE:
CORNELL 3:
HARYARD 3:
***** END OF FIRST PER I OD
SCORE:
CORNELL 3
HARYARD :3
START OF SECOND PER I OD.
HERE IS THE FACE-OFF:
SCORE:
CORNELL 3
HARYARD l
HARVARD WINS THE FACE-OFF.
YOUR SHOT? 1
SLAP SHOT.
SHOT IS WIDE.
CORNELL TAKES THE PUCK.
CORNELL SHOT:
FLICK SHOT
SHOT IS BLOCKED BI' THE GOALIE.
CORNELL REGAINS THE PUCK.
CORNELL SHOT:
FLICK SHOT
ICING PENALTY.
HAli:I'ARD TAKES THE PUCK.
YOUR SHOT? 2
FLICK SHOT....
SHOT IS WIDE.
CORNELL TAKES THE PUCK.
CORNELL SHOT:
SLAP SHOT.
SHOT H ITS THE POST.
CORNELL REGA INS THE PUCK.
CORNELL SHOT:
FLICK SHOT
SHOT IS BLOCKED BY THE GOALIE.
CORNELL REGAINS THE PUCK.
CORNELL SHOT:
WRIST SHOT
SHOT IS HIGH.
HARYARD REGAINS THE PUCK.
YOUR SHOT? :3
WRIST SHOT.
SHOT I S BARELY 101 I DE ..
HARVARD REGA I NS THE PUCK.
YOUR SHOT? 2
FLICK SHOT. ...
leIN(; PENALTY.
CORNELL TAKES THE PUCK.
CORNELL SHOT:
WRIST SHOT
SHOT IS HIGH.
HARYARD REGAINS THE PUCK.
YOUR SHOT? 1
SLAP SHOT
SHOT I S TAKEN BII THE CORNELL GOAL I E.
CORNELL TAKES THE PUCK.
CORNELL SHOT:
SLAP SHOT.
SHOT HITS THE POST.
HARVARD REGAINS THE PUCK.
YOUR SHOT? 2
FLICK SHOT

*****

**0001)!**
HERE 15 THE FACE-OFF:
SCORE:
CORNELL :3
HARVARD 4

**0001)!**
HERE IS THE FACE-OFF:
SCORE:
CORNELL 2
HARYARD 2
CORNELL TAKES THE FACE-OFF.
WRIST SHOT...
SHOT IS MISSED.
HAR\'ARD TAKES THE PUCK.
YOUR SHOT? 1
SLAP SHOT.

132

CORNELL TAKES THE FACE-OFF.
SLAP SHOT...
ICING .PENALTY .....
HARYRRI> TRKES THE PUCK.
YOUR SHOT? 3
WRIST SHOT..
SHOT IS WIDE ..
CORNELL TAKES THE PUCK.
CORNELL SHOT:
SLAP SHOT.
SHOT HITS THE POST.
CORNELL REGR I NS THE PUCK.
CORNELL SHOT:
FLICK SHOT
SHOT I S BLOCKED. BII THE GOAL I E.
HARIIRRD REGA I NS THE PUCK.
YOUR SHOT? 2
FLICK SHOT
SHOT I S TAKEN BV THE CORNELL GOAL I E.
CORNELL TAKES THE PUCK.
CORNELL SHOT:
WRIST SHOT
*"'GOO[)!**
HERE IS THE FRCE-OFF:
SCORE:
CORNELL 4
HARYARD 4
HARYARD WINS THE FACE-OFF.
YOUR SHOT? 2
FLICK SHOT ....
SHOT IS WIDE.
HARYARI> REGA I NS THE PUCK.
YOUR SHOT? 2
FLICK SHOT ....
**GOOD!**
HERE IS THE FACE-OFF:
SCORE:
CORNELL 4
HARYARD ~
CORNELL TAKES THE FRCE-OFF.
SLAP SHOT ...
SHOT IS MISSEl>.
HARYARD TAKES THE PUCK.
YOUR SHOT? 3
WRIST SHOT..
**GOoCr!**
HERE IS THE FRCE-OFF:
SCORE:
CORNELL 4
HARVARD 6
HARYRRD WINS THE FRCE-OFF.
.,.OUR SHOT? 1
SLAP SHOT.
SHOT IS 101 IDE.
HARYARD REGR I NS THE PUCK.
VOUR SHOT? 1
SLAP SHOT.
I C I NG PENAL Til .....
CORNELL REGA I NS THE PUCK.
'CORNELL SHOT:
WRIST SHOT
SHOT IS HIGH.
CORNELL REGA I NS THE PUCK.
CORNELL SHOT:
FLICK SHOT
SHOT I S BLOCKED 81' THE GOALI E.
HARYARD REGA I NS THE PUCK.
.,.OUR SHOT? 3
WRIST SHOT.
SHOT I S BAREL II 101 I DE.
HARIIARI> REGR I NS THE PUCK.
YOUR SHOT? 2
FLICK SHOT. ...
SHOT IS WIDE.
HARYARD REGA I NS THE PUCK.
YOUR SHOT? 1
SLAP SHOT.
ICING PENALTY .....
CORNELL REGAl NS THE PUCK.
CORNELL SHOT:
WRIST SHOT
SHOT IS HIGH.
CORNELL REGAINS THE PUCK.
CORNELL SHOT:
SLAP SHOT.
SHOT HITS THE POST.
CORNELL REGA I NS THE PUCK.
CORNELL SHOT:
WRIST SHOT
**GOOD!**
HERE IS THE FACE-OFF:
SCORE:
CORNELL 5
HARYARD (;
***** END OF SECOND' PER I 00 "'''''''.to ...
SCORE:
CORNELL 5
HARYARI> EO

HORSES

BETTING AT A HORSERACE

Description
This program simulates a one-mile horse race for three-year old
thoroughbreds. You can place any number of bets on the outcome
of the race. There are four elements to a bet:
1.
2.
3.
4.

Horse number (1 to 8)
Position (Win=l, P1ace=2, Show=3)
Amount of wager ($2 minimum, $300 maximum)
Bet signal (1 for more bets to follow, 0 to close
betting)

The computer then gives you the position of the eight horses at
eight points around the raceway. At the end, it tells you what
each horse paid and what you won (or didn't win) on each of your
bets.
Source
The published program has been around DIGITAL for as long as
anyone can remember. Its author is now unknown. Other interesting horse race progr~s were submitted by Robert Goodman,
Southfield, Mich.1 Don Viola, Staten Island, NY1 and Paul
Garmon, Wellesley Hills, Mass.

•

133

PROGRAM LISTING

SAMPLE ~UN

DIM V I 10) ,UI II),T( U!'; M(8) ,0181 ,iHS) ,1i/81 ,P(6l
RANDOMIZE' PRINT '~OR8E RAC~'
3 PRINT "EXAMPLE OF BETI 1'2'200,0 . '
5 PRINT , PRINT'
SEVENTH - 1 MILE, 3 YR. OLDS
6 PRINT
7 ~OR 1'1 TO 8
8 B(I)'I , GOSUB 210
9 RUD 0111 , PRINT 0(1)'/1'
10 MII)'1I0005hOII)) I (011)+1)
II NUT f
12 PRINT
13 PRINT'ENTER HORSiIl-8I1TO ~IN,PLACE,SHOw!l,2,3I1AND THE wAGER."
14 PRINT 'AND II FOR NO MORE BETTING OR I OR MORE BETTING."
15 LET S • 0
16 PRINT
17 LET S • S + I
18 PRINT'BET NO. "'S,
19 INPUT T(S),UIS),VIS),~
2~ LET TlSI.ABSCINTCT(Slll
21 IF TCS).8 THEN 25
22 IF TlS)CI THEN 26
23 LET U(SI'ABScINTCUCSll)
24 IF UIS»3 THEN 26
25 IF UIS).0 THEN 2a
26 PRINT'HORSE NO. OR oh-pLACE-SMoo h ERROR' \ GO TO 18
28 IF V(S)C2 THEN 30
U IF VlSI c'300 THEN 33
30 PRINT'BET MUST BE >$2 AND cU00, BET AGAIN"
31 INPUT VCSI , GO TO 28
33 IF M • I THEN 17
35 PRINT' PRINT"
THEY'RE OFF. AND RUNNING - ' , PRINT
36 FOR 1.1 TO 8 , HCI).0 \ NEXT I
40 FOR ~'I TO 8
42 SLEEP 6
44 FOR J'! T,O 8
46 HCJ)'HCJ)+RND(0)oMCJ)
48 NEXT J
52 FOR 1'8 TO I STEp -I
54 FOR J'2 TO I
56 ON SGNCHCBCJ-I)I-HCBIJ)))+2 GO TO 60,58,62
58 IF RND(0»,5 THEN 62
6i1 Z'BCJ-II , BCJ-II'BCJI \ B(J).Z
62 NEXT J
64 NEXT I
.,
6B PRINT \ PRINT"
70 ON ~ GOTO 72,74,76,78,811,82,84,86
72 PRINT "AS THEy BREAK FROM THE GATE" \ GO TO Be
74 PRINT "AT THE 1/4 MILE POLE" \ WO TO 88
76 PRINT 'NE~RING THE HALFWAY MA~K' , GO TO 88
78 PRINT "MID~AY IN THE RACE" \. GO TO
80 PRINT "AT 5/8 OF A MILE" \ GO TO 88
82 PRINT "ROUNDING THE TURN" \ GO TO 88.
84 PRINT 'COMING DOWN THE STRETCH' , GO TO 88
86 PRINT"
FINISH"
88 REM
90 GO suB 200
92 NEXT K
,
96 P~INT \ PRINT
PRINT 'S2 MUTUELS PAID"
98 PRINT"
STRAIGHT
PLACE
le0 ~'0
le2 FOR 101 TO 3
104 GO eUB 215
106 FOR J'I TO J
108 L'2 0 I+J-3 , P (L) .1.5+ ,IOINT( .1* I NT( C4*0 C8 ( l II I CJ* CJ+ III +RND C0 no U0+5)1
110 PRINT TABC3+10*JI/ , B'-16
- ..
112 fOR M'J TO -I STEP -I
114 P'INTtPCLI/(!0AMII
116 P'P_100INT(P/10)
117 IF P'0 THEN 118 \ B.0
1\8 PRINT CHR$C48+p+BII
138 IF M<>e THEN 139 , PRINT ',"
139 NEXT M
140 PRINT 'e',
142 NEXT J
144 PRINT
146 NEXT I
180 PRINT \ Q.e
152 FOR J'I TO 8
154 PRINT "SET NO, "' J
15S P'0
158 FOR 101 TO 8 \ MCBCIlloI \ NEXT I
160 IF UCJICMCTeJll THEN 166
le2 P.
INT( (V (J 105010P CU I J I +H (T CJll*2-JII
164 PRINT "YOU COLLEn" P 'ON ., \ GO TO 172
IS6 IF HCT(Jll'3 THEN 168 \ PRINT 'NEXT TIME, BUY A SHO.", , GO TO 170
168 PRINT "TEAR UP YOUR",
170 PRINT" TICKET ON "'
172 1'0 \ BC01'TCJI , GOeuS 215 \ PRINT
174 Q'Q*P-VCJ)
176 NEXT J
178 IF QC0 THEN 182
180 PRINT "YOUR TOTAL "INNINGS AMOUNT To $' Q , STOP
182 PRINT "YOUR TOTAL LOSSES AMOUNT TO S' ABSIQI \ STOP
200 PRINT "POS,
HORSE
LENGTHS B!HIND"
205 FOR I ' ! TO B
2IB PRINT II
218 ON BCI) GOTO 220,222,224,226,228,230,232,234
2211 PRINT "MAN O'WAR
", \ GO TO 240
222 PRINT "CITATION
'J' GO TO 240
224 PRINT 'WHIRLAWAV
", \ GO TO 240
226 PRINT "ASSAULT
""
GO TO 2'0
228 PRINT .SEABI8CUIT "
, GO TO 240
231 PRINT IG~~LANT FOX', \ GO TO 240
232 PRINT "STyMIE
'"
, GO TO 240
.,
234 PRINT 'COALTOwN
2411 IF K'0 THEN 260
245 IF 1>1 THEN 250 \ PRINT , Go TO 255
250 PRINT ,loINTCHCBCII'-HCBIIlll
255 NEXT 1
260 RETURN
301 DATA 3,4.5,8,9,11,20,30
9n END

IfoRSE RAC~
EXAMPLE OF 8ET, 1;2,200.0

,S\.

134

SEVENTH 1 MAN O'WAR
2 CITATION
3 WHIRLAWAY
4 ASSAULT
5 SEA8ISCUIT
6 GALLANT FOX
7 STYMIE
8 COAL TOWN

1 MI LE,

3 YR.

OLDS

POST 2:35

3 :1
4

5 :1
8 :1
9 :1
11 :1
20 :1
30 :1

ENTER HORSE(1-8l;TO WIN,PLACE,SHOW(1,2,3l;P.ND THE WAGER.
AND 0 FOR NO MORE 8ETTING OR 1 OR MORE BETTING.
BET
BET
BET
BET
8ET

NO.
NO.
NO.
NO.
NO.

?
?
?
?
:; ?
1
2
3
4

2,1,100,1
3,2,100,1
4,2,100,1
1,3,100,1
5,3,100, e

THEY'RE OFF AND RUNNING AS THEY BREAK FROM THE GATE POS.
HORSE
LENGTHS BEHIND
WHIRLAWAY
SEABISCUIT 1.2
STYMIE
1.9
GALLANT FOX 2. 3
ASSAUL T
3. 5
CITATI ON
4. 5
MAN 0' WAR
4. 7
COAL TOWN
5. 1
AT THE 1/4 MILE POLE POS.
HORSE
LENGTHS BEHIND
1 STYMIE
2 WHIRLAWAY
.2
3 CITATION
.5
4 GALLANT FOX . 7
5 COAL TOWN
1.7
6 SEA8lSCUIT 2.1
7 MAN O'WAR
3.7
8 ASSAULT
4. 2
NEARING THE HALFWAY MARK POS.
.HORSE
LENGTHS BEHIND .
1 CITATION
2 STYMIE
.S
3 GALLANT FOX 4. 1
4 ASSAULT
4. 1
5 WHIRLAWAY
4. J
6 COAL TOWN
4. 9
7 SEABISCUIT 5.1
8 MAN O'WAR
~ 3
ROUNDING THE TURN POL
HORSE
LENGTHS BEHIND
1 WHIRLAWAY
2 GALLANT FOX 1.6
3 STYMIE
2.2
4 ASSAULT·
3.9
5 CITATION
5.6
6 SEABIScUIT 6.6
7 COAL TOWN
10.9
8 MAN O· WAR
11
.COMING DOWN THE STRETCH POS.
HORSE
LENGTHS BEHIND
1 ·WHIRLAWAY
2 STYMIE
0
3 CITATION
1.8
·4 GALLANT FOX 2.1
5 ASSAULT
2. 8
6 SEABISCUIT 6.8
7 MAN O'WAR
8.4
8 COAL TOWN
10.7
FINISH
HORSE
LENGTHS BEHIND
1 CITATION
2 STYMIE
.7
1.1
3 ImlRLAWAY
4 GALLANT FOX 3.3
6.4
5 ASSAULT
6 MAN O'WAR
10.2
7 SEABISCUIT 10.5
14.5
8 COAL TOWN

pos.

$2 MUTUELS PA I D:
STRAIGHT
9.97

CITATION
STYMIE
WHIRLAWAY

PI,ACE

4.44
15. 48

·BET NO.
1
VOU COLLECT 498. 5 ON CITATION
8ET NO.
2
TEAR UP YOUR TICKET ON WHIRLAWAY
BET NO.
3
TEAR UP YOUR TICKET ON ASSAULT
NO.
4
TEAR UP YOUR TICKET ON MAN O'WAR
BET NO.
5
TEAR UP YOUR TICKET ON SEABI5CUIT
YOUR TOTAL LOSSES AMOUNT TO $ 1. 5

SHOW
~. 18

8.9
3.72

HURKLE

FIND THE HURKLE IN HIDING

Description
Hurk1e? A Hurk1e is a happy beast and lives in another galaxy
on a planet named Lirht that has three moons. Hurk1e are
favorite pets of the Gwik, the dominant race of Lirht and •••
well, to find out more, read liThe Hurk1e is a Happy Beast"
in the book A WAY HOME by Theodore Sturgeon published by Pyramid.
In this program a shy hurk1e is hiding on a 10 by 10 grid.
Homebase is point 0,0 in the Southwest corner. Your guess as
to the gridpoint where thehurk1e is hiding should be a pair
of whole numbers, separated by a comma. After each try, the
computer will tell you the approximate direction to go look
for the Hurk1e. You get five guesses to find him.
NORTH
9
8
7

WEST

EAST

5
4

-r--..., This is

G ridpoint

2
1

HO~BASE/O

SOUTH
Program Author
Bob Albrecht
People's Computer Company
Menlo Park, CA 94025

135

7,3

SAMPLE RUN

PROGRAM LISTING

90 REM •• CONVERTED TO RSTS/E BY DAVID AHL, DIGITAL
100 REM HURKLE - PEOPLE'S COMPUTER COMPANY, MENLO PARK CA
105 RANDOM
11e N=5
120 G=10
210 PR[NT
22e PRINT "A HURKLE [5 HID[NG ON A"; G; "BY"; G; "GRID, HOMEBASE"
230 PR[NT "ON THE GRID [S POINT 0, a AND ANY GRlI>POINT IS A"
240 PR[NT "PAIR OF WHOLE NUMBERS SEPARATED BY A COMMA, TRY TO"
250 PR[NT "GUESS THE HURKLE'S GRIDPOINT, YOU GET"; N; "TRIES, "
260 PR['NT "AFTER EACH TRY, I WILL TELL YOU THE APPROXIMATE"
270 PR[NT 'D[RECTION TO GO TO LOOK FOR THE HURKLE, "
280 PRINT
285 A=[NT(G*RND(0»
286 B=INT(G*RND(0»
310 FOR K=1 TO N
320 PRINT "GUESS ."; K;
330 [NPUT X, Y
340 [F ABS(X-A)+ABS(Y-B)=e THEN 5ee
350 REM PRINT INFO
360 GOSUB 610
370 PRINT
lse NEXT K
410 PR[NT
420 F'R[NT "SORRY, THAT'S"; N; "GUESSES, "
430 PRINT "THE HURKLE IS AT "; A; ", "; B
440 PRINT
450 PRINT "LET'S PLAY AGAIN, HURKLE IS HIDING, "
460 PRINT
470 GO TO 285
500 REM
'510 PRINT
520 F'RINT "YOU FOUND HIM IN"; K; "GUESSES!"
530 FOR 1=1 TO 10\PRINT CHR$(7);\NEXT I\PRINT
540 GO TO 440
610 PR[NT "GO ";
620 [F Y=B THEN 670
630 IF Y{B THEN 660
640 PI< I NT "SOUTH";
650 GO TO 670
660 PR[NT 'NORTH";
(.70 [F X=A THEN 720
680 IF X{A THEN 710
690 PRINT "WEST";
700 GO TO 720
710 N:INT "EAST";
720 F'RINT
730 RETURN
999 END

A HURKLE IS HlDlNG ON A 18 BY 18 GRID, HOI'1EBASE
ON THE GRID IS POINT 8,8 AND AN~ GRIDPO[NT IS A
PAIR OF WHOLE NUMBERS SEPARATED BY A COMMA, TRY TO
GUESS THE HURKLE'S GR[DPOINT, YOU GET 5 TRIES,
AFTER EACH TRY, I WILL TELL ~OU THE APPROXIMATE
D I RECTI ON TO GO TO LOOK FOR THE HURKLE,

RE:ADY

I'OU FOUND H[M IN 5 GUESSES!

GUESS t 1 ? 5, 5
GO NORTHEAST
GUESS • 2 ? 7, 7
GO EAST
GUESS .. 1 ? 8;7
YOU FOUND HIM IN 3 GUESSES!
l.ET'S PLAY AGA [N,

HURKLE IS HIDING,

GUESS • 1 ? 4, 4
GO NORTHWEST
GUESS • 2 ? 2, 7
GO NORTHWEST
GUESS" 3 ? 1,8
GO NORTH
GUESS i

4 ? 1,9

\'OU FOUND HIM IN 4 GUESSES!
LET'S PLAY AGA I N,

HURKLE IS HIDING,

GUESS. 1 ? 4,5
GO SOUTHEAST'
GUESS. 2 ? 7,2
GO NORTHWEST
GUESS # 3 ? 8, 4
GO SOUTHWEST
GUESS • 4 ?
GO WEST
GUESS t

6~ 3:

5 ? 5,l

LET'S PLAY AGA [N,

HURKLE IS HIDING,

GUESS # 1 ? 4,O
GO NORTHWEST
GUESS • 2 ? 2,5
GO NORTH
GUESS .. 3 ? 2,7
GO NORTH
GUESS. 4 ? 2,8
\'OU FOUND HIM IN 4 GUESSES!
LET'S PLAY AGA I N,

HURKLE IS HIDING,

GUESS. 1 ? 9,9
GO SOUTHWEST
GUESS t 2 ? 7, 7
GO SOUTHWEST
GUESS t 3 ? 5,5
GO SOUTHEAST
GUESS • 4 ?
GO NORTH

6~ 0:

GUESS • 5 ? 6J 1
GO 'NORTH

SORRY, THAT'S 5 GUESSES,
THE HURKLE 15 AT 6, 3

136

KINEMA

THROW A BALL UP IN THE AIR

Description
This program tests your fundamental knowledge of kinematics.
It presents a simple problem: a ball is thrown straight up
in the air at some random velocity. You then must answer
three questions about the flight of the ball:
1.
2.
3.

How high will it go?
How long until it returns to earth?
What will be its velocity after a random number of
seconds?

The computer evaluates your performance~ within 15% of the
correct answer is considered close enough. After each run,
the computer gives you another problem until you interrupt
the program.
Program Author
KINEMA was shortened from the original Huntington Computer
Project Program, KINERV, by:
Richard F. Pav
Patchogue High School
Patchogue, New York

A BALL IS THROWN UPWARDS AT 15 METERS PER SECOND·
HOW HIGH WILL IT GO lIN METERS)? 22
NOT EllEN CLOSE.
CORRECT ANSWER IS 11. 47959
HOW LONG UNTIL IT RETURNS (IN SECONDS)' 1
CLOSE ENOUGH
CORRECT ANSWER IS ].861225
WHAT WILL ITS
CORRECT~

10'1 PRINT
105 PRINT
1~36

2 RIGHT OUT OF]

l1e V=5+INT(J5*RND(Q)\

IS THROWN UPWRRDS RT"Y"METEPS PER SECOND"

NOT BAD

METERS~";

GOSI)8 50(t

12f.3 A=V/4. 9

HOW LONG UNTIL IT RETURNS lIN SECONDS)? 4
CLOSE ENOUGH
CORRECT ANSWER IS 4.285714

122 PRINT "HOW LONG UNTIL IT RETURNS (IN SECONDS)";
124 GOSUB

A BALL IS THROWN UPWARDS AT 21 METERS PER SECOND

HOW HIGH WILL IT GO lIN METERS)? 22
CLOSE ENOUGH.
CORRECT ANSWER IS 22.5

11.5 11=',r"2/19.6

116 PR]NT "HOW HIGH WILL IT GO (IN

.5~3~3

lJG T=(1+INT(2*V*RNDil»)/10
132
1]4
116
14')

BE AFTER. 2 SECONDS' 11

G~=0

111 PRINT "A BALL
112 PRINT
11~'

VELOCIT~

VERY GOOD!

11='./-9 8:+:1

~HAT WILL ITS VELOCITY BE AFTER 2 1 SECONDS? 1
,jOT EVEN CLOSE.
CORRECT RNSWER 15 4200801

PRINT "WHAT WILL ITS VELOCITY 8E RFTEP"T"SECONDS',
GOSUB- 5~30

150 PRINT Q"RIGHT OUT OF
160 IF 0<2 THEN 100
179 PRINT"
NOT BAD
180 GO

2 RIGHT OUT OF.3

500 ltjPUT G
501 G=100*ABS(G-Al
5~32

G<=ABS(FI}

THEN

A
~:;07

503 IF G{=15*AB5(f!) THEN 510
5~36

GO TO
O=G~+l

~,12

THROWN UPWARDS AT 22 METERS PER SECOND
24.2

HOW LONG UNTIL IT RETURNS (IN SECONDS)? 4.4

508 PRI"CORRECT' VERY GOODI
5139 GI)T0520
5113 PRINT "CLOSE ENOUGH. "
511

BALL

HOW HIGH WILL IT GO (IN METERS)?
CLOSE ENOUGH
CORRECT ANSWER IS 24.69388

504 PRINT "NOT EYEN CLOSE
507

NOT BAD

1(1(1

CLOSE ENOUGH.

CORRECT ANSWER IS 4.489796

r2=t~+l

WHAT WILL ITS VELOCITY 8E AFTER. 2 SECONDS? 20
CORRECT' VERY GOODI

512 PRINT "CORRECT ANSWER IS"A
5213 PRINT

53') RETURN
999 END

] RIGHT OUT OF].

137

NOT BAD

1:1
!

KING

GOVERN YOUR OWN ISLAND

Description
This is one of the more comprehensive, difficult, and interesting
land and resource management games.
(If you've never played one
of these games, start with HMRABI).
In this game, you are Premier of Setats Detinu, a small communist
island 30 by 70 miles long. Your job is to decide upon the
budget of the country and distribute money to your countrymen
from the communal treasury.
The money system is Rallods; each person needs 100 Rallods
per year to survive. Your country's income comes from farm
produce and tourists visiting your magnificent forests, hunting,
fishing, etc. Part of your land is farm land but it also has
an excellent mineral content and may be sold to foreign industry
for strip mining. Industry import and support their own workers.
Crops cost between 10 and 15 Rallods per $quare mile to plant,
cultivate, and harvest. Your goal is to complete an eight-year
term of office without major mishap.
To the question, "HOW MANY TIMES HAVE YOU PLAYED?" answer "0"
for a full set of rules, "500" for no explanation, or "1,000"
to continue an old game. To stop a running game and continue
it later, answer "0" to all questions.
This program is available from DECUS as BASIC-8-346, and is
called "POLLUTION GAME.
II

Program Author
James A. Storer
Lexington High School
Lexington, MA 02173

138

PROGRAM LISTING
REM JIM STORER
PRINT "HOW MANV TIMES HAV~ YOU PLAYED"'
INPUT Z
LET N5'S
6 RANDOMIZE
12 IF Z0500 THEN 47
14 IF Z'I~00 THEN 1960
17 FOR Ylol TO 10
18 PRINT
19 NEXT VI
20 PRINT "CONGRATULHIONSI VOU'VE BEEN ELECTED PRE"IER OF SET US OETINU."
22 PRINT "A SMALL COMMUNIST ISLANO 30 By 70 MILES LONG, YOUR JOB IS TO·
24 PRINT "DECIDE UPON THE COUNTRy' S 8UDGET AND DISTRIBUTE "ONE V TO YOUR.
26 'PRINT ·COUNTRVMEN fROM T"'E COM~UNAL TREASURY,",
27 IF Z00 THEN 47
28 PRINT· THE MONEY SYSTEM IS RALLOOS."
30 PRINT "A'D EACH PERSON NEEDS 100 RAUOOS PER YEAR TO SURVIVE,"
32 PRINT ·YOUR COUNTRY'S INCOME COMES FROM FARM PROllUCE AND TOURISTS"
34 PRINT "VISITING YOUR MAG,'oIFIC!E"T FORESTS. HUNTING. FISHING. ETC, HALF"
36 PRINT "YOUR LANO IS FARM LAND WHICH ALSO HAS AN EXCELLENT MINERAL'
38 PRINT "CO"TE"T HID ~AV BE SOLD TO FOREIGN INDUSTRY CSTRIP MINING)"
39 PRINT .OHO IMPORT AND SU-PORT THEIR OWN .OOKtRS, CROPS COST ~ET.EEN"
40 PRINT "10 ~ND 15 RA~lOOS PER SQ, ~ILE TO p~ANT."
42 PRINT "YOUR GOAL IS TO CuMPLETE YOUR"N51"YEAR TERM OF OFFICE,"I
44 PRINT" GOOD LUCKI"
47 FOR VI-I TO 4
48 PRINT
49 NEXT VI
50 LET AoINT(b"00~+CR'OCllo!0"~)-CRNDCI)01000ll
55 LET SOINTCo0e+CRND(tloI0,-CRNO(lloI0J)
65 LET 00201<\0
100 LET '=INT("NoC1)010+95)
101 FOR Ylol TO 8
102 PRINT
103 NEXT Y1
105 PRINT lIyOU NQW HAVE"IA.JIIRALLODS IN THE TREASURY,II

110 PRINT

INT(8)J"COU~TRV~E~,IIJ

115 LET V90INTC(('''D(t)l2)010+10"
120 IF C•• THEN 140
130 PRINT H~T(C" "FOQEIGN ~ORt<ERS, "'

140 PRI .... r

" Af..i('\I'II(\;TCD);"SQ.

~qLES

TIo!IN~

240 IF X <>

THEN

AGAIN,

YOU'VE ONLyu'O .. 1Cl!0!HIISQ.

MILES OF FA.RM lA,NO"

2~~

250 PRINT "CFUREIGN INDUSTRY "ILL ONLY

auy FA"M LAND BECAuSE fOREST"

260 PRINT "LAr<.iO IS UNE.CONOMICAL TO ST~IP MINE I)UE TO T~EES,u

270
280
299
300
310

PRINT "THICKER TO. SOIL. ETC,)·
LET xa 1
GOTD 2"0
LtT D'I',TCO-H)
LET AoIN"A+CHo.11

320

PRI~T

PHOw

~·,~v

RAL~ODS

00 YOU WISH TO

D!ST~IBUTE

TO YOUR

COUNTRY~E~uJ

340 INPUT I
342 IF 1<0 THEN 320

350 IF I<A
360 IF I-A
370 PRINT

375
380
390
395
399
400
410
420

T~E~

d0e

T~EN

38~

TIo41"';K AGAIN Vf)tJ'V~ ('1~Lyl'IAIIIRALLODS ItJ THE TqEASURY"

GOTa 32.
LET
LET '=0
LET "0
GOTO 1000
LEoT hINT (A_I)
PRI~T "HOw MANY
INPUT J

J."

S~.

AILES DO YOU

~ISH

TO PLANT"'

421 IF J<:(o! TI-lc.N 41tA
422 IF J<-B*2 T~~N 426

423 P~INT"
SORRY, BUT EACH COU\lTQYMAN CAN Q,\lL,( PLANT 2 SQ. MILES"
424 GOTO 41"
426 IF J<IID-lt?J0e HoIf:.1\i 430

427 PRINT II

Sf)kRY,

BuT Yr}U'VE

OI\jL.yIIJD"1Q10~;"SG.

",YLES

QF FARM LAND"

428 GQTa 4h;1

430 lET UloINT CJ*'9)
435 IF ut<A TJ-II:N o~e

440 IF uta.
450 PRINT"

THE/>.' 49~1

TIoIIN'" AGAI",. YOU1Ve. ONLY"JA1"RALLOOS LEFT IN TWf. TREASURY"

460 GaTa 410
490 LET Ko~
495 LET . . .
499 GOre-I

100~

500 LET hA-ul

505 IF D~2~~0 TH~N 10~0
510 PRINT "Hna ~ANY ~ALLODS DO YOU
52~ I"PuT K
522 IF M<? T"'o'

53ft! IF

!«.A

TME~

604 IF J<>0
606
608
609
610

rHE~

~ISH

SPE~D

POLLUTI~N CO~TROLu,

51~'
HH,F~

540 PRINT II
THINK AGA!f'q YtHJlVE
550 GO TO 510
60~ IF H<>0 THEN lS~2
602 IF 1<>0') TI-IE~ 1"'iZ1 2

120~

IF INTCCl/100)-B)<0 THEN 1170
IF FI'0 THEN 1180
GOT a 1200
PRINT'
YOU WERE FOHCEP TO SPENO'IINT(CFI+CB.CII100»).9)1
pRINT 'RALLODS ON FUNERAL EXPENSES,"
~ET 85 01",CFI+CB·CI/100»))
LET ~0INTCA-C(FI+CB-CI/U0lJ).91l
GOTO 1185
PRINT"
YOU wERE FORCED TO S~END·jiNTCFI09l'''RALLODS ON ",
PRINT "FUNERAL EXPENSES,"
LET 850FI
LETA 'INT CA- CF 109»
IF A"0 THEN 1 194
PRINT"
INSUFFICIENT RESERVES TO COVER COST -LAND WAS SOLD"
LET DOINT(O+CA/')l
LET A00
LET soINTCB-85l
IF H00 THEN 1250
LET C!.INTCH+ CRNO (I) 0101- (RND C1l020l)
IF c.~ THEN 1230
LET CloCI+20
PRINT CI''''OR~ERS CA"E TO T"E COUNTRY AND·,
LET P I.INT C( (l/100-B)/10l+ CKI25) - ((2000-DlI50l-(F 1/2) l
PRINT A8S(PIlI"CaUNTRY"EN '"
IF PI<0 THEN 1275

1220
1224
1226
1230
1250
1255
1260
1265 PRINT "CAME TOI!,
1270 GOT a 1280
1275 PRINT "L.EFTII J
1280 PRINT II THE ISLAND."
1290 LET B'rNT ca+PI)
1292 LET C'INT(C+CI)
1305 "ET U2.I,T(((2.00-C)oCCRNOC1)+I.bl/2)1)
1310 IF coe THEN 1324
1320 PRINT" OFlI J INT (J) J "SI~. f1ILES PL_A_NTfO, II J
1324 IF J>lJ2 THEN 1JJ~
1326 ~ET U2'J
1330 pRH,if II yoU HAfoiVESTEO",!NTCJ-U2lJ"SQ. MILES OF CROPS."
1340 IF U2=0 T"fN 137"
1344 IF T\>=2 TeEN 1370
(UU~ TO
1350 P~INT II
1355 IF Tl=0 THEN 1365
1360 PRINT" H.CREASEO '"
1365 PRINT "AIR AND WATER POLLUTION FROM FOREIG~ INDUSTRY.)"
1367 LET TI.TI+I
1370 LET ,joINHeJ-U210cw/2ll
1380 PRINT II I"iAKll'.jG"IINT(Q)'''RALt..ODS.11
1390 LET ~.IN1(A+Q)
1400 LET V 101 NT( CC8-PI).22)+ CRND (110500»
1405 LET V2.!NTCI2001-D)015)
1410 PRINT 11 YOU MAOE U IAliSC!NT(Vt-V2),"RALLODS FROiJ: TOUqIST TRA.DE."
1420 IF V2.e TH~N 1450
1425 IF VI-V2>'v3 THEN 1450
1430 PRINT"
DECREASE BECAUSE "I
1435 LET Gl'RNO(!)010
144~ IF Gl"2 THEN 1460
1442 IF Gl<.4 THEN 1465
1444 IF GI<'6 THE' 1471
1446 IF GI<oA THEN 1475
1448 IF G1<#1(l! THEN 1480
1450 L.ET V3c!~TCV1-v2'
1451 LET .'INTCA+V3)
1452 GOTO 1000
1460 PRINT "FISH POPULATION HI-,S DWlr-.lDL,ED DUE TO wATER POLLUTIO"l."
1462 liOTO 145~
1465 PRINT IIAIR POLLUTION IS KILLING GAME BIRD POPUI..ATION."
1467 GOTO 145~
1470 PRINT "MIN~qAL BATHS ARE BEING ~UINED BY WATER POLLUTION.U
1472 GOTO 145~
1475 PRINT l!UNPLEASA~T SMOG IS I)!SCOURAGING SUt-.J BATHERS."
1477 GOTO 145~
1480 PRINT ".OTEll A~! LOOKING SHAB"Y aUf TO SMOG GRIT."
1482 GOTO 1450
1500 IF B5>2~0 TH~N 1600
1505 IF B<343 THE"" 1700

OF LAIl,iD."

PRINT"TrtIS YEA~ INDUSTRY \>lILL BUY LA"'() FO~IIPdIlRALLODS PER SQ, MILE,II
PRINT "LAI'!D CliRREl\jTLY COSTS"'V9'"RALLODS PE;.l SQ. MILE T0 PLANT."
FOR VIol TO J
PRINT
NEXT VI
200 PRINT "HO~ ~A~Y SQ, 111i..t:S DO YOU ~!SH Tn SELL TO INOUSTRYtl,
210 INPUT H
215 IF H<0 THEN 200
22~ IF ~<=D-l~~~ THEN 30~
150
155
160
162
164

230 ~PINT

1150
1160
1165
1170
1112
1174
1115
1176
1180
1181
1182
1183
1185
1181
1189
1190
1194

O~LVIIJAJ"RAlL.Ot'l~

RE,MAIto,;ING"

1~02

IF «'0 T"EN 1102
FOR YIoI TO 5
PRINT
NEXT YI

612 PRI~T "GOOOBVE."
614 PRINT "(H YOU ,oJIStoI Tn CONTHI1jE TI1I5 GAME AT ,. LATER DATE, ANSlliER "
616 PRINT "li>lW'" FOR HOW MANY TI"1E'S YOU'VE PLAYEO, AT 6F.GINNII"JG OF NEXT "_
617 PRINT "GAME.)II
618 GOTO 159.
1000 GOTO 60"
1002 FOR Ylol TO 3
1003 PRI>!T
1004 NEXT VI
1010 LET AoINTCA-K)
1020 LET A40A
1100 IF I'TCI/I~~-B)"0 THE' \120
1105 IF 1/100<50 THE' 1'~0
1110 PRINT INTCH-CI/I10l),'COUNTRVNEN DIED OF ST.RVATION·
1120 LET Fl o INT(RND(I)+C20""-D))
1122 IF K<25 THEN 113~
1125 LET FI.INTCFI/C~/25lJ

ll~: ~~I~i<~~,T.~~0"~~~~E' DIED OF CARBON-MONOXIDE AND IlUST INHA~ATION' 139

IoU

IF CA4/1io:::I(i'!'>b THi!N

180(7·

1515 IF C.6 THEN 1550
1520 IF N5-1"S THE', 19'30
1545 GOTO 20~"
1tS51il FQR Y1al

PRINT
NEXT VI

1552
1550
1560
1562
156'
1570
157'
1576
1578

GOTO 1:;ge

158~

PRINT "YOU ~AVE eEtN

FOREIG~ WQR(ERS ~AS EXCEEDED THE ~UMBER"
A5 A ~AJORITY THEY HAVE REVOLTFD AND"
THE COUNTRy."
IF P~D(l)<=.b THEN 1b60
PRINT "'(OU HAV~ BE~N T~RU~N OUT OF OFFICE AND YOU ARE NO~II
PRINT "RlSIDING I~ PPISION,"

PRlNT

"T~f

PRINT "OF

NUM~ER

COUNTRY~EN.

"TAKE~

OVE~

ASSASSI~ATED."

1590 fOR n ' l TO 18
1592 PRI',T
1594 NEXT Yl
1596 STOP
1600 FOR YI"I TO 8
1602 PRINT
1605 NE, T v I
1610 PRINT B5J"COU1-JTVRMEN DIED r,,-· ONE VE.AR1!1""
1615 PRINT ~DUE TO T~lS EXTkE~E MIS~~NAGEME~T YOU HAvE NOT GNLV"
1620 PRINT nBEE~ I~PEACHEO AND T~Rn~N OUT OF OFFICE BUT YOU"
1622 ~ET "6=1,T(RNDCllOI0)
1625 IF M6<a3 THfN 1670
1630 IF M6CII6 TI"Ef'l.1 1680
1635 IF M6<.1~' THEN 16913
1670 PRINT "~~IO "AD YOUR LEFT EYE GOUGED OUT,"
1672 GOTO 159_
1680 PRINT ",",AvE ALSO GAINEli A VERy RAn REPUTATIOt-.,"
1682 GOTO 159.
1690 PRINT IIHAV~ ALSO 8Et", OECLAREO N4TIONAL ~INK.U
1692 GOTO 1590
1700 FOR VI=1 TO 8
1702 PRINT
1705 NEXT vI
1710 PRINT "~VER ONE T~I~D nF THE POPULATID~ ~AS DIED SINCE YOU"
1715 PRINT "WERE. El.ECTED TO OFF'ICE.. THE PROjJlE (REY.AINING)II
1720 PRI~T "HATE. youq GUTS,,"
1730 GOTO 157.
18"0 IF B5-FI<2 THEN 1515
1805 FOR Vial T0 8
1807 PRINT
1810 NEXT vi
1815 PRINT "MDOEV "AS LEFT OVER IN THE TREASURY "HICH YOU DIP"
1820 PRINT IINOT SPEND. AS A RESULT SOME OF YOUR COUNTRYMEN DIED"

SAMPLE RUN
PRINT IIOF STARVATION, THE PUB~IC IS ENRAGED AND yOU HAVE'
PRINT "BEEN FORCED TO UTHE~ ·RESIGN OR COMMIT SuClaE"
PRINT "TME CHOICE IS Y~URS,"
PRINT "IF YOU CHOOSE THE ~ATTER, PLEASE TURN OFF YOUR TTV"'
PRINT " ~EFORE p~OCEEOING,".
1850 GOTO 1~90
19'0 FOR YI'I TO 8
1902 PRINT
1905 NEXT YI
1920 PRINT "CONGRATU~ATION811111111111111111"
1925 PRINT "YOU HAVE SUCCESSFUL~Y COMP~ETED YOUR' I.N5' 'YEAR TERM'
In0 PRINT "OF OFFICE, YOU I,ERE, OF COURSE, EXTRE~ELV LUCKY, BUT NEVER THE"
1935 PRINT "LESS, IT'S QUITE AN ACHIEVEMENT, GOODey AND GOOD LUCK -yOU'LL"
1940 PRINT "PROBA6LY NEED IT IF yOU'RE THE TYPE THAT PLAYS THIS GAME,"
1946 PRINT"
-FOR FURTHER THRILLS. TRV LANDING ON THE MOON"
1950 GOTD 159~
1960 PRINT "HOW MANY YEARS HAD YOU BEEN b OF.FICE oHEN INTERRUPTED"
1961 'INPUT X5
1962 IF xsc0 THEN 169~
1963 IF xscS TMEN 1969
1965 PRINT"
COMl ON, YOUR TEO. OF OfFICE IS ONLY',NS"YEARS"
1967 GOTO 1960
1969 PRINT "HO. MUCM DID YOl HAVE IN T~E TREASURV",
1970 INPUT A
1971 IF Ac~ TMEN 1590
1975 PRINT "MOO MANY COUNTRYMEN'"
1976 INPUT B
1977 IF se0 THE" 1590
1980 PRINT "HG" MANV oOPKERP,
1981 INPUT C
1982 IF Ce0 T"EN 1590
199m PRINT "HO. MANY SQ, MIt.ES OF LANO"'
1991 I~PuT 0
1992 IF Dc0 THEN 1~90
1993 IF D.20~0 THEN 1996
1994 IF D.10~r TMEN 100
1996 PRINT"
CO"E ON, YOl STARTED "ITH 1000 SQ, "ILES OF FARM ~ANO"
1997 PRINT"
A~D 1000 SQ, MILES OF FOREST LAND"
1998 GOTO 1990
2000 LET X5.XS+l
2020 ~ET 65.0
2040 GOTD 1"0
2046 <ND
1825
1830
1835
1840
IUS

CONGRATULATIONS! YOU'VE BEEN ELECTED PREMIER OF SETATS DETINU,
A S~ALL COMMUNIST ISLAND 30 BY 70 MILES LONG. YOUR JOB IS TO
DECIOE UPON THE COUNTRY'S BUDGET AND DISTRIBUTE MONEY TO YOUR
COUNTRY~EN FRO~ THE COMMUNAL TREASURY. THE MONEY S"'STEM IS RALLODS,
AND EACH PERSON NEEDS 100 RALLODS PER YEAR TO SURYIYE.
YOUR COUNTRY'S INCOME COMES FROM FARM PRODUCE AND TOURISTS
VISITING YOUR MAGNIFICIENT FORESTS, HUNTING, FISHING, ETC. HALF
YOUR LAND 15 FARM· LAND WHICH ALSO HAS AN EXCELLENT MINERAL
CONTENT AND MAY BE SOLD TO FOREIGN INDUSTRY (STRIP MINING)
WHO IMPORT AND SUPPORT THEIR OWN WORKERS. CROPS COST BETWEEN
19 AND 15 RALLODS PER SQ. MILE TO PLANT.
YOUR GOAL IS TO COMPLETE YOUR S YEAR TERM OF OFFICE. GOOD LUCK!

YOU NOW HAVE 6025~ RALLODS I N THE TREASURY.
502" COUNTRYMEN, AND 2000 SQ. MILES OF LAND.
THIS YEAR INDUSTRY WILL BUY LAND FOR 104 RALLODS PER SQ.
LAND CURRENTLY COSTS 10 RALLODS PER S~. MILE TO PLANT.

HOW
HOW
HOW
HOW

MANY
MANY
MANY
MANY

MILE.

SQ. MILES DO YOU WISH TO SELL TO INDUSTRY? l00
RALLODS DO YOU WISH TO DISTRIBUTE TO YOUR COUNTRYMEN? 50200
SQ. MILES DO YOU WISH TO PLANT? 700
.
RALLODS DO YOU WISH TO SPEND ON POLLUTION CONTROL? 5e0e

314 WORKERS CAME TO THE COUNTRY AND 194 COUNTRYMEN CAME. TO THE ISLAND.
OF 700 SQ. MILES PLANTED, YOU HARYESTED H8 S~. 'MILES OF CROPS.
<DUE TO AIR AND WATER POLLUTION FROM FOREIGN INDUSTRY.)
MAKING ~S096 RALLODS.
YOU MADE 65e~ RALLODS FROM TOURIST TRADE.

YOU NOW HAVE 53936 RALLODS I N THE TREASUR ....
696 COUNTRY~EN, 314 FORE I GN WORKERS, AND ~ 700 s/;!. MILES OF LAND.
THIS YEAR INDUSTRY WILL BUY LAND FOR ~03 RALLODs PER S/;!. MILE.
LAND CURRENTLY COSTS 11 RALLODS PER SIi!. MILE TO PLANT.

HOW MANY SQ. MILES DO YOU WISH TO SELL TO INDUSTRY? 300
HOW MANY RALLODS DO YOU WISH TO DISTRIBUTE TO YOUR COUNTRYMEN? 69680
HOW MANY SQ. MILES DO YOU WISH TO PLANT? 700
SORRY, BUT YOU' YE ONLY 480 SQ. MILES OF FARM LAND
HOW MANY S~ MILES DO YOU WISH TO PLANT? 400
HOW MANY RALLODS DO YOU WISH TO SPEND ON POLLUTION CONTROL? 5000

285 WORKERS CAME- TO THE COUNTRY AND 18S COUNTR ... MEN CAME TO THE ISLAND.
OF 400 SQ. ~ILES PLANTED, YOU HARYESTED 0 SQ. MILES OF C.ROPS.
(DUE TO INCREASED AIR AND WATER POLLUTION FROM FOREIGN INDUSTRY.
MAKING 0 RALLODS.
YOU MADE 6425 RALLODS FROM TOURIST TRADE.
DECREASE BECAUSE A I R POLLUT I ON IS K I LLI NG GAME BIRD POPULATI ON.

YOU NOW HAVE ~2261 RALLODS I N THE TREASURY.
884 COUNTRYMEN, 599 FORE I GN WORKERS, AND 1400 SQ. MILES OF LAND.
THIS YEAR INDUSTRY WILL BUY LAND FOR 97 RALLODS PER SQ. MILE.
LAND CURRENTLY COSTS 12 RALLODS PER SQ. MILE TO PLANT.

HOW MANY SQ. MILES DO YOU WISH TO SELL TO INDUSTRY? e
HOW MANY RALLODS DO YOU WISH TO DISTRIBUTE TO YOUR COUNTR ... MEN? S8400
THINK AGAIN YOU'VE ONLY ~2261 RALLODS IN THE TREASURY
HOW MANY RALLODS DO YOU WISH TO DISTRIBUTE TO YOUR COUNTRYMEN? 12000
HOW MANY S~ MILES DO YOU WISH TO PLANT? 400
THINK AGAIN, YOU'VE ONLY 26~ RALLODS LEFT IN THE TREASURY
HOW MANY SQ. MILES DO YOU WISH TO PLANT? 20
HOW MANY RALLODS DO YOU WISH TO SPEND ON POLLUTION CONTROL? 500
THINK AGAIN, YOU'VE ONLY 21 RALLODS REMAINING
HOW MANY RALLODS DO YOU WISH TO SPEND ON pdLLlITION CONTROL? 21

764 COUNTRYMEN DIED OF STARVATION
410 COUNTRYMEN DIED OF CARBON-MONOX1DE AND DUST INHALATION
YOU WERE FORCED TO SPEND 10566 RALLODS ON FUNERAL EXPENSES.
INSUFFICIENT RESERVES TO COYER COST -LAND WAS SOLD
178 COUNTRYMEN LEFT THE ISLAND.
.
OF 20 SQ. MILES PLANTED, YOU HARYESTED 0 SQ. MILES OF CROPS.
MAKING 0 RALLODS.
YOU MADE 16841 RALLODS FROM TOUR I ST TRADE.
DECREASE BECAUSE A I R POLLUT I ON IS K I LLI NG GAME e I RD POPUL.AT ION.

140

1174 COUNTYRMEN DIED IN ONE YEAR!!!!!
DUE TO THIS EXTREME MISMANAGEMENT YOU HAVE NOT ONLY
BEEN IMPEACHED AND THROWN OUT OF OFFICE BUT YOU
HAYE ALSO BEEN DECLARED NATIONAL FIN~

LETTER

LETTER GUESSING GAME

Description
LETTER is similar to the game GUESS in which you guess a number
chosen by the computer; in this program, the computer picks a
random letter of the alphabet and you must guess which one it
is using the clues provided as you go along.
It should not
take you more than five guesses to get the mystery letter.
computer Limitations
This program was adapted for DIGITAL EduSystem 15/30/35 and
uses the automatic character string to ASCII conversion feature.
Other systems will require a conversion function as Statement
435.
Program Author
Program modified and adapted from the original written by:
Bob Albrecht
People's Computer Company
Menlo Park, CA 94025

I:
i

PROGRAM LISTING

SAMPLE RUN

LETTER

EDUSYSTEM 39

99 RANDOMIZE
190 PRINT "LETTER GUESSING GAME'\PRINT
210 PRINT" I'LL THINK OF A LETTER OF THE ALPHABET, A TO Z. '
220 PRINT "TRY TO GUES'S MY LETTER AND I'LL GIYE YOU CLUES'
230 PRINT 'AS TO HOW CLOSE YOU'RE GETTING TO MY LETTER. "
318 L=65+INT(RND(0)*26)
320 G=0
349 PRINT\PRINT "OK, I HAVE A LETTER.
START GUES·SING. '
410 PRINT\PRINT 'WHAT [S YOUR GUESS?"
425 G=G+1
430 [NPUT $A\PR[NT
440 IF A=L THEN 500
450 IF A)L THEN 480
468· PR[NT "TOO LOW. TRY A H[GHER LETTER. '\GOTO 410
480 PR[NT "TOO H[GH. TRY A LOWER LETTER. '\GOTO 410
500 PR[NT\PR[NT 'YOU GOT [T [N'G'GUESSES!!"
504 [F G<=5 THEN 50S
506 PR[NT "BUT IT SHOULDN'T TAKE MORE THAN 5 GUESSES! -\GOTO 515
598 PRINT "GOOD JOB
!!!!.
510 FOR N=1 TO 15\PRINT CHR$(7), \NEXT N
515 PR[NT
520 PR[NT 'LET'S PLAY AGA[N ..... '
530 GOTO 310
999 END

EDUSYSTEM 30

LETTER GUESS[NG GAME
['LL TH[NK OF A LETTER OF THE ALPHABET, A TO ~
TRY TO GUE'SS MY LETTER AND [' LL G[YE YOU CLUES
AS TO HOW CLOSE YOU'RE GETT[NG TO MY LETTE~
OK,

[

HAVE

Ii LETTER.

WHAT [S YOUR GUESS?"
TOO LOW. TRY A H[GHER

START .GUESS[NG.

LETTE~

WHAT [S YOUR GUESS?S
TOO H[GH. TRY A LOWER LETTE~
WHAT [S YOUR GUESS?P
YOU GOT [T [N 3 GUESSES!!

GOOD JOB

I I I I

LET'S PLAY AGA[N.
OK,

[

HAVE A LETTER.

WHAT [5 YOUR GUESS?M
TOO H[G~ TRY A LOWER

START GUESS[NG.

LETTE~

WHAT [S YOUR GUESS?F
TOO H [GH. TRY A LOWER LETTER.
WHAT [5 YOUR GUESS?C
YOU GOT [T IN 3 GUESSES!!

GOOD JOB
LET'S PLAY
OK,

[

III I

AGA[~ ...

HAYE A LETTER.

START GUESS I NO.

WHAT [S YOUR GUESS?"
TOO' H[GH. TRY A LOWER LETTER.
WHAT IS YOUR GUESS?F
TOO, HIGH. TRY A LOWER LETTER.
WHAT I S YOUR GUESS?C
TOO HIG~ TRY A LOWER

LETTE~

WHAT IS. YOUR GUESS?B
YOU GOT IT IN 4 GUESSES!!

GOOD JOB

II I I

LET"S PLAY AGAIN .....
OK,

HAVE A LETTER.

WHAT IS YOUR GUESS?

142

START GUESSING.'

it '
i.

LIFE

JOHN CONWAY'S GAME OF LIFE

Description
The Game of Life was originally described in Scientific American,
October 1970, in an article by Martin Gardner. The game itself
was originated by John Conway of Gonvi11e and Caius College,
University of Cambridge, England.
In the Imanua1" game, organisms exist in the form of counters
(chips or checkers) on a large checkerboard and die or reproduce
according to some simple genetic rules. Conway's criteria for
choosing his genetic laws were carefully delineated as follows:

1.
2.
3.

There should be no initial pattern for which there is
a simple proof that the population can grow without limit.
There should be initial patterns that apparently do
grow without limit.
.
There should be simple initial patterns that grow and
change for a considerable period of time before coming
to an end in three possible ways: fading away completely
(from overcrowding or from becoming too sparse), settling
into a stable configuration that remains unchanged
thereafter, or entering an oscillating phase in which
they repeat an endless cycle of two or more periods.

In brief, the rules should be such as to make the behavior of
the population unpredictable. Conway's genetic laws are delightfully simple. First note that each cell of the checkerboard (assumed to bean infinite p1ahe) has eight neighboring
cells, four adjacent orthogonally, four adjacent diagonally.
The rules are:
.
1.
2.
3.

Survivals. Every counter with two or three neighboring
counters survives for the next generation.
Deaths. Each counter with four or more neighbors dies
(is removed) from overpopulation. Every counter with
one neighbor or none dies from isolation.
Births. Each empty cell adjacent to exactly three
neighbors--no more, no fewer--is a birth cell. A
counter· is placed on it at the next move~

It is important to understand that all births and deaths occur
simultaneously. Together they constitute a single generation or,
as we shall call it, a "move u in the complete II life history II
o f the initial configuration.

143

You will find the population constantly undergoing unusual,
sometimes beautiful and always unex;pected change.
In a few
cases the society eventually dies out (all counters vanishing),
although this may not happen until after a great many generations.
Most starting patterns either reach stable figures--Conway calls
them "still lifes"--that cannot change or patterns that oscillate
forever.
Patterns with no initial symmetry tend to become
symmetrical. Once this happens the symmetry cannot be lost,
although it may increase in richness.
Conway used a DIGITAL PDP-7 with a graphic display to observe
long-lived populations. The program here is programmed for a
RSTS-II system. You simply input your initial pattern and terminate your input with a Control/Z. The computer then plots
successive generations of your population on a 24 (vertical)
by 70 (horizontal) grid. Sit back and watch it!
Program Author
Clark Baker
Project DELTA
Delaware School Auxilliary Association
Newport, Delaware

PROGRAM LISTING
I REM ~IFE CLAR1< BAKER 3172 C.O.G.
2 PRINT CHRle3U)JCHRSl2UlJCHRl!lIXlJ .ENTER VOUR pATnRN,.
3 XU,VU-II XU-a4" VU-7U
II DIM AXC24X, 711) ,U(U.)
21 OPEN 'K8,' AS FILE I
38 ON ERROR GO TO 81
41 eX-I
SI INPUT LINE U,aSCCllIBa(CX)_LEFT(SICCX),LENCU(CI»oZX)
51 CI.Cxol
70 GO TO 51
ae Lx-n
ge FOR XI-I TO CX-I
III ,IF LEN(8S(XX».LX THEN LX-LENCSS(XX»
III NEXT XX
121 XIX'III.Cl/2X
131 vll-3JI-LIIU
141 FOR XI-I TO CX
151 FOR VX'I TO LENCBSCXX»
16S IF MID(sICXII,n,I)". P'1MEN AX(XU.U,VlhVX)-\lPX-Phl
171 NEXT VX
188 NEXT X'X
281 PRINT CHRI(aUI ,CHRS(3aX),
211 pRINT "GENEIUTlONI"GX,·PQPULATtONI",PXlCMRSeJU)IIIF 191 tMEN PRINT ,"INVALIoI-'
215 X3X-UXIYJx-7IXU4X, HX-UPI-SX
22S GX-GhU
2ZS PRINT CMRSeI3x),CHR'CIIX),eHR.C3IX), FOR XX-I To XIX-I
231 FOR XX-XIX TO X2X
241 PRINT
251 FOR VX,VII TO Y2X
253 IF AI(XX,VII-2X THEN ucxx,vn-UIGO TO 2,e
256 IF AX(XX,YX)'lX TH£N lX(XX,-VX)'IIGO TO 261
261 IF AI(XXtVXle>1 TMEN 270
261 PRINT UII(VX,..·.·,
25a IF XXeX3x TMEN XlI'XX
264 IF XX.X4X THEN X4X'XI
266 IF YXeVlX TMEN V3X-yX
268 IF YX.Y4X THEN V4X-V,1
271 NEXT VI
281 pRINt CHRI,,0XlI
U0 NEXT xx
295 PRINT CHRS(!0X) FOR XX_X21.1 TO 24X
2n PRINT CHRII29S"
299 XI XaX,S, X2X'X", VI X_Y 3SIV2X-V.X
301 IF XIxe3x THEN XIX-lXIIiX'.IX
303 IF xU.UX THEN X2X-22U I9I"U
305 IF y\XeJX THEN yU"3X1 UI'-U
381 IF V2X.68X THEN V2X.eUII9X"U
lag px_ex _
500 FOR XX-XU-I TO X2X+1
SI0 FOR YI,VIX-I TO Y2X+1
Ul Claex
531 FOR IX-XX-,X TO XX.IX
S41 FOR J •• VX_\l TO VX'IX
551 IF AI(U,JX)'U OR AXttx,JX)'U THEN CX-CX.IX
561 NEXT JX
S71 NEXT Ix
5SS IFAX(xx,vx)an THEN 610
590 IF Cxe3. oR CX>4, THEN AX(XX,yx),n E~9E PI-Phi
ee0 GO TO 620
810 IF CX'3X TH!N AXCXX,VXI'lu,xap.-1
628 NEXT VI
631 NtXT xx
6lS XIX-XI l-I,VI UVU-II X2X_nX+I,Y2Xaynol
641 GO TO 210
650 EN~

OENERATI ON: 2

POPULATII;IN: 7

.
. .........

GENERATI ON: 20

POPULATI ON : J:2

. ......
........ .. .. ..
. ...." ****
. ... ........
......

SAMPLE RUN
ENTER YOUR PATTERN:

....

'GENERATION: 21

POPULATI ON: 27

GENERATION: 0

POPULATI ON: :5

.
.. ..... .. .
.......... .. .
.... .... .
. . ....

.........
GENERATI ON: 22

GENERATION: 1

POPULflTI ON: 17

POPULAT ION: G

......
.....

145

.... ....
....
...... ......
*****
. ........ ....".
.. .
•• **
....

LIFE-2

2-PERSON GAME OF LIFE

Description
LIFE-2 is based on Conway1s game of Life. You must be familiar
with the rules of LIFE before attempting to play LIFE-2.
There are two players; the game is played on a SxS board and each
player has a symbol to represent his own pieces of Ilife l •
Live
cells belonging to player 1 are represented by 1*1 and live cells
belonging to player 2 are represented by the symbol 1#1.
The # and * are regarded as the same except when deciding whether
to generate a live cell. An empty cell having two 1# 1 and one
1*1 for neighbors will generate a 1#1, i.e. the live cell generated
belongs to the player who has the majority of the 3 live cells
surrounding the empty cell where life is to be generated, e.g.

1
2

*
#

A new cell will be generated at (3,3) which will be a 1#1 since
there are two 1#1 and one 1*1 surrounding. The board will then
become:
1

1
2
3

146

On the first move each player positions 3 pieces of life on the
board by typing in the co-ordinates of the pieces.
(In the event
of the same cell being chosen by both players that cell is left
empty. )
The board is then adjusted to the next generation .and printed out.
On each subsequent turn each player places one piece on the board,
the object being to annihilate his opponent's pieces. The board
is adjusted for the next generation and printed out after both
players have entered their new piece.
The game continues until one player has no more live pieces. The
computer will then print out the board and declare the winner.
Program Author
The idea for this game, the game itself, and the above write-up
were written by:
Brian Wyvill
Bradford University
Bradford, Yorkshire, England

I.'

PROGRAM LISTING

SAMPLE RUN

I DIMNI (6,6),KI <lS),AI (16).X(2),Y(2)
3 nATA 3 .. 18S"183.. 12fil1" 138" Uti .. 112 .. 111. 12
<I DATA 21,30, leu, 1131, 1111, 18al, I lilia, 1882, 1812
Ie FORM~ITOIS.READKI (M>ONEXTM
13 DATA-I,e" 1" ........ 1~0.; 1,-1,-1" 1.. ·1"-1,1,,1,, 1
I" FORO I-I TOI6.READAI (01 >oNElITOI
28 GOTOslle
51 FORJ-IT05
51 FORK-ITO!
55· IFNIIJ,K)'99TKE:NGOSUB288
fie NEXTK
65 NEXTJ
98 U:TK_II,LETMI! ••• LETMil-1
99 FORJ-IIT06.PRINT
1811 FORK=n06
11111 IFJ"eTHENIFJ<.6TMENI1I5
lee IFK*6THENPRINTIIJ .GOTO 125
183 PRINTK' .GOTOI 21it
le5 IFK•• ITHENIFK<'6THENlle
106 IFJ*6THENPIlINT8.GOTOI26
117 PRINTJ,.GOTOI28
II II GO SU8311
120 NEXTK
125 NEXTJ
126 RETURN
2lite LETl!Iotl.IFNIIJ,K).999THENLE:TBooI8
2211 FOROI=ITOI5STEP2
2311 LETIII (J+AI (01 ),K..AI (0 1+1 »=NI (J+AI (01 ),K+AI (01+1»)+8
231 NEXTOI
239 RETURN
3ee IFNI(J,K).3THEN399
31S FOROI*ITOI8
310 IFNI (J,K)OKI(OI )THEN351
315 NEXTOI
3211 GOT0399
358 IFO 1'9THEN361
3S1 LE1'Ml (J,K)_." •• LETMS_M2+11 PRINT" * ul
355 RETURN
360 LETNI (J,K)=I.II,LETMa-M3+I.PIlINT"
365 RETURN
399 LETNI (J,K).aIPRINT"
"I.RETURN
5011 PIlINTTA8( I 151' "u.s LIFt GAM!"
5115 LETM2-8.LETMil-II
518 FORJ-IT05
511 FORK=IT05
515 LETNI (J,K)-II
516 NEXTK
51? NEXTJ
~19 FO RB= I TOB. LETPI=3I1FB-eTII~LETPI-3B
528 PRINT"PLAVER"'S,"3 LIVE I>IECU"
535 FORKI-IT03.GOSUS?fllll
54111 LETNI (X(Il),Y(S) I.PI.NEXTKI
5112 NEXTB
559 GOSUS911
568 PRINT.GOSUBSe
5711 IFMe=8TlltNIFM3.B'J'HEN5'II
571 1P'M3••THIilNLETS-I 'GOT0575'
572 IFM2-8THENLETBooa.GOT0575
573 GOT058e

u.s LIFE GAME
FLAYER I 3 LIVE PIECES
X'Y

, ",

514 PRINT.J;tRINT"A J)RAWh,RUN

575 PRINT I PR·INT."PLAYER", S, "IS , THE WINNER"IRUN
588 FORS- I TOe, PIUNT. PRINT"PLAYER'" s,.GOSUS1118
581 IFB099TII£N5611
582 NEXTS
586 LETNI (XCI ),Ye I n-III.LETNI (X(el,Y(e) )_·i818
596 GO TO 5611.:
.
788 PRINT"X,Y".PRINT"XXXX"'j)HRS( 1.3)) ........ , QHIl.( 1311 INPUTYCB),X(B)
785 IFX(B).-STtiENIFXCln>IJTHEN7118
7116 00T0758
70a IFY(S)conHENIFY(S»fIITHEN715
7111 GOT07511
715 IFNI (X(S)·,V(B»c>fIITHEN1S8
728 IFBol THENIlETUIIN
7li5 IFX( I )=X(2ITllENiF'¥( II_Y(2)TIIEN7"8
738 RETURN
,,,. PIlINT"SAME COORD. ,SET TO ,e"
741 LETNl (X(S)+I .. V(B)'+1 ).'rLETS-99.ftETUfttI'

........
....
........
X,y

Xi¥

I't.AYEIl 2 3 LIVI;: PIECES
X,Y
X"Y~

....
XiY

8
I .'
2
3
II

*
*
*

5
8
II
I
2
3

I
2
3
4
5

e
I
2
3

* *
*

·5
0

I
2
3
4
5

....
....

e
I 2 a II
I't.AYER I X,y
PLAYER 2 X,Y

2 3
I
2
3
4
5
2
4
II I
PLAYER I X'Y
II

* * *
* * ,

....
....

•

PLAYER· e X,Y

0
I
2
3
II

, 2 *3 " 5 I

..._.

*
,
"'

#
5
1
I 2 3 <I
)'LAYER I X,Y

2
3

"5II

I't.AYER 2 X,V

8
I
2

0
I
2
3

, • "5

4
5

....

I 2 3 II
I't.AYER I X,Y
II

...

•

PLAYER 2 X,y

750 PIlINT"ILLEGAL COORDS. IlETYPE".OPTO.,lIfIJ
911111 IilND

0
1
2

" 5 28I

"5 I ,*2 3 4 **5 548
" I X,Y
FLAYEIl

.......

FLAYER 2 X,Y
SAM! COORD. sn TO I .
1
I
2
3

* * *

I·

" 5 2I

5
5
II
I e 3 II 5
PLAYER I IS THE WINNER

141

•

SAMPLE RUN
This sample run shows the method of play.
lIormalJ:T the CO-Ordinate. typed in Will b.
over the other characters, 80 that tb~ opposing

PLAVER 2 X.V
15.3\3\2

player C8l'l not see where the pieces ~ placed.

RUN

III

•
*
•

I
2
3

,•

I
2
3
II

I
II
3

• •

" 5 B2I

"B5 I

3
PLAYER I X.V
13 .. 3

3
#

5
III

PLAVER e X.. v
15,3

n..

,b_

1. pmted :1J1 Us 1",-t1el .tate.

"
5

e I 2 3
PLAVER I X.y
'13,2,

I
,, • * , 23
, "5

5
III I
II 3
PLAVER I XIV
11,,2

PLAVER 2 X .. V
13.1

After the first geDera~on.
2

III
I

3
#

•

I
2 3 II
PLAVER I X.V
11" I

I.'he .o-ord1natee typed in are
out of range.

I
3

B
II

, ,

"
5
B

PLAVER 2 X.Y
12,2

e
I
2

I
2
3

•* • , ,# ..3

I
2

•
3

ILLEGAL COORDS. RETYPE

PLAYER 2 X"Y
15 .. 6·
ILLEGAl. COOfiDS. RETVPE
X.V
15,3

"5
5

x..
,,,,3

I
2 3
PLAVER I X.V

14,,4

• 2•I

ill

II
S
B

?5",4

X.v
15,,3

8
I

U.B LII'E GAIlE
PLAVER I 3 LIVE PIECES
X.V
?III
X.V
., 1#2
X.V
?I,3
PLAYER 2 3 LIVE PIECES
X.V
15,,5
X.V

III

,,3 .. 5 I
2
, , ,,
3
••

II
I 2 3
PLAVER I X.Y
'Pl .. 5

PLAYER 2 X.V
12,"4

, "
" 5
5
I!J

PLAYER 2 X.V
2

I
2
3

I
2

• *# • •, ,# 3

5
I
B
2
3
PLAYER I X.Y

11 .. 5

• ••

I
2
3

"
I
2
3

p~"e~ us pl~1I<I OIl the

b_.

tb$ . - . cOo-ordinates. 110 li'V8

e
3

••

"•

..• , e
I

5
5
II I
2
5 8
PLAYI!:R 1 X .. V
14 .. 4
ILLEGAL COORDS. RETYPI

...

I
2

"5
5 II

,3 ", 5 I
, 23

#
#

Both ple;y.... llave tmtered

<II

5
5
II I
2 3
5 II
PLAY!!:R e IS TK!!: WINNP

SAM!!: COO RD. SET TO 8
3

PLAY!!:R 2 X,Y
11 .. 3
SAM!!: COORD. SET TO II

I.'he co-ordinates typed :1J1
are of' a ~reQt l,ive elaumt.

PLAV!!:R 2 x. Y

, ,"

., " 3

?3.. ~

5
B
I
2 3
PLAYER I X.V

,* , 3
"5
I
2 3
5 II

PLAYf;R I X. V,
13 .. 5

••

" •

I
2

• ,*

"5 *
B

PLAYER 2 X,V
?I,3
ILL!!:GAL COORDS. RETYPE
x.Y
?I .. 2

,1 .. 4

x.y

14,3

149

I'
I

LITQZ

CHILDREN'S LITERATURE QUIZ

Description
This is a simple CAl-type program which presents" four multiplechoice questions from children's literature. Running the program
is self-explanatory.
Source
Pamela McGinl.ey
Harcourt-Brace-Jovanavich
New York, NY
LIT. QZ

EDUSYSTEM 30

5 R=0
10 PRINT "TEST YOUR KNOWLEDGE OF CHILDREN'S LITERATURE. "
12 PRINT\PRINT "THIS 15 A MULTIPLE-CHOICE QUI~ ,
13 PRINT "TYPE A 1. 2. 3. OR 4 AFTER THE QUESTION MARK. '
15 PRINT\PRINT "GOOD LUCK! !'\PRINT\PRINT
49 PRINT "IN 'PINOCCHIO'. WHAT WAS THE NAME OF THE CAT?'
42 PRINT "lHIGGER. 2)CICERO. l)FIGARO. 4)GUIPETTO';
43 INPUT A\IF A=3 THEN 46
44 PRINT "SORRV, .. FIGARO WAS' HIS NAME. "\GOTO 50
46 PRINT "VERV'GOODI HERE'S ANOTHER.'
47 R=R~l
50 PRINT\PRINT
51 PRINT"FROM WHOSE GARDEN DID BUGS BUNNY STEAL THE CARROTS?'
52 PRINT 'l)MR. NIXON'S. 21ELMER FUDD'S. ]ICLEM·JUDD'S. 4)STROMBOil'S';
53 INPUT A\IF A=2 THEN 56
54 PRIN' "TOO BA~ .. IT WAS ELMER FUDD'S GARDE~ '\GOTO 60
56 PRINT "PRETTY GOOD!'
57 R=RH
60 PRINT\PRINT
61 PRINT "IN THE WIZARD OF ot, DOROTHY'S DOG WAS NAMED'
r
62 PRINT "lICICERO. 2HRIXIE. l)KING, 4110TO';
6'3 INPUT A\IF A,,4 THEN 66
.
64 PRINT "BACK TO THE BOOKS ... TOTO WAS HIS NAME. '\GOTO 70
66 PRINT "YEA! YOU'RE A. REAL LITERATURE GIANT!'
67 R=RH
70 PR!NT\PRINT
71 PRINT "WHO WAS THE FAIR MAIDEN WHO ATE THE POISON APPLE?'
72 PRINT "l)SLEEPING BEflUTY, 2)C·INDERELLA. ])SNOW WHITE. 4)WENDY';
73 INPUT A\IF A=3 THEN 76
74 PRINT 'OH, COME ON NOW ... IT WAS SNOW WHITE. '\GOTO 80
76 PRINT "GOOD MEMORY!'
77 R=R~l
sa PRINT\PRINT
85 IF R=4 THEN 100
99 IF R(2 THEN 200
92 PRINT 'NOT BAD. BUT YOU MIGHT SPEND A LITTLE 1'I0RE TIME'
94 PRINT "READING ~HE NURSERY GREATS .•
LIT Q2 EDUSYSTEM 30
96 STOP
190 PRINT "WOIol.! THAT'S SUPER! YOU REALLY KNOW YOUR NURSERY'
TEST YOUR KNOWLEDGE OF CHILDREN'S LITERATUR&
195 PRINT "STORIES.
'\PRINT
119 PRINT 'YOUR NEXT QUlZ WILL 'BE ON 2ND CENTURY CHINESE'
THtS IS A MULTIPLE-CHOICE QUIZ.
129 PRINT "LITERATURE (HA, HA • .HA)'
TYPE A 1, 2, ], OR 4 AFTER THE QUESTION MAR~
130 STOP
THAT WAS DEFINITELY NOT TOO 5W.lFT. BACK TO"
200 PRINT 'UGH.
GOOD LUCK!!
20S PRINT "NURSERY SCHOOL FOR YOU, MY FRIEND.
999 END
IN 'PINOCCHIO', WHAT WAS THE NAME OF THE CAT.?
READY
lITIGGER. 2)CICERO. ])FIGARO. 4)GUIPETTOn
~ERY GOOD!
HERE'S ANOTHER.
FRO" WHOSE GARDEN DID BUGS BUNNY STEAL THE CARROTS?
l)"R. NIXON'S. 2)ELMER FUDD'S, ])CLEI'I JUDD'S. 4)5TROMBOLI'S?2
PRETTY GOOD!
. IN THE WIZARD OF OZ, DOROTHY'S DO~ WAS NAMED
1)CiCERO, 2HRIXIE. l)KING, 4>10TO?4
YEA~ YOU'RE A REAL LITERATURE GIANT!
•.
WfiO WAS THE FAIR MAIDEN WHOflTE THE POISON APPLE?
1)SLEEPING BEAUTY, 2)CINDERELLA. i)SNOW WHITE, 4)WENDyn
OH, COME ON NOW ... IT WAS SNOW WHItE.
NOT ·BAD, BUT YOU MIGHT SPEND· A--LITTLE MORE 'T11'1E
READING THl NURSERY GREATS.
READY

150

MATHDI

PICTORIAL ADDITION PRACTICE

Description
I

I
.1

The program presents pictorial drill on addition facts u~ing
printed dice with no reading involved. It is good for beginning
addition, since the answer can be derived from counting spots
on the dice as well as by memorizing math facts or awareness of
number concepts.
It is especially effective run on an alpha-·
numeric CRT terminal.
Program Author
Jim Gerrish
Bernice A. Ray School
Hanover, NH 03755

Illustration by Virginia Nigut,
Scott, Foresman and Co.

151

SAMPLE 'RUN

PROGRAM LISTING
MATHD

~ATHD

EDUSYSTEM 30

10 REM-MATHDICE*** (BASIC PROGRAM BEGINS AT ~INE 100) WAS PROGRAMMED
11 REM-BY JIM GERRISH, FOURTH GRADE TEACHER AT THE ~ERNICE fI, RAY
12 REM-SCHOOL, HANOVER, NEW HAMPSHIRE,
LAST CHANGE: 3121172,
13 REM
14 REM-PROGRAM PERFORMS PICTORAL DRILL ON ADDITION ,FACTS USING
1~ REM-PRINTED DICE, NO READING INVOLVED,
GOOD FOR BEGINNING
16 REM-ADDITION, SINCE ANSWER CAN I1E DERRIYED FROM COUNTING SPOTS
17 REM-DICE AS wELL AS I1Y MEMORIZING MATH FACTS OR AWARENESS
18 REM-OF NUMI1ER CONCEPTS,
19 REM29 PRINT'THIS PROGRAM GENERATES SUCCESSIVE PICTURES OF TWO DICE,
21 PRINT"WHEN TWO DICE AND AN EQUAL SIGN FOLLOWED 8Y A QUESTION'
22 PRINT"MARK HAVE SEEN PRINTED, TYPE YOUR ANSWER AND THE RETURN KEY,
23 PRINT'TO CONCLUDE 'THE LESSON, TYPE CTRLIC AS YOUR ANSWER,'
24 PRINT
25 PRINT
108 RANDOMI~E
105 LET N=N+1
119 LET D=INT(RND(0)*6+1)
120 PRINT ", ----~ "
130 IF 0.1 THEN 200
140 IF 0=2 THEN 1S0
150 IF 0=3 THEN 180
169 PRINT "J ... * I"
179 GO TO 210
180 PRINT "I'"

380 PRINT"

510 PRINT "

I'
I
I

I
•

I
I

III

RIGHT!
THE DICE ROLL AGAIN"",

I.....
J
]
I

190 GOTO 210
290 PRINT "I
I"
219 IF 0-2 THEN 260
220 IF 0=4 THEN 260
230 IF D=6 THEN 270
I"
249 PRINT "I
258 GOTO 280
260 PRINT "I
I"
265 GOTO 280
270 PRINT "I • • I"
2Se IF 0=1 THEN 350
290 IF D=2 THEN 330
300 IF 0=3 THEN 330
310 PRINT "I • • I"
320 GOTO 360
JJ0 PRINT "I
• I"
340 GO TO 360
I"
350 PRINT "I
360 PRINT ", -----, "
370 PRINT
375 IF N=2 THEN 500
3S1 PRINT
400 LET A=D
410 GOTO 100
580 LET T=D+A

EDUSYSTE~

THIS PROGRAM GENERATES SUCCESSIVE PICTURES OF TWO ,DICE,
WHEN TWO DICE AND AN EQUAL SIGN FOL~OWED BY fI QUESTION
MARK HAYE I1EEN PRINTED, TYPE YOVR ANSWER AND THE RETURN KEY,
lO CONCLUDE THE LESSON, TYPE CTRL/e AS YOUR ANSWER,

l*,oll I

I •
I
I

* I
17

NO, COUNT THE SPOTS AND GIVE ANOTHER ANSWER,
= ?5

NO, THE ANSWER IS

THE DICE ROLL AGAI~
] ..... I
I
•
I

.... "

I •• I

= ~;

520 INPUT T1
530 IF 11=T THEN 590
540 PRINT "NO, COUNT THE SPOTS AND GIYE ANOTHER ANSWER. "
= ";
541 PRINT"
550 INPUT T2
560 IF T2=T THEN 590
570 PRINT "NO, THE ANSWER IS ", T
5S0 GOTO 690
590 PRINT "RIGHT!"
600 PRINT
601 PRINT "THE DICE ROL,~ AGAIN"." •
610 PRINT
615 LET N=0
620 GOTO 100
900 END

I ••
I
I

* I

I ...

RIGHT!
THE DICE RO~L AGAIN.
I'

READY

I
I

* I

= 73:
RIGHT!
lHi DICE ROLL AGAIN"
I
I

.* .. t
•

] *' . . I

I.
I
I
I
* I
I

RI~HT!

152

'" 77

MNOPLY

GAME OF MONOPOLY

Description
MNOPLY is a simulation of the most popular board game in the
world, Monopoly. It varies from the actual game only in that
two players are the maximum number that can play.
The dialog during the game presents complete rules and instructions. The inputs are designed so that when anything except the
required input is typed in, the entire segment will be ignored.
When questions are asked about property to be sold, the full
name is required--e.g., STATES AVENUE.
In the computer game, you always pay $50 to get out of jail
unless you have a "GET OUT OF JAIL FREE" card. No double rolls.
As in the board game, before you can improve your property
(build houses), you must own all of the pieces of that color
property--i.e., have a monopoly of a particular color group.
The program will automatically ignore attempts to build houses
if you don't have a color group monopoly. Here are the color
groups for your reference:
Purple:
BALTIC AVE
MEDITERRANEAN AVE
Light Blue:
ORIENTAL AVE
VERMONT AVE
CONNECTICUT AVE
Maroon:
ST. CHARLES PL
STATES AVE
VIRGINIA AVE
Orange:
ST. JAMES PL
TENNESSEE AVE
NEW YORK AVE

Red:
KENTUCKY AVE
INDIANA AVE
ILLINOIS AVE
Yellow:
ATLANTIC AVE
VENTNOR AVE
MARVIN GARDENS
Green:
PACIFIC AVE
NORTH CAROLINA AVE
PENNSYLVANIA AVE
Dark Blue:
PARK PL
BOARDWALK

Computer Limitations
MNOPLY was written for DIGITAL RSTS-ll or RSTS/E.
It requires
two virtual memory files which are built via the file-building
program.
Source
David Barker
Southeastern State College
Durant, OK 74701

153

PROGRAM LISTING
TH! ~O~~OWIN' PROGR.M U DUUNED TD BUl~D THE DUK 'I~U
NUDED TO P~AY MONOPQ~ y, TWO P I~U Mun I! 8Ul~ T, THI 'I~n
CONTlIN%N~ THE NAHU OF THE PROPERTY, TH! SO~D AND UNao~o
F~AG', THI PRIcn OF THE PROPUTV, .ND THEIR RINTS,
TH! neOND nLE CONTAINS THE CH'NC! AND TH! COMMUNITY
CHIST MUSAGES .ND THE INSTRUCTION MESSAGES FOR THE
P~AYERS,
THE DATA POR THUI Ft~U WIL~ BE READ FROM THE
PROGR.M WHEN IT II RUN, TM!n PILlS MUST 8E BUILT nFORE THE
9 I GAME CAN IE PLAYED
10 OPEN 'PRPRTV' AI Fl~E II DIM .1,UI41X)'U,~X(4" ,P(411) ,RI40X)
30 OPEN "MESAJ" AS FILE 31 DIM n,CIIU)"'X,ZlClUoeU,MSC2e).5U
40 FOR III TO 40
42 RUD Gsc%),~X(l),PCl"RCI)
44 NEXT I
sa FOR hi TO 20
sa RUD Macll
54 NEXT I
ee FOR 1 0 1 TO U
U RUD CI(1)
U NEXT I
70 FOR 101 TO U
72 RUD ZlC!)
,. NUT I
10B DATA 'MEDtTUR.NUN AVIINU,",I,U,2
10a OATA 'COMMUNITY CHEST',"',0
104 DATA 'BALTIC AVENUE',.,U,4
ua DATA "INCOME TAX",e,B,B
108 DATA 'REAOING R'ILROAO",I,ne,n
III DATA "DRIENT'L .VENUE"',10a,a
112 P.TA 'CHANCE '.,e,0,'
114 DATA 'VlRMONT AVENUE',',IIB,a
118 P'TA 'CONNECTICUT AVINUE",I,IU,a
118 D.TA ·VlSlTINij IN JAl~',a,a,0
120 DATA '8T.CHAA~U PL,CE',0r141,!'
122 DATA "E~ECTRIC COMP.NY',0r1U,J.
124 OAT. 'IUTU .ViNue',0,j40r1e
12a D.TA 'VIRGINIA .VENUE'.0. lee, 12
128 PATA "PENN8V~V'NU R4I~ROAO,,1.2B0.25
13B PATA 'n,JAMES P~'C!',0,IUrl4
132 DATA "COMMUNITY CHUTN,I,e,1
lU DATA "T£NNUIE! AVENUE",lrlBerl4
US DATA "NEW YORK AVENUE",0,UI,!6
138 DATA 'FREE PARKIN~.,.,1.0
140 DATA 'KENTUCKY AVENUe",1,2n,1S
142 DATA "CHANCE 1',0,a,0
144 DATA 'INPIANA AVENUe",1,2U, It
146 DATA 'I~LINOU AHNUI' ,1,240,za
148 DATA "B,& 0, RAI~ROAD,,0,201,25
151 DATA 'AT~'NTIC .VENue',0,ae0,2a
152 DATA 'VENTNOR AVENUE', I, ae" 22
184 DATA 'WATIR WORKS',.,IIII,U
151 OAT. 'MARVIN G.ROENS.,0,2U,U
lse DATA 'GO TO JAI~',0,1,0
168 DATA 'PACIFIC AVENUE",a,300,26
182 DATA 'NORTH CARD~INA AVENUE',0,301,2a
IU DATA "COMMUNITY CHUT",a,I,1
168 D.TA 'PENNSY~VANU AVENUE".0,321,28
188 DATA -SHORT ~INE.,0,200,25
171 DnA "CHANCE '",0,0,0
172 PATA "PARK P~ACE",0,350,J5
174 DATA "LUXURy TAX',0,1,0
176 DATA "BOARDW'LK',I,400,50
178 DATA "GO',0,I,0
200 DATA .............. THIS IS M4T~IO.'S MONOPOLY FOR TWO ............. .
202 DATA '(ACM ~LAYER MAS S1510'
204 OATA "WHEN YOU 8UY HOUS!S YOU H.VE TO PUT THE UME"
286 OAT. 'NUMBER ON EACH MEMBER OF A COLOR GROUP"
a08 D'TA "WHEN YOU BUY HOUSU INPUT THE NUMBER YOU WANT PER LOT"
21B D.TA 'TO ROLL DICE TYPE ROLL"
212 D.TA 'IT IS FOR SA~E FO_ ON~Y"
21~ DATA "IF YOU WISH TO BUY IT TYPE BUY'
21a DATA -YOU RO~~ED DOUBLI8 •• ROL~ .GAIN"
211 PATA 'YOU ROLLEO J SUI OF DOU8LU"GO TO JAIL"
220 DATA "If YOU WANT TO QUIT TYPE QUIT'
322 DATA 'YOU ALREADY OWN THIS PIECE Of PROPERTY'
224 DATA 'IF THERIL IS 'NY PROPERTY YOU WISH TO SEL~ AND"
22a OAT. 'YOUR OPPONENT WANTS TO BUY TYPE SE~~"
a28 DATA "IF yOU NEED A LIST OF PROPERTY TYPE ~IST'
230 DATA 'YOU CAN'T SE~L THIS •• YOU DON'T OWN IT"
al2 D.TA 'WH'T PROPERTY DO YOU WANT TO SEL~"
a:J4 DATA 'IF TH!U IS ANY MORE PROPERTY YOU WISH TO SE~~ TYPE YU'
2U O.TA 'XF YOU W.NT TO IMPROVE YOUR PROPERTY TYPE HOU8['
U8 DATA 'YOU DON'T HAVE ENOUGH MONEY FOR THAT MANY HOUSES"
250 DATA 'PAY POOR TAX OF Sle"
252 DATA "ADVANCE TOKEN TO I~LINOIS .VENUE'
254 D.TA 'GO SACK THREE SP.CU'
256 DUA ".PVANCE TO GO'
2118 OUA "BANK P'YS YOU DIVIDEND OF 550"
2U DATA 'TA~! • RIDE ON THE 'READING"
262 DATA "GO TO JAIL"
284 DATA "BUILDING .ND ~OAN MATURE8"C'OL~ECT '160'
266 DUA -AOV.NCE TO 80'RDWA~K"
268 DATA "DVANCE TOST ,CHARLES P~ACE'
180 DATA '.MAI FUND MATURU.'CO~LECT Hn282 DATA "LIP!! INSURANCE MUURU'.COLUCT IU.284 D.TA 'l~COMi TAX R£FUNO"COL~£CT 120'
2U DATA 'POCTOR'S FEE .. PAY 550"
288 PATA 'YOU INHERIT 1100'
ag0 DATA 'AOVANCE TO GO'
aV2 D.T. 'PAY HOSPITA~ 'lee'
294 DATA 'GO TO JAl~"
296 DATA 'PAV SCHOOL TA. OF 15'"
298 DATA 'UNK ERROR IN YOUR FAVOR .. CDLLECT S200'
3e0 C~08E 1,31
END
,
I
)
4
5
a
7
a

154

I I MONOPOLY GAME ay DAVID"~"ER,'OUTHI"T!RN tUTI CDL~U!,OUR.NT, OK
2' I ILIGHT PRoaRAM.MODIFICUIONSBY D.VID AHL, DIGITAL
l MCI). M(2) ,,!lUX I I CI), I C2,"0101/11 AI (25), sa 125." HXC48,
, OPEN -PR~RTY' A8.FILI II DIM *',Gt(4I1Ulas,LXI41),'HU),RC4U)
8 FOR. 1.11 TO lhLXCI),HXCOo',NEXT IIFOR %01 TO IIUCU.I'I;!XT I
9 DEF FNRIIHXClCZ».RCICZ)hIU)
U OPEN "H!SAJ" AS Fl~! 31 DIH n,CSCU).sn,ZlCl0l08n,HIC2I)ISU
15, MI(I)I&I&I& - .. RULU."" MII2)I& Hlll)1& MI(4),& H1(5)
38 INPUT"WHO 18 PL.YER U"'NICllI INPUT"WMO IS P~AVIR .. ",Ns(2)
100 PRINTI PRINT ' •• 'NICI)"S TURN ........... I
F.,
li2 I'UI GOSUB luel GOlUB 2000
115.IF PIDI THEN F".II IF FCJ THEN PRINT MIC911 GOTO 102
117 IF '13 THIN PRINT HICU), lC%).UI H(I)oH(I)-SIX
20e PRINTI PRINT - •• -NI(2)'IS TURN ••••••••••• I
"e
au ZIUI aOSUB 10011 GOlUB 2000
215 IF 0101 TIiEN F.'OIl IF .FcJ TMiN PRINT MIC9I1 GOTD 2U
a11 IF FI3 THEN PRINT MI(U)I HUIUI HCZ).MCZ)-ell
228 PRINT MI(lI)IIINPUT FSlIF ""Qun" THEN 301Be ELSE U0
un PRINT MI(6)IIINPUT FSI RANOOMIU, XIRNOII)I YIRND(0) IDICE ROLL
IU2 IF X"aAND X<o,I8 TH~N .0.1
10113 IF 1(0,16 ANO •• 1.32 TMEN 001
1004 'F X,, 31 .ND Xu, 48 THEN 013
un IF X>, 48 AND Xeo, 54 T~£N D'~
1106 IF ._,U AND X•• ,81 THIN Dol
1007 1~ •• ,'I .ND xeo I TKEN 016
101g IF Y".0 AND Yu,lI THlN 011\
IBU IF Ya,lI AND YCI,32 THEN 0112
1811 l ' n,ll AND Y",AS THEN OI,J
UI2 IF V_,48 AND Y",64 THiN DIH
IfIIIJ IF Y-,U AND YU,SI THIN DIOS
ISI~ IF Va,BI AND Yeol THEN 0106
1015 PRINT 'YOU ROLLED A"D'AND A'DIlIeZ).l<Z).COOPIl
1116 IF IeZ»4el THEN ICZ)'ICZ).40X1MCZ)'HCZ)02U,
10H RETURN
uaa PRINT"YOU ARE ON .,G'CI(Z)
IP~ACEMENT
2002 IF l1Z)02 OR I(Z)'17 DR ICZ)'33 THEN 4100 ICOM CHEST
2004 IF HZ).~ THEN MCZ 1 0 MCZ) -20n I RETURN I INC TAX
2006 IF I(Z)07 OR ICZ)022 OR ICZ).36 THEN 4400 ICH.NeE
2008 IF ICZ).10 OR IIZ).20 THEN RETURN IVISIT IN JAlL&'REE PARKING
2010 1.' ICZ)'U THEN M(Zl.MCZ)-5UI ICZ)1101 RETURN IJAI~
2011 IF I(Z)138 THEN M(Z).M(Z)_75l, RETURN I~UX TAX
2012 IF ICZ)040 T~EN MCZ).MtZ)o200U ICZ)'II RETURN IGO
2018 IF ~lCICZ»IZ THEN PRINT M.Cl2la GOTO 3100
2Blg IF CHlCl(z».e AND ~xCI(Z»-0 AND LXCICZ»CH) THEN UtS
U2I IF CHHlCz))-e AND ~lCl(Z".0 ANO LXCICZ»"Z) THEN 2ue
2022 PRINT MIC"'PClCZ))"DO~LAR8"
2024 PRINT M5(8)f,INPUT FSI IF FSo'SUY' THEN 3110
2B26MCZ),MCZ)-PCICZ))IPRINT 'YOU NOW HAVE"MCZ)"DO~LAU
2027 ~XCl(Z)'ZI&OTO JU0
2100 IF Z'I THEN MIZ),MCZ)-FNRI M(2)'M(2).FNR
2101 PRINT 'YOU O~E'FNR.DO~~ARSRENT.,RETURN
2102 IF ZI2 THEN M(Z),MCZ).FNRI MCI).MIIl.FNR
2U3 PRINT "YOU OWE'FNR'DO~L'RS RENT"IRETURN
2125 IF Z.\ THiN MIZ)'MIZ).HCIIZ»)aMC2)'MC2)oR(ICZ))
alU PRINT ·YOU OWE'RCIeZ»'DOL~ARS A!NT"IAfTURN
2127 l ' Z.2 THEN M(Z),MCZl-R(l(Zlll M(I).MCI)~R(I(Z»
2U8 PRINT 'YOU OWE'R(lIZ) )ODOLI..RS AIN·T"IRnURN
lila PRINT MS(l3)1 PRINT MICl4lllINPUT ,s, l ' ""SELL' THEN loaua ll5l
U05 PRINT MICU)lIINPUT HII IF HI.oHOUn" THEN 320t E~S! RETURN
315a PRINT MS(I5)"INPUT "I IF FS'"~IST' THIN ~OSUB 3170
lU2 PRINT MS(l7)1IlNPUT VSI INPUT "HOW MUCM DO YOU ~ANT FOR %T"V
3154 FOR 1 0 1 TO 39
3156 IF VS-GSO) THiN IF Ll(l),1 THEN PRINT MSCU)I RETURN
3158 IF VSlGSCI) THEN IF L¥CI)'1 THEN MCI)'MII)~V
IHC2I'MCU-VI LlO)UI QOTD 3165
3160 IF VS'GlO) THEN IF ~11l).Z THEN M(Z)"MI2).V
IMCIl.MO)-VI ~lCl)'" aOTO 3165
3U2 NEXT I
un PRINT Mse 18)' IINPUT FSI IP "'"YU' THEN 3152 E~8E RETURN
3170 C,o.el FOR III TO Jg
"'2 IP ~XCI)'I THEN C'C.II "CC)'GaO)
3174 IF I.¥CII.2 THEN 0'0011 BSCDloGSCI)
31'5 NEH I
3U6 PRINT N$(I)"S PROPERTY"I FOR 101 TO CI PAINT Alelll NIXT
3178 PRINT NS(2)"'S PROPERTY", FOR 101 TO D, PRINT SIll)' NEXT lIRUURN
3200 IF LX CI I oZ .ND ~x(3).z THEN "HOW MANY HOUSES AT S5I EACH 00 YOU WANT ON"
'PRINT GSCI)" 'GS(3)"INPUT UIGOSUB 3250
UBa l' ~X(a)'l AND ~X(8).Z .ND LXCf)oZ THEN
PRINT 'HOW M.NY HOUSIS AT 150 IACH DO YOU WANT ON"
IPRINT GS(8)' "G'(8)" "GI(9)IIINPUT ulaosus Jua
3204 IF ~XClI)'Z .ND ~X(13)'Z .ND U(l4)"Z THEN
PRINT 'HOW MANY HOUSES AT lin EACH DO YOOU WANT ON.
,PRINT GIIII)" "&1(13)' 'GSCI4)fIINPUT UIGDSUB 3214
3206 IF ~XCI8).Z .ND LXCI8)'Z ANO ~X(l9)oZ THEN
PRINT "HOW MANY HOUSES .T .UI EACH DO YOU WANT ON'
IPRINT GICl6)" "GSCl8)' "GSCI9)"INPUT UIG08Ue ne6
32e8 %F ~xcal).z AND LXCII3)"Z AND ~XIU)'Z THEN
PUNT 'HOW M.NY HOUSES AT Slee UCH DO YOU WANT ON"
'PRINT GSCU) '.G5(23)" 'GSC2~" IINPUT UIG08Ue 3ua
3all IF ~X(26)'Z .NO ~x~a7).z AND LX(29)1Z THIN
PRINT "HOW MANY HOUSES AT 1150 EACH DO YOU WANT ON"
'PRINT GS(25)' 'Gs(27)' 'GSCZt) II INPUT UIQOSUB 311&0
3212 IF ~XC3ll'Z AND ~X(32)'Z AND ~XC34"Z THEN
PRtNT "HOW MANY HOUSES AT SU0 EAC~ DO YOU W.NT ON'
IPRINT G.HO' 'GI(32)' 'GSC34HltNPUT UIGOSU8 32U
la14 IF ~1(~7)"Z 'NO Ll(39)oZ TH!N
PRINT '~ow MANY HOUSES AT 1200 UCH DO YOU W'NT. ON'
IPRtNT GI(37)' 'G'(39)IIINPUT UIGO,SUB 3214
3220 RETURN
,
'
3250 UCI)'UCI)oUI M(Z)OM(Z)·CU.UU)I IF M(I)c0 THEN PRINT MSl20l
1M CZ) 1M CZ). CU.I00X) IU (I )'U I I )-U ,~nURN
laSI MX(I),HX(3,IUCI)1 RETU~N
32e2 U(2)oUC2).UI MCZI'MIZ)-(UoUUlI I' M(HeI THEN PRtNT MS'(20)
IMIZI.McnoIU.ISIIX,. U(II)'U(a).ul RnURN
3253 HX(5),HXCB),HIC9)'U(2l1 RETURN
3254 U(3)'UC3)oUI MCZ)OMCU-(U'15n) I IF MCZ)ce THEN PRtNT MSI2B)
IMCZ)·MtZ)O(U.15UII UCJ)"UCl).UI RETURN
3255 MX(II),HXCI3),HlCI4)'U(3)a UTURN
3256 U(4)'U(4).UI MCZ).M(Z)-CU.300X)1 IF MCZle0 THEN PRINT MI(20)
IMCZ).MCZ).IU.300X" U(4)oU(4)_UI RETURN
3257 HXCI6),HXCI8"HXCU)'UC4)1 RlTURN
3258 U(5)'UC!).UI MCZ).MIU-CU.45U)1 IF M(I)cI THEN PRINT MSCU)
I MtZ).MCZ)0(U.45I1X)1 U(5)'UC5)-UI RETURN
315' HIC2I).HXCU),HXC24)oU(I,. RETURN

lal, UCIliuc').UI·HCZj.MCZ).CU.4SIIII I' HCZlcl THEN PRINT "ICIII
IMeZloMCZl.CU.4Sllll UCllouell.UI RITURN
3Ul HUIel ,HII171 ,HICU)'UII) I RETURN .
11.1 U(7)'ue7).UI HeZl.HeZ).IU ••••• )1 IF.MeZlcl THIN PRINT MIC.I,·
IHeZl.MIZI.CU •• III)1 ue71'UC').UI RITURN
3213 HU31),HUU) ,HI(34),UC7) I RETURN
32.4 UIB,oUI',.UI HCZ)oHIZl-CU •• ".)1 IF MIZ)cl THEN PRINT Hlcall
IHellIMIU.CU ••"')1 U(8)'U").UI RETURN
3a.s HI137"HI(30)'UII)1 RiTURN
4UI RANDOHIZII ~oRNDI') ICOMMUNITY CHEST
4112 IF Vo, AND ~CI,I THEN PRINT 'ltlll "IZ)oMe%HIII" RETURN
4, •• %'.1.-.1 AND ~.'.2 THEN PRINT ·ZI(2)1 MIZ)"MeZ)."'11 RETURN
41.6 I' 1.-.' AND ~cI.3 THEN PRINT Z1(3)1 MI%)oMI%) •• 111 RETURN
4UI IF 1.-,3 AND ~C •• 4 THIN PRINT Zl14) I MeZ)'MIZI~5IU RUURN
4111 I' L_.4 AND Lel.S THEN PRINT ZIII)I MI%).HI%).I •• II RETURN
4111 I'
AND I. •••• TH!NPRINT Uel)1 M.(%),HIZ) •• 8IXLlC1l1'1 RUURN
4U4 IF Li;'--lN"D Lei;, THf"c'IfINT-Uf,fj 14Ul.IITfl.UIiII AnDA~:
411' IF 1.-.7 AND I.el.' TIiIN "RlNT %11111 lIC-noHlu_seli XIZ)'"I RETURN
4118 IF 1._,8 AND I.co.g THEN PRINTZI"'" ·MIZ).Me·u.SIII ~£TURN
.U8 I' ~_.' A·ND ~"I THEN PRI"'T .%1('1811 MIZ).HIZI.UIII RETURN·
4.81 UNDOMU£t \.IAIIII)II) ICHANCI.
.
.
44.2 I' Ln8 AND Lel.1 THIN PAINT C_IIH HCZ)oMIU.".I.RUURN
«.4 I' I.~.I AND 1. ••• 2 THEN PRINT ~.ca,. UUIUI GD,UI nlll RETURN
4486 l' 1. •• 2 AND 1. ••• 3 THEN PIUNT··C.(3)i IIU'I(Z).31 GDtU821811 RETURN
. . . . I' ~_.3 AND I.CO.4 .THINPRINT CIC4I1 UU'-'I MI%).14(1).,l.'" RETURN
4.11 I' 1.-.4 AND Lea.5 THIN PRINT eSCS)! Me%)'MeZ) •• III.RETURN
4412 IF· 1._.8 AND Lco.6 THEN PRINT CICS)! XlZ).8
IHIZ)'Hc%).a8011 GOaUB a"'1 RETURN
4414 I' 1.-,6 AND 1..-,7 THiN PRINT C1(1)1 11%)'181 He%).MIZ).".1 R!fURN
4411 I' 1.•.• 7 AND I. ..... T.HEN PRINT" CII"~ MCUIHCZ.,.I"" RETURN
4411 I" ~ •• ' AND Leo., THEN PRINT Cletll"!"eZ)'S'1 GOlUB . . . . I RETURN
4411. I' \' •• ' AND L"I THEN PRINT CIClell HII-ill GOIueU.11 RETURN
3811. C,D"
.

L-.'

m:: ~~\m)!~ ;~!N C'c.llAlCc).lilm
J ••• 6 1'1.1(1)12 .T·HEN DIO.IIU·CD)IUClI
J •••• NEXT IIPRINTIPAINT

."'DAVE" 5 TURN •••••• ", •••

TO ~OLL· DICE .TYPE ROLL? ROLL
YOU ROLLED· A ~ A.ND A 4
VOU fIRE ON GO TO JAIL

**SFtN'tly" S· TURN~******.*~

TO ROLL D1CE T'lPEROLL? ROLL
YOU ROLLED A 6 A·Hi> A 1·
YOU ARE ON NEW ·YORK 'AYENUE
IT 15 FOR SALE FOR ONLY 200 DOLLARS
IF YOU WISH TO BUY IT TYPE BUY? BUY
YOU NOW HAYE 1200 DOLLARS
IF THERE IS ANY PROPERTY YOU WISH TO SELL AND
YOUR OPPONENT WANTS TO BUY TYPE SELL?
IF VOU WANT TO IMPROYE YOUR PROPERTY TYPE HOUSE?
IF .YOU WANT TO QU I T TYPE QU IT?

**DAVE"' S TURN**********
TO ROLL· DICE TYPE ROLL? ·ROLL
YOU ROLLED A 3 AND A 4
YOU ARE ON NEW YORK AVENUE
VOU OWE 16 DOLLARS RENT
**SANDy . . S . TURN"'**"'*"''''*''''''
TO ROLL DICE TYPE ROLL? ROLL
VOU ROLLED A 6 AND A 4 .
YOU ARE .ON MARYIN GARDENS
IT 15 FOR SALE FOR ONLY 2se DOLLARS
IF YOU WISH TO BUY IT TYPE BUY? BUY
YOU NOW HAVE 936 DOLLARS
rF THERE IS ANY PROPERTY YOU WISH TO SELL AND
YOUR OPPONENT WANTS TO BUY TYPE SELL?
IF YOU WANT TO rMPROVE' YOUR PROPERTY TYPE HOUSE?
IF YOU WANT TO QUIT TYPE QUIT?

**D'AVE'" S TURN**********
TO ROLL·DICE TYPE ROLL? ROLL
·YOU ROLLED A 4· .AND II 5
YOU ARE ON WATER WORKS
IT IS FOR SALE FOR ONLY 150 DOLLARS
IF YOU WISH TO BUY IT TYPE BUY?
IF THERE 15 ANY PROPERTY YOU WISH TO SELL AND
YOUR OPPONENT WANTS TO BUY TYPE SELL?
IF YOU WANT TO IMPROVE YOUR PROPERTY TYPE HOU~E?

SI •• ' PRINT NIII)" OWNED TilE FOI.LOWING PRIlPERTY'

.
"OR 101 TO CIPRXNT At(IIINIiXT I
J8I18 PRr"'T'AND MAD"IMIIII"DOI.LARS AT THE END D' THE UH!'
11811 PRINT NI (2)' OWNED THI FOLLDWI"'G P~D"RTY"
I'OR J'I TO D,PRINT 81(1) INUT I

3•• 12 PRINT "AND HADa'MIa)I'OOLLARS AT THI·END 0' THE GAME.

3een CLOn 1,31 END

*"'SANDY" S .TURN**"'*.*"'**"'*
TO ROLL DICE TYPE ROLL? ROLL
YOU ROLLED A 6 AND A :I.
VOU ARE ON CHANCE ?
ADVANCE TOKEN TO ILLINOIS AYENUE
YOU ARE ON ILLINOIS AVENUE
YOU OWE 20 DOLLARS RENT
IF YOU WANT TO QUIT TYPE QUIT?

**()AYE"S TURN","'",,,,,,,,,,,,,*,,,,,,

SAMPLE RUN

TO ROLL DICE T~PE ReLL? ROLL
YOU ROLLED A l AND A 6
YOU ARE ON PARK PLACE
IT IS FOR SALE FOR ONLY l50 DOLLARS
IF YOU WISH TO BUY IT TYPE BUY? BUY
YOU NOW HAVE 574 DOLLARS
I F THERE I S ANY PROPERTY YOU WISH TO SELL AND
YOUR OPPONENT WANTS TO BUY TYPE SELL?
IF YOU WANT TO IMPROVE YOUR PROPERTY T·YPE HOUSE?

RUN MONPLY

*************THIS IS MATLIDA~S MONOPOLY FOR TWO*************

**RlILES**
EACH PLAYER HAS $1598
WHEN VOU BUY HOUSES YOU HAVE TO PUT THE SAME
NUMBER ON EACH MEMBER OF A COLOR GROUP
WHEN YOU BUY HOUSES INPUT THE NUMBER YOU WANT PER LOT
WHO IS PLAYER i1? DAYE
WHO IS PLAYER .2? SANDY

*"'SANDY .. S TURN"'''''''*'''''''''''''''*

TO ROLL DICE TYPE ROLL? ROLL
YOU ROLLED A 6 AND A 2
YOU ARE ON NORTH CAROLINA AVENUE
IT IS FOR SALE FOR ONLY 300 DOLLARS
IF YOU WISH TO BUV IT TYPE BUY? BUY
YOU NOW HAVE 636 DOLLARS
IF THERE IS ANY PROPERTY YOU WISH TO SELL AND
~'OUR OPPONENT WANTS TO BUY TYPE SELL?
I F ~'OU WANT TO I MPROVE YOUR PROPERTY TYPE HOUSE?
IF YOU WANT TO QUIT TYPE QUIT?

**DA't'E-' S TURN**********
TO ROLL DICE TYPE ROLL.? ROLL
YOU ROLLED A 6 AND A 1
VOU ARE ON CHANCE ?
ADYANCE TOKEN TO ILLINO[S AVENUE
YOU ARE ON I LLI NO I 5 AVENUE
IT IS FOR SALE FOR ONLY.240 DOLLARS
[F VOU WISH TO BUY IT TYPE BUV? BUV
YOU NOW HAVE 1269 DOLLARS
IF THERE [S ANY PROPERTY YOU WISH TO SELL AND
YOUR OPPONENT WANTS TO BUY TYPE SELL?
I F YOU WANT TO I MPROYE YOUR PROPERTY TYPE HOUSE?

**DA~E'S

**SANDY"'S TURN*****"''''***
TO ROLL D[CE TYPE ROLL? ROLL
YOU ROLLED A 2 AND A 4
YOU ARE ON OR I ENTAL AYENUE
[T 15 FOR SALE FOR ONLY 199 DOLLARS
IF YOU WISH TO BUY IT TYPE BUY? BUY
YOU NOW HAVE 1400 DOLLARS
[F THERE IS ANY PROPERTY YOU WISH TO SELL AND
YOUR OPPONENT WANTS TO BUY, TYPE SELL?
IF ·YOUWAN:( TO IMPROYE YOUR PROPERTY TYPE HOUSE?
IF YOU WAN1'"t,0 .QUIT TY~E QUrT? .
.

:t;:lkSANDY'.S TURN**********
TO ROLL I) I CE TYPE ROLL? ROLL
YOU ROLLED A 1 AND A Ii
YOU ARE ON BOARDWALK
IT is" FOR· SALE FOR ONLY 408 DOLLARS
IF ··You: UISH· TO BUY IT TYPE BUY? BUY
YOU NOW HAilE; 236 DOLLARS
I F· THERE I S ANY PROPERTY YOU WISH· TO SELL AND
YOUR OPPONENT WANTS TO BUY TYPE SELL?
1F YOU WRNT TO IMPROYE YOUR PROPERTY TYPE HOUSE?
IF YOU WANT· To QUIT TYPE QUIT?

**DAYE" S TURN**"'*******

TO ROLL DICE TYPE ROLL ?.;t~OLL
YOU ROLLED A 3 AND A 3 .,
YOU ARE ON GO TO JAIL
VOU ROLLED DOUBLES**ROLL AGA I N
TO ROLL DICE TYPE ROLL? ROLL
YOU ROLLED A 6 AND A 5
YOU ARE ON KENTUCKY AVENUE
IT I S FOR SALE FOR ONLY 220 DOLLARS
IF YOU WISH TO BUY IT TYPE BUY? BUY
YOU NOW HAilE 990 DOLLARS
IF THERE IS ANY PROPERTY YOU WISH TO SELL AND
YOUR OPPONENT WANTS TO BUY TYPE SELL?
I F. YOU WANT TO I MPROVE YOUR PROPERTY TYPE HOUSE?

**DAYE'" S :fURN**********
TO ROLL I) JOE· TYPE ROLL? ROLL
YOU ROLLE!> A '2 AND A 5
you ARE ON YISITING IN JAIL

**SANDyLS TVRN**********

**SANDY'S TURN"'**"''''*''''''*'''

TO ROLL DICE TYPE ROLL? ROLL
YOU ROLLED A 1 AND A 5
YOU ARE ON ELECTRIC COMPANY
...
IT 15 FOR SALE FOR ONLY 150 DoL~IIRS
I F YOU WISH TO BUV IT TYPE BUY? .. •
.
IF THERE IS ANY PROPERTY ~'OU WISH Ttl'SELl:' ANDYOUR OPPONENT WANTS TO BUY TYPE SELL?
IF YOU WANT TO I"PROIIE YOUR PROPERTY TYPE HOUSE?
IF YOU WANT TO QUIT TYPE QUIT?

TURN**********

TO ROLL DICE TYPE ROLL? ROLL
YOj.! ROLLED A 5 AND A 1
VOU ARE ON BALTIC AVENUE
1T:15 FOR SALE FOR ONLY 60 DOLLARS
IF YOU WISH TO BUY IT TYPE BUY?
IF HIERE IS ANY PROPERTY YOU WISH TO SELL AND
~'OUR OPPONENT WANTS TO BU~' TYPE SELL?
IF YOU WANT TO IMPROYE YOUR PROPERTY TYPE HOUSE?

155

TO . ROLL 0 I CE T.YPE ROLL? ROLL
YOU ROLLED A 6.AND A 6
.YOU ARE ON ST. CHARLES PLRCE
·IT IS FOR SALE FOR ONLY 140 DOLLARS
IF YOU WISM TO BUY IT TYPE BUY? BUY
YOU NOW HRYE 296 DOLLARS
IF THERE IS ANY PROPERTY YOU WISH TO SELL AND
YOUR OPPONENT WANTS TO BUY TYPE SELL?
·1 F YOU WANT TO I MPROYE YOUR PROPERTY TYPE HOUSE?
YOU ROLLED DOUBLES**ROLL AGRIN
TO ROLL DICE T'r'PE ROLL? ROLL
YOU ROLLED A 5 AND A 5
YOU ARE ON KENTUCKY AVENUE
YOU OWE 18 DOLLARS RENT

MUGWMPFIND

4 MUGWUMPS IN HIDING

Description
Your objective in this game is to find the four Mugwumps hiding
on various squares of a 10 by 10 grid. Homebase (lower left) is
position (0,0) and a guess is a pair of whole numbers (0 to 9),
separated by commas. The first number is the number of units
to the right of homebase and the secondnurnber is the distance
above homebase.
You get ten guesses to locate the four MUgwurnps~ after each guess,
the computer tells you how close you are to each MUgwurnp. Playing the game with the aid of graph paper and a compass should
allow you to find all the Mugwumps in six or seven moves using
triangulation--i.e., like LORAN radio navigation.
Source
This program was modified slightly by Bob Albrecht of People's
Computer Company. The original source were students of:
Bud Valenti
Project SOLO
University of Pittsburgh
Pittsburgh, PA 15213

IlUGWu'"r 1

.",
156

PROGRAM LISTING

SAMPLE RUN

1 REM COURTESY OF PEOP~E' S COMPUTER COMPANY
2 REM MUGWMP
3 REM
CONVERTED TO RSTS/E BY DAV ID AHL, DIG I TAL
5 RANDOMIZE
'
'
10 DIM 1'(4,2)
20, PRINT "THE OBJECT OF THIS GAME IS TO F"lND FOUR MUGWUMPS"
30 PRINT "HIDDEN ON A 10 BY 19 GRID. HOMEBASE IS POSITION 9,0"
40 PRINT "ANY GUESS YOU MAKE MUST BE TWO NUMBERS WITH EACH"
50 PRINT "NUMBER BETWEEN 9 AND 9; INCLUSIVE. FIRST NUMBER"
60 PRINT "IS DISTANCE TO RIGH,T OF HOI'IEBASE AND SECOND NUMBER"
79 PRINT "IS DISTANCE ABOVE HOI'IEBASE. "
'
SEt PRINT
90 PR I NT "YOu., GET 10 Tit< I ES. AFTER EACH TRY, I WILL TELL"
:Lee PRINT "YOU HOW FAR YOU RRE FROM EACH MUGWUMP. "
:1.10 PRINT
2413 GOSUB 100e
250 T=0
269 T=T+l
270 PRINT
275 PRINT
290 PRINT "TURN NO. "T; "WHAT IS YOUR GUESS";
30e
INPUT M. N
31e FOR 1=1 TO 4
320 IF P ( I, 1)=-1 THEN 4011
330 IF P(I,1)(:>M THEN 3S9
340 IF P( I, 2){)N THEN 3811
3501'(1,1)=-1
360 PRI NT "YOU HAYE FOUND MUGWUMP"; I
370 GOTO 400
380 O=SQR( (P( I, 1)-M)~2+(P( I, 2)-N)~:2)
399 PRINT "YOU ARE"INHD*1ID/10"UNITS FROM MUGWUMP"I
409 NEXT I
410 FOR J=1 TO, 4
429 I'F P(J, :L)()-1 THEN 470
430 NEXT J
440 PRINl
450 PRINT "YOU GOT THEM ALL IN";T;"TURNS!"
46e GO TO 5SB
470
IF T<10 THEN 260
480 PRINT
4S10 PRINT "SORRY, THAT)S 10 TRIES. HERE IS WHERE THEY'RE HIDING"
540 FOR 1=1 TO 4
550 IF P(I,1>=-1 THEN 570
568 PRINT "MUGWUMP";!; "IS AT (";P(!,1); ", ";1'<1,2); ")"

THE OBJECT OF THIS GAME IS TO FIND FOUR MUGWUMPS
HIDDEN ON A 10 BY 11" GR I D. HOME BASE IS POSI TI ON 0, It
AN~ GUESS YOU MAKE MUST BE TWO NUMBERS, WITH EACH
NUMBER BETWEEN 1/1 AND 9, INCLUSIVE. FIRST NUMBER
IS DISTANCE TO RIGHT OF HOMEBASE AND SECOND NUMBER
IS DISTANCE ABOVE HOME BASE.

570

TlIRN NO. 6 WHAT IS YOUR GUESS? 1, 0
¥OU HA~E FOUND MUGWUMP :1.

***

NEXT I

680 PRINT
600 PRINT "THAT WAS' FUN!
LET'S PLAY AGAIN.
610 PRINT "FOUR MORE MUGMUMPS ARE NOW IN HIDING. "
630 GOTO 240
1000 FOR J=1 TO 2
1010 FOR I =1 TO 4
1020 f'( I, J)=INTo.0*RNl)(0»
1038 NEXT I
1040 NEXT J
1050 RETURN
:l.9S1l1 END
READY

~'Ol)
~OIJ

GET 10 TR I ES. AFTER EACH TRY, I WILL TELL
HOW FAR YOU ARE FROM EACH MUGWUMP.

TURN NO. :I. WHAT I S ,,"OUR GUESS? 5, 5
~OU ARE 6. 4 UN ITS FROM MUGWUMP 1
~'OU ARE 1. 4 UN ITS FROM MUGWUMP 2
~'OU ARE 2. 2 UN ITS FROM MUGWUMP 3
~OU ARE 1. 4 UNITS FROM MUGWUMP, 4
TllRN NO. :2 WHAT IS YOUR GUESS?' 4, 4
~OU ARE 5 UN ITS FROM MUGWUMP 1
YOU ARE 2 UN ITS FROM MUGWUMP 2
~'OU ARE :I. UN ITS FROM MUGWUMP 3
YOU ARE 2. S UNITS FROM MUGWUMP 4
TURN NO. 3 WHAT IS YOUR GUESS? 6,6
YOU ARE 7. S UN liS FROM MUGWUMP :1.
YOU ARE 2 UN I TS FROM MUGWUMP 2
~OU ARE 3. 6 UNITS FROM MUGWUMP 3
YtliJ HAVE FOUND MUGWUMP 4
TlIRN NO. 4 WHAT I S YOUR GUESS? 4, 6
~OU ARE 6. 7 UN I TS FROM MUGW.\JMP 1
¥OU HAYE FOUND MUGWUMP 2
YOU ARE 2. 2 UNITS FROM MUGWUMP 3
TURN NO. 5 WHAT IS YOUR GUESS? 3,4
ARE 4. 4 UNITS FROM MUGWUMP :1.
~OU HAYE FOUND MUGWUMP 3

~'OU

¥OU GOT THEM ALL IN 6 TURNS!
THAT WAS FUN!
LET'S PLAY AGA I N...
FOUR MORE MUGMUMPS ARE NOW I ill HID I NG.
TURN NO. :1. "'HAT 15 YOUR GUESS?
~ou RRE 2. e UN I TS FROM MUGWUMP
YOU ARE'4. 4 UNITS FROM MUGWUMP
" ~'OU ARE 5.3 ,UNITS FROM MUGWUMP
YOU ARE ,5 UN ITS FROM MUGWUMP 4

4,4
1
2
3

TURN NO .. 2 WHAT I S YOUR GUESS? 2, 2
YOU ARE 5. 6 UN ns FROM MUGWUMP 1
YOU ARE 2' UNITS FROM' 'MUGWUMP 2
~OU ARE 7 UJ\l1T5' FROM MUGWUMP 3
\'OU ARE, 7.:i 'UN ITS FROM MUGWUMP 4
TURN NO. 3 WHAT I S YOUR GUESS? 6, 6
YOU HAYE FOUND MUGWUMP :1.
YOU ARE 7. 2 UN I T5 FROM MUGWUMP :;:
YOU ARE 5 UN ITS FROM MUGWUMP 3
~OU ARE 3. 6 UN ITS FROM MUGWUMP 4
TURN NO. 4 WHAT I S YOUR GUESS? 0, 2
YOU HAVE FOUND MUGWUMP 2
YOU ARE 9 UN I TS FROM MUGWUMP 3
YOU ARE S UNITS FROM MUGWUMP 4
TURN NO. :; WHAT IS ,'OUR GUESS? 4,9
YOU ARE S. 6 UN ITS FROM MUGWUMP 3
YOU HAYE FOUND MuaWUMP 4
TURN NO. 6 WHAT IS YOUR GUESS? 9,2
Y(/U" HAVE ·,F.OUND MUGWUMP 3.
YOU GOT THEMA~I- IN ii TURNS!

NICOMA

COMPUTER GUESSES YOUR NUMBER

Description
One of the most ancient forms of arithmetical puzzle is somet.imes
referred to as a "boomerang." At some time, everyone has been
asked to "think of a number I " and, after going through some
process of private calculation, to state the result, after which
the questioner promptly tells you the number you originally
thought of.' . There are hundreds of varieties of the puzzle.
The oldest recorded example appears to be that given in Arithmetica
of Nicomachus, who died about the year 120. He tells you to
think of any whole number between 1 and 100 and divide it successively by 3, 5, and 7, telling him the remainder in each case.
On receiving this information, he prompt+y discloses the number
you thought of •
Can you discover a simple method of mentally performing this feat?
If not, you can see how the ancient matheinatician did it by looking at Lines 80-100 of the program.
Program Author
Digital Equipment Corp.
Maynard, MA 01754

158

PROGRAM LISTING
10 PRINT "BOOMERANG PUZZLE FROM ARITHMETICA OF NICOMACHUS -- A. D.
29 PRINT
30 PRINT "PLEASE THINK OF A NUMBER BETWEEN 1 AND 100. '
48 PRINT "YOUR NUMBER DIVIDED BY 3 HAS A REMAINDER OF",
45 INPUT A
59 PRINT "YOUR NUMBER I>II,'IDED BY 5 HAS A REMAINDER OF',
55 INPUT B
60 'PRINT "YOUR NUMBER DIVIDED BY 7 HAS A REMAINDER OF",
65 INPUT C .
79 PRINT
80 PRINT "LET ME THINK A MOMENT.
90SLEEP(5).
199. 1)?70*A+21*B.+15*C
110 IF D<=105 THEN 140
120 D=D-105
130 GOTO 110
140 PRINT
150 PRINT "YOUR NUMBER WAS"D", RIGHT";
160 INPUT A$
165 PRINT
170 IF A$="YES" THEN 220·
180 IF A$="NO" THEN 240
198 PRINT "EH?
I DON'T UNDERSTAND' "A$"'
TR~"
YES' OR 'NO'"
200 GOTO 150
228 PRINT "HOW ABOUT THAT!!"
230 GOTO 250
240 PRINT "I FEAR ...OUR ARITHMETIC IS IN ERROR. "
250 PRINT
260 .PRINT "LET'S TRI' ·ANOTHER. "
270 GOT a 20
999 END

SAMPLE RUN
BOOMERANG PUZZLE FROM ARITHMETICFi OF NICOMACHUS -- A. D.
PLEASE THINK. OF A NUMBER
YOUR NUMBER DIVIDED 81' 3
YOUR NUMBER DI VIDED B", 5
YOUR NUMBER DIVIDED B... 7

BETWEEN 1 AND 100.
HAS A REMAINDER OF ?3
HAS A REMAINDER OF 70
HAS A REMAINDER OF 75

loET ME THINK A MOMENT.
YOUR NUMBER WAS '75 ,RIGHT ?RIGHT
EH?
I DON'T UNDERSTAND; RIGHT'.
YOUR NUMBER WAS 75 , RIGHT· ?~'ES

TRY' "'ES' OR 'NO'

HOW ABOUT THAT!!
LET'S TRY ANOTHER.
PLEASE TH I NK OF A NUMBER
YOUR NUMBER DIVIDED. BY 3
YOUR NUMBER DIVIDED BY 5
YOUR NUMBER DIVIDED BY 7

BETWEEN 1 AND 100.
HAS A REMAINDER OF
HAS A REMAINDER OF ?4
HAS A REMAINDER OF ?6

LET ME .THINK A MOMENT.
YOUR NUMBER WAS 104

RIGHT ?YES

HOW ABOUT THAT! !

LET'S TRY ANOTHER.
PLEASE THINK .01' A NUMBER
YOUR NUMBER DIVIDED BI' 3
YOUR NUMBER DIVIDED BY 5
YOUR NUMBER DIVIDED B~' 7

BETWEEN 1 AND 100.
HAS A REMAINDER OF 71
HAS A REMAINDER OF 71
HAS A REMAINDER OF ?1

LET ME THINK A MOMENT.
YOUR NUMBER WAS 1 ,
I

RIGHT ?NO

FEAR I'OUR ARITHMETIC IS IN ERROR.

LET'S TRY ANOTHER.
PLEASE THINK OF A NUMBER BETWEEN :I. AND 100.
YOUR NUMBER DIVIDED BY 3 HAS A REMAINDER OF ?0
YOUR NUMBER DIVIDED B ... 5 HAS A REMAINDER OF ?0
YOUR NUMBER DIYIDED BY 7 HAS A REMAINDER OF 71
LET ME THINK. A MOMENT.
YOUR NUMBER WAS 15 ,

RIGHT ? ... ES

HOW ABOUT THAT!!

159

S00!

90!"

NIM

CHINESE GAME OF NIM

Description
NIM is one of the oldest two-person games known to man: it is
believed to have originated in ancient China. The name, which
was coined by the first mathematician to analyze it, comes from
an archaic English verb which means to steal or to take away.
Objects are arranged in rows between the two opponents as in
the following example:

xxxxxxx
xxxxx
xxx
X

7 Objects
5 Objects
3 Objects
1 Object

Row 1
Row 2
Row 3
Row 4

Opponents take turns removing objects until there are none
left. The one who picks up the last object wins. The moves
are made according to the following two rules:
1.

On any given turn only objects from one row may be
removed. There is no restriction on which row or on
how many objects you remove. Of course, you cannot
remove more than are in the row.
You cannot skip a move or remove zero obj"ects.

The winning strategy can be mathematically defined, however,
rather than presenting it here, we'd rather let you find it
on your own. HINT: Playa few games with the computer and
mark down on a piece of paper the number of objects in each
stack (in binary!) after each move. Do you see a pattern
emerging?
Source
One of the most popular computer games. Over 10 versions of
NIKwere submitted. One notable one came from Larry Ruane,
Mt. Prospect, Illinois, who programmed NIM for a DIGITAL
EduSystem 10. Quite a feat! The one published is from:
Robert G. Cox
Trinity College
Hartford, CT 06106

160

PROGRAM LISTING

SAMPLE RUN

.110 REM THIS PROGR~M USES A STRATEGY AS PRESENTED IN 'GAMES OF FUN AND
le5 REM STRATEGy', A PUBLICATION OF THE MATHEMATICAL SERVICES DEPART110 REM HENT OF COMPUTER CONTROL CO" INC,
1t5 PRINT 'THIS PROGRAM pLAYS NIH,'
120 PRINT '00 YOU ~ANT INSTRUC.uONS'I\INPUT QS
125 IF G,o'yES" THEN 135\IF Qlo'NO' THEN 190
130 PRINT "TYPE YES OR NO, .\INPUT QS\GOTO 125
135 PRINT
140 PRINT'
NIH XS PLAYED BY TWO PEOPLE PLAYING ALTERNATELY, 8EfORE'
145 PRINT "THE PLAY STARTS, AN ARBITRARY NUMBER OF STICKS OR OBJECTS IS'
150 PRINT 'PUT INTO AN ARBITRARY NUMBER OF PILES, IN ANY DISTRI8UTION'
155 PRINT '~HATEVER, THEN EACH PLAYER IN HIS TURN REMOVES AS MANY"
160 PRINT "ST!C~S .s HE WISHES FROM ANy PILE·.BUT FROM ONLy ONE PII.E,'
105 PRINT 'ANO AT LEAST ONE STICK, THE PLAyER wHO TAKES THE LAST STICK"
170 PRINT "IS THE ~INNER,'
175 PRINT'
THIS PROGRAM ALLOwS yOU TO SET uP THE INITIAL ARRANGEMENT"
180 PRINT 'OF pILES AND STICKs, IT wILL NOT ACCEpT MORE THAN TwENTY"
185 PRINT 'pILES OR STlCK5 IN EACH pILE,"
190 RANDOM
195 REH···············.·.CONFIGURATION INPUT.·.·······.················
200 PIM X(20,4), S (20), L(20), 52 (2~) ,N2 (4) ,C (20),53(20), V(20)
205 PRINT\PRINT 'HOW MANY PI~E5"\INPUT P\IP P.20 TMEN 215
210 IF P.INTCP) THEN 215\IF Pu0 THEN 215\GO TO 220
215 PRINT "ILLEGAL PILE NUMBER,'\PRINT\GO TO 206
220 PRINT\FOR 101 TO P
225 PRINT 'HOW MA.NY STICKS IN PILE'/I,\INPUT L(I"IF L(I)'20 THEN 235
230 IF L(I)'INT(L(I)) THEN 235\IF ~(I)<'0 THEN 235\GO TO 240
235 PRINT "ILLEGAL STICK NUMBER,'\PRINT\GO TO 225
240 NEXT I
.
245 FOR 101 TO p\S(!)'L(I)\G'G.LCll\NEXT I
250 PRINT\PRINT "00 YoU WANT TO GO FIRST"
255 INPUT OS\IF Qso'YES' THEN 34e\IF OSo'NO' THEN 390
200 PRINT 'TYPE YES OR NO."\GO TO 255
205 REM··CONTROL OF GAME RF-PEATS ANP TESTS FOR END OF GAME·············
270 IF G.0 THEN 275\IF F'I THEN 390\GO TO 320
275 IF FOI THEN 315
280 PRINT\PRINT "I WON, 00 yOu wANT TO PLAy AGAIN"
286 INPUT Q$\IF O$O'NO- THEN 290\IF QS"'vEs" THEN 300\GO TO 295
290 STOP
295 PRINT "TYPE YES OR NO, -\GO TO 285
300 PRINT\PRINT -SAME ARRANGEMENT",
305 INPUT O$\IF OSo"NO' THEN 205\IF QSo'YES' THEN 245
310 PRINT 'TYPE YES OR NO, -\GO TO 305
315 PRINT\PRINT "YOU oON, 00 YOU "ANT TO PLAY AGAIN" "GO T0 280
320 PRINT\PRINT "PILE NUMBER""STICKS LEFr.
325 FOR 1'1 TO P\IF S(I)'0 T~EN 33~\PRINT I,S(!)
330 NEXT I
335 REM·.··.····· •••• -·.····pLAYER' S MovE •••••••••••• _ ••••••••••• • •••••
340 PRINT\PRI;,T "WHIC~ pILE DO YOU WANT STICKS FRO_" I\lNpUT N
345 IF N'P T~EN 355\1F N'INHN) T~EN 355\IF "'00 THEN 350
350 IF SCN)'0 THEN 355\GO TO 35"
355 PRINT "ILLEGAL PILE NUMBER,"\PRINT\GO TO 340
360 PRINT\PRl"T "HO. MA~NY STICKS"I\INPUT T
365 IF T>S(N) THEN 370\IF T'INT(T) THEN 370\IF T<00 THEN 37.\GO TO 375
370 PRINT. 'IL~EGAL STICK NUMBE~,'t\PRINT\GO TO 350
375 SCN).S(N)_T\GoG.T
380 F'I\GO TO 270
385 REM •••• _ •••••••••••••• _MACHINE 'S MOVE ••••••••••••••••••••••••••••••
390 FOR 100 TO .\V(I)o0\NEXT I
3~5 FOR 1'1 TO P
40e
C(Il'SCI)
405
FOR E04 TO 0 STEP .1
410
IF SO).2.E THEN 415\S2(I).S2(1)+10.E\S(I)oS(I).2.,
415
NEXT E
420
FOR Y04 TO 0 STEP ·1
425
X(I, y) 0INTCS2(I) IU'Y"S2(!) 052(1 ).X CI, Y) *10 A Y
430
V(V)OV(Y)+XCI,Y)
435
NExT Y
440 NEXT I
445 R00
450 fOR Y'4 TO 0 STEP '1
455
IF VCYlI2-INTCV(Y)l2)00 THEN 480
46e
IF R'I THEN 470\0'INTCP*RND(X»+1
465
IF X(Q,V)<>I THEN 460\X(Q,y)a0\R'I\GO TO 4S0
470
IF X(Q,y)ol THEN 475\X(Q,Y)0I\GO TO .80
475
X(Q,Y)'0
480 NEXT Y
485 FOR 101 TO P
4~0
52(1)'0
495
FOR Y'4 TO 0 STEP '1
500
S3 (I ).X (I, Y).10AV\S2 (1)'52 (I) +93 (J I
505
NEXT Y
5IB
FOR E04 TO 0 STEP .1
515
IF g2(1)<I0.E THEN 520\5(1)05(1).2.E\g2(1)'82(1)·10.E
520
NEXT E
525 NEXT 1
530 If Rol THEN 535\QoINTCP*RNoeX»+I\IF SeQ100 THEN 530\S(Q)oS(G)-1
535 OoC (0)·5 (Q) \G.G·O
540 IF 0'1 THEN 550
545 PRINT\PRINT 'I'LL TAKE",D"STICKS FROM PILE",Q","\GO TO 555
550 PRINT\PKINT "I'LL TAKE I STICK FROM pILE"'Q'",'
555 F'0\GO TO 270
560 END

THIS PROGRAM PLAYS NIM.
DO YOU WANT INSTRUCTIONS? YES
NIM IS PLAYED BY TWO PEOPLE PLAYING ALTERNATELY.
BE,ORE
THE PLAY STARTS. AN ARBITRARY NUMBER 0, STICKS OR OBJECTS IS

PUT INTO AN ARBITRARY NUMBER Or PILES, IN ANY DISTRIBUTION
OHATEVER.
THEN EACH PLAYER IN HIS TURN REMOVES AS MANY
STICKS AS HE WISHES F'ROM ANY PIl..E--BUT fiR OM ONLY ONE PILE ..
AND AT LEAST ONE STICK.
THE PLAYER WHO TAKES THE LAST STICK
IS THE WINNER.
THIS PROGRAM ALLOWS YOU TO SET UP THE INITIAL ARRANGEMENT
0, PILES AND STICKS.
IT WILL NOT ACCEPT MORE THAN TWENTY
PILES OR STICKS IN EACH PILE.
HOW MANY PILES?

HOW MANY STI CKS IN
HOW MANY STI CKS IN
HO~I MANY STI CKS IN
HOW MANY STI CKS IN
HOW MANY STI CKS IN
DO

PILE
PILE
PILE
PILE
PILE

3
4

Yau WANT TO GO nRST? YES

w1-iICH PILE DO YOU

WANT STICKS FROM?

HOW MANY STICKS? 2

1'1..1.. TAKE 3 STICKS F'ROM PILE 5 •
PILE NUMBER

1
2
3

STICKS LEFT
1

2
3

2
2

WHICH PILE DO YOU WANT STICKS F'ROM? 3
HOW MANY STI CKS? 3

I'LL TAKE 1 sTI CK FROM PILE 5 •
PILE NUMBER

1
2

STICKS LEF'T

1
2
2
1

WHICH PILE DO YOU WANT STICKS F'ROM? 5
HOl') MANY STICKS?

I'LL TAKE 1 srrCK F'ROM PILE

PILE NUMBER
2

t •

STICKS LEI'T

2
2

WHICH PILE DO YOU \<JANT STICKS PROM? 4
HOW MANY STICKS?

I'LL TAKE 1 STICK

PILE NUMBER
2
4

mOM PILE 2

•

STI CKS LEF'T
1
I

WHICH PILE DO YOU ~vANT STICKS F'NOM? 5
ILLE:GAL PILE NUMBER.
~IH1CH

PILE: DO YOU l,<.lANT ST!C!'(S FROM? «'I

HOW MANY STICKS? 0
ILLEGAL STIer< NiJi'1BEk.

HOI'} MANY STICKS?

I'LL TAKE 1 STICK F'ROM PILE 2
WON.

DO YOU WANT TO PLAY AGAIN? YES

SAME ARRANGEMENT? NO
HO~j

MANY

PILES? 3

HOW MANY STICKS IN PILE I
HOW MANY STICKS IN PILE 2
HOW MANY STICKS IN PILE 3

I
2
3

DO YOU WANT TO GO 1""1 RST? NO
I'LL TAKE 1 STICK F"ROM PILE I

PILE NUi'18ER

STICKS LEF'T

WHICH PILE DO YOU WANT STICKS F"ROM? 3

HOW MANY ST1CKS? 1
I'LL TAKE 1 STICK ,ROM PILE 3
PILE NUMBER

2
3

•

STICKS LEn

>.HICH PILE DO tOu WANT STICKS ,ROM? 2

HOW MANY STICKS?

I'LL TAKE 1 STICK
PILE NUMBER

,ROM PILE 3

•

STICKS LE,T

2
WHICH PILE DO YOU WANT STICKS ,ROM? 2
HOW MANY STICKS? 1

161

YOU WON.

DO YOU WANT TO PLAY AGAIN? NO

NUMBER

RANPOM NUMBER GAME

Description
In contrast to other number guessing games where you keep guessing until you get the random number se1eGted by the computer
(GUESS, TRAP, STARS, etc • .), in this game you get only one guess
per play and you gain or lose points depending upon how close
your guess is to the random number selected by the computer.
You occasionally get a jackpot which will double your point
count. You win when you get 500 points.
Program Author
Torn Adarnetx
Curtis Junior High School
Sudbury, MA 01776

1 PRINT •
NUMBER GAME'
2 PRINT\PRINT ·YOU NOW HAVE 100 POINTS'
1 PRINT 'BY GUESSING NUMBERS FROM 1 TO 5, YOU CAN GAIN OR LOSE"
4 PRINT 'POINTS DEPENDING UPON HOW CLOSE YOU GET TO A RANDOM'
5 PRINT 'NUMBER SELECTED BY THE COMPUTER"PRINT
6 PRINT 'YOU OCCASIONALLY WILL GET A JACKPOT WHICH WILL DOUBLE(!)"
7 PRINT "YOUR POINT COUNT.
YOU WIN WHEN YOU GET 500 POINTS. "
8 PRINT\P E 100
11 PRINT 'GUESS A NUMBER FROM 1 TO 5';
12 INPUT G
15 LET R"INT(5"RND(8»
16 LET S=INT(S"RND(8»
17 LET T~INT(S"RND(0»
18 LET U=INT(S"RND(8»
NIJMBER GAME
19 LET Y=INT(S"RND(8»
28 IF .G=R THEN 30
YOU NOW HAVE 199 POINTS
21 IF G=S THEN 40
BY GUESSING NUMBERS FROM 1 TO 5, YOU CAN GAIN OR LOSE
22 IF G=T THEN 58
POINTS DEPENDING UPON HOW CLOSE YOU GET TO A RANDOM
23 IF G=U THEN 68
NUMBER SELECTED BY THE COMPUTER
24 IF G-Y THEN 70
25 IF G)5 THEN 11
YOU OCCASIONALLY WILL GET A JACKPOT WHICH ~ILL DOUBLE(!)
38 LET P=P-5
YOUR POINT COUNT.
YOU WIN WHEN YOU GET 50e POINT"S.
3S GO TO 89
411 LET P=P+5
GUESS A NUMBER FROM 1 TO 513
45 GO TO 80
YOU HAVE 191 POINTS
50 LET P=P+P
GUESS A NUMBER FROM 1 TO 573
53 PRINT 'YOU HIT THE JACKPOT'
YOU HAVE 196 POINTS
55 GO TO 89
GUESS A NUMBER FROM 1 TO 513
69 LET P.P+1
YOU HAVE 101 POINTS
65 GO TO 89
GUESS A NUMBER FROM 1 TO 513
79 LET P=P-(P".5)
YOU HAVE 102 POINTS
80 IF P)599 THEN 99
GUESS A NUMBER FROM 1 TO 573
82 PRINT "YOU HAVE "; P; "POINTS'
YOU HAVE 97 POINTS
85 GO TO 11
GUESS A NUMBER FROM 1 TO 513
99 PRINT I.!!! !YOU WIN!!!! WITH -; p; ,.POINTS"
YOU HAVE 92 POINTS
99 END
GUESS A NUMBER FROM 1 TO 573
YOU HIT THE JACKPOT
READY
YOU HAYE 184 POINTS
GUESS A NUMBER FROM 1 TO 573
YOU HAYE 189 POINTS
GUESS A NUMBER FROM 1 TO 512.
YOU HAVE 184 POINTS
GUESS A NUMBER FROM 1 TO 5?2
YOU HIT THE JACKPOT
YOU HAVE 368 POINTS
GUESS A NUMBER FROM 1 TO 5?2
YOU HAVE 363 POINTS
GUESS A NUMBER FROM 1 TO 5?2
YOU HAVE 358 POINTS
GUESS A NUMBER FROM 1 TO 512
YOU HAYE 363 POINTS
GUESS A NUMBER FROM 1 TO 512
YOU HAVE 368 POINTS
GUESS A NUMBER FROM 1 TO 512
YOU IfAYE 363 POINTS
GUESS A NUMBER FROM 1 TO 5?2
YOU HAVE 358 POINTS
GUESS A NUMBER FROM 1 TO 512
YOU HIT THE JACKPOT
!!!!YOU WIN!!!! WITH 716 POINTS
READY

162

ICHECK

SOLITAIRE CHECKER GAME

Description
In this game or puzzle, 48 chec~ers are placed on the two
outside spaces of a standard 64-square checkerboard as shown:

•••• ••••
•••• ••••
••
••
••
••
••
••
••
••
••••••••
••••••••
The object is to remove as many checkers as possible by
diagonal jumps (as in standard checkers).
It is easy to remove 30 to 39 checkers, a challenge to
remove 40 to 44, and a substantial feat to remove 45 to 47.
Program Author
David Ahl
Digital Equipment Corp.
Maynard, MA 01754

163

SAMPLE RUN

PROGRAM LISTING
1CHECK

05:54 PH

SOLITAIRE CHECKER PUZZLE BY DAYID AHL
25-JUN-73

48 CHECKERS ARE PLACED ON THE 2 OUTSIDE SPACES OF A
STANDARD 64-S~UARE CHECKERBOARD.
THE OBJECT IS TO
REMOVE AS MANY CHECKERS AS POSSIBLE BY DIAGONAL JUMPS
<AS I N STANDARD' CHECKERS).
USE THE NUl'iBERED BOARD TO
ItiDICATE THE SQUARE YOU loIIsH TO JUMP FROM AND TO.
ON
THE BOARD PRINTED OUT ON EACH TURN '1' INDICATES A
CHECKER AND '0' AN EMPTY SQUARE. WHEN YOU HAYE NO
POSSIBLE JUMPS REMAINING. INPUT A '0' IN RESPONSE TO
QUESTION 'JUMP FROM ?'
.

i:5 PRINT 'SOLITAIRE CHECKER PUZZLE BY DAVID AHL'
~~:~~

29 PRINT '48 CHECKERS ARE PLACED ON THE 2 OUTSIDE SPACES OF A"
"STANDARD 64-SQUARE CHECKERBOARD.
THE OBJEI~T IS TO'
39 PRINT 'REMOYE AS MANY CHECKERS AS POSSIBLE BY DIAGONAL JUMPS'
35 PR I NT "( AS IN STANDARD CHECKERS l.
USE THE NUMBERED BOARD TO'
40 PRINT' INDICATE THE SQUARE YOU WISH TO JUMP FROM AND TO.
ON'
45 PRINT 'THE BOARD PRINTED OUT ON EACH TURN '1' INDICATES A'
59 PRINT "CHECKER AND '9' AN EMPTY SQUARE.
WHEN YOU HAVE NO'
55 PRINT "POSSIBLE JUMPS REMAINING, INPUT A '0' IN RESPONSE TO'
60 PRINT "QUESTION ~JU~P FROM ?~.
62 PRINT
65 PRINT "HERE IS THE NUMERICAL SOARD:'
66 PRINT
69 DIM A(64)
79 FOR J=1 TO 57 STEP e
72 SS=" •• i# ## i. •• ##
74 PRINT USING B$.J;J+1.J+I.J+3.J+4.J+5.J+6.J+7
76 NEXT J
77 PR INT
78 PRINT "AND HERE IS THE OPENING POSITION OF THE CHECKERS:'
79 PRINT
80 FOR J=1 TO 64
82 A(J)=1
84 NEXT J
86 FOR J=1'9 TO 43 STEP 8
88 FOR I=J TO J+3
91l A(!)=9
92 NEXT I
94 NEXT J
96 M=0
98 GOTO 349
1~0 INPUT "JUMP FROM',F
105 IF F=0 THEN 500
1:10 INPUT 'TO",T
112 PRINT
1:18 REM *** CHECK LEGAL ITY OF MOVE
25' PRINT

HERE IS THE NUMERICAL BOARD:

.t ..'

~l20

3
11

19
27

12
20
28

18
25 26
33 34

41 42

35
43

22
30
38

49 59

57 58

29
37
45
53

46
54

39
47
55

40
48
56
64

AND HER. IS THE OPENING POSITION OF THE CHECKERS:
1
1
1
1
1
1
1
1

111

1
0
0

1
0
9

1
1

1
0

o
o
o
1
1

1
1
1

1
9
0

1
1
1
1

JUMP FROM? 1
TO? 19
9
1
1
1
1
1
1
1

F1=INT«F-1)!8)

130 F2=F-8.F1
140 T1=INT«(T-1)/8)
150 12=1-8*T1

160 IF F1)7 THEN 230
H0 IF T1)7 THEN 230
180 IF F2>8 THEN 230
190 IF T2)8 THEN 230
21)0 IF ABS<F1-Ti )02 THEN 230
210 IF ABS(F2-T2)()2 THEN 2.0
212 IF A«T+F)I2)=0 THEN 230
215 IF A(F)=0 THEN 2]0
:!20 IF A(T)=1 THEN 230
2;15 OOTO 250
;?30 PR I NT "I LLEOAL MO"E.
TW,' AGA I N.
240 OOTO 100
245 REM *** UPDATE BOARD

1
1
1
1
1
1

1
1
1

o
a o
0 o
0 o
1
1

1
1

o
o
o
o

1
1

009
0 0 0
9 0 0

011
0 1 1
0 1 1

*** PRINT BOARD
FOR J=1 TO 57 STEP S
350 'FOR I=J TO J+7
360 PRINT An)i
3'10 NEXT I
380 PR INT
390 NEXT J
400 PRINT
410 OOTO 100
490 REH *** END GAME SUMMARY
5110 5=0
519 FOR 1=1 TO 64
520 S=S+A ( I )

100
1 1 1

340

1
1

0
0

1
1

0
1

1
1
1
0
0
0
1

o
1
o
o
o
1

1
1
1
1
1
1
1
1

o ·0
1
1
1
1
1
1
1

PR I NT

540 PRINT "YOI) MADE'M'JUMPS AND HAD"S'PIEGES'
550 PRINT "REMAINING ON THE BOARD. "
560 PRINT
562 INPUT "TRY AGAIN"iA$
:;-10 IF AS=" YES" THEN 70
5'5 IF AS="NO" THEN 600
:;80 PRINT "PLEASE ANSWER 'YES' OR ··NO'.
590 GOTO %2
600 PRINT
610 PRINT "0. K.
HOPE YOU HAD FUN!"
9:19 END

1
1
1
0
0
0
1
1

o
1
o
o
o

0
1
1
1
1
1
1

1
1

1
1
1
1
1
1

o
1
1
1
1
1
1

READY

1
1

1
1
1

o o
o o
o o

1
1
0
0

1
1

0
1
1
1
1
1
1

0
1
0
0
0
1
1

1
1

1
0
0
0

0
0

o
o
o

o
o
o
o
o
o
o

0
0
1

o ·1

100

011

000
010

o
o
o
1

o 1 0 1
100 1
o 0 0 o

1
0
9

o
1
o
1
o
o
o
9

0
0
0

000
o 0 0
o 1 0

001

010
o 1 0
000

110

o
o

1
0
0
0
1
9

o
o

o
1
o
1
1

9
1

o
9

o o

1
9

0
0

011

o
o
o

900
001
0 1
0 0

o 9
o o
o o

o 0
o 1
o e

9
0
0

0
0
0

1
1
0

o
9

000

1
1
9

1
9
0
0
1
0
0
0

9 1 1
000

o
o

0 0
0 1 0
e 000
001 0

o
1
9 091 0 o
o 000 0 o
o o 110 9

1
1

o
o

o
1

o
o

JUMP FROM? 48
TO? 30
1
1

1
1

0
0
0
1
1

o
o
o

o o

,JUMP FROM? 24
TO? 38
1
1
1
1
1
1
1

0
0

000

9
1

o o 1
o 1 o
o o o

,JUMP FROM? 56
TO? 38

JUMP' FROM? 16
TO? 30

JUMP FROM? 29
TO? 47

JUMP FROM? 8
TO? 22

530 NEXT I

JUMP FROM? 46
TO? 60

T01 21

310 ~EM

o o
o 1

JUMP FROM? 26
TO? 44

JUMP FROM? 3

260 A(F)=0

0
0
1
0
1

o
o
o

11111111
1 1 1 1 1 1 1 1

259 A(T )=1

o
o
o
o

1
9
1

00111 111
10011111
11110011
1
1

JUMP FROM? 12
TO? 26

,)uMP FROM? 2
'ro? 20

2:'9 A( (T+F)/2)=0
299 M=M+1

5:~5

678
15 16
23 24

1 2
9 10
:l7

o
o

1
0
1 0
1 1
01
1
1

1
1
1
1
1

9
1
9
1

o
o

000
091
090
o 0 1
9 Ii 1
o 0 0

o o

010

o
000 o
o 0 0 o
o 9 B o
1

JUMP FROM? 30
TO? 46

JUMP FROM? 64

TO? 46

164

1
1
1
1

1
0
0
0

100

1
1
1
1

o
o

1
1

0
1

1
1
1

1
0
0
0
1

1
1
1
0
0
0

o
o
1

ILLEGAL MOVE.
JUMP FROM? 0

TRY AGAI~

YOU MADE 35 JUMPS AND HAD 13 PIECES
REMAINING ON THE BOAR~
TRY AGAIU? NO

~ ~

HOPE YOU HAD FUN!

ORBIT

DESTROY AN ORBITING ENEMY SPACESHIP

Description
ORBIT challenges you to visualize spatial positions in polar
coordinates. The object is to detonate an explosive within a
certain distance of a germ laden spaceship. This ship is orbiting a planet at a constant altitude and orbital rate (degreesl
hour). The location of the ship is hidden by a device that
renders the ship invisible, but after each bomb you are told
how close to the enemy ship your bomb exploded. The challenge
is to hit an invisible moving target with a limited number of
shots.
The planet can be replaced by a point at its center (called the
origin); then the ship's position can be given as a distance
from the origin and an angle between its position and the
eastern edge of the planet.

direction
of orbit

2:=}.

h. ip

angle
~---------~-------E

The distance of the bomb from the ship is computed using the
law of cosines (see line 430 of the program listing). The law
of cosines states

bOmb~
Al
. ship

n=..j R**2+Dl**2+R*Dl *COS (A-AI)

~~~--~----~~-

where D is the distance between the ship and the bomb, R is the
altitude of the ship, Dl is the altitude of the bomb, and A-Al
is the angle between the ship and the bomb.
360
Practice Off-Line Problem:

Aircraft appear on radar as
blips of the form "=". What
is the distance between the
TWA and United aircraft shown
on the radar screen on the right.
270

Source

090

ORBIT was originally called
SPACE WAR and was written by:
Jeff Lederer
Project SOLO
University of Pittsburgh
Pittsburgh, PA 15213
165

180

\!
I·

SAMPLE RUN

PROGRAM LISTING
5 HANDIJ>aZE
10 PI11NT "SOMEWHERE ABOVE YOUIl PLANET IS A ROMULAN SHIP."
15 PHINT
.
20 PIlINT "THI5 SHIp IS IN A CONSTi'lNT POLAR ORBIT.
IT S"
25 PRINT "DISTANCE FROM THE CENTEH OF YOUR PLANET IS FROM"
30 PRINT "10.000 TO 30.000 MILES AND AT IT'S PRESENT VELOCITY CAN"
31 PRINT "CIRCLE YOUR PLANET ONCE EVERY 12 TO 36 HOURS."
35 PRINT
40 PRINT "UNFORTUNATELY THEY ARE USING A CLOAKING DEVICE SO"
45 PIlINT "YOU ARE UNABLE TO SEE THEM. BUT WITH A SPECIAL"
50 PRINT "INSTRUMENT YOU CA~ TELL HOW NEAR THEIR SHIP YOUR"
55 PRINT "PHOTON BOMB EXPLODED.
YOU HAVE SEVEN HOURS UNTIL THEY"
60 PRINT "HAVE BUILT UP SUFFICIENT POWER IN ORDER TO ESCAPE"
6S PRINT "YOUR PLANET'S GRAVITY."
70 PHINT
75 PRINT "YOUR PLANET HAS ENOUGH POWER TO FIRE ONE IlOMB AN H,lUll."
80 PlliNT
85 PRINT "AT THE BEGINNING OF EACH HOUR YOU WILL BE ASKED Tll GI VE AN"
90 PRINT "ANGLE (BETWEEN·O AND 360) AND A DISTANCt IN UNITS 0 .. •
95 PRINT "100 MILES CBETWEEN 100 AND 300). AFTERWHICH YOUR BOMB'S"
100 PRINT "DISTANCE FROM THE ENEMY SHIP WILL BE GIVEN."
105 PRINT
.
.
110 PRINT "AN EXPLOSION WITHIN 5.000 MILES OF THE ROMULAN SHIP"
111 PRINT "WILL DESTIIOY IT."
114 PRINT
liS PRINT "BELOW IS A DIAGRAM TO HELP YOU VISUALIZE YOUR PLIGHT."
116 PRINT
117 PRINT
168 PRINT"
90"
169 PRINT"
170 PRINT "
0000000000000"
171 PRINT "
OOOOOOOOOOOOOOOOOO~
172 PRINT "
000000
000000"
173 PRl NT II
00000
00000"
174 PRINT"
00000
XXXXXXXXXXX
00000"
175 PRINT "
00000
XXXXXXXXXXXXXXX
0000"

,t.

176 PRINT"

0000

XXXXXXXXXXXXXXXXX

DODO"

177 PRINT "
0000
XXXXXXXl\XXXXXXXXXXX
0000"
178 PRINT"
0000
XXXXXXXXXXXXXXXXXXXXX
0000"
179 PRINT "180<== 00000
XXXXXXXXXXXXXXXXXXXXX
00000 111111>0"
160 PRINT"
0000
XXXXXXXXXXXXXXXXXXXXX
0000"
161 PRINT"
0000
xxxxxxxxxxxxxxxxxxx
0000"
182 PRINT"
0000
XXXXXXXXXXXXXXXXX
0000"
163 PRINT"
00000
XXXXXXXXXXXXXXX
00000"
184 PRINT"
00000
XXXXXXXXXXXXX
00000"
185 PRINT"
00000
00000"
186 PRINT ""
000000
000000"
187 PRINT
00000000000000000000"
IU6 PRINT"
000000000000000"

189 PRINT"

SOMEWHERE ABOVE YOUR: PLANET 15 A ROMULAN SHIP;
THIS SHIP 15 IN A CONSTANT POLAR ORBIT. ,. IT'S
DISTANCE FROM THE CENTER OF· YOUR PLANET IS FROM
10.00Q TO 30,000 MILE.S AND AT IT S PR£SENT ·VELOCITY CAN
CIRCLE YOUR PLANET ONCE EVERY 12· TO 36 HOURS.
UNFORTUNATELY THEY ARE USING A CLOAKING DEVICE SO
YOU ARE UNABLE TIJ SEE THEM. BUT WITH A SPECIAL
INSTRUMENT YOU CAN TELL HOW NEAR THEIR SHIP YOUR
PHOTON BOMB EXPLODED. YOU HAVE SEVEN HOURS UNTi L THEY
HAVE BUILT UP SUFFICIENT. POWER IN. ORDER TO ESCAPE
YOUR PLANET'S GRAVITY.
YOUR PLANET HAS ENOUGH POWER TO FIRE ONE BOMB AN HOUR.
AT THE BEGINNING OF F.ACH HOUR YOU WILL BE ASKED TO GIVE AN
ANGLE (BETWEEN 0 AND 360) AND A DISTANCE IN UNITS OF
100 MILES (BETWEEN 100 AND 300), AFTERWHICH YOUR BOMB'S
DISTANCE FROM THE ENEMY SHIP WII:L BE GIVEN.
AN EXPLOSION WITHIN 5.000 MILES OF THE ROMULAN SHIP
WiLL DESTI!OY IT.
BELOW IS A DIAGRAM TO HELP YOU VISUALIZE YOUR PLIGHT.
90

•

0000000000000
0000000000000000000
000000
000000
00000
00000
XXXXXXXXXXX
00000
00000
XXXXXXXXXXX)(XXX
0000
00000
XXXXXXXXXXXXXXXXX
0000
0000
0000
XXXXXXXXXXXXXXXXXXX
0000
XXXXXXXXXXXXXXXXXXXXX
0000
0000
180<== 00000
XXXXXXXXXXXXXXXXXXXXX
00000 ==>0
0000
XXXXXXXXXXXXXXXXXXXXX
0000
XXXXXXXXXXXXXXXXXXX
0000
0000
XXXXXXXXXXXXXXXXX
0000
0000
00000
XXXXXXXXXXXXXXX
00000
00000
XXXXXXXXXXXXX
00000
00000
00000
000000
000000
00000000000000000000
000000000000000

I.
270

190 PRINT"
270"
191 PRINT
192 PRINT
195 PRINT "X - YOUR PLANET"
19/) PI!1NT "0 - THE ORBIT OF THE ROMULAN SHIP"
197 PRINT
198 PRINT "ON THE ABOVE DIAGRAM. THE ROMULAN SHIP IS CIRCLING"
199 PRINT "COUNTEHCLOCKWISE·AROUND YOUR PLANET.
DON'T FORGET"
200 PRINT "WITHOUT SUFFICIENT POWER. THE ROMULAN SHIP'S ALTITUDE"
201 PllINT "AND ORBITAL RATE WiLL REMAIN CONSTANT."
203 PHINT
204 PRINT "GOOD LUCK. THE FEDERATION IS COUNTING ON YOU."
270 LET A=INTCRND*360)
280 LET D.INTCRND*eOO) +100
290 LET R-INT(RND*20) +10
~OO LET H-O
310 IF H-7 G[JTQ 490
320 LET H-H+l
325 PRINT
326 PRINT

x - ytJUR PLANET

o - THE ORBIT OF THE ROMULAN SHIP

ON THE ABOVE DIAGRAM. THE ROMULAN SHIP I S CIRCLING
COUNTERCLOCKWI SE AROUND YOUR PLANET •. DON"T FORGET
WITHOUT SUFFICIENT POWER THE ROMULAN SHIP'S ALTITUDE
AND .oRBITAL RATE WILL REMAIN CONSTANT.
GOOD LUCK. THE FEDERATION IS COUNTING ON YOU.

HOUR I • AT WHAT ANGLE DO YOU WI·SH TO SEND
'tOUR PHOTON BOMB?
? 0
IDW FAR OUT DO YOU Wi SH TO DETONATE IT?
? 200

330 PRINT "HOUR"'HJ"" AT WHAT ANGLE DO YOU WISH TO SEND"
335 PRINT "YOUR PHOTON BOMB?"
340 INPUT Al
. 350 PRINT "HOW . FAR OUT 00 YOU WISH TO DETONATE IT?"
360 INPUT DI
365 PRINT
366 PRINT
370 LET A-A+R
380 I F A~360 GOTO 400
390 LET A-A-360
... 00 LET T-ABS(A-AI)
410 IF T~180 GOTO 430
... eo LET 1*360-T
... 30 LET C-SQRCDoD+DloDi-aoDoDloCOS(T03.111159"80»
...... 0 PRINT ''YOUR PHOTON BOMB EXPLODED"Iel"0I0,e MILES FROM THE"
... 45 PRINT "THE ROMULAN SHIP"
450 I F C~-50 GOTO 470
460 GOTO 310
470 PRINT "YOU HAVE SUCCESSFULLY ·COMPLETED YOUR MISSION."
... 80 GOTO 500
490 PRINT "yOU HAVE ALLOWED THE ROMULANS TO ESCAPE."
500 PRINT "ANOTHER ROMULAN SHIP HAS GONE INTO ORBIT."
510 PRINT "00 YOU WISH TO' TRY TO DESTROY IT?"
520 .INPUT .CS
.
530 IF CS*"YES" GOTO 270
540 PRINT "PLEASE LOGOUT"
999 END

'tOUR PHOTON BOMB EXPLODED 357.237 010'2 MILES FROM THE
THE ROMULAN SHI P

IDUR 2 • AT WHAT ANGLE DO YOU WI SH TO SEND
'tOUR PHOTON BOMB?
? 180
·IDW FAR OUT 00 YOU WI SH TO DETON!lTE IT?
? 200
'tOUR PHOTON BOMB EXPLOPEP 267.336 010'·2 MILES FROM . THE
THE ROMULAN SHIp·

IDUR 3 • AT WHAT ANGLE DO YOU WISH TO. SEND
YOUR PHOTON BOMB?
? 180
IDW FAR OUT DO YOU WI5H TO DETONATE· IT?
? 200
YOUR PHOTON BOMB EXPLODED 295.315 *10'2 MILES FROM THE
THE ROMULAN SHIP

HOUR 4 • AT WHAT ANGLE 00 YOU WI SH TO SEND
'tOUR PHOTON BOMB?
? 250
IDW. FAR /JUT 00 YOU WI SH TO DETONATE IT?
? 200

'tOUR PHOTON BOMB EXPLODED 103.558 .10.2. MILES FROM THE
THE ROMULAN SH I P

166

PIZZA

DELIVER PIZZAS IN HYATTSVILLE

Description
In this game, you take orders for pizzas from people living in
Hyattsville. Armed with a map of the city, you must then tell
a delivery boy the address where the pizza is to be delivered.
If the pizza is delivered to the correct address, the customer
phones you and thanks you~ if not, you must give the driver
the correct address until the pizza gets delivered.
Some interesting modifications suggest themselves for this
program such as pizzas getting cold after two incorrect delivery
attempts or taking three or more orders at a time and figuring
the shortest delivery route. Send us your modifications!
Source
This program seems to have surfaced originally at the University
of Georgia in Athens, GA. The author is unknown.

167

1964 by E.C. Publications

ji
I

PROGRAM LISTING

SAMPLE RUN

LISTNH
10 DIM A$(26),S$(16),N$(4),A(10),M$(4)
20 RANDOMIZE
30 PRINT "PIZZA DELIVERY GAME"; PRINT
50 INPUT "WHAT IS YOUR FIRST NAME";N$:PRINT
se PRINT "HI, "N$". IN THIS GAME YOU ARE TO TAKE ORPERS"
5>0 PRINT "FOR PIZZAS.
THEN YOU ARE TO TELL A DELIVERY BOY"
100 PRINT "WHERE TO DELIVER THE ORDERED PIZZAS. ":PRINT:PRINT
140 FOR 1=1 TO 16
150 READ Sf (I )
160 NEXT I
170 FOR 1=1 TO
180 READ M$ ( ! )
190 NEXT I
20121 DATA "AII,'IIBII, nC II , "0", "EII,"F",IIG","HI 1,III", "JII, "K", "L", 11M", "Nil, "0", IIpll
220 DATA "1~, "2", "3", "4"
.
230 PRINT "MAP OF THE CITY OF HYATTSVILLE": PRINT
250 PRINT " ----1----2----3---~4----"
260 K=4
270 FOR 1=1 TO 4
280 PRINT "-": PRINT "-": PRINT "-": PRINT
320 PRINT M$(K);
330 51=16-4*1+1
340 PRINT"
"; 5$(51); "
"; 5$(51+1); "
"; 5$(51+2); "
"; 5$(51+3);
350 PRINT"
"; M$(K)
38e K=K-l
390 NEXT I
400 PRINT "-":PRINT "-":PRINT "-":PRINT "-"
440 PRINT "0----1----2----3----4----":PRINT
460 PRINT "THE ABOVE IS A MAP OF THE HOMES WHERE"
470 PRINT "YOU ARE TO SEND PIZZAS. ": PRINT
.
490 PRINT "YOUR JOB IS TO GIVE A TRUCK DRIVER"
500 PR I NT "THE LOCAT I ON OR COORD [NATES OF THE"
510 PRINT "HOME ORDERING THE PIZZA. ": PRINT
520 INPUT "DO YOU NEED MORE DIRECTIONS"; A$
530 IF A$="YES" THEN 590
549 IF A$="NO" THEN 750
550 PRINT '''YES' OR 'NO' PLEASE, NOW THEN, ":GOTO 520
590 PRINT:PRINT "SOMEBODY WILL ASK FOR A PIZZA TO BE"
600 PRINT "DELIVERED.
THEN A DELIVERY BOY WILL"
610 PRINT "ASK YOU FOR THE LOCATION. ":PRINT "
EXAMPLE:"
620 PRINT "THIS IS J.
PLEASE SEND A PIZZA. "
640 PRINT "DRIVER TO "N$".
WHERE DOES J LIVE?"
650 PRINT "YOUR ANSWER WOULD BE 2,3": PRINT
660 INPUT "UNDERSTAND";AS
670 IF A$="YES" THEN 690
680 PRINT "THIS JOB IS TOO DIFFICULT FOR YOU.
THANKS ANYWAY. ":GOTO 999
699 PRINT "GOOD.
YOU ARE NOW READY TO START TAKING ORDERS. ": PRINT
700 PRINT "GOOD LUCK! ! ": PRINT
750 FOR 1=1 TO 5
760 S=INT(RND*16+1):PRINT
770 PRINT "HELLO "N$'" S PIZZA.
THIS IS "5$(5);
775 PRINT ".
PLEASE SEND A PIZZA. "
780 PRINT"
DRIVER TO "N$".
WHERE DOES "5$(5;'" LIVE";
799 INPUT A(1),A(2)
8713 T=A(1)+(A(2)-1)*4
889 IF T=S THEN 920
8913 PRINT "THIS IS "S$(T)".
I DID NOT ORDER A PIZZA. "
990 PRINT "I LIVE AT "A(1) ", "A(2)
910 GOTO 780
920 PRINT "HELLO "N$".
THIS IS "5$(5)", THANKS FOR THE PIZZA. "
939 NEXT I
940 PRINT: INPUT "DO YOU WANT TO DELIVER MORE PIZZAS"; AS
5>60 IF A$="YES" THEN 750
970 PRINT:PRINT "0. K. "N$", SEE YOU LATER!"
5>99 END

RUNNH
PIZZA DELIVERY- GAME
WHAT IS YOUR FIRST NAME? BETSY
HI, BETSY.
IN THIS GAME YOU ARE TO TAKE ORDERS
FOR PIZZAS.
THEN YOU ARE TO TELL A DELIVERY BOY
WHERE TO DELIVER THE ORDERED PIZZAS.
MAP OF THE CITY OF HYATTSVILLE
----1----2--~-3----4----

[)

0----1----2----3----4---THE ABOVE IS A MAP OF THE HOMES WHERE
YOU ARE TO SEND PIZZAS.
YOUR JOB IS TO GIVE A TRUCK DRIVER
THE LOCATION OR COORDINATES OF THE
HOME ORDERING THE PIZZA.
DO YOU NEED MORE DIRECTIONS? YES
SOMEBODY WILL ASK FOR A PIZZA TO BE
DELIVERED.
THEN A DELIVERY BOY WILL
ASK YOU FOR THE LOCATI ON.
EXAMPLE:
THIS IS J.
PLEASE SEND A PIZZA.
DRIVER TO BETSY.
WHERE DOES J LIVE?
YOUR ANSWER WOULD BE 2, 3
UNDERSTAND? YES
aOQD.
YOU ARE NOW READY TO START TAKING ORDERS.
GOOD LUCK!!
HELLO BETSY' 5 PIZZA.
TH I 5 IS E.
PLEASE SEND A PIZZA.
DRIVER TO BETSY.
WHERE DOES E LIVE? 2,1
THIS IS B.
I DID NOT ORDER A PIZZA.
I LIVE AT 2, 1
DRIVER TO BETSY.
WHERE DOES E LIVE? 1,2
HELLO BETSY.
THIS IS E, THANKS FOR THE PIZZA.
HELLO BETSY' 5 PIZZA.
THIS IS H.
PLEASE SEND A· PIZZA.
DRIVER TO BETSY.
WHERE DOES H LIVE? 4,2
HELLO BETSY.
THIS IS H, THANKS FOR .THE PIZZA.
HELLO BETSY'S PIZZA.
THIS IS P.
PLEAS.E SEND A PIZZA.
DRIVER TO BETSY.
WHERE DOES P LIVE? 4,4
HELLO ElETSY.
THIS IS p, THANKS FOR THE PIZZA.
HELLO BETSY'S PIZZA.
THIS IS J.
F'LEASE SEND A PIZZA.
DRIVER TO ·BETSY.
WHERE DOES J LIVE? 3,2
THIS IS G.
I DID NOT ORDER A PIZZA.
I LIVE AT 3, 2
DRIVER TO BETSY.
WHERE DOES J LIVE? 2,3
HELLO BETSY.
THIS IS J, THANKS FOR THE PIZZA.
HELLO BETSY' 5 PIZZA.
THIS IS. C.
PLEASE SEND' A PIZZA.
DRIVER TO BETSY. 'WHERE DOES C' LIVE? 3,1
HELLO BETSY.
THIS IS C, THANKS FOR THE PIZZA.
DO YOU WANT TO DEL I VER MORE PIZZAS? NO

0; K.
READY

168

BETSY,

SEE YOU LATER!

POETRY

RANDOM POETRY (HAIKU)

Description

POETRY: This program will randomly choose a singlet, couplet,
or quatrain from a set of 23 preset PRINT statements. It spaces
at random intervals, but ends at approximately the same point
each time. There is a low likelihood of duplication of lines.
POET: This program produces random verse which might loosely
be considered in the Japanese Haiku style. It uses 20 phrases
in four groups of five phrases each generally cycling through
the groups.
It inserts commas (random--19% of the time),
indentation (random--22% of the time), and starts new paragraphs (18% probability, but at least every 20 phrases).
The version of POET published has phrases suggestive of Edgar
Allen Poe. Try it with phrases from computer technology, from
love and romance, from four-year-old children, or from some
other subject. Send us the output:
Here are some phrases from nature to try:
Carpet of ferns
Morning dew
Tang of dawn
Swaying pines

Mighty Oaks
Grace and beauty
Silently singing
Nature speaking

Entrances me
Soothing me
Rustling leaves
Radiates calm

Untouched, unspoiled
Shades of green
Tranquility
••• so peaceful

Program Author
POETRY:
H. David Crockett
5609 Wimbleton Way
Fort Worth, TX 76133

POET:
Original author unknown.
Modified and reworked by
Jim Bailey, Peggy EWing, and
Dave Ahl of DIGITAL.

169

POETRY

PROGRAM LISTING

SAMPLE RUN

IUllo-folle
110

~ET

12n-I'UII'I' 0

ole

In-~n-OIO.1

m=~I~~ l~~~HO~U~N~I-N~I~S~!~U,,~p~Uffl'rGO"rf'lTO"-150

~ET

AlII
lee-~n 0.0.,
170 PRINT'
AND IT 11_ OAWN'
18rrao TO 1350
In ~RINT "INTO THE STREET OF THE SKV

aU en A a o i -

wAS NO MOR!'

1210 GO TO 13se

I2H nlWT
1211 010.1

Iue GO TO 1350
1300 PRINT" RANOOM POETRy IN FOUR PART HARMONY,'

nu PRINT

1320

~IGHT"

210 LU 010.,
TZB--PRtNT'
WA~K. SCAtTERING POEMS"
230 GO TO '350
2~iI--PRINT 'ON EARTH A CANDLE 18 EXTINGUISED"
250 LET A3I1
~~.I)H

a70 PRINT THE CITY WAKES"
-210 GO TO \350
ag0 PRINT -WITH A SONG UPON HfA MOUTH'
-300 ~ET A.'I
310 ~ET OID.1
320 pRINT.
HAVIN; DElTR-n-Rn£Yo'
GO TO I3S0
3-40 PRINT 'ANO IT IS OA.N"
U0 PRINT "
THE WORLD"
--le0 LET UO,
311 ~n 000.1

~nfT-.----r;orlf~o MWfoERORUMSI'

3ge GO TO \350
-U0 PRINT" ANO IT IS OAy"
.u
~ET CS'I
-"n--LET 000.1
430 GO TO 1350
"10--,r]ff]i!f-lfTW-nlE 1ill1'1'Olrl fEE A MAN, AND HE'
.50 PRINT "
SCREAMS"
-'-60 ~n D. D.I
470 LET cell
.8i/JPRINT "FOR HE IS ME'
490 ~ET 000.1
IITrl'lfrNT"AlfO r ~E'
au GO TO 1350
-U0 PRINT "AND IT IS DUSK'
S30 ~ET A711
840 ~n 010.1
sn PRINT"
ON EARTH'

-nrGO--ro-l3u
570 PRINT "A CANO~E IS LIGHTED"
!ee ~!T ASII

U0 ~n 00001
'0e PRINT"
AND IT 18 DARK"
'10 GO TO 1350
jI2T-'lfINT-'tflr-i'EClpC!- ARE rNT~EiR -HOUSES'
631 ~ET HII
141 ~ET 000.1
sse GO TO 1350
S'0 ~RINT 'SHE SLEEPS WITH DEATH UPON HER MOUTH"
.,e ~n BIOI
ff0--~-Et -DIIO.!
.91 PRINT'
AND A SONG IN HfR EHS'
101 GO TO 1350
110 PRINT' THE ~OURS OESENOED'
121 ~ET 8all
1~0 LET 000.1
H' PRINT "
~UTTING ON STARS'
150 GO TO US0
fee PRINT 'NOBODY ~OSES A~~ THE TIME "
n0~ET nil
780 ~ET 010.1
'90 GO TO 1350
BlrPRHff-'Mfslf!fsf -WISE MUSI e !ftO~E"
_8_10_~ET UOI
820 LET 000.1
_830 ~RINT"
NOTHING ~ROM DEATH."
840 GO TO US0
850 PRINT "LOVE tLTH~_EV_ER _O.N.l.Y __GOO"
Ulf-~ fI' -8-511 -.70 LET 000.1
880 GO TO 1350
890 PRINT "WHO SPOKE THII EARTH SO G~AO AND UG'
ilu ~ET eeol
010 ~ET 01001
niIPRlNT'
EVEN AfHINIiA~L SMALL AND SAO'
930 GO TO 1350
9.0 PRINT 'WHO Is AFRAID OF OEATH7THOU"
~se ~ET a111
960 LET 010_1
970 PRINT"
ART OF HTM.
980 GO TO 1350
9U PRINT 'OR WITH THY MIND AGAINST MY MINO,1000 ~ET e80,
10\0 LET 0.0.1
1020 PRINT"
YOU SHOULD NOT HEAR ME SPEAK"
1030 GO TO 1350
ffilJPlf[Nf-·,nlRTFMr-ZSGONE- ANot AM itERE"
1050 ~ET 8901
-U60 ~ET DID-I
1010 PRINT·
THER! IS NO MEETING"
rU0 GO TO 1350
IU0 PRINT" TIME IS TW!8TEO TO LA~ UPON"

lTB0U1'Cfil

RANDOM POETRY I N FOUR PART HARMONY_

IU0 ~!T C401

1110 ~ET Ooou
1120 PRINT •
ITSE~F FOREVER'
1130 GO TO 1350
1140 PRINT "AND SPACE IS MISXNG FOR IT WU "
1150 ~ET call
TITiJ U"--l)oO'-1
1170 PRINT "STOLEN FOR A~L TIM! TO COME'
1180 GO TO 1350
1100 PRINT "THERE IS NEVU AN ENO,1200 ~n e311
1210 L.fT DID-I
IHlin'lUNT- '-MERECY A 6E~AT£b BEGINING, ,,"
1230 GO TO I3B0
1240 PRINT -AND TWICE REPEATED TMfRE"

TIME IS - TWISTED TO LAP UPON
ITSELF FOREVER
NOBODI' LOSES ALL THE T I ME
AND IT 15 DAWN

~RINT

un IF QI~lIn~,--ll'ftN1nB
134S IF 0012 THEN 2330
nu-~nXIRNOI.\) .24
1350 ~ET XI'INTIX).I
T361 -IF 004 TMEN!280
1382 IF. 018 TH!N1280
1383 IF -Dole THEN 2330
1310 IFX\II THEN 1390
i3l1'- GO- TOl4U UU IF A\lITHEN 1410
firi0--fF XI'I-THEN 14e
1410 IF XII2 THEN 1430
f f i j GO TO U5ii14~0 _IF_A.2.L THEN_ 1450
1440 IF Xl02 THEN 290
145e IF. X_I"3 THEN 1470
1460 GO TO 1490
1410 IF A3'1 THEN 1490
1480 IF XU3 THEN 190
1.00 IF XI" THENI510
-15-00 --GO TO 1530 ..
_1.510 IF "'1 THEN 1530
un IF XI"4 THEN 240
IU0 IF XI"S TMEN 15S0
1540 Gofb-Te1il
!S!II IF A501 TMEN 1510
1550 IF XIIS THEN 340
U70 IF Xl06 THEN 1590
IUS ,0 TO 16U
1590 IF A61 I TMEN 16\0
u n IF xTii6THEN-..-ae-HUIF XI17 THEN lue
leas GO TO l65e
1630 IF A111 THEN 1650
IUS GO TO 520
li5JUL~.I_'_8.1HJN 1.!0
1560 GO TO I 69~
1610 IF A811 THEN 1600
I6se GO TO 570
1.90 IF XI"; THEN 1710
11me GO TO 1130
17U IF A9'1 tHEN 17311
fY20 rioTO n0
1730 IF X10 \0 THEN I7S0
1740 GO TO 1780
1750 '0 TO 1760
1760 IF BioI THEN 1780
1770 GO TO 660

THE WORLD
GOES FORTH TO MURDER DREAMS
HIS MOST WISE MUSIC STOLE
NOTHING FROM DEATH
AND IT I S DUSK
ON EARTH
THE PEOPLE ARE IN THEIR HOUSES
SHE SLEEPS WITH DEATH UPON HER MOUTH
AND A SONG IN HER EYES
THE HOURS DESENDED
PUTTING ON STARS
THE HOURS RISE UP PUTTING OFF STARS
AND IT IS DAWN
WITH A SONG UPON HER MOUTH
HAYING DEATH IN HER EYES
WITH A SONG UPON HER MOUTH
HAYING DEATH IN HER EYES
IN THE MIRROR I SEE A MAN, AND HE
SCREAMS
FO~: HE IS ME
AND I HE

COM PUTER

maII'I<lHC-ffIEN Hili!
1790 GO
1800 IF
18\0 GO
1820 IF
1830 GO

TO 1820
8211 THEN 1820
TO 710
Xlol2 THEN 1840
TO 1850

1840 n- I13'T -fHE~-1880

1850 GO TO 760
1860 IF XII13 THEN 1880
1810 GO TO 1900
1880 IF 8411 THEN 1900
1890 GO TO 800
rlfl0 1'- X110 14t1fEN HililUle GO TO U40
1920 IF nOI THEN 1840
U30 GO TO 850
1940 IF Xlo\5 THEN 1960
US0 GO TO un
-nee-T'8Ir'lf-Hl:i< Heil
IOr0 GO TO 890
IU0 IF XII16 THEN 2000
11190 GO TO 2020
2000 IF B711 THEN 2020
2010 GO TO 940
2020 IF Xlol7 THEN 2040
ae30 GO TO 2060
2S'0 IF B801 THEN 20'0
2150 GO TO 990
a0ee I' x 1.\8 THEN 2080
2070 GO TO. 2100
-2-nil CfF
-nIDI2TH
2090 GO TO 111'0
2100 IF XI"19 THEN 2120
2110 GO TO 2140
21U IF CIII THEN 21.0
2130 GO TO I0U
lTl0TF-llIln Tl!£N 2180
2150 GO TO 2180
2U0 IF C2 0 lTHEN 2180
2170 GO TO 1140
iHu IF Xl021 TMEN 2200
21U GO TO 2220
nJrf'--C3If ~£N2llT
2210 GO TO U90
:l220 IF XI122 THEN 2240
2230 00 TO 2280
22~0 X, e'"1 THEN 2260
2250 GO TO 1240
2:260 IF X\'UTHfN 2280
2270 GO TO 2300
2280 IF CSOI THEN 2300
2200 00 TO 44e
Un '0 TO 2320
2310 IF X102' THEN 1280

RANDOM POETRY IN FOUR F'ART HARMONY_

TIME IS TWISTED TO LAP UPON
ITSELF FOREYER

NOE:OD't1 LOSES ALL THE TIME
fiND IT I S DAWN
THE WORLD
GOES FORTH TO MURDER DREAMS
HIS MOST WISE MWSIC STOLE
NOTHING FROM DEATH
!'IND IT I S DUSK
ON EARTH
THE PEOF'LE ARE IN THEIR HOUSES
SHE SLEEPS WITH DEATH UPON HER MOUTH
AND A SONG I N HER EYES
THE HOURS DESENDED
PI)TTING ON STARS
THE HOURS RISE UP PUTTING OFF STARS
AND IT I S DAWN
WITH A SONG UPON HER MOUTH
HAVING DEATH IN HER EYES
WITH 1'1- SONG UPON HER MOUTH
HAV I NG DEATH I N HER n'ES
IN THE MIRROR I SEE A MAN, AND HE
SCREAMS
FOR HE IS ME
AND I HE

nir

BY
READI'

ll20-rro- Tol3l5if2330 PRINT
2340 P~INT
2350 PRINT'
2360 END

170

A, COM PUTER,"

COM PUTER

POET

PROGRAM LISTING

SAMPLE RUN

98 RANDD"IZE
101 IF 1•• 1 THEN 101 ELSE PRINT 'MIDNIGHT DREARY"
101 IF 1<.2 THEN 102 ELSE PRINT 'FI~EY EYES"'
102 IF 1'.3 THEN 103 ELSE PRINT 'SIRD OR FlENO-'
103 IF 1'.' THEN 104 ELSE PRINT "THING OF EVIL'"
lU IF 105 THEN 210 ELSE PRINT oPHOPHET"
105 GOTD 210
118 IF 1'.1 THEN 111 ELSE PRINT 'BEGUILING ME"
111 IF 102 THEN 112 ELSE PRINT "TKRILLED "EO,
112 IF 1'.3 THEN 113 ELSE PRINT 'STILL SITTING ... ·\GDTO 212
113 IF 10' THEN 114 ELSE PRINT 'SURNED, '\GOTO 212
1 U IF 105 THEN 210 ELSE PRINT 'NEVER FLITTING"
115 GOTO 210
128 IF 1'.1 THEN 121 ELSE IF u.e THEN 210 ELSE PRINT "SIGN OF PARTING"'
121 IF 1 •• 2 THEN 122 ELSE PRINT 'AND MY SOUL"'
122 IF 103 THEN 123 ELSE PRINT "DARKNESS THERE"
123 IF I ••• THEN 124 ELSE PRINT 'S~ALL BE LIFTED',
124 IF 105 THEN 210 ELSE PRINT 'QUOT~ THE RAVEN",
125 GOTO 210
130 IF 101 THEN 131 ELSE PRINT "NOTHING MO~E·'
131 IF 102 THEN 132 ELSE PRINT 'YET AGAIN"
132 IF 103 THEN 133 ELsE PRINT 'SLOWLY C~EEPING"
133 IF I . . ' THEN 13. ELSE PRINT • ... NEVERMORE.'
134 IF loS THEN 210 ELSE P~INT "EVE~MO~E.·'
210 IF U'0 THEN 212 ELSE IF RNO>.19 THEN 212 ELSE PRINT '.",\U·2
212 IF RND •• e5 THEN 21' ELSE PRINT' '''U.U+l\GOTO 21S
21' PRINT\U'0
215 I.INTCS*RND+U
221 J'J+I \~'~+I
231 If U.0 THEN 240 ELSE IF INTCJ/2loJ/2 THEN 240 ELSE PRINT •
240 ON J GOTO 100.110.120.130.250
250 J.0\PRINT\IF K.Z0 THEN 210 ELSE GOTO 215
27. PRINT\U.0\K.0\GOTO 110
999 END

.. ,

THING OF EVIL BEGUILING ME,
OARKNESS THERE
SLOWLY CREEPING
FIREY E'YES BEGUILING ME SHALL BE LIFTED, NOTHING l'IORt,
THING OF EVIL
THR'ILLED ME
SHALL BE LIFTED YET AGAIN
ST I LL S ITTI NO ..
F IREY EYES
THRILLED ME AND MY SOUL YET AGAIN
MIDNIGHT DREARY BEGUILING ME
SHALL BE LIFTED YET AGA I N,
THING OF EVIL, NEYER FLITTING DARKNESS THERE
· .. NEYERMORE
BIRD OR FIEND BEGUILING ME, SHALL BE LIFTED ... NEYERMORE
MIDNIGHT DREARY BEGUILING ME SIGN OF PARTING
· .. NEYERMORE
BEGUILING ME
THING OF EVIL BURNED.
QUOTH THE RAVEN
SLOWLY CREEP I NG
F1REY EYES
THRILLED ME QUOTH THE RAVEN EYERMORE'.
PHOPHET
THR I LLED ME SHALL BE LIFTED
NOTH I NG MORE
THING OF EVIL
STILL SITTING.
DARKNESS THERE VET AeA I N
MIDNIGHT DREARY,
ST I LL SITTING ...
SHALL BE LIFTED SLOWLY CREEPING,
BEGUILING ME PHOPHET,
BURNED.
SHALL BE LIFTED EVERMORE.
FIREY EYES STILL SITTING.
SIGN OF PARTING YET AGAIN
MIDNIGHT DREARY BURNED,
DARKNESS THERE YET AGA I N
MIDNIGHT DREAR¥, BURNE~
DARKNESS THERE,
EVERMORE.
MIDNIGHT DREAR¥ BURNED.
QUOTH THE RAY EN
EVERMORE.
NEVER FLITTING FIREY EYES THRILLED ME SIGN OF PARTING NOTHING MORE,
BIRD OR FIEND BEGUILING ME
SHAL~ BE LIFTED YET AGAIN
F IREY EYES
THRILLED ME QUOTH THE RAYEN,
. NEYERMORE
THING OF EVIL
BURNED.
DARKNESS THERE EYERMORE.
TH I NO OF EY I L BURNED,
SHALL BE LIFTED EYERMORE.
THRILLED ME
F I REY EYES NEYER FL ITTI NO
AND MY SOUL SLOWLY CREEP I NO
BIRD OR FIEND THRILLED ME, SIGN OF PARTING
NOTH I NG MORE
FIREY" EYES
BEGU ILl NO ME DARKNESS THERE
YET AGAIN
MIDNIGHT DREARY
STILL SITTING,
SIGN "OF PART! NG
NOTH I NG !'fORE
PHOPHET BEGU I LI NG ME, AND M't SOUL
YE.T AGAIN
THRILLED ME "BIRD OR FIEND
THRILLED ME SIGN OF PARTING ... NEVERMORE
BIRD OR FIEND THRILLED ME. QUOTH THE RAYEN ... NEVERMORE
BIRD OR FIEND
THRILLED ME SHALL BE LIFTED NOTHING MORE
FlREY EYES
NeVER FLI TT I NO D'ARKNESS THERE YET AGA I N
BIRD OR F I END THR ILLED ME, DARKNESS THERE NOTH I NG MORE

TH I NG OF :E'V I.t 'NEYER FLI TT I NG QUOTH THE RAVEN,
NOTHING MORE
MIDNIGHT DREARY
THRILLEOME "DARKNeSS THERE YET AGAIN,
MIDNIGHT DREARY."" "'
"BEGUILING-ME. DARKNESS THERE
YET AGAI'N '
MIDNIGHT DREFlRY"STlLL SITTING,
SHALL BE LI FTED' SLOWLY CREEP I NG
THING OF EYIL BEGUILING ME
DARKNESS THERE ... NEVERMORE
BURNED. "
FIREY EYES
ST I LL S ITT I NG.
AND MY SOUL EYERMORE.

171

F I REY EYES NEVER FLI TT I NG QUOTH THE RAYEN
· .. NEVERMORE
MIDN I GHT DREARY
THRILLED ME
QUOTH THE RAYEN

POKER

PLAY DRAW POKER

Description
In this game, you play draw poker with the computer as your
opponent. At the start of the game, each person has.$200.
The game ends when either opponent runs out of money (if you
run short, the computer giveS you a chance to sell your
wristwatch or diamond tie tack).
The computer opens the betting before the draw: you open the
betting after the draw. If you don't have a hand that's worth
anything and want to fold', bet O. Prior to the draw, to check
the draw, you may bet .5. Of course, if the computer has
betted, you must match bets (see his bet) in order to draw or,
if your hand looks good either before or after the draw, you
may always raise the bet.
Source
Thanks to A.E. Sapega for submitting this program to DECUS
(BASIC a-SS6).
Its author is:
A. Christopher Hall
Trinity College
Hartford, CT 06106

WIly Does HALWAn HAPPEN That.. .

. . . your only Full House of
the night loses to the only
Four-Of-A-Kind of the night?
©

1973 by E. C. Publications

172

PROGRAM LISTING
fDIMA-(l5), B (Jill,
2DEFFNA( X) oINT (I B.RND (X.),
"JOEFF-NBeXloX. \Bhl NT( XII B0)

lalLEn·!!
•

4PRINT"WE~COME TO THE ~i~}6~~---r~~-~~~=/~~-5-~*-AffiRM
~. WILL OPEN THE 8." "..
.
•
8PRINT"WHEN YOU FO~D, BET 01
TO CHECK, BET ,5
rPRINT"ENOUGH TA~K •• LET'! GET DOWN TO BUSINESS"
SPRINT
-;~ETO'I
U~ETCo2a0

TIT~
12~ETP·0

U-RANDOM
14PRINT
HiFC . . STHEN387
\5PRINT"THF ANTE IS IS,

Wl~L

DEA~"

UJSlffij~

1..8.IFS.5THEN20
-UGDSUB3-83
20LETPoP.U
-arrETe.S-!
22~ETC.C-5

23FORZ'1 T010
24GOSUBI74

~5NEXTZ

26PRINT"YDUR HAND."
-27LETN'1
28GOSUBI85
29LETNiT30LETl·2
31GDSU8217
J2PRINT
3JIFI.,6THEN47
3. IFFNA (~) 0?THEN37
351.ETX'11100
36GDT042
37IFfNA(0)co7THEN40
18LETX'111 U
39GOT042
4BIFFNA (0)"1 THEN45
41 ~E TXoifiTI;
42L.ETI·7
4JI.ETZ·23
4.GOTO!8
45LETZ'1
46GOTD51
47 I FU.-" I JTHEN54
481FFNA (0) >o2THEN50
49GOTD42
50L£TZ'0
51~ETK·0

52PRINT"1 CHECK"
-53(;OT-062
541Fuc'16THEN57
55LETZ'2
56 lFFNA (0)"1 TH~N58
57LETZ'35
58LETV 'Z+FNA C0)
59(;0508348
60PRINT"I'LL OPEN WITH "V
6ILETK'V
62GOSUSJ05
63GOSUB65
64GOT082
65IFIc.3T~EN76
66~RINT

67PRINT'l WIN"

::~:;:;~::w

1 HAVE S"C"AND YOU H'VE S'S
70PR!NT"DO YOV "_1.5",_.1_0. c.ONn ",UE " I
72 IFHS'" YE5" THEN 12
}3tFHS"NO"THEN410
74PRINT"ANSWER YES OR NO, 1010T'
'5GOT070
76IFlo4THEN8'
77PR[I'IT
78PRINT"YOU WIN"
'9L.ETs.S.P
S0GOT069
-8\RETURN
1Tf~PU'fHS---

:;:~i~~"Wo.- •• D~A"-. "OW MANY CAROS SO YOU _ANT"I

84INPUTT
851FT'0THEN98
86~ETZ'10

...

:~m~;;,~~~9~AN' T DRAw MORE THAN THRE" CARDS"

90PRINT"WHAT ARE THEIR NUMBERS"
91FOR Q'I TOT
921NPUTU
Q3GOSUB 17 3

;;~m~ "YOUR NlrWHANj) I'
96~ETN'1

97GOSUB1B5
9aLETZ.I0.T

1a5~ETZ'19

126GOT0\33

12fI~U"16THENI32

tmm:l:,omEN,J,
130\,ETZoll
IJIGOTOl33
13.2\,ETZ·2
nJ~ETK'0
\34.0SUBJ_05.
..
T35IFT<>, 5THEN 146
136IFV'7THENI40
137 IF I c'8TMEN 140
IJ8PR[NT"I'L._~ CHECK"
IJ9-GOTOI46
140L.ETV'Z.FNA (O)
-141 GOSUSH8
142PRINT'I'~~ BE.T"V
14J~ffKiV
144GOeUa306
-1<t5GOSUB65

+:~~:i~i"NOI< wE COMPARE HANDS"
148~ETJS'H~_

-149~ETKiifl

-150PRINT'MY HAND"
·TlIILETN.6
I 52.GQSUB 185
153\,ETN'1
154GOSUB217

T55PRINT

156PRINT"YOU HAVE 'I
157~ET~'D

158GOSUB369
159\.ETHS'JS
160~ETlS'KS

161\.ETI<O"162PRINT"AND
HAVE "I
163GOSUBJ69
164IFB.UTHEN67
165IFU·BTHEN78
1861FHS' "A_-"\.i.J.S_" THE",170.
.
--rerPRfNT"THE HAND IS DRAWN'
168PRINT"ALL SOP" REMAIN IN THE POT"
169GOTOl4
1701 FFNB (M ).FNB (0) THEN67
1711 FFNa (0 )'FNB (M) THEN78
I72GOTOI67
iT:lUTt.-z.1
17 4LET A(Z )'INT (1000-RNO (0) l
1751 FINT CA(Z) 1100).3THEN 174
1761 F A(Z )-100.1 NT (A (Zl/100)'12THEN 174
177FORK'1 TOZ-I
1781PA (z) ,A (K) THEN174
I79NEXTlr
1801FZeo10THENI84
181~ETN'A(Ul

182\.ETACU)'. (Z)
I8JLETA(Z)'N
184RETURN

Ia-e-FORr-!lffoN ••-

IBePRINTZ'" "I
187GOSUB 195
IBBPRINT" OF" I
189GOSUB207
190.IFZI2<>1 NT (Zl2' THEN 192
WIPlnNT -- ..
192NEXTZ
193PRINT
194RETURN
195~ETK'FNB(A(Zl)

19611'K<>9JHEN 198
197PRINT"JACK"1
1981FK<>10THEN200
199PRINT"QUEEN" I
2001FKoII THEN202
20I PRINT"KING"I
2021FK<>12THEN204
20~Plfl)ft-'-ACP ,-204IFK.·9THEN206
i05PRINTK.21
206RETURN
-207~ETK'INT(A(Z) 1100)
2081~K<>0THEN210

209Plf!N'flIT\' un"-,
21~IFK"1 THEN212

21IPRINT" OIAMONDS",
2121FK02THEN214
213PRINT" HEARTS".
214IFK<>3THEN216
2f5PRTNT·;' -SPADES";
216RETURN
21'-LETU'0
218FORloNTON+4
219~ETB(Z).FNa(A(Z»

mm~~i~}~0' (U.6»"I~.INT cxJI0. (u.5l) THENI02

T0IGosua113
102NEXTU

1241 FFNA (0)c>8THEN 126

---

:m=i~~"1 AM TAKING"Z-U-T"CARO"I

i051 n'll.TTHENI09
\06PR!NT"S"

IT7Pl!TRI

108GOTOI U
109PR I NT
II0~ETN'6

II1~EtV'l

mi~~~~:mm~'.>INn.rZHrI100't"EN22J

222~ETU'U.1

1I2JNEXTZ
2241Fuo4THEN231
225\.ETXolllll
226~ETD'A eN)
__
~7C-£ TR-, "'A- F L US'
228~ET!So"~ IN"
229UTU'15
2J0RETURN
iJIPORZ·NTON.J
232FORK o Z.1 TON.4

112LETl'1

n31'nZl.-'-l!(K1TAC~
2J4~ETX'A(Z)

114~ETB·U

·l35\.<TA(Z)·A(K)
236LETB(Z)oB(K)

~:nT

TllSL£TM'O
116IFVo7THEN\l9
II1LETZ,28

m~~t~-ml1ENr2r1
120LETZ-1
I21GOTOl3J
122IFU"13THEN 127

173

j3'~ETA(Kj.X

238LETB (K loA (Kl-UhINT (A (K )/100'

ll9N!ffi
a4BNEXTZ

Z-41~ETX'0

~mmi~!2m.TnHEN24t .

244LETXoX.II.I0. (Z-N)
245~ETD'A(Z)

246GOSUB276
247NE-xfz
2481FX00THEN262. _
_
-U9j Fa (N ).30B (N.l) THEN252
250LETXo 1111
Z5ILfTUo 10-2521 FB (N.I) .30B (N.4) THEN262
-n3IFU •• ln-HEN260
254~ETU'14
-255~ETH$o "STRAIG"
256~ETlSl'HT'

2571:EfXoi-11111

258\.fTD.A (N.4)
269RETURN
280\.ETUo10

-nl~nX-'11110

262IFU"10THEN269
263~ETD'A(N.4)

264~ETH$"SCHMA~'
265~EiIs'·TZ. "
_2_66i.ETU.9
287~ETX'11000

268GOT0274_ _ _ _
269IFU··10THEN272
27.il.lH·nHEN274
2-71GOT0275
272IFU·12THEN275
2731FFNB (D) '6THEN275
274LETlo6
275RETURN
2761FU>oli THEN281
277LfTU'11
278\.ETHS'''A PAI~'
i79LETU" OF "
280RETURN
:rIiITFVc'TTTflrN2-912821FS (Z lOB (Z-I) T~EN287
-283~ETHS' "THREE"
28"'L.ETIs._It __ -"

-285\.ETU'13
286RETURN '
nnETHS"TWO p.
288~ETl$'''AIR, •
289~ETU'12

a90RETURN
2911fU<>12THEN296
292LETU.IIL.... __ _
29J\.ETHS."FUL\. H"
294LETU'''OUSE, "
295RETURN
2961F8 (Z ) . . a (Z-Il THEN301
2!l7I.ETU·17
298LETHS"FOUR"
~g9-c<n$

.. -.--

J00RETURN
301~ETU'16
302~ETH$"FULL

303LET IS'" OUSE, •
J04RETURN

~'-I!

306PRINT"WHAT 15 YOUR 6ET"I
3071NPUTT
398 1fT-I NT CT ).nHENJI4
3091FK"0THEN312
3101FG<>0THEN312
-:J1Trrfio , HHEN34 \
312P~lNT"NO SMALL CHANGE, PLEASE'
3!3GOTOJ06
314IFS-G.T . . 0THENJ 17
315.0SUB383
316GOTOJ06
-lUIFTC.° THE·N3 2 ~
318~ETI·3

319GOT0338
J20IFG.T'·KTHEN323
32IPRINT"IF YOU CAN'T SEE MY BET, THEN FOIoD'
322GOT0306
ln~TfQ'G.T-

324 !FG.K THEN338
325IFZc>1 THENJ42
326IfG'5THENJJ0
327IFZ"2THlN335
328LETV'5
329GOT0J42
3301FZoi THEN332
-;\:ljIFTco25THEN335
J32~ETI'4

-:I3:fPRINT" I FOLD"
334RETURN
J35IFZ'2THEN:l43
3J6~RINT'1' \.1. SEE YOU'
3J7i.fiK'G
3J8LETS'S_oG
339~ETC.C-K

340~ETP·P.G.K

341 REf-URNJ42IFG'3*ZTHEN335
-3431.ETV •• -K.FNA (0l

~:;~~~~~!;~LL

SEE YOU, AND
346I.ETK.G.V
347GOtoTIli5348IFC-G-V··0THEN366
3491FG<>0THEN352
350L.ETVoC

~AISE YOU'V

NOW WE DRAW -- HOW MANY CARDS DO YOU WANT? i
WHAT ARE THEIR NUMBERS

lilRETURN
'52IFC-G •• eTHEN336
J53IFO/Zc.INT(O/Z)TH!N3"
l:~:1~m;:~QU~~D- ~,~Ii.~~t~.Ll!U'-Ur .,B,~C.~ YDUR WHeH FDR 151"

? 1
? 4

? 5

!'!o.'

~.,'I.P:J_'_.·
T.HEN38e
351LITCoC.U
n8LETD'D/Z
3URETURN
361IFDlJoJNT, (0.13) TH!N361
Till'RINT'wtiU~D 'YDU Lt~i:- 'fo BUY BAC~ YDUR TIE TAC~ FDR .5e",
362INPUTJS
H:;D'J·•• ·ND·THEN361·
3ULETCoC.U
SULETO.DI3
3IUETURN
'n-7p~RTNi"f'~ BUSTED,
eON'GRATULATIoNS'
3.UTDP
36gPRiNTHI/ II,
318%'HIO"A FLUS'THEN315
37ILETKoINT(K/lee)
.
3~2GoSUB2,8

313PRINT
374RETURN

':li'eL!fK'FNeC~)

378 IFH,'O" ITRA IG' THEN381
l79PRINTo' ~i:GH"
3BeRETURN
JeIPRINT"S'
U2RETURN
383PRINT
3U,RINToYDU CAN'T BET WHAT yo.U HAyEN'T GDT"
'3'UI"o./2' INT (D/Z'; l'HEN'~97
38ePRINToWOULD YOU LI~E TO SELL YOUR WATCH"'
- 38nNPUTJI
3UIFJI'"No"THEN391

THE ANTE IS $5.

I WILL DEAL

Y,OUR HAND:
1
3 --

5
5

5 --

OF'DIAMONDS
OF CLUBS
OF SPADES

NOW WE COMPARE HANDS
MY HAND:
6
4 OF SPADES
7
4 OF DIAMONDS
9 -- KING OF DIAMONDS

TIE TACK"'

KING OF CLUBS
4 OF CLUBS

2
4

JACK OF HEARTS
7 OF DIAMONDS

2
4

10 -~

OF HEARTS
ACE OF SPADES

YOU HAVE THREE 5 S
AND I HAYE A PAIR OF 4 S
YOU WIN
NOW I HAVE $ 116 ANI) YOU HAYE $ 284
DO YOU WISH TO CONTINUE? YES

THE ANTE IS $5.

SO LONG, SUC~ER'

I WILL DEAL

YOUR HAND:

SAMPLE RUN
WELCOME TO THE HALLDEN CASINO. WE EACH HAVE $290
I WILL 'OPEN THE BETTING BEFORE THE DRAW, YOU OPEN AFTER
WHEN YOU FOLD, BET 0, TO CHECK, BET ,5
ENOUGH TALK ~- LET'S GET DOWN TO BUSINESS

3
7

OF SPADES
OF 0 I AMONDS

OF HEARTS
OF DIAMONDS
OF SPADES

THE ANTE 15.$5.
YOUR HAND:
1
3 -5 --

JACK OF HEARTS
KING OF DIAMONDS

a
9

I WILL DEAL

OF SPADES
OF SPADES
OF DIAMONDS

2
4

OF HEARTS
OF CLU8S

~UEEN
~~

I CHECK
WHAT IS YOUR BET? 5
I'LL SEE YOU

NOW WE DRAW -~ HOW MANY CARDS DO YOU WANT? 3
WHAT ARE THEIR NUMBERS
? 2

? 3

NOW WE DRAW -- HOW MANY CARDS DO YOU WANT? 1
WHAT ARE THEIR NUM8ERS

? 5
2
4

? 4

JACK OF DIAMONDS
7 OF DIAMONDS

YOUR NEW HANI):
1
e OF SPADES
3 ~~
9 OF SPADES
5 ~10 OF DIAMONDS

I AM TAKING 3 CARDS

2
4

QUEEN OF HEARTS
KING OF CLUBS

S ~~
10 ~-

I AM TAKING 3 CARDS

WHAT IS YOUR BET? 20
I FOLD

WHAT IS YOUR BET? 5
I'LL SEE YOU

YOU WIN
NOW I HAVE $ 199 AND YOU HAYE $ 210
DO YOU WISH TO CONTINUE? YES

NOW WE COMPARE HANDS
I'll' HAND:
6
7

I WILL DEAL

YOUR HAND:
1
4 OF HEARTS
3 -- KING OF CLUBS
5 -S OF SPADES

9
7

5 --

I WIN
NOW I HAVE $ 121 AND YOU HAYE $ 279
DO YOU WISH TO CONTINUE? YES

I CHECK
WHAT IS YOUR BET? 5
I'LL SEE YOU

YOUR NEW HAND:
7 OF SPADES
1
7 OF HE,AR,TS
3 -5 ~~
5 OF DIAMONDS

1
1 --

I CHECK
WHAT 15 YOUR BET? 0

I WILL DEAL

YOUR HAND:
1
7 OF SPADES
3 -- QUEEN OF SPADES
5 -6 OF CLUBS

THE ANTE IS $S.

I WIN
NOW k HAVE $ 200 AND YOU HAYE $ 200
00 YOU WISH TO CONTINUE? YES

I AM TAKING 2 CARDS

IDUfffoQi3-

THE ANTE IS $5.

I AM TAKING 3 CARDS

WHAT IS YOUR BET? 20
I'LL SEE YOU, AND RA I SE YOU 28
WHAT IS YOUR 8ET? 28

125'

488RETURN
!~::=~NT'YOUR WAD IS SHOT,

OF DIAMONDS
OF DIAMONDS

? 4

4'8IFJI'"NO·TH£N4.e
mTFnilcili,"6THEN406
48ZPRINT"YoU ARE NOW Sl00 RXCHER"
'

WHAT IS ,YOUR BET? 0

YOUR NEW HAND:
1
5 OF DIAMONDS
5 OF CLU8S
3 -5 OF SPADES
5 --

3TtTI'FN A(.) • '-'Ttiln~39J-

413LETSoS.j00

NOW WE DRAW -- HOW MANY CARDS DO YOU WANT? 2
WHAT ARE THEIR NUM8ERS
? 2

3gePRINToI'LL GIVE YO.U S15 FOR IT"
"lULETs.a.15
392GoT0395
~::r:~:!:!~:T'S A PRETTY CRUMMY WATCH - I'LL GIYE YDU 125"

4UGOT0401
-48SPRINT'IT'S PUTE,
406LETS.S.25

I'LL OPEN WITH 31
WHAT IS YOUR BET? 20
IF YOU CAN'T SEE MY BET, THEN FOLD
WHAT IS YOUR 8ET? 31

m~~=~:;!\-::~~:"'H~MA~L~'~THEN37g

3ULETD·O.Z
3URETURN
TlnFo./l'INT (0.13) THEN409
in~:~~~;:ILL YOU PART WlTH THAT DIA~DND

YOUR NEW HAND:
1
8 OF DIAMONDS
3 -- KING OF CLUBS
5 -5' OF DIAMONDS

7
9 -2
4

9
6

OF DIAMONDS
OF DIAMONDS

OF SPADES
7 OF CLUBS
JACK OF SPADES

YOU HAYE SCHMAL TZ, KING HIGH
AND I HAYE A PAIR OF 7 S
I WIN
NOW I HRYE $ 136 AND YOU HAVE $ 264
DO YOU WISH TO CONTINVE? YES

I CHECK
WHAT IS YOUR BET? 5
I'LL SEE YOU

174

OF CLUBS
ACE OF SPADES

Quote

3-DlMENSIONAL TIC-TAC-TOE

Description

QUBIC is the game of tic-tac-toe in a 4x4x4 cube. You must get
4 markers in a row or diagonal along any 3-dimensional plane
in order to win.
It is up to you to keep track of moves (the
program does not print out a diagram as you play).
Each move is indicated by a 3-digit number (digits ~ separated
by commas), with each digit between 1 and 4 inclusive. The
digits indicate the level, column, and row, respectively, of
the move. You can win if you play correctly; although, it is
considerably more difficult than standard, two-dimensional 3x3
tic-tac-toe.
Source
QUBIC seems to have first shown up on a G.E. timesharing system
in 1968. Its original author is unknown •

175

•

PROGRAM LISTING
o REM

•
QU8IC- •
$ PRINT "DO YOU WANT lNITRUCTlOHS",
6 INPUT C.
7 IF C'-"NO' THEN 21
e IF C._"YES" THEN 13
9 PRINT "INCORRECT AN8W~R,
PLEASE TYPE 'YES' OR 'NO''''
te GO TO 6
13 PRINT "TH! GAM! IS TIC-TAC-TOE IN A 4 X 4 X 4
14 PRINT "EACH MOV! IS INDICATED BY A 3 DIGIT NUMBER, WITH UCH"
15 PRINT "DIGIT BETWEEN 1 AND 4 INCLUSIVE,
THE DIGITS INDICATE THE"
16 PRINT "LEVEL, COLIJMN, AND ROW, RESPECTIVELY, OF THE OCCUPI~D PLACE,"
2~ DIM X(64),LC76),MC76,4),YC16)
21 FOR I • I TO 16
22 RUD YCI)
23 NEXT I
24YOR I-I TO 76
25FOR J 0 I TO
26 READMCI,J)
27 NUT J
28 NEXT I
35 fOR I 0 I TO 64
40 LET X (Il 00
50 NEXT I
54 LET ZOI
55 PRINT "DO YOU WANT TO MOVE FIRST",
60 INPUT at
66 IF S'oONO" THEN 110
67 I ' a•• "YES" THEN 70
68 PRINT "INCORRECT ANSWER,
PLEASE TYPE 'YES' OR 'NO',",
69 GOTO 60
70 PRINT , ,
72 PRINT "YOUR MOVE",
&eINPUTJI
85 GOSUB 1800
9B LETKloINT(JI/100)
95 LF.T JZaCJ1-Kl*100)
96 L!T K2oINTCJ2/10)
97 LET Kl- JI - Kl*100 -K2*10
98 LET M.16.Kl+4.K~+Kl.2il
99 IF X(M)a0 THEN 109
100 PRINT "THAT SQUARt; IS USED, TRY AGAIN"
101 GOTO 70
109 LET X(M)ol
lie GOSUS 1050
180 rOR J>I TO
190 FOR 1:1 TO 76
200 IF Jol THEN 210
201 IF J-2 THEN 220
203 IF J<3 THEN 235
205 NEXT I
206 HEXXJ
207 GOTO 400
210 IF LCI'<>4 THEN 205
211 PRINT 'YOU WIN AS rOLLO~S'"
212 rOR Jal TO 4
21l LET MaMCI,v)
214 COSUS 1000
216 NEXT J
217 GOTO 500
220 IF LCI'<>15 THEN ~05
221 FOR val TO 4
222 LET MaMCI,J'
223 IF XCM)<>0 THEN 227
224 LET XC~).5
225 PRINT "MACHINE MOVES TO",
226 GOSUS 1000
227 NEXT J
228 PRINT ", AND WINS AS FOLLOWS"
229 FOR J-l TO 4
230 LET MaMCI,v)
231 GOSUB 1000
233 NEXT J
234 GOTO 500
235 IF LCI'<>] THEN 205
236 PRINT "NICE TRY MACHINE MOVES TO",
237 FOR v>1 TO 4
238 LU MaMC! ,J)
239 IF XCM)e>~ THEN 245
240 LET X(M,a5
241 GOSUS 1000
24] GOTO 70
245 NEXT J
248 GOTO 400
250 FOR I • I TO 76
251 LET L(Il.X(MCI,I»+X(MCI,2»+XIM(I,3»+X(M(I,4"
252 LET L 0 LCI)
255 IF L <2 THEN 290
260 If L)O] THEN 290
265 IF ~)2 THEN 1600
270 FOR J 0 I TO 4
275 If X(MII,J»<>0 THEN 285
280 LET X(MII,J)lol/e
285 NEXT J
290 NEXT I
295 GOSUB 1050
300 fOR I 0 I TO 76
305 IF ~CIlo1/2 THEN 1700
lI0 IF L(Ool+l/e THEN 1700
315 NEXT I
]20 GOTO 13~0
l60LET Z 0 I
162 If xCJ(z"oe THEN 3Y0
]65 LET ZoZ+ I
]68 IF ZOl7 THEN ]62
]75 GO TO 1200
380 LET MOYCZ)
381 LET XCII)05
l85 PRINT 'MACHINE MOVES TO",

cuat,"

]89 aosue leu
]90 GOTO 70
400
410
412
415

420
425
430
435
440
445

LET XOX
FOR 1.\ TO 76
LET L(I)oXCMCI.I»+XCMCI,2»+XCM(I,3»+X(MCI,4»
LET LOLlI)
IF Lele TH!N 455
IF L>OII THEN 455
IF VIS THEN 1600
FOR Jol TO 4
If X(MCl,J,,00 THEN 450
LET X(~CI"O )"1/8

176

00 HUTJ
455
470
475
480
485

NEXT I

aosus uu

FOR 101 TO 76
IF L(I)-,S THEN 1700
IF L(I)oS+]!8 THEN 1700
490 NEXT.I
492 GOSue 1100
49) aOTO 250

!See PRINT " "
505 PRINT "DO YOU WANT TO TRY ANOTHER GAME",
510 INPUT XI
515 IF X'>"YES" THEN 35
SI6 Ir X'o"NO" THEN 520
517 PRINT "INCORRECT ANSWER, PLEASE TYPE 'YES' OR INO'"
518 GOTO 510
520 STOP
1000 LET Kl a INT((M-l)/16).1
1010 UT J20M-16*(Kl-1)
1030 LET K2 0 IHTC(J2-1)/4)+1
1035 LET K3_M_CKI_ll*16_CK2_1)*4
1040 LET MOKI"100+K2*10+KJ
1042 PRINT M,
1045 RETURN
1050 FOR S-I TO 76
1060 UT .II 0 MCSoI)
1070 LET naMCS,2l
1080 LET JJaM(S,])
1090 LET J4 a MCS,4)
1100 LET t.CS'.X(JIl+X(J2l+XCJ3)+X(v4)
1110 NEXT S
1120 RETURN
1200 FOR 101 TO 84
1210 IF X(I)<>0 THEN 1250
1220 LET XCI)=5
1225 LET Mal
1226 PRINT "MACHINE LIKES",
1227 GOSUB 1000
1228 PRINT" ,
1230 GOTO 70
1250 NEXT I
1252 PRINT "THE GAME IS A DRAW"
1255 GOTO 500
1300 FOR K-l TO 18
1305 LET poe
1310 FOR Io4*K-3 TO 4*K
1315 POR Jol TO 4
1]20 LET P.P+X(MCI,J'l
1125 NEXT J
1330 NEXT I
1345 IF P(4 THEN 1390
1350 IF pC5 THEN 1400
1355 IF pe9 THEN 1390
1360 IF P<10 TH~N 1400
1390 IIEXT K
1395 G08US 1800
1396 GOTO 160
1400 LET SOl/8
1405 FOR I04*K-3 TO 4*K
1410 GOTO 1703
1415 NEXT I
1420 LET 800
1425 GOTO 1405

1500 DATA 1,49,52,4,13,61,64,16,22,39,23,38,26,'42,27,43
15100ATA 1,2,3,4,5,&,7,8,9,10,11,12,13,14,15,16,17,19,19,20
1520 DATA 21,22,23,24,25,26,27,28,29,30,)1,32,33,]4,]5,36,]7,38
1521 DATA )9,40,41,42,43,44,45,46,47,48,49,50,51,52,5],54,55,56
1522 DATA 57,58,59,60,61,62,63,64
15230ATAl, 17,33,49,5,21,37,53,9,25,41,57,13,29,45,61
1524 ,DATA 2,18, 34, S~, &, 22, 38,54,10,26,42,58,14,30,46,62

152SDATA 3,19,35,51,7,23,39,55,11,21,43,59,15,31,47,63
1527 OA.l'A 4,20,36,52, ij, ~4, 4k\1, 56, 12, 28, 44,60,16,32,48,64
1529 DATA 1,5,9,13,17,21,25,29,3],37,41,45,49,53,57,61
1532 PArA 2,6,10,14,18,22,26, ]0, 34, 38, 42,46,50,54,58,62

1534 DATA 3,7,11,15,19,23,21,31,35,39,43,47,51,55,59,61
1536 DATA4, 8,12,16.20,24,28,32,36,-40,44,48,52,56,60,64
1538 DA.TAI ,6~ 11,16 d 7,22,27,32,:n, 38 ,43, 48 ,49,54, S9, 64

1540 DATA 13,10,7,4,29,26,23,20,45,42,39,36,61,58,55,52
1542 DATAl, 21,41,61,2,22,42,62,3,23,4],63,4,24,44,64
1544DATA 49,37,25,13,S0,3~,26,14,51,]9,27,15,S2,40,28,16

15460ATA 1,18,35,52,15,22,39,56, 9,26,4l,60, 13, 30, 41 ,64

lS48DATA

49,14,19,4,5J,38,23,~,S1,42,27,12,6t,46,31,16

1550DATA 1,22,43,64, Ib, 27,38,49,4,23,42,61,13,20,39,52
FO~ Jol TO 4
IF XCM(I,J»Ol/8 THEN 1650
LET X(M(I,JlloS

1600
1605
1610
1615
1620
1622

IF LCI,C5 THEN 1625
PRINT "LET'S SEE YOU GET OUT OF THIS,
MACHINE MOVES TO"I
GOTO 1626
i:~~ ~~~N~=~i~~J~OX' JUST IN THE NICK OF TIME, ~ACHINE MOVES TO",

1630 GOSUB 1000
1640 GOTO 70
!b50 NEXT J
1660 PRINT "MACHINE CONCEDES THIS GAME,"
1665 GOTO 500
1700 LET S-1/8
1703 IF !-rNTCI/4)*4)! THEN 1715
1705 LET A_I
1710 GOTO 1720
1715 LET A-2
1720 FOR JoA TO 5-A STEP ~-2*A
1725 II' XCMCI,J"oa THEN 1750
1730 NEXT J
1735 GO TO 1415
1750 ~ET X(MCI,J»)05
1755 LET MoMCI,J'
1760 PRIN'{ "MACHINE TAKES",
1770 GOSUS 1000
1780 GOTO 70
1800 FOR 101 TO 64
1810 Ir XCI)<>1/8 THEN 1850
1815 LET XCI)00
1850 NEXT I
1860 RE:TURN
2000 END

SAMPLE RUN
QUBIC

15:16

DO YOU WANT INSTRUCTIONS ?YES
THE GAME IS TlC-TAC-TOE IN R 4 X 4 X 4 ClIBE.
EACH HOVE IS INDICATED 8\' A 3 DIGIT NUI'IE:ER, WITH EACH
DIGIT BElWEEN 1 AND 4 INCLUSIVE.
THE DIGITS INDICATE THE
LEYEl, COLUMN, AND ROW,RESF'ECTlYELY, OF THE OCCUPIED PLACE.
DO YOU WANT TO I'IOYE FIRST ~\'£5
YOUR MOYE 1222
MACHINE MOVES TO 111
YOUR MOVE ?211
MACHINE MOVES TO 411
YOUR MOVE ?233
NICE TRV MACH I NE 110YES TO 244
YOUR MOVE 1122
MACHINE MOVES TO 414
YOUR MOVE 7422
NICE TRY MACHINE MOVES TO 122
YOUR MOVE 1121
MACHINE MOVES TO 114
YOUR MOVE ?32l
NICE TRY MACHINE MOYES TO 424
YOUR 110VE 1413
NICE TRY MACHINE MOIIES TO 141
YOUR HOVE 7444
MACHINE MOVES TO 141
YOUR MOVE ?142
MACHINE TAKES 112
YOUR MOYE ?113
I1ACHIN£ TAKES 223
YOUR MOVE ?141
THAT SQUARE IS USED, TRY AGAIN
\',1
!

YOUR MOYE 1332
MACHINE MOVES TO 441
YOUR MOVE 1241
lET'S SEE YOU GEl OUT OF THIS:
MACHINE MOVES TO 421
YOUR MOYE 7431
11RCH I NE MOVES TO 124 , ANi> WINS AS FOLLOWS
421 122 223 124
DO YOU WANT TO TRY ANOTHER GAME ?\'E5
DO YOU WANT TO MOVE FIRST ?\'ES
YOUR MOVE 1111
MACHINE MOVES TO 411
YOUR HOVE ?141
MACHINE MOVES TO 414
YOUR MOVE 1441
MACHINE HOVES TO 114
YOUR MOVE 7121
NICE TRV MACHINE MOVES TO 131
YOUR MOllE 7221
NICE TRV MACHINE MOYES TO 331
YOUR MOVE 1341
NICE TRY MACHINE MOVES TO 241
YOUR MOVE 1444
MACHINE MOYES TO 144
YOUR MOVE ?222
NICE TRY MACHINE MOIIES TO In
YOUR MOVE 7213
MACHINE TAKES 232
YOUR MOVE ?434
LET'S SEE YOU GET
OF THIS:
MACHINE MOYES TO 214
YOUR MOYE ?l14
MACHINE MOVES TO 223 , AND WINS AS "OlLOWS

our

241

212

223

214

DO YOU WANT TO TRY ANOTHER GAME ?NO

177

QUEEN

ONE CHESS QUEEN

Description
This game is based on the permissible moves of the chess queen-i.e., along any vertical, horizontal, or diagonal. In this game,
the queen can only move to the left, down, and diagonally down
to the left.
The object of the game is to place the queen (one only) in the
lower left-hand square (no. 150), by alternating moves between
you and the computer. The one to place the queen there wins.
You go first and place the queen in anyone of the squares on
the top row or the right-hand column. That is your first move.
The computer is beatab1e, but it takes some figuring. See if
you can devise a winning strategy.
Source
Source and author are totally unknown.

178

PROGRAM LISTING
I REM PLAYI QUE!N GAME,
2 PRINT "DO YOU WISH INSTRUCTIONS"'
9 RANDOMIZE
10 DIM SC64)
II FOR I • 1 TO 64
12 READ SCI)
U NEXT I
14 DATA 81,
71, 61, 51, 61, 31, 31, 11
15 DATA
82', 72,
52, 43'; 32, 22
16 DUA 103, 9],
83, 73, 63, 53, 43, 33
17 DATA 114, 104, 94,
B4,
74, 64, 54, 44
II DATA 125, 115, 105, 95, 85, 75, 65, 55
19 DATA U6, 126, 116, 106, 96, B6, 76, 66
20 DATA 147, 137, 137, 117, 107, 97,
87, 77
21 DATA 158, 148, 138, 12B, 118, 108, 98,
B8
22 INPUT WI
23 IF WI. "NO" THEN 30
24 IF
THEN 28
25 PRINT "INCORRECT ANSWER, PLEASE TYP! IYESI OR INOI",
26 'GOTO 22
28 GOSUB 5000
29 GO TO 100
30 GOSUB 5150
U REM ERROR CHECKS,
10" PRINT "WHERE WOULD YOU LIKE TO START"'
110 INPUT MI
115 IF MI • 0 THEN 232
120 LET Tl • INTCMl/10)
130 LET UI • MI - 10*TI
140 IF UI • 1 THEN 200
150 IF Ul • TI THEN 200
160 PRINT "PLEASE RUD THE DIRECTIONS AGUN,"
165 PRINT "YOU HAVE BEGUN ILLEGALLY,"
170 PRINT
180 GO TO 100
200 GO SUB 2000
210 PRINT "MACHINE MOVES TO SQUARE"l'I
215 Jr M • 158 THEN 3400
220 PRINT "WHAT IS YOUR MOVE",
230 INPUT Ml
231 IF Ml <> 0 THEN 239
232 PRINT
233 PRINT • IT ~OOKS LIKE I HAVE WON BY FORFEIT,"
234 PRINT
,US GO TO 4000
239 IF I'll <= M THEN 3200
240 LET TI • INTCMI/10!
250 LET Ul • Ml - 10*TI'
260 LET P • Ul • U
270 IF P <> 0 THEN 300
280 LET L • Tl • T
290 IF L Co 0 THEN 3200
295 GO TO 200
300 If U - T "
THEN 320
310 GO TO 200
320 IF Tl • T . . 2"P THEN 3200
3]0 GO TO 200
1990 REM LOCATE MOVE FOR MACHINE.
2000 IF Ml, 0'41 THEN 2180
2010 IF MI • 44 THEN 2180
2020 IF I'll • 73 THEN 2180
2030 IF Ml • 15 THEN 2180
2040 IF Ml • 126 THEN 2180
2050 IF Ml .'127 THEN 218~
2060 IF Ml • 158 THEN 3300
2065 LET C • 0
2070 FOR K • 7 TO
STEP 01
2080 LET U • UI
2090 LET T • Tl • K
2100 GO SUB 3500
2105 IF C • I THEN 2160
2110 LET U • U • K
2120 GO SUB 3500
2125 IF C • I THEN 2160
2130 LET T • T + K
2140 GO SUB 3500
2145 IF C • 1 THEN 2160
2150 NEXT K
2155 GO TO 2lB0
2160 LEt C • 0
2170 RETURN
2180 GO SUB 3000
2190 RETURN
29,90 REM RANDOM MOVE,
31lQJ0 LET ZORND
3010 IF Z > ,6 THEN 3110
3020 IF Z > ~3 THEN ]070
3030 LET U • Ul
3040 LET T 0 Tl +
3050 LET M • 10*T • U
3060 RETURN
3070 LET U • UI •
30B0 LET T • Tl +
3090 LET M .' 10*1 + U
]100 RETURN
3110 L!T U • Ul +
'3120 LET T • TI +
3130 LET M • 10*T • U
3140 RETURN
3190 REM ILLEGAL' MOVE MESSAGE,
]200 PRINT
3210 PRINT "Y 0 U
C H EAT , , , TRY AGAIN",
3220 GO TO 2']0
3290 REM PLAYER ,WINS,"'
n0e PRINT
3310 PRINT lie O:N G R.A T ~.}.I A T.'l, 0 ~ &, • • '." )1
3320 PRINT
]HePRXNT "YOU HAVE WON-.VEU ~ELL PLAlED,"
IUe,pl\INT , II IT LOOKS LIKE I HAVE MET MY MATCH,"
US0 PUNT "THANU rOR PLAYING--I CANIT WIN ALL THE, TIME,"
3360 PRINT
3370 GO TO 4000
U90 REM MACHINE WIN'S"
]400 PRINT'
1410 PRINT "N1CE TRY, BUT IT LOOKS LIKE I HAVE WOH,"
3420 PRINT "THANKS rOR PLAYING,"
IU0 PRINT
,"0 GO TO 4000
Htw REM TEST FOR MACHINE MOVE,
1500 LET M • 10*T • U

]510 IF M •
3520 IF M •

15B THEN 1570

127 THEN J570

3U0 II" M • IU THEN 3570
3540 IF' M • 75 THEN 3570
3550 IF' M • 73' THEN 3570"3560 Rn'URIi
3578 LilT C • 1
3580 GO TO
3990 REM ANOTHER GAMEl
4000 PRINT "ANYONE ELSE CARE TO TRY',
4020 INPUT Q'
4030 PRINT
4040 Ir QI •• YEI" THENUl0
4042 IF Q'."NO" THEN 4050
4045 PRINT "INCORRECT ANSWER, PLEASE TYPE IYESI OR INOI.,
4046 GOTO 4020
4050 PRINT "OK - - THANKS AGAIN,"
4060 STOP
"
4990 REM DIRECTIONS, ETC, , ,
5000, PRINT "WE ARE GOING TO PLAY A GAME BASED ON ONe: OF THE CHESS MOVES,"
5010 PRINT "OUR QUEEN WILL BE ABLE TO MOVE ONLY TO 'fH'E LEFT,"
5020 PRINT "DOWN, AND DIAGONALLY DOWN TO THE LErT,"
5030 PRINT
5040 PRINT "THE OBJECT OF THE GAM~ IS TO PLACE THE QUEEN IN THE"
5050 PRINT "LOWER LEFT-HAND SQUARE sY ALTERNATING MOVES BETWEEN"
5060 PRINT "YOU AND THE MACHINE/ THE FIRST ONE TO PLACE THE QUEEN.
5070 PRINT "THER!, WINS."
5080 PRINT
5090 PRINT "YOU GO fIRST AND PLACE THE QUEEN IN ANY ONE OF THE"
5100 PRINT "SQUARES ON THE TOP ROW OR THE PIGHToHAND COLUMN,"
5110 PRINT "THAT WILL BE YOUR FIRST MOVE,"
5120 PRINT "WE WILL THEN ALTERNATE MOVES,'"
5130 PRINT "YOU MAY FORrEIT AT ANY TIME BY TYPING '0 ' AS YOUR MOVE,'
5140 ,'RiNT "BE SURE TO PUSH THE I RETURN I KEY AFTER ~ACH RESPONSE,"
5150 PRINT
5160 FOR A • 0 TO 7
5170 rOR B • 1 TO 8
5180 LU 1 • UA .. 8
5190 PRINT SCI',
5200 NEXT B
5210 PRINT
5220 PRINT
5225 PRINT
5230 NEXT A
5240 PRINT
5250 RETURN
99999 END

nil

wI."ns"

SAMPLE RUN
DO YOU I.fISH INSTRUCTIONS ?YES
WE ARE GOING TO PI-A ... A GAME BASED ON ONE OF THE CHESS MOYES,
OUR QUEEN WILL BE ABLE TO MOYE ONL ... TO THE LEFl',
DOWN, AND DIAGONALLV DOWN TO THE LEFT,
THE OBJECT OF THE GAME I S TO PLACE THE QUEEN I N THE
LOWER LEFT-HAND SQUARE B'" ALTERNATING MOYES BETWEEN
,YOU AND THE MACHINEI THE FIRST ONE TO PLACE THE QUEEN
THERE, WINS,
YOU GO FIRST AND PLACE THE QUEEN I N ANy, ONE OF THE
SQUARES ON THE -rop ROW OR THE RIGHT-HAND COLUMN,
THAT WILL BE YOUR FIRST'MOYE,
WE WILL THEN AL TERNflTE: MOYES,
,
,
YOU MAY FORFEIT AT AN,' TIME BY TYPING' 0' AS YOUR MOVE,
BE SURE TO PUSH THE ' RETURN' KEV AFTER, EACH RESPONSE,
81

193

114

104

,84

125

~15

195

136 "126

116

106

8';

147

137

127

117'

197

158

148

138

128

118

108 '98

WHERE WOULD YOU LI KE TO START ?81
"'ACH! NE MOYES TO SQUARE 158
NICE TRY, BUT IT LOOKS LIKE I HAYE WON,
THANKS FOR PLA ... ING,
ANYONE ELSE CARE TO TR'I' ?YES
WHERE WOULD YOU LIKE TO START ?158
PLEASE READ THE DIRECTIONS AGAIN,
YOU HAVE BEGUN ILLEGALLY,
WHERE WOULD YOU LIKE TO START ?44
MACH I NE MOYES TO SQUARE 55
WHAT I S YOUR MOVE ?65
MCHlIllE MOVES TO SQUARE 75
WHAT IS 'YOUR 1t0VE ?86
MACHINE MOVES TO SQUARE 126
WHAT IS YOUR MOVE ?148
riACHINE MOVES TO SQUARE 158
NICE : TRY, BUT IT LOOKS LIKE I HA"'E WON,
THANKS FOR PLAYI NG,
ANYONE ELSE CARE TO TRY ?NO
OK - - THANKS AGAIN,

179

REVRSE

ORDER A LIST OF NUMBERS

Description
The game of REVERSE requires you to arrange a list of numbers
in numerical order from left to right. To move, you tell the
computer how many numbers (counting from the left) to reverse.
For example, if the current list is:
2

345

789

and you reverse 4, the result will be:
5

432

789

Now if you reverse 5, you win!
There are many ways to beat the game, but approaches tend to be
either algorithmic or heuristic. The game thus offers the player
a chance to play with these concepts in a practical (rather than
theoretical) context.
An algorithmic approach guarantees a solution in a predictable
number of moves, given the number of items in the list. For
example, one method guarantees a solution in 2N - 3 moves when
the list contains N numbers. The essence of an algorithmic
approach is that you know in advance what your next move will
be. One could easily program a computer to do this.
A heuristic approach takes advantage of "partial orderings" in
the list at any moment. using this type of approach, your next
move is dependent on the way the list currently appears. This
way of solving the problem does not guarantee a solution in a
predictable number of moves, but if you are lucky and clever,
you may come out ahead of the algorithmic solutions. One could
not so easily program this method.
In practice, many players adopt a "mixed" strategy, with both
algorithmic and heuristic features. Is this better than either
"pure" strategy?
Program Author
Bob Albrecht
People's Computer Co.
Menlo Park, CA 94025

180

PROGRAM LISTING

[I
IJ

iii

II
JI
II
~
It

1,'1

ti
[I
;1

'[
I
I
I
1

109
129
110
140
150
160
189
199
299
218
228
230
240
250
260
289
290
318
320
330
350
360
370
398
490
410
428
43'13
448
450
460
4;'0
489
490
500

PRINT\PRINT "REVERSE -- A GAME OF SKILL"\PRINT
RANDOM I ~E
DIM A(20)
REM ••• N=NUMBER OF NUMBERS
N=9
I NPUT "DO YOU WANT THE RULES (l'E5 OR NO)"; A$
IF A$."NO" THEN 210
GOSUB 710
REM ••• MAKE A RANDOM LIST ff(1) TO A(N)
A(1)=INT«N-1)*RND)+2
FOR K=2 TO N
A(K)=INT(N*RNQ)+1
FOR J=1 TO K-1
IF A(K)=A(J) THEN 230
NEXT J\NEXT K
REM
PRINT ORIGNIAL LIST AND START GAME
PRINT\PRINT "HERE WE GO
HIE LIST IS:"
T=B
GOSUe 610
INPUT "HOW MANY SHALL
REYERSE";R
IF R=B THEN 520
IF R(=N THEN :l90
PRINT "OOPS! TOO MANI' CAN REVERSE AT MOST"N\GOTO :3:30
T=T+1
REM
REVERSE R NUMBERS AND F'F:I NT NEW.L1 ST
FOR K=1 TO INT(RI2)
Z=A(K)
A(K)=A(R-K+1)
A(R-K+1)=Z
NEXT K
aosue 610
REM
CHECK FOR A WIN
FOR K=1 TO N
IF A(K)<>K THEN 330
NEXT K

* ••

***

.**

510 F'RHlT "YOU WON IT IN"T"MOVES
530
559
560
600
610
650
790
710
720
730

Ne
750
760
779
?se
7ge
803
810
820
999

!"'.PRINT

INPUT "TRY AGAIN (l'E5 OR NO)";A$
IF A'=" YES" THEN 210
PRINT\PRINT "0. K.
HOPE I'OU HAD FUN!! "\,GOTO 999'
REM ••• SUBROUTINE TO PRINT LIST
PRINT\FOR K'1 TO N\PRINT A(K); \NEXT K
PRINT\PRINT\RETURN
REM ••• SUBROUTINE TO PRINT THE RULES
PRINT\PRINT "THIS IS THE GAME OF 'REVERSE'. TO WIN, ALL ~OU HAVE"
PRINT "TO DO 15 ARRANGE A LIST OF NUMBERS 0, THF:OUGH"N")"
PRINT "IN NUMERICAL ORDER FROM LEFT TO RIGHT. TO MCIVE, ,'OU"
PRINT "TELL ME HOW MAN~ NUM8ERS (COUNTING n:OM THE LE"FT> TO"
PRINT "REVERSE. FOR EXAMPLE, IF THE ClIRF:ENT LIST IS:"
PRINT\PRINT "2 ] 4 5 1 6 7 8 9"
PRINT\PRINT "AND I'OLI REVERSE 4, THE.RESULT WILL BE:"
PRINT\PRINT "5 4 ] 2 1 6 7 S 9"
PR I NT\PR I NT "NOW, IF ,'OU REVERSE 5, ,'Oll WIN I "
PRINT\PRINT "12,345678 9"\PRINT
PRINT "NO DOllBT YOU WILL LIKE THIS GFIME OF SKILL, BUT"
PRINT" IF YOLI WANT TO QUIT, REVERSE 0 (ZERO). "\F'RINT\RETURN
END

HOW MANY SHALL I

REVERSE? 4

239

REVERSE? 9

1, 5

HOW MANY SHALL I

546
REVERSE? 9

123

HOW MANY SHALL I

987

REYERSE? 9

HOW MANY SHALL I

REYERSE? 3

REVERSE? 6

HOW MANY SHALL I

987

HOW MANY SHALL I

REVERSE? 3

HOW MANY SHALL I

REVERSE? 6

HOW MANY SHALL I
2

REVERSE? 2

HOW MANY SHALL I

REYERSE? 1

HOW MANY SHALL I

REVERSE? 2

HOW MANY SHALL I

REYERSE? 2

HON MANY SHALL I

HOW MANY SHALL I
645

REYERSE? 6

HOW MANY SHALL I

REVERSE? 3

HOW MANY SHALL I

REYERSE? 9

READY
5

789
REYERSE~

HOW MANY SHALL I
256

789

SAMPLE RUN

YOU WON IT-IN 22 MOYES'"

REYERSE -- A GAME OF SKILL

TRY AGAIN (YES OR NO)? I'ES

DO YOU WANT THE RULES (;'E5 OR NO)? l'E5

HERE WE GO

THIS IS THE GAME OF 'REYERSE'. TO WIN, ALL YOU HAVE
TO DO IS ARRANGE A LIST OF NUMBERS <1 THROUGH 9 )
IN NUMERICAL ORDER FROM LEFT TO RIGHT. TO MOVE, I'OU
'TELL ME HOW MANY NUMBERS (COUNTING FROM THE LEFT) TO
REVERSE. FOR EXAMPLE. I F THE CURRENT ~ I ST IS:
~

AND YOU REVERSE 4,

THE RESULT WILL BE:

IF YOU REYERSE 5.

YOU IoIIN!

eUT

REVERSE? 6

36497

HOW MANY SHALL I REVERSE? 8

HOW MANY SHALL I

REVERSE? 9

181

REYERSE? 4

HOW MANY SHALL I

REYERSE? 7

HOW MANY SHALL I

REVERSE? 2

HOW MANY SHALL I REVERSE? 2

REYERSE? 7

HOW MANY SHALL I

49785

REVERSE? 6

HOW MANY ,SHALL I REVERSE? 9

HOW MANY SHALL I

REVERSE? 2

HON MANY SHALL I REYERSE? 8

689

HOW MANY SHALL I

REVERSE? 6

HOW MANY SHALL I

REVERSE? 2

THE LIST IS:

REVERSE? 4

HOW MANY SHALL I

NO DOUBT YOU WILL L'IKE THIS GAME OF SKILL,
IF YOU WANT TO QUIT. REVERSE 0 (ZERO).

HOW MANY SHALL I

123 4 5 6 7 8 9

HERE WE GO

REYERSE? 9

HOW MANY SHALL I

5 4 3 2 1 6 7 8 9
NOW,

712

HOW MANY SHALL I

4 5 1 6 7 8

THE LIST IS:

REYER5E? 5

YOU WON IT IN 11 MOYES !!!

ROCKETLAND

AN APOLLO CAPSULE ON THE MOON

Description
ROCKET, known also as LUNAR, LEM, and APOLLO, is by far and away
the single most popular computer game.
It exists in versions
that start you anywhere from 500 feet to 200 miles above the
moon, or other planets, too. Some allow the control of directional
stabilization rockets and/or the retro rocket. The three versions
presented here appear to be the most popular of the many variations.
ROCKET.
In this program, you set the burn rate of the retro
rockets (pounds of fuel per second) every 10 seconds and attempt
to achieve a soft landing on the moon.
200 lbs/sec really puts
the brakes on, and 0 lbs/sec is free fall.
Ignition occurs at
8 lbs/sec, so do not use burn rates between 1 and 7 lbs/sec.
To make the landing more of a challenge, but more closely approximate the real Apollo LEM capsule, you should make the
available fuel at the start (N) equal to 16,000 lbs, and the
weight of the capsule (M) equal to 32,500 lbs in Statement 15.
Some computers object to the series expansion calculations in
Statements 91 and 94 (as you near the lunar surface, these
numbers get very small).
If yours does, substitute the expanded
form--for the expansion in Statement 91:
-Q*(1+Q*(1/2+Q*(1/3+Q*(1/4+Q/5»»
You should be able to figure the other one out yourself.
ROCKTI.
In this version, you start 500 feet above the lunar
surface and control the burn rate in I-second bursts. Each unit
of fuel slows your descent by 1 ft/sec. The maximum thrust of
your engine is 30 ft/sec/sec.
ROCKT2. This is the most comprehensive of the three versions
and permits you to control the time interval of firing, the
thrust, and the attitude angle.
It also allows you to work in
the metric or English system of measurement. The instructions
in the program dialog are very complete, so you shouldn't have
any trouble.
In most versions of ROCKET, the temptation is to slow up too
soon and then have no fuel left for the lower part of the
journey. This, of course, is disasterous (as you will find out
when you land your own capsule)!

182

Source
To put all the conflicting stories to rest, we can say with
confidence that ROCKET was originally written in FOCAL by a
Lexington High School student back in the mid 60's.
ROCKET:
Jim Storer
Lexington High School
Lexington, MA 02173

ROCKTl:
Eric Peters
Digital Equipment Corp.
Maynard, MA 01754

ROCKT2:
William Labaree I I
621 Oakley Place
Alexandria, VA 22302

'1'1

"'
I

183

1958 by Editorial Projects, Inc.

ROCKET
ROCKET

PROGRAM LISTING

EDUSYSTEM J8

~ PRINT "THIS IS A COMPUTER SI~U~ATION OF AN APO~LO ~UNAR'
3 PRINT 'LANDING CAPSULE, '\PRINT\PRINT
4 PR I NT 'THE ON-BOARII CQI'IPUTER HAS FA I ~ED (I T WASN'T I'IADE BY'
5 PRINT "DIGITAL) SO YOU HAVE TO LAND THE OAPSULE MANUALLY'
6 PRINT'PRINT 'SET BURN RRTE OF !!ETRO ROCKETS TO ANY ",ALVE BE1WUN'.
? PRINT '9 (FREE FRLL) RND ~.e ("'AXII'I!)'" BURN) POUNDS P~R SEeONp'
Q PRINT. 'SET NEW BURN RATE EVERY 10 S~CONOS, '\PRINT
9 PRINT 'CAPSULE WEIOHT 32, see LEIS, FUEL WEIOtiT 1',5ee UIS'
19 PRINT\PRINT\PRINT '0001) LVCK!!!'

11 ~-e
13 PRINT\PRINT 'SEc', 'I'll + FT', "MPH', 'LB FUEL', 'BURN RAT/i:'\PRINT
15 A-128\V-1 \1'I.3~888\N.1nee\Q.1E- 3\h1,$
21 PRINT ~,INHAl; INH528h(A-INT(A»),Uee"V,I'I-N,\INPUT K\T o 18
31 IF I'I·N<, '91 THEN 41\IFT<,881 THEN 21\S-1\IF I'I>.N+S*~ THEN ~5
32 s~(""N)/K
35 GOSUB 91 \IF 1(-8 THEN 71 \IF Y(=' THEN lEr\lF J<e THEN $1
38 GOSue 61\GOTO ~1
41 PR I NT "FUEL OUT RT' L 'SEe '\$* (-V+SQR (Y*V+2 .. A*G »/I.lW~Y+G*S\L.L +$
31 W=36ee*V\PRINT"ON MOON AT'L'SEC • IMPRCT YELOCITY' W '"PH"
52 IF W)1,2 THEN S~\PRINT 'PERFECT LANDING! (LUCKY)'\GOTO 95
53 IF W>10 THEN 56\PRINT· 'GOOD LANPIi'!G (COULl) BE ElETTER)"GOTO 93
.
56 IF W)611 THEN 58 'PRINT 'CRAFT DAMAGE"" , YOU' RE STRAN~EI) HElIE VNTI~'
57 PRINT 'R RESCUE PRRTY ARRIVES,
HOPE YOU HAY!; ENOUGH OXYGEN! '\GOTO 95
58 PRINT "SORRY, -BUT THERE WERE NO SURYIVORS,., YQV 8LEW IT!"
59 PRINT 'IN FACT, YOU BLRSTED A NEW LUNRR CRATER'W", an7'FT DEEP'
6~ GOTO 95
61 L.L+S\T-T-S\H=M-S"K\R=I\V-J\RETVRN
71 IF 5(5E-3 THEN 51\P-Y+SQR(Y*Y+2 .. A*(G-Z*K/M»\S-2*A/D

73 GOSUB 91\0051.18 61\00TO 71

81 W=(1-M*G/(Z*Kl)/2\S-M*Y/(Z*K*(W+SQII!(W"W+V/?»)+,e5\G05UB 91
83 IF 1<.8 THEN 74\00$1.18 61\1F J>0 THEN 31\1.F V;>, THEN $1\(lOTO 31
91 Q=S.K/"\J=Y+G"S+Z.(-Q-Q*Q/~~Q-3/3·Q-4/4-Q-'/~)
94 lcA.G*S*S/2-Y*S+Z*S*(Q/2~Q-2/~+Q-3/12+Q-4/20+Q-5/~8)\RETUR~
95 PRINT\PRINT\PRINT\"RINT 'TRY RGAIN??'\OOT\l 6
9~ END

SAMPLE RUN
ROCKET

EOUSVSTEI'I 30

THIS IS A COMPUTER SIMULATION 'OF AN APOL~O LUNAR
-LANDING CAPSULE,
THE ON-BOARO COMPUTeR HRS FAILED (IT WASN'T MAI>' BY
DIGITAL!' 50 YOU HAYE TO LANO THE CAPSULE i'lfilNUALLY

SeT BURN RRTE OF RETRO ROCKETS TO ANY VALuE BETWEEN

e (FREE FRLL) ANO 2se (i'lAXIMUM BURN) POUNDS PER SECOND
SET NEW BURN RRTE EVERY 18 HCONI)S.

CAPSULE WEIQHT la,5ge LeS,

FUEL WEIGHT

1~, 500

Las

GOOD LUCK!!!

SEC

"I + FT

"PH

LB FUEL

IVR·N RATE

120 0
199 SUS
99 4223
99 2983

3680

16588

3636
37es

16:188
16380
16500

10
?8

1855

3144

165e8

3959
1955

37$0
3816

?8
·10
?e

2,83
1883
1191

3e~2

16580
'6598
16598
1458a

1251
2549

2659, 65
2196. 94
ina, 63

18
28
38
48

58
68

79
6$

47
37

28
20

~672

)482,87
J086,7

188
118
128

13
8 370

139

~58'

un. 1l

14,

<l28~

5~~. $'8

159

168.
179
188

8
9

4042
1863
988

84,1831

212.242
4~,'129

II
9

438

18,1117

190

~41

298

$, 68632
2, 7'91
4,27036

3.65<166

219

137
193

220

<16

238

TRY AGAIi'!??

184

128.
1289

1~$00

?28~

18500
85ge
6!5ee

?;20e

45ee

7~811

2508
15'"
19S9
8S8

'7188

.680
569

450
:16"

265

1,66462
167
IMPACT YELOCITV 1. ~842 i'lPti

ON "OON AT 233.1$3 $EC GOOD ~ANOING (COU~O BE. 'nTE~)

'l'e

1280

nee

745
?~e

717

712
711
?~

?',~

'1'9, S

'1'9, l

RUN

ROCKTl PROGRAM LISTING

S~LE

LIST

RUN
ROCKT1
03:39 PM
08-MAY-73
LUNAR LANDING SIMULATION

03:37 PM

~OCKT1

0e~MRY-73

70 PRINT

'LUNAR LANDING SIMULATION'
~0 PR I NT ,----- -~----- -~--------' \PR I NT
100 INPUT 'DO VOU WANT I NSTRI)CT I (INS (YES OR NO)', A$
120 IF M-'NO' THEN 390
169 PRINT
2e0 PRINT 'YOU ARE LANl>ING ON THE MOON AND HAVE TAKEN OYER MANUAL'
210 PRINT 'CONTROL 500 FEET ReOYE R 130(11) LANDING SPOT.
YOU HAY~ A"
220 PRINT "DOWNWRRD VELOCITY OF 50 FT/SEC.
120 llNITS OF FUEL REMAIN.
~25 PRINT
230 PRINT "HERE RRE THE RULES THAT GOyERN YOUR SPACE YEHICLE:'
240 PRINT" (1) AFTER EACHSECONl), THE HEIGHT, YELI)CIH', AND REMAINING"
:/59 PRINT"
FIJEL WILL BE REPORTED .•
a~e PRINT' (2) AFTER THE REPORT, A '?' WILL ~E H'PEI).
ENTER THE'
270 PRINT'
NI)MBER OF UNITS OF PUEL YOU WISH TO BURN I;>URING THE'
2SB PRINT'
NEXT SECOND.
EACH UNIT OF FUEL WILL SLOW YOUII: oESCENT"
299 PRINT
BY 1 FUsEe, •
319 PRINT '(~) THE MAXIMUM THRuST OF ~'OUR ENGINE IS 30 FT/SEC/SEC OR'
329 PR I NT
30 UNI TS OF FI)EL PER SECOND .•
33~ PI\: INT '(4) WHEN YOU CONTACT THE LUNAR SURFACE, YOll1\: DESCENT ENG I NE'
;349 PRINT
WILL AUTOMATICALL~' CUT OFF AND "'01.1 WILL BE GIYEN A'
350 PRINT"
REPORT OF yr.IIJR LANDING SPEED AND REMAINING PUEL .•
360 PR INT '(5) IF YOU RUN OUT OF F~IEL., THE ,?' WILL NO LONGER APPEAR,"
379 PRINT
81.1T you SEcaNe' BY SECOND REPORT WILL CONTINllE UNTIL'
389 PRINT
VOu CONTACT THE LI)NAR SURFAr.:E. '\PRINT
;j~9 PRI NT 'BEG I NN I NG LANI;oING PROCEI)I)RE.
""PR INT
419 PRINT '0 0 0 0
I. I) CK ! ' "
4l!0 PRINT\PRINT
440 PRINT 'SEC FEET
SPEED
FI)EL
PLOT OF DISTANCE'
4~0 PRINT

455
49'0
500
510
520

DO VOU WANT INSTRUCTIONS (YES OR NO)? YES
VOU ARE LANDING ON THE MOON ANI) HAVE TAKEN OYER MANUAL
CONTROL 500 FEET ABOYE A GOOI) LANDING SPOT.
YOU HAVE A
DOWNWARD VELOCITY OF 50 FTiSEC.
120 UNITS OF FUEL REMAIN.
HERE ARE THE RULES THAT GOVERN YOUR SPACE VEH I CLE:
(1) AFTER EACH SECOND, THE HEIGHT, VELOCITY, AND REMAINING
FUEL WI~L BE REPORTED.
(2) AFTER THE REPORT .. A '?' WILL BE TYPED.
ENTER THE
NUMBER OF UNITS OF FI)EL YOU WISH TO elJRN DURING THE
NEXT SECOND
EACH UNIT OF FUEL WILL SLOW YOUR DESCENT
BY 1 FT ISEC.
e]) THE MAXIMUM THRUST OF YOUR ENGINE IS ]0 FT/SEC/SEC OR
30 UN ITS OF FI)EL PER SECOND.
(4) WHEN YOU CONTACT THE LUNAR SURFACE, YOUR DESCENT ENGINE
WILL AUTOMATICALLY CUT OFF AND ','OU WILL eE GIVEN A
REPORT OF YOI)R lAND I NO SPEED AND REMA I N I NG FUEL.
(5) I F YOU RUN OUT OF FUEL, THE '?' WILL NI) LONGER APPEAR,
BUT YOUR SECOND B'I' SECOND REPORT WILL CONT I NUE UNT I L
YOU CONTACT THE LUNAR SURFACE.
BEGINNING LANDING PROCEDURE ..

fi'fHNT T; T;'8(4); H; TAS(12).: v; TA8(20); F.: TAE:(29); • I·; TAe:(H;12"'2~); "*"
INPUT 9
IF B<e THEN 950

IF ~)~0 THEN 8-30
;30 IF 8>F THEN B=P
540 Yl=V-8+S

U C K

SEC

FEET

SPEED

FUEL

500

120

449

117

396

114

341

111

284

108

227

11211

@J;

? 3

610 IF F)0 THEN 4~0
6lS IF 8=0 THEN 940
620 PRINT " ••• OUT OF FUEL ••••
640 PRINT T, TA8(4); H; TAS(1;?); Y; TAB(20); F.' TAS(29); • I '; TAB(Hl12+29); "0'

"~**

? 9
6

? 9
7
123
? 8
76.5
8
? 25

CONTACT ***"

680 N-H+. 5.('<+1'1)

690 IF 8=5 THEN 720
700 0= (-Y+SQR (V'V+H. (10~2*B») I (5-B)

','10 0010 130
'll0 DpH/Y

ne 1'1'\1+(5-8).0

160 PRINT "TOUCHDOWN AT".' T+O; ·SECONDS. "
770 PRINT "LANDING l'ELOClT~' ='.' 1'1; "FT/,EC'

790 I~ 1'1()0 THEN e10
S00 PRINT "CONG~ATU~ATIONS!'
60S PRINT "YOUR LICENSE WILL

~99

? 25
10
? 25

2~.

51. 5
54
51.

BUT YOU SLEW IT! ~ ~! It

'APPROPRIATE CONDOLENCES WILl.. e. SENT TO YOUR NEXT I)F KIN .•
PR I NT\PR ItH\PRI NT
INPUT "ANQTHER MISSION',A$
IF R$-'YES' THEN ~90
PRIN"PRINT 'CONTROL OU~ '\PRINT
END

0
0
0

I
I
I
I
I
I
I

1'*

3;1,

15
20

;t:**

-10
-5

8:l~ PRINT

880

41.

A PERFECT LANDIN6"
RENEWED.
. ... LATER. '

ABS(Y1)<2 THEN $40

9:.10 PRl",T "***** SORRY.

OUT OF FI)EL
-15
11 31. S

7ao PRINT F, "UNITS OF FUEL REMAINING. "

810 IF

PLOT OF I)ISTANCE

7
5

1.;50 B=0
<;60 ~OTO 540

670 PRINT

850

? 3
2
? 3

590 T=T+~
600 1'=1'1

870

? 3

569 ~=F-B
570 H=H-.5*(V+V1)
5S0 IF H<=0 THEN 070

840

GOO D

T=e\H=50~\Y=50\F=1Z0

0
0

*
*
*

CONTACT
***
***
TOUCHDOWN AT 18. 6476 SECONDS.
LANDING Vli:LOCIT'1 = 23:. 2379 FT/SEC
0 UNITS OF FUEl REMAININI3.
SORRY, eUT YOU eLEW 1T ! ~ ! !
APPROPRIATE CONDOLENCES WILL BE SENT TO

****If':

YOUR NE:H OF KIN.

IlEAIlY
ANOTH~R MISSION? '1£5
BEGINNING LANDING PROCEDURE ..

G 0 0 D

U C K

, ! ,

SEC

FEET

SPEED

FUEL

500

120

450

115

PLOT OF D I STANCE

? 5
1

? 5
2

400

110

350

105

? 5
3

? 5
4

300

100

? 5
5
? 5

250

200

150

1 5
7

? 5
100
8
? 5
9
50
? 30
1912.5
? 39

*** CONTACT ***

TOUCHDOWN AT 11 SECOND~
LANDING VELOCITY $ 0 FTiSEC
15 UNITS OF FUEL REMAINING.
CONGRATIJLRT IONS! !
A PERFECT LANI) I NG!
YOUR LICENSE WILL ~E RENEWED.
. ... LATER.

185

ROCKT2

PROGRAM LISTING

7 REM LUNARI IS A INTERACTIVE GAME THAT SIMULATES A LUNAR
8 REM LANDING SIMILAR TO THAT OF THE APOLLO PROGRAM.
9 REM THERE IS ABSOLUTELY NO CHANCE INVOLVED.
I e LET Z$="GO"
15 LET BI=I
20 LET 11=17.95
25 LET F"l=5.25
30 LET N=7.5
35 LET R3=925
43 LET V3=1.29
45 LET T=3
53 LET H3=53
55 LET R=R3+H3
60 LET A=-3.425
55 LET RI=3
73 LET AI=8.8435.lE-04
75 LET R3=0
83 LET A3=3
85 LETMI=7.45
93 LET 113=MI
95 LET B=75~
130 LET TI=0
105 LET F=3 '
110 LET P=0
liS LET N=I
120 LET 112=0
125 LET S:0
130 LET C=0
135 IF Z$="YES" THEN 1150
140 PRI NT
145 PRINT "LUNA~ LANDING SIMULATION"
150 PRINT
155 PRI NT "HAVE YOU FLOWN ON AN APOLLO/LEN MISSION BEFORE#";
150 PRINT "(YES OR NO)";
155 INPUT Q$
170 IF Q$="YES" THEN 190
175 IF Q$="NO" THEN 205
180 PRINT "JUST ANSWER THE ~UESTION, PLEASE";
185 GOTO 163
190 PRINT
195 PRINT "ENTER 11EASUREI1ENT OPTION NUMBER";
200 GOTO 225
205 PRINT
210 PRINT "WHICH SYSTE~1 OF' MEASUREMENT DO YOU PREFER 7"
215 PRINT " I=METRIC
0= ENGLISH"
220 PRI NT "ENTER THE APPROPRIATE NUMBER";
225 INPUT K
230 PRINT
235 IF K=3 THEN 280
240 IF K= I THEN 250
245 30TD 220
250 LET Z=1852.8
255 LET 1'1$="METERS"
260 LET G3=3.5
255 LET N$=" KIL0I1ETERS"
270 LET G5=1200
275 GOTO 305
280 LET Z=60Se
285 LET N$="HFT"
290 LET G3=.592
295 LET N$=" N.ilILES"
,~~0 LET 85=Z
305 I , BI=3 THFN 67C
31?' IF q,="YES" THFN 485
315 PRINT
32e PRINT" YOU ARE ON A LUNAR LANDING MISSION.
AS THE PILOT OF"
325 PRINT "THE LUNAR EXCURSION MODULE, YOU WILL BE EXPECTW TO"
33e PRINT "GIVE CERTAIN COl1MANDS TO THE MODULE NAVIGATION SYSTEM."
335 PRINT" THE ON BOARD COMPUTER WILL GIVE A RUNNING ACCOUNT"
340 PRINT "OF INFORfl.~TION NEDED TO NAVIGATE THE SHIP."
345 PRI NT
35e PRINT
355 PRI NT "THE ATTITUDE ANGLE CALLED F'OR IS DESCRIBED AS F'OLLOWS-"
360 PRINT "+ OR -180 DE8REES IS DIRECTLY AWAY F'ROM THE MOON"
355 PRI NT "-90 DEGREES IS ON A TANGENT IN THE DIRECTION OF ORBIT"
370 PRINT "90 DEGREES IS ON A TANGENT FROM THE DIRECTION OF ORBIT"
375 PRINT "3 (ZERO) DEGREES IS DIRECTLY TOWARD THE MOON"
38r. PRI NT
385 PRINT TAB(3e);"-180,18~"
,~9~ PRINT TAB(34),"t"
395 PRI NT TA3(27);"-90 < -+- > 90"
43~ PRI NT TAB(34);"I"
4~5 PRINT TAB(34);"0" .
41D PRINT TA3(23);"« DIRECTION OF ORBIT « "
415 PRINT
42€ PRINT HB(27);"SURFACE OF !-lOON"
425 PRINT
430 PilINT
435 PRINT "ALL ANGLES 3ETWEEN -18ZAND 18D DEGREES ARE ACCEPTED."
44Z PRINT
445 PRINT "I FUEL UNIT = 1 SEC. AT MAX. THRUST"
450 PRINT "ANY DISCREPANCIFS ARE ACCOUNTED FOR IN THE USE OF FUEL"
A55 PRINT "FOR AN ATTITUDE CHANGE."
450 PRINT "AVAILABLE ENGINE POIIER: 0 (ZERO) AND ANY VALUE BETWEEN"
455 PRINT "10 AND le~ PERCENT"
A7D PRINT
475 PRINT "NEGATIVE THRUST OR TIME IS PROHIBITED"
48~ PHI NT
485 PRINT
490 PRINT "INPUT: TIME INTERVAL IN SECONDS ------ (n"
495 PRI NT
PERCENTAGE OF THRUST ---------- (P)"
5ze PHI NT "
ATTITUJE ANGLE IN DEGREES ----- (A)"
505 PRINT
510 IF Q$="YES" THEN 53'
'515 PRINT "FOR EXAMPLE:"

520 PRINT "T,P,A?10,55,-60~
525 PRINT "TO ABORT THE MISSION AT ANY TIME, ENTER 0,0,3"
53~ PRI NT
535 PRINT "OUTPUT: TOTAL TIME ELAPSED IN SECONDS"
540 PRI NT
HEIGHT IN ";rl$
545 PRINT"
DISTANCE FRO!,I LANDING SITE IN ";11$
550 PRINT"
VERTICAL VELOCITY IN ";M$l"/·SECOND"
555 PRINT"
HORIZONTAL VELOCITY IN ";M$;"/SECOND"
560 PRI NT "
FUEL UNITS RE~I.AINING"
565 PRI NT
570 GOTO 570
575 PRINT

580 PRINT "T,P,A";
5 85 INPUT T I, F, P
5se LET F=FIlZ0
595 IF T 1<0 TH;:N 9~'5
5,,~ IF T 1=0 THEN 1390

186

505 IF ABS(F-.05»1 THEN 945
510 IF ABS(F-.05)<.35 THEN 945
615 IF ABS(P»183 THtN 925
623 LET N=20
525 IF Ti <430 THEN 535
630 LET N=T 1120
535 LET TI=TI/N
6A0 LET P=P*3.J4159/180
545 LET S=SIN(P)
550 LET C=COS(P)
655 LET M2=M0*TI*F/B
563 LET R3=-.'l*R0*( (VeIR) t2)+R*Al*AI
665 LET A3=-2*R I*Al IR
670 ,OR I I TO N
675 IF 111=3 THEN 715
680 LET MI=MI-1'2
685 IF i11>0 THEN 725
590 LET. F=F*(1+1111112)
69,· LET N2=r11+M2
700 PRINT "YOU ARE OUT OF' FUEL"
705 LET ~fl=0
710· GOTC 725
715 LET F=0
720 LET 112=0
725 LET M=I1-.5*112
730 LET R4=R3
735 LET R3=-.5*R0*«(V0/R)t2)+R*AIMI
7 40 LET H2= (3*R3-R4) 12+. 0.526*F 1*,*C/11
745 LET A4= A3
75~ LET A3=-2*RI*AI/R
755 LET A2=· (3*A,~- .A4 )/2+. ~0525*F I*F*SI (M*R)
760 LET X=RI*TI+.5*R2*TI*Ti
765 LET n=R+X
770 LET HD=H0+X
775 LET RI=RI+RZ*TI
78~ LET A=\+AI*TI+.'*A~*TI*TI
78'; LET Al=,\l+A2*Tl
79.0 LET 11=11-.5*M2
795 LET T=T+T I
80~ IF H0<3.287828E-04 THFN 81<)
835 NEXT I
,
810 LET H=He*z
815 LET HI=RI*Z
820 LET 0 =;l~*A*Z
825 LET Dl=R*AI*Z
830 LET T2=MI*BIt'IB
835 PRINT TAB(I);T;TAB(10);H;TAB(23):D;
84~ PRINT TAB(37):HI:TAB(49);Dl;TA3(50);T2
845 IF' H0<3.287828F-04 THEN 880
85. IF R0*A>154.4735 THEN I~'>l
855 IF IH>0 THEN 58e
860 LET Tl=2Z
865 LET F=0
87D LET P=0
875 GOTD 620
880 I.F RI<-8.21957E-04 THEN 102~
885 IF ABS(R*AI»4.931742E-04 THEN 1r.20
890 IF H0<-3.287828F.-04 THEN 1022
895 IF ABS(O»10*Z THEN 1065
900 GOTO 995

~~~ ~~i~i "THIS SPACfCRAFT IS NOT ABLE TO VIOLATE THE SPACE-~;
915 PR I NT "TIME CONTI NUUi1"
920 GOTD 575
925 prINT
930 PRINT "IF YOU WANT 18 SPIN AROllND, GO OUTSIDE THE NODULE";
935 PRINT "FOR AN LV.A"
940 GOTO 575
945 PRINT
950 PRINT "H1PDSSIBLE THRUST-VALUE"
95'> IF F<0 THEN 98'
950 IF' F-.~5<.0'5 THEN 97'5
965 PRI NT "TOO LARGE"
970 GOTO '57'5
975 PRINT "TOO SMALL"
380 GOTO 575
985 PRINT "NEGATIVE"
990 G~TO 575
995 PRINT
1000 PRINT "TRAN~UILITY BASE HERE -- THE EAGLE HAS LANDED"
1<:0'; PRINT "CONGRATULATIONS - THERE liAS NO SPACECRAFT DAMAGE"
1013 PRINT "YOU MAY NOW PROCEED WITH SURFACE EXPLORATION."
1015 GOTO 1100
1020 PRINT
1025 PRINT "CRASH 1IIIIllll!"
1030 PRINT "YOUR HIPACT CREATED A CRATER";ABS(H);M$;" DEEp·
1~35 XI=SQR(DI*Dl+HI*HI)*G3
1040 PRINT "AT CONTACT YOU WERE TRAVELLING";XI;NS;"/HR."
1245 GOTO 1100
1050 PHI NT
I C55 PRI NT "YOU HAVE BEE H LOST I N SPACE WITH NO HOPE OF RECOVERY"
1~6Z GOTO lice
1~65 PRINT "YUU ARE DO'''N S~F?LY - "
le75 PRINT
1080 PRINT "BUT 11ISSED THE LANDING SITE BY";ABS(D/G5l1N$
1085 GOTO 1103
1092 PRINT
lZ95 PRINT "lllSSION ABORTED"
110~ PRINT
1105 PRINT "DO YOU \JANT T~ FLY IT AGAIN 7 (YES OR NO)";
I 110 INPUT Z$
I I 15 IF Z$="YES" THFN 2~
1120 IF Z$="NO" THEN 113~
1125 GOTO 1105
1130 PRINT
1135 PRINT "TOO SAD, THE SPAC, PROGR.AI1 HATES TO LOSE EXPERIENCED";
I I 4. PH I NT " ASTRONAUTS."
1145 STOP
1150 PRINT
1155 PRINT "O!(, 00 YOU '.ANT THE COMPLETE INSTRUCTIONS OR THE INPUT-"
1160 PRINT "OUTPUT STATEMENTS 1"
1165 PRINT "1=COi'lPLETE INSTRUCTIONS"
1170 PRINT "2=INPUT-OUTPUT STi\TEiENTS"
1175 PRINT "3=fIEITHER"
I I 80 INPUT B I
1185 LET QS="NO"
119Z IF BI=I THEN 205
1195 LET Q$="YES"
12·00 IF BI=2 THEN 190
1205 IF 81=3 THEN 190
1210 GOTO 1155
1215 END

ROCKT2 SAMPLE RUN
LUNAR LANDING SIMULATION

DO YOU WANT TO FLY IT AGAIN? (YES OR NO)? YES

HAVE YOU FLOI~N ON AN APOLLO/LEM MISSION BEFOREH<YES OR NO)? NO

OK, DO YOU WANT THE COMPLETE INSTRUCTIONS OR THE INPUTOUTPUT STATEMENTS?
1=COMPLETE I NSTRUCTI ONS
2=INPUT-OUTPUT STATEMENTS
3= NEITHER

WHICH SYSTEi~ OF NEASURENENT ,DO YOU PREFER?
I=METRIC
~=EN3LISH
ENTER THE APPROPRIATE NUM3ER? 0

7 3
YOU ARE ON A LUNAR LANDING IIISSION. AS THE PILOT OF
THE LUNAR EXCURSION MODULE, YOU IIILL BE EXPECTED TO
GIVE CERTAIN COI~IIANDS TO THE MODULE NAVIGATION SYSTEM.
THE ON BOARD COMPUTER WILL GIVE A RUNNING ACCOUNT
OF INFORI'lATION NEEDED TO NAVIGATE THE SHIP.

ENTER MEASUREMENT OPTI ON
0
111168
T,P,A? 50O,3,0
500
106291.7
T ,P,A? 100,O,121
60C
1 ~4194. 1
T ,P,A? 5O,510,-90
650
102921.8
T ,r,A? HH~, ~,--2a, ~
750
131574.9
T ,P,A? 50,90,-90
8ZZ
131326.7
T,?,A? le0,40,-09e!
9ZZ
972~3.62
T,P,A? 52,1~,q,
950
93262.42
T ,P,A? 50,100,0
1000
92036.68
T ,P,A? 50,100,-90
le50
93087.58
T , P, A1 50,IZ0,-90
1100
920!l8.52
T ,P,A? 50,100,-90
1153
88333.39
T,P,A? 100,100,-9J'l
1250
71627.24

THE ATTITUDE ANGLE CALLED FOR IS DESCRIBED AS FOLLOWS+ OR -180 DEGREES IS DIRECTLY A'>lAY !'ROM THE MOON
-90 DEGREES IS ON A TANGENT IN THE DIRECTION DF ORBIT
90 DEGREES IS ON A TANGENT FROM THE DIRECTION OF ORBIT
o (ZERO) DEGREES IS DIRECTLY TOWARD THE 1'100N
-180,180
T

-912 <

-+- >

e
DIRECTION Of 'ORBIT
SURFACE

0, MOON

ALL ANGLES BET"F.EN -18Z AND 182 DEGREES ARE ACCEPTED.
1 ,UEL UNIT = 1 SEC. AT M4X. THRlIST
ANY DISCREPANCIES ARE ACCOUNTED FOR HI THE USE OF FUEL
FOR AN ATTITGDE CHANGE.
AVAILABLE ENGINE POWER: C (?ERO) AND ANY VALUE BETWEEN
1~ AND Ice PERCENT

1300
62820.57
T ,P,A? 521,100,0
1350
6~235 .55
T ,P,A? 1"2,52,e
1450
64599.96
T ,P,A? 11£'0,40, -90
1550
64756.08
T,P,A? 5~,5~,"'ge
1600
59156.85
T ,?,.o.? JQI,rJ, ~
57573.89
1610
T ,P, A? Ho,1IH1',Z
1620
56e62.7
T, P,A? 1 100, -90
1630
5462~.65
T , P, A? 10,100,-90
164@
53028.,~7
T, P, fl.? 10,0,0
1650
51276.44

INPUT, TINE INTERVAL IN SECONDS ------ CT)
PERCENTAGE OF THRUST ---------- (P)
ATTITUDE ANGLE IN DEGREES ----- (A)
FOR EXAM PLE:
T,P,A?10,65,-6e
TO ABORT THE MISSION AT ANY TIME, ENTER 0,0,0·

OUTPUT: TOTAL TIME ELAPSED' IN SECONDS
HE! GHT IN HET
DISTANCE FRCI1 LANJING SITE IN FEET
VERTICAL VELOCITY IN FEU ISECOND
HORIZONTAL VELOCITY IN FEET ISECOND
FUEL UNITS PE,'l~INING

T,P,A?
1580

T ,P,A? 2e,2~,-9Z
20
364769.7
T ,P,I\? 203, 1~,-9~
358044.1
220
T ,P, ,l\? 5i!0,10,-90
720
224322.9
T ,P, .'\1 500,0,0
104(:
-6773.7

5301.638

-1.9283e2E+7
-1.918"80F+7
-1.82120(JF:+7

-1.589872E+7
-1.43955'3E+7

-3.257229
-74.76607
-522.3451
-918.728

5264.209
50&1.405
4709.512
4902.473

,1615.604

750

-5.116247E+6

-19.20258

1619.915

750

-4.963 5 36E+6

-22.72435

1621.782

750

-4.8ne89E+6

-30.02382

1492.978

705.0001

-4.749094E+6

3.206664

1494.091

685.0002

-4.68173~E+6

-14.90814

1359.475

640.0003

-4.'5"58928[+6

-70.50644

1239.533

600.0003

-4.5'WI~2E+6

-37.14224

1242.232

595.0004

-4.441169£+6

38.9189

1243.085

545.0004

-4.3860761:+6

1.36393,8

1079,071

495.0004

-4.3,1886IE+6

-46.0884

910.9774

445.0004

-4.299676E+6

-102.2833

738.2616

395.01l05

-4.246314£+6

-236.e606

375.7879

295.0005

-4.228179£+5

-115.1086

377.652

245.0005

-4.209927£+5

12.98513

378.2053

195.0005

-4.1734'1E+6

75.8418

377.2816

145.0006

T, P, A? 5121,1210,0

NEGATIVE T;JRUST OR TIME IS PROHIBITED

36480e

NUI~BER?, 1

-5.876248F+G

750

-4. 145499E+6

-73.66691

202.8112

105.0006

-4. 138397E+6

-150.5384

91.24105

80.0006

-4.137515E+5

-166.0619

91.32249

80.00~6

-4.136631,+5

-136.1128

91.40043

70.00061

-4.13'968>+6

-151.7089

45.55091

60.00062

-4.1357 5 1F+6

-167.3554

-.746715

50.00063

-4.1357<,9E+6

-183.0355

-.7474552

50;00063

-4.135780f+6

-230.282,~

-.7500852

50.00063

- 4 • 13' 802E+6

-277.9013

-.7533445

50.00063

-4. 13'839E+6

-358.3198

-.7602341

50.00063

-4. 13'\846E+6

-327.851

-.761739

40.00063

-4.13'\869£+6

-377 .0488

-.7664103

40.00063

-4.13"876E+6

-3?e.0578

-.7680755

35.00064

321,CI,~

45077.'j!

T,P,A? 3!3,12:,"
1710
37455.8
T,P,A? 5O,O,2
176Z
21556.4
T,P, ~\? Ie, 1ee, 0
1770
18125.25
T ,P,A? ,3~,0,0
1800
7553.268
T ,P, A? 10,50,ril
1810
3817.706
r ,P,A? 5,100 ... ,0
2005.734
1815
T,P,A? 5,H)",0
1820
270.6975
T ,P,A? 1,100,0
.2621521
1820.8

746.0001
' 726.0002
676.0002
676.0002

CRASH II! 11 ! ! I ! I
YOUR Ii1PACT CREATED A CRUER 6773.7 FEET DEEP
AT CONTACT YOU WERE TRAVoLLlNG 2952.787 N.MIL/HR.

-4.135883E+6

-354.7163

-.7688858

30.00064

-4.135884£+,6

-339.2829

".7696534

25.00065

-4.1.~5885E+6

-336.8~5

-.7697848

24.20065

CRASH !! !! 11 !! 11
YOUR Il~PACT CREATED A CRHER .2621521 I'lETERS DEEP
AT CONTACT YOU WERE TRAVELLINS 1212.51}1 KILOM/HR •
DO YOU WANT TO FLY IT AGAIN? (YrS OR NO )7

N0......... NO

TOp BAD, THE SPACE PROGRAM HATES TO LOSE EXPERIENCED ASTRONAUTS.
READY

., '

187

ROCKSP

GAME OF ROCK, SCISSORS, PAPER

Description
Remember the game of rock-scissors-paper. You and your opponent
make a motion three times with your fists and then either show
a flat hand (paper), fist (rock), or two fingers (scissors).
Depending upon what is shown, the game is a tie (both show the
same) or one person wins. Paper wraps up rock, so it wins.
Scissors cut paper, so it wins. And rock breaks scissors,
so it wins.
In this computerized version of rock-scissors-paper, you can
play up to ten games vs. the computer.
Program Author
Charles Lund
The American School
Hague, Netherlands

THIS PROGRAM ALLOWS YOU ~o PLAY THE OLD GAME OF
ROCKS, PAPER. AND 5ISS0.:5 AGAINST THE COMPUTER.
HOW MANY GAMES DO YOU WANT? 20
SORRY, BUT WE AREN'T ALLOWECo TO PLA,' THAT MANI'.
HOW MANY GA~ES DO YOU WANT? 10
GAME NUMBER 1
3=ROCK ... 2=515S0RS ... 1=PAPER
1 .... 2 .... J .... WHAT'S YOUR CHOICE? 1
THIS 15 MY CHOICE.

LIST
ROCKSP

05:06 PM

· .. PAPER
.IE GAME. NO WINNER.

0l-MAY-7l

1 PRINT "THIS PROGRAM ALLOWS YOU TO PLAY THE OLD GAME OF'
2 PRINT "ROCKS, PAPER, AND 5IS50.:5 AGAINST THE COMPUTH:. '
5 RANDOMIZE

6 INPUT ~HOW MANY GAMES DO YOU WANT";Q
8 IF Q(11
THEN 11
9 PRINT "SORRY. BUT WE AREN'T ALLOWED TO PLAY THAT MANY. '\abTO 6
11 FOR 0=1 TO Q
15 PRINT\PRINT 'GAME NUMBER'O
29 X=INT(RND*]+l)
25 PRINT "J-ROCK ... 2.SISSORS .. 1=PAPER'
39 INPUT "1.
.2 .... 1 . . . WHAT" S ','OUR CHOICE'.' K
32 IF CK-l)*(K-2).(K-l)()0 THEN PRINT 'INYALIO'\80TO 25
35 PRINT "THIS IS MY CHOICE ..
40 ON X GOTO 50.6e,70
50 PRINT ". . PAPER"\GOTO 80
60 PRINT " ... SISSORS'\GOTO 80

THIS IS MY CHOICE.
· .. ROCK
WOW! I WIN!'
GAilE NUMBER 3
3=ROCK ... 2=SISSORS ... 1=PAPER
1 . . . ~ ... 3 .... WHAT'S YOUR CHOICE? 1
THIS 15 MY CHOICE.
· .. SISSORS
YOU WIN!!!
GAME NUMBER 4
3=ROCK ... 2=SISSORS ... l=PAPER
1. " 2 .... J, ... WHAT' 5 ,'OUR tHO"
THIS 15 MY CHOICE.
· .. SISSORS
WOW'
I WIN'!

70 PRINT " ... ROCK"
80 IF X=K THEN 155
85 IF X)K THEN 125
90 IF X=l THEN 105
95 PRINT

OAME NUMBER 2
3=ROCK ... 2-SISSORS. . l=PAPER
1 . . . 2 .... 3 .... WHAT'S YOUR CHOICE? 2

"YOU WIN~ ~! "\H=H+1\GOTO 160

105 IF K=] THEN 115 ELSE GOTO '5
115 PRINT "WOW!
I WIN'! "\C=C+l\80TO 160
125 IF K()l THEN 115
140 IF XC)] THEN 115 ELSE 95
155 PRINT "TIE GAME, NO WINNER. '
160 NEXT G
179 PRINT\PRINT "HERE IS THE FINAL SCORE:"

OAME NUMBER 5
3=ROCK . .. 2=5r'1 . ... 2.
~

THIS IS

",DICE? 1

" . RO'"
IWI'

175 PRINT "I HAVE WON"C'GAMECS). "
180 PRINT "YOU HAVE WON"H'GAMEIS). "
-SISSORS ... i-PAPER
.. 3 .... WHAT'S YOUR CHOICE? 2
JS MY CHOICE .
. PAPER

185 PRINT 'AND"G-IC+H)"GRMECS) ENDED IN R TIE.

S90 PRINT\PRINT 'THANKS FOR PLAYING'"
200 END

. . ou WIN! ~!

READY

OAME NUMBER 9
3=ROCK ... 2=SISSORS ... l=PAPER
1 . . . 2 .... 1 .... WHAT'S YOUR CHOICE' ]
THIS IS MY CHOICE.
· .. S ISSORS
YOU WIN!'!
GAME NUMBER 10
3=ROCK ... 2=SISSORS ... 1-PAPER
1 .... 2 .... 3 .... WHAT'S YOUR CHOICE? 1
THIS IS MY CHOICE.
· .. SISSORS
WOW! I WIN!!
HERE IS THE FINAL SCORE:
I HAVE WON 5 GAMECS).
YOU HAYE WON 3 GAMEIS).
AND 2 OAMEIS) ENDED IN A TIE.
THANKS FOR PLAYING!!
READY

188

ROULET

EUROPEAN ROULETTE TABLE

Description
This game simulates a European Roulette wheel; "Europeanll because
it has 37 number compartments (1 to 36 and 0). The American
wheel has 38 numbers (1 to 36, 0 and 00). The Bahamas, Puerto
Rico, and South American countries are slowly switching to the
American wheel because it gives the house a bigger percentage.
Odd and even numbers alternate around the wheel, as do red and
black. The layout of the wheel insures a highly random number
pattern. In fact, roulette wheels are sometimes used to generate
tables of random numbers.
In this game, you may bet from $1 to $10,000 and you may bet on
red or black, odd or even, a column, or single number.
There is no long-range winning strategy for playing roulette.
However, a good strategy is that of doubling •
First spin,
bet $1 on an even/odds bet (odd, even, red, or black). If you
lose, double your bet to $2. If you lose again, double to $4.
Continue to double until you win (i.e., you break even on a
losing sequence). As soon as you win, bet $1 again, and after
every win, bet $1. Do not ever bet more than $1 unless you are
recuperating losses by doubling. Do not ever bet anything but
the even odds bets. Good luck!
II

Source
Like so many other games Of chance, computerized ROULET has been
around a long time in FORTRAN, LISP, and so on •. Its original
author is unknown today.

189

PROGRAM LISTING
1010
1020
1030
1040
1050
1060
1070
1080
1090
1100
1110
1120
1130
1140
1150
1160
1170
1180
1190
1200
1210
1220
1230
1240
1250
1260
1270
1280
1290
1100
1310
1320
1330
1340
1350
1360
1370

R~M

TYPE RUN TO PLAY THE GAME,

LU KI •
PRINT "
PRINT"

WELCOME TO MONTE CARLO ANO OUR EUROPEAN ROULETTE TABLE,"
WISH YOU THE BEST OF LUCK.

PRI~T

PRINT
PRINT "DO YOU WANT INSTRUCTIONS",
INPUT ~8
IF ZS • "NO" THEN 1800
IF Z$ • "YES" THEN 1130
GOSI18 2790
GO TO 1070
PRINT"
THIS IS A GAME OF ROULETTE,
YOU ARE ALLOWED TO BET"
PRINT "AN ODD OR EVEN NUMBER AND lOR A BLACK OR RED NUMBER AND/OR"
PRINT "A COLUMN
NUMBERS AND lOR A NUMBER ITSELF,
NUMBERS RANGE"
PRINT "FROM 0 TO 3&,
IF 0 APPEARS, THE BANK COLLECTS ALL BETS"
PRINT "EXCEPT THOSE BET ON THE NUMBER 0,
THE PAYOFFS ARE AS FOLLOWS"
PRINT,"ODD OR EVEN' 1 TO 1"
PRINT,"REO OR BLACK. 1 TO I"
PRINT, "A COLUMN. 2 TO 1"
PRINT, "A NUMBER. 35 TO I"
PRINT "
YOU ARE ALLOWEO TO BET FRO~ S I TO $10000, BUT THE",
PRINT" TABLE WILL ONLY ACCEPT BETS OF WHOLE DOLLARS (NO CENTS),"
PRINT
PRINT" WOULD YOU LIKE TO SEE A PICTURE OF THr. GAMBLING TABLE",
INPUT ~1S
IF tIS • "MO" THEN 1800
IF ZlS • "YES" THEN 1320
G05IlB 2790
GO TO 1250
PRINT
PRINT
BELOW IS THE PICTURE OF OUR GAMBLING TABLE,"
PRINT"
PRINT
PRINT
PRINT, "
*********** "
PRINT, "
0
*"

13'75 LET US • "*******************"
1380 PRINT,US

1390 PRINT,"*

1400 PRINT,"* RED *BLACK* RED

.It

1410 PRINT

,us

PRINT,"* 4 ... 5 ... b *"
14321 PRINT,"*BLACK* RED .BLACK*"
142~

1440 PRINT,US

1450 PRINT,".

1460 PFtlNT,!I* RED *BLACK* RE-D

*"
*,t

1470 PRINT,U$
1480 PRINT, II", 10 ... 11
12
1490 PRINT,"*BLACK*BLACK* RED *"
1500 PRINT,U'

15121 PRINT,II* 13

*' 14

*' 15 *"

15221 PRINT, "*BLACK*' REO .SLACK*"
1530 PRINT,US

1540 PRINT,"* 16

* 17

* 18

olio"

1550 ~RINT,"* RED *BLACK* RED *"
1560 ~RINT,U$

1570 PRINT,"* 19 * 20 * 21 *"
PRINT,"* PEO *BLACK* RED *"

1580
1590
1600
1610
1620

* 26

* 27

* 32

*"
* 33 *"

* 35

* 36

28'30
2840
2850
2860
2870
2880
2890
2900
2910
2920
2930
2940

RET,URN
PRINT "SORRY, BUT YOU CAN ONLY BET IN .1 INCREMENTS FROM 'I TO',
PRINT" $10000,"
RETURN
LET G • 0
PRINT
RANDOMUE
LET T • INT (l7*RNO l
PRINT "THE NUMBER IS '"
LET T1 • INT(T/10).1
ON TI GO TO 2940,2950,2960,2970
ON '.1 GO TO 3530,3350, 3430,J390']410, 3370, 3450, 3350, 3430, 3390
295~ ON T-9 GO TO 341~,J490,3J30,J470,3310,3510,3290,3490,1330,33~0
2960 ON T-19 GO TO 3430,3390,3410,3370,3450,)35~,33!0,3510,J410,3490
2970 ON T-29 GO TO 3330,3470,3310,3510,3290,3490,3330

tI. RED" REO *BtACK."
1650 PRINT,US
1660 PRINT,"* 28 .. 29 ... 30 *"
1670 PRINT, "*BUCK*BLACK* RED
1680 PRINT ,US
1640 PRINT,

1690 PRINT,". 31
17Q10

PRINT,"*BLACK* !=lEO *BLACK.II

1710 PRINT,U$

1720 PRINT,". 34

1730 PRINT,"* REO *BLACK* RED *"
1740 PRINT,US

3290 PRINT T," RED, EVEN, COLUMN 1"

1750 PRINT, "*COL.l*COL.2*COL.3*"
17&0
1800
1810
1820
1830
1840
1850
1860

330~ GO TO
3310 PRINT
3320 GO TO
3330 PRINT
3340 GO TO
3350 PRINT
3360 GO TO
3370 PRINT
3380 GO TO
3390, PRINT
3400 GO TO
3410 PRINT
3420 GO TO
3430 PRINT
)440 GO TO
3450 ~RINT
3460 GO TO
3470 PRINT
3480 GO TO
349~ PRINT
3500 GO TO

PRINT,US
PRINT
PRINT
PRINT
PRINT "DO ¥OU WANT TO BET AN ODD OR EVEN NUMBER'"
INPUT A$

IF AS • "NO·1 THEN 2050
IF AS •

"¥ES" THEN 1890

1870 GOBUa 2790
1880 GO TO 1830
1890 PRINT "000 OR EVEN",
1900 INPUT as
1910 IF BS • "ODD"THEN 1950
1920 IF 8$ • "EVEN"THEN 1950
1930 PRINT "PLEASE TYPE ODn OR EVEN"
1940 GO TO 1890
1950 PRINT "HOW MUCH DO YOU WANT TO BET'"
1960 INPUT H
1970 II" H Co 10000 THEN 2000
1980 GOSUB 2810
1990 GO TO 1950
2000 FOR HI • 0 TO 10000
2010 IF HI • H THEN 2060
2020 NEXT HI
2030 GOSUB 2840
2040 GO TO 1950
2050 LET H • 0
2060 PRINT
2070 PRINT "DO YOU WANT TO BET A RED OR BLACK NUMBER",
2080 INPUT C$

3540
T," RED, EVEN, COLUMN 2"
3540
T," REO, EVEN, COLUMN 3"
3540
T." RED, 000, COLUMN 1"
3540
T'" RED, ODD, COLUMN 2"
3540
T," RED, ODD, COLUMN 3"
3540
T," BLACK, EVEN, COLUMN 1"
3540
T, " BloACK, ~VEN, CO"UMN 2"
3540
f" , BLACK, EVEN, CO"UMN 3"
3540
T, " BLACK, ODD, COLUMNI"
3540
T' " BLACK, ODD, COLUMN 2"
3540

3510 PRINT T, " BLACK, QDD, COLUMN 3"
3520
3530
3540
3550

GO TO 3540
PRINT T
IF G • 0 THEN 3610
IF T • F THEN 3590
:;~~ ~~;N~ : !gu LOBE $"G" FOR ¥OUR NUMBER BET,"

3580 GO TO 3610

3590 PRINT" lOU WIN $"l!5*G" FOR YOUR NUMBER SET. I!

2"090 IF CIS • "NOli THEN 2290
2100 IF ca • "IES" THEN 2130
2110 COSUS 2790
2120 GO TO 2070
2130 PRINT "RED OR BLACK",
2140 INPUT 0$
2150 IF 0$ • "RED" THEN 2190
2160 IF Dt • "BLACK" THEN 2190
2170 PRINT "PLEASE TYPE REO OR BLACK,"
2180' GO TO 2130
2190 PRINT "HOW MUCH DO YOU WANT TO BET",
2200 INPUT I
2210 IF I Co 10000 THEN 2240
2220 GOSUB 2810

2820 PRINT ., MONEY."

PRINT,US
PRINT,"* 22 * 23
* 24
*"
PRINT, "*BLACK* REO *BLACK*"
PRINT,Uf

1630 PRINT,". 25

2230 GO TO 2190
2240 '9R
0 TO U000
2250'IF 12 • I THEN 2300
2260 NEXT 12
2270 GOSUB 2840
2280 GO TO 2190
2290 LET I • 0
2300 PRINT
2310 PRINT "DQ IOU WAN,T TO BET A COLUMN OF NUMnRS",
2320 INPUT 81$
2330 IF Bl$ • "NO" THEN 2530
2340 IF B1S • "YES" THEN 2370
2350 COSUS 2790
2360 GO TO 2310
2370 PRINT "COLUMN 1, 2, OR 3",
2380 INPUT 82
2390 IF 62 • I THEN 2440
2400 IF 62 • 2 THEN 2440
2410 IF B2 • 3 THEN 2440
2420 PRINT "PLEAU TYPE 1, 2, OR 3,"
2430 GO TO 2,370
2440 PRINT "HOW MUCH 00 YOU WAN'r TO BET",
2450 INPUT BS
2460 IF B8 C. 10000 THEN 2490
24~0 COSUB 2810
2480 GO TO 2440
2490 FOR B9 • 0 TO 10000
2500 IF B8 • B9 THEij 2540
2510 NEXT B9
2520 GO TO 2440
2530 LET B8 • 0
2540 PRINT
2550 PRINT "DO YOU WANT ,TO BET A NUMBER",
2560 INPUT E$
2570 IF ES • "NO" THEN 2870
2580 IF ES
"YES" THEN 2610
2590 GOSUB 2790
2600 GO TO 2550
2610 PRINT "WHAT IS YOUR NUMB~R'"
2620 INPUT F
2630 FOR M • 0 TO 36
2&40 IF F • M THEN 2690
2650 NEXT M
2660 PRINT "THAT IS AN ILLEGAL NUMBER"
2670 PRINT "¥OU ARE ONL¥ ALLOWED TO BET INTEGERS RANGING FROM 0 TO 36"
2680 GO TO 2610
2&90 PRINT "HOW MUCH DO YOU WANT TO BET",
2700 INPUT G
2710 IF G <. 10000 THEN 2740
2720 GOSUB 2810
2730 GO TO 2690
2740 FOR G9 • 0 TO 10000
2750 IF G • G9 THEN 2880
2760 NEXT G9
2770 GOSUB 2840
2780 GO TO 2~90
2790 PRINT "PLEASE TYPE YES OR NO,"
2800 RETURN
2810 PRINT "SORRY, SUT THE TASLE CANNOT ACCEPT A S!:T OF THAT MUCH",

n •

190

3600 LET G • 35*G
3610 IF H • 0 THEN 38~0
3620 IF T • 0 THEN 3710
3630 IF, B, • "EVEN" THEN 3680
3640 FOR X • I TO 35 ST~P
3&50 IF T • X THEN 3750
3660 NEXT X
3610 GO TO 3710
3680 FOR Xl_ 2 TO 36 STEP
3690 IF T • Xl THEN 3750
3700 NEXT XI
]710 PRINT" YOU LOSE '''H,
3720 GOSUB 3780
3730 ~ET H • -H

SJUllPLE. RUN
3740 GO TO nee
l7S0 P!IINT " YOU WIN '"H,

WELCOME TO MONTE CARLO ANI>' OUR EUROPEAN ROUI,;ETTE TABLE.
WISH YOU, THE' BEST OF LUCK.

1760 GOlUB 378(11
3770 GO TO )800
3780 PRINT "rOR YOUR ODD-gVEN BET,"
3790 RETURN
3880 IF I • 0 THEN 4080
3810 IF T • 0 THEN 3980

DO YOU WANT INSTRUCT! ONS ,?YES
THIS 15 A GAME OF 'ROULETTE.
YOU ARE· ALLOWED TO, BET
AN ODD OR EYEN NUMBER AND lOR A 8LACK OR RED NUM8ER ANDIOR
A COLUMN OF NUMBERS ANDIOR A NUMBER ITSELF.
NUMBERS RANGE
FROM 9 TO 36.
IF 9 APPEARS. THE 8ANK COLLECTS ALL BETS
THE PAYOFFS ARE AS FOLLOWS
EXCEPT THOSE BET ON THE NUMBER 0.
ODI> OR EVEN = 1 TO 1
RED OR BLACK = 1 TO 1
A COLUMN = 2 TO 1
35 TO 1
A NUMBER
YOU ARE ALLOWED TO BET FROM $1 TO $10000. BUT THE TABLE WILL ONLY A
CCEPT BETS OF WHOLE DOLLARS (NO CENTS).

382(11 FOR AI • I TO 9 STEP
3830 IF T • AI THEN ]970
3840 NEXT AI
3850 FOR A2 • 12 TO 18 STEP
3868 IF T • 12 THEN 39113

3870 NEXT A2
FOR Al • 19 TO 25 STEP
3890 IF T • A3 THEN 3970
3900 NEXT A3
3910 FOR A4 • 10 TO 36 STEP
3920 IF T • A4 THEN 3970
39313 NEXT A4
39413 IF T • 26 THEN 3970
39S0 IF D$ • "B~ACK" THEN 4020
]960 GO TO 3980
3970 If' OS • "RED" THEN 4020
3980 PRINT " YOU ~08E ." I,
3990 G08UB 41360

nee

WOULD YOU LIKE TO SEE A" PICTURE OF THE GAMBLING TABLE ?YES
BELOW 'IS THE PICTURE OF OUR GAMBLING TABLE.

*****"''''****
•
0
*******************
"" 1 '* 2 '" l '"
• RED .BLACK. RED *

4000 UT I • -I
4010 GO TO 4080
41320 PRINT" IOU WIN " ,
4030 PRINT I,
4040 GOlUB 4060
4050 GO TO 4010
4060 PRINT "rOR YOUR REO-BLACK BET,"
4070 RETURN
4080 IF B8 • 0 THEN 4340
4090 If' T • 0 THEN 4380
410e fOR 53 • I TO 34 StEP
4118 IF T • B3 THEN 4190
4120 NEXT B3
4130 rOR B4 • 2 TO 35 STEP
4140 tP' T • B4 THEN 4210
4150 NEXT B4
4160 FOR 85 • 3 TO 36 STEP
4170 lP' T • B5 THEN 4230

****************"'**
'"

5
'" 0 '"
RED .BLACK.

",. S

* RED .BLACK. RED •

**************"''''''''''*

'" 10

'" 11

'" 12

.BLACK.BLACK. RED *

**"'*"'*"''''*'''''''''''''''*''''''
'* 13 '" 14 '" 15 . . ~' '

.BLACK* RED *BLACK*

**"'*"'*"'*"''''''''''''''''*'''**'''
* 16 '" 17 '" 18 '"
* RED .BLACK. RED

"'''''''***'''***'''''''''*''''''**'''
'* 19 '" 20 * 21 '"

4180 N!:XT 115

* RED *BLACK* RED *

*******************
'" 22

'" 21

'" 24

_BLACK. RED *BLACK*

*******************
'* 25 '* 26 '" 27 '"
* RED .·RED *BLACK*

*******"'****"'*"'''''''''''''

,,·28

* 29

'" 3:0

*BLACK*BLACK. RED .,

*******************
'" 31

'" 32

'" 33

*BLACK* RED *SLACK*

*******************
'" 34 '" 35 '" 36 '"
* RED .BLACK* RED *
*******************
*COL. 1*COL. 2.COL.~*
*****"''''''''''*'''*''''''**''''''*

DO YOU WANT TO BET AN ODD OR EYEN NUMBER ?YES
ODD OR EVEN ?ODD
HOW MUCH DO YOUNAN] TO BET ?100
DO YOU WANT TO BET A RED OR BLACK NUMBER ?NO
DO YOU WANT TO BET A COLUMN OF Nl'MBERS ?YES
COLUMN 1. 2. OR 3 ?1
HOW MUCH DO YOU WANT TO BET ?100

0 THEN 4530

m: ~~I~i ~ ~o~II~=v~5~~ST Ii

DO YOU WANT TO BET A NUMBER ?NO

To'm OF S"AB5CW" THUS m,"
4520 GO TO 4570
4530 PRINT" THUS FAR YOU HAVE BROKEN EVEN,"
4540 GO TO 4570
4550 PRINT" YOU HAVE WO~
TO:!AL OF,~"Kl" Tlius FAR,"
4560 GO TO 457<1
4570 PRINT
4$80 PRINT " D,P YOU WANT TO pLAX AGAIN", "
4590 INPUT MS
.
4600 IF MI • "N.O. TH!N·4640
4610 IF M' • "YES',j"TREII 1$00
4620 PRINT "p~EAi;~ TYPE YES 01'
4630 GO TO 4580

THE NUMBER IS 1
RED. ODD. COLUMN 1
YOU WIN $ 109 FOR YOUR ODD-EVEN BET.
YOU WIN $ 209 FOR YOUR COLUMN BET.
YOU WON

300

ON THIS

ROUN~

YOU HAVE WON A TOTAL OF $ 300

THUS FAR.

DO YOU WANT TO PLAY AGAIN ?YES

,'0,"

4640
4650
4660
4670

*******************

4190 IF B2 = I THi:N 4250
4200 IF B2 <> ,I THEN 43~0
4218 IF B2 • 2 THEN 4250
4220 IF B2 C) 2 THEN 4300
4230 IF B2 • 3 THEN 42'0
4240 IF B2 <> 3 THEN 43~0
4250 PRINT • 10U~IN S",
4260 PRINT 2*B8,'
'
4270 PRINT "FOR YO'UI\' CO~UMN BET,"
4280 LET 88 • 2*B8
4290 GO TO 4340
U00 PRINT " YOU LO$E ''''
4310 PRINT 88,
'
4320 PRINT "FOR lOUR CO~UMN B~T,"
4330 LET B8 • -B8
4341 PRINT
4]50 LET II • (a) + (H) ~
+ (Bli)
4368 1r II C 0 THEN 4400
4370 If' K • 0 THEN 4420' ,
4380 IF K > 0 THEN 4440
4390 GO TO 44511
4400 PRINT • YOU LOST ." A8a CK)" ON THIS ROUND,'
4410 GO TO 4450
4420 PRINT" YOU BROKE EVEN THIS TIME,"
4430 GO TO 4450
4440 PRINT" YOU WON $"K" ,ON 'THIS POUND,"
4450 PRINT
4460 PRINT
4470 LeT KI • KI + •
4480 IF KI < 0 THEN 4He
4490 11" K1 •

*BLACK~

PRINT" THANKII FOR PLAYING,"
IF KI < 0 THtN 4690
IF KI • 0 THEN 4710'
4680 IF KI > 0 TIli:N 4740
4690 PRINT" YOU LOST I" ABSCK!),". BETTER ~UCK NEXT TIME,"
4700 GO TO 4750
" , "
,
4710 PRINT " )lOU'SJ(OKEE,VEN TODAY,'JolAYBE NEXT TIJoIE YOU WILL WIN",
4720 PRINT " A, FORTUNE,!l
4730 GO TO 4750
',':,
. ' , ..
4740 PRINT" CONGRAtULAtIONS. YQU BEAT THE: ODDS,
YOU WON 8"Kl"TODAY,"
4750 END

DO YOU WANT TO BET AN ODD OR EYEN NUMBER ?YES
ODD OR EYEN ?EVEN
HOW MUCH DO YOU WANT TO BET ?100
DO YOU WANT TO BET A RED OR BLACK NUMBER ?YES
RED OR BLACK ?RED
HOW MUCH DO YOU WANT TO BET ?100
DO YOU WANT TO BET A COLUMN OF NUMBERS ?NO
DO YOU WANT TO BET A NUMBER ?YES
WHAT IS YOUR NUMBER ?6
HOW .MUCH DO YOU WANT TO BET ?10
THE ~U"BER IS 9
RED. ODD. COLUMN ~
YOU LOSE $ 18 FOR YOUR NUMBER BET.
YOU LOSE • 108 FOR YOUR ODD-EVEN BET.
YOU WIN $ 188 FOR YOUR RED-BLACK BET.
YOU LOST. 18

ON THIS RO,UND.

YOU HAYE WON A TOTAL OF $ 290

191

DO YOU WANT TO PLAY AGAIN ?YES

THUS FAR.

RUSROU

RUSSIAN ROULETTE

Description
In this game, you are given by the computer a revolver loaded
with one bullet and five empty chambers. YOu spin the chamber
and pull the trigger by inputting a "1," or, if you want to
quit, input a "2." You win if you play ten times and are still
alive.
program Author
Two versions of Russian Roulette Were submitted i one by John
Kowalik of East Greenwich, RI and the one printed here by:
Tom Adametx
Curtis Junior High School
Sudbury, MA
01776

5 RANDOMIZE
3' PRINT "THIS IS A GAME OF »»»»»}RU5SIAN ROULtTTE"

19 PRINT\PRINT "HERE 15 A REVOLVER"
29 PRINT "HIT '1' TO SPIN CHAMBER AND PULL TRIGGER.
22 PRINT"
(HIT .';2-' TO OJ'. .·E UF')"\F'~~INT "GO".:

25 N=e
39 INPUT I
31 IF 1()2 THEN

32 PRINT"
CHICKEN!! !"\Gpro 72
35 N=N+l
40 IF RND(e»0. 633]] THEN 713
45 IF N)10 THEN 80
sa PRINT "- CLICK -"
613 PRINT\OOTO 30
79 PRINT'
BANG"'! YOU'RE DEAD!"
71 PRINT ·CONDOLENCES WILL BE SENT TO YOUR RELATIYES.
;: =:::~\~=~~T~~:I~!~~RINT " .. ,NEXT VICTIM ... "\GDTO 20
8S PRINT "LET SOMEONE ELSE BLOW HII BRAINS OUT.
90 GOTO 113

99 END

READY

THIS IS A GAME OF »»»»»)RUSSIAN ROULETTE
HERE IS A REVOLVER
HIT "1' TO SPIN CHAMBER AND PULL TRIGGER.
(HIT '2' TO GIVE UP)
OO?1

- CLICK '?1

- CLICK 11

- CLICK ?1

- CLICK 11

- CLICK ~
1:1

BANG! !!! YOU'RE DEAD!
CONDOLENCES WILL BE SENT TO YOUR RELATIVES .

. .. NEXT VICTIM.,.
HIT "1' TO SPIN CHAMBER AND PULL TRIGGER.
(HIT '2' TO GIYE UP)
GO?

192

1963 by E. C. Publications

SALVO

NAVAL GUN BATTLE

Description
The rules are not explained by the program, so read carefully
this description by Larry Siegel, the program author.
IISALVO is played on a 10xlO grid or board using an x,y coordinate
system. The player has 4 ships: battleship (5 squares), cruiser
(3 squares), and two destroyers (2 squares each). The ships
must be placed horizontally, vertically, or diagonally and must
not overlap. The ships do not move during the game.
liAs long as any square of a battleship still survives, the player
is allowed three shots, for a cruiser 2 shots, and for each
destroyer 1 shot. Thus, at the beginning of the game the player
has 3+2+1+1=7 shots. The player enters all of his shots and
the computer tells what was hit. II A shot is entered by its grid
coordinates, x,y. The winner is the one who sinks all of the
opponent's ships.
Important note: Your ships and the computer's ships are located
on 2 separate 10xlO boards. For a simpler version of this game,
try SALV01.
Program Author
Lawrence Siegel
3052 Warrington Road
Shaker Heights, OH 44120

193

PROGRAM LISTING
109m REM ••• SALVO BY LARRY SIEGE~
U10 ROM ••• I.A8T REVISION 6/9113
1020 REM ••• CHECKED OUT ON RSTS/E BY DAVE AML, DIGIHL

103"

RE~

....

1040DIMA C10.10),~ CU. U),C (7),0 (7),E (12),F C12),G (121,M (121 ,K (10, Ia)
1050U TZ800
l0e0~OR"0ITOI2

1070LETEC.)0-1
1080LETHC.)001
U9~NEXTW
Il0aFORXoITOI~

1I10FORyoi TOl0
1120LETBCx.n 0 0
1130NEXTY
1140NEXTX
1150FORx o ITQI2

2320IFX'I0THEN237~

23301FXc! THEN2370
234UFyol NT (y) THEN2310
23501FY'1 ~THEN2J70
2J601FV>Ol THEN2J90
2J10PR!NT"ILlEGAL.. E~TER AGAIN"
2380GOT02300
23seH A (X. y).I0TH;'N2440
2400LETt (.,"~
2410L.ETD(.)oY

1160L~TFCX)00

1110LETGCX)0.
1180NEXTX
1190FO~xol TOl0
1290FQRYoi TOI0
12I0UTACx.Yl00
1220N~XTY

1230NEXTX

2420NE)tT~

124~FOR""4 TU I STEP-I
1250LETU6'0
1260G08UB291~

1210DEFr NA (K) 0 Cbo') .3-2*I"T (K/4) +SGN (K-I)-I
1280DtFFN~ CK )oK + I NT (K/4)oSGN CKol)
1290IF V+V2o V*V2. nHEN1260
1300IF Y+V .Fr,8 C" )'101H£N 126~
13101 FY+y +FN~ (') c I fHENI260
13201 '·X+V2.fNd C')'10THE" 1260
1';3~If x+V2*r ~8 C,) < I THEN 12bd
1340~UU6.<J6.1

13501rU6.25TH<NI190
1.160FORZ o"TOF_S (~)
1370(.1:. TF (ZOr NA cn ) . . +v2.Z
1380L.UG (l+FNA CK »ov+v.z
1390~'XTZ

1400LETlf80, "A (~)
141 ~FORl2.u8rvu8+F NB CK)
142~FORZ3. 1 TOuSol
1430n SQR (( r CI3)-, (L2» .2+ CG (l3) -G(Z2) .2) <3.59THENI260
1440NEXTZ3
1450N<.XT l2
146~FO~Z"0 fOFN8 (K)
147~(.f. TA (f (l-US). G(Z+US»o .5+5GN Co(-I). (K-I.5)
1480N<.XTZ
1490NEXTK
15~0PRlt\T"E!\'TI;.~ CCiORD1N.TES FOR ••• '1
1510P~INT "aAT1L~S~IP"

1520FORX-1105
15J0INPUTV.Z
1540LETb(y.ZloJ
1550NI:X TX
1560PR INT" CHUI SI:R"
157.fORXo, TOJ
15SB!NPUTy.z
lo9.L.ET8Cy,lI02
160.Ntxn
161 ~PR I I\JT "DES TRQYI:.~<,A)o"
Ib2~FORX"1 102
Ib30INPUTY .l
1040l.ET6Ci,l)"1
1650NoXTX
! 660PR I NT" ot'S 1 ROY~Rc8>"
1610~OR"1 Tv2
16S0INPl'Ty.l
1691!lL.!:.TI:J(y,z)a,b

1100NEXTX
1110~I<INTIIDll

'OU

21801F A(X, Y)'10THEN2200
2190LETP30p30\
2200NEXTY
2210NEXTX
2220PRIN1"VOU ~AVE'A·"SHOT.S"·
2Z30IFP3.oATH.N226·~
.
2240P~!~T"THE NUMBER OF YOUR SHOTS ·EXCEEDS. THE NUMIlER OF 8LAN~ SQUARES'
2250GOT02890
..
22601f A<>0THEN2290
221~PRINT" I HAVE _ON'
2280STOP
2290FORW"1 TOA
2J0IiINPUTX.Y
23101 FX<>1 NT (~) THEN237~

~AtlJT

TO START";

17201NPUT J$
1730IfJ$<''''''><ERE ARO YOUR SHIPS?"THENI890
17 4..,PRI Nf II ~A Tn. i:. SHI"'"
1750FORZ"1 TOo
176~PRINTFU) IG(l)
ln~NEXTZ

1780P!1 Ir..T" Cio(tll StR II
17P0PRH,rF C61 I G( 6)
180~P"I'Tf (7) IG(7)
1~I~PI<I/;H C~)IG(8)

1820PR INT" OtS TROYERcA."
IS30PRI'H (9) IG(9)
184~PRINTF( hi) '" (10)

18S0PR INT" DES TROVER.8>"
1850PRI~TF (! I) I G(lI)
1810PRINTF (12)' G (12)
lee.GOTOI71';
1890L.ETca.
192fl1PRINTII;)Q YO~I IttA,...T TO sEE ~y SHOTSIIJ

1910INPUTKO
192~PRI"T

19301 F He>" YES" T><E.262'

194dREM·*** •••••••••• START

2430GOT0246"
244aPRINT"VOu S~OT TH;'RE BEFORE ON TURN'A(X,Y).10
2450GOT02300 .
2460FOR"1 TOA
2470IfA CC CW). 0 (0») 03THEN2540
24801f ACC CW), Dc.)02THEN2~60
2490lFA ct (W). 0 (Y'»'I T"EN2580
2500IF ACC (.).D cw»o .5THEN2600
2510('ETA ce (.). 0(.) )-10+t
2520NEXT.
2530GOT0262~
2540P~INT"YOU

HIT My BATTLESHIP'
2b5~C;OT02o I ~
2560PRINT"YOU HIT MY CRulSE"R"
2570GOT02510
2b80PRINT"Y(llJ ;;IT MY DESTROYER . . . "
2590GOT02510
2600PHINT"YOU HIT My DESTROYE~<.6."
2610GOT02510
2620LETA'~
263~IFJ'."Y~S"T~EN261~

2640L.ETCoC+1
2650PRINT
2660P~ IJI.lT" TURN II C
267~~t TAo0
2680FORW •• brOJ.1 STEP. ~
269~FORXO' Tul0
2700FORYoI TO!0
271.IFACX. " •• THEN2750
2720NEXTY
2730NI:XTX
2740GOT0276.
2750i..I:.T.t\·A+INT C~ .... 5)
2760NExr.
2770L.t TP300
2780FORXai TOIZ
279fi>FORYol TOl0
28001FB CX. Y)'I ~THEN282.
261~UTP30Pj+1

2820NtXTY
2830~EX TX
2B4~PRINT"I

HAVE"A"SHOTS"

2650If~J'A THE N286~
2660PRINT"THE NlI~8ER OF MV SHOTS EXCEEOS THE NUMBER
2870GOT0227.
28801 FA<>~THEi'296.
289;j)PHI~T"VO!J rlA.VE. 1'i'Jr>.!"
29~0STOP

«(

2910Lo rx'INT RNO (-1).1") 01)
2920UTYoINTC (RNDC-t).!0)+I)
2930L.o n-INT (J*RND (-1)01)
2940~E TV2" INT (j*RND (-I) -I)
295.RETURN
2960FOR"1 TOl2
29701 FH CW) '~THI;.N380.
2980N<XT.
2~9 0.R t:. M"' .... '" '" "' •••• * ........ R ANI):Oi4
300"~f.T"0

3010('E TR3.0
3020GOSU8291 ~
3030RESTORE
3040~ETR200

J050L.ETR3o.J'1
306.IFR3'1 \l~THE.J010
3070!FX·10f~EN311."

30801FX>0THENJ! 20
J090L;. nol-I'T CRND(01)+2.5)
3100GOT03120
JII~L.ETX-10-IN T (RND (-I) .2.5)
JI201n'hlT"t'JI6~

19f)"I F J:tl<>11 TC.SlIlHEiN 199'~

Jl3~I~Y'~T"I:"3270

1~60UTC·C.1

JI40UTY"1 + INT CRNO (-1)*2.5)

1970"RI'T
1980?R INT" TURN"C
199~L.ETA"~

2000fOR.". 5T 03STEP. 0'
2010~ORX.l TOI~

2020FORYoi TUI0
203~IF6 (X. y)o .THEN2ii70
2040NEKTY
2~50NEXTX

2060GOT0208e
2010~~ TAo . . 1 ,T (.+.51
2080,EX'.
2090FOR.o1T01
2U~L.fTC(.)d

2110L.t:TD(.)a0
2120LEtF(.)0~

2130L.HG(o)00
2140NHT.
2150L.ETPJo,
2160FORx o i TOU
2110FORy o ITOl0

J150GQT0321~

J 160Lt TV "100r. T (R.O c. 0.2. b)
3170GOT03210
3180LETF (.)=x
3190LtTG(.)oy
J20~1 F~'. THi:.Njj8~

J21 ~ If~2"6THt"~0J0
3220READX It YI
3230LETH2oR2+1
32 4 00ATA1, 1 ,-1,1,1,-3,1, 1,lJ,2,-t, 1
325~L~TX'X+XI

J260LETYov.YI
3210IFX'10THENJ2 U
32801FX<1 THENJ21A
32901FY·10THI:.';210
3300IFY<1 THE"32Ia
331 ~IF B (X. Y)'10THENJ210
3320FORQ901 TO.
3330!~ F CQ9) ox THE.JJ50
3J401F.G CQ9)oYT~EN321 ~
3350NEXTQ9

194

of BLANK SQUARES.

SAMPLE RUN

33601.. TW'.+I
3370GOT03180
33801FKiO" YES" T~~N3420
3j90FORZ5'1 TOA
3400PRINTFCZ5) ,GCZS)
J410NEXTZ5
3420FORW'ITOA
3430IFBCfC.) ,GCo» 'JTHENJ500
344alF6 CF CW), G C.) ) '2THEN3520
3450lFB CF C.), GCW»'I THE'35~0
34601FB (F C") , GC'»'. 5THEN3540
34701.U~ CF CO),G (w» '10+C
3480NEXTW
3490GOTOl960
3500PRINT"1 HIT YOUR BATTLESHIP'

ENTER COORDINATES FOR,
BATTI.ESHIP

? 3,4
? 4,5
? 5.6
? 6,7
? 7, B
CRUISER

? 7,2
'1 8,2

? 9,2
DESTROYER(A)

? 2.9

? 3,9

3510GOTU357~

DESTROYER<B)

3520PRINT"1 HIT YOUR CRUISER"
3530GOT03570
3540PRINT" I HIT YOUR DESTROYER.B.'

? 8,5
? S,6

DO YOU WANT TO START? YES

J550GDTU357~

DO YOU WANT TO SEE MY SHOTS? YES

3560PRINT"1 HIT YOUR OESTROYER.A.3510FORQ'1 TOl2
3580IFE (Q) .>-1 THEN373~
3590LETECQ) "U+C
J600I..TH(Q)'6C~ Co) ,GC.»
36101..EP'IJC(1
3620FORM2&\ TOl2
3630IfH (M2)
CQ) THtN3650
J640MJ_MJ+1

~:~:~~~~~~ INT (H CQj +,5) +1+ I NT CI NT CH CQl + .5) 13' THEN3470

? 7,5

3b90L.TE(M2)--1
3700L<T" CM2)--1

YOU H IT MY CRU I SER
YOU HlT MY BATTLESHIP
I HAVE 7 SHOTS

J67~FORM2'1 TOl2
36801FH CM2).>'tCQ) T"EN37U

8,5

J
4

1
2

5
2

31!~NEXTM2
372~GOT0347~

3730NEXTQ
ASORT,"

J750FORQ. I TO 12
376~P~lNT"E (II ~"). "E (Gl)
3170P~lNT II f.t (11 (jj II) .11 H (~)

3780~EXTQ

3
2

5
6

TURN 2
YOU HAYE 7 SHOTS

J7905TOP
J8IlHdHEM ••• * •••
USl~GEARR A '(
381"FORR'ITOI.
3820fORS'1 Tal.
3630I..r'CR,S)·.
3B40NUTS
3850NEXTR
3860fORu a !TOI2
3a70IFE CI)).I.r HlN4~20
3ae0fORRai TQI0
3890FOR5'1 [al.
390~ IfB (R, 5). 1 ~THi:NJ930

* ••••••

? 2.6
? 3:,4
? 4,6
? 5,4

? 6,6

391 ~LE T~ (Io? S, .-100~(11Jt~
3920GOT04 •• "
3930~ OR""SGN C1-R) TOSG" C10-R)
3942FORNoSGr< C1-S) TOSGN CI.-S)
J95~ IF ~+~1+N.M;lI"'PH:.NJ9tS0
39601HI CR.;" 5"') <>E (lJl THE,398~
39701.0 TK CR,Sl&K CR, S) +E Cu) -2*INT CH CUl+ .5)
3980NEnN

4130N.XT~

4131 IF R>AT";<N4140
4132 IF H'S rMt" 4210
4140IFq R. Sl <K CF C;';9), G ((19) ) THEN4210
4150FORMoi TO.
4150IFF CM) ".THEN4190
4170lF G (M).S TME"421';

Pl.ayer I s shots against

the enemy.

3 11

TURN 9
YOU HAYE 4 SHOTS

? 4,3:
? 6,1
YOU H IT MY DESTROYER(A}
J HAVE 1 SHOTS

TURN 10
YOU HAYE 4 SHOTS

? 2,9
? 3,8
4,9

? 5, e
I

HAVE

HIT ~OUR CRuiSER

Number

of the game on

objective ~as to destroy

the enemy battleship--

/s 7

2
7

too~

The initial

6 rounds to accom-

plish this . objective.

?
?
?
?
?
?

HAYE

TURN 12
YOU HAVE 4 SHOTS

? 1,7
7 1,8
? ],6
? 5,6
I

HAVE 1 SHOTS

3
I

4
H IT YOUR BATTLESH I P

TURN 13
YOU HAYE 4 SHOTS

? 1,9
? 3,;0
? 5 .. :213

? 7,9
I

5
9

4
3

9
7

5
7
H IT YOUR DESTROYER(B)

4,",

6,4
7,]:
7,7

8,4
9,7

YOU HIT MY BATTLESHIP

8910

195

SHOTS

fired.

1'1) 1

? 6,7

TURN 5
YOU HAVE 6 SHOTS

TURN 11
YOU HAVE 4 SHOTS

? 2,7
? 4,7

which the shot was

YOU H IT MY IiESTROYER{A)
I HAYE 7 SHOTS

SHOTS

indicates the round
5

3
5

? 5~ 3
? 6,2:

5,2:
YOU HIT MY CRUISER
I HAVE 2 SHOTS

7
7

? 4,2
? 5,1

I;; 10 3 11 13

1.,:3
3,2
4,1

? 6,9

? 3,3
? 3,1

~ 13 14

TURN S
YOU HAilE 4 SHOTS

?
?
-?
"7

4
4

TURN 4
YOU HAVE 7 SHOTS

42!0NEXTS
4220NEXTR
4230GOTO:!38il
4240END

6
HIT YOUR BATTLESHIP

? 2,2

4200L.~TGCQ9l·S

4
I

6
S

418~NEXTM

3 10 '3

10 4
4 3
4
5

6
9

4190I.UFCQ9).R

YOU H IT MY CRU I SER
I HAVE 4 SHOTS

3
5
6

YOU HIT MY DESTROYER{B}
I HAYE 7 SHOTS

412~L.ETQ9."

7 ;2,3
21 .,4
? 9,5
? 10; 5

S
8
7

? 5,9

4100FORM'1 TOA
41101FK (F I"). G 1M) ) •• K If lil91.GCQ9) lTHEN4130

4
TURN 7
YOU HAilE 4 SHOTS

? 6 .. 3:

? 6,8

409~LET~9'1

5 7
9 1
10 6

? 5,7

4~5~NEXTR

8,7
8,]:

YOU HIT MY BATTLESHIP
YOU HIT MY BATTLESHIP
I HAVE " SHOTS

H IT YOUR DESTROYER(B)

SHOTS

7,8

8, B

? 4.8

4070; OR~'I TU 10
4080FORS.I TOl0

14 13

?
?
7
?

? 2,1

,., ;2',8
? ],7
? 3:.9

4040LETfCR)'R
4050L.tT(;(R)·.

3
4
5

TURN 3
YOU HAVE 7 SHOTS

4~30FORR'1 TOA

1
HIT YOUR BATTLESHIP
HIT YOUR CRUISER
HIT YOUR BATTLESHIP

6
7
6

3Y9~NEXTM

TURN 6
YOU HAVE "

I HIT YOUR CRUISER

4000NEns
4010NUTR
4020NExru

? 7,4
? $,6
YOU HIT MY BATTLESHIP
I HAVE 7 SHOTS

1,
3

I
I

? 2.5
? ],5
? <\,5
? 5,5
? 6,5

S
5

9 2
10 5
6 7

TURN 1
YOU HAVE 7 SHOTS

374~P~lNT·PRQG.AM

I 'HAVE 7 SHOTS

HAVE

SHOTS

TUR'll 14
YOU HAVE 4 SHOTS

? 2,19
? 4,113
? 6,113
'? 1 .. 6
YOU HIT MY DESTROYER(B)
I HAVE 0 SHOTS
YOU HAYE WON

SALVO I

ARMY GUN BATTLE

Description
SALVOl is played on two, 5x5 grids or boards with 25 outpost
locations numbered 1 to 25. Both you and the computer have
four platoons of troops that can be located at any four outposts on your respective grids.
At the start of the game, you locate (or hide) your four
platoons on your grid. The computer does the same on its
grid. You then take turns firing missiles or bombs at each
other's outposts trying to destroy all four platoons. The
one who finds all four opponent's platoons first, wins.
Program Author
This.program was slightly modified from the original submitted by:
Martin Burdash
70 Pinetree Drive
Parlin, NJ 08859

1967 by Creative Publications

196

PROGRAM LISTING

SAMPLE RUN

Ime PRINT 'YOU ARE ON A BATTLEFIELD WITH 4 PLATOONS AND VOU"

YOU ARE ON A BATTLEFIELD WITH 4 PLArDONSAND YOU
HAVE 25 OUTPOSTS AVAILABLE WHERE THEY MAY BE PLACED.
YOU CAN ONLY PLACE ONE PLATOON AT ANY ONE. OUTPOST.
THE COMPUTER DOES THE SAME WITH ITS FOUR PLATOONS.

110 PRINT "HAvE 26 OUTPOSTS AVAILABLE WHERE THEY MAY BE HACED.·
120 PRINT "YOU CAN ONLY PLACE ONE PLATOON AT A~Y
ONE OUTPOST."
130 PRINT "THE COMPUTER DOES THE SAME WITH ITS FOUR PLATOONS."
US PRINT
140 PRINT "THE O"JECT Of THE GAME 15 TO FIRE MISSILES AT THE"
150 PRINT "OUTPOSTS OF THE COMPUTER,
IT wiLL DO THE SAME TO YOU,"
160 PRINT "THE ONE "HO DESTROYS ALL FOUR OF THE ENEMY'S PLATOONS"
170 PRINT "FIRST IS THE WINNER,"
180 PRINT
Ig0 PRINT "GOOD LUCK ... AND TELL US wHERE YOU WANT THE BODIES sENTI"
2~0 PRINT
210 PRINT"TEA~ OFF THE MATRIX AND USE IT TO CHECK OFF THE NUMBERS,"
220 FOR R-1 TO 5\PRINT\NEXT R
250 RANDOMIZE
260 DIM M(100)
270 FOR R.l TO 5
280 I ' CR-I )'5'1
290 PRINT 1,1'1,1'2,1.3,1+4
300 NEXT R
350 FOR R'1 TO 10\PRINT\NEXT
380 LET C • I"TCRNDCN) • 25) • I
3g0 0 • INT(RNOCN) • 25) • I
400 E • INTCRNOCN) ,26) '1
410 F • INTCRNDCN) • 25) • 1
420 IF C • 0 G010 39~
430 IF C • E GOTO 40~
440 IF C • F GOTO 410
450 IF 0 • E GOTO 400
460 IF 0 • F G0TO 41~
470 IF E • F'GCTO 410
480 PRI~T ",HAT ~RE YO'.!R FOUR POSITIONS'"
490 INPUT G,IoI,K,L
495 PRINT
500 PRINT ".Hoq, DO YQU "ISH TO FIRE YOUR MISSILE",
510 INPUT V
520IF Y a C GOTO 71"
530 IF Y • 0 GOTO 71~
540 IF Y • 0 GOTO 71~
550 IF Y • F GOTO 710
560 GO TO 53.
570 M • INTeRNQCN) • 25) • I
575 GO TO 1160
580 IF X • G GOTO 920
590 IF X a " GOTO 920
600 IF X • , GOTO 920
610 IF X • • GOTO 920
620 GOTO 57~
630 P~INT" lolA, Hl YOu MISSEO. f'lV TU~N I\IOw"
640 PRINT\P~INT\GOTl' 570
670 PRINT"I "ISSEO YoU. YOU DIRTY RAT, I PICKED',",". YOUR TURN."
6BB PRINT\PRINT\GOTO ~0~

THE OBJECT OF THE GAME IS TO FIRE MISSILES AT THE
OUTPOSTS OF THE COMPUTER.
IT WILL DO THE SAME TO ;'OU.
THE ONE WHO DESTROYS ALL FOUR OF THE ENEM;" S PLATOONS
FIRST IS THE WINNE~

TEAR OFF THE MATRIX AND USE IT TO CHECK OFF THE NUMBERS.

8
13

10
15
20

18
23

WHAT ARE YOUR FOUR POSITIONS?

1~,15,20,25

WHERE DO YOU WISH TO FIRE ;'OUR MISSILE? 6
HA, HA YOU MISSED. MY TURN NOW
I MISSED YOU,

YOU DIRTY RAT.

PICKED 9

"COlIR TURN.

WHERE DO YOU WISH TO FIRE I'QUR MISSILE? 7
H~HA YOU M1SSE~
MY TURN NOW
I MISSED YOU,

YOU DIRT>' RAT.

YOUR TURN.

PICKED 23

WHERE DO YOU WISH TO FIRE,·VOUR MISSILE? 8
H~HA YOU MISSE~ MY TURN NOW
I MISSED YOU,

130 PRINT "YCl! ~CT ONE. OF MY OUTPOSTS. I'
740 IF Q a I GOTD 77"

YOU DIRTY RAT.

PICKED 5

;'OUR

ONE DOilt~ THREE TO GO"

I MISSED YOU,

780 PRINT\PNINT\GOTO 570

810 PRINT" TwO

TlI~'N.

WHERE DO YOU WISH TO FIRE YOUR MISSILE? 9
HA, HA YOU MISSED. MY TURN NOW

750 IF Q a 2 GO TO 810
760 IF Q a 3 GOTO 850
II

11
16

710 Q a Q _I
720 IF Q • • GOTD 890

770 PQINT

AND TELL US WHERE YOU WANT THE BODIES SENT!

GOOD LUCK.

oow,., TIIIO TO GO"

820
850
860
890
900
910
g20
930

PRINT\PRI"T\GOTO 570
PRINT " TI-1ReE DOl'ft. Olli!:: TO GO'PRINT\PRI',T\GOTO 57PRINT" YOU GUT "Ed'. GOING FAST, BUT I'kL GETVOU 'kE" "
PRINT" Y TRANSISTORS $ECUPERA E"
GOTO 1235
ZaZ'1
IF Za4 THEN 1110
940 PR:INT "I GOT YOU,
IT IRIONIT 8E LONG 11,10111, POST"X"WAS HIT."
950 IF Zal T~EN 990
960 IF Za2 THEN I ~30
g70 IF Z.3 THEN 1070
990 PRINT "YOU "AvE ONLV THREE OUTPOSTS LEFT"
\000 PRINT\PRINT\GOTO 5.~
1030 PRINT "YOU "AVE O~LV TWO OUTPOSTS LEFT."
!m40
PRINT\PRINT\GOTO 5~.
1070 PRINT "YOIJ HAVE ONLY ONE OUTPOST LEFT."
1080 PRINT\PRINT\C;OTO ~~0
1110 PRINT II YOU'RE DEAD.
YOUR LAST OUTPOST WAS AT"X",
HA. ~A. HAl'
1120 PRINT " il~TTE. LUC_ NEXT T1"E,"
1150 GOTO 1230
1160 pap_I
1110 NaP-I
1180 FOR T • 1 TO N
1190 IF M a MCT) GOTO 570
1200 NEXT T
1210 X a M
1220 MCP) a "
1230 GO TO 5S.
1235 END

YOU DIRTY RAT.

PICKED 4

;'OUR TURN.

WHERE DO YOU WISH TO FIRE YOUR MISSILE? 10
HA, HA YOU MISSED. MY TURN NOW
I MISSED YOU,

YOU DIRTY RAT.

PICKED 6

;'OUR TURN.

WHERE DO YOU WISH TO FIRE YOUR MISSILE? 11
YOU GOT ONE OF MY OUTPOSTS.
ONE DOWN THREE TO DO
I GOT YOU.
IT WON'T BE LONG NOW. POST 25 WAS HIT.
YOU HAVE ONLY THREE OUTPOSTS LEFT
WHERE DO YOU WISH TO FIRE YOU"R MISSILE? 12
HA, HA YOU MISSED. MY TURN NOW
I MISSED YOU,

YOU DIRTY RAT.

PICKED 1

;'OUR TURN.

WHERE DO YOU WISH TO FIRE YOUR MISSILE? D
HA.HA YOU MISSE~ MY TURN NOW
I MISSED

YO~

YOU DIRTY

RA~

;'OUR TURN.

PICKED 21

WHERE DO ;'OU WISH TO .FIRE YOUR MISSILE? 14
HA. HA YOU MISSED. MY TURN NOW
I MISSED YOU,

YOU DIRTY RAT.

PICKED 8

;'OUR TURN.

WHERE DO YOU WISH TO FIRE YOUR 'MISSILE? 1.5
YOU GOT ONE OF MY OUTPOSTS.
TWO DOWN ,WO TO GO
I MISSED YOU,

YOU DIRTY RAT.

PICKED 11

YOUR TURN.

WHERE DO YOU WISH TO FIRE YOUR MISSILE? 16
H~HA YOU MISSE~ MY TURN NOW
I MISSED YOU,

197

YOU DIRT>' RAT.

PICKED 7

WHERE DO YOU WISH TO FIRE YOUR MISSILE? 17
HA, HA YOU MISSED. MY TURN NOW

YOUR TURN.

SLOTS

SLOT MACHINE

Description
The slot machine or one-arm bandit is a mechanical device that
will absorb coins just about as fast as you can feed it. After
inserting a coin, ~ou pull a handle that sets three independent
reels spinning. If the reels stop with certain symbo~s appearing in the pay line, you get a certain payoff. The original
slot machine, called the Liberty Bell, was invented in 1895
by Charles Fey in San Francisco. Fey refused to sell or lease
the manufacturing rights, so H.S. Mills in Chicago built a
similar, but much improved, machine called the Operators Bell.
This has survived nearly unchanged to today.
On the Operators Bell and other standard slot machines, there
are 20 symbols on each wheel but they are not distributed
evenly among the objects (cherries, bar, apples, etc.). Of
the 8,000 possible combinations, the expected payoff (to the
player) is 7,049 or $89.11 for every $100.00 put in, one of the
lowest expected payoffs of all casino games.
In the program here, the payoff is considerably more liberal;
indeed it favors the player by ll%--i.e., an expected payoff
of $111 for each $100 bet. To approximate Nevada odds, reduce
the jackpot to $15 and keno to $4.
Source
Lots of slot machine programs were submitted including a very
nice one by Rob Hoffberg of Roslyn, NY. The author of the
one published is unknown.

198'

PROGRAM LISTING

:1
!

:188 RANDO~IZE
H8 DIM 0(3)
:129 PRINT"THIS IS A SIMULATION OF A SLOT MACHINE USING A COMPUTER"
n8 PRINT "EACH TIME YOU 'PULL' I WILL ASK YOU IF YOU WISH TO PLAY AGAIN.
:148 PR INT "JUST ANSWER WITH A 'Y' FOR YES OR A 'N' FOR NO. '
:l5S PRINT "PLEASE PLACE 4 QUARTERS ON MY CPU FOR EACH PLAY. '
:168 PRINT
179 FOR B1=1 TO 3
188 LET DIB1)=INTCRNPC0)*6)+1
198 NEXT B1
280 FOR 111=1 TO 3
218 IF D(G1)=1 THEN 280
228 IF 0(61)=2 THE N 300
238 IF 0(61)=3 THEN 320
248 IF 0(61)=4 THEN 340
258 IF DIG1)=5 THEN 360
260 IF 0(G1)=6 THEN 398
278 GOTO 58e
280 PRINT TAB(G1*7);' BELL';
298 GO TO 390
38e PRINT TAB(G1*7); , BAR';
310 60TO 390
J28 PRINT TAB(01*7>, "CHERRY';
3:10 OOTO 390
340 PRINT TAB<01*7); "APPLE";
3,0 GO TO 390
360 PRINT TAB(G1*7); 'LEMON';
370 OOTO 390
388 PRINT TAB(G1*7);·" $";
398 NEXT G1
400 PRINT TAB(28);
410 IF 0(1)()D(2) THEN 440
428 IF 0(2)=0() THEN 530
430 IF 0(1)=0(2) THEN 460
440 IF O(1)(>O() THEN 490
450 GO TO 510
460 IF 0(1)/2()INT(0(1)/2) THEN 510
<170 LET B=B+5\PRINT 'KENO .. YOU WIN $5 .. TOTAL=S', S,
480 GO TO 550
490 LET B=B-1\PRINT "YOU HAVE LOST $1
TOTAL=$'; S,
500 GO TO 550
510 LET B=B+1\PRINT "YOU HAYE WON $1 --- TOTAL=$', s;
520 GOTO 550
539 LET B=B+20\PRINT CHR$(7); 'JACKPOT ... $20. TOTAL=$'; S, CHRS(7);
540 GO TO 5S0
559 PRINT "AGAIN?";
569 INPUT $A\PRINT\IF A=tY THEN 160\IF AC>IN THEN 560
579 PRINT"IT'S BEEN NICE OPERATING FOR YOU COME BACK SOON!'
580 END

SAMPLE RUN
1HIS IS A SIMI)LATION OF A SLOT MACHINE USING R COMPUTER
EACH TINE YOU 'PULl' I WILL ASK YOU IF YOU WISH TO PLAY AGAIN.
JUST ANSWER WITH A 'Y' FOR YES OR A 'W FOR NO.
PLEASE PLACE 4 ~UARTERS ON ~\' CPU FOR EACH PLA\'.
BELL

APPLE

BELL

APPLE

CHERRY KENO .. YOU WIN $~ .. TOTAL=$ 6 AGAIN?Y

APPLE

JACKPOT ... $20 ... TOTAL=s 26 AGAIN?Y

APPLE

BAR

APPLE

YOU HAYE WON $1 - - - TOTAL=S 27 AGAIN?Y

CHERRY KENO .. YOU WIN $5. . TOTAL=S J2 AGAIN?Y

BELL

LEMON

YOU HAYE WON $1 --- TOTAL=$ 1 AGAIN?Y

CHERRY YOU HAYE LOST $1

TOTAL=$ l1 AGAIN?Y

CHERRY

YOU HAYE WON $1 - - - TOTAL=S l2 RGAIN?Y

APPLE

BAR

YOU HAVE LOST $1

TOTAL=s H

CHERRY

BELL

YOU HAVE LOST $1

TOTAL=$ l0 AGAIN?Y

AGAIN?Y

CHERRY

BELL

YOU HAVE LOST $1

TOTAL=$ 29 AGAIN?Y

BAR

LEMON

BELL

YOU HAYE LOST $1

TOTAL=$ 28 AGAIN?Y

CHERRY CHERRY YOU HAVE LOST $1

TOTAL=$ 27 AGAIN?Y

BELL

BAR

YOU HAYE WON $1 - - - TOTAL=S 28 AGAIN?Y _

LEMON

APPLE

YOU HAYE LOST $1

LEMON

CHERRY

BAR

YOU HAVE LOST $1

TOTAL=$ 26 AGAIN?Y

BAR

APPLE

BAR

YOU HAYE WON $1

TOTAL=$ 27 AGAIN?Y

CHERRY LEMON

CHERRY YOU H·AYE WON $1

TOTAL=$ 28 AGAIN?Y

BELL

LEMON

YOU HAYE LOST $1

TOTAL=$ 27 AGAIN?Y

BELL

LEMON

YOU HAVE LOST $1

TOTAL=$ 26 AGAIN?Y

BELL

LE~ON

LEMON

YOU HAVE LOST $1

TOTAL=$ 25 AGAIN?Y

CHERRY CHERRY
$
YOU HAYE WON $1 --- TOTAL~$ 26 AGAIN?N
IT' 5 BEEN NICE OPERATING FOR YOU COME BACK SOON!

199

SNOOPY

PICTURE OF SNOOPY

Description
There must be 7,000 various computer pictures of Snoopy around
dating from the ENIAC I. Just why Snoopy was universally
adopted as the programmers' mascot is hard to say, but it's
clear today that he was--overwhelmingly! Here are a couple
of pictures of that ubiquitous dog.

..·
·

··.. .....

.... ** .. ***

... .
* ••

.. oil- . . . .

..........
.. .......

... ...

44**

***...
.If. -II' -If.

**
4

....

**4**4
***.jj.**

4**4**

.. ***.
'***'* .......
oil.
4* ........ **
... ...
•••• ** ....

.. .. . ..

•*

******4
****4 .....

***
***
.........* .....
• ** •• ***
***
******4
... * ... '* ••
**...........
..... ****

.4 •.
..........
.........
*•

*•

********

** *
*

.........

**
*

···
·
· ··
**
·*

:
.. .........
..........*
....

,If.

***

.
...

XXXX
x
xx
x .'. x
•••••
?/
xxxx ••••••• xxx
x...... xxxxxxxxx
x •••• x
n
xx

..... .

... 4****
.....•• '** ...

IIXXXX
II
X
II
X
XXXII

X
X
X X
xxx
x
X

xxx

xx xxx
x•• x

x.·.x

xxxxxxxxxxxXXXXXXXI

X
X
X
x

X
x
x

xxx

xxxx

xx
XXXXXXXX\
X
XXX XXXI

xx •••

•

.)(

•• *x

*.'X

)(

••• xx
.~.

*)(

xxx

)(

x
x
X

)(

'* x..
. . x.. xx
" x•• X

••

.. '*

X
X
X
X

xxx
x

X)l:XX

.............•
......•....•.•.
=••••
.........••..•..•••

x
X

IXXXXX
X
X

X
XXXXXXXX\
XXXXXXXX\
I

)
\

xxxxxxxxxxxxxxxxxxxxxx

CURSE YOU, REO SARONI

200

x
xxxx
x
xx
xo xxx x
xx xxxx
..

Xl<

x xx
x

XXXX

...

XXXX

.-- .. xxx X
...
..
.- . xxx xxx x

nxxxxxxxxxxx •

x x

X
XX

XXXXX

XXXX

"~)(x:<
~xxx

IXXXXX

SPACWR

SPACEWAR BASED ON STAR TREK

Description
This program is an incredibly complete version of spacewar.
You are Captain Kirk of the Starship Enterprise and have as
your mission to destroy a certain number of enemy Klingon
spaceships (generally around 24) and thus keep the galaxy safe
for democracy. You must complete your mission in 30 stardates
(measure of time in space--think of it as a day).

II
I.··.;/i

The galaxy is divided into 64 quadrants arranged in an 8x8 grid.
Each quadrant is in turn divided into 64 sectors, also in an
8x8 grid arrangement.
It, of course, costs time and fuel to get
from one quadrant to another.

Complete playing instructions are given if you answer YES to
the question, DO YOU WANT INSTRUCTIONS?

Note: This program appears to have one or two minor bugs. It1s
eminently usable, but occasionally funny little things happen.

Program Author
Slightly modified by Mary Cole from the original written by:
Mike Mayfield
Centerline Engineering

~
o

0
0

•
(!)

201

e!~ ••• PROGRAM St~u(Ai!~ iV_P~O~RjMSJA~TR!K • • ,
~!M ••• ~R'H!~ ev M,K~ ~AY~T!!,O. "!~TeRlt~[!~G1N~!RtNG • • " . , H!I
••• ~!~U~G'NG AN~ .t~o~ ~!~tstnNS ~V_L~O LAV'R~UR!. YRA POTEL. 1•• 8!M •••• UV cnL!. AND DAV' AHL n~ DIGIUL
1411
eA~DOM_!Z!
is!"
~R!NT ~ ' _ "
• • . • • ~T~R. T~Ej( ." ••• i~RtNT
ISle
INPUT "Dn vou WANT tNSTRIICTtnNS /TM!V' R£ LONG
U
15~~
U. A~e';'Y!~' THEN U~
le~.
GOTO ee2~
1.540
~E~ ••• PR~GiAM BEGtNS H~R~
leS0
l$.R~,Q$'·_ • _
,"..
.,
,I5e0
~tM G(8.~' .C!9 .2'. ~ c~. " ,NI3'. YCA. A'
IS?
!0.T·tNT/R~0ID.U.2~'.1~0." , ,',
,
"
lee.
!9.3~ I ~0~0' E~. ~03'U!P~.
0 1$9o'0~ IS •• Soe
1591
r'.)~1' FNI/C""Sr.HH f~(l •• '.3' ' •• ?+/Kt!
lIJ2' •• 2'
U~I
~1.tNT !RNO P
l B10
o t N1/RNDP
181 1
ShtNT !RNO!! "~H I
16~0
820 tNT/RND /I ,.A.ll
18~e
H!TiM~r,,_
..
"., _ ,
'.'
•
!Bee
C12.11.c p!I', Cr .1'
.r./~ .~,.c Ie .2'--1
l8U
Ct!.U,C!3 ... 2'.C'f!5.u.e!'.~'.e!~.1)e!f!.
~"
15'0
r(.PI .e,2.2\ .ere.1 I .CI1.1' .eCA.l, .CI8.2' .r-rQ.'"o,
tU0
MAT ~o'ER
l 8 te

I."

~!M

I'"

,.e.!,
he.o

.2' ..

4 ,cr4.2'

ciIO".ARP,E~GIN~S$~R.,S~N~O~S~:~: S~NSORSjHAS~R CN~iL"

1710

~::~;:;:~~T::,~~~~=g~;C:: eNTR' •

V~0

pee

eg.K900
REM ••• ~ETS u~ WHAT E;'t~'~ YN GALAXV
~O~ ,IO! ,o8

.0"

J.,

1780

'-'f.

Toe

~I'~ND!"

,
'
!F Rl.,9~ THfN ee0

~~ :t:~:e 'A~~\:~0

1,94.

1070

iue

i9~.

20~.

!~~IN"RNO!.I ,.8."

r, ,(1.~) o.~
7tT.~"·0

~e10

B•• 83.1".~3

2U0
203.

Nn, J

204.

~EV', I

M.,".I(~

PRTNTIPRTNT
~RrNTOvo'-, MU!T_DFS~Rnv'K.' Ki'tNGON~ +N"T~' !;'A"D.T~I wnw '8'
~,F Bq.~ THFN 8' 0
• STA"eA'~S'
~i8.~I"i·4

U;0
20~0

211.
2".

!!14.
2150

~~.:~~~3;~ Qi>A nR Q"'i ~R Q'.~ THFN g'0

21e~

"J.tNTin
e3ot~T,(ix •• 3"\~1

2230

2170

V.~C~I. Q2, •• 01

~HI

',_

~30G (QI.~2'_IN! CGI~I.

IF K, •• THFN 9,0
IF S>2~0 '~EN 910

~2A0

Q" •. ' I *'~

22el
Z270

22~m

::~~f:~O·:~i£~~~A OANr,Eog~~w~~~ro'

2310
~3?0

~Ar ~otER
FOR '.IT~J
~tT.~,.l'I
"EXT"t
,

23e0

SS.MTcrz,. ~· ... e~

2380

~3"

2330

23A0

Uof'IR~oU

REM ••• OUT

'N"'R.RI~E

S"MFWWEOE

.As ....... ,.."
;'l.S~-

2440
P.~0

U50
2470

AS."++~"

2471

"
GO!UO 55.0

2480
~4~0
25~0

1((!.i).R" I<tr:2,.R.I!' K('.~'.SQ
NEn t
.0" !.iTOB~

U~I

~5J0
~!40
2580
2570

~~~U:.~3:~T HARAAHis. "O"E.MFR~
.t,_"l..lcl'i ;t.Rtt l'-.P~

GO~U~ ~5'0

2580

~E~T I
F:O~

2e90

'(.tT"S~

GO~u~

2600

53~0
•
~Ut ~T!R! ~O.EWMFR.
• "I '1.R~1 !?"2

~eu

eEM •••
A.S_"

2630
264e
28'10
2681
?610

~O~U~ 55'0
NEH t

GO~U~

41'0

'NPUT "cnMMAND"'t.

eS80

IF A00 GnTn ,4'0
IF Ao, GOT" ! 2~.
!, h2 GnTO '3~e
i, A03 GnT" '5~~
IF A04 GnTn 2e~Q,
!, A05 GOTn 34~0
!, •• 8 GO'" 35~.
IF A07 GOTM 46~.
!F,A 0 8 G~T~ 85'.
"
,
~R!NTIPR'NT"
, . ' SF' cnu.s~'
PR!NT'
I . SMOR' RAN~E, SFN~O. eeAN"
~R!NT'
2 0 LONG RANG. 'ENS"R SCAN'
PRrNT.
3 0 FTR! ~HASFR~"
.,
,
~R!NT'
4 0 F!.Fe PMQTnN. T"R'Eno~s"
PRrN!'
5
S~IELD eON'eo,,', •
• RTNT'
e
DAMAGE CONTOo' REPO~"
PRINT'
7
CiLl: ON L!8&i •• V CnMPUTER'
'RINT'
8
ENO THE e;'N'E~T' i.RTN+
GOTO 127~
eEM •• COIIRSE cQN'rRnL. C;'O.
INPU 'CnU.S~ t ... g,,",rt
Y. e o. TH'N I 7~
IFC
nR .. cI> THF.N l.il~

2690

21~0

27\1

2"0
~721

2'.0

~750

278.

277m
27U
2790
2791
U@I

~1!0

!S:!0
2830
2840
28S0
2S80
~SU

28U
~'Ie

202

H~I

GOSU~ eei'_

~~'NT"

',,'

•

~AMA9fo'I~RrNT'GoTO lel~

~(~llo0(~O.,(RNon ,., • .,.

".,'
,
PR!NTIPR!NT 'DAMAG! eONTRO' REPOR',"
GO~U~ eel0.
.
, ,.
• '

~oeu~ ~BII,,, ,

.. ' .

f'U

' ' 'III

.'e'

~.Ql.e~)f!')(t ~NIV.Q2~8~Y.)(~.N

_,.

"_."'"

91 ot~'rXl8 \ 1~201 N' CV 18' I,~ lot'" IX_Q •• R) '52. 'NT (v.~2.el
,If S'-.~~, ,HEN '26.
~,.Q"!ISI!8
,
!, 82e.0 'HEN '2Q0
Q2'Q2~ll ~208

YaT .. i I~.f"'~"'~ .
,r, '.TO • T9 '~EN 39'0
GOTO 810,.
•
'"
~EM ~ •• LONGR!NGESFN~O' ~CAN C~D' "£r,tNS HFR~

~:r~+3~~~~r. T=~~G~J;:NS"R~ m 'N~mABLE'
~ojo i~7~

FOJt I.~t:'t Tn ~l+t

;!4~0

~hR?

r~,RNDO'",,5'~EN

2~~~~::~~~~·!:Z::~~·~:~~i~' REPORTi"

23U
~.~I

it.Ri

"" _

PRrNT·~o~G.R~N~L$~N~O~
,CAN
PRTN'".
____ ._. _______

242.

R~M ••• pUT I(L fNGOhlS snMir\N~ERE

~3'0

~.!0

72'S'
GOSUA ~5;0
FOR 1'1 TnK~
GOeUA A3"0

~EVT

IF RNO!I).ia Tw~~ ISU
el.tNT!RNOII).e.t, .

VI oCrCI.! 1.le celH .Ihe rr.I.I' 1.,el-tNT leI I ,
~.eIIV,~a2"
_,
__ "
__ . , _
H 'ClC!. I I t(eC~ttl.1 hrrp." l. rC I~t" !C!"
uoqe!." tC~ r~1 tl.~'-r r~! ,2\ I. rCI_INTtCI "
~O" X0I.TON,a,.0~I.XIISh8'H2
•
.,
TF S~.! ?R,SI.!9,OR S2eLO" ~2'o~ TH~N 2i7~
$8'S'.2'.8,.3-'61 t'.S~"2 'HEN 19qe
'F.~TOiQ,'.~8.31o·
• TH'N 2~1~
GOTO 2~3~
fF S~.f4.i TM~N"2~2~
_TF MTD('U.~8 .. 7"~'."
"T~!N
GOTO _2~3.
.'
",
t" _~f1'D(S~.~8.144.3'.1t 11 TH'N 2"'''t'I
PRiN!'WA~P ENG!NES SWU;D~W" AT SFCTO~ "S' •• "~2' ~UF TO BAO NAVAGATtON'
SloS' ~y, 182oS2_X?IGOTO 2.e.
~E~' I . .
,
A.... c.~" IZ' aSt Il:!aS2
G09UO e5 i' 0
~oE.N.el!F
THEN 21e"
ToT.l ,
IF ,.,0.T9 THEN 3910
lioro i ?8~.
_'
..'

195.

TF ~;.~9~ !H~N 70e

~t!l·Dlt,.,

::imW~:Q~;A~:' REP:~;,!~~m:~;' P~!N'

!9~.

"3.""GOTn r2~
~3.t tB?-AOtl
_,"

i8S0
l870

1910

:~:~~~~~~g.,

U.DIl'.~0 ~op Wleo.2.T~!~ ',t!~0 __
p~rNT 'WARP !NGIN!S AR~ ~A~AG!~. MAXIMUM S'!!O • W~RP ~2'
GOTO ,141".
_
1',.,e'0 THEN .S80
GO!U~ 3102.
_
K!coe T~EN • eu
,r, Se0 ,WEN .0~0
110TO.1810 __ _
IF r'0 '~!N '810
IF .S~I., TWEN ~9~0
'R!N! 'vnu HAV.'!' UNt;S, 0; ~N;'RGV'
'RrNT,~SIlGg!!, VOU G'T S"~' ~RnM VnUR sHirroi ~Mic; WAW!,S' ~NT,i lE;'~
~OTO,I~10 ,
~OR 1.ITQe, !F.D!t"'0_'~!~ is...
~'M •• ~ F!~ ANV ~A~AGE" "EvtC!

1120
1810
1850

l8?0

~30B,G~Tn ~6~ ,
K3031 K9 •• 9.l, GnTO 8e~
~3'2'.hKg;'2iGnTn B6~

fNPUY 'WA~' ~AeTOll the,j'lwl
WId n~ WI'~ TH~N t41~ __

._~_n

'"10 QtJA"RANT "Qi"."~2

MAr N"E"

FO" Jo~2~1 TO ~2.1
iF lei 0" I.A OR Jel O. ~." 'H~N 246.
~C,;.~2+2,.t; t r. ,"
tF 0,11'" TM~N 2~U
~ci;.i!oGit:J,
N~~'"J,
.,'"
Ptt.lft tltt* ,I M~.
fQ
~"!N;'
VS!N~,~I;.~r!l.N!21.~(~1
r NT" ._ ............... ______ .... ,.._ tt

, M,_.

NUT I
GOTO 127m
R~M ~ •• "MAsrR ,C~NTROL C"DF
!, .~"0 THEN ~61e
IF 0'14, . . 0 ,WEN 2570

~ni~~~:0

~~~tNS

H~RF

25~0

,HE"
~R!NT , eOMPIJTFR FA!lU"E HAMP!"! AeCIJR!C.Y • ' !""'"LF' O','!
PRIN,..PHASFR5 l'oeK~O ON ;UGFT~ £"£"G. VA ""
!NPUT 'NI-'M~ER ", UNtTS Tn Florl.'X
IF x, •• THFN 1~1~
IF, !_xe0 THEN '57.
EOE~~

~O~U'

37Q0
IF 017l>o' 'HEN 288e
~.~.~N~dl
FO" i 0 !Tn3
!.,Krr,3lco0 THEN 2170 "
H'!NT I IX IK'/FNn C"II.'2.RNDII' II
~~i'~)'K~I,3'.~,
_ ..
~R!N'!'M" IINyT MYT ON t<;L~N~O~ AT 8F.tT"" "Ktld,fI."K(T.,-U

eRfNT"
f"I(t.f.:n~ LEFT\lI
,TF Kil.3"~ THFN 271.
~OSUA 3S~e"

'
IF Kqe.~ THEN 4040
NEV' I
~F Ee0 '~EN 4,00
GOTO 127.
R£~ •••• Hn'~N TORProo C;'D~ OEr.INS MFR'
iF.oisl'!0.THEN 2830
"
PR!NT 'PMOTON TU~ES AR~ NOT np~RA"ONAL'
GOTO _127 •

~~T~;0.mNpm~N TORm"!" m!NO~O'

GO~O ,I ~1. " '
, •• __ "
INPUT "ORPE~O COURS~ 11_911' I r.\
IF cl'~ THFN"U1 A
_
IF C,et OR,CI •• 9, THEN ?~e0.,
".
,,_
UoetC!.I) t relC1t,.1 \·el~1 ,I' "1~I,tNTfC~I'
~2.erC I.',. re (c 101. 2 \ or. Cr.I. 21,. lei_tNT IC' "

bil

'e','
e'ee

"$1

~'I'

~"I
S
•• ,

,.~.

310'

31r'
SU,
31!1

'~!N; UUNG, "1!.Mr"C~';1 '3~. "10 IU;·.,,~,. ~Iii fQl~'. 3)., _

r,sliy~a~.~.~·,
"
~Rf~T, ~TDR!,EOO T~Ae~."
VOX.Wlly~y~n

tl'.w~1 0- v."

~RtN"

•

Ml~IQ·~I'.3).MTDIQt.13.31.Ml010 •• le.31.M!DI".IO.3l.

_'..

SUI

t'.K,ce', T~IN 4e •• ,
_., _
~OR t",~3!J~ IN'IXlc.~IY.ll

U,I

J',INTIV"~lt."

3281
~.11

sa,.
",.

~UT.I
"
. ,
KI!.31·e,QQTn,~38'

~.~.
·,l'IVI7.2-V
G08U~ se~.,

GO!~~ ee~I,

334'

SS.I
S',I

s'm'

'S'"
...
S4U

3.ft1
,.51

ue.

3'",

3'"
,.,.
3SI'

O"'02U~

'.2' _",

S3t.

~:j~~':'!~F=T~:e:m D~S'R"V~D ••• '. ~ ~ ~ '. ~ '.eONGRA;ui'mnN8,
~3.n.i , _ , •
AI.".I.Zt.'lfl'2-V
~8~ "II
_ '.
P~tNT

.sie
'831

"TQRPEOO MISS!n'

.. ~e
~8~'
4ue

G08U8 3701

t, Ece TMEN .'~0
GOTO 1"1 . ,
'.,"
,
~!M ~ •• SHTELD.cnNTRnL cnDF ~!CtNS H~R!
II'_Dt"ul, THE~ 3491".
'.'.
' " ..
PAINT'SMI!LD CONTROL 'S NON.OPERATtONAL"

.86.
.88e
48U
4ee2
4.,2
4711
• 711

GOTO_I~'~
_.
,
.',',
~RtN! ~ENEAGV ~VArLA'L~ ,·F.!I

Ute
'5~1

_.
INPUT' . NUMBF.A OF UNTT~ TO SMr!LDS'"'~
rl' wc.~ TH'N 1'71
J'. ~ •• ~x.e,TMEN 3.91

'531
3551
SlIst

:~:0.!~7~AMAOE CON;RnL R~P"RT ea~! SPGTN! MERE

.720

4731

~'!.8",)tI~'V

SIIU

1'_Dt.,.!e_T~!i 3ege"
PRtNT 'DAMAGE CONTROL RE~DRT r~ NOT .vArrA~LF"

31511

~~m:mNT iiD!Vm

U(ll

3ISU
UII

",.
3e~'

3141
3IS~'

sere

STATE

~OR RI'I!OS
GO~UR ~6!1

GOTO 1~'"

31~e

37U

~9"UA S51
$rQI.Q!I·K3.le~.83.1~.~3

31i,

.
.•
THf!N 3~2. , ' .
~RTNT 'STU !A~E SHULns PROT!~T TiiE !NTF.R~R'Sjr"
~!TURN
,
, ..

U~I

S13.

'nSI
n?

'sn
sue
u~.

3011
sg~1

30~'

'04'

use
uel

. ,.

39,.

39"

3091

....
4e ••
'1,1

.'1.,.,.
41~1

.111
'1"
4.,8
'1~7

'111
4111

41U

• t~.

4IAI
4151
41U
4191
4201
1111
'2,1
'1.1

'UI
4211

.311
'3U
43~'

43.,
43~1

.."'144,.,.
.311
,391

44"
••••

.'71

4'8e'
.7'1
.70S

R!PATR"

sue
,t,e
,711

'7"
'7"
3811.

~"I

.740
'780

PRTNTO!RIl, .
NUT RIIPATNT
Goro ,.1271.
.
PRINT'SHnRT RANG! S!NI"R~ PEPO.T Nn iiLtNtlONS ril ;M'S QIIAijRANT"
.

~RINT. !l(bINGO"'_H

e _..

......

I.!, ,I( (J. t) I!'.K('. "

_" _ ,

_." _" _ .

.Sl.

~O~ r.jT?3i;1; W!t.31 •• ~ THirN,3 0U
.
""IN! r.(~ Ir, 311fND le"" r.2~RND I 1lll,~.'.M
~R!NTW" UNT1"W!T .. 0'" !N'IRPRr8E AT ~E~TnR .i(ii.'i!;.iiwit.211
PRINT'
r's' LEFT"
;, see TMEN 4e~1
~Ej!T. r
R!YUlfN
,
'..
_,
_,
_ . _ ..
PRTNr ,'T~E ,ENTFRPRtI~ ~S_DFA~ .TN SPA~E. IF ~Oll eu~vtv' ~LL TMPENDINn'
!'RtN~ 'ATTAC~S_ YOU WILl. ~E DFMnTFD Tn TH' RANK OF ".TVAT!'
IF K3c.e TH!N 412.
'!;08U8 3791

m~T~:~~NT _IT !S STAiiDiTF'+

GOTO '.2~
RE~ ••• NO. E~!RGr L!;T

',.. '

_ '

PRINT'''RINT'TH~ !NT!~PRJ~! .. H~S. BF!N n!8T~DVE" ... TH~, FEDE"ATI"N ~;LL tiE

~RrNT 'TMER! ARE ,STr~k "~9' KLTNr.ON ~ATTI.! eRu,Tpr~~'.
' CDN'U!~irD'
"RTNr,PRTN!,P"~N~.PRTN~ "vnu GfT.ANO~HFR CHA~CF .... ",GOTQ ~3~
.
"RtNT,PRTNT'THF ~AST I(llNGnN BATTlF ~RUI8!" TN" TM! GALAXY WA~ ~!I'N
~8JNt'!H~ ~EnfilA!rON His BF!'" ~AiiEnlllll'i~~TNT
DFIT~DYPD'
!S!((KrtIT.Tmn·IU',
_.

:=~~~.~bS~~ Am!em~ ~f~~:.;~:5

tNT! ITYM;'!II,;T"

16~11' M;NI/T'"

~RYNTIPRIN~'PR~NT
" "
'
rNPU~'''O .. vnu, W~NT TO TItV UUN"IItS
~~"R' • 'VFS' THEN 23e
GOTO e~I~,
,
,
ArM •• ~ ~H~RT' e~NGE ~EiisnR .r.AN AN" ~TA,,;rNG pnlNT enDF
~OR ~'~I~ITO S,,\
~O- J.82.ITO S,.I
I' ICI O~ !.~ ~R Jel OP :i.~ ;HFN 4!1~

'9ge
5eie

PR!N~ ~

STATIIS R!pnR~'. ".

~::I;ei~~:!~R nF KLtNGnN~ I['T."KO
~"TN' ~N~M~E. n~ STAItDiT~8 LF~i .'Ive
PRtN' 'NllMA!R nF STAR,8.lSirs V~T
GO!O,358m
"R'NTIMS"
efM ••• "HnTON TDR'Eno DATi eO"E eirGfNS HER!
~OR j'!T"3
_
IF KH,lI'" TMEN ~281

.'.9

et!s;'j •• ~2iwi • .elt.
Goro S~ 1, " ,_

t, ix:.tcft:'·'

....

, , _ _ • " _..

~RtN!'~OU ARI! AT QUA~RAN~( ~Q'
~t.,
$!eYOR!
fNPU! 'SM1~ !Nn TA~G~T cnDRD!NAT~S AIt!I'ICI.A.WI.W

~UI

el1'

SUI
e2~'

51,1
SUI

5551

esee
eSsl
es,e
eeel
uie
aeee

51n

864e
568.
Be;'!

.~2 TMEN 5178
•• e TMEN 81"
Cl~5;GOTn ~eee
CI·3.GOTn5'"

Cl.',

•

. .

~:r~;s'm:~~~~~' .!~~~/m:Sh'~AB~ iiI ,.A~~ivl '/iB~iv!'
GOTO.S~'~ , ., '
.. , • . ,
_ .. _
~RrNT ,'OTR!CTlDN .·CI~IA.SrXlIABsrAll
~RHIT ~DTUANC" .. SQRC ... 2 .... "

fF . Hh I THFN S'U
r

~!VT

~~:~; 'on VOU WANT Tn ,'"ir 'H~ ~Ai:C1JLATDR. I , •
r, AS.~VFS. TH~N ."~

~~ _U~~'NO"

TH~N S28~

GOTO I~'~ , , '
.'
__ ..
UM ~.~ !N~ !IF. ~l!~A~V. CO~~UY,'! ~O~E ,.
RI HNTIRNOtl' '~.'llR"'NTI.Nnrt \.hll. " ••
GOSUo "0,1
"
!I' _%~.e TH~N s,u

:~~U:~. TN8ERTtO N !N 'TRTN~ ARRAV ;O~ QUAD~ANT •••
s8.zi.~';Ze.3~28; r~, S8~7~, ~H~N 5!!6~
QI,UF'ru.U.' "A"RrtlHTr~'.S •• 3!
GOTO e~e, .
IF '8.'~4 !Hl!N,,5S9~ , • _ ,
,
RI!UFT rRI. ae.731.A""TG~T IR'. 8e.6~1
GDTO se,~

",'"

SI!UFTISS.ShI4!1 .... Rlr.HTCSS.ShI411
UTURN
, .
' .
REM !.~ ~A!NTI Dl!VrCr ~A~!, FROM ARItAV ...
se~R!.12~',I.. "_Se.'2. TMEN ~eee

~RJNTMr~ln •• s •• I\l.,~GQTn
~RrNT MIOr,..,se.72.111.

RETURN

S'7I

""-.'81' ,.

'!I.v ... u ,.r::l .. wt

GOTC. Sll'~

eUB

eHe

SS~I

203

12'~ _
_ _
"
.
t •• ~TA Tue, REPDRT r.o~! 8PGJNS MERE

5121

!ll'

5UI

, , ,:, , ,.

.~l.Z

• . . . . . _ ••••
_ •.
. _ • • • 11

AAsh!. TH~~_5h~ . ,. ' ..
~!!C! ',! I! A~S( A' .A8$ r~l "AB'~ r A" I U~ r AI,
""INT "DTR~CTlnN .·V!
GO!O. S?4~
"
PRYNT "DTR!CTtnN ,'ci.i •• S;A,iies(V!l

84~e

, .•••• , •.•.

RE~

....

_ • • • • • _._ • • _.~ . . . . . _ • • • • • • • _ • • • • _ • • ~

5182
SIS!
SI?
51!'

5511

• •.•.• • • •.•.••• • .•. "

~OTO

I,.

7q,!!·U!I~'

5.,. H.',
ei'l
XF AB~tA' c,.

.5'~1

nee
S4~'
e•••

Ot'.~~--··-·--~------.-.-~---.---.-w-."

PRINT US~Nr,

•• -:..._- .. •• ••• .... -_:-_. .. ..

....... ,' '!'.. '!' .'~'
'4,_ .... ~It .s,.
_
NI:.1.!O. II. ZIl .2'" rT .31.ltl •• , .'0

rF XcI T~!" 81~1
rF A~' TMEN e19~
II' , •• a T~!N 5.re
TM!N ~152

5e~1

n~2

~:I~m:;:;:~:: :~~:T "ANG;' S!NSORS 'R~ nUT .... ip~tNT

,'~*

seee

!13.

5312
ntl
53tl

"1'I'CS"onC~E""!'3~1~'P"2

4111

eue

"" _

•• ee

S27e
51U

,,"TNT .sMr~Los OROPPEO FilR DnC~ING PURPOSES~.~.ROTO. '3U
II' K3.~TH~N '38~
r, E.EII •• 1 THFN .3'~
tn'GREEN'
GOTO, 438~
.'
eS"~En',IG~Tn '3U
C'··YELLnw·
.

01,.· , , , , , , '.'

4a,1
40 me
4.,1
'9'1

52'0
52!'

lIE'

{'Tn;:.....

NI~'"

NE~T

52~e

AS-"-' IZ',' 17'2-J

t;osue ~6~e
,
f~, n'l 'H~N "40
NEWT J
NEYT, r .
_
oeoe/GnTO 4311, .

.1\'

~ael

tF ,K~c.e TWEN ~911

·'IJNr.T!O~S AVA~lABI E_~POM eO~~VTFR~
~RrNT!
~U~ULATI'!. G~LAeT!e R!~ORO'

oRIN! ~
I ' 8TATUS ~~P~R!' _ .
PRINT " _ , • "MnTnN TnRPE~O DATA'
COTO .66~
"
'.. _.. ' • , ' , '
'_
.,
~!M ••• ~UMULATrVE ;~LACTle R!eORD enDF A!mINS H~RF,
~RjN,.eOMPI'JT~R RECORD i'I~ GiL'.;; ;.o~ ~UADRANT '~I', "~,
~RtHT'
• L" .. ~. . .~ •. _.4 •..• ~ •..• ~ . . . . 1. _ .. e~ ..
~~~N;:
-~~
:~~
~~
_~ ~ II

~RjN;'

.ue
487'
'Iea

~nURN",.
IF _cso-~O~~~D~

PR~NT I'SYN~ rl~

_, _

TonL.!~E~G~. "~'U"

'1'.

.aiJI
4SU
4821
'8;10
4UI
4ese

SEeTnR. -~ IT, II!. ~~ q,~, "~E8T~OVE~ ••••

t<S,K:!I .. t 11!9'K~.t ,A •• tI

GO~O '~3~ •. ,

,..

PRTHT UStN@.D7!.MrDI~ ••• ,.~I,MlOfRI.~,,3!,Mt~r!.,II'.31. _
Mr~f~.,1I8.31.MTDIU.8t .31.Mrnru.u. !I.MTDfU.e7
.
,~lnr",.7~.31.!...
"
.,
~e~'Qu.· '"
_ ~HOTD~ .%OR~~Dn~s . . . . . . . , . . "
... , . . . , .
~RINT USTN~. oa!.Mror~'.1 ,3\.~!~rss., •• 31.Mrnrs •• , .3) .~I~I8I. 1~.31.
.. ' ,,~lnrSl.13.31.M!DI".18.3l.~r~c~ •• I!I.31.M!OfSl.'2.31.P
00"02'" , ... SMI!LDS. , _ . , ••• ,.._. ' . ' _
PItTNT UltN~.OO!.MrOr!,,2~.~I.M!D('~.'~.3!.~r/lr~.,31.31.
MIn ISI,34. 31,.,M'D ,._.37.31. Mrn res •• m. 31. MTD lSI. 43.31.
MrnrSI,.e.3!.s
PRTNT IJS!N~ 01'
~'TU~~ ,
_ .. _
~!M t •• LrRRAR~ eOMPUTFA C"DF A!ftl~S H'R~'
I' _0 Ie, ~ •• THEN 48'1
.. ' _
~R'-N! ~coM,uT!1t O!eA~L~D~lnOTo.i~'~ .
,_
INPUT 'cnMPUT!! AcTtVE AND AWATTrN~ r.OMMANn."'A
J~ "1 GnTn
r~ hI onTO .831
rF: A,2" 60TO ,8ee
"
.,.
0'

..'

~1'I.Q~I!K3.111.83.1~.~3

GO!0.3~3R

P~%NT ~,~'82

!~j~~':V~~~~A~¥~ID!ST~"V "AijS; s%LLvO
9aTO.
A.. ·~IC"IZ .. V.72.Y

133.

_."
TMEN S19'

TMEN ~2~1

ue'

... _.,. __ .

• , ..

, . ' . '~'f"

8' ,,,.

~RrN~. !,~. KLI~GON Di!'TR"V~D ••••
n'K~.'.~O!K'·1

.u~~!n

'RtNT USTN~.03!.M10C!I.".~I',M1DIQS.t'.3l.~!nl~ •• '1.31.
Mr~t~'.3'.31.M!DrQ!·3'&31.~InIQ' •• ~.31.
, ... " ~rorU •• 3.3"M!D,IU.'6.n.r
•
0"'02'" " , .. eO~OI:lnN.
.• \
"....:.,
PR!NT u.rN',o'I.MIDI~.,.,.~I,~'DIQ,.ft'.31.~lnr~'.S~.31, • .
Ml~IQ'.!8,31.M~DIU.61.31.MlnrQI.84.31.MTOIO ••
, '..
,~lnlu.".3) •. C!.
• ..
OS'.021....
.. OU~DA'N%,
_. !'.
,,'.... , _ "
P~!NT lI8!N~ nS!.M!DI-.,1,3\.~ICCItI ••• ~I.IIJ~III.i7,3l.
_ .
Ml~I~'&".SI."!DIU.I3.31,M%/lrAi. U.31.MTDIRS. 10,'31.
M!nr_ •• 22.31.01 I
~R%N~ ',ii,U
"
.
_
Oe,,02ho , , .. SE~TO!!, , _ . • " ,
'
PRtNT uatN~,oe~.~rDI! •• I',".M!OfA'.!'.31 •. , __ • ' ,
Ml~fU.U .31.,M!OIR~.~.,,, .Mrnl~I.S7 .".MTDfRl •••• " .
.. __ .. ~!nllt' •• 3.31.MTDlu •• e." .811

·VI.IV

S"I

SI,.
31,.
Us,

O"'CI"~ , ' .

AI." ,".ZI.W.71'Y
• osu~ S8,'
_
~I' ;U.' !H!N U7e
10TO. "6~
A•• • ••• ·,ZI.X.'I.Y
G08U~ S.,I,
_
X, _Z~oll THI'N, .'~2'

USI
Sle.

S191

, '. ' '" ~101 ••• 12.~1. _ ,

'_ _
•
O~ YCI ~R.Yt.O THEN 3.,.

Of" . . . SYRrNG ~O~PART$
~8.!' .?4 ~Z~.~.'6 t l3*1111
IF MTorlil~.~8.:H<>,u; Tfool

D1RECT!ON = 4
D1STANCE
1,41421
DO YOU WANT TO USE THE CALCULATOR? NO
COMMAND; 7 4
TORPEDO COURSE (1-9);74
TORPEDO TRACK;

IN QUADOANT ,R.AY •••

5.';2 T"EN .,.~

50' ~

73" iG~TO ~el~

IF SA'!" THFN 5r9~
TF MTD,(FU.~8';"'.3~'()AS TIoIE~1 ~BUJ
iJ'liGo.n ~e'0
TF MTDi8"'8~,;j4.3lC.A'; TH'N 5~'~

1 ,
)j<*>J;

i3"

COMMAND;? e
COURSE (1-9) :-? '{
WARP FACTOR (0-8);?

RETURN

tINSTRUcTIONS"
t""MF r,ALA~Y_IS nIVI;'!'; 'N'O AN ~." ~U.ORANT, G~lp"
HWHTC" IS, IN TURN DTVTO'O INTO AN 8.8 5'CTOR GR.O.'
t""M~ eAST OF CHARACTE,;S IS AS FOLLowsi.
... "CU!-

STA."·ATE
CONDITION
G!UAD.'ANT

I"COIoC~AN" 171 • \IIA~P ENGTN!,=, rONT~OI~ln
rOURSE IS TN A C'Rru"u Nu"rOlrAi
••
VECTnR AR.~Nr,E.ENT ." 'MOW"~

~: ~,~~~~EO T~~:E:~~~ ~~~~~; '?~ ;i
MALF WAY Bnl~HN , A'O 2'.

OF
IS U"D"FTNFO:
•••
t • VALUFS MAy AO.RDACM '._
q

• VEern.

A
\

tllr.O~MANI"I , •

•

"'HA5FR CI"'INTRt'll"

All OW5 YOU ,." "E~""OV "'HF' I<LTNr.ONS BV I-fIT'fTNr, \oIt~ ~ITH~

t."

J: I 5
4 • 4
5 , :l

IofE GI"INt.JA SIoIOO'f A'f VOIl, T"'(')I"
t. ... "C'O"'M~Nn ~ • PHnTI"IN Tf'lJ;tPEI"IO CI"INTRI"IL"
t"
eOllR.--E I~ TMJ:" ~A~E A~ tis,",,, IIIl II/,,~p EIIlG'tNr r:ONT~t'lr "
.. "
TF Vt'lU _~TT. TWf KIIIIlGI'IN; Wf: !~ f"IF~TROVEf"I ANI') r';'N"T FTRF"
""
lueK AT VO!!.
IF yl"tu MTS'I, yl"lU A.~E S"B"E~T Tn ;:'T!II "
t"

*>f:lf<

KLINGON DE5TRCJl'Er;.

***

COMI1AND; 7 0
COURSE (1-9);? 7
WARP FACTOR (0-8):? 1
WARP ENG1NES SHUTDOWN AT SECTOR

F'R~~"

PloUSF'R

•. 11

SECTOl<:
<, 6
TOTFIL ENERG\'
2675
PHCITON TOff:PEDOES
9
SHIELDS
J:Et0

=
=

~UJTABI V L,ARGE NIlM,:tE~S OF '~r:'Rr;y UMITS Tn nE"L~TF ,",HI"
~IHfLO Pl"'lWE'R~ KFI!P!N ~'I'Nn nUT WloIpJ vew CliHnnT AT HTM!l~

t.11

23:01
RECo
5, 4

D1RECT10N
6
D1 STANCE
4, 24264
DO YOU WANT TO USE THE CALCULRTO.,? NO
COMMAND:? 4
TORPEDO COURSE (1-9):76
TORPEDO TRACK;

1,"

+++

COMMAND;' ?
COMPUTER ACT I I'E AND AWA I T 1 NG COMMAND: 7 2

....... eO~MANn , ~ tONG RAN~E S~N~C'lt:? ~CANII
'-"
~HI"\W,'1 r;ONOTTTONS 1M CIIPACF' FO~ f'lN' "UADr:tHJT 011,1 "'AeH STOF"
....
,.,F TI-IE ENTFRl)r:nSF TN Tt-fE MT"nLF' "F T~E srH! ... T81! Sr.ANtil
TS CI"IDFO 1'" THE' FO~M XYX. WHFR' THF t.1NTT~ rtlr.TT 13 TIoIE IT
."
"'UMBFR OF ~TAR~. ,,"'E TJ'Nq r'lIra; T3 T~r NHMAER
STA~ ... "
,,11
~A~E~. THF \oIUN"~Ens O!G;''' HI 11-111' NU~BF-"R OF I<l hlr.OMS'."
•• t.tlCOMMANrt

QUADf<:ANT

~rt~~T ~AMGr:' ~EMSI"IR sr,~11I

PRTNT Tt-IF r.lUAORA"JT Y'"'U .-E CtJRRENTI V tN'.
1Nrl.l·l[')tN~1I
~T6R,II:l, !<'-.PtGON~. S;A~BAS~S:
Tt-IF F-"NTE~P~I~E: ALrlNr:"
WlTH OTHtR PFRTIMATE .It.iFnRMATI"~:"

I."

2678

STA.'DATE
CON"ITJON

TO 5.5 Vt"'ll) WI"'IUi_~Dri
tlSF COtiRSE 3'. wup "no. i.
FROM, Qt!AnRHJT 6.~

tit

SECTO~'

TOTAL ENERG1'

COMMAND;? 0
COURSE (1-9):? 3
WARP FACTOR (0-8):71

;; \"
1
,pt

23:02
GREEN

PHOTON TORPEDOES
SHIEL[;'5

\~i"

.~-~,
j:;:,n '"

OUT

}

ON' wA •• 'iCTOR 'S Tr<E S'Z' OF"
!"INF "UAO~AMTr.
TIoIE"E';'O~E Tr'\ roE'"

•

It. • ST,PH

.-•••
.-•••

***

'NTERP~!Sf"

•

t"~+ • • I<'L H'~O~"
~"~JC • ~Ti~A'~E"I~

t·

KL I NGON DESTRO'r'ED

"IOTE'
TIoIE' LIB~4CtV CI"t",I)UTER rCr'lM~.AND 7' WA~ AN OPT'O"l"
TO CnMI'UTE TORPfr.tO TRA 'E~Tr'lRV FnR VOIl rOPTTO~ "'.11
ttl"eO~MhJ~ '5 • ~M!fLO CI'IN;Rr'lL"
t!,"
f"IEFINE'I NLJ~R~R OF F'N"R~y U'IITS TI"I RE .A~STGNE" Tn SIoIIFlns"
tIl
FNFR(';V I~ TAI<EN F'RI"'IM Tr'lTAL SMIPi~ FNFRf;y'."

t.l,1

DUE TO BAD NAI'AGATJON

1,5

STA.'NHE
CONDITION
QUAC·RANT
SECTO.,
TOTAL ENERG\'
PHOTON TCtRF-E[',oES

!-!OTF. TIoIA' TOTAL FNFRV ;'NrlIIOF'S SI.IIF'Ln FNFRr.V: II

t."

~,,,"eoMMANr'I

~ • OAMAGE Cf'lNTFH"Il. RFPnRT"
!IITATF I1F RFPAt~S Ot:' ALI "'EVlr:E~.
A 'IT6TF t"IF RFPAI""
til
l.E~S TIoI4111 7fRO SJ.lOW$ TIoIA' THF "'EVrrE I~ 'E",pr!l~ir.uLvlI
." I"IA~A~Et:!."
t"."t":OMMANI" , • LIII!RARY ~O"'P"TFR"
1,11
T!-IF, !RIURV CO~PIITFR C:rH.JTATN~ TIoI~EF npTtnN~'.n
.,"
I'IPT!I''1N ~ II: CHM!lLAT'VF r.;A'·,I"T'C: RFC"R,.,"
til
WIol'C~ !';HOW~ r:OMPtlTFR MFMnRV r'lF T"'E RFSHL TSII
til
f'lF ,AI.L PQEvtnU!Il i'''~G RHIt;E SFN!IlCH~ ~CAN~"
.. "
('IPTtf"lN 1 1: STATU~ DEIOO~TI'
wHTCIo! ~HOWS ~U~8FR OJ' KLfN(';O"'S, ~TARnATE~.·';
~IVF~

•. It

"If

~NI"'I ~TAR~ASE~

t'l
~"

7
2

r.OTO 23~

FN~

6
0

7 ,

KLINGON5

IN]:(1

STFrR[;'ATES WITH

STFtR8ASES

0
0

SAMPLE RUN

2
104

YOU MliST DESTROY 12

102

"'
6

COMI1AND:? 0
COURSE (1-9);? 3
WARP FACTOR (0-8);? 5

STA.,,·ATE
23:00
CON,' I T](IN
G.'EEN
G1UADI<:ANT
;;::, 6
SECTOl<:
1000
TOTAL ENERG'r'
10
PHOTON TOl<:PE[;'OES
::;HI EL[;'::;

STA.'DATE
COND1TJON
QUAD.,ANT

SEC:TO~:

COMMAND:? 2
LONG RANGE SENSOR SCAN FOR QUAN'ANT

TOTAL ENERG\'
PHOTON To.,PEDOES
SHIELDS
COMMAND;? 2

LONG RANGE SENSOR SCAN FOR QUADRANT

104

COMMAND:? 0
COURSE (1-9):" 8
WARP FACTOR (a-8)'? 1
COMBAT AREA
CONDITION RED
SHIELDS DANGEROUSL\' LOW

2
12

STARDRTE
COND I T I (IN
I;WADI':ANT

2:<01
RE[;'
3:, 4

SE(:TCtf<!

TOTAL ENEfi:GIr'
2997
PHOTON TORPEDOES
10

SHIELDS

COMMAND;? 5
ENERGY AVA I LABLE = 2997
NUMBER OF LIN IT,: TO SHI ELDS;? 300
COMMAND:? 7
COMPUTER ACT! VE AND AWA IT I NG COMMAN,':? 2

COMMAND;? 7
COMPUTER ACT1VE ANI) AWAITING COMMAN";? :l
STATUS REPORT
NUMBER OF KLINGONS LEFT = 6
NUMBER OF 5TARDATE5 LE.T = 22
NUMBER OF STARBASES LEFT
1

+++

7, 6
7. 1. 5
2573:
4
21210

i EI:T', II

"'JPTlr'lN 2 • PIoiOTOM 'ODPFon r""A"
/'.;I'!£!'; TR.JECTO~V AND_ OTS'fAMCF' PlETWF'E~! THf'''
~NTE!tPQrSE J,~D Ai'L KI'p"GnN~ TN YflUR I':IUAOPA~TII

t!"
III

SHIEU)5
COMMAND:? 7'
COMPUTER ACT1VE AND AWAITING COMMAND:?
COMPUTER RECORD OF GALAXY FOR G!UAC'RANT

23:1217
GREEN

204

DEV 1 CE
WARP ENGINE
5, R, SENSOR
L R, SENSOR
PHRSER CNTR
PHOTON TUBE
DAMAGE CNTR
SH1ELD CNH,

STATE OF .'EPAIR

0
2, 73447

0
0
0
0

230$
GREEN

2, 6
7, 1
2538
4

200

SPLAT

OPEN A PARACHUTE AT THE LAST MOMENT

Description
SPLAT simulates a parachute jump in which you try to open your
'chute at the last possible moment without going splat! You
may select your own terminal velocity or let the computer do
it for you. You may also select the acceleration due to gravity
or, again, let the computer do it in which case you might wind
up on any of the eight planets (out to Neptune), the moon, or
sun.
The computer then tells you the height you're jumping from and
asks for the seconds of free fall.
It then divides your free
fall time into eight intervals and gives you progress reports
on your way down. The computer also keeps track of all prior
jumps in the file PARACH.UTE and lets you know how you compared
with previous successful jumps.
Program Author
John F. Yegge
Oak Ridge Associated Universities
Oak Ridge,TN 37830

205

1958 by Editorial Projects, Inc.

PROGRAM LISTING

.$'

30 OPEN 'PAR~eH~utE,i
n'! n
40 DIM .\I,A(4000)
55 RANDOMIZE
95 PRINT "WELCOME TO 'SPLAT'
THE ~AME THAT SIMULATES A PARACHUTE"
96 PRINT 'JUMP, TRy TO OPEN yOUR CHUTE AT THE LAST POSSIBLE'
97 PRINT 'MOMENT WiTHOUT GOING SPLAT,'
1!8 PR INT\PRI NT\01'0\V'0\A '0\N.0\M.e\DI'INT (9UI'RND (I)' 1000)
lIP PRINT " S~L£CT YOUR OWN TERMINAL VELOCITY (YES OR NO)""INPUT AU
120 IF AIS'"NO' THEN 128 fLSE IF AII"YES· THEN 123
12) PRINT "YES' OR 'NO' PLEASE'I\INPUT AII\GOTO 120
123 PRINT "WHAT TERMINAL VELOCITY (MI/HR)"\INPUT VI
I 25 VI -V I' (S28B/3600) \V'V I' (( VI'RND (0» 120) - « VI.RND (0» 120) \GOTO I JS
128 VI'INTCU0hRND(0»
130 PRINT 'OK, TERMINAL VELOCITY .'VI"MIIHR"
131 VI.V I' (S280/36001 \ V.V I' « VI oRND (011/201- «( VI.RND (0») 120)
135 PRINT "WANT TO SEL~CT ACCELERATION OUE TO GRAVITY (YES OR NO)" I
IJ6 INPUT Bli
,
H0 IF BIS"NO' THEN 150 ELSE IF BIS"YES' THEN 143
141 PRINT "YES' OR 'NO' PLEASE"I\lNPUT 815\GOTO 140
143 PRINT .WHAT ACCELERATION (FTlSEC/SEC)Ol\INPUT A2
145 A.A2. ( (A2.RND (0) )/20) - «(A2.RN'0 (0) )/20)\GOTO 208
160 ON INT( 1+ (I0.RND (e)) ) GO TO 151.152,153,154,155.156.157,158 ,1S9 .160
151 p~INT.FINE, YOU'RE ON MERCU~Y, ACCELERATION-12,2FT/SEC/SEC"\GOTOI61
152 PR INT' AI.R IGHT, YOU'RE ON VENUS, ACCELERAT ION_2B, J fT ISEC/SEC" \GOTO 162
153 PRINT 'THEN YOU'RE ON EARTM, ACCELERATlON 032,I6 FTlSEClSEC"\GOTO 163
154 PRINT'FINE, YOU'RE ON TME MOON, ACCE.LERATIONoS.!5FT/SEC/8EC"\GOTO 16.
155 PRINT'ALRIGMT. YOu'RE ON MARS. ACCELERHIONof2,5FT/SEC/SEC"\GOTO 165
156 PRINT' THEN yOU'RE ON JUPITER, ACCELERATION'85,2FTlSEClSEC"\GOTO 166
157 PRINT'FINE, YOU'RE ON SATURN, ACCELERATION'37.6FTlSEC/SEC"\GOTO 167
158 PRINT"ALRIGHT, YOU'RE ON URANUS, ACCELERATlON033,BFTlSEC/SEC"\GOTO 168
159 PRINT"THEN YOU'HE ON NEPTUNE, ACCELERATION"39,6FT/SECl8EC'\GOTO 169
160 PRINT"FINE, YOU'RE ON THE SUN, ACCELE~ATION'B96FT/SEClSEC'\GnTO 17m
161 A2'12,2\GOTO I.~
162 A2'28,3\GOTO 145
163 A2 0 32,I6\GOTO 1.5
164 A205,15\GOTO 145
165 A2'12,5\GOTO 145
166 A2085,2\GOTO 145
167 A2 0 37,6\GO,TO 145
168 A2'33,8 \GOTO 145
169 A2 0 39,6\GOTO 145
170 A2 o e96\GOTO 145
205 PRINT
206 PRINT"
ALTITUDE
'"DI'FT'
207 PRINT"
TERH,VELOCITY
o"VI'FT/SEC .~S'"
208 PRINT"
ACCELERATIoN
."A2'FT/SEc/SEC .-5X"
210 PRINT "SET TH,- TIMER FOR YOUR FREEFALL."
211 PRINT "HOW MANY SECONDS'''INOUT T
21S PRINT "HERE WE GO,"
217 PRINT
218 PRINT 'TIME (SEc)', "OI8T TO FALL (FT)"

21g PRINT

H • • • • • • • • • • " , . . . . . . . . . . . . . . . . . . . ..

300 FOR 1'0 TO T STEP CT 18)
310 IF I,V/A GOTO 400
320 0001-( (A/2).I.2)
330 IF 0"0 GO TO 1000
340 PRINT I,D
3S0 NEXT I
360 GOTO 500
400 PRINT "TERMINAL V~LOCITY REACHEO AT T PLUS'VIA"SECONOS"
405 FOR 1'1 TO TSTEP (T/8)
410 D'OI~( (V-21 (2 •• ,,+ (v. (I-CV IA))) l
420 If 0"0 GOTO 1010
430 PRINT I,D
440 NEXT 1
450 GOTO 500
500 PRINT 'CHUTE OPEN"
510 K.e\Kl'0
530 FOR 1.1 TO .000
550 IF ACl).m GOTO 620
560 K.K'I
570 If 0.', (1) GOTO 60~
580 KloKI.1
600 NEXT 1
620 A(I)'O
530 1-1-1
550 IF K~KI . . ,I.K GO TO 700
660 If K~KI<o,25'K GOTO 710
670 IF K-Klc.,5'K GO TO 720
680 IF K-Klc',7b'K GOTO 730
690 If K-KI<',9.K GOTO 740
595 GOTO 750
T~AT'S SOME JuMPING,
OF T~E"K'SUCCESSFuL JUMPS"
700 PRINT "wO~"
701 PRINT "BEFORE YOURS, ONLY"K-KI"OPENEO THEtR CHUTES LOwER THAN"
702 PRINT "YOU 010,"
703 GOTO 2000
710 PRINT "PRETTY GOODI " K'SUCCESSFUL JUMpS PREC,-DED YOURS AND ONLY'
711 PRINT K-KI' of THEM GOT LowER THA~ YOU DID BEfORE THEIR CHUTES'
712 PRINT "OPENED,' \GOTO 2000
720 PRINT 'NOT 8AD., THERE HAVE 8£EN'K"SUCCEUfUL JUMPS BEfORE YOURS,"
721 PRINT'YOl) ~ERE BEATEN OUT BY'K-KI"OF THEM. "\GOTO 2000
730 PRINT "CONSERVATIVE AREN'T YOU? YOU RANKfD ONLY'K-KI"I'" THE"
731 PRINT K"SUCCESSi'UL JUMpS BEFORE YOURS, "iGOTO 2000
740 PRINT "HUMP~I OO~" YOU HAVE ANY SPORUNG BLOOD? THERE "ERE"
741 PRINT K"SUCCESSFUL JUMPS BEFORE YOURS AND YOU CAME INOKI"JUMPS"
742 PRINT "BETT~R THAN THE WORST, SHAPE UPI11"\GOTO 2000
750 PRINT "HEYI YOU PU~LED THE RIP CORD ~UC" TOO SOON, "~"SUCCESSFUL"
~~~ ~~~~T2;~~~PS ~EFOME YOURS AND YOU CAME IN NU~BER"K.KI"I GET WITH ITI"
8~0 PRINT "REQUIESCAT IN PACE,"\GOTO 19S0
801 PRINT 'MAy THE A~GEL OF HEAvEN LEAD yOU INTO PARADISE"\GOTO 1950
802 ORINT 'REST IN oEACE"\GOTO 1950
803 PRINT "SON-oF-A-GUN'\GOTO 1950
804 PRINT "*$~&&.I$·\GOTO 1950
805 PRINT "A KICK IN THE PANTS IS A BOOB'T IF YOU'RE HEADED RIGHT'\GOTO 1950
806 PRINT "HMMM, SHOULO HAVE PICKEO A' SHORTER n"E,"\GOTO 195~
807 PRINT "MUTTER, MUTTER, MUTTER,"\GOTO' 1950
e08 PRINT "PUSHING UP DAISIES,'\GOTOI9S.0
809 PRINT 'EASY COME, EASY GO,'\GOTOI950
1200 PRINT SGR(2'011A),'SPLAT'
1005 ON INT (I, (!00RND (0)) GOTO 8~0, 801',802,803,804,805,806,807, 80B, 809
1010 PRINT C-V/A).(DI~(v.21(2*A""V),"SPLAT"
1020 GOTO U05
'
1950 PRINT "I'LL GIVE YOU ANOTHER CHANCE,"\GOTO 2000
2000 PRINT "DO YOU ~ANT TO PLAy AGAIN' "INPUT ZS
2m01 IF IS'"YES' GOTO 118
2002 IF zso'NO" GOTO 2005
2003 PRINT "YES OR NO"\GOTO 2000
2005 PRINT "PLEASE"I\INPUT IS\IF lS.oYES" THEN 118 ELSE 2007
2007 PRINT "SSSS8SSSSS,'\GOTO 20~6

~::: ~~gSE Il

206

SAMPLE RUN
WELCOME TO 'SPLAT' -- THE GAME THAT SIMULATES A PARACHUTE
JUMP. TRY TO OPEN YOUR CHUTE AT THE LAST POSSIBLE
MOMENT WI,THooT GOING SPLAT.
SELECT YOUR OWN. ri:AMINAL VELOCITY (YES OR,~O)? ,!!IQ,
TEAM'njAL VEL(JCITY • 796 Ml/llR,
"
WANT TO SELECT ACCELERATION DUE TO GRAVITY (YES ,OR NO)? NO
FINE. Yoo'R£ ON. ,MERCURY. ACCEt.ERATION.I!I~!lFT/SEe/SEC

O~.

ALTITUDE
• 9297 FT
TEAM.VELOCITY
-'1167.47 FT/SEC +-51
ACCELERATION
• 12.2 FT/SEC/SEC +-51
SET THE TIMER FOR YOUR FREEFALL.
HOW MANY SECONDS? 8
HERE WE GO.
TIME (SEC)

DIST TO' FALL (FT)

9297
9290.88
9272.51
9241,89
9199.02
9143.91
9076.55
8996.94
8905.09

I
2

3
4
5
6
7
8

CHUTE OPEN
CONSERVATIVE AREN'T YOU? YOU RANKED ONLY 9 IN THE
14 SUCCESSFUL JUMPS BEFORE YOURS.
DO YOU WANT TO PLAY AGAIN? YES
SELECT YOUR OWN TERMINAL VELOCITY (YES OR NO)? NO
OK. TEAMINAL VELOCITY'- 971 MI/HR
WANT TO SELECT ACCELERATION DUE TO GRAVITY (YES OR NO)7 NO
FINE. YOU'RE ON MERCURY. ACCELERATlON-12.2FT/SEC/SEC
ALTITUDE
- 5884 FT
TERM.VELOCITY
- 1424.13 FT/SEC '-5%
ACCELERATION
• 12.2 FUSEC/SEC +-5~
SET THE TIMER FOR YOUR FREEFALL.
HOW MANY SECONDS? 80
HERE WE GO.
TIME (SEC)

DIST TO FALL (FT!

5884
III
5295
20
3527.99
30
582.97
31.6066
SPLAT
PUSHING UP DAISIES.
I'LL GIVE YOU ANOTHER CHANCE.
DO YOU WANT TO PLAY AGAI N? YES
SELECT YOUR OWN TERMINAL VELOCITY (YES OR NO)? NO
OK. TEAMINAL VELOCITY • 740 MI/HR
WANT TO SELECT ACCELERATION DUE TO GRAVITY (YES OR NOI? NO
THEN YOU'RE ON NEPTUNE. ACCELERATION-39.6FT/SEC/SEC
ALTITUDE
• 5189 FT
TEAM.VELOCITY
• 1085.33 FT/SEC +-5%
ACCELERATION
• 39.6 FT/SEC/SEC +-5%
SET THE T I MER FOR YOUR FREEF ALL.
HOW MANY SECONDS? 18
HERE WE GO.
TIME (SEC)

DIST TO FALL (FT)

11.25
13.5

5189
5089.74
4791.95
4295.63
3600.78
2707.4
1615.5

15.75

325.072

2.25
4.5
6.75
9

16.2678
SPLAT
MAY THE ANGEL OF HEAVEN LEAD YOU INTO PARADISE
I'LL GIVE YOU ANOTHER CHANCE.
DO YOU WANT TO PLAY AGAI N? YES

Iil~
\

STARS

A NUMBER GUESSING GAME

Description
In this game, the computer selects a random number from 1 to 100
(or any value you set in Statement 150). You try to guess the
number and the computer gives you clues to tell you how close
you're getting. One star (*) means you're far away from the
number; seven stars (*******) means you're really close. You
get 7 guesses.
On the surface this game is very similar to GUESS; however, the
guessing strategy is quite different. See if you can come up
with one or more approaches to finding the mystery number.
Program 'Author
Bob Albrecht
People's Computer Company
Menlo Park, CA 94025

207

PROGRAM LISTING
!B0 REM ••• STARS •

PEOP~E'S COMPUTER

CENTER, MENLO PARK, CA

110 PRINT "STARS· A NUMBER GUESSING GAME"
120 PRINT
130 RANDOM I ZE
140 REM ••• A IS LIMIT ON NUMBER,

OK,

AM THINKING OF A NUMBER.

yOUR GUESS?

START GUESSING.

M IS NUMBER OF GUESSES

150 LET .0100

YOUR GUESS? 56

160 LET Ma 7

170 PRINT "00 VOU wANT INSTRUCTIONS CloVES 00NO)"1

180 INPUT

YOUR GUESS? 58

190 IF Zae THEN 280
200 REM ••• INSTRUCTIONS ON HO_ TO PLAY

**************************************************!! !
YOU GOT IT IN

2U PRINT '1 AM THINKING OF A WHOLE NUMBER FROM 1 TO"IA
220
230
240
250
260

270
280
290

300
3U
32~

330
340
350
360
37~

380

PRINT "TRY TO GUESS MY NUMBER. AFTER YOU GUE-SS, I"
PRINT ""H.L TYPE ONE OR MORE STARS C.). THE MORE"
PRINT "STARS I TYPE, THE CLOSiR YOU ARE TO MV NUMBER."
PRINT "ONE STAR
MEANS FAR AWAY. SEVEN STARS C••••••• )"
PRINT 'M.EANS REALLY CLOSE I YOU GET"'M,"GUESSES."
REM ••• COMPUTER 'THINKS' OF A NUMBER
PRINT
PRINT
I.ET Xo INTC •• RND(0))+1
PRINT "OK, I AM THINKING OF A NUMBER. START GUESSING."
RE~ ••• GUESSING BEGINS. HIlMAN GETS M GUESSES
FOR hi TO "
PRINT
PRINT "YOUR GUESS',
INPUT G
IF GaX THEN 600
LET OaABSCX-Gl

C.,

D
D .a
0
0
0
0

430
440

IF
IF
IF
IF
IF
IF

450

P~I"IT

390

400
~10

420

64 THEN 510

32 THEN 500
.a
490
.a e16 THEN 480
4 THEN 470

460 PRINT

.0II.",2

630
640

650
660

yOUR GUESS? 68

*>1:**
YOUR GUESS?

******
YOUR GUESS? 82

*****
YOUR GUESS? 78

*>f<",>f:***

6 GUESSES!!

LET'S PLAY

AGAIN.

THEN 460
01(,

1I.1t 1

AM THINKING OF A NUMBER.

START GUESSING.

.*.

YOUR GUESS? 20

YOUR GUESS? 44

,..11,

*****

NEXT K

YOUR GUESS? 50

REM ••• DID NOT GUESS NUMBER IN M GUESSES
PRINT
IISORRY, THATISII,M,"GUESSES. NU~BER wASlqX
GOTO 280
REM ••• wE HAVE A WINNER
FOR NO\ TO 50
PRINT "."
NEXT N
PRINT "III"
PRINT "YOU GOT IT IN "'~"GUESSESII
LET'S PLAY AGAIN ... "
GOTD 280
END

560 PRINT
58~

START GUESS I NG.

YOUR GUESS? 20

YOU GOT IT IN

49121 PRINT ". 11 ,
51210 PRINT ".ItJ

590
600
610
620

AM THINKING OF A NUMBER.

AGAI~

**************************************************! ! !

48121 PR:ItIIT p*ItJ

LET'S PLAY

YOUR GUESS? 77

THEN

41121 PRINT ".'"

510
520
530
540
550

01(,

3 GUESSES!!

.~"'",*

YOUR GUESS? 38

*It",*",*
YOUR GUESS? 40

*>I<*******************.t:****************************! ! !
YOU GOT IT IN

01(,

5 GUESSES!'

LET'S PLAY AGAI~

AM' THINKING OF A NUMBER.

START GIJESSINCi.

YOUR GUESS? 80

**
VOUR GUESS? 32

SAMPLE RUN
STARS -

****
YOUR GUESS? 20'

A NUMBER GUESS I NG GAME

00 YOU WANT INSTRUCTIONS (1=YES 0=NO)"? 1
FROM 1 TO 111
I AM THINKING OF A WHOLE NUMBE

TRY TO GUESS M't' NUMBER.

AFTER 'T'OU GUESS,

YOUR GUESS? 42

*****

IHLL· TYPE ONE OR MORE 5TA",S <*). THE MORE
STARS I TYPE- THE CLOSH, YOU ARE TO MI' NUM8ER.
ONE STAR (*) t1EANS FAR AWA'TI. SEYEN STARS (*******)
t1EANS REALLY CLOSE ~ 'r'OU GET 7 GUESSES.

OK,

AM TH I NK I NG OF A NUMBER.

YOUR GUESS? 46

*******************************************",******! ! !
YOU GOT IT IN

START flUE::' 5 I NG.

01(,

YOUR GUESS? 50

5 GUESSES'!

LET' S PLA~' AGA IN.

I AM THINkING OF A NUMBER.

START GUESSING.

YOUR GUESS? 30

***

****

,.-.

YOUR GUESS? 75

YOUR GUESS? 44

>f:>t***
YOUR GUESS? :32

YOUR GUESS? 28

*>f;****
YOUR GUESS? 67

YOUR GUESS? 16

>f:*****

*****

YOU", GUESS? 68

YOUR GUESS? 20

*******

YOUR GUESS? 69

YOUR GUESS? 21

"'*************************************************!! !

YOU GOT I TIN

6 GUESSES!!

*******>f¢.******************************************! ! !

LET . . S F'LA''I' AGA 1 N.

YOU GOT IT IN

208

6 GUESSES!!

LET'S PLA~' AGAIN.

0,,'

!)
III

tl;;1
1it·1

i.;
tl

!':I
.1

STOCK

PLAY THE STOCK MARKET

Description
This program "plays" the stock market. You will be given $10,000
and may buy or sell stocks. Stock prices and trends are generated
randomly: therefore, this model does not represent exactly what
happens on the exchange.
(Depending upon your point o'f view, you
may feel this is quite a good representation!)
Every trading day, a table of stocks, their prices, and number of
shares in your portfolio is printed. Following this, the initials
of each stock are printed followed by a question mark. You indicate your transaction in number of shares--a positive number
to buy, negative number to sell, or 0 to do no trading •. A
brokerage fee of 1% is charged on all transactions (a bargain!).
Note: Even if the value of a stock drops to zero, it may rebound again--then again, it may not.
Source
A good stock market game for EduSystem 30 was submitted by John
Tieman of Adlai Stevenson High School, Prairie View, Illinois:
it was written by a student named Gidzinski. Another one was
written by G. Clayton Jobe1 of Concord, NH, for EduSystem 10!
The autho~s of the one printed are:
D. Pesse1, L. Braun, C. Losik
Huntington Computer Project
SUNY

Stony Brook, NY

209

PROGRAM LISTING
In REM STOCK MARKET SI"U~ATION
-STOCK"
III REM REVISED 8/18170(0. PESSE~, L.. BRAUN, C, L.OSIKl ....
102 REM IMP VRB~S! A-MRKT TRNO SL.P, B5.SRKRGE FEE, C-TT~ caM ASSTS,
U3 REM C5-TT~.CSM ASSTS (TEMPl' CCl)-CMNG IN STK VAL.,D.TTj. ASSTSI
10TRl·ME\ ;E2-LRrJ ·cllNcfMTsc/T'STCY.'-1 f;T2~STCKS·W·~RQCMNG'105 REM NI.N2-L.RG CHNG DAY CNTS' P5-TT~ DAYS PRCMSSI PCll-PRTFL CNTNTSI
Trie· REM Q9.NEW CYCL.?I S4-SGN OF AI S5-TTI. Dya SL.SI S(ll'VA~UE/SMRI
107 REM T-TTL. STCK ASSTSI T5-TT~ VAL. OF TRNSCTNa,
108 REM 03-LRG CHNG, XI-SM~L. CHNGC<$Il' Z4,Z5,Z6-NYSE AVE.' Z(I)-TRNSCTN.
109 PRINT TABC20ll"THE STOCK MARKET"
110 DIMS(S);p(5Y;z(sr;C{Sl·
_nn
112 REM SL.OPE OF MARKET TRENDIA (SAME FOR ALL. STOCKSl
·113 RANDOMIZE
114 L.ET A.INT(eRNOeXl/10l-1000,5l/100
-fle-·- ~·ET T5.0
I Ie UT X980
II7--UY·", I ,if
118 L.ET N2'0
-fl9 ~ET EI_0
120 L.ET E2'0
121 REM INfRODUCTlON
122
"DO YOU wANT
THE-----..
INSTRUCTIONS
123 PRINT
INPUT Z9
.. ---.-..
-----.. J'fU"_tYPE_.1.!...N.~.Ul'L!J·J.
124

Ilfe· -PRINT
126 IF Z9<1 THEN 200
130 PRINT "THIS PROGRAM P~AYS TH~ STOCK MARKET. YOU WILL. BE GIVEN"
132 PRINT "510,000 AND M.AVBUV OR SELL. STOCKS. THE STOCK PRICES WIL.L."
1J4-I"RTNf-"BE -GENElun'·D· RANDOML.V AND THEREFORE ·fHIS--MOOE[-OIlES NOT"
135 PRINT "REPRESENT EXACTL.Y OHAT HAPPENS ON THE EXCHANGE. A TABL.E"
He PRINT "OF AVAIL.ABLE STOCKS, THEIR PRICES, AND THE NUMBER OF SHARES"
137 PRINT "IN YOUR PORTFOL.IO WILL. BE PRINTED. FOL.LOWING THIS, THE"
T38 PRINT "INITIAL.S OF EACH STOCK .ILL. BE PRINTEO WITH A QUESTION"
139 PRINT "MARK. HERE YOU INDICHE A TRANSACTION. TO BUY A STOCK"
-r4r·Pl'<INT·-"nn.'mN;10 SELLA· STOCK TYPE .NNN, WHERE NNN IS THE"
141 PRINT "NUMBER OF SHARES. A BROKERAGE FEE OF IX WILL. BE CHARGED"
f42 PRINT "ON ALL TRANSACTIONS. NOTE THAT IF A STOCK'S VALUE DROPS"
143 PRINT "TO ZERO IT MAY REBOUND TO A POSITIVE VALUE AGAI.. YOU"
-144 PRINT "HAVE S!0.000 TO INVEST. USE INTEGERS FOR AL.L. YOUR INPUTS."
145 PRINT "(NOTE! TO GET A 'FEEL' FOR THE MARKET RUN FOR AT L.EAST"
146 PRINT WI. DAVSl"
147 PRINT ".····&000 L.UCKI··· •• '
200 REM GENERATION OF STOCK TARLE' INPUT REQUESTS
210 REM INITIAL. STOCK VAL.UES
220 LET 50)'100
230 L.ET SC~).85
-nr CETsT3l'f50
250 LET S(4l'140
:l60 LET 5(5)'110
265 REM INITIAL T8 • • DA.YB FOR FIRST TREND SL.OPE (Al
266 L.ET T8-INTC4.990RNOeXHI)
267 REM RANDOMIZE SIGN OF FIRST TREND SL.OPE (Al
-~8·-tF RND (X l>.5 THEN 2"0
..
269 L.ET A•• A
270 REM RANDOMIZE INITIAL. VALUES
280 GOSUB 830
285 REM INITIAL. PORTFOL.IO CONTENTS
290 FOR 1'1 TO 5
-·Y0lilPC 1100
305 LET ZCIl'0
310 NEXT I
320 PRINT
330 PRINT
333 REM INITIALIZE CASH ASSETS,C
335 LET C'10000
H8 REM PRINT INITIAL. PORTFOLIO
340 PRINT "STOCK"," ","INITIALS","PRICE/SI-!.ARE"
350 PRINT "INT, 8ALLISTIC MISSIL.ES"," IBM".SCI)
352 PRINT "RED CROSS OF AMERICA"," RCA",S(2)
354 PRINT "LIC~TENSTEI'" BUMRAP & JOKE"," L.BJ".SCJl
""356--- pf<rl'fr-II .)lttnCA-N--lfA:-ti,j-KRUP-" co I II I " ABC 'I, S C4'
358 PRINT "CENSURED BOOKS STORE",' CBS",S(5l
360 PRINT
361 REM NYSE AVERAGE!Z5, TEMP. VAI.UEIl4, NET CHANGE,Ze
·363 ~ET I"ZB
364 L.ET Z5.0

·OSS--Le: T T' 0
370 FOR 1'1 TO S
·37-5 - ~ET a.zeos CI 1
380 LET T'ToSClloP(ll
390 NEXT I
391 L.ET Z5.INTCl00oCZ5/5)+.Sl/100
J9rCn-Z60 nne (Zs-~t41'100 •• 5l/100
393 REM TOTAL ASStTS'D
394· LET D'loC
39~
IF X9.0 THEN 398
396 PRINT 'NEW YORK STOCK EXCHANGE AVERAGE I 'ZS
397 GO TO 399
.-ge-PRI Nf··'1NEw·-YORiCSTOClf EXCHANGE AVERAGE' "ZS'
Nn·-·C~ANGEi -'ze
399 PRINT
400 LET T'INTCI00oTo.5l/100
401 PRINT "TOTAL STOCK ASSETS ARE
$"/T
~03
L.ET CoINTC100oCo.5l/100
40S PRINT "TOTAL CASH ASSETS ARE
S",C
~E'r-l>.TNT(f00.0+, sfll 00·408 PRINT "TOTAL ASSETS ARE
$" /0
410 PRINT
IF X9'0 THEN 416
411
-.-12 PRINT "00 YOU WISH TO CONTINUE (YES-TYPE I, NO-TYPE 0l"
413 INPUT Q9
4T4--Ir Qg<1 TREN998416 REM INPUT TRANSACTIONS
420· PRINT "WHAT IS YOUR TRANSACTION IN"
430 PRINT "IBM'"
440 INPUT Z (I)
450 PRINT "RCA"
4!iI--lNpo T··Z (2 )470 PRINT "LBJ'"
480 INPUT ZC3l
400 PRINT "ABC'"
500 fNPUT ZC4l
510 PRINT 'CBS"
02i'--lNP-UTi CSl· ....
525 PRINT
530 REM TOTAL. CAY'S PURCHASES IN S,PS
540 LET P5.0

!!Iil··lf(M TOTAL. DAY'S SAL.ES IN S,S5
560 LET 56.0

~f05

575

LET ZCI)'INTCZCI)o.S)
IF z(l)ooi'~-TMEN 610
590 ~ET P5.PSoZ CI)-S CI)
600 GO TO 620
610 LET S5.SS-ZClloSOl
512 IF -zCll••p-m--THEN620
614 PRINT 'YOU HAVE OVERSO~D A !TOCK' TRY AGAIN."
·e16 GO TO 420
6U NEXT I
-1)22 REM TOTAL. VALUE OF TRANSACTlONS,TS
625 LET T5.P50S5
630 REM BROKERAGE fEEIBS
640 LET B5'INT( .0IoTSoI000.5l/U0
-nti,- R·EM CASH ASSETS.OLD CASH ASSETS-TOTAL. PURCHASES
e52 REM -BROKERAGE FEES.TOTAL SAL.ESICS
654 ·L.ET C50C.PS-BSoSS
656 IF C5U0 THEN 674
688. PRINT "VOU1ilvCUSED jll,-;'ce"MORE-fHAN YoO nR·NE;-"680 GO TO 420
674 LETC'CS
675 REM CAL.CULATE NEW PORTFOLIO
·680 FOR I-I TO 5
690 L.ET P(Il,POloZCll
~-8·1i

n-rN-rxy----r

--------~---

710 REM CALCULATE NEW STOCK VALU~S
720 GOSUB 830
750 REM PRINT PORTFOLIO
71rf -REM BEL.L. RINGrNG-DI~FER-ENt ON MANY COMPUTERS
762 FOR 1.1 TO 20

no PlITNrCHRs(TnlT
,754
755

756

·757
758
~

NEXT I
PRINT

PRINT "..........

END OF DAY'S TRADING"

PRINT
PRINT
rr-W<TTHEN-,-ggPRINT "STOCK'. "PRICE/SHARE", "HOLDINGS", "VALUE", "NET PRICE CHANGE"
PRINT "IBM'. S(Il. POl. SCllOPC!), COl
PRINT "RCA", 5(2), P(2). SC2loPC2', CC2l
PRINT "L.BJ". se3l, P(3). SCl)oPC3l, C(3)
PRINT "ABC", se4l, P(4), SC4loP(4l. CC4l

769
770
771
772
773
Tn PUNTffCBS";--s(lIr,1'T5T,s(s) .1'(5), C(5)
775 I.ET Xgol
180 PRINT
790 PRINT
810- GO TO 360
829 REM NEW STOCK VAL.UES - SUBROUTINE
~-lfoffr!ANliOI''-CY~oolJC"x"w-nOCK vALUES BASEaON I'REV!OVS
831 REM DAY' 5 VAL.UES
832 REM "I,N2 ARE RANOOM NUMBERS O~ OAYS WHICH RESPECTIVELY
833 REM DETERMINE WHEN STOCK II WILL INCREASE 10 PTS. AND STOCK
834 REM 12 WILL GECREASE 10 PTS.
840 REM IF NI DAYS HAVE PASSEO, PICK AN II. SET EI, DETERMINE._".E" N.I
84T· ·IT NT"",· tHEN 850 - . 845 L.ET IloINT(4.990RNDCXHI)
846 L.ET NI'INTC4.990RNO(Xloll
847 L.ET Ejol
850 REM If "2 DAYS HAVE PASSED, PICK AN 12, SET E2, DETERMINE NEO N2
8S1 IF N2'0 THEN 860
8·S5 LET I2'INTC4;990RNDexlu)
856 L.ET N2 o INTC4.990RNOCXhl)
857 L.ET E2'1
860 REM DEDUCT ONE OAY ~ROM NI AND N2
861 L.ET NI'NI'I
852 L.ET N2.N2_1
JIlQ; REMTbopfff~IlUGjn\LLSfOCKS
900 FOR 101 TO 5
910 ~ET XI.RNDCXl
91s IF XI>.25 THEN 920
916 I.ET XI •• 2S
917 GO TO 935
920 IF XI •• 50 THEN 925
921 L.ET XI'.50
922 liD TO 935
925 IF XI>.75 THEN 930
926 lET XI-.75
927 GO TO 935
930 L.ET XI00.0
931 REM BIG CHANGE CONSTANT,W3 CSET TO ZERO IN!TIA~L.Yl
!f3S L.ET WJ'0
936 IF .EI<I THE;N 945
937 IF INT(IIO.5loINT(!_,5l THEN 945
938 REM ADO 10 PTS. TO THIS STOCK I RESET EI

93!l-L;ITwj.fjj------------· .

943. ~ET EI'0
945 If E2<1 THEN 9S5
9.47 IF INT(l20.5loINT(Io.5l THEN 955
948 REM SUBTRACT 10 PTS. FROM THIS STOCK'
949 LET 03.W3-10

95r

RESET E2

-crr E2-.0-

954 REM COl IS CHANGE IN STOCK VAL.UE
955 -~ET COloINTeAOS(lll.XI.INTCJ-6oRNDCX)o,S)oW3
;561.ET COl'INToa0 0C(I)o.5)/100
951 LET SO)'S(Il+CCIl
960 IF 50).0 THEN 9"'

9!4-L.ETcfffill--

210

985 LET S Cl ).0
966 GO TO. 970
967 l.ET SCIl'IN1(1000S(I)o.5)/100
970 NEXT I
972 REM AFTER T8 DAYS RANDOMLY C.H~N";' T.~ND ._SJGN AND SL.OPE
973 L.ET T8'TS-1
974 IF Tecl .THEN 9.85
980 RETURN
985 REM RANDOMLY CHANGE TREND SIGN ANO SLOPE CAl, AND DURATION
985 REM OF T~END (T8l
990 LET TSoINT(4.990RND(Xhll
992 LETT.INT( (RN-DTi07T~).i88 •• 81/100
993 loET 84'RNDCXl
994 IF S4<'.5 THEN 997
9ge ~ET A.-A
·U1- RETURN
998 PRINT "HOPE YOU HAD FUNII II

nro-

SAMPLE RUN
THE STOCK MARKET
DO YOU WANT THE INSTRIXTIONS (~'E$-Tl'PE 1,

**********

NO-Tl'PE 0)? 1

STOCK
IBti
RCA
LBJ
ABC
CBS

THIS PROGRAM PLAYS THE STOCK MARKET.

YOU WILL BE GIVEN
THE STOCK PRICES WILL
BE GENERATED RANDOt1L Y AND THEREFORE TH I S MODEL DOES NOT
REPRESENT EXACTL~' WHAT HAPPENS ON THE E:'CHANGE.
A TABLE
OF AVAILABLE STOCK~ THEIR PRICES, AND THE NUMBER OF SHARES
I N YOUR PORTFOLI 0 WILL 8E PR JNTED,
FOLLOW I NG TH I S, THE
INITIALS OF EACH STOCK WILL BE PRINTED WITH A G<UESTION
NARK,
HERE YOU INDICATE A TRANSACTIO~
TO BUY A STOCK
TYPE +NNN, TO SELL A STOCK T~'PE -NNN, WHH:E NNN IS THE
NUMBER OF SHARES,
A BROKERAGE FEE OF 1% WILL BE CHARGED
ON ALL TRANSACT IONS.
NOTE THAT ] F A STOCK·' S 'y'ALUE ()FWF'S
TO ZERO IT MAY RE80UND TO A POSITII'E ",ALUE AGAIN,
~'OU
HAVE $10, Boe TO INVEST.
USE INTEGE,:S FOR ALL ~'OUR INPUTS.

'10,000 AND MAY BUY OR SELL STOCKS.

(NOTE:
TO GET A ',FEEL'" FOR THE MAf<:KET FWN
10 DAYS)
-----OOOD LUCK! -----

TOTAL STOCK ASSETS ARE
TOTAL CASH ASSETS ARE
TOTAL ASSETS ARE
~HAT

18M?
RCA?
LBJ?
ABC?

NET PRICE CHANGE
-5
-1.25

126.5

1117, 5

111
82.25

5
20

555
1645

-4, 25
-2,5

ABC

CBS

107. ;;::5
:::5.75

**********

10? 75

VALUE
2155
415

661:.75
957.

112.85

$ 4191. 25
$ 571212. 45

TOTAL ASSETS ARE

NET PRI CE CHANGE

.5
-;2.75
-2.

-5
-3:.

125. 75

114

57121

8J.25

1665

STOCK
Ieti
RCA
LBJ
AE:C
CBS

ABC? 0
CBS? 10

END OF DA'r S Tf<:ADING

f~BC

CBS

90. 25

HOLDINGS
30
15

TOTAL STOCK ASSETS ARE
TOTAL CASH ASSETS ARE
TOTAL ASSETS ARE

VALUE
2992. 5
11:31. 25

61]:. 75
1805

NEW YORK STOCK EXCHANGE AVERAGE:

11216. 4

NET

280€~.

941211. 3

DO YOU WISH TO CONTINUE (YES-TYPE
WHAT IS YOUR TRANSACTION IN

STOCK
IBM
RCA

LBe!
ABC
CBS

NET CHANGE: -6.45

LB~T?

HOLDI HGS

95
13:0.75
122. 75
85,75

25
5
5

2375

NET PR I CE CHANGE
4
7.75

653:.75

613:. 75
2486. 75

:!~.

2. 5

11215. 6

9410, 5

82. 56

9491. 06

NET CHANGE:

5. 6

NO-TYPE 0)" j.

**********

VALUE
2767. 5

5
20

VALUE
3:281. 25

]:5

OF DAY'S TRADING

STOCK
IBM

PRICE/SHARE
98

RCA

100.5

LBJ
ABC
CBS

110,75
89.5

HOLDINGS
3:5

99, 5

2512. :5
697.5
65J.75

2595. 5

139,5

NEH YORK STOCK E:,CHANGE AVERAGE:

-7.5
-}

-11
-7.5
-5.5

TOTAL STOCK ASSETS ARE
TOTAL CASH ASSETS ARE
TOTAL ASSETS ARE

NET CHANGE: -6.9

6175

$ 2808, 8
.$ 8983. 8

DO YOU WISH TO CONT J NUE (YES-TYPE L
WHAT IS YOUR TRANSACTION IN
18M? 0
RCA? 0
LBJ? 0
ABC? 0
CBS? Q

VALUE
]:4J0

NET PRICE CHANGE
4. 25
5.5

S.75
]:. 75

NET P.: I CE CHANGE

11:<6. 25

576. 25
1695

END

111. 65

NO-TYPE 0) 1 1

211

NET CHANGE:

.$ 9889. 25
.$ 82.56
$

9971. 81

DO YOU WISH TO CONTINUE ('r'ES-TYF'E 1.

TOTAL STOCK ASSETS ARE
TOTAL CASH ASSETS ARE
TOTAL ASSETS ARE

HA,'E,

NO-TYPE e)? 1

NEW YORK STOCK EXCHANGE AVERAGE:

0)1 1

ABC? .0
CBS? 0

HOLDI NGS

92.25
75.75
129,5
115. 25
84.75

PRICE/SHARE
93.75

DO YOU WISH TO CONT INUE (','ES-TYPE 1,
IlHAT 1 S YOUR TRANSACT JON IN
IBM? 0
RCA? I]

END OF DAY'S TRADING
PRICE/SHARE

1. 7

END OF DAY'S TRADING

TOTAL STOCK ASSETS ARE
"fOTAL CASH ASSETS RRE
TOTAL RSSETS ARE

**********

NET CHANGE:

NO-T~'PE

~'OU

NEW YORK STOCK EXCHANGE AVERAGE:

IBM? .0
RCA? e
LB,J? 0
ABC? €I
CBS?

100

6236. 25
$ 2808. 8
.$ 9045. 05
$

p,: I CE CHANGE

-8
-4.25
-4.5
-10
-5.5

.$ 6592. 5
.$
.$

2.5
12. 75
-.75

DO ~'OU IHSH TO CONTINUE (YES-TYPE 1,
I/HAT 1 S YOUR TRANSACT I ON IN
IBti? 5
RCA? :10
LB,J? 5
ABC? €I
CBS? 10

**********

18M? 118
RCA? 1e

78.75
140,5
122, 75

NET PR I CE CHANGE

NO-TYPE 0)1 1

WHAT IS YOUR TRANSACTION IN

PRI CE ..... SHAf.i~E
99.75

VALUE
2692. 5
1.3:08.75

30
15

87.25

YOU HAVE USED $ 1, 52995 MORE THAN
WHAT IS YOUR TRANSACTION IN
18M? 5
RCA? 10
LBJ? 5
ABC? 0
CBS? 9

NET CHANGE: -2.65

9893:.

DO YOU WISH TO CONTINUE (YES-TYPE 1,

STOCK
IBM
RCA
LBJ

HOLDINGS

89.75

TOTAL ASSETS ARE

HOLe· I NOS

132. 75
95.75

N(i-T'-r'PE 0)1 1

END OF DAY'S TRAD I NG
PR I CE/SHARE

STOCK
IBM
RCA
LBJ
ABC
CBS

TOTAL CASH ASSETS ARE

***"'******

2808. 8
8743,8

115. 5

NEW YORK srOCK EXCHANGE AVERAGE;

L8~1?

$
$

NEW YORK STOCK EXCHANGE AVERAGE:

-3:. 2

13:7.75
99.2·5

10000
10000

145

NET CHANGE:

.$ 59J5

147.5

END OF DA¥'5 TRADING

TOTAL STOCK ASSETS ARE

96.

-J

"FOTAl STOCK ASSETS FIRE
TOTRL CASH ASSETS ARE

PRICE/SHARE

YORK STOCK EXCHANGE AVERAGE:

CBS? 10

STOCK
18ti
RCA
L8,]

,'ALUE
2617.5

DO YOU WISH TO CONTINUE (YES~T~'PE 1.,
WHAT IS YOUR TRANSACTION IN
IBM?
RCA? 0
LBJ? 0
ABC? 0
CBS?

IS YOUR TRANSACTION IN
213
5
,,;
5

*"'********

HOLDINGS
J0

87,25
74, 5

fiT LEAST

$ 0
$
$

PRICE/SHARE

TOTAL STOCK ASSETS ARE
TOTAL CASH ASSETS ARE
TOTAL ASSETS ARE

PRICE/SHARE

STOCK
INITIALS
INT. BALLISTIC MISSILES
IBM
RED CROSS OF AMERICA
RCA
LB,]
LICHTENSTEIN, 8Ut1RAP & JOKE
AMERICAN BANKRUPT C~
ABC
CE:5
CENSURED BOOKS STORE

tlW YORK STOCK EXCHANGE AVE,:AGE:

FOf;~

NEI~

END OF DAY'S TRADING

NO-P,'F'E 0)? 1

6.05

SYNONM

WORD SYNONYMS

Description
A synonym of a word is another word in the English language
which has the same, or very nearly the same, meaning. This
program tests your knowledge of synonyms of a few common words.
The computer chooses a word and asks you for a synonym. The
computer then tells you whether you1re right or wrong. If you
can't think of a synonym, type "HELP" which causes a synonym
to be printed.
You may put in words of your choice in the data statements (510-600).
The number following DATA in Statement 500 is the total number
of data statements. In each data statement, the first number
is the number of words in that statement.
Can you think of a way to make this into a more general kind of
CAl program for any subject?
Program Author
Walt Koetke
Lexington High School
Lexington, MA 02173

212

1967 by Meredith Presl

I,
"

"Ii

SAMPLE RUN

PROGRAM LISTING
LIST
SYNONM

5 REM
~0

9,: 17 PM

RUN
SYNONM

09-JUL-7>

*** SYNONM CONVERTED TO RSTS,'E BASIC-PLUS BY DAVE AHL

DIM R$(5)~W$(10»L(3e)/R(30)

A SYNONYM OF A WORD MEANS ANOTHER WORD IN THE ENGLISH
LANGI)AGE WHICH HAS THE SAME OR VERY NEARLY THE SAME
MEANING.
I CHOOSE A WORD -- YOI) TYPE A SY/IONY~1.
IF YOI) CAW T THINK OF A S~'NONYN, TYPE THE WORD 'HELP'
AND I WILL TELL YOU A SYNONYN.

WHAT IS R SYNONYM OF FIRST? START
CORRECT
WHAT IS A SYNONYN OF PIT? flELL
CHECK

WHAT IS A SYNONYM OF SMALL? TINY

CHECK
WHAT IS A SYNONYM OF HOUSE? HOME

TR'tl AGAIN.
fjHAT IS R SYNONYM OF HOUSE? DWELLING

RIGHT
WHAT IS A SYNONYM OF MODEL? SINULATION
TRY AGAIN.
WHAT IS A SYNONYM OF ~10['EL? HELP
A SYNONYM OF MO['EL I S PROTOTYPE.

323 PRINT R$(RND*5+1)
GOTO 150
Gi=INTCRND*L(0)+1)
PRINT "**** A SYNONYM OF "W$(G)" IS
PRINT

"~J$(L(Gl);'''.

09- ..TUL-73

S'mONYMS

20 R$(i)="RIQHT u :R$(2)="CORRECT":R$(])="FINE":R$(4)="GOQD!":R$(S)="CHECK"
70 RANDOM I ZE : C=0 : PR I NT: PR I NT "SYNONYMS": PR I NT
90 PRINT "A SYNONYM OF A WORD ~lEANS ANOTHER ~IORD IN THE ENGLISH"
1013 PRINT "LANGUAGE WHICH HAS THE SAME OR VERY NEARLY THE SAME"
1113 PRINT "MEANING. ":PRINT
DB PR I NT "I CHOOSE A WORD -- YOU TYPE A SYNONY~1.
:140 PRINT "IF ~'OU CAN'T THINK OF A SYNONYM, TYPE THE fIORD 'HELP'"
:145 PRINT "AND I WILL TELL YOU A SYNONY~l. ":PRINT
1.50 RESTORE: C=C+1: READ N
160 IF C)N THEN 420
170 N1=INT(RND*N+1)
:174 IF R(Nl)=1 THEN 170
176 R(N1)=1
~80 FOR 1=1 TO Ni
190 READ N2
20e FOR J=1 TO N2
2103 READ W$(J)
2203 NEXT J
2103 NEXT I
23'2 LC,])=J FOR ~T=l TO N2
235 L(O)=N2:G=1:PRINT
237 LCG)=LCLC0»:LC0)=N2-1;PRINT
249 PRINT"
WHAT IS A SY~IONYM OF "flf(G); : HIPUT fl$
25B IF A$="HELP" THEN 340
260 FOR J=l TO N2
270 IF G=J THEN 290
280 IF A$=W$(J;, THEN 328
290 NEXT J
3030 PRINT"
TRY AGAIN.
3110 GOTO 240
339
1413
360
365

133: 19 PM

DIGITAL

"
WHAT IS A SYNONYM OF MO[>EL? STAN[)ARD

370 l(G1)=LCL(0»:L(0)=L(0)-i

CHECK

3913 GOTO 240
420 PRINT: PRINT "So,'NONYM (>RILL CO~IPLETED. ": STOP
5ee DATA 10
5113 DATA 5, "FIRST", "START", "BEGINNING", "ONSET", "IIIHIRL"
528 DATA 5, "SHlILAR", "ALIKE", "SAME", "LIKE", "RESENBLI~IG"
53'3 DATA 5, "MODEL", "PATTERN", "PROTOTYPE", "STANr'ARD", "CRITERION"
5413 DATA 5,"SMALL", "INSIGNIFICANT", "LHTLE", "TillY", "mNUTE"
550 DATA 6, "STOP", "HALT", "STAY", "ARREST", "CHECK", "STANDSTILL"
5613 DATA 6, "HOUSE", "DWELLING", "RESIDENCE", "DOMICILE", "LOC'GING", "HABITATION"
570 DATA 7, "PIT", "HOLE", "HOLLOW", "~IEl.L", "GULF", "CHASM", "ABYSS"
580 DATA 7, "PUSH", "SHOVE", "THRUST", "PROD", "POKE", "BurT", "PRESS"
590 DATA 6, "RED", "ROUGE", "SCARLET", "CRH1S0N", "FLAME", "RUBY"
6030 DATA 7, "PAIN", "SUFFERING", "HURT", "mSERY", "(J!STRE5S", "ACHE", "DISCOMFORT"
999 END

WHAT IS A SYNONYM OF RE[)? ROSE
TRY AGAIN.
WHAT IS A SYNONYM OF RED? HELP
A SYNONYM OF RED IS FLAME.
WHAT IS R SYNONYM OF RED? HELP
A SYNONYM OF RED IS RUBY.
WHAT IS A SYNONYM OF RED? CRINSO/I

CHECK
WHAT IS A SYNONYM OF SIMILAR? SAME
CORRECT

READY

WHAT IS A SYNONYM OF PUSH? SHOVE

GOOD!
WHAT IS A SYNONYM OF STOP? END
TRY AGAIN.

WHAT IS A SYNONYM OF STOP? HALT
1300D~

WHAT IS A SYNONYM OF PAIN? DISTRESS
CHECK
SYNONYM DRILL COMPLETED.

213

TARGET

DESTROY A TARGET IN 3-D SPACE

Description
In this program, you are firing a weapon from a spaceship in
3-dimensional space. Your ship, the Starship Enterprise, is
located at the origin (0,0,0) of a set of x,y,z coordinates.
You will be told the approximate location of the target in
3-dimensional rectangular coordinates, the approximate angular
deviation from the x and z axes in both radius and degrees,
and the approximate distance to the target.
Given this information, you then proceed to shoot at the target.
A shot within 20 kilometers of the target destroys it. After
each shot, you are given information as to the position of the
explosion of your shot and a somewhat improved estimate of the
location of the target. Fortunately, this is just practice
and the target doesn't shoot back. After you have attained
proficiency, you ought to be able to destroy a target in 3 or 4
shots. However, attaining proficiency might take awhile!
Program Author
H. David Crockett
5609 Wimbleton Way
Fort Worth, TX 76133

Illustration by John Nelson,
Scott, Foresman and Co.

214

II
I

PROGRAM LISTING

SAMPLE RUN

I •• R.I \RI.57 ,29d\R.NDO~IZE
110 PRINT "YOU ARE THE wEAPONS OFFICER ON THE STAR SHIP ENTERPRISE'

YOU ARE THE WEAPONS OFFICER ON THE STAR SHIP ENTERPRISE
AND THIS IS A TEST TO SEE HOW ACCURATE A SHOT ;'OLI
ARE IN A THREE-DIMENSIONAL RANGE.
YOLI WILL BE TOLD
THE RADIAN OFFSET FOR THE.X AND Z AXES, THE LOCATION
OF THE TARGET IN THREE-DIMENSIONAL RECTANGULAR COORDINATES,
THE APPROXIMATE NUMBER OF DEGREES FROM THE X AND Z
AXES, AND THE APPROXIMATE DISTANCE TO THE TARGET.
YOU .WIL~ THEN PROCEED TO SHOOT AT THE TARGET LINTIL IT IS
DESTROYED!

Tal'" PRINT "AND THIS IS A TEST TO SEE MOW ACCURATE A SHOT YOU.
130 PRINT
Ue PRINT
1_51 _PRINT
160 PRINT
PRINT
181 PRINT
19' PRINT

-'7'

.ARE IN A THRH.DIMENSlONA~ RANGE, YOU WI~~ BE TOLD'
"THE RADIAN OF"SET FOR T~-I!--X-AND- Z- A~I!S-,- THE LOCA'f1Oiii'
"OF THE TARGET IN THREE.DI~ENSIONAL RECTANGULAR COORDINATES,'
"THE APPROXIMATE NUMBER OF DEGREES FROM THE X AND Z'
'AXES, AND THE APPROXIMATE DISTANCE TO THE TARGET,'
'YOU wILL THEN PROCEED TO SHOOT AT THE TARGET UN'ML IT IS'
'DESTROYED I" \PRIN.T\PRI NT "GOOD LUCK II "\PRINT\PRINT

220 '.RND020PI\BoRNDoT'-P1\Q'lNflToll n ,·w·ii·nl'f(eoRI ,.-.------

GOOD LUCK!!

260 PRINT .RADIANS FROM X AXIS ••••
FROM Z ,UIS "S
210 PRINT 'APPROX DEGREES FROM X AXIS "Q'
FROM Z AXIS "W
U' __ P'1000000RND>RND\X .SIN (B locOS (A)OP\ Y.SIN (B)oSIN (A)oP\Z'COS [B'·.
340 PRINT "TARGET SIGHTEDI APPROX COORDINATES X"X' y •• yo hOZ
345 R'R>I\IF R'S THEN 390
l5JDN~-3!S-S-;J!T,-365;37T;31i1-

355 P3'INT(Po,05)o20\GOTO 390
T6-0-P3'INTCPo,llol0\GOTO 390
355 P3'INT[P*,5)'2\GOTO 3~0
3nf P3.INTCPl\GOTO 39~
375 P3'P
39i1 PRINT'
ESTTMITEOD1811NE[.'·p:r·-·400 INPUT 'INPUT ANGLE DEVIATION FROM X, DEVIATION FROM Z, DISTANCE·.,AI,IH,P2
410 PRINT\IF P2C20 T~fN PRINT "YOU BLEW YOURSELF UPII'\GOTO 580
420 AI'AI/RI\81'BI/RI\PRINT 'RADIANS FROM X AXIS '"AI'
FROM Z AXIS.oSI
480 X I'P2oU N[B I)'COS [AIl\ YI'P2*S IN (81)051 N (AI) \ZI'P2oCOS (81)
510 D'[(XI-Xl.2*Cyt-y)ii2>[ZI-Z).2)ACl/2)
.
520 IF D'2BTHEN-610-- - - - - -- 530 PRINT\PRINT " • 0 • HIT • * 0
TARGET IS NON-FUNCTIONAL"VRINT
550 PRINT "DISTANCE OF EXPLOSION FROM TARGET ~AS"D'KII.OMETE~S"
570 PRINT\PRINT 'MISSION ACCOMPI.ISHEO IN"R"SHOTS,'
-!fee R.0\FOR 1.1 TO 5\PRINT\NEXT I\P~INT "NEXT TARGET .. ,,"\PRINT\GOTO 220
670 X2.XI.x\Y2'YI.Y\Z2'ZI-z\IF X2C0 THEN 730
nrPRTNr--'-sl'ICfTINP'fONlO-' TOGET'X2"K1LOM~TERS,.\GO,.[j -'-"11
731 PRINT "SHOT BEHIND TARGET"I.X2"KILOMETERS,'
740 IF Y2C0 THEN 710
750 PRINT 'SHOT TO LEFT OF TARGET.Y2"KILOMETERS,"\GOTO 780
710 PRINT 'SHOT TO RIGHT OF TARGET".Y2"KILOMETERS,'
780 IF Z2ce THEN 810
7110 P~INT .SHO-t nOVEnRGn'Z2'iK!~OMEtERS,'\GOTO 8220
.8U PRINT .SHOT BELOW TARGEPI.Z2'KILOMETERS,O
820 PRINT "APPROX POSITION OF EXPLOSION I X"XI"
y.oYI"
Z.'ZI
830 PRINT·
DUTANCE FROM TARGET '''O\PRINT\PRINT\PRINT\GOTO 345
999 END

RADIANS FROM X AXIS = 6. 18367
FROM Z AXIS = 1. 0759
APPRO;: DEGREES FROM X AXIS = 354
FROM Z AXIS = 61
TARGET SIGHTED: APPROX COORDINATES X= 14882.5
;'=-1485.97
Z= 8072.02
ESTIMATE() DISTANCE= 16990
INPUT ANGLE DEVIATION FROM X, DEVIATION FROM Z, DISTANCE? 354,61,16990
RADIANS FROM X AXIS = 6.17844
FROM Z AXIS = ,1.06465
SHOT BEHIND TARGET 104.188 KILOMETERS.
SHOT TO RIGHT OF TA,RGET 67. 6549 KI~OMETERS.
SHOT ·ABOVE TARGET 164.96 KILOMETERS.
X= ·14778.3
;'=-1553.62
APPROX POSITION OF EXPLOSION:
DISTANCE FROM TARGET = 206. 505

ESTIMATED DISTANCE= 16994
INPUT ANGLE DEVIATION FROM X, DEVIATION FROM Z,
RADIANS FROM X AXIS = 6,16972
FROM Z A,;IS
SHOT BEHIND TARGET 190 291 KILOMETERS
SHOT TO RIGHT OF TARGET 188. 358 KILOMETERS.
SHOT RBOVE TARGET 294. 319 KILOMETERS.
X= 1469~ 2
APPROX POSITION OF EXPLOSION:
D I STANCE FROM TARGET = 397. 886

.'ISTANCE? 353.5,60.5,16990

= 1.05592
~=-1674.

ESTIMATED DISTANCE= 16995
INPUT ANGLE DEVIATION FROM X, DEYIATION FROM Z,

C'I"TAN(.E:"

4. i·1

(:.l",~q~

Z= 8031. 06

Z= 8005. 38

DISTANCE? 354.5,61.8,16996

RADIANS FROM X AXIS = 6,18717
FROM Z AXIS = 1.07861
SHOT I N FRONT OF TARGET 27. 1035 KILOMETERS.
SHOT TO LEFT OF TARGET 49. 9703 KILOMETERS.
SHOT BELOW TARGET 40. 4814 KILOMETERS.
APPROX POSITION OF EXPLOSION:
X= :(49.0'9.6
;'=-1436
DISTANCE FROM TARGET = 69. 7882

EST IMATED. DISTANCE= 16995. 7
INPUT ANGLE DEVIATION FROM X, DEVIATlON FROM Z,
ILLEGAL NUMBER AT LINE 400
INPUT ANGLE DEVIATION FROM x, DE~'IAT·ION FROM Z,

:~4

DISTANCE~ 354.3,61.9,16996

RADIANS FROM x- AXIS = 6.18368
FROM Z. AXIS = 1.08035
SHOT I N FRONT OF TARGET 35. 9248 KILOMETERS.
SHOT TO' R UiHT OF TARGET 3. 45166 KILOMETERS.
SHOl BELOw TARGET 6~. 6372 KILOMETERS.
X= 14918.4
,'=-14(:9.42
AP),ROX POSITION OF. EXPLOSION:
DISTANCE FROM TRRGET = 75. 7828

ESTIMATED DISTANCE= 16995.7
INPUT ANGLE DEVIATION FROM X, DEVIATION FROM Z,

Z= 8366. 34

RADIANS FROM X AXIS = 6.18542
FROM Z AXIS' 1.07861
SHOT I N FRONT OF TARGET 23. 6973 K I ~OMETER".
SHOT TO LEFT OF TARGET 24.0381 KILOMETERS.
SHOT BELOW TARGET 40. 9536 K I LOMETER5.
APPROX POSITION OF EXPLOSION:
X= 1490~ 2
Y=-1461.93
DISTANCE FROM TARGET = 51 0716

ESTIMATED DISTANCE= 16995. 7
INPUT ANGLE 'DEVIATION FROM X, DEYIATION H'OM Z,

Z= 8031.54

DISTANCE? 354 .. 6.,61,9
DISTANCE? 354.6,61.9,16996

RADIANS FROM X AXIS = 6.~8891
FROM Z AXIS = 1.08035
SHOT I N FRONT OF TARGET 43, 5186 .. KJ LOMETERS: .
SHOT TO LEFT OF TARGET 74. 681 KILOMETERS,
SHOT BELOW TARGET 66. 6372 KI~OI'iETERS.
APPROX POSITION OF EXPLOSIO.N;
X= 14926
,'=-1411.28
DISTANCE FROM TARGET = 109.1-4

215

Z= 8236. 98

Z= 8005_ 38

3DPLOT

PLOTS A FAMILY OF CURVES

Description
3DPLOT will plot the family of curves of any function. The
function Z is plotted as "rising" out of the x-y plane with
x and y inside a circle of radius 30. The resultant plot looks
almost 3-dimensional.
You set the function you want plotted in line 5. As with any
mathematical plot, some functions come out "prettier" than
others. Here are some that work nicely:
DEF FNA(Z) = 30*EXP (-Z*Z/lOO)
DEF FNA(Z) = SQR (900.0l-Z*Z) *.9-2
DEF FNA (Z) = 30*(COS(Z/16»~2
DEF FNA(Z) = 30-30*SIN (Z/18)
DEF FNA (Z) = 30*EXP (-COS (Z/16»-30
(Bessel function--Summerfeld's Integral)
5 DEF FNA (Z) = 30*SIN (Z/lO)
5
5
5
5
5

One of the shortest programs submitted (14 lines), 3DPLOT has
to rank as perhaps the most clever.
Program Author
Mark Bramhall
Digital Equipment Corp.
Maynard, MA 01754"

216

PROGRAM LISTING
5 DEF FNA (Z) =3a.EX? (-2*21100)
100 PRINT
110 FOR X=-30 TO 30 STEP 1. 5
120 L=0
110 Y1=Sol NT (S~R (900-X*X) 15)
140 FOR Y=Y1 TO -Y1 STEP -5

150

Z=INT(25+FNA(S~R(X*X+Y*'Y»-. 7*Y)

160 IF Z<=L THEN 190
170 L=Z
180 PRINT TAB(Z)',';
190 NEXT Y
2Ge PRINT
210 NEXT X
300 END

SAMPLE RUN
10 DEF FNACZ) =30*EXP( -COS (2:/16»

10 DEF FNA( Z )""30* (cose Zl 16»' 2

* *

*
*

*
*
* *
** *
*
* *
*
**
* * *
*
* *
*
*
* *
*
• •
*
*
*
••
*
*
**
*
*
•*
*
•*
*
•*
*
**
*
*
*
*
*
*•
*
*
•
•
*
*
* *
*
**
*
**
**
*
*
*
*
*
*
*
*
* * *
•• • *
*
** * •
*
*

* *
*
*
*
*
*
* • * •
* *
*
* * *
**
*••
*
*
*** *
*
•• *
*
* * ** *
• *
* * *
*
**
*
*
*
•* *
*
***
*
•
*
*
• *••
•
**
* *
*
•

.•

•

*
*
*
*
*

**
*
*

*
*
*

-30

-RUN

RUN

*
*

*
**.
*
*
*
*
*
* * *
•
*
*
**
.* * **
**
*
*
* ***
* * **
• * **
*
*
•
*
*
* *
* •* * * * * *
*
*
* *
*
*
* * *

*
*
**

..•

***.

.
··

••
••

. .

5 DEF FNA (Z) =30*E:,P (-2*z/100)
RUNNH

*' *
*
*'

*' *

•

*'
*'

. *'

:f:

*
*'

.
.
..
. .
*'

.• . , • . .
*'

*' *'
*' *'
*' *'

*..

217

•

*
*

.•

•

*
*
*
*
*
*

•

••
•

TICTAC

TIC-TAC-TOE

Description
The game of tic-tac-toe hardly needs any introduction.
In this
one, you play versus the computer. Moves are entered by row
number, a comma, and column number, as in the diagram below.
1,1

1,2

1,3

2,1

2,2

2,3

3,1

3,2

3,3

If you make any bad moves, the computer will win; if the computer makes a bad move, you can win; otherwise, the game ends
in a tie.
Source
Seven games of tic-tac-toe were submitted. One notable one by
Chase Ambler of the Asheville School plays the game on a VT05
CRT terminal while an abbreviated one by Dana Noftle fits into
an EduSystem 10.
The one published was written by:
Tom Kloos
Oregon Museum of Science and Industry
Portland, Oregon 97200

218

PROGRAM LISTING
III 'RINT'YOU HAVE THE OPPORTUNITY 0' TRYING TO IUT THE COMPUTER'
138 PRINT'.T TlC-TAC-TOE. ENTER YOUR MOYU AS FOLLOWII'
141 PRINT
lSI DIM COil
IU aiM DUll
111, 'OR K'I ·TD II
lee REAO etK), DtKl
\91 NUT K
III 'RINT .... ROW NUMBER ... COMH .... COLUMN NUMBER ... •
UI PRINT
228 PRINT"ROWS ARE HORIZONTAL (ACRDSSl ... COLUMNS ARE YERTlC.L (UP. DOWNl'
231 DIM 8 t91
241 DIM A(3,31
251 PRINT

2., PRINT "NEW GAM! STARTED NOW ••••••••••••••••• ~ ••••••••• "
271 paR Jo\ TO 3
UI paR 1.1 TO 3
291 LET AIl,Jl'l
311 NUT I
301 LET 1.1-1
311 NEXT J
'II LET J.J-I
321 LET Z' •
331 PRINT 'YOUR MOVE",
340 INPUT R,C
]50 PRINT
361 I ' R.] THEN UI
3T0 IF
THEN .20
381 IF AtR,Cl c. e THEN 1>4!0
nl LET AtR,C)'-1
01. GOSUB au
Oil IF Z '1 THEN 2170
021 REM MACHINE MOVE •••
430 GOeUB 1100
048 REM TUT FOR GAME WIN ...
051 GOSUB 1.&0
4.' IF
THEN 650
OTI REM PRINT GAME SOARD ..
081 GO TO 0 . .
09. PRINT
5111 faR K'I TO 3
51' LET B'ACK,II
521 LET 01AtK,2)
53. LET F.ACK,S)
500 GOSUB UI
551 IF K.Z THEN 570

c.,

I.'

z.e

,f~1·~· I

~!
':I
,[

I
[

I ill LET C (3)oN
lite LET Dt31'"
12111 FOR I"I TO 8
12111 IF 8(1).1 THEN 1370
1220 NEXT I
lUI ~ET III-I
lUI FOR 1'1 TO •
12011 IF Btl)e-I THEN 1370
lUI NEXT I
la51 LET 1'1-1
la'0 IF R.C •• THEN 1550
1270 FOR K'I TO II
1280 ~ET l-etKl
Ina ~ET JID tKl
1300 IF ACI,J)c.I THEN 1330
UII ~!T .tl,J)'1
13U GO TO 1360
1330 NEXT K
1331 ~ET KIK-l
\J00 PRINT •
TtE GAME ...
1350 LET ZI3
13 .. RETURN
1371 IF 1.3 THEN 1441
1110 FOR Jol TO 3
1'90 IF Atl,J)'e THEN 1420
10110 NEXT J
1411 ~ET J'J-I
14U GO TO 1360
IOU ~ET Atl,J)ol
1431 GO TO 13"
1441 IF
THEN 1511
145. FOR J'I TO 3
IOU IF ACJ,I.31" THEN 109.
1470 NEXT J
lOTI ~ET JIJ-I
1480 GO TO 136.·
14ge LET AtJ ,1-3)-1
1501 GO TO 1360
1511 IF 107 THEN 1550
1520 FO~ Jol TO 3
1530 IF 'CJ,J)'0 THEN 15'1
1540 NEXT J
1541 .~ET JOJ.I
1550 IF '0,3)00 THEN 1610
1561 IF At3,1)'0 T~EN IU0
1570 LET At2,2)'1
1580 GO TO 1368
In0 ~ET AIJ,Jlol
un GO TO 1361
1610 ~£T AII.3)'1
un GO TO 13.0
lUI LET At3,1)'1
1640 GO TD 13&0
lUI REM PROGRAM TO TEST FOR GAME WINNER ....
u n ~ET TI'0
1610 FOR JOI TO ,
1&80 LET BtJl'.
1690 NEH J
lUI LET JIJ.I
lT01 FOR J'I TO J
1111 fOR 101 TO ]
1120 IF ACJ,\)e.'li,1) THEN 1751
Inl NEXT I
lUI LET 1'1·1
IT4e LET TloAtJ,t)
1750 NEXT· J
ITSI LET J.J·I
1761 FOR J'I TO 3
1770 fOR XII TO 3
I7U II' A(I, JlOA 0, J) THEN 1810
1790 NEXT I
1791 ~ET 101.1
1810 LET TI'Atl,Jl
1810 NEXT J
1811 LET J.Jol
1820 IF A(I,I)UC3,3) THEN IU0
1810 IF At3,I)UO,3) THEN 1970
\800 IF flO. THEN 1990
\85. FOR J'I, TO 3
1.60 FOR J'I TO 3
UTI LET BtJ)oBtJl+AIJ,1l
au ~ET 8IJ+3)oBCJ+3).AII,J)
\19. HEn I
Inl ~ET 1'1-1
1910 NEXT J
1901 LET JoJ.1
19\0 ~ET 8(7)oA(lII).,t2,2).'t3,3I
1.11 RETURN
1910 IF 't2,il)oAI],]) THEN 1950
1'40 GO TO 1830
1950 ~n TloAI!,2)
19" GO TO 1140
\970 IF .t2,21IACI,S) THEN I " .
1980 GO TO lB41
1990 IF TI.I THEN Z03e
ill00 PRINT" ••• YOU WIN THIS·TI"E ••••
2010 ~ET ZOI
28211 GO TO 1151
2e30 PRINT • ••• THE POP-8 WINS THIS TIME ••••
2111A1 ~ET Z'2
2050 GO TO. \85e
206111 REM END OF TEaT WINNER PROGRAM •••••••
20TIII PRINT 'DO YOU WANT TO PLAY ANOTHER GAMEl YES(1), NOCI)·,
281111 I NPUT XI
2e90 IF XI 0 I THEN 250
2110 IF Xl 0 0 THEN 21S0
2111 PRINT '1 ~.ID ONE OR ZEROI TRV AG.IN",
2\al GO TO 20S0
2110 PRINT"IT'S BEEN ,PUN, COME AGAIN SOMETIME"
2100 GO TO IIU
21,58 DATA a,i,.,., e. a,\ ,I, 3. 3,\, J, ',1,\ ,1,3,2, 2, 3,2,\
21'm CHAIN 'OEMON 0
zlTe END

5&0 PRINT "t_***._ •••••••• "
510 NEXT K

571 LET K.K_I
580 PRINT
5911 IF Z e.0 THEN 20TI
. . I GO TO 3]0
611 STOP
nil PRINT •••• _ ILLEGAL MOH oe TRV AGAIN •••••
UI PRINT
640 GO TO 331
651LfT Til.1
661 FOR J.I TO
671 FOR 1.1 TO 3
6111 IF A(1, Jlol THEN 701
69. ~ET n.n.1
TIe NEXT I
711 LET 1.1-1
710 NEXT J
711 LET JIJ-I
7il I' Ti •• THEN T51
1311 GOSUB 134e
740 GO TO 481
751 I' TZ.I THEN 4 ••
TU FOR JII TO 8
7TI IF stJ)'-Z THEN 810
180 NEXT J
781 LET J.J.I
191 GO TO HI
801 GOSUB 2001
810 GO TO 080
821 REM PRINT TlC-TAC-TOE BOARD ROW .....
n l REM
840 IF Be.I THEN 910
851 PRINT'
*",
8U IF 000 THEN 940
870 PRINT'
.',
880 IF Fe>I THEN 9T0
891 PRINT· •
901 GO TO 1110
91e IF 8.0 THEN uee
9i0 PRINT 'YOU * "
931 GO TO 8U
940 IF 00. THEN 1020
950 PRINT 'YOU • "
961 GO TO &80
9TI IF f.8 THEN 1840
980 PRINT 'YOU"
991 GO TO •••
1111. PRINT"POP • "
IIU GO TO 8 ••
IIZI PRINT 'PDP • "'
liIJ31 GO TO 8U
1100 PRINT 'PDP'
1151 GO T0900
.
10 •• REM PRINT LEGENDS ••
1110 PRINT·
•
• •
IU0 RETURN
1190 REM PROGR.M TO MAkE MOVE FOR THE MACHINE ••••
110B ~ET M'INTt3.33*RNDCM))
111. LET N'INTC3.333330RNDIN)),
I 120 IF MIl T'HEN 1100
1130 IF MOS THEN 1100
1140 IF NI' THEN 111I
1150 IF N.' THEN Ille
II" LET ctZ)'M
\I TO ~ET 0 (2)'N

219

'.'~

I .~

SAMPLE RUN
TICTAC

ED1JSYSTEM-35

YOU HAVE THE OPPOQTUNITY OF TRYING TO Et:AT THE
Kr TIC-TAC-TOE.
eNTER YOUR MOVES AS }o~OLLOWSI

CUM~IJTE'R

••• ROW NUMBER ••• COMMA ••• COLUMN NUi'1BER •••
ROWS Aq:E HORIZQNTAL(ACROSS) ••• COL.UMNS ARE V£RTICAl.(U'P + DOWN)
NEW GAME STARTED NOW •••••••••••••••••••••••••••
YOUR MOVE
? 3 .. 1

**************.

* PDP *

***************
YOIl *

*
YOUR M9VE

YOU..

? 1 .. 1

*****.*.**** •• *
PDP * PDP *
* •• ""._*
* ••
•••• ""**
*
*

YOU"

YOUR MOVE

12" 3

YOU ..

*
*
********.******

PDP .. PDP .. YOU

***************
YOU

* PO?
*

lie

? J .. 2

YOUR MOVE

TIE GAME •••
YOU

* YOU * PDP

*
***************
PDP * PDP * YOU
*
***************

YOU·..

*' PDP

*
DO YOU WANT TO PLAY ANOTHER GAMEl

YES(I) ..

NO(QI>

TOWER

TOWERS OF HANOI PUZZLE

Description
This is a simulation of a game of logic that originated in the
middle East. It is sometimes called Pharoah's Needles, but
its most common name is the Towers of Hanoi.

Legend has it that a secret society of monks live beneath the
city of Hanoi. They possess three large towers or needles on
which different size gold disks may be placed. Moving one at
a time and never placing a larger on a smaller disk, the monks
endeavor to move the tower of disks from the left needle to
the right needle. Legend says when they have finished moving
this 64-disk tower, the world will end. How many moves will
they have to make to accomplish this? If they can move 1
disk per minute and work 24 hours per day, how many years
will it take?

~; I

:,1

,1
I;
~ !

In the computer puzzle you are faced with three upright needles.
On the leftmost needle are placed from two to seven graduated
disks, the largest being on the bottom and smallest'on the top.
Your object is to move the entire stack of disks to the rightmost needle. However, you may only move one disk at a time
and you may never p.lace a larger disk on top of a smaller one.

',I

,I
I

In this computer game, the disks are referred
to by their size--i.e., the smallest is 3,
next 5, 7, 9, 11, 13, and 15. If you play
with fewer than 7 disks always use the largest,
i.e. with 2 disks you would use nos. 13 and
15. The program instructions are selfexplanatory. Good luck!
Program Author
Charles Lund
The American School
Hague, Netherlands

221

PROGRAM LISTING
~8

SAMPLE RUN

PRINT
188 REM
INITIALIZE
118 DIM 1(7,3)
129 E=9
139 FOR 0=1 TO 7
148 FOR N=1 TO 3
139 HI), N)=9
169 NEXT N
179 NEXT 0
180 PRINT "TOWERS OF HANOI PUZZLE'\PRINT
209 PRINT "YOU IIUST TRANSFER THE DISKS FROII THE LEFT TO THE RIGHT"
293 PRINT "TOWER, ONE AT' A TIME, NEYER PUTTING A LARGER ON A"
218 PR I NT "SMALLER I) I SK, '\PR I NT
215 PRINT "HOW IIANY DISKS DO YOU WANT TO MOYE <7 IS MAX)',
220 INPUT S\PRINT

TOWERS OF HANO I PUZZLE

*••

YOl'- MUST TRANSFER THE DISKS FROM THE LEFT TO THE RIGHT
TOWER, ONE RT A TIME, NEYER PUTTING A LARGER ON A
.
sMRLLER DISK.
HOW MANY I)ISKs DO YOU WANT, TO MOYE (7 IS MAX)? 3
IN THIS PROGRAM, WE SHALL REFER TO,DISKS BY A NUi'lERICAL CODE.
3 WILL REPRESENT THE SMALLEST DISK. 5 THE NEXT SIZE, 7 THE NEXT,
RND SO ON, UP TO 15,
IF "'OU DO THE PUZZLE WITH 2·DISKS, THEIR
CODE NAMES WOULD BY 13 AND 15.
WITH THREE DISKS, THE CODE
NRMEs WOULD BE 11, 13, AND 15, ETC.
NEEDLES ARE
NUMBERED FROM LEFT TO RIGHT, 1 TO 3.
WE WILL START WITH THE
DISKS ON NEEDLE 1, AND ATTEMPT TO MOVE THEM TO NEEDLE 3.

230 1'1=9

240
250
260
279
280

FOR Q=1 TO 7
IF Q=S THEN 359
NEXT Q
E=E+1
IF E)2 THEN 310
2~0 PRINT "SORRY, BUT I CAN'T DO THAT JOB FOR YOU, "\GOTO 215
319 PRINT "ALRIGHT, WISE GUY, IF "'OU CAN'T PLA ... 'THE GAME RIGHT, I'LL"
320 PRINT "JUST TAKE NY PUZZLE AND GO HOME,
SO LONG, '\STOP
349 REM *** STORE DISKS FROM SIIALLEST TO LARGEST
359 PRINT 'IN THIS PROGRAM, WE SHALL REFER TO DISKS B... A NUMERICAL CODE, '
355 PRINT "3 WILL REPRESENT THE SMALLEST DISK, 5 THE NEXT SIZE, 7 THE NEXT, '
368 PRINT "AND SO ON, UP TO 15,
IF YOU DO THE PUZZLE WITH 2· DISKS, THEIR"
365 PRINT "CODE NAMES WOULD BY 13 AND 15.
WITH THREE DISKS, THE CODE'
370 PRINT 'NAMES WOULD BE 11, 13, AND is, ETC,
THE NEEDLES ARE"
375 PRINT 'NU"BERED FROM LEFT TO RIGHT, 1 TO 3,
WE WILL START WITH THE
389 PRINT "DISKS ON NEEDLE 1, ANI) ATTEMPT TO MOYE.THEII TO NEEDLE 3:'
3~9 PRINT\PRINT "GOOD LUCK!!"\pRINT
400 Y=7\D=15
420 FOR X=S TO 1 STEP -1
438 HY,1)-I)\I)=D-2\y=Y-1
460 NEXT X
478 GOsUB 1230
489 PRINT "WHICH DISK WOULI) YOU LIKE TO MOVE', \E=0
500 INPUT I)
510 IF (D-3).(D-5)*(D-7)*(D-9)*(D-11)*(O-13)*(D-15)=0 THEN 580
529 PRINT "ILLEGAL ENTRY ... YOU MA ... ONLY TYPE 3,5,7,9,11,13, OR 15, "
530 E=E+1\IF E)1 THEN 568
558 GOTO 580
568 PRINT\PRINT "STOP WASTING MY TIME,
GO BOTHER SOMEONE ELSE, "\STOP
389 REM *** CHECK IF REQUESTED DISK IS BELOW ANOTHER
598 FOR R=1 TO 7
'
680 FOR C=1 TO 3
610 IF HR, C)=D THEN 640
628 NEXT C\NEXT R
648 FOR Q=R TO 1 STEP -1
645 IF T(Q,C)=0 THEN 660
650 IF HQ, C)(D THEN 680
660 NEXT Q
670 OOTO 708
680 PRINT "THAT DISK IS BELOW ANOTHER ONE,
MAKE ANOTHER CHOICE, "\GOTO 490
799 E=9
793 PRINT "PLRCE DISK ON WHICH NEEDLE",\INPUT N
738 IF (N-1)*(N-2)*(N-3:)=0 THEN 800
733 E-E+1
748 IF E)1 THEN,78B
730 PRINT "I'LL RSSUME YOU HIT THE WRONG KEY THIS TIME.
BUT WATCH IT,"
768 PRINT "I ONLY ALLOW ONE MISTAKE. '\GOTO 705
789 PRINT "I TRIED TO WARN YOU, BUT YOU WOULDN'T LISTEN."
799 PRINT "BYE, BYE, BIG SHOT, "\STOP
795 REM *** LOCATE DISK TO BE MO,'EO
898 FOR R=1 TO 7
819 IF T(R,N)()0 THEN 840
828 NEXT R
839 GOTO 880
835 REM *** CHECK IF DISK TO BE PLACED ON A LARGER ONE
840 IF D(T(R,N) THEN 880
858 PRINT "YOU CRN'T PLACE A LARGER DISK ON" TOP OF A SMALLER ONE. "
868 PRINT "IT "IGHT CRUSH IT'"\PRINT 'NOW THEN, ',\GOTO 488
875 REM *** RELOCATE MOVED DISK
888 FOR Y=1 TO 7\FOR 101=1 TO 3:
988 IF T(V,W)=D THEN 930
910 NEXT W\NEXTY
925 REM *** LOCATE FIRST EMPT ... SPACE ON NEEDLE N
938 FOR U=1 TO, 7
940 IF T(U,N)(>8 THEN 970
959 NEXT U
968 GOTO 980
965 REM ••• "OVE DISK AND SET OLD LOCATION TO 8
979 U=U-1
988 T(U, N)=T<V, W"T{V,W)=0
995 REM *.* PRINT OUT CURRENT STATUS
1099 GOsUB 1238
1818 REM .** CHECK IF DONE
1829 1'1=1'1+1
1030 FOR R=1 TO'7\FOR C=1 TO 2
1050 IF T(R,C)()0 THEN 1890
1068 NEXT C\NEXT R
1880 GOTO 1120
1099 IF 1'1(=128 'THEN 480
1190 PRINT "SORRY, BUT I HAVE ORDERS TO STOP IF YOU MAKE IIORE THAN"
1118 PRINT "128 MOYES. "\STOP
1120 IF M()2~s-1 THEN 1140
1138 PRINT "CONORATULAUONS!!
1148 PRINT "YOU HAYE PERFORMEi;> THE TASK IN"II"MOYES. '
1150 PRINT\PRINT "TR'~ ANOTHER ONE ( ... ES OR NO)",\INPUT 1'1$
1168 IF A'="NO" THEN 1390
1179 IF A$='YEs" THEN 90
1180 PRINT\PRltiT ''''''E5' OR, '.NO' PLEASE", \INPUT A$\GOTO 1160
1238 REM *.* PRINT'SUBROUTINE
1240 FOR K=1 TO 7
1250 Z=19
1260 FOR J=1 T03
1270 IF T(K,J)=0 THEN 1330
1280 PRINT TAB(Z-INT(T(K,J)/2»,
1290 FOR Y=1 TO l,i,l)
1389 PRINT ".",
1318 NEXT Y
1328 GOTO 1348
1338 PRINT rAIl(Z), ' . ' ,
1349 Z=Z+21
1358 NEXT J
1368 P!!INT
1378 NEXT K

i~:: ~~~~~~PRINT "THANKS FOR THE GAME! "\PRINT\END

222

GOOD LUCK!!

.
*

•

•.

..
.
..
..
..
***********
.
.
..

.111 •••••• ***
*Ift ••• *******.
* ••••••• *******

.
.

..
.
•.

*
*

WHICH DISK WOULD 'YOU LIKE TO MOYE? 1.1
PLRCE DISK ON WHICH NEEDLE? 3:
*
*

* •••• ********
*
*
***************
WHICH DISK WOULD YOU LIKE TO MOVE? :1.2
PLACE, DISK ON WHICH NEEDLE? 2

..
..
.

•.
•
•
*

***************

*************

WHICH DISK WOULD YOU LIKE TO MOYE? :1.1
PLRCE DISK ON WHICH NEEDLE? 2
*
*
*
*
*
*
*

•

.
.
.
.
*

•
•

***********

.
*
*
*

..
.

*
*
*

***********

'WHICH DISK WOULD "'OU LIKE *************
TO MOYE? :1.1
PLACE DISK ON WHICH NEEDLE? 1
*

**"'''' ......... ''' .........
***************
*************
WHICH DISK WOULD YOU LIKE TO MOVE? :1.5

PLACE DISK ON WHICH NEEDLE? 2
*

.
..
*

***************

.
*
*

*****"' ... ****

*************

*"'*******"'*****

·•.

•*

*
•
***********

*If!

*************
***************

*
*

..
..

WH I CH DISK WOULI) "'OU Ll KE TO MOYE? :1.2
ILLEGAL ENTR""" YOU MA ... ONL'" TYPE 3,5,7,9,11,13, OR 15.
?13
PLACE DISK ON WHICH NEEDLE? 3

WHICH DISK WOULD YOU LIKE TO MOVE? :1.1
PLACE DISK ON WHICH NEEDLE? !

.*
*
.*

..
.
..

*
***********
**"'****-******
*
*
***************
CONGRATULATIONS! ! YOU HAYE PERFORMEO THE TASK IN 7 'MOYES.

Il11

I'
I

I
!

TRAIN

TIME-SPEED-DISTANCE QUIZ

Description
TRAIN is a program which uses the computer to g~nerate problems
with random initial conditions to teach about the time-speeddistance relationship (distance = rate x time). You then input
your answer and the computer verifies your response.
TRAIN is merely an example of a student-generated problem.
Maximum fun (and benefit) comes more from writing programs
like this as opposed to solving the specific problem posed.
Exchange your program with others - you solve their problem
and let them solve yours.
Source
TRAIN was originally written in FOCAL by one student for use
by others in his class.
It was submitted to us by:
Walt Koetke
Lexington High School
Lexington, Mass. 02173
4 PRINT "TIME - SPEED - DISTANCE EXERCISE'\PRINT
5 RANDOMIZE
19 C=INT(RND*2S)+40
15 D=INT(RND*1S)+5
20 T=INT(RND*19)+20

25 PRINT' A CAR.TRAYELING'C'MPH CAN MAKE A CERTAIN TRIP IN'
30 PRINT D'HOURS LESS THAN A TRAIN TRAYELING AT"T'MPH.
35 PRINT 'HOW LONG DOES THE TRIP TAKE BY CAP',

40 INPUT A
45 V=D*T /(C-T)
50 E=INT(ABS«V-A)*100/A)+. 5)
55 IF E)5 THEN 70
63 PRINT 'GOOD' ANSWER WITHIN'E'PERCENT.
65 GO TO 80
YOU WERE OFF BY'E'PEPCENT.
79 PRINT 'SORRY.
SO PRINT 'CORRECT ANSWER IS"Y'HOURS. '
90 PRINT
95 PRINT 'ANOTHER PROBLEM (YES OR NO)',
10e INPUT A$\PRINT
105 IF A$='YES' THEN 10
999 END
READY
RUN
TRAIN
04:16 PM
08-MAY-71
TIME - SPEED - DISTANCE EXERCISE
A CAR TRAYELING 44 MPH CAN MAKE A CERTAIN TRIP IN
14 HOURS LESS THAN A TRAIN TRAVELING AT 24 MPH.
HOW LONG DOES THE TRIP TAkE BY CAR? 16. S
GOOD' ANSWER WITHIN e PERCENT.
CORRECT ANSWER IS 16. 8 HOURS.
ANOTHER PROBtEM (YES OR NO)? YES
A CAR TRAVELING 55 MPH CAN MAKE A CERTAIN TRIP IN
10 HOURS LESS THAN A TRAIN TRA','ELING AT ]:4 MPH.
HOW LONG DOES THE TRIP TAKE BY CAR? 16.2
GOOD' ANSWER WITHIN 0 PERCENT.
CORRECT ANSWER IS 16. 1905 HOURS.
ANOTHER PROBLEM (YES OR NO)? YES
A CAR TRAYELING 40 MPH CAN MAKE A CERTAIN TRIP IN
11 HOURS LESS THAN A TRAIN TRAVELING AT 24 MPH
HOW LONG DOES THE TRIP TAKE BY CAR' 15.5
SORRY.
YOU WERE OFF BY 6 PERCENT
COR~ECT ANSWER IS 15.5 HOURS.
ANOTHER PROBLEM (YES OR NO)? NO
READY

223

TRAP

TRAP A MYSTERY NUMBER

Description
Another of the family of "guess the mystery number" games, in
TRAP the computer selects a random number between 1 and 100
(or other limit set in statement 20). Your object is to find
the number. On each guess, you enter 2 numbers trying to
trap the mystery number between your two trap numbers. The
computer will tell you if its number is larger or smaller
than your trap numbers or if you have trapped the number.
To win the game, you must guess the mystery number by entering
it as the same value for both of your trap numbers. You get
6 guesses (this should be changed in statement 10 if you
change the guessing limit in statement 20) .
After you have played GUESS, STARS, and TRAP, compare the
guessing strategy you have found best for each game. Do you
notice any similarities? What are the differences? Can you
write a new guessing game with still another approach?
Program Author
TRAP was suggested by 10-year old when he was playing GUESS.
It was originally programmed by Steve Ullman and extensively
modified into its final form by:
Bob Albrecht
People's Computer Co.
Menlo park, CA. 94025

224

PROGRAM LISTING

SAMPLE EUN

EDUSYSTEt1 30

lRAP

TRAP

19
2@
31)

13=6
N=100
REM-1RAP

REM-STEVE ULLMAN .. :::-1-72
PRINT "WANT INSTRUCTIONS (1 FOR 'T'ES)".:

n,,'

60 INPUl Z
19 IF Z()l THEN 180
80
90

PRINl
PRINT

"I AM lHINKING OF A NUM8ER 8E1WEEN 1 AN,,"., N
"TRY TO GUESS MY NUMBER
ON EACH GUESS .. "
NUM8ERS~

:1130

PRINT "'r'01J ARE TO ENTER ;2

110

PRINl

120

PRINT "TELL YOU IF YOU HAYE TRAPPED MY NUMBER.

133

PRINT
PRINT
PI'.' 1 NT

140
:150

TR'T'ING TO TRAP"

"MY NUMBER BE1WEEN THE TWO NUMBERS.

WILL"

IF MY"

"NUt1BER IS LARGER THAN 'rOUR TWO NUME:ERS. OR IF"
"MY NUMBER IS SMALLER lHAN ,'OUR
NUME:E"S. "
"I F YOU WANT TO GUESS ONE SINGLE NUME:E~:., T'r'PE"

160

PRINT "YOUR GUESS FOR 80TH YOUR TRAP NUMBERS. "

170'

1813

X=INT(N*RND(0) )+1

1913
200
210

GUESS , 1 13::1. 67
11Y NUMBER IS SMALLER THArj ','OUR HAP NUMBERS.
GUESS • 2 ?11> 22
tty NUMBER I S LARGER THAN YOUR TRAP NUMBERS.

"YOU GETu; (L "GUESSES TO GET MY NUt1E:Ef<:. "

* ]:

FOR Q=1 TO G

GUESS
725,2:;1
11Y NUMBER 15 SMALLER THAN YOUR TRAP NUMBERS.

PRINl
PRINl "GUESS #".' Q;
INPUT A,8

220

EDUS'/STEM 113

WANT INSTRUCTIONS (1 FOR YES)?1
I AM THINKING OF A NUMBER BETWEEN 1 AND 100
·fRY 10 GUESS MY NUI1BER. ON EACH GUESS,
'IOU ARE TO ENTER 2 NUMBERS,
I Nt) TO lRAP
WI NUMBER BETWEEN THE TWO NUMBE~'S. I WILL
lELL YOU IF YOU HAVE nARPED M,' NUMBER, IF M;'
tWMBER IS LARGER THAN YOUR TWO NUMBERS, OF~ IF
11Y NUMBER I S SMALLER THAN ;'OUR TWO NUMBERS.
IF YOU WANT TO GUESS ONE SINC:iLE NUME:ER, T'r'PE
~~OUR GUESS FOR BOTH YOUR TRAP NUMBE~:5
YOU GET 6 GUESSES TO GET- MY NUMBER.

GUESS •

4 ?23,23

230 IF 8{)8 THEN 240

"'OU GOT IT!!!

235
24@
25@

lRY AGAIN.

IF X=A THEN 400
IF A<=B THEN 260
GOSUB 36@

2613 IF X-CA THEN 112113
2·nl IF X{=8 THEN 3213

GUESS tt 1 1:n,67

2813

PRINT "MY NUMBER IS LARGER THAN YOUR TRAP NUMBERS. "

IlY NUMBER

2913
30@

PRINl

GUESS .. 2 111, 22

]10

GOTO 330

320

PRINl "YOU HAVE TRAPPED MY NUMBER.
NEXT Q

DO
3413
350
360
3113

300
390

GOT a

"MY NUMBER

PRINT "SORRY,

IS SMALLER THAN 'lOUR TRAP NUMBERS. "

,'I)U~,

HAP NUMBERS.

WI NUMBER IS LARGER THAN ','OUF: TRAP NUME:ERS.

THAT·-S".; G; "GUESSES.

GIJESS # :1 125,28
NUMBEF: WF1S".;:><:

YOU HAVE lRAPPED

Gala 410
R=A
!1=B
B=R
RE1URN

41313

PRINT "YOU GOT IT ~!! w

410
430

PRINl
PRINl
PRINT

4413
'150

END

420

I S SMALLER THAN

:ne

M'T NUMBER.

GUESS # 4 ?26,26
Wi NUr'lBER 15 LARGER THAN YOUF: TRAP NUMBERS.

GUESS :It 5 127,27
'-IOU GOT IT! I!

"TR'/ AGAIN. "

·fRY AGAIN.

GOT a 180
GUESS .. :1 ?3:L 67
."OU HAVE TRAPPED MY NUMBER

READY
GUESS # 2 ?44,56
11Y NUMBER IS SI1ALLER THAN YOUR HAP NUME:E"S.

GUESS
3: 137.,413
YOU HAVE TRAPPED MY NUMBER.
GUESS

4 138,38

11,' NUMBER IS SI1ALLER THAN ,'OUR HAP NUMBERS.
# S '37,37
\IOU GOT IT!!!

GUESS

225

23MTCH

'.',

I·;

GAME OF 23 MATCHES

!
I

Description
In the game of twenty-three matches, you start with 23 matches
lying on a table. On each turn, you may take I, 2, or 3 ,matches.
You alternate moves with the computer and the one who has to
take the last match loses.
The easiest way to devise a winning strategy is to start at
the end of the game. Since you wish to leave the last match
to your opponent, you would like to have either 4, 3, or 2
on your last turn so you can take away 3, 2, or 1 and leave
,1. consequently, you would like to leave your opponent with
5 on his next to last turn so, no matter what his move, you
are left with 4, 3, or 2. work this backwards to the beginning and you'll find the game can effectively be won on the
first move. Fortunately, the computer gives you the first
move, so if you play wisely, you can win.
After you've mastered 23 Matches, move on to BATNUM and then
to NIM.
program Author
Raymond Burhitt of Plainedge H.S., N. Massapeque, N.Y. submitted
one version of 23 Matches, however, the one published is from:
Bob Albrecht
People's Computer Co.
Menlo park, CA. 94025

226

SAMPLE RUN

PROGRAM LISTING
100
1:10
:1:l.5
120

REM ***23 t1FlTCHES
PRINT "LET-'S PLAY ;23: MATCHES. WE START WITH 23 MATCHES.
PRINT "'l'OU MOVE FIRST, YOU MA't' TAKE 1..2 OF.: 1: MATCHES, "
PRINT

125 PR I NT
D0 PRINT

135
140
1!50
2013

"THEN I

MOV!:: ... I

MA~'

23tHCH

TAKE L 2 (If': 3: MFrTCHES, "

YOU MOVE> I NO'.... E AND SO ON.
"TAKE THE LAST MATCH LOSES. "
II

THE ONE WHO HAS: TO"

PRINT "GOOD LUCK AND Nfl.,.' THE E:EST COMPUTEI': (HA HA)

EDUSYSTEM 30

LET'S PLAY 23 MATCHES. WE START WITH 22 MATCHES.
YOU t10\lE FIRST. '1'OU MA'T' TAKE L 2 01<: J: MATCHES.
THEN I MOVE ... I MAY TAKE 1,2 OR } MATCHES.
','OU MOVE., I MOVE AND SO ON. THE ONE WHO HAS TO
TAKE THE LAST MATCH LOSES.
GOOD LUCK AND t1AY THE BEST r::OMPUTEj;' (HA HA) WIN.

~JIN.

LET M=23

REM ***THE HUMAN MOVES
THERE ARE

205 PRINT

NOW 2J MATCHES.

210 PRINT "THERE AF:E NOW".; ~1.' "MATCHES.
HOH t1AN', DO YOU TAKE?J

215 PRINT

22121 PR ItH "HOW t1AWr' DOYal) TAKE";
2313 INPUT H
240 IF H)M THEN 510
2513 IF HC>INT(H) THEN 5113
260 IF H{=0 THEN 510
270 IF H)=4 THEt~ 510
2:l0 LET t1=M-H
290 IF t1=0 THEN 410
]~30

REM ***THE COMPUTER

305

IF M=l THEN 440

TOOK 3

NOW 17 MATCHES.

.. THERE ARE

HOW MANY DO ',OIJ TAKE~'1

1 TOOf( 3

THERE ARE NOH 12 MATCHES.

HOW MANY DO YOU TAKE?2

t~O'''ES

1 TOOK 2

THERE ARE NOW

MATCHES

:?:1.0 LET R=M-4*INT(t'1l4)

320 IF R()l THEN ].50

HOW MAN', DO YOU TAKE"1

:no LET C=INTCJ*RND(O) )+1
340 GO TO 360
3513 LET C=(R+3)-4*INT( (R+!)/4)

1 TOOK 3 ... THERE ARE NOW 5 MATCHES

360 LE T M=M-C
370 IF M=8 THEN 440

HOW MANY DO YOU TAKE~'l

1 TOOK 3 ... THERE ARE NOW 1 MATCHES

3"5 PRHH
380 PRINT "I TOOK".,C
390 GO TO 210
408 REr1 ***SOt1EBODY WON (SEE LINES 29121.,3:1215.,270)
410 PRINT
428 PRINT "I WON!!! BETTER LUCK NE>=:T TIME. "
430' GO TO 1413
440 PRINT
45(1 PRINT "0. K. SO 'r'OLI WON
LET" S PLA'T' ACiAIN.
<160 GO TO 1413
~j00 REM ***THE HUMAN CHEATED!
(SEE LINES 240 THFW 27{1)
510 PRINT "'r'OU CHEATEC'! BUT I·'LL (il'y'E 'T'I)U ANOTHER CHANCE.
5:?0 GO TO 215
999 END

HOW MANY DO YOU TAKE?€!
YOU CHEATED! BUT I"'LL GIVE 't'OU ANOTHER CHANCE'
HOW t1ANY DO YOU TAKE?!
I

WON I!!

THERE ARE

BETTER LUCK

NOW

NE:I,T

TIME

f1ATCHES

HOW MANY DO YOU TAkE?2
I

TOOK 1 ... THERE ARE NOW 20 MATCHES

READY
HOW MANY DO YOI) TAKE?]

1 TOOK.l

.. THERE ARE NOW 16 MATCHES.

flDW MANY DO YOU TAKEn
J TOOK 2 ... THERE ARE NOW 11 MATCHES.
HOH t1ANY D·O '1'01) TAKE?2

TOOK ]

. THERE ARE NOW 6 MATCHES

HOW MANY DO YOU TAKE?l
I

TOOK 3 ... THERE ARE NOW

MATCHES.

HOW MANY DO YOU TAKE?l
o. K.

227

SO YOU WON.

LET"'S PLAY AGAIN.

UGLY

DRAWS AN UGLY WOMAN

Description
This program draws on the terminal the profile of a woman.
It gives you an opportunity to specify the "dimensions" of
your woman (termed SPECIAL) or take your chances (CHANCE).
The computer draws your figure and then makes a determination
whether or not to call your woman ugly or just leave it up to
your qwn judgement.
Program Au thor
Mark Maslar
231 Appletree Drive
Media, PA. 19063

228

PROGRAM LISTING

SA}!.PLE RUN

5 PR I NT "PROGRAM "UGL IL ' "·'.PR I NT
6 D=l\E=l\F=l\PRINT nDt) YOU WANT

CHflNCE<i)~

01<: SPECIAL(2)".;

INPUT G

PROGRAM

~ UGLY~

DO YOU WANT CHANCE(1)'

8 IF 13=2 THEN 17

A= 21

9 RANDOMIZE
111 F!=INT(40*RND)+15
11 8=INT(40*RND)+10

12 C=INT(49*RND)+15
13 PRINT

14 PR I NT

C= 52

1 FOR '1'ES..

FOR NO"

xx:=<
x;.: x:,.; x

"A="R .. "8="8 .• "C=~C

"r,o YOU ST I LL WANT CHANCE

OR $PEC~IAL(2)? 1

B= 46

DO YOU STILL WANT CHRNCE -- 1 FOR "E5.,

:!: FOR NO".;

xxx

15 INPUT H

16 ON H GOTO 19. 6

xxxxxxxxxxxxxxxxxxxx

17 PRINT "WHAT RRE YOUR VALuES FOR A. 8. AND e";

X:>i:--:X:";XX:";XX~:XXX:X::O::;':XXX:";) .

18 INPUT A, 8 .. C
19 PRINT\PRINT\PRINT TAE!(20) ":~:X::":A

~-<x:,,;:,,;:,,;xx:~;:,:x:S;:~::K:XXX:X::';::<X

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

20 PRINT TAB(19)"X:-:X;::X"
25 PRINT TFlB(20)";"::-:::<"
30 PRINT TA8(21)"X"
3~ PRINT TABC1S)":';".; •
40 D=D+1

:=<XXX:>{X:';X:X::";X::<XXX:~:;:':Xx;':::";,"':XX1:,'x:;'::Xl:;:':X:~:XX;X::~::";X:x:Xl:1::~::X::~:;':
xx:x:x;..:xx:..:x:x:xx::.::.-::.::x::t,xx:x:x:x:x:,,::x:;.-:xx:,.;:x::x::.-::x::x::x:;.:;x::x::x::x:-:~:x:..;:,.;x:":

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

XXX:'-::";XX:'-::X:X:,,::':::'-:XX;":-::':XXX:X::';X:'-::X:>:::'-:>::-::"::"::><::.::.::x::x:x:·::":;:.::><::"::x::x::x:x:.-:xx:=<x:><

:.-::x:::<x:.-::..:x ( ) :";:":;x:x:s::><::x:xx:x:x:x::x::~::"::x::~:x;x::x:x:,,:x:·::,.;:,.;:,,::x::"::":X:":X;':::X::X:X:";X:~:1:X
:,,;><:
xx

45 PRINT ";,:",
50 IF O)=R-2 THEN 69

:..;x

5:3 GOTO 413

61] PRINT ">::"
65 PRINT TRE:(l'5)"::<".;

:.;:..;

70 D==1

75 [,=D+l
813 PRINT ":X:";
85 IF D=A-l THEN 95
9i) GOTO ?5
95 PRINT ":s:).
1013 PRINT TABC1S) ":'::".;
105 D=1
110 D=D+1
115 PRINT " :~: " ;
:120 IF D)=8-2 THEN 130
125 GOTO 111-3

::n0 PRINT ":..:"
235 PR !NT TRB(15)":";";
:140 E=E+1
150 pp INT

":»:";

155 IF E=E:-1 THEN 165

UGLY
UGL'T'

UGLY
UGL'i

UGL'i
UGLY
UGL'l'
UGLY

UGLY!
UGL'r' '
UGL'l' !
U!3L'r'1

II!

;tir

!:
I
I

X,:1:
1::$::':
x

:':X:";:--::s::"::-:X:·:;";:";:g::";::<;'::;'::'::'::·::'::x:
XXXXXXXXXXXXXXXXXXXXXX).

:. : xx xx:-:X X:=-: :s: ;.: :.: :g:::< X:': ;.: :x: :.:::< :x:
;";XXX:=-::'-:;";:s:::':X:-::·:;:'::'::":
: .: xx:x: >: xf: x:.-: :~: :-: ,: :~: :-< :.:
: < :.; x:.-: ;": X,: : < : < :~: :": :": :x; x x
:X:XX:-:XXX::<::<X:":::<,::":X:X::X::X:;:<:"::X:
X:";XXX;';X:S:X::-:::"::"::><:::O:X;';:·:;'::'::'::-::":
X::<:";:";XX:"; ( ) X;"::X::':X;'::>:::·:::<X::<:~:
;:.::":
:.;;:.:
:.;x

220 E=E+1
225 PRINT "::<";
;E0 IF E=8-1 THEN 2413
~235 GOTO 22\3
24~3 PP INT
":':u
~N5 PRINT TAB(15)":";";
250 F=F+1
255 PRINT "::<";
261) IF F)'=(:-·2 THEN 270
265 GOTO 250
270 PR I NT ":,.-;"

XXX::'-:

275 PR1NT TAB(15) "::':";
F=1

285 F=F+l
2'313 PR1NT "X" .;
295 IF F=C-1 THEN 105
300 GOTO 285
305 PRINT u:,.-;"
3113 PRINT TAB(:t5) "::::".;
315 F=l
316 130TO 320

317 F=F+J:
3:-20 F::::F+l
3:25 PRINT

";'-'," ;

327 IF F=7 THEN 329
329
:D0

331
J:15

340
345
350
355
360
365

310
380

385
395
400
405

497
41~)

415

UGL't' !
UGL't"
UGL "I' ~
UGL'r' !

:~:::-::f:XX

:U35 PRINT ":»:";
:19@ IF E=8-1 THEN 20·5
21313 GOTO 180
205 PRINT "~\ "
210 PRINT TRE: (15) n:><:".;
~2:15 E=1

3;..~8

UI3L'1' !
U(":iL'l' !
UGL":' !
UGL'T'l

l~ANT

:180 E=E+l

~2a0

UGL't' ~
UGL'T' !
U6L'r' !
UGL'r' !

UGL'l' !
UGL 'T' ~
UGL'r' !
Uf:iL't' !

CHANCE (;1.), OR SF'E('IAL(;2)? 1
8= 25
(.= 24
DO '1'OU STILL WANT CHANCE -- 1 FOIt: '1'ES, :2 FOP NO?
[)O '1'OU WANT CHANCE (1)._ OR SPEC I AL (21? 1
A= 25
8= 26
C= 24
[)I) YOU ST I LL WANT CHANCE -- 1 FIJR 't'ES._
:2 FOR NO?
DO 'r'OU l~ANT CHFrNCE(l), OR SPECIAL(2Pl4HAT ARE '1'OUF: \/RLUES FOR A.. 8., AND C? ;!'2.- 15, 22

DO '1'OU
A= 19

:1tS0 GOTO 140
165 PRINT "X"
:170 PR INT TAB (1!'5) ":.:" ,;
175 E=1

ill

UGL't' !
I)t3LV!
UGL'T"
UGL't' )

GOTO 3:31
PR INT "(>".;
GOTO 11"1
IF F=C-1 THEN ]:40
GOT a S20
p": INT ":~: "
P.' !NT 1A8(19) ":--:::<
PRINT TRB(18) ~:~::s:
PRINT TAB(17) "X>:
PRINT TAB(16) "::.::,,;
PRINT TA8 (15) ~ >::s:
PR INT TAB (13)" x:":x::<
PR I NT\PR I NT
IF 8(A THEN 6
FOR X=1 TO 48
PRINT "IJGL'1"
NEXT X
PRINT\PRINT
GOTO 6
END

READY

229

UGL'T'
UGL'l'
UGL'l'
ClGL't'

UGL'l'
UCiL'l'
U(iL'r'
UGL'l'

UGL'l'
UGLY
UGLY
UGlS

UGL I'
UGL'r'
UGL'y'
UGL'r'

WAR

CARD GAME OF WAR

Description
This program plays the card game of War.
In War, the card
deck is shuffled, then two cards are dealt, one to each
player.
Players compare cards and the higher card (numerically) wins.
In case of tie, no one wins.
The game ends
when you have gone through the whole deck (52 cards, 26
games) or when you decide to quit.
The computer gives cards by suit and number, for example,
5-7 is the 7 of spades.
Note: The tG in some of the PRINT statements(470,650)
indicates the ringing of the teletype bell.
Source
This program showed up on a DIGITAL in-house DECsystem-lO
one day.
The author is unknown.

-11-s OOR LffiFSr DEfENS,vE
\l\\TERDlCnON OE.lC.R<rENT

DEVI'SE!! !

230

f..
,f!
~i
1.·11

~····1

PROGRAM LISTING
I ~EM THIS PROGRAM PLAYS THE CARD GAME or WAR. THE ONLY CHANGE
2 ~EM IS THAT A TIE. MAKES NO SCORE AT ALL. THE PACK IS READ IN
] REM AND THEN SHUFrL~S IN A RANDOM WAY, THE COMPUTER THEN DEALS THE
4 REM CARDS TWO AT A TIME AS LONG AS THE GAME CONTINUES. A RUNNING
5 REM SCORE IS KEPT.
100 PRINT "THIS IS THE CARD GAME OF WAR. EACH CARD IS GIVEN BY SUIT-S",
110 PRINT "AS S-7 rOR SPADE 7. -,
120 PRINT "DO YOU WANT DIRECTIONS",
130 INPUT Be
140 IF BI'''NO'' THEN 210
150 IF BI."YES" THEN 180
160 PRINT "YES OR NO. PLEASE.
170 GO TO 120
180 PRINT "THJi: COMPUTER GIVES yoU AN·D IT A 'CARD', THE HIGHER 'CARD' "
190 PRINT "CNUMERICALLYl WINS, THE GAME ENDS WHEN YOU CHOOSE NOT-,
200 PRINT II TO CONTINUE OR WHEN YOU HAVE FINISHED THE PACK."
210 PRINT
220 PRINT
230 DIM U(52!. L(54)
240 FOR I-I TO 52
250 RUD ASCI)
2U ~EXT I
270 RANDOM
280 FOR J.I TO 52
2.90 LET LC.1l 0 1NTC52*RND(X)+I)
S00 FOR KOl TO .1-1
310 IF LCK)C)LC.11 THEN 340
)20 LET JcJ_I
330 GO TO 350
340 NEXT K
350 NEXT J
360 LET poP+1
]70 LET !oIloLCP)
380 LET P.P+l
390 LET MZOL(Pl
400 PRINT
410 PRINT
420 PRINT "YOU' ",AUNI)' "COMPUTER' ",ASCM2l.
430 LET NlaINTCCNI-.5l/4l
440 LET N2oINT((M2-,5l/4l
450 IF NI'8N2 _THEN 490
460 LET AI-AI+I
470 PRINT "COMPUTER WINB."G"G"G"G"G YOU HAVE",Bl,", COMPUTER HA5"'AI
480 GO TO 540
490 IF NlcN2 THEN 530
500 LET Bl-Bl+l
510 PRINT "YOU WIN,
YOU HAVE",BI,", COMPUTER HAs",AI
520 GO TO 540
530 PRINT "TIE, NO SCORE CHANGE,"
540 IF L(p+lla0, THEN 610
550 PRINT "DO YOU WANT TO CONTINUE",
560 INPUT VI

II,

I
r

£1.1
1

,'I

~I
~I
'i'

510

11,I.
'1

xr V8."¥ES" THEN 360

580 IF V'."NO"THEN 65~
590 PRINT "YES OR NO. PUASE.
'"
600 GO TO 540
610 PRINT
620 PRINT
630 PRINT "YOU HAVE RUN OUT 0,' CARDS. FINAL SCORE.
6U PRINT II, COMPUTER.-",Al
650 PRINT"TKANKS FOR PLAYING. n WAS FUN,"GoG"

YOU: C-5
COMPUTER: D-4
YOU WIN.
YOU HAVE 5 ; COMPUTER HAS 1
DO YOU WANT TO CONTI NUE ?YES
YOU: C-6
COMPUTER: S-A
COMPUTER WINS.
YOU HAVE 5 , COMPUTER HAS 2
DO YOU WANT TO CONTI NUE ?YES
COMPUTER, H-10
YOU: S-K
YOU WIN.
YOU HAVE 6 ; COMPUTER HAS 2
DO YOU WANT TO CONTI NUE ?YES
COMPUTER: D-A
YOU: S-4
COMPUTER WINS.
YOU HAVE 6 ; COMPUTER HAS
DO YOU WANT TO CONTI NUE ?YES

YOU: C-3
COMPUTER: 5-2
YOU WIN.
YOU HAVE 7 ; COMPUTER HAS l
DO YOU WANT TO CONTI NUE ?YES
COMPUTER: H-K
YOU: C-J
COMPUTER WINS.
YOU HAVE 7 ; COMF'UTER HAS 4
DO YOU WANT TO CONTI NUE ?YES
COMPUTER: C-A
YOU: H-6
COMPUTER WINS.
YOU HAVE 7 ; COMPUTER HAS 5
DO YOU WANt TO CONTI NUE ?YES
COMPUTER: C-2
YOU: C-Q
YOU WIN.
YOU HA'IE B ; COMPUTER HAS 5
DO YOU WANT TO CONTI NUE ?YES
YOU: S-5
COMPUTER: C-7
COMPUTER WINS.
YOU HAVE B " COMPUTER HAS (;
DO YOU WANT TO CONTI NUE ?YES
COMPUTER: D-10
YOU: H-5
COMPUTER WINS.
YOU HAVE e:, COMF'UTER HAS 7
DO YOU WANT TO CONTI NUE ?YES
COMPUTER: C-9
YOU: H-A
YOU WIN.
YOU HAVE 9 ; COMPUTER HAS 7
DO YOU WANT TO CONTI NUE ?YES
COMPUTER' 0-6
YOU: H-Q
YOU WIN.
YOU HAVE 10 ; COMPUTER HAS 7
DO YOU WANT TO CONTI NUE ?YES

YOU--" ,Bl,
COMPUTER: D-K
YOU: H-8
COMPUTER 14 rNS.
YOU HAVE 10
DO I'OU WANT TO CONTI NUE ?YES

661 DATA $-2 ,.H-2 ,C-2 ,0-2, a-l ,M-) ,e-], 0-3, S--4, H-4 ,C .. 4, D-4 ,8-5, H-S ,e-,
670 DATA 0-5,8-6, H-6 ,C-6 ,0-6,5-7 ,H-7, e-'1, 0-', s-e ,H-S ,c-e ,0-8, $-9, H-9
680 DATA e-g, D-9, S-10, H-10, C-10, 0.10, S-J, H.-J ,C.J, O-J, S-Q, H-Q ,C-Q, D-Q
690 DATA S-K,H-K,C-K,D-K,S-A.H-A,C-A,D-A

COMPUTER: H-4
YOU: 5-7
YOU WIN.
YOU HAVE 11 , COMPUTER HAS S
DO YOU WANT TO CONTI NUE ?YES

700 END

YOU: S-J
COMPUTER: H-J
TIE.
NO SCORE CHANGE.
DO YOU WANT TO CONTI NUE ?YES

SAMPLE RUN
TH I SIS THE CARD GAME 'OF WAR.
EACH CARD IS GIVEN E:~' SLI! T AS S-7 FOR SPADE 7.
DO YOU WANT DIRECTIONS ?YES
THE COMPUTER GIVES YOU AND IT A .'CARD'.
THE HIGHER 'CARD'
(NUMERICALLY) WINS.
THE GAME ENDS WHEN YOU CHOOSE NOT
TO CONTINUE OR WHEN YOU HAVE FINISHED THE PACK.

COMPUTER HAS e

#
COMPUTER: D-Q
YOU: S-Q
TI E.
NO SCORE CHANGE.
DO YOU WANT TO CONTI NUE ?YES
COMPUTER: H-2
YOU: C-4
YOU WIN.
YOU HAVE 12; COMPUTER HAS e:
DO YOU WANT TO CONTI NUE ?YES

COMPUTER, '0-2
YOU, 0-3
YOU ~IN.
YOU HAVE 1 ; COMPUTER HAS 0
DO YOU WANT TO CONTINUE ?YES

YOU: 5-3
COMPUT.ER: . 5-&
COMPUTER WINS.
YOU HAVE '12
COMPUTER HAS' 9
DO YOU WANT TO CONTI NUe: ?YES .

COMPUTER: D-S
YOU: H-s
COMPUTER WINS.
YOU HAVE 1 ; COMPUTER HAS 1
DO YOU WANT TO CONTI NUE ?YES

YOU: H-7
COMPUTER: S-B
COMPUTER WINS.
YOUHFi;,oE 12· J COMf'UTER' HAS 10
DO YOU WANT TO CONTI NUE ?YES

COMPUTER: c-e:
YOU: H-9
YOU WIN.
YOU HAVE 2'; COMPUTER HAS 1
DO YOU WANT TO CONTINUE ?YES

I'OU: C-K
COMPUTE'R: D-:5:. -. . -'.
YOU WIN.
YOU HAVE 1l ,- COMPUTER HAS 10
DO YOU WANT TO CONTI NUE ?yES .

YOU, D-J
COMPUTER: C-10
YOU WINYOU HAVE 1 , COMPUTER HAS 1
DO YOU WANT TO CONTI NUE ?YES

YOU: 0-7
COMPUTER: $-9
COMPUTER WINS.
YOU HAYE'13 -, COMPUTER. HAS 11

YOU: 5-10
COMPUTER, D-9
YOU WIN.
YOU HA'IE 4 ; COMPUTER HAS 1
DO YOU WANT TO CONTI NUE ?YES

YOU HAVE RUN .OUT OF CARDS.
FINAL SCORE:
THANKS FOR PLAYING.
IT WAS FUN_

231

YOU-- 1l ,

COMPUTER-- 11

WAR· 2

TROOP TACTICS IN WAR

Description
In this game, you are fighting a small-scale war with the
computer. You have 72,000 troops which you first must
distribute into your Army, Navy, and Air Force. You may
distribute them in any way you choose as long as you don't
use more than 72,000.
You then attach your opponent (the computer) and input
which service and the number of men you wish to use. The
computer then tells you the outcome of the battle, gives
you the current statistics and allows you to determine
your next move.
After the second battle, it is decided from the total
statistics whether you win or lose or if a treaty is signed.
Program Author
Bob Dores
70 Summer Street
Milton, MA. 02186-

232

1967 by Creative Publications

PROGRAM LISTING

SAMPLE RUN

I
2
4
5

I AM AT WAR WITH YOU.
WE HAVE 72000 SOLDIERS A PIECE.
DISTRIBUTE YOUR FORCES.
ME
YOU
30~30
ARMY
? 3000f2J
NAVY
20000
? 21313130
A.F.
22000
? 22131313
YOU ATTACK FIRST. TYPE I FOR ARMY
2 FOR NAVY
AND 3 FOR AIR FORCE.
? I
HOW MANY MEN

REM
PRI
PRI
PRI

6 PRI

BOB DORES/WAR
"I AM AT WAR WITH YOU."
"WE HAVE 72~~~ SOLDIERS A PIECE."
"DISTRIBUTE YOUR FORCES."
~ "ME"" "YOU"

7 PRltlARMY"" "3212130""
8 HlPUT A
9 PRp·NAVy ...... 21tJe!0'0 ....
I~ INPUT B
11 PHI uA. F ....... 2231210 ....
12 INPUT C
13 IF A+8+C>72000 THE 5
14 D=3~~~~
15 E=2~~~~
16 F=2211HH!I
17 PRI "YOU ATTACK FIRST. TYPE
18 PRI "AND 3 FOR AIR FORCE."
19 INPUT Y
23 PRI "HOW MANY MEN"

? 2
YOU LOST

I FOR ARMY

YOU
ME
ARMY
29998
30~00
NAVY
20000
20~00
A.F.
22000
2200~
WHAT IS YOUR NEXT MOVE?
ARMY=1
NAVY=2
AIR FORCE=3

2 FOR NAVY"

21 INPUT X
22 IF' X<0 THEN 23
23 ON Y GOTO 100 .. 2121121" 300

? I
HOW MANY MEN

1 {iH3 IF X>A THEN 2121
11215 IF X<A/3 THEN 12121
11121 IF X<2*A/3 THEN 150
II S GOT 270
120 PRI "YOU LOST "X" MEN FROM YOUR ARMY."
125 A=INTCA.-X)
130 GOTO 533

? 2.34
I WIPED OUT YOUR ATTACK
FROM THE RESULTS OF 80TH OF YOUR ATTACKS ..
THE TREATY OF PARIS CONCLUDED THAT WE TAKE OUR
RESPECTIVE COUNTRIES .. AND LIVE IN PEACE.

1513 PRr"YOU LOST "lNT(X/3)" MEN .. BUT I LOST "lNTC2*D/3)

READY

155 A= INT( A-X/3)
160 0=0
165 GOTO 500

RUN

200 IF X>B THE 20
210 IF' X<E/3 THEN 2321
215 IF X<2*E/3 THEN 250
220
230'
232
235

GOT 270
PRI "YOUR ATTACK WAS STOPPED!"
B=INT(B-X)
GO TO 500

2521 PRI "YOU DESTROYED "INT(2*E/3)" OF MY ARMY."
255 E=INTCE/3)
2613 GO TO 50121
270 PRI"YOU SUNK 1 OF MY PATROL BOATS ..

BUT I

WIPED OUT 2"

275 PRI"OF YOUR A.F. BASES .. AND 3 ARMY BASES."
280 A=INT(Al3)
285 C=INT(C/3)
2913 E=INT(2*E/3>
293 GOTO 500
31210' IF- X>C THEN 2!21
31121 IF X<C/3 THEN 35121
32121 IF X<2*C/3 THEN 37121
330 GOT 380
35~ PRI "YOUR ATTACK WAS IHPED OUT."
355 C=INT(C-X)
363 GOTO 530
370 PRI "WE HAD A DOGFIGHT- YOU WON - AND FINISHED YOUR MISSION."
375 D=INT(2*D/3>
377 E=INT(E/3)
378 F=INT(F/3)
379 GOT50~
380 PRI "YOU WIPED OUT ONE OF MY ARMY PATROLS# BUT In
381 PRI "DESTROYED 2 NAVY BASES# AND BOMBED 3 ARMY BASES."
385 A=INT(A/4)
387 B=INT(B/3)
3913 D=INT(2*D/3>
5013 PRI
5!211 PRl~ "YOU"~ "ME"
51121 PRI .. ARMY .... A~ D
5213 PHI "NAVY" # B .. E
53121 PRI'·A.F." .. C~F
11300 PRI "WHAT I S YOUR NEXT MOVE?"

1121113 PRI "ARMY:: 1
132~

MEN FROM YOUR ARMY.

NAVY=2

I AM AT WAR WITH YOU.
WE HAVE 72000 S01..DIERS A PIECE.
DISTRIBUTE YOUR FORCES.
ME
YOU
ARMY
30300
? 720130'
NAVY
23000
? 3130121130
A.F.
2200~
? 34
DISTRIBUTE YOUR FORCES.
ME
YOU
ARMY
30030
2333
NA1JY
20"0130
? 54322
A.F.
22~00
? 74633
DISTRIBUTE YOUR FORCES.
ME
YOU
ARMY
31330'121
? 3455
NAVY
23003
? 6344
A. F.
2200"0
? 2771210
YO:; ATTACK FIRST. TYPE 1 FOR ARMY
2 FOR NAVY
AND 3 FOR. AIR FORCE.
? 2
HOW MANY MEN
? J 7899
HorN MANY MEN
? 30e10
YOUR ATTACK

WAS

STOPPED!

YOU
A..QMY

3455

ME
30000

NAVY

3344

2000~

A.F.
27700
22030
WHAT IS YOUR NEXT MOVE?
ARMY=!
NAVY=2
AIR F'ORCE=3
? 2
HOW MANY MEN
? 3344
I SU!lJK 2 OF YOUR BATTLESHIPS .. AND MY AIR FORCE
WIPED OUT YOUR UNGUARDED CAPITOL.
FROM THE RESULTS OF' BOTH OF YOUR ATTACKS ..
YOU LOST-I CONQUERED YOUR COUNTRY. IT SERVES YOU
RIG~T FO~ PLAYING THIS STUPID GAME!!!

AIR FORCE=3"

INPUT G
"HOW t1ANY MEN"

112130 PH'1

READY

11214121 INPUT T
IF T<0 THE 11213121
ON G GOTO 160121 .. 1 7!210 .. 181/J0
IF T>A THE 112130
IF T<,D/2 THE 163121
PRI"YQU DESTROYED MY ARMY!"
16160=0
1617 GOTO 2000
163121 PRI "1 WIPED OUT YOUR ATTACK"

RUN
I AM AT WAR WITH YOU ..
WE HAVE 72000 SOLDIERS A PIECE.
DISTRIBUTE YOUR FORCES.
ME
YOU
ARMY
30000
? 201210
NAVY
2001210
? 300210

1635 A=A-T

YOU ATTACK FIRST. TYPE I
AND 3 FOR AIR FORCE.

1045
11215!21
16121121
161121
1615

1640 GO TO 2~00
173121 IF T>8 THEN 11213121
171121 IF T<E/2 THEN 175121
172~ GOT 1770
175121 PRI "I SUNK 2 OF YOUR BATTLESHIPS .. AND MY. AIR FORCE"
1751 PRI "WIPED OUT YOUR UNGUARDED CAPITOL. I I
1.755 A=A/4
1760 B=B/2
1765 GOTO 200~
1770 PRI "YOUR NAVY SHOT DOWN 3 OF MY XIII PLANES
1771 PRI"AND SUNK 3 BATTLESHIPS."
1775 F=2*F/3
1780 E=(El2)
1793 GOT0200fi:1
1800 IF T>C THEN 103~
1810 IF T>F/2 THEN 183~
I 82~ GOT 1850
1830 PRI "MY NAVY AND AIR FORCE IN A COMBINED ATTACK LEFT"
1831 PHI "YOUR COUNTRY IN SHAMB1..ES."
1835 A=Al3
[837 B=B/3
1840 C=C/3
[845 GOTO 200~
1850 PRI "ONE OF YOUR PLANES CRASHED INTO MY HOUSE. I AM DEAD."
1851 PRI"MY COUNTRY FELL APART."
1860 GOTO 2~1~
2~00 PRI
20~1 PRI "FROM THE RESULTS OF BOTH OF YOUR ATTACKS,"
2002 IF A+B+C>3/2*CO+E+F) THE 21211121
212105 IF A+B+C<2/3*CO+E+F) THE 212115
20e6 PRI"THE TREATY OF PARIS CONCLUDED THAT WE TAKE OUR"
212"'7 PRI "'RESPECTIVE COUNTRI ES.. AND LIVE IN PEACE. Of
2008 GOT2020
2Q;I1.0 PRI "YOU VON, OH f SHUCKS!!! f!"
2~12 GOTO 2020
201.5 PRI "YOU LOST-I CONQUERED YOUR COUNTRY. IT SERVES YOU"
2016 PRI "RIGHT FOR PLAYING THIS STUPID GAME!! I"
2020 END

A. F.

22121121121

6444

FOR ARMY

2 FOR NAVY

? 3
HOW MANY MEN
? 6443
YOU WIPED OUT ONE OF MY ARMY PATROLS ..

DESTROYED 2 NAVY BASES ..

BUT I
AND BOMBED 3 ARMY BASES.

YOU
ME
ARMY
500
2~000
NAVY
10021121
2000'0
A.F.
6444
22!Z1e!!ZI
WHAT IS YOUR NEXT MOVE?
ARMY=J NAVY=2 AIR FORCE=3
? 3
HOW MANY MEN

? 5
ONE OF YOUR P1..ANES CRASHED INTO MY HOUSE.

MY COUNTRY FELL APART.
YOU WON .. OH! SHUCKS!!!!!
READY

233

I AM DEAD.

II..·
"
4

WEKDAY

FACTS ABOUT YOUR BIRTHDAY

Description
This program gives facts about your date of birth (or some
other day of interest). It is not prepared to give information on people born before the use of the current type of
calendar, i.e. year 1582.
You merely enter tod,ay's date in the form - month, day,
year and your date of birth in the same form. The computer
then tells you the day of the week of your birth date, your
age, and ho~ much time you have spent sleeping, eating,
working, and relaxing.
Source
WEKDAY was adapted from the GE timesharing program by:
Tom Kloos
Oregon Museum of Science and 'Industry
Portland, Oregon 97200

234

PROGRAM LISTING
10 PRINT"
120PRINT
12. LET YI • 1970
130 PRINT" ENTER TOOAY'5 DATE IN T~IS FORM. MONTH. DAY, YEAR"'
1.0 INPUT Ml,Dl.Yl
150 IF Yl>100 THEN 170
160 LET YI - Yl + 1900
170 DEF FNACA).INTCA/4)
180 DIM TCl2)
190 OEF FNBCA)'INTCA/71
210 FOR I- I TO 12
220 READ T( 11
230 NEXT I
240 PRINT
2.IPRINT"THIS PROGRAM DEMONSTRATES PDP-II ~A5IC AND ALSO GIVES"
242PRINT'FACTS ABOUT A DATE OF INTEREST TO YOU·
244 PRINT
2.5 PRINT"ENTER DATE OF BIRTH IN THIS FORMI MO,OAy,yEAR",
250 INPUT .,O,Y
260 PRINT
270 IF Y - 75 >0 THEN 280
275 LET Y • Y+1900
280 LET II • INTCCY-15~0)/l00)
290 IF Y-1582<0 THEN 1300
3B0 LE,T A • 11+5+CII+3)/'
310LET 12 - INT(A-FNBCA1*71
320 LET Y2" INT(Y/1001
330 LET Y3 • INTCY-Y2*1001
340 LET A - Y3/4+Y3+0+TCM)+12
350 LET B - INTCA_FNBCA)*7)+1
360 IF .>2 THEN 470
370
IF y3- 0 THEN 4.0
380 LET TI - INTey-F,ACy)+4)
390 IF TI<> 0 THEN 470
400 IF B<>~ THEN 420
410 LET 6 - 5
420 LET B • S-I
430 GOTO 470
440 i.ET A _ II-I
450 LET TI • INTCA-FNACA1*4)
460 IF TI " • THEN 400
470 IF B <> 0 THEN 490
480 LET 6 • 7
490 If (Yl*12+MIl*31+DI<CV*12+M)+31+0 THEN 550
500 IF (yt+12+MI)*31+DloCY*12+M)_31+0 THEN 530
510 PRINT M'"/''JO'"/";Y,'1 IdS A Iq
520 GOTO 570
530 PRINT ~,II/",D,"/"JVJ" IS A lit
540 GOTO 570

550 PRINT MI"/"JO'"I"IY'" WILL BE A
570 If B<>I T~EN 590
580 PRINT "SUNDAY"
590 IF 6<>2 THEN 610

1270 GO TO 710
1280 PRINT 'FRIDAY THE THIRTEENH--~8EWARE I"
1290 GOTO 710
13B0 PRINT "NOT PREPARED TO GIVE DAY OF WEEK PRIOR TO MDLXPXl! _N
1305 ~~~~\;40
THE CURRENT CALENDAR 010 NOT EXIST BEFORE THAT YE4R,"
1310
1330 DATA e, 3, 3, 6, 1, 4, 6, 2, 5, 0, 3, 5
1370 LET KI' INTCF+A8)
1380 LET 15 • INTCKI/365)
1390 LET KI 0 Kl-05-355)
1400 i.ET 16 0 INTCKI/J0)
14U LET 17 • KI-(I5+30)
14 20 LET K5 • K5-IS
1430 i.ET K6 - K6-I6
14.0 LET K7 • K7-17
1450 I f K7 >. 0 THEN 1480
1460 LET K7 • K7+30
1.70 LET K6 • K6-1
1480 If K6 > 0 THEN 1510
1490 LET K6 " K6+12
1500 LET K5 • KS-l
1510 PRINT IS.I6,17
1520 RETURN
1530 If K6 • 12 THEN'I550
15.0 GOTO 1090
1550 ~ET K5 • K5+1
1560 LET K6 0 0
1570 GOTO 1090
1580 END

SAMPLE RUN
ENTEFi: TODAy'''' S DATE IN TH I:; FORM:

I
I

YEAR? 646, 12, 73

RUN
WEKDA~

It.

02:16 PM

12-JUN-?3

ENTER TODA>"S DATE IN THIS FORM: MONTH, DA~,

~EAR?

6,12,73

THIS PROGRAM DEMONSTRATES PDP-l1 BASIC AND ALSO GIVES
FACTS ABOUT A DATE OF INTEREST TO YOU

600 PAINT "MONDAVP

MONTH. DAY,

THIS PROGRAM DEMONSTRATES PDP-11 BASIC AND ALSO GIVES
FACTS ...·C

610 IF 6<>3 THEN630
620 PRINT "TUESDAY"
5J~ IF So, THEN 650

ENTER DATE OF BIRTH IN THIS FORM: MO, DAY, >'EAR? 5,17, ::9

640 PRINT

5 I

650
560
670
580
590
700
710
720
730
740
750
760
770
780
790
800
810
820
830
835

q~EDNESOAytl

IF 605 THEN 670
PRINT "THURSOAV"
IF 6<>6 THEN 690
GOTO 1250
IF 607 THEN 710
PRINT "SATURDAV'
IF CYI*12+Ml)*31+Dl°CY+12+M)+31+0 THEN 1120
~ET IS.Y1-Y
PRINT
LET 16-MI-M
LET 17001-0
IF 17>'0 THEN 790
LET IS-18-1
LET 17'17+30
IF 16>'0 THEN 820
i.ET 15'15-1
LET 15018+12
IF 15<0 THEN 1310
IF 17<>0 THEN 850
If 16<>0 THEN 650

17 I

1939

WAS A WEDNESDA>'
YEARS

YOUR AGE
't'OU HAYE SLEPT

'1'01.1 HAYE EATEN
','01) HAVE WORKED/STUD I ED
YOU HAYE RELAXED

MONTHS

[lAYS
25

11
5
7

18
5

**YOU MAY RETIRE IN 2004 **

CALCULATED B>' THE BEST MINICOMPUTER TO[oA>' -

THE POP-11

THIS PROGRAM DEMONSTRATES PDP-l1 BASIC AND ALSO GIVES
FAGTS ABOUT A DATE OF I NTEREST TO YOU
ENTE~'

DATE OF BIRTH IN THIS FORM: MO, om', >'EAR? 9,24,48

9 / 24 I 1948

840 PRINT t'****HAPPy BIRTIoIDAy ...... II
850 PRINT II ",~ ","VEAAS","MONTHS","DAYS"
860 PRINT 'YOUR AGE
",15,16,17
870 LET AS' (15+365)+(16+30)+17+INT(l5/2)
880 LET KS'15
890 LET K6'I6
900 LET K7. I7
920 LET E"Yo55
940 LET Fo. 35
950 PRINT "YOU HAVE SLEPT ",
960 GOSUB 1370
970 LET Fo,I7
980 PRINT "YOU HAVE EATEN ",
990 GOSUB 1370
1000 LET Fc,23
1010 IF K5 > 3 THEN U40
1020 PRINT"VOU ~AVE P~AYEO ".
1030 GOTO 1080
1040 IF K5 > 9 THEN 1070
1050 PRINT 'YOU HAVE PLAYED/STUDIED",
1060 GO TO 1080
1070 PRINT "vOU HAVE wORKED/STUDIED",
1080 GOgU6 1370
1090 PRINT "YOU HAVE RELAXED ',K5,K8,K7
1100 PRINTl1Ul PRINT
..,OU MAY RETIRE IN"JE,II •• "
1120 PRINT
1130 PRINT" CALCULATED 6Y THE BEST MINICOMPUTER TODAY. THE POP-II'
1140 FOR Q'1 TO 2
1150 PRINT
1160 NEXT Q
1170 PRINT
1240 GOTO 240
1250 If 0-13 TMtN 12S0
1260 PRINT '~AIoAy ,

>'OUR AGE
YOU HAYE
"'OU HAVE
YOU HAVE
"'(1) HAVE

II ",'I ••

235

WAS A FRIDA¥
I'ERRS
24

SLEPT
EATEN
WORKED/STUD I ED
RELAXED

4
5
6

110tITHS
8
7
2
8

**YOU MAY RETIRE IN 2013: **

CALCULATED BI' THE BEST MINICOMPUTER TODA¥ -

THE PI>P-l1

DAYS

18
27
13
10
28

,.
I"

WORD

WORD GUESSING GAME
I

Description

WORD is similar to Hangman in that the player must guess
a word with clues as to lette~ position furnished by the
computer. However, instead of guessing one letter at a time,
in WORD, you guess an entire word (or group of 5 letters,
such as ABCDE). The computer will tell you if any letters
in your word are in the mystery word and if any of them are
in the correct position. Armed with these clues, you go on
guessing until you get the word or, if you can't get it,
input a "?" and the computer will tell you the mystery word.
You may change the words in Data Statements 512 and 513, but
they must be 5-1etter words.
Program Author
Charles Reid
Lexington High School
Lexington, MA. 02173

236

PROGRAM LISTING

SAMPLE RUN

2 PRINT:PRINT:PRINT:PRINT "PROGRAM 'WORD'"
LEXHIOTON HS,

PROGRAM " WORD"

:l REM *** WRITTEN BY CHRIS REl[>,
5 DIM S(7),A(7),·l(7),D(7),P(7)

CLASS OF '73

10 PRINT:PRINT "I AM THINKING OF A ~IORD -- YOU GUESS IT.
I WILL GIVE VOU"
15 PRINT "CLUES TO HELP YOU GET IT.
GOOl> LUCK' ''':PRINT:PRINT
20 RANC<OMIZE
313 PRINT:PRINT:PRINT "YOU ARE STARTING A NEfl GAME ..

t AM THINKING OF A WORD -- YOU GUESS IT.
CLUES TO HELP YOU GET IT.
GOOD LUCK!!

WILL GIVE YOU

35 RESTORE
YOU ARE STARTING A NEW OAME.
GUESS A FIVE-LETTER WORD? ABCDE
THERE WERE 1 MATCHES AND THE COMMON LETTERS WERE. .
FROM THE E:~ACT LETTER MATCHES, Y'OU KNOW ..

40 READ N

513 (:=INT(RND*N+1)
60 FOR 1=1 TO C
70 READ Sf
,S'3 NEXT I

IF YOU GIVE UP,

913 G=O
100 CHANGE SI TO S
11e FOR 1=1 TO 5
120 AO)=45
130 IIE;,T I
:140 FOR J=:1 TO 5

TYPE "

FOR YOUR NE>(T GUESS

GUESS A FIVE-LETTER WORD? CFGHI
THERE ~~ERE :1 MATCHES AND THE COMMON LETTERS WERE.
FROM THE EXACT LETTER MATCHES, YOU KNOW.

IF YOU GI . . . E UP.

:1.44 P(J)=13

TYPE "?" FOR YOUR

NE>~T

c----

GUESS

146 NEXT J
GUESS A FIVE-LETTER WORD? C,TKWN

:150 PRINT "GUESS A FIVE-LETTER fiORI''';
160 INPUT L.

YOU MUST GUESS A 5-LETTER WORD.

170 G=G+1

START AGAIN

172 IF L'=S. THEN 500

1813 CHANGE L$ TO L
19121 IF L(1)=63 THEN 3013
2tH3 IF LCO)<>5 THEN 4ee

GUESS A FIVE-LETTER WORD? C~lKLM
THERE WERE 3 MATCHES AND THE COM~ION LETTERS HERE ..
FROM THE EXACT LETTER MATCHES, VOU KNOfl..

c----

GUESS A FIVE-LETTER WORD? COLNN
THERE WERE J MATCHES ANI> THE CO~IMON LETTERS fIERE.
FROM THE EXACT LETTER MATCHES, YOU K~IO~I.

C--M-

CL~I

205 M=0:Q=:1.
2:10 FOR 1=:1 TO 5
22~3 FOR J=:1. TO 5

230 IF SO )()LeJ) THEN 260
23:1 P(Q)=L(J)
232 (;!=8+:1.

GUESS A FIVE-LETTER WORD? COLMP
THERE WERE 4 MATCHES AND THE COMMON LETTERS WERE.
FROM THE EXRCT LETTER MATCHES, YOU nlml ..

211 IF I()J THEN 250
2413 A('J)=L(·J)
250 M=M+:1.
260 NE>n ,J

CL~IP
C--~IP

GUESS A FIVE-LETTER WORD? CLU~lP
'-r'Ol! HAVE GUESSED THE WORD.
I T TOOK 6 GUESSES!

265 NEXT I
270 A(l.3)=5
272 pce )=M
275 CHANGE A TO A.
277 CHANGE P TO PI
280 PRINT "THERE ~IERE"M"MATCHES ANI' THE COMMON LETTERS WERE ... ",
285 PRINT "FROM THE EXACT LETTER MATCHES, YOU KNOW..
. ", AI
286 IF A'=5$ THEN 5QQ

WANT TO PLAY AGAIN? YES

287 IF M)l THEN 289
288 PRINT:PRINT "IF YOU GIVE UP,
289 PRINT

CL~I

TYPE '?'

Y'OU ARE STARTING A NEW GAME ..
GUESS A FIVE-LETTER WORI'? ABCDE
THERE ~~ERE 0 MATCHES AND THE COMMON l.ETTERS fIERE.
FROM THE EXACT LETTER MATCHES, VOU KNOW.

FOR YOUR NEXT GUESS"
IF YOU GIVE UP,

TYPE '7'

FOR YOUR NENT GUESS

29121 GOTO 153
3:03 CHANGE S TO 5$
3:11 PRINT "THE SECRET WORD IS "S$:PRINT

320 GOTO ]0
400 PR I NT: PR!NT "YOU MUST GUESS A 5-LETTER fIORD.

GUESS A FIVE-LETTER WORD? FGHI,T
THEI':E WERE 2 MATCHES AND THE COMMON LETTERS WERE.
FROM THE EXACT LETTER MATCHES, YOU KNOW.

F----

GUESS A FIVE-LETTER WORD? FIKLM
THERE WERE 2 MATCHES AND THE comlON LETTERS flERE
FROM THE EXACT LETTER MATCHES. YOU KNml

FI
FI---

GUESS A FIVE-LETTER WORD? FHIOP
THERE WERE 2 MATCHES AND THE COMMON LETTERS WERE.
FROM THE EXACT LETTER MATCHES, YOU KNOW.

FI
FI---

START AGA IN"

410 PRINT:G=G-i:GOTO 158
5')0 PRINT "YOU HAVE GUESSED THE HaRD.
IT TOOK"G"GUESSES!" :PRINT
510 INPUT "WANT TO PLAY AGAIN";Q$
520 IF Q$="YES" THEN ]0
·530 DATA 12, ",'INKV", "SMOKE", "WATER", "GRASS", "TRAIN", "~IlGHT", "FIRST"

548 DATA "CANDY", "CHAMP", "WOULD", "CLUMP", "DOPEY"
999 END

GUESS A FIVE-LETTER WORD? FIRST
YOU HAVE GUESSED THE WORD.
IT TOOK 5 GUESSES'

READY

WANT TO PLAY AGAIN? NO
READY

237

YAHTZE

DICE GAME OF YAHTZEE
!

Description

i
I

yahtzee may be played by up to 15 people. The object of the
game is to get the highest grand total score. Each player
on his turn receives from the computer the values of 5
pseudo dice. He may then roll as many of them as he wants
to again. This may be repeated once again (3 rolls maximum) .
To roll again, you tell the computer how many dice you want
to re-roll or change and the number of each die. You play
13 rounds for a complete game.
After you have finished rolling, you must decide how you
want to score the five dice. Typing "SUMMARY" will show
you which categories have been used, otherwise, you must
decide on one of 13 categories or "ZERO" to eliminate a
category with no score.
category

How Scored

ACES
TWOS
THREES
FOURS
FIVES
SIXES
THREE OF A KIND
FOUR OF A KIND
FULL HOUSE
SMALL STRAIGHT
LARGE STRAIGHT
YAHTZEE
CHANCE
ZERO·

Count and add all ones.
Count and add all twos.
Count and add all threes.
Count and add all fours.
Count and add all fives.
Count and add all sixes.
Total all 5 dice (assuming 3 of a kind) •
Total all 5 dice (assuming 4 of a kind) •
25 Points (3 of one kind, 2 of another) .
30 Points (Sequence of 4) .
40 Points (Sequence of 5) .
50 Points (5 of a kind) .
Total of all 5 dice.
Zero out any category above.

If your accumulated score of the first six categories ever reaches
63 points, you receive a bonus of 35 points.
Source
Unfortunately, the program author of this extremely comprehensive
game is unknown.

238

PROGRAM LISTING
180111 A(0)-!
1010 FOR U-l TO !
1020 A(U).7
1138 NEXT U
1040 CHA~GE A TO ca
U60DIMAll!, 15) ,TI 15, 15),r I 15, 15) ,5115, 15) ,~I IS, 15) ,KI15, I!) ,HI1!, 15)
1070 FOR I-I TO 5
188111 B.IX ).0
189111 Q(X).III
1180 AII)alll
111111 ~EXT I
1120 RANDOM
1130 PRINT "HOW MANY PLAYERS Inn. '0' FOP INSTRUCTIONS] '"
1140 INPUT P
115111 IF P>15 TKEN 1180
1160 IF P-0 THEN 4980
1170 GO TO 1200
1180 GOSUB 5710
1190 GO TO 113111
120111 XF P.,01 TKEN 1220
121111 GO TO 1240
1220 GOSUS 5730
12]0 GO TO 1140
1248 rOR I-I TO P
1250 Ael,I)=-!
1260 TII,lI-.5
1270 T(2,Il.-!
1280 F(1,I).-;
1290 F(2,I) •• 5
13AIII 5(1,1).-5
131111 T(3,I)"5
132111 FI3,1).·5
1330 FI4,I) . . 5
1340 512,0 0 -5
13SI11 L(1,l).-S
1360 HIla.S
1370 CO) •• 5
1380 K(1,I)=1II
139111 KII).0
1400 MII)=0
1410 PRINT "NAMg",
1428 INPUT Nt (I)
1430 IF N$II)-'WHATI' THEN 1450
1440 GO TO 1470
I4S8 GOSUB 55U
1460 GO 10 1410
1470 NEXT I
1480 R=0
149111 R"R+l
1495 IF R>13 THEN 8470
1500 PRINT
ISH1 PRI~T
1520 PRINT "ROUHO',R
15]0 PRINT
1!40 fOR 1"1 TO P
155111 P!lINT
1560 PRINT
1570 PRINT NSCIl,"'S TURN"
1580 FOR Lal TO 5
1590 AIL)~INT(b*RNOI-I'+I)
1600 NEXT L --1605 GOBUB 1610
1607 GO TO 1700
1610 Go"
1620 FOR Xol TO ~
1630 IF AIXl>DAIX+Il THEN 168~
1640 H.AIX)
1650 AIX)"A(X+l)
1660 AIX+IlOK
167111 Gal
1680 NEXT X
1685 IF Gal THEN 1610
169111 RETURN
1700 PRINT 'YOU HAVE A .,All),A(2l1AI3),A(4),A(51
171111 PRINT "THIS IS YOUR 2ND or 3 ROLLS,"
1720 PRINT "HOW MANY DO YOU WANT TO C~ANG~",
1730 INPUT Z
1740 IF Z-,01 THEN 1760
1750 GO TO 1710
1760 GOSUB 5600
1770 GO TO 1730
1780 IF Z"0 THEN 2620
1790 IF Z-5 THEN 1890
181110 fOR 5_1 TO Z
1810 PRINT "WHICH"
1820 INPUT 81S)
1830 IF B(8)=,01 TKEN 1850
1840 GO TO 1870
1850 GOSUB ~620
1860 GO TO 1810
1870 NEXT 8
1880 GO TO 1930
1890 FOR S_I TO 5
1900 Ala).INTI6*RNOI-I)+I)
1910 NEXT S
1920 GO TO 2050
1930 FOR Lal TO S
1940 rOR LI.I TO 5
195111 IF BIL)aLI THEN 1970
1960 GO TO 1980
1970 AILIl.QI~1l
1980 NEXT Ll
1990 NEXT L
211100 FOR S=I TO 5
2010 IF AIS).0 THEN 2030
2020 GO TO 211140
2030 AIsl=INTI5*RNOt-l)+I)
2040 NEXT S
2050 GOSUI U18
2140 PRINT 'YOU HAVE AH,A(I),AI2),AI3),A(4),A(!l
2150 PRINT 'THIS 18 YOUR LAST ROH,"
2160 PRINT 'HOW MANY 00 YOU WANT TO CHANGE",
2170 INPUT Z
218111 IF Z=,01 THEN ~2~0
2190 GO TO 2Ue
2281 GO.UI uee
221111 GO TO 2178
2220 IF Z.0 THEN 2621

m: :~RZ~:IT;~N!mlll

239

22!IIJ B(E) ••
2268 NEXT E
2270 FOR •• 1 TO Z
2280 PRINT "WHICH',
2290 INPUT BIS)
2300 IF B(8).,01 THEN 2320
2118 GO TO 2348
212111 GOSUB 5620
2HIII GO TO 2280
2140 NEXT a
2350 GO TO 2400
2360 FOR Sal TO 5
237e A(Sl_INT(6¥RNO(_I)+I)
238111 NEXT S
2390 GO TO 2520
241110 FOR ~=1 TO 5
2410 FOR ~t.1 TO 5
2420 IF B(L).LI THEN 2440
2430 GCJ TO 2450
2440 AILIl.Q(L)
2450 NEXT Ll
2460 NEXT L
2470 FOR S.I TO 5
2480 IF A(S).0 THEN 2500
2490 GO TO 2510
2500 Ala).INTI6.RNOI-I).I)
251111 NEXT S
2520 GOSUa 1610
2610 PRINT "10U HAVE A ",ACllIA(2),A(3),AI4),AI5)
2620 PRINT "HOW DO YOU ,;ANT THIS ROUND SCORED",
2610 INPUT ZI
2640 IF U."IIHAT1" THEN 2680
2650 IF UUSUMMARY' THEN 2610
2660 GO TO 2700
2670 GOSUS 6140
2675 GO TO 2620
2680 GOaU8 5650
2690 GO TO 2630
271110 IF U."ACE!" THEN 2850
2710 IF ZS-"TWOS" THEil 2940
2720 IF Ze."THREES" THEN 3030
2730 IF Z$-"FOURS' THEN 3120
2740 IF U.'FIVES" TH!!:N la10
2750 IF "."SIXIIS" THEN HIII0
2760 IF U-"TKREE or A KINO" TH!!:H 3390
2770 IF za""FOUR OF A KIND" THEN 3440
2180 IF za-"FULL HOUSE" THEN ]52111
2790 IF U-"SM, STRAIGHT" THEN ]620
2800 IF U.'LG, STRAIGHT" THEN l66~
2810 IF "_"YAHTZEE' ·THEN 3730
2820 IF U="CHANCE' THEN )820
2830 IF ZS_"ZERO" THEN 3890
2840 GO TO 2620
2850 IF A(I,I)<>-5 THEN 3870
2860 All,Xl-e
2870 FOR S.1 TO !
2880 IF AIS)-I THEN 291110
2890 GO TO 2910
2900 All,I)aAl1,Il+1
29te NEXT 8

292i-MCi i-A I I, I)

2930 GO TO 4690
2940 If' '1'11,1)<>-5 THEN 3870
2950 T(1,I).~
2960 FOR S_I TO 5
2970 IF A(S)=2 THEN 2990
2980 GO TO 3000
2990 Tll,I).T(I,I).Z
3000 NEXT S
3010 MO)-TtI,I)
3020 GO TO 4690
3030 IF 112,1)0-5 THEN 3870
31140 TI2,I).0
311150 FOR S_I TO 5
3060 IF AIS)-] THEN 3080
311170 GO TO 3090
3080 TI2,I)-T(2,I).J
3090 NEXT S
3100 MII).TI2,I)
3110 GO TO 4690
312111 If' Fll,IlC>-! THEN 38.70
3130 FII,I)00
3140 FOR S=I TO 5
3150 I!' AIS).4 THEN 3170
]160 GO TO lIee
3170 I'll,I)=F(I,I)+4
3180 NEXT 8
]185 MII)afll,I)
J190 GO TO 4690
3210 IF F(2,I)<>-! THEN ]870
3220 FI2,I)."
323111 FOR S-1 TO 5
3240 XF AI5l=S THEN 3260
3250 GO TO 3270
]260 F(2,I)=F(2,I)+5
3270 NEXT S
1280 M(1).F(2,I)
]29111 GO TO 4690
]300 IF SII,I)<>-! THEN 3870
)J10 SI1,Il=0
3]20 FOR S-1 TO 5
3330 IF AtS).6 THEN 3JS0
U40 GO TO 3360
335111 8(1,0-811,1)+6
U60 NEXT 8
)370 MII).Stl,I)
3380 GO TO 4690
U90 IF TI3,I)<>-S THEN ]810
1400 T(3,I)D0
]410 TIl, I) -A I 1) +A(2l +A I ]l+A( 4) +A 15)
]420 M(Il_T(3,I)
]U0 GO TO 4690
]440 IF FI3,I)<>-S THEN 3870
3450 IF All)<>AI4) THEN 4960
3460 IF A(2)OAIJ) THEN 4960
3478 F(3,Il.0
3480· FI], I)-A (1) +A I 2HAI 3)+A( 4)+A (5)
]490 MIl).rll,I)
3500 FI31l)=0
3510 GO TO 469111

3520 IF F(4,I)<>.5 THEN 3870
)530 IF A(I)<>A(2) THEN 4960
3540 IF A(4)OA(5) THEN 4960
3550 IF AO)<>A(2) THEN 3570
3560 GO TO 3590
3570 IF A(3)<>A(4) THEN 4960
3580 GO TO 3590
3590 '(4,1)-25
3600 M(I).F(4,I)
3610 GO TO 4690
3620 IF 5(2,1)0-5 THEN 3870
3630 SC2,I).30
3640 M(Il-5 (2, I)
3650 GO TO 46U
3660 IF LCI,I).>-5 THEN 3870
3670 IF A(1)OAC5)+4 THEN 4960
3680 IF A(2)<>AC4)+2 THEN 496~
3690 IF A(3)<>AC5)+2 TH~N 4960
3700 ~(.I,I).40
3710 MCI)oLCI,I)
3720 GO TO 4&90
3730 IF YCI)<'-S THEN 3870
3740 FOR ODI TO 5
3750 FOR 01"1 TO ~
3760 U A(0)OAC01) THEN 4960
3770 NEXT 01
3780 NEXT 0
3790 Y(1)=50
3800 MCI)'YCI)
3810 GO TO 4690
3820 IF CCI).>-5 THEN 3870
3830 C (I) _A C1) +A C2) +A (3) +A C4,.A C5)
3840
3850 MCI)'C ell
3860 GO TQ 4690
3870 GOSue 4650
3880 GO TO 2620
3890 PRINT "WHAT DO YOU WANT TO ZERO",
3900 INPUT ZS
3920 IF' ZS."SUMMARy tI THEN 3940
3930 GO TO 3970
3940 Gosue 6140
3945 GO TO 2620
3950 Gosue 5680
3960 GO TO 3900
3970 IF ZSe'ACES" THE. 4110
3980 IF Z$="TtoJOS tl THEN 4100
3990 IF Z$>"THR~ES" THEN 4190
4000 IF ZS."FOURS" THEN 4230
4010 IF ZS."FIVES" THEN 4270
4020 IF Z$="SIXES" TH~N 4310
4030 IF ZS;;:"THREF. Of A KINDH THEN 4350
4040 Ir Z$=IIFUUH OF A KINQu Trie:N 4390
4050 IF' ZS;;"FULL HOUSE" THEN 44J0
4060 IF ZS-"SM, STRAIGHT" THEN 4470
4070 IF ZSo"LG, STRAIGHT" THEN 4510
4080 IF ZSa"YAHTZEE" THEN 4550
4090 I~ ZSa Il CHANCE, 1 THEN 459~
4100 GO TO 3890
4110 IF A(1,I)O-, THI<N 4630
4120 A(1.I)=0
4130 MCI)'ACltI)
4140 GO TO 4690
4150 IF TO.I)<>-5 THEN 4630
4160 T(1,z)00
4170 MO)-T(1,I)
4180 GO TO 4H0
4190 IF TC2,I)<'-5 THEN 4630
4200 T(2,0=.
4210 MCIJ aT e2,r)
4220 GO TO 4690
4230 IF F(1.I)<>-5 THEN 4&30
4240 F(1,x).0
4250 MCIl.F C1, I)
4260 GO TO 4690
4270 IF F(2,I)"-5 TH~N 4&30
4280 F(2,x).~
4290 MCI )arc 2. I)
4300 GO TO 4690
4310 II' S(1,I)0-5 THEN 4630
4320 5(1,1)=0
4330 MC!laS (1, I)
4340 GO TO 4690
4350 IF T(3,1)<>05 IHEN 4030
4360 TO,x)'0
4370 HCI)·TO,I)
4380 GO TO 4690
4390 IF FC3,I)"-, THEN 4630
4400 fO,I».
4410 M(I ) ' f (J,x)
4420 GO TO 4690
4430 IF Fe4,I)<>-5 THEN 4630
4440 F(4.I)=0
4450 MCI).Fe4,x)
4460 GO TO 4690
4470 IF SC2,Il<>-5 THEN 4&30
4480 S(2,I)'0
4490 M(1)=Se2.I)
4500 GO TO 4690
4510 IF ~Cl,I)<>-5 THEN 4630
4520 LO,I)=0
4530 MCI )=LCl, Xl
4540 GO TO 4690
4550 IF YCI )<>05 THEN 4630
4560 YCI) ••
4570 MO)·YCI)
4580 GO TO 4690
4590 IF CCI)<>-5 THEN 4630
4600 C (1»0
4610 HCI)"CCI)
4620 GO TO 4690
4630 GOBUe 4650
4640 GOTO 2&20
4650 PRINT "YOU HAVE ALRgADY USED
AS A CATEGORY",CS
4660 PRINT
4670 RETURN
4680 GOTO 2620
4690 PRINT NSCI)," YOU GET A SCURE OF ",MCIlJ" FOR THIS ROUND"
4700 GO TO 5750
471_0 NEXT I

",ZS,"

240

4720 PRINT
4730 FOR 0101 TO P
4740 IF MCJ).A(I,J) THEN 4810
4750 IF MeJ)OT(l,J) THEN 4810
4760 IF MCJ)-T(2,J) THEN 4810
4770 IF M(J).FC1,J) THEN 4810
4780 IF MCJ).F(2,J) TM!:N 4810
4790 IF M(J)-SC1,J) THEN 4810
4800 GO TO 4920
4810 KC1,J).KC1,J)+MeJ)
4820 GO TO 4830
4830 IF Kel,J»=63 TH~N 4860
4840 K(J)OKCJ)+MeJ)
4850 GO TO 4U0
4860 K(I,J).KCI,J).35
4870 PRINT Ca,NSCJ)," HAS ACCUMULATED AT LEAST &3 POINTS"
4880 PRI~T "IN THE FIRST SIX CATEGORIES,"
4890 PRINT "HE SCORES A BONUS Of 35 POINTS!"ICS
4900 K(J)"K(J)+MCJ)
4910 GO TO 4930
4920 K(J)'K(J)+MCJ)
4930 PRINT NBCJ)," HAS ",KCJ)," POINTS"
4940 NEXT J
4950 GO TO 1490
4960 PRINT "IT IS ILLEGAL TO USE '" ZS," THIS ROUND" ,C $
4970 GO TO 2620
4980 PRINT
4990 PRINT
5000 PRINT
5010 PRINT "INSTRUCTIONS FOR PLAYING YAHTZEE" ,C~
5020 PUNT
5030 PRINT "YAHTZEE MAY BE PLAYED BY UP TO 15 PEOPLE,"
5040 PUNT "THE OBJECT OF THE GAME IS TO GET THE HIGHEST SCORE"
5050 PRINT "EACH PLAYER ON HIS TURN RECEIVES FROM THE COMPUTER"
5060 PRINT "THE VALUES OF THE 5 PSEUDO-DICE, HE MAY THEN ROLL"
5070 PRINT "AS MANY OF THEM AS HI; WANTS TO AGAIN. HOWEVER,"
5080 PUNT "HE 15 ENTIT~EO UP TO eUT NO MORE THAN THREE ROLLS"
5090 PRINT "OFIHE DICE,"
5100 PRINT"
YOU TELL THE COMPUTER MANY DICE YOU"
5110 PRINT "WANT TO CHANGE. THEN I'ELL IT WHICH ONES IN THE P'O"-"
5120 PRINT "LOWING MANNER I "
5130 PRINT
5140 PRINT' TYPE,
FOR THE 1ST DIE, '2' FOR THE 2ND, ETC'
5150 PRINT"
AFTER THE THIRD ROLL THE PLAYER MUST DECIDE HOW"
5160 PRINT "HE WANTS TO SCORE HIS FIVE DICE,"
5170 PRINT "TYPING 'SUMMARY' ,,1"LL SHOW WHAT CATEGORIES"
5180 PRINT "HAVE eE~N USED. OTHERWISE,"
5190 PRINT "YOU HAVE 13 CHOICES, TYPE I or THE reLLOWING"
5200 PRINT "DEPENDING ON HOW YOU WANT YOUR DICE SCORED."
5210 PRINT "THE CHOICES AREI"
5 220 PRINT "ACES, TWOS, THREES, FOURS, rIVES. SIXES 11
5230 PRINT "THflEE OF A KIND,FOUR or A KINO,FULL HOUSE, SM. STRAIGHT,"
5240 PRINT "LG, STRAIGHT, YAHTZI~,CHANCE.'
5250 PRINT "WHAT THE COMPUTER WILL 001"
5260 PRINT "FOR ACES IT WILL COUNT AND ADD UL OF YOUR ONES,"
5270 PRINT "FOR TWOS IT WILL COUNT AND ADD ALL OF YOUR TWOS,"
5280 PRINT "THE SAME IS TRUE THROUGH THE SIXES"
5290 PRINT "THREE OF A KIND WILl. TOUL ALL OF THE DICE PRO-"
5300 PRINT "VIDEO THAT rou HAVE THREE or A KIND"
5310 PRINT "P'OUR OF A KIND IS THE SAME AS THREE or A KIND EXCEPT"
5320 PRINT "THAT YOU MUST HAVE FOUR OF A KINO"
5330 PRINT "FULL HOUSE (3 'OF ONE NO, AND 2 OF ANOTHERl WI~L YIELD"
5340 PRINT "25 POINTS, SM. STRAIGHT WILL GIV~ YOU 30 POINTS BUT"
5350 PRINT "YOU MUST HAVE A S;:QUENCE OF FOUR."
5360 PRINT "LG,STRAIGHT WILL YIELD 40 POINTS BUT YOU MUST HAVE A SE-"
5370 PRINT "QUENCE OF FIVE,"
5380 PRINT "YAHTZEE WIL~L GIVE 50 POINTS IF YOU HAVE FIV" OF A KIND,"
5390 PRINT "CHANCE WILL TOTAL AI.L OF YOUR DICE AND USE THAT AS YOUR SCORE."
5400 PRINT "CHANCE IS UaEFU~ "HEN YOU DON'T HAVE ANYTHING WORTH SCORING,"

'I'

5410 PRINT

hANOTH~R

CAT~GORY,

'ZERO' WILL

Z~RO

OUT A CATEGORY"

5420 PRINT lin' YOU DON'T HAVE ANYTHING \'lORTH SCOPH'GII

5430 PRINT "BUT HAH PERHAPS A~REAOY US!:.D YOUR CHANCE,"
5440 PRIN'f
5450 PRINT "IF YOUR ACCUMULAnO SCORE OF THE FIRST SIX CATEGORIES"
5460 PRINT "EVER REACHES AT LEAST 63 POINTS YOU 'JILL RECEIVE"
5470 PRINT "A BONUS OF 35 POINTSI",CS
5490 PRINT
5490 PRINT "FOR INSTRUCTIONS UURING THE RUNNING OF THE PROGRAM"
5500 PRINT "TYPE 'WHAT?' WHEN THE COMPUTER ASKS FOR A WORD, OR."
5510 PRINT"',01' WHEN IT WANTS A NUMBER. AND rou WILL RECEIVE"
5520 PRINT "FURTHER NOTES RELATED TO WHAT THE COMPUTER ASKED FOR."
5530 PRINT
5540 PRINT
5550 PRINT
5560 PRINT "GOOD LUCKII!I!" ,CS
5570 GO TO 1070
5580 PRINT "WHAT DO YOU WANT ONE OF THE PLAYERS CALLED BY"
5600 PRINT "HOW HAIr DICE DO YOU WANT TO ROLL AGHN",
5610 RETURN
5620 PRINT "WHICH DIE DO ~OU .ANT TO CHANGE"
5630 PRINT "TYPE I
FOR THE 1ST DIE, '2' FOR THE 2ND DIE, ETC,"
5640 RETURN
5650 PRINT "IN WHICH CATEGORY DO YOU WANT THIS ROUND SCORED"
5660 PRINT "TYPING' 'SUMMARY' WIl,L HLL YOU WHICH CATEGORIES YOU HAVE USED",
5670 RETURN
5680 PRINT "WHICH CATEGORY DO YOU WANT ZEROED"
5690 GO TO 56&0
5710 PRINT "A MAXIMUM OF 15 HUERS IS ALLOWED"
5720 RETURN
5730 PRINT "HOW MANY ~EOPLE WISH TO PLAY",
5740 RETURN
5750 IF lS'''ACES'' THEN 5880
5760 IF ZS."TWOS" THEN 5900
5770 IF ZS."THREES" THEN 5920
578e IP" ZS.I'FOURS" THEN 5940
5790 IF ZS="FIVES" THEN 5960
5801?1 IF Z'="SIXES" THr.:N S98~
5810 IF ZS'''tHREE Ot' A KIND" THEN 6000
5820 IF Ze"'FOUR OF A KIND" THEN 6020
5830 IF ZS'''FULL HOUSE" THEN 6040
5840 IF ZS-"SM, STRAIGHT" THEN 60.0
5850 IF ZS'''LG, STRAIGHT" THEN b080
5860 IF Za"'YAHTZEE" THEN 6100
5870 IF ZS""CHANCE" THEN 6120
5880 H(I,R)"1
5890 GO TO 4710
5900 HCl,R)-2
5910 GO TO 4710
5920 HCI,Rl.3
5930 GQ TO 4710

'I'

SAMPLE RUN
19411 H(I,II)_4
5950 GO TO 4118
5960 H(I,R)-S
5970 GO TO 4710
5980 H(I,R)e6
5990 GO TO 4710
·eese H(I,R).7
6810 GO TO 4HI
6028 H(I,II)08
6030 GO TO 4710
6840 H(I,II)"9
e0S0 GO TO 4710
8060 H(I,R)eI0
ee78 GO TO 4718
e0ee H(I,II)-U
6098 GO TO 4710

HOW MANY PLAYERS [TYPE: '0' FOR INSTRUCTIONS) ?0

INSTRUCTIONS FOR PLAYING YAHTZEE
YAHTZEE MAY BE PLAYED BY UP TO 15 PEOPLE,
THE OBJECT OF THE GAME IS TO GET THE HIGHEST SCORE
EACH PLAYER ON HIS TURN RECE I YES FROM THE COMPUTER
THE VALUES OF THE 5 PSEUDO-DICE, HE MAY THEN ROLL
AS MANY OF THEM AS HE WANTS TO AGAIN, HOWEYER,
HE IS ENTI TLED UP TO BUT NO MORE THAN THREE ROLLS
OF THE DICE,
YOU TELL THE COMPUTER MANY DICE YOU
WANT TO CHANGE, THEN TELL IT WHICH ONES IN THE FOLLOWING HANNER:

6100 H(I,R)el~
6118 GO TO 4710

m: ~~If~):~':0

6148 PRln UCIlI" HAS USED THE FOLLOWING CATEGOUES,·
6150 FOR 581 TO (R-l)
6160 IF H(I,S»7 THEN 61S0

6170 ON H(I,S) GO TO 6190,6210,6U0,6250,6270,6290,6]U
6180 ON H(I,S)_7 GO TO 6330,6350,6370,6390,6410,6430
6190 PRINT "ACES, "
6200 GO TO 6440
6210 PRINT 'TWOS, "
6220 GO TO 6440
6230 PRINT "THREES, "
6240 GO TO 6440
62U PRINT ·FOURS, '"
6260 GO TO 6440
6270 PRINT "FIVES, "
6280 GO TO U40
6290 PRINT "51XES, '"
63e0 GO TO 6440
6310 PRINT "THREE OF A KIND, ".
6320 GO TO 6440
6330 PRINT "FOUR OF A KIND, ",
6340 GO TO' 6440
6350 PRINT "FULL HOUSE, "
6360 GO TO 6440
6370 PRINT "SM. STRAIGHT, ",
6380 GO TO 6440
6390 PRINT "LG. STRAIGHT, ",
6400 GO TO .6440 '
6410 PRINT "YAHTZEE, '"
6420 GO TO 6440
5410 PRINT "CHANCE, -,
6440 NEXT 5
6445 PUNT
6446 PRINT "HE HAS -,KCI"" POINTS,"
6447 PRINT "AND ",KCI,x)," OF THE &5 POINTS NEEDF,D FOR THE BONUS",
6450 PRINT ' . '
6460 RETURN
5470 OeS
6480 FOR X-I TO P
6490 IF S(X».S(X+I) THEN 6540
6500 HOS(X)

6510 SeXl.SCX.!)
6520 S(X.l)aH
6U0 Gol
6540 NEXT X

IF YOUR ACCUMULATED SCORE OF THE FIRST SIX CATEGORIES
EVER REACHES AT LEAST 63 POINTS ,'Oll WILL RECEI'o'E
A BONUS OF 35 POINTS!
FOR INSTRUCTIONS DURING THE RUNNING OF THE PROGRAM
TYPE 'WHAT?' WHEN THE COMPUTER ASKS FOR A WORD. O~:,
',01' WHEN IT WANTS A NUMBER, AND ,'OU WILL RECEIYE
FURTHER NOTES RELATED TO WHAT THE COMPUTER ASKED FOR,

GOOD LUCK!!!!!

HOW HANY PLAYERS [TYPE: '0' FOR I NSTRUCTI ONS) ?2
NAME ?DAVE
NAME ?KEN

6550 IF -G>1 THEN 6470
6560 PRINT "THE GAME IS OVER."
6570 PRIn
6571 rOR Xel TO P
6572 IF K(X)eS(X) THEN 6580
657] NEXT X
6580 PRINT "THE WINNER IS ",nUl)," WITH ",K(!l," POINTS."
6585 IF pol THEN 9999
5586 PRINT 'OTHER FINAL SCORES AREI"

ROUND 1

DAVE'S TURN
YOU HAVE A 5 4 3 2 2
TH I 5 I S YOUR 2ND OF :;: ROLLS,
HOW MANY DO YOU WANT TO CHANGE 7, 01
HOW MAN ... DICE DO YOU WANT TO ROLL AGAIN ?1
WHICH ?5
YOU HAVE A 5 4 3 2 1
THIS IS YOUR LAST ROLL,
HOW MANY DO YOU WANT TO CHANGE 70
HOW DO YOU WANT THIS ROUND SCORED ?LG, STRAIGHT
DAVE YOU GET A SCORE OF 40 FOR THIS ROUND

6590 FOR Y.I TO P
6600 IF K(Y).S(X) THEN 6620
6610 PRI~T NI(Y),' FINISHES WITH ",K(n," POINTS."
6620 NEXT Y
9999

TYPE: '1' FOR THE 1ST DIE, '2' FOR THE 2ND, ETC
AFTER THE THIRD ROLL THE PLAYER HUST DECIDE HOW
HE WANTS TO SCORE HIS FIVE DICE,
TYP I NG 'SUMMARY' WI LLL SHOW WHAT CATEGOR I ES
HAVE BEEN USED, OTHERWI SE,
YOU HAVE 13 CHOICES, TYPE 1 OF THE FOLLOWING
DEPENDING ON ~OW YOU WANT YOUR DICE SCORED,
THE CHOI CES ARE:
ACES, TWOS. THREES. FOURS. FII,'ES, SIXES
THREE OF A KIND, FOUR OF A KIND, FULL HOUSE, 51'1, STRAIGHT.
LG, STRAIGHT. YAHTZEE, CHANCE,
WHAT THE COMPUTER WILL DO:
FOR ACES IT WILL COUNT AND ADD ALL OF ... OUR ONES,
FOR TWOS IT WILL COUNT AND ADD ALL OF YOUR TWOS,
THE SAHE IS TRUE THROUGH THE SIXES
THREE OF A KIND WILL TOTAL ALL OF THE DICE PROYIDED THAT YOU HAYE THREE OF A KIND
FOUR OF A KIND IS THE SAME AS THREE OF A KIND EXCEPT
THAT YOU MUST HAVE FOUR OF A KIND
FULL HOUSE [3 OF ONE NO, AND 2 OF ANOTHER). 101 I LL YIELD
25 POINTS, SM, STRAIGHT WILL GIVE YOU 30 POINTS BUT
YOU HUST HAVE A SEQUENCE OF FOUR,
LG, STRAIGHT WILL YIELD 40 POINTS ·BUT YOU HUST HAI,'E A SEQUENCE OF FIVE,
YAHTZEE WILLL GIVE 50 POINTS IF, YOU HAVE FII,'E OF A KIND,
CHANCE WILL TOTAL ALL OF ...OUR DICE AND USE THAT AS ...OUR SCORE,
CHANCE IS USEFUL WHEN "'OU DON'T HAVE ANYTHING WOIi:TH SCORING,
ANOTHER CATEGORY, 'ZERO' WILL ZERO OUT A CATEIlOR ...
IF YOU DON'T HAVE ANYTHING WORTH SCORING
BUT HAVE PERHAPS ALREAD... USED ... OUR CHANCE.

~ND

KEN'S TURN
YOU HAVE A 5 4 4 2 1
THIS IS YOUR 2ND OF :;: ROLLS.
HOW MANI' DO YOU WANT TO CHANGE ?1
WHICH ?3
YOU HAVE A 5 4 2 2 1
THIS IS YOUR LAST ROLL.
HO'" MANY DO YOU WANT TO CHANGE ?1
WHICH ?3
YOU HAVE A 5 4 2 1 1
HOW DO YOU WANT TH I S ROUND SCORED ?TWOS
KEN YOU GET A SCORE OF 2 FOR THIS ROUND
DAVE HAS 40 PO I NTS
KEN HAS 2 POINTS
ROUND 2

241

DRVE'S TURN
YOU HAVE A 6 6 4 2' 1
THIS IS YOUR 2ND OF :;: ROLLS,
HOW HANY DO YOU WANT TO CHANGE ?l
WHICH ?3. 4. 5
WHICH ?4
WHICH ?5
YOU HAVE A 6 6 6:;::;:
THIS IS YOUR LAST ROLL,
HOW MANY DO YOU WANT TO CHANGE 70
HOW DO YOU WANT THIS ROUND SCORED ?FlILL HOUSE
DAVE YOU GET A SCORE OF 25 FOR THIS ROUND

KEN'S TURN
I'OU HAVE A 5 5 l
1 1
THIS IS I'OUR 2ND OF l ROLLS,
HOW HANI' DO I'OU WANT TO CHANGE ?1
WHICH 75
I'OU HAYE A 5 5 3 2 1
THIS IS I'OUR LAST ROLL,
HOW HANI' DO I'OU WANT TO CHANGE 71
WHICH 72
I'OU HAYE A 5 1 2 1 1
HOW DO I'OU WANT THIS ROUND SCORED 7ACES
KEN I'OU GET R SCORE OF 2 FOR THIS ROUND
DRVE HRS 65 POINTS
KEN HRS 4 POINTS
ROUND l

DRYE'S TURN
I'OUHRYER 6 5 4 4 1
THIS IS I'OUR 2ND OF 3 ROLLS,
HOW HRNI' DO I'OU WANT TO CHANGE ?2
WHICH 74
WHICH 75
I'OU HAVE R .. 5 5 5 4
THIS IS YOUR LAST ROLL,
HOW HRNY DO I'OU WANT TO CHANGE ?2
WHICH ?1
WHICH 75
I'OUHRYEA 5 5 5 5 3
HOW DO I'OU WANT THIS ROUND SCORED 7FOUR OF A KIND
DRVE I'OU GET A SCORE OF 23 FOR THIS ROUND
KEN'S TURN
YOUHRYEA .. 4 1 2 1
THIS IS I'OUR 2ND OF 1 ROLLS,
HOW MANI' DO YOU WRNT TO CHANGE 70
HOW DO I'OU WANT THIS ROUND SCORED ?SH. STRAIGHT
KEN I'OU GET A SCORE OF 30 FOR THIS ROUND
DAYE HAS 88 POINTS
KEN HAS 34 POINTS
ROUND 4

DRVE'S TURN
I'OU HAVE A .. 5 3 2 1
THIS IS I'OUR 2ND OF 1 ROLLS,
HOW MANI' DO I'OU WRNT TO CHANGE 71
WHICH ?1
I'OUHRYEA 5 : ; 1 2
THIS IS I'OUR LAST ROLL,
HOW /'IRNY DO I'OU WANT TO CHANGE ?1
WHICH ?1
I'OU HAYE A 5 5 ::I 2 1
HOW DO I'OU WRNT THIS ROUND SCORED ?FIVES
DRYE I'OU GET R SCORE OF 10 FOR THIS ROUND
KEN'S TURN
YOU. HAYE A 5 4 :1 2 1
TH I S ·1 S YOUR 2ND OF 1 ROLLS,
HOW HANY DO YOU WANT TO CHANGE 70
HOW DO YOU WANT THIS ROUND SCORED ?LG. STRAIGHT
KEN YOU GET A SCORE OF 40 FOR TH I S ROUND
DAVE HAS 98 POINTS
KEN HAS 74 POINTS
ROUND 5

DAVE'S TURN
YOU HAVE.A .. 6 1 3 2
THIS IS I'OUR 2ND OF 1 ROLLS,
HOW MRNI' DO YOU WANT TO CHANGE 71
WHICH 75
I'OUHAYER . . . . 4 3 3
THIS IS I'OUR LAST ROLL,
HOW /'IANI' DO YOU WANT TO CHANGE ?1
WHICH ?3
YOU HAYE R .. .. 5 3 l
HOW.DO YOU WRNT THIS ROUND SCORED ?SIXES
DAYE I'OU GET R SCORE OF 12 FOR TH 15 ROUND
KEN'S TURN
YOUHRYEA":;::1 2 2
THIS IS I'OUR 2ND OF 3 ROLLS,
HOW HRNI' DO YOU WANT TO CHANGE ?3
WHICH 71
WHICH2 7
WHICH ?3
I'OUHRYEA . . . . 4· 2 2
THIS IS I'OUR LAST ROLL,
HOW MANY DO YOU WANT TO CHANGE
WHICH ?3
WHICH 74
WHICH 75
YOU HAVE R 6 6 6 4 3
HOW DO YOU WANT THIS ROUND SCORED 7SIXES
KEN YOU GET R SCORE OF 18 FOR THI S ROUND

DAVE HAS 110 POINTS
KEN HAS 92 POINTS

KEN'S TURN
I'OUHAI'ER 5 3 2 2 1
THIS IS YOUR 2ND OF 3 ROLLS,
HOW /'IANI' DO YOU WANT TO CHANGE ?1
WHICH ?3
I'OUHRYER 6 5 3 2 1
THIS IS I'OUR LAST ROLL,
HOW MRNI' DO I'OU WANT TO CHRNGE 71
WHICH 71
I'OU HAilE A 5 l
2 1 1
HOW DO YOU WANT THIS ROUND SCORED ?SUMMARI'
KEN HAS USED THE FOLLOWING CATEGORIES:
TWOS, ACES, SM. STRAIGHT, LG. STRAIGHT, SIXES, FIVES,
L HOUSE, THREE OF A KIND,
HE HRS 151 POINTS,
AND 45 OF THE 65 PO I NTS NEEDED FOR THE BONUS.
HOW DO I'OU WRNT THI S ROUND SCORED 7CHANCE
KEN.I'OU GET R SCORE OF 12 FOR THIS ROUND

THREES,

FOURS,

FUL

DAYE HAS 182 POINTS
KEN HAS 163 POINTS
ROUND 12

DAYE'S TURN
I'OUHAYEA 6 4 4 3: 2
TH I SIS I'OUR 2ND OF 3: ROLLS,
HOW MANY DO I'OU WANT TO CHRNGE ?2
WHICH 71
WHICH ?2
YOU· HRVE R 6 4 3 3: :;:
THIS IS I'OUR LAST ROLL,
HOW MAN I' DO I'OU WANT TO CHANGE 72
WHICH 71
WHICH ?3
I'OUHAVEA 4 3 2 2:;:
HOW DO I'OU WRNT THIS ROUND SCORED ?SH. STRAIGHT
DAVE YOU GET A SCORE OF 3:0 FOR THIS ROUND
KEN'S TURN
YOU HRVE R 6 4 4 1 1
THIS IS YOUR 2ND OF ::I ROLLS,
HOW MANY DO YOU WANT TO CHA"IGE ?J:
WHICH 71
WHICH ?4
WHICH 75
YOU HAVE A 5 4 4 2 1
THIS IS I'OUR LAST ROLL,
HOW MANI' DO YOU WRNT TO CHANGE
WHICH 71
WHICH ?4
WHICH 75
I'OUHRYEA 5 4 4 4 3:
HOW DO I'OU WANT THIS ROUND SCORED ?ZERO
",HRT DO I'OU WRNT TO ZERO 7YAHTZEE
KEN YOU GET A SCORE OF 0 FOR THIS ROUND

DAVE HRS 212 POINTS
KEN HRS 163 POINTS
ROUND 13

DAVE'S TURN
I'OU HAVE A 5 4 3 1 1
TH I SIS I'OUR 2ND OF 3: ROLLS,
HOW MANI' DO I'OU WANT TO CHANGE ?:l:
WHICH ?1
WHICH 72
WHICH ?3
YOU HAVE R 5 2
1 1
TH I SIS I'OUR LAST ROLL,
HOW MANI' DO I'OU WANT TO CHANGE ?2
- WHICH 71
WHICH ?2
I'OU HRVE A 4 3: 1 1 1
HOW DO I'OU WANT TH I S ROUND SCORED ?ZERO
WHAT DO YOU WANT TO ZERO ?I'RHTZEE
DRVE YOU GET A SCORE OF 0 FOR THIS ROUND
KEN'S TURN
YOU HAYE A .. 6 5 4 2
TH I SIS I'OUR 2ND OF 3 ROLLS,
HOW /'IRNY DO YOU WANT TO CHANGE ?3
WHICH
WHICH 74
WHICH ?5
YOU HAVE A 6 6 ,; 4 2
THIS IS I'OUR LAST ROLL,
HOW HANI' DO YOU WRNT TO CHANGE 12
WHICH ?4
WHICH 75
YOU HAVE A 6 '" 6 5 2
HOW DO I'OU WANT THIS ROUND SCORED ?ZERO
WHRT DO YOU WANT TO ZERO 7FOUR OF A KIND
KEN I'OU GET A SCORE OF 0 FOR THIS ROUND

DRVE HAS 212 POINTS
KEN HRS 163: POINTS
THE GRME I S OVER.
THE WINNER IS DAVE WITH 212 POINTS.
OTHER FINRL SCORES RRE:
DRVE FINISHES WITH 212 POINTS.
KEN FINISHES WITH 163 POINTS.

242

1";

!.l
I!,
i.
,.

ZOOP

BASIC PROGRAMMER'S NIGHTMARE

Description
ZOOP is designed to imitate the system commands of a BASIC
compiler, however, it gives totally meaningless and frustrating
results. For example, to the command:
CAT
ZOOP responds with:
TRY MONTGOMERY WARD's
To the command:
SCRATCH
ZOOP responds with:
GOT AN ITCH?
Computer Limitations

The version of ZOOP printed here was written for DIGITAL
Edusystems 15/30/35 and immediately decodes the first two
characters input and carries on from there. It is a simple
matter to convert ZOOP to a system which has string handling,
however, it was felt that this version is more creative. It
also happens to be the original.

I
:1

Program Author
Tom Kloos
oregon Museum of Science and Industry
Portland, Oregon 97200
100PRINT\PRINT"READY'\PRINT
110 INPUT SA\IF "i53 THEN 300\INPUT 18\IF "253 THEN 300
liIJLET~·10 .• '.8
13IJI~Kc.2313THENI40\PRINT·N
NO FILE YOU 8008"\GOTOI00
140I~Kc.214]THENIS0\PRINT·TALOG
TRY ~ONTGDHERY WARD'S"\GOTOI0~
15IJIFKc.224ITHENlb0\PRINT"STNH I bOH'T FEEL LIKE IT"\GOTOI00
I&IJIFKc.2257THENI10\PRIHT"W YES I'M QUITE NEW"\GOTOI00
ITIJI'~c.iiT4THlNI90\PRINT"D I'M NOT THAT OLD, BUT· I'M OLD ENOUGHSSS"
180GOT0100
I.IJIFKc.Z29TTHEH2IIJ\PRINT"NAME WHY? I LIKE MY NAME"\GOTOIIJ0
200I~Kc.2eTTHEN210\PRINT·NAME
WHY? I LIKE MV NAME"\GOTOI00
210IFKc.2t57THEN220\PRINT"SUG GET A CAN OF RAID"\GOTOI00
U0IFKoU2i/THENZU\PRINTI'OP THE FUN 18 JUST STARTINC'\GOTOlfI0
230I'Kc.2303THENi/40\PRINT"VE I DON'T LIKE BANKS"\GOT01BI
240IFKc.Z33&THEN250\PRINT"SAVE O,K" THE WHOLE DEC TAPE"\CHAIN .ZOOP
25IJI'Kc.Z305THEN2&0\PRINT"RATCH GOT AN ITCH7"'GOTDlee
2&0I'Kc>21 •• THEN210\PRINT"IT THIS IS NO NEWSPAPER"\GOTOI00
270 INPUT IC\I' C02S] THEN 300
i8eI~Cc>14ITHEN270

29'PRINT\PRINT·~HAT17·'GOTOI0'

300 PRINT • WIPED OUT CO"PLETELYSII"
310 CHAIN "DEMON •
320END

243

•

Appendices

245

Iii
IV
If'

APPENDIX A,
FAMILIES OF GAMES
Number or Letter
Guessing
1. GUESS
2. HI-LO
3. LETTER
4. 'l'RAP
5. STARS
Piles of Objects
1. 23MTCH
2. BATNUM
3.

EVEN

NIM

Matrix
BATTLE
HURKLE
MUGWMP
PIZZA
SALVO
SALVO 1
Cybernetics (Artificial
Intelligence)
ANIMAL
DIGITS
EVEN 1

HEX
Land Management,
Government,' History
CIVILW
FURS

Logic
AWARI
BAGLES
BULCOW
CHOMP
CUBE
FIPFOP'
HI-Q
lCHECK
QUBIC
QUEEN
REVRSE
TICTAC
TOWER

Plotting
BOUNCE
BUNNY

DIAMND
SNOOPY (2)
3 DPLOT
UGLY

CAl, Quiz
CHEMST
CHIEF
HELLO
KINEMA
LITQZ
MATHDI
TRAIN

Casino, Gambling,
Betting
BINGO
BLKJAK, BLKJAC
CRAPS
DOGS
HORSES
POKER
ROULET
SLOTS

War
BOAT
BOMBER
GUNNER, GUNERl

Card and Board
A,CEYDU
CHECKR
GOMOKO
MNOPLY
WAR.
YAHTZE

Dates
CALNDR
WEKDAY

HMRAnI

KING
STOCl<

Space
ORBIT
ROCKET, ROCKT1, ROCKT2
SPACWR
TARGET

Sports
BASBAL
BASKET
BOWL
BOXING'
BULEYE
CANAM
FOOTBL, FOTBAL
GOLF
HOCKEY

247

Word
BUZZWD
HANG
SYNONM
WORD

Miscellaneous
AMAZIN
BUG
BULL
CHANGE
DICELIFE
LIFE-2"
NUMBER
POETRY, POET
ROCKSP
RUSROU
SPLAT
ZOOP.

APPENDIX B - GAME DIAGRAMS
Grids for playing BATTLE, HURKlE , MUGWMP, and SALVO.

10------~------------

10--------~~~~~--~

9~~~~~~~~~~

9~~~~+-+-+-+-+-+-~

8~~~~~~~~~~

8~~~~+-+-+-+-+-+-~

7~~~~~~~~~~

7~~~~+-+-+-+-+-+-~

6~~~~~~~~~~

6~~~+-+-+-+-~+-~~

W5~~~~~~~~~~E

W5~~r-T-+-+-+-~+-~~E

4~~~~~~~~~~

4~~r-+-+-+-+-~+-~~

3~~~~~~~~~~

3~~r_T_+_+_+_~+_~~

2~~~~~~~~~~

2~~r_T_+_+_+_~+_~~

1~~~~~~~~~~

1~~r-+-+-+-+-~+-~~

00 1 2 3

00 1 2 3 4 5

4 5 6

7 8 9 10

6 7 8 9 10

o 1 2 3 4 5· 6 7 8 9 10 11 12 13 14 15
Use this scale with a compass for MUGWMP.

Diagram for playing QUBIC.

(1) Level 1

Level 2

Level 3

Level 4

1
(2)
Row

2 -t--If---If--

3
----It--t---t~ 4
1

2 3 4

(3) Column

Blanks for playing DIGITS

1st 10
2nd 10
3rd 10
248

3 4

1 2 3

,.
I

APPENDIX C
INSTRUCTIONS TO GAME AUTHORS
1.

Programs must be complete and debugged, BASIC language only.

Please submit':
A. One program listing and
B. Two sample runs the wayan average person would play.

Listing and run must be on white, unlined paper. If you have
lined paper, turn it around to the unlined side. We
absolutely cannot handle submittals on pink, yellow, blue
or gray paper. Xerox, Ditto, or other copies are also
unacceptable. Make as few folds in the output as possible.

Listing and run must be done with a fresh black ribbon.
Not a purple or blue ribbon and especially not a used
ribbon.

The Teletype type ball must be clean and produce crisp copy.
Clean the ball with typewriter type cleaner or a stiff
toothbrush.

If possible, submit a paper tape of the program. Unoiled
fan-fold tape is preferable. If you have oiled paper tape
(as from a Teletype), fan fold it (folds are 8~" apart),
leave at least 17" blank leader and 8~"trailer tape.
Rolled paper tape or fan folds much greater or less than
8~" cannot be handled on our high-speed readers and are
unusable for making copies. Be ~ to wrap oiled paper
tape in kitchen plastic wrap or waxed paper when you mail
it.
If you don't the oil seeps out and smears the output.
Oil seepage has ruined any number of otherwise excellent
submittals.

We also have to know:
A. Your name
B. Complete address
C. Telephone
D. School affiliation

J
I

i
I

F.
G.

Your age
Computer system used
Original source of program
(if not you)

By submitting a program, you are giving Digital Equipment
Corp. the right to publish, reprint, distribute, or use
your program in any other way. You will, of course, always
be cited as the author.

249

) ...

DIGITAL EQUIPMENT CORPORATION, COrporate Headquarters: Maynard, Massachusetts 01754, Telephone: (617) 897-5111
SALES AND SERVICE OFFICES~
DOMESTIC -

ARIZONA, Phoenix and Tucson. CALIFORNIA, Los Angeles, Monrovia, Oakland, Ridgecrest, San Diego, San Francisco

(Mountain View), Santa Ana, Sunnyvale and Woodland Hills. COLORADO, Englewood. CONNECTICUT, Fairfield and ~iden • DISTRICT OF
COLUMBIA, Washington (Latha~m, Md.) • FLORIDA, Orlando. GEORGIA, Atlanta. ILLINOIS, Chicago (Rolling Meadows). INDIANA,
Indianapolis. IOWA, Bettendorf. KENTUCKY, Louisville. LOUISIANA, Metairie (New Or1eans) • MASSACHUSETTS, Marlborough and,
Waltham. MICHIGAN, Detroit (Farmington Hills) • MINNESOTA, Minneapolis. MISSOURI, Kansas City and St. Louis. NEW HAMPSHIRE,
Manchester. NEW JERSEY, Fairfield, MetUchen and Princeton. NEW MEXICO, Albuquerque. NEW YORK, Albany, Huntington Station,
Manhattan, Rochester and Syracuse. NORTH CAROLINA, Durham/Chapel Hill • OHIO, Oeveland, Columbus and Dayton. OKLAHOMA,
Tulsa. OREGON, Portland. PENNSYLVANIA, Philadelphia (Bluebell) and Pittsburgh. TENNESSEE, Knoxville • TEXAS,
Austin, Dallas and Houston • UTAH, Salt Lake City •

WASHIN~TON,

Bellevue • WISCONSIN, Milwaukee (Brookfield) •

INTERNATIONAL - ARGENTINA, Buenos Aires. AUSTRALlA,Adelaide, Brisbane, Canberra, Melbourne, Perth and Sydney. AUSTRIA,
Vienna. BELGI UM, Brussels. BOLIVIA, La Paz. BRAZIL, Puerto Alegre, Rio de Janeiro and Sao Paulo. CANADA, Calgary, Halifax, Montreal
Ottawa, Toronto and Vancouver -CHILE, Santiago. DENMARK, Coperihagen. FINLAND, Helsinki. FRANCE, Grenoble and Paris. GERMANY,
Berlin, Cologne, Hannover, Frankfurt. Munich and Stuttgart. HONG KONG. INDIA, Bombay. INDONESIA, Djakarta. ISRAEL, Tel Aviv
• ITALY, Milan and Turin. JAPAN, Osaka and Tokyo. MALAYSIA, Kuala Lumpur. MEXICO, Mexico City. NETHERLANDS, The Hague
• NEW ZEALAND, Auckland. NORWAY, Oslo. PHILIPPINES, Manila • PUERTO RICO, Santurce • SINGAPORE. SPAIN, Barcelona
and Madrid

•

SWEDEN, Stockholm

•

SWITZERLAND, Geneva and Zurich

• TAIWAN, Taipei and Taoyuan • UNITED

KINGDOM, Birmingham, Bristol, Dublin, Edinburgh, Leeds, London, Manchester and Reading

•

VENEZUELA, Caracas •

'"eor-

"o
.,"'