Power-Programmierung/CD1.mdf/basic/library/qb_pds/screen/qbscreen/subdim.bas

BASIC Source File | 1986-12-10 | 357 b | 8 lines

REM   *** SUBDIM.BAS ***
      DIM SHARED ARG$(20),LOCKS$(3),DIS$(100),INP$(100),KEYFLD$(6)
      DIM SHARED PRT$(100),FLD$(20),PRM$(42)
      DIM SHARED ORFLD$(20),CRFLD$(20),COFLD$(20),PRFLD$(40)
      DIM SHARED WRK1%(20),WRK2%(20),RECS%(1000)
      DIM SHARED QI$(15),QI%(15),QK%(15),QD$(5),QD%(5),QR%(5),QN$(16,36),QN%(16,29)
REM   *** END ***