q b a s i c p p o g r a m s [LONG!]

ken collins kckpaulc at aol.comABCXYZ
Sun Nov 7 07:46:21 EST 1999


about the QBASIC programs...

they run under the Windows (any) and MSDOS environments.

if you want to work with the QBASIC programs, capture the first 4 files in this
thread, and place them in a newly-created working directory.

the QBASIC interpreter is not installed when Windows 98 & 95 are installed, but
you can find it, and its '.HLP' file on your Windows 98 installation CD in the
\Tools directory. on the Windows 95 CD, the files are in the \Other\OLDmsdos
directory.

copy the files to your newly created directory, right-click on the 'Qbasic.exe'
file, and drag it to your desktop.

if you want to use QBASIC's 'high-resolution mode (to see more lines per
screen), right-click on the shortcut, select 'Properties' from the drop-down
menu, and, on the "Target" line, add a "/h" (sans quotes), at the end of the
line (OK to leave a <space>), but before the ending quote.

double-click your shortcut to see if everything's working.

QBASIC, is old, but is =still= a nice environment for 'quick and dirty'
programming. you can still find books in places like Barns & Noble and Borders.
if you don't program, you really owe it to yourself to have some fun learning
how to, and the QBASIC programing environment is a good place to test the
waters.

(even if you're not interested in the QBASIC programs i've made available to
you, =if= you don't already own a 'visual' programming language, you should set
up the QBASIC programming environment for your Children to use, and encourage
them to do so... buy them a book (with lots of useful example code) to help
them get started. (if you own a visual programming language, stick with it (but
these QBASIC programs won't run in it... they can be converted, but it's a bit
of an undertaking because the languages are so different.) if you skip the
QBASIC stuff, i recommend you still purchase a visual language, like Visual
Basic Learning Edition for your Children be aware, though, that VB is
more-'involved' than QBASIC... QBASIC is a much easier learning environment if
all you want to do is shuttle variables around among 'pigeon-holes' (which is
all 'programming' is). 'visual' languages produce pretty and =powerful=
interfaces easily, but there's more stuff that needs to be learned and kept
straight... but help your Kids see that there's more to using a computer than
'playing games' and jumping around on the WWW... with just a little learning
overhead, programming is an immense joy... and your Child might take to it in a
way that will allow her/him to fund your retirement when she/he remembers that
'"it's all because you cared enough to open up the door to programming for
them". be aware, though, that each programming environment has its own
'inertia', that accumulates as a result of the learning involved. if your Child
wants to go into programming professionally, Visual C++ is much more marketable
than is VB, but it's also a more-difficult to expertise. i like VB, and have
rarely come across anything that "can't" be done in it (only in interfacing
with the proprietary stuff of other languages).)

if you're not interested in the QBASIC programs, bail out here.

you'll be able to edit the files in Notepad (or Wordpad)... i'd originally
created just one file to UL, but because of an apparent NG file-size limit, had
to break it up into the 4 files that appear first in this thread. when you read
each of the first 4 msgs, do a 'Save As' '.txt' to the new directory you
created for the QBASIC files.

then edit the files as follows.

SPHY.BAS is the program i talked about recently. it does a crude simulation of
the SSW<->UES harmonics, displays the nonlinearity graphically, plots the
'quantum numbers' of Hydrogen, and displays the Hydrogen spectrum.

what's being simulated is a 'constanct' quantity of stuff, nevertheless
undergoing 'compression'. the program is exceedingly-rich because it invokes
the 'nonlinearity of perspective' that's discussed in a footnote of AoK, Ap5
(the one with the ' telephone pole, 'dump truck, and 'merry-go-round').

all of the programs i've made available share this sort of 'richness'. they're
actually 'toolkits' for exploration. however, they remain as i wrote them for
myself. they're definitely not 'fancy'. part of the reason for that is that all
but SPHY.BAS were written on an old 8-bit CPM machine that had no graphics...
hence, the ascii-'graphics' stuff. it's sufficient because the purpose of the
programs is just to make the 'difficult' underlying concepts plain-to-see.

since i wrote the programs for my own use (i was going to use them to show
folks the 'difficult' underlying concepts, but have never had an opportunity to
do so), they are not 'user-friendly'... i knew what i was doing, and i like to
keep things to a bare-minimum, which makes the code more-flexible in terms of
being an toolkit for exploration... what i'm saying is that you'll have to get
in-there, and Think, cause the code doesn't 'hold your hand'.

breakout SPHY.BAS... open a new copy of Notepad, edit the first file in this
thread in Notepad by double-clicking on it.

hilight the lines between:

'b e g i n s p h y . b a s -------------------------------------------------'

and

'e n d s p h y . b a s -----------------------------------------------------'

copy the lines by hitting Ctrl+c.

flip to the other copy of Notepad, and hit CTRL-v.

save as 'SPHY.BAS'.

if your browser saves even '.txt' files with embedded HTML code, such as "<BR",
yhe easiest solution is to reset your browser to save as text, else you'll have
to strip all such HTML stuff out or the programs won't run. if you choose to do
such, it's better to use an editor other than Notepad because Notepad doesn't
have a 'Search & Replace' function... Wordpad does.

to run the program, double-click your QBASIC shortcut, and select 'File' +
'Open', and navagate to the new directory where you saved 'SPHY.BAS'.
double-click 'SPHY.BAS'. the file will open. hit 'F5' and it will run.

when you see an 'e' in the upper-right corner of your screen, if you hit <e>,
the program terminates and you go back to the QBASIC environment. if you hit a
<space>, the program runs it's next step, or begins anew.

repeat for:

'b e g i n n o n c o n e . b a s -------------------------------------------'

which is one of the 'nonlinear perspective' programs that are referenced in
AoK, Ap6. (the paper version includes screen shots). i've noticed that i didn't
UL the 'NONREL.BAS' program. i'll see if i've got a copy of it on-hand and UL
it if i do. it's a necessary companion to the 'noncone' program (actually
more-disclosing than is 'noncone'. 'noncone' shows the same stuff as 'nonrel',
but is at a higher-'level', which obscures things, if one doesn't know what's
happening, which is what's disclosed in 'nonrel'. (it's all been in the paper
version of AoK all along, so there's nothing 'new' being disclosed.)

repeat for:

'b e g i n I C E D I T . B A S'

'ICEDIT.BAS' is an extremely quick & dirty editor for the 'image' data that's
used in the main 'INFOCALC.BAS' program. the problem that necessitated this
editor was that the 'images' (which are just 5 x 5 arrays) had to be stored
random-access, so that any image could be selected for analysis. 'ICEDIT.BAS'
builds these data files. (i have examples of these files, but the random-access
stuff includes non ascii characters, which would probably not UL successfully.
(i've not tried. if anyone knows a way these files can be UL'd, please msg
back... the NG doesn't(?) allow '.zip' attachments, which would be the ideal
way to do =all= of this.) (or does it? i'll be glad to UL a 'package' if '.zip.
files can be UL'd.)

anyway, using 'ICEDIT.BAS' is a pain in the backside... which didn't matter to
me because it was a one-use program. what you do is place an "*" where you want
an image element to exist. i used this to do the alphabet, which allowed me to
demonstrate Information Calculus with a symbolic base, which means that it's
verified that the Maths scales-up as is briefly discussed in AoK.

so, unless there's another way to UL stuff to the NG, if you want to see
Information Calculus in action, you'll have to 'bite the bullet', and endure
the 'agony' of working with ICEDIT.BAS (it's worth the 'trouble')

BTW, 'ICEDIT.BAS', and other programs, still are coded with the print-control
functions of my old C.Itoh 8510a dot-matrix printer. if you want to use the
print functions, you'll have to fiddle, which is pretty hard to do with
up-to-date printers because they don't ship with the necessary information. an
easier way to print is to use a screen capture program like "Print Screen".
just run the programs and print any screens that you want to print. (this won't
work in some instances, such as the printing of the derivatives in the
'INFOCALC.BAS' program, though.)

that's the end of the stuff in the first msg. so open the 2nd msg in Notepad
(or Wordpad).

skip 'RELMO.BAS' for now. it uses 11 x 11 arrays, and i forgot to UL the editor
that bulids them. (when i started out on the old 8-bit CPM machine, i wanted to
work with 11 x 11 arrays. 'RELMO' was one of the first things i did. the 8-bit
machine was so slow that i trimmed-back to 5 x 5 arrays. i've been wanting to
do 'modern' versions of all of these programs. recently purchased an
inexpensive digital camera to get-into-it, but i've no 'time' to do it...
thought i'd get an opportunity by long-ago, but there's been none... so you'll
just have to use my old, quick & dirty prototype code if you want to understand
the concepts. i'm not going to use the camera... forgot the machines aren't
'mine', and the programming is difficult, and i don't want to experienc getting
1/2 or 3/4 of the way through-it, only to have all the work 'blow-up' in my
face... which is what happens (please remember i've earned my living as a
professional programmer for the past 22 years... the 'blow-ups' don't happen
because of anything i do. i program very-conservatively, =always= keeping a
clean 'line-of-sight' through my work... like my Father's ugly, but sturdy,
chairs. i program this way because everything i do is as a toolkit for
exploration and going further... gotta keep the clean 'line-of-sight', or the
going-further becomes unwieldy... the side benefit, to which i refer, here, is
that, when the thing 'breaks', the cause of the 'break' is always
self-disclosing, and self-documenting.)

anyway, open the 3rd msg.

' b e g i n c r u d e I n f o C a l c B A S ------------------------------'

copy to the end of the msg.

save the file, then highlight the following, and strip it out:

REM $DYNAMIC
SUB SortNewDerivs

SHARED ITM%(), NEWITM%, NEWITM$, Dups%, TRACE$

     ' DESCENDING ORDER (LARGEST=1ST OCCURRENCE)
     NEWITM$ = "N": Dups% = 0
     FOR I% = 1 TO NEWITM% - 1
       IF TRACE$ = "Y" THEN LOCATE 27, 1: PRINT "sorting NEW Derivative
file..."; I%: IF SNORE% = 1 THEN SLEEP 1
       FOR K% = 1 TO NEWITM% - I%
         T% = 0: Dups% = 1
         FOR J% = 25 TO 1 STEP -1

when i broke up the all-in-one file, i had to hurry, so this code is duplicated
in the 4th file, and, so, it needs to be stripped out at this point.

also, i just noticed that, because the NG msgs word-wrap, there are some lines
that are broken. you'll have to join these lines to get the programs to run. i
use long lines so that i can fit a lot on my screen vertically... write the
code, debug, then 'stash' it on one line, so it doesn't needlessly take up
screen space (remember, i was using that old CPM machine. all these programs
have been converted for MSDOS, but i didn't waste 'time' making the code
'pretty' now that i've got a bunch of 17 inch monitors. you might want to do
that.

open uo the 4th file and highlight from the top (skipping any 'header' info)
down to:

' e n d c r u d e I n f o C a l c . B A S ------------------------------'

copy it onto the end of the InfoCalc program and save the patched-together
thing.

because i sent it to Dr. Marijuan, so he could have access to it with respect
to his book commenting on AoK's stuff, 'INFOCALC.BAS' is in better shape than
the other programs, but you'll have to play with it, a bit, before you get the
hang of it.

the rest of this msg is a data file. trash it. it's a 'nice-to-have', but
unnecessary file because it's an output file of the InfoCalc program... old
'memories' that the program recognizes as being 'old memories'... but you can
produce the same sort of file the first time you execute the InfoCalc program,
so don't bother with this data.

if you make changes to any of the programs, don't forget to make your changes
in a copy of the '.BAS' files you've built, so you can fall-back to the
originals if need-be.

if there're questions, i'll address them. but i'd rather do-it in-person. i can
write a bookshelf of books on what's in these programs... and it's much-more
efficient to just do-it in-person.

the copyright and licensing statements of the first msg apply to all 4 msgs,
because, as i've explained, the all-in-one msg had to be broken-up for UL-ing.

ken (K. P. Collins)

[Happy 89th Birthday, Mom... say Hi to God for me... and wish Madame Curie a
Happy 132nd Birthday, on this, the 194th Anniversary of Lewis and Clark's
sighting of the Pacific, through the Tender Mercies of Sacajawea. ken]




More information about the Neur-sci mailing list