Listing of file='MATNUM.BAS;01' on disk='vmedia/games2-sector.ccvf'
100 PLOT 12 120 N= 20+ INT (80* RND (1)) 130 K= 5+ INT (10* RND (1)) 140 GOSUB 680 170 PRINT 180 PRINT "THE INITIAL NUMBER IS"N 190 PRINT 200 PRINT 210 REM 220 PRINT "YOUR MOVE"; 230 INPUT X 240 IF X> KTHEN 270 250 IF X< 1THEN 270 260 IF X< = NTHEN 310 270 PRINT "ILLEGAL MOVE." 275 GOSUB 680 280 PRINT 290 GOTO 220 310 PRINT 320 N= N- X 325 GOSUB 680 330 IF N> 0THEN 410 339 PRINT 340 PRINT " I W I N D U M M Y " 350 PRINT 360 PRINT 370 PRINT " DO YOU WANT ANOTHER GAME Y/N " 380 INPUT L$ 385 IF LEFT$ (L$,1)= "N"GOTO 790 390 GOTO 120 410 REM MACHINE'S MOVE. 420 Q= INT ((N- 1)/ (K+ 1)) 430 Y= (N- 1)- (Q* (K+ 1)) 440 IF Y= 0THEN 530 450 N= N- Y 460 PRINT "MY MOVE IS"Y 470 PRINT 480 IF N= 0THEN 600 490 PRINT "NEW TOTAL IS"N 500 PRINT 510 GOTO 210 530 REM MAKE RANDOM MOVE. 540 IF N> 1THEN 570 550 Y= 1 560 GOTO 450 570 Y= 1+ INT (K* RND (1)) 580 GOTO 450 600 REM MACHINE LOST. 610 PRINT " " 611 PRINT " YOU WIN BIG BOY " 612 PRINT " " 613 PRINT "" 620 GOTO 350 630 INPUT L$ 640 IF LEFT$ (L$,1)= "N"GOTO 790 650 PRINT 660 PRINT "" 670 GOTO 120 680 PRINT "" 690 PRINT "LEGAL MOVES ARE :" 700 PRINT "TAKE AWAY 1 THROUGH "K 710 PRINT "LAST PERSON TO MOVE LOSES." 720 PRINT "" 725 FOR I= 1TO 15:PRINT :NEXT I 730 RETURN 790 FOR I= 1TO 32:PRINT :NEXT I 795 PRINT 800 PRINT " SEE YA NEXT TIME SUCKER " 900 END