XTREME PROGRAMMING THOUGHT

BY
PHILOSOPHER PHILOCRAZY

Who made Who?
the EGG the CHICKEN or the CHICKEN the EGG

BASIC"S LINE drew the box
or
PHILOCRAZY"S BOX drew the line

"Head start and order has no longer meaning and logic
to support it at the omnipotence level"

My original box example can do what BASIC'S LINE can and
much more by using the line as slave and no longer needing it
the box routine is now part of BASiS the language of omnipotence

This is How OSs will be enslaved in the future
by Architektony and BASiS the science and language
of programming thought and literature


---------------------------code------------------------------------
VERSION 5.00
Begin VB.Form Form1
AutoRedraw = -1 'True
BackColor = &H80000009&
Caption = "Form1"
ClientHeight = 5385
ClientLeft = 60
ClientTop = 345
ClientWidth = 6720
LinkTopic = "Form1"
ScaleHeight = 5385
ScaleWidth = 6720
StartUpPosition = 3 'Windows Default
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Public col As Long 'my code starts here


'the routine/call imlementation that mirrors BASIC'S LINE
Sub box(x1 As Integer, y1 As Integer, x2 As Integer, y2 As Integer, fill As Boolean, color As Long, Optional lin As Variant)

If IsMissing(lin) Then 'lin arg is optional if included box draws line instead of rectangles
If fill = False Then
Form1.Line (x1, y1)-(x2, y1), color
Form1.Line (x1, y1)-(x1, y2), color
Form1.Line (x1, y2)-(x2, y2), color
Form1.Line (x2, y2)-(x2, (y1 - 1)), color
ElseIf fill = True Then
If y1 < y2 Then
For i = y1 To y2
Form1.Line (x1, i)-(x2, i), color
Next
ElseIf y1 > y2 Then
For i = y2 To y1
Form1.Line (x1, i)-(x2, i), color
Next
Else
Form1.Line (x1, y1)-(x2, y2), color



End If
End If

Else
Form1.Line (x1, y1)-(x2, y2), color


End If
End Sub




Private Sub Form_Load()'program exec the place to make line and box calls

Form1.DrawMode = vbPixels
Form1.ScaleMode = vbPixels


Form1.ForeColor = vbBlack
'col = RGB(0, 0, 255)
col = QBColor(11) '0-15 values
box 40, 40, 200, 200, 1, col
col = QBColor(14) '0-15 values
box 60, 60, 400, 300, 1, col

col = QBColor(15) '0-15 values
box 0, 240, 400, 300, 1, col, l 'this call draws a line because the line arg is included
'the routine only looks whether the arg is passed whats passed is not important
'Form1.Line (10, 10)-(100, 60), 56



End Sub


---------------------------code------------------------------------



I have extended the BASIC language by creating a LIBRARY of thought
native to BASIC in .BAS modules

The LIBRARY is based on Programming thought and literature that
embraces thought even on programming languages common to all too

Thus creating the language of languages
BASIC + PhilocrazyLIBRARY = BASiS-the language of Architektony
Architectony-science of programming thought and literature

BASiS-the language of simplicity and omnipotence

OPP was devised out of OSs such as WINDOWS,it is not a programming
philosophy,it was created to accomodate the OS in dealing with
mannaged processes.

Languages such as BASiS, being crazy in nature can create omnipotence
by invoking logic OSs keep HIDDEN/CODED from the applications
,thus taking control of OSs and act themselves as Master-OSs

BASiS is the only OS!!!!

now who is the Master and who is the Slave
simplicity-BASiS or COMPLEXITY-OOP



IF YOU FIND ALL THIS CRAZY
I suggest you go play with VB Controls and Visual Objects
What's crazy can not be seen
There is nothing visual but the visions called vision
All visions submit to one,THE vision
And THE vision can only be seen by one,THE Master of VISION

PHILOSOPHER PHILOCRAZY