Quick Basic in Application

DECLARE SUB FELD (X%, Y%, XX%, YY%, FARBEN%, HFARBE%, DFARBE%)
DECLARE SUB TITLE ()
DECLARE SUB LOESCHEN (STEIN%, BREITE!, HOEHE!)
DECLARE SUB HIGHSCORE (PUNKTE%, NAME$, LH%)
DECLARE SUB FELT2 (X%, Y%, XX%, YY%, FARBEN%)
DECLARE SUB Pfont (text$, X%, Y%, FARBE%, DURCHS%)
DECLARE SUB REIHECHECK (PUNKTE%, LINIE%)
DECLARE SUB FELT (X%, Y%, XX%, YY%, FARBEN%, HFARBE%, DFARBE%)
TYPE POSI
A AS STRING * 10
B [...]