Category : Lotus and other Spreadsheets
Archive   : 123LRN22.ZIP
Filename : 123LEARN.WK1

,Š
–„|


†
Š

b

b
b
-b
b
!


h h
h
h
h
h
h
h
h+/8,88/





ÿ q Hd h
œ@isaaf(h
@isapp(G123-LEARN

GL000  GL00A

GL00B % %GL00F - -GL00M ? ?GL00N  GL00S ) )GL00T < <GL00W  GL00\ 9 9GL01A  GL01B $ $GL01F 2 2GL01N ! !GL01S * *GL01T = =GL01W  GL01\ ; ;GL02A  GL02F 3 3GL02N # #GL02S + +GL02T > >GL02W  GL03F 0 0GL03W  GL0IF 4 4GL12W  GL12\ ' 'GL1IF 7 7GL1SN , ,GL22\ ( (GLEARN
?
GLOOKGPRINT

G\0ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ,
b
0
ÿÿuÿÿ€ÿÿÿÿ ÿÿÿÿ# ÿÿÿÿgÿÿÿÿ ÿÿÿÿ ÿÿÿÿÿÿÿÿi(ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿfÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ$
%ò &ò '((
ðB)
'*ÿÿÿÿÿÿÿÿ-·
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ˜ÿÿšÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“ÿÿ“ÿÿÿÿÿÿ–ÿÿ–ÿÿÿÿÿÿÿÿÿÿÿÿARNING! ASSWORD VIOLATION ATTEMPTED BY: AS TRIED TO BREAK THE PASSWORD qq

ÿ' ÿ
' 123-LEARNÿ' Version 2.2 ÿ
'\0(ÿ'{BREAKOFF}{HOME}{MENUBRANCH LOOK}(ÿ'produced by Softsmith Enterprisesÿ"{BRANCH \0}ÿ' tmÿ
'LOOKÿ"INSTRUCT
ÿ 'REVEIW ÿ
'PRINT&ÿ' (c) 1987 All Rights Reserved)ÿ"SEE FURTHER INSTRUCTIONS FOR USAGE*ÿ "SEE PREVIOUS INSTRUCTIONS FOR USAGEFÿ
"PRINT A COPY OF INSTRUCTIONS AFTER YOU'VE FINISHED READING THEMYÿ'{if @cellpointer("contents")<>"123-LEARN End:"}{ONERROR \0}{PGDN}{MENUBRANCH LOOK}*ÿ '{ONERROR \0}{PGUP}{MENUBRANCH LOOK}2ÿ
'/RELEARN~{ONERROR \0}/PPRA1..h394~AGPPQ/WEYFÿ' (earlier versions of this product were not published)ÿ"{branch print}ÿ '123-LEARNìÿ
"{PANELOFF}{BREAKOFF}{DOWN}/RE~{DOWN}LEARN~{RIGHT}/FCCNLEARN~123LEARN~/RNCLEARN~{ESC}.{RIGHT 8}{PGDN 3}{UP 7}~{DOWN 3}/RNLR.{PGDN 2}{DOWN 10}~/RULEARN~{UP 4}{UP}{LEFT}{BEEP 0}{BEEP 0}{BEEP 0}{BEEP 2}{BEEP 3}{{}MENUBRANCH LEARN{}}~ÿ ' This product
 ' ISN'T1ÿ 'copy-protected. This spreadsheet has been*ÿ
' restricted from direct access
'only ÿ
'to insure there is always ÿ

'LEARN 
'GO

'NEW


'APPEND
'DISPLAY
'QUIT 



Kÿ' an unaltered copy of the facility for backup and distribution.3'INVOKE PRESENT MACRO IN MEMORY UNDER "ALT-Z"% 'WRITE NEW MACRO WITH 123-LEARN/
'APPEND LAST MACRO WRITTEN WITH 123-LEARNM"BRIEFLY DISPLAY THE COMMAND LINES THAT THIS MENU IS BLOCKING FROM VIEW'QUIT LEARN FACILITY    F ' PLEASE DON'T ATTEMPT TO RESAVE THIS SPREADSHEET FILE!Y ê{
ðJ{RECALC LEARN}{BREAKON}{ONERROR L00B,L01B}{
}{MENUBRANCH LEARN}3H {RECALC LEARN}{BREAKON}{ONERROR L00B,L01B}{TEST}{MENUBRANCH LEARN}V '{ONERROR L00B,L01B}{BREAKOFF}{LET L22\,"N "}{MENUBRANCH L00N}{MENUBRANCH LEARN}†
ø{
ðw{ONERROR L00B,L01B}{IF @ISERR(@FIND("{BRANCH ",
<,0))#AND#@ISERR(@FIND("{RETURN}",
<,0))}{BRANCH L00A}3t
{ONERROR L00B,L01B}{IF @ISERR(@FIND("{BRANCH ",$AR$11,0))#AND#@ISERR(@FIND("{RETURN}",$AR$11,0))}{BRANCH L00A}P "{BREAKOFF}{INDICATE DSPLY}{GET L22\}{BREAKON}{INDICATE}{MENUBRANCH LEARN} '{INDICATE}{QUIT}     >ÿ

'(You may inadvertently lose your copy of the facility!)
'L00Aj
'{INDICATE}{ONERROR L00B,L01B}{GET L000}{IF L000="\"}{INDICATE MACRO}{RECALC LEARN}{MENUBRANCH L00\}Ì

6|ð½{IF @ISERR(@FIND("{IF ",
<,0))}{LET 
<,@LEFT(
<,@IF(@ISERR(@FIND("{RETURN}",
<,0)),@FIND("{BRANCH ",
<,0),@FIND("{RETURN}",
<,0)))}{BRANCH L00A}3®

{IF @ISERR(@FIND("{IF ",$AR$11,0))}{LET $AR$11,@LEFT($AR$11,@IF(@ISERR(@FIND("{RETURN}",$AR$11,0)),@FIND("{BRANCH ",$AR$11,0),@FIND("{RETURN}",$AR$11,0)))}{BRANCH L00A} 





Nÿ' User agreement, manual and registration form are all available at 8 "{IF L000="{"#OR#L000="}"}{LET L000,+"{"&L000&"}"}0
"{LET L000,""}{LET L22\,"N "}{BRANCH L00W}      Mÿ' this point provided you have a printer on-line. You may proceed'L01Aˆ }|ðy{IF @LENGTH(
<)>231-@LENGTH(L000)}{RECALC L01A}{IF
<sL2{LET L22\,"N "}{BRANCH L00W}{BRANCH L01F};3U {IF @LENGTH($AR$11)>231-@LENGTH(L000)}{RECALC L01A}{LET L22\,"N "}{BRANCH L00W} 
      Jÿ' to view the documentation on your screen using the "INSTRUCT"'L000 ' 
      Kÿ' and "REVEIW" commands, or you may get your hardcopy (and auto- v p|
ðg{IF +@S(
)<>+@S(
=)}{LET L01T,+@CELL("ADDRESS",
)}{RECALC L00T}{RECALC LEARN}3\ {IF +@S(TEST)<>+@S($AR$9)}{LET L01T,+@CELL("ADDRESS",TEST)}{RECALC L00T}{RECALC LEARN} 
      Mÿ' matically exit this file) immediately using the "PRINT" command. û R| ðì{IF L000=(@LEFT(L22\,@LENGTH(L000)-1)&"}")}{LET
<,@LEFT(
<,@LENGTH(
<)-@LENGTH(L22\))}{LET L000,@LEFT(L22\,@LENGTH(L000))&@STRING(@MAX(@VALUE(@RIGHT(L22\,@LENGTH(L22\)-@LENGTH(L000)))+1,2),0)&"}"}{LET L22\,L000}3æ {IF L000=(@LEFT(L22\,@LENGTH(L000)-1)&"}")}{LET $AR$11,@LEFT($AR$11,@LENGTH($AR$11)-@LENGTH(L22\))}{LET L000,@LEFT(L22\,@LENGTH(L000))&@STRING(@MAX(@VALUE(@RIGHT(L22\,@LENGTH(L22\)-@LENGTH(L000)))+1,2),0)&"}"}{LET L22\,L000} 
      O' Instructions for installing the facility in your Lotus files follow... “ ’|
ð„{LET
<,
<&L000}{LET L22\,@IF(L000="{{}"#OR#L000="{}}","N ",@LEFT(L000,@LENGTH(L000)-1)&" ")}{BREAKON}{BRANCH L00A}3 {LET $AR$11,$AR$11&L000}{LET L22\,@IF(L000="{{}"#OR#L000="{}}","N ",@LEFT(L000,@LENGTH(L000)-1)&" ")}{BREAKON}{BRANCH L00A} 
      ÿ"Installing 123-LEARN:'L02A 'TEST 
      'L00W ' 
      Eÿ
'#1- Go to an empty range in your spreadsheet at least 10 wide ± ©|
ð¢{BREAKOFF}{IF
<$
<
L
I=8192}{INDICATE WHOA!}{BEEP}{BEEP}{BEEP}{ESC 8}MACRO SIZE LIMIT REACHED!{WAIT @NOW+@TIME(0,0,10)}{esc}{BRANCH LEARN}3Š {BREAKOFF}{IF 11=8192}{INDICATE WHOA!}{BEEP}{BEEP}{BEEP}{ESC 8}MACRO SIZE LIMIT REACHED!{WAIT @NOW+@TIME(0,0,10)}{esc}{BRANCH LEARN} 
      9ÿ
' by 56 deep. 123-Learn will be installed here. ƒ Á|
ðt{LET L02T,L02T+1}{RECALC L00T}{RECALC LEARN}{IF @CELL("TYPE",
<)=@CHAR(98)}{LET 
<,""}{BRANCH L000}3q {LET L02T,L02T+1}{RECALC L00T}{RECALC LEARN}{IF @CELL("TYPE",$AR$11)=@CHAR(98)}{LET $AR$11,""}{BRANCH L000} 
       Ý ¶|ðÎ
<sE{LET {CONTENTS ;L02W,+
<}{CONTENTS L12W,
<,70,117}{LET L02W,+@REPEAT(" ",@MAX((74-@LENGTH(@TRIM(L02W)))/2,0))&@TRIM(L02W)}{IF @CELL("PREFIX",
<)<>""}{LET L12W,+
<}3³ {CONTENTS L02W,+$AR$11}{CONTENTS L12W,$AR$11,70,117}{LET L02W,+@REPEAT(" ",@MAX((74-@LENGTH(@TRIM(L02W)))/2,0))&@TRIM(L02W)}{IF @CELL("PREFIX",$AR$11)<>""}{LET L12W,+$AR$11} 
      @ÿ
'#2- Insert 123-Learn disk in default drive (usually "b:")'L03W@ "{RECALC L00T}{RECALC LEARN}{MENUBRANCH L01W}{BRANCH L03W} 
      'L01Wk 3| ð\? DON'T WRITE OVER CELL
<
$
<
L

I
<$
<
L
I [DISPLAY]3, ? DON'T WRITE OVER CELL AR11 [DISPLAY]e
| ðV? WRITE OVER CELL
<
$
<
L

I
<$
<
L
I [FORMULA]3&
? WRITE OVER CELL AR11 [FORMULA]      ;ÿ
'#3- Make sure the mode indicator (upper right) says  'READY'L02W5 ' {LONG NAME}{RETURN}>
í|
ð/ J
mF
J
mF
 ;e
m34
 {LONG NAME}{RETURN}       q à|
ðb{INDICATE}{LET L02T,L02T-1}{RECALC L00T}{RECALC LEARN}{LET
<,+
<&"{QUIT}"}{QUIT}3_ {INDICATE}{LET L02T,L02T-1}{RECALC L00T}{RECALC LEARN}{LET $AR$11,+$AR$11&"{QUIT}"}{QUIT}E
:}ð6{LET
<,"J"J}{BREAKON}{BRANCH L000}3+
{LET $AR$11,""}{BREAKON}{BRANCH L000}      Mÿ
'#4- Type "/FCCN123-Learn" [PRESS RETURN TWICE] continue typing "/RNC\"'L12W '{LONG NAME}{RETURN} 
      5ÿ
' "/RNC\" (don't type the quotation marks!).'L00N 'TEMPORARY
'PERMANENT       P "WRITE MACRO IN TEMPORARY STORAGE [IT CAN ONLY BE INVOKED USING 123-LEARN]C
"WRITE NAMED MACRO IS SPECIFIC LOCATION FOR FUTURE INVOKATION      ?ÿ
'#5- Now specify a letter you want to use when you invoke  _ "{LET L01T,+@CELL("ADDRESS",L00M)}{LET L02T,1}{LET L00M,""}{RECALC L00T}{RECALCCOL LEARN}t
"{PANELOFF}{ESC 8}{GETLABEL "NAME MACRO (SEE LOTUS MANUAL FOR NAMING CONVENTIONS): ",L02A}{LET L22\,+@@(L02A)}       Cÿ
!' 123-Learn (The facility will activate whenever you type !!'L01N} !e}ðn{RECALC L01N}{IF @CELL("TYPE",
<)<>"b"}{BLANK 
<}{LET L02T,+L02T+1}{RECALC L00T}{BRANCH L01N}3k !{RECALC L01N}{IF @CELL("TYPE",$AR$11)<>"b"}{BLANK $AR$11}{LET L02T,+L02T+1}{RECALC L00T}{BRANCH L01N}¾
!"{IF #NOT#@ISERR(@FIND(@LEFT(L02A,1),"0123456789!@$^&^()-+=;"",<>/",0))}{GETLABEL "NAME CANNOT BEGIN WITH THIS CHARACTER!! [PRESS RETURN AND TRY AGAIN]",L22\}{PANELON}{MENUBRANCH L00N} ! ! ! ! ! !Fÿ
"' "ALT" and the letter at the same time) [PRESS RETURN TWICE] "L ""{LET L02T,0}{LET L02A,"L00M"}{RECALC L00T}{RECALC LEARN}{BRANCH L00A}N
"P}ð?{RECALC LEARN}{ONERROR L02N}/RU
~{ONERROR L00B,L01B}3=
"{RECALC LEARN}{ONERROR L02N}/RUTEST~{ONERROR L00B,L01B} " " " " " "#'L02N2 #µ|ð#/RNC
~{ESC}{BRANCH L1SN}3! #/RNCTEST~{ESC}{BRANCH L1SN}V
#„}ðG{PANELON}/RNC
~{IF @COLS(
)*@ROWS(
)>1}{ESC}3;
#{PANELON}/RNCTEST~{IF @COLS(TEST)*@ROWS(TEST)>1}{ESC} # # # # # #?ÿ
$'#6- Press "ALT" and your chosen letter at the same time.$'L01B  $'Break
$"{BRANCH L1SN} $ $ $ $ $ $=ÿ
%' (Be sure 123-Learn disk is still in default drive)%'L00BJ %'{BREAKOFF}{IF L01B="Break"}{INDICATE BREAK}{MENUBRANCH LEARN}{QUIT} 
% % % % % % % &® &•}ðŸ{RECALC LEARN}{breakoff}{BEEP 0}{BEEP 0}{INDICATE ERROR}WHOOPS! lotus error "J
$"J occured ...[learn mode aborted]{indicate}{ESC}{BRANCH L01\}3– &{RECALC LEARN}{breakoff}{BEEP 0}{BEEP 0}{INDICATE ERROR}WHOOPS! lotus error "Break" occured ...[learn mode aborted]{indicate}{ESC}{BRANCH L01\} 
& & & & & & &Dÿ
''#7- After a few moments, 123-Learn will be installed- try it.''L12\
 ''0,0,20 
' ' ' ' ' ' 'ÿ('Using 123-LEARN:('L22\ ('\ 
( ( ( ( ( ( ()'L00S« )o}ðœ
€
€{LET L00A,+@LEFT(L00A,39)&$L02S&@RIGHT(L00A,60):VALUE}{LET L01S,1}{LET L00A,@LEFT(L00A,39)&@RIGHT(L00A,60):VALUE}{LET L01S,0};{BRANCH L00A}3U ){LET L00A,+@LEFT(L00A,39)&$L02S&@RIGHT(L00A,60):VALUE}{LET L01S,1}{BRANCH L00A} 
) ) ) ) ) ) )Cÿ
*'#1- Initially, 123-Learn brings up the main menu to get data*'L01S
 * 
* * * * * * *ÿ
+' on the current task:+'L02S_ +'{LET L000,+@IF(@IF(@ISERR(@VALUE($L000)),0,$L000<>" "),"{BEEP "&$L000&"}",+$L000):VALUE} 
+ + + + + + +,'L1SNå ,­} ðÖ{GET L000}{RECALC L1SN}
{ESC}
{EDIT}{BRANCH L1SN}
~~{LET L01T,+@CELL("ADDRESS",
)}{LET 
,""}{LET L02T,0}{RECALC L00T}{RECALC LEARN}{BRANCH L00A}
{BRANCH L1SN};;3P ,{GET L000}{RECALC L1SN}{LET $AR$11,+$AR$11&L22\}{BRANCH L00A}{BRANCH L1SN} 
, , , , , , , -'GO
-'NEW
-'APPEND-'DISPLAY-'QUIT-'L00F -'LOOP
-'KNOT-'DOWN -'IF
-'NOT-'ROUTINE-'MENU-'BELL .: .'CAUSE THE MACRO TO REPEAT ITSELF FROM THE BEGINNING(
.'CAUSE THE MACRO TO REPEAT CURRENTP."FORCE 123-LEARN TO WRITE TO NEXT CELL DOWN (USEFUL IN MACRO LOGIC DESIGN):.'CREATE ROUTINE EXECUTED ON THE TRUTH OF A CONDITION<.'CREATE ROUTINE EXECUTED ON THE UNTRUTH OF A CONDITION@."INVOKE ANOTHER MACRO FROM THE ONE CURRENTLY BEING LEARNED;."INVOKE A MENU FROM THE MACRO CURRENTLY BEING LEARNED`.ò}
ðQ
ù€ç¿ENDIS;ABLE BELL (RINGS WHEN MACRO ADVANCES TO THE NEXT CELL DOWN)3C.ENABLE BELL (RINGS WHEN MACRO ADVANCES TO THE NEXT CELL DOWN)Fÿ
/' #1a- The "go" command invokes the last macro you worked on. /% /"{LET L02F,+L02A}{RECALC LEARN}2
/"{LET L02F,+L00T}{RECALC LEARN}{BRANCH L03F}/"{LET L000,""}{L00W}b/"{LET L22\,""}{RECALC LEARN}{MENUBRANCH L0IF}{MENUBRANCH L00F}{MENUBRANCH L00\}{BRANCH L00A}g/"{LET L22\,"#NOT#"}{RECALC LEARN}{MENUBRANCH L0IF}{MENUBRANCH L00F}{MENUBRANCH L00\}{BRANCH L00A}W/~ðH{GETLABEL "ENTER NAME OF ROUTINE TO BE INVOKED: ",L000}{RECALC LEARN}3K/{GETLABEL "ENTER NAME OF ROUTINE TO BE INVOKED: ",L000}{RECALC LEARN}T/B~ðE{GETLABEL "ENTER NAME OF MENU TO BE INVOKED: ",L000}{RECALC LEARN}3H/{GETLABEL "ENTER NAME OF MENU TO BE INVOKED: ",L000}{RECALC LEARN}M/"{IF L00W=""}{LET L00W,"{BEEP 0}{BEEP 0}{BEEP 2}{BEEP 3}"}{BRANCH L00A} +/Aÿ
0' #1b- The "new" command allows you to make temporary or0'L03FÅ 0)~ð¶{IF @LENGTH(
<)<231-@LENGTH("{BRANCH "&L02F&"}")}{LET 
<,+
<&"{BRANCH "&L02F&"}"}{INDICATE}{IF
<sL2{MENUBRANCH LEARN}{LET L000,""}{BRANCH L00W};3 0{IF @LENGTH($AR$11)<231-@LENGTH("{BRANCH "&L02F&"}")}{LET $AR$11,+$AR$11&"{BRANCH "&L02F&"}"}{INDICATE}{MENUBRANCH LEARN} 
0 0 0 0{0R~ ðl{IF @LENGTH(
<)<231-@LENGTH(L000)-2}{LET 
<,+
<&"{"&L000&"}"}{INDICATE}{BRANCH L00A}3f0{IF @LENGTH($AR$11)<231-@LENGTH(L000)-2}{LET $AR$11,+$AR$11&"{"&L000&"}"}{INDICATE}{BRANCH L00A}…0L~
ðv{IF @LENGTH(
<)<231-@LENGTH(L000)-11}{LET 
<,+
<&"{MENUCALL "&L000&"}"}{INDICATE}{BRANCH L00A}3p0{IF @LENGTH($AR$11)<231-@LENGTH(L000)-11}{LET $AR$11,+$AR$11&"{MENUCALL "&L000&"}"}{INDICATE}{BRANCH L00A}!0"{LET L00W,""}{BRANCH L00A}:ÿ1'permanent macros, and prompts you to show it where 1Õ 1'{IF @ISERR(@FIND("{IF ",@@(L00T),0))}{LET L02T,L02T+1}{RECALC L00T}{LET L000,+"{LET "&L00T&",+"&L00T&"&""{BRANCH "&L02F&"}""}{MENUCALL LEARN}{QUIT}"}{LET L02T,L02T-1}{RECALC L00T}{RECALC LEARN}{BRANCH L00W} 
1 1 1 1×1'{IF @ISERR(@FIND("{IF ",@@(L00T),0))}{LET L02T,L02T+1}{RECALC L00T}{LET L22\,+L000}{LET L000,+"{LET "&L00T&",+"&L00T&"&""{""&L22\&""}""}{BRANCH L00A}"}{LET L02T,L02T-1}{RECALC L00T}{RECALC LEARN}{BRANCH L00W}Þ1'{IF @ISERR(@FIND("{IF ",@@(L00T),0))}{LET L02T,L02T+1}{RECALC L00T}{LET L22\,+L000}{LET L000,+"{LET "&L00T&",+"&L00T&"&""{MENUCALL "&L22\&"}""}{BRANCH L00A}"}{LET L02T,L02T-1}{RECALC L00T}{RECALC LEARN}{BRANCH L00W} 1 +1;ÿ2'you want permanent macros written. Temporary macros2'L01F 2"{BEEP}{BEEP}{BEEP}{GETLABEL "NO ROOM IN CONDITIONAL ROUTINE NOW IN PROGRESS [PRESS RETURN TO RESUME]",L22\}{BRANCH L00A} 
2 2 2 22"{BRANCH L01F}2'{BRANCH L01F} 21ÿ3'are written below 123-Learn automatically.3'L02F 3'TEST 
3 3 3 3 3 3 3ÿ
4' #1c- <ÿ4'The "append" command adds the following keystrokes to4'L0IF 4"EQUATION 
4'VALUE 4'LABEL 4 4 4 4 4<ÿ5'the last macro you worked on- this is best done after 5F 5"EXECUTE CONDITIONAL ROUTINE ON THE TRUTH OF A SPECIFIC EQUATIONB
5"EXECUTE CONDITIONAL ROUTINE WHEN CURSER ENCOUNTERS A NUMBERA5"EXECUTE CONDITIONAL ROUTINE WHEN CURSER ENCOUNTERS A LABEL 5 5 5 5 58ÿ6'using the "go" command to show you where you are. 6¨ 6«~ð™{INDICATE IF ?}{GETLABEL "If? ",L000}{RECALC LEARN}
F{LET L000,+"{IF "&L22\&L000&"}"}{LET L000,"{IF
€ò¿@CELLPOINTER(""TYPE"")=""b""}"};3Y 6{INDICATE IF ?}{GETLABEL "If? ",L000}{RECALC LEARN}{LET L000,+"{IF "&L22\&L000&"}"}æ
6û~ð×{LET L000,"{IF
((@CELLPOINTER(""TYPE"")=""v"")}"}{INDICATE IF ?}{GETLABEL "Value? ",L22\}{IF @LENGTH(L22\)}{LET L000,@LEFT(L000,+@LENGTH(L000)-2)&"#AND#@CELLPOINTER(""CONTENTS"")="&L22\&")}"}{BRANCH L1IF}3Ò
6{LET L000,"{IF \(@CELLPOINTER(""TYPE"")=""v"")}"}{INDICATE IF ?}{GETLABEL "Value? ",L22\}{IF @LENGTH(L22\)}{LET L000,@LEFT(L000,+@LENGTH(L000)-2)&"#AND#@CELLPOINTER(""CONTENTS"")="&L22\&")}"}{BRANCH L1IF}æ6 ð×{LET L000,"{IF
((@CELLPOINTER(""TYPE"")=""l"")}"}{INDICATE IF ?}{GETLABEL "Label? ",L22\}{IF @LENGTH(L22\)}{LET L000,+@LEFT(L000,@LENGTH(L000)-2)&"#AND#@CELLPOINTER(""CONTENTS"")="&L22\&")}"}{BRANCH L1IF}3Ò6{LET L000,"{IF \(@CELLPOINTER(""TYPE"")=""l"")}"}{INDICATE IF ?}{GETLABEL "Label? ",L22\}{IF @LENGTH(L22\)}{LET L000,+@LEFT(L000,@LENGTH(L000)-2)&"#AND#@CELLPOINTER(""CONTENTS"")="&L22\&")}"}{BRANCH L1IF} 6 6 6 6 6ÿ
7' #1d-=ÿ7'The "display" command shows the current display of the7'L1IFg 7ä~
ðX{IF @LENGTH(
<)<231-@LENGTH(L000)}{LET 
<,+
<&L000}{BRANCH L00A}3R 7{IF @LENGTH($AR$11)<231-@LENGTH(L000)}{LET $AR$11,+$AR$11&L000}{BRANCH L00A}
7"{BRANCH L1IF}7"{BRANCH L1IF} 7 7 7 7 7=ÿ8'command line-press any key to return to the main menu. 8Ò 8E ðÃ{IF
€€sL2{LET L02T,L02T+1}{RECALC L00T}{LET L22\,+L000}{LET L000,+"{LET "&L00T&",+"&L00T&"&L22\}{BRANCH L00A}"}{LET L02T,L02T-1}{RECALC L00T}{RECALC LEARN}{BRANCH L00W}{BRANCH L01F};3¥ 8{LET L02T,L02T+1}{RECALC L00T}{LET L22\,+L000}{LET L000,+"{LET "&L00T&",+"&L00T&"&L22\}{BRANCH L00A}"}{LET L02T,L02T-1}{RECALC L00T}{RECALC LEARN}{BRANCH L00W} 
8 8 8 8 8 8 8 +8 ,8Eÿ
9' #1e- The "quit" command stops learn-mode, but the "append"9'L00\ 9'DONE 
9'FIELD 9'PAUSE9'WAIT
9'RESUME 9'SOUND9'~
9'MACROS9ÿ:'command may still be used later on. "Quit" can be : :'MACRO IS FINISHED-
:'INSERT A VARIABLE FIELD FOR USER INPUT.:'INSERT A PAUSE UNTIL ANY KEY IS PRESSED':'INSERT A WAIT OF A SPECIFIC TIME:'RESUME LEARN MODEu:9ðf
û€ð¿IMBED BEEPS IN MACRO (NUMBERS ARE RECOGNIZED AS SOUND DESIGNATORS)DISABLE SOUND FEATURE;3H:IMBED BEEPS IN MACRO (NUMBERS ARE RECOGNIZED AS SOUND DESIGNATORS)5:"IMBED "~" AS A CHARACTER FOR THE MACRO TO TYPE$:'IMBED MACRO FEATURES IN MACRO<ÿ;'used to make unrecorded keystrokes before continuing.;'L01\Š ;Äx
ð{{INDICATE}{LET
<,+
<&"{RETURN}"}{IF
<sL2{MENUBRANCH LEARN}{QUIT}{LET L000,""}{BRANCH L00W};3G ;{INDICATE}{LET $AR$11,+$AR$11&"{RETURN}"}{MENUBRANCH LEARN}{QUIT}C
;"{LET L22\,"N "}{LET L000,"{?}"}{INDICATE FIELD}{BRANCH L01A}J;"{LET L22\,"N "}{LET L000,"{GET L22\}"}{INDICATE PAUSE}{BRANCH L01A}§;'{LET L22\,"N "}{GETLABEL "ENTER TIME TO WAIT IN THE FORMAT HRS,MIN,SEC (MAX. 23,59,59): ",L12\}{LET L000,+"{WAIT @NOW+@TIME("&$L12\&")}"}{INDICATE}{BRANCH L01A};'{BRANCH L00A};"{BRANCH L00S}$;"{LET L000,"{~}"}{BRANCH L01A}E;"{LET L22\,"N "}{MENUBRANCH L00F}{MENUBRANCH L00\}{BRANCH L01A}ÿ<'Using 123-Learn:<'L00TK <Â~ð<
=$
=
L
h
=$
=
L
IG
> H3  <$AR$11 
< < < < < < <='L01T  ='$AR$9 
= = = = = = =Dÿ
>'#2- While 123-Learn is on, each keystroke made is recorded in>'L02T
 > 
> > > > > > >:ÿ
?' a macro so tasks may be repeated automatically!?'L00M ?' 
? ? ? ? ? ? ? @  @ 
@ @ @ @ @ @ @Fÿ
A'#3- 123-Learn is usually transparent to the user- you know it's A  A 
A A A A A A AFÿ
B' on only by the "CMD" indicator at the bottom of the screen. B  B 
B B B B B B B C  C 
C C C C C C CEÿ
D'#4- 123-Learn isn't transparent to the user when backslash "\" D  D 
D D D D D D D?ÿ
E' is pressed. Then, the facility brings up this menu: E  E 
E E E E E E E F  F 
F F F F F F FG'DONE

G'FIELD*
G'PAUSE* G'WAIT*
G'RESUME G'SOUNDG'~
G'MACROS G  G 
G G G G G G G H  H 
H H H H H H HEÿ
I' #4a- Pressing the [ESC] key will rid you of the menu. The I  I 
I I I I I I I5ÿJ'"\" will be typed normally and learn mode will J  J 
J J J J J J JÿK'continue. K  K 
K K K K K K KFÿ
L' #4b- The "done" feature simply embeds a terminating command L  L 
L L L L L L L5ÿM'in the macro and brings the main menu back up. M  M 
M M M M M M M:ÿN'(N.B. The command used is "{return}", not "{quit}") N  N 
N N N N N N NNO'* When using these features, check the upper-right indicator for status O  O 
O O O O O O OÿP'123-LEARN features: P  P 
P P P P P P P Q  Q 
Q Q Q Q Q Q QAÿ
R'#1- The "field" feature lets you embed pauses in the macro R  R 
R R R R R R RCÿ
S' for users to type in data. When you call this feature, S  S 
S S S S S S S T  T 
T T T T T T T 
U"FIELD7ÿU"is shown in the upper-right box (the indicator). U  U 
U U U U U U U V  V 
V V V V V V V=ÿ
W' no keystrokes will be recorded until the you press W  W 
W W W W W W W:ÿ
X' [RETURN]. Then you can continue in learn mode. X  X 
X X X X X X X Y  Y 
Y Y Y Y Y Y YAÿ
Z'#2- The "pause" feature lets you embed pauses in the macro Z  Z 
Z Z Z Z Z Z ZCÿ
[' until the user presses any key- there is no opportunity [  [ 
[ [ [ [ [ [ [2ÿ
\' for input. When you call this feature, \  \ 
\ \ \ \ \ \ \ ]  ] 
] ] ] ] ] ] ] 
^"PAUSE7ÿ^"is shown in the upper-right box (the indicator). ^  ^ 
^ ^ ^ ^ ^ ^ ^ _  _ 
_ _ _ _ _ _ _Dÿ
`' execution is suspended until a key is pressed- then learn `  ` 
` ` ` ` ` ` `ÿ
a' mode resumes. a  a 
a a a a a a aD
b'N.B.: A range named "L22\" is used by all macros with embeded b  b 
b b b b b b bE
c' pauses, deleting this range name invalidates the macros. c  c 
c c c c c c cÿd'123-LEARN features: d  d 
d d d d d d d e  e 
e e e e e e eCÿ
f'#3- The "wait" feature prompts you to input the time to wait f  f 
f f f f f f f*ÿ
g" in the format x,x,x where x is: g  g 
g g g g g g g h  h 
h h h h h h hD
i" [number of hours to wait],[minutes to wait],[and seconds]
k"WAIT7ÿk"shows in the indicator for the specified period.Fÿ
m'#4- The "sound" feature embeds and plays beeps when numbers are;ÿ
n' typed. It is turned on/off like a light switch.Dÿ
p'#5- The "resume" feature continues learn-mode as though you'd3ÿ
q' never typed "\" (note "\" is not typed).Dÿ
s'#6- If you want to type "~", you have to use the "~" feature,>ÿ
t' since "~" is a macro symbol for [RETURN], typing it@ÿ
u' directly will do the same thing as pressing [RETURN].Fÿ
w'#7- The "macro" feature brings up a menu of advanced options...#ÿx'123-LEARN advanced features:Bÿ
z'#7(cont)- The "macro" feature brings up the following menu:|'LOOP
|'KNOT|'DOWN |'IF
|'NOT|'ROUTINE|'MENU|'BELLBÿ
~'#1- Using the "loop" feature causes the macro to start overCÿ
" again from the beginning- it will stop learn mode unless>ÿ
€" you're in a conditional routine (see "if" feature).Bÿ
‚'#2- The "knot" feature funtions like the "loop", except it Dÿ
ƒ" repeats the macro from the beginning of the current macroDÿ
„" line (keep track of macro lines with the "bell" feature).F
…'N.B.: Macros with this feature can't be moved to new addresses.;ÿ
‡'#3- Using the "down" feature will force the macro to>ÿ
ˆ' write all further keystrokes in the next cell belowBÿ
‰' the cell in which it's currently writing. This happensFÿ
Š' automatically when the current cell is full unless a condi-?ÿ
‹' tional routine is in progress (see "interruptions").#ÿŒ'123-LEARN advanced features:@ÿ
Ž'#4- The "if" feature lets you specify certain keystrokes ?ÿ
" that will only be executed under certain conditions.?ÿ
" (a "conditional routine"). This menu is brought up:
’"EQUATION ’"VALUE ’"LABEL>ÿ
”" #4a- The "equation" feature prompts you to input a :ÿ•" specific equation that must be true to execute theÿ–" conditional routine.;ÿ—" #4a(1)- Not specifying any equation will cause the 3ÿ˜"conditional routine to execute as the curser™"encounters a blank cell.=ÿ
š" #4b- The "value" feature prompts for a number or a0ÿ›" numeric formula (example: +a1+(b1*c1) ).8ÿœ" #4b(1)- Not specifying any value will cause the 3ÿ"conditional routine to execute as the curser.ž"encounters any cell containing a value.#ÿ '123-LEARN advanced features:>ÿ
¢" #4c- The "label" feature prompts for a label, or a =ÿ
£" string formula (example: +a1&@left(b1,3)&c1 )<ÿ¤" #4c(1)- A label must be input in quotes ("example").5ÿ¥" #4c(2)- Do not put string formulas in quotes.9ÿ¦" #4a(1)- Not specifying any string will cause the 3ÿ§"conditional routine to execute as the curser0¨"encounters a any cell containing a label.ÿ
©" #4b- 0ÿ©" The conditional routine continues until:;ÿª" #4b(1)- You press "\d" (for "done") - This causes a;ÿ«" conditional termination of macro execution.;ÿ¬" #4b(2)- You use the "loop" or "knot" feature - This4ÿ­"causes a conditional repetition of the macro.;ÿ®" #4b(3)- You use the "down" feature - This means the4ÿ¯"macro continues normally after the condition-ÿ°"al routine is finished.ÿ
±" #4c-<ÿ±" When the routine is done, normal learn mode resumes.Eÿ
³'#5- The "not" feature executes routine if a condition's false.#ÿ´'123-LEARN advanced features:Bÿ
¶'#6- The "routine" feature causes the macro you're making toAÿ
·' invoke another macro. After entering a macro name, youEÿ
¸' tell 123-Learn what to do after the invoked macro is done.=ÿ
¹" #6a- If the invoked macro contains the "{RESTART}"7ÿº" or "{QUIT}" commands, it won't return "control",ÿ»" to the original macro when finished.Dÿ
¼" #6b- Deleting these commands will cause the invoked macro<ÿ½" to return to the original macro and execute the rest-ÿ¾" of the keystrokes you recorded there.?ÿ
¿" #6c- You are free to specify a nonexistant macro, as;ÿÀ" long as you make a macro under that name before youÿÁ" try to invoke it.Cÿ
Ã'#7- The "menu" feature calls a macro menu like the "routine"!ÿ
Ä' feature calls a macro.Cÿ
Æ'#8- The "bell" feature causes a bell to sound when 123-Learn4ÿ
Ç" fills the cell it's currently writing in.ÿÈ'123-LEARN interruptions:@ÿ
Ê'#1- 123-LEARN may occaisionally interrupt learning to ask@ÿ
Ë' if you want a specific cell's contents written over. Aÿ
Ì' This is because the current cell is full, but the nextAÿ
Í' cell already has contents. Toggle between the choices@ÿ
Î' given to alternately see both the displayed value and5ÿ
Ï' formulaic contents of the threatened cell.<ÿ
Ñ'#2- Triggering a 123-error while using 123-LEARN will@ÿ
Ò' cause the facility to display the cause of the error,?ÿ
Ó' and return you to the main menu. Control-Break will9ÿ
Ô' bring you straight to the main menu as though  ÿ
Õ" you'd type "\d(one)."Bÿ
×'#3- Erasing the worksheet or calling a new file while using?ÿ
Ø" 123-Learn will cause you to loose all macro commandsAÿ
Ù" that have been recorded since you last saved the file.Aÿ
Ú" These commands should be typed into the macro manuallyBÿ
Û" and the file should be saved before invoking the macro.(ÿÜ'123-LEARN general considerations:9ÿ
Þ'#1- Enabling 123's "protection" feature (by typing<ÿ
ß" "/w(orksheet)g(lobal)p(rotection)e(nable)") could?ÿ
à" trigger unrecoverable macro errors if the macro areaAÿ
á" isn't unprotected (temporary macro storage is directly<ÿ
â" under the 123-Learn program in your spreadsheet).Fÿ
ä'#2- Inputing invalid equations, routine names or formulas usingDÿ
å" the "macro" or "if" features will result in unrecoverableEÿ
æ" errors when a macro generated with 123-Learn is executed.Cÿ
è'#3- Starting a temporary macro while in edit mode will causeAÿ
é' unexpected results to appear on the command line whileFÿ
ê' 123-Learn is being used. This is due to Lotus 123 softwareFÿ
ë' design. Regardless of the unexpected results, the new macroDÿ
ì' will function as expected when invoked through 123-Learn.Fÿ
î'#4- Try to make the macro in the tutorial worksheet "tutor.wk1"@ÿ
ï' It will show you how 123-Learn can be fully utilized! ÿð'123-LEARN User Agreement:Fÿò'You are hereby provided a license to use 123-Learn provided the?ÿó'following conditions typical of user-supported software:Eÿ
õ'#1- Payment of billing as calculated under the billing sectionÿ
ö' of this Agreement.Bÿ
ø'#2- No receipt of any form of remuneration or considerationCÿ
ù' for distribution of this product to others beyond those Fÿ
ú' verifiable costs of disks, P.C. rentals, ect. - IndividualsBÿ
û' or institutions receiving 123-Learn will either pay theFÿ
ü' regular billing to Softsmith Enterprise or it will be payedEÿ
ý' by the distributor, provided the distributor is authorizedAÿ
þ' to do so under the distribution agreement (see below).Dÿ

'#3- In no event will the author be liable to you or any otherEÿ


' person for any damages direct, incidental or consequentialCÿ

' arising out of the use or inability to use this product.(ÿ
'123-LEARN Distribution Agreement:ÿ
'_Hÿ
'You are hereby provided a license to distribute 123-Learn free ofÿ
'|0ÿ
'charge provided the following conditions.ÿ
'|ÿ
'|Dÿ

'#1- The software and/or documentation of this product are not)ÿ


' altered in any way whatsoever.=ÿ

'#2- You don't qualify as a purchaser for those to whom7ÿ


' 123-Learn is distributed (as defined below).Kÿ
'If you distribute 123-Learn to employees or other subordinates underOÿ
'your management, or are a designated software/office supply purchaser ofKÿ
'an institution to whom 123-Learn is distributed, you are required toOÿ
'pay, or cause the institution to pay, for each user's copy as calculatedPÿ
'under the billing section of this Agreement (volume discounts available).Lÿ
'A user is defined as any individual who by requirements of employmentMÿ
'can and do use 123-Learn. Users of macros created using 123-Learn are.ÿ
'not necessarilly users as defined here.ÿ
'123-LEARN billing:Oÿ
'123-Learn costs ten dollars ($10.00) per user, with a two dollar ($2.00)Iÿ
'discount for each user beyond 1 to whom a copy is distributed by aIÿ
'purchaser as defined under the Distribution Agreement. See chart:ÿ

'Number of usersÿ
'Itemized billingÿ
'Total billing
ÿ



 


¢


ÿ

õ
"10+8
¢

ÿ
!

ÿ!
"10+8+6¢!
8@ 
  
ÿ
"
ÿ"
"10+8+6+4¢"
<@
   
ÿ
#
ÿ#
" 10+8+6+4+2#¢#
>@
    ÿ
$
"6 ad infinitumÿ$
' 10+8+6+4+2+0
¢$
Nÿ&
'N.B.: Those who do not receive this product from a purchaser as definedOÿ'
'under the Distribution Agreement are required to calculate their billing,ÿ(
'anew, counting themselves as user #1.(ÿ,
'123-LEARN User Registration Form: ÿ-
|::ÿ.
\_ÿ/
\_ÿ
/
\_ÿ/
'| Place |ÿ0
\_ÿ
0
\_ÿ0
'| Stamp |ÿ1
\_ÿ
1
\_ÿ1
'| Here |ÿ2
'`-------'ÿ7
'Softsmith Enterprisesÿ8
'1425 Denman Avenueÿ9
'Coshocton, Ohio 43812ÿ?
\_ÿ
?
\_ÿ?
\_ÿ?
\_ÿ?
\_ÿ?
\_ÿ?
\_ÿ?
\_ÿ@
'fold hereÿR
\_ÿ
R
\_ÿR
\_ÿR
\_ÿR
\_ÿR
\_ÿR
\_ÿR
\_ÿS
'fold hereOÿT
'I've found 123-Learn, Version 2.2 to be a valuable facility, here is my AÿU
'payment of billing as calculated under the User Agreement: ÿV
'IF CHECK IS NOT ENCLOSED,ÿV
'NAME OF CREDIT/ÿW
'#/USERS:ÿ
W
'________$ÿW
'ENTER CREDIT/BANK CARD NUMBERÿW
'BANK CARD:ÿX
'BILLING:ÿ
X
'$_______ÿX
\_ÿX
\_ÿX
\_ÿX
\_ÿX
\_=ÿ[
'I'd also like to order these other Softsmith products:ÿ]
'PRODUCTÿ
]
'BILLING ÿ]
"PRICEÿ]
'No./Usersÿ]
'(Discount $1 for eachÿ^
'123-LOCKÿ
^
'$_______
¢^
ÿ^
\_ÿ^
'for each user over one)ÿ_
'APGR
¢_
ÿ_
\_Aÿ`
'(Included a prestamped disk envelope with any APGR order!)+ÿa
'Ohio residents include 5½% sales taxa
' DO NOT SEND $CASH$!!!ÿb
'--(tear)-ÿ
b
\-ÿb
'--(tear)-ÿb
\-ÿb
'--(tear)-ÿb
\-ÿb
'--(tear)-ÿb
\- ÿc
|::Bÿ
e
'(Above is your payment envelope- please fold and seal edges<ÿ
f
' and sides, fill out return address, stamp and send!)9ÿh
'Other products developed by Softsmith Enterprizes:l
'123-LOCK:Cÿ
l
' Provides superior spreadsheet protection any time you need m
Dÿ
m
' it- quick keyboard lock-up/screen-blank while in a file, on n
Fÿ
n
' retrieving a file or when 123 boots-up; 123-Lock insures that o
Eÿ
o
' your files/system will be untampered with in five minutes or p
Eÿ
p
' five years! Uses your password. May be invoked from a macro. q
r
s
t
 u
'APGR:Eÿ
u
' This automated spreadsheet finds the average periodic growthFÿ
v
' rate and standard error of any time series data as a percent,Cÿ
w
' useful in forecasts and measuring your performance againstCÿ
x
' financial targets (usually expressed as percentages also!)ÿ|
'123-LEARN End:Bÿ

'Thank you for your time thus far. Hopefully 123-Learn willEÿ
€
'become a valuable productivity tool to you. If not, or if youEÿ

'see room for improvements, please use the registration form toCÿ
‚
'let us know. User supported software cannot require billingÿ
ƒ
'of unsatisfied users...Dÿ
†
'Note: Lotus and 123 are trademarks of Lotus Development Corp.(ÿŠ
'Please print manual at this time!