home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh9x / sh94a.d64 / turtle-schrift (.txt) < prev   
Commodore BASIC  |  1995-03-30  |  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.