home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / geos / geos2.d64 / mODIFIKATOR (.txt) < prev    next >
Commodore BASIC  |  1995-08-05  |  3KB  |  119 lines
  1. 10 REM MODIFIKATOR
  2. 25 POKE53280,0:POKE53281,0
  3. 30 PRINTCHR$(147);CHR$(14);CHR$(8);CHR$(5)
  4. 35 PRINTTAB(8);"*** GEOS MODIFIKATOR ***":PRINT
  5. 40 PRINT"BITTE LEGEN SIE EINE SICHERKEITSKOPIE"
  6. 45 PRINT"DES ZU AENDERNDEN FILES EIN !"
  7. 50 GOSUB 440
  8. 55 :
  9. 60 REM
  10. 65 PRINTCHR$(147):PRINT:PRINT
  11. 70 INPUT" FILENAME";X$
  12. 75 GOSUB460:F$=Y$
  13. 80 FORI=1TO16-LEN(Y$)
  14. 85 F$=F$+CHR$(160)
  15. 90 NEXTI
  16. 95 OPEN1,8,15,"I:0"
  17. 100 OPEN2,8,2,"#0"
  18. 105 PRINT:PRINT" SEARCHING ...":PRINT
  19. 110 T=18:S=1
  20. 115 PRINT#1,"U1";2;0;T;S
  21. 120 GET#2,T$,S$
  22. 125 T=ASC(T$+CHR$(0)):S=ASC(S$)
  23. 130 FORI=0TO7
  24. 135 PRINT#1,"B-P";2;I*32+2
  25. 140 GET#2,Z$,P$,Q$
  26. 145 IFZ$=""THEN195
  27. 150 PRINT" ";
  28. 155 FORJ=1TO16
  29. 160 GET#2,X$:GOSUB460
  30. 165 M$=MID$(F$,J,1)
  31. 170 IFX$=M$THENK=K+1
  32. 175 PRINTY$;
  33. 180 NEXTJ
  34. 185 IFK=16THEN220
  35. 190 K=0:PRINT
  36. 195 NEXTI
  37. 200 IFT<>0THEN115
  38. 205 CLOSE1
  39. 210 PRINT:PRINT" FILE EXISTIERT NICHT !"
  40. 215 END
  41. 220 PRINT:PRINT CHR$(145);">"
  42. 225 GET#2,IT$,IS$,SC$
  43. 230 PRINT:PRINT" FILESTRUKTUR: ";
  44. 235 IFSC$=""THENSC$=CHR$(127):PRINT"SEQUENTIELL":GOTO245
  45. 240 SC$=CHR$(0):PRINT"VLIR"
  46. 245 PRINT:PRINT
  47. 250 PRINT"  1  = TEXT ERSETZEN":PRINT
  48. 255 PRINT"  2  = BYTES ERSETZEN"
  49. 260 PRINT:PRINT:PRINT"  BITTE WAEHLEN"
  50. 265 GETW$:IFW$<>"1"ANDW$<>"2"THEN265
  51. 270 ON VAL(W$)GOSUB280,320
  52. 275 CLOSE1:RUN
  53. 280 PRINTCHR$(147):PRINT
  54. 285 PRINT"  GESUCHTEN TEXT EINGEBEN":PRINT
  55. 290 INPUTX$:GOSUB460:AT$=Y$
  56. 295 PRINT:PRINT
  57. 300 PRINT"  NEUEN TEXT EINGEBEN":X$="":PRINT
  58. 305 INPUTX$:X$=X$+CHR$(0):GOSUB460:NT$=Y$
  59. 310 GOTO345
  60. 315 :
  61. 320 PRINTCHR$(147):PRINT
  62. 325 PRINT" GESUCHTE BYTES EINGEBEN:":PRINT
  63. 330 GOSUB520:AT$=Y$:PRINT:PRINT
  64. 335 PRINT" NEUE BYTES EINGEBEN:":PRINT
  65. 340 GOSUB520:NT$=Y$
  66. 345 IFLEN(AT$)+LEN(NT$)<57THEN355
  67. 350 PRINT:PRINT" EINGABE ZU LANG !":GOSUB440:GOTO245
  68. 355 REM
  69. 360 PRINT#1,"B-P";2;0
  70. 365 FORI=1TO196
  71. 370 READD
  72. 375 PRINT#2,CHR$(D);:W=W+D
  73. 380 NEXTI
  74. 385 IFW<>22349THENPRINT:PRINT"FEHLER IN DATAS !":END
  75. 390 PRINT#2,SC$;
  76. 395 PRINT#2,P$;O$;
  77. 400 PRINT#2,CHR$(LEN(AT$));
  78. 405 PRINT#2,CHR$(LEN(NT$));
  79. 410 PRINT#2,AT$;NT$;
  80. 415 PRINT#1,"M-E";CHR$(0);CHR$(3)
  81. 420 INPUT#1,D,A$,A,A:CLOSE1:PRINT
  82. 425 IFD=0THENPRINT"DATEN GEFUNDEN UND GEAENDERT !":GOTO440
  83. 430 PRINT"DATEN NICHT GEFUNDEN !"
  84. 435 :
  85. 440 PRINT:PRINT" <RETURN>"
  86. 445 GETW$:IFW$=""THEN445
  87. 450 RETURN
  88. 455 :
  89. 460 Y$=""
  90. 465 FORA=1TOLEN(X$)
  91. 470 B=ASC(MID$(X$,A,1))
  92. 475 IFB<192THEN485
  93. 480 B=B-96
  94. 485 IFB<65THEN500
  95. 490 IFBAND32THENB=BAND223:GOTO500
  96. 495 B=BOR32
  97. 500 Y$=Y$+CHR$(B)
  98. 505 NEXTA
  99. 510 RETURN
  100. 515 :
  101. 520 Y$="":I=1
  102. 525 PRINT"BYTE NR.";I;":";:INPUTD$
  103. 530 IFVAL(D$)>255THEN525
  104. 535 IFD$=""THEN550
  105. 540 Y$=Y$+CHR$(VAL(D$)):D$=""
  106. 545 I=I+1:GOTO525
  107. 550 RETURN
  108. 555 REM
  109. 560 DATA172,197,3,173,198,3,174,196,3,208,34,132,8,133,9,169,128,133,1,165
  110. 565 DATA1,48,252,238,196,3,173,196,3,16,3,76,94,225,10,170,189,0,4,240,238
  111. 570 DATA168,189,1,4,133,11,132,10,169,128,133,2,165,2,48,252,164,16,162,2
  112. 575 DATA189,0,5,217,201,3,208,8,200,204,199,3,144,6,176,62,160,0,132,16,232
  113. 580 DATA208,233,152,240,37,132,16,189,0,5,157,0,6,232,208,247,165,10,133
  114. 585 DATA12,165,11,133,13,136,152,73,255,168,174,199,3,189,201,3,153,0,6,232
  115. 590 DATA200,208,246,173,0,5,240,150,133,10,173,1,5,133,11,24,144,166,232
  116. 595 DATA138,56,237,199,3,24,101,16,170,173,199,3,24,101,16,168,185,201,3
  117. 600 DATA157,0,5,200,232,206,200,3,173,200,3,56,229,16,208,237,162,144,134
  118. 605 DATA2,165,2,48,252,165,16,240,6,134,3,165,3,48,252,76,188,230
  119.