home *** CD-ROM | disk | FTP | other *** search
- 0 GOTO9: "SNEFRU"
- 1 : COPYRIGHT 1990 EDGEWORTH SOFTWARE :
- 2 : MAY BE FREELY DISTRIBUTED BUT MAY :
- 3 : NOT BE AMENDED,TRANSLATED OR SOLD :
- 9 : :
- 11 DATA 32,180,2,132,251,32,180,2
- 12 DATA 166,251,76,240,255,32,253,174
- 13 DATA 32,158,173,32,170,177,96,165
- 14 DATA 252,69,253,69,254,168,162,3
- 15 DATA 152,85,251,213,251,144,3,202
- 16 DATA 208,246,96
- 19 :
- 20 J(1)=56320:J(2)=56320:CL$=CHR$(147)
- 21 PRINTCL$:POKE53280,4:POKE53281,12
- 22 SP$=" ":GR$="[184][184][184][184][184]"
- 23 P$(3)="MENKAURE":P$(4)="DJEDEFRE"
- 24 P$(5)="KHUFU":P$(6)="SNEFRU"
- 25 T$=" SNEFRU [146]":SK$=CHR$(3)
- 26 EE=679:D=646:R(1)=1:R(2)=2:R(3)=3
- 27 FORA=0TO42:READB:POKEEE+A,B:NEXT
- 28 PRINTCHR$(14)CHR$(8):POKE808,234
- 29 NU=RND(-RND(0)):GOTO800
- 30 :
- 35 SYSEE,20,0:POKE198,0:POKED,0:PRINT"1[146] OR 2[146] PLAYERS? [164][157][157]";
- 37 GETK$:IFK$=""THEN37
- 38 IFK$=SK$THEN800
- 39 P=ASC(K$)-48:IFP<1ORP>2THEN37
- 40 PRINTP
- 41 LL=21:O=1:GOSUB600:IFP=1THEN50
- 42 LL=22:O=2:GOSUB600:IFP$(2)=P$(1)THEN41
- 43 SYSEE,23,0:POKE198,0:PRINT"[198][146]EW STICKS OR [205][146]ANY STICKS? ";
- 45 GETK$:IFK$=SK$THEN800
- 46 IFK$<>"F"ANDK$<>"M"THEN45
- 47 PRINTK$:SQ=0:IFK$="M"THENSQ=1
- 48 GOTO70
- 50 SYSEE,22,0
- 52 PRINT"PLEASE SELECT AN OPPONENT? [164]"
- 53 PRINT" [205][146]ENKAURE (EASY) [196][146]JEDEFRE"
- 56 PRINT" [203][146]HUFU [211][146]NEFRU (IMPOSSIBLE)";
- 60 POKE198,0:S=-1
- 61 GETK$:IFK$="M"THENS=0
- 62 IFK$="D"THENS=1
- 63 IFK$="K"THENS=2
- 64 IFK$="S"THENS=3
- 65 IFK$=SK$THEN800
- 66 IFS<0THEN61
- 68 P$(2)=P$(S+3)
- 69 L=7:H=10:GOSUB370:Q=K
- 70 :
- 71 FORI=1TO500:NEXT
- 72 IFP=2ANDSQ=0THENL=7:H=16:GOSUB370:Q=K
- 73 IFP=2ANDSQ=1THENL=9:H=44:GOSUB370:Q=K
- 74 L=3:H=Q-3:GOSUB370:M(1)=K:A=Q-K
- 76 L=2:H=A-1:GOSUB370:M(2)=K:M(3)=A-K
- 78 GOSUB380:IFX>21ORX=YORY=ZTHEN74
- 80 G=2:IFP=2THENL=1:H=2:GOSUB370:G=K
- 100 :
- 102 POKED,0:PRINTCL$T$;
- 104 IFP=1THENPRINT" LEVEL"S" COUNT"Q
- 106 GOSUB410:N=1:V=0
- 120 :
- 122 GOSUB440:GOSUB380:FORA=1TO800:NEXT
- 124 G=3-G:IFX=0ANDY=0ANDZ=0THEN160
- 126 ON(P=1ANDG=2)+2GOSUB240,200:GOTO120
- 160 :
- 161 POKED,6:SYSEE,9,0
- 162 PRINT"**"P$(G)" WINS**"
- 163 IFP=2ORG=2ORQ<44THEN170
- 164 PRINT:PRINT"WELL DONE"
- 165 PRINT"YOU HAVE OUTWITTED KING "P$(2)
- 166 IFS<3THEN170
- 167 PRINT"AND EARNED THE TITLE"
- 168 PRINT"'PHARAOH "P$(1)"'"
- 169 PRINT"SUPREME RULER OF THE FORTYFOUR STICKS"
- 170 PRINT:PRINT"[211][208][193][195][197][146]=MORE [210][146]=RESET OPTIONS"
- 171 POKE198,0
- 172 GETK$:IFK$="R"ORK$=SK$THEN800
- 174 IFK$<>" "THEN172
- 176 IFG=1THENQ=Q+7:IFQ>44THENQ=44
- 178 IFG=2THENQ=Q-6:IFQ<7THEN69
- 180 GOTO70
- 200 :
- 202 W=0:M1=M(1):M2=M(2):M3=M(3)
- 204 I=0
- 206 IFI=0THENGOSUB430:I=20
- 208 IFI=5THENGOSUB440
- 210 B=PEEK(J(G))AND31:IFB<>31THEN214
- 211 GETK$:IFK$=SK$THEN800
- 212 NU=RND(1)
- 213 I=I-1:GOTO206
- 214 GOSUB440
- 216 IF(BAND1)=0ANDW=1THENGOSUB400
- 218 IF(BAND2)=0ANDM(N)>0THENGOSUB450
- 220 IF(BAND4)=0ANDW=0THENN=N-1-(N<2)*3
- 222 IF(BAND8)=0ANDW=0THENN=N+1+(N>2)*3
- 224 IF(BAND16)=0ANDW=1THENV=1:RETURN
- 225 IF(BAND16)=0ANDP=1ANDV=0THENV=1:RETURN
- 226 FORC=1TO99:NEXT:GOTO204
- 240 :
- 242 GOSUB280:IFNTHEN260
- 244 IFS>0AND(X=YORY=ZORZ=0)THEN248
- 246 L=2:H=3:GOSUB370:IFK>STHEN250
- 248 GOSUB300:IFNTHEN260
- 250 A=6:L=1
- 252 H=3:GOSUB370:IFM(K)=0THEN252
- 254 N=K:H=M(N):GOSUB370:M=K:B=H-K
- 256 IFS=0ORA=0THEN260
- 258 IFB=XORB=YORB=ZORB=0THENA=A-1:GOTO252
- 260 GOSUB430:FORA=1TO999:NEXT
- 262 FORA=1TOM:GOSUB450:NEXT:RETURN
- 280 :
- 282 N=0:IFY=1ANDZ=0THENN=R(1):M=X
- 284 IFX>1ANDY<2ANDZ=YTHENN=R(1):M=X-1
- 286 RETURN
- 300 :
- 302 FORA=1TO3:POKE251+A,M(A):NEXT
- 304 SYSJJ:N=PEEK(781)
- 306 M=M(N)-PEEK(780):RETURN
- 370 :
- 372 K=INT(RND(1)*(H-L+1)+L):RETURN
- 380 :
- 382 B=1:C=2:GOSUB388:B=2:C=3:GOSUB388
- 384 B=1:C=2:GOSUB388:X=M(R(1))
- 386 Y=M(R(2)):Z=M(R(3)):RETURN
- 388 IFM(R(B))>M(R(C))THEN392
- 390 A=R(B):R(B)=R(C):R(C)=A
- 392 RETURN
- 400 :
- 402 M(1)=M1:M(2)=M2:M(3)=M3
- 404 GOSUB410:W=0:RETURN
- 410 :
- 412 POKED,6:FORE=1TO3:IFM(E)=0THEN418
- 414 FORF=1TOM(E)
- 416 SYSEE,23-F,13*E-9:PRINTGR$:NEXT
- 418 NEXT:GOSUB470:RETURN
- 430 :
- 432 POKED,0:SYSEE,24,13*N-9:PRINTP$(G);:RETURN
- 440 :
- 442 SYSEE,24,13*N-9:PRINTSP$;:RETURN
- 450 :
- 452 SYSEE,23-M(N),13*N-9:PRINTSP$
- 454 M(N)=M(N)-1:GOSUB470:W=1:RETURN
- 470 :
- 472 POKED,6:FORF=1TO3
- 474 SYSEE,23,13*F-8:PRINTSTR$(M(F))" "
- 476 NEXT:RETURN
- 600 :
- 604 SYSEE,LL,0
- 610 PRINT"NAME = [164][164][164][164][164][164][164][164][164]"
- 614 SYSEE,LL,7:U=0:POKE198,0
- 618 GETK$:IFK$=""THEN618
- 619 IFK$=SK$THEN800
- 620 IFK$=CHR$(13)ANDU>0THEN630
- 622 IFK$=CHR$(20)THEN600
- 624 IFU>8ORK$<"A"ORK$>"Z"THEN618
- 626 PRINTK$;:U=U+1:GOTO618
- 630 P$(O)="":FORI=1024+LL*40+7TOI+8
- 631 K=PEEK(I):IFK=100ORK=32THEN633
- 632 P$(O)=P$(O)+CHR$(K+64)
- 633 NEXT:RETURN
- 800 :
- 810 POKED,0:PRINTCL$T$T$T$T$T$;
- 812 PRINT" [195]OPYRIGHT 199[207] [197]DGEWORTH [211]OFTWARE."
- 814 PRINT" [211]NEFRU MAY BE FREELY DISTRIBUTED, BUT"
- 816 PRINT"MAY NOT BE AMENDED, TRANSLATED, OR SOLD."
- 824 POKED,7:PRINT" *USE JOYSTICK#2*"
- 826 PRINT" LEFT/RIGHT = SELECT PILE"
- 828 PRINT" DOWN = TAKE STICKS"
- 830 PRINT" UP = RECONSIDER"
- 832 PRINT" FIRE = FINISHED MOVE":PRINT
- 834 POKED,6:PRINT"[215]HEN IT'S YOUR MOVE, SELECT A PILE AND"
- 835 PRINT"TAKE AS MANY STICKS FROM IT AS YOU WISH.";
- 836 PRINT"[206]ORMALLY YOU MUST TAKE AT LEAST 1 STICK"
- 837 PRINT"(BUT ON YOUR 1ST MOVE AGAINST A PHARAOH,";
- 838 PRINT"YOU MAY TAKE NONE IF YOU WISH). [212]HE AIM";
- 840 PRINT"IS TO AVOID TAKING THE LAST ONE, BECAUSE";
- 841 PRINT"*[208][204][193][217][197][210] [215][200][207] [212][193][203][197][211] [212][200][197] [204][193][211][212] [211][212][201][195][203] [204][207][211][197][211]!*";
- 842 PRINT"[215]HEN YOU BEAT A PHARAOH, NEXT GAME WILL"
- 844 PRINT"FEATURE MORE STICKS. [212]HE AIM IS TO WIN"
- 846 PRINT"A 44 STICK GAME AGAINST EACH PHARAOH."
- 847 PRINT"[212]HIS LOOKS LIKE THE EASIEST GAME IN THE"
- 848 PRINT"WORLD, BUT CAN YOU CONQUER [203]ING [211]NEFRU?"
- 850 PRINT:POKED,0:PRINT"[211][208][193][195][197][146]=CONTINUE [216][146]=ENDPROGRAM";
- 856 POKE53265,PEEK(53265)OR16
- 858 POKE198,0
- 860 GETK$:IFK$="X"ORK$=SK$THEN990
- 862 IFK$<>" "THEN860
- 900 :
- 901 POKED,0:PRINTCL$T$T$T$T$T$:POKED,6
- 907 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
- 910 PRINT"** [210][197][214][207][204][213][212][201][207][206][193][210][217] [211][207][198][212][215][193][210][197] [198][207][210] [195]64/128**"
- 920 PRINT"'[197].[211].[197][193][210][212][200].1' - AN EDUCATIONAL PROGRAM"
- 921 PRINT" ABOUT OUR PLANET, FEATURING AMAZING"
- 922 PRINT" ROTATING EARTH GRAPHICS."
- 925 PRINT"'[197].[211].[197][193][210][212][200].2' - EXPORT ANY EARTH IMAGE"
- 926 PRINT" TO SOME POPULAR PAINT PROGRAMS."
- 930 PRINT"'[197].[211].[197][193][210][212][200].3' - DESIGN YOUR OWN PLANETS"
- 931 PRINT" FOR ROTATION BY E.S.EARTH.1."
- 935 PRINT"'[197].[211].[210][197][193][204][207][210][194][201][212]' - MANOEVER A SPACESHIP"
- 936 PRINT" INTO REALISTIC ORBITS AROUND SINGLE"
- 937 PRINT" AND DOUBLE STAR SYSTEMS."
- 945 PRINT" [193][204][204] [195][207][208][217][210][201][199][200][212] 199[207] [197][196][199][197][215][207][210][212][200] [211][207][198][212][215][193][210][197]"
- 946 PRINT"[193][204][204] 1[207][207]% [207][210][201][199][201][206][193][204] & [193][214][193][201][204][193][194][204][197] [207][206][204][217] [198][210][207][205]"
- 948 PRINT"[197][196][199][197][211][207][198][212][195][207], [208][207][194][207][216] 418, [215].[213][208][212][207][206], [205][193] [207]1587";
- 950 PRINT"[208]LEASE ASK FOR A FREE CATALOG/PRICELIST":JJ=702
- 970 PRINT:PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
- 979 GOTO30
- 990 :
- 997 PRINTCL$CHR$(9)CHR$(142)
- 998 POKE53280,14:POKE53281,6:POKED,14
- 999 POKE808,237:END
- 6682
-