The Old Computer Challenge

January 2007 S M Tu W Th F S 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 1 *2* Finished! Thanks to LD8, you are very generous putting on this winter contest. I needed a little encouragement, and your contest helped. As long as there are no contracts and no obligations as far as I am concerned, you are free (you are free anyways) to use both this emblem and the code that creates it. The original Hacker Emblem is from http://www.catb.org/~esr/hacker-emblem/ In the spirit of a hacker and from what I've recently learned, I think I may start using my real name: Mark Stock. I have nothing to hide. The code to create the Apple II lo-res Hacker Emblem is from Mark Stock. The code is not what I would call well-written, but it works and it took me very little time to smatter this together, so in a sense it is well-written. Comments about the code and this contest entry can be made here: http://www.applefritter.com/node/20148 Cheers, Mark Stock

January 2007 S M Tu W Th F S 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22[23]24 25 26 27 28 29 30 31 Hacker Emblem I wrote a program in Applesoft BASIC to draw the Hacker Emblem. It's nothing special just a lot of code to plot the logo in the 40x48 lo-resolution graphics mode. In my quest to write a well written Apple II program, I am looking into what makes a well written program. I thought that hackers were crackers. I've discovered that hacker doesn't really mean what I thought it meant: Someone who hacks into systems is a cracker, not a hacker. In light of this, I have a new found respect for the title of hacker. Titles may not carry too much value, but I think that in this quest to write a well-written program I may becoming a hacker.

10 GR 20 A = PEEK ( - 16302) 30 COLOR= 15 40 FOR I = 0 TO 39 50 VLIN 0,47 AT I 60 NEXT 100 COLOR= 5 110 S = 21 120 W = S 130 H = 27 140 X = INT ((40 - W) / 2) 150 Y = INT ((48 - H) / 2) 160 D = INT (W / 3) 161 DX = D 170 Y2 = Y + H 180 X2 = X + W 200 FOR I = 0 TO 3 210 VLIN Y,Y2 AT X + I * D 220 NEXT 240 D = INT (H / 3) 250 FOR I = 0 TO 3 260 HLIN X,X2 AT Y + I * D 270 NEXT 280 YH = INT (D / 2) 281 YM = Y + H - YH 290 XH = INT (DX / 2) 300 COLOR= 0 310 FOR I = 0 TO 2 320 YY = YM 330 XX = X + XH + I * DX 340 GOSUB 500 350 NEXT 400 YY = YY - D 410 GOSUB 500 420 YY = YY - D 430 XX = XX - DX 440 GOSUB 500 450 K = PEEK ( - 16384) 460 IF K < 128 THEN 450 470 K = PEEK ( - 16368) 480 TEXT : HOME 490 END 500 VLIN YY + 1,YY - 2 AT XX 510 VLIN YY + 1,YY - 2 AT XX + 1 520 VLIN YY,YY - 1 AT XX - 1 530 VLIN YY,YY - 1 AT XX + 2 540 RETURN

---

    January 2007
 S  M Tu  W Th  F  S
    1  2  3  4  5  6
 7  8  9 10 11 12[13] 
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30 31

Name: mmphosis
Challenge: one well written Apple II program
URL: http://geocities.com/mmphosis/apple2/contest/2007/old-computer-challenge.html
Result:  

One well written Apple II program.

I didn't decide specifically what this Apple II program will be as yet. As this program needs to be written soon (before Febrary 1, 2007 or so) I may submit a version of what I currently call my "INFLOW" program which is written entirely in Applesoft BASIC. It randomly pulls up to six words from special database of words. I may only need to modify the word list database to make this happen. I already wrote this in January 2007 so I think it may qualify. Otherwise, we'll see where creativity goes in January to write a well written Apple II program.

Tools

My Apple II+ is in storage far away, so I am using KEGSMAC v0.85, an Apple IIgs emulator running on an iBook. I may use any miriad of developer tools within Mac OS X 10.1.5 and from the internet to help in writing this one well written Apple II program. If I had the "real" Apple II+, I would be pretty much set up the same way. Rather than an emulator, instead I would use the Apple II+ with a serial card connected through a Keyspan serial to USB adaptor connected to the iBook.