fe}e "I",,"PARA.DAT"e #, CLRSCRNe #enCL$(CLRSCRN):RE$( ):BS$():BU$():EK$():BE$()'f}US$"_":BL$" ":NU$"":SC:PR:F1:F2:PSB:TM:SWF:OUSC5f tf : Bypass GET LINE routine. GET LINE HERE FOR SPEED.zff *** GET LINE ***f IMPORT: LN,FC,LC,WR$,TI$f EXPORT: T$,EC$fgEC$NU$:T$WW$: Start line out with word wrap (null at first)BgFD$BL$: Field character (blank or underline)jg WR$"WRAP" N LN: US$;:g WR$"WRAP" N LN: BS$;::FD$US$g WW$;: Wrapped word from previous line, if anygC(WW$):WW$NU$gCC:C$$()h C$BU$ C$BS$Bh C$RE$ TI$"TIME" BL$:::TI$NU$:  bh C$EK$ EC$"ESC":  zh C$RE$ :  h (((C$)FC)((C$)LC)) C$BS$ CC: h C$BS$ C h C$;h C$BS$ C T$NU$: 'i C$BS$ C CC:T$(T$,C): ^i CLN TI$"TIME" :::T$T$C$:TI$NU$:  i CLN WR$"WRAP" T$T$C$:  i CLN C$BL$ :  i CLN C$BL$ T$T$C$: :  iT$T$C$: i WR$NU$ij *** WORD WRAP ***&j IMPORT: T$,LN;j  EXPORT: T$,WW$Aj%Mj*LNLN^j/CLN:WW$NU$vj4CC:C$(T$,C,)j6 BL$;BS$;BS$;j9 C$BL$ FD$;BS$:WW$(T$,LNC):T$(T$,C): Mj> C 4jH (T$)LN T$(T$,LN):jM*kR *************************************Ok *** TRANSLATE TO UPPERCASE ***tk IMPORT: LW$ (lowercase string)k EXPORT: UP$ (UPPERCASE STRING)kUP$NU$k N (LW$)k C$(LW$,N,)k C$"Z" C$((C$) )l UP$UP$C$ llDl *** DECLARATIONS, continued from line 650 ***el *** ARRAY DECLARATIONS ***rl BASE 1lBS2:FL(l L$(2), L2$(2): text buffersl FT$((): file index tablel --- Calendar Array Declarations ---m C(): calendar numbers,m  MS( ): month sizesHm MN$( ): month namesam DN$(): day namesm FV(),LV(),FE$(): date input fieldsm  ***************************************m% ********** MAIN PROCESS ***************n& ***************************************n'7n? *** MAIN MENU *** _n\F$NU$:OF: : MENU GENERATOR{na CH$"W"  : \nf CH$"F"  : \nk CH$"A" l: \ou CH$"C" CL$: N  ::: );"Getting calculator...": "CALC.BAS"Woz CH$"D" CL$: N  ::: );"Getting assistance...": "DECIDE.BAS"uo CH$"I" "DDISK.BAS"o CH$"Q" CH$EK$ oME$"Choice not on the menu"o \: End with ESCo CL$: p **************************************#p *** MEMO MENU ***=p PR$"memo":TY$".MEM"_pN OF: : MENU GENERATORp CH$"E" NM$"NUMBER":