10 REM CONCN.ECB
  100 REM ======= LAST MOD.  8/1/77       R.E.H.
  110 PRINT TAB(10);"+++++++++++++++++++++++++++++++++++++"
  120 PRINT TAB(10);"+++                               +++"
  130 PRINT TAB(10);"+++   C O N C E N T R A T I O N   +++"
  140 PRINT TAB(10);"+++                               +++"
  150 PRINT TAB(10);"+++++++++++++++++++++++++++++++++++++"
  160 PRINT
  170 DIM Z(100)
  180 PRINT " WHICH BOARD DO YOU WANT. 1,2,3, OR 4";
  190 INPUT M
  200 PRINT
  210 IF M=1 THEN 260
  220 FOR X=1 TO (24*(M-1))
  230   READ Z(X)
  240 NEXT X
  250 LET C=0
  260 FOR X=1 TO 24
  270   READ Z(X)
  280 NEXT X
  290 PRINT " DO YOU WANT THE RULES LISTED, (YES OR NO) ";
  300 INPUT N$
  310 PRINT
  320 IF N$="YES" THEN 340
  325 IF N$="Y" THEN 340
  330 IF N$="NO" THEN 470
  335 IF N$="N" THEN 470
  340 PRINT TAB(7);"BEHIND THE NUMBERS ON THE BOARD"
  350 PRINT " THERE ARE NUMBERS RANGING FROM 1 TO 1000."
  360 PRINT "        YOU TRY TO PICK 2 NUMBERS THAT HAVE"
  370 PRINT " THE SAME NUMBER BEHIND THEM.   IF YOU GET A"
  380 PRINT " PAIR THAT MATCH, CROSS OFF THOSE 2 NUMBERS"
  390 PRINT " ON YOUR BOARD SO YOU KNOW THAT THEY ARE OFF"
  400 PRINT " OF THE BOARD. ALSO, IF THEY MATCH, YOU WIN"
  410 PRINT " THAT AMOUNT OF MONEY.  IF THEY DO NOT MATCH,"
  420 PRINT " YOU LOSE $200."
  430 GOSUB 940
  440 PRINT "  DO NOT CHOOSE 25 UNTIL YOU WANT TO END"
  450 PRINT "  THE GAME BECAUSE IT WILL AUTOMATICALLY"
  460 PRINT "  DO SO."
  470 PRINT TAB(8);"HERE IS YOUR BOARD:"
  480 PRINT TAB(20);"******************************"
  490 PRINT TAB(20);"*   01   02   03   04   05   *"
  500 PRINT TAB(20);"*   06   07   08   09   10   *"
  510 PRINT TAB(20);"*   11   12   13   14   15   *"
  520 PRINT TAB(20);"*   16   17   18   19   20   *"
  530 PRINT TAB(20);"*   21   22   23   24   25   *"
  540 PRINT TAB(20);"******************************"
  550 GOSUB 950
  560 DATA 1,50,375,1000,50,165,150,1,660,660,5,115,750
  570 DATA 1000,165,375,115,300,405,750,300,405,5,150
  580 DATA 73,94,630,100,94,95,79,273,143,630,95,79,87,87
  590 DATA 173,73,273,650,700,173,650,700,100,143
  600 DATA 555,81,743,175,170,98,60,750,98,555,210,60,73
  610 DATA 322,81,73,175,235,235,170,322,210,750,743
  620 DATA 10,93,35,800,730,93,10,147,286,394,394,590,730
  630 DATA 74,800,147,640,286,590,999,999,640,74,35
  640 PRINT
  650 PRINT
  660 PRINT "NOW WE WILL START THE GAME"
  670 PRINT
  680 PRINT "WHAT IS YOUR FIRST NUMBER";
  690 INPUT A
  700 IF A=25 THEN 900
  710 PRINT Z(A)
  720 PRINT "WHAT IS YOUR SECOND NUMBER";
  730 INPUT B
  740 IF B=25 THEN 900
  750 PRINT Z(B)
  760 IF Z(A)=Z(B) THEN 800
  770 PRINT "YOU LOSE $200"
  780 LET C=C-200
  790 GOTO 820
  800 PRINT "YOU WIN $";Z(A)
  810 LET C=C+Z(A)
  820 IF C=0 THEN 850
  825 IF C>0 THEN 850
  830 PRINT " YOU OWE ME $ ";-C
  840 GOTO 680
  850 PRINT " YOU ARE AHEAD $ ";C
  860 PRINT
  870 GOTO 680
  880 DATA 1,50,375,1000,50,165,150,1,660,660,5,115,750
  890 DATA 1000,165,375,115,300,405,750,300,405,5,150
  900 PRINT "   THIS GAME WAS CREATED IN THE MASTERMINDS OF"
  910 PRINT "MIKE AND BILL VOLLBRECHT AND LARRY KIRSCHSTEIN"
  920 PRINT "OF MORGAN, MINNESOTA!!!!!!!!!!!!!!!!"
  930 GOTO 990
  940 PRINT
  950 PRINT " ==== READY TO SEE MORE ---->";
  960 INPUT I$
  970 PRINT
  980 RETURN
  990 END