10*TV255 20*FX21 30*FX4,1 40*KEY10"OLD|M" 50MODE7 60VDU23,1,0;0;0;0; 70BKST$=CHR$(133)+CHR$(157)+CHR$(134) 80BKND$=CHR$(131)+CHR$(157) 100ch%=0 110REPEAT 120ch%=ch%+1:IFch%>3:ch%=1 130VDU30 150PRINTBKND$ 180RESTORE 190FORI=1TO23:READdo$ 200A$=MID$(do$,1,1):IFch%=1 AND A$<>" ":A$=CHR$(ASC(A$)EOR&20) 210B$=MID$(do$,2,1):IFch%=2 AND B$<>" ":B$=CHR$(ASC(B$)EOR&20) 220C$=MID$(do$,3,1):IFch%=3 AND C$<>" ":C$=CHR$(ASC(C$)EOR&20) 230D$=MID$(do$,4,1):IFch%=4 AND D$<>" ":D$=CHR$(ASC(D$)EOR&20) 240E$=MID$(do$,5,1):IFch%=5 AND E$<>" ":E$=CHR$(ASC(E$)EOR&20) 250PRINTBKND$" "BKST$A$" "BKND$BKST$B$ " "BKND$BKST$C$" "BKND$ 260NEXT 270PRINTBKND$; 272PRINTTAB(ch%*7,4)CHR$(8)CHR$(255) 280PRINTTAB(ch%*7,20)CHR$(8)CHR$(255) 290Q%=GET 292PRINTTAB(ch%*7,4)CHR$(8)" " 300PRINTTAB(ch%*7,20)CHR$(8)" " 310UNTILQ%=13 320: 330DATA" " 332DATA" " 334DATA" " 336DATA" " 338DATA" " 340DATA"m " 350DATA"ow " 360DATA"ne " 370DATA"ten" 380DATA"hko" 390DATA"llt" 400DATA"yye" 410DATA" p" 420DATA"dda" 430DATA"iid" 440DATA"aa " 450DATA"rr " 460DATA"yy " 470DATA" " 472DATA" " 474DATA" " 476DATA" " 478DATA" " 480: 490IFch%=1:CHAIN"Mdiary" 500IFch%=2:CHAIN"Wdiary" 510IFch%=3:CHAIN"NotePad"