call97:f=0:mon2:i=mloc
s=sloc:IF S=9}140:if s>0}}if s<7}3:goto2
| MATHX.ENV file Copyright 1990 by David Denker |
#1:WOFF
#2:call4:r=s
#3
if s=1}7
if s=2}20
if s=3}40
if s=4}120
if s=5}150
if s=6}200
goto99
#4:s=0
if i>10001}}if i<10012}}s=1
if i>10011}}if i<10024}}s=2
IF I>10023}}IF I<10037}}s=3
if i>10036}}if i<10047}}s=4
IF I>10046}}IF I<10058}}s=5
if i>10067}}if i<10078}}s=6
ret
#7:i=apli:if i=2}8
EVHD H" "W" COMMANDS "H" PARAMETERS  INFORMATION  LOADùAPL  UTILITIES ":goto9
#8:EVHD H" "W" COMMANDS "H" PARAMETERS  INFORMATION  LOADùAPL  UTILITIES 
           MENUùAPL  "
#9
i=0:j=0
x=10:windd wr(x)wc20r1c1"Ù      À
 Clear the Screen
 Clear Inst. Line
 Run Application
 Go to DOS Shell
 Save Inst. Line
 Get saved Line
 Edit Application

":i=ewb:if i=14}}i=1:if i=4}}i=14:if i<>14}}i=4
WDSP L(x-2)F(i)" QUIT MATH EXTRA "
call100:if r=1}1:if r=2}99:if r=3}20:if r=5}3
moff:woff:if j<>1}10:cls:goto99
#10:if j<>2}11:clrl:goto99
#11:if j<>3}12:@:goto99
#12:if j<>4}13:dos:goto99
#13:if j<>5}14:save:goto99
#14:if j<>6}15:get:goto99
#15:if j=x-2}140
if j<>7}16:edit:goto99
#16:if j=x-2}140:goto99

#19:EVHD H"  COMMANDS "W" PARAMETERS "H" INFORMATION  LOADùAPL  UTILITIES 
           MENUùAPL  ":goto21
#20:z=ewf:a=info:a=int((a-int(a/1000)*1000)/100):i=apli:if i=2}19
EVHD H"  COMMANDS "W" PARAMETERS "H" INFORMATION  LOADùAPL  UTILITIES "
#21
x=14+a+a:windd wr(x)wc31r1c11"Ù        À
"nnnnnnnnnnnnnn
i=0:j=0
#22
p=parmp
if p=0}}wdsp L1; Printer Disabled            ;
if p=1}}wdsp L1; PRINTER Enabled             ;
p=parmg
if p=0}}wdsp L2; DEGREE Angular Mode         ;
if p=1}}wdsp L2; RADIAN Angular Mode         ;
if p=2}}wdsp L2; GRADS  Angular Mode         ;
p=parmc
if p=1}}wdsp L3" Complement Negative HEX     "
if p=0}}wdsp L3" Display Negative HEX        "
p=parma
if p=0}}wdsp L4" Answer using COMMAs         "
IF p=1}}wdsp L4" Answer using No Commas      "
p=parmr
if p=0}}wdsp L5; ROUND OFF Answer            ;
if p=1}}wdsp L5; No Rounding Off of Answer   ;
p=parme
if p=1}}wdsp L6; Scientific Notation uses E  ;
if p=0}}wdsp L6; Scientific Notation uses [] ;
p=parmx
if p=0}}wdsp L7; No Scientific Notation      ;
if p=1}}wdsp L7; SCIENTIFIC NOTATION Enabled ;
p=parmdl
wdsp L8; DIGITS LEFT  of "." =;u2.0(p);  ;
p=parmdr
wdsp L9; DIGITS RIGHT of "." =;u2.0(p);  ;
p=parmdq
wdsp L10; EREQ statement      =;u2.0(p);  ;
p=parmq
if p=1}}wdsp L11; QUIET MODE                  ;
if p=0}}wdsp L11; Quiet Mode Disabled         ;
if a=0}23
p=parmb
if p=1}}wdsp L12; BLINKING Enabled            ;
if p=0}}wdsp L12; Blinking Disabled           ;
wdsp L13; Change COLOR Setup           ;
#23
wdsp L(x-2)f(z); SAVE PARAMETERS SETUP!      ;
call 100:if r=1}1:if r=2}7:if r=3}40:if r=5}3
if j=x-3}}if a=1}60:z=ewb:if z=4}}z=1:if z=14}}z=4:if z<>4}}z=14
if j<>1}25:p=parmp:if p=0}}pon:if p=1}}poff:goto22
#25:if j<>2}26:p=parmg:if p=0}}radm:if p=1}}grad:if p=2}}degm:goto22
#26:if j<>3}27:p=parmc:if p=0}}con:if p=1}}coff:goto22
#27:if j<>4}28:p=parma:if p=0}}aoff:if p=1}}aon:goto22
#28:if j<>5}29:p=parmr:if p=0}}roff:if p=1}}ron:goto22
#29:if j<>6}30:p=parme:if p=0}}eon:if p=1}}eoff:goto22
#30:if j<>7}31:p=parmx:if p=0}}xon:if p=1}}xoff:goto22
#31:if j<>8}32:p=parmdl:call38:digl(p):goto22
#32:if j<>9}33:p=parmdr:call38:digr(p):goto22
#33:if j<>10}34:p=parmdq:call38:ereq(p):goto22
#34:if j<>11}35:p=parmq:if p=0}}qon:if p=1}}qoff:goto22
#35:if a=0}36:if j<>12}36:p=parmb:if p=0}}bon:if p=1}}boff:goto22
#36:if j<>x-2}99:savs:goto99
#38:p=data p{1,2,3,4,5,6,7,8,9,10,12,12,14,0,0}:ret

#39:EVHD H"  COMMANDS  PARAMETERS "W" INFORMATION "H" LOADùAPL  UTILITIES 
           MENUùAPL  ":goto41
#40:i=apli:if i=2}39
EVHD H"  COMMANDS  PARAMETERS "W" INFORMATION 
"H" LOADùAPL  UTILITIES "
#41:I=0:J=0:X=7:windd WR(X)WC22R1C23"Ù         À
 HELP Information
 List FUNCTION Keys
 List MEMORIES
 List VARIABLES
 About MATH EXTRA"
CALL 100:IF R=1}1:IF R=2}20:IF R=3}120:if r=5}3
WOFF:IF J<>1}42
windd wr3wc14R1C23"Ù         À
  Working!  "
$A="MATHX.HLP":RUN$A:GOTO99
#42:if j<>2}43:X=APLI:IF X=0}}X=1
windd wr(17+X)wc48"Ù         À FUNCTION KEY DEFINITIONS: 
"nnnnnnnn" F9= INSERT Last ANSWER Displayed (Not HEX)
 F10= REDO Last INSTRUCTION LINE
 S-F1= Pop-down COMMANDS Menu
 S-F2= Pop-down PARAMETERS Menu
 S-F3= Pop-down INFORMATION Menu
 S-F4= Pop-down LOADùAPL Menu
 S-F5= Pop-down UTILITIES Menu"nnn:WDSP L16
IF X=2}}WDSP; S-F6= Pop-down MENUùAPL  (APPLICATION MENU);n
WDSP" S-F10= Display HELP INFORMATION"
wdsp L1:list:MON2
I=KYIN:IF I>9999}}IF I<10079}1:if I=275}47:if I=277}48:GOTO99
#43:IF J<>3}50
getm
#44
windd wr16wc67"ÄÄÄÄÄÄÄÄÄÄÄÙ         À STRING MEMORIES: "nnnnnnnnnnnnnnn
wdsp L1" $A="$A"
 $B="$B"
 $C="$C"
 $D="$D"
 $E="$E"
 $F="$F"
 $G="$G"
 $H="$H"
 $I="$I"
 $J="$J"
 $K="$K"
 $L="$L"
 $M="$M"
      PAGE DOWN "
mon2:MON2:I=KYIN:IF I>9999}}IF I<10079}1
IF I=281}45:if I=275}47:if I=277}48:IF I<10000}99
I=MLIN:IF I=114}45:GOTO99
#45
windd "ÄÄÄÄÄÄÄÄÄÄÄÙ         À STRING MEMORIES: "nnnnnnnnnnnnnnn
wdsp L1"      PAGE UP 
 $N="$N"
 $O="$O"
 $P="$P"
 $Q="$Q"
 $R="$R"
 $S="$S"
 $T="$T"
 $U="$U"
 $V="$V"
 $W="$W"
 $X="$X"
 $Y="$Y"
 $Z="$Z
mon2:I=KYIN:IF I>9999}}IF I<10079}1
IF I=273}44:if I=275}47:if I=277}48:IF I<10000}99
I=MLIN:IF I=101}44:GOTO99
#47:goto20
#48:goto120
#50:IF J<>4}59
#51
windd wr16wc48"Ù         À VARIABLES: "nnnnnnnnnnnnnnn
WDSP L1U^14.14" A="(A')"
 B="(B')N" C="(C')N" D="(D')N" E="(E')N" F="(F')"
 G="(G')N" H="(H')N" I="(I')N" J="(J')N" K="(K')N" L="(L')N" M="(M')"
      PAGE DOWN "
mon2:I=KYIN:IF I>9999}}IF I<10079}1
IF I=281}52:if I=275}47:if I=277}48:IF I<10000}99
I=MLIN:IF I=114}52:GOTO99
#52
windd wr17"Ù         À VARIABLES: "nnnnnnnnnnnnnnnn
WDSP L1U^14.14"      PAGE UP 
 N="(N')N" O="(O')N" P="(P')N" Q="(Q')N" R="(R')N" S="(S')N" T="(T')"
 U="(U')N" V="(V')N" W="(W')N" X="(X')N" Y="(Y')N" Z="(Z')"
      PAGE DOWN "
mon2:I=KYIN:IF I>9999}}IF I<10079}1
IF I=281}53:IF I=273}51:if I=275}47:if I=277}48:IF I<10000}99
I=MLIN:IF I=115}53:IF I=101}51:GOTO99
#53
windd "Ù         À VARIABLES: "nnnnnnnnnnnnnnnn
WDSP L1U^14.14"      PAGE UP 
 A'="(A'')N" B'="(B'')N" C'="(C'')N" D'="(D'')N" E'="(E'')N" F'="(F'')"
 G'="(G'')N" H'="(H'')N" I'="(I'')N" J'="(J'')"
 K'="(K'')N" L'="(L'')N" M'="(M'')"
      PAGE DOWN "
mon2:I=KYIN:IF I>9999}}IF I<10079}1
IF I=281}54:IF I=273}52:if I=275}47:if I=277}48:IF I<10000}99
I=MLIN:IF I=115}54:IF I=101}52:GOTO99
#54
windd "Ù         À VARIABLES: "nnnnnnnnnnnnnnnn
WDSP L1U^14.14"      PAGE UP 
 N'="(N'')N" O'="(O'')N" P'="(P'')N" Q'="(Q'')N" R'="(R'')"
 S'="(S'')N" T'="(T'')N" U'="(U'')N" V'="(V'')N" W'="(W'')"
 X'="(X'')N" Y'="(Y'')N" Z'="(Z'')"
      PAGE DOWN "
mon2:I=KYIN:IF I>9999}}IF I<10079}1
IF I=281}55:IF I=273}53:if I=275}47:if I=277}48:IF I<10000}99
I=MLIN:IF I=115}55:IF I=101}53:GOTO99
#55
windd "Ù         À VARIABLES: "nnnnnnnnnnnnnnnn
WDSP L1U^14.14"      PAGE UP 
 A''="(A''')N" B''="(B''')N" C''="(C''')N" D''="(D''')N" E''="(E''')"
 F''="(F''')N" G''="(G''')N" H''="(H''')N" I''="(I''')N" J''="(J''')"
 K''="(K''')N" L''="(L''')N" M''="(M''')"
      PAGE DOWN "
mon2:I=KYIN:IF I>9999}}IF I<10079}1
IF I=281}56:IF I=273}54:if I=275}47:if I=277}48:IF I<10000}99
I=MLIN:IF I=115}56:IF I=101}54:GOTO99
#56
windd "Ù         À VARIABLES: "nnnnnnnnnnnnnnnn
WDSP L1U^14.14"      PAGE UP 
 N''="(N''')N" O''="(O''')N" P''="(P''')N" Q''="(Q''')N" R''="(R''')"
 S''="(S''')N" T''="(T''')N" U''="(U''')N" V''="(V''')N" W''="(W''')"
 X''="(X''')N" Y''="(Y''')N" Z''="(Z''')"
      PAGE DOWN "
mon2:I=KYIN:IF I>9999}}IF I<10079}1
IF I=281}57:IF I=273}55:if I=275}47:if I=277}48:IF I<10000}99
I=MLIN:IF I=115}57:IF I=101}55:GOTO99
#57
GETV
windd wr17"Ù         À VARIABLES: "nnnnnnnnnnnnnnnn
WDSP L1U^14.14"      PAGE UP 
 A'''="(A)N" B'''="(B)N" C'''="(C)N" D'''="(D)N" E'''="(E)"
 F'''="(F)N" G'''="(G)N" H'''="(H)N" I'''="(I)N" J'''="(J)"
 K'''="(K)N" L'''="(L)N" M'''="(M)"
      PAGE DOWN "
mon2:I=KYIN:IF I>9999}}IF I<10079}1
IF I=281}58:IF I=273}56:if I=275}47:if I=277}48:IF I<10000}99
I=MLIN:IF I=115}58:IF I=101}56:GOTO99
#58
GETV
windd wr16"Ù         À VARIABLES: "nnnnnnnnnnnnnnn
WDSP L1U^14.14"      PAGE UP 
 N'''="(N)N" O'''="(O)N" P'''="(P)N" Q'''="(Q)N" R'''="(R)"
 S'''="(S)N" T'''="(T)N" U'''="(U)N" V'''="(V)N" W'''="(W)"
 X'''="(X)N" Y'''="(Y)N" Z'''="(Z)
mon2:I=KYIN:IF I>9999}}IF I<10079}1
IF I=273}57:if I=275}47:if I=277}48:IF I<10000}99
I=MLIN:IF I=101}57:GOTO99
#59:IF J<>5}99
windd wr9wc28"Ù         À MATH EXTRA: 
  Copyright 1989, 1990
  By: David Denker
      204 4th Ave. S.
      Box 115
      Isanti, Mn. 55040
  Phone: 612-444-4916
   (evenings & weekends)"
MON2:I=KYIN:IF I>9999}}IF I<10079}1:if I=275}47:if I=277}48:GO99
#60
x=22:windd wr(x)wc36r1c11"Ù        ÀÄ COLOR SETUP 
"nnnnnnnnnnnnnnnnnnnn
i=0:j=0:K=0:U=MWBB:V=MWBF:W=EWF:Y=EWB
wdsp L6B(Y)F(W); MAIN SCREEN Border Background
 MAIN SCREEN Border Foreground
 APPLICATION Border Background
 APPLICATION Border Foreground
 UTILITIES Border Background
 UTILITIES Border Foreground
 Main HEADER Background
 Main HEADER Foreground
 Main MENUs Border Background
 Main MENUs Border Foreground
 Main MENUs Background
 Main MENUs Foreground
 Main MENUs SELECTION Background
 Main MENUs SELECTION Foreground;
#61
A=MWBB:B=MWBF:C=AWBB:D=AWBF:E=EWBB:F=EWBF:G=EHB:H=EHF
M=ELCB:N=ELCF:O=EWB:Q=EWF:S=UWBB:T=UWBF
WDSP L1B0;                                  
 ;B(A)F(B);ÕÍMATHX͸;B(S)F(T);ÕÍUTLS͸;B(C)F(D);ÕÍAPL͸;B(E)F(F);ÚÙMENUÀ¿;B0; 
 ;B(A)F(B);ÔÍÍÍÍÍÍ;;B(S)F(T);ÔÍÍÍÍÍ;;B(C)F(D);ÔÍÍÍÍ;;
WDSP B(E)F(F);³;B(O)F(Q); Text ;B(E)F(F);³;B0; 
 ;B(G)F(H); HEADER LINE ;B(M)F(N); SELECTION ;B(E)F(F);ÀÄÄÄÄÄÄÙ;B0;  
                                  ;
wdsp L20f(z); SAVE PARAMETERS SETUP!;
call 90:if r=1}1:if r=2}7:if r=3}40:if r=5}3
:z=ewb:if z=4}}z=1:if z=14}}z=4:if z<>4}}z=14
if j<>6}65:P=MWBB:CALL79:MWBB(P):GOTO61
#65:if j<>7}66:P=MWBF:CALL79:MWBF(P):GOTO61
#66:if j<>8}67:P=AWBB:CALL79:AWBB(P):GOTO61
#67:IF J<>9}68:P=AWBF:CALL79:AWBF(P):GOTO61
#68:IF J<>10}69:P=UWBB:CALL79:UWBB(P):GOTO61
#69:IF J<>11}70:P=UWBF:CALL79:UWBF(P):GOTO61
#70:IF J<>12}71:P=EHB:CALL79:EHB(P):GOTO61
#71:IF J<>13}72:P=EHF:CALL79:EHF(P):GOTO61
#72:IF J<>14}73:P=EWBB:CALL79:EWBB(P):GOTO61
#73:IF J<>15}74:P=EWBF:CALL79:EWBF(P):GOTO61
#74:IF J<>16}75:P=EWB:CALL79:EWB(P):GOTO61
#75:IF J<>17}76:P=EWF:CALL79:EWF(P):GOTO61
#76:IF J<>18}77:P=ELCB:CALL79:ELCB(P):GOTO61
#77:IF J<>19}78:P=ELCF:CALL79:ELCF(P):GOTO61
#78:IF J<>20}99:SAVS:GOTO80

#79:p=p+1:if p=16}}p=0:RET
#80
A=MWBB:B=MWBF:IF A<>U}82:IF B<>V}82:goto99
#82
tone68:windd wr4wc52r4c14; NOTE: 
   The MAIN SCREEN BORDER color changes will not
   take effect until the next time you use MATHX. ;
i=kyin:goto99
#90
i=mloc:if i>9999}90:wlcc L(j)
#91
k=kyck:if k>283}}if k<292}112:if k<>0}92
I=MLOC:IF I>9999}}IF I<10079}106
i=mlin:if i=0}91:if i>99}94:if i<6}91:if i=j}91
j=i:goto93
#92:if k=13}105:if k=27}99:if j=0}}if k=280}}j=5
if k=272}}if j=6}}j=0
if k=272}}if j>6}}j=j-1:if k=280}}if j<x-2}}j=j+1
if k=275}107:if k=277}108
#93:wlcc L(j):goto91
#94:i=i-int(i/100)*100:j=i:i=mloc:if i>9999}}if i<10079}91:goto105

#97:i=apli:if i=2}98
EVHD H"  COMMANDS  PARAMETERS  INFORMATION  LOADùAPL  UTILITIES ":ret
#98:EVHD H"  COMMANDS  PARAMETERS  INFORMATION  LOADùAPL  UTILITIES 
           MENUùAPL  ":ret
#99:woff:moff:call97:quit
#100:i=mloc:call4:if s<>r}}if s<>0}106
i=mlin:if i<100}101:i=i-int(i/100)*100:if i=0}100:goto110
#101:k=kyck:if k>283}}if k<292}112:if k<>0}102
I=MLOC:IF I>9999}}IF I<10079}106
i=mlin:if i=0}101:if i>99}104:if i>x-2}101:if i=j}101:j=i:goto103
#102:if k=13}105:if k=27}99
if k=272}}if j>0}}j=j-1:if k=280}}if j<x-2}}j=j+1
if k=275}107:if k=277}108:if f=0}103
if k>64}}if k<91}}k=k+32:if k>96}}if k<123}109
#103:wlcc L(j):goto101
#104:i=i-int(i/100)*100:j=i:i=mloc:if i>9999}}if i<10079}106
#105:r=0:i=mlin:if i>100}105:ret
#106:r=1:ret:|top bar|
#107:r=2:ret:|<--|
#108:r=3:ret:|-->|
#109:r=4:k=k-97:ret:|A to Z|
#110:i=mlin:i=i-int(i/100)*100:if i=j}111:j=i:wlcc L(j)
#111:i=mlin:if i<100}105:i=mloc:call4:if s<>r}}if s<>0}106:goto110
#112:r=5:s=k-283:ret:|S-F1 to S-F8|

#117
windd wr3wc12R1C36"Ù      À
 Working! ":ret
#119
EVHD H"  COMMANDS  PARAMETERS  INFORMATION "W" LOADùAPL "H" UTILITIES 
           MENUùAPL  ":goto118
#120
i=apli:if i=2}119
EVHD H"  COMMANDS  PARAMETERS  INFORMATION "W"
 LOADùAPL "H" UTILITIES "
#118
call117
Z=0:$a=fdir *.apl
if $a<>""}121
windd wr3wc19R1C36"Ù      À
 NO (.APL) FILES ":x=2
CALL100:IF R=1}1:IF R=2}40:IF R=3}150:if r=5}3:GOTO99
#121
C=1:I=0:J=0
$B=NDIR,IF $B=""}122:C=C+1
$C=NDIR,IF $C=""}122:C=C+1
$D=NDIR,IF $D=""}122:C=C+1
$E=NDIR,IF $E=""}122:C=C+1
$F=NDIR,IF $F=""}122:C=C+1
$G=NDIR,IF $G=""}122:C=C+1
$H=NDIR,IF $H=""}122:C=C+1
$I=NDIR,IF $I=""}122:C=C+1
$J=NDIR,IF $J=""}122:C=C+1
$K=NDIR,IF $K=""}122:C=C+1
#122
windd WR(C+2)WC16R1C36"Ù      À"nnnnnnnnnnnn
IF Z=1}123
WDSP L1" "$A:GOTO124
#123
WDSP L1" "$K
#124
WDSP L2" "$BN" "$CN" "$DN" "$EN" "$FN" "$GN" "$HN" "$IN" "$J"
    MORE "
X=C+2:CALL100:IF R=1}1:IF R=2}40:IF R=3}150:if r=5}3:IF Z=0}125
call117:IF J<>1}126:LOAD$K:GOTO99
#125
call117:IF J<>1}126:LOAD$A:GOTO99
#126:IF J<>2}127:LOAD$B:GOTO99
#127:IF J<>3}128:LOAD$C:GOTO99
#128:IF J<>4}129:LOAD$D:GOTO99
#129:IF J<>5}130:LOAD$E:GOTO99
#130:IF J<>6}131:LOAD$F:GOTO99
#131:IF J<>7}132:LOAD$G:GOTO99
#132:IF J<>8}133:LOAD$H:GOTO99
#133:IF J<>9}134:LOAD$I:GOTO99
#134:IF J<>10}135:LOAD$J:GOTO99
#135:IF J<>11}99:Z=1:GOTO121

#140
windd wc35wr5c21r8bb4bf15b4f14"ÄÄÄÄÄ EXITTING MATH EXTRA! 
            EXIT NOW
 SAVE VARIABLES & MEMORIES FIRST
          CANCEL EXIT!"
TONE50:MSET800:MON2:I=2:J=0
#141:if i=j}142:WLCC F0B2L(I):j=i
#142:K=KYCK
IF K=272}}IF I>1}}I=I-1
IF K=280}}IF I<3}}I=I+1:IF K=13}}IF I=1}144:IF K=13}}IF I=2}143
IF K=13}}IF I=3}99:L=MLIN:IF L=0}141:I=L
IF I<100}141:I=I-INT(I/100)*100
IF I=1}144:IF I=2}143:IF I=3}99:GOTO141
#143
SAVV
SAVM
#144:EXIT:goto99

#149
windd wr3wc12R1C46"Ù       À
 Working! ":ret
#150:i=apli:if i=2}152
EVHD H"  COMMANDS  PARAMETERS  INFORMATION 
 LOADùAPL "W" UTILITIES "H"":GOTO153
#152:EVHD H"  COMMANDS  PARAMETERS  INFORMATION  LOADùAPL "W" UTILITIES "H"
           MENUùAPL  "
#153:call149
Z=0:$a=fdir *.UTL
if $a<>""}154
windd wr3wc19R1C46"Ù       À
 NO (.UTL) FILES ":x=2
CALL100:IF R=1}1:IF R=2}120:IF R=3}200:if r=5}3:GOTO99
#154
C=1:I=0:J=0
$B=NDIR,IF $B=""}155:C=C+1
$C=NDIR,IF $C=""}155:C=C+1
$D=NDIR,IF $D=""}155:C=C+1
$E=NDIR,IF $E=""}155:C=C+1
$F=NDIR,IF $F=""}155:C=C+1
$G=NDIR,IF $G=""}155:C=C+1
$H=NDIR,IF $H=""}155:C=C+1
$I=NDIR,IF $I=""}155:C=C+1
$J=NDIR,IF $J=""}155:C=C+1
$K=NDIR,IF $K=""}155:C=C+1
#155
windd WR(C+2)WC16R1C46"Ù       À"nnnnnnnnnnnn
IF Z=1}156
WDSP L1" "$A:GOTO157
#156
WDSP L1" "$K
#157
WDSP L2" "$BN" "$CN" "$DN" "$EN" "$FN" "$GN" "$HN" "$IN" "$J"
    MORE "
X=C+2:CALL100:IF R=1}1:IF R=2}120:IF R=3}200:if r=5}3:IF Z=0}158
call149:IF J<>1}158:RUN$K:GOTO99
#158
call149:IF J<>1}159:RUN$A:GOTO99
#159:IF J<>2}160:RUN$B:GOTO99
#160:IF J<>3}161:RUN$C:GOTO99
#161:IF J<>4}162:RUN$D:GOTO99
#162:IF J<>5}163:RUN$E:GOTO99
#163:IF J<>6}164:RUN$F:GOTO99
#164:IF J<>7}165:RUN$G:GOTO99
#165:IF J<>8}166:RUN$H:GOTO99
#166:IF J<>9}167:RUN$I:GOTO99
#167:IF J<>10}168:RUN$J:GOTO99
#168:IF J<>11}99:Z=1:GOTO154

|application menu jumps here when <-- cursor key is hit|
#199:goto150
|application menu|
#200:i=apli:if i<>2}99