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

[Blue Max]

Η επερχόμενη έκδοση 2.4.1 της Hobby BASIC ενισχύει τον continuation character, τον χαρακτήρα backslash (\), προσθέτοντας νέες δυνατότητες. Αυτή η φαινομενικά μικρή αλλά σημαντική επέκταση διαμορφώνει ριζικά τη σύνταξη της Hobby BASIC από εδώ και πέρα.

➤ Παράδειγμα continuation character πριν την έκδοση 2.4.1:​

print \
"hello"

Ισοδύναμο με: print "hello"

Ο περιορισμός στην προηγούμενη έκδοση:
Η γραμμή αμέσως μετά τον χαρακτήρα \ δεν μπορούσε να είναι κενή ούτε να περιέχει σχόλια - έπρεπε να συνεχίζει απευθείας την εντολή.

Παραδείγματα που προκαλούν σφάλμα σύνταξης:

print \
     ← κενή γραμμή
"hello"

print \
! Αυτό είναι σχόλιο
"hello"

Και τα δύο ισοδύναμα με: Syntax Error

Δεν είχα προβλέψει αυτή τη σύνταξη, παρόλο που είναι απολύτως λογική και αναμενόμενη από τους χρήστες.

Η νέα έκδοση 2.4.1 διορθώνει αυτή την παράλειψη. Ας δούμε το παράδειγμα ξανά:

print \            ! Συνέχιση στην επόμενη γραμμή
                   ! <-- Αυτό το κενό επιτρέπεται τώρα στην 2.4.1
"Καλημέρα κόσμε"   ! Η εντολή ολοκληρώνεται εδώ

Η διαφορά είναι σημαντική: προσφέρει μεγαλύτερη ευελιξία στον κώδικα και, κατ' επέκταση, στον προγραμματιστή, ενώ ταυτόχρονα βελτιώνει την αναγνωσιμότητα.

➤ Line Continuation Support για την εντολή TIMES!​

Η εντολή TIMES:
• Εκτελεί εντολές πολλές φορές σε μία γραμμή
• Χρησιμοποιεί τη μεταβλητή V3 ως μετρητή (zero-based: 0 έως n-1)
• Δέχεται πολλαπλές εντολές χωρισμένες με άνω κάτω τελεία :
• Κάνει inline loops χωρίς να χρειάζεται ξεχωριστή γραμμή για FOR/NEXT

Παράδειγμα:

times repeatCount  swap 0, 0, 80, 11, 0, 12 : title repeatCount-V3 : wait 120

Το παραπάνω ισοδυναμεί με:

FOR i = 0 TO repeatCount-1
    swap 0, 0, 80, 11, 0, 12
    title repeatCount-i
    wait 120
NEXT i

H TIMES δεν υποστήριζε continuation character. Με την έκδοση 2.4.1 μπορούμε να σπάμε τα loops σε πολλές γραμμές χρησιμοποιώντας τον χαρακτήρα backslash (\) !

Παλιά σύνταξη (έως 2.4.0):

times 10 print "Hello" : print "World" : wait 100

Ή ακόμα χειρότερα για nested loops:

times 5 times 5 print "X:", V3;" Y:", V3

Νέα σύνταξη (2.4.1):

times 10 \
 print "Hello" : \
 print "World" : \
 wait 100

➤ Παραδείγματα της TIMES με continuation:​

Test 1: Βασικό test με single line

times 3 print "Hello"

Output: Hello 3 φορές


Test 2: Multi-line με backslash

times 3 \
    print "Line 1" : \
    print "Line 2" : \
    print "Line 3"

Output:
Line 1
Line 2
Line 3
Line 1
Line 2
Line 3
Line 1
Line 2
Line 3


Test 3: Backslash μέσα σε quotes

times 2 \
    print "This has backslash \\ in string" : \
    print "Another with '\' quote"

Output: Να τυπώσει τα strings όπως είναι (δεν να θεωρηθεί continuation)


Test 4: Complex expressions με arithmetic

times 4 \
    x = V3 * 10 : \
    print "Iteration ", V3, " value ", x

Output:
Iteration 0 value 0
Iteration 1 value 10
Iteration 2 value 20
Iteration 3 value 30


Test 5: Nested commands με graphics

times 5 \
    color \
    RND(15), RND(15) : \
    paint V3*5, V3*5, 5, 5, -1, 1

Output: 5 διαφορετικά χρωματισμένα κουτιά


Test 6: Με κενή γραμμή continuation

times 3 \
    print "Start" : \
    \
    print "Middle" : \
    \
    print "End"

Output:
Start
Middle
End
Start
Middle
End
Start
Middle
End


Test 7: Πολλαπλά backslashes σε διαφορετικές γραμμές

times 2 \
    a = 1 : b = 2 : \
    \
    c = a + b : \
    \
    print "Sum = ", c : \
    \
    wait 100

Output:
Sum = 3
Sum = 3


Test 8: Backslash στο τέλος χωρίς κενό

times 3 print "Test"\
    : print "Continued"

Output:
Test
Continued
Test
Continued
Test
Continued


Test 9: Backslash με κενά και σχόλια

times 3 \

    ! Σχόλιο \

    print "Hello" : \

    print "World"

Output:
Hello
World
Hello
World
Hello
World


Test 10: Zero count

times 0 \
    print "This should not print"
print "Skipped"

Output: Μόνο Skipped

➤ Προχωρημένα παραδείγματα της TIMES με continuation:​

Nested TIMES

print "Nested TIMES test:"
times 2 \
    print "Outer ", V3, ":" : \
    times 3 \
        print "  Inner ", V3
inkey

Nested FOR/TIMES με Full Continuation Support

for \
    outer = 1 \
    to 3 \
    
    print "┌─ OUTER ITERATION ", outer, " ───────────────────────┐" : \
    
    for \
        middle = 1 \
        to 4 \
        
        print "│  Middle: ", middle, " " : \
        
        times \
            2 \
            
            print "│    Times[", V3, "] " : \
            
            if \
                V3 = 0 \
                then \
                    print "First " : \
                else \
                    print "Second" : \

        print "│"
        
    next \
    middle : \
    
    print "└──────────────────────────────────────────────┘" : \
    print  ! Blank line
    
next \
outer

Δυναμικός Υπολογισμός Μέσου Όρου Πινάκων

    forever#
    dim data[5,5].RND 10000
    data[].SIZE
    array_length = V0
   
    times array_length : \
        sum = 0 : \

        times 5 \
            value = data[V3,V3] : \
            sum = sum + value : \
            average = sum / 5 : \
            print "row ", V3, " average: ", average
 
    goto forever

Σε κάθε αναβάθμιση, προσπαθώ να κάνω τη σύνταξη της Hobby BASIC πιο ελεύθερη και ευέλικτη για τον προγραμματιστή, διατηρώντας παράλληλα τη λογική της και το βασικό BASIC-style. Το περιβάλλον είναι χτισμένο από το μηδέν σε 100% Win32 Assembly, με χειροποίητο parser, μηδέν εξαρτήσεις και απευθείας byte επεξεργασία.

➤ Νέα Παραδείγματα στην έκδοση 2.4.1​

Στην ενημέρωση 2.4.1 προστέθηκαν δύο νέα παραδείγματα:

1. CIRCLES.BAS - Multiple Random Circles Generator
   Δημιουργεί τυχαίους κύκλους με διαφορετικά μεγέθη, χρώματα και θέσεις.
2. EQUALIZER.BAS - Πλήρως παραμετροποιήσιμο Equalizer / VU Meter
   Προσομοίωση οπτικού equalizer με μπάρες που αντιδρούν σε τυχαίες τιμές.

Screenshots από την κονσόλα των Windows 11.



10 years of fun with Hobby BASIC.

 

[Blue Max]

Καλά Χριστούγεννα σε όλους!

Μερικές προσωπικές σημειώσεις για την Hobby BASIC.

Η Hobby BASIC μπαίνει πλέον στη δεύτερη δεκαετία της.
Συνεχίζει να μεγαλώνει με νέα προγράμματα και παιχνίδια, εξελισσόμενα σιγά-σιγά με τον καιρό.
Κοιτώντας πίσω τα πρώτα projects που έγιναν για Windows XP και συγκρίνοντάς τα με αυτά που τρέχουν σε Windows 11, η πρόοδος φαίνεται πολύ πραγματική.

Η Hobby BASIC ποτέ δεν προοριζόταν να αντικαταστήσει μια καθημερινή γλώσσα προγραμματισμού — υπήρξε πάντα ένα προσωπικό project βασισμένο στο χόμπι μου. Προέκυψε από τον χρόνο που αφιέρωσα για να μάθω και να πειραματιστώ με assembly χρησιμοποιώντας τον fasm, και παραμένει μια απλή BASIC-style γλώσσα με μερικά μοναδικά χαρακτηριστικά, σχεδιασμένη ειδικά για την κονσόλα των Windows.

► Προσθήκες στην έκδοση 2.4.2​

Προστέθηκαν δύο νέες εντολές για τον χειρισμό των διατάξεων, η SORT και η SUM, φτάνοντας έτσι τις 23 συνολικά.

    ! STRING ARRAYS (Strings only)
    !  a$[].FILE dpath$        - List dir contents (V0)
    !  a$[].FILE fpath$        - Read file lines (V0)
    !  a$[].SORT               - Sort array alphabetically

    ! STRING/INTEGER ARRAYS (Both types)
    !  a$[].ZERO               - Fill with zeros/empty strings
    !  a$[].SHUFFLE            - Shuffle array elements
    !  a$[].REVERSE            - Reverse element order
    !  a$[].COPY b$[]          - Copy b[] into a[]
    !  a$[].SWAP b$[]          - Swap contents with b[]
    !  a$[].DELETE idx [, ...] - Delete elements by index
    !  a$[].INSERT idx, v [...] - Insert values at index
    !  a$[].FIND x             - Find first index of value
    !  a$[].SIZE               - Return array dimensions
    !  a$[].OUT [indent]       - Print full array

    ! INTEGER ARRAYS (Integers only)
    !  a[].FILL value          - Fill with a value
    !  a[].RND max             - Fill with random values
    !  a[].SET start           - Fill with consecutive values
    !  a[].COUNT x             - Count occurrences (V0)
    !  a[].SUM                 - Sum of array values (V0)
    !  a[].MATCH x [...]       - 1 if match found, else 0
    !  a[].REPLACE a, b        - Replace a with b
    !  a[].ASSIGN b[] x [...]  - Store matches from b[]
    !  a[].COMPARE b[]         - Compare with b[] (V0)
    !  a[].SORTA               - Sort ascending

Παράδειγμα SORT – Αγγλικά:

    dim Α$[7] = "Commodore", "Amstrad", "Sinclair", "Atari  ", "Electron", "Dragon 32", "MSX"

    Α$[].SORT

    for i = 0 to SIZE(Α$[]) - 1
        print i+1, ". ", Α$[i]
    next

Output:
Amstrad
Atari
Commodore
Dragon 32
Electron
MSX
Sinclair

Υποστήριξη Wide χαρακτήρων – Ελληνικά:

dim A$[7] =  "Καπετάνιος", "Ανεμοστρόβιλος", "Σπιρτόζος", "Αστραπή", "Ενέργεια", "Δράκος", "Μαθητής"

A$[].SORT

for i = 0 to SIZE(A$[]) - 1
    print i+1, ". ", A$[i]
next

Output:
1. Ανεμοστρόβιλος
2. Αστραπή
3. Δράκος
4. Ενέργεια
5. Καπετάνιος
6. Μαθητής
7. Σπιρτόζος

➡ Η Hobby BASIC υποστηρίζει wide χαρακτήρες παντού, οπότε οι Ελληνικές λέξεις ταξινομούνται κανονικά αλφαβητικά.


Παράδειγμα SUM – Άθροισμα στοιχείων πίνακα

dim a[5] = 10, 20, 30, 40, 50

a[].SUM
total = V0

print "Το άθροισμα των στοιχείων είναι: ", total

Output:
Το άθροισμα των στοιχείων είναι: 150

​

► Νέα παιχνίδια στην έκδοση 2.4.2​

Το Football with Friends είναι ένα πιστό remake ενός παιχνιδιού της PuzzleScript, ξαναγραμμένο στην Hobby BASIC με ANSI γραφικά για την κονσόλα των Windows 11.

Θα χρειαστείς λίγη δεξιοτεχνία στα πόδια για να λύσεις αυτά τα ποδοσφαιρικά παζλ.
Συντονίστε τους συμπαίκτες σας για να πετύχετε το τέλειο γκολ, αλλά πρόσεχε να μην χαθεί η μπάλα στο χορτάρι!
Μπορείς να λύσεις όλα τα παζλ πριν ακουστεί το τελικό σφύριγμα;

Χαρακτηριστικά:

• Γραφικά ANSI με 16 χρώματα
• Ομαλή απεικόνιση με πλακίδια (8x8 pixels)
• Ανανεώνονται μόνο τα πλακίδια που αλλάζουν
• Μπορείς να αναιρέσεις κινήσεις με ιστορικό UNDO
• Η μπάλα κινείται με ρεαλιστικό τρόπο
• Οι παίκτες συνεργάζονται όταν βρίσκονται δίπλα ο ένας στον άλλον
• Οι αντίπαλοι AI σουτάρουν ή πασάρουν ανάλογα με την κατάσταση
• Σύστημα γκολ με νίκη ή ήττα ανάλογα με το αποτέλεσμα
• Ήχοι για σουτ, γκολ και συγκρούσεις

Πηγαίος κώδικας: EXAMPLES\GAMES\WIN11\FOOTBALL.BAS
Γραφικά: Δημιουργήθηκαν με το DRAW, το ANSI σχεδιαστικό πρόγραμμα γραμμένο εξ ολοκλήρου στην Hobby BASIC
Screenshot: Από την κονσόλα των Windows 11



10 years of fun with Hobby BASIC.