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:? "ΜΟΓΑΤΙΟΞ: ";:? 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 ? :? "ΩΟΥ ΘΑΦΕ:":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********›