The Datafile PD-CD 5/DATAFILE_PDCD5.iso/utilities/n/newsflash/!BBS/BBS/Notes/Usefulbits/QuickChang

Text File | 1996-09-13 | 354 b | 18 lines

{
| Quick filearea change
| APH (13 September 1996)
IF option="K" THEN
  OPENFILEBASE
  TAB 0 STD CLL
  BFG 7 PRINT "Change to filearea #"
  BFG 6 INPUT fa%,4
  IF (fa%>0) AND (fa%<=FILEAREAS) THEN
    READFAREA fa%
    IF FILEAREAACCESS AND (CANVIEW OR CANWRITE OR CANREAD OR CANKNOW) THEN
      FILEAREA=fa%
    ENDIF
  ENDIF
  CLOSEFILEBASE
ENDIF
|
}