home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 February / 64er_Magazin_93-02_1993_Markt__Technik_de_Side_A.d64 / surface-dok (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  6KB  |  180 lines
  1. 100 rem dokumentation zu surface v1.1
  2. 110 ifpeek(50178)+peek(50179)*256<>9888thena=1:load"surface",8,1
  3. 120 ifa=1thensys49554
  4. 130 print"[147]":_color,15,2:gosub1000
  5. 140 _frame,0,0,39,24,"[211]urface [214]1.1"
  6. 150 _frame,1,1,21,7,"":_frame,21,1,38,7,"[205]enue":_frame,1,7,38,23,"[196]okumentation"
  7. 160 print"[172][191][191][191][191]  [211]urface [214]1.1"
  8. 170 print"[161][161][161][161][161][161]"
  9. 180 print"[162][187][162][187][187][187]   (c) 1992"
  10. 190 print"[188][146][187][161][146] [188][146][190]"
  11. 200 print"[162][161][161][146] [161][161] [212]homas [203]lein":_icons
  12. 210 rem menue
  13. 220 _icol,8,5,1,6
  14. 230 _window,22,2,37,6:_show,m$(0),m+1,0,mr,o,mr,t:ift<>13then230
  15. 240 _shut:printleft$(m$(mr-1)+"                ",16)
  16. 250 ifmr<4then:_window,2,8,37,22
  17. 260 onmrgosub290,310,330,350,270:ift=13ort=88then220
  18. 265 ift=43andmr<3thenmr=mr+1
  19. 267 ift=45andmr>1thenmr=mr-1
  20. 269 goto260
  21. 270 fori=0to11:_up,0,12,39,24:_down,0,0,39,11:next:print"[147]";
  22. 280 _off:end
  23. 290 _show,b$(0),b+1,be,0,be,d,t
  24. 300 return
  25. 310 _show,sy$(0),s1+1,sy,0,sy,d,t
  26. 320 return
  27. 330 _show,sp$(0),s2+1,sp,0,sp,d,t
  28. 340 return
  29. 350 _off:open1,4,7:close1:ifstthen:_icons:return
  30. 360 open1,4,7
  31. 370 fori=0tob:print#1,b$(i):next:print#1:print#1:print#1
  32. 380 fori=0tos1:print#1,sy$(i):next:print#1:print#1:print#1
  33. 390 fori=0tos2:print#1,sp$(i):next
  34. 400 close1:_icons:return
  35. 1000 rem datas einlesen
  36. 1010 mr=1:be=0:sy=0:sp=0
  37. 1020 readm:dimm$(m):fori=0tom:readm$(i):next
  38. 1030 readb:dimb$(b):fori=0tob:readb$(i):next
  39. 1040 reads1:dimsy$(s1):fori=0tos1:readsy$(i):next
  40. 1050 reads2:dimsp$(s2):fori=0tos2:readsp$(i):next
  41. 1060 return
  42. 2000 rem datas
  43. 2010 data4,"[194]asic-[194]efehle","[193]ufruf mit [211][217][211]","[211]peicherbelegung","[193]usdruck","[197]nde"
  44. 2020 data128
  45. 2030 data"[196]ie [194]asic-[194]efehle","",""
  46. 2040 data"[211][213][210][198][193][195][197] wird mit '[211][217][211]49554' initia-"
  47. 2050 data"lisiert, [211][213][210][198][193][195][197]/[210][213][206] verfuegt ueber"
  48. 2060 data"eine [194]asic-[211]tartzeile und kann des-"
  49. 2070 data"halb mit '[210][213][206]' gestartet werden, al-"
  50. 2080 data"dings ist dadurch ein [206]achladen"
  51. 2090 data"nicht moeglich. [196]ie [201]nitialisierung"
  52. 2100 data"darf nur einmal erfolgen, danach"
  53. 2110 data"stehen die folgenden [194]efehle zur"
  54. 2120 data"[214]erfuegung:","",""
  55. 2130 data"_[198][210][193][205][197],xo,yo,xu,yu,u$",""
  56. 2140 data"[218]eichnet einen [210]ahmen mit den ange-"
  57. 2150 data"gebenen [197]cken und der [213]eberschrift"
  58. 2160 data"u$. [203]reuzungen mit anderen [210]ahmen"
  59. 2170 data"werden beruecksichtigt. [197]in einge-"
  60. 2180 data"schaltetes [198]enster wird geschlossen.","",""
  61. 2190 data"_[215][201][206][196][207][215],xo,yo,xu,yu",""
  62. 2200 data"[207]effnet ein [193]usgabefenster innerhalb"
  63. 2210 data"der angegebenen [199]renzen. [196]er [193]bstand"
  64. 2220 data"zum [194]ildschirmrand muss >1 sein.","",""
  65. 2230 data"_[211][200][213][212]",""
  66. 2240 data"[211]chliesst das [198]enster. [193]lle [193]usgaben"
  67. 2250 data"gelten wieder fuer den ganzen [194]ild-"
  68. 2260 data"schirm.","",""
  69. 2270 data"_[193][212],x,y",""
  70. 2280 data"[211]etzt den [195]ursor auf x/y, bezogen"
  71. 2290 data"auf die linke obere [198]ensterecke,"
  72. 2300 data"ohne [198]enster auf den ganzen [194]ild-"
  73. 2310 data"schirm.","",""
  74. 2320 data"_[213][208],xo,yo,xu,yu",""
  75. 2330 data"[211]crollt den angegebenen [194]ereich eine"
  76. 2340 data"[218]eile nach oben.","",""
  77. 2350 data"_[196][207][215][206],xo,yo,xu,yo",""
  78. 2360 data"[215]ie _[213][208], aber nach unten.","",""
  79. 2370 data"_[211][200][207][215],f$(a),n,o1,r1,o2,r2,t",""
  80. 2380 data"[218]eigt im aktuellen [198]enster n [197]lemen-"
  81. 2390 data"te des [211]tringfeldes f$, beginnend"
  82. 2400 data"bei [197]lement a an. [213]mfasst der ange-"
  83. 2410 data"gebene [194]ereich mehr [197]lemente als das"
  84. 2420 data"[198]enster [218]eilen hat, so kann man sich"
  85. 2430 data"mit [198]1-[198]7, [200]ome, [195]lr und den [195]ursor-"
  86. 2440 data"tasten bewegen. o1 gibt das am [193]n-"
  87. 2450 data"fang oberste [197]lement an, r1, welche"
  88. 2460 data"[218]eile revers dargestellt werden soll"
  89. 2470 data"(bei r1=0 keine). [201]n o2 und r2 er-"
  90. 2480 data"haelt man die entsprechenden [215]erte"
  91. 2490 data"beim [214]erlassen. [196]er [195]ursor steht da-"
  92. 2500 data"nach auf dem [193]nfang der rev. [218]eile,"
  93. 2510 data"fuer r1=0 in der ersten. t enthaelt"
  94. 2520 data"den [193][211][195][201][201]-[195]ode der [212]aste, mit der"
  95. 2530 data"der [194]efehl beendet wurde('x', '+',"
  96. 2540 data"'-' oder [210]eturn).","",""
  97. 2550 data"_[198][197][212][195][200],r,v$,z$,l,e$",""
  98. 2560 data"[203]ontrollierte [197]ingabe in e$. [197]rlaubt"
  99. 2570 data"sind die in z$ angegebenen [218]eichen,"
  100. 2580 data"abkuerzend koennen auch [195][212][210][204]-[206]([218]if-"
  101. 2590 data"fern), [195][212][210][204]-[203]([203]leinbuchstaben), [195][212][210][204]"
  102. 2600 data"-[199]([199]rossbuchstaben) und [195][212][210][204]-[218](alles"
  103. 2610 data"ausser [199]rafikzeichen, ? u. *) ange-"
  104. 2620 data"geben werden. v$ enthaelt die [193]nt-"
  105. 2630 data"wortvorgabe, r bestimmt, ob normale"
  106. 2640 data"(0) oder reverse(>0) [218]eichen benutzt"
  107. 2650 data"werden.","",""
  108. 2660 data"_[195][200][193][210][196][197][198],z,b,d1,d2,d3,d4,d5,d6,d7,d8",""
  109. 2670 data"[193]endert das [218]eichen mit dem [194][211]-[195]ode"
  110. 2680 data"b im [218]eichensatz z(0/1) gemaess den"
  111. 2690 data"[196]aten d1-d8.","",""
  112. 2700 data"_[195][207][204][207][210],r,h",""
  113. 2710 data"[194]estimmt [210]ahmen- und [200]intergrundfar-"
  114. 2720 data"be. [208][207][203][197]53280/53281,... sollte nicht"
  115. 2730 data"benutzt werden, da die [211]pritedar-"
  116. 2740 data"stellung von _[201][195][207][206][211] weitere [197]instel-"
  117. 2750 data"lungen benoetigt.","",""
  118. 2760 data"_[201][195][207][206][211]",""
  119. 2770 data"[211]tellt im unteren [194]ildschirmrand"
  120. 2780 data"acht [211]prites dar, die ueber einen"
  121. 2790 data"[202]oystick in [208]ort 2 ansteuerbar sind"
  122. 2800 data"und den [212]asten [198]1, [198]3, [198]5, [198]7, -, +,"
  123. 2810 data"x und [210]eturn entsprechen. [193]uf-/[193]bbe-"
  124. 2820 data"wegungen werden als [195]ursorsteuerung"
  125. 2830 data"interpretiert.","",""
  126. 2840 data"_[201][195][207][204],a,f1,f2,r",""
  127. 2850 data"[211]etzt die [198]arben der [211]prites(f1/f2)"
  128. 2860 data"und des [193]uswahlrahmens(r). [211]etzt den"
  129. 2870 data"[210]ahmen auf [211]prite a, bei a=0 keine"
  130. 2880 data"[193]enderung.","",""
  131. 2890 data"_[207][198][198]",""
  132. 2900 data"[211]chaltet _[201][195][207][206][211] wieder ab."
  133. 2910 data26
  134. 2920 data"[211][217][211]-[193]ufrufe statt [194]asic-[194]efehle","",""
  135. 2930 data"[211]oll [211]urface mit anderen [194]efehlser-"
  136. 2940 data"weiterungen zusammen benutzt werden,"
  137. 2950 data"so koennen anstatt der neuen [194]efehle"
  138. 2960 data"auch die folgenden [211][217][211]-[193]ufrufe ver-"
  139. 2970 data"wendet werden. [196]ie [201]nitialisierung"
  140. 2980 data"muss in diesem [198]all mit [211][217][211]49564 er-"
  141. 2990 data"folgen.","",""
  142. 3000 data"    [194]efehl:         [211][217][211]-[193]dresse:",""
  143. 3010 data"    _[198][210][193][205][197]             50176"
  144. 3020 data"    _[215][201][206][196][207][215]            50498"
  145. 3030 data"    _[211][200][213][212]              50563"
  146. 3040 data"    _[193][212]                50450"
  147. 3050 data"    _[213][208]                50947"
  148. 3060 data"    _[196][207][215][206]              50954"
  149. 3070 data"    _[211][200][207][215]              51700"
  150. 3080 data"    _[198][197][212][195][200]             51077"
  151. 3090 data"    _[195][200][193][210][196][197][198]           52272"
  152. 3100 data"    _[195][207][204][207][210]             52334"
  153. 3110 data"    _[201][195][207][206][211]             52446"
  154. 3120 data"    _[201][195][207][204]              52688"
  155. 3130 data"    _[207][198][198]               52741"
  156. 3140 data30
  157. 3150 data"[211]peicherbelegung","",""
  158. 3160 data"[198]-[211]et [201][201][201]:    $[195]400-$[195][195][196][197]"
  159. 3170 data"[198]-[211]et-[202]oy:    $[195]19[195]-$[195]400"
  160. 3180 data"              $[195][195][196][197]-$[195][197]3[195]"
  161. 3190 data"[211]urface-[194]as:  $[195]192-$[195]19[195]"
  162. 3200 data"              $[195][197]3[195]-$[195][197][198]8",""
  163. 3210 data"[197]inschaltmeldung([211]urface/[210][213][206]):"
  164. 3220 data"              $[195][197][198]8-$[195][198]2[195]",""
  165. 3230 data"[198]etch-[208]uffer: $[195][198]00-$[196]000"
  166. 3240 data"[194]ildschirm:   $[195]000-$[195]400"
  167. 3250 data"[218]eichensatz:  $[196]000-$[197]000"
  168. 3260 data"[211]pritedaten:  $[197]000-$[197]200","",""
  169. 3270 data"[196]er normale [194]ildschirmspeicher ist"
  170. 3280 data"ungenutzt und kann zur [196]atenablage"
  171. 3290 data"verwendet werden.",""
  172. 3300 data"[210][213][206]/[211][212][207][208]-[212]aste abschalten(nur bei"
  173. 3310 data"ausgeschalteten [201][195][207][206][211]):"
  174. 3320 data"[208][207][203][197]788,52:[208][207][203][197]52628,52:[208][207][203][197]52751,52"
  175. 3330 data"wieder ein: ,49 statt ,52"
  176. 3340 data"[196]ie [210]estore-[212]aste ist immer abge-"
  177. 3350 data"schaltet.",""
  178. 3360 data"[212]est ob [211]urface im [211]peicher:"
  179. 3370 data"[208][197][197][203](50178)+[208][197][197][203](50179)*256=9888"
  180.