"Locate" in the program

[Kernelpanic]

@SMcNeill - Unfortunately that does not work. The correct formatting remains the problem.

At least so it will compiled.

Code: (Select All)

'TAB-Versuch, nach Vorlage SMcNeill - 10. Juni 2022

OPTION _EXPLICIT

Declare TB(spaces as integer)

DIM ProductMaterial, IndirectCost, MaterialCost AS DOUBLE

PRINT TB(5);
INPUT "Production material       : ", ProductMaterial

IndirectCost = (ProductMaterial * 8) / 100
PRINT TB(5);
PRINT USING "Indirect material cost    : ###,###.##"; IndirectCost

MaterialCost = ProductMaterial + IndirectCost
PRINT TB(5);
PRINT USING "Material costs            : ###,###.##"; MaterialCost

FUNCTION TB (spaces) 'tab spaces without
  DIM x AS INTEGER

  x = POS(0)
  IF x > spaces THEN PRINT
  LOCATE , spaces
END FUNCTION