home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
91xx
/
9101a.d64
/
cross-reference
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
59 lines
1 GOTO5
2 W=W+1:L%(W)=L:R$(W)=RIGHT$(S$+M$,5):PRINT" , ";M$;:M$="":RETURN
3 GET#1,A$:A=ASC(A$+CHR$(0)):T=C(A):RETURN
4 GOSUB3:ON-(A=32)GOTO4:RETURN
5 N=900:DIMR$(N),L%(N),C(255):PRINT"CROSS-REFERENCE-LISTING"
6 S$=" ":Z$(1)="ZEILEN-NR":Z$(2)="VARIABLEN":Z$(3)="ZEILEN+VARIABLEN"
7 PRINT"BITTE WAEHLEN SIE":INPUT"1=ZEILEN-NR,2=VARIABLEN,3=BEIDES";P$:P=VAL(P$)
8 INPUT"PRG-DATEI=";P$:B$(1)=CHR$(34):FORI=65TO90:C(I)=8:NEXT
9 OPEN1,8,3,P$+",P,R":OPEN15,8,15:INPUT#15,E:IFETHENPRINT"DISKERR=";E:END:RUN
10 FORI=1TO22:READZ,C(Z):NEXT:B$(2)=":":GOSUB3:GOSUB3:ONPGOTO12,22,34:GOTO7
11 CLOSE1:W$=CHR$(13):D=3:GOSUB49:END
12 GOSUB3:L=A:GOSUB3:PRINT:IFL+A=0THEN11
13 GOSUB3:L=A:GOSUB3:L=A*256+L:PRINT"ZEILE ";L;"=>";
14 GOSUB4:GOTO18
15 M$=M$+A$
16 GOSUB4:ONT+1GOTO17,17,17,17,17,16,15,17,17,17,17
17 IFM$<>""THENGOSUB2:IFA=44THEN16
18 Q$=B$(T):ONT+1GOTO14,19,19,19,12,14,14,16,14,14,14
19 GOSUB3:IFA>0ANDA$<>Q$THEN19
20 IFT=4THEN12
21 GOTO14:W=W+1:L%(W)=L:R$(W)=M$:PRINT" , ";M$;:M$="":GOTO18
22 GOSUB3:L=A:GOSUB3:PRINT:IFL+A=0THEN11
23 GOSUB3:L=A:GOSUB3:L=A*256+L:PRINT"ZEILE ";L;"=>";
24 GOSUB4:GOTO25
25 Q$=B$(T):ONT+1GOTO24,26,26,26,22,24,24,24,31,24,24
26 GOSUB3:IFA>0ANDA$<>Q$THEN26
27 IFT=4THEN22
28 GOTO24
29 M$=M$+A$:GOSUB4:IFT=10THEN32
30 GOTO33
31 M$=M$+A$:GOSUB4:ONT+1GOTO33,33,33,33,33,32,31,33,31,29,32
32 M$=M$+A$
33 W=W+1:L%(W)=L:R$(W)=M$:PRINT" , ";M$;:M$="":GOTO25
34 GOSUB3:L=A:GOSUB3:PRINT:IFL+A=0THEN11
35 GOSUB3:L=A:GOSUB3:L=A*256+L:PRINT"ZEILE ";L;"=>";
36 GOSUB4:GOTO40
37 M$=M$+A$
38 GOSUB4:ONT+1GOTO39,39,39,39,39,38,37,39,39,39,39
39 IFM$<>""THENGOSUB2:IFA=44THEN38
40 Q$=B$(T):ONT+1GOTO36,41,41,41,34,36,36,38,46,36,36
41 GOSUB3:IFA>0ANDA$<>Q$THEN41
42 IFT=4THEN34
43 GOTO36
44 M$=M$+A$:GOSUB4:IFT=10THEN47
45 GOTO48
46 M$=M$+A$:GOSUB4:ONT+1GOTO48,48,48,48,48,47,46,48,46,44,47
47 M$=M$+A$
48 W=W+1:L%(W)=L:R$(W)=M$:PRINT" , ";M$;:M$="":GOTO40
49 R$(W+1)="[255]"
50 OPEN2,D:PRINT#2,Z$(P);" CROSS-REFERENZ VON PG:";P$
51 FORX=1TOW:FORY=X+1TOW
52 IFR$(Y)<=R$(X)THENR$=R$(Y):R$(Y)=R$(X):R$(X)=R$:L=L%(Y):L%(Y)=L%(X):L%(X)=L
53 NEXT:IFR$(X)<>R$(X-1)THENPRINT#2,LEFT$(W$+R$(X)+S$,7);"=>";L%(X);:GOTO55
54 IFL%(X)<>L%(X-1)THENPRINT#2," , ";L%(X);
55 NEXT:PRINT#2:CLOSE2:INPUT" 0=ENDE,3=CRT,4=DRUCKER";D:
56 IFD>=3ANDD<=4THEN50
57 RETURN:DATA 48,6,49,6,50,6,51,6,52,6,53,6,54,6,55,6,56,6,57,6
58 DATA0,4,32,5,34,1,131,2,143,3,137,7,138,7,141,7,167,7,36,9,37,9,40,10