10 'JOURNAL-1  CODE DAYLEY JOURNAL TO MONTHLEY APPEND RND-T BASE 10\NEEDS NAME OF FILE TO SAVE DECODED MONTHLY TO, DATE+TIME.TXT;SAVE .BAK FILE BACKUP,ADD TO FILE;UPGRADE FROM "JOURNAL"

20 CLS:INPUT "ADD TO MONTHLY = 1, OR READ MONTHLEY = 2,OR SAVE DECODED MONTHLY = 3' OR EXIT =4";GO:IF GO<1 OR GO>4 THEN 20

30 ON GO GOTO 40,290,560,440

40 CLEAR ,,2000:DIM A$(100)

50 INPUT"ANY NUMBER FOR CODE";KY:TA=KY

60 CLS:PRINT"TYPE MEMMO ,TWO ENTERS TO CODE"

70 FOR B=1 TO 100

80 A$(0)=DATE$+"  "+TIME$+CHR$(10)

90 LINE INPUT" ",A$(B):IF LEN (A$(B))=0 GOTO 120;

100 A$(B)=A$(B)+CHR$(10)

110 NEXT

120 FOR C=1 TO B-1

130 PRINT"#";C;:PRINT A$(C)

140 NEXT C

150 INPUT "CHANGE ANY LINES YES=1 NO=2,OR ADD MORE TO FILE=3";H:IF H<1 OR H>3 THEN GOTO 150

155 IF H=3 THEN GOTO 90

160 IF H=1 THEN GOTO 460

170 INPUT "ENTER TO SEND CODE TO MONTHLY";CR

180 O$=DATE$+".TXT":C$=MID$(O$,1,3)+MID$(O$,7,8):OPEN C$ FOR APPEND AS #1:DE=-100

185 P$=DATE$+".BAK":D$=MID$(P$,1,3)+MID$(P$,7,8):OPEN D$ FOR APPEND AS #2:DE=-100

190 PRINT#1,DE

195 PRINT#2,DE

200 FOR D=0 TO C-1

210 FOR E=1 TO LEN(A$(D))

220 E$=MID$(A$(D),E,1):GOSUB 510

230 GOSUB 270

240 NEXT E

250 NEXT D

260 CLOSE:CLS:RUN

270 PRINT #1,ASC(E$)+RT;

275 PRINT #2,ASC(E$)+RT;

280 RETURN

290 CLEAR ,,2000:DIM N(10000):CLS

300 INPUT"ANY NUMBER FOR CODE";KY:TA=KY

305 INPUT"READ CURRENT MONTH YES=1,NO=2";R:IF R<1 OR R>2 THEN 305

306 IF R=1 THEN GOTO 1180

310 FILES:INPUT"NAME OF MONTHLY";I$:ON ERROR GOTO 320:GOTO 330

320 PRINT"CHECK NAME,NEEDS THE .TXT":GOTO 310

330 OPEN I$ FOR INPUT AS #2

340 FOR A=1 TO 10000

350 INPUT #2,N(A):IF N(A)=-100 THEN TA=KY:GOTO 340

360 IF EOF(2) THEN CLOSE:GOTO 420

370 GOSUB 510

380 D=N(A)-RT:IF D=10 THEN INPUT"",NX:

390 ON ERROR GOTO 1000

395 IF D=10 THEN GOTO 410

400 PRINT CHR$(D);:ON ERROR GOTO 1000

410 NEXT A

420 CLOSE:PRINT CHR$(10):INPUT"PRINT FILE AGAIN YES=1 NO=2";RV:IF RV=0 OR RV>2 THEN LOCATE 21,1:GOTO 420;

425 IF RV=1 THEN GOTO 330

430 CLOSE:CLS:RUN

440 PRINT"CLICK THE X TO CLOSE WINDOW":SYSTEM

450 END

460 INPUT"LINE # TO CHANGE";F:IF F>C-1 THEN 460

470 PRINT A$(F):LINE INPUT " ",A$(F):A$(F)=A$(F)+CHR$(10)

480 GOTO 120

490 END

500 END

510 R=TAN(TA):IF R>0 THEN R=R*-1

520 R=INT(R*10000):R$=STR$(R)

530 C$=MID$(R$,4,1)+MID$(R$,2,1)+MID$(R$,3,1):RT=VAL(C$)

540 TA=TA+3

550 RETURN

560 CLEAR ,,2000:DIM N(10000):CLS

570 INPUT"ANY NUMBER FOR CODE";KY:TA=KY

580 FILES:INPUT"NAME OF MONTHLY";I$:ON ERROR GOTO 590:GOTO 600

590 PRINT"CHECK NAME,NEEDS THE .TXT":GOTO 580

600 INPUT"NAME OF DECODED FILE";O$

610 OPEN I$ FOR INPUT AS #2

620 OPEN O$ FOR OUTPUT AS #1

630 FOR A=1 TO 10000

640 INPUT #2,N(A):IF N(A)=-100 THEN TA=KY:GOTO 630

650 IF EOF(2) THEN CLOSE:GOTO 710

660 GOSUB 720

670 D=N(A)-RT

680 ON ERROR GOTO 1000

690 PRINT #1,CHR$(D);

700 NEXT A

710 CLOSE:CLS:RUN

720 R=TAN(TA):IF R>0 THEN R=R*-1

730 R=INT(R*10000):R$=STR$(R)

740 C$=MID$(R$,4,1)+MID$(R$,2,1)+MID$(R$,3,1):RT=VAL(C$)

750 TA=TA+3

760 RETURN

1000 CLOSE:CLS:PRINT"WRONG KEY":INPUT"ENTER TO RUN AGAIN";RN:RUN

1010 END

1180 O$=DATE$+".TXT":I$=MID$(O$,1,3)+MID$(O$,7,8):GOTO 330