Appears on
Assembled by Tim Ward from many sources. Contains programs 10122 – 10175.
Source Code
5 REM NUMBER 10 PRINT "THINK OF A NUMBER" 20 INPUT A 25 PRINT " YOU SELECTED ";A;"." 30 IF A<15 THEN PRINT "YOUR NUMBER WILL BE USED BUT IT IS TOO SMALL." 35 IF A<31 AND A>14 THEN PRINT "WE WILL ACCEPT YOUR NUMBER BUT WOULD PREFER A LARGER NUMBER." 40 IF A>30 AND A<55 THEN PRINT "THAT IS A REASONABLE NUMBER." 45 IF A>54 AND A<100 THEN PRINT "WE WILL ACCEPT YOUR NUMBER BUT WOULD PREFER A SMALLER NUMBER." 50 IF A>99 THEN PRINT "YOUR NUMBER IS TOO LARGE BUT IT WILL BE USED." 55 LET B=INT ((A-30)/4) 60 PRINT AT 5,8;B+8,AT 5,12;B+5,AT 5,16;B+2 62 IF A=31 THEN PRINT AT 5,20;16,AT 7,12;15,AT 9,8;14,AT 11,16;13 63 IF A=32 THEN PRINT AT 11,16;14,AT 9,8;15,AT 5,20;17,AT 7,12;16 65 IF (A-30)/4=B+.25 THEN PRINT AT 5,20;;B+16,AT 7,12;B+15,AT 9,8;B+14,AT 11,16;B+13 70 PRINT AT 7,8;B+3,AT 7,16;B+9,AT 7,20;B+4 75 IF (A-30)/4=B+.5 THEN PRINT AT 5,20;B+17,AT 7,12;B+16,AT 9,8;B+15,AT 11,16;B+14 80 PRINT AT 9,12;B,AT 9,16;B+7,AT 9,20;B+10 85 IF (A-30)/4=B+.75 THEN PRINT AT 5,20;B+18,AT 7,12;B+17,AT 9,8;B+16,AT 11,16;B+15 90 PRINT AT 11,8;B+6,AT 11,12;B+11,AT 11,20;B+1 95 IF (A-30)/4=B THEN PRINT AT 5,20;B+15,AT 7,12;B+14,AT 9,8;B+13,AT 11,16;B+12 100 PRINT 105 PRINT 110 PRINT "THIS IS A 4 BY 4 MAGIC SQUARE" 115 PRINT "FOR ";A;", THE SUM OF HORIZONTAL" 120 PRINT "LINES OR VERTICAL COLUMNS WILL" 125 PRINT "BE YOUR CHOSEN NUMBER OF ";A;"." 130 PRINT "ALSO TRY THE DIAGONALS AND " 135 PRINT "CORNERS." 200 STOP 300 SAVE "1014%5" 310 RUN