Text Grafik Miniatur­bilder PDF Inhalts­verzeichnis

# 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
```

Download des Programms von der Nascom Home Page.