home *** CD-ROM | disk | FTP | other *** search
/ The CIA World Factbook 1992 / k3bimage.iso / sel / 12 / 0156 / monofile.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-03-18  |  256 b   |  5 lines
  1. 5  COMMON DRIVEID$,FILEID$
  2. 8  CLS
  3. 10  DEF SEG=0:A=PEEK(&H410):POKE &H410,A OR &H30:WIDTH 80:LOCATE ,,1,12,13:COLOR 15,9,4:CLS:KEY OFF
  4. 20  CHAIN DRIVEID$+"FILEMENU"
  5.