User talk:Ljlego/UnBooks:The Holy Bible in BASIC

Haha, this is a pretty neat idea. I laughed. sirsysrq @ 18:31 Jul 1

hah! I thought the initial days went a little long, but maybe I wouldn't think so if I were more aquainted with the bible (those who are are in much greater need of this medicine I'm sure!!). Very funny! I would say to try to remove parts of the code that are just listing stuff or (better yet) make it more readable so that when there's repetition, it's easier to skim it and see the differences. Example:

804269 REM "SUBROUTINE: SMITINGS"
804270 IF JUDAH=NAUGHTY     THEN SMITE(NATION(JUDAH))=1
804271 IF ISRAEL=NAUGHTY    THEN SMITE(NATION(ISRAEL))=5
804272 IF MOAB=NAUGHTY      THEN SMITE(NATION(MOAB))=5
804274 IF AMMON=NAUGHTY     THEN SMITE(NATION(AMMON))=5: SMITE(NATION(MOAB))=8
804276 IF EGYPT=NAUGHTY     THEN SMITE(NATION(EGYPT))=25
804282 IF PHILISTIA=NAUGHTY THEN SMITE(NATION(PHILISTIA))=300
804284 IF EDOM=NAUGHTY      THEN SMITE(NATION(EDOM))=50 ELSE SMITE(NATION(EDOM))=47
804290 IF ASSYRIA=NAUGHTY   THEN GOSUB 825000

or

804269 REM "SUBROUTINE: SMITINGS"
804270 IF     JUDAH=NAUGHTY THEN SMITE(NATION(JUDAH))=1
804271 IF    ISRAEL=NAUGHTY THEN SMITE(NATION(ISRAEL))=5
804272 IF      MOAB=NAUGHTY THEN SMITE(NATION(MOAB))=5
804274 IF     AMMON=NAUGHTY THEN SMITE(NATION(AMMON))=5: SMITE(NATION(MOAB))=8
804276 IF     EGYPT=NAUGHTY THEN SMITE(NATION(EGYPT))=25
804282 IF PHILISTIA=NAUGHTY THEN SMITE(NATION(PHILISTIA))=300
804284 IF      EDOM=NAUGHTY THEN SMITE(NATION(EDOM))=50 ELSE SMITE(NATION(EDOM))=47
804290 IF   ASSYRIA=NAUGHTY THEN GOSUB 825000

I guess the only problem is that most BASIC programmers don't indent their code for readability! So now just please ignore everything I've said. Thanks! Daniel Santos (talk) 10:05, June 4, 2012 (UTC)