� HIGHLO
� ELBUG NOV.1983
<� � � �TdD
FX=�(-�)
P)�23,224,206,219,219,219,219,219,206,0
Z&�5:�A(12),B$(9),S(12):@%=&00000908
dBS=0
n,�28,4,16,19,0:�19,128,4,0,0,0,19,2,0,0,0
x
RT=0:�
�C=250:MB=50:AIM=2500
�F=0:�T:�:� J=1�9:�X,Y:�C:�
��S:�V:�:F=1
�#� J=1�9:�X,Y:�C:�SH:� J=9� �dH@
�� C<MB J=9:�dR@
�� J=1�J=4�J=7 � �CH
��Q:�U:�HL 
��
��:RT=RT+C:� C>=AIM � �DJA
�� RT>BS � BS=RT
�� C<MB � �TvA
��0,2)"You have failed"
��1,4)"to reach the"

�4,6)"target"

�BS

�0,8)"ANOTHER GAME?"

"�4,10)"Y/N":A$=�

,>� A$="Y"� �Dx@� �:�0,10)"SEE YOU SOON":�=0:� � �=200:�6:�

6�0,2)"You have failed"

@�2,4)"miserably":�TNA

J!�0,9)"CONGRATULATIONS":�tB@

T�50,10,350,10,650,10,950,10

^*�50,260,350,260,650,260,950,260,50,560

hݤX=150-Z*30

rݤY=200-Z*40

|��C

��0,3

�&�X,Y:�X,Y+200:�X+150,Y+200:�85,X,Y

�,�X+150,Y:�X,Y:�85,X+150,Y+200:� F=1 � � 

��0,1:�Z=0�4

��X,Y+Z*40:�1,�X,�Y

��X+Z*30,Y:�1,�X,�Y

��X,Y+�Y:�1,�X,-�Y

��X+Z*30,Y+200:�1,�X,-�Y

��:�

���S

�� J=1�12

�A(J)=�(52):F=0

�� J=1� �T\B
� K=1�J-1:� A(J)=A(K)� F=1
�
� F=1 � �dtA
&�
0� J=1�12:� L=1�4
:#� A(J)>13 � A(J)=A(J)-13:S(J)=L
D	�:�:�
N��CH
X�D:�2,8)"Change card?"
b�6,10)"Y/N":�:A$=�
l�A$="Y" � A$="N"
v� A$="N" � �thB
��J=1� A(J)=A(10):S(J)=S(10)
��J=4� A(J)=A(11):S(J)=S(11)
� �J=7� A(J)=A(12):S(J)=S(12) 
�
�V:�C:�SH
��D:�
���V
�� L=1�9
�B$(L)=�(A(L)+49)
�� A(L)=9� B$(L)=�224
�� A(L)=10� B$(L)="J"
�� A(L)=11� B$(L)="Q"
�� A(L)=12� B$(L)="K"
�� A(L)=13� B$(L)="A"
�:�
��SH
%�5:� S(J)=1 � S(J)=3 � �0,1 ��0,2
 �X+50,Y+100
*�B$(J):�4:�
4��T
>�0,1)"Target=",AIM
H�0,3)"Min.bet=",MB
R�0,5)"Credit=",C
\	�BS:�
f��Q
p�:�0,8)"What is your bet"
z#�2,10)"Bet="B:�D:�B>=MB � B<=C
�C=C-B:�D:�
���HL
��0,8)"Higher or Lower"
�*�:�5,10)"H/L...":A$=�:�A$="H"� A$="L"
�h� (A$="L" � A(J+1)<A(J)) � (A$="H" � A(J+1)>A(J)) � C=C+B*2:�1,-10,200,10 � �1,-10,20,10:�1,-10,1,10
��D:�U:�
���D
��0,7)�(80):�
���U
��8,5)�(8):�8,5),C
��
���BS
��1,13)"Best     Total"
�1,14)"Score    Score"
�0,15),BS,RT;
�
$	� � �
.� �=17 A$="":�TlA
8�6
B�:�" at line ";�
L�
�

00000000  0d 00 0a 0c f4 20 48 49  47 48 4c 4f 0d 00 14 14  |..... HIGHLO....|
00000010  f4 20 45 4c 42 55 47 20  4e 4f 56 2e 31 39 38 33  |. ELBUG NOV.1983|
00000020  0d 00 3c 0e ee 20 85 20  e5 20 8d 54 64 44 0d 00  |..<.. . . .TdD..|
00000030  46 0b 58 3d b3 28 2d 91  29 0d 00 50 29 ef 32 33  |F.X=.(-.)..P).23|
00000040  2c 32 32 34 2c 32 30 36  2c 32 31 39 2c 32 31 39  |,224,206,219,219|
00000050  2c 32 31 39 2c 32 31 39  2c 32 31 39 2c 32 30 36  |,219,219,219,206|
00000060  2c 30 0d 00 5a 26 eb 35  3a de 41 28 31 32 29 2c  |,0..Z&.5:.A(12),|
00000070  42 24 28 39 29 2c 53 28  31 32 29 3a 40 25 3d 26  |B$(9),S(12):@%=&|
00000080  30 30 30 30 30 39 30 38  0d 00 64 08 42 53 3d 30  |00000908..d.BS=0|
00000090  0d 00 6e 2c ef 32 38 2c  34 2c 31 36 2c 31 39 2c  |..n,.28,4,16,19,|
000000a0  30 3a ef 31 39 2c 31 32  38 2c 34 2c 30 2c 30 2c  |0:.19,128,4,0,0,|
000000b0  30 2c 31 39 2c 32 2c 30  2c 30 2c 30 0d 00 78 0a  |0,19,2,0,0,0..x.|
000000c0  52 54 3d 30 3a db 0d 00  82 18 43 3d 32 35 30 3a  |RT=0:.....C=250:|
000000d0  4d 42 3d 35 30 3a 41 49  4d 3d 32 35 30 30 0d 00  |MB=50:AIM=2500..|
000000e0  8c 1e 46 3d 30 3a f2 54  3a f7 3a e3 20 4a 3d 31  |..F=0:.T:.:. J=1|
000000f0  b8 39 3a f3 58 2c 59 3a  f2 43 3a ed 0d 00 96 0f  |.9:.X,Y:.C:.....|
00000100  f2 53 3a f2 56 3a f7 3a  46 3d 31 0d 00 a0 23 e3  |.S:.V:.:F=1...#.|
00000110  20 4a 3d 31 b8 39 3a f3  58 2c 59 3a f2 43 3a f2  | J=1.9:.X,Y:.C:.|
00000120  53 48 3a e7 20 4a 3d 39  8c 20 8d 64 48 40 0d 00  |SH:. J=9. .dH@..|
00000130  aa 14 e7 20 43 3c 4d 42  20 4a 3d 39 3a e5 8d 64  |... C<MB J=9:..d|
00000140  52 40 0d 00 b4 17 e7 20  4a 3d 31 84 4a 3d 34 84  |R@..... J=1.J=4.|
00000150  4a 3d 37 20 8c 20 f2 43  48 0d 00 be 0e f2 51 3a  |J=7 . .CH.....Q:|
00000160  f2 55 3a f2 48 4c 20 0d  00 c8 05 ed 0d 00 d2 1d  |.U:.HL .........|
00000170  db 3a 52 54 3d 52 54 2b  43 3a e7 20 43 3e 3d 41  |.:RT=RT+C:. C>=A|
00000180  49 4d 20 8c 20 8d 44 4a  41 0d 00 dc 13 e7 20 52  |IM . .DJA..... R|
00000190  54 3e 42 53 20 8c 20 42  53 3d 52 54 0d 00 e6 11  |T>BS . BS=RT....|
000001a0  e7 20 43 3c 4d 42 20 8c  20 8d 54 76 41 0d 00 f0  |. C<MB . .TvA...|
000001b0  1b f1 8a 30 2c 32 29 22  59 6f 75 20 68 61 76 65  |...0,2)"You have|
000001c0  20 66 61 69 6c 65 64 22  0d 00 fa 18 f1 8a 31 2c  | failed"......1,|
000001d0  34 29 22 74 6f 20 72 65  61 63 68 20 74 68 65 22  |4)"to reach the"|
000001e0  0d 01 04 12 f1 8a 34 2c  36 29 22 74 61 72 67 65  |......4,6)"targe|
000001f0  74 22 0d 01 0e 07 f2 42  53 0d 01 18 19 f1 8a 30  |t".....BS......0|
00000200  2c 38 29 22 41 4e 4f 54  48 45 52 20 47 41 4d 45  |,8)"ANOTHER GAME|
00000210  3f 22 0d 01 22 15 f1 8a  34 2c 31 30 29 22 59 2f  |?".."...4,10)"Y/|
00000220  4e 22 3a 41 24 3d be 0d  01 2c 3e e7 20 41 24 3d  |N":A$=...,>. A$=|
00000230  22 59 22 8c 20 8d 44 78  40 8b 20 da 3a f1 8a 30  |"Y". .Dx@. .:..0|
00000240  2c 31 30 29 22 53 45 45  20 59 4f 55 20 53 4f 4f  |,10)"SEE YOU SOO|
00000250  4e 22 3a d1 3d 30 3a f5  20 fd 20 91 3d 32 30 30  |N":.=0:. . .=200|
00000260  3a eb 36 3a e0 0d 01 36  1b f1 8a 30 2c 32 29 22  |:.6:...6...0,2)"|
00000270  59 6f 75 20 68 61 76 65  20 66 61 69 6c 65 64 22  |You have failed"|
00000280  0d 01 40 1b f1 8a 32 2c  34 29 22 6d 69 73 65 72  |..@...2,4)"miser|
00000290  61 62 6c 79 22 3a e5 8d  54 4e 41 0d 01 4a 21 f1  |ably":..TNA..J!.|
000002a0  8a 30 2c 39 29 22 43 4f  4e 47 52 41 54 55 4c 41  |.0,9)"CONGRATULA|
000002b0  54 49 4f 4e 53 22 3a e5  8d 74 42 40 0d 01 54 1f  |TIONS":..tB@..T.|
000002c0  dc 35 30 2c 31 30 2c 33  35 30 2c 31 30 2c 36 35  |.50,10,350,10,65|
000002d0  30 2c 31 30 2c 39 35 30  2c 31 30 0d 01 5e 2a dc  |0,10,950,10..^*.|
000002e0  35 30 2c 32 36 30 2c 33  35 30 2c 32 36 30 2c 36  |50,260,350,260,6|
000002f0  35 30 2c 32 36 30 2c 39  35 30 2c 32 36 30 2c 35  |50,260,950,260,5|
00000300  30 2c 35 36 30 0d 01 68  10 dd a4 58 3d 31 35 30  |0,560..h...X=150|
00000310  2d 5a 2a 33 30 0d 01 72  10 dd a4 59 3d 32 30 30  |-Z*30..r...Y=200|
00000320  2d 5a 2a 34 30 0d 01 7c  07 dd f2 43 0d 01 86 08  |-Z*40..|...C....|
00000330  e6 30 2c 33 0d 01 90 26  ec 58 2c 59 3a df 58 2c  |.0,3...&.X,Y:.X,|
00000340  59 2b 32 30 30 3a df 58  2b 31 35 30 2c 59 2b 32  |Y+200:.X+150,Y+2|
00000350  30 30 3a f0 38 35 2c 58  2c 59 0d 01 9a 2c df 58  |00:.85,X,Y...,.X|
00000360  2b 31 35 30 2c 59 3a df  58 2c 59 3a f0 38 35 2c  |+150,Y:.X,Y:.85,|
00000370  58 2b 31 35 30 2c 59 2b  32 30 30 3a e7 20 46 3d  |X+150,Y+200:. F=|
00000380  31 20 8c 20 e1 20 0d 01  a4 0f e6 30 2c 31 3a e3  |1 . . .....0,1:.|
00000390  5a 3d 30 b8 34 0d 01 ae  16 ec 58 2c 59 2b 5a 2a  |Z=0.4.....X,Y+Z*|
000003a0  34 30 3a f0 31 2c a4 58  2c a4 59 0d 01 b8 16 ec  |40:.1,.X,.Y.....|
000003b0  58 2b 5a 2a 33 30 2c 59  3a f0 31 2c a4 58 2c a4  |X+Z*30,Y:.1,.X,.|
000003c0  59 0d 01 c2 15 ec 58 2c  59 2b a4 59 3a f0 31 2c  |Y.....X,Y+.Y:.1,|
000003d0  a4 58 2c 2d a4 59 0d 01  cc 1b ec 58 2b 5a 2a 33  |.X,-.Y.....X+Z*3|
000003e0  30 2c 59 2b 32 30 30 3a  f0 31 2c a4 58 2c 2d a4  |0,Y+200:.1,.X,-.|
000003f0  59 0d 01 d6 07 ed 3a e1  0d 01 e0 07 dd f2 53 0d  |Y.....:.......S.|
00000400  01 ea 0c e3 20 4a 3d 31  b8 31 32 0d 01 f4 12 41  |.... J=1.12....A|
00000410  28 4a 29 3d b3 28 35 32  29 3a 46 3d 30 0d 01 fe  |(J)=.(52):F=0...|
00000420  0f e7 20 4a 3d 31 8c 20  8d 54 5c 42 0d 02 08 1e  |.. J=1. .T\B....|
00000430  e3 20 4b 3d 31 b8 4a 2d  31 3a e7 20 41 28 4a 29  |. K=1.J-1:. A(J)|
00000440  3d 41 28 4b 29 8c 20 46  3d 31 0d 02 12 05 ed 0d  |=A(K). F=1......|
00000450  02 1c 10 e7 20 46 3d 31  20 8c 20 8d 64 74 41 0d  |.... F=1 . .dtA.|
00000460  02 26 05 ed 0d 02 30 14  e3 20 4a 3d 31 b8 31 32  |.&....0.. J=1.12|
00000470  3a e3 20 4c 3d 31 b8 34  0d 02 3a 23 e7 20 41 28  |:. L=1.4..:#. A(|
00000480  4a 29 3e 31 33 20 8c 20  41 28 4a 29 3d 41 28 4a  |J)>13 . A(J)=A(J|
00000490  29 2d 31 33 3a 53 28 4a  29 3d 4c 0d 02 44 09 ed  |)-13:S(J)=L..D..|
000004a0  3a ed 3a e1 0d 02 4e 08  dd f2 43 48 0d 02 58 1b  |:.:...N...CH..X.|
000004b0  f2 44 3a f1 8a 32 2c 38  29 22 43 68 61 6e 67 65  |.D:..2,8)"Change|
000004c0  20 63 61 72 64 3f 22 0d  02 62 17 f1 8a 36 2c 31  | card?"..b...6,1|
000004d0  30 29 22 59 2f 4e 22 3a  f5 3a 41 24 3d be 0d 02  |0)"Y/N":.:A$=...|
000004e0  6c 14 fd 41 24 3d 22 59  22 20 84 20 41 24 3d 22  |l..A$="Y" . A$="|
000004f0  4e 22 0d 02 76 13 e7 20  41 24 3d 22 4e 22 20 8c  |N"..v.. A$="N" .|
00000500  20 8d 74 68 42 0d 02 80  1f e7 4a 3d 31 8c 20 41  | .thB.....J=1. A|
00000510  28 4a 29 3d 41 28 31 30  29 3a 53 28 4a 29 3d 53  |(J)=A(10):S(J)=S|
00000520  28 31 30 29 0d 02 8a 1f  e7 4a 3d 34 8c 20 41 28  |(10).....J=4. A(|
00000530  4a 29 3d 41 28 31 31 29  3a 53 28 4a 29 3d 53 28  |J)=A(11):S(J)=S(|
00000540  31 31 29 0d 02 94 20 e7  4a 3d 37 8c 20 41 28 4a  |11)... .J=7. A(J|
00000550  29 3d 41 28 31 32 29 3a  53 28 4a 29 3d 53 28 31  |)=A(12):S(J)=S(1|
00000560  32 29 20 0d 02 9e 0d f2  56 3a f2 43 3a f2 53 48  |2) .....V:.C:.SH|
00000570  0d 02 a8 08 f2 44 3a e1  0d 02 b2 07 dd f2 56 0d  |.....D:.......V.|
00000580  02 bc 0b e3 20 4c 3d 31  b8 39 0d 02 c6 14 42 24  |.... L=1.9....B$|
00000590  28 4c 29 3d bd 28 41 28  4c 29 2b 34 39 29 0d 02  |(L)=.(A(L)+49)..|
000005a0  d0 18 e7 20 41 28 4c 29  3d 39 8c 20 42 24 28 4c  |... A(L)=9. B$(L|
000005b0  29 3d bd 32 32 34 0d 02  da 18 e7 20 41 28 4c 29  |)=.224..... A(L)|
000005c0  3d 31 30 8c 20 42 24 28  4c 29 3d 22 4a 22 0d 02  |=10. B$(L)="J"..|
000005d0  e4 18 e7 20 41 28 4c 29  3d 31 31 8c 20 42 24 28  |... A(L)=11. B$(|
000005e0  4c 29 3d 22 51 22 0d 02  ee 18 e7 20 41 28 4c 29  |L)="Q"..... A(L)|
000005f0  3d 31 32 8c 20 42 24 28  4c 29 3d 22 4b 22 0d 02  |=12. B$(L)="K"..|
00000600  f8 18 e7 20 41 28 4c 29  3d 31 33 8c 20 42 24 28  |... A(L)=13. B$(|
00000610  4c 29 3d 22 41 22 0d 03  02 07 ed 3a e1 0d 03 0c  |L)="A".....:....|
00000620  08 dd f2 53 48 0d 03 16  25 ef 35 3a e7 20 53 28  |...SH...%.5:. S(|
00000630  4a 29 3d 31 20 84 20 53  28 4a 29 3d 33 20 8c 20  |J)=1 . S(J)=3 . |
00000640  e6 30 2c 31 20 8b e6 30  2c 32 0d 03 20 0f ec 58  |.0,1 ..0,2.. ..X|
00000650  2b 35 30 2c 59 2b 31 30  30 0d 03 2a 0f f1 42 24  |+50,Y+100..*..B$|
00000660  28 4a 29 3a ef 34 3a e1  0d 03 34 07 dd f2 54 0d  |(J):.4:...4...T.|
00000670  03 3e 17 f1 8a 30 2c 31  29 22 54 61 72 67 65 74  |.>...0,1)"Target|
00000680  3d 22 2c 41 49 4d 0d 03  48 17 f1 8a 30 2c 33 29  |=",AIM..H...0,3)|
00000690  22 4d 69 6e 2e 62 65 74  3d 22 2c 4d 42 0d 03 52  |"Min.bet=",MB..R|
000006a0  15 f1 8a 30 2c 35 29 22  43 72 65 64 69 74 3d 22  |...0,5)"Credit="|
000006b0  2c 43 0d 03 5c 09 f2 42  53 3a e1 0d 03 66 07 dd  |,C..\..BS:...f..|
000006c0  f2 51 0d 03 70 1e f5 3a  f1 8a 30 2c 38 29 22 57  |.Q..p..:..0,8)"W|
000006d0  68 61 74 20 69 73 20 79  6f 75 72 20 62 65 74 22  |hat is your bet"|
000006e0  0d 03 7a 23 e8 8a 32 2c  31 30 29 22 42 65 74 3d  |..z#..2,10)"Bet=|
000006f0  22 42 3a f2 44 3a fd 42  3e 3d 4d 42 20 80 20 42  |"B:.D:.B>=MB . B|
00000700  3c 3d 43 0d 03 84 0e 43  3d 43 2d 42 3a f2 44 3a  |<=C....C=C-B:.D:|
00000710  e1 0d 03 8e 08 dd f2 48  4c 0d 03 98 1b f1 8a 30  |.......HL......0|
00000720  2c 38 29 22 48 69 67 68  65 72 20 6f 72 20 4c 6f  |,8)"Higher or Lo|
00000730  77 65 72 22 0d 03 a2 2a  f5 3a f1 8a 35 2c 31 30  |wer"...*.:..5,10|
00000740  29 22 48 2f 4c 2e 2e 2e  22 3a 41 24 3d be 3a fd  |)"H/L...":A$=.:.|
00000750  41 24 3d 22 48 22 84 20  41 24 3d 22 4c 22 0d 03  |A$="H". A$="L"..|
00000760  ac 68 e7 20 28 41 24 3d  22 4c 22 20 80 20 41 28  |.h. (A$="L" . A(|
00000770  4a 2b 31 29 3c 41 28 4a  29 29 20 84 20 28 41 24  |J+1)<A(J)) . (A$|
00000780  3d 22 48 22 20 80 20 41  28 4a 2b 31 29 3e 41 28  |="H" . A(J+1)>A(|
00000790  4a 29 29 20 8c 20 43 3d  43 2b 42 2a 32 3a d4 31  |J)) . C=C+B*2:.1|
000007a0  2c 2d 31 30 2c 32 30 30  2c 31 30 20 8b 20 d4 31  |,-10,200,10 . .1|
000007b0  2c 2d 31 30 2c 32 30 2c  31 30 3a d4 31 2c 2d 31  |,-10,20,10:.1,-1|
000007c0  30 2c 31 2c 31 30 0d 03  b6 0b f2 44 3a f2 55 3a  |0,1,10.....D:.U:|
000007d0  e1 0d 03 c0 07 dd f2 44  0d 03 ca 11 f1 8a 30 2c  |.......D......0,|
000007e0  37 29 89 28 38 30 29 3a  e1 0d 03 d4 07 dd f2 55  |7).(80):.......U|
000007f0  0d 03 de 17 f1 8a 38 2c  35 29 89 28 38 29 3a f1  |......8,5).(8):.|
00000800  8a 38 2c 35 29 2c 43 0d  03 e8 05 e1 0d 03 f2 08  |.8,5),C.........|
00000810  dd f2 42 53 0d 03 fc 1b  f1 8a 31 2c 31 33 29 22  |..BS......1,13)"|
00000820  42 65 73 74 20 20 20 20  20 54 6f 74 61 6c 22 0d  |Best     Total".|
00000830  04 06 1b f1 8a 31 2c 31  34 29 22 53 63 6f 72 65  |.....1,14)"Score|
00000840  20 20 20 20 53 63 6f 72  65 22 0d 04 10 12 f1 8a  |    Score"......|
00000850  30 2c 31 35 29 2c 42 53  2c 52 54 3b 0d 04 1a 05  |0,15),BS,RT;....|
00000860  e1 0d 04 24 09 ee 20 85  20 87 0d 04 2e 16 e7 20  |...$.. . ...... |
00000870  9f 3d 31 37 20 41 24 3d  22 22 3a e5 8d 54 6c 41  |.=17 A$="":..TlA|
00000880  0d 04 38 06 eb 36 0d 04  42 14 f6 3a f1 22 20 61  |..8..6..B..:." a|
00000890  74 20 6c 69 6e 65 20 22  3b 9e 0d 04 4c 05 e0 0d  |t line ";...L...|
000008a0  ff                                                |.|
000008a1