?

Log in

apple_ii

Recent Entries

You are viewing the most recent 10 entries

August 30th, 2012

mookieghana @ 01:11 pm: Killed the Spam
All,

I apologize for not killing the spam previously. I changed some settings so it's more moderated.

Happy Apple_II gaming and programming!

Chris

October 6th, 2011

davidkevin @ 09:14 am: Steve Jobs
iMourn.

Current Mood: melancholymelancholy

November 19th, 2010

uberregenbogen @ 01:28 pm: Stupid Applesoft trick of the day: Drawing a MouseText frame with lo-res commands.

Quickly drawing a MouseText frame by writing codepoints into into the lo-res graphics colour register and painting the lines with lo-res graphics commands.

(Writing directly to the colour register at $30—rather than using the COLOR= command—allows setting different colours for the top and bottom pixels of each byte, and, consequently, the painting of rows and columns of characters in text mode, with HLIN and VLIN.)

[Requires a MouseText equipped machine (IIc+, IIgs, IIc, Enhanced IIe), of course, lest it look like crap.]

1 TEXT : HOME : PRINT CHR$(17); : POKE 49167,0 : REM 40-col; MouseText
2 POKE 48,223 : HLIN 1,38 AT 1 : HLIN 1,38 AT 0
3 POKE 48,76 : HLIN 1,38 AT 47 : HLIN 1,38 AT 46
4 POKE 48,90 : VLIN 2,45 AT 0
5 POKE 48,95 : VLIN 2,45 AT 39
6 POKE 35,23 : POKE 34,1 : POKE 33,38 : POKE 32,1 : HOME : LIST : END


Current Mood: retrogeeky

July 4th, 2010

mookieghana @ 07:24 pm: Coloroid for Apple //e
My wife really enjoys playing COLOROID for her Android phone. I immediately thought it would be a fun thing to program for my Apple //e. I wrote this code this morning.



Input:
You can have the computer take guesses to solve the puzzle with "A".
"Q" quits the game.
1/2/3/4/5/6 = colors

Hope others enjoy! I need to speed up the algorithm - possibly by replacing some of the IF/THEN statements with conditional logic (turn "IF X>39 THEN X=39" with "X=(X>39)*39+(X<40)*X") I believe that speeds up execution.

Read more...Collapse )

You can download the file for an emulator (like APPLEWIN) here: http://sites.google.com/site/cdhapple2/coloroid

January 2nd, 2010

mookieghana @ 09:58 am: KOTB [apple-ii] video
There's a "King of the Board" tournament over at f4wonline - a mock election on a message board for a Wrestling/MMA fans. Yesterday, I decided to dust off the ol' Apple //e and write a little "simulator" on who might win...



I learned a lot about switching between 40/80 character width mode (i.e. PR#3). I used an old routine called "Curtain" to do the shuttle-launch at the end. I don't remember if I got that from a NIBBLE magazine or whether that was in one of my Apple ][ Sound+Graphics books.

It seems like my disk drives are starting to go funky. They would suddenly start producing a lot of PATH/IO errors. But I was able to move the drive and adjust the cords so it seemed to fix things. I'll post a video of the code if anyone really cares. It's been awhile since I tried a project like this, but I think it was worth it especially to celebrate my 25th year programming on an Apple //e!

August 7th, 2009

whoracle @ 02:50 pm: VisiTerm issue cont.


The first selection (comm slot) doesn't change. Makes me wonder if there is some missing driver or something. The baud rate selection is a bit strange as well, doesn't let you actually select a speed, just 'low' or 'high.' Weird.

August 6th, 2009

whoracle @ 07:13 pm: VisiTerm
Anyone have an old VisiTerm Manual Laying around? Can't get it to recognize my AppleSSC in Slot 2.

April 21st, 2009

mookieghana @ 03:07 pm: NASCAR picks..
For my weekly NASCAR picks, I like to make the fantasy league administrator work a bit. For a couple weeks, I sent in Apple //e related puzzles:

WEEK THREE:
pick #1: 03, 0C, 09, 0E, 14, 02, 0F, 17, 19, 05, 12
pick #2: 07, 12, 05, 07, 02, 09, 06, 06, 0C, 05

WEEK FIVE:
10 HOME
20 ?"WELCOME ROB!"
30 INPUT "Driver #1: ";X$
40 INPUT "Driver #2: ";Y$
50 IF LEN(X$)=11 THEN Z$=X$:X$=Y$:Y$=Z$
55 Z$=""
60 FOR T=1 TO 12
70 READ X
80 Y=ASC(MID$(X$,T,1))
90 Z$=Z$+CHR$(Y-X)
100 NEXT T
110 ? Z$
120 Z$=""
130 FOR T=1 TO 11
140 READ X
150 Y=ASC(MID$(Y$,T,1))
160 Z$=Z$+CHR$(Y-X)
170 NEXT T
180 ? Z$
190 END

300 DATA 15,8,-9,-2,-5,0,-4,8,-6,0,-4,11
310 DATA 2,-4,12,13,0,0,0,-4,1,-16,-45

DRIVER #1 is "SMELT DIGLEY" (all caps)
DRIVER #2 is "LARS GONE?!" (all caps, include the exclaimation point
and question mark)

WEEK SIX:
10 GR
20 HOME
30 COLOR=1
40 FOR Q=1 TO 2
50 FOR T=1 TO 3
60 READ X,Y,Z
70 IF T<>2 THEN VLIN X,Y AT Z
80 IF T=2 THEN HLIN X,Y AT Z
90 NEXT T
95 NEXT Q
100 DATA 10,30,10
110 DATA 5,10,30
120 DATA 25,30,5
130 DATA 10,30,30
140 DATA 25,30,30
150 DATA 25,30,25
190 ?"DRIVER #1":?"PRESS ANY KEY TO CONTINUE"
200 GET X$
500 HGR
510 HCOLOR=3
520 HPLOT 10,10 TO 10,80
530 HPLOT 80,10 TO 10,40
540 HPLOT TO 80,80
550 HPLOT 90,10 TO 100,50
560 HPLOT TO 110,10
570 HPLOT 100,50 TO 100,80
580 HPLOT 120,10 TO 120,80
590 HPLOT TO 145,80
600 HPLOT 155,10 TO 155,80
610 HPLOT TO 175,80
620 HPLOT 155,10 TO 175,10
630 HPLOT 155,50 TO 175,50
640 HOME
650 ?"DRIVER #2":?"PRESS ANY KEY TO CONTINUE"

Rest of the puzzles on my blog.

March 23rd, 2009

mookieghana @ 04:41 pm: Text on GR / HGR / HGR2
I am thinking about programming a clone of the NES game Palamedes for the Apple ][. I was thinking about making it ultra-lo-tech and use GR but I wanted to put numbers on the GR field. I've seen it done (thinking old Microprose games among others) but I don't have any idea what code to use. Suggestions?

March 3rd, 2009

whoracle @ 03:42 am: ][+ Encoder board
Anyone out there know where one might find a replacement keyboard encoder daughter board? Part 605-X105. My ][+ keyboard starts randomly typing endlessly without me touching it. Tried to reground it with a jumper wire to motherboard GND, but that didn't fix the issue. I could just get the Super Encoder from Briel, but I'd like to keep the ][+ somewhat original. Ideas? Fixes? Cheers.

Powered by LiveJournal.com