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