home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh25.d64 / bc-sucher (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  68 lines
  1. 10 REM ********************************
  2. 20 REM ** SUCHEN VON BILDSCHIRMCODE- **
  3. 30 REM **    TEXTEN IN PROGRAMMEN    **
  4. 40 REM ********************************
  5. 50 :
  6. 60 :
  7. 70 TR=18:SE=1
  8. 80 PRINT"[147]--- BC-TEXTSUCHER ---"
  9. 90 PRINT"AUSGABE AUF B[146]ILDSCHIRM"
  10. 100 PRINT"       ODER D[146]RUCKER    ";
  11. 110 INPUTAU$
  12. 120 IFAU$="B"THENAU=3:GOTO150
  13. 130 IFAU$="D"THENAU=4:GOTO150
  14. 140 GOTO90
  15. 150 INPUT"NAME DER DATEI ";NA$
  16. 160 IFAU=3THENPRINT"[147]"
  17. 170 OPEN3,AU
  18. 180 PRINT#3,"WAHRSCHEINLICHE BC-TEXTE:"
  19. 190 OPEN15,8,15:OPEN2,8,2,"#"
  20. 200 PRINT#15,"U1";2;0;TR;SE
  21. 210 INPUT#15,A,B$,C,D
  22. 220 IFA>0THEN150
  23. 230 FORL=0TO7
  24. 240 PRINT#15,"B-P";2;L*32+5
  25. 250 DA$=""
  26. 260 FORN=1TOLEN(NA$)
  27. 270 NT=ET:NS=ES
  28. 280 GET#2,A$
  29. 290 DA$=DA$+A$
  30. 300 NEXTN
  31. 310 IFDA$=NA$THEN400
  32. 320 NEXTL
  33. 330 PRINT#15,"B-P";2;0
  34. 340 GET#2,NT$:GET#2,NS$
  35. 350 NT=ASC(NT$+CHR$(0)):NS=ASC(NS$+CHR$(0))
  36. 360 IFNS>20THEN700
  37. 370 PRINT#15,"U1";2;0;NT;NS
  38. 380 GOTO230
  39. 400 PRINT#15,"B-P";2;L*32+3
  40. 410 GET#2,ET$:GET#2,ES$
  41. 420 ET=ASC(ET$+CHR$(0)):ES=ASC(ES$+CHR$(0))
  42. 430 PRINT#15,"U1";2;0;ET;ES
  43. 440 NT=ET:NS=ES
  44. 450 FORL=0TO255
  45. 460 GET#2,A$
  46. 470 A=ASC(A$+CHR$(0))
  47. 480 IFA<27THENFT=FT+1
  48. 490 IFA>26THENFT=0
  49. 500 IFFT=5THENGOSUB600
  50. 510 NEXTL
  51. 520 PRINT#15,"B-P";2;0
  52. 530 GET#2,NT$:GET#2,NS$
  53. 540 NT=ASC(NT$+CHR$(0)):NS=ASC(NS$+CHR$(0))
  54. 550 IFNS>20THEN800
  55. 560 PRINT#15,"U1";2;0;NT;NS
  56. 570 GOTO450
  57. 600 PRINT#3,"TRACK"NT" / SEKTOR"NS" / BYTE NR."L-5
  58. 610 FORM=LTO255
  59. 620 GET#2,A$
  60. 630 A=ASC(A$+CHR$(0))
  61. 640 IFA>63THENRETURN
  62. 650 NEXTM
  63. 660 GOTO520
  64. 700 PRINT"DATEI NICHT GEFUNDEN !!"
  65. 710 CLOSE15:CLOSE2:CLOSE3
  66. 800 PRINT"ENDE !!"
  67. 810 CLOSE15:CLOSE2:CLOSE3
  68.