PORTALS Z<Z513435 1L(579)=I$:'' N$(L(579)):B,20 ?:"Enter experience points requiredfor victory (100 to 999)." A$:A$=""455 9N=ḆA$:E$=A$(N):E$<480ůE$>579455 N +V=A$:V<100dV>999455 L(546)=V '''V:B,20 *CREATE SCREEN* =G::QL=A:801!:N=BDC:N,A;"MMMMMMMMMMMMMMMMMM":N F:B N=AD:N,18;"N":N N=CD:N,H;"NN N":N N=E16:N,G;"N":N "N=C21:N,19;"N":N N=CJ:N,31;"N":N )N=11 21:N,31;"N":N A$="NNNNNNNNNNNN"  iC,20;A$;J,20;A$;11 ,20;A$;21,20;A$;17,A;A$;17,J;A$ B:H: _V=L(579)*E:C,K;(75K+V);(76L+V);D,K;(77M+V);(78N+V):805% E:A A,A; "PORTALS OF P'THAAL" !/A,19;"VIC EXP:";B,19;"**TURNS:" #G:B &C,A;N$(L(579)) (B:F + 85004! -N=BH:A$:C+N*C,A;A$:N 2H;C;A,27;L(546) 5IN=BG:H;B;C+N*C,D;L(N+C):N:H;B;16,D;"+";(L(568)/E) :A:G <C,12 ;"SPELLS" ?N=B13 B>N+D,H;S$(N,B);B;(64@+N);A;S$(N,C);L(40(+N):N D'B:143,40(:A,104h:A N 8204 X 900  1999 *SUBROUTINES*  *CHOOSE CHAR SET* !Z1,120x:Z2,252: %Z1,A:Z2,60<: /Z1,72H:Z2,253: 4 *DRAW MAP* 5)G:N=KM:N,20;" ":N 6(Y=CH:A:A$="HHHHHHHHHHH":835C 8 X>0H:A$="IIIIIIIIIII" :!X>33!E:A$="FFFFFFFFFFF" 66BF:A$="GGGGGGGGGGG" >!X>99cG:A$="HHHHHHHHHHH" H%801!:N=DH:N,20;A$:N JF,25;"A" L0L$(X,Y,B)="1"D,25;"A";E,25;"A" N0L$(X,Y,C)="1"G,25;"A";H,25;"A" P$L$(X,Y,D)="1"F,26;"BBBBB" R$L$(X,Y,E)="1"F,20;"BBBBB" SA:G TV=L$(X,Y,FG):V855W VV>35#D,27;"E" W$Y=CL$(X,Y,F)="1"D,27;"D" XD,21;"J" Y 1140t Z801!:H,27;"C" \=I=A:VY=BI=P$(V,B):815/:H,20;U$(P$(V,B)) d$805%:H,28;L(568) e"Y=CK,20;"Netherworld": f>VK,20;P$(V,C):V<14VAM,21;"Guild" z *MENU* 6N=12 21:E;N,20;" ":N B;H;E;13 ,23;"MENU*";A;15,20;"N*S*E*W*U*D";16,23;"MAGIC";17,23;"LOAD*";18,21;"QUIT/SAVE";19,21;"BEFRIEND*": IN=1821:H;N,A;" ":N::"CLEAR WINDOW* 5.5,20:B;B;21,14;"SPACE" I$= !I$=" ".03{u\,25:W: 935:*"SPACE"* 1L(J)>999L(J)=999:*CHECK MAX EXP*  *INPUT ROUTINE* W:19,E;"SEE MENU--->" I$= I$="Q"3000 I$="L"3100 I$="B"4000 I$="M"COM=A:5000 I$="N"990 I$="S"1000 I$="E"1010 I$="W"1020 I$="U"1030 I$="D"1040  965 L$(X,Y,B)="0"1050 +L$(X-11 ,Y,C)="0"L(M)A19,B;"You're invisible!":SP: CH4100 ML(40()>AW:19,C;"There's no one";20,C;"at home!":SP: lL(40()=16:L(G)+R(G)>J19,C;"You befriend a";20,C;"villager!":4100:SP: IW:19,B;"Sorry,you weren't";20,B;"friendly enough!":SP: +L(59;)L(59;)=B:1140t: L(60<)=B:1140t:  *MAGIC* W:N=B502:N 519,C;"Choose a spell";20,F;"(H to M)" I$= 'I$<72HůI$>77M5015 JU=(I$-24):L(U)W:19,B;"Spell not learnt!":SP:BAD=B: TT=(S$(I$-64@,B)):T > L(D)W:19,B;"Not enough magic!":SP:BAD=B: VW:19,E;"Spell cast!":Z=BD:N=3020-1:.02{# =,N:N:Z VL(D)=L(D)-T:L(U)=L(U)-B:G;U-37%,18;L(U);G;E,D;" ";H;B;E,D;L(D) COM %(I$-71G)*100d+5100 P *CHARMER* UCH=B:4000 ZCH=A:  *MEGAJUMP* Y=B:8204:  *PATHTWIST* " L(M)=G: | *DISAPPEAR* L(K)=11 :  *MOREMAGIC*  L(D)=L(D)+G H;B;E,D;L(D): D *REZZIRECK* N'L(H)=L(H)+B:H;B;12 ,D;L(H): p*FISTICUFFS* u#MON =R(15):LEV=M$(MON,G) zY=BLEV=C6005u Y=CLEV=B6005u NUM=R(M$(MON,B)) [W:19,C;"You are attacked";20,C;"by denizen":NUM>B20,12 ;"s" SP 6N=12 21:F;N,20;" ":N PIC=32 *MON+64120x:Z1,PIC-256*(PIC/256):Z2,(PIC/256):H;B;12 ,20;"AB";13 ,20;"CD":805% "12 ,22;G;M$(MON,J) A$="M1 M2 M3":E$=A$ NUM=CE$=A$(F) NUM=BE$=A$(C)  F;14,23;E$  8600! ,N=BD:A$:H;14+N*C,20;A$:N W(NUM):X(NUM):Y(NUM) ON=BNUM:W(N)=M$(MON,H):X(N)=M$(MON,CD)+R(E):Y(N)=M$(MON,EF)+R(E):N $gN=BNUM:H;A;16,N*D+20;W(N);18,N*D+20;X(N);20,N*D+20;Y(N):N &.EXPN=A:N=BNUM:EXPN=EXPN+W(N)+X(N)+Y(N):N 88W:COM=B:BAD=A:FIG=A:19,C;"Magic or Combat?" =I$= BI$="M"6250j GI$="C"6600 L 6205= j8W:19,C;"Choose a spell";20,C;"(A to G)" oI$= t'I$<65AůI$>71G6255o y 5030 ~BAD6550 +COM=A:(I$-64@)*20+6300  *NO-FOE*  6500d  *GORLAB* MONF6480P  6500d  *DEMBONES* MON13 6480P  6500d  *ANTIVAMP* MONE6480P  6500d  *BLACKOUT* MOND6480P  6500d  *FIREBALL* NUM=BZ=B:6428 $W:19,B;"On which denizen?" I$= -I$<491ůI$>(480+NUM)6424 Z=(I$-480) MY(Z)W:19,C;"That denizen";20,C;"is dead!":SP:6550 FIRE=R(E)+D Y(Z)=Y(Z)-FIRE:6970: ( *TELEPORT* -&TEL=R(121y):TEL=X6445- 2"X=TEL:8204:900:H: P#W:19,C;J$:SP:6550 d]W:18,C;"You dispose of";19,C;"the foe and gain";20,C;"EXPerience":SP iAL(J)=L(J)+EXPN:H;B;14,D;L(J):1120`:900: *HOSTILE MEANIES* (MON=BMON=FMON=G)ƨR(C)=CW(B)W:18,B;"The ";M$(MON,J);19,B;"casts a ";K$(R(D));20,B;"spell at you":W(B)=W(B)-D:H;A;16,23;W(B):SP:6560 FIG6677  62008 #L(F)=L(F)-(R(F)):L(F)B20,C;"number ";BOP  6920 BRAWL>A6720@  BRAWLB21,C;"number ";BOP L(P+58:)6698*  6920 eBRAWLAW:19,E;"Villager ";P;20,E;"wins round!":6950&:Y(BOP)=Y(BOP)-BRAWL:Z=BOP:6970: $2BRAWLW:19,D;"No one hurt":6950& *P + 6610 @ *WIN ROUND* EIW:19,D;"You hit the";20,D;"denizen":Y(BOP)=Y(BOP)-BRAWL JY(BOP)>A6950&:W O2Y(BOP)BF;20,Z*D+20;" ";H;A;20,Z*D+20;Y(Z) @"COUNT=A:N= BNUM:Y(N)COUNT=B BN DCOUNT6500d EFIG=B6675 FFIG=C6698* G 6550 M *CHECKDEAD* NL(H)=L(H)-B:L(F)=R(D)+F:L(H):"PORTALS"1:"PORTCODE"64672,864`:DISC* TPORTCODE `Zb[\/:Z 뤫hU%C? tH((?AA `H?qqmojX 030fg̸D "a7]I6BR_J`J̔*eHT „@B'ELzX<<<? -en.C@_U@T Asz=?W #gxY[ˑ 0FUB@*I8a"Wi0=D,4]pA~ H(0Ph?XX{C_e?M+?/(,2!ID$?b7=:8y!3ttbZBN<1YMm-}@Ɲ=9dݟk{((Ew@pħ8T8TT8@*E(DlTD8  <<<~@