home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 February / 64er_Magazin_90-02_1990_Markt__Technik_de_Side_A.d64 / nr-querverweise (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.