Collection of Mazes

[bplus]

this is almost the one-liner other basic's could do

Code: (Select All)

_Font 8
10 Print Mid$("/\", Rnd * 2 + 1, 1);: GoTo 10

that was expanded to this in oldmaze.bas

Code: (Select All)

Dim Shared MainWindow As Long
Dim Shared Commodore64Screen As Long
MainWindow = _NewImage(768, 496, 32)
Commodore64Screen = _NewImage(320, 200, 32)
Screen MainWindow
_Title "Never Ending Maze"
_Font 8
Cls , _RGB32(112, 91, 207)
_Dest Commodore64Screen
Cls , _RGB32(52, 30, 149)
Color _RGB32(112, 91, 207), _RGB32(52, 30, 149)
_Font 8
Do
    _Limit 30
    For i = 1 To 13
        Print Mid$("/\", Rnd * 2 + 1, 1);
    Next
    _PutImage (64, 48)-(704, 448), Commodore64Screen, MainWindow
    _Display
    k& = _KeyHit
Loop Until k& = 27
System

here is whole folder but as i said only 3 basic kinds of mazes
   

here is standard graphics version
   

and one of many ascii versions