Profile cover photo
Profile photo
George Karras
51 followers -
Η δύναμή σου πέλαγο κι η θέλησή μου βράχος
Η δύναμή σου πέλαγο κι η θέλησή μου βράχος

51 followers
About
Posts

Post has attachment
New Logo
A new logo for M2000, as polygons. Form 80, 50 Cursor 0,0 Gradient 11,0 drawframeM() drawframe2() drawframe0() drawframe0() drawframe0() cls ,
4 Sub drawframeM()        local i , n =0        Move !        Pen 0 {              Step 100, 100              For ...
Add a comment...

Post has attachment
PPM image file and bunary files (Revision 19, Version 9.4 of M2000 Interpreter)
New Revision Fix Eval$(BufferObject) to return odd byte length strings. Normally strings are even byte  length, but M2000 can use strings to write Ansi strings too, so a 5 letter Ansi string has 5 bytes, and Len(a$) return 2.5 (return length as 2 bytes per ...
Add a comment...

Post has attachment
211 Tasks in RossetaCode.org
Current list of M2000 Tasks, in rossetacode.org 2 2048 A A+B ABC Problem Abstract type Accumulator factory Ackermann function Add a variable to a class instance at runtime Anonymous recursion Apply a callback to an array Arithmetic evaluation Arithmetic-geo...
Add a comment...

Post has attachment
Revision 15 Version 9.4
From 9.4 version M2000 have Enumerations. An enumeration is a list of variables which are of same type, the name of enumeration. We can use any numeric type for value, and we can set one or more to desired value. Variables of enumeration list are read only,...
Add a comment...

Post has attachment
Αναθεώρηση 14 Έκδοση 9.4
Διορθώθηκε ένα λάθος στην σχεδίαση της let (ή Στη) το οποίο σε ορισμένες περιπτώσεις δημιουργούσε νέες μεταβλητές και έτσι δεν άλλαζε τιμές εκεί που θέλαμε. Παράλληλα ο κώδικας καθαρίστηκε (ένα μέρος του χρησιμοποιούταν και από άλλη εντολή και είχε επιπλέον...
Add a comment...

Post has attachment
Αναθεώρηση 13, Έκδοση 9.4
Επιτέλους σε αυτήν την αναθεώρηση βρήκα τρόπο να παίρνω τον "απαριθμητή" ενός αντικειμένου που φορτώνουμε στη γλώσσα, όπως θα δούμε στα παραδείγματα παρακάτω. Επίσης προστέθηκε και το αντικείμενο Collection της Vb6. Το αντικείμενο Inventory έχει φτιαχτεί γι...
Add a comment...

Post has attachment
Game 2048
First publish in Rosettacode.org Module Game2048 {       \\
10% 4 and 90% 2        Def GetTlleNumber() = If(Random( 10 ) <2 -> 4,
2 )       \\
tile        Def Tile$(x) = If$( x =0 -> "[    ]" , format$( "[{0::-4}]" , x ))       \\
empty board        BoardTi...
Add a comment...

Post has attachment
Αναθεώρηση 12 Έκδοση 9.4
Με την χρήση του διερμηνευτή στα νέα Ubuntu (18.04) και με χρήση του WINE 3.6,  είδα ότι χρειάζονταν μερικές διορθώσεις, και έτσι έγιναν! Γενικά είναι δύσκολο να πρέπει ένα πρόγραμμα όπως το περιβάλλον Μ2000, να τρέχει σε διαφορετικά λειτουργικά. Τρέχει σε ...
Add a comment...

Post has attachment
revision 11 (version 9.4)
Revision 10 work better in Wine 3+, when we use test statement to test a module. I found that without a sleep statement (in VB6 code) wine (in Ubuntu 18.04) hold thread active with very less time than usual to OS (but in Windows, there is a pass to system f...
Add a comment...

Post has attachment
Αναθεώρηση 7 Έκδοση 9.4
1.Διορθώθηκε ένα Bug στις λάμδα συναρτήσεις σε σχέση με κλείσιμο δείκτη σε ομάδα. Στο πρόγραμμα που ακολουθεί η next_fact  έχει την fix ως δείκτης σε ομάδα. Αυτή η ομάδα έχει  μια λάμδα την f. Αρχικά αυτή η f  δίνει το 1. Αφού φτιάξουμε την next_fact, πάμε ...
Add a comment...
Wait while more posts are being loaded