WHORING FOR SHEEP

Istar · Post by **Istar** » Fri Nov 15, 2002 3:35 pm 0

20 POKE 36879,8:REM black screen & border

Elizian · Post by **Elizian** » Fri Nov 15, 2002 3:59 pm 0

21 GOTO 20

ekendrick · Post by **ekendrick** » Fri Nov 15, 2002 4:01 pm 0

/tries to remember... pzzzt memory fault.

5 poke 8191,1

/now noone can stop me - bwahahahahah

Elizian · Post by **Elizian** » Fri Nov 15, 2002 4:07 pm 0

That reminds that IBM once wrote a 1-line Assembler program with a bug in it! Allegedly, the executable program IEFBR14 was first published with just one instruction: 07 FE (an unconditional branch to the address in register 14)
It was intended as a universal exit program or a program to call to perform device allocation, etc.. Sadly, they forgot to set the Return Code into any user accessible register, so the program was always "successful", even when the process preceding the link to IEFBR14 had been totally foxxed!

ekendrick · Post by **ekendrick** » Fri Nov 15, 2002 4:15 pm 0

Are you implying aw mams better than aw gran? eh? eh? eh? eh?

Post by **Muttley** » Fri Nov 15, 2002 4:29 pm 0

Code: Select all

10 A = 0
20 B = 255
30 POKE 53280,A
40 POKE 53281,B
50 A = A + 1
60 IF A > 255 THEN A = 0
70 B = B - 1
80 IF B < 0 THEN B = 255
90 GOTO 30

RUN

Or in assembly:

Code: Select all

$c000  ldx #$00
$c002  ldy #$FF
$c004  stx $d020
$c007  sty $d021
$c009  inx
$c00a  dey
$c00b  jmp $c004

SYS 49152

Muttley

Yak · Post by **Yak** » Fri Nov 15, 2002 4:50 pm 0

Muttley wrote:

Code: Select all

10 A = 0
20 B = 255
30 POKE 53280,A
40 POKE 53281,B
50 A = A + 1
60 IF A > 255 THEN A = 0
70 B = B - 1
80 IF B < 0 THEN B = 255
90 GOTO 30

RUN

Didn't BASIC have a logical AND? It seems to make a lot morer sense to go

Code: Select all

A=A&255
B=B&255

instead of the compare/reassignments...

\
(:-) - Yak
/

Post by **Muttley** » Fri Nov 15, 2002 5:08 pm 0

Yak wrote:
Muttley wrote:
Code: Select all
10 A = 0
20 B = 255
30 POKE 53280,A
40 POKE 53281,B
50 A = A + 1
60 IF A > 255 THEN A = 0
70 B = B - 1
80 IF B < 0 THEN B = 255
90 GOTO 30

RUN
Didn't BASIC have a logical AND? It seems to make a lot morer sense to go
Code: Select all
A=A&255
B=B&255
instead of the compare/reassignments...

\
(:-) - Yak
/

You're right! But no "&" abbreviation apparently, a full "and" required!

It's been a loooong time.

Muttley

[/img]

Elizian · Post by **Elizian** » Sun Nov 17, 2002 9:37 am 0

Excuse me, people

Could you post this sort of stuff on the Programming Forum

There's folk around here whoring for sheepies

koworld · Post by **koworld** » Sun Nov 17, 2002 1:21 pm 0

Where is my mother?

Elk · Post by **Elk** » Mon Nov 18, 2002 9:44 am 0

piku · Post by **piku** » Mon Nov 18, 2002 9:47 am 0

Elk wrote:ping

Request timed out. No route to host
Request timed out. No route to host
Request timed out. No route to host

SimonB · Post by **SimonB** » Mon Nov 18, 2002 12:08 pm 0

Smeggin' Hell, this topic still lives.

Simon

Song of the day: The Colourfield - Thinking Of You

irata · Post by **irata** » Mon Nov 18, 2002 12:55 pm 0

Fiftyfive pages of nonsense (almost) and I'm still not on it!

I repeat:

twentyseven beer and still not too drunk to go to the toilet.

(Ok, that's a lie. I'm here at work, pretending.)

PVB · Post by **PVB** » Mon Nov 18, 2002 12:58 pm 0

@Muttley:

How cool is it that Yak gives you advice in programming?!