home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9002a.d64 / nr-querverweise (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  880b  |  21 lines
  1. 10 N=900:PRINT"ZEILENNR-QUERVERWEISE":DIMR%(N),L%(N),C(255),B$(4):INPUT"PRG=";P$
  2. 20 D=3:OPEN1,8,3,P$+",P,R":OPEN15,8,15:INPUT#15,E:IFETHENPRINT"DISKERR=";E:END
  3. 30 C(0)=4:C(34)=1:C(143)=3:C(131)=2:B$(1)=CHR$(34):B$(2)=":":GOSUB180:GOSUB180
  4. 40 GOSUB180:L=A:GOSUB180:PRINT:IFL+A=0THENCLOSE1:R%(0)=-1:R%(W+1)=2^15-1:GOTO130
  5. 50 GOSUB180:L=A:GOSUB180:L=A*256+L:PRINT"ZEILE ";L;
  6. 60 GOSUB180:IFA<>137ANDA<>138ANDA<>141ANDA<>167THEN90
  7. 70 GOSUB190:IFA>47ANDA<58THENM=(10*M)+VAL(A$):GOTO70
  8. 80 IFM<>0THENW=W+1:L%(W)=L:R%(W)=M:PRINT" RUFT ";M;:M=0:IFA=44THEN70
  9. 90 Q$=B$(T):ONT+1GOTO60,100,100,100,40
  10. 100 GOSUB180:IFA>0ANDA$<>Q$THEN100
  11. 110 ONT+1GOTO60,60,60,60,40
  12. 120 PRINT:INPUT"DRUCKEN(J/N)";D$:D=ASC(D$)-70:IFD<>4THENCLOSE2:CLOSE15:END
  13. 130 OPEN2,D:PRINT#2,"ZEILENNR-QUERVERWEISE FUER PRG:";P$:FORX=1TOW:FORY=X+1TOW
  14. 140 IFR%(Y)<=R%(X)THENR=R%(Y):R%(Y)=R%(X):R%(X)=R:L=L%(Y):L%(Y)=L%(X):L%(X)=L
  15. 150 NEXT:IFR%(X)<>R%(X-1)THENPRINT#2:PRINT#2,R%(X);"=>";L%(X);:GOTO170
  16. 160 IFL%(X)<>L%(X-1)THENPRINT#2,",";L%(X);
  17. 170 NEXT:PRINT#2:CLOSE2:GOTO120
  18. 180 GET#1,A$:A=ASC(A$+CHR$(0)):T=C(A):RETURN
  19. 190 GOSUB180:IFA$=" "THEN190
  20. 200 RETURN
  21.