History Lesson

Originally Posted by TSM

When i was in collage about 7 years ago now, they did teach assembly basics on a Zilog Z80 proc. The teacher was sooo boring. But i liked it, just did not have a unit of my own to play with. I much prefered the teacher that did Pascal. Still i not good at either. Now im better in the modern languages.

I got pretty good at Turbo Pascal and assembler in college but now moved away from programming and into DB's.

I was using these (Aim 65) in 1986 and I'm guessing they where probably obselete then.
I once got one to play "Layla" by connecting an amp and a speaker up to it, and varying the frequency on two pins of the serial port (or somthing like that, it was 20 years and about 1200 gallons of beer ago)

I quite liked programming in assember, 68k mainly as I was quite good at that and absoulute crat at progaramming in everything else.

I do a bit of ksh scripting now which I'm not bad at, if you can count that as programming.

[Skip]

Originally Posted by tricky

I do a bit of ksh scripting now which I'm not bad at, if you can count that as programming.

To someone who uses other peoples ksh scripts (me!) - yes it is programming as I couldnt do it!!

***********************GEEK ALERT***********************************
I wrote this in the hope it would be the last one I ever wrote.
I've removed the comments, see if you can work out what it does.


#!/usr/bin/ksh

main () {
for ball in 1 2 3 4 5 6
do
generate
numbers[$ball]=$num
done
}

generate () {
num=`echo $RANDOM | cut -c 2,3`
check
if [ $num -eq 0 -o $num -gt 49 ]
then
generate
fi
}

check () {
echo ${numbers[*]} | grep $num >> /dev/null 2>&1
rc=$?
if [ $rc -eq 0 ]
then
generate
fi
}

sortball () {
count=1
while [ $count -le 6 ]
do
for pos in 1 2 3 4 5
do
((nextpos=$pos+1))
if [ ${numbers[$pos]} -gt ${numbers[$nextpos]} ]
then
numbers[7]=${numbers[$pos]}
numbers[$pos]=${numbers[$nextpos]}
numbers[$nextpos]=${numbers[7]}
fi
done
((count=$count+1))
done
}

display () {
for ball in 1 2 3 4 5 6
do
echo "Ball $ball = ${numbers[$ball]}"
done
}

clear
main
sortball
display

[Skip]

Very good!

I take it that it hasnt been the last one you ever wrote??!

Oh and in case anyone is wondering - its a Lottery Number Generator

I was going to say bingo

[TSM]

Quite a simple prog realy. Not as if i could write it in KSH, i would do it in ASP.

[northwind]

I've got a rubber keyed Speccy and a Vic 20 somewhere...

Originally Posted by northwind

I've got a rubber keyed Speccy and a Vic 20 somewhere...

I had a rubber keyed Speccy 48, those where the days.
Jet Pac, Manic Miner, Trans Am, Attic Attack etc

Who had one of these then???????

http://www.inthe80s.com/toys/bigtrak.shtml