home *** CD-ROM | disk | FTP | other *** search
/ A.N.A.L.O.G. Magazine 1988 April / 88_apr_a.atr / magazine.lns < prev    next >
Text File  |  2023-02-26  |  5KB  |  1 lines

  1. 50 A$="Jo!b!dbcjo":W=N6:RETURN ¢60 A$="Jo!uif!gspou!zbse":N=N7:W=N8:RETURN ¢70 A$="Jo!b!gjfme":S=N6:RETURN ¢80 A$="Jo!b!gpsftu":N=N9:S=N8:E=N6:W=N9:RETURN ¢90 A$="Jo!b!gpsftu":N=N8:S=N8:E=N9:W=N10:RETURN ¢100 A$="Cftjef!b!ijmm":E=N9:RETURN ¢110 A$="Jo!b!dbwf":E=N10:RETURN ¢120 A$="Jotjef!uif!tife":W=N7:RETURN ¢6302 IF IN$<>"EJBM!45.65.38" OR I(N3) OR R<>N5 THEN 6304¢6303 A$="Uif!dpncjobujpo!xpslt/":I(N3)=-5:UL=N1:GOTO N950¢6304 IF IN$<>"EJH!HSPVOE" OR I(N15) OR R<>N11 OR I(N6)<>-N1 THEN 6306¢6305 A$="Zpv!ejh!tpnfuijoh!vq=":I(N15)=-11:UL=N1:GOTO N950¢6306 IF IN$="EJH!HSPVOE" AND R=N11 AND  NOT I(N15) THEN A$="Zpv!offe!tpnfuijoh/":GOTO N950¢6502 IF IN$<>"GJMM!MBOUFSO" OR I(N2)<>-N1 OR I(N10)<>-N1 OR I(N20)<>N0 THEN 6504¢6503 I(20)=-N1:I(N2)=N0:UL=N1:A$="Plbz-!ju(t!gvmm/":GOTO N950¢6504 IF IN$="GJMM!MBOUFSO" AND (I(N2)<>-N1 OR I(N10)<>-N1) THEN A$="Opu!zfu/":GOTO N950¢6602 IF IN$="HP!TIFE" AND R=N7 AND ABS(I(N18))=R THEN A$="Plbz":R=N12:UL=N1:GOTO N950¢6604 IF IN$="HP!TIFE" AND R=7 THEN A$="Ju(t!dmptfe!vq!ujhiu/":GOTO N950¢6606 IF IN$="HP!DBWF" AND R=N10 AND ABS(I(N14))=R THEN A$="Plbz":R=N11:UL=N1:GOTO N950¢6608 IF IN$="HP!DBWF" AND R=10 THEN A$="Zpv!dbo(u!ep!uibu!zfu/":GOTO N950¢7102 IF IN$="MPPL!QBSSPU" AND R=N5 THEN A$="Ju!mpplt!mjlf!b!qbsspu/":GOTO N950¢7104 IF IN$="MPPL!DBCJOFU" AND R=N5 THEN A$="Ju!ibt!b!mpdl/":GOTO N950¢7106 IF IN$="MPPL!MPDL" AND R=N5 THEN A$="Ju(t!b!dpncjobujpo!mpdl/":GOTO N950¢7108 IF IN$="MPPL!TIFE" AND R=N7 AND ABS(I(N19))=R THEN A$="Tpnfpof!cpbsefe!ju!vq/":GOTO N950¢7110 IF IN$="MPPL!MBOUFSO" AND I(N2)=-N1 THEN A$="Ju!offet!gjmmjoh/":GOTO N950¢7112 IF IN$="MPPL!MBOUFSO" THEN A$="Zpv!epo(u!ibwf!ju/":GOTO N950¢7114 IF IN$="MPPL!LFSPTFOF" AND I(N10)=-N1 THEN A$="Mbcfm;!GPS!MBOUFSOT":GOTO N950¢7116 IF IN$="MPPL!LFSPTFOF" THEN A$="Zpv!ibwf!up!ibwf!ju!gjstu":GOTO N950¢7118 IF IN$="MPPL!EPPS" AND R=N7 AND ABS(I(N19))=R THEN A$="Uifsf(t!b!cpbse!pwfs!ju/":GOTO N950¢7120 IF IN$="MPPL!SVCCMF" AND R=N10 THEN A$="Uifsf(t!tpnf!cpvmefst/":GOTO N950¢7122 IF IN$="MPPL!DBWF" AND R=N11 THEN A$="Uif!hspvoe(t!ejtuvscfe/":GOTO N950¢7124 IF IN$<>"MJHIU!MBOUFSO" OR I(N20)<>-N1 OR I(N4)<>-N1 OR I(N21)<>N0 THEN 7126¢7125 I(21)=-N1:I(N20)=N0:UL=N1:A$="Zpv!mjhiu!uif!mboufso/":GOTO N950¢7126 IF IN$="MJHIU!MBOUFSO" AND (I(N20)<>-N1 OR I(N4)<>-N1) THEN A$="Zpv!offe!tpnfuijoh!npsf/":GOTO N950¢7128 IF IN$="MPPL!DIFTU" AND R=N11 AND I(N21)=-N1 THEN A$="Zpv!gpvoe!uif!nbhb{joft=":GOTO 13000¢7130 IF IN$="MPPL!DIFTU" AND R=11 THEN A$="Zpv!dbo(u!rvjuf!tff///":GOTO N950¢7402 IF IN$<>"PQFO!DBCJOFU" OR I(N2) OR R<>N5 OR ABS(I(N3))<>R THEN 7404¢7403 A$="Uifsf(t!tpnfuijoh!jotjef=":I(N2)=5:UL=N1:GOTO N950¢7404 IF IN$="PQFO!DBCJOFU" AND R=N5 AND  NOT I(N2) THEN A$="Ju(t!mpdlfe!vq/":GOTO N950¢7702 IF IN$<>"SBLF!MFBWFT" OR I(N6) OR R<>N6 OR I(N9)<>-N1 THEN 7704¢7703 A$="Uifsf(t!tpnfuijoh!ifsf/":I(N6)=6:UL=N1:GOTO N950¢7704 IF IN$="SBLF!MFBWFT" AND R=N6 AND  NOT I(N6) THEN A$="Zpv!dbo(u///zfu/":GOTO N950¢7706 IF IN$<>"SFNPWF!CPBSE" OR I(N11)<>-N1 OR I(N18)<>N0 OR R<>N7 THEN 7708¢7707 I(18)=-R:I(N19)=N0:UL=N1:A$="///xjui!uif!ujsf!jspo/":GOTO N950¢7708 IF IN$="SFNPWF!CPBSE" AND I(N11)<>-N1 THEN A$="Opu!opx/":GOTO N950¢7802 IF IN$<>"TNBTI!CPVMEFS" OR I(N14) OR R<>N10 OR I(N8)<>-N1 THEN 7804¢7803 A$="Zpv!tnbti!ju!up!qfccmft=":I(N14)=10:UL=N1:GOTO N950¢7804 IF IN$="TNBTI!CPVMEFS" AND R=N10 AND  NOT I(N14) THEN A$="Zpv!dbo(u///bu!uif!npnfou":GOTO N950¢7902 IF IN$="UBML!QBSSPU" AND R=N5 THEN A$="If!tbzt-(Ejbm!45.65.38(":GOTO N950¢10060 NN=25:NV=14:SI=0:L=286¢10130 INTRO$(1)="Somewhere out in the wilds, a chest   of old ANALOG Magazines has been      hi"¢10131 INTRO$(79)="dden.  These collector's items are  just what you need to round out your  coll"¢10132 INTRO$(157)="ection, something you've been     trying to do for years.  If you can   find t"¢10133 INTRO$(235)="hem, you'll be the envy of the  entire neighborhood!                          "¢10200 IT$="QBSMBOPQFNBUMFBTIPTIFTMFSBLLFSUJSCPVTNBDBWDIFDBCMPDPMECPBGVMMJU45.SVCEPPHSP"¢10210 VB$(N1)="HFUESPMPPUBMPQFEJBSBL!!!TNBEJHSFNHP!MJHGJM"¢12001 DATA QBSSPU,-5¢12002 DATA MBOUFSO,0¢12003 DATA PQFO!MPDL,0¢12004 DATA NBUDIFT,5¢12005 DATA MFBWFT,-6¢12006 DATA TIPWFM,0¢12007 DATA TIFE,-7¢12008 DATA TMFEHFIBNNFS,12¢12009 DATA SBLF,12¢12010 DATA LFSPTFOF,12¢12011 DATA UJSF!JSPO,5¢12012 DATA CPVMEFS,-41¢12013 DATA TNBMM!SPDLT,0¢12014 DATA DBWF,0¢12015 DATA DIFTU,0¢12016 DATA DBCJOFU,-5¢12017 DATA MPDL,0¢12018 DATA PME!CPBSE,0¢12019 DATA CPBSEFE!EPPS,-7¢12020 DATA GVMM!MBOUFSO,0¢12021 DATA MJU!MBOUFSO,0¢12022 DATA 45.65.38,0¢12023 DATA SVCCMF,-10¢12024 DATA EPPS,0¢12025 DATA HSPVOE,0¢12200 DATA CLAYTON WALNUM,magazine hunt¢