rem battle of numbers IM-1 club tape 4 program 2
1  REM  BATTLE OF NUMBERS ...BY DON SCHMIDT
10  GOSUB 220: CALL 17046
20 A= INT ( RND (0)*13+7): REM ARBITRARY
30 B= INT ( RND (0)*37+41): REM ARBITARY
40  PRINT "INTERVAL IS 1 TO ";A: PRINT 
50  PRINT "STARTING TOTAL IS ";B: PRINT 
55 :
60  INPUT "YOU GO ",P
70  IF  INT (P)<>P THEN 100
80  IF  INT ((P-1)/A)<>0 THEN 100
85  IF P=0 THEN 100
90  IF P<=B THEN 110
100  PRINT "ILLEGAL NUMBER": GOTO 60
110 B=B-P: IF B=O THEN  PRINT "*** I WIN***": GOTO 200
120 I= INT ((B-I)/(A+1))
130 C=B-((A+1)/(A+1))
140  IF C=0 THEN 170
150 C= INT ( RND (0)*A+1)
160  IF B=C<0 THEN 150
170 B=B-C: PRINT "I TAKE",C
180  IF B=0 THEN  PRINT "*** YOU WIN***": GOTO 200
190  PRINT "LEAVING A TOTAL OF ",B: GOTO 60
200  INPUT "ANOTHER BATTLE? (Y=1 N=0)",P: IF P=1 THEN 20
205 PRINT "BYE BYE"
210  END 
220 PRINT "DO YOU KNOW THE RULES?"
225 PRINT "(Y=1,N=0)";: INPUT P: IF P=1 THEN RETURN 
230 PRINT "WE TAKE TURNS SUBTRACTING AN"
240 PRINT "INTEGER IN THE RANGE OF (1) TO"
250 PRINT "SOME NUMBER (A) FROM ANOTHER"
260 PRINT "(B), WITH THE DIFFERENCE LEAVING"
265 PRINT "(B) FOR THE NEXT TURN. THE"
270 PRINT "LAST ONE TO SUBTRACT LOSES.": GOTO 220



