1 ‘the file will be coded the first time it’s the first time

2 'the file will be decoded when ran a 2'nd time

3 'only input is the file name

4 'i can't make it work in basic ver 3.23

40 FILES:INPUT"FILE FOR INPUT";I$

70 OPEN "R",#1,I$,255:IF LOF(1)<1 THEN CLOSE:KILL I$:GOTO 520

80 FIELD #1, 255 AS A$

85 GET #1,1:O$=CHR$(0)

86 V=INSTR(A$,O$):IF V<1 THEN GOTO 1000

100 N=INT(LOF(1)/255):PRINT N

160 CLS:LOCATE 12,20:PRINT I$

220 FOR N1=5 TO N

250 GET #1,N1

280 LOCATE 1,1:PRINT N-N1;

310 FOR A=100 TO 1 STEP-1:B$=B$+MID$(A$,A,1):NEXT A

340 FOR B=255 TO 101 STEP-1:B$=B$+MID$(A$,B,1):NEXT B

370 LSET A$=B$

400 PUT #1,N1

430 B$=""

460 NEXT N1

490 CLOSE:END

520 PRINT"  PLEASE   check file name  we can't find",I$

550 GOTO 40

1000 CLS:PRINT" THIS IS NOT A FILE WE WILL KODE":CLOSE:END