1 ' INVIS.NEC - By Gary Weber 12/04/92
2 ' Makes any file visible or invisible
10 SCREEN0,0:CLS
20 ONERRORGOTO50
30 LINEINPUT"Filename: ";A$
40 OPENA$FORINPUTAS#1
50 IFERL=40ANDERR=55THENRESUME 60
60 CLOSE:EXEC8859:A=PEEK(63911!)
70 IFA=255THENPRINT"File not found!":BEEP:MENU
80 DIR=PEEK(63912!)+256*PEEK(63913!)
90 I=PEEK(DIR)
100 PRINT "<V>isible or <I>nvisible: ";:I$=INPUT$(1):PRINTI$
110 IFI$="V"ORI$="v"THENPOKEDIR,IAND244:GOTO140
120 IFI$="I"ORI$="i"THENPOKEDIR,IOR8:GOTO140
130 PRINT"Unchanged!":GOTO150
140 PRINT"Done!"
150 MENU