1 REM TURTLE-DEMO: 'TEXT' 2 REM N. HEUSLER 12.91 3 : 5 DIMC%(69,19) 7 IFPEEK(776)+PEEK(777)<>291THENPRINT"[147]STOP![146] ERST TURTLE-GRAFIK LADEN":F=1 8 IFFTHENPRINT"UND STARTEN!":END 10 SYS49152 20 !INIT:!WINDOW201:!GRAPHICS 30 PRINT"[147]ZEICHENSATZDATEN WERDEN GELESEN 40 [135]A:[139]A[178]0[167]60 50 C%(C,N)[178]A:N[178]N[170]1:[137]40 60 C[178]C[170]1:N[178]0:[139]C[179]70[137]40 70 TX[178]60:TY[178]5:AG[178]0:AB[178]0.8:TA[178]2 80 A$[178]"TURTLE-SCHRIFT 90 PRINT"- NORMALE SCHRIFT 100 [141]900 110 [153]"- SCHRAEGE SCHRIFT 120 FORAG=-15TO-90STEP-15:GOSUB900:NEXT 130 GOSUB950 140 PRINT"- GEDREHTE SCHRIFT 145 A$[178]"TURTLE-SCHRIFT MACHT'S MOEGLICH...! 150 TX=100:SA=10:AG=0:GOSUB900 160 GOSUB950 170 PRINT"- VERSCHIEDENE TEXTGROESSEN 180 TY[178]0:A$[178]"TURTLE 190 SA=0:TX=4:FORTA=.5TO6:IFTA=1.5THENTA=1 200 GOSUB900:TY=TY+TA*10:NEXT 210 A$="DA KOMMT FREUDE AUF - 220 SA[178]15:TX[178]250:TY[178]4:TA[178]1.5:AB[178]4:[141]900 230 [141]950:SA[178]0:AB[178]0:[153]"- FETTSCHRIFT 240 A$="SO SIEHT ":TX=4:TY=90:TA=2:GOSUB900:TX=-1 250 A$="FETTSCHRIFT":FA=2:GOSUB900 260 !MOVE!TURTX,TY:A$=" AUS.":FA=0:GOSUB900 270 A$="TURTLE":TA=5:AB=2:FA=3 280 TX=40:TY=8:GOSUB900 290 TY=190:TX=264:AG=180:GOSUB900 890 END 900 !PEN0:IFTX=>0THEN:!MOVETX,TY 902 IFAG<>9999THEN:!ANGLEAG+270 904 IFPEEK(653)THENRETURN 910 IFFA=0THEN2000 920 T1=!TURTX:T2=!TURTY:!PUSHAG:AG=9999:!PUSHTX:!PUSHTY 925 TY=TY-FA/2:FORTX=T1-FA/2TOT1+FA/2 930 !PUSHFA:FA=0:GOSUB900:!PULLFA:TY=TY+1 940 NEXTTX:!PULLTY:!PULLTX:!PULLAG:RETURN 950 PRINT"(BITTE EINE TASTE)[145][145] 952 [129]I[178]1[164]200:[130] 954 [161]X$:[139]X$[167]990 960 [153]"( )ONON 962 FORI=1TO200:NEXT 964 GETX$:IFX$THEN990 970 GOTO950 990 PRINT:PRINT:!CLEAR:RETURN 1000 DATA58,44,22,36,34,48,23,38,21,84,19,34,17,42,104,,124,96,17,34,19,100,72 1001 DATA70,57,58,,18,116,22,50,17,32,23,38,42,17,16,23,38,90,,26,21,84,19,34 1002 DATA17,88,23,38,90,,50,19,84,21,54,18,112,90,,66,78,116,66,40,47,38,57,58, 1003 DATA66,78,116,72,34,57,26,,74,28,23,38,21,84,19,34,17,48,38,57,26,,116,64 1004 DATA66,68,112,42,,26,34,22,116,22,34,57,72,,42,34,22,100,21,22,23,105,,116 1005 DATA72,49,61,67,41,88,,116,66,41,88,,124,112,35,33,116,41,88,,124,112,67 1006 DATA52,112,42,,26,21,84,19,34,17,80,23,38,90,,196,48,50,17,32,23,54,106, 1007 DATA26,21,84,19,18,33,64,23,38,76,27,35,42,120,,50,19,36,21,54,18,51,78 1008 DATA112,106,,74,28,23,38,21,36,19,34,19,20,21,38,23,105,,66,38,116,73,56, 1009 DATA100,19,34,17,96,42,,84,35,33,80,42,,116,33,35,112,42,,20,67,36,78,32 1010 DATA65,16,42,,20,35,68,64,33,16,42,,66,20,69,36,66,42,120,,58,38,116,34,58 1011 DATA120,,76,66,42,72,,26,34,116,38,90,120,,42,35,78,33,116,73,56,,76,33,76 1012 DATA39,66,42,72,,106,,42,68,44,20,73,56,,26,36,42,32,58,,26,116,42,112,26 1013 DATA44,70,60,66,42,88,,42,116,46,40,19,34,17,16,23,38,23,17,34,19,42,40, 1014 DATA74,28,20,69,20,58,32,27,38,30,56,32,27,38,40,106,,26,21,20,19,18,36,35 1015 DATA40,37,22,23,32,17,18,17,16,23,22,90,,42,20,21,90,40,,58,21,84,19,58 1016 DATA120,,26,19,84,21,90,120,,76,66,40,30,21,36,21,72,19,36,19,58,104,,76 1017 DATA66,47,68,74,104,,92,42,20,21,90,120,,76,66,42,72,,92,42,20,74,104,,28 1018 DATA74,20,69,20,106,120,,74,28,23,38,21,84,19,34,17,80,69,106,88,,42,116 1019 DATA18,38,104,17,74,,28,17,34,19,36,21,38,21,36,66,42,120,,28,17,34,19,20 1020 DATA21,22,18,19,36,21,38,23,105,,74,116,32,70,16,65,42,,74,70,52,50,19,36 1021 DATA21,38,23,105,,58,38,21,84,19,34,17,32,23,54,57,58,,66,36,37,52,74,120, 1022 DATA26,34,19,20,21,38,21,36,19,34,17,32,23,38,23,16,24,106,,26,34,19,84,21 1023 DATA38,23,42,41,54,23,32,17,90,,42,44,20,44,20,73,40,,42,44,20,44,20,21,89 1024 DATA40,,74,28,22,53,51,18,42,120,,60,66,44,70,89,26,,28,18,51,53,22,24,105 1025 DATA,28,17,34,19,20,21,38,20,44,20,105,40,,24,17,46,19,36,21,42,23,24,46 1026 DATA66,46,,40,51,53,55,49,44,,41,68,70,64,66,45,,40,53,98,55,44,,41,70,67 1027 DATA70,65,45,,40,18,19,36,21,38,23,32,17,18,44, 2000 FORK=1TOLEN(A$) 2002 C=ASC(MID$(A$,K)):N=0:U=!HEADING:!TURNL90:H=!HEADING 2004 A=C%(CAND63,N):IFA=0THEN2020 2006 !PEN0:IF(AAND8)=0THEN:!PEN1 2008 Q=TA*INT(A/16):IFAAND1THENQ=Q*SQR(2) 2010 !ANGLEH:!TURNR45*(AAND7):!WALKQ+.5 2012 N=N+1:GOTO2004 2020 !ANGLEU:!PEN0:!WALKAB*TA:!TURNRSA:NEXT:RETURN 3000 OPEN4,4 3010 PRINT#4:PRINT#4," **** VEKTOR-ZEICHENSATZ **** 3011 [152]4:[152]4,"ZEICH. NR. CODE LAENGE PEN RICHT.":[152]4 3012 [129]I[178]32[164]95:[141]3020:[130] 3016 [137]3040 3020 [152]4," "[199](34)[199](I)[199](34);:C[178]I[175]63:N[178]0 3022 A[178]C%(C,N):N[178]N[170]1:[139]A[178]0[167][152]4:[142] 3024 [152]4,[201](" "[170][196](N),5)" "; 3026 [129]D[178]7[164]0[169][171]1:N$[178]"0":[139]A[175]2[174]D[167]N$[178]"1 3028 PRINT#4,N$;:NEXT 3030 PRINT#4,RIGHT$(" "+STR$(INT(A/16)),5); 3032 P$=" AN":IFAAND8THENP$=" AUS" 3034 PRINT#4,P$RIGHT$(" "+STR$(AAND7),5) 3036 PRINT#4," ";:GOTO3022 3040 PRINT#4:PRINT#4,"VERZEICHNIS DER RICHTUNGEN: 3042 [152]4:[152]4," 0 - OBEN 3044 PRINT#4," 1 - OBEN RECHTS 3046 [152]4," 2 - RECHTS 3048 PRINT#4," 3 - UNTEN RECHTS 3050 [152]4," 4 - UNTEN 3052 PRINT#4," 5 - UNTEN LINKS 3054 [152]4," 6 - LINKS 3056 PRINT#4," 7 - OBEN LINKS 3058 [152]4:[152]4,"BEI DEN SCHRAEGEN RICHTUNGEN MUSS DIE 3060 PRINT#4,"ANGEGEBENE LAENGE MIT DEM WERT SQR (2) 3062 [152]4,"MULTIPLIZIERT WERDEN (DIAGONAL-LAENGE) 3064 PRINT#4:PRINT#4:CLOSE4:END