Mathematical Logic.

[rupol2000]

Axioms are necessarily requires, period. There is no "thinking" without axioms.

Like I said, "fault finding" isn't a viable form of logic and reason. Statements can be had that are grammatically correct but lacks any logic.

Axioms in the mathematical sense are needed only by swindlers and fools. The church did the same in its Creed. The scientific method rejects abstract speculation.

 

[rupol2000]

Obviously, the main root of mathematics is sophistry - the science of deceiving with the help of reasoning based on forgeries.
This fits very well with the fact that the sophists were atomists, and it was during the decline of natural science in the 19th century that atomism flourished in physics. It was exactly the process of mathematization of physics.

 

[WinterBorn]

When I was 19 I also scored very well on an ASVAB test. However I did not join the military.... But they ended up calling me on an almost monthly basis for several years. Several members of my family on both sides have been involved in low level intelligence operations.... With the exception of my half sister who was a lieutenant colonel at the Pentagon. The story begins with my grandfather who worked at the Dayton Ohio Air Base during World war II which was host to some operations more secretive than most other air bases. My grandmother also worked at the library of Congress furnishing military leaders with information by phone and telegram. I had an uncle who designed weapons at the Picatinny arsenal in Delaware, and my father served in the Airborne.... Drafted as a German citizen living in the US!


The United States government keeps tabs on military families and continues to try to recruit their children and children's children In the same capacity until someone gives some reason not to. By explaining the family unit, they are able to keep things much more tight and under wraps if they simply targeted potential recruits on an individual basis.

I aced the ASVAB when I was 19. The various branches of the military were recruiting me hard.

I talked with the US Navy, and they said I qualified for any rating (job). And he brought out a list for me to browse.

Then I told them I didn't have perfect color vision. He took the list back and gave me another one. It was much, much shorter.

 

[itfitzme]

Bullshit. The basis of logic is ordinary deduction. The course of thought from the general to the particular.

Not when it's based on context and axiom switching and mixing. Basic systems of logic and reason, the ones that Godel addresses, the ones that are developed in mathematics and science are consistent axiomatic systems of logic and reason. Of course they are context driven, Axioms are developed from the context.

They aren't systems that both can claim "fault finding" is based on logic and ordinary deduction, therefore it is valid while also claiming that "The very concept of mathematics is essentially pseudoscientific." and that ""axiomatize mathematics" smacks of some kind of idiocy. " or that grammar presents a form of logic that is on the level of other forms which are designed for deductive reasoning.

 

[rupol2000]

To all the objections of scientists, which were based on experience, the sophists answered with another "special theory". Einstein's first delirium was contradicted even by observations from the train window: if the movement is relative, then why does the station building not fall from the acceleration of the car. He had nothing to object, so it took a lot of verbiage and demagoguery. Ultimately, faith in modern theoretical science rests on the fact that people have no time to rake up these millions of pages of nonsense, and simply no one understands it.

 

[rupol2000]

Not when it's based on context and axiom switching and mixing

We need more nonsense that no one will understand. Feel free to continue.

 

[rupol2000]

But no fucking theoretical scammer gets into a "relativity"-tested on paper car instead of the car tested by real testdrives.

 

[BothWings]

I aced the ASVAB when I was 19. The various branches of the military were recruiting me hard.

I talked with the US Navy, and they said I qualified for any rating (job). And he brought out a list for me to browse.

Then I told them I didn't have perfect color vision. He took the list back and gave me another one. It was much, much shorter.

Sorry to hear that.

I aced the ASVAB when I was 19. The various branches of the military were recruiting me hard.

I talked with the US Navy, and they said I qualified for any rating (job). And he brought out a list for me to browse.

Then I told them I didn't have perfect color vision. He took the list back and gave me another one. It was much, much shorter.

Sorry to hear that. As I wrote in my previous post, my father was a German immigrant, so obviously I have an extended family over there. One of my relatives over there came of age for military service in 1970's. He was already a trained radio technician when he joined the German military. So guess where they put him? A Panzer tank driver! Seriously??? Today he is a seasoned engineer who works to reduce peripheral EMF emissions in prototype X-Ray units.

 

[Dogmaphobe]

I used them in my program. Any part of the program that does a certain thing, well, the code you write to do it is called an algorithm. This collection of subroutines pops up a calculator that does basic math.

$INCLUDE "\pb32\pbwindo.inc"

%false = 0

%true = -1

cls

scalc


SUB scalc

SHARED trow%,leftborder%,rightborder%,brow%,back%,fore%,calcscreen$,row%,col%

SHARED savecalc$

blinkoff

savecalc$ = savescreen$

fore% = 15

back% = 9

trow% = 5 'this variable connot be less than 3

leftborder% = 4 'nor can this one

rightborder% = 4

brow% = 5

' draw frame for calculater

popwindow trow%-2,leftborder%-1,brow%+10,rightborder%+13,2,fnattr%(fore%,back%) ,0,0,0,""

popwindow trow%,leftborder%,brow%,rightborder%,1,fnattr%(fore%,back%),0,0,0,""

xqprint "7",trow%,leftborder%,fnattr%(fore%,back%)

popwindow trow%,leftborder%+3,brow%,rightborder%+3,1,fnattr%(fore%,back%),0,0,0,""

xqprint "8",trow%,leftborder%+3,fnattr%(fore%,back%)

popwindow trow%,leftborder%+6,brow%,rightborder%+6,1,fnattr%(fore%,back%),0,0,0,""

xqprint "9",trow%,leftborder%+6,fnattr%(fore%,back%)

popwindow trow%,leftborder%+9,brow%,rightborder%+9,1,fnattr%(fore%,back%),0,0,0,""

xqprint "/",trow%,leftborder%+9,fnattr%(fore%,back%)

popwindow trow%,leftborder%+12,brow%,rightborder%+12,1,fnattr%(fore%,back%),0,0,0,""

xqprint CHR$(27),trow%,leftborder%+12,fnattr%(fore%,back%)


''next row

popwindow trow%+3,leftborder%,brow%+3,rightborder%,1,fnattr%(fore%,back%),0,0,0,""

xqprint "4",trow%+3,leftborder%,fnattr%(fore%,back%)

popwindow trow%+3,leftborder%+3,brow%+3,rightborder%+3,1,fnattr%(fore%,back%),0,0,0,""

xqprint "5",trow%+3,leftborder%+3,fnattr%(fore%,back%)



popwindow trow%+3,leftborder%+6,brow%+3,rightborder%+6,1,fnattr%(fore%,back%),0,0,0,""

xqprint "6",trow%+3,leftborder%+6,fnattr%(fore%,back%)



popwindow trow%+3,leftborder%+9,brow%+3,rightborder%+9,1,fnattr%(fore%,back%),0,0,0,""

xqprint "*",trow%+3,leftborder%+9,fnattr%(fore%,back%)



popwindow trow%+3,leftborder%+12,brow%+3,rightborder%+12,1,fnattr%(fore%,back%),0,0,0,""

xqprint "A",trow%+3,leftborder%+12,fnattr%(fore%,back%)


''next row

popwindow trow%+6,leftborder%,brow%+6,rightborder%,1,fnattr%(fore%,back%),0,0,0,""

xqprint "1",trow%+6,leftborder%,fnattr%(fore%,back%)

popwindow trow%+6,leftborder%+3,brow%+6,rightborder%+3,1,fnattr%(fore%,back%),0,0,0,""

xqprint "2",trow%+6,leftborder%+3,fnattr%(fore%,back%)

popwindow trow%+6,leftborder%+6,brow%+6,rightborder%+6,1,fnattr%(fore%,back%),0,0,0,""

xqprint "3",trow%+6,leftborder%+6,fnattr%(fore%,back%)

popwindow trow%+6,leftborder%+9,brow%+6,rightborder%+9,1,fnattr%(fore%,back%),0,0,0,""

xqprint "+",trow%+6,leftborder%+9,fnattr%(fore%,back%)

popwindow trow%+6,leftborder%+12,brow%+6,rightborder%+12,1,fnattr%(fore%,back%),0,0,0,""

xqprint "=",trow%+6,leftborder%+12,fnattr%(fore%,back%)



''ZERO



popwindow trow%+9,leftborder%,brow%+9,rightborder%,1,fnattr%(fore%,back%),0,0,0,""



xqprint "0",trow%+9,leftborder%,fnattr%(fore%,back%)



popwindow trow%+9,leftborder%+3,brow%+9,rightborder%+3,1,fnattr%(fore%,back%),0,0,0,""

xqprint ".",trow%+9,leftborder%+3,fnattr%(fore%,back%)

popwindow trow%+9,leftborder%+6,brow%+9,rightborder%+6,1,fnattr%(fore%,back%),0,0,0,""

xqprint "%",trow%+9,leftborder%+6,fnattr%(fore%,back%)

popwindow trow%+9,leftborder%+9,brow%+9,rightborder%+9,1,fnattr%(fore%,back%),0,0,0,""

xqprint "-",trow%+9,leftborder%+9,fnattr%(fore%,back%)

popwindow trow%+9,leftborder%+12,brow%+9,rightborder%+12,1,fnattr%(fore%,back%),0,0,0,""

xqprint "C",trow%+9,leftborder%+12,fnattr%(fore%,back%)



xqprint SPACE$(15),trow%-2,leftborder%-1,fnattr%(0,7)


initialize



END SUB





SUB initialize



SHARED process_flag%,first#,second#,temp$,calc$,leftborder%,trow%,a$

SHARED row%,col%,multi_flag%,shared_total#,mode_flag%,calc_flag%

SHARED total#,divtotal#,percent_flag%,percent_total#



percent_flag% = %false

percent_total# = %false

col% = leftborder%-1

row% = trow%-2

process_flag% = %false

div_flag% = %false

multi_flag% = %false

total# = %false

first# = %false

second# = %false

a$ = ""

temp$ = ""

shared_total# = %false

mode_flag% = %false

calc_flag% = %false

total# = %false

divtotal# = %false

TIMER OFF



calc$ = SPACE$(14)+"0"

xqprint calc$,row%,col%,fnattr%(0,15)

LOCATE row%,col%+14,1

dataEntry



END SUB







SUB DataEntry


SHARED trow%,leftborder%,rightborder%,brow%,back%,fore%,calcscreen$,row%,col%,calc$

SHARED process_flag%,total#,first#,second#,temp$,calc$,a$,multi_flag%

SHARED shared_total#,mode_flag%,calc_flag%,savecalc$,mode_flag%,percent_flag%

SHARED percent_total#


DO


WHILE NOT INSTAT

WEND



a$=UCASE$(INKEY$)



IF percent_flag% THEN

percent_flag% = %false

SELECT CASE a$

CASE "+"

INCR shared_total#,percent_total#

EXIT SELECT

CASE "-"

DECR shared_total#,percent_total#

EXIT SELECT

CASE ELSE

a$ = ""

shared_total# = %false

ITERATE

END SELECT

END IF



SELECT CASE a$



CASE CHR$(0,66)

restorescreen savecalc$

calc_flag% = %true

blinkon

EXIT FAR



CASE "A"

popwindow trow%+3,leftborder%+12,brow%+3,rightborder%+12,2,fnattr%(15,9),0,0,0,""

xqprint "A",trow%+3,leftborder%+12,fnattr%(15,9)

DELAY .09

popwindow trow%+3,leftborder%+12,brow%+3,rightborder%+12,1,fnattr%(fore%,back%),0,0,0,""

xqprint "A",trow%+3,leftborder%+12,fnattr%(fore%,back%)

process_flag% = 7

CASE "C"

popwindow trow%+9,leftborder%+12,brow%+9,rightborder%+12,2,fnattr%(15,9),0,0,0,""

xqprint "C",trow%+9,leftborder%+12,fnattr%(15,9)

DELAY .09

popwindow trow%+9,leftborder%+12,brow%+9,rightborder%+12,1,fnattr%(fore%,back%),0,0,0,""

xqprint "C",trow%+9,leftborder%+12,fnattr%(fore%,back%)

process_flag% = 6



CASE CHR$(27)

process_flag% = 10



CASE CHR$(0,46)

process_flag% = 7



CASE "="

popwindow trow%+6,leftborder%+12,brow%+6,rightborder%+12,2,fnattr%(15,9),0,0,0,""

xqprint "=",trow%+6,leftborder%+12,fnattr%(15,9)

delay .09

popwindow trow%+6,leftborder%+12,brow%+6,rightborder%+12,1,fnattr%(fore%,back%),0,0,0,""

xqprint "=",trow%+6,leftborder%+12,fnattr%(fore%,back%)



process_flag% = 11

EXIT SELECT

CASE "/"

popwindow trow%,leftborder%+9,brow%,rightborder%+9,2,fnattr%(15,9),0,0,0,""

xqprint "/",trow%,leftborder%+9,fnattr%(15,9)

DELAY .09

popwindow trow%,leftborder%+9,brow%,rightborder%+9,1,fnattr%(fore%,back%),0,0,0,""

xqprint "/",trow%,leftborder%+9,fnattr%(fore%,back%)

process_flag% = 5

EXIT SELECT

CASE CHR$(48) TO CHR$(57)

SELECT CASE a$

CASE "1"

popwindow trow%+6,leftborder%,brow%+6,rightborder%,2,fnattr%(15,9),0,0,0,""

xqprint "1",trow%+6,leftborder%,fnattr%(15,9)

DELAY .09

popwindow trow%+6,leftborder%,brow%+6,rightborder%,1,fnattr%(fore%,back%),0,0,0,""

xqprint "1",trow%+6,leftborder%,fnattr%(fore%,back%)

EXIT SELECT

CASE "2"

popwindow trow%+6,leftborder%+3,brow%+6,rightborder%+3,2,fnattr%(15,9),0,0,0,""

xqprint "2",trow%+6,leftborder%+3,fnattr%(15,9)

delay .1

popwindow trow%+6,leftborder%+3,brow%+6,rightborder%+3,1,fnattr%(fore%,back%),0,0,0,""

xqprint "2",trow%+6,leftborder%+3,fnattr%(fore%,back%)

EXIT SELECT

CASE "3"

popwindow trow%+6,leftborder%+6,brow%+6,rightborder%+6,2,fnattr%(15,9),0,0,0,""

xqprint "3",trow%+6,leftborder%+6,fnattr%(15,9)

DELAY .09

popwindow trow%+6,leftborder%+6,brow%+6,rightborder%+6,1,fnattr%(fore%,back%),0,0,0,""

xqprint "3",trow%+6,leftborder%+6,fnattr%(fore%,back%)

EXIT SELECT

CASE "4

popwindow trow%+3,leftborder%,brow%+3,rightborder%,2,fnattr%(15,9),0,0,0,""

xqprint "4",trow%+3,leftborder%,fnattr%(15,9)

DELAY .09

popwindow trow%+3,leftborder%,brow%+3,rightborder%,1,fnattr%(fore%,back%),0,0,0,""

xqprint "4",trow%+3,leftborder%,fnattr%(fore%,back%)

EXIT SELECT

CASE "5"

popwindow trow%+3,leftborder%+3,brow%+3,rightborder%+3,2,fnattr%(15,9),0,0,0,""

xqprint "5",trow%+3,leftborder%+3,fnattr%(15,9)

DELAY .09

popwindow trow%+3,leftborder%+3,brow%+3,rightborder%+3,1,fnattr%(fore%,back%),0,0,0,""

xqprint "5",trow%+3,leftborder%+3,fnattr%(fore%,back%)

EXIT SELECT

CASE "6"

popwindow trow%+3,leftborder%+6,brow%+3,rightborder%+6,2,fnattr%(15,9),0,0,0,""

xqprint "6",trow%+3,leftborder%+6,fnattr%(15,9)

DELAY .09

popwindow trow%+3,leftborder%+6,brow%+3,rightborder%+6,1,fnattr%(fore%,back%),0,0,0,""

xqprint "6",trow%+3,leftborder%+6,fnattr%(fore%,back%)

EXIT SELECT

CASE "7"

popwindow trow%,leftborder%,brow%,rightborder%,2,fnattr%(15,9),0,0,0,""

xqprint "7",trow%,leftborder%,fnattr%(15,9)

DELAY .09

popwindow trow%,leftborder%,brow%,rightborder%,1,fnattr%(fore%,back%),0,0,0,""

xqprint "7",trow%,leftborder%,fnattr%(fore%,back%)

EXIT SELECT

CASE "8"

popwindow trow%,leftborder%+3,brow%,rightborder%+3,2,fnattr%(15,9),0,0,0,""

xqprint "8",trow%,leftborder%+3,fnattr%(15,9)

DELAY .09

popwindow trow%,leftborder%+3,brow%,rightborder%+3,1,fnattr%(fore%,back%),0,0,0,""

xqprint "8",trow%,leftborder%+3,fnattr%(fore%,back%)

EXIT SELECT

CASE "9"

popwindow trow%,leftborder%+6,brow%,rightborder%+6,2,fnattr%(7%,back%),0,0,0,""

xqprint "9",trow%,leftborder%+6,fnattr%(fore%,back%)

DELAY .09

popwindow trow%,leftborder%+6,brow%,rightborder%+6,1,fnattr%(fore%,back%),0,0,0,""

xqprint "9",trow%,leftborder%+6,fnattr%(fore%,back%)

EXIT SELECT

CASE "0"

popwindow trow%+9,leftborder%,brow%+9,rightborder%,2,fnattr%(15,9),0,0,0,""

xqprint "0",trow%+9,leftborder%,fnattr%(15,9)

DELAY .09

popwindow trow%+9,leftborder%,brow%+9,rightborder%,1,fnattr%(fore%,back%),0,0,0,""

xqprint "0",trow%+9,leftborder%,fnattr%(fore%,back%)

EXIT SELECT



END SELECT

process_flag% = 1

EXIT SELECT

CASE "."

IF RTRIM$(temp$) = "0" THEN EXIT SELECT

IF INSTR(temp$,".") THEN ITERATE DO

IF RTRIM$(temp$) = "" THEN temp$ = "0"



popwindow trow%+9,leftborder%+3,brow%+9,rightborder%+3,2,fnattr%(15,9),0,0,0,""

xqprint ".",trow%+9,leftborder%+3,fnattr%(15,9)

DELAY .09

popwindow trow%+9,leftborder%+3,brow%+9,rightborder%+3,1,fnattr%(fore%,back%),0,0,0,""

xqprint ".",trow%+9,leftborder%+3,fnattr%(fore%,back%)



process_flag% = 1

EXIT SELECT

CASE CHR$(8)

popwindow trow%,leftborder%+12,brow%,rightborder%+12,2,fnattr%(15,9),0,0,0,""

xqprint CHR$(27),trow%,leftborder%+12,fnattr%(15,9)

DELAY .09

popwindow trow%,leftborder%+12,brow%,rightborder%+12,1,fnattr%(fore%,back%),0,0,0,""

xqprint CHR$(27),trow%,leftborder%+12,fnattr%(fore%,back%)



process_flag% = 8

EXIT SELECT

CASE "C","c" 'clear

process_flag% = 6

CASE "-"

popwindow trow%+9,leftborder%+9,brow%+9,rightborder%+9,2,fnattr%(15,9),0,0,0,""

xqprint "-",trow%+9,leftborder%+9,fnattr%(15,9)

DELAY .09

popwindow trow%+9,leftborder%+9,brow%+9,rightborder%+9,1,fnattr%(fore%,back%),0,0,0,""

xqprint "-",trow%+9,leftborder%+9,fnattr%(fore%,back%)



process_flag% = 3



CASE "*"

popwindow trow%+3,leftborder%+9,brow%+3,rightborder%+9,2,fnattr%(15,9),0,0,0,""

xqprint "*",trow%+3,leftborder%+9,fnattr%(15,9)

DELAY .09

popwindow trow%+3,leftborder%+9,brow%+3,rightborder%+9,1,fnattr%(fore%,back%),0,0,0,""

xqprint "*",trow%+3,leftborder%+9,fnattr%(fore%,back%)

process_flag% = 4

EXIT SELECT



CASE "+"

popwindow trow%+6,leftborder%+9,brow%+6,rightborder%+9,2,fnattr%(15,9),0,0,0,""

xqprint "+",trow%+6,leftborder%+9,fnattr%(15,9)

DELAY .09

popwindow trow%+6,leftborder%+9,brow%+6,rightborder%+9,1,fnattr%(fore%,back%),0,0,0,""

xqprint "+",trow%+6,leftborder%+9,fnattr%(fore%,back%)



process_flag% = 2

EXIT SELECT

CASE "%"

process_flag% = 9

popwindow trow%+9,leftborder%+6,brow%+9,rightborder%+6,2,fnattr%(15,9),0,0,0,""

xqprint "%",trow%+9,leftborder%+6,fnattr%(15,9)

DELAY .09

popwindow trow%+9,leftborder%+6,brow%+9,rightborder%+6,1,fnattr%(fore%,back%),0,0,0,""

xqprint "%",trow%+9,leftborder%+6,fnattr%(fore%,back%)

EXIT SELECT

CASE ELSE

ITERATE



END SELECT



SELECT CASE process_flag%



CASE 1

display temp$,a$

CASE 2

addition temp$,a$

CASE 3

subtract temp$,a$

CASE 4

multiply temp$,a$

CASE 5

division temp$,a$

CASE 6

a$ = ""

temp$ = ""

calc$ = SPACE$(14)+"0"

xqprint calc$,row%,col%,fnattr%(0,15)

LOCATE row%,col%+14,1



CASE 7

initialize

CASE 8

temp$ = RTRIM$(temp$)

IF temp$= "" THEN EXIT SELECT

leng% = LEN(temp$)

bs$ = LEFT$(temp$,leng%-1)

temp$ = bs$

temp$ = " "+temp$

IF RTRIM$(temp$) = "" THEN temp$ = "0"

xqprint temp$,row%,col%+(15-LEN(temp$)),fnattr%(0,15)

temp$ = LTRIM$(temp$)

bs$ = ""

leng% = 0

LOCATE row%,col%+14,1

CASE 9

cpercent temp$,a$

CASE 10

restorescreen calcscreen$

blinkon

EXIT FAR



CASE 11

equal temp$,a$



END SELECT







LOOP







END SUB





SUB division (value1$,value2$)



SHARED shared_total#,mode_flag%,divtotal#



mode_flag% = 4



IF shared_total# = 0 THEN

value2$ = ""

display value1$,value2$

shared_total# = VAL(value1$)

divtotal# = VAL(value1$)



value1$ = ""



EXIT SUB

END IF

SELECT CASE VAL(value1$)

CASE <> 0

divtotal# = shared_total# / VAL(value1$)

shared_total# = divtotal#

CASE ELSE

divtotal# = shared_total#

EXIT SUB

END SELECT



value1$ = STR$(shared_total#)

value2$ = ""

display value1$,value2$

'shared_total# = 0

value1$ = ""





END SUB





SUB equal (value1$,value2$)



SHARED shared_total#,mode_flag%,divtotal#



LOCAL total#



SELECT CASE mode_flag%

CASE 1

INCR shared_total#,VAL(value1$)

CASE 2

shared_total# = shared_total#*VAL(value1$)

CASE 3

DECR shared_total#,VAL(value1$)

CASE 4

IF divtotal# = 0 THEN

initialize

ELSE

IF VAL(value1$) = 0 THEN initialize

shared_total# = shared_total#/VAL(value1$)

shared_total#=ROUND(shared_total#,2)

divtotal# = shared_total#

END IF



END SELECT



value1$ = STR$(shared_total#)

value2$ = ""

display value1$,value2$

'shared_total# = 0

value1$ = ""





END SUB





SUB addition (value1$,value2$)



SHARED shared_total#,mode_flag%



mode_flag% = 1



INCR shared_total#,VAL(value1$)

value1$ = STR$(shared_total#)

value2$ = ""

display value1$,value2$



value1$ = ""



EXIT SUB



END SUB





SUB subtract (value1$,value2$)



SHARED shared_total#,mode_flag%



mode_flag% = 3

'IF shared_total# = 0 THEN shared_total# = VAL(value1$)



DECR shared_total#,VAL(value1$)

value1$ = STR$(shared_total#)

value2$ = ""

display value1$,value2$



value1$ = ""



EXIT SUB



END SUB







SUB multiply (value1$,value2$)





SHARED shared_total#,mode_flag%,total#

LOCAL product#,mtotal#

mode_flag% = 2



IF shared_total# = 0 THEN

IF total# = 0 THEN

shared_total# = VAL(value1$)

total# = VAL(value1$)

display value1$,nul$

value1$ = ""

EXIT SUB

END IF

END IF



mode_flag% = 2



IF total# <> 0 THEN



product# = total#*VAL(value1$)

product# = ROUND(product#,2)

value1$ = STR$(product#)

shared_total#=product#

total# = product#

product# = 0

display value1$,nul$

value1$ = ""



END IF





EXIT SUB





END SUB





SUB display (oldkey$,keystroke$)



SHARED row%,col%,mode_flag%

LOCAL new$,errorflag%

errorflag% = %false



IF oldkey$ = "0" THEN oldkey$ = ""

new$ = oldkey$+keystroke$

new$ = RTRIM$(new$)

new$ = LTRIM$(new$)

pad% = LEN(new$)





IF LEN(new$) > 15 THEN

new$ = "OVERFLOW ERROR"

errorflag% = %true

END IF



pad% = LEN(new$)



xqprint SPACE$(15),row%,col%,fnattr%(0,15)

xqprint new$,row%,(col%+15)-pad%,fnattr%(0,15)



oldkey$ = new$

IF errorflag% THEN

oldkey$ = ""

new$ = ""

errorflag% = %false

DO

WHILE NOT INSTAT

WEND

keypres$=UCASE$(inkey$)

LOOP UNTIL keypres$ = "C" OR keypres$ = "A"

initialize

END IF



END SUB







SUB cpercent (value1$,value2$)





SHARED shared_total#,percent_flag%,percent_total#



percent_flag% = %true

percent_op# = VAL(value1$)/100

percent_total# = shared_total#



percent_total# = shared_total# * percent_op#





percent_total#=ROUND(percent_total#,2)



value1$ = STR$(percent_total#)



value2$ = ""



display value1$,value2$



value1$ = ""





END SUB









SUB blinkon



' enable blink

Reg 2,1

Reg 1,&H1003 ' BIOS service to disable/enable blink

Call Interrupt &H10



END SUB







SUB blinkoff



'*** disable blink

Reg 2,0

Reg 1,&H1003 ' BIOS service to disable/enable blink

Call Interrupt &H10



END SUB









DEF FNattr%( fore%, back% )



local temp%

temp% = ( back% * 16 ) + fore%

if fore% > 15 then temp% = temp% + 112

fnattr% = temp%



END DEF



FUNCTION SaveScreen$



REG 1, 15 * 256

CALL INTERRUPT &H10

IF REG( 1 ) - ( REG( 1 ) \ 256 ) * 256 = 7 THEN Address = &HB000 ELSE Address = &HB800

DEF SEG = ADDRESS

SaveScreen$ = PEEK$( 0, 4000 )

DEF SEG

ON ERROR GOTO 0

EXIT function

END FUNCTION





SUB RestoreScreen( S$ )



REG 1, 15 * 256

CALL INTERRUPT &H10

IF REG( 1 ) - ( REG( 1 ) \ 256 ) * 256 = 7 THEN Address = &HB000 ELSE Address = &HB800

DEF SEG = Address

POKE$ 0, S$

DEF SEG

s$ = ""

EXIT SUB

END SUB

Thank you mike.

This is without a doubt the too longest did not readest post I have ever encountered here.

 

[miketx]

Thank you mike.

This is without a doubt the too longest did not readest post I have ever encountered here.

It was the code written for a calculator program. Go back and memorize it and you will be accepted into the club.

 

[ReinyDays]

Thank you mike.

This is without a doubt the too longest did not readest post I have ever encountered here.

miketx is good but this time he really extended himself ... great workmanship ... I scrolled through in amazement ... I've been bested and I just have to accept that ...

 

[miketx]

miketx is good but this time he really extended himself ... great workmanship ... I scrolled through in amazement ... I've been bested and I just have to accept that ...

You understood that code?

 

[ReinyDays]

You understood that code?

No ...

 

[miketx]

No ...

It's part of a program I wrote over 30 years ago. When certain keys are pressed it makes a calculator pop up.

 

[ding]

It's part of a program I wrote over 30 years ago. When certain keys are pressed it makes a calculator pop up.

If it was a clit that popped up instead you would have been onto something.

 

[miketx]

If it was a clit that popped up instead you would have been onto something.

Fake clits are very life like especially when they do math.

 

[itfitzme]

Axioms in the mathematical sense are needed only by swindlers and fools. The church did the same in its Creed. The scientific method rejects abstract speculation.

Um, unless you know everything about everything then axioms are necessary.

In math, there are five axioms. As you know it is a mathematical statement which we assume to be true. Thus, the five basic axioms of algebra are the reflexive axiom, symmetric axiom, transitive axiom, additive axiom and multiplicative axiom.

What do you think your are talking about?

 

[itfitzme]

We need more nonsense that no one will understand. Feel free to continue.

I can explain it to you but I can' understand it for you.

 

[itfitzme]

Is mathematical logic formal logic? Is it reducible to language and its grammar?

No, it wouldn't be "reducible". To say the least, it's the opposite. One of the major points in mathematics is to reduce equations to an irreducible form. You can't reduce something that is irreducible.

This is the current formula for the theory of everything,

That would be the irreducible mathematical expression of all of physics, ergo, all of everything. To express that in prose would is all the known science written in every science experiment. That formula expands into prose, not reduces to prose.

 

[miketx]

We need more nonsense that no one will understand. Feel free to continue.

Then get the hell out of here!