- GOTO SCREEN begin
*>SCREEN begin
  CALL RDCLOCK(date$,day,atime$)
  oo$=LEFT$(date$,2)
  dd$=MID$(date$,4,2)
  yy$=RIGHT$(date$,2)
  hh$=LEFT$(atime$,2)
  mm$=MID$(atime$,4,2)
  ss$=MID$(atime$,7,5)
- PUT LARGE TEXT AT (1,1): "REAL-TIME CLOCK EDIT"
- PUT TEXT AT (2,3): "Enter new date"
- PUT TEXT AT (17,3): date$
- GET STRING oo$ AT (17,3) DEFAULT oo$
- GET STRING dd$ AT (20,3) DEFAULT dd$
- GET STRING yy$ AT (23,3) DEFAULT yy$
- PUT TEXT AT (2,5): "Enter new time"
- PUT TEXT AT (17,5): atime$
- GET STRING hh$ AT (17,5) DEFAULT hh$
- GET STRING mm$ AT (20,5) DEFAULT mm$
- GET STRING ss$ AT (23,5) DEFAULT ss$
  date$=oo$+"/"+dd$+"/"+yy$
  atime$=hh$+":"+mm$+":"+ss$
  call wrclock(date$,day,atime$)
- PUT TEXT AT (2,7): "The real-time clock has now been set!"
- END OF PSEUDOCODE