Text-Version   ·   Grafik-Version   ·   Miniaturbilder   ·   PDF-Version (ganzes Heft)   ·   Inhaltsverzeichnis

 

Nascom Journal

Oktober/November 1982 · Ausgabe 10/11


480 IF QM$="?" THEN 2600
481 IF QM$<>"HELP" THEN 490
482 X=VAL(N$(L,3))
484 ON X GOSUB 2300,2310,2320,2330,2350,2370
485 ON FNG(X-6) GOSUB 2380,2390
486 GOTO 100
490 X1=LEN(QM$)
491 IF X1<3 THEN T$="What?":GOTO 1900
493 X3=0:FOR X2=3 TO X1:M1$=MID$(QM$,X2,1)
494 IF M1$=" " THEN X3=X2: X2=X1
495 NEXT X2: X2=X3:IF X3=0 THEN X2=X1
500 P$=LEFT$(QM$,3)
501 IF X2<>X1 AND X2+3>X1 THEN 610
502 II=-1:FOR I=0 TO 42:IF P$=R$(I) THEN II=I
503 NEXT:IF II>-1 THEN I=II:GOTO 520
510 IF X1=X2 THEN T$="What?": GOTO 1900
511 T$="Sorry, but ya can't "+LEFT$(QM$,X2)
512 IF X2<X1 THEN T$=T$+RIGHT$(QM$,X1-X2)
513 T$=T$+".":GOTO 1900
520 IF I>=8 OR X1<>X2 GOTO 540
521 W=I
522 ON W+1 GOSUB 2010,2010,2010,2020,680,2020
524 ON FNG(W-5) GOSUB1920,2000
526 GOTO 1900
540 JJ=-1:M1$=MID$(QM$,X2+1,3)
541 FOR J=0TO32:IF M1$=LEFT$(O$(J,0),3)THEN JJ=J
542 NEXT J:J=JJ:IF JJ>-1 THEN 630
543 IF M1$="IRO" THEN 580
545 IF I=36 THEN 940
550 IF N$(L,1)="" THEN 560
551 Z=1: A=Z: X1=LEN(N$(L,1)): FOR X2=5 TO X1
552 IF MID$(N$(L,1),X2,1)="."OR X2=X1 GOTO 554
553 NEXT: GOTO 560
554 M2$=MID$(N$(L,1),Z,3): IF M2$=M1$ THEN 556
555 Z=X2+2:A=A+1: NEXT: GOTO 560
556 X2=X1: NEXT: B=A
557 IFI=10THENPRINT"Ya see nothin' special.":GOTO160
558 GOTO 630
560 FOR X=43 TO 46
561 IF M1$=R$(X)THEN X=46: NEXT: GOTO 650
565 NEXT
570 IF O$(4,3)<>"1" AND O$(6,3)<>"1" GOTO 580
572 IF I<>23 OR M1$<>"SEL" GOTO 580
574 PRINT"Ok":PRINT"Yer dead": GOTO 2220
580 IF I=32 THEN GOSUB 780: GOTO 1900
590 IF I=33 THEN GOSUB 860: GOTO 1900
600 T$="I can't tell watcha want.": GOTO 1900
610 T$="I must be dumb, ya don't make sense"
612 GOTO 1900
630 IF I<9 THEN 650
633 IF J>=33 OR J<=-1 GOTO 636
634 B=VAL(O$(J,2))
635 IF B<>L AND B>0 THEN 1890
636 IF J>32 THEN J=29
640 W=I
642 ONFNG(W-8)GOSUB1250,1390,1390,1390,1250,1700
643 ONFNG(W-14)GOSUB1700,1700,1700,1820,1820,1250
644 ONFNG(W-20)GOSUB 700,700,1080,1060,1060,920
645 ONFNG(W-26)GOSUB 1150,1190,1210,730,730,780
646 ONFNG(W-32)GOSUB 860,1250,900,940,1700,1690
647 ON FNG(W-38)GOSUB 1320,1340,1820,2500
650 IF I>=9 GOTO 660
651 W=I
652 ON W+1 GOSUB 970,970,970,2220,680,970
654 ON FNG(W-5) GOSUB 1920,2000,1320
660 GOTO 1900
680 IF O$(3,3)<>"1" THEN 1890
681 PRINT"Ok": FOR I=13 TO 17
682 IF VAL(O$(I,2))<>-L GOTO685
683 T$="Eureka! We struck gold?!??"
684 O$(I,2)=STR$(L):RETURN
685 NEXT
686 T$="Dag nab it! Thar's nothin' here!":RETURN
700 IF J<>23 THEN 1060
701 IF L=14 THEN O$(23,2)="15": GOTO 120
702 IF L=15 THEN O$(23,2)="16": GOTO 120
703 IF L=16 AND U=1 THEN O$(23,2)="17": GOTO 120
704 IF L=17 THEN O$(23,2)="19": GOTO 120
705 IF L=19 THEN O$(23,2)="23": O$(23,3)="-3"
710 GOTO 120
730 IF J=3 OR J=4 OR J=6 OR J=8 GOTO 740
731 IF J=9 OR J=11 OR J=12 OR J=13 GOTO 740
732 IF J=19 OR J=27 OR J=28 GOTO 740
735 GOTO 1050
740 IF O$(J,3)="1" THEN IN=IN-1
750 O$(J,3)="-3":O$(J,2)=STR$(L):GOTO 120
770 T$="Don't havta.":RETURN
780 IFL<>16 THEN 800
783 IF U<>0 THEN 770
786 IF O$(10,3)="1" THEN U=1:GOTO 120
788 GOTO 1890
800 IF L<>26 THEN 820
803 IF U1<>0 THEN 770
806 IF O$(10,3)="1" THEN U1=1: RETURN
808 GOTO 1890
820 IF O$(1,3)<>"1" THEN 840
825 IF O$(0,3)<>"2" GOTO 830
826 O$(0,3)="":O$(0,2)=STR$(L):GOTO 120
830 GOTO 1050
840 IF CL=1 AND O$(12,3)="1" THEN CL=0: GOTO 120
860 IF (L=16 OR L=17) AND U=1 THEN U=0:GOTO 120
870 IF L=26 AND U1=1 THEN U1=0: GOTO 120
880 GOTO 1050
900 T$="Ya hear nothin' speacial.": RETURN
920 IF L<>11 OR O$(9,3)<>"1" THEN 1320
930 PRINT"They took the fire water 'n ran."
931 IN=IN-1:O$(9,2)="":O$(9,3)="":O$(22,2)=""
932 RETURN
940 IF M1$<>"YOH" GOTO 950
941 PRINT"Sorry, yer in the wrong adventure."
942 T$="Turkey!":GOTO 1900
950 GOSUB 120
951 T$=T$+C$+RIGHT$(QM$,X1-X2)+"."
952 GOTO 1900
970 IF B=0 THEN 980
971 L=VAL(N$(L,B+3))
972 IF O$(1,3)<>"1" GOTO 976
973 IF NOT(L=1 OR L=6 OR L=15)GOTO 976
974 T$="He won't go":L=L1:RETURN
976 IF L=17 AND U=0 THEN L=L1: GOTO 1890











Seite 15 von 28









Download des Programms von der Nascom Home Page.

Der Text wurde mit OCR aus der gescannten Seite erzeugt.