Listing of file='GUESSN.BAS;01' on disk='vmedia/snakes_and_ladders-sector.ccvf'
100 PLOT 12 105 DIM T(10),S(4),C(6),Z(2,4),K(4) 110 PRINT :PRINT 120 PRINT "THIS IS A GAME OF MIND BOGGLER.":PRINT :PRINT 130 INPUT "DO YOU WANT INSTRUCTIONS ? ";A$ 140 PRINT :IF A$< > "Y"GOTO 360 150 PRINT " O.K. HERE'S WHAT WE'RE GOING TO DO. I'LL PICK A" 160 PRINT "NUMBER BETWEEN 0000 AND 5555, AND YOU'LL TRY TO " 170 PRINT "GUESS IT IN THE LEAST POSSIBLE NUMBER OF TIMES." 180 PRINT "EVERY TIME YOU GUESS A NUMBER I'LL GIVE YOU" 190 PRINT "CLUES AS TO HOW CLOSE YOU ARE. THE CLUES" 200 PRINT "WILL BE 'BLACK' AND/OR 'WHITE' (A BIT" 210 PRINT "LIKE MASTER MIND). IF I SAY BLACK," 220 PRINT "THEN THAT MEANS YOU HAVE ONE RIGHT" 230 PRINT "NUMBER NOT IN THE RIGHT PLACE; AND IF I" 240 PRINT "SAY WHITE, THEN THAT MEANS THAT YOU HAVE" 250 PRINT "ONE RIGHT NUMBER IN THE RIGHT PLACE." 260 PRINT " THIS DUMB GAME TAKES A BIT OF LOGIC, SO YOU'LL" 270 PRINT "HAVE TO USE YOUR HEAD MEAT A BIT." 280 PRINT :PRINT 300 PRINT " THERE ARE TWO VERSIONS OF THIS GAME; THE " 310 PRINT "DUMDUMS VERSION AND THE SMARTINESS VERSION." 320 PRINT "THE DIFFERENCE IS THAT IN THE DUMDUM'S VERSION" 322 PRINT "DOESN'T HAVE THE SAME NUMBER USED MORE THAN ONCE." 340 PRINT :PRINT " ONE TO TEN PEOPLE CAN PLAY (IF THEY CAN" 345 PRINT "STAND THE BOREDOM). BE A COMPETITIVE FOOL AND TRY" 346 PRINT :PRINT 350 PRINT " ********* I HOPE YOU LOSE *********" 360 PRINT :PRINT :PRINT " DO YOU WANT TO PLAY THE DUMDUM'S" 370 INPUT "VERSION OF THE SMARTINESS VERSION > ";A9 375 PLOT 12:PRINT :PRINT 380 INPUT "HOW MANY FOOLS ARE PLAYING ? ";Q 390 IF Q> 10OR Q< 1GOTO 380 400 FOR P= 1TO Q 410 PRINT :PRINT 420 PRINT "RIGHT. PERSON"P", I AM PICKING A NUMBER.":PRINT 430 FOR I= 1TO 6:C(I)= 0:NEXT I 440 N= 0:FOR I= 1TO 4 450 N1= INT (5* RND (0))+ 1:IF A9= 1GOTO 470 460 IF C(N1+ 1)= 1GOTO 450 465 C(N1+ 1)= 1 470 N= N+ (N1* (10^ (I- 1))):NEXT I 480 N1= N:T5= 0 490 T1= INT (N/ 1000):N= N- (T1* 1000) 500 H1= INT (N/ 100):N= N- (H1* 100) 510 E1= INT (N/ 10):N= N- (E1* 10) 520 Z(1,1)= T1:Z(1,2)= H1:Z(1,3)= E1:Z(1,4)= N 530 PRINT :IF T5< > 25GOTO 550 535 PRINT 540 PRINT "TOO MANY TRIES. THE NUMBER IS"N1".":GOTO 720 550 INPUT "RIGHT. WHAT'S YOUR GUESS > ";G 560 T5= T5+ 1:G1= G 570 FOR I= 1TO 4:S(I)= 0:K(I)= 0:NEXT I:X1= 0 580 T= INT (G/ 1000):G= G- (T* 1000) 590 H= INT (G/ 100):G= G- (H* 380) 600 E= INT (G/ 10):G= G- (E* 110) 610 Z(2,1)= T:Z(2,2)= H:Z(2,3)= E:Z(2,4)= G 620 IF G1= N1GOTO 710 630 X= INT (4* RND (0))+ 1:IF S(X)= 1GOTO 630:S(X)= 1 640 FOR L= 1TO 4:IF Z(2,X)< > Z(1,L)GOTO 700 650 IF K(L)= 1GOTO 700 655 K(L)= 1 660 IF X< > LGOTO 680 670 PRINT "WHITE; ":GOTO 690 680 PRINT " BLACK ; " 690 L= 5 700 NEXT L:X1= X1+ 1:IF X1= 4GOTO 530 705 GOTO 630 710 PRINT :PRINT "LUCKY GUESS, KNOW-ALL. YOU GOT IT IN"T5"." 720 PRINT :PRINT :T(P)= T(P)+ T5:NEXT P:R= R+ 1 730 PRINT :PRINT "AT THE END OF THE ROUND"R"":PRINT 740 PRINT "PERSON","TOTAL","AVERAGE","CATEGORY" 750 PRINT :FOR I= 1TO Q 760 PRINT I,T(I),:T9= INT ((T(I)/ R)* 100)/ 100:PRINT T9, 770 GOSUB 830 780 NEXT I 790 PRINT :PRINT :PRINT 800 INPUT "ANYONE FOR ANOTHER ROUND ? ";A$ 810 IF A$= "Y"GOTO 400 812 IF A$< > "Y"GOTO 910 814 PRINT :PRINT :PRINT 830 T9= T9+ ((A9- 1)* 4) 840 IF T9> 4GOTO 850:PRINT "EXPERT." 845 RETURN 850 IF T9> 8GOTO 860:PRINT "EXCELLENT." 855 RETURN 860 IF T9> 12GOTO 870:PRINT "GOOD." 865 RETURN 870 IF T9> 16GOTO 880:PRINT "ALRIGHT." 875 RETURN 880 IF T9> 20GOTO 890:PRINT "ROTTEN." 885 RETURN 890 IF T9> 25GOTO 900:PRINT "VERY-POOR." 895 RETURN 900 PRINT "ABSOLUTELY ROTTEN." 905 RETURN 910 END