General/CALC2

Home » CEEFAX disks » telesoftware1.adl » General/CALC2

General/CALC2

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » CEEFAX disks » telesoftware1.adl
Filename:	General/CALC2
Read OK:	✔
File size:	1815 bytes
Load address:	1900
Exec address:	8023

File contents

   20REM"��
   30REM"���   Calculator Listing 2
   40REM"���      Mike Rawlings
   50REM"���       22-12-1986
   60REM"��
   70REM"��
   80REM"��� For BBCB / B+ / Electron
   90REM"���  MASTER / 2nd PROCESSOR
  100REM"��
  110REM"��
  120REM"���    *TYPE Cal/Inf For
  130REM"���       Full details
  140REM"��
  400h=0:c=0:y1=0:s=FALSE:e=9:DIMi 40,d 40,key 57,M(9),P$(9):$key="MOD   "+CHR$228+CHR$229+" DIV   LOG   LN EXP   "+CHR$226+CHR$227+" COSSINTANARCEORAND   OR":t=HIMEM+72:FORo=0TO9:P$(o)="0":NEXT:PROCh
  405VDU19,0,4,0,0,0,19,1,1,0,0,0,19,2,3,0,0,0,19,3,7,0,0,0
  410ONERRORGOTO1070
  420c=0:$i="":b=TRUE:g=0
  430y1=VPOS
  440REPEAT:VDU31,c,y1
  450x=GET:IFx=9 PROCs:UNTIL0
  460IFx=13 ANDb=TRUE UNTILx=13:PRINT:GOTO420
  470IF(x=90 ORx=122)ANDb=TRUE PROCm:GOTO750
  480IFx=126 ANDb=TRUE $i=CHR$38+STR$~(a):c=LEN($i):GOTO750
  490IFx=126 UNTIL0
  500IFx=37 ANDg=0 UNTIL0:ELSEIFx=37 UNTILx=37:GOTO890
  510IFx=13 UNTILx=13:GOTO760
  520IFx=127 PROCd:GOTO750
  530IFx=21 ORx=75 ORx=107 $i="":c=0:GOTO750
  540IFx=61 ANDc=2 AND(?i=77 OR?i=80)AND(i?1>47 ANDi?1<58):GOTO740
  550IFx=72 ORx=104 PROCh:UNTIL0
  560IFx=64 PROCe:UNTIL0
  570IFx>128 UNTIL0
  580b=FALSE:IFc>38 VDU7:UNTIL0
  590IFx=40 ORx=41 ORx=38 ORx=32 ORx=94 GOTO740
  600IFx>47 ANDx<58 GOTO740
  610IFx=43 ORx=59 x=43:g=1:gc=c:GOTO740
  620IFx=47 ORx=63 x=224:g=4:gc=c:GOTO740
  630IFx=46 ORx=62 x=46:GOTO740
  640IFx=45 ORx=61 ORx=95 ORx=96 x=45:g=2:gc=c:GOTO740
  650x=(x OR&20)-32:IFx>64 ANDx<71 GOTO740
  660IFx=77 ORx=80 PROCpar:GOTO750
  670IFx=10 ORx=26 ORx=88 x=88:g=3:gc=c:GOTO740
  680IFx<29 UNTIL0
  690IFx>90 ANDx<94 UNTIL0
  700IFc>37 VDU7:UNTIL0
  710IFx=73 ORx=78 ORx=89 ORx=81 $i=$i+LEFT$($((x-71)*3+key),2):c=c+2:d?c=2:GOTO750
  720IFc>36 VDU7:UNTIL0
  730$i=$i+LEFT$($((x-71)*3+key),3):c=c+3:d?c=3:GOTO750
  740$i=$i+CHR$(x):c=c+1:d?c=1
  750PRINTTAB(0,y1)$i;SPC(39-c);:UNTIL0
  760IFi?2=61 PROCdef:GOTO880
  770IFc=3 AND(i?2=43 ORi?2=45)AND?i=77:PROCupd:$i="":c=0:GOTO880
  780a=FNv($i)
  790a2=a:m=FALSE:IFa<0 m=TRUE
  800a=ABS(a)+.5/10^e
  810$i=STR$(a-(INT(a)=0)):?i=?i+(INT(a)=0):IFa=INT(a):ELSEi?(LENSTR$(INT(a))+e+1)=13
  820c=LEN$i-1:IFc=10 PROCer
  830IFm=TRUE:$i="-"+$i
  840IFINSTR($i,".")=0 GOTO870
  850FORo=(LEN$i)-1 TO0STEP-1:IFi?o=46 i?o=13:o=0:ELSEIFi?o<>48 o=0:ELSEi?o=13
  860NEXT
  870c=LEN($i):a=EVAL($i):PROCspk1
  880PRINT'$i;:b=TRUE:FORo=0TOc+1:d?o=1:NEXT:GOTO430
  890ONg GOSUB900,910,920,930:GOTO790
  900i?gc=13:a=FNv($i)*(1+FNv($(i+gc+1))/100):RETURN
  910i?gc=13:a=FNv($i)*(1-FNv($(i+gc+1))/100):RETURN
  920a=FNv($i)/100:RETURN
  930a=FNv($i)*100:RETURN
  940DEFPROCd:IFc=0 ENDPROC:ELSEc=c-d?c:c?i=13:IFc=0 b=TRUE
  950ENDPROC
  960DEFPROCpar:$i=$i+CHR$(x):c=c+1:d?c=1:PRINTTAB(0,y1)$i;SPC(39-c);:VDU31,c,y1:REPEATx=GET:IFx=127 UNTILx=127:PROCd:ENDPROC
  970x=(x OR&20):IFi?(c-1)=80 ANDx=105 x=73:UNTILx=73:GOTO990
  980UNTILx>47 ANDx<58
  990$i=$i+CHR$(x):c=c+1:d?c=1:ENDPROC
 1000DEF FNv($t):LOCALo:o=-1:REPEAT:o=o+1:v$=LEFT$($(t+o),3)
 1010IFv$="EXP"ORv$="MOD"o=o+2:GOTO1040:ELSEIFo?t=226 $(o+t)="SQR"+$(o+t+2):o=o+2:GOTO1040:ELSEIFo?t=228 $(o+t)="PI"+$(o+t+2):o=o+1:GOTO1040:ELSEIFo?t=88 o?t=42:ELSEIFo?t=224 o?t=47:ELSEIFo?t=77 PROCbrk
 1020IFo?t=80 $(o+t)="FN"+$(o+t):o=o+2:PROCbrk:ELSEIFv$="ARC"$(o+t)="DEG"+CHR$(65)+CHR$(?(o+t+3))+$(o+t+5):o=o+6
 1030IFv$="SIN"ORv$="COS"ORv$="TAN"$(o+t+3)="RAD"+$(o+t+3):o=o+5
 1040UNTILo>(LEN($t)-2):=EVAL($t)
 1050DEFPROCbrk:$(o+t+1)=CHR$(40)+$(o+t+1):$(o+t+3)=CHR$(41)+$(o+t+3):o=o+2:ENDPROC
 1060DEFFNP(x):=FNv(P$(x))
 1070IFERR=18 SOUND-1,139,0,0:REPORT:PRINT:GOTO420
 1080IFERR=20 SOUND-1,143,0,0:SOUND-1,214,0,0:PRINT'"Too large":GOTO420
 1090IFERR=16 ORERR=26:SOUND-1,207,0,0:SOUND-1,180,0,0:SOUND-1,208,0,0:PRINT'"Incorrect input":GOTO420
 1100IFERR=21 SOUND-1,224,0,0:PRINT'"Negative root":GOTO420
 1110IFERR=22 ORERR=24 SOUND-1,206,0,0:REPORT:PRINT:GOTO420
 1120IFERR=27 SOUND-1,207,0,0:SOUND-1,178,0,0:REPORT:PRINT:GOTO420
 1130IFERR=28 SOUND-1,171,0,0:SOUND-1,229,0,0:REPORT:PRINT:GOTO420
 1140IFERR=222 SOUND-1,197,0,0:SOUND-1,227,0,0:SOUND-1,199,0,0:PRINTTAB(0,2)SPC13"FILE NOT FOUND"TAB(0,4)SPC14"PRESS SPACE":REPEAT UNTILGET=32:h=h-1:PROCh:s=FALSE:GOTO440
 1150IFERR=17 ANDs=TRUE h=h-1:PROCh:s=FALSE:GOTO440
 1160SOUND-1,193,0,0:SOUND-1,128,0,0:SOUND-1,216,0,0:a=ERL:m=FALSE:PROCspk1:MODE7:PRINT'':REPORT:PRINT" at line ";ERL:*FX4,0
 1170VDU14:END
 1180DEFPROCh:@%=0:h=(h MOD7)+1:VDU28,0,31,39,25:COLOUR129:CLS:ONh GOSUB1190,1200,1200,1210,1220,1230,1240:COLOUR128:COLOUR3:VDU28,0,21,39,5,31,c,y1:@%=&20900:ENDPROC
 1190RESTORE1420:FORo=0TO5:FORo2=0TO3:COLOUR3:READd$:PRINTd$" ";:COLOUR2:READd$:PRINTd$SPC(8-LENd$);:NEXT,:COLOUR3:PRINTTAB(30,5)e:RETURN
 1200PRINTSPC12"PROGRAMS "CHR$(h*5+38)" TO "CHR$(h*5+42):FORo=0TO4:PRINTTAB(0,o+1)"P"CHR$(o+h*5+38)" ";:COLOUR2:PRINTP$(o+h*5-10);:COLOUR3:NEXT:RETURN
 1210@%=&20900:PRINTSPC12"MEMORIES 0 TO 9":FORo=0TO4:PRINTTAB(1,o+1)"M"CHR$(o+48)"  ";:COLOUR2:PRINTM(o)TAB(20,o+1);:COLOUR3:PRINT"M"CHR$(o+48+5)"  ";:COLOUR2:PRINTM(o+5);:COLOUR3:NEXT:RETURN
 1220RESTORE1390:FORo=0TO5:PRINTSPC1;:READd$:PRINTd$:NEXT:RETURN
 1230RESTORE1400:GOTO1250
 1240RESTORE1410
 1250READd$:PRINTSPC7"CONVERSION FACTORS "d$:FORo=0TO4:PRINT" f";o+(h-6)*5;:COLOUR2:READd$:PRINTSPC2d$:COLOUR3:NEXT:RETURN
 1260DEFPROCdef:upd=0:IFi?1>57 ORi?1<48 GOTO1310
 1270IF?i=77 M((i?1)-48)=FNv($(i+3)):upd=4:GOTO1300
 1280IFINSTR($(i+3),"P"+CHR$(i?1))<>0 SOUND-1,207,0,0:SOUND-1,180,0,0:SOUND-1,247,0,0:PRINT'"Incorrect Program";:GOTO1310
 1290IF?i=80 P$((i?1)-48)=$(i+3):upd=2+(((i?1)-48)DIV5)
 1300IFh=upd:h=h-1:PROCh
 1310c=0:$i="":ENDPROC
 1320DEFPROCupd:x=i?2:IF?i<>77 ENDPROC:ELSEIFi?1>57 ORi?1<48 ENDPROC:ELSEIFx=43 M((i?1)-48)=M((i?1)-48)+a2:ELSEIFx=45 M((i?1)-48)=M((i?1)-48)-a2
 1330IFh=4 h=3:PROCh
 1340ENDPROC
 1350DEFPROCe:REPEATx=GET:IFx=127 UNTILx=127:ENDPROC:ELSEUNTILx>47 ANDx<58:e=x-48:IFh=1:h=0:PROCh
 1360ENDPROC
 1370DEFPROCm:a=-a:IFm=TRUE:$i=$(i+1):m=FALSE:ELSE$i="-"+$i:m=TRUE
 1380c=LEN($i):ENDPROC
 1390DATATo add last value calculated to M0,press <RETURN> then type M0+ or M0- to,subtract. To assign a value to M0 type,M0=<VALUE>. To define Program 0 type,P0=<PROGRAM>. Press <TAB> to save both,memories and programs to disk or tape.
 1400DATA0 TO 4,25.4        ins TO mm," 0.9144   yards TO metres"," 1.6093   miles TO kms"," 0.0929   sq ft TO sq metres"," 0.02832  cu ft TO cu metres"
 1410DATA5 TO 9," 4.546      gallons TO litres",28.35           ozs TO grams," 0.4536         lbs TO kgs"," 0.0703   lbs/sq in TO kgs/sq cm"," 0.74531        bhp TO kw"
 1420DATAG,MOD,M,MEM0RY,S,SINE,Z,+/-,H,HELP,N,NATLOG,T,TANGENT,^,POWER,I,"��",O,EXP,U,ARC,~,HEX,J,DIV,P,PROGRAM,V,EOR,%,PERCENT,K,ERASE,Q,"��",W,AND,@,DECIMAL,L,LOGRTHM,R,COSINE,Y,OR,9,PLACES
 1430DEFPROCs:SOUND-1,213,0,0:SOUND-1,127,0,0:SOUND-1,237,0,0:SOUND-1,127,0,0:SOUND-1,255,0,0:s=TRUE:VDU28,0,31,39,25:COLOUR129:CLS:COLOUR2:PRINTTAB(0,2)"Load ";:COLOUR3:PRINT"L";:COLOUR2:PRINT" or Save ";:COLOUR3:PRINT"S";:COLOUR2:PRINT" ? ";:COLOUR3
 1440REPEATx=GET:x=(x OR32)-32:UNTILx=76 ORx=83:IFx=76 PRINT"LOAD":ELSEPRINT"SAVE"
 1450SOUND-1,197,0,0:SOUND-1,223,0,0
 1460COLOUR2:PRINTTAB(0,4)"Filename ? ";:COLOUR3:CALLHIMEM
 1470IF?t=32 OR(?t=13 AND?&87=4)SOUND-1,206,0,0:GOTO1460
 1480COLOUR2:VDU31,0,4:IFx=76 PRINT"Loading"SPC3;:x=OPENIN$t:FORo=0TO9:INPUT#x,M(o),P$(o):ELSEPRINT"Saving"SPC4;:x=OPENOUT$t:FORo=0TO9:PRINT#x,M(o),P$(o)
 1490NEXT:CLOSE#x:COLOUR3:h=h-1:PROCh:s=FALSE:ENDPROC
 1500DEFPROCspk1:x=INTABSa:$t=STR$(x):IFm=TRUE SOUND-1,45,0,0
 1510IFx>9999:PROCspk2:GOTO1530
 1520IFx=1000 SOUND-1,49,0,0:SOUND-1,141,0,0:ELSEIFx>999 PROCspk3:t=t+2:PROCspk4:t=t-2:ELSEIFx>99 SOUND-1,?t,0,0:t=t+1:PROCspk4:t=t-1:ELSEIFx>9 PROCspk3:ELSEIF?t=48 SOUND-1,79,0,0:ELSESOUND-1,?t,0,0
 1530IFx=ABSa ENDPROC:ELSE$t=$(i+LEN$t-m):PROCspk2:ENDPROC
 1540DEFPROCspk2:FORo=0TO(LEN$t)-1:IFt?o=48:SOUND-1,79,0,0:ELSESOUND-1,t?o,0,0
 1550NEXT:ENDPROC
 1560DEFPROCspk3:$(t+20)=LEFT$($t,2):o=EVAL($(t+20))
 1570IFo>19:SOUND-1,t?20-16,0,0:SOUND-1,137,0,0:ELSEIFo>12 SOUND-1,t?21*2+44,0,0:SOUND-1,135,0,0:ENDPROC:ELSEIFo=10 SOUND-1,33,0,0:ELSEIFo=11 SOUND-1,190,0,0:ELSEIFo=12 SOUND-1,273,0,0:ENDPROC
 1580IFt?21=48 ENDPROC:ELSESOUND-1,t?21,0,0:ENDPROC
 1590DEFPROCspk4:IF?t=48 ANDt?1=48 SOUND-1,140,0,0:ENDPROC:ELSEIF?t=48 SOUND-1,79,0,0
 1600PROCspk3:ENDPROC
 1610DEFPROCer:IFi?c=49 ORi?c=48 i?c=48:ENDPROC:ELSEIFi?c<>57 ENDPROC:ELSEREPEAT:i?c=48:c=c-1:UNTILi?c<>57:i?c=i?c+1:ENDPROC

�"��
 �"���   Calculator Listing 2
(�"���      Mike Rawlings
2�"���       22-12-1986
<�"��
F�"��
P"�"��� For BBCB / B+ / Electron
Z!�"���  MASTER / 2nd PROCESSOR
d�"��
n�"��
x�"���    *TYPE Cal/Inf For
��"���       Full details
��"��
��h=0:c=0:y1=0:s=�:e=9:�i 40,d 40,key 57,M(9),P$(9):$key="MOD   "+�228+�229+" DIV   LOG   LN EXP   "+�226+�227+" COSSINTANARCEORAND   OR":t=�+72:�o=0�9:P$(o)="0":�:�h
�8�19,0,4,0,0,0,19,1,1,0,0,0,19,2,3,0,0,0,19,3,7,0,0,0
���TnD
�c=0:$i="":b=�:g=0
�y1=�
��:�31,c,y1
�x=�:�x=9 �s:�0
��x=13 �b=� �x=13:�:�tdA
��(x=90 �x=122)�b=� �m:�dnB
�*�x=126 �b=� $i=�38+�~(a):c=�($i):�dnB
�
�x=126 �0
�$�x=37 �g=0 �0:��x=37 �x=37:�DzC
��x=13 �x=13:�dxB
�x=127 �d:�dnB
&�x=21 �x=75 �x=107 $i="":c=0:�dnB
5�x=61 �c=2 �(?i=77 �?i=80)�(i?1>47 �i?1<58):�ddB
&�x=72 �x=104 �h:�0
0�x=64 �e:�0
:
�x>128 �0
Db=�:�c>38 �7:�0
N'�x=40 �x=41 �x=38 �x=32 �x=94 �ddB
X�x>47 �x<58 �ddB
b#�x=43 �x=59 x=43:g=1:gc=c:�ddB
l$�x=47 �x=63 x=224:g=4:gc=c:�ddB
v�x=46 �x=62 x=46:�ddB
�/�x=45 �x=61 �x=95 �x=96 x=45:g=2:gc=c:�ddB
�#x=(x �&20)-32:�x>64 �x<71 �ddB
��x=77 �x=80 �par:�dnB
�)�x=10 �x=26 �x=88 x=88:g=3:gc=c:�ddB
��x<29 �0
��x>90 �x<94 �0
��c>37 �7:�0
�G�x=73 �x=78 �x=89 �x=81 $i=$i+�$((x-71)*3+key),2):c=c+2:d?c=2:�dnB
��c>36 �7:�0
�/$i=$i+�$((x-71)*3+key),3):c=c+3:d?c=3:�dnB
�$i=$i+�(x):c=c+1:d?c=1
��0,y1)$i;�(39-c);:�0
��i?2=61 �def:�DpC
5�c=3 �(i?2=43 �i?2=45)�?i=77:�upd:$i="":c=0:�DpC
a=�v($i)
a2=a:m=�:�a<0 m=�
 a=�(a)+.5/10^e
*@$i=�(a-(�(a)=0)):?i=?i+(�(a)=0):�a=�(a):�i?(��(�(a))+e+1)=13
4c=�$i-1:�c=10 �er
>�m=�:$i="-"+$i
H�$i,".")=0 �DfC
R=�o=(�$i)-1 �0�-1:�i?o=46 i?o=13:o=0:��i?o<>48 o=0:�i?o=13
\�
fc=�($i):a=�($i):�spk1
p$�'$i;:b=�:�o=0�c+1:d?o=1:�:�tnA
z!�g �tDC,�tNC,�tXC,�tbC:�TVC
�,i?gc=13:a=�v($i)*(1+�v($(i+gc+1))/100):�
�,i?gc=13:a=�v($i)*(1-�v($(i+gc+1))/100):�
�a=�v($i)/100:�
�a=�v($i)*100:�
�'��d:�c=0 �:�c=c-d?c:c?i=13:�c=0 b=�
��
�T��par:$i=$i+�(x):c=c+1:d?c=1:�0,y1)$i;�(39-c);:�31,c,y1:�x=�:�x=127 �x=127:�d:�
�2x=(x �&20):�i?(c-1)=80 �x=105 x=73:�x=73:�d^C
��x>47 �x<58
�$i=$i+�(x):c=c+1:d?c=1:�
�*� �v($t):�o:o=-1:�:o=o+1:v$=�$(t+o),3)
��v$="EXP"�v$="MOD"o=o+2:�TPD:��o?t=226 $(o+t)="SQR"+$(o+t+2):o=o+2:�TPD:��o?t=228 $(o+t)="PI"+$(o+t+2):o=o+1:�TPD:��o?t=88 o?t=42:��o?t=224 o?t=47:��o?t=77 �brk
�a�o?t=80 $(o+t)="FN"+$(o+t):o=o+2:�brk:��v$="ARC"$(o+t)="DEG"+�(65)+�(?(o+t+3))+$(o+t+5):o=o+6
<�v$="SIN"�v$="COS"�v$="TAN"$(o+t+3)="RAD"+$(o+t+3):o=o+5
�o>(�($t)-2):=�($t)
A��brk:$(o+t+1)=�(40)+$(o+t+1):$(o+t+3)=�(41)+$(o+t+3):o=o+2:�
$ݤP(x):=�v(P$(x))
.�=18 �-1,139,0,0:�:�:�tdA
85�=20 �-1,143,0,0:�-1,214,0,0:�'"Too large":�tdA
BM�=16 ��=26:�-1,207,0,0:�-1,180,0,0:�-1,208,0,0:�'"Incorrect input":�tdA
L-�=21 �-1,224,0,0:�'"Negative root":�tdA
V%�=22 ��=24 �-1,206,0,0:�:�:�tdA
`+�=27 �-1,207,0,0:�-1,178,0,0:�:�:�tdA
j+�=28 �-1,171,0,0:�-1,229,0,0:�:�:�tdA
tx�=222 �-1,197,0,0:�-1,227,0,0:�-1,199,0,0:�0,2)�13"FILE NOT FOUND"�0,4)�14"PRESS SPACE":� ��=32:h=h-1:�h:s=�:�txA
~!�=17 �s=� h=h-1:�h:s=�:�txA
�T�-1,193,0,0:�-1,128,0,0:�-1,216,0,0:a=�:m=�:�spk1:�7:�'':�:�" at line ";�:*FX4,0
�	�14:�
�~��h:@%=0:h=(h �7)+1:�28,0,31,39,25:�129:�:�h �tfD,�tpD,�tpD,�tzD,�dDD,�dND,�dXD:�128:�3:�28,0,21,39,5,31,c,y1:@%=&20900:�
�L��tLE:�o=0�5:�o2=0�3:�3:�d$:�d$" ";:�2:�d$:�d$�(8-�d$);:�,:�3:�30,5)e:�
�f�12"PROGRAMS "�(h*5+38)" TO "�(h*5+42):�o=0�4:�0,o+1)"P"�(o+h*5+38)" ";:�2:�P$(o+h*5-10);:�3:�:�
�}@%=&20900:�12"MEMORIES 0 TO 9":�o=0�4:�1,o+1)"M"�(o+48)"  ";:�2:�M(o)�20,o+1);:�3:�"M"�(o+48+5)"  ";:�2:�M(o+5);:�3:�:�
�!��DnE:�o=0�5:�1;:�d$:�d$:�:�
���DxE:�dbD
�	��tBE
�N�d$:�7"CONVERSION FACTORS "d$:�o=0�4:�" f";o+(h-6)*5;:�2:�d$:�2d$:�3:�:�
�%��def:upd=0:�i?1>57 �i?1<48 �T^E
�-�?i=77 M((i?1)-48)=�v($(i+3)):upd=4:�TTE
\�$(i+3),"P"+�(i?1))<>0 �-1,207,0,0:�-1,180,0,0:�-1,247,0,0:�'"Incorrect Program";:�T^E

3�?i=80 P$((i?1)-48)=$(i+3):upd=2+(((i?1)-48)�5)
�h=upd:h=h-1:�h
c=0:$i="":�
(p��upd:x=i?2:�?i<>77 �:��i?1>57 �i?1<48 �:��x=43 M((i?1)-48)=M((i?1)-48)+a2:��x=45 M((i?1)-48)=M((i?1)-48)-a2
2�h=4 h=3:�h
<�
F<��e:�x=�:�x=127 �x=127:�:��x>47 �x<58:e=x-48:�h=1:h=0:�h
P�
Z.��m:a=-a:�m=�:$i=$(i+1):m=�:�$i="-"+$i:m=�
d
c=�($i):�
n��To add last value calculated to M0,press <RETURN> then type M0+ or M0- to,subtract. To assign a value to M0 type,M0=<VALUE>. To define Program 0 type,P0=<PROGRAM>. Press <TAB> to save both,memories and programs to disk or tape.
x��0 TO 4,25.4        ins TO mm," 0.9144   yards TO metres"," 1.6093   miles TO kms"," 0.0929   sq ft TO sq metres"," 0.02832  cu ft TO cu metres"
���5 TO 9," 4.546      gallons TO litres",28.35           ozs TO grams," 0.4536         lbs TO kgs"," 0.0703   lbs/sq in TO kgs/sq cm"," 0.74531        bhp TO kw"
���G,MOD,M,MEM0RY,S,SINE,Z,+/-,H,HELP,N,NATLOG,T,TANGENT,^,POWER,I,"��",O,EXP,U,ARC,~,HEX,J,DIV,P,PROGRAM,V,EOR,%,PERCENT,K,ERASE,Q,"��",W,AND,@,DECIMAL,L,LOGRTHM,R,COSINE,Y,OR,9,PLACES
����s:�-1,213,0,0:�-1,127,0,0:�-1,237,0,0:�-1,127,0,0:�-1,255,0,0:s=�:�28,0,31,39,25:�129:�:�2:�0,2)"Load ";:�3:�"L";:�2:�" or Save ";:�3:�"S";:�2:�" ? ";:�3
�8�x=�:x=(x �32)-32:�x=76 �x=83:�x=76 �"LOAD":��"SAVE"
��-1,197,0,0:�-1,223,0,0
�!�2:�0,4)"Filename ? ";:�3:֓
�,�?t=32 �(?t=13 �?&87=4)�-1,206,0,0:�ttE
�h�2:�31,0,4:�x=76 �"Loading"�3;:x=�$t:�o=0�9:�#x,M(o),P$(o):��"Saving"�4;:x=�$t:�o=0�9:�#x,M(o),P$(o)
��:�#x:�3:h=h-1:�h:s=�:�
�(��spk1:x=��a:$t=�(x):�m=� �-1,45,0,0
��x>9999:�spk2:�dzE
��x=1000 �-1,49,0,0:�-1,141,0,0:��x>999 �spk3:t=t+2:�spk4:t=t-2:��x>99 �-1,?t,0,0:t=t+1:�spk4:t=t-1:��x>9 �spk3:��?t=48 �-1,79,0,0:��-1,?t,0,0
�"�x=�a �:�$t=$(i+�$t-m):�spk2:�
7��spk2:�o=0�(�$t)-1:�t?o=48:�-1,79,0,0:��-1,t?o,0,0
�:�
&��spk3:$(t+20)=�$t,2):o=�($(t+20))
"��o>19:�-1,t?20-16,0,0:�-1,137,0,0:��o>12 �-1,t?21*2+44,0,0:�-1,135,0,0:�:��o=10 �-1,33,0,0:��o=11 �-1,190,0,0:��o=12 �-1,273,0,0:�
,�t?21=48 �:��-1,t?21,0,0:�
6:��spk4:�?t=48 �t?1=48 �-1,140,0,0:�:��?t=48 �-1,79,0,0
@�spk3:�
JR��er:�i?c=49 �i?c=48 i?c=48:�:��i?c<>57 �:��:i?c=48:c=c-1:�i?c<>57:i?c=i?c+1:�
�

00000000  0d 00 14 08 f4 22 86 9d  0d 00 1e 20 f4 22 86 9d  |....."..... ."..|
00000010  84 20 20 20 43 61 6c 63  75 6c 61 74 6f 72 20 4c  |.   Calculator L|
00000020  69 73 74 69 6e 67 20 32  0d 00 28 1c f4 22 86 9d  |isting 2..(.."..|
00000030  84 20 20 20 20 20 20 4d  69 6b 65 20 52 61 77 6c  |.      Mike Rawl|
00000040  69 6e 67 73 0d 00 32 1a  f4 22 86 9d 84 20 20 20  |ings..2.."...   |
00000050  20 20 20 20 32 32 2d 31  32 2d 31 39 38 36 0d 00  |    22-12-1986..|
00000060  3c 08 f4 22 86 9d 0d 00  46 08 f4 22 83 9d 0d 00  |<.."....F.."....|
00000070  50 22 f4 22 83 9d 81 20  46 6f 72 20 42 42 43 42  |P"."... For BBCB|
00000080  20 2f 20 42 2b 20 2f 20  45 6c 65 63 74 72 6f 6e  | / B+ / Electron|
00000090  0d 00 5a 21 f4 22 83 9d  81 20 20 4d 41 53 54 45  |..Z!."...  MASTE|
000000a0  52 20 2f 20 32 6e 64 20  50 52 4f 43 45 53 53 4f  |R / 2nd PROCESSO|
000000b0  52 0d 00 64 08 f4 22 83  9d 0d 00 6e 08 f4 22 84  |R..d.."....n..".|
000000c0  9d 0d 00 78 1e f4 22 84  9d 87 20 20 20 20 2a 54  |...x.."...    *T|
000000d0  59 50 45 20 43 61 6c 2f  49 6e 66 20 46 6f 72 0d  |YPE Cal/Inf For.|
000000e0  00 82 1c f4 22 84 9d 87  20 20 20 20 20 20 20 46  |...."...       F|
000000f0  75 6c 6c 20 64 65 74 61  69 6c 73 0d 00 8c 08 f4  |ull details.....|
00000100  22 84 9d 0d 01 90 a8 68  3d 30 3a 63 3d 30 3a 79  |"......h=0:c=0:y|
00000110  31 3d 30 3a 73 3d a3 3a  65 3d 39 3a de 69 20 34  |1=0:s=.:e=9:.i 4|
00000120  30 2c 64 20 34 30 2c 6b  65 79 20 35 37 2c 4d 28  |0,d 40,key 57,M(|
00000130  39 29 2c 50 24 28 39 29  3a 24 6b 65 79 3d 22 4d  |9),P$(9):$key="M|
00000140  4f 44 20 20 20 22 2b bd  32 32 38 2b bd 32 32 39  |OD   "+.228+.229|
00000150  2b 22 20 44 49 56 20 20  20 4c 4f 47 20 20 20 4c  |+" DIV   LOG   L|
00000160  4e 20 45 58 50 20 20 20  22 2b bd 32 32 36 2b bd  |N EXP   "+.226+.|
00000170  32 32 37 2b 22 20 43 4f  53 53 49 4e 54 41 4e 41  |227+" COSSINTANA|
00000180  52 43 45 4f 52 41 4e 44  20 20 20 4f 52 22 3a 74  |RCEORAND   OR":t|
00000190  3d 93 2b 37 32 3a e3 6f  3d 30 b8 39 3a 50 24 28  |=.+72:.o=0.9:P$(|
000001a0  6f 29 3d 22 30 22 3a ed  3a f2 68 0d 01 95 38 ef  |o)="0":.:.h...8.|
000001b0  31 39 2c 30 2c 34 2c 30  2c 30 2c 30 2c 31 39 2c  |19,0,4,0,0,0,19,|
000001c0  31 2c 31 2c 30 2c 30 2c  30 2c 31 39 2c 32 2c 33  |1,1,0,0,0,19,2,3|
000001d0  2c 30 2c 30 2c 30 2c 31  39 2c 33 2c 37 2c 30 2c  |,0,0,0,19,3,7,0,|
000001e0  30 2c 30 0d 01 9a 0b ee  85 e5 8d 54 6e 44 0d 01  |0,0........TnD..|
000001f0  a4 15 63 3d 30 3a 24 69  3d 22 22 3a 62 3d b9 3a  |..c=0:$i="":b=.:|
00000200  67 3d 30 0d 01 ae 08 79  31 3d bc 0d 01 b8 0e f5  |g=0....y1=......|
00000210  3a ef 33 31 2c 63 2c 79  31 0d 01 c2 12 78 3d a5  |:.31,c,y1....x=.|
00000220  3a e7 78 3d 39 20 f2 73  3a fd 30 0d 01 cc 1c e7  |:.x=9 .s:.0.....|
00000230  78 3d 31 33 20 80 62 3d  b9 20 fd 78 3d 31 33 3a  |x=13 .b=. .x=13:|
00000240  f1 3a e5 8d 74 64 41 0d  01 d6 1f e7 28 78 3d 39  |.:..tdA.....(x=9|
00000250  30 20 84 78 3d 31 32 32  29 80 62 3d b9 20 f2 6d  |0 .x=122).b=. .m|
00000260  3a e5 8d 64 6e 42 0d 01  e0 2a e7 78 3d 31 32 36  |:..dnB...*.x=126|
00000270  20 80 62 3d b9 20 24 69  3d bd 33 38 2b c3 7e 28  | .b=. $i=.38+.~(|
00000280  61 29 3a 63 3d a9 28 24  69 29 3a e5 8d 64 6e 42  |a):c=.($i):..dnB|
00000290  0d 01 ea 0d e7 78 3d 31  32 36 20 fd 30 0d 01 f4  |.....x=126 .0...|
000002a0  24 e7 78 3d 33 37 20 80  67 3d 30 20 fd 30 3a 8b  |$.x=37 .g=0 .0:.|
000002b0  e7 78 3d 33 37 20 fd 78  3d 33 37 3a e5 8d 44 7a  |.x=37 .x=37:..Dz|
000002c0  43 0d 01 fe 15 e7 78 3d  31 33 20 fd 78 3d 31 33  |C.....x=13 .x=13|
000002d0  3a e5 8d 64 78 42 0d 02  08 13 e7 78 3d 31 32 37  |:..dxB.....x=127|
000002e0  20 f2 64 3a e5 8d 64 6e  42 0d 02 12 26 e7 78 3d  | .d:..dnB...&.x=|
000002f0  32 31 20 84 78 3d 37 35  20 84 78 3d 31 30 37 20  |21 .x=75 .x=107 |
00000300  24 69 3d 22 22 3a 63 3d  30 3a e5 8d 64 6e 42 0d  |$i="":c=0:..dnB.|
00000310  02 1c 35 e7 78 3d 36 31  20 80 63 3d 32 20 80 28  |..5.x=61 .c=2 .(|
00000320  3f 69 3d 37 37 20 84 3f  69 3d 38 30 29 80 28 69  |?i=77 .?i=80).(i|
00000330  3f 31 3e 34 37 20 80 69  3f 31 3c 35 38 29 3a e5  |?1>47 .i?1<58):.|
00000340  8d 64 64 42 0d 02 26 16  e7 78 3d 37 32 20 84 78  |.ddB..&..x=72 .x|
00000350  3d 31 30 34 20 f2 68 3a  fd 30 0d 02 30 0f e7 78  |=104 .h:.0..0..x|
00000360  3d 36 34 20 f2 65 3a fd  30 0d 02 3a 0d e7 78 3e  |=64 .e:.0..:..x>|
00000370  31 32 38 20 fd 30 0d 02  44 13 62 3d a3 3a e7 63  |128 .0..D.b=.:.c|
00000380  3e 33 38 20 ef 37 3a fd  30 0d 02 4e 27 e7 78 3d  |>38 .7:.0..N'.x=|
00000390  34 30 20 84 78 3d 34 31  20 84 78 3d 33 38 20 84  |40 .x=41 .x=38 .|
000003a0  78 3d 33 32 20 84 78 3d  39 34 20 e5 8d 64 64 42  |x=32 .x=94 ..ddB|
000003b0  0d 02 58 15 e7 78 3e 34  37 20 80 78 3c 35 38 20  |..X..x>47 .x<58 |
000003c0  e5 8d 64 64 42 0d 02 62  23 e7 78 3d 34 33 20 84  |..ddB..b#.x=43 .|
000003d0  78 3d 35 39 20 78 3d 34  33 3a 67 3d 31 3a 67 63  |x=59 x=43:g=1:gc|
000003e0  3d 63 3a e5 8d 64 64 42  0d 02 6c 24 e7 78 3d 34  |=c:..ddB..l$.x=4|
000003f0  37 20 84 78 3d 36 33 20  78 3d 32 32 34 3a 67 3d  |7 .x=63 x=224:g=|
00000400  34 3a 67 63 3d 63 3a e5  8d 64 64 42 0d 02 76 1a  |4:gc=c:..ddB..v.|
00000410  e7 78 3d 34 36 20 84 78  3d 36 32 20 78 3d 34 36  |.x=46 .x=62 x=46|
00000420  3a e5 8d 64 64 42 0d 02  80 2f e7 78 3d 34 35 20  |:..ddB.../.x=45 |
00000430  84 78 3d 36 31 20 84 78  3d 39 35 20 84 78 3d 39  |.x=61 .x=95 .x=9|
00000440  36 20 78 3d 34 35 3a 67  3d 32 3a 67 63 3d 63 3a  |6 x=45:g=2:gc=c:|
00000450  e5 8d 64 64 42 0d 02 8a  23 78 3d 28 78 20 84 26  |..ddB...#x=(x .&|
00000460  32 30 29 2d 33 32 3a e7  78 3e 36 34 20 80 78 3c  |20)-32:.x>64 .x<|
00000470  37 31 20 e5 8d 64 64 42  0d 02 94 1a e7 78 3d 37  |71 ..ddB.....x=7|
00000480  37 20 84 78 3d 38 30 20  f2 70 61 72 3a e5 8d 64  |7 .x=80 .par:..d|
00000490  6e 42 0d 02 9e 29 e7 78  3d 31 30 20 84 78 3d 32  |nB...).x=10 .x=2|
000004a0  36 20 84 78 3d 38 38 20  78 3d 38 38 3a 67 3d 33  |6 .x=88 x=88:g=3|
000004b0  3a 67 63 3d 63 3a e5 8d  64 64 42 0d 02 a8 0c e7  |:gc=c:..ddB.....|
000004c0  78 3c 32 39 20 fd 30 0d  02 b2 12 e7 78 3e 39 30  |x<29 .0.....x>90|
000004d0  20 80 78 3c 39 34 20 fd  30 0d 02 bc 0f e7 63 3e  | .x<94 .0.....c>|
000004e0  33 37 20 ef 37 3a fd 30  0d 02 c6 47 e7 78 3d 37  |37 .7:.0...G.x=7|
000004f0  33 20 84 78 3d 37 38 20  84 78 3d 38 39 20 84 78  |3 .x=78 .x=89 .x|
00000500  3d 38 31 20 24 69 3d 24  69 2b c0 24 28 28 78 2d  |=81 $i=$i+.$((x-|
00000510  37 31 29 2a 33 2b 6b 65  79 29 2c 32 29 3a 63 3d  |71)*3+key),2):c=|
00000520  63 2b 32 3a 64 3f 63 3d  32 3a e5 8d 64 6e 42 0d  |c+2:d?c=2:..dnB.|
00000530  02 d0 0f e7 63 3e 33 36  20 ef 37 3a fd 30 0d 02  |....c>36 .7:.0..|
00000540  da 2f 24 69 3d 24 69 2b  c0 24 28 28 78 2d 37 31  |./$i=$i+.$((x-71|
00000550  29 2a 33 2b 6b 65 79 29  2c 33 29 3a 63 3d 63 2b  |)*3+key),3):c=c+|
00000560  33 3a 64 3f 63 3d 33 3a  e5 8d 64 6e 42 0d 02 e4  |3:d?c=3:..dnB...|
00000570  1a 24 69 3d 24 69 2b bd  28 78 29 3a 63 3d 63 2b  |.$i=$i+.(x):c=c+|
00000580  31 3a 64 3f 63 3d 31 0d  02 ee 19 f1 8a 30 2c 79  |1:d?c=1......0,y|
00000590  31 29 24 69 3b 89 28 33  39 2d 63 29 3b 3a fd 30  |1)$i;.(39-c);:.0|
000005a0  0d 02 f8 16 e7 69 3f 32  3d 36 31 20 f2 64 65 66  |.....i?2=61 .def|
000005b0  3a e5 8d 44 70 43 0d 03  02 35 e7 63 3d 33 20 80  |:..DpC...5.c=3 .|
000005c0  28 69 3f 32 3d 34 33 20  84 69 3f 32 3d 34 35 29  |(i?2=43 .i?2=45)|
000005d0  80 3f 69 3d 37 37 3a f2  75 70 64 3a 24 69 3d 22  |.?i=77:.upd:$i="|
000005e0  22 3a 63 3d 30 3a e5 8d  44 70 43 0d 03 0c 0c 61  |":c=0:..DpC....a|
000005f0  3d a4 76 28 24 69 29 0d  03 16 15 61 32 3d 61 3a  |=.v($i)....a2=a:|
00000600  6d 3d a3 3a e7 61 3c 30  20 6d 3d b9 0d 03 20 12  |m=.:.a<0 m=... .|
00000610  61 3d 94 28 61 29 2b 2e  35 2f 31 30 5e 65 0d 03  |a=.(a)+.5/10^e..|
00000620  2a 40 24 69 3d c3 28 61  2d 28 a8 28 61 29 3d 30  |*@$i=.(a-(.(a)=0|
00000630  29 29 3a 3f 69 3d 3f 69  2b 28 a8 28 61 29 3d 30  |)):?i=?i+(.(a)=0|
00000640  29 3a e7 61 3d a8 28 61  29 3a 8b 69 3f 28 a9 c3  |):.a=.(a):.i?(..|
00000650  28 a8 28 61 29 29 2b 65  2b 31 29 3d 31 33 0d 03  |(.(a))+e+1)=13..|
00000660  34 15 63 3d a9 24 69 2d  31 3a e7 63 3d 31 30 20  |4.c=.$i-1:.c=10 |
00000670  f2 65 72 0d 03 3e 12 e7  6d 3d b9 3a 24 69 3d 22  |.er..>..m=.:$i="|
00000680  2d 22 2b 24 69 0d 03 48  15 e7 a7 24 69 2c 22 2e  |-"+$i..H...$i,".|
00000690  22 29 3d 30 20 e5 8d 44  66 43 0d 03 52 3d e3 6f  |")=0 ..DfC..R=.o|
000006a0  3d 28 a9 24 69 29 2d 31  20 b8 30 88 2d 31 3a e7  |=(.$i)-1 .0.-1:.|
000006b0  69 3f 6f 3d 34 36 20 69  3f 6f 3d 31 33 3a 6f 3d  |i?o=46 i?o=13:o=|
000006c0  30 3a 8b e7 69 3f 6f 3c  3e 34 38 20 6f 3d 30 3a  |0:..i?o<>48 o=0:|
000006d0  8b 69 3f 6f 3d 31 33 0d  03 5c 05 ed 0d 03 66 19  |.i?o=13..\....f.|
000006e0  63 3d a9 28 24 69 29 3a  61 3d a0 28 24 69 29 3a  |c=.($i):a=.($i):|
000006f0  f2 73 70 6b 31 0d 03 70  24 f1 27 24 69 3b 3a 62  |.spk1..p$.'$i;:b|
00000700  3d b9 3a e3 6f 3d 30 b8  63 2b 31 3a 64 3f 6f 3d  |=.:.o=0.c+1:d?o=|
00000710  31 3a ed 3a e5 8d 74 6e  41 0d 03 7a 21 ee 67 20  |1:.:..tnA..z!.g |
00000720  e4 8d 74 44 43 2c 8d 74  4e 43 2c 8d 74 58 43 2c  |..tDC,.tNC,.tXC,|
00000730  8d 74 62 43 3a e5 8d 54  56 43 0d 03 84 2c 69 3f  |.tbC:..TVC...,i?|
00000740  67 63 3d 31 33 3a 61 3d  a4 76 28 24 69 29 2a 28  |gc=13:a=.v($i)*(|
00000750  31 2b a4 76 28 24 28 69  2b 67 63 2b 31 29 29 2f  |1+.v($(i+gc+1))/|
00000760  31 30 30 29 3a f8 0d 03  8e 2c 69 3f 67 63 3d 31  |100):....,i?gc=1|
00000770  33 3a 61 3d a4 76 28 24  69 29 2a 28 31 2d a4 76  |3:a=.v($i)*(1-.v|
00000780  28 24 28 69 2b 67 63 2b  31 29 29 2f 31 30 30 29  |($(i+gc+1))/100)|
00000790  3a f8 0d 03 98 12 61 3d  a4 76 28 24 69 29 2f 31  |:.....a=.v($i)/1|
000007a0  30 30 3a f8 0d 03 a2 12  61 3d a4 76 28 24 69 29  |00:.....a=.v($i)|
000007b0  2a 31 30 30 3a f8 0d 03  ac 27 dd f2 64 3a e7 63  |*100:....'..d:.c|
000007c0  3d 30 20 e1 3a 8b 63 3d  63 2d 64 3f 63 3a 63 3f  |=0 .:.c=c-d?c:c?|
000007d0  69 3d 31 33 3a e7 63 3d  30 20 62 3d b9 0d 03 b6  |i=13:.c=0 b=....|
000007e0  05 e1 0d 03 c0 54 dd f2  70 61 72 3a 24 69 3d 24  |.....T..par:$i=$|
000007f0  69 2b bd 28 78 29 3a 63  3d 63 2b 31 3a 64 3f 63  |i+.(x):c=c+1:d?c|
00000800  3d 31 3a f1 8a 30 2c 79  31 29 24 69 3b 89 28 33  |=1:..0,y1)$i;.(3|
00000810  39 2d 63 29 3b 3a ef 33  31 2c 63 2c 79 31 3a f5  |9-c);:.31,c,y1:.|
00000820  78 3d a5 3a e7 78 3d 31  32 37 20 fd 78 3d 31 32  |x=.:.x=127 .x=12|
00000830  37 3a f2 64 3a e1 0d 03  ca 32 78 3d 28 78 20 84  |7:.d:....2x=(x .|
00000840  26 32 30 29 3a e7 69 3f  28 63 2d 31 29 3d 38 30  |&20):.i?(c-1)=80|
00000850  20 80 78 3d 31 30 35 20  78 3d 37 33 3a fd 78 3d  | .x=105 x=73:.x=|
00000860  37 33 3a e5 8d 64 5e 43  0d 03 d4 0f fd 78 3e 34  |73:..d^C.....x>4|
00000870  37 20 80 78 3c 35 38 0d  03 de 1c 24 69 3d 24 69  |7 .x<58....$i=$i|
00000880  2b bd 28 78 29 3a 63 3d  63 2b 31 3a 64 3f 63 3d  |+.(x):c=c+1:d?c=|
00000890  31 3a e1 0d 03 e8 2a dd  20 a4 76 28 24 74 29 3a  |1:....*. .v($t):|
000008a0  ea 6f 3a 6f 3d 2d 31 3a  f5 3a 6f 3d 6f 2b 31 3a  |.o:o=-1:.:o=o+1:|
000008b0  76 24 3d c0 24 28 74 2b  6f 29 2c 33 29 0d 03 f2  |v$=.$(t+o),3)...|
000008c0  a7 e7 76 24 3d 22 45 58  50 22 84 76 24 3d 22 4d  |..v$="EXP".v$="M|
000008d0  4f 44 22 6f 3d 6f 2b 32  3a e5 8d 54 50 44 3a 8b  |OD"o=o+2:..TPD:.|
000008e0  e7 6f 3f 74 3d 32 32 36  20 24 28 6f 2b 74 29 3d  |.o?t=226 $(o+t)=|
000008f0  22 53 51 52 22 2b 24 28  6f 2b 74 2b 32 29 3a 6f  |"SQR"+$(o+t+2):o|
00000900  3d 6f 2b 32 3a e5 8d 54  50 44 3a 8b e7 6f 3f 74  |=o+2:..TPD:..o?t|
00000910  3d 32 32 38 20 24 28 6f  2b 74 29 3d 22 50 49 22  |=228 $(o+t)="PI"|
00000920  2b 24 28 6f 2b 74 2b 32  29 3a 6f 3d 6f 2b 31 3a  |+$(o+t+2):o=o+1:|
00000930  e5 8d 54 50 44 3a 8b e7  6f 3f 74 3d 38 38 20 6f  |..TPD:..o?t=88 o|
00000940  3f 74 3d 34 32 3a 8b e7  6f 3f 74 3d 32 32 34 20  |?t=42:..o?t=224 |
00000950  6f 3f 74 3d 34 37 3a 8b  e7 6f 3f 74 3d 37 37 20  |o?t=47:..o?t=77 |
00000960  f2 62 72 6b 0d 03 fc 61  e7 6f 3f 74 3d 38 30 20  |.brk...a.o?t=80 |
00000970  24 28 6f 2b 74 29 3d 22  46 4e 22 2b 24 28 6f 2b  |$(o+t)="FN"+$(o+|
00000980  74 29 3a 6f 3d 6f 2b 32  3a f2 62 72 6b 3a 8b e7  |t):o=o+2:.brk:..|
00000990  76 24 3d 22 41 52 43 22  24 28 6f 2b 74 29 3d 22  |v$="ARC"$(o+t)="|
000009a0  44 45 47 22 2b bd 28 36  35 29 2b bd 28 3f 28 6f  |DEG"+.(65)+.(?(o|
000009b0  2b 74 2b 33 29 29 2b 24  28 6f 2b 74 2b 35 29 3a  |+t+3))+$(o+t+5):|
000009c0  6f 3d 6f 2b 36 0d 04 06  3c e7 76 24 3d 22 53 49  |o=o+6...<.v$="SI|
000009d0  4e 22 84 76 24 3d 22 43  4f 53 22 84 76 24 3d 22  |N".v$="COS".v$="|
000009e0  54 41 4e 22 24 28 6f 2b  74 2b 33 29 3d 22 52 41  |TAN"$(o+t+3)="RA|
000009f0  44 22 2b 24 28 6f 2b 74  2b 33 29 3a 6f 3d 6f 2b  |D"+$(o+t+3):o=o+|
00000a00  35 0d 04 10 17 fd 6f 3e  28 a9 28 24 74 29 2d 32  |5.....o>(.($t)-2|
00000a10  29 3a 3d a0 28 24 74 29  0d 04 1a 41 dd f2 62 72  |):=.($t)...A..br|
00000a20  6b 3a 24 28 6f 2b 74 2b  31 29 3d bd 28 34 30 29  |k:$(o+t+1)=.(40)|
00000a30  2b 24 28 6f 2b 74 2b 31  29 3a 24 28 6f 2b 74 2b  |+$(o+t+1):$(o+t+|
00000a40  33 29 3d bd 28 34 31 29  2b 24 28 6f 2b 74 2b 33  |3)=.(41)+$(o+t+3|
00000a50  29 3a 6f 3d 6f 2b 32 3a  e1 0d 04 24 15 dd a4 50  |):o=o+2:...$...P|
00000a60  28 78 29 3a 3d a4 76 28  50 24 28 78 29 29 0d 04  |(x):=.v(P$(x))..|
00000a70  2e 1f e7 9f 3d 31 38 20  d4 2d 31 2c 31 33 39 2c  |....=18 .-1,139,|
00000a80  30 2c 30 3a f6 3a f1 3a  e5 8d 74 64 41 0d 04 38  |0,0:.:.:..tdA..8|
00000a90  35 e7 9f 3d 32 30 20 d4  2d 31 2c 31 34 33 2c 30  |5..=20 .-1,143,0|
00000aa0  2c 30 3a d4 2d 31 2c 32  31 34 2c 30 2c 30 3a f1  |,0:.-1,214,0,0:.|
00000ab0  27 22 54 6f 6f 20 6c 61  72 67 65 22 3a e5 8d 74  |'"Too large":..t|
00000ac0  64 41 0d 04 42 4d e7 9f  3d 31 36 20 84 9f 3d 32  |dA..BM..=16 ..=2|
00000ad0  36 3a d4 2d 31 2c 32 30  37 2c 30 2c 30 3a d4 2d  |6:.-1,207,0,0:.-|
00000ae0  31 2c 31 38 30 2c 30 2c  30 3a d4 2d 31 2c 32 30  |1,180,0,0:.-1,20|
00000af0  38 2c 30 2c 30 3a f1 27  22 49 6e 63 6f 72 72 65  |8,0,0:.'"Incorre|
00000b00  63 74 20 69 6e 70 75 74  22 3a e5 8d 74 64 41 0d  |ct input":..tdA.|
00000b10  04 4c 2d e7 9f 3d 32 31  20 d4 2d 31 2c 32 32 34  |.L-..=21 .-1,224|
00000b20  2c 30 2c 30 3a f1 27 22  4e 65 67 61 74 69 76 65  |,0,0:.'"Negative|
00000b30  20 72 6f 6f 74 22 3a e5  8d 74 64 41 0d 04 56 25  | root":..tdA..V%|
00000b40  e7 9f 3d 32 32 20 84 9f  3d 32 34 20 d4 2d 31 2c  |..=22 ..=24 .-1,|
00000b50  32 30 36 2c 30 2c 30 3a  f6 3a f1 3a e5 8d 74 64  |206,0,0:.:.:..td|
00000b60  41 0d 04 60 2b e7 9f 3d  32 37 20 d4 2d 31 2c 32  |A..`+..=27 .-1,2|
00000b70  30 37 2c 30 2c 30 3a d4  2d 31 2c 31 37 38 2c 30  |07,0,0:.-1,178,0|
00000b80  2c 30 3a f6 3a f1 3a e5  8d 74 64 41 0d 04 6a 2b  |,0:.:.:..tdA..j+|
00000b90  e7 9f 3d 32 38 20 d4 2d  31 2c 31 37 31 2c 30 2c  |..=28 .-1,171,0,|
00000ba0  30 3a d4 2d 31 2c 32 32  39 2c 30 2c 30 3a f6 3a  |0:.-1,229,0,0:.:|
00000bb0  f1 3a e5 8d 74 64 41 0d  04 74 78 e7 9f 3d 32 32  |.:..tdA..tx..=22|
00000bc0  32 20 d4 2d 31 2c 31 39  37 2c 30 2c 30 3a d4 2d  |2 .-1,197,0,0:.-|
00000bd0  31 2c 32 32 37 2c 30 2c  30 3a d4 2d 31 2c 31 39  |1,227,0,0:.-1,19|
00000be0  39 2c 30 2c 30 3a f1 8a  30 2c 32 29 89 31 33 22  |9,0,0:..0,2).13"|
00000bf0  46 49 4c 45 20 4e 4f 54  20 46 4f 55 4e 44 22 8a  |FILE NOT FOUND".|
00000c00  30 2c 34 29 89 31 34 22  50 52 45 53 53 20 53 50  |0,4).14"PRESS SP|
00000c10  41 43 45 22 3a f5 20 fd  a5 3d 33 32 3a 68 3d 68  |ACE":. ..=32:h=h|
00000c20  2d 31 3a f2 68 3a 73 3d  a3 3a e5 8d 74 78 41 0d  |-1:.h:s=.:..txA.|
00000c30  04 7e 21 e7 9f 3d 31 37  20 80 73 3d b9 20 68 3d  |.~!..=17 .s=. h=|
00000c40  68 2d 31 3a f2 68 3a 73  3d a3 3a e5 8d 74 78 41  |h-1:.h:s=.:..txA|
00000c50  0d 04 88 54 d4 2d 31 2c  31 39 33 2c 30 2c 30 3a  |...T.-1,193,0,0:|
00000c60  d4 2d 31 2c 31 32 38 2c  30 2c 30 3a d4 2d 31 2c  |.-1,128,0,0:.-1,|
00000c70  32 31 36 2c 30 2c 30 3a  61 3d 9e 3a 6d 3d a3 3a  |216,0,0:a=.:m=.:|
00000c80  f2 73 70 6b 31 3a eb 37  3a f1 27 27 3a f6 3a f1  |.spk1:.7:.'':.:.|
00000c90  22 20 61 74 20 6c 69 6e  65 20 22 3b 9e 3a 2a 46  |" at line ";.:*F|
00000ca0  58 34 2c 30 0d 04 92 09  ef 31 34 3a e0 0d 04 9c  |X4,0.....14:....|
00000cb0  7e dd f2 68 3a 40 25 3d  30 3a 68 3d 28 68 20 83  |~..h:@%=0:h=(h .|
00000cc0  37 29 2b 31 3a ef 32 38  2c 30 2c 33 31 2c 33 39  |7)+1:.28,0,31,39|
00000cd0  2c 32 35 3a fb 31 32 39  3a db 3a ee 68 20 e4 8d  |,25:.129:.:.h ..|
00000ce0  74 66 44 2c 8d 74 70 44  2c 8d 74 70 44 2c 8d 74  |tfD,.tpD,.tpD,.t|
00000cf0  7a 44 2c 8d 64 44 44 2c  8d 64 4e 44 2c 8d 64 58  |zD,.dDD,.dND,.dX|
00000d00  44 3a fb 31 32 38 3a fb  33 3a ef 32 38 2c 30 2c  |D:.128:.3:.28,0,|
00000d10  32 31 2c 33 39 2c 35 2c  33 31 2c 63 2c 79 31 3a  |21,39,5,31,c,y1:|
00000d20  40 25 3d 26 32 30 39 30  30 3a e1 0d 04 a6 4c f7  |@%=&20900:....L.|
00000d30  8d 74 4c 45 3a e3 6f 3d  30 b8 35 3a e3 6f 32 3d  |.tLE:.o=0.5:.o2=|
00000d40  30 b8 33 3a fb 33 3a f3  64 24 3a f1 64 24 22 20  |0.3:.3:.d$:.d$" |
00000d50  22 3b 3a fb 32 3a f3 64  24 3a f1 64 24 89 28 38  |";:.2:.d$:.d$.(8|
00000d60  2d a9 64 24 29 3b 3a ed  2c 3a fb 33 3a f1 8a 33  |-.d$);:.,:.3:..3|
00000d70  30 2c 35 29 65 3a f8 0d  04 b0 66 f1 89 31 32 22  |0,5)e:....f..12"|
00000d80  50 52 4f 47 52 41 4d 53  20 22 bd 28 68 2a 35 2b  |PROGRAMS ".(h*5+|
00000d90  33 38 29 22 20 54 4f 20  22 bd 28 68 2a 35 2b 34  |38)" TO ".(h*5+4|
00000da0  32 29 3a e3 6f 3d 30 b8  34 3a f1 8a 30 2c 6f 2b  |2):.o=0.4:..0,o+|
00000db0  31 29 22 50 22 bd 28 6f  2b 68 2a 35 2b 33 38 29  |1)"P".(o+h*5+38)|
00000dc0  22 20 22 3b 3a fb 32 3a  f1 50 24 28 6f 2b 68 2a  |" ";:.2:.P$(o+h*|
00000dd0  35 2d 31 30 29 3b 3a fb  33 3a ed 3a f8 0d 04 ba  |5-10);:.3:.:....|
00000de0  7d 40 25 3d 26 32 30 39  30 30 3a f1 89 31 32 22  |}@%=&20900:..12"|
00000df0  4d 45 4d 4f 52 49 45 53  20 30 20 54 4f 20 39 22  |MEMORIES 0 TO 9"|
00000e00  3a e3 6f 3d 30 b8 34 3a  f1 8a 31 2c 6f 2b 31 29  |:.o=0.4:..1,o+1)|
00000e10  22 4d 22 bd 28 6f 2b 34  38 29 22 20 20 22 3b 3a  |"M".(o+48)"  ";:|
00000e20  fb 32 3a f1 4d 28 6f 29  8a 32 30 2c 6f 2b 31 29  |.2:.M(o).20,o+1)|
00000e30  3b 3a fb 33 3a f1 22 4d  22 bd 28 6f 2b 34 38 2b  |;:.3:."M".(o+48+|
00000e40  35 29 22 20 20 22 3b 3a  fb 32 3a f1 4d 28 6f 2b  |5)"  ";:.2:.M(o+|
00000e50  35 29 3b 3a fb 33 3a ed  3a f8 0d 04 c4 21 f7 8d  |5);:.3:.:....!..|
00000e60  44 6e 45 3a e3 6f 3d 30  b8 35 3a f1 89 31 3b 3a  |DnE:.o=0.5:..1;:|
00000e70  f3 64 24 3a f1 64 24 3a  ed 3a f8 0d 04 ce 0f f7  |.d$:.d$:.:......|
00000e80  8d 44 78 45 3a e5 8d 64  62 44 0d 04 d8 09 f7 8d  |.DxE:..dbD......|
00000e90  74 42 45 0d 04 e2 4e f3  64 24 3a f1 89 37 22 43  |tBE...N.d$:..7"C|
00000ea0  4f 4e 56 45 52 53 49 4f  4e 20 46 41 43 54 4f 52  |ONVERSION FACTOR|
00000eb0  53 20 22 64 24 3a e3 6f  3d 30 b8 34 3a f1 22 20  |S "d$:.o=0.4:." |
00000ec0  66 22 3b 6f 2b 28 68 2d  36 29 2a 35 3b 3a fb 32  |f";o+(h-6)*5;:.2|
00000ed0  3a f3 64 24 3a f1 89 32  64 24 3a fb 33 3a ed 3a  |:.d$:..2d$:.3:.:|
00000ee0  f8 0d 04 ec 25 dd f2 64  65 66 3a 75 70 64 3d 30  |....%..def:upd=0|
00000ef0  3a e7 69 3f 31 3e 35 37  20 84 69 3f 31 3c 34 38  |:.i?1>57 .i?1<48|
00000f00  20 e5 8d 54 5e 45 0d 04  f6 2d e7 3f 69 3d 37 37  | ..T^E...-.?i=77|
00000f10  20 4d 28 28 69 3f 31 29  2d 34 38 29 3d a4 76 28  | M((i?1)-48)=.v(|
00000f20  24 28 69 2b 33 29 29 3a  75 70 64 3d 34 3a e5 8d  |$(i+3)):upd=4:..|
00000f30  54 54 45 0d 05 00 5c e7  a7 24 28 69 2b 33 29 2c  |TTE...\..$(i+3),|
00000f40  22 50 22 2b bd 28 69 3f  31 29 29 3c 3e 30 20 d4  |"P"+.(i?1))<>0 .|
00000f50  2d 31 2c 32 30 37 2c 30  2c 30 3a d4 2d 31 2c 31  |-1,207,0,0:.-1,1|
00000f60  38 30 2c 30 2c 30 3a d4  2d 31 2c 32 34 37 2c 30  |80,0,0:.-1,247,0|
00000f70  2c 30 3a f1 27 22 49 6e  63 6f 72 72 65 63 74 20  |,0:.'"Incorrect |
00000f80  50 72 6f 67 72 61 6d 22  3b 3a e5 8d 54 5e 45 0d  |Program";:..T^E.|
00000f90  05 0a 33 e7 3f 69 3d 38  30 20 50 24 28 28 69 3f  |..3.?i=80 P$((i?|
00000fa0  31 29 2d 34 38 29 3d 24  28 69 2b 33 29 3a 75 70  |1)-48)=$(i+3):up|
00000fb0  64 3d 32 2b 28 28 28 69  3f 31 29 2d 34 38 29 81  |d=2+(((i?1)-48).|
00000fc0  35 29 0d 05 14 13 e7 68  3d 75 70 64 3a 68 3d 68  |5).....h=upd:h=h|
00000fd0  2d 31 3a f2 68 0d 05 1e  0f 63 3d 30 3a 24 69 3d  |-1:.h....c=0:$i=|
00000fe0  22 22 3a e1 0d 05 28 70  dd f2 75 70 64 3a 78 3d  |"":...(p..upd:x=|
00000ff0  69 3f 32 3a e7 3f 69 3c  3e 37 37 20 e1 3a 8b e7  |i?2:.?i<>77 .:..|
00001000  69 3f 31 3e 35 37 20 84  69 3f 31 3c 34 38 20 e1  |i?1>57 .i?1<48 .|
00001010  3a 8b e7 78 3d 34 33 20  4d 28 28 69 3f 31 29 2d  |:..x=43 M((i?1)-|
00001020  34 38 29 3d 4d 28 28 69  3f 31 29 2d 34 38 29 2b  |48)=M((i?1)-48)+|
00001030  61 32 3a 8b e7 78 3d 34  35 20 4d 28 28 69 3f 31  |a2:..x=45 M((i?1|
00001040  29 2d 34 38 29 3d 4d 28  28 69 3f 31 29 2d 34 38  |)-48)=M((i?1)-48|
00001050  29 2d 61 32 0d 05 32 0f  e7 68 3d 34 20 68 3d 33  |)-a2..2..h=4 h=3|
00001060  3a f2 68 0d 05 3c 05 e1  0d 05 46 3c dd f2 65 3a  |:.h..<....F<..e:|
00001070  f5 78 3d a5 3a e7 78 3d  31 32 37 20 fd 78 3d 31  |.x=.:.x=127 .x=1|
00001080  32 37 3a e1 3a 8b fd 78  3e 34 37 20 80 78 3c 35  |27:.:..x>47 .x<5|
00001090  38 3a 65 3d 78 2d 34 38  3a e7 68 3d 31 3a 68 3d  |8:e=x-48:.h=1:h=|
000010a0  30 3a f2 68 0d 05 50 05  e1 0d 05 5a 2e dd f2 6d  |0:.h..P....Z...m|
000010b0  3a 61 3d 2d 61 3a e7 6d  3d b9 3a 24 69 3d 24 28  |:a=-a:.m=.:$i=$(|
000010c0  69 2b 31 29 3a 6d 3d a3  3a 8b 24 69 3d 22 2d 22  |i+1):m=.:.$i="-"|
000010d0  2b 24 69 3a 6d 3d b9 0d  05 64 0d 63 3d a9 28 24  |+$i:m=...d.c=.($|
000010e0  69 29 3a e1 0d 05 6e e8  dc 54 6f 20 61 64 64 20  |i):...n..To add |
000010f0  6c 61 73 74 20 76 61 6c  75 65 20 63 61 6c 63 75  |last value calcu|
00001100  6c 61 74 65 64 20 74 6f  20 4d 30 2c 70 72 65 73  |lated to M0,pres|
00001110  73 20 3c 52 45 54 55 52  4e 3e 20 74 68 65 6e 20  |s <RETURN> then |
00001120  74 79 70 65 20 4d 30 2b  20 6f 72 20 4d 30 2d 20  |type M0+ or M0- |
00001130  74 6f 2c 73 75 62 74 72  61 63 74 2e 20 54 6f 20  |to,subtract. To |
00001140  61 73 73 69 67 6e 20 61  20 76 61 6c 75 65 20 74  |assign a value t|
00001150  6f 20 4d 30 20 74 79 70  65 2c 4d 30 3d 3c 56 41  |o M0 type,M0=<VA|
00001160  4c 55 45 3e 2e 20 54 6f  20 64 65 66 69 6e 65 20  |LUE>. To define |
00001170  50 72 6f 67 72 61 6d 20  30 20 74 79 70 65 2c 50  |Program 0 type,P|
00001180  30 3d 3c 50 52 4f 47 52  41 4d 3e 2e 20 50 72 65  |0=<PROGRAM>. Pre|
00001190  73 73 20 3c 54 41 42 3e  20 74 6f 20 73 61 76 65  |ss <TAB> to save|
000011a0  20 62 6f 74 68 2c 6d 65  6d 6f 72 69 65 73 20 61  | both,memories a|
000011b0  6e 64 20 70 72 6f 67 72  61 6d 73 20 74 6f 20 64  |nd programs to d|
000011c0  69 73 6b 20 6f 72 20 74  61 70 65 2e 0d 05 78 94  |isk or tape...x.|
000011d0  dc 30 20 54 4f 20 34 2c  32 35 2e 34 20 20 20 20  |.0 TO 4,25.4    |
000011e0  20 20 20 20 69 6e 73 20  54 4f 20 6d 6d 2c 22 20  |    ins TO mm," |
000011f0  30 2e 39 31 34 34 20 20  20 79 61 72 64 73 20 54  |0.9144   yards T|
00001200  4f 20 6d 65 74 72 65 73  22 2c 22 20 31 2e 36 30  |O metres"," 1.60|
00001210  39 33 20 20 20 6d 69 6c  65 73 20 54 4f 20 6b 6d  |93   miles TO km|
00001220  73 22 2c 22 20 30 2e 30  39 32 39 20 20 20 73 71  |s"," 0.0929   sq|
00001230  20 66 74 20 54 4f 20 73  71 20 6d 65 74 72 65 73  | ft TO sq metres|
00001240  22 2c 22 20 30 2e 30 32  38 33 32 20 20 63 75 20  |"," 0.02832  cu |
00001250  66 74 20 54 4f 20 63 75  20 6d 65 74 72 65 73 22  |ft TO cu metres"|
00001260  0d 05 82 a4 dc 35 20 54  4f 20 39 2c 22 20 34 2e  |.....5 TO 9," 4.|
00001270  35 34 36 20 20 20 20 20  20 67 61 6c 6c 6f 6e 73  |546      gallons|
00001280  20 54 4f 20 6c 69 74 72  65 73 22 2c 32 38 2e 33  | TO litres",28.3|
00001290  35 20 20 20 20 20 20 20  20 20 20 20 6f 7a 73 20  |5           ozs |
000012a0  54 4f 20 67 72 61 6d 73  2c 22 20 30 2e 34 35 33  |TO grams," 0.453|
000012b0  36 20 20 20 20 20 20 20  20 20 6c 62 73 20 54 4f  |6         lbs TO|
000012c0  20 6b 67 73 22 2c 22 20  30 2e 30 37 30 33 20 20  | kgs"," 0.0703  |
000012d0  20 6c 62 73 2f 73 71 20  69 6e 20 54 4f 20 6b 67  | lbs/sq in TO kg|
000012e0  73 2f 73 71 20 63 6d 22  2c 22 20 30 2e 37 34 35  |s/sq cm"," 0.745|
000012f0  33 31 20 20 20 20 20 20  20 20 62 68 70 20 54 4f  |31        bhp TO|
00001300  20 6b 77 22 0d 05 8c bb  dc 47 2c 4d 4f 44 2c 4d  | kw".....G,MOD,M|
00001310  2c 4d 45 4d 30 52 59 2c  53 2c 53 49 4e 45 2c 5a  |,MEM0RY,S,SINE,Z|
00001320  2c 2b 2f 2d 2c 48 2c 48  45 4c 50 2c 4e 2c 4e 41  |,+/-,H,HELP,N,NA|
00001330  54 4c 4f 47 2c 54 2c 54  41 4e 47 45 4e 54 2c 5e  |TLOG,T,TANGENT,^|
00001340  2c 50 4f 57 45 52 2c 49  2c 22 84 85 22 2c 4f 2c  |,POWER,I,"..",O,|
00001350  45 58 50 2c 55 2c 41 52  43 2c 7e 2c 48 45 58 2c  |EXP,U,ARC,~,HEX,|
00001360  4a 2c 44 49 56 2c 50 2c  50 52 4f 47 52 41 4d 2c  |J,DIV,P,PROGRAM,|
00001370  56 2c 45 4f 52 2c 25 2c  50 45 52 43 45 4e 54 2c  |V,EOR,%,PERCENT,|
00001380  4b 2c 45 52 41 53 45 2c  51 2c 22 82 83 22 2c 57  |K,ERASE,Q,"..",W|
00001390  2c 41 4e 44 2c 40 2c 44  45 43 49 4d 41 4c 2c 4c  |,AND,@,DECIMAL,L|
000013a0  2c 4c 4f 47 52 54 48 4d  2c 52 2c 43 4f 53 49 4e  |,LOGRTHM,R,COSIN|
000013b0  45 2c 59 2c 4f 52 2c 39  2c 50 4c 41 43 45 53 0d  |E,Y,OR,9,PLACES.|
000013c0  05 96 a0 dd f2 73 3a d4  2d 31 2c 32 31 33 2c 30  |.....s:.-1,213,0|
000013d0  2c 30 3a d4 2d 31 2c 31  32 37 2c 30 2c 30 3a d4  |,0:.-1,127,0,0:.|
000013e0  2d 31 2c 32 33 37 2c 30  2c 30 3a d4 2d 31 2c 31  |-1,237,0,0:.-1,1|
000013f0  32 37 2c 30 2c 30 3a d4  2d 31 2c 32 35 35 2c 30  |27,0,0:.-1,255,0|
00001400  2c 30 3a 73 3d b9 3a ef  32 38 2c 30 2c 33 31 2c  |,0:s=.:.28,0,31,|
00001410  33 39 2c 32 35 3a fb 31  32 39 3a db 3a fb 32 3a  |39,25:.129:.:.2:|
00001420  f1 8a 30 2c 32 29 22 4c  6f 61 64 20 22 3b 3a fb  |..0,2)"Load ";:.|
00001430  33 3a f1 22 4c 22 3b 3a  fb 32 3a f1 22 20 6f 72  |3:."L";:.2:." or|
00001440  20 53 61 76 65 20 22 3b  3a fb 33 3a f1 22 53 22  | Save ";:.3:."S"|
00001450  3b 3a fb 32 3a f1 22 20  3f 20 22 3b 3a fb 33 0d  |;:.2:." ? ";:.3.|
00001460  05 a0 38 f5 78 3d a5 3a  78 3d 28 78 20 84 33 32  |..8.x=.:x=(x .32|
00001470  29 2d 33 32 3a fd 78 3d  37 36 20 84 78 3d 38 33  |)-32:.x=76 .x=83|
00001480  3a e7 78 3d 37 36 20 f1  22 4c 4f 41 44 22 3a 8b  |:.x=76 ."LOAD":.|
00001490  f1 22 53 41 56 45 22 0d  05 aa 1b d4 2d 31 2c 31  |."SAVE".....-1,1|
000014a0  39 37 2c 30 2c 30 3a d4  2d 31 2c 32 32 33 2c 30  |97,0,0:.-1,223,0|
000014b0  2c 30 0d 05 b4 21 fb 32  3a f1 8a 30 2c 34 29 22  |,0...!.2:..0,4)"|
000014c0  46 69 6c 65 6e 61 6d 65  20 3f 20 22 3b 3a fb 33  |Filename ? ";:.3|
000014d0  3a d6 93 0d 05 be 2c e7  3f 74 3d 33 32 20 84 28  |:.....,.?t=32 .(|
000014e0  3f 74 3d 31 33 20 80 3f  26 38 37 3d 34 29 d4 2d  |?t=13 .?&87=4).-|
000014f0  31 2c 32 30 36 2c 30 2c  30 3a e5 8d 74 74 45 0d  |1,206,0,0:..ttE.|
00001500  05 c8 68 fb 32 3a ef 33  31 2c 30 2c 34 3a e7 78  |..h.2:.31,0,4:.x|
00001510  3d 37 36 20 f1 22 4c 6f  61 64 69 6e 67 22 89 33  |=76 ."Loading".3|
00001520  3b 3a 78 3d 8e 24 74 3a  e3 6f 3d 30 b8 39 3a e8  |;:x=.$t:.o=0.9:.|
00001530  23 78 2c 4d 28 6f 29 2c  50 24 28 6f 29 3a 8b f1  |#x,M(o),P$(o):..|
00001540  22 53 61 76 69 6e 67 22  89 34 3b 3a 78 3d ae 24  |"Saving".4;:x=.$|
00001550  74 3a e3 6f 3d 30 b8 39  3a f1 23 78 2c 4d 28 6f  |t:.o=0.9:.#x,M(o|
00001560  29 2c 50 24 28 6f 29 0d  05 d2 1b ed 3a d9 23 78  |),P$(o).....:.#x|
00001570  3a fb 33 3a 68 3d 68 2d  31 3a f2 68 3a 73 3d a3  |:.3:h=h-1:.h:s=.|
00001580  3a e1 0d 05 dc 28 dd f2  73 70 6b 31 3a 78 3d a8  |:....(..spk1:x=.|
00001590  94 61 3a 24 74 3d c3 28  78 29 3a e7 6d 3d b9 20  |.a:$t=.(x):.m=. |
000015a0  d4 2d 31 2c 34 35 2c 30  2c 30 0d 05 e6 17 e7 78  |.-1,45,0,0.....x|
000015b0  3e 39 39 39 39 3a f2 73  70 6b 32 3a e5 8d 64 7a  |>9999:.spk2:..dz|
000015c0  45 0d 05 f0 91 e7 78 3d  31 30 30 30 20 d4 2d 31  |E.....x=1000 .-1|
000015d0  2c 34 39 2c 30 2c 30 3a  d4 2d 31 2c 31 34 31 2c  |,49,0,0:.-1,141,|
000015e0  30 2c 30 3a 8b e7 78 3e  39 39 39 20 f2 73 70 6b  |0,0:..x>999 .spk|
000015f0  33 3a 74 3d 74 2b 32 3a  f2 73 70 6b 34 3a 74 3d  |3:t=t+2:.spk4:t=|
00001600  74 2d 32 3a 8b e7 78 3e  39 39 20 d4 2d 31 2c 3f  |t-2:..x>99 .-1,?|
00001610  74 2c 30 2c 30 3a 74 3d  74 2b 31 3a f2 73 70 6b  |t,0,0:t=t+1:.spk|
00001620  34 3a 74 3d 74 2d 31 3a  8b e7 78 3e 39 20 f2 73  |4:t=t-1:..x>9 .s|
00001630  70 6b 33 3a 8b e7 3f 74  3d 34 38 20 d4 2d 31 2c  |pk3:..?t=48 .-1,|
00001640  37 39 2c 30 2c 30 3a 8b  d4 2d 31 2c 3f 74 2c 30  |79,0,0:..-1,?t,0|
00001650  2c 30 0d 05 fa 22 e7 78  3d 94 61 20 e1 3a 8b 24  |,0...".x=.a .:.$|
00001660  74 3d 24 28 69 2b a9 24  74 2d 6d 29 3a f2 73 70  |t=$(i+.$t-m):.sp|
00001670  6b 32 3a e1 0d 06 04 37  dd f2 73 70 6b 32 3a e3  |k2:....7..spk2:.|
00001680  6f 3d 30 b8 28 a9 24 74  29 2d 31 3a e7 74 3f 6f  |o=0.(.$t)-1:.t?o|
00001690  3d 34 38 3a d4 2d 31 2c  37 39 2c 30 2c 30 3a 8b  |=48:.-1,79,0,0:.|
000016a0  d4 2d 31 2c 74 3f 6f 2c  30 2c 30 0d 06 0e 07 ed  |.-1,t?o,0,0.....|
000016b0  3a e1 0d 06 18 26 dd f2  73 70 6b 33 3a 24 28 74  |:....&..spk3:$(t|
000016c0  2b 32 30 29 3d c0 24 74  2c 32 29 3a 6f 3d a0 28  |+20)=.$t,2):o=.(|
000016d0  24 28 74 2b 32 30 29 29  0d 06 22 86 e7 6f 3e 31  |$(t+20)).."..o>1|
000016e0  39 3a d4 2d 31 2c 74 3f  32 30 2d 31 36 2c 30 2c  |9:.-1,t?20-16,0,|
000016f0  30 3a d4 2d 31 2c 31 33  37 2c 30 2c 30 3a 8b e7  |0:.-1,137,0,0:..|
00001700  6f 3e 31 32 20 d4 2d 31  2c 74 3f 32 31 2a 32 2b  |o>12 .-1,t?21*2+|
00001710  34 34 2c 30 2c 30 3a d4  2d 31 2c 31 33 35 2c 30  |44,0,0:.-1,135,0|
00001720  2c 30 3a e1 3a 8b e7 6f  3d 31 30 20 d4 2d 31 2c  |,0:.:..o=10 .-1,|
00001730  33 33 2c 30 2c 30 3a 8b  e7 6f 3d 31 31 20 d4 2d  |33,0,0:..o=11 .-|
00001740  31 2c 31 39 30 2c 30 2c  30 3a 8b e7 6f 3d 31 32  |1,190,0,0:..o=12|
00001750  20 d4 2d 31 2c 32 37 33  2c 30 2c 30 3a e1 0d 06  | .-1,273,0,0:...|
00001760  2c 1e e7 74 3f 32 31 3d  34 38 20 e1 3a 8b d4 2d  |,..t?21=48 .:..-|
00001770  31 2c 74 3f 32 31 2c 30  2c 30 3a e1 0d 06 36 3a  |1,t?21,0,0:...6:|
00001780  dd f2 73 70 6b 34 3a e7  3f 74 3d 34 38 20 80 74  |..spk4:.?t=48 .t|
00001790  3f 31 3d 34 38 20 d4 2d  31 2c 31 34 30 2c 30 2c  |?1=48 .-1,140,0,|
000017a0  30 3a e1 3a 8b e7 3f 74  3d 34 38 20 d4 2d 31 2c  |0:.:..?t=48 .-1,|
000017b0  37 39 2c 30 2c 30 0d 06  40 0b f2 73 70 6b 33 3a  |79,0,0..@..spk3:|
000017c0  e1 0d 06 4a 52 dd f2 65  72 3a e7 69 3f 63 3d 34  |...JR..er:.i?c=4|
000017d0  39 20 84 69 3f 63 3d 34  38 20 69 3f 63 3d 34 38  |9 .i?c=48 i?c=48|
000017e0  3a e1 3a 8b e7 69 3f 63  3c 3e 35 37 20 e1 3a 8b  |:.:..i?c<>57 .:.|
000017f0  f5 3a 69 3f 63 3d 34 38  3a 63 3d 63 2d 31 3a fd  |.:i?c=48:c=c-1:.|
00001800  69 3f 63 3c 3e 35 37 3a  69 3f 63 3d 69 3f 63 2b  |i?c<>57:i?c=i?c+|
00001810  31 3a e1 0d ff                                    |1:...|
00001815

General/CALC2.m0

General/CALC2.m1

General/CALC2.m2

General/CALC2.m4

General/CALC2.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .