# Older blog entries for AArthur (starting at number 15)

Okay, this qbasic shit in Advanced Computer class is really getting on my nevers. Especially how you declare strings with a \$ at the end of stuff. I much prefer the way bash works. Luckly this is my final qbasic project. I plan to make it my last one (assuming I don't have to do this crap in college).

Here is another lame qbasic program I did for my beginning programming class:

```'Formula Program

CLS

choose:
PRINT
PRINT "            finUN - (c) 2000, Andrew Arthur, BSDL"
PRINT
PRINT "This program finds the area of a variety of shapes."
PRINT
PRINT "Type of Shape Your Finding Area of:"
PRINT "     1) Circle"
PRINT "     2) Square"
PRINT "     3) Rectangle"
PRINT "     4) Triangle"
PRINT "     5) Octogon"
PRINT "     6) Oval"
PRINT "     7) Exit finUN"
PRINT
PRINT "Note: Hitting Return will Quit This Program."
PRINT

INPUT "Type of Shape: ", shape\$
PRINT

IF shape\$ = "1" THEN GOTO cir
IF shape\$ = "2" THEN GOTO squ
IF shape\$ = "3" THEN GOTO rec
IF shape\$ = "4" THEN GOTO tri
IF shape\$ = "5" THEN GOTO oct
IF shape\$ = "6" THEN GOTO ova
IF shape\$ = "" OR shape\$ = "7" THEN GOTO intheend

CLS
PRINT "           INVALID Value!       "
PRINT ""
PRINT ""
GOTO choose

cir:
INPUT "Diameter of the circle: ", diacir
INPUT "Units: ", unitcir\$
diacir1 = diacir ^ 2
diacir2 = diacir1 * 3.14
PRINT "The Size of the Circle is: "; diacir2; unitcir\$; "
Squared"
SLEEP 100000
devnull\$ = INKEY\$
CLS
GOTO choose

squ:
INPUT "Length of Square: ", sqrl
INPUT "Width of Square: ", sqrw
INPUT "Units of Measurement: ", unitsqr\$
arsq = sqrl * sqrw
PRINT "Area of the Square is: "; arsq; unitsqr\$; " Squared"

SLEEP 100000
devnull\$ = INKEY\$
CLS
GOTO choose

rec:
INPUT "Length of Rectangle: ", recl
INPUT "Width of Rectangle: ", recw
INPUT "Units of Measurement: ", unitrec\$
arec = recl * recw
PRINT "Area of the Square is: "; arec; unitrec\$; " Squared"
SLEEP 100000
devnull\$ = INKEY\$
CLS
GOTO choose

tri:
INPUT "Length of Rectangle: ", recl
INPUT "Width of Rectangle: ", recw
INPUT "Units of Measurement: ", unitstri\$
arei = (recl * recw) / 2
PRINT "Area of the Square is: "; arei; unitstri; " Squared"
SLEEP 100000
devnull\$ = INKEY\$
CLS
GOTO choose

oct:
PRINT "This finds the parameter of an Octagon with sides
all of "
PRINT "the same lenght."
PRINT
INPUT "What is the length of ones side of the Octagon: ";
oct1
INPUT "Units of Measument: "; octmeas\$

oct2 = oct1 * 8
PRINT "The size of the Octagon's Parameter is: "; oct2;
octmeas\$; " Squared"
SLEEP 100000
devnull\$ = INKEY\$
CLS
GOTO choose

ova:
INPUT "What is the diameter of the Oval: ", diaova
INPUT "Units:", unitcir\$
diaova1 = diaova ^ 2
diaova2 = diaova1 * 3.14
PRINT "The Size of the Oval is: "; diaova2; unitcir\$; "
Squared"
SLEEP 100000
devnull\$ = INKEY\$
CLS
GOTO choose

intheend:
CLS
END
```
16 Nov 2000 (updated 16 Nov 2000 at 04:12 UTC) »

First off, I want to appologize for the stuff that's been going on down at iMacLinux.net. I have no control over it (nor does any of the iMacLinux staff), I don't even have an shell at the machine at question.

What's going on? Sourceforge's mysql database is reguluarly refusing connections. Nope, the iMacLinux engine written by Stew Bendict, stores it's data in this database, and it's essential for it's proper operation. He has sent in a help request to Sourceforge, but it has yet to be anwsered.

So where does that leave us? For now, the site will be hard to access at times, try reloading the page. Sorry. In the very near future, John will be hosting this site on his own machine, that he will have full (root) control over. The only problem to expect with this, is it is on a somewhat limited bandwidth -- which shouldn't be a problem, except due to Slashdoting problems.

In short, this is what's happened over the past week:

• New News Articles on iMacLinux (Me)
• Work on Preparing the New Box (Stew, John)
• Work on Yaboot GH Again (Me)

Now the rest of what's going on with my life. Finished up Personal Fitness Merit Badge. Very Happy to have it done. Haven't been on the 'ride' lately.

Work on Eagle Scout is starting to wrap up -- it's about time, as I need to have it into council by early December. All I have left is:

• Family Life Group Project - Probably A Family Video
• Family Life Family Council
• Get Final Approval on Eagle Project by Town Supervisor Mr. Rapp

On the Window Manager front, I have decided to change from KDE 2 to Blackbox + GNOME apps, at least for now, for speed reasons. I may go back in the future, I haven't decided for sure. I also messed around with my pppd stuff, so it now dials up on demand (and disconnects upon idle). That's neat.

• Sorry, I meant to get this up last night, but I feel asleep.

Here is a rundown of stuff I've been working on over at iMacLinux.net:

• Some new Howtos. See iMacLinux Guides and Howtos for details. New ones include the Xpmac one, fbset. We do need an X11 catgory. I could add one, except I don't have an scp account on the iMacLinux machine yet.

• News articles. Although it's been slow lately. I've been trying to avoid the whole PenguinPPC vs. LinuxPPC.org stuff, if you can't tell. I did post an article about that, and well one of the sides (the PenguinPPC people) weren't exactly thrilled about it, so I removed it.

• Sidebar stuffs. I'm trying to organize the sidebar. I have to talk to staff@imaclinux.net later about what exactly they want to do about that.

Other stuff going on at iMacLinux, is John Buswell is still working on getting the SDSL line to run the site on, the machine he is going to be running it on is almost up and working.

PenguinPPC linked us last week. Cool.

I'm considering volunteering to help out on the LinuxPPC.org site soon. Time is the big thing there. I'm looking at the Desktop Enviroments part, and possible some other sections.

PenguinPPC is looking for a new look and feel. Take a look at the choices from here, and send a email to Jeramy Smith on what you think.

• Wow. It's November already. I just got back from the Scout meeting, it was quite suprising the number of deer on or next to the road. And yes, you can tell it's November in Clarksville, due to the wood smokey, cow shitty heavy air. Which reminds me, I have to get my butt together on this scout stuff.

Yes, my TI-89 came on Monday. Halloween was awsome (yes, I stayed home and slept through it). I had great fun on the Copland Hill Campout.

On the iMacLinux front, the sidebar is being redone, and some of the howtos and guides have been updated or added. PenguinPPC, added a link to the site in their sidebar. Hopefully soon I'll be doing more stuff with that site, especially if John comes up with ideas on how to work together.

The whole LinuxPPC.org vs. PenguinPPC.org is very stupid if you haven't heard already. Last week these sites split apart, due to silly bickering (over the fact that Jeramy wouldn't give Jeff Carr an account on PenguinPPC). Kids, it's time to grow up. Jeff isn't out there to turn PenguinPPC into a advertisement for LinuxPPC. Heck, he has been grumbling about making LinuxPPC, Inc. into a non-profit. Of course an interactive kind of thing would be cool, but Jeramy feels that would be a security risk.

I've decided not to take sides on this issue, and generally ignore it to whatever extent possible. That said, I'm siding more with Jeramy Smith on this issue, mainly because PenguinPPC has the developer backing. Okay, enough of this stuff.

The good news is Turkey day is coming closer and closer. Yum. Prades, Turkey, Stuffing, Gravy, "It's a Wonderful Life" are all on my mind. I'm taking the SAT's on Saturday, if you cared.

Sunday Morning, 1:25 - How does feel... to be on your own, like a rolling stone?

Still waiting for that damn TI-89 calculator I ordered to arrive. I've been waiting for more then two weeks -- something that was suppost to be here in 2 to 4 days. Blah.

I actually used my CD burner tonight, to do something besides play with CD-RWs. I burned an Audio CD of a bunch of different music -- a mix -- it's cool. I've only had this drive for 3 months -- about time I use it :P

Lately, I've been fiddling around with Linux 2.4-test10 on the PowerPC. It seems pretty stable, and devfs rocks. Speaking of that, expect soon a G&H on iMacLinux about devfs. Now that the mess with atyfb is fixed, I'm happy again.

Jeff Carr of LinuxPPC fame called me on Wensday to let me know what's up with LinuxPPC.org. Somehow talking to him in person was kind of neat. Most of the stuff he had to say wasn't important or related to me, but it was nice of him to call.

Oh, as always, we are looking for people to helpout -- especially on CubeLinux and PowerMacLinux sites -- which need some work. Hey, it wasn't my idea to add them <grin>. Actually, I think it's cool having themed sites like that.

Rsync has changed around over at penguinppc (its now the main site for Linux-Pmac). At least now it works -- try rsync -avz penguinppc.org::linux-pmac-devel /usr/src/linux.

I went out for a nice drive today, the scout stuff is comming along nicely too. (But I really need to get my butt in gear). I have some homework -- gasp -- to do before Monday. Sunday Night, 9:00 PM seems like a good time to start.

Oh, if you want some Greenville, New Yak humor, take a look at PunksofGreenville. Then again, you would probably have to be in Orris' Class to understand it.

I should go to bed soon, it's getting late.

Two weekends till the Copeland Hill Camping Trip that I'm going on, and that weekend I get a free extra hour -- the clock goes back an hour.

38 days, to the best day of the year. That's Turkey Day -- I can taste it already. Lets not forget those wonderful thanksgiving day prades, and "It's a Wonderful Life" on CBS. This is truely the best day of the year. Also, it should be noted, that Christmas is 68 days away, and that y2k+1 is 74 days away. Yum.

Some new stuff on iMacLinux. Tommorows a monday. Oh well. Listening to the American Gold Christmas Edition 1997 (put on HI-FI video tape, so I don't have to keep flipping/changing the tape).

<rant> KDE 2.0 is not bloated. It's full featured. If you don't compile in exceptions, it even decently fast on an older machine -- like my PowerMac 4400, with it's 200 Mhz processor and 32 MB of RAM. If you have a slower machine, with little RAM, run Blackbox or the console, and stop complaing. I can't stand people who whine. </rant>

So in theory, KDE 2 is suppost to be out this week. Awsome.

There is some new stuff on iMacLinux, and now along with the rest of the team, I'm working on getting PowerMacLinux.net ready. Cool.

13 Oct 2000 (updated 14 Oct 2000 at 04:13 UTC) »

Okay here is my useless, but still (I guess) basic program. It was done for a class assignment, it's very lame. Probably is fairly portable, as it doesn't do anything fancy -- just stdio stuff. Grr.. Of course, I screwed the line length up on this, so Advogato doesn't do it right. Oh, well.

All Hail Friday!

Yes, I dug up (and added) a few new stuff to iMacLinux. This weekend, I'll be busy working on Family Life MB.

```' quik.conf generation program
' (c)2000, Andrew B. Arthur (aarthur@imaclinux.net)
'
' This program is portable, AFAIK, it should compile
' cleanly in qbasic, MacBasic, ChipMunkBasic, any
' probably others. <grin>

' Declare Hard Coded Variables Here:

aliasarg\$ = "bye" 'This is the bye command. You
don't
really need it
'unless you are using a boot menu. Most
people will
'just want bye, so we hard code it.

' In case we need to change the syntax.
append\$ = "append="
boot\$ = "boot="
root\$ = "root="
alias\$ = "alias="
ramdisk\$ = "ramdisk="

' Internationalization Stuff
samplei8n\$ = "People translating this program needs to
change these"
thisprogrami8n\$ = "This program generates a sample
quik.conf"
kernelandparti8n\$ = "Kernel and Partition Configuration"
year\$ = DATE\$
detailsonthislicense\$ = "Details on licensing can be found
at"

' Introduce the user to the program.
'COLOR 0, 7  ' purty colors. No, I can't spell. Don't make
fun of me.
COLOR 0, 7
CLS
PRINT "        ", thisprogrami8n\$
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT "Copyright (c)"; year\$; ", Andrew B. Arthur
(aarthur@imaclinux.net)"

' Delay So People Can Read The Screen
SLEEP 5
thisisnothing\$ = INKEY\$

CLS
PRINT "                ", kernelandparti8n\$
PRINT ""

' RAMDISK or DISK

PRINT "You can either set it to boot from a"
PRINT "ramdisk (for installing or floppy booting)"
PRINT "or from a a regular Hard Drive."
PRINT ""
PRINT "NOTE: You must use standard UNIX conventions."
PRINT ""

INPUT "Boot from a [r]amdisk or [h]ard Drive?
[h/r]";
ramordiskque\$
IF ramordiskque\$ = "h" THEN GOTO 80
IF ramordiskque\$ = "r" THEN GOTO 70

'ramdisk size
70 INPUT "Ramdisk Size (In MB):"; ramdiskmb
ramdiskkb = ramdiskmb * 1024
rootpart\$ = "/dev/ram"
GOTO 90

'root partition
80 INPUT "What is your root partition [from pdisk, in
standard /dev/blah fromat]"; rootpart\$
IF rootpart\$ = "0" THEN GOTO 90
PRINT ""

'Kernel Location
90 INPUT "Where is the kernel located [/boot/vmlinux]";
kernelpath\$
IF kernelpath\$ = "0" THEN
PRINT "     ... no path specfied, defaulting
to /boot/vmlinux"
kernelpath\$ = "/boot/vmlinux"
GOTO 100
END IF

100 CLS
PRINT "                 Video Card                   "
PRINT ""
PRINT "This screen chooses what video card you have."
PRINT
PRINT "You will be prompted if you have a certain card."
PRINT "If you do, say [y]. If not, say [n]."
PRINT
PRINT "If you don't see your driver, at the end of the list"
PRINT "you will be prompted to restart the list, or
manually"
PRINT "enter in the name of your Frame Buffer driver."

' ATI Mach64 CX or GX
110 INPUT "Do You Have a ATI Mach64 CX or GX [n/y]?"; atyfb\$
IF atyfb\$ = "y" THEN
video\$ = "video=atyfb"
GOTO 200
END IF
IF atyfb\$ = "n" THEN GOTO 120

' ATI Mach64 VT
120 INPUT "Do You Have a ATI Mach64 VT [n/y]?"; atyfb24\$
IF atyfb24\$ = "y" THEN
video\$ = "video=atyfb"
COLOR 4, 7
PRINT "Warning: Requires Linux 2.4 to Get Good
Video"
COLOR 0, 7
GOTO 200
END IF
IF atyfb\$ = "n" THEN GOTO 130

' ATI Rage 128
130 INPUT "Do You Have a ATI Rage 128 (Any Version)
[n/y]?"; aty128fb\$
IF aty128fb\$ = "y" THEN
video\$ = "video=aty128fb"
GOTO 200
END IF
IF aty128fb\$ = "n" THEN GOTO 140

' Twin Turbo II (for PCC Machines)
140 INPUT "Do You Have a Twin Turbo II (on PowerComputing
Machines) [n/y]?"; twintrbfb\$
IF twintrbfb\$ = "y" THEN
video\$ = "video=txyfb"
GOTO 200
END IF
IF twintrbfb\$ = "n" THEN GOTO 190

' Exausted Choices
190 PRINT ""
PRINT "Sorry, No More Choices Left."
PRINT ""
PRINT "Do You Want to [re]start the List or [man]ually
Enter"
INPUT "the FB Driver Name [re/man]?"; exhaustrestartfb\$
IF exhaustrestartfb\$ = "re" THEN GOTO 100
IF exhaustrestartfb\$ = "man" THEN
PRINT
INPUT "Enter Your Frame Buffer Driver's Name [such
as atyfb]:"; manfb\$
video\$ = "video=" + manfb\$
END IF

' Video Resolution
200 CLS
COLOR 2, 7
PRINT "                Video Resolution                "
COLOR 0, 7
PRINT ""
PRINT "Your Resolution, is the number of pixels"
PRINT "that will appear on your screen. A larger"
PRINT "value will make text smaller, but let you"
PRINT "put more on it, a smaller one will do the"
PRINT "opposite. "; ""
PRINT ""
PRINT "You may choose between 640x480, 800x600 and"
PRINT "1024x768. All values give you a 75 Hz Refresh."
PRINT
INPUT "Horizonal Resolution:", hzres\$
' Table of Resolution
IF hzres\$ = "1024x768" THEN hzres\$ = "18"
IF hzres\$ = "800x600" THEN hzres\$ = "13"
IF hzres\$ = "640x480" THEN hzres\$ = "12"

' Video Colors
CLS
COLOR 2, 7
PRINT "               Video Colors "
COLOR 0, 7
PRINT " "
PRINT "The number of colors you want to display"
PRINT "on your screen can be set below."
PRINT ""
PRINT "Most likely you will want to use the"
PRINT "highest number your screen supports."
PRINT ""
PRINT "Using too high of a value, will cause"
PRINT "you to get a blank screen upon boot."
PRINT ""
PRINT "For most people, they will want a value"
PRINT "of 32 (32 BPP = Millions of Colors)."
PRINT "If you have only a few MB of VRAM then"
PRINT "you should probably use 16"
PRINT "(16 BBP = Thousands of Colors)."
PRINT ""
PRINT ""
150 INPUT "Colors [16]:", hzcol\$
IF hzcol\$ = "0" THEN GOTO 150

CLS
PRINT ""
LINE INPUT "Any other kernel arguments?  "; kernelarg\$

'Let's do some more cating, so to get this together.

kernelargsfull\$ = append\$ + "'" + video\$ + ":" +
hzres\$
+ ":" + hzcol\$ + " " + kernelarg\$

'Config Screen
CLS
PRINT TAB(40); "Generating Configuration..."

'Let's milk the sleep command again
'FOR t = 1 TO 500000 'Delay Loop
'   NEXT t
SLEEP 5
anotherstupidcasttonowhere\$ = INKEY\$

'Introduce the user
COLOR 0, 7
CLS
PRINT "Below is a sample configuration file, you can cut
and"
PRINT "paste into another program."
PRINT ""
PRINT ""
PRINT ""
PRINT ""

'Give them the data
COLOR 4, 7
PRINT "#Sample quik.conf"
PRINT "#Created by Yalamequik"; " on "; DATE\$
PRINT boot\$; kernelpath\$; ""
PRINT root\$; rootpart\$
' Replace this with the cating one:
'PRINT append\$; video\$; " "; kernelarg\$; ramdiskarg\$;
ramdiskkb; "'"
'
'When you got nothing, you got nothing to lose.
'
PRINT kernelargsfull\$; " "; ramdisk\$; ramdiskkb; "'"

PRINT alias\$; aliasarg\$
' A generation lost in space
' Speaking of that, would the line "KILL c:" be funny ? :P
' Yes, I know I am mean. Commenting is fun.
PRINT
PRINT
PRINT
PRINT
PRINT
COLOR 0, 7
' Do you want to murder a tree?
INPUT "Do you want to dump it to the printer [y/n]?";
dumptoprinter\$
IF dumptoprinter\$ = "y" THEN

' Change to LPRINT in the future:

PRINT TAB(40); "** Below is a your sample
configuration file **"
PRINT
PRINT "To use this type in your favorite text
editior, and"
PRINT "save as /etc/quik.conf"
PRINT boot\$; kernelpath\$; ""
PRINT root\$; rootpart\$
PRINT append\$; video\$; " "; kernelarg\$
PRINT alias\$; aliasarg\$

' Say Bye.
PRINT ""
PRINT ""
PRINT "PRINT Status: Now Printing..."
END IF
IF dumptoprinter\$ = "n" THEN GOTO 2000
2000 END
```

New week, back to work.

I've written a little howto on some of the optimizations you can use when compiling a program on ppclinux (such as -02, etc.). Unforently, I can't find much info (or if there is) real PowerPC specfic optimizations. There probably isn't. If you know, send them to me -- and see the howto here.

As always, I am taking requests.

My extended Columbus day weekend was nice, except for being so freaking cold. I went for a drive this weekend through Thatcher Park and Knox, the colors on the trees where nice. Saw some snow falling on the Catskills on my so-called "dylan" ride today.

I guess KDE 2 is delayed another week -- that's good, more time for people to perfect stuff.

Listening to some Beatles right now. I should get back to doing real work, but blah.

Cool, It's a Friday -- and a long weekend. A rather boring week (news wise), I must say. Some new stuff for iMacLinux, but I have been rather busy.

I have finished up Emergency Preparness MB this week (and drove there). On Thursday, as always, went to scouts.

Hopefully I'll do something useful to post here.

2 Oct 2000 (updated 2 Oct 2000 at 02:57 UTC) »

Well I just couldn't stay off of the Long Path. So this weekend, I went along with a group of Tenderfoot scouts (the Troop 89 "NeoPatrol") to ToePath Mountain State Campground (outside of Middleberg). We decided to do a five mile hike, up Vroman's Nose, and along the Long Path into Middleberg. It was a great day, the views were awsome. The Schoarie valley is quite cool to look at from that perspective (and even driving in it). From there, we followed the Long Path to Middleberg to get ice cream. Of course, as we all know ;), the Long Path likes to follow hedgerows (along the edges of fields. This wouldn't be to bad in the summer, but in the fall, well to make a long story short, the fields were freshly manured a few weeks ago, so it was easy to get cow shit on your shoes. Oh well.

iMacLinux wise, stuff keeps being posted, and some new G&Hs are up. Have fun.

Anything else exciting? Well, I went on a rafting trip last week, and oh, I ripped some more Mp3s. Got to use the CD-RW drive someday.

Here is a mini script for getting Sourceforge CVS stuff (it's fast and easy, kind of a hack for myself):

```#!/bin/sh
# A very simple program to check out
# stuff from annonymous sourceforge CVS.
#
# (c)2000, Andrew B. Arthur, BSD License.

if [ \$1 = "-help" ]
then
echo "CVSourceforge Update Options:"
echo " -help: Print Help"
echo " -d: Different Server and Package"
echo " -n: Not A Sourceforge Server"
exit 1
fi

clear
echo   "     CVSourceforge Update"
echo   "       ... a simple shell script to retrive CVS
programs from
Sourceforge"
printf "           (c) 2000, Andrew B. Arthur, BSD

# Package Name Input.
printf "Please Enter Package of Choice: "
read CVSPROGNAME # Input Required Prog Name

if [ \$# -eq 0 ]
then
printf "\nDifferent Server Flag (-d) Not Enabled, will
use same server and
package name."
CVSASERVER=\$CVSPROGNAME
fi

if [ \$# -eq 1 ]
then
printf "Please Enter Server Name: "
fi

# Introduce User
clear
printf "Note: I will prompt you for a CVS password. You
should just hit return
when you get this prompt.\n\n"

cvs
-d:pserver:anonymous@cvs.\$CVSASERVER.sourceforge.net:/cvsroot/\$CVSASERVER

# Introduce to Update
clear
printf "\n\nUpdating or Creating CVS Now...\n\n"

# Do The Actual Checkout.
cvs -z3
-d:pserver:anonymous@cvs.\$CVSASERVER.sourceforge.net:/cvsroot/\$CVSASERVER
co
\$CVSPROGNAME
printf "\nDone. \n"
```

I am also working on some majorly lame-o qbasic stuff (right now a stupid quik.conf file generator), I'll post it in the near future.

Okay, I'm out for bed. Thanks again.

6 older entries...