in reply to Templating Systems

Your signature ...

10POKE53280,A:POKE53281,A
20?"C64 RULES ";
30A=A+1:IFA=16THENA=0:GOTO10

[download]

Tragically, I remember too much from my time on the Commodore 64 - These memory locations on the Commodore 64 controlled the background and border screen colours. Although there is no need to roll the value of A back to zero when you hit 16 as only the low nibble of these registers are interpreted (although you would still need to do so when the value of A hit 256) - The colour of the text and cursor could similarly be controlled by poke-ing similar values into memory location 646 (the memory is a little rusty on this one).

And of course, the ? is simply shorthand for the PRINT key word - Note however that this differs from the shorthand for PRINT# for printing to output channels which is P<shift-R> - This is because PRINT# is interpreted as a separate and unique token by the interpreter. Entering the combination of ?# generates a syntax error ...

Shoot me now ... please ... :-)

 

perl -le 'print+unpack"N",pack"B32","00000000000000000000001001110001"'

Replies are listed 'Best First'.
Re: (OT) Re: Templating Systems
by markexpjp (Novice) on Jul 15, 2003 at 13:15 UTC
    Ahh yes, I use VICE regularly (not for programming of course! For games silly.). 646 is the correct location for changing the cursor colour, although this doesn't work as desired when you poke character codes directly to screen memory, but it does work when you use the print statement, so you could use it here. Yes yes, you can roll it back at 256, hehee, and sometimes you would just put 64 or 128 for the hell of it. Talk about tragic... Ok... I still have all the old manuals and the basic programming manual. Never did learn assembly for it though, my parents wouldn't buy the book for me. Do you like how I spent time to get the colours looking semi sort of authentic like... Yes, it is time to shoot me now too.
    10POKE53280,A:POKE53281,A
    20?"C64 RULES ";
    30A=A+1:IFA=16THENA=0:GOTO10
[reply]

In Section Seekers of Perl Wisdom