home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 25
/
64er_Magazin_Sonderheft_25_19xx_Markt__Technik_de.d64
/
bc-sucher
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
68 lines
10 rem ********************************
20 rem ** suchen von bildschirmcode- **
30 rem ** texten in programmen **
40 rem ********************************
50 :
60 :
70 tr=18:se=1
80 print"[147]--- bc-textsucher ---"
90 print"ausgabe auf b[146]ildschirm"
100 print" oder d[146]rucker ";
110 inputau$
120 ifau$="b"thenau=3:goto150
130 ifau$="d"thenau=4:goto150
140 goto90
150 input"name der datei ";na$
160 ifau=3thenprint"[147]"
170 open3,au
180 print#3,"wahrscheinliche bc-texte:"
190 open15,8,15:open2,8,2,"#"
200 print#15,"u1";2;0;tr;se
210 input#15,a,b$,c,d
220 ifa>0then150
230 forl=0to7
240 print#15,"b-p";2;l*32+5
250 da$=""
260 forn=1tolen(na$)
270 nt=et:ns=es
280 get#2,a$
290 da$=da$+a$
300 nextn
310 ifda$=na$then400
320 nextl
330 print#15,"b-p";2;0
340 get#2,nt$:get#2,ns$
350 nt=asc(nt$+chr$(0)):ns=asc(ns$+chr$(0))
360 ifns>20then700
370 print#15,"u1";2;0;nt;ns
380 goto230
400 print#15,"b-p";2;l*32+3
410 get#2,et$:get#2,es$
420 et=asc(et$+chr$(0)):es=asc(es$+chr$(0))
430 print#15,"u1";2;0;et;es
440 nt=et:ns=es
450 forl=0to255
460 get#2,a$
470 a=asc(a$+chr$(0))
480 ifa<27thenft=ft+1
490 ifa>26thenft=0
500 ifft=5thengosub600
510 nextl
520 print#15,"b-p";2;0
530 get#2,nt$:get#2,ns$
540 nt=asc(nt$+chr$(0)):ns=asc(ns$+chr$(0))
550 ifns>20then800
560 print#15,"u1";2;0;nt;ns
570 goto450
600 print#3,"track"nt" / sektor"ns" / byte nr."l-5
610 form=lto255
620 get#2,a$
630 a=asc(a$+chr$(0))
640 ifa>63thenreturn
650 nextm
660 goto520
700 print"datei nicht gefunden !!"
710 close15:close2:close3
800 print"ende !!"
810 close15:close2:close3