REM ***************************************************************************
DIM SHARED START AS STRING
DIM SHARED QUIT AS STRING
DIM SHARED RUNCUBESTEST AS STRING
DIM SHARED RUNMAKECUBES AS STRING
DIM SHARED CUBEVAL0 AS SINGLE
DIM SHARED CUBEVAL1 AS SINGLE
DIM SHARED CUBEVAL8 AS SINGLE
DIM SHARED CUBEVAL27 AS SINGLE
DIM SHARED CUBEVAL64 AS SINGLE
DIM SHARED CUBEVAL125 AS SINGLE
DIM SHARED CUBEVAL216 AS SINGLE
DIM SHARED CUBEVAL343 AS SINGLE
DIM SHARED CUBEVAL512 AS SINGLE
DIM SHARED CUBEVAL729 AS SINGLE
DIM SHARED DELAYN AS DOUBLE
DIM SHARED COUNTN AS DOUBLE
DIM SHARED TIMESN AS DOUBLE
DIM SHARED MAKECUBEN AS DOUBLE
DIM SHARED CUBECOUNTN AS DOUBLE
DIM SHARED SLOWSPRINT AS DOUBLE
DIM SHARED MAXCUBEN AS DOUBLE
DIM SHARED RNDRNDNUM AS DOUBLE
DIM SHARED RDXX AS DOUBLE
DIM SHARED RDYY AS DOUBLE
DIM SHARED RDZZ AS DOUBLE
DIM SHARED TOTALXXYY AS DOUBLE
DIM SHARED DIFFXXYYZZ AS DOUBLE
DIM SHARED X1 AS DOUBLE
DIM SHARED Y1 AS DOUBLE
DIM SHARED Z1 AS DOUBLE
DIM SHARED XX AS DOUBLE
DIM SHARED YY AS DOUBLE
DIM SHARED ZZ AS DOUBLE
CLS
PRINT
PRINT TAB(14); "*******************************************************"
PRINT
PRINT TAB(95); "    { FERMATS LAST THEOREM } DEMONSTRATION PROGRAM "
PRINT
PRINT TAB(95); "            BY,Anthony.R.Brown V.01/01/1998 "
PRINT
PRINT TAB(14); "*******************************************************"
PRINT
PRINT "  THE PROBLEM IS AS FOLLOWS! "
PRINT "  are there any whole numbers e.g (x,y,z) cube numbers "
PRINT "   where x3 + y3 = z3 NOTICE = (Xn,Yn,Zn) n Must be greater than (2) "
PRINT "  an example that does not work is given below "
PRINT "   x = 64 cube y = 64 cube Z = 125 cube X + Y = 128 (+ 3) > Z "
PRINT "  if you could use zero?? then the answer would be, "
PRINT "   x = 0 y = 0 z = 0 simple!  X + Y = Z "
PRINT
INPUT " PRESS (ENTER) TO RUN PROGRAM "; START
CLS
PRINT : PRINT
INPUT " ENTER (Y) TO RUN CUBE NUMBER TEST PROGRAM! "; RUNCUBESTEST
CLS
IF RUNCUBESTEST = "Y" THEN GOTO CUBETESTLB
IF RUNCUBESTEST = "y" THEN GOTO CUBETESTLB
CLS
PRINT : PRINT
INPUT " ENTER (Y) TO RUN MAKE CUBE NUMBER PROGRAM! "; RUNMAKECUBES
CLS
IF RUNMAKECUBES = "Y" THEN GOTO MAKECUBESLB
IF RUNMAKECUBES = "y" THEN GOTO MAKECUBESLB
RUN: REM NO INPUT!
REM***************************************************************************
CUBETESTLB:
REM***************************************************************************
CLS
PRINT : PRINT
PRINT "------------------------------------------------------------------------------"
PRINT "                    { FERMATS! CUBE NUMBER TEST PROGRAM! } "
PRINT "------------------------------------------------------------------------------"
PRINT : PRINT
PRINT " ENTER THE AMOUNT OF TIMES TO RUN CUBE NUMBER TEST! "
PRINT
INPUT ; TIMESN
IF TIMESN < 1 THEN GOTO RUNAGAINLB
PRINT : PRINT
PRINT " ENTER A NUMBER TO SLOW DOWN CUBE NUMBER TEST! SCREEN PRINT! E.G  9999 "
PRINT
INPUT ; SLOWSPRINT
IF SLOWSPRINT < 1 THEN GOTO RUNAGAINLB
CLS
REM---------------------------------------------------------------------------
CUBESTESTLOOPLB:
REM---------------------------------------------------------------------------
COUNTN = COUNTN + 1
REM---------------------------------------------------------------------------
REM BELOW RANDOM NUMBER ROUTINE FOR! RDXX,RDYY,RDZZ
REM---------------------------------------------------------------------------
GOSUB CUBESSTART
IF RDXX >= 1000000 THEN GOSUB CUBESSTART: REM FOR MORE LOWER NUMBERS!
RANDOMIZE TIMER
RDXX = INT(RND * MAXCUBEN) + 1
GOSUB CUBESSTART
IF RDYY >= 1000000 THEN GOSUB CUBESSTART: REM FOR MORE LOWER NUMBERS!   
RANDOMIZE TIMER
RDYY = INT(RND * MAXCUBEN) + 1
GOSUB CUBESSTART
IF RDZZ >= 1000000 THEN GOSUB CUBESSTART: REM FOR MORE LOWER NUMBERS!   
RANDOMIZE TIMER
RDZZ = INT(RND * MAXCUBEN) + 1
GOTO CUBESDONE
REM---------------------------------------------------------------------------
CUBESSTART:
REM---------------------------------------------------------------------------
RANDOMIZE TIMER
RNDRNDNUM = INT(RND * 23) + 1
IF RNDRNDNUM = 1 THEN MAXCUBEN = 10
IF RNDRNDNUM = 2 THEN MAXCUBEN = 100
IF RNDRNDNUM = 3 THEN MAXCUBEN = 1000
IF RNDRNDNUM = 4 THEN MAXCUBEN = 10000
IF RNDRNDNUM = 5 THEN MAXCUBEN = 100000
IF RNDRNDNUM = 6 THEN MAXCUBEN = 1000000
IF RNDRNDNUM = 7 THEN MAXCUBEN = 10000000
IF RNDRNDNUM = 8 THEN MAXCUBEN = 100000000
IF RNDRNDNUM = 9 THEN MAXCUBEN = 1000000000
IF RNDRNDNUM = 10 THEN MAXCUBEN = INT(RND * 1D+20) + 1
IF RNDRNDNUM = 11 THEN MAXCUBEN = INT(RND * 1D+30) + 1
IF RNDRNDNUM = 12 THEN MAXCUBEN = INT(RND * 1D+40) + 1
IF RNDRNDNUM = 13 THEN MAXCUBEN = INT(RND * 1D+50) + 1
REM BELOW NO 1D+60 ?!
IF RNDRNDNUM = 14 THEN MAXCUBEN = INT(RND * 9.999999999999999D+59) + 1
IF RNDRNDNUM = 15 THEN MAXCUBEN = INT(RND * 1D+70) + 1
IF RNDRNDNUM = 16 THEN MAXCUBEN = INT(RND * 1D+80) + 1
IF RNDRNDNUM = 17 THEN MAXCUBEN = INT(RND * 1D+90) + 1
IF RNDRNDNUM = 18 THEN MAXCUBEN = INT(RND * 1D+101) + 1: REM MAX = 1D300+
REM BELOW EXTRA LOW NUMBERS! FOR BETTER RANDOMNESS! BELOW 1D WHEN * 3!
IF RNDRNDNUM = 19 THEN MAXCUBEN = 10
IF RNDRNDNUM = 20 THEN MAXCUBEN = 100
IF RNDRNDNUM = 21 THEN MAXCUBEN = 1000
IF RNDRNDNUM = 22 THEN MAXCUBEN = 10000
IF RNDRNDNUM = 23 THEN MAXCUBEN = 100000
RETURN
REM---------------------------------------------------------------------------
CUBESDONE: REM BELOW MAKE XX,YY,ZZ CUBES!
REM---------------------------------------------------------------------------
X1 = RDXX
XX = X1 * X1 * X1
Y1 = RDYY
YY = Y1 * Y1 * Y1
Z1 = RDZZ
ZZ = Z1 * Z1 * Z1
TOTALXXYY = XX + YY
DIFFXXYYZZ = ZZ - TOTALXXYY
CLS
PRINT
PRINT "------------------------------------------------------------------------------"
PRINT " BELOW ( Xn1 ),( Yn1 ),( Zn1 ) SINGLE START NUMBERS! "
PRINT "------------------------------------------------------------------------------"
PRINT " ( Xn1 )                =  "; X1
PRINT " ( Yn1 )                =  "; Y1
PRINT " ( Zn1 )                =  "; Z1
PRINT "------------------------------------------------------------------------------"
PRINT " BELOW ( Xn3 ),( Yn3 ),( Zn3 ) CUBE NUMBERS! "
PRINT "------------------------------------------------------------------------------"
PRINT " ( Xn3 )                =  "; XX
PRINT " ( Yn3 )                =  "; YY
PRINT " ( Zn3 )                =  "; ZZ
PRINT "------------------------------------------------------------------------------"
PRINT " BELOW IF ( Xn3 + Yn3 ) = ( Zn3 ) THEN FERMATS THEOREM IS PROVED WRONG! "
PRINT "------------------------------------------------------------------------------"
PRINT " ( Xn3 + Yn3 )          =  "; TOTALXXYY
PRINT "------------------------------------------------------------------------------"
PRINT "    ( Zn3 )             =  "; ZZ
PRINT "------------------------------------------------------------------------------"
PRINT " COUNT ="; COUNTN; " ( Zn3 ) - ( Xn3 + Yn3 ) DIFFERENCE = "; DIFFXXYYZZ
PRINT "------------------------------------------------------------------------------"
FOR DELAYN = 1 TO SLOWSPRINT
NEXT DELAYN
IF TOTALXXYY = ZZ AND TOTALXXYY <> 0 THEN GOTO PROVEDWRONGLB
IF COUNTN = TIMESN THEN GOTO RUNAGAINLB
GOTO CUBESTESTLOOPLB
REM---------------------------------------------------------------------------
PROVEDWRONGLB:
REM---------------------------------------------------------------------------
PRINT " WOW! HAVE YOU PROVED FERMATS LAST THEOREM IS WRONG! ? "
GOTO RUNAGAINLB
REM***************************************************************************
MAKECUBESLB:
REM***************************************************************************
CLS
PRINT : PRINT
PRINT "------------------------------------------------------------------------------"
PRINT "                    { FERMATS! MAKE CUBE NUMBER PROGRAM! } "
PRINT "------------------------------------------------------------------------------"
PRINT : PRINT
PRINT " ENTER HOW MANY CUBE NUMBERS! YOU WANT TO MAKE! "
PRINT
INPUT ; MAKECUBEN
IF MAKECUBEN < 1 THEN GOTO RUNAGAINLB
PRINT : PRINT
PRINT " ENTER A NUMBER TO SLOW DOWN CUBE NUMBER! SCREEN PRINT! E.G  9999 "
PRINT
INPUT ; SLOWSPRINT
IF SLOWSPRINT < 1 THEN GOTO RUNAGAINLB
REM---------------------------------------------------------------------------
CLS
XX = 1
COUNTN = 1
CUBECOUNTN = 1
REM ABOVE PRINTS FIRST CUBEVAL1 AND NOT CUBEVAL0! AS = ZERO VALUES!
CUBEVAL0 = 0
CUBEVAL1 = 1
CUBEVAL8 = 8
CUBEVAL27 = 27
CUBEVAL64 = 64
CUBEVAL125 = 125
CUBEVAL216 = 216
CUBEVAL343 = 343
CUBEVAL512 = 512
CUBEVAL729 = 729
REM---------------------------------------------------------------------------
CUBESMAKELOOPLB:
REM---------------------------------------------------------------------------
IF CUBECOUNTN = 0 THEN PRINT "CUBE = ";
IF CUBECOUNTN = 0 THEN PRINT USING "######################"; XX;
IF CUBECOUNTN = 0 THEN PRINT ; " : PATTERN = "; : PRINT USING "####"; CUBEVAL0;
IF CUBECOUNTN = 0 THEN PRINT " : COUNT = "; COUNTN
REM
IF CUBECOUNTN = 1 THEN PRINT "CUBE = ";
IF CUBECOUNTN = 1 THEN PRINT USING "######################"; XX;
IF CUBECOUNTN = 1 THEN PRINT ; " : PATTERN = "; : PRINT USING "####"; CUBEVAL1;
IF CUBECOUNTN = 1 THEN PRINT " : COUNT = "; COUNTN
REM
IF CUBECOUNTN = 2 THEN PRINT "CUBE = ";
IF CUBECOUNTN = 2 THEN PRINT USING "######################"; XX;
IF CUBECOUNTN = 2 THEN PRINT ; " : PATTERN = "; : PRINT USING "####"; CUBEVAL8;
IF CUBECOUNTN = 2 THEN PRINT " : COUNT = "; COUNTN
REM
IF CUBECOUNTN = 3 THEN PRINT "CUBE = ";
IF CUBECOUNTN = 3 THEN PRINT USING "######################"; XX;
IF CUBECOUNTN = 3 THEN PRINT ; " : PATTERN = "; : PRINT USING "####"; CUBEVAL27;
IF CUBECOUNTN = 3 THEN PRINT " : COUNT = "; COUNTN
REM
IF CUBECOUNTN = 4 THEN PRINT "CUBE = ";
IF CUBECOUNTN = 4 THEN PRINT USING "######################"; XX;
IF CUBECOUNTN = 4 THEN PRINT ; " : PATTERN = "; : PRINT USING "####"; CUBEVAL64;
IF CUBECOUNTN = 4 THEN PRINT " : COUNT = "; COUNTN
REM
IF CUBECOUNTN = 5 THEN PRINT "CUBE = ";
IF CUBECOUNTN = 5 THEN PRINT USING "######################"; XX;
IF CUBECOUNTN = 5 THEN PRINT ; " : PATTERN = "; : PRINT USING "####"; CUBEVAL125;
IF CUBECOUNTN = 5 THEN PRINT " : COUNT = "; COUNTN
REM
IF CUBECOUNTN = 6 THEN PRINT "CUBE = ";
IF CUBECOUNTN = 6 THEN PRINT USING "######################"; XX;
IF CUBECOUNTN = 6 THEN PRINT ; " : PATTERN = "; : PRINT USING "####"; CUBEVAL216;
IF CUBECOUNTN = 6 THEN PRINT " : COUNT = "; COUNTN
REM
IF CUBECOUNTN = 7 THEN PRINT "CUBE = ";
IF CUBECOUNTN = 7 THEN PRINT USING "######################"; XX;
IF CUBECOUNTN = 7 THEN PRINT ; " : PATTERN = "; : PRINT USING "####"; CUBEVAL343;
IF CUBECOUNTN = 7 THEN PRINT " : COUNT = "; COUNTN
REM
IF CUBECOUNTN = 8 THEN PRINT "CUBE = ";
IF CUBECOUNTN = 8 THEN PRINT USING "######################"; XX;
IF CUBECOUNTN = 8 THEN PRINT ; " : PATTERN = "; : PRINT USING "####"; CUBEVAL512;
IF CUBECOUNTN = 8 THEN PRINT " : COUNT = "; COUNTN
REM
IF CUBECOUNTN = 9 THEN PRINT "CUBE = ";
IF CUBECOUNTN = 9 THEN PRINT USING "######################"; XX;
IF CUBECOUNTN = 9 THEN PRINT ; " : PATTERN = "; : PRINT USING "####"; CUBEVAL729;
IF CUBECOUNTN = 9 THEN PRINT " : COUNT = "; COUNTN
REM
REM---------------------------------------------------------------------------
SF$ = "FERMFILE.TXT"
OPEN SF$ FOR APPEND AS #1
REM
IF CUBECOUNTN = 0 THEN PRINT #1, "CUBE = ";
IF CUBECOUNTN = 0 THEN PRINT #1, USING "######################"; XX;
IF CUBECOUNTN = 0 THEN PRINT #1, ; " : PATTERN = "; : PRINT #1, USING "####"; CUBEVAL0;
IF CUBECOUNTN = 0 THEN PRINT #1, " : COUNT = "; COUNTN
REM
IF CUBECOUNTN = 1 THEN PRINT #1, "CUBE = ";
IF CUBECOUNTN = 1 THEN PRINT #1, USING "######################"; XX;
IF CUBECOUNTN = 1 THEN PRINT #1, ; " : PATTERN = "; : PRINT #1, USING "####"; CUBEVAL1;
IF CUBECOUNTN = 1 THEN PRINT #1, " : COUNT = "; COUNTN
REM
IF CUBECOUNTN = 2 THEN PRINT #1, "CUBE = ";
IF CUBECOUNTN = 2 THEN PRINT #1, USING "######################"; XX;
IF CUBECOUNTN = 2 THEN PRINT #1, ; " : PATTERN = "; : PRINT #1, USING "####"; CUBEVAL8;
IF CUBECOUNTN = 2 THEN PRINT #1, " : COUNT = "; COUNTN
REM
IF CUBECOUNTN = 3 THEN PRINT #1, "CUBE = ";
IF CUBECOUNTN = 3 THEN PRINT #1, USING "######################"; XX;
IF CUBECOUNTN = 3 THEN PRINT #1, ; " : PATTERN = "; : PRINT #1, USING "####"; CUBEVAL27;
IF CUBECOUNTN = 3 THEN PRINT #1, " : COUNT = "; COUNTN
REM
IF CUBECOUNTN = 4 THEN PRINT #1, "CUBE = ";
IF CUBECOUNTN = 4 THEN PRINT #1, USING "######################"; XX;
IF CUBECOUNTN = 4 THEN PRINT #1, ; " : PATTERN = "; : PRINT #1, USING "####"; CUBEVAL64;
IF CUBECOUNTN = 4 THEN PRINT #1, " : COUNT = "; COUNTN
REM
IF CUBECOUNTN = 5 THEN PRINT #1, "CUBE = ";
IF CUBECOUNTN = 5 THEN PRINT #1, USING "######################"; XX;
IF CUBECOUNTN = 5 THEN PRINT #1, ; " : PATTERN = "; : PRINT #1, USING "####"; CUBEVAL125;
IF CUBECOUNTN = 5 THEN PRINT #1, " : COUNT = "; COUNTN
REM
IF CUBECOUNTN = 6 THEN PRINT #1, "CUBE = ";
IF CUBECOUNTN = 6 THEN PRINT #1, USING "######################"; XX;
IF CUBECOUNTN = 6 THEN PRINT #1, ; " : PATTERN = "; : PRINT #1, USING "####"; CUBEVAL216;
IF CUBECOUNTN = 6 THEN PRINT #1, " : COUNT = "; COUNTN
REM
IF CUBECOUNTN = 7 THEN PRINT #1, "CUBE = ";
IF CUBECOUNTN = 7 THEN PRINT #1, USING "######################"; XX;
IF CUBECOUNTN = 7 THEN PRINT #1, ; " : PATTERN = "; : PRINT #1, USING "####"; CUBEVAL343;
IF CUBECOUNTN = 7 THEN PRINT #1, " : COUNT = "; COUNTN
REM
IF CUBECOUNTN = 8 THEN PRINT #1, "CUBE = ";
IF CUBECOUNTN = 8 THEN PRINT #1, USING "######################"; XX;
IF CUBECOUNTN = 8 THEN PRINT #1, ; " : PATTERN = "; : PRINT #1, USING "####"; CUBEVAL512;
IF CUBECOUNTN = 8 THEN PRINT #1, " : COUNT = "; COUNTN
REM
IF CUBECOUNTN = 9 THEN PRINT #1, "CUBE = ";
IF CUBECOUNTN = 9 THEN PRINT #1, USING "######################"; XX;
IF CUBECOUNTN = 9 THEN PRINT #1, ; " : PATTERN = "; : PRINT #1, USING "####"; CUBEVAL729;
IF CUBECOUNTN = 9 THEN PRINT #1, " : COUNT = "; COUNTN
REM
CLOSE
REM---------------------------------------------------------------------------
FOR DELAYN = 1 TO SLOWSPRINT
NEXT DELAYN
IF COUNTN = MAKECUBEN THEN PRINT : REM SPACE BETWEEN ABOVE!
IF COUNTN = MAKECUBEN THEN PRINT " NOTICE! CUBE NUMBERS HAVE BEEN SAVED TO FERMFILE.TXT TO LOOK AT!"
IF COUNTN = MAKECUBEN THEN GOTO RUNAGAINLB
CUBECOUNTN = CUBECOUNTN + 1
IF CUBECOUNTN = 10 THEN CUBECOUNTN = 0
COUNTN = COUNTN + 1
X1 = COUNTN
XX = X1 * X1 * X1
GOTO CUBESMAKELOOPLB
REM***************************************************************************
RUNAGAINLB:
REM***************************************************************************
IF COUNTN <= 0 THEN PRINT
IF COUNTN <= 0 THEN PRINT
IF COUNTN <= 0 THEN PRINT " NO INPUT? OR WRONG INPUT? TRY AGAIN! "
PRINT
INPUT " PRESS (ENTER) TO RUN AGAIN OR (QU) TO QUIT! "; QUIT
IF QUIT = "QU" THEN END
IF QUIT = "qu" THEN END
RUN
END
REM ***************************************************************************