The following QuickBASIC code will read the employee names and display them on the screen.
Remember to open the .POS file as SHARED in the GLOBAL folder if the Cash Register program is being used over a network.
Code:
COLOR 15, 1: CLS
DIM EMP$(56)
FL$ = "KEYSHOP"
OPEN FL$ + ".POS" FOR RANDOM AS 1 LEN = 80
FOR E = 0 TO 1
   FOR A = 1 TO 3: FIELD 1, (A - 1) * 24 AS NULL$, 24 AS E$(A): NEXT
   FOR A = 0 TO 9
      GET 1, A + 11 + E * 291
      FOR B = 1 TO 3
         C = A * 3 + B: IF C < 29 THEN EMP$(C + E * 28) = E$(B)
NEXT B, A, E
FOR A = 1 TO 19
   FOR B = 0 TO 2
      C = A + B * 19
      IF C < 57 THEN
         LOCATE A, B * 26 + 1
         PRINT USING "##.\                     \"; C; EMP$(C);
      END IF
NEXT B, A