Lonseer Rätselkreis - BASCOM
Allgemeines:
Dieser Mysterie ist Teil der Serie "Lonseer Rätselkreis" zu der insgesamt 8 Mysteries + BONUS-Dose gehören werden. Nach und nach werden alle Listing im Rätselkreis gepublished und dann gibt es auch den BONUS dazu. Bitte notiert Euch aber bereits jetzt schon die im Logbuch enthaltenen Ziffer für den Bonus.
Zum Lonseer Rätselkreis gehören die folgenden Mysterie-Caches:
GC5V87V - Lonseer Rätselkreis - BASCOM
GC5VKNW - Lonseer Rätselkreis - Zeit Der Elfen
GC5VKPW - Lonseer Rätselkreis - Hubble Heritage
GC5VKQ4 - Lonseer Rätselkreis - ATmega
GC5VKQE - Lonseer Rätselkreis - Celestia
GC5VKQN - Lonseer Rätselkreis - Schrei nach Musik
GC5VKQT - Lonseer Rätselkreis - Höhlen des Lonetals
GC5VKR3 - Lonseer Rätselkreis - The Beauty of Fractals
GC5VKMB - Lonseer Rätselkreis - BONUS
Und los....
Das Rätsel:
' ============================================================================
' BASCOM - eine kleine Einführung (C) DrMaFu 2015
' ============================================================================
$regfile = "m8def.dat"
$crystal = 8000000
$baud = 19200
$sim
Const Data1_length = 24
Const Data2_length = 25
Const Data3_length = 8
Dim Temp_word As Word
Dim Temp_byte As Byte
Dim Temp_long As Long
Dim Temp_single As Single
Dim Index As Byte
Print "Hallo lieber Cacher. Dies ist ein kleines BASCOM-Programm mit dessen"
Print "Hilfe Du in der Lage sein solltest die finalen Koordinaten für den"
Print "Cache 'BASCOM - eine kleine Einführung' zu ermitteln."
' Hinweis:
' Zur Lösung dieses Mysteries ist es nicht zwangsweise notwendig die
' Entwicklungsumgebung von BASCOM zu installieren. Wenn man sich ein klein
' wenig mit der Programmiersprache auseinandersetzt sollte die Lösung auch
' mit Stift und Papier möglich sein.....
' Parkmöglichkeiten:
' Von der finalen Koordinate die Ihr ermittelt habt ca. 100 Meter in westliche
' Richtung befinden sich Parkmöglichkeiten für Euer Cache-Mobil
Waitms 1000
Print ""
Print "Und los...."
Print ""
Restore Data1
For Index = 1 To Data1_length Step 1
Read Temp_word
Temp_byte = Temp_word / 2
Print Chr(temp_byte);
Next Index
Print ""
Restore Data2
For Index = 1 To Data2_length Step 1
Read Temp_byte
Temp_byte = Not Temp_byte
Print Chr(temp_byte);
Next Index
Print ""
Restore Data3
For Index = 1 To Data3_length Step 1
Read Temp_long
Temp_long = Temp_long - 666
Temp_single = Temp_long / 10000
Temp_single = Temp_single + 10
Temp_single = Temp_single * 2
If Index = 1 OR Index = 2 OR Index = 4 OR Index = 5 OR Index = 6 OR Index = 7 Then
Temp_byte = Temp_single
If Index = 1 OR Index = 4 Then
Print Chr(temp_byte);
Else
Print Temp_byte ;
End If
If Index = 2 OR Index = 7 Then Print " ";
Else
Print Fusing(temp_single , "##.###") ; " ";
End If
Next Index
Print ""
End
' ============================================================================
Data1:
Data &H0090% , &H00CA% , &H00E4% , &H00F4% , &H00D8% , &H00D2% , &H00C6% , &H00D0%
Data &H00CA% , &H00DC% , &H0040% , &H008E% , &H00D8% , &H00EA% , &H00CA% , &H00C6%
Data &H00D6% , &H00EE% , &H00EA% , &H00DC% , &H00E6% , &H00C6% , &H00D0% , &H0042%
Data2:
Data &B10111011 , &B10001010 , &B11011111 , &B10011001
Data &B10010110 , &B10010001 , &B10011011 , &B10011010
Data &B10001100 , &B10001011 , &B11011111 , &B10011011
Data &B10011010 , &B10010001 , &B11011111 , &B10111100
Data &B10011110 , &B10011100 , &B10010111 , &B10011010
Data &B11011111 , &B10011101 , &B10011010 , &B10010110
Data &B11000101 , &B00000000 , &B00000000 , &B00000000
Data3:
Data 290666& , 140666& , 63271& , 245666& , -99334& , -99334& , -54334& , 177941&
' ============================================================================
Die Lösung:
Deine Lösung für die Koordinaten dieses Rätsels kannst du auf geochecker.com überprüfen. GeoChecker.com.
Der Cache:
Bitte halte Dich an das Durchfahrtsverbot auf den Feldwegen rund um Lonsee und parke Dein Cachemobil an geeigneten Stellen.