Kurraudo
17/05/2009, 16:32
0 REM "BIBLE (http://uncyclopedia.wikia.com/wiki/Bible) IN BASIC (http://uncyclopedia.wikia.com/wiki/BASIC) (1982, VERSION 1.0)"
2 REM
4 REM
6 REM
8 REM
10 REM "CLEAR SPACE FOR NEW UNIVERSE"
11 CLS
12 REM "HEAVENS AND EARTH (http://uncyclopedia.wikia.com/wiki/Earth): INITIALIZATION"
20 DIM WEEK(7), EARTH(999999999), WATERS(999999999)
30 FOR N=0 TO 999999999
52 EARTH(N)=RND(0) (http://uncyclopedia.wikia.com/wiki/Randomness)
54 WATERS(N)=RND(0)
60 NEXT N
100 REM "DAY #1"
110 LIGHT (http://uncyclopedia.wikia.com/wiki/Light)=1
122 DARKNESS=0
140 FOR N=0 TO 999999999
150 IF EARTH(N)>0.5 THEN EARTH(N)=LIGHT ELSE EARTH(N)=DARKNESS
170 NEXT N
180 DAY=LIGHT
182 NIGHT=DARKNESS
190 WEEK(1)=1
200 REM "DAY #2"
230 SKY=2
250 FOR N=0 TO 999999999
260 IF WATERS(N)>0.5 THEN WATERS(N)=2
270 NEXT N
290 WEEK(2)=1
300 REM "DAY #3"
310 GROUND=1
320 FOR N=0 TO 999999999
330 IF WATERS(N)=SKY THEN GOTO (http://uncyclopedia.wikia.com/wiki/GOTO) 350
332 IF WATERS(N)<0.3 THEN WATERS(N)=0 ELSE WATERS(N)=GROUND
350 NEXT N
360 LAND=GROUND
370 SEA (http://uncyclopedia.wikia.com/wiki/Ocean)=0
375 PLANT (http://uncyclopedia.wikia.com/wiki/Weed)=70
380 FOR N=0 TO 999999999
382 IF WATERS(N)=LAND AND EARTH(N)=LIGHT THEN WATERS(N)=WATERS(N)+PLANT
384 NEXT N
390 WEEK(3)=1
...
...
...
804269 REM "SUBROUTINE: SMITINGS"
804270 IF JUDAH=NAUGHTY THEN SMITE (http://uncyclopedia.wikia.com/wiki/Smite)(NATION(JUDAH))=1
804271 IF ISRAEL (http://uncyclopedia.wikia.com/wiki/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 (http://uncyclopedia.wikia.com/wiki/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
...
804900 FOR N=1 TO 999
804902 SMITE(CANAANITES)=4000*N
804904 SMITE(HITTITES)=2000*N
804906 SMITE(JEBUSITES)=1000*N
804908 SMITE(AMORITES)=500*N
804910 SMITE(SODOMITES (http://uncyclopedia.wikia.com/wiki/Sodomite))=100000000*N+INFINITY^3
804990 NEXT N
804999 RETURN
...
...
...
50340000 REM "INITIALIZE SERMONIZATION (http://uncyclopedia.wikia.com/wiki/Sermon)"
50340005 JESUS (http://uncyclopedia.wikia.com/wiki/Jesus_Christ)(LOCATION)=MOUNTAIN
50340010 REM "UPDATE HUMAN BLESSING STATS"
50340020 FOR N=1 TO POPULATION
50340022 IF HUMAN(N,STATUS)=POOR THEN HUMAN(N,POSSESSIONS)=HUMAN(N,POSSESSIONS)+HEAVEN: HUMAN(N,BLESS)=1
50340024 IF HUMAN(N,STATUS)=SAD THEN HUMAN(N,STATUS)=HAPPY: HUMAN(N,BLESS)=1
50340026 IF HUMAN(N,STATUS)=MEEK THEN HUMAN(N,POSSESSIONS)=HUMAN(N,POSSESSIONS)+EARTH: HUMAN(N,BLESS)=1
50340028 IF HUMAN(N,STATUS)=HUNGRY THEN HUMAN(N,STOMACH)=HUMAN(N,STOMACH)+FOOD: HUMAN(N,BLESS)=1
50340030 IF HUMAN(N,STATUS)=THIRSTY THEN HUMAN(N,STOMACH)=HUMAN(N,STOMACH)+BEER (http://uncyclopedia.wikia.com/wiki/Beer): HUMAN(N,BLESS)=1
50340032 IF HUMAN(N,STATUS)=MERCIFUL THEN GOSUB 65530000: HUMAN(N,BLESS)=1
...
50340050 IF HUMAN(N,STATUS)=PERSECUTEDBYUNBELIEVERS THEN HUMAN(N,PATIENCE)=HUMAN(N,PATIENCE)+4: HUMAN(N,BLESS)=1
50340090 NEXT N
50341000 HUMANITY=SALT (http://uncyclopedia.wikia.com/wiki/Salt)
50341002 FOR N=1 TO POPULATION
50341010 IF HUMAN(N,FLAVOR)<FLAVOR(SALT) THEN SMITE(HUMAN(N))=50
50341020 NEXT N
50341030 HUMANITY=LIGHT
50341032 FOR N=1 TO POPULATION
50341040 IF HUMAN(N,VISIBILITY)<VISIBILITY(LIGHT) THEN SMITE(HUMAN(N))=15
50341050 NEXT N
...
...
...
Visto en Uncyclopedia (http://uncyclopedia.wikia.com/wiki/UnBooks:The_Holy_Bible_in_BASIC).
Alguien que sepa programar en este lenguaje ¿Me puede decir si todo está bien escrito? :D
2 REM
4 REM
6 REM
8 REM
10 REM "CLEAR SPACE FOR NEW UNIVERSE"
11 CLS
12 REM "HEAVENS AND EARTH (http://uncyclopedia.wikia.com/wiki/Earth): INITIALIZATION"
20 DIM WEEK(7), EARTH(999999999), WATERS(999999999)
30 FOR N=0 TO 999999999
52 EARTH(N)=RND(0) (http://uncyclopedia.wikia.com/wiki/Randomness)
54 WATERS(N)=RND(0)
60 NEXT N
100 REM "DAY #1"
110 LIGHT (http://uncyclopedia.wikia.com/wiki/Light)=1
122 DARKNESS=0
140 FOR N=0 TO 999999999
150 IF EARTH(N)>0.5 THEN EARTH(N)=LIGHT ELSE EARTH(N)=DARKNESS
170 NEXT N
180 DAY=LIGHT
182 NIGHT=DARKNESS
190 WEEK(1)=1
200 REM "DAY #2"
230 SKY=2
250 FOR N=0 TO 999999999
260 IF WATERS(N)>0.5 THEN WATERS(N)=2
270 NEXT N
290 WEEK(2)=1
300 REM "DAY #3"
310 GROUND=1
320 FOR N=0 TO 999999999
330 IF WATERS(N)=SKY THEN GOTO (http://uncyclopedia.wikia.com/wiki/GOTO) 350
332 IF WATERS(N)<0.3 THEN WATERS(N)=0 ELSE WATERS(N)=GROUND
350 NEXT N
360 LAND=GROUND
370 SEA (http://uncyclopedia.wikia.com/wiki/Ocean)=0
375 PLANT (http://uncyclopedia.wikia.com/wiki/Weed)=70
380 FOR N=0 TO 999999999
382 IF WATERS(N)=LAND AND EARTH(N)=LIGHT THEN WATERS(N)=WATERS(N)+PLANT
384 NEXT N
390 WEEK(3)=1
...
...
...
804269 REM "SUBROUTINE: SMITINGS"
804270 IF JUDAH=NAUGHTY THEN SMITE (http://uncyclopedia.wikia.com/wiki/Smite)(NATION(JUDAH))=1
804271 IF ISRAEL (http://uncyclopedia.wikia.com/wiki/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 (http://uncyclopedia.wikia.com/wiki/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
...
804900 FOR N=1 TO 999
804902 SMITE(CANAANITES)=4000*N
804904 SMITE(HITTITES)=2000*N
804906 SMITE(JEBUSITES)=1000*N
804908 SMITE(AMORITES)=500*N
804910 SMITE(SODOMITES (http://uncyclopedia.wikia.com/wiki/Sodomite))=100000000*N+INFINITY^3
804990 NEXT N
804999 RETURN
...
...
...
50340000 REM "INITIALIZE SERMONIZATION (http://uncyclopedia.wikia.com/wiki/Sermon)"
50340005 JESUS (http://uncyclopedia.wikia.com/wiki/Jesus_Christ)(LOCATION)=MOUNTAIN
50340010 REM "UPDATE HUMAN BLESSING STATS"
50340020 FOR N=1 TO POPULATION
50340022 IF HUMAN(N,STATUS)=POOR THEN HUMAN(N,POSSESSIONS)=HUMAN(N,POSSESSIONS)+HEAVEN: HUMAN(N,BLESS)=1
50340024 IF HUMAN(N,STATUS)=SAD THEN HUMAN(N,STATUS)=HAPPY: HUMAN(N,BLESS)=1
50340026 IF HUMAN(N,STATUS)=MEEK THEN HUMAN(N,POSSESSIONS)=HUMAN(N,POSSESSIONS)+EARTH: HUMAN(N,BLESS)=1
50340028 IF HUMAN(N,STATUS)=HUNGRY THEN HUMAN(N,STOMACH)=HUMAN(N,STOMACH)+FOOD: HUMAN(N,BLESS)=1
50340030 IF HUMAN(N,STATUS)=THIRSTY THEN HUMAN(N,STOMACH)=HUMAN(N,STOMACH)+BEER (http://uncyclopedia.wikia.com/wiki/Beer): HUMAN(N,BLESS)=1
50340032 IF HUMAN(N,STATUS)=MERCIFUL THEN GOSUB 65530000: HUMAN(N,BLESS)=1
...
50340050 IF HUMAN(N,STATUS)=PERSECUTEDBYUNBELIEVERS THEN HUMAN(N,PATIENCE)=HUMAN(N,PATIENCE)+4: HUMAN(N,BLESS)=1
50340090 NEXT N
50341000 HUMANITY=SALT (http://uncyclopedia.wikia.com/wiki/Salt)
50341002 FOR N=1 TO POPULATION
50341010 IF HUMAN(N,FLAVOR)<FLAVOR(SALT) THEN SMITE(HUMAN(N))=50
50341020 NEXT N
50341030 HUMANITY=LIGHT
50341032 FOR N=1 TO POPULATION
50341040 IF HUMAN(N,VISIBILITY)<VISIBILITY(LIGHT) THEN SMITE(HUMAN(N))=15
50341050 NEXT N
...
...
...
Visto en Uncyclopedia (http://uncyclopedia.wikia.com/wiki/UnBooks:The_Holy_Bible_in_BASIC).
Alguien que sepa programar en este lenguaje ¿Me puede decir si todo está bien escrito? :D