This is a collections of various simple programs written for PC Basic. Topics include: palette cycling, fast animations, fractals&iterative models and more.
Many of this were featured as code-golf on @PCBasicBot and @BBCBasicBot pages.
- QBasic 1.1
- QuickBasic 4.5 or later
- Animated Gears
- Mazes
- Iterative systems
- Text-mode fractals
- Parametric curves
- Flower curves
- Plane fractals
- Sierpinski cellular automatons
- Segmented digit display
- 3D objects
- 3D surfaces
- Many colors
- Scattering simulations
- Miscellaneous
In this section each frame of animated gears is rendered and cycled with SCREEN command.
GEARS1.BAS - Single rotating gear.
GEARS2.BAS - A pair of rotating gears' outlines.
GEARS3.BAS - A pair of filled rotating gears.
GEARS4.BAS - Three filled gears.
GEARS5.BAS - Three multicolored gears (an imitation of GLGears).
GEARS6.BAS - A quartet of interconnected gears.
This section contains imitations of 10 PRINT CHR$(205.5+RND(1)); : GOTO 10 maze for PC Basic.
MAZE1.BAS - A straighforward port of C64 program. Doesn't look like a connected maze bacause symbols look differently on PC.
MAZE2.BAS - A more closer imitation of the maze, but in graphical format using GET and PUT to create and render diagonal lines as sprites.
MAZE3.BAS - A different type of maze with slightly different sprites.
MAZE4.BAS - And another maze, this time with 3 sprites.
MAZE5.BAS - The second version of 3-sprite maze.
MAZE6.BAS - Same as above, but sprites are created as hexademical array with DATA instead of manual LINE drawing.
Images created with a system of iterative equations.
FERN.BAS - The Barnsley fern.
LORENZ.BAS - Animated Lorenz attractor.
LORENZ2.BAS - Another animated Lorenz attractor with different shading.
CHAOS1.BAS - The classic logistic map of Xn+1=R Xn(1-Xn). Each value of R receives 200 iterations.
CHAOS2.BAS - Same as above, but with 50 iterations for each value of R.
VORONOI.BAS - Voronoi tessellation of a plane.
Julia and Mandelbrot sets in ASCII text mode.
TXTJULIA.BAS - Text-based Julia set in ASCII-symbol graphics.
TXTJLIA2.BAS - Text-based Julia set with colored characters.
TXTMNDL.BAS - Text-based Mandelbrot set with colored characters.
LSSJOUS1.BAS - A collection of Lissajous curves with various a and b parameters.
LSSJOUS2.BAS - Several Lissajous curves animated with SCREEN.
ROSE1.BAS - A parametris rose curve with filled segments.
ROSE2.BAS - Same as above, but with different palette.
ROSE3.BAS - Another shading method for the curve.
ROSE5.BAS - A different type of rose curve.
This section also contains parametric curves, but drawn as 'flowers' with different filling techniques.
PEANO.BAS - The Peano curve.
DRAGON.BAS - The Heighway dragon.
Creating Sierpinski patterns with line-by-line cellular automatons based on division modulus of a Pascal's triangle numbers.
SIERPIN1.BAS - A classic Sierpinski cellular automaton.
SIERPIN2.BAS - Same as above, but centered on the screen.
SIERPIN3.BAS - A pattern using bitwise AND 15 operation instead of MOD 2.
Programs that draw segmented digits.
DIGITS1.BAS - Draw all digits from 0 to 9 in with 7 segments.
DIGITS2.BAS - Same as above, but more slim with 6 pixel withs instead of 8.
DIGITS3.BAS - Single-digit counter.
DIGITS4.BAS - Three-digit counter with simpler shapes.
DIGITS5.BAS - Hex counter with two digits.
Wireframes for 3D objects.
SPHERE3D.BAS - Sphere 3D wireframe.
TORUS3D.BAS - Torus 3D wireframe.
TORUS3D2.BAS - Animated torus 3D wireframe.
Plotting 3D surfaces.
SURF3D.BAS - "Wave" 3D plot.
DROP3D.BAS - The plot above animated with palette cycling.
SURF3D2.BAS - A different type of plot.
SPIRAL3D.BAS - 3D plot of double spiral.
Demos that mean to display as many colors as possible in VGA modes provided by QBasic
SPLAT1.BAS - Color 'splats'.
SPLAT2.BAS - A similar algorithm as above.
SUN.BAS - Cocentric circles with palette cycling.
RAINBOW.BAS - Palette cycling of sectors.
PALETTE.BAS - Fullscreen color cycle over all possible colors in SCREEN 12.
Simulations of particle scattering with RNG.
SCATTER1.BAS - Simple scattering from a hole.
SCATTER2.BAS - Same as above but with different parameters.
DIFRACT1.BAS - Single-slit difraction simulation.
DIFRACT2.BAS - Same as above but mostly integer-based and therefore faster.
SPIRAL1.BAS - 4-ray spiral.
SPIRAL2.BAS - Same as above but more optimized.
SPIRAL3.BAS - 8-ray spiral.
BURN.BAS - "Burning" demo from pouet.net. CALL runs x86 bytecode encoded as string characters.
FIBSPRL.BAS - Fibonacci spiral with different color for each individual spiral.
MATRIX.BAS - Falling letters in text mode.
TXTMOIRE.BAS - Moiré pattern in text mode.
TXTDROP.BAS - Text mode water circles animated with with palette cycling.
YINYANG.BAS - Rotating Yin-Yang symbol.
WIN95.BAS - Win95 logo.
