Text   ·   Grafik   ·   Miniaturbilder   ·   PDF   ·   Inhaltsverzeichnis

 

Nascom Journal

Oktober/November 1982 · Ausgabe 10/11


978 IF L1=26 AND L=1 AND U1=0 THEN L=L1:GOTO1890
979 GOTO 1060
980 IF U1=1 AND L=1 THEN L=26: GOTO 120
990 IF U1=1 AND M1$="TRA"AND L=26THEN L=1:RETURN
1000 FOR X1=1 TO 4:M2$=MID$(N$(L,2),X1,1)
1001 IF M2$<>LEFT$(M1$,1) THEN NEXT X1:GOTO 1010
1003 FOR X2=43 TO 46
1004 IF M1$<>R$(X2) THEN NEXT X2:GOTO 1010
1006 L=VAL(N$(L,X1+3)):IF L<>0 THEN 1060
1010 IF L=23 THEN T$="It's too slippery.":RETURN
1020 IF L=25 THEN L=26:RETURN
1030 IF L=26 THEN L=25:RETURN
1040 IFL=19THENL=23:PRINT"Nigh broke m'neck!!":RETURN
1050 T$="Sorry, butcha can't do that.":RETURN
1060 B=0:GOTO 120
1080 IF O$(4,3)<>"1" AND O$(6,3)<>"1" THEN 1320
1083 IF J<>1 THEN 1110
1086 Z=0:IF O$(J,3)="1" THEN Z=99
1090 O$(J,3)="-9":O$(1,2)=STR$(L)
1100 IF Z=99 THEN IN=IN-1
1110 IF J<>22 GOTO 1120
1111 PRINT"Ya got one!":PRINT"But the rest got you!"
1112 GOTO 2220
1120 IF J=9 THEN T$="Ya hit one!":RETURN
1130 GOTO 120
1150 IF O$(18,3)<>"1" THEN 1890
1152 IF J<0 THEN 511
1153 IF J=4 OR (J>5 AND J<11) GOTO 1050
1154 IF J>14 AND J<18 GOTO 1050
1155 IF J=22 OR J=29 OR J>30 THEN 1050
1156 IF O$(J,3)="1" THEN IN=IN-1
1157 O$(J,3)="-7":O$(J,2)=STR$(L)
1158 IF J>0 THEN 1060
1160 IF O$(0,3)<>"-7" THEN 1060
1163 O$(0,2)=STR$(L):FOR J=5 TO 21
1164 IF O$(J,2)="-1" THEN O$(J,3)="-7"
1170 NEXT: GOTO 1060
1190 IF J<>12 THEN 1150
1193 IF O$(J,3)<>"1" OR O$(18,3)<>"1" THEN 1150
1195 CL=1: GOTO 120
1210 IF J<>13 GOTO 1220
1212 PRINT"Yeeech!!": PRINT"It's kerosene!"
1214 PRINT"Ya just poisoned yourself.":GOTO 2220
1220 IF J<>9 THEN 1050
1230 PRINT"Wheeee!!"
1232 PRINT"Ya got plastered and lost a day."
1234 IF CL=1 THEN LN=LN-10
1235 RETURN
1250 IF J>32 OR J<0 THEN 1260
1253 B=VAL(O$(J,2))
1254 IF O$(J,3)="2" OR B=L OR B=-1 THEN 1260
1255 IF J<22 THEN 1890
1257 T$="It aint't here.": RETURN
1260 IF J<=21 AND J<>1 AND J<>-1 GOTO 1270
1262 T$="Who the heck ya think ya is?"+C$
1264 T$=T$+"Paul Bunyon??! Ya ain't strong `nuf."
1266 RETURN
1270 IF O$(J,3)<>"-7"GOTO 1280
1272 T$="It's burnt up `n ruined.": RETURN
1280 IF IN<=4 GOTO 1283
1281 T$="Ya can't! Yer hands `r full": RETURN
1283 IF O$(J,3)<>"1" GOTO 1286
1284 PRINT"Ya already got it!":RETURN
1286 IF VAL (O$(J,1))=0 AND I<>16 THEN 1290
1287 IN=IN+1:IF O$(J,2)<>"-1" GOTO 1289
1288 IM=IM-1:O$(J,2)="":O$(J,3)="1":GOTO 1290
1289 O$(J,3)="1":O$(J,2)=""
1290 IF J<>9 AND J<>11 AND J<>2 THEN 120
1293 IF J=9 AND O$(8,2)="-6"THEN O$(8,2)="6"
1295 IF J=11 AND O$(12,2)="-8" THEN O$(12,2)="8"
1297 IF J=2 AND O$(18,2)="-14" THEN O$(18,2)="14"
1300 RETURN
1320 IF O$(J,3)="1" GOTO 1325
1322 T$="Ya don't have it!":RETURN
1325 T$="Ok":IN=IN-1:O$(J,2)=STR$(L):O$(J,3)=""
1326 RETURN
1340 IF O$(5,3)<>"1" THEN 1890
1350 IF L=7 THEN L=8:GOTO 120
1360 IF L=12 THEN L=13
1370 GOTO 120
1390 GOSUB 120
1391 ON J+1 GOTO 1400,1430,1440,1460,1470
1392 ON FNG(J-4) GOTO 1480,1490,1460,1460,1500
1393 ON FNG(J-9) GOTO 1510,1520,1530,1540,1460
1394 ON FNG(J-14) GOTO 1460,1460,1460,1460,1560
1395 ON FNG(J-19) GOTO 1570,1580,1590,1600,1610
1396 ON FNG(J-24) GOTO 1620,1460,1630,1460,1460
1397 ON FNG(J-29) GOTO 1460,1640,1460
1399 GOTO 1460
1400 IF VAL(O$(0,3))>=1 GOTO 1410
1402 T$="They's lumpy ole leather saddlebags."
1404 RETURN
1410 PRINT"They hold ";
1412 IF IM=0 THEN PRINT"nothin'.":T$="":RETUR
1415 FOR I=6 TO 22
1416 IF O$(I,2)="-1" THEN PRINT " "O$(I,0)",";
1420 NEXT I:T$=CHR$(8)+"."+C$:RETURN
1430 T$="Ya see a weary old grey mule.":RETURN
1440 T$="It's an ole torn sack"
1442 IF O$(18,2)="-14" THEN O$(18,2)="14"
1450 RETURN
1460 T$="Ya see nothin' special.":RETURN
1470 T$="It's an old winchester single-shot."
1472 RETURN
1480 T$="Looks like a map ta th' Lost "
1481 T$=T$+"Dutchman's Mine! Thar's a sketch "
1482 T$=T$+"of sum boulders.": RETURN
1490 T$="Nothin' special,"+C$
1492 T$=T$+"jus' a loaded six shooter.":RETURN
1500 IF O$(8,2)<>"-6" GOTO 1505
1501 T$="Looks like sumthin's `hind the bottles."
1502 O$(8,2)="6": RETURN
1505 GOTO 1460
1510 T$="Thar'r 3 keys, tied with a leather "
1512 T$=T$+"strap.": RETURN
1520 IF O$(12,2)<>"-8" GOTO 1460
1521 T$="Looks like thar's glass under `um."
1522 O$(12,2)="8": RETURN
1530 T$="It's an ole kerosene lamp,"+C$
1532 T$=T$+"full ta the `"+STR$(LN)











Seite 16 von 28









Download des Programms von der Nascom Home Page.