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

c–fc
3a
'77 7
=7 7
77777/





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

GL00A

GL00B

GL00F
%
%GL00M
7
7GL00N

GL00S
!
!GL00T
4
4GL00W



GL00\
1
1GL01A

GL01B

GL01F
*
*GL01N

GL01S
"
"GL01T
5
5GL01W

GL01\
3
3GL02A

GL02F
+
+GL02N

GL02S
#
#GL02T
6
6GL02W

GL03F
(
(GL03W

GL0IF
,
,GL12W

GL12\

GL1IF
/
/GL1SN
$
$GL22\

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

ÿ' ÿ'{MENUBRANCH LEARN}ÿ
' 123-LEARNÿ' Version 2.2 ÿ'LEARN  'GO

'NEW
'APPEND 'DISPLAY
'QUIT    (ÿ'produced by Softsmith Enterprises3 '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    ÿ' tmY 
ð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 ",

4,0))#AND#@ISERR(@FIND("{RETURN}",

4,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}    &ÿ' (c) 1987 All Rights Reserved 'L00Aj
'{INDICATE}{ONERROR L00B,L01B}{GET L000}{IF L000="\"}{INDICATE MACRO}{RECALC LEARN}{MENUBRANCH L00\}Ì{ð½{IF @ISERR(@FIND("{IF ",

4,0))}{LET 

4,@LEFT(

4,@IF(@ISERR(@FIND("{RETURN}",

4,0)),@FIND("{BRANCH ",

4,0),@FIND("{RETURN}",

4,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}   
      8
"{IF L000="{"#OR#L000="}"}{LET L000,+"{"&L000&"}"}0"{LET L000,""}{LET L22\,"N "}{BRANCH L00W}   
    K' (123-Learn is installed in this spreadsheet under "Alt-z") 
 'L01Aˆ
R ðy{IF @LENGTH(

4)>231-@LENGTH(L000)}{RECALC L01A}{IF

4sL2{LET L22\,"N "}{BRANCH L00W}{BRANCH L01F};3U
{IF @LENGTH($AR$11)>231-@LENGTH(L000)}{RECALC L01A}{LET L22\,"N "}{BRANCH L00W}    
     'L000
'    
      ÿ 'TUTORIAL SPREADSHEET  v
, ðg{IF +@S(

)<>+@S(

5)}{LET L01T,+@CELL("ADDRESS",

)}{RECALC L00T}{RECALC LEARN}3\
{IF +@S(TEST)<>+@S($AR$9)}{LET L01T,+@CELL("ADDRESS",TEST)}{RECALC L00T}{RECALC LEARN}   
    
û

ùzðì{IF L000=(@LEFT(L22\,@LENGTH(L000)-1)&"}")}{LET

4,@LEFT(

4,@LENGTH(

4)-@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} 







Mÿ'This spreadsheet has 123-Learn installed for practice only, it is best  “

ð„{LET

4,

4&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}    
    Oÿ 'to install 123-Learn according to the directions given in the documenta- 'L02A
'TEST   
    Lÿ
'tion (retrieve "123LEARN.WK1" to view/print). Don't resave this file.
'L00W

' 







 ±
Ú~
ð¢{BREAKOFF}{IF

4$

4
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}    
    Mÿ'The macro described here is very advanced. It is to show 123-Learn at  ƒ
ù~ðt{LET L02T,L02T+1}{RECALC L00T}{RECALC LEARN}{IF @CELL("TYPE",

4)=@CHAR(98)}{LET 

4,""}{BRANCH L000}3q
{LET L02T,L02T+1}{RECALC L00T}{RECALC LEARN}{IF @CELL("TYPE",$AR$11)=@CHAR(98)}{LET $AR$11,""}{BRANCH L000}    
    Oÿ'it's best, so don't get discouraged. If you know how to press keys, you  Ý
îzðÎ

4sE{LET {CONTENTS ;L02W,+

4}{CONTENTS L12W,

4,70,117}{LET L02W,+@REPEAT(" ",@MAX((74-@LENGTH(@TRIM(L02W)))/2,0))&@TRIM(L02W)}{IF @CELL("PREFIX",

4)<>""}{LET L12W,+

4}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}    
    +ÿ'know how to start using 123-Learn... 'L03W@
"{RECALC L00T}{RECALC LEARN}{MENUBRANCH L01W}{BRANCH L03W}    
     'L01Wk
²~ð\? DON'T WRITE OVER CELL

4
$

4
L

I

4$

4
L
I [DISPLAY]3,
? DON'T WRITE OVER CELL AR11 [DISPLAY]e“~
ðV? WRITE OVER CELL

4
$

4
L

I

4$

4
L
I [FORMULA]3&? WRITE OVER CELL AR11 [FORMULA]   
    ÿ'PAGE DOWN TO CONTINUE... 'L02W5
' {LONG NAME}{RETURN}>ˆ~ð/ J

mF
J

mF
 ;e

m34 {LONG NAME}{RETURN}   
    Kÿ'Assume you want to assign the price of the first "B" in the product  q
È~ðb{INDICATE}{LET L02T,L02T-1}{RECALC L00T}{RECALC LEARN}{LET

4,+

4&"{QUIT}"}{QUIT}3_
{INDICATE}{LET L02T,L02T-1}{RECALC L00T}{RECALC LEARN}{LET $AR$11,+$AR$11&"{QUIT}"}{QUIT}Er~ð6{LET

4,"J"J}{BREAKON}{BRANCH L000}3+{LET $AR$11,""}{BREAKON}{BRANCH L000}   
    Mÿ'column to the second "B". This macro is already made- invoke it using 'L12W
'{LONG NAME}{RETURN}    
    Nÿ'"Alt-z g", then call up the file again and try to recreate the macro by  'L00N
'TEMPORARY'PERMANENT   
    .ÿ'following these directions carefully...  P
"WRITE MACRO IN TEMPORARY STORAGE [IT CAN ONLY BE INVOKED USING 123-LEARN]C"WRITE NAMED MACRO IS SPECIFIC LOCATION FOR FUTURE INVOKATION   
    ÿ'Action:ÿ
' Explanation:  _
"{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)}   
    'position*0ÿ
'|Position curser on $5.00 next to first Bÿ'PRODUCT ÿ"PRICE 'L01N}
sðn{RECALC L01N}{IF @CELL("TYPE",

4)<>"b"}{BLANK 

4}{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}   
    'Alt-znt.ÿ
'|Invoke 123-Learn and start a new macroÿ'A
¢  L
"{LET L02T,0}{LET L02A,"L00M"}{RECALC L00T}{RECALC LEARN}{BRANCH L00A}N~ð?{RECALC LEARN}{ONERROR L02N}/RU

~{ONERROR L00B,L01B}3={RECALC LEARN}{ONERROR L02N}/RUTEST~{ONERROR L00B,L01B}   
    '/c~{dn}2ÿ
'|Start new macro...copy "$5.00" (move down)ÿ'C
¢ '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}   
    '{left}\md*ÿ
'|(move left)...start new macro lineÿ'B
¢ 'L01B 
'Break"{BRANCH L1SN}   
    '\mne~\mnl4ÿ
'|start routine if not blank, start routine...ÿ'D
¢
 'L00BJ
'{BREAKOFF}{IF L01B="Break"}{INDICATE BREAK}{MENUBRANCH LEARN}{QUIT}    
    '"B"~{dn}ÿ
'| if<>"B" (move down)ÿ'A
¢  ®
Ý}ðŸ{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\}    
    '\mk\mie~3ÿ
'|tie knot in routine, start routine if blankÿ'B
" 'L12\

'0,0,20    
      '\d\dq,ÿ
'|stop macro if blank, quit learn modeÿ 'A
¢  'L22\
'\   
    !'repos.*,ÿ
!'|move curser to next occurence of "B"ÿ!'C
¢! !'L00S«
!¿}ðœ
€
€{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} !  ! 
! ! ! ! !
"'Alt-za(ÿ
"'|Reinvoke 123-Learn, append macro ¢" "'L01S

" "  " 
" " " " "#'{right}~#ÿ
#'|Move right and press return #'L02S_
#'{LET L000,+@IF(@IF(@ISERR(@VALUE($L000)),0,$L000<>" "),"{BEEP "&$L000&"}",+$L000):VALUE} #  # 
# # # # #
$'\dqÿ
$'|finish macro $'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} $  $ 
$ $ $ $ $@%'* These direct curser movement, they are not to be typed! 
% %'L00F
%'LOOP%'KNOT %'DOWN 
%'IF
%'NOT%'ROUTINE%'MENU%'BELLKÿ&'This will create a macro that will copy the $5.00 to the next "B" in  &:
&'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`&s}ð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)1ÿ''the column, regardless of where it occurs.''CONTINUED...  '%
'"{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'S}
ð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'I}ð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}4ÿ('123-LEARN tutorial (continued from last page) ('L03FÅ
(æzð¶{IF @LENGTH(

4)<231-@LENGTH("{BRANCH "&L02F&"}")}{LET 

4,+

4&"{BRANCH "&L02F&"}"}{INDICATE}{IF

4sL2{MENUBRANCH LEARN}{LET L000,""}{BRANCH L00W};3
({IF @LENGTH($AR$11)<231-@LENGTH("{BRANCH "&L02F&"}")}{LET $AR$11,+$AR$11&"{BRANCH "&L02F&"}"}{INDICATE}{MENUBRANCH LEARN} (  ( 
( ({('}ðl{IF @LENGTH(

4)<231-@LENGTH(L000)-2}{LET 

4,+

4&"{"&L000&"}"}{INDICATE}{BRANCH L00A}3f({IF @LENGTH($AR$11)<231-@LENGTH(L000)-2}{LET $AR$11,+$AR$11&"{"&L000&"}"}{INDICATE}{BRANCH L00A}…(}
ðv{IF @LENGTH(

4)<231-@LENGTH(L000)-11}{LET 

4,+

4&"{MENUCALL "&L000&"}"}{INDICATE}{BRANCH L00A}3p({IF @LENGTH($AR$11)<231-@LENGTH(L000)-11}{LET $AR$11,+$AR$11&"{MENUCALL "&L000&"}"}{INDICATE}{BRANCH L00A}!("{LET L00W,""}{BRANCH L00A}  )Õ
)'{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} )  ) 
) )×)'{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}Þ)'{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} )Kÿ*'The macro you just made copies only the first B price to the second. *'L01F
*"{BEEP}{BEEP}{BEEP}{GETLABEL "NO ROOM IN CONDITIONAL ROUTINE NOW IN PROGRESS [PRESS RETURN TO RESUME]",L22\}{BRANCH L00A} *  * 
* **"{BRANCH L01F}*'{BRANCH L01F} *Iÿ+'Now append the macro to make it copy the second to the third, etc. +'L02F
+'TEST +  + 
+ + ++'{BRANCH L01F} +ÿ,'Action: ,'L0IF
,"EQUATION ,'VALUE  ,'LABEL 
, , , , ,-'position*.ÿ
-'|Put curser just right of first B againÿ-'PRODUCT ÿ-"PRICE  -F
-"EXECUTE CONDITIONAL ROUTINE ON THE TRUTH OF A SPECIFIC EQUATIONB-"EXECUTE CONDITIONAL ROUTINE WHEN CURSER ENCOUNTERS A NUMBERA -"EXECUTE CONDITIONAL ROUTINE WHEN CURSER ENCOUNTERS A LABEL 
- - - - -.'Alt-zga/ÿ
.'|Invoke 123-Learn, execute macro, appendÿ.'A
¢.  .¨
.y|ð™{INDICATE IF ?}{GETLABEL "If? ",L000}{RECALC LEARN}

F{LET L000,+"{IF "&L22\&L000&"}"}{LET L000,"{IF
€ò¿@CELLPOINTER(""TYPE"")=""b""}"};3Y
.{INDICATE IF ?}{GETLABEL "If? ",L000}{RECALC LEARN}{LET L000,+"{IF "&L22\&L000&"}"}æ.]|
ð×{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Ò.{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}æ .B|ð×{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Ò .{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} 
. . . . ./'{lft}{dn}ÿ
/'|(move left)(move down)ÿ/'C
¢/ /'L1IFg
/¬|ðX{IF @LENGTH(

4)<231-@LENGTH(L000)}{LET 

4,+

4&L000}{BRANCH L00A}3R
/{IF @LENGTH($AR$11)<231-@LENGTH(L000)}{LET $AR$11,+$AR$11&L000}{BRANCH L00A}/"{BRANCH L1IF} /"{BRANCH L1IF} 
/ / / / /0'\md\mnl/ÿ
0'|start new line, start routine it not...ÿ0'B
¢0  0Ò
0ä|
ðÃ{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¥
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} 0  0 
0 0 0 0 01'"B"~{dn}ÿ
1'|"B", (move down)ÿ1'D
¢1
 1'L00\
1'DONE 1'FIELD  1'PAUSE
1'WAIT
1'RESUME 1'SOUND1'~
1'MACROS2'\mk{rght}(ÿ
2'|tie knot in routine (move right)ÿ2'B
"2  2
2'MACRO IS FINISHED-2'INSERT A VARIABLE FIELD FOR USER INPUT. 2'INSERT A PAUSE UNTIL ANY KEY IS PRESSED'
2'INSERT A WAIT OF A SPECIFIC TIME2'RESUME LEARN MODEu2ÿ{ðf
û€ð¿IMBED BEEPS IN MACRO (NUMBERS ARE RECOGNIZED AS SOUND DESIGNATORS)DISABLE SOUND FEATURE;3H2IMBED BEEPS IN MACRO (NUMBERS ARE RECOGNIZED AS SOUND DESIGNATORS)52"IMBED "~" AS A CHARACTER FOR THE MACRO TO TYPE$2'IMBED MACRO FEATURES IN MACRO3'\mlq)ÿ
3'|loop whole macro, quit 123-Learn.ÿ3'B
"3 3'L01\Š
3é{ð{{INDICATE}{LET

4,+

4&"{RETURN}"}{IF

4sL2{MENUBRANCH LEARN}{QUIT}{LET L000,""}{BRANCH L00W};3G
3{INDICATE}{LET $AR$11,+$AR$11&"{RETURN}"}{MENUBRANCH LEARN}{QUIT}C3"{LET L22\,"N "}{LET L000,"{?}"}{INDICATE FIELD}{BRANCH L01A}J 3"{LET L22\,"N "}{LET L000,"{GET L22\}"}{INDICATE PAUSE}{BRANCH L01A}§
3'{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}3'{BRANCH L00A}3"{BRANCH L00S}$3"{LET L000,"{~}"}{BRANCH L01A}E3"{LET L22\,"N "}{MENUBRANCH L00F}{MENUBRANCH L00\}{BRANCH L01A} 4ÿ4'A
¢4 4'L00TK
4|ð<

5$

5
L
h

5$

5
L
IG

6 H3 
4$AR$11 4  4 
4 4 4 4 4ÿ5'B
"5 5'L01T 
5'$AR$9 5  5 
5 5 5 5 56ÿ6'Now the macro will copy the first $5.00 to the ÿ6'C
¢6 6'L02T

6 6  6 
6 6 6 6 65ÿ7'second occurence of "B", and will then copy itÿ7'B
"7 7'L00Mÿ
7'{goto}h29~ 7  7 
7 7 7 7 77ÿ8'to the third, then the third to the fourth, ect.ÿ
8'/c~{DOWN}{LEFT}Lÿ9'On the following page is an explantion of why the macro works. If it ‚ÿ
9'{IF #NOT#@CELLPOINTER("TYPE")="b"}{IF #NOT#(@CELLPOINTER("TYPE")="l"#AND#@CELLPOINTER("CONTENTS")="B")}{DOWN}{BRANCH $K$58}Jÿ:'doesn't work, try again making very sure you followed instructions.3ÿ
:'{IF @CELLPOINTER("TYPE")="b"}{esc 8}{RETURN}Jÿ;'If still not, reinstall 123-Learn, if still not, contact Softsmith!ÿ
;'{RIGHT}~{LEFT}{DOWN}1ÿ<'BLOW BY BLOW COMMENTARY ON TUTORIAL MACRO:|ÿ
<'{IF #NOT#(@CELLPOINTER("TYPE")="l"#AND#@CELLPOINTER("CONTENTS")="B")}{DOWN}{BRANCH $K$60}{RETURN}{QUIT}{RETURN}{QUIT}ÿ
='{RIGHT}{BRANCH $k$57}>'Alt-znt9ÿ>'First, you invoked 123-Learn by pressing "alt" and<ÿ?"z" simultaneously, you said you wanted to make a new <ÿ@'macro (blitzing the original) and wanted "temporary".A'/c~{dn}<ÿA'Then you started copying the $5.00 down the column...B'{left}\md=ÿB'You moved to the label column as your reference point,=ÿC'and then you started a new macro line - this is neces-<ÿD'sary since you're about to start a repetitive test of;ÿE'the current label to know whether to go down another=ÿF'cell or not, since you don't want the "/c~" to repeat,5ÿG'you need to make a special line for this test.H'\mne~\mnl:ÿH'Then you told your macro "if you don't see a blank,3ÿI'continue" and "if you don't see the label...J'"B"~{dn}ÿJ'"B," then move down one.
K'\mk5ÿK'Then you said "Do the same test on this cell."L'\mie~\d\dq:ÿL'Here you said "When the test fails, if you're on a 9ÿM'blank, then quit" Then you quit temporarilly to...N'repos.*7ÿN'reposition yourself at the next occurence of "B"<ÿO'Now you can say what to do when the macro sees a B...
P'Alt-za:ÿP'You got back in learn mode and appended to macro...Q'{right}~<ÿQ'You said "If none of the preceding tests were true... R7ÿR'The cell isn't not equal to "B" (hint: it's "B")ÿS'The cell is not a blank=ÿT'Then move right and press return" The $5.00 is copied!
U'\dq)ÿU'Then you quit learn mode for real.1ÿV'On the second page of the tutorial, you...W'Alt-zga=ÿW'invoked 123-Learn, invoked the macro, saw it work, and*ÿX'appended to it after it was done...Y'{lft}{dn}1ÿY'You got in the label column for reference.
Z'\md;ÿZ'Started a new macro line for similar reasons as you ÿ['had above.\'\mnl"B"~{dn}?ÿ\'And you said "If you don't see a "B", then move down..."
]'\mk*ÿ]'and do the same test on that cell!"^'{right}\mlq:ÿ^'If the cell isn't not equal to "B" (hint: it's "B")9ÿ_'then you had the macro move right (moving over the:ÿ`'$5.00 you just copied there) and told the macro to +ÿa'start over again from the beginning!Oÿb'NOTE: The \m(acro)d(own) feature used several times here is easilly for-5ÿc'gotten and is the cause of many failed macros!