11 ? :? A$:RETURN ¢15 FOR X=N1 TO 700:NEXT X:RETURN ¢30 POKE N16,112:POKE 53774,112:RETURN ¢40 N=N0:S=N0:E=N0:W=N0:U=N0:D=N0:GOSUB R*N10¢45 GRAPHICS N0:POKE 710,N0:GOSUB 30:GOSUB N10:? "כנבIJקחנמ: ";:? A$:A$="":RETURN ¢50 A$="FRONT OF HOUSE":N=N8:E=N7:W=N6:RETURN ¢60 A$="MAIN STREET":E=N5:W=N6:RETURN ¢70 A$="MAIN STREET":E=N7:W=N5:RETURN ¢80 A$="ON THE PORCH":S=N5:RETURN ¢90 A$="LIVING ROOM":N=N12:S=N8:U=N11:D=N10:RETURN ¢100 A$="CELLAR":U=N9:RETURN ¢110 A$="BEDROOM":D=N9:RETURN ¢120 A$="KITCHEN":S=N9:RETURN ¢955 FOR X=N1 TO N6:INV(X)=N0:NEXT X¢960 GOSUB 40¢1015 ? :? "דןחקצ: ";:IF NOT (N OR S OR E OR W OR U OR D) THEN ? "None":GOTO 1055¢1020 IF N THEN ? "N ";¢1025 IF S THEN ? "S ";¢1030 IF E THEN ? "E ";¢1035 IF W THEN ? "W ";¢1040 IF U THEN ? "U ";¢1045 IF D THEN ? "D ";¢1055 ? :? :? "ךנרáצדד:":IT=N0:FOR X=N1 TO NN:IF ABS(I(X))<>R THEN NEXT X:GOTO 1065¢1060 A$=I$(X*SZ-SZ+N1,X*SZ):GOSUB N10:? A$:IT=N1:NEXT X¢1065 IF NOT IT THEN ? "Nothing"¢1080 ? :? "ךנרáזIJשד:":INV=N0:FOR X=N1 TO NN:IF I(X)<>-N1 THEN NEXT X:GOTO 1090¢1085 A$=I$(X*SZ-SZ+N1,X*SZ):GOSUB N10:? A$:INV=N1:NEXT X¢1090 IF NOT INV THEN ? "Nothing"¢1820 IF V$="D" AND R=N9 AND I(N9)<>-N1 THEN A$="You fell in the dark!":GOTO 4500¢1825 IF V$="N" AND N THEN R=N:GOTO 960¢1830 IF V$="S" AND S THEN R=S:GOTO 960¢1840 IF V$="E" AND E THEN R=E:GOTO 960¢1850 IF V$="W" AND W THEN R=W:GOTO 960¢1860 IF V$="U" AND U THEN R=U:GOTO 960¢1870 IF V$="D" AND D THEN R=D:GOTO 960¢1880 ? :? "No such direction!":GOTO 1260¢2000 IF Y=N3 AND I(Y)=-N1 AND NOT I(N4) THEN A$="You found something!":I(N4)=R:GOSUB N11:GOSUB N15:GOTO 960¢2010 IF Y=N6 AND (I(Y)=R OR I(Y)=-N1) THEN A$="It's ANALOG":GOSUB N11:GOTO 1260¢2095 ? :? "Looks ordinary":GOTO 1260¢2100 IF I(Y)<>-N1 THEN ? :? "You don't have it!":GOTO 1260¢2110 FOR X=N1 TO N6:IF INV(X)=Y THEN INV(X)=N0¢2120 NEXT X:I(Y)=R:GOTO 960¢2200 IF I(Y)=-N1 THEN ? :? "You already have it!":GOTO 1260¢2205 IF I(Y)=-R THEN ? :? "You can't get that!":GOTO 1260¢2210 IF I(Y)<>R THEN ? :? "It's not here!":GOTO 1260¢2220 L=N0:FOR X=N1 TO N6:IF INV(X)=N0 THEN L=X¢2230 NEXT X:IF NOT L THEN ? :? "You can't carry anymore!":GOTO 1260¢2240 I(Y)=-N1:INV(L)=Y:GOTO 960¢2300 IF Y=N1 AND R=N8 AND NOT I(N2) THEN I(N2)=R:A$="You found something!":GOSUB N11:GOSUB N15:GOTO 960¢2395 GOTO 4010¢2400 IF R=N8 AND Y=N8 AND UL THEN R=N9:GOTO 960¢2410 IF R=N8 AND Y=N8 AND NOT UL THEN A$="It's locked":GOSUB N11:GOTO 1260¢2495 GOTO 4010¢2500 IF R=N8 AND Y=N8 AND I(N2)=-N1 AND NOT UL THEN UL=N1:GOTO 4000¢2595 GOTO 4010¢2600 IF Y<>N4 OR I(Y)<>-N1 OR I(N5)<>-N1 THEN 2695¢2610 I(Y)=N0:I(N9)=-N1:I(N5)=N0:FOR X=N1 TO N6:IF INV(X)=Y THEN INV(X)=N9¢2620 NEXT X:GOTO 960¢2695 GOTO 4010¢2700 IF Y=N6 AND I(Y)=-N1 THEN OP=N1:GOTO 4000¢2710 IF Y=N7 AND R=N12 AND I(N10)=N0 THEN I(N10)=R:I(Y)=N0:GOTO 960¢2795 GOTO 4010¢2800 IF Y<>N6 OR I(Y)<>-N1 OR NOT OP THEN 4010¢2810 A$="≤∩∮⌡⌠Θ∩∈ Yell out a window: ANALOG IS GREAT":GOSUB N11:GOTO 1260¢2895 GOTO 4010¢2900 IF R=N12 AND I(N10)=R AND N$="ANALOG IS GREAT" THEN 4600¢2910 ? :? CHR$(34);N$;CHR$(34):GOTO 1260¢2995 GOTO 4010¢4000 ? :? "Okay":GOTO 1260¢4010 ? :? "You can't do that":GOTO 1260¢4500 GRAPHICS N0:POKE 710,N0:GOSUB N10:POSITION N19-(LEN(A$)/N2),N5:? A$¢4510 POSITION N8,N10:? "THIS ADVENTURE IS OVER!":? :? :? :? :END ¢4600 GRAPHICS N0:POKE 710,N0:POKE 752,N1:POSITION N15,N10:? "YOU WIN!"¢4610 GOTO 4610¢6840 ? :? "LOAD FROM קAPE OR גISK";:INPUT Z$:IF Z$="D" THEN 6900¢6860 IF Z$<>"T" THEN ? :GOTO 6820¢6880 ? :? "CUE, PRESS RETURN TWICE.":OPEN #N1,N4,N0,"K:":GET #N1,A:CLOSE #N1¢6885 OPEN #N1,N4,N0,"C:":GOTO 6920¢6900 OPEN #N1,N4,N0,"D:DEMOGAME.DAT":A$=""¢6920 INPUT #N1,R,OP,UL¢6980 FOR X=N1 TO NN:INPUT #N1,A:I(X)=A:NEXT X¢6990 FOR X=N1 TO N6:INPUT #N1,A:INV(X)=A:NEXT X¢7020 CLOSE #N1:UL=N1:? :? :TRAP 1260:GOTO 960¢7040 ? :? "NO GAME DATA SAVED!":CLOSE #N1:GOTO 1260¢7060 ? :? "SAVE TO קAPE OR גISK";:INPUT Z$:IF Z$="D" THEN Z$=",":GOTO 7120¢7080 IF Z$<>"T" THEN 7060¢7100 ? :? "CUE, PRESS RETURN TWICE.":OPEN #N1,N4,N0,"K:":GET #N1,A:CLOSE #N1:Z$=","¢7110 OPEN #N1,N8,N0,"C:":GOTO 7140¢7120 OPEN #N1,N8,N0,"D:DEMOGAME.DAT"¢7140 PRINT #N1;R;Z$;OP;Z$;UL¢7200 FOR X=N1 TO NN:PRINT #N1;I(X):NEXT X¢7210 FOR X=N1 TO N6:? #N1;INV(X):NEXT X¢7220 CLOSE #N1:? :? :A$="":GOTO 960¢32049 REM *********L$ DATA********¢32110 REM ********ITEM DATA********¢
