home *** CD-ROM | disk | FTP | other *** search
/ zzZACK64 / zzZACK64_4_1992_-_de.d64 / werkzeuginstruct (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  6KB  |  201 lines
  1. 1000 rem work tool instruction
  2. 1010 :
  3. 1020 rem 1987 by r. baier
  4. 1030 rem zuletzt geaendert am 03-01-88
  5. 1040 :
  6. 1050 :
  7. 1060 rem vorbereitungen
  8. 1070 :
  9. 1080 print"[147]"chr$(14)chr$(8): v=53248
  10. 1090 poke v+32,0: poke v+33,0: poke v+17,27: poke v+24,23
  11. 1100 fo$="[198][207][210][205][193][212]:    ": fu$="[198][213][206][203][212][201][207][206]:  ": pa$="[208][193][210][193][205][197][212][197][210]: ": be$="[194][197][201][211][208][201][197][204]:  "
  12. 1110 :
  13. 1120 goto 1240: rem erklaerungen
  14. 1130 :
  15. 1140 rem unterprogramme
  16. 1150 :
  17. 1160 poke v+17,11: print"[147] [215][207][210][203][160][212][207][207][204]             1987 by [210]. [194]aier ": return
  18. 1170 poke 211,32: poke 214,22: sys 58732: print" [210][197][212][213][210][206] ": poke v+17,27
  19. 1180 get a$: if a$<>chr$(13) then 1180
  20. 1190 return
  21. 1200 :
  22. 1210 :
  23. 1220 rem erklaerungen allgemein
  24. 1230 :
  25. 1240 gosub 1160: rem bildschirm
  26. 1250 print"[215][207][210][203][160][212][207][207][204]:": print"[163][163][163][163][163][163][163][163][163][163]"
  27. 1260 print"[194]efehlserweiterung um  zwoelf [194]efehle,"
  28. 1270 print"bzw. [198]unktionen."
  29. 1280 print"[196]iese [194]efehle sind nicht dazu gedacht,"
  30. 1290 print"innerhalb von [208]rogrammen eingesetzt zu"
  31. 1300 print"werden.  [211]ie sollen "chr$(34)"nur"chr$(34)" das [208]rogram-"
  32. 1310 print"mieren in [194][193][211][201][195] erleichtern.": gosub 1170
  33. 1320 :
  34. 1330 gosub 1160: rem bildschirm
  35. 1340 print"[215][207][210][203][160][212][207][207][204]:": print"[163][163][163][163][163][163][163][163][163][163]"
  36. 1350 print"[196]as  [208]rogramm belegt den [211]peicherplatz"
  37. 1360 print"von $[195]8[198]5 bis $[195][198][198][198] (51445 bis 53247)."
  38. 1370 print"[196]er [194][193][211][201][195]-[194]ereich bleibt voll erhalten"
  39. 1380 print"und fuer  [205]aschinenroutinen steht noch"
  40. 1390 print"[208]latz von  $[195]000 bis  $[195]8[198]4 (49152 bis"
  41. 1400 print"51444) zur [214]erfuegung.": gosub 1170
  42. 1410 :
  43. 1420 gosub 1160: rem bildschirm
  44. 1430 print"[215][207][210][203][160][212][207][207][204]:": print"[163][163][163][163][163][163][163][163][163][163]"
  45. 1440 print"[196]as [208]rogramm befindet sich als absolutes"
  46. 1450 print"[198]ile "chr$(34)"[215].[212][207][207][204].[207]"chr$(34)" auf der [196]iskette."
  47. 1460 print"[197]benfalls auf [196]iskette befindet sich ein"
  48. 1470 print"[204]adeprogramm mit [206]amen "chr$(34)"[215][207][210][203][160][212][207][207][204]"chr$(34)" , das"
  49. 1480 print"absolut (,8,1) geladen werden muss,  und"
  50. 1490 print"das die  [197]rweiterung  selbstaendig star-"
  51. 1500 print"tet."
  52. 1510 gosub 1170: rem tastaturabfrage
  53. 1520 :
  54. 1530 gosub 1160: rem bildschirm
  55. 1540 print"[215][207][210][203][160][212][207][207][204]:": print"[163][163][163][163][163][163][163][163][163][163]"
  56. 1550 print"[196]ie  [197]rweiterung umfasst die folgen-"
  57. 1560 print"den [194]efehle:"
  58. 1570 print"![204][201][211][212], ![195][205][196] , ![210][197][193][196] , ![204][207][193][196] , ![211][193][214][197],"
  59. 1580 print"![206][197][215] , ![207][204][196] , ![193][211][193][214][197], ![193][204][207][193][196], ![198][201][206][196],"
  60. 1590 print"sowie eine [198]unktion  zur  [214]erwendung "
  61. 1600 print"hexadezimaler [218]iffern und die [210]eali-"
  62. 1610 print"sierung einer [197][211][195][193][208][197]-[212]aste."
  63. 1620 gosub 1170: rem tastaturabfrage
  64. 1630 :
  65. 1640 rem dir
  66. 1650 :
  67. 1660 gosub 1160: rem bildschirm
  68. 1670 print""fo$"![204][201][211][212]"
  69. 1680 print""fu$"listet das [201]nhaltsverzeichnis"
  70. 1690 printspc(11)"einer [196]iskette ohne [208]rogramm-"
  71. 1700 printspc(11)"verlust."
  72. 1710 print""pa$"keine"
  73. 1720 gosub 1170: rem tastaturabfrage
  74. 1730 :
  75. 1740 rem disk
  76. 1750 :
  77. 1760 gosub 1160: rem bildschirm
  78. 1770 print""fo$"![195][205][196] "chr$(34)"[194][197][198][197][200][204]"chr$(34)
  79. 1780 print""fu$"sendet alle [198]loppy-[203]ommandos."
  80. 1790 printpa$"[194][197][198][197][200][204] - [194]efehlsstring"
  81. 1800 print""be$"![195][205][196] "chr$(34)"[206]0:[212][197][211][212],99"chr$(34)
  82. 1810 printspc(11)"[198]ormatiert eine [196]iskette neu."
  83. 1820 gosub 1170: rem tastaturabfrage
  84. 1830 :
  85. 1840 rem report
  86. 1850 :
  87. 1860 gosub 1160: rem bildschirm
  88. 1870 print""fo$"![210][197][193][196]"
  89. 1880 print""fu$"[204]iest den [198]ehlerkanal des"
  90. 1890 printspc(11)"[196]iskettenlaufwerks aus."
  91. 1900 print""pa$"keine"
  92. 1910 gosub 1170: rem tastaturabfrage
  93. 1920 :
  94. 1930 rem merge
  95. 1940 :
  96. 1950 gosub 1160: rem bildschirm
  97. 1960 print""fo$"![204][207][193][196] "chr$(34)"[206][193][205][197]"chr$(34)" [,ga]"
  98. 1970 print""fu$"[204]aedt ein [208]rogramm und ver-"
  99. 1980 printspc(11)"bindet es mit  dem im [211]pei-"
  100. 1990 printspc(11)"cher befindlichen."
  101. 2000 print""pa$"[206][193][205][197] - [208]rogrammname"
  102. 2010 printspc(11)"ga   - [199]eraeteadresse"
  103. 2020 print"[193][195][200][212][213][206][199]:   [196]ie neuen [218]eilennummern mues-"
  104. 2030 printspc(11)"sen groesser sein als die al-"
  105. 2040 printspc(11)"ten."
  106. 2050 gosub 1170: rem tastaturabfrage
  107. 2060 :
  108. 2070 rem pick
  109. 2080 :
  110. 2090 gosub 1160: rem bildschirm
  111. 2100 print""fo$"![211][193][214][197] z1,z2,"chr$(34)"[206][193][205][197]"chr$(34)" [,ga]"
  112. 2110 print""fu$"[211]peichert die [218]eilen von z1"
  113. 2120 printspc(11)"bis z2 (einschliesslich)."
  114. 2130 print""pa$"[206][193][205][197] - [208]rogrammname"
  115. 2140 printspc(11)"ga   - [199]eraeteadresse"
  116. 2150 printspc(11)"z1   - erste [218]eile"
  117. 2160 printspc(11)"z2   - letzte [218]eile"
  118. 2170 gosub 1170: rem tastaturabfrage
  119. 2180 :
  120. 2190 rem renumber
  121. 2200 :
  122. 2210 gosub 1160: rem bildschirm
  123. 2220 print""fo$"![206][197][215] z1,sw"
  124. 2230 print""fu$"[206]ummeriert die [218]eilennummern"
  125. 2240 printspc(11)"eines [208]rogramms um."
  126. 2250 print""pa$"z1 - [211]tartzeile"
  127. 2260 printspc(11)"sw - [211]chrittweite"
  128. 2270 gosub 1170: rem tastaturabfrage
  129. 2280 :
  130. 2290 rem old
  131. 2300 :
  132. 2310 gosub 1160: rem bildschirm
  133. 2320 print""fo$"![207][204][196]"
  134. 2330 print""fu$"[200]olt ein durch [206][197][215] oder [210][197][211][197][212]"
  135. 2340 printspc(11)"verstecktes  [208]rogramm  wieder"
  136. 2350 printspc(11)"zurueck."
  137. 2360 print""pa$"keine"
  138. 2370 gosub 1170: rem tastaturabfrage
  139. 2380 :
  140. 2390 rem aload
  141. 2400 :
  142. 2410 gosub 1160: rem bildschirm
  143. 2420 print""fo$"![193][204][207][193][196] ad1,"chr$(34)"[206][193][205][197]"chr$(34)" [,ga]"
  144. 2430 print""fu$"[204]aedt ein absolutes [198]ile an"
  145. 2440 printspc(11)"die [193]dresse ad1."
  146. 2450 print""pa$"[206][193][205][197] - [208]rogrammname"
  147. 2460 printspc(11)"ga   - [199]eraeteadresse"
  148. 2470 printspc(11)"ad1  - [211]tartadresse"
  149. 2480 print""be$"![193][204][207][193][196] 51445,"chr$(34)"[215].[212][207][207][204].[207]"chr$(34)",8"
  150. 2490 printspc(11)"[204]aedt [215][207][210][203][160][212][207][207][204] absolut."
  151. 2500 gosub 1170: rem tastaturabfrage
  152. 2510 :
  153. 2520 rem asave
  154. 2530 :
  155. 2540 gosub 1160: rem bildschirm
  156. 2550 print""fo$"![193][211][193][214][197] ad1,ad2,"chr$(34)"[206][193][205][197]"chr$(34)" [,ga]"
  157. 2560 print""fu$"[211]peichert den [194]ereich zwi-"
  158. 2570 printspc(11)"schen ad1 und ad2 absolut."
  159. 2580 print""pa$"[206][193][205][197] - [208]rogrammname"
  160. 2590 printspc(11)"ga   - [199]eraeteadresse"
  161. 2600 printspc(11)"ad1  - [211]tartadresse"
  162. 2610 printspc(11)"ad2  - [197]ndadresse"
  163. 2620 print""be$"![193][211][193][214][197] 1024,2023,"chr$(34)"[211][195][210][197][197][206]"chr$(34)",8"
  164. 2630 printspc(11)"[211]peichert den [194]ildschirm."
  165. 2640 gosub 1170: rem tastaturabfrage
  166. 2650 :
  167. 2660 rem find
  168. 2670 :
  169. 2680 gosub 1160: rem bildschirm
  170. 2690 print""fo$"![198][201][206][196] "chr$(34)"[211][212][210][201][206][199]"chr$(34)
  171. 2700 print""fu$"[204]istet alle [208]rogrammzeilen"
  172. 2710 printspc(11)"mit [201]nhalt "chr$(34)"[211][212][210][201][206][199]"chr$(34)"."
  173. 2720 print""pa$"[211][212][210][201][206][199] - [211]uchbegriff"
  174. 2730 print""be$"![198][201][206][196] "chr$(34)"[199][207][212][207] 1270"chr$(34)
  175. 2740 printspc(11)"[204]istet alle [218]eilen, in denen"
  176. 2750 printspc(11)"der [194]efehl [199][207][212][207] 1270 steht."
  177. 2760 gosub 1170: rem tastaturabfrage
  178. 2770 :
  179. 2780 rem hexdez
  180. 2790 :
  181. 2800 gosub 1160: rem bildschirm
  182. 2810 print""fo$"$ hex"
  183. 2820 print""fu$"[215]andelt eine hexadezimale"
  184. 2830 printspc(11)"in eine dezimale [218]ahl um."
  185. 2840 print""pa$"hex - hexadezimale [218]ahl"
  186. 2850 print""be$"[208][207][203][197] $[196]000,0"
  187. 2860 printspc(11)"[208][207][203][197]t eine 0 nach 53248."
  188. 2870 gosub 1170: rem tastaturabfrage
  189. 2880 :
  190. 2890 rem escape
  191. 2900 :
  192. 2910 gosub 1160: rem bildschirm
  193. 2920 print"[212][193][211][212][197]:     [195][207][205][205][207][196][207][210][197]/_
  194. 2930 [153]""fu$"peekringt den lenomputer zurueck"
  195. 2940 [153][166]11)"in den valinschaltzustand."
  196. 2950 [153]"atnlenleft$(NULL)(NULL)(NULL)chr$:   peekei versehentlichem str$ruecken:"
  197. 2960 [153][166]11)"(NULL)(NULL)(NULL) 51445 und !(NULL)(NULL)str$."
  198. 2970 [141] 1170: [143] tastaturabfrage
  199. 2980 :
  200. 2990 [137] 1080
  201.