,( )( F) ,( D)( F) ,( $)( F)( ,( d)( F)2 I% <(I%) F I%P I%  Z(I%) d I%.n () ?x () P () a () r ()  ()  ()  () 0 () D ( ) X l LENGTH%(,),TEXT$(,,),BUFFER$() I% #BUFFER$(I%)"", I%;INSERT%ISAVED%Q Y" b, Pl6 ,,w@ J TSAVED%^IPERIOD%PERIOD%h DAY%ROW%,PERIOD% COLUMN%r FUNKEY% &|K$ K$"" r# K$( ) K$( ) D: K$( ) Y K$( )( R) x K$( )( S)  K$( )  K$( )( H)  K$( )( P)  K$( )( K) .  K$( )( M) t* K$( )( I) I K$( )( Q) h K$( )( ) 2 K$( )  h&K%FUNKEY%0FUNKEY%: K% ,:,t , ,v , ,,",J,DD INSERT% l!N(TEXT$(DAY%,PERIOD%,ROW%),COLUMN%)K$+X K$;5b l(TEXT$(DAY%,PERIOD%,ROW%),COLUMN%)K$(TEXT$(DAY%,PERIOD%,ROW%),COLUMN%)v (TEXT$(DAY%,PERIOD%,ROW%),COLUMN%); COLUMN%LENGTH%(DAY%,PERIOD%)  COLUMN%COLUMN% T ROW% T*ROW%ROW%8COLUMN%B TX COLUMN% 4l INSERT% (TEXT$(DAY%,PERIOD%,ROW%),COLUMN%)" " ,PERIOD% COLUMN% " ";  (TEXT$(DAY%,PERIOD%,ROW%),COLUMN%)(TEXT$(DAY%,PERIOD%,ROW%),COLUMN%)" ":  ,PERIOD% COLUMN%f (TEXT$(DAY%,PERIOD%,ROW%),COLUMN%);| COLUMN%COLUMN%* T4 ROW% z>(TEXT$(DAY%,PERIOD%,ROW%),LENGTH%(DAY%,PERIOD%) )" "H DAY%ROW%,(PERIOD%LENGTH%(DAY%,PERIOD%)) R " ";-\ROW%ROW%TfCOLUMN%LENGTH%(DAY%,PERIOD%) ^p Tdzn ^INSERT% INSERT% INSERT% ,,,, : ,,,, ^ (TEXT$(DAY%,PERIOD%,ROW%),COLUMN%)(TEXT$(DAY%,PERIOD%,ROW%),COLUMN%)" "7 (TEXT$(DAY%,PERIOD%,ROW%),COLUMN%);A TT ROW% zdROW%ROW%rCOLUMN%| ^ ROW% zROW%ROW% ^ ROW% zROW%ROW%$ ^. COLUMN% L8COLUMN%COLUMN% B ^L ROW% z/VROW%ROW%V`COLUMN%LENGTH%(DAY%,PERIOD%) `j ^t COLUMN%LENGTH%(DAY%,PERIOD%)  ~COLUMN%COLUMN% ^ ROW% zROW%ROW%COLUMN% ^ DAY%  DAY%DAY%"PERIOD%IPERIOD%F LENGTH%(DAY%,PERIOD%) \PERIOD%PERIOD%f qROW%COLUMN%  h DAY% DAY%DAY%( 2 PERIOD% P<PERIOD%PERIOD%F LENGTH%(DAY%,PERIOD%) <P DAY% z)ZDAY%DAY%7dPERIOD%An FLxROW%ZCOLUMN%d ^ PERIOD%LENGTH%(DAY%,PERIOD%) PERIOD%PERIOD%LENGTH%(DAY%,PERIOD%) x DAY% zDAY%DAY%PERIOD% x  R SAVED% &/ DAY% C PERIOD% _LENGTH%(DAY%,PERIOD%)p ROW% TEXT$(DAY%,PERIOD%,ROW%)( )" ROW%, PERIOD%6 DAY%@ ,JT DAY% ^ PERIOD% h ROW%  r DAY%ROW%,PERIOD% . | ( );9  ROW%G  PERIOD%R  DAY%c  DAY% t  DAY%,  ( );  PERIOD%   ( , );( );  PERIOD%  ( , );( );  DAY% OLDNAME$"" DAY% !PERIOD%!ROW%$!COLUMN%.!& 8!0 ^B!: RW!D SAVED% &f!NSTARTED%p!X !b NEWNAME$"" STARTED%  : !l "I",#,NEWNAME$!vSTARTED%! DAY% !IPERIOD%! PERIOD% " IPERIOD%PERIOD%  &"CHAR$$(,#)U" CHAR$"1" CHAR$( 7PERIOD%) y"LENGTH%(DAY%,PERIOD%)(CHAR$)" ROW% "TEXT$(DAY%,PERIOD%,ROW%)$(LENGTH%(DAY%,PERIOD%) ,#)" I% LENGTH%(DAY%,PERIOD%) T# (TEXT$(DAY%,PERIOD%,ROW%),I%,)( ) (TEXT$(DAY%,PERIOD%,ROW%),I%,)( ) ]# I%h# ROW%r# >#  $(,#)"0" #LENGTH%(DAY%,PERIOD%)#  ROW% #*TEXT$(DAY%,PERIOD%,ROW%)""#4 ROW%@$> PERIOD%IPERIOD%LENGTH%(DAY%,IPERIOD%) IPERIOD%IPERIOD%LENGTH%(DAY%,IPERIOD%)N$H PERIOD%Y$R DAY%n$\ () v$f#$p ,$z$ DAY% $ PERIOD% $ LENGTH%(DAY%,PERIOD%) $ ROW% % DAY%ROW%,PERIOD% )% ( );TEXT$(DAY%,PERIOD%,ROW%);4% ROW%B% PERIOD%S% ROW% j% DAY%ROW%,Ny% ( );% ROW%% DAY%% DAY% % DAY%,% ( );( , );%$ PERIOD% o&. LENGTH%(DAY%,PERIOD%) LENGTH%(DAY%,PERIOD%) ( ); : ( ); : LENGTH%(DAY%,PERIOD%) ( ); : ( );&8 ( , );&B PERIOD%&L ( );&V DAY%&` OLDNAME$NEWNAME$&j &t &~ & ,& ,' "Title:";(J);' NEWNAME$""!' ,3' ""  <' K$N' K$""  t' K$( ) K$( )  ' K$( ) < ' K$( ) x ' K$( ) ' '  ' (NEWNAME$)I  ' NEWNAME$NEWNAME$K$(( K$;(2  -(< (NEWNAME$)  V(F NEWNAME$(NEWNAME$,(NEWNAME$))m(P ,(NEWNAME$)x(Z " ";(d ,(NEWNAME$)(n  (x ,( "Timetable size? Press 'L' to select large size or 'S' to select small size ";) ""  ) K$*) K$""  F) K$"L" K$"l"  b) K$"S" K$"s"  h) r)  ) ( );"A";( );( );"2";) ( );)  ) ( );"A";();( );"2";) ( );":";) ( );"6";* NEWNAME$"" , V* ((N(NEWNAME$)));( );((NEWNAME$), );( )*" ((N(NEWNAME$)));( );NEWNAME$;( )*, " ";( );*6 COLUMN% K +@ NEWNAME$"" (COLUMN%(J(NEWNAME$)) COLUMN%(L(NEWNAME$))) ^ [+J COLUMN%   LENGTH%(,(COLUMN%) ) ( ); : ( );e+T h +^ COLUMN%   LENGTH%(,(COLUMN%) ) ( ); : ( );+h COLUMN%+r ( )+| DAY% + ROW% + " ";, PERIOD% U, LENGTH%(DAY%,PERIOD%) ( );TEXT$(DAY%,PERIOD%,ROW%);c, PERIOD%q, ( )|, ROW%, " ";, DAY% & , ( );( , );, PERIOD% X- LENGTH%(DAY%,PERIOD%) LENGTH%(DAY%,PERIOD%) ( ); : ( ); : LENGTH%(DAY%,PERIOD%) ( ); : ( );i- ( , );w- PERIOD%- ( )- b -& ( );( , );-0 PERIOD% -: LENGTH%(DAY%,PERIOD%) ( ); : ( );.D ( , );.N PERIOD%".X ( )-.b DAY%7.l A.v RV. SAVED% &`. ,f. m. . PERIOD%LENGTH%(DAY%,PERIOD%) z. BLANK%. I% */ TEXT$(DAY%,PERIOD%LENGTH%(DAY%,PERIOD%),I%)(LENGTH%(DAY%,PERIOD%LENGTH%(DAY%,PERIOD%)) ) BLANK%3/ I%F/ BLANK% z Q/ ,[/ ,/ "Delete contents of following lesson? Press 'Y' to proceed or 'N' to cancel ";/ ""  / K$/ K$""  / K$"Y" K$"y" H 0* K$"N" K$"n" & 04 *0>  40H ,C0R I% z0\ DAY%I%,(PERIOD%LENGTH%(DAY%,PERIOD%)) 0f (LENGTH%(DAY%,PERIOD%LENGTH%(DAY%,PERIOD%)) );0p I%0z LENGTH%(DAY%,PERIOD%LENGTH%(DAY%,PERIOD%))  Y1 LENGTH%(DAY%,PERIOD%LENGTH%(DAY%,PERIOD%))LENGTH%(DAY%,PERIOD%LENGTH%(DAY%,PERIOD%))h1 I% 1 TEXT$(DAY%,PERIOD%LENGTH%(DAY%,PERIOD%),I%)(LENGTH%(DAY%,PERIOD%LENGTH%(DAY%,PERIOD%)) ) 2 DAY%I%, (PERIOD%LENGTH%(DAY%,PERIOD%)) 2 ( );"2 I%52 DAY%  j2 DAY%, (PERIOD%LENGTH%(DAY%,PERIOD%)) 2 LENGTH%(DAY%,PERIOD%LENGTH%(DAY%,PERIOD%)) ( ); : ( );2 DAY%  3 DAY%, (PERIOD%LENGTH%(DAY%,PERIOD%)) X3 LENGTH%(DAY%,PERIOD%LENGTH%(DAY%,PERIOD%)) ( ); : ( );3 LENGTH%(DAY%,PERIOD%LENGTH%(DAY%,PERIOD%))3 I% 3TEXT$(DAY%,PERIOD%LENGTH%(DAY%,PERIOD%),I%)""4 DAY%I%,(PERIOD%LENGTH%(DAY%,PERIOD%)) 4$ " ";4. I%+48 DAY% V_4B DAY%,(PERIOD%LENGTH%(DAY%,PERIOD%)) 4L LENGTH%(DAY%,PERIOD%LENGTH%(DAY%,PERIOD%)) ( ); : ( );4V DAY% t4` DAY%,(PERIOD%LENGTH%(DAY%,PERIOD%)) H5j LENGTH%(DAY%,PERIOD%LENGTH%(DAY%,PERIOD%)) ( ); : ( );z5tLENGTH%(DAY%,PERIOD%)LENGTH%(DAY%,PERIOD%)5~ I% 5TEXT$(DAY%,PERIOD%,I%)TEXT$(DAY%,PERIOD%,I%)( )5 I%5 5 T6 LENGTH%(DAY%,PERIOD%) z6BLANK% 6 I% W6 (TEXT$(DAY%,PERIOD%,I%), )( ) BLANK%`6 I%s6 BLANK% Z~6 ,6 ,6 "Delete part of existing text? Press 'Y' to proceed or 'N' to cancel ";6  ""  6K$7 K$"" +7( K$"Y" K$"y" PG72 K$"N" K$"n" &M7<W7F a7P ,7ZLENGTH%(DAY%,PERIOD%)LENGTH%(DAY%,PERIOD%)7d I% 7nTEXT$(DAY%,PERIOD%,I%)(TEXT$(DAY%,PERIOD%,I%),LENGTH%(DAY%,PERIOD%) )7x I%.8LENGTH%(DAY%,PERIOD%LENGTH%(DAY%,PERIOD%))=8 I% u8TEXT$(DAY%,PERIOD%LENGTH%(DAY%,PERIOD%),I%)( )8 DAY%I%,(PERIOD%LENGTH%(DAY%,PERIOD%)) 8 ( );( );8 I%8 DAY% 9 DAY%,(PERIOD%LENGTH%(DAY%,PERIOD%)) c9 LENGTH%(DAY%,PERIOD%LENGTH%(DAY%,PERIOD%)) ( ); : ( );v9 DAY% 9 DAY%,(PERIOD%LENGTH%(DAY%,PERIOD%)) 9 LENGTH%(DAY%,PERIOD%LENGTH%(DAY%,PERIOD%)) ( ); : ( );*: COLUMN%LENGTH%(DAY%,PERIOD%)  5:ROW%C:COLUMN%M: \:" I% :,BUFFER$(I%)TEXT$(DAY%,PERIOD%,I%):6 I%:@ ^:JBLANK%:T I% :^ TEXT$(DAY%,PERIOD%,I%)(LENGTH%(DAY%,PERIOD%) ) BLANK%;h I%;r BLANK% ";| ,,; ,; "Delete existing contents of lesson? Press 'Y' to proceed or 'N' to cancel ";; "" ;K$; K$"" ; K$"Y" K$"y" ; K$"N" K$"n" &;; < ,< I% N<TEXT$(DAY%,PERIOD%,I%)(LENGTH%(DAY%,PERIOD%) )W< I%f< I% <(TEXT$(DAY%,PERIOD%,I%),)BUFFER$(I%)< DAY%I%,PERIOD% <& TEXT$(DAY%,PERIOD%,I%);<0 I%<:  "Lose contents of lesson? Press 'Y' to proceed or 'N' to cancel ";V> "" _>K$q> K$"" > K$"Y" K$"y"  > K$"N" K$"n" &>> >  ,> I%  ? TEXT$(DAY%,PERIOD%,I%)(LENGTH%(DAY%,PERIOD%) )+?* DAY%I%,PERIOD% Q?4 (LENGTH%(DAY%,PERIOD%) );Z?> I%d?H u?R SAVED% ?\ ,?f ,?p "Save current timetable? Press 'Y' to save, 'N' to lose edits, or 'ESC' to cancel";?z "" z?K$@ K$"" -@ K$"Y" K$"y" I@ K$"N" K$"n" ^@ K$( ) d@n@ |@SAVED%@@ @ NEWNAME$"" @ NEWNAME$OLDNAME$ t@ "I",#,NEWNAME$@#@ ,@ ,MA$ "Name already used. Press 'R' to try another name or 'O' to overwrite file ";_A. "" .hA8K$zAB K$"" 8AL K$"R" K$"r" AV K$"O" K$"o" tA`Aj 8At "O",#,NEWNAME$A~ DAY% A PERIOD% $B#,( 0LENGTH%(DAY%,PERIOD%));5B ROW% WB#,TEXT$(DAY%,PERIOD%,ROW%);bB ROW%pB PERIOD%{B DAY%B#BSAVED%BOLDNAME$NEWNAME$BB ,B ,B  "Filename:";(G);BNEWNAME$""B , C( "" (C2K$#C< K$"" 2GCF K$( ) K$( ) ^CP K$( ) uCZ K$( ) Cd K$( ) CnCx 2C (NEWNAME$)F nCNEWNAME$NEWNAME$K$C K$;C 2D (NEWNAME$) n)DNEWNAME$(NEWNAME$,(NEWNAME$))AD , (NEWNAME$)LD " ";dD , (NEWNAME$)nD 2D (NEWNAME$,".") NEWNAME$NEWNAME$".TTB"DDNEWNAME$""DD New,Open,Save,Print,Exit,Extend,Reduce,Copy,Paste,ClearE ,E" I%  E, ,9E6 " F";((I%),);CE@ ,REJ COMMAND$bET COMMAND$;kE^ I%xEh " ";~ErE| "" |EFUNKEY%E ,EEFUNKEY%EEFUNKEY%EEFUNKEY%EEFUNKEY%E FFUNKEY%F FFUNKEY%&F4FFUNKEY%:F&HF0FUNKEY%NF:\FDFUNKEY%bFNqFXFUNKEY% wFbFl  tFv t F l *F l f F  b F ,FF G G ,!G ,{G "Cannot write file. Try another name? Press 'Y' to try again or 'N' to abandon ";G "" GK$G K$"" G K$"Y" K$"y" G  K$"N" K$"n" GG  G* , H4 ,cH> "Cannot find file. Try another name? Press 'Y' to try again or 'N' to abandon ";uHH "" H~HRK$H\ K$"" RHf K$"Y" K$"y" XHp K$"N" K$"n" HzH RHH ,H ,QI "Error in file. Try another file? Press 'Y' to try again or 'N' to abandon ";[I HfI ,pI ,I "Error in printing. Check printer. Press 'Y' to try again or 'N' to abandon ";I "" IK$I K$"" J K$"Y" K$"y" $1J K$"N" K$"n" 7JAJ KJ$ ,UJ. x