home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 94 / 64er_Magazin_Sonderheft_94_19xx_Markt__Technik_de_Side_A.d64 / turtle-schrift (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  4KB  |  117 lines
  1. 1 rem turtle-demo: 'text'
  2. 2 rem n. heusler 12.91
  3. 3 :
  4. 5 dimc%(69,19)
  5. 7 ifpeek(776)+peek(777)<>291thenprint"[147]stop![146] erst turtle-grafik laden":f=1
  6. 8 iffthenprint"und starten!":end
  7. 10 sys49152
  8. 20 !init:!window201:!graphics
  9. 30 print"[147]zeichensatzdaten werden gelesen
  10. 40 [135]a:[139]a[178]0[167]60
  11. 50 c%(c,n)[178]a:n[178]n[170]1:[137]40
  12. 60 c[178]c[170]1:n[178]0:[139]c[179]70[137]40
  13. 70 tx[178]60:ty[178]5:ag[178]0:ab[178]0.8:ta[178]2
  14. 80 a$[178]"turtle-schrift
  15. 90 print"- normale schrift
  16. 100 [141]900
  17. 110 [153]"- schraege schrift
  18. 120 forag=-15to-90step-15:gosub900:next
  19. 130 gosub950
  20. 140 print"- gedrehte schrift
  21. 145 a$[178]"turtle-schrift macht's moeglich...!
  22. 150 tx=100:sa=10:ag=0:gosub900
  23. 160 gosub950
  24. 170 print"- verschiedene textgroessen
  25. 180 ty[178]0:a$[178]"turtle
  26. 190 sa=0:tx=4:forta=.5to6:ifta=1.5thenta=1
  27. 200 gosub900:ty=ty+ta*10:next
  28. 210 a$="da kommt freude auf -
  29. 220 sa[178]15:tx[178]250:ty[178]4:ta[178]1.5:ab[178]4:[141]900
  30. 230 [141]950:sa[178]0:ab[178]0:[153]"- fettschrift
  31. 240 a$="so sieht ":tx=4:ty=90:ta=2:gosub900:tx=-1
  32. 250 a$="fettschrift":fa=2:gosub900
  33. 260 !move!turtx,ty:a$=" aus.":fa=0:gosub900
  34. 270 a$="turtle":ta=5:ab=2:fa=3
  35. 280 tx=40:ty=8:gosub900
  36. 290 ty=190:tx=264:ag=180:gosub900
  37. 890 end
  38. 900 !pen0:iftx=>0then:!movetx,ty
  39. 902 ifag<>9999then:!angleag+270
  40. 904 ifpeek(653)thenreturn
  41. 910 iffa=0then2000
  42. 920 t1=!turtx:t2=!turty:!pushag:ag=9999:!pushtx:!pushty
  43. 925 ty=ty-fa/2:fortx=t1-fa/2tot1+fa/2
  44. 930 !pushfa:fa=0:gosub900:!pullfa:ty=ty+1
  45. 940 nexttx:!pullty:!pulltx:!pullag:return
  46. 950 print"(bitte eine taste)[145][145]
  47. 952 [129]i[178]1[164]200:[130]
  48. 954 [161]x$:[139]x$[167]990
  49. 960 [153]"(                )onon
  50. 962 fori=1to200:next
  51. 964 getx$:ifx$then990
  52. 970 goto950
  53. 990 print:print:!clear:return
  54. 1000 data58,44,22,36,34,48,23,38,21,84,19,34,17,42,104,,124,96,17,34,19,100,72
  55. 1001 data70,57,58,,18,116,22,50,17,32,23,38,42,17,16,23,38,90,,26,21,84,19,34
  56. 1002 data17,88,23,38,90,,50,19,84,21,54,18,112,90,,66,78,116,66,40,47,38,57,58,
  57. 1003 data66,78,116,72,34,57,26,,74,28,23,38,21,84,19,34,17,48,38,57,26,,116,64
  58. 1004 data66,68,112,42,,26,34,22,116,22,34,57,72,,42,34,22,100,21,22,23,105,,116
  59. 1005 data72,49,61,67,41,88,,116,66,41,88,,124,112,35,33,116,41,88,,124,112,67
  60. 1006 data52,112,42,,26,21,84,19,34,17,80,23,38,90,,196,48,50,17,32,23,54,106,
  61. 1007 data26,21,84,19,18,33,64,23,38,76,27,35,42,120,,50,19,36,21,54,18,51,78
  62. 1008 data112,106,,74,28,23,38,21,36,19,34,19,20,21,38,23,105,,66,38,116,73,56,
  63. 1009 data100,19,34,17,96,42,,84,35,33,80,42,,116,33,35,112,42,,20,67,36,78,32
  64. 1010 data65,16,42,,20,35,68,64,33,16,42,,66,20,69,36,66,42,120,,58,38,116,34,58
  65. 1011 data120,,76,66,42,72,,26,34,116,38,90,120,,42,35,78,33,116,73,56,,76,33,76
  66. 1012 data39,66,42,72,,106,,42,68,44,20,73,56,,26,36,42,32,58,,26,116,42,112,26
  67. 1013 data44,70,60,66,42,88,,42,116,46,40,19,34,17,16,23,38,23,17,34,19,42,40,
  68. 1014 data74,28,20,69,20,58,32,27,38,30,56,32,27,38,40,106,,26,21,20,19,18,36,35
  69. 1015 data40,37,22,23,32,17,18,17,16,23,22,90,,42,20,21,90,40,,58,21,84,19,58
  70. 1016 data120,,26,19,84,21,90,120,,76,66,40,30,21,36,21,72,19,36,19,58,104,,76
  71. 1017 data66,47,68,74,104,,92,42,20,21,90,120,,76,66,42,72,,92,42,20,74,104,,28
  72. 1018 data74,20,69,20,106,120,,74,28,23,38,21,84,19,34,17,80,69,106,88,,42,116
  73. 1019 data18,38,104,17,74,,28,17,34,19,36,21,38,21,36,66,42,120,,28,17,34,19,20
  74. 1020 data21,22,18,19,36,21,38,23,105,,74,116,32,70,16,65,42,,74,70,52,50,19,36
  75. 1021 data21,38,23,105,,58,38,21,84,19,34,17,32,23,54,57,58,,66,36,37,52,74,120,
  76. 1022 data26,34,19,20,21,38,21,36,19,34,17,32,23,38,23,16,24,106,,26,34,19,84,21
  77. 1023 data38,23,42,41,54,23,32,17,90,,42,44,20,44,20,73,40,,42,44,20,44,20,21,89
  78. 1024 data40,,74,28,22,53,51,18,42,120,,60,66,44,70,89,26,,28,18,51,53,22,24,105
  79. 1025 data,28,17,34,19,20,21,38,20,44,20,105,40,,24,17,46,19,36,21,42,23,24,46
  80. 1026 data66,46,,40,51,53,55,49,44,,41,68,70,64,66,45,,40,53,98,55,44,,41,70,67
  81. 1027 data70,65,45,,40,18,19,36,21,38,23,32,17,18,44,
  82. 2000 fork=1tolen(a$)
  83. 2002 c=asc(mid$(a$,k)):n=0:u=!heading:!turnl90:h=!heading
  84. 2004 a=c%(cand63,n):ifa=0then2020
  85. 2006 !pen0:if(aand8)=0then:!pen1
  86. 2008 q=ta*int(a/16):ifaand1thenq=q*sqr(2)
  87. 2010 !angleh:!turnr45*(aand7):!walkq+.5
  88. 2012 n=n+1:goto2004
  89. 2020 !angleu:!pen0:!walkab*ta:!turnrsa:next:return
  90. 3000 open4,4
  91. 3010 print#4:print#4,"    **** vektor-zeichensatz ****
  92. 3011 [152]4:[152]4,"zeich. nr.   code  laenge  pen  richt.":[152]4
  93. 3012 [129]i[178]32[164]95:[141]3020:[130]
  94. 3016 [137]3040
  95. 3020 [152]4," "[199](34)[199](i)[199](34);:c[178]i[175]63:n[178]0
  96. 3022 a[178]c%(c,n):n[178]n[170]1:[139]a[178]0[167][152]4:[142]
  97. 3024 [152]4,[201]("     "[170][196](n),5)"  ";
  98. 3026 [129]d[178]7[164]0[169][171]1:n$[178]"0":[139]a[175]2[174]d[167]n$[178]"1
  99. 3028 print#4,n$;:next
  100. 3030 print#4,right$("    "+str$(int(a/16)),5);
  101. 3032 p$="    an":ifaand8thenp$="   aus"
  102. 3034 print#4,p$right$("    "+str$(aand7),5)
  103. 3036 print#4,"    ";:goto3022
  104. 3040 print#4:print#4,"verzeichnis der richtungen:
  105. 3042 [152]4:[152]4,"  0 - oben
  106. 3044 print#4,"  1 - oben rechts
  107. 3046 [152]4,"  2 - rechts
  108. 3048 print#4,"  3 - unten rechts
  109. 3050 [152]4,"  4 - unten
  110. 3052 print#4,"  5 - unten links
  111. 3054 [152]4,"  6 - links
  112. 3056 print#4,"  7 - oben links
  113. 3058 [152]4:[152]4,"bei den schraegen richtungen muss die
  114. 3060 print#4,"angegebene laenge mit dem wert sqr (2)
  115. 3062 [152]4,"multipliziert werden (diagonal-laenge)
  116. 3064 print#4:print#4:close4:end
  117.