home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / geos / geos26.d64 / modifikator (.txt) < prev    next >
Commodore BASIC  |  1995-08-05  |  3KB  |  121 lines
  1. 1000 REM * MODIFIKATOR *
  2. 1010 REM * F.W. (C)06.89/08.89 *
  3. 1020 POKE53280,2:POKE53281,9:POKE646,7
  4. 1030 PRINTCHR$(147);CHR$(14);CHR$(8)
  5. 1040 GOSUB2010
  6. 1050 PRINT" [194]ITTE LEGEN [211]IE EINE [211]ICHERHEITSKOPIE"
  7. 1060 PRINT" DES ZU AENDERNDEN [198]ILES EIN ! "
  8. 1070 GOSUB1800
  9. 1080 PRINTCHR$(147):GOSUB2010
  10. 1090 INPUT" [198]ILENAME: ";X$
  11. 1100 GOSUB1830:F$=Y$
  12. 1110 FORI=1TO16-LEN(Y$)
  13. 1120 F$=F$+CHR$(160)
  14. 1130 NEXTI
  15. 1140 OPEN1,8,15,"I:0"
  16. 1150 OPEN2,8,2,"#0"
  17. 1160 PRINT:PRINT" [211]EARCHING ...":PRINT
  18. 1170 T=18:S=1
  19. 1180 PRINT#1,"U1";2;0;T;S
  20. 1190 GET#2,T$,S$
  21. 1200 T=ASC(T$+CHR$(0)):S=ASC(S$)
  22. 1210 FORI=0TO7
  23. 1220 PRINT#1,"B-P";2;I*32+2
  24. 1230 GET#2,Z$,P$,Q$
  25. 1240 IFZ$=""THEN1340
  26. 1250 PRINT" ";
  27. 1260 FORJ=1TO16
  28. 1270 GET#2,X$:GOSUB1830
  29. 1280 M$=MID$(F$,J,1)
  30. 1290 IFX$=M$THENK=K+1
  31. 1300 PRINTY$;
  32. 1310 NEXTJ
  33. 1320 IFK=16THEN1390
  34. 1330 K=0:PRINT
  35. 1340 NEXTI
  36. 1350 IFT<>0THEN1180
  37. 1360 CLOSE1
  38. 1370 PRINT:PRINT" [196]AS [198]ILE EXISTIERT NICHT !"
  39. 1380 END
  40. 1390 PRINT:PRINTCHR$(145);" >"
  41. 1400 GET#2,IT$,IS$,SC$
  42. 1410 PRINT:PRINT" [198]ILESTRUKTUR: ";
  43. 1420 IFSC$=""THENSC$=CHR$(127):PRINT" [211]EQUENTIELL ":GOTO1440
  44. 1430 SC$=CHR$(0):PRINT" [214]LIR "
  45. 1440 PRINT:PRINT
  46. 1450 PRINT" 1  = [212]EXT ERSETZEN":PRINT
  47. 1460 PRINT" 2  = [194]YTES ERSETZEN"
  48. 1470 PRINT:PRINT:PRINT" [194]ITTE WAEHLEN !"
  49. 1480 GETW$:IFW$<>"1"ANDW$<>"2"THEN1480
  50. 1490 ONVAL(W$)GOSUB1510,1580
  51. 1500 CLOSE1:RUN
  52. 1510 PRINTCHR$(147):GOSUB2010
  53. 1520 PRINT" [199]ESUCHTEN [212]EXT EINGEBEN !":PRINT
  54. 1530 INPUTX$:GOSUB1830:AT$=Y$
  55. 1540 PRINT:PRINT
  56. 1550 PRINT" [206]EUEN [212]EXT EINGEBEN !":X$="":PRINT
  57. 1560 INPUTX$:X$=X$+CHR$(0):GOSUB1830:NT$=Y$
  58. 1570 GOTO1630
  59. 1580 PRINTCHR$(147):GOSUB2010
  60. 1590 PRINT" [199]ESUCHTE [194]YTES EINGEBEN !":PRINT
  61. 1600 GOSUB1940:AT$=Y$:PRINT:PRINT
  62. 1610 PRINT" [206]EUE [194]YTES EINGEBEN !":PRINT
  63. 1620 GOSUB1940:NT$=Y$
  64. 1630 IFLEN(AT$)+LEN(NT$)<57THEN1650
  65. 1640 PRINT:PRINT" [197]INGABE ZU LANG !":GOSUB1800:GOTO1440
  66. 1650 PRINT#1,"B-P";2;0
  67. 1660 FORI=1TO196
  68. 1670 READD
  69. 1680 PRINT#2,CHR$(D);:W=W+D
  70. 1690 NEXTI
  71. 1700 IFW<>22349THENPRINT:PRINT" [198]EHLER IN [196]ATAS !":END
  72. 1710 PRINT#2,SC$;
  73. 1720 PRINT#2,P$;Q$;
  74. 1730 PRINT#2,CHR$(LEN(AT$));
  75. 1740 PRINT#2,CHR$(LEN(NT$));
  76. 1750 PRINT#2,AT$;NT$;
  77. 1760 PRINT#1,"M-E";CHR$(0);CHR$(3)
  78. 1770 INPUT#1,D,A$,A,A:CLOSE1:PRINT
  79. 1780 IFD=0THENPRINT" [196]ATEN GEFUNDEN UND GEAENDERT !":GOTO1800
  80. 1790 PRINT" [196]ATEN NICHT GEFUNDEN !"
  81. 1800 PRINT:PRINT" <[210]ETURN> "
  82. 1810 GETW$:IFW$=""THEN1810
  83. 1820 RETURN
  84. 1830 Y$=""
  85. 1840 FORA=1TOLEN(X$)
  86. 1850 B=ASC(MID$(X$,A,1))
  87. 1860 IFB<192THEN1880
  88. 1870 B=B-96
  89. 1880 IFB<65THEN1910
  90. 1890 IFBAND32THENB=BAND223:GOTO1910
  91. 1900 B=BOR32
  92. 1910 Y$=Y$+CHR$(B)
  93. 1920 NEXTA
  94. 1930 RETURN
  95. 1940 Y$="":I=1
  96. 1950 PRINT" [194]YTE [206]R.";I;":";:INPUTD$
  97. 1960 IFVAL(D$)>255THEN1950
  98. 1970 IFD$=""THEN2000
  99. 1980 Y$=Y$+CHR$(VAL(D$)):D$=""
  100. 1990 I=I+1:GOTO1950
  101. 2000 RETURN
  102. 2010 PRINT:PRINTTAB(10);"********************"
  103. 2020 PRINTTAB(10);"*                  *"
  104. 2030 PRINTTAB(10);"* [199]EOS [205]ODIFIKATOR *"
  105. 2040 PRINTTAB(10);"*                  *"
  106. 2050 PRINTTAB(10);"********************"
  107. 2060 PRINTTAB(10);"*  [198].[215].([195])08.1989  *"
  108. 2070 PRINTTAB(10);"********************":PRINT:PRINT
  109. 2080 RETURN
  110. 2090 REM * DATAS *
  111. 2100 DATA172,197,3,173,198,3,174,196,3,208,34,132,8,133,9,169,128,133,1,165
  112. 2110 DATA1,48,252,238,196,3,173,196,3,16,3,76,94,225,10,170,189,0,4,240,238
  113. 2120 DATA168,189,1,4,133,11,132,10,169,128,133,2,165,2,48,252,164,16,162,2
  114. 2130 DATA189,0,5,217,201,3,208,8,200,204,199,3,144,6,176,62,160,0,132,16,232
  115. 2140 DATA208,233,152,240,37,132,16,189,0,5,157,0,6,232,208,247,165,10,133
  116. 2150 DATA12,165,11,133,13,136,152,73,255,168,174,199,3,189,201,3,153,0,6,232
  117. 2160 DATA200,208,246,173,0,5,240,150,133,10,173,1,5,133,11,24,144,166,232
  118. 2170 DATA138,56,237,199,3,24,101,16,170,173,199,3,24,101,16,168,185,201,3
  119. 2180 DATA157,0,5,200,232,206,200,3,173,200,3,56,229,16,208,237,162,144,134
  120. 2190 DATA2,165,2,48,252,165,16,240,6,134,3,165,3,48,252,76,188,230
  121.