Browse code

Dateienname Korrektur

Lorenz Glaser authored onWed/Sep/2020 16:0:th
Showing2 changed files
1 1
deleted file mode 100644
... ...
@@ -1,23 +0,0 @@
1
-#!/boot/home/config/settings/yab
2
-import ReversePattern //import der Sub
3
-
4
-pattern_string$="127188186150230000051001" //pattern String
5
-
6
-dim pattern_array$(8,8) // definiere ausgabe array fuer das Pattern
7
-reverse_pattern(pattern_string$,pattern_array$()) //aufrufen der externen Sub, ├╝bergeben des PatternString und des Ausgabe Arrays
8
-
9
-//Kontrolle, ob umwandlung funktioniert hat
10
-for z=1 to 8
11
-	for y= 1 to 8			
12
-		print z,y,pattern_array$(z,y)
13
-		//mache aus dem Array ein String
14
-		teilstring$=teilstring$+pattern_array$(z,y)		
15
-		if (y=8) then
16
-			print teilstring$+"\n"
17
-			x=dec(teilstring$,2)
18
-			print x
19
-		teilstring$=""
20
-		endif	
21
-	next y
22
-next z
23
-
24 0
new file mode 100644
... ...
@@ -0,0 +1,23 @@
1
+#!/boot/home/config/settings/yab
2
+import ReversePattern //import der Sub
3
+
4
+pattern_string$="127188186150230000051001" //pattern String
5
+
6
+dim pattern_array$(8,8) // definiere ausgabe array fuer das Pattern
7
+reverse_pattern(pattern_string$,pattern_array$()) //aufrufen der externen Sub, ├╝bergeben des PatternString und des Ausgabe Arrays
8
+
9
+//Kontrolle, ob umwandlung funktioniert hat
10
+for z=1 to 8
11
+	for y= 1 to 8			
12
+		print z,y,pattern_array$(z,y)
13
+		//mache aus dem Array ein String
14
+		teilstring$=teilstring$+pattern_array$(z,y)		
15
+		if (y=8) then
16
+			print teilstring$+"\n"
17
+			x=dec(teilstring$,2)
18
+			print x
19
+		teilstring$=""
20
+		endif	
21
+	next y
22
+next z
23
+