Listing of file='BATNUM' on disk='vmedia/more_games.wvd.zip'
# Sector 63, program filename = 'BATNUM' 0015 LOAD DC T#6,"GAMES" 0020 PRINT HEX(03) 0030 PRINT ,"***BATNUM***" : PRINT 0040 PRINT "THIS IS A GAME WHERE THE COMPUTER IS YOUR OPPONENT" 0050 PRINT "IN A BATTLE OF NUMBERS." : PRINT 0060 PRINT "THE GAME STARTS WITH AN ASSUMED PILE OF OBJECTS. YOU" 0070 PRINT "AND THE COMPUTER ALTERNATELY REMOVE OBJECTS FROM THE" 0080 PRINT "PILE. WINNING IS DEFINED IN ADVANCE AS TAKING THE " 0090 PRINT "LAST OBJECT OR NOT. YOU MAY ALSO SPECIFY OTHER CONDITIONS" 0100 PRINT "OF PLAY. DON'T USE ZERO OR YOU'RE IN BIG TROUBLE." 0110 PRINT : PRINT : PRINT : PRINT 0120 PRINT "ENTER PILE SIZE:"; : INPUT N 0130 IF N<>INT(N)THEN 120 0140 IF N<=1THEN 120 0150 PRINT "ENTER WIN OPTION (1=TAKE LAST, 2=AVOID LAST)"; 0160 INPUT M : IF M=1THEN 180 0170 IF M<>2THEN 150 0180 PRINT "MIN. AND MAX. NO. OF OBJECTS THAT CAN BE TAKEN"; : INPUT A,B 0190 IF A<1THEN 180 : IF A>BTHEN 180 0200 IF A<>INT(A)THEN 180 : IF B<>INT(B)THEN 180 0210 PRINT "ENTER START OPTION (1=COMPUTER FIRST, 2=YOU FIRST)"; 0220 INPUT S : PRINT : IF S=1THEN 230 : IF S<>2THEN 210 0230 C=A+B : IF S=2THEN 260 0240 GOSUB 270 : IF W=1THEN 110 0250 IF W=1THEN 110 0260 GOSUB 400 : IF W=1THEN 110 : GOTO 240 0270 Q=N : IF M=1THEN 310 : Q=Q-1 0280 IF N>ATHEN 340 : W=1 0290 PRINT "COMPUTER TAKES ";N;"AND LOSES" 0300 RETURN 0310 IF N>BTHEN 340 : W=1 0320 PRINT "COMPUTER TAKES ";N;"AND WINS --- HA-HA" 0330 RETURN 0340 P=Q-C*INT(Q/C) 0350 IF P>=ATHEN 360 : P=A 0360 IF P<=BTHEN 370 : P=B 0370 N=N-P 0380 PRINT "COMPUTER TAKES";P;"AND LEAVES";N : W=0 0390 RETURN 0400 PRINT "YOUR MOVE:"; 0410 INPUT P : IF P<>0THEN 440 0420 PRINT "I TOLD YOU NOT TO DO THAT - I WIN BY FORFEIT - HA-HA" 0430 W=1 : RETURN 0440 IF P<>INT(P)THEN 470 : IF P>=ATHEN 460 0450 IF P=NTHEN 490 : GOTO 470 0460 IF P<=BTHEN 480 0470 PRINT "ILLEGAL MOVE, REENTER IT:"; : GOTO 410 0480 N=N-P : IF N<>0THEN 540 0490 IF M=1THEN 520 0500 PRINT "TOUGH LUCK, YOU LOSE--DUMMY" 0510 W=1 : RETURN 0520 PRINT "CONGRATULATIONS, YOU WIN-BUT I'LL GET YOU SOON" 0530 W=1 : RETURN 0540 IF N>=0THEN 550 : N=N+P : GOTO 470 0550 W=0 : RETURN