Hobby Basic, ένας μικρός διερμηνευτής για την κονσόλα των Windows

[Always Somewhere]

Καθυστέρησα λιγάκι την αντικατάσταση της προηγούμενης έκδοσης Αυτή η επιλογή έγινε λόγω της ραγδαίας αύξησης των downloads της v2.3.3, ώστε να διατηρηθεί η θετική ορμή της κοινότητας.

Δεν ξέρεις πόσο χαίρομαι για αυτό!!

Πρόσφατα είχα βγει με ένα γνωστό μου και την γυναίκα του και είχαν φέρει μαζί και τον γιό τους, που θα πάει σε κάποιο δημόσιο ΙΕΚ (αυτά της ΔΥΠΑ) για προγραμματιστής και απο ότι μου είπε ότι θέλει (Ε, το άλλο ) να μάθει και δημιουργήσει παιχνίδια και του ανέφερα και για την Hobby Basic να την δοκιμάσει και να την προτείνει και στους καθηγητές, μιας και είναι μια καλή αρχή να ξεκινήσει κάποιος για να μάθει κάποιος προγραμματισμό.

Μου είπε ότι θα δοκιμάσει την HB και θα την παρουσιάσει και στους καθηγητές του απο τον Σεπτέμβρη.

Οπότε αν δεις να σου γράφει απορίες στο site σου κάποιος Έλληνας πιτσιρικάς 17-18 χρονών είναι σίγουρα ο γιος του φίλου μου. Τώρα αν δεις πολλά πιτσιρίκια της ίδιας ηλικίας να σου γράφουν τότε μάλλον θα είναι και συμμαθητές του απο το ΙΕΚ που πηγαίνει στον Κορυδαλλό.

 

[Blue Max]

Ευχαριστώ για την προώθηση ♥

Εύχομαι ολόψυχα καλή επιτυχία στον νεαρό προγραμματιστή.

Με εκπλήσσει θετικά η ραγδαία αύξηση των downloads (πλησιάζουμε τα 7000 από έναν μόνο σύνδεσμο) και με ενθαρρύνει να συνεχίσω την ανάπτυξη του διερμηνευτή.

Πιστεύω πως ορισμένοι παράγοντες έχουν παίξει ρόλο σε αυτή την επιτυχία. Σίγουρα η ιστοσελίδα Get Started και το πρόσφατο βίντεο που ανέβασα έχουν βοηθήσει, αλλά νομίζω ότι το πιο σημαντικό είναι τα πολυάριθμα παραδείγματα (κυρίως τα παιχνίδια με πλήρη source code). Το γεγονός ότι η Hobby επιτρέπει τη δημιουργία παιχνιδιών με ANSI γραφικά στην κονσόλα των Windows, που δεν συναντάς εύκολα αλλού, είναι κάτι που ξεχωρίζει.

Η πρόσφατη προσθήκη της βιβλιοθήκης FPU string math προσφέρει νέες, ακόμη πιο εξελιγμένες δυνατότητες στον διερμηνευτή.

Αν σκεφτεί κανείς την δυσκολία που μπορεί να αντιμετωπίσει κάποιος στις τελευταίες εκδόσεις των Windows όπου το σύστημα κάνει τα πάντα για να αποτρέψει τη λήψη (λέγε με Chrome) και εκτέλεση του αρχείου θεωρώντας το ύποπτο, τότε πραγματικά, ο αριθμός αυτός αποτελεί μια ακόμα μεγαλύτερη επιτυχία.

Εξίσου σημαντική είναι η συνεχιζόμενη υποστήριξη και φιλοξενία στο Retromaniax, η οποία επιτρέπει στους χρήστες από τον Ελλαδικό χώρο να γνωρίσουν την Hobby BASIC.

 

[Blue Max]

Άντε και σε λίγο θα βγαίνουν demos γραμμένα στην ΗΒ...

Σκέφτηκα να δοκιμάσω ένα wave text εφέ, σαν αυτά που βλέπαμε στα παλιά C64 / Amiga demos.

Δεν ήμουν σίγουρος αν κάτι τέτοιο θα μπορούσε να υλοποιηθεί στο παράθυρο της κονσόλας, ίσως να είναι υπερβολικό (ακόμα και για την Hobby BASIC). Παρόλα αυτά, είπα να το τολμήσω.

Για αρχή, χρειαζόμουν μια μεγάλη γραμματοσειρά (big font).

Σκέφτηκα να χρησιμοποιήσω κάποια από το 16colo.rs αλλά θυμήθηκα ότι έχω ήδη αποθηκευμένη σε αρχείο μια διάταξη __font$[128, 5] που περιέχει ολόκληρο το σετ χαρακτήρων από ASCII 32 έως 127, σε μορφή pixel-map.

    ! ASCII 65 (A)
    __font$[65,0] = " ███ "
    __font$[65,1] = "█   █"
    __font$[65,2] = "█████"
    __font$[65,3] = "█   █"
    __font$[65,4] = "█   █"

    ! ASCII 66 (B)
    __font$[66,0] = "████ "
    __font$[66,1] = "█   █"
    __font$[66,2] = "████ "
    __font$[66,3] = "█   █"
    __font$[66,4] = "████ "

    ! ASCII 67 (C)
    __font$[67,0] = " ████"
    __font$[67,1] = "█    "
    __font$[67,2] = "█    "
    __font$[67,3] = "█    "
    __font$[67,4] = " ████"

Έγραψα τον παρακάτω κώδικα για να μετατρέψω το αρχείο σε άλλη μορφή που να μπορώ να τη χρησιμοποιήσω στο εφέ.

dim flatFont$[96]

for ascii = 32 to 127
    index = ascii - 32
    flat$ = ""

    for row = 0 to 4
        line$ = __font$[ascii, row]
        for col = 1 to LEN(line$)
            pixel$ = MID(line$, col, 1)
            if pixel$ = "█"
                flat$ = flat$ + "1"
            else
                flat$ = flat$ + "0"
            endif
        next
    next

    flatFont$[index] = flat$
next

for i = 0 to 95
    ascii = i + 32
    DEBUG(CHR(34) + flatFont$[i] + CHR(34) + ",\  ! " + STR(ascii) + ": " + CHR(ascii))
next

Η νέα μονοδιάστατη __font$[] διάταξη έχει την μορφή:

---

Επόμενο βήμα η δημιουργία μια απλής big_text(x, y, string) ρουτίνας γενικής χρήσης, στην Hobby BASIC.

• Η ρουτίνα εμφανίζει κείμενο στην οθόνη χρησιμοποιώντας γραμματοσειρά 5x5 pixel.
• Μπορείς να ορίσεις πού θα ξεκινήσει να τυπώνει (x, y) και να δώσεις το μήνυμα σαν συμβολοσειρά.
• Υποστηρίζει μόνο ASCII χαρακτήρες από το 32 έως το 127 (π.χ. γράμματα, αριθμούς, σύμβολα).
• Ό,τι δεν υποστηρίζεται, εμφανίζεται σαν κενό.
• Κάθε χαρακτήρας καταλαμβάνει 6 οριζόντια pixels (5 για το γράμμα και 1 για κενό).
• Η ρουτίνα αγνοεί αυτόματα ό,τι σχέδιο βγει έξω από την οθόνη.
• Ο πλήρης κώδικας της ρουτίνας.

sub big_text(startX, startY, message$)
    local charIndex, verticalRow, horizontalCol
    local asciiCode, screenX, screenY
    local screenWidth, screenHeight
    local charData$
    local baseX, pixelOffset, c$

    screen -1, -1
    screenWidth = V0
    screenHeight = V1

    for charIndex = 1 to LEN(message$)
        asciiCode = ASC(MID(message$, charIndex, 1))
        if asciiCode < 32 or asciiCode > 127 then asciiCode = 32

        charData$ = __font$[asciiCode - 32]
        baseX = startX + (charIndex - 1) * 6

        for verticalRow = 0 to 4
            screenY = startY + verticalRow
            if screenY < 0 or screenY >= screenHeight then pass

            pixelOffset = verticalRow * 5

            for horizontalCol = 0 to 4
                screenX = baseX + horizontalCol
                if screenX < 0 or screenX >= screenWidth then pass

                c$ = MID(charData$, pixelOffset + horizontalCol + 1, 1)
                if c$ = "1"
                    print at screenX, screenY, "█"
                else
                    print at screenX, screenY, " "
                endif
            next
        next
    next
ends

---

Δοκιμή της ρουτίνας στο παράθυρο της κονσόλας των Windows 11.

    %include "EXAMPLES\MISC\BIGTEXT.BAS"

    message$ = "RETROWAVE"

    view 7
    screen 80, 40, 0
    cursor 0
    color 0, 0
    cls

    pen 9
    big_text(2, 4, message$)

    for i = 0 to LEN(message$) - 1
        pen RND(6) + 9
        big_text(i * 6 + 10, 12, message$(i))
    next

    inkey
    view 11
    color 0, 7 : cls
    end

---

Retro Wave Animation (FPU) in Hobby BASIC.

• Το RETROWAVE.BAS είναι ένα demo κύματος σε στυλ retro, γραμμένο σε Hobby BASIC.
• Δημιουργεί ένα τρένο από μπλοκ ή χαρακτήρες ASCII που κινούνται ομαλά από δεξιά προς τα αριστερά.
• Η κίνηση ακολουθεί ημιτονοειδή καμπύλη, όπως στα κλασικά εφέ C64 / Amiga demo.
• Το εφέ είναι έγχρωμο και κάθε χαρακτήρας ή μπλοκ έχει δικό του χρώμα.
• Η μεταβλητή ENABLE_MESSAGE ενεργοποιεί εμφάνιση μηνύματος αντί για μπλοκ.
• Οι χαρακτήρες σχεδιάζονται με τη βοηθητική ρουτίνα big_text() σε 5x5 pixel font.
• Κάθε sprite αποθηκεύεται προσωρινά με bsave για γρήγορη επανεμφάνιση.
• Η κίνηση υπολογίζεται με πίνακα τιμών wave_offsets[] βασισμένο στο FSIN.
• Η αλυσίδα επανεκκινεί όταν εξέλθει από την αριστερή πλευρά της οθόνης.
• Όλα τα γραφικά εμφανίζονται στην κονσόλα, χωρίς εξωτερικά assets ή βιβλιοθήκες.
• Ο πλήρης κώδικας του προγράμματος.

Windows 11 Console Screenshots.




Have fun with Hobby BASIC.

 

[Always Somewhere]

Άρα μπορεί κάποιος να παίξει λίγο φτιάχνοντας τέτοια μικρά intros & demακια!!! Σκέτη γλύκα είναι αυτά τα χρωματιστά γράμματα.

Μπορεί να συνδυαστεί και με ήχο; Με το κλασικό "μπιμ" του pc speaker. Να κάτι σαν αυτό ή αυτό.. ( τι ωραία που τα λεω ε.. )

Όλα μπορεί να τα κάνει η Hobby Basic!!

 

[Blue Max]

Ναι, σίγουρα μπορούν να γίνουν μικρά console demos στην Hobby.
Αν τύχει να το δεις ζωντανά, θα διαπιστώσεις ότι τρέχει αρκετά ομαλά (για τα δεδομένα της κονσόλας).
Βέβαια, μπορεί να συνδυαστεί με ήχο. Η Hobby υποστηρίζει .wav για ηχητικά εφέ από τις πρώτες εκδόσεις και .mp3 για μουσική.
Ωστόσο, οι beep προγραμματιζόμενες μελωδίες θα χρειάζονταν ξεχωριστό module και πιθανότατα αρκετή δουλειά στον assembler.

 

[Blue Max]

Προσπαθώ σε κάθε νέο πρόγραμμα σε Hobby BASIC να δοκιμάζω κάτι διαφορετικό, να πιέζω τον διερμηνευτή στα όριά του, από απλή περιέργεια για το τι μπορεί πραγματικά να κάνει. Κι όμως, υπάρχουν στιγμές που αυτή η μικρή έκδοση της BASIC συνεχίζει να με εκπλήσσει ευχάριστα. Με κάνει να αναθεωρώ όσα θεωρούσα δεδομένα και, ταυτόχρονα, να ανεβάζω τον πήχη στους στόχους μου.

Σκέφτηκα να υλοποιήσω ένα Boulder Dash-like παιχνίδι στην κονσόλα των Windows 11, χρησιμοποιώντας ANSI γραφικά. Το παιχνίδι θα τρέχει σε grid: θα υπάρχουν βράχοι με βαρύτητα και λογική πλάγιου slide, διαμάντια που μαζεύει ο παίκτης, και όταν συγκεντρώσει τον απαιτούμενο αριθμό, θα ανοίγει μια κρυφή έξοδος. Παράλληλα, ένας αντίπαλος θα περιπολεί στον χάρτη.

Μα γίνεται κάτι τέτοιο στη γραμμή εντολών των Windows; Και μπορεί η Hobby BASIC να το φέρει εις πέρας;

Η συγγραφή του κώδικα κράτησε 3 μέρες, αλλά μετά χρειάστηκα περίπου μια ακόμα εβδομάδα για να τον φέρω εκεί που ήθελα. Έγραφα και ξαναέγραφα τις ρουτίνες, δοκίμαζα, μετρούσα, προσπαθώντας να βρω τον καλύτερο δυνατό συνδυασμό σε κίνηση και ταχύτητα. Και μην ξεχνάτε, όλα αυτά μέσα στο παράθυρο της κονσόλας. Το τελικό αποτέλεσμα με ικανοποιεί πολύ, είναι από τις στιγμές που νιώθω πως έβγαλα κάτι καλό στον διερμηνευτή.

ANSI Boulder Dash-style παιχνίδι στην κονσόλα (v1.0)​

Πλατφόρμα: Windows 10/11
Γλώσσα: Hobby BASIC
Source: BDASH.BAS

➤ Στόχος του παιχνιδιού:​

➤ Μαζεύεις όλα τα διαμάντια για να εμφανιστεί η έξοδος
➤ Η πόρτα εμφανίζεται τυχαία σε διαφορετικό τεταρτημόριο από εκεί που είναι ο παίκτης.
➤ Πρέπει να φτάσεις στην πόρτα πριν τελειώσει ο χρόνος.
➤ Ό,τι χρόνος περισσέψει, μετατρέπεται σε bonus έξτρα χρόνο για την επόμενη πίστα.

➤ Μηχανισμοί παιχνιδιού:​

➤ Βράχοι και διαμάντια πέφτουν και γλιστρούν ρεαλιστικά.
➤ Αν σε πλακώσει κάτι, πεθαίνεις αμέσως.
➤ Ο παίκτης έχει animation και ήχο όταν πεθαίνει.
➤ Η πόρτα εμφανίζεται δυναμικά μόλις μαζευτούν όλα τα διαμάντια.
➤ Ο χάρτης χωρίζεται σε 4 περιοχές (A, B, C, D) και λειτουργεί ανάλογα με το πού βρίσκεται ο παίκτης.
➤ Τα γραφικά είναι tile-based μέσω της draw_tile().
➤ Υποστηρίζονται ήχοι (.wav) για βήματα, συλλογή διαμαντιού, θάνατο και άνοιγμα πόρτας.

➤ Συμβατότητα:​

➤ Τρέχει κανονικά σε Windows 10/11 χωρίς να χρειάζεται "Use legacy console"
➤ Πλήρης υποστήριξη για χρώματα, tiles και ήχο στη μοντέρνα κονσόλα.

➤ Windows 11 Console screenshots.​

Have fun with Hobby BASIC.

 

[Always Somewhere]

Με τόσα love likes θα με παρεξηγήσουν/παρεξηγήσεις φίλε @Blue Max αλλά η αλήθεια είναι ότι κάθε φορά που φτιάχνεις κάτι στη Hobby Basic εντυπωσιάζομαι παρά πολύ και κυρίως με τα παιχνίδια.

 

[xqtr]

Ασε την hobby basic και γινε ansi artist, το χεις

 

[Blue Max]

Με τόσα love likes θα με παρεξηγήσουν/παρεξηγήσεις φίλε @Blue Max αλλά η αλήθεια είναι ότι κάθε φορά που φτιάχνεις κάτι στη Hobby Basic εντυπωσιάζομαι παρά πολύ και κυρίως με τα παιχνίδια.

Ευχαριστώ φίλε Βαγγέλη, ευχαριστώ και όλα τα παιδιά που μπαίνουν, διαβάζουν, σχολιάζουν και πατάνε like. Αν τα likes σου ήταν power-ups, θα ‘χα γίνει ήδη invincible!

Ασε την hobby basic και γινε ansi artist, το χεις

Ναι, ναι! Παραδέχομαι πως το τελευταίο διάστημα έχω βελτιωθεί. Δουλεύω με μοτίβα, έχω μια καλή βάση από ANSI γραφικά από τα προηγούμενα παιχνίδια και “δανείζομαι” ιδέες από άλλα projects που χρησιμοποιούν 16 χρώματα.

 

[Blue Max]

Τον Αύγουστο βρήκα τον χρόνο που χρειαζόμουν και υλοποίησα κάτι που είχα στο μυαλό μου εδώ και καιρό.

Ανέβηκε η έκδοση 2.3.5 της Hobby BASIC και φέρνει κάτι πολύ δυνατό:
πρόσβαση στο Win32 API απευθείας μέσα από τη Hobby BASIC.

Με τη νέα εντολή SYSCALL, μπορούμε να καλέσουμε συναρτήσεις από DLLs των Windows.
Αυτή η δυνατότητα ανοίγει έναν ολόκληρο νέο κόσμο δυνατοτήτων για όλους τους χομπίστες προγραμματιστές της Hobby BASIC.
Τώρα μπορούμε να έχουμε πρόσβαση σε εκατοντάδες κλήσεις του λειτουργικού των Windows απευθείας μέσα από τον BASIC κώδικά μας.

Η σύνταξη είναι απλή:

syscall "dllname", "functionname", [arguments...]

• dllname: το όνομα της DLL, π.χ. "user32.dll".
• functionname: το όνομα της συνάρτησης, π.χ. "MessageBoxW".
• arguments: ακέραιοι, συμβολοσειρές, ή πίνακες (by value ή byref).

Notes and Limitations

- Wide-character (W) API calls only.
- All integers are passed as 32-bit values (DWORD or handles).
- Structures are supported only if fields are DWORD or pointers.
- Simulate structures with DIM arrays and pass using BYREF.
- For smaller fields (e.g., WORD), extract using shifts and masks.

Παραδείγματα
Λίγα απλά παραδείγματα χρήσης της εντολής.

! simple message box
syscall "user32.dll", "MessageBoxW", 0, "Hello from BASIC!", "Title", 0

! get current user name
x = 256
syscall "advapi32.dll","GetUserNameW", byref a$, byref x
print "User Name: ", a$

! launch calculator
syscall "shell32.dll", "ShellExecuteW", 0, "open", "calc.exe", 0, 0, 1

! RECT structure (4 DWORDs: left, top, right, bottom)
dim rect[4].ZERO
syscall "kernel32.dll","GetConsoleWindow"
hwnd = V0
syscall "user32.dll","GetWindowRect", hwnd, byref rect[]
width = rect[2] - rect[0]
height = rect[3] - rect[1]
print "Width:", width, " Height:", height

Στη νέα έκδοση θα βρείτε έναν νέο φάκελο γεμάτο παραδείγματα Win32 API και SYSCALL

WINGEO.BAS – Demonstrates window geometry retrieval and aspect ratio calculation using Win32 API.
LOADBMP.BAS – Loads and draws a 24-bit BMP image onto the console window using GDI.
CURSORPOS.BAS – Tracks and displays the current mouse cursor position.
GDILINES.BAS – Continuously draws random colorful lines on the console window using GDI.
SHAPES.BAS – Draws random geometric shapes using Windows GDI functions.
STARFIELD.BAS – Simulates a starfield animation using Win32 API rendering.
MOUSECOLOR.BAS – Reads and displays the color value under the mouse cursor.
QPC.BAS – Prints the high-resolution performance counter value with manual 64-bit division.
RADAR.BAS – Implements a rotating radar sweep with dynamic color changes.
FILESYSTEM.BAS – Demonstrates basic file operations using Win32 API calls.
GETTIME.BAS – Retrieves and prints the current system time using GetLocalTime.


Το παράδειγμα RADAR.BAS δημιουργεί μια περιστρεφόμενη γραμμή τύπου ραντάρ στην κονσόλα.

Αυτό το παράδειγμα δείχνει πώς μπορούμε να χρησιμοποιήσουμε Hobby BASIC, Win32 GDI κλήσεις μέσω SYSCALL και υπολογισμούς κινητής υποδιαστολής (FPU) για να σχεδιάσουμε ένα απλό animation σε παράθυρο κονσόλας. Δείχνει την συνεργασία της Hobby BASIC με το Win32 API μέσω SYSCALL. Χρησιμοποιεί FPU συναρτήσεις για τριγωνομετρικούς υπολογισμούς, χωρίς βιβλιοθήκες C.

    !  RADAR.BAS
    !  Hobby BASIC Interpreter
    !  Part of the Hobby BASIC examples collection.

    !   This program draws a continuously rotating radar sweep line in the console window.
    !   The line rotates around the center of the window with a slightly smaller radius
    !   to avoid touching the edges. Each full rotation, a new random color is selected.
    !   Floating-point arithmetic (FPU) is used to compute sine, cosine, and rotation steps.

    title "Implements a rotating radar sweep with dynamic color changes"

    view 11
    screen 80, 30, 0
    cursor 0
    color 0, 7
    cls

    ! Get console device context
    syscall "Kernel32.dll", "GetConsoleWindow"
    hwnd = V0
    syscall "User32.dll", "GetDC", hwnd
    hdc = V0

    ! Get window dimensions
    dim rect[4].ZERO
    syscall "User32.dll", "GetWindowRect", hwnd, byref rect[]
    width = rect[2] - rect[0]
    height = rect[3] - rect[1]

    !  Center coordinates and radius
    cx$ = FROUND(FDIV(width, 2), "NEAREST")        ! X center
    cy$ = FROUND(FDIV(height, 2), "NEAREST")       ! Y center
    radius$ = FROUND(FMUL(FDIV(height, 2), "0.8"),"INT")  ! slightly smaller radius

    angle$ = "0.0"       ! current rotation angle in radians
    delta$ = "0.1"       ! rotation increment per frame
    col = 0xFFFFFF       ! initial pen color (white)

    do
        ! Pick new random color after full rotation
        if FCOMP(angle$, "6.283185") > 0
            angle$ = FSUB(angle$, "6.283185")
            col = VAL("0x" + GEN(6,"0123456789ABCDEF"))
        endif

        ! Create pen and select it for drawing
        thick = 2
        syscall "Gdi32.dll", "CreatePen", 0, thick, col
        hpen = V0
        syscall "Gdi32.dll", "SelectObject", hdc, hpen

        ! Compute end point of radar line
        x$ = FADD(cx$, FMUL(radius$, FCOS(angle$)))
        y$ = FADD(cy$, FMUL(radius$, FSIN(angle$)))

        ! Draw radar line from center to computed end point
        x = VAL(FROUND(cx$, "INT"))
        y = VAL(FROUND(cy$, "INT"))
        syscall "Gdi32.dll", "MoveToEx", hdc, x, y,  0

        x = VAL(FROUND(x$, "INT"))
        y = VAL(FROUND(y$, "INT"))
        syscall "Gdi32.dll", "LineTo", hdc, x, y

        wait 10
        angle$ = FADD(angle$, delta$)   ! increment angle

    until KEY(27)

    ! Release DC and exit
    syscall "User32.dll", "ReleaseDC", hwnd, hdc
    cls : end

Windows 11 Console screenshot.




Με το νέο αυτό update, η Hobby BASIC αποκτά δυνατότητες που μέχρι τώρα έλειπαν.
Η πρόσβαση σε συναρτήσεις του Win32 API ανοίγει τον δρόμο για:

• αλληλεπίδραση με το λειτουργικό
• προσαρμοσμένες λειτουργίες που δεν υπήρχαν ως εντολές
• δημιουργία πιο εξελιγμένων παραδειγμάτων

Παρότι υπάρχουν περιορισμοί (32-bit περιβάλλον, μόνο Wide API, απλές δομές), οι δυνατότητες που προσφέρει είναι τεράστιες για το μέγεθος και τη φιλοσοφία της Hobby BASIC.

Have fun with Hobby BASIC.

 

[Blue Max]

Στον φάκελο συμπεριέλαβα ένα απλό παράδειγμα syscall, γραμμένο εξ ολοκλήρου σε Hobby BASIC.

Πρόκειται για το BALLOON.BAS ένα πλήρες animated scene που τρέχει στην κονσόλα των Windows 11, για δοκιμή της νέας δυνατότητας.

• Double buffering για αποφυγή flickering
• Background pre-rendering για μέγιστη ταχύτητα
• Parallax scrolling clouds με διαφορετικές ταχύτητες
• Procedurally generated mountains με τυχαίες κορυφές
• Καθαρό σύστημα sprites με 2D arrays (αερόστατο και σύννεφα)
• Βελτιστοποιημένες GDI κλήσεις με PatBlt για καλύτερη απόδοση
• Δεν είναι κάτι περίπλοκο, απλώς για να δείξει τις δυνατότητες.

Windows 11 Console screenshot

 

[Blue Max]

Μια σύγχρονη υλοποίηση του κλασικού παιχνιδιού Lunar Lander.

Ένα παιχνίδι που έφτιαξα πριν 20 χρόνια στη Visual Basic… τώρα ξαναζωντανεύει στη δική μου γλώσσα.
Περιλαμβάνει: προσομοίωση φυσικής με ρεαλιστικούς υπολογισμούς, γραφικά, ηχητικά εφέ και δυναμικά προσαρμοζόμενη δυσκολία.

Το πρόγραμμα είναι γραμμένο εξ ολοκλήρου σε Hobby BASIC 2.3.5. Ο κώδικας είναι αυτόνομος, χωρίς καμία εξάρτηση από εξωτερικά αρχεία ή βιβλιοθήκες. Ακόμη και η εικόνα του παιχνιδιού φορτώνεται δυναμικά από τον server κατά την εκτέλεση.

Η κώδικας αξιοποιεί:
• Εντολή syscall με πολλαπλές κλήσεις Win32 API
• FPU string math για αριθμητικές πράξεις κινητής υποδιαστολής.
• GDI32 συναρτήσεις με γραφικά απευθείας στο παράθυρο κονσόλας των Windows 11.

Δεν έχει συμπεριληφθεί στα παραδείγματα, ενδέχεται να προστεθεί σε επόμενο update.
Ο πλήρης κώδικας είναι διαθέσιμος για όποιον επιθυμεί να το δοκιμάσει.

Windows 11 Console screenshot.



10 years of fun with Hobby BASIC.

 

[Blue Max]

Στο παζλ Chain Reaction (έκδοση 1.0) ο στόχος είναι να ταιριάξετε χρώμα ή σχήμα για να καθαρίσετε τον πίνακα. Πρέπει να διαγραφούν όλα τα σύμβολα περνώντας από το καθένα με τη σειρά, έτσι ώστε κάθε νέο σύμβολο να ταιριάζει με το προηγούμενο είτε σε σχήμα είτε σε χρώμα (ή και στα δύο). Οι κινήσεις γίνονται οριζόντια ή κάθετα σε οποιαδήποτε απόσταση, ενώ η αρχική θέση σημειώνεται με έναν σταυρό. Η πρωτότυπη ιδέα του γρίφου ανήκει στην Andrea Gilbert (clickmazes).

Το παιχνίδι υλοποιείται με την εντολή syscall, κάνοντας πολλαπλές κλήσεις σε συναρτήσεις του Win32 API και συγκεκριμένα του GDI32, ώστε να σχεδιάζει γραφικά απευθείας στο παράθυρο κονσόλας των Windows 11. Ο αλγόριθμος δημιουργεί τυχαία boards με πλευρές 3, 4 ή 5 κελιών, τα οποία είναι (σχεδόν) πάντα επιλύσιμα με 1 έως 5 διαφορετικές λύσεις. Είναι η καρδιά του παιχνιδιού και ήταν το πιο απαιτητικό στην ανάπτυξη, δεν είναι τέλειος αλγόριθμος, αλλά κάνει σωστά τη δουλειά του.

Το παιχνίδι παίζεται με ανοιχτό το παράθυρο DEBUG, το οποίο εμφανίζει μηνύματα και πρόσθετες πληροφορίες κατά την εκτέλεση.

Χειρισμός:
• Κάντε κλικ σε κελιά για να μετακινηθείτε
• Spacebar: Restart στο παζλ
• 1/2/3: Νέος πίνακας (πλευρές 3, 4 ή 5 κελιών)
• ESC: Έξοδος από το παιχνίδι

Το πρόγραμμα είναι γραμμένο εξ ολοκλήρου σε Hobby BASIC 2.3.5.
Ο πλήρης κώδικας του παιχνιδιού.

Windows 11 Console Screenshots.





10 years of fun with Hobby BASIC.

 

[Blue Max]

Παρουσιάζω ένα project που αναπτύσσω εδώ και καιρό: τη Super Tiny BASIC.

Η Super Tiny BASIC είναι ένας μινιμαλιστικός διερμηνευτής BASIC στυλ 80s, γραμμένος εξ ολοκλήρου στη Hobby BASIC.

Υποστηρίζει μεταβλητές ενός γράμματος (A–Z), εντολές IF μίας γραμμής, βρόχους (FOR/NEXT, WHILE/WEND), εισόδους/εξόδους (PRINT, INPUT), υπορουτίνες (GOSUB/RETURN), εντολές κονσόλας, αριθμητικούς τελεστές (+, -, *, /, %), συγκρίσεις (=, <>, <, >, <=, >=).

Μπορείτε να χρησιμοποιηθεί ως:
• Εκπαιδευτικό περιβάλλον για αρχάριους που μαθαίνουν προγραμματισμό
• Ρετρό παιχνιδότοπος για έμπειρους προγραμματιστές BASIC
• Κώδικας ανοιχτός σε τροποποιήσεις, βελτιώσεις και πειράματα

Βασικά Χαρακτηριστικά:
• Εντολές: LET, PRINT, INPUT, IF-THEN-ELSE, FOR-NEXT, WHILE-WEND
• Μεταβλητές: A-Z, εκφράσεις, συναρτήσεις RND(), CHR()
• Διαχείριση αρχείων: LOAD, SAVE
• Εντολές κονσόλας: CLS, LOCATE, COLOR, WAIT, INKEY

10 Παραδείγματα Προγραμμάτων:
STRESS.BAS, ADVANCED.BAS, MEGATEST.BAS, MANUAL.BAS, 100LINES.BAS
GUESSNUM.BAS, COINFLIP.BAS, CODEBREAK.BAS, HORSERACE.BAS, FOREST.BAS

Αποτελεί το μεγαλύτερο και πιο πολύπλοκο πρόγραμμα που έχει δημιουργηθεί μέχρι τώρα σε Hobby BASIC από εμένα, και αποτέλεσε stress test πρώτης τάξεως για τη σταθερότητα και τις δυνατότητες του διερμηνευτή.


Το περιβάλλον της Super Tiny BASIC στην κονσόλα των Windows 11.







10 years of fun with Hobby BASIC.

 

[Blue Max]

Τα Νέα της Hobby BASIC - Ενημέρωση για τον Τελευταίο Μήνα

Με πολύ κέφι και ικανοποίηση, σας δείχνω τι έγινε τον τελευταίο μήνα στη Hobby BASIC - ένα project που τρέχω με πάθος εδώ και 10 χρόνια!

Μια Μικρή Στατιστική
• 111 παραδείγματα κώδικα - μια ολοκληρωμένη συλλογή
• Πάνω από 35.000 γραμμές κώδικα - παιχνίδια και προγράμματα
• Δοκιμασμένα όλα - τρέχουν τέλεια σε Windows 10 & 11
• 7000+ downloads από έναν και μοναδικό σύνδεσμο

Πιο Καθαρός Κώδικας
• Καλύτερα Σχόλια & Οργάνωση
• Περεταίρω εξηγήσεις στους αλγόριθμους και πώς δουλεύουν τα παιχνίδια
• Πιο προσεγμένη στοίχιση και διάταξη του κώδικα
• Σχόλια που βοηθάνε να καταλάβεις κάθε κομμάτι

Πιο Ομαλή Λειτουργία
• Νέο σύστημα χρονισμού αντί για απλά wait σε κάποια παιχνίδια
• Παιχνίδια που πάνε με την ίδια ταχύτητα σε γρήγορα και αργά PC
• Διόρθωση μικροπροβλημάτων σε ορισμένα σημεία

Καινούρια Πράγματα
• BIND.BAS - Παζλ game φτιαγμένο από το μηδέν
• Win32 GDI PONG - Το κλασικό με GDI γραφικά
• Super Tiny BASIC - Μικρός διερμηνευτής BASIC γραμμένος στη Hobby BASIC
• 10 επιπλέον προγράμματα Super Tiny BASIC για πειραματισμό

️ Καλύτερη Διάταξη
- Πιο λογική οργάνωση των φακέλων
- Πιο εύκολο να βρεις αυτό που ψάχνεις
- Ανανεωμένη ιστοσελίδα, πιο φιλική

Σταθερότητα & Αξιοπιστία
Μετά από 10 χρόνια δουλειάς και αμέτρητες ώρες δημιουργίας:
• 35.000+ γραμμές κώδικα τρέχουν χωρίς προβλήματα
• Όλα τα προγράμματα ελέγχθηκαν σε διάφορα PC
• Κάθε παιχνίδι δουλεύει ακριβώς όπως πρέπει

Η ουσία; Ποιοτικός κώδικας που δουλεύει απροβλημάτιστα - όλα μέσα σε ένα hobby project!

10 years of fun with Hobby BASIC....συνεχίζουμε.

 

[Blue Max]

Το Retro Climber: Crate & Ladder Adventures είναι ένα παιχνίδι πλατφόρμας γραμμένο στη Hobby BASIC.

Περιλαμβάνει φυσική βαρύτητας και κίνησης, βελτιωμένα γραφικά ANSI, ήχους, επιλογή επιπέδου, σύστημα αναίρεσης και πλήρη τεκμηρίωση. Τρέχει μέσα στην κονσόλα CMD.EXE των Windows 11 και τα γραφικά του έχουν σχεδιαστεί με το πρόγραμμα DRAW.

Retro Climber – Κλασικό Puzzle Platformer
• Ανέβα σε πλατφόρμες και σκάλες για να φτάσεις στην έξοδο.
• Σπρώξε κιβώτια με στρατηγική για να ανοίξεις δρόμους και να ξεπεράσεις εμπόδια.
• Μάζεψε κλειδιά για να ξεκλειδώσεις φράχτες που σου φράζουν την έξοδο.
• Μπες οριζόντια στην πόρτα για να ολοκληρώσεις το επίπεδο.

Χαρακτηριστικά:
• Ρεαλιστική φυσική για τον παίκτη και τα κιβώτια
• Ομαλό ανέβασμα και κατέβασμα σε σκάλες
• Παζλ με σπρώξιμο και σκαρφάλωμα
• Σύστημα αναίρεσης με ιστορικό 1000 κινήσεων
• Ρετρό ANSI γραφικά με παλέτα RGB χρωμάτων
• Ηχητικά εφέ για ενέργειες και γεγονότα του παίκτη
• Κώδικας ανοιχτός σε τροποποιήσεις, βελτιώσεις και πειράματα


Retro Climber στην κονσόλα των Windows 11.

10 years of fun with Hobby BASIC.

 

[Blue Max]

Ανέβηκε η νέα έκδοση 2.3.6 της Hobby BASIC.

Η ενημέρωση αυτή διορθώνει ένα σημαντικό bug στην FPU string math.

Σε πράξεις αριθμητικής υψηλής ακρίβειας (15 ψηφία - το όριο της Hobby BASIC), κάποιες λειτουργίες προκαλούσαν crash της εφαρμογής.
Το πρόβλημα οφειλόταν σε ανεπαρκή memory allocation για τα buffers των floating-point operations. Η νέα έκδοση αυξάνει το buffer size εξασφαλίζοντας σταθερή λειτουργία ακόμα και στις πιο απαιτητικές μαθηματικές πράξεις.

• 35.000+ γραμμές κώδικα τρέχουν χωρίς προβλήματα

Για να μπορώ να παρακολουθώ πιο εύκολα την οργάνωση και ανάπτυξη του κώδικα, έγραψα ένα απλό BASIC Source Code Analyzer.
Το πρόγραμμα κάνει τα εξής:

• Σάρωση όλων των υποφακέλων για .BAS αρχεία
• Μέτρηση γραμμών κώδικα και μεγέθους ανά φάκελο
• Ομαδοποίηση στατιστικών με αυτόματη διάκριση φακέλων
• Συνοπτική έκθεση με formatted output

    !  BSCAN.BAS
    !  Hobby BASIC Interpreter
    !  Example utility from the Hobby BASIC collection.

    !  Purpose:
    !  Scans subdirectories for .BAS source files,
    !  counts lines and size per folder,
    !  and displays a neatly formatted summary per folder.
    !  Optional debug output for detailed logging.

    VIEW 11
    SCREEN 80, 30, 1000
    COLOR 0, 7
    CLS

    ENABLE_DEBUG = 0      ! Set to 1 for debug messages, 0 for normal output

    ! Messages for display
    MSG_HEADER$ = " ==== BSCAN.BAS FOLDER SUMMARY ===="
    MSG_FOLDER$ = " Folder: "
    MSG_FILES$  = "Files: "
    MSG_LINES$  = "Lines: "
    MSG_SIZE$   = "Size: "

    TITLE MSG_HEADER$

    ! Find all .BAS files in subdirectories
    command$ = "dir /s /b /A:-D *.bas"
    EXEC command$, directoryList$

    ! Split command output into individual file paths
    fileCount = SPLIT(directoryList$, CHR(0xA), -1)
    IF NOT fileCount
        IF ENABLE_DEBUG
            DEBUG("No .BAS files found")
        ELSE
            PRINT "No .BAS files found"
        ENDIF
        INKEY : CLS : END
    ENDIF

    DIM filePaths$[fileCount + 1]
    SPLIT(directoryList$, CHR(0xA), filePaths$[])

    ! Initialize totals and folder arrays
    totalLines = 0
    totalSize  = 0

    DIM folders$[fileCount + 1]
    DIM folderFiles[fileCount + 1]
    DIM folderLines[fileCount + 1]
    DIM folderSize[fileCount + 1]
    folderCount = 0

    ! Process each file
    ! Count lines and size, organize by folder
    FOR index = 0 TO fileCount - 1
        filePaths$[index] = TRIM(0, filePaths$[index])

        ! Count lines in current file
        fLines = VAL(GETLINE(-1, filePaths$[index]))

        ! Get file size in bytes
        fSize  = SIZE(filePaths$[index])

        ! Update totals
        totalLines += fLines
        totalSize  += fSize

        ! Extract folder from full path
        ! Manual reverse search for last "\"
        path$ = filePaths$[index]
        pos = LEN(path$)
        WHILE pos > 0
            IF MID(path$, pos, 1) = "\" THEN BREAK
            pos -= 1
        ENDW
        folder$ = LEFT(path$, pos - 1)

        ! Check if folder is already tracked
        ! Update counters or add new entry
        found = -1
        FOR i = 0 TO folderCount - 1
            IF folders$[i] = folder$ THEN found = i : BREAK
        NEXT
        IF found = -1
            folders$[folderCount] = folder$
            folderFiles[folderCount] = 1
            folderLines[folderCount] = fLines
            folderSize[folderCount]  = fSize
            folderCount += 1
        ELSE
            folderFiles[found] += 1
            folderLines[found] += fLines
            folderSize[found]  += fSize
        ENDIF

        ! Optional per-file debug output
        IF ENABLE_DEBUG
            DEBUG(filePaths$[index])
        ENDIF
    NEXT

    ! Display header with timestamp
    PRINT MSG_HEADER$
    PRINT " Generated: ", PATH(10)

    ! Display header and column titles
    PRINT
    PRINT MSG_FOLDER$, GEN(27," "), MSG_FILES$; MSG_LINES$; "   "; MSG_SIZE$
    PRINT GEN(80,"-")

    ! Display folder summary
    ! Truncate long folder names for neat alignment
    FOR i = 0 TO folderCount - 1
        fName$ = folders$[i]
        IF LEN(fName$) > 35 THEN fName$ = LEFT(fName$, 33) + "..."
        LOCATE 1, i + 6
        PRINT fName$
        LOCATE 36, i + 6
        PRINT MSG_FILES$, folderFiles[i]
        LOCATE 48, i + 6
        PRINT MSG_LINES$, FORMAT(2, folderLines[i])
        LOCATE 64, i + 6
        PRINT MSG_SIZE$, FORMAT(1, folderSize[i])
    NEXT

    ! Display totals
    PRINT
    PRINT " Number of files:  ", fileCount
    PRINT " Total code lines: ", FORMAT(2,totalLines)
    PRINT " Total code size:  ", FORMAT(1, totalSize)

    PRINT
    PRINT " Press any key to exit..."
    INKEY : CLS : END

54.970 γραμμές κώδικα αποτελούν το τρέχων συνολικό project της Hobby BASIC.
36.856 γραμμές BASIC εφαρμογών (ανοιχτός κώδικας) και 18.114 γραμμές κώδικας Win32 Assembly (closed source).

Windows 11 Console Screenshot



10 years of fun with Hobby BASIC.