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