Quick Basic in Application

DECLARE SUB GPRINT (FFTEXT$, FFHEIGHT!, FFWIDTH!)
DECLARE SUB INGET (ANZAHLE!, Stellen!, Zeilen!, X$)
DECLARE SUB CPRINT (FFTEXT$, FFHEIGHT!, FFWIDTH!, FFCOLOR1%, FFCOLOR2%, FFCOLOR3%)
DECLARE SUB FELT (X%, Y%, XX%, YY%, FARBEN%, HFARBE%, DFARBE%)
DECLARE SUB PUTT (PX!, PY!, PNUMMER$)
TYPE POSI
A AS STRING * 4
B AS STRING * 25
C AS STRING * 10
D AS STRING * 8
END TYPE
DIM AREA(650) AS INTEGER
DIM [...]