home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8505.d64 / betr.sys.-ed. (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  5KB  |  141 lines
  1. 100 IFN$=""THENP=PEEK(1):IFP<>53THEN191
  2. 101 IFN$=""THENP=PEEK(1):IFP=53THEN232
  3. 102 POKE1,53:GOTO201
  4. 103 FORI=ATOB:READD:POKEI,D:S=S+D:NEXTI
  5. 104 RETURN
  6. 105 REM*****************************
  7. 106 REM*                           *
  8. 107 REM*   BETRIEBSSYSTEM-EDITOR   *
  9. 108 REM*                           *
  10. 109 REM*       COMMODORE 64        *
  11. 110 REM*     KERNAL UND BASIC      *
  12. 111 REM*                           *
  13. 112 REM*        1985 BY RIDI       *
  14. 113 REM*   ---------------------   *
  15. 114 REM*     RICHARD DIEZMANN      *
  16. 115 REM*     LOISACHSTRASSE 5      *
  17. 116 REM*     8400 REGENSBURG       *
  18. 117 REM*                           *
  19. 118 REM*     TEL.(0941)49542       *
  20. 119 REM*                           *
  21. 120 REM*****************************
  22. 121 POKE53280,1:POKE53281,1:PRINTCHR$(147)CHR$(152)
  23. 122 PRINT"DEUTSCHES BETRIEBSSYSTEM WIRD";:PRINTCHR$(13)"INITIALISIERT !"
  24. 123 A1=41374:E1=41767
  25. 124 A2=41828:E2=41865
  26. 125 A3=58463:E3=58540
  27. 126 A4=61629:E4=61738
  28. 127 A5=64608:E5=64667
  29. 128 A=A1:B=E1:GOSUB103:IFS<>29905THEN183
  30. 129 A=A2:B=E2:S=0:GOSUB103:IFS<>1919THEN183
  31. 130 A=A3:B=E3:S=0:GOSUB103:IFS<>4464THEN183
  32. 131 A=A4:B=E4:S=0:GOSUB103:IFS<>7664THEN183
  33. 132 A=A5:B=E5:S=0:GOSUB103:IFS<>6755THEN183
  34. 133 POKE41812,219:SYS58648:SYS58260
  35. 134 REM DATENBLOCK 1                            BASIC-FEHLERMELDUNGEN
  36. 135 REM --------------------------------
  37. 136 DATA90,85,32,86,73,69,76,69,32,70,73,76,69,211,79,70,70,69,78,161,32
  38. 137 DATA32,32,78,73,67,72,84,32,79,70,70,69,78,161,32,78,73,67,72,84,32,71
  39. 138 DATA69,70,85,78,68,69,206,71,69,82,65,69,84,32,65,85,83,32,186,32,32
  40. 139 DATA32,32,32,32,75,69,73,78,32,69,73,78,71,46,70,73,76,197,75,69,73,78
  41. 140 DATA32,65,85,83,71,65,46,70,73,76,197,70,73,76,69,78,65,77,69,32,70,69
  42. 141 DATA72,76,84,161,32,32,73,76,76,69,71,65,76,69,32,71,69,82,65,69,84,78
  43. 142 DATA85,77,77,69,210,78,69,88,84,32,79,72,78,69,32,70,79,210,32,32,32
  44. 143 DATA83,80,82,65,67,200,82,69,84,85,82,78,32,79,72,78,69,32,71,79,83,85
  45. 144 DATA194,32,32,32,68,65,84,69,78,90,69,73,76,69,206,70,65,76,83,67,72
  46. 145 DATA69,32,90,65,72,76,186,32,32,32,90,65,72,76,32,90,85,190,75,69,73
  47. 146 DATA78,32,82,65,77,32,77,69,72,210,90,69,73,76,69,32,78,73,67,72,84,32
  48. 147 DATA68,65,32,161,32,78,73,67,72,84,32,73,78,32,68,73,77,161,82,69,68
  49. 148 DATA73,77,32,65,82,82,65,89,32,173,68,73,86,73,83,73,79,78,32,68,85,82
  50. 149 DATA67,72,32,176,78,85,82,32,80,82,71,46,77,79,68,85,83,161,90,65,72
  51. 150 DATA76,32,83,84,65,84,84,32,83,84,82,73,78,71,161,32,90,85,32,76,65,78
  52. 151 DATA71,161,32,70,73,76,69,32,68,65,84,193,83,84,82,73,78,71,32,90,85
  53. 152 DATA32,75,79,77,80,76,69,88,161,32,75,65,78,78,32,78,73,67,72,84,161
  54. 153 DATA32,32,32,85,78,68,69,70,46,32,70,85,78,75,84,73,79,78,161,80,82,85
  55. 154 DATA69,70,197,76,65,68,197
  56. 155 REM
  57. 156 REM DATENBLOCK 2                            MELDUNGEN DES INTERPRETERS
  58. 157 REM -------------------------------
  59. 158 DATA13,79,75,13,0,32,70,69,72,76,69,82,0,32,73,78,32,0,13,10,66,69,82
  60. 159 DATA69,73,84,13,10,0,13,10,80,65,85,83,69,0,160
  61. 160 REM
  62. 161 REM DATENBLOCK 3                            STARTKENNUNG BETRIEBSSYSTEM
  63. 162 REM -------------------------------
  64. 163 DATA0,32,66,89,84,69,83,32,70,65,83,84,76,79,65,68,73,78,71,0,147,13
  65. 164 DATA32,32,32,32,32,32,42,32,67,79,77,77,79,68,79,82,69,32,54,52,32,75
  66. 165 DATA69,82,78,65,76,32,86,50,46,48,32,42,32,13,13,40,67,41,49,57,56,53
  67. 166 DATA32,66,89,32,82,73,68,73,46,32,0,129
  68. 167 REM
  69. 168 REM DATENBLOCK 4                            SYSTEMMELDUNGEN KERNAL
  70. 169 REM -------------------------------
  71. 170 DATA13,69,47,65,32,70,69,72,76,69,82,186,13,83,85,67,72,69,32,78,65,67
  72. 171 DATA72,13,32,32,32,160,68,82,85,69,67,75,69,32,80,76,65,89,84,65,83,84
  73. 172 DATA69,160,68,82,85,69,67,75,69,32,82,69,67,79,82,68,43,80,76,65,89,84
  74. 173 DATA65,83,84,197,32,32,32,13,13,76,65,68,69,160,32,32,13,13,83,65,86
  75. 174 DATA69,160,32,13,13,80,82,85,69,70,69,160,13,70,65,78,68,160,32,13,79
  76. 175 DATA75,141
  77. 176 REM
  78. 177 REM DATENBLOCK 5                            KERNAL-OLDROUTINE
  79. 178 REM -------------------------------
  80. 179 DATA165,43,164,44,133,34,132,35,160,3,200,177,34,208,251,200,152,24,101
  81. 180 DATA34,160,0,145,43,165,35,105,0,200,145,43,136,162,3,230,34,208,2,230
  82. 181 DATA35,177,34,208,244,202,208,243,165,34,105,2,133,45,165,35,105,0,133
  83. 182 DATA46,96
  84. 183 PRINT"FEHLER IN DER DATEN-SUMME "
  85. 184 IFA=A1THENPRINT"IN BLOCK 1!"
  86. 185 IFA=A2THENPRINT"IN BLOCK 2!"
  87. 186 IFA=A3THENPRINT"IN BLOCK 3!"
  88. 187 IFA=A4THENPRINT"IN BLOCK 4!"
  89. 188 IFA=A5THENPRINT"IN BLOCK 5!"
  90. 189 PRINT"BITTE UEBERPRUEFEN.":END
  91. 190 REM
  92. 191 REM INIT-ROUTINE ROM-RAM
  93. 192 REM -------------------------------
  94. 193 POKE53280,0:POKE53281,0:PRINTCHR$(147)CHR$(152)
  95. 194 PRINT"RAM WIRD AKTIVIERT, BITTE 60 SEC WARTEN!"
  96. 195 FORX=40960TO49152:POKEX,PEEK(X):NEXT
  97. 196 FORX=57344TO65535:POKEX,PEEK(X):NEXT
  98. 197 GOTO234
  99. 198 REM
  100. 199 REM FARBZUSAMMENSTELLUNG
  101. 200 REM -------------------------------
  102. 201 SYS58648
  103. 202 PRINT"FARBEN BEIBEHALTEN ?"
  104. 203 GETF$:IFF$=""THEN203
  105. 204 IFF$="J"THEN213
  106. 205 INPUT"ZEICHENFARBE ... ";Z
  107. 206 INPUT"RAHMENFARBE .... ";R
  108. 207 INPUT"HINTERGRUNDFARBE ";H
  109. 208 POKE58677,Z:POKE60633,R:POKE60634,H
  110. 209 SYS58648:GOTO202
  111. 210 REM
  112. 211 REM OLD-BEFEHL EINRICHTEN
  113. 212 REM -------------------------------
  114. 213 PRINTCHR$(147)"SOLL DIE FUNKTIONSTASTE F8 MIT DEM "
  115. 214 PRINT"OLD-BEFEHL BELEGT WERDEN (J/N)"
  116. 215 GETF$:IFF$=""THEN215
  117. 216 IFF$="J"THEN218
  118. 217 GOTO224
  119. 218 INPUT"KERNAL STANDARD/HYPRA 1                 KERNAL HYPRA-PERFECT  2  ";K
  120. 219 ONKGOTO220,221
  121. 220 POKE64346,54:POKE64347,48:GOTO224
  122. 221 POKE64469,83:POKE64470,121:POKE64471,54:POKE64472,52:POKE64473,54
  123. 222 POKE64474,48:POKE64475,56:POKE64476,13:POKE64477,136:POKE64778,255
  124. 223 POKE64479,255
  125. 224 PRINTCHR$(147)"SOLL DER OLD-BEFEHL ALS BASIC-DIREKT-"
  126. 225 PRINT"BEFEHL VERWENDET WERDEN (J/N)"
  127. 226 GETF$:IFF$=""THEN226
  128. 227 IFF$="J"THEN229
  129. 228 GOTO121
  130. 229 POKE40972,95:POKE40973,252
  131. 230 POKE41118,79:POKE41119,76:POKE41120,196:GOTO121
  132. 231 REM
  133. 232 REM LADEN EINES VORHANDENEN KERNALS
  134. 233 REM -------------------------------
  135. 234 POKE1,55:PRINTCHR$(147)"SOLL EIN BESTEHENDES BETRIEBSSYSTEM VON"
  136. 235 PRINT"DISK GELADEN WERDEN ?"
  137. 236 GETF$:IFF$=""THEN236
  138. 237 IFF$="N"THENPOKE1,53:GOTO201
  139. 238 INPUT"FILENAME ";N$
  140. 239 LOADN$,8,1
  141.