home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh45a.d64 / funprint (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  12KB  |  350 lines
  1. 1 POKE649,1:POKE56,67:CLR
  2. 2 DEFFNA(X)=0:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  3. 3 DEFFNB(X)=0:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  4. 4 DEFFNC(X)=0:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5. 5 X1%=0:X2%=0:Y1=0:Y2=0:X1=0:X2=0:M%=40:Z1=0:Z2=0:X=0:J=0:F%=0:KO%=1
  6. 6 F=55296:V=53248:GOSUB510
  7. 7 TX%=0:RD%=1:PZ=4:GOSUB699:KS%=4:GOSUB649:POKE53280,0:POKE53281,11
  8. 8 IFPEEK(17803)+PEEK(22956)<>33THENSYS57812"PROGRAF",8,1:POKE780,0:SYS65493
  9. 9 POKE777,67:!CLR,11,0:!LOC,320,200,2,636,2,396
  10. 10 REM --- BEI FEHLER: GOTO 10 ---
  11. 11 PRINT"[142][147][154]";
  12. 12 PRINT"   [213][192][192][192]          [213][192][192][192][201]
  13. 13 [153]"   PEEK             PEEK   PEEK     (null)      PEEK
  14. 14 PRINT"   [171][192] [178]  [213] [213][192][192][201]  [194][192][192][192][203] [178][192][201]   [213][192][192][201] [219][192]
  15. 15 [153]"   PEEK  PEEK  PEEK PEEK  PEEK  PEEK     PEEK   PEEK PEEK  PEEK PEEK
  16. 16 PRINT"   [177]  [202][192][192][203] [177]  [202]  [177]     [177]   [202] [177]  [202] [202]
  17. 18 [143] AUTHOR B.HAFNER, 8934 GROSSAITINGEN
  18. 19 [143] REVISED N.HEUSLER, 8000 MUENCHEN 71
  19. 20 [153]"STOP(null)TANTANTANTANTANTANTANTANTANRIGHT$   3      (null)TANTANTAN=TANTANTANRIGHT$ (null)TANTANTANTANTANTANTANRIGHT$";
  20. 21 [153]"PEEKFUNKTION PEEK 2 ^ 4  6(null)(null)_RIGHT$ PEEK ^ MID$RIGHT$PEEK+  -  \WAITPEEK";
  21. 22 [153]"PEEKKURVE  2DPEEK1  PEEK  5  PEEKUPRINT#   STOPPEEKPRINT#   STOPMPEEKPEEK       WAITPEEK";
  22. 23 [153]"PEEKFLAECHE  PEEK (null) PEEK (null)   PEEKVPRINT#   STOPPEEKPRINT#   STOPNPEEKPEEK@  *  ^WAITPEEK";
  23. 24 [153]"PEEKSTRECKE2DPEEK  (null)PEEK(null) <=>PEEKWPRINT#   STOPPEEKPRINT#   STOPOPEEKPEEK       WAITPEEK";
  24. 25 [153]"MID$RIGHT$  (null)TANTANTANTANTAN(null)  TAN(null)TANTANTAN(null)TANMID$TANTANTANTAN>TANTANTANTAN(null)PEEK:  ;  =WAITPEEK";
  25. 26 [153]" PEEKF1PEEK(null)TANTANTANTANRIGHT$(null)TANTANTANTANRIGHT$PRINT#   STOP  TERM(null)TANTANTANRIGHT$MID$RIGHT$     (null)(null)";
  26. 27 [153]" MID$TANTAN(null)PEEKF578PEEKPEEKLWAITOADPEEK    F3 PRINT#  STOPPEEKCLRPEEK PEEK KWAITS  PEEK
  27. 28 PRINT" [213][192][192][192][203]    [194][194]S[146]AVE[202][201] [213][192][192][192][192][192][192][203]   [202][201][171][192][192][192][192][192][179]
  28. 29 [153]" PEEKZEICHNENPEEKPEEKDWAITRUCKPEEK PEEK  LOESCHEN PEEKPEEKEIN 0WAITPEEK
  29. 30 PRINT" [202][192][192][192][192][192][192][192][192][203][202][192][192][192][192][192][203] [202][192][192][192][192][192][192][192][192][192][192][192][203][202][192][192][192][192][192][203]
  30. 32 FF[178]12:[141]54:[151][165]KS(KS%),12:[151]F[170]597,12[172]KO%:[141]801:[141]802
  31. 33 [151]F[170]PF%(PZ),12
  32. 35 [141]781
  33. 40 [151]198,0:[146]198,1:[161]D$:D[178][198](D$):SH[178][194](653):[139]D$[179][177]"L"[175]D$[179][177]"S"[167]45
  34. 41 [141]701:CY%[178]19:[141]711:CX%[178]7:D$[178]NN$:IL[178]14:[139]D[178]83[167]43
  35. 42 [139]D[178]76[167][153]" LOAD:":[141]721:[139]D$[179][177]"0"[167]NN$[178]D$:![147]D$
  36. 43 [139]D[178]83[167][153]" SAVE:":[141]721:[139]D$[179][177]"0"[167]NN$[178]D$:![148]D$
  37. 44 [137]35
  38. 45 [139](D[175]127)[178]19[167][141]771:[137]35
  39. 46 [139]D[178]136[167][141]201:[137]165
  40. 47 [139]D[178]140[167]381
  41. 48 [139]D[178]135[167][141]210:[137]165
  42. 49 [139]D[179][177]133[167]55
  43. 50 FF[178]0:[141]54:F%[178][171](F%[170]1)[172](F%[179]5):FF[178]12:[141]54:[139]F%[178]0[176]F%[178]3[167]52
  44. 51 [151]1031[170]FU%(F%),50[171]1[172](F%[178]2[176]F%[178]5)
  45. 52 A$[178]"":B$[178]"":C$[178]"":I1[178]0:I2[178]0:I3[178]0:J1[178]0:J2[178]0:J3[178]0
  46. 53 [151]512,48:[151]513,0:FL%[178]32:[141]191:FL%[178]111:[141]191:FL%[178]190:[141]191:[137]35
  47. 54 [129]I[178]0[164]8:[151]F[170]FU%(F%)[170]I,FF:[130]:[142]
  48. 55 [139]D[178]13[167]165
  49. 56 [129]I[178]0[164]9:[139]D$[178][202](KS$,I[170]1,1)[167][151][165]KS(KS%),0:KS%[178]I:I[178]11
  50. 57 [130]:[139]I[178]10[167]60
  51. 58 [151][165]KS(KS%),12:[139]KS%[178]9[167][141]611:[137]35
  52. 59 [141]649:[137]40
  53. 60 [139]D[178]68[167]401
  54. 61 [139][168]((D[178]134[175]FI[179]FZ)[176](D[178]138[175]FI[177]1))[167]64
  55. 62 FI[178]FI[170]1[170]2[172](D[178]138):FF[178]0:[141]54:[141]801:[141]390:[137]166
  56. 64 [139]D[178]48[167]KO%[178]1[171]KO%:[151]F[170]597,12[172]KO%:[137]40
  57. 65 [139]D[179][177]157[175]D[179][177]17[167]70
  58. 66 [139]M%[177]10[167]M%[178]M%[171]5:[141]801
  59. 68 [139][194](203)[179][177]64[167]66
  60. 69 [137]40
  61. 70 [139]D[179][177]29[167]74
  62. 71 [139]M%[179]200[167]M%[178]M%[170]5:[141]801
  63. 72 [139][194](203)[178]2[167]71
  64. 73 [137]40
  65. 74 [139]D[179]49[176]D[177]54[167]80
  66. 75 [151]F[170]PF%(PZ),0:PZ[178]D[171]49:[151]F[170]PF%(PZ),12:[139]PZ[178]5[167][141]651:[137]35
  67. 76 [141]699:[137]40
  68. 80 [139](D[175]127)[179]85[176](D[175]127)[177]87[167]84
  69. 81 D[178](D[175]3):R%(D)[178]R%(D)[170]15[171]30[172]SH:R%(D)[178]R%(D)[171]360[172](R%(D)[179]0)[170]360[172](R%(D)[177]350)
  70. 82 II[178]1286[170]D[172]40:I[178]R%(D):[141]805:[139][194](203)[179][177]64[167]81
  71. 83 [137]40
  72. 84 [139](D[175]127)[179]77[176](D[175]127)[177]79[167]88
  73. 85 D[178](D[175]3):T%(D)[178]T%(D)[170]1[171]2[172]SH
  74. 86 II[178]1286[170]D[172]40:I[178]T%(D):[141]806:[139][194](203)[179][177]64[167]85
  75. 87 [137]40
  76. 88 [145]F%[170]1[137]91,101,121,121,141,141
  77. 90 [143] --- FUNKTIONEN EINGABE ------
  78. 91 [139]D$[179][177]"F"[167]40
  79. 92 CX%[178]8:CY%[178]18:D$[178]A$:IL[178]66:[141]721:A$[178]D$:I1[178][171]2000:I2[178]2000
  80. 93 [141]181:![150][165]A:[139]KL%[167]92
  81. 95 [141]191:[139]DT%[167][141]171
  82. 96 [137]35
  83. 100 [143] KURVE 2D
  84. 101 [139]D$[179][177]"X"[167]105
  85. 102 CY%[178]18:D$[178]A$:[141]130:![150][165]A:A$[178]D$:[139]KL%[167]102
  86. 104 [137]35
  87. 105 [139]D$[179][177]"Y"[167]110
  88. 106 CY%[178]20:D$[178]B$:[141]130:![150][165]B:B$[178]D$:[139]KL%[167]106
  89. 108 [137]35
  90. 110 [139]D$[179][177]"I"[167]115
  91. 111 CX%[178]7:CY%[178]16:IL[178]6:D$[178][196](I1):[141]721:I1[178][197](D$):CX%[178]18:D$[178][196](I2)
  92. 112 [141]721:I2[178][197](D$):CX%[178]30:IL[178]8:D$[178][196](I3):[141]721:I3[178][182]([197](D$))
  93. 113 [139]I1[177]I2[167]D[178]I1:I1[178]I2:I2[178]D
  94. 114 [137]35
  95. 115 [139]D$[179][177]"J"[176]F%[179][177]3[167]40
  96. 116 CX%[178]7:CY%[178]17:IL[178]6:D$[178][196](J1):[141]721:J1[178][197](D$):CX%[178]18:D$[178][196](J2)
  97. 117 [141]721:J2[178][197](D$):CX%[178]30:IL[178]8:D$[178][196](J3):[141]721:J3[178][182]([197](D$))
  98. 118 [139]J1[177]J2[167]D[178]J1:J1[178]J2:J2[178]D
  99. 119 [137]35
  100. 120 [143] KURVE 3D /FLAECHE
  101. 121 [139]D$[179][177]"Z"[167]101
  102. 122 CY%[178]22:D$[178]C$:[141]130:![150][165]C:C$[178]D$:[139]KL%[167]122
  103. 125 [137]35
  104. 130 CX%[178]8:IL[178]66:[141]721:[141]181:[142]
  105. 140 [143] STRECKE
  106. 141 [139]D$[179][177]"A"[175]D$[179][177]"B"[167]40
  107. 142 CY%[178]18:IL[178]6:[139]D$[178]"B"[167]150
  108. 143 CX%[178]1:D$[178][196](I1):[141]721:I1[178][197](D$)
  109. 144 CY%[178]20:D$[178][196](I2):[141]721:I2[178][197](D$):[139]F%[179]5[167]35
  110. 145 CY%[178]22:D$[178][196](I3):[141]721:I3[178][197](D$):[137]35
  111. 150 CX%[178]16:D$[178][196](J1):[141]721:J1[178][197](D$)
  112. 151 CY%[178]20:D$[178][196](J2):[141]721:J2[178][197](D$):[139]F%[179]5[167]35
  113. 152 CY%[178]22:D$[178][196](J3):[141]721:J3[178][197](D$):[137]35
  114. 165 [151]198,0:!DRAW:[141]801:[137]40
  115. 166 [141]388:[151]F[170]PF%(PZ),0:PZ[178]5:[151][165]KS(KS%),0:KS%[178]9:[137]32
  116. 169 :
  117. 170 [143] DEF.BEREICH
  118. 171 [141]701
  119. 172 [153]:[153]" IN WELCHEM INTERVALL (X1,X2) IST":[153]" "DT$(DT%)" IN"
  120. 173 [153]"PRINT# "D$:[153]"STOP DEFINIERT?":CX%[178]0:CY%[178]23:[141]711
  121. 175 [153]" X1 = ";[163]20);"X2 = ":CX%[178]6:D$[178]"":IL[178]8:[141]721:I1[178][197](D$)
  122. 176 CX%[178]25:D$[178]"":[141]721:I2[178][197](D$):[142]
  123. 180 [143] DEF.BEREICH
  124. 181 KL%[178]0:[129]I[178]1[164][195](D$):A[178][198]([202](D$,I,1)):[151]511[170]I,A:[139]A[178]40[167]KL%[178]KL%[170]1
  125. 182 [139]A[178]41[167]KL%[178]KL%[171]1
  126. 185 [130]:[151]511[170]I,0:[142]
  127. 191 I[178]0:DT%[178]0
  128. 193 A[178][194](2080[170]I):[139]A[178]186[167]DT%[178]DT%[176]1
  129. 194 [139]A[178]188[167]DT%[178]DT%[176]2
  130. 195 [139]A[178]174[167]DT%[178]DT%[176]4
  131. 198 [139]A[179][177]58[167]I[178]I[170]1:[137]193
  132. 199 [142]
  133. 200 [143] --- ZEICHNEN ----------------
  134. 201 [139]FZ[178]35[167]210
  135. 202 FZ[178]FZ[170]1:FI[178]FZ:[141]205:[137]210
  136. 205 F%(FI)[178]F%:A$(FI)[178]A$:B$(FI)[178]B$:C$(FI)[178]C$:I1(FI)[178]I1:I2(FI)[178]I2:I3(FI)[178]I3
  137. 206 J1(FI)[178]J1:J2(FI)[178]J2:J3(FI)[178]J3:[142]
  138. 210 !PROZ,P%(1),P%(2),P%(3):!LOC,OX%,OY%:!SCN,1
  139. 219 [139]KO%[178]0[176]KR%[178]1[167]234
  140. 220 [143] KOORD.SYSTEM
  141. 222 KR%[178]1:!ROT,0,0,0:!TRANS,0,0,0:!LINE,[171]OX%,0,640[171]OX%,0:!LINE,0,OY%,0,OY%[171]400
  142. 225 [129]X[178][171]M%[172][181](OX%[173]M%)[164]640[169]M%:!LINE,X,1,X,[171]2:[130]
  143. 226 [129]Y[178][171]M%[172][181](OY%[173]M%)[164]400[169]M%:!LINE,2,[171]Y,[171]1,[171]Y:[130]
  144. 227 [139]F%[179]2[176]F%[178]4[167]235
  145. 228 [129]I[178]M%[172]([181](P%(2)[173]M%)[170]4)[164]20[172]M%[169]M%:!ZPLOT,0,I,0:[130]
  146. 234 !ROT,R%(1)[173]57.3,R%(2)[173]57.3,R%(3)[173]57.3:!TRANS,T%(1)[172]M%,T%(2)[172]M%,T%(3)[172]M%
  147. 235 [145]F%[170]1[137]241,271,291,311,341,342
  148. 240 [143] *** FUNKTION ***
  149. 241 [139]A$[178]""[167]40
  150. 242 X1%[178][171]OX%:[139]X1%[179]I1[172]M%[167]X1%[178]I1[172]M%
  151. 243 X3%[178][171]OX%[170]639:[139]X3%[177]I2[172]M%[167]X3%[178]I2[172]M%
  152. 244 [139]X3%[179]X1%[170]4[167]40
  153. 245 Y1[178]M%[172][165]A((X1%[170].1)[173]M%)
  154. 246 [129]I[178]X1%[170].1[164]X3%[171].1[169]4:X2%[178]X1%:Y2[178]Y1
  155. 247 X1%[178]I:Y1[178]M%[172][165]A(I[173]M%):[139][182](Y1[171]Y2)[179]120[167]:!LINE,X1%,Y1,X2%,Y2:[137]250
  156. 249 [139]X1%[171]X2%[177]2[167][139]Y2[177][171]200[167][139]Y2[179]600[167]I[178]I[171]2:[137]247
  157. 250 [139][194](198)[167][141]335:[139]D[167][142]
  158. 251 [130]:[137]374
  159. 270 [143] *** KURVE 2D ***
  160. 271 I[178]I1:X1[178][165]A(X)[172]M%:Y1[178][165]B(X)[172]M%
  161. 272 I[178]I[170]I3:[139]I[177]I2[167]374
  162. 273 [139][194](198)[167][141]335:[139]D[167][142]
  163. 274 X2[178]X1:Y2[178]Y1:X1[178][165]A(X)[172]M%:Y1[178][165]B(X)[172]M%:!LINE,X1,Y1,X2,Y2:[137]272
  164. 290 [143] *** KURVE 3D ***
  165. 291 I[178]I1:X1[178][165]A(X)[172]M%:Y1[178][165]B(X)[172]M%:Z1[178][165]C(X)[172]M%
  166. 293 I[178]I[170]I3:[139]I[177]I2[167]374
  167. 294 [139][194](198)[167][141]335:[139]D[167][142]
  168. 295 [141]370:[137]293
  169. 310 [143] *** FLAECHE ***
  170. 311 I[178]I1
  171. 313 J[178]J1:X1[178][165]A(X)[172]M%:Y1[178][165]B(X)[172]M%:Z1[178][165]C(X)[172]M%
  172. 314 J[178]J[170]J3:[139]J[177]J2[167]320
  173. 315 [139][194](198)[167][141]335:[139]D[167][142]
  174. 316 [141]370:[137]314
  175. 320 I[178]I[170]I3:[139]I[177]I2[167]322
  176. 321 [137]313
  177. 322 J[178]J1
  178. 323 I[178]I1:X1[178][165]A(X)[172]M%:Y1[178][165]B(X)[172]M%:Z1[178][165]C(X)[172]M%
  179. 324 I[178]I[170]I3:[139]I[177]I2[167]330
  180. 325 [139][194](198)[167][141]335:[139]D[167][142]
  181. 326 [141]370:[137]324
  182. 330 J[178]J[170]J3:[139]J[177]J2[167]374
  183. 331 [137]323
  184. 335 D[178]1:[139][194](631)[178]95[167]D[178]0:!DRAW:!SCN,1
  185. 336 [142]
  186. 340 [143] *** STRECKE ***
  187. 341 !LINE,I1[172]M%,I2[172]M%,J1[172]M%,J2[172]M%:[137]374
  188. 342 !ZLINE,I1[172]M%,I2[172]M%,I3[172]M%,J1[172]M%,J2[172]M%,J3[172]M%:[137]374
  189. 370 X2[178]X1:Y2[178]Y1:Z2[178]Z1:X1[178][165]A(X)[172]M%:Y1[178][165]B(X)[172]M%:Z1[178][165]C(X)[172]M%
  190. 371 !ZLINE,X1,Y1,Z1,X2,Y2,Z2:[142]
  191. 374 FJ[178]1
  192. 375 [142]
  193. 380 [143] GEMERKTE FUNKTIONEN
  194. 381 FI[178]0:[139]FZ[178]0[167]40
  195. 382 !SCN,1:FF[178]0:[141]54
  196. 383 FI[178]FI[170]1:[139]FI[177]FZ[167]FI[178]FZ:[137]386
  197. 385 [141]390:FJ[178]0:[141]210:[139]FJ[167]383
  198. 386 [151]198,0:!DRAW:[137]166
  199. 388 [139]F%[177]0[175]F%[179][177]3[167][151]1031[170]FU%(F%),50[171](F%[178]2[176]F%[178]5)
  200. 389 [142]
  201. 390 F%[178]F%(FI):[139]F%[179]4[167]A$[178]A$(FI):D$[178]A$:[141]181:![150][165]A
  202. 391 [139]F%[167][139]F%[179]4[167]B$[178]B$(FI):D$[178]B$:[141]181:![150][165]B
  203. 392 [139]F%[178]3[176]F%[178]2[167]C$[178]C$(FI):D$[178]C$:[141]181:![150][165]C
  204. 393 I1[178]I1(FI):I2[178]I2(FI):I3[178]I3(FI):J1[178]J1(FI):J2[178]J2(FI):J3[178]J3(FI):[142]
  205. 400 [143] --- DRUCKEN -----------------
  206. 401 [141]701:GR%[178]0
  207. 402 CY%[178]17:[141]711:[153],"   AUSDRUCK
  208. 405 CY%=19:GOSUB711:PRINT" 320*200  0 [146] SCHNELL   MIT RAND  R [146]
  209. 406 CY%[178]20:[141]711:[153]" 640*400  1 WAIT KLEIN
  210. 407 CY%=21:GOSUB711:PRINT"   OPTI-  2 [146] MITTEL    MIT TEXT  T [146]
  211. 408 CY%[178]22:[141]711:[153]"   MIERT  3 WAIT GROSS
  212. 410 POKEF+770+GR%*40,12:POKEF+793,12*RD%:POKEF+873,12*TX%
  213. 420 POKE198,0:WAIT198,1:GETD$:D=ASC(D$)
  214. 421 IFD$="R"THENRD%=1-RD%:GOTO402
  215. 422 IFD$="T"THENTX%=1-TX%:GOTO402
  216. 423 IFD>47ANDD<52THENGR%=D-48:GOTO402
  217. 425 GOTO430
  218. 426 PRINT,"[152]DRUCKER EINSCHALTEN[144][145]
  219. 427 [151]198,0:[146]198,1:[161]D$
  220. 428 [139]D$[179][177][199](13)[175]D$[179][177]"D"[167]35
  221. 430 [159]1,4,1:[160]1:[139]ST[179]0[167]426
  222. 440 !SCN,1:!LOC,0,0,0,638,0,398
  223. 446 !LINE,0,0,638,0,RD%[172]255:!LINE,0,0,0,[171]398,RD%[172]255
  224. 447 !LINE,0,[171]398,638,[171]398,RD%[172]255:!LINE,638,0,638,[171]398,RD%[172]255
  225. 448 !LOC,OX%,OY%,2,636,2,396
  226. 450 [159]2,4,1:[143] 1= SEK.ADR. FUER GROSS/GRAFIK
  227. 460 !COPY,GR%,14:[143] 14=SEK.ADR. FUER LINEARKANAL
  228. 468 [139]TX%[178]0[176]FZ[178]0[167]492
  229. 470 [129]I[178]1[164]FZ:[139]F%(I)[178]0[167][152]2,"F(X) = "[170]A$(I):[137]485
  230. 471 [139]F%(I)[179]4[167][152]2,"X = "[170]A$(I):[152]2,"Y = "[170]B$(I)
  231. 473 [139]F%(I)[178]2[176]F%(I)[178]3[167][152]2,"Z = "[170]C$(I)
  232. 474 [139]F%(I)[177]3[167]480
  233. 475 [152]2,"I VON "[170][196](I1(I))[170]" BIS "[170][196](I2(I))[170]", SCHRITTW."[170][196](I3(I))
  234. 476 [139]F%(I)[179]3[167]485
  235. 477 [152]2,"J VON "[170][196](J1(I))[170]" BIS "[170][196](J2(I))[170]", SCHRITTW."[170][196](J3(I))
  236. 478 [137]485
  237. 480 [152]2,"("[170][196](I1(I))[170]","[170][196](I2(I));
  238. 481 [139]F%(I)[178]5[167][152]2,","[170][196](I3(I));
  239. 482 [152]2,")  -  ("[170][196](J1(I))[170]","[170][196](J2(I));
  240. 483 [139]F%(I)[178]5[167][152]2,","[170][196](J3(I));
  241. 484 [152]2,")"
  242. 485 [152]2:[130]
  243. 486 [152]2,"URSPRUNG ("[196](OX%)","[196](OY%)"), EINHEIT"[196](M%);
  244. 487 [139]F%[179]2[176]F%[178]4[167]492
  245. 488 [152]2,", PROJEKTIONSZENTRUM ("[196](P%(1))","[196](P%(2))","[196](P%(3))")"
  246. 490 [152]2,"WINKEL: ("[196](R%(1))","[196](R%(2))","[196](R%(3))"), ";
  247. 491 [152]2,"VERSCHIEBUNG: ("[196](T%(1))","[196](T%(2))","[196](T%(3))") "
  248. 492 [152]2:[160]2:!SCN,0:[137]35
  249. 500 [143] --- STRINGS,DATA,FELDER -----
  250. 510 NN$[178]"NAME":KS$[178]"+-\@*^:;=K":[150][165]KS(X)[178]F[170]272[170]3[172]X[170]71[172][181](X[173]3)[171]2[172](X[178]9)
  251. 521 [150][165]E(X)[178]X[171][181](X[173]10)[172]10[170]48
  252. 522 [150][165]Z(X)[178]32[171](16[170][181]((X[171][181](X[173]100)[172]100)[173]10))[172](X[177]9)
  253. 523 [150][165]H(X)[178]32[171](16[170][181](X[173]100))[172](X[177]99):[150][165]V(X)[178]32[171]13[172](X[179]0)
  254. 531 [131]241,281,281,321,361,361:[129]I[178]0[164]5:[135]FU%(I):[130]
  255. 541 [131],"SQR(..)","LOG(..)","SQR(..) UND LOG(..)","(..)^"
  256. 542 [131]"SQR(..) UND (..)^","LOG(..) UND (..)^","SQR(..) UND LOG(..) UND (..)^"
  257. 543 [129]I[178]0[164]7:[135]DT$(I):[130]
  258. 551 [134]P1(4),P2(4),P3(4),PF%(5),R%(3),P%(3),T%(3)
  259. 552 [129]I[178]0[164]4:[135]P1(I),P2(I),P3(I):[130]:[129]I[178]0[164]5:[135]PF%(I):[130]
  260. 554 [131]-240,-1100,200,-180,-1100,300,0,-1100,330,180,-1100,300,240,-1100,200
  261. 555 [131]291,252,214,256,297,259
  262. 560 [134]F%(35),A$(35),B$(35),C$(35),I1(35),I2(35),I3(35),J1(35),J2(35),J3(35)
  263. 561 [142]
  264. 600 [143] --- UNTERPROGRAMME -----------
  265. 610 [143] URSPRUNG
  266. 611 [141]701:[153]:[153]" KOORDINATEN DES URSPRUNGS:"
  267. 612 [151]198,0:CY%[178]19:[141]711:[153]" X = PRINT#";OX%;"CMD    "
  268. 613 CY%[178]21:[141]711:[153]"STOP Y = PRINT#";OY%;"STOPCMD    "
  269. 614 [139][194](203)[179][177]64[167]616
  270. 615 [146]198,1:[161]D$
  271. 616 [139]D$[178]"(null)"[167]OX%[178]OX%[171]20:[137]612
  272. 617 [139]D$[178]"Y"[167]OY%[178]OY%[170]20:[137]612
  273. 618 [139]D$[178]"(null)"[167]OY%[178]OY%[171]20:[137]612
  274. 619 [139]D$[178]"X"[167]OX%[178]OX%[170]20:[137]612
  275. 648 [142]
  276. 649 OX%[178]240[172](KS%[171][181](KS%[173]3)[172]3)[170]80:OY%[178]140[172][181](KS%[173]3)[170]60:[142]
  277. 650 [143] PROJEKTIONSZENTRUM
  278. 651 [141]701:[153]:[153]" KOORDINATEN DES PROJEKTIONSZENTRUMS:"
  279. 652 [151]198,0:[129]I[178]1[164]3:CY%[178]17[170]2[172]I:[141]711:[153]"STOP"[199](87[170]I)" = PRINT#"P%(I);
  280. 653 [153]"STOPCMD    ":[130]
  281. 655 [139][194](203)[179][177]64[167]657
  282. 656 [146]198,1:[161]D$:[129]II[178]1[164]6
  283. 657 [129]I[178]1[164]6
  284. 658 [139]D$[178][202]("X(null)Y(null)Z(null)",I,1)[167]D[178][181]((I[170]1)[173]2):P%(D)[178]P%(D)[170]20[170]40[172](I[173]2[178]D):[137]652
  285. 659 [130]:[142]
  286. 699 P%(1)[178]P1(PZ):P%(2)[178]P2(PZ):P%(3)[178]P3(PZ):[142]
  287. 700 [143] EINGABEFELD LOESCHEN
  288. 701 [129]I[178]16[164]24:[151]781,I:[158]59903:[130]:CX%[178]0:CY%[178]16:[141]711:[142]
  289. 710 [143] CURSOR
  290. 711 [151]211,CX%:[151]214,CY%:[158]58640:[142]
  291. 720 [143] INPUT
  292. 721 [139]D$[179][177]""[167][139][200](D$,1)[178]" "[167]D$[178][201](D$,[195](D$)[171]1)
  293. 722 D$[178]D$[170]"                                                                   "
  294. 723 X2%[178]0:D$[178][200](D$,IL)
  295. 725 [141]711:[153]""[170]D$[170]"WAIT ";:X1[178]F[170]CX%[170]40[172]CY%[170]X2%
  296. 730 [151]X1,12:[161]E$:[139]E$[178]""[167]730
  297. 731 D[178][198](E$):[139]D[178]13[167]760
  298. 732 [139]D[178]29[167][139]X2%[179]IL[171]1[167]X2%[178]X2%[170]1:[151]X1,0:X1[178]X1[170]1:[137]730
  299. 734 [139]D[178]157[167][139]X2%[167]X2%[178]X2%[171]1:[151]X1,0:X1[178]X1[171]1:[137]730
  300. 735 [139]D[179][177]20[167]737
  301. 736 [139]X2%[167]X2%[178]X2%[171]1:D$[178][200](D$,X2%)[170][202](D$,X2%[170]2,IL[171]1[171]X2%)[170]" ":[137]725
  302. 737 [139]D[178]148[167]D$[178][200](D$,X2%)[170]" "[170][202](D$,X2%[170]1,IL[171]1[171]X2%):[137]725
  303. 738 [139]D[179]59[167][139]D[177]39[167][139]D[179][177]44[167]745
  304. 740 [139]D[177]63[167][139]D[179]89[167][139]IL[178]66[176]IL[178]14[167]745
  305. 741 [139]D[178]32[176]D[178]94[167]745
  306. 742 [139]D[178]222[167]E$[178][199](255):[137]745
  307. 743 [137]725
  308. 745 D$[178][200](D$,X2%)[170]E$[170][202](D$,X2%[170]2,IL[171]1[171]X2%):[139]X2%[179]IL[171]1[167]X2%[178]X2%[170]1
  309. 750 [137]725
  310. 760 [151]X1,0:I[178]1
  311. 761 [139][202](D$,I,1)[179][177]" "[167][139]I[179][195](D$)[170]1[167]I[178]I[170]1:[137]761
  312. 762 D$[178][200](D$,I[171]1):[139]D$[178]""[167]D$[178]"0"
  313. 763 [142]
  314. 770 [143] FKT. LOESCHEN
  315. 771 CX%[178]20:CY%[178]14:[141]711:[153]"PRINT#BSTOPILDPRINT#TSTOPERMPRINT#GSTOPES":[151]198,0:[146]198,1
  316. 772 [161]D$:[139]D$[178]"G"[167]:![156]:FZ[178]0:FI[178]0:KR%[178]0:[141]801:[137]778
  317. 773 [139]D$[178]"B"[167]:![156]:KR%[178]0:[137]778
  318. 774 [139]D$[179][177]"T"[176]FZ[178]0[167]778
  319. 775 [139]FI[178]FZ[167]FI[178]FI[171]1:[137]777
  320. 776 II[178]FI:FI[178]0:[141]205:FI[178]FZ:[141]390:FI[178]II:[141]205:FI[178]0:[141]390:FI[178]II
  321. 777 FZ[178]FZ[171]1
  322. 778 [141]711:[153]"  LOESCHEN ":[142]
  323. 780 [143] ANZEIGE EINGABEFELD
  324. 781 [141]701:[139]F%[177]3[167]791
  325. 782 [139]F%[178]0[167]F1$[178]"F(X) = ":F2$[178]"":F3$[178]"":[137]785
  326. 783 [139]F%[178]3[167]F1$[178]"CMDX(I,J)= ":F2$[178]"CMDY(I,J)= ":F3$[178]"CMDZ(I,J)= ":[137]785
  327. 784 F1$[178]"X(I) = ":F2$[178]"Y(I) = ":F3$[178]"":[139]F%[178]2[167]F3$[178]"Z(I) = "
  328. 785 [139]F%[167][153]" I VON ";I1;"CMD";[163]14);"BIS ";I2;"CMD";[163]25);"STEP ";I3
  329. 786 CY%[178]17:[141]711
  330. 787 [139]F%[178]3[167][153]" J VON ";J1;"CMD";[163]14);"BIS ";J2;"CMD";[163]25);"STEP ";J3
  331. 788 CY%[178]18:[141]711:[153]" "F1$;A$:[139]F%[167]CY%[178]20:[141]711:[153]" "F2$;B$
  332. 789 [139]F%[177]1[167]CY%[178]22:[141]711:[153]" "F3$;C$;
  333. 790 [142]
  334. 791 [153]" PUNKT A        PUNKT B
  335. 792 CY%=18:GOSUB711:PRINT" ";I1;TAB(16);J1
  336. 793 CY%=20:GOSUB711:PRINT" ";I2;TAB(16);J2
  337. 794 IFF%=5THENCY%=22:GOSUB711:PRINT" ";I3;TAB(16);J3
  338. 795 RETURN
  339. 800 REM EINHEIT,WINKEL,NR.
  340. 801 POKE1529,FNE(FI):POKE1528,FNZ(FI):II=1481:I=M%:GOTO805
  341. 802 FORD=1TO3:II=1286+D*40:I=R%(D):GOSUB805:I=T%(D):GOSUB806:NEXT:RETURN
  342. 805 POKEII+2,FNE(I):POKEII+1,FNZ(I):POKEII,FNH(I):RETURN
  343. 806 POKEII+6,FNE(ABS(I)):POKEII+5,FNZ(ABS(I)):POKEII+4,FNV(I):RETURN
  344. 900 REM PROGRAMMENDE
  345. 902 REM (W)RITTEN BY B. HAFNER
  346. 904 REM UEBERARBEITET VON N. HEUSLER
  347. 905 REM  (16.7.89)
  348. 906 REM I.A. MARKT & TECHNIK VERLAG
  349. 908 REM (C) REDAKTION SONDERHEFTE 64'ER
  350.