Skip to content

Instantly share code, notes, and snippets.

@Nicholas-Westby
Nicholas-Westby / tetris.bas
Created September 1, 2020 18:03
A Tetris clone I made in high school in QuickBasic.
DECLARE SUB AddLines (AddAmount AS INTEGER)
DECLARE SUB AddScore (AddAmount AS INTEGER)
DECLARE SUB MyColor (TheColor AS INTEGER)
DECLARE SUB MyLocate (x AS INTEGER, y AS INTEGER)
DECLARE SUB MyPrint (PrintString AS STRING)
DECLARE SUB PrintMain (Variable1 AS STRING, Variable2 AS STRING, FunctionNum AS INTEGER)
DECLARE SUB CheckEraseLines ()
DECLARE SUB NewShape ()
DECLARE SUB PatchScreen ()
DECLARE FUNCTION DirFunction! (MaxCount!)
@Nicholas-Westby
Nicholas-Westby / Archetype Widgets with Ditto
Last active December 24, 2015 18:47
Use Ditto to Map ArchetypeWidgets Using Custom Type Converter
This shows how to use Ditto to map Archetype widgets to a property that is a list of an interface (i.e., each widget class implements that interface).
Note that there may be a better solution: https://github.com/micklaw/Ditto.Resolvers/issues/4