Nascom Journal

  

Oktober/November 1982 · Ausgabe 10/11

1534 T$=T$+" turns left' mark.": RETURN
1540 IF I=11 THEN T$="It sez `KEROSENE'":RETURN
1550 T$="Thar's writing on it.": RETURN
1560 IF O$(20,2)<>"-17" GOTO 1460
1562 O$(20,2)="17":T$="It's a message !":RETURN
1570 IF I<>11 GOTO 1550
1572 T$="It sez:"+C$+"Bring treasures to "
1574 T$=T$+"saloon, say `SCORE'": RETURN
1580 IF I<>11 GOTO 1550
1582 T$="It sez:"+C$+"Watch for other Rider "
1584 T$=T$+"Fantasy adventures!": RETURN
1590 T$="They's a savage lookin' band,"+C$
1592 T$=T$+"`n they seen ya!": RETURN
1600 T$="Jus' an ole ore cart full o' rocks."
1602 RETURN
1610 IF O$(5,2)<>"-25" GOTO 1460
1612 O$(5,2)="1":T$="Thar's sumthin' here!!":
1613 RETURN
1620 IF I<>11 GOTO 1550
1622 T$="It sez:"+C$+"WELCOME TO FRONTIERTOWN."
1623 RETURN
1630 IF O$(10,2)<>"-6" GOTO 1460
1632 T$="Thar's a set of keys thar!"
1633 O$(10,2)="6":RETURN
1640 B=INT(RND(1)*3+1)
1642 ON B GOTO 1650,1660,1670
1650 T$="It's a barrel cactus.":RETURN
1660 T$="It's a cholla cactus.":RETURN
1670 T$="It's a saguaro cactus.":RETURN
1690 IF J=4 AND I=38 THEN 1780
1700 IF J=1 AND VAL (O$(1,3))>=0 GOTO 1710
1702 T$="Sorry, b' that ain't possible.":RETURN
1710 IF I<>38 THEN 1720
1715 IF O$(1,3)<>"" GOTO 1780
1716 T$="Tendarfoot! Ya hav'ta lead `im first."
1717 RETURN
1720 IF O$(1,3)="1" THEN 1320
1723 IF O$(7,3)<>"1" OR I=16 GOTO 1730
1724 T$="Try `LEAD'.":RETURN
1730 ON I-13 GOTO 1740,1750,1760,1770
1740 T$="He got away from ya.":RETURN
1750 T$="Yer too slow, he got away.":RETURN
1760 IF O$(7,3)="1" GOTO 1763
1761 T$="Bad luck, ya tripped and he run off."
1762 O$(1,3)="": O$(1,2)=STR$(L): RETURN
1763 IF O$(1,3)="" THEN 1280
1766 GOTO 1320
1770 T$="He bucked ya off.": RETURN
1780 INPUT"With what";QM$: IF J=4 THEN 1800
1782 IF LEFT$(QM$+"   ",3)="SAD" GOTO 1790
1783 T$="It fell off."+C$+"He got away."
1784 O$(1,3)="":IN=IN-1:O$(1,2)=STR$(L):RETURN
1790 IF O$(O,3)<>"1" GOTO 1320
1791 O$(0,3)="2":IN=IN-1:GOTO 1060
1800 IF LEFT$(QM$+"   ",3)<>"BUL" THEN 1050
1805 IF O$(8,3)<>"1" OR O$(4,3)<>"1" THEN 1320
1810 GOTO 120
1820 IF O$(J,3)<>"1" THEN 1320
1822 INPUT"On or in what (ie `ON TABLE')";QM$
1823 P$=LEFT$(QM$+"  ",2)
1824 IF P$<>"IN"AND P$<>"ON"THEN T$="Huh?":RETURN
1830 M1$=MID$(QM$,4,3)
1840 IF P$<>"ON" THEN 1850
1841 IF M1$="MUL" THEN 1790
1843 IF J<>13 THEN 1320
1845 IF LM=0 THEN T$="It's empty.":RETURN
1847 LM=0:GOTO 1320
1850 IF M1$<>"SAD" THEN 1860
1852 IF J>=5 AND J<>19 AND J<>22 GOTO 1855
1853 T$="Sorry, it don't fit.":RETURN
1855 IF IM>4 THEN T$="The bags `r full.": RETURN
1857 O$(J,2)="-1": O$(J,3)="": IN=IN-1
1858 IM=IM+1: T$="Ok": RETURN
1860 IF M1$="MUL" THEN T$="Ya got kicked!":RETURN
1870 IF M1$<>"LAN" THEN 1050
1872 IF O$(13,3)<>"1" OR O$(12,3)<>"1" THEN 1320
1875 IF LM=50 THEN LN=LN+50: LM=0: GOTO 120
1880 T$="Jar's empty.": RETURN
1890 T$="Ya can't do that... yet!"
1900 PRINT T$: T$="": GOTO 100
1920 PRINT"Ya got with ya: ";
1922 IF IN<>0 OR O$(1,3)="1" GOTO 1930
1924 T$="Nothin'": RETURN
1930 B=VAL(O$(0,3)):X1=B:IF B<>1 THEN 1940
1933 PRINT:PRINT O$(0,0)", containing: ";:FOR I=1 TO 22
1934 IF O$(I,2)="-1" THEN PRINT O$(I,0)". ";:X1=2
1936 NEXT:IF X1<>2 THEN PRINT"Nothin'! ";
1940 IF O$(1,3)<>"1" GOTO 1950
1942 PRINT:PRINT"The mule, which yer leadin. ";
1944 IF B=2 THEN PRINT "(carrying saddlebags) ";
1950 PRINT: X1=0: FOR I=2 TO 22
1952 IF VAL (O$(I,3))<1 THEN 1970
1955 IF CL=1 AND I=12 THEN PRINT "lit ";
1960 PRINT O$(I,0)". ";
1970 NEXT
1980 T$="": RETURN
2000 IF L<>19 GOTO 2005
2001 CLS:PRINT"Ya fell 100 feet `n landed on rocks."
2002 PRINT"Yer dead.": GOTO 2220
2005 IF J=23OR J=32OR M1$="P" THEN T$="Ok":RETURN
2006 GOTO 1050
2010 T$="Where?":RETURN
2020 IF L=25 THEN L=26: GOTO 120
2030 IF L=26 THEN L=25
2040 GOTO 120
2100 DATA"","","",0,0,0,0,0
2101 DATAIN A MINER'S SHACK
2102 DATAWINDOW. DOOR,"",1,3,3,0,0
2105 DATAIN A DESERT,ROAD. MOUNTAINS. DESERT.
2106 DATA"WNES",2,4,2,2,2
2107 DATAON A DIRT PATH
2108 DATAMINER'S SHACK. ROAD. MOUNTAINS
2109 DATA" W  ",5,1,4,2,2
2110 DATAON A DIRT ROAD
2111 DATAMOUNTAINS. PATH. DESERT. TOWN
2112 DATA"NE S",2,7,3,2,5
2113 DATAIN A GHOST TOWN
2115 DATASALOON," N  ",1,6,4,0,0
Seite 17 von 28