home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 4 / Commodore_Disc_04_19xx_-_de.d64 / funkt.tasten..64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  123 lines
  1. 100 rem ===============================
  2. 110 rem =funktionst.belegung incl.text=
  3. 120 rem =   - in maschinensprache -   =
  4. 130 rem =-----------------------------=
  5. 140 rem = (c) 2/1986 andreas meissner =
  6. 150 rem ===============================
  7. 160 :
  8. 1000 poke53280,4:poke53281,4
  9. 1010 printchr$(147)chr$(14)chr$(8)chr$(5);
  10. 1020 printchr$(18)"[198]unktionstastenbelegung incl.[212]ext;in [205][204]"
  11. 1030 print" ([195]) [198]ebruar 1986 by [193]ndreas [205]eissner"
  12. 1040 print"======================================="
  13. 1060 print"[201]n dieser [214]ersion werden die [198]unktions-"
  14. 1070 print"[212]asten zusaetzlich automatisch mit fol-"
  15. 1080 print"genden [212]exten belegt (&[195][210]=incl.[210][197][212][213][210][206]):"
  16. 1090 print" f1: run            (&[195][210])"
  17. 1100 print" f2: o[208]4,4,7:c[205]4:l[201] (&[195][210])"
  18. 1110 print" f3: list           (&[195][210])"
  19. 1120 print" f4: open15,8,15,"
  20. 1130 print" f5: sys679,         "chr$(180)"[196]ef.-[208]rg.-[193]ufruf."
  21. 1140 print" f6: ?p[197](839)and2^   "chr$(180)"[195][210]-[198]lag anzeigen."
  22. 1150 print" f7: p[207]782,3:p[207]780,  "chr$(180)"[193]usgeben des je-"
  23. 1160 print" f8: *16+128:s[217]43806 "chr$(180)"-weiligen [212]extes."
  24. 1170 print"[194]ei f6&f7 muss nach dem [196]ruck der [195]ode"
  25. 1180 print"der verlangten [198]-[212]aste getippt werden!"
  26. 1190 print"f8 nach f7 druecken ! [201]nitialisierung"
  27. 1200 print"mit "chr$(34)"[211][217][211] 820"chr$(34)". [211]iehe auch ausf. [194]eschr."
  28. 1210 print"======================================="
  29. 1220 print"[208]osition der [212]exte: je 16 [194]yte ab 896 !"
  30. 1230 print"[197]ndekennzeichen: [206]ullbyte. [198]lags in 839"
  31. 1240 print"======================================="
  32. 1300 :
  33. 1310 fori=820to1023
  34. 1320 readx:pokei,x:y=y+x
  35. 1330 next
  36. 1340 ify<>13802thenprintchr$(18)"[198]ehler in [196][193][212][193]-[218]eilen; => [193]bbruch !":end
  37. 1400 :
  38. 1410 input"[208]rg.&[212]ext auf [196]isk speichern (j/n) ";jn$
  39. 1420 ifjn$="n"then1600
  40. 1430 ifjn$<>"j"thenprintchr$(145);:goto1410
  41. 1440 open1,8,2,"@:ml-ftbel&text820,p,w"
  42. 1450 print#1,chr$(52)chr$(3);
  43. 1460 fori=820to1023
  44. 1470 print#1,chr$(peek(i));
  45. 1480 next
  46. 1490 close1
  47. 1500 print:print"sys820"chr$(145);
  48. 1600 :
  49. 1610 poke53280,14:poke53281,6:printchr$(145)chr$(154)chr$(9);
  50. 1620 end
  51. 1700 :
  52. 1710 :
  53. 59990 rem==========================datas
  54. 60000 data 070 , 003 , 049 :rem ab 820
  55. 60010 data 234 , 160 , 003 :rem ab 823
  56. 60020 data 120 , 185 , 052 :rem ab 826
  57. 60030 data 003 , 153 , 020 :rem ab 829
  58. 60040 data 003 , 136 , 016 :rem ab 832
  59. 60050 data 247 , 088 , 096 :rem ab 835
  60. 60060 data 000 , 019 , 165 :rem ab 838
  61. 60070 data 204 , 208 , 049 :rem ab 841
  62. 60080 data 164 , 198 , 240 :rem ab 844
  63. 60090 data 045 , 185 , 118 :rem ab 847
  64. 60100 data 002 , 056 , 233 :rem ab 850
  65. 60110 data 133 , 201 , 008 :rem ab 853
  66. 60120 data 176 , 035 , 198 :rem ab 856
  67. 60130 data 198 , 072 , 010 :rem ab 859
  68. 60140 data 010 , 010 , 010 :rem ab 862
  69. 60150 data 105 , 128 , 160 :rem ab 865
  70. 60160 data 003 , 032 , 030 :rem ab 868
  71. 60170 data 171 , 104 , 168 :rem ab 871
  72. 60180 data 169 , 000 , 056 :rem ab 874
  73. 60190 data 042 , 136 , 016 :rem ab 877
  74. 60200 data 252 , 045 , 071 :rem ab 880
  75. 60210 data 003 , 240 , 007 :rem ab 883
  76. 60220 data 169 , 013 , 141 :rem ab 886
  77. 60230 data 119 , 002 , 230 :rem ab 889
  78. 60240 data 198 , 076 , 129 :rem ab 892
  79. 60250 data 234 , 082 , 085 :rem ab 895
  80. 60260 data 078 , 000 , 000 :rem ab 898
  81. 60270 data 000 , 000 , 000 :rem ab 901
  82. 60280 data 000 , 000 , 000 :rem ab 904
  83. 60290 data 000 , 000 , 000 :rem ab 907
  84. 60300 data 000 , 000 , 076 :rem ab 910
  85. 60310 data 073 , 083 , 084 :rem ab 913
  86. 60320 data 000 , 000 , 000 :rem ab 916
  87. 60330 data 000 , 000 , 000 :rem ab 919
  88. 60340 data 000 , 000 , 000 :rem ab 922
  89. 60350 data 000 , 000 , 000 :rem ab 925
  90. 60360 data 083 , 089 , 083 :rem ab 928
  91. 60370 data 054 , 055 , 057 :rem ab 931
  92. 60380 data 044 , 000 , 000 :rem ab 934
  93. 60390 data 000 , 000 , 000 :rem ab 937
  94. 60400 data 000 , 000 , 000 :rem ab 940
  95. 60410 data 000 , 080 , 207 :rem ab 943
  96. 60420 data 055 , 056 , 050 :rem ab 946
  97. 60430 data 044 , 051 , 058 :rem ab 949
  98. 60440 data 080 , 207 , 055 :rem ab 952
  99. 60450 data 056 , 048 , 044 :rem ab 955
  100. 60460 data 000 , 000 , 079 :rem ab 958
  101. 60470 data 208 , 052 , 044 :rem ab 961
  102. 60480 data 052 , 044 , 055 :rem ab 964
  103. 60490 data 058 , 067 , 205 :rem ab 967
  104. 60500 data 052 , 058 , 076 :rem ab 970
  105. 60510 data 201 , 000 , 000 :rem ab 973
  106. 60520 data 079 , 080 , 069 :rem ab 976
  107. 60530 data 078 , 049 , 053 :rem ab 979
  108. 60540 data 044 , 056 , 044 :rem ab 982
  109. 60550 data 049 , 053 , 044 :rem ab 985
  110. 60560 data 000 , 000 , 000 :rem ab 988
  111. 60570 data 000 , 063 , 080 :rem ab 991
  112. 60580 data 197 , 040 , 056 :rem ab 994
  113. 60590 data 051 , 057 , 041 :rem ab 997
  114. 60600 data 065 , 078 , 068 :rem ab 1000
  115. 60610 data 050 , 094 , 000 :rem ab 1003
  116. 60620 data 000 , 000 , 042 :rem ab 1006
  117. 60630 data 049 , 054 , 043 :rem ab 1009
  118. 60640 data 049 , 050 , 056 :rem ab 1012
  119. 60650 data 058 , 083 , 217 :rem ab 1015
  120. 60660 data 052 , 051 , 056 :rem ab 1018
  121. 60670 data 048 , 054 , 000 :rem ab 1021
  122. 60680 rem                               ========================================
  123.