� Slides Database - Main
� Ken Down
� (c) The Micro User
(	�init
2>�"FX3":�=17��-2�� ��=17��:�" at line ";�:g%=�:�g%=27��
<�:�menu:��
F:
P&��menu:@%=&90A:�title("Main Menu")
Z$��tV@:�i%=1�6:�a$:�21i%". "a$:�
d:�30"*  OS Command"'"Press the key of your choice";:�7
n�:g%=�-48:�g%=-6g%=7
x�g%>0�g%<10
�_�g%=1�inputbox ��g%=2�inputslide ��g%=3�find ��g%=4�edit ��g%=5�remove ��g%=6�end ��g%=7�os
��
�S�Enter a new box,Enter a new slide,Find a slide,Edit a slide,Delete a slide,End
�:
�(��inputbox:�title("Enter a new box")
�=�code%+39=max%�7:�warn("This file is now full"):g%=�200:�
�format%=@%:@%=2
�+�24,12)"Date of box --/--":date$=�date
�>�24,13)"Start slide number: --":slide%=��get(44,13,2,�,3)
�:�24,14)"End slide number: --":end%=��get(42,14,2,�,3)
�#�28,0,23,79,2:�:�26:�screen1(�)
�!�:�getdetails:slide%=slide%+1
��slide%=end%+1:@%=format%:�

:

,��inputslide:�title("Enter a new slide")

<�code%+1=max%�7:�warn("This file is now full"):g%=�200:�

"format%=@%:@%=2

,-�22,12)"Date of slide --/--":date$=�date

68�22,13)"Slide number: --":slide%=��get(36,13,2,�,3)

@/�28,0,23,79,2:�:�26:�screen1(�):�getdetails

J@%=format%:�

T:

^%��edit:�title("Edit the records")

h&�24,12)"Edit code number: ------"

rn%=��get(42,12,6,�,7)-init%

|9�n%>max%�7:�warn("There is no such record"):g%=�200:�

��screen1(�)

��:�split(n%):�display

��in:�join(n%):�saveslide

�n%=n%+1:�n%=code%-init%:�

�:

���getdetails:�new:�display

�7�0,0)"Slide "slide%�44,0)�pack(code%,6)�55,0)date$

�>�in:�join(code%-init%):�s(a$)>" "�saveslide:code%=code%+1

��

�:

���in:�TRB

�)det$=�get(6,0,2,�,80):�det$=225��dtA

�,code$=�get(44,0,6,�,80):�code$=225��dtA
*dat$=�get(55,0,5,�,78):�dat$=225��d~A
3country$=�get(10,1,24,�,78):�country$=225��THB
/state$=�get(47,1,24,�,78):�state$=225��TRB
&-site$=�get(10,2,25,�,78):�site$=225��T\B
0*age$=�get(43,2,5,�,78):�age$=225��TfB
:*loc$=�get(60,2,4,�,78):�loc$=225��TpB
D,des1$=�get(0,4,90,1,78):�des1$=225��TzB
N/des2$=�get(0,7,l2%-2,1,78):�des2$=225��DDB
X�
b:
l4ݤget(x%,y%,l%,c%,m%):x1%=x%:y1%=y%:sp%=�:*FX4,1
v"�:�31,x1%,y1%:g%=�:�c%=-1sp%=�
�q�g%>64�g%<123�(�-1�sp%=�)符-106�(g%�223):x1%=x1%+1:sp%=� ��g%>64�g%<127�-106�sp%=� �(g%�96):x1%=x1%+1:sp%=�
�`�(g%>32�g%<65)�(g%>122�g%<127)�g%:x1%=x1%+1��g%=127�(x1%>x%�y1%>y%)x1%=x1%-1:�31,x1%,y1%,225
���g%=4�delete(x1%+1,y1%,x%+l%,m%)��g%=9��-38�insert(x1%,y1%,x%+l%,m%)��g%=9�:c%=��readscreen((x1%+1)�m%,y1%+((x1%+1)�m%),1,78):y1%=y1%+x1%�(m%-1):x1%=(x1%+1)�m%:�c%=129�x1%+(y1%-y%)*m%=x%+l%
���-1�g%=138g%=0:n%=n%+(n%>0):�split(n%):�display:g%=0��-1�g%=139g%=0:�join(n%):�saveslide:n%=n%-(n%<code%-init%-1):�split(n%):�display:g%=0
�"�g%=32�g%:x1%=x1%+1:sp%=(c%<1)
�6�g%=137x1%=x1%-(x1%<x%+l%)��g%=136x1%=x1%+(x1%>x%)
�*�x1%=x%�l%>m%�y1%>y%x1%=m%-1:y1%=y1%-1
�0�x1%=m%x1%=x%:y1%=y1%+1:�(y1%-y%)*m%=l%g%=13
�)�g%=13�g%=138�g%=139�x1%=x%+l%:�"FX4"
�1�g%=139=�l%,�225)�=�readscreen(x%,y%,l%-1,78)
�:
�#ݤreadscreen(x%,y%,l%,m%):a$=""
�M�i%=0�l%:�31,x%+(i%�m%),y%+i%�m%:c%=(�(&FFF4)�&FFFF)�&100:a$=a$+�c%:�:=a$
:
���delete(h%,j%,e%,m%):�d%=h%�e%:�31,d%�m%,j%+d%�m%:c%=(�(&FFF4)�&FFFF)�&100:�31,(d%-1)�m%,j%+(d%-1)�m%,c%:�:�31,(d%-2)�m%,j%+(d%-2)�m%,225:�
:
 v��insert(h%,j%,e%,m%):�d%=e%-2�h%�-1:�31,d%�m%,j%+d%�m%:c%=(�(&FFF4)�&FFFF)�&100:�31,(d%+1)�m%,j%+(d%+1)�m%,c%:�:�
*:
40��find:�title("Find slides"):format%=@%:@%=6
>,�0,14)"String to search for: "�30,�225)
H@s$=�get(22,14,30,�,78):s$=�s(s$):�title("Searching for "+s$)
R�#F%=0:�14:�
\+�S%=0�code%-init%-1:�#F%,a$:ex%=��a$,6)
f&�ex%>0�#G%=ex%*l2%:�#G%,b$�b$=�225
pg�a$,s$)��b$,s$):�divide:�S%". "country$" "�s(state$)" : "�s(site$)" ";:�s(des1$),30)�75)�s(loc$)
z-�:@%=format%:�"Press any key";:g%=�:�15:�
�:
�1��remove:�10,14)"Delete which slide? ------"
�:out%=��get(30,14,6,�,80)-init%:n%=out%:format%=@%:@%=6
�5�10,15)"Alter subsequent codes? (Y/N)";:g%=��223
�)�31,41,15,g%:�g%=89alter%=� �alter%=�
�,�split(out%):�title("Deleting a record")
�!�screen1(�):�display:�screen2
�+�26,15)"Are you sure? (Y/N)";:g%=��223
�#�31,46,15,g%:�g%=89in%=out%+1��
�S�C%=out%�code%-2:�#F%=in%*l1%:�#F%,a$:�alter%a$=�a$,157)+�pack(out%,6)+�a$,163)
�0�28,18)in%�48,18)out%:�#F%=out%*l1%:�#F%,a$
�9in%=in%+1:out%=out%+1:�:code%=out%+init%:@%=format%:�
�:

��open
��filecheck("D.Params")=0�20,15)"Initial code value: ------":init%=��get(40,15,6,�,80):code%=init%�H%=�"D.Params":�#H%,code%,extra%,init%:�#H%
V�filecheck("D.Slides")=0F%=�"D.Slides":G%=�"D.Extra"�F%=�"D.Slides":G%=�"D.Extra"
$
load%=�:�
.:
8��end:�#F%:�#G%
B8�code%>0:H%=�"D.Params":�#H%,code%,extra%,init%:�#H%
L�
V:
`+��saveslide:n%=�code$-init%:�#F%=n%*l1%
j&�s(b$)=""a$=a$+"000000":�#F%,a$:�
ti�extra$>"000000"a$=a$+extra$:�#G%=(�extra$)*l2%�extra%=extra%+1:�#G%=extra%*l2%:a$=a$+�pack(extra%,6)
~�#G%,b$:�#F%,a$:�
�:
�&ݤfilecheck(a$):fi%=�a$:�#fi%:=fi%
�:
�H��new:state$=�15,�225):country$=state$:site$=�25,�225):age$=�5,�225)
�>des1$=�90,�225):loc$=�4,�225):det$=�2,�225):code$=�6,�225)
�;dat$=date$:des2$=�l2%-2,�225):extra$=�6,"0"):n%=code%:�
�:
�#��split(r%):�#F%=r%*l1%:�#F%,a$
���divide
�s%=�a$," "):�s%=0s%=15
�Mcountry$=�a$,s%-1):state$=�a$,s%+1,30-s%):site$=�a$,31,25):age$=�a$,56,5)
�Edes1$=�a$,61,90):loc$=�a$,151,4):det$=�a$,155,2):code$=�a$,157,6)
=dat$=�a$,163,5):extra$=�a$,6):ex%=�extra$:�ex%>extra%�7:�

3�ex%��#G%=ex%*l2%:�#G%,des2$�des2$=�l2%-2,�225)
�
:
(d��join(r%):slide$=�readscreen(6,0,1,80):code$=�readscreen(44,0,5,80):dat$=�readscreen(55,0,4,80)
2Vloc$=�readscreen(60,2,3,80):lc$=�s(country$)+" "+�s(state$):lc$=lc$+�30-�lc$,�225)
<=a$=lc$+site$+age$+des1$+loc$+slide$+code$+dat$:b$=des2$:�
F:
P.ݤpack(num%,len%):=��len%,"0")+�num%,len%)
Z:
d?ݤs(a$):d1%=�a$,�225):d2%=�a$,�129):d1%=d1%-(d2%*(d2%>d1%))
n�d1%>0 =�a$,d1%-1)�=a$
x:
�D��screen1(e%):�box(0,1,80,11):�30,2)"Code number:"�65,2)"Free:"
�~�1,3)"Country:"�35,3)"State/City:"�1,4)"Site:"�38,4)"Date:"�51,4)"Location:"�1,5)"Details:"�1,8)"Additional information:"
�-�e%�129:�i%=13�23:�40,i%)�39," "):�:�128
��28,1,23,78,2:�help:�
�:
�3��screen2:�28,0,23,78,14,12,26:�box(25,14,32,2)
�%�box(27,17,8,2):�box(47,17,8,2):�
�:
���box(tx%,ty%,l%,h%)
�!�tx%,ty%)�227�l%-2,�226)�228
�7�i%=ty%+1�ty%+h%-1:�tx%,i%)�224�tx%+l%-1,i%)�224:�
�&�tx%,ty%+h%)�229�l%-2,�226)�230:�
�:
���display:�0,0)"Slide "det$�44,0)code$�55,0)dat$�71,0);max%-code%" "�10,1)country$�15-�country$,�225)�47,1)state$�10,2)site$�43,2)age$�60,2)loc$�0,4)des1$''des2$:�
:

��help
"W�4,14)�135�32�136�8"Move left or right"�4,15)�137�32�138�8"Previous or next field"
,E�4,16)"CTRL+I"�5"Insert a space"�4,17)"CTRL+D"�5"Delete a space"
6F�4,18)"SHIFT"�6"Force upper case"�4,19)"COPY"�7"Force lower case"
@-�4,20)"TAB"�8"Move to next free space":�
J:
TI��title(a$):�26:�:tab%=(68-�a$)�2:�tab%"SLIDE FILE - "a$'�80,�226):�
^:
h(��os:�0,15)"OS Command: *"�25,�225)
r(os$=�get(13,15,20,�,25):�:�(�s(os$))
|(�'"Press any key to continue":g%=�:�
�:
� ��warn(a$):�7:�'a$:g%=�200:�
�:
�ݤdate:date$=""
�D�i%=0�1:�j%=1�2:�36,12)date$;:date$=date$+�:�:date$=date$+"/":�
�=�date$,5)
�:
�T��init:�:max%=1000:code%=0:extra%=0:format%=&90A:load%=�:l1%=175:l2%=182:�open:�
�

00000000  0d 00 0a 1c f4 20 53 6c  69 64 65 73 20 44 61 74  |..... Slides Dat|
00000010  61 62 61 73 65 20 2d 20  4d 61 69 6e 0d 00 14 0e  |abase - Main....|
00000020  f4 20 4b 65 6e 20 44 6f  77 6e 0d 00 1e 18 f4 20  |. Ken Down..... |
00000030  28 63 29 20 54 68 65 20  4d 69 63 72 6f 20 55 73  |(c) The Micro Us|
00000040  65 72 0d 00 28 09 f2 69  6e 69 74 0d 00 32 3e ee  |er..(..init..2>.|
00000050  85 ff 22 46 58 33 22 3a  e7 9f 3d 31 37 80 a6 2d  |.."FX3":..=17..-|
00000060  32 8c e0 20 8b e7 9f 3d  31 37 8b f6 3a f1 22 20  |2.. ...=17..:." |
00000070  61 74 20 6c 69 6e 65 20  22 3b 9e 3a 67 25 3d a5  |at line ";.:g%=.|
00000080  3a e7 67 25 3d 32 37 8c  e0 0d 00 3c 0e f5 3a f2  |:.g%=27....<..:.|
00000090  6d 65 6e 75 3a fd a3 0d  00 46 05 3a 0d 00 50 26  |menu:....F.:..P&|
000000a0  dd f2 6d 65 6e 75 3a 40  25 3d 26 39 30 41 3a f2  |..menu:@%=&90A:.|
000000b0  74 69 74 6c 65 28 22 4d  61 69 6e 20 4d 65 6e 75  |title("Main Menu|
000000c0  22 29 0d 00 5a 24 f7 8d  74 56 40 3a e3 69 25 3d  |")..Z$..tV@:.i%=|
000000d0  31 b8 36 3a f3 61 24 3a  f1 89 32 31 69 25 22 2e  |1.6:.a$:..21i%".|
000000e0  20 22 61 24 3a ed 0d 00  64 3a f1 89 33 30 22 2a  | "a$:...d:..30"*|
000000f0  20 20 4f 53 20 43 6f 6d  6d 61 6e 64 22 27 22 50  |  OS Command"'"P|
00000100  72 65 73 73 20 74 68 65  20 6b 65 79 20 6f 66 20  |ress the key of |
00000110  79 6f 75 72 20 63 68 6f  69 63 65 22 3b 3a fb 37  |your choice";:.7|
00000120  0d 00 6e 18 f5 3a 67 25  3d a5 2d 34 38 3a e7 67  |..n..:g%=.-48:.g|
00000130  25 3d 2d 36 67 25 3d 37  0d 00 78 0f fd 67 25 3e  |%=-6g%=7..x..g%>|
00000140  30 80 67 25 3c 31 30 0d  00 82 5f e7 67 25 3d 31  |0.g%<10..._.g%=1|
00000150  f2 69 6e 70 75 74 62 6f  78 20 8b e7 67 25 3d 32  |.inputbox ..g%=2|
00000160  f2 69 6e 70 75 74 73 6c  69 64 65 20 8b e7 67 25  |.inputslide ..g%|
00000170  3d 33 f2 66 69 6e 64 20  8b e7 67 25 3d 34 f2 65  |=3.find ..g%=4.e|
00000180  64 69 74 20 8b e7 67 25  3d 35 f2 72 65 6d 6f 76  |dit ..g%=5.remov|
00000190  65 20 8b e7 67 25 3d 36  f2 65 6e 64 20 8b e7 67  |e ..g%=6.end ..g|
000001a0  25 3d 37 f2 6f 73 0d 00  8c 05 e1 0d 00 96 53 dc  |%=7.os........S.|
000001b0  45 6e 74 65 72 20 61 20  6e 65 77 20 62 6f 78 2c  |Enter a new box,|
000001c0  45 6e 74 65 72 20 61 20  6e 65 77 20 73 6c 69 64  |Enter a new slid|
000001d0  65 2c 46 69 6e 64 20 61  20 73 6c 69 64 65 2c 45  |e,Find a slide,E|
000001e0  64 69 74 20 61 20 73 6c  69 64 65 2c 44 65 6c 65  |dit a slide,Dele|
000001f0  74 65 20 61 20 73 6c 69  64 65 2c 45 6e 64 0d 00  |te a slide,End..|
00000200  a0 05 3a 0d 00 aa 28 dd  f2 69 6e 70 75 74 62 6f  |..:...(..inputbo|
00000210  78 3a f2 74 69 74 6c 65  28 22 45 6e 74 65 72 20  |x:.title("Enter |
00000220  61 20 6e 65 77 20 62 6f  78 22 29 0d 00 b4 3d e7  |a new box")...=.|
00000230  63 6f 64 65 25 2b 33 39  3d 6d 61 78 25 ef 37 3a  |code%+39=max%.7:|
00000240  f2 77 61 72 6e 28 22 54  68 69 73 20 66 69 6c 65  |.warn("This file|
00000250  20 69 73 20 6e 6f 77 20  66 75 6c 6c 22 29 3a 67  | is now full"):g|
00000260  25 3d a6 32 30 30 3a e1  0d 00 be 13 66 6f 72 6d  |%=.200:.....form|
00000270  61 74 25 3d 40 25 3a 40  25 3d 32 0d 00 c8 2b f1  |at%=@%:@%=2...+.|
00000280  8a 32 34 2c 31 32 29 22  44 61 74 65 20 6f 66 20  |.24,12)"Date of |
00000290  62 6f 78 20 2d 2d 2f 2d  2d 22 3a 64 61 74 65 24  |box --/--":date$|
000002a0  3d a4 64 61 74 65 0d 00  d2 3e f1 8a 32 34 2c 31  |=.date...>..24,1|
000002b0  33 29 22 53 74 61 72 74  20 73 6c 69 64 65 20 6e  |3)"Start slide n|
000002c0  75 6d 62 65 72 3a 20 2d  2d 22 3a 73 6c 69 64 65  |umber: --":slide|
000002d0  25 3d bb a4 67 65 74 28  34 34 2c 31 33 2c 32 2c  |%=..get(44,13,2,|
000002e0  b9 2c 33 29 0d 00 dc 3a  f1 8a 32 34 2c 31 34 29  |.,3)...:..24,14)|
000002f0  22 45 6e 64 20 73 6c 69  64 65 20 6e 75 6d 62 65  |"End slide numbe|
00000300  72 3a 20 2d 2d 22 3a 65  6e 64 25 3d bb a4 67 65  |r: --":end%=..ge|
00000310  74 28 34 32 2c 31 34 2c  32 2c b9 2c 33 29 0d 00  |t(42,14,2,.,3)..|
00000320  e6 23 ef 32 38 2c 30 2c  32 33 2c 37 39 2c 32 3a  |.#.28,0,23,79,2:|
00000330  db 3a ef 32 36 3a f2 73  63 72 65 65 6e 31 28 b9  |.:.26:.screen1(.|
00000340  29 0d 00 f0 21 f5 3a f2  67 65 74 64 65 74 61 69  |)...!.:.getdetai|
00000350  6c 73 3a 73 6c 69 64 65  25 3d 73 6c 69 64 65 25  |ls:slide%=slide%|
00000360  2b 31 0d 00 fa 1f fd 73  6c 69 64 65 25 3d 65 6e  |+1.....slide%=en|
00000370  64 25 2b 31 3a 40 25 3d  66 6f 72 6d 61 74 25 3a  |d%+1:@%=format%:|
00000380  e1 0d 01 04 05 3a 0d 01  0e 2c dd f2 69 6e 70 75  |.....:...,..inpu|
00000390  74 73 6c 69 64 65 3a f2  74 69 74 6c 65 28 22 45  |tslide:.title("E|
000003a0  6e 74 65 72 20 61 20 6e  65 77 20 73 6c 69 64 65  |nter a new slide|
000003b0  22 29 0d 01 18 3c e7 63  6f 64 65 25 2b 31 3d 6d  |")...<.code%+1=m|
000003c0  61 78 25 ef 37 3a f2 77  61 72 6e 28 22 54 68 69  |ax%.7:.warn("Thi|
000003d0  73 20 66 69 6c 65 20 69  73 20 6e 6f 77 20 66 75  |s file is now fu|
000003e0  6c 6c 22 29 3a 67 25 3d  a6 32 30 30 3a e1 0d 01  |ll"):g%=.200:...|
000003f0  22 13 66 6f 72 6d 61 74  25 3d 40 25 3a 40 25 3d  |".format%=@%:@%=|
00000400  32 0d 01 2c 2d f1 8a 32  32 2c 31 32 29 22 44 61  |2..,-..22,12)"Da|
00000410  74 65 20 6f 66 20 73 6c  69 64 65 20 2d 2d 2f 2d  |te of slide --/-|
00000420  2d 22 3a 64 61 74 65 24  3d a4 64 61 74 65 0d 01  |-":date$=.date..|
00000430  36 38 f1 8a 32 32 2c 31  33 29 22 53 6c 69 64 65  |68..22,13)"Slide|
00000440  20 6e 75 6d 62 65 72 3a  20 2d 2d 22 3a 73 6c 69  | number: --":sli|
00000450  64 65 25 3d bb a4 67 65  74 28 33 36 2c 31 33 2c  |de%=..get(36,13,|
00000460  32 2c b9 2c 33 29 0d 01  40 2f ef 32 38 2c 30 2c  |2,.,3)..@/.28,0,|
00000470  32 33 2c 37 39 2c 32 3a  db 3a ef 32 36 3a f2 73  |23,79,2:.:.26:.s|
00000480  63 72 65 65 6e 31 28 b9  29 3a f2 67 65 74 64 65  |creen1(.):.getde|
00000490  74 61 69 6c 73 0d 01 4a  10 40 25 3d 66 6f 72 6d  |tails..J.@%=form|
000004a0  61 74 25 3a e1 0d 01 54  05 3a 0d 01 5e 25 dd f2  |at%:...T.:..^%..|
000004b0  65 64 69 74 3a f2 74 69  74 6c 65 28 22 45 64 69  |edit:.title("Edi|
000004c0  74 20 74 68 65 20 72 65  63 6f 72 64 73 22 29 0d  |t the records").|
000004d0  01 68 26 f1 8a 32 34 2c  31 32 29 22 45 64 69 74  |.h&..24,12)"Edit|
000004e0  20 63 6f 64 65 20 6e 75  6d 62 65 72 3a 20 2d 2d  | code number: --|
000004f0  2d 2d 2d 2d 22 0d 01 72  1f 6e 25 3d bb a4 67 65  |----"..r.n%=..ge|
00000500  74 28 34 32 2c 31 32 2c  36 2c b9 2c 37 29 2d 69  |t(42,12,6,.,7)-i|
00000510  6e 69 74 25 0d 01 7c 39  e7 6e 25 3e 6d 61 78 25  |nit%..|9.n%>max%|
00000520  ef 37 3a f2 77 61 72 6e  28 22 54 68 65 72 65 20  |.7:.warn("There |
00000530  69 73 20 6e 6f 20 73 75  63 68 20 72 65 63 6f 72  |is no such recor|
00000540  64 22 29 3a 67 25 3d a6  32 30 30 3a e1 0d 01 86  |d"):g%=.200:....|
00000550  0f f2 73 63 72 65 65 6e  31 28 b9 29 0d 01 90 19  |..screen1(.)....|
00000560  f5 3a f2 73 70 6c 69 74  28 6e 25 29 3a f2 64 69  |.:.split(n%):.di|
00000570  73 70 6c 61 79 0d 01 9a  1c f2 69 6e 3a f2 6a 6f  |splay.....in:.jo|
00000580  69 6e 28 6e 25 29 3a f2  73 61 76 65 73 6c 69 64  |in(n%):.saveslid|
00000590  65 0d 01 a4 1d 6e 25 3d  6e 25 2b 31 3a fd 6e 25  |e....n%=n%+1:.n%|
000005a0  3d 63 6f 64 65 25 2d 69  6e 69 74 25 3a e1 0d 01  |=code%-init%:...|
000005b0  ae 05 3a 0d 01 b8 1e dd  f2 67 65 74 64 65 74 61  |..:......getdeta|
000005c0  69 6c 73 3a f2 6e 65 77  3a f2 64 69 73 70 6c 61  |ils:.new:.displa|
000005d0  79 0d 01 c2 37 f1 8a 30  2c 30 29 22 53 6c 69 64  |y...7..0,0)"Slid|
000005e0  65 20 22 73 6c 69 64 65  25 8a 34 34 2c 30 29 a4  |e "slide%.44,0).|
000005f0  70 61 63 6b 28 63 6f 64  65 25 2c 36 29 8a 35 35  |pack(code%,6).55|
00000600  2c 30 29 64 61 74 65 24  0d 01 cc 3e f2 69 6e 3a  |,0)date$...>.in:|
00000610  f2 6a 6f 69 6e 28 63 6f  64 65 25 2d 69 6e 69 74  |.join(code%-init|
00000620  25 29 3a e7 a4 73 28 61  24 29 3e 22 20 22 f2 73  |%):..s(a$)>" ".s|
00000630  61 76 65 73 6c 69 64 65  3a 63 6f 64 65 25 3d 63  |aveslide:code%=c|
00000640  6f 64 65 25 2b 31 0d 01  d6 05 e1 0d 01 e0 05 3a  |ode%+1.........:|
00000650  0d 01 ea 0e dd f2 69 6e  3a e5 8d 54 52 42 0d 01  |......in:..TRB..|
00000660  f4 29 64 65 74 24 3d a4  67 65 74 28 36 2c 30 2c  |.)det$=.get(6,0,|
00000670  32 2c b9 2c 38 30 29 3a  e7 97 64 65 74 24 3d 32  |2,.,80):..det$=2|
00000680  32 35 8c 8d 64 74 41 0d  01 fe 2c 63 6f 64 65 24  |25..dtA...,code$|
00000690  3d a4 67 65 74 28 34 34  2c 30 2c 36 2c b9 2c 38  |=.get(44,0,6,.,8|
000006a0  30 29 3a e7 97 63 6f 64  65 24 3d 32 32 35 8c 8d  |0):..code$=225..|
000006b0  64 74 41 0d 02 08 2a 64  61 74 24 3d a4 67 65 74  |dtA...*dat$=.get|
000006c0  28 35 35 2c 30 2c 35 2c  b9 2c 37 38 29 3a e7 97  |(55,0,5,.,78):..|
000006d0  64 61 74 24 3d 32 32 35  8c 8d 64 7e 41 0d 02 12  |dat$=225..d~A...|
000006e0  33 63 6f 75 6e 74 72 79  24 3d a4 67 65 74 28 31  |3country$=.get(1|
000006f0  30 2c 31 2c 32 34 2c b9  2c 37 38 29 3a e7 97 63  |0,1,24,.,78):..c|
00000700  6f 75 6e 74 72 79 24 3d  32 32 35 8c 8d 54 48 42  |ountry$=225..THB|
00000710  0d 02 1c 2f 73 74 61 74  65 24 3d a4 67 65 74 28  |.../state$=.get(|
00000720  34 37 2c 31 2c 32 34 2c  a3 2c 37 38 29 3a e7 97  |47,1,24,.,78):..|
00000730  73 74 61 74 65 24 3d 32  32 35 8c 8d 54 52 42 0d  |state$=225..TRB.|
00000740  02 26 2d 73 69 74 65 24  3d a4 67 65 74 28 31 30  |.&-site$=.get(10|
00000750  2c 32 2c 32 35 2c a3 2c  37 38 29 3a e7 97 73 69  |,2,25,.,78):..si|
00000760  74 65 24 3d 32 32 35 8c  8d 54 5c 42 0d 02 30 2a  |te$=225..T\B..0*|
00000770  61 67 65 24 3d a4 67 65  74 28 34 33 2c 32 2c 35  |age$=.get(43,2,5|
00000780  2c b9 2c 37 38 29 3a e7  97 61 67 65 24 3d 32 32  |,.,78):..age$=22|
00000790  35 8c 8d 54 66 42 0d 02  3a 2a 6c 6f 63 24 3d a4  |5..TfB..:*loc$=.|
000007a0  67 65 74 28 36 30 2c 32  2c 34 2c b9 2c 37 38 29  |get(60,2,4,.,78)|
000007b0  3a e7 97 6c 6f 63 24 3d  32 32 35 8c 8d 54 70 42  |:..loc$=225..TpB|
000007c0  0d 02 44 2c 64 65 73 31  24 3d a4 67 65 74 28 30  |..D,des1$=.get(0|
000007d0  2c 34 2c 39 30 2c 31 2c  37 38 29 3a e7 97 64 65  |,4,90,1,78):..de|
000007e0  73 31 24 3d 32 32 35 8c  8d 54 7a 42 0d 02 4e 2f  |s1$=225..TzB..N/|
000007f0  64 65 73 32 24 3d a4 67  65 74 28 30 2c 37 2c 6c  |des2$=.get(0,7,l|
00000800  32 25 2d 32 2c 31 2c 37  38 29 3a e7 97 64 65 73  |2%-2,1,78):..des|
00000810  32 24 3d 32 32 35 8c 8d  44 44 42 0d 02 58 05 e1  |2$=225..DDB..X..|
00000820  0d 02 62 05 3a 0d 02 6c  34 dd a4 67 65 74 28 78  |..b.:..l4..get(x|
00000830  25 2c 79 25 2c 6c 25 2c  63 25 2c 6d 25 29 3a 78  |%,y%,l%,c%,m%):x|
00000840  31 25 3d 78 25 3a 79 31  25 3d 79 25 3a 73 70 25  |1%=x%:y1%=y%:sp%|
00000850  3d b9 3a 2a 46 58 34 2c  31 0d 02 76 22 f5 3a ef  |=.:*FX4,1..v".:.|
00000860  33 31 2c 78 31 25 2c 79  31 25 3a 67 25 3d a5 3a  |31,x1%,y1%:g%=.:|
00000870  e7 63 25 3d 2d 31 73 70  25 3d b9 0d 02 80 71 e7  |.c%=-1sp%=....q.|
00000880  67 25 3e 36 34 e7 67 25  3c 31 32 33 e7 28 a6 2d  |g%>64.g%<123.(.-|
00000890  31 84 73 70 25 3d b9 29  e7 ac a6 2d 31 30 36 ef  |1.sp%=.)...-106.|
000008a0  28 67 25 80 32 32 33 29  3a 78 31 25 3d 78 31 25  |(g%.223):x1%=x1%|
000008b0  2b 31 3a 73 70 25 3d a3  20 8b e7 67 25 3e 36 34  |+1:sp%=. ..g%>64|
000008c0  e7 67 25 3c 31 32 37 e7  a6 2d 31 30 36 84 73 70  |.g%<127..-106.sp|
000008d0  25 3d a3 20 ef 28 67 25  84 39 36 29 3a 78 31 25  |%=. .(g%.96):x1%|
000008e0  3d 78 31 25 2b 31 3a 73  70 25 3d a3 0d 02 8a 60  |=x1%+1:sp%=....`|
000008f0  e7 28 67 25 3e 33 32 80  67 25 3c 36 35 29 84 28  |.(g%>32.g%<65).(|
00000900  67 25 3e 31 32 32 80 67  25 3c 31 32 37 29 ef 67  |g%>122.g%<127).g|
00000910  25 3a 78 31 25 3d 78 31  25 2b 31 8b e7 67 25 3d  |%:x1%=x1%+1..g%=|
00000920  31 32 37 80 28 78 31 25  3e 78 25 84 79 31 25 3e  |127.(x1%>x%.y1%>|
00000930  79 25 29 78 31 25 3d 78  31 25 2d 31 3a ef 33 31  |y%)x1%=x1%-1:.31|
00000940  2c 78 31 25 2c 79 31 25  2c 32 32 35 0d 02 94 c1  |,x1%,y1%,225....|
00000950  e7 67 25 3d 34 f2 64 65  6c 65 74 65 28 78 31 25  |.g%=4.delete(x1%|
00000960  2b 31 2c 79 31 25 2c 78  25 2b 6c 25 2c 6d 25 29  |+1,y1%,x%+l%,m%)|
00000970  8b e7 67 25 3d 39 80 a6  2d 33 38 f2 69 6e 73 65  |..g%=9..-38.inse|
00000980  72 74 28 78 31 25 2c 79  31 25 2c 78 25 2b 6c 25  |rt(x1%,y1%,x%+l%|
00000990  2c 6d 25 29 8b e7 67 25  3d 39 f5 3a 63 25 3d 97  |,m%)..g%=9.:c%=.|
000009a0  a4 72 65 61 64 73 63 72  65 65 6e 28 28 78 31 25  |.readscreen((x1%|
000009b0  2b 31 29 83 6d 25 2c 79  31 25 2b 28 28 78 31 25  |+1).m%,y1%+((x1%|
000009c0  2b 31 29 81 6d 25 29 2c  31 2c 37 38 29 3a 79 31  |+1).m%),1,78):y1|
000009d0  25 3d 79 31 25 2b 78 31  25 81 28 6d 25 2d 31 29  |%=y1%+x1%.(m%-1)|
000009e0  3a 78 31 25 3d 28 78 31  25 2b 31 29 83 6d 25 3a  |:x1%=(x1%+1).m%:|
000009f0  fd 63 25 3d 31 32 39 84  78 31 25 2b 28 79 31 25  |.c%=129.x1%+(y1%|
00000a00  2d 79 25 29 2a 6d 25 3d  78 25 2b 6c 25 0d 02 9e  |-y%)*m%=x%+l%...|
00000a10  90 e7 a6 2d 31 e7 67 25  3d 31 33 38 67 25 3d 30  |...-1.g%=138g%=0|
00000a20  3a 6e 25 3d 6e 25 2b 28  6e 25 3e 30 29 3a f2 73  |:n%=n%+(n%>0):.s|
00000a30  70 6c 69 74 28 6e 25 29  3a f2 64 69 73 70 6c 61  |plit(n%):.displa|
00000a40  79 3a 67 25 3d 30 8b e7  a6 2d 31 e7 67 25 3d 31  |y:g%=0...-1.g%=1|
00000a50  33 39 67 25 3d 30 3a f2  6a 6f 69 6e 28 6e 25 29  |39g%=0:.join(n%)|
00000a60  3a f2 73 61 76 65 73 6c  69 64 65 3a 6e 25 3d 6e  |:.saveslide:n%=n|
00000a70  25 2d 28 6e 25 3c 63 6f  64 65 25 2d 69 6e 69 74  |%-(n%<code%-init|
00000a80  25 2d 31 29 3a f2 73 70  6c 69 74 28 6e 25 29 3a  |%-1):.split(n%):|
00000a90  f2 64 69 73 70 6c 61 79  3a 67 25 3d 30 0d 02 a8  |.display:g%=0...|
00000aa0  22 e7 67 25 3d 33 32 ef  67 25 3a 78 31 25 3d 78  |".g%=32.g%:x1%=x|
00000ab0  31 25 2b 31 3a 73 70 25  3d 28 63 25 3c 31 29 0d  |1%+1:sp%=(c%<1).|
00000ac0  02 b2 36 e7 67 25 3d 31  33 37 78 31 25 3d 78 31  |..6.g%=137x1%=x1|
00000ad0  25 2d 28 78 31 25 3c 78  25 2b 6c 25 29 8b e7 67  |%-(x1%<x%+l%)..g|
00000ae0  25 3d 31 33 36 78 31 25  3d 78 31 25 2b 28 78 31  |%=136x1%=x1%+(x1|
00000af0  25 3e 78 25 29 0d 02 bc  2a e7 78 31 25 3d 78 25  |%>x%)...*.x1%=x%|
00000b00  e7 6c 25 3e 6d 25 e7 79  31 25 3e 79 25 78 31 25  |.l%>m%.y1%>y%x1%|
00000b10  3d 6d 25 2d 31 3a 79 31  25 3d 79 31 25 2d 31 0d  |=m%-1:y1%=y1%-1.|
00000b20  02 c6 30 e7 78 31 25 3d  6d 25 78 31 25 3d 78 25  |..0.x1%=m%x1%=x%|
00000b30  3a 79 31 25 3d 79 31 25  2b 31 3a e7 28 79 31 25  |:y1%=y1%+1:.(y1%|
00000b40  2d 79 25 29 2a 6d 25 3d  6c 25 67 25 3d 31 33 0d  |-y%)*m%=l%g%=13.|
00000b50  02 d0 29 fd 67 25 3d 31  33 84 67 25 3d 31 33 38  |..).g%=13.g%=138|
00000b60  84 67 25 3d 31 33 39 84  78 31 25 3d 78 25 2b 6c  |.g%=139.x1%=x%+l|
00000b70  25 3a ff 22 46 58 34 22  0d 02 da 31 e7 67 25 3d  |%:."FX4"...1.g%=|
00000b80  31 33 39 3d c4 6c 25 2c  bd 32 32 35 29 8b 3d a4  |139=.l%,.225).=.|
00000b90  72 65 61 64 73 63 72 65  65 6e 28 78 25 2c 79 25  |readscreen(x%,y%|
00000ba0  2c 6c 25 2d 31 2c 37 38  29 0d 02 e4 05 3a 0d 02  |,l%-1,78)....:..|
00000bb0  ee 23 dd a4 72 65 61 64  73 63 72 65 65 6e 28 78  |.#..readscreen(x|
00000bc0  25 2c 79 25 2c 6c 25 2c  6d 25 29 3a 61 24 3d 22  |%,y%,l%,m%):a$="|
00000bd0  22 0d 02 f8 4d e3 69 25  3d 30 b8 6c 25 3a ef 33  |"...M.i%=0.l%:.3|
00000be0  31 2c 78 25 2b 28 69 25  83 6d 25 29 2c 79 25 2b  |1,x%+(i%.m%),y%+|
00000bf0  69 25 81 6d 25 3a 63 25  3d 28 ba 28 26 46 46 46  |i%.m%:c%=(.(&FFF|
00000c00  34 29 80 26 46 46 46 46  29 81 26 31 30 30 3a 61  |4).&FFFF).&100:a|
00000c10  24 3d 61 24 2b bd 63 25  3a ed 3a 3d 61 24 0d 03  |$=a$+.c%:.:=a$..|
00000c20  02 05 3a 0d 03 0c 90 dd  f2 64 65 6c 65 74 65 28  |..:......delete(|
00000c30  68 25 2c 6a 25 2c 65 25  2c 6d 25 29 3a e3 64 25  |h%,j%,e%,m%):.d%|
00000c40  3d 68 25 b8 65 25 3a ef  33 31 2c 64 25 83 6d 25  |=h%.e%:.31,d%.m%|
00000c50  2c 6a 25 2b 64 25 81 6d  25 3a 63 25 3d 28 ba 28  |,j%+d%.m%:c%=(.(|
00000c60  26 46 46 46 34 29 80 26  46 46 46 46 29 81 26 31  |&FFF4).&FFFF).&1|
00000c70  30 30 3a ef 33 31 2c 28  64 25 2d 31 29 83 6d 25  |00:.31,(d%-1).m%|
00000c80  2c 6a 25 2b 28 64 25 2d  31 29 81 6d 25 2c 63 25  |,j%+(d%-1).m%,c%|
00000c90  3a ed 3a ef 33 31 2c 28  64 25 2d 32 29 83 6d 25  |:.:.31,(d%-2).m%|
00000ca0  2c 6a 25 2b 28 64 25 2d  32 29 81 6d 25 2c 32 32  |,j%+(d%-2).m%,22|
00000cb0  35 3a e1 0d 03 16 05 3a  0d 03 20 76 dd f2 69 6e  |5:.....:.. v..in|
00000cc0  73 65 72 74 28 68 25 2c  6a 25 2c 65 25 2c 6d 25  |sert(h%,j%,e%,m%|
00000cd0  29 3a e3 64 25 3d 65 25  2d 32 b8 68 25 88 2d 31  |):.d%=e%-2.h%.-1|
00000ce0  3a ef 33 31 2c 64 25 83  6d 25 2c 6a 25 2b 64 25  |:.31,d%.m%,j%+d%|
00000cf0  81 6d 25 3a 63 25 3d 28  ba 28 26 46 46 46 34 29  |.m%:c%=(.(&FFF4)|
00000d00  80 26 46 46 46 46 29 81  26 31 30 30 3a ef 33 31  |.&FFFF).&100:.31|
00000d10  2c 28 64 25 2b 31 29 83  6d 25 2c 6a 25 2b 28 64  |,(d%+1).m%,j%+(d|
00000d20  25 2b 31 29 81 6d 25 2c  63 25 3a ed 3a e1 0d 03  |%+1).m%,c%:.:...|
00000d30  2a 05 3a 0d 03 34 30 dd  f2 66 69 6e 64 3a f2 74  |*.:..40..find:.t|
00000d40  69 74 6c 65 28 22 46 69  6e 64 20 73 6c 69 64 65  |itle("Find slide|
00000d50  73 22 29 3a 66 6f 72 6d  61 74 25 3d 40 25 3a 40  |s"):format%=@%:@|
00000d60  25 3d 36 0d 03 3e 2c f1  8a 30 2c 31 34 29 22 53  |%=6..>,..0,14)"S|
00000d70  74 72 69 6e 67 20 74 6f  20 73 65 61 72 63 68 20  |tring to search |
00000d80  66 6f 72 3a 20 22 c4 33  30 2c bd 32 32 35 29 0d  |for: ".30,.225).|
00000d90  03 48 40 73 24 3d a4 67  65 74 28 32 32 2c 31 34  |.H@s$=.get(22,14|
00000da0  2c 33 30 2c a3 2c 37 38  29 3a 73 24 3d a4 73 28  |,30,.,78):s$=.s(|
00000db0  73 24 29 3a f2 74 69 74  6c 65 28 22 53 65 61 72  |s$):.title("Sear|
00000dc0  63 68 69 6e 67 20 66 6f  72 20 22 2b 73 24 29 0d  |ching for "+s$).|
00000dd0  03 52 10 cf 23 46 25 3d  30 3a ef 31 34 3a 87 0d  |.R..#F%=0:.14:..|
00000de0  03 5c 2b e3 53 25 3d 30  b8 63 6f 64 65 25 2d 69  |.\+.S%=0.code%-i|
00000df0  6e 69 74 25 2d 31 3a e8  23 46 25 2c 61 24 3a 65  |nit%-1:.#F%,a$:e|
00000e00  78 25 3d bb c2 61 24 2c  36 29 0d 03 66 26 e7 65  |x%=..a$,6)..f&.e|
00000e10  78 25 3e 30 8f 23 47 25  3d 65 78 25 2a 6c 32 25  |x%>0.#G%=ex%*l2%|
00000e20  3a e8 23 47 25 2c 62 24  8b 62 24 3d bd 32 32 35  |:.#G%,b$.b$=.225|
00000e30  0d 03 70 67 e7 a7 61 24  2c 73 24 29 84 a7 62 24  |..pg..a$,s$)..b$|
00000e40  2c 73 24 29 3a f2 64 69  76 69 64 65 3a f1 53 25  |,s$):.divide:.S%|
00000e50  22 2e 20 22 63 6f 75 6e  74 72 79 24 22 20 22 a4  |". "country$" ".|
00000e60  73 28 73 74 61 74 65 24  29 22 20 3a 20 22 a4 73  |s(state$)" : ".s|
00000e70  28 73 69 74 65 24 29 22  20 22 3b 3a f1 c0 a4 73  |(site$)" ";:...s|
00000e80  28 64 65 73 31 24 29 2c  33 30 29 8a 37 35 29 a4  |(des1$),30).75).|
00000e90  73 28 6c 6f 63 24 29 0d  03 7a 2d ed 3a 40 25 3d  |s(loc$)..z-.:@%=|
00000ea0  66 6f 72 6d 61 74 25 3a  f1 22 50 72 65 73 73 20  |format%:."Press |
00000eb0  61 6e 79 20 6b 65 79 22  3b 3a 67 25 3d a5 3a ef  |any key";:g%=.:.|
00000ec0  31 35 3a e1 0d 03 84 05  3a 0d 03 8e 31 dd f2 72  |15:.....:...1..r|
00000ed0  65 6d 6f 76 65 3a f1 8a  31 30 2c 31 34 29 22 44  |emove:..10,14)"D|
00000ee0  65 6c 65 74 65 20 77 68  69 63 68 20 73 6c 69 64  |elete which slid|
00000ef0  65 3f 20 2d 2d 2d 2d 2d  2d 22 0d 03 98 3a 6f 75  |e? ------"...:ou|
00000f00  74 25 3d bb a4 67 65 74  28 33 30 2c 31 34 2c 36  |t%=..get(30,14,6|
00000f10  2c b9 2c 38 30 29 2d 69  6e 69 74 25 3a 6e 25 3d  |,.,80)-init%:n%=|
00000f20  6f 75 74 25 3a 66 6f 72  6d 61 74 25 3d 40 25 3a  |out%:format%=@%:|
00000f30  40 25 3d 36 0d 03 a2 35  f1 8a 31 30 2c 31 35 29  |@%=6...5..10,15)|
00000f40  22 41 6c 74 65 72 20 73  75 62 73 65 71 75 65 6e  |"Alter subsequen|
00000f50  74 20 63 6f 64 65 73 3f  20 28 59 2f 4e 29 22 3b  |t codes? (Y/N)";|
00000f60  3a 67 25 3d a5 80 32 32  33 0d 03 ac 29 ef 33 31  |:g%=..223...).31|
00000f70  2c 34 31 2c 31 35 2c 67  25 3a e7 67 25 3d 38 39  |,41,15,g%:.g%=89|
00000f80  61 6c 74 65 72 25 3d b9  20 8b 61 6c 74 65 72 25  |alter%=. .alter%|
00000f90  3d a3 0d 03 b6 2c f2 73  70 6c 69 74 28 6f 75 74  |=....,.split(out|
00000fa0  25 29 3a f2 74 69 74 6c  65 28 22 44 65 6c 65 74  |%):.title("Delet|
00000fb0  69 6e 67 20 61 20 72 65  63 6f 72 64 22 29 0d 03  |ing a record")..|
00000fc0  c0 21 f2 73 63 72 65 65  6e 31 28 a3 29 3a f2 64  |.!.screen1(.):.d|
00000fd0  69 73 70 6c 61 79 3a f2  73 63 72 65 65 6e 32 0d  |isplay:.screen2.|
00000fe0  03 ca 2b f1 8a 32 36 2c  31 35 29 22 41 72 65 20  |..+..26,15)"Are |
00000ff0  79 6f 75 20 73 75 72 65  3f 20 28 59 2f 4e 29 22  |you sure? (Y/N)"|
00001000  3b 3a 67 25 3d a5 80 32  32 33 0d 03 d4 23 ef 33  |;:g%=..223...#.3|
00001010  31 2c 34 36 2c 31 35 2c  67 25 3a e7 67 25 3d 38  |1,46,15,g%:.g%=8|
00001020  39 69 6e 25 3d 6f 75 74  25 2b 31 8b e1 0d 03 de  |9in%=out%+1.....|
00001030  53 e3 43 25 3d 6f 75 74  25 b8 63 6f 64 65 25 2d  |S.C%=out%.code%-|
00001040  32 3a cf 23 46 25 3d 69  6e 25 2a 6c 31 25 3a e8  |2:.#F%=in%*l1%:.|
00001050  23 46 25 2c 61 24 3a e7  61 6c 74 65 72 25 61 24  |#F%,a$:.alter%a$|
00001060  3d c0 61 24 2c 31 35 37  29 2b a4 70 61 63 6b 28  |=.a$,157)+.pack(|
00001070  6f 75 74 25 2c 36 29 2b  c1 61 24 2c 31 36 33 29  |out%,6)+.a$,163)|
00001080  0d 03 e8 30 f1 8a 32 38  2c 31 38 29 69 6e 25 8a  |...0..28,18)in%.|
00001090  34 38 2c 31 38 29 6f 75  74 25 3a cf 23 46 25 3d  |48,18)out%:.#F%=|
000010a0  6f 75 74 25 2a 6c 31 25  3a f1 23 46 25 2c 61 24  |out%*l1%:.#F%,a$|
000010b0  0d 03 f2 39 69 6e 25 3d  69 6e 25 2b 31 3a 6f 75  |...9in%=in%+1:ou|
000010c0  74 25 3d 6f 75 74 25 2b  31 3a ed 3a 63 6f 64 65  |t%=out%+1:.:code|
000010d0  25 3d 6f 75 74 25 2b 69  6e 69 74 25 3a 40 25 3d  |%=out%+init%:@%=|
000010e0  66 6f 72 6d 61 74 25 3a  e1 0d 03 fc 05 3a 0d 04  |format%:.....:..|
000010f0  06 0a dd f2 6f 70 65 6e  0d 04 10 93 e7 a4 66 69  |....open......fi|
00001100  6c 65 63 68 65 63 6b 28  22 44 2e 50 61 72 61 6d  |lecheck("D.Param|
00001110  73 22 29 3d 30 f1 8a 32  30 2c 31 35 29 22 49 6e  |s")=0..20,15)"In|
00001120  69 74 69 61 6c 20 63 6f  64 65 20 76 61 6c 75 65  |itial code value|
00001130  3a 20 2d 2d 2d 2d 2d 2d  22 3a 69 6e 69 74 25 3d  |: ------":init%=|
00001140  bb a4 67 65 74 28 34 30  2c 31 35 2c 36 2c b9 2c  |..get(40,15,6,.,|
00001150  38 30 29 3a 63 6f 64 65  25 3d 69 6e 69 74 25 8b  |80):code%=init%.|
00001160  48 25 3d 8e 22 44 2e 50  61 72 61 6d 73 22 3a e8  |H%=."D.Params":.|
00001170  23 48 25 2c 63 6f 64 65  25 2c 65 78 74 72 61 25  |#H%,code%,extra%|
00001180  2c 69 6e 69 74 25 3a d9  23 48 25 0d 04 1a 56 e7  |,init%:.#H%...V.|
00001190  a4 66 69 6c 65 63 68 65  63 6b 28 22 44 2e 53 6c  |.filecheck("D.Sl|
000011a0  69 64 65 73 22 29 3d 30  46 25 3d ae 22 44 2e 53  |ides")=0F%=."D.S|
000011b0  6c 69 64 65 73 22 3a 47  25 3d ae 22 44 2e 45 78  |lides":G%=."D.Ex|
000011c0  74 72 61 22 8b 46 25 3d  ad 22 44 2e 53 6c 69 64  |tra".F%=."D.Slid|
000011d0  65 73 22 3a 47 25 3d ad  22 44 2e 45 78 74 72 61  |es":G%=."D.Extra|
000011e0  22 0d 04 24 0d 6c 6f 61  64 25 3d b9 3a e1 0d 04  |"..$.load%=.:...|
000011f0  2e 05 3a 0d 04 38 13 dd  f2 65 6e 64 3a d9 23 46  |..:..8...end:.#F|
00001200  25 3a d9 23 47 25 0d 04  42 38 e7 63 6f 64 65 25  |%:.#G%..B8.code%|
00001210  3e 30 3a 48 25 3d ae 22  44 2e 50 61 72 61 6d 73  |>0:H%=."D.Params|
00001220  22 3a f1 23 48 25 2c 63  6f 64 65 25 2c 65 78 74  |":.#H%,code%,ext|
00001230  72 61 25 2c 69 6e 69 74  25 3a d9 23 48 25 0d 04  |ra%,init%:.#H%..|
00001240  4c 05 e0 0d 04 56 05 3a  0d 04 60 2b dd f2 73 61  |L....V.:..`+..sa|
00001250  76 65 73 6c 69 64 65 3a  6e 25 3d bb 63 6f 64 65  |veslide:n%=.code|
00001260  24 2d 69 6e 69 74 25 3a  cf 23 46 25 3d 6e 25 2a  |$-init%:.#F%=n%*|
00001270  6c 31 25 0d 04 6a 26 e7  a4 73 28 62 24 29 3d 22  |l1%..j&..s(b$)="|
00001280  22 61 24 3d 61 24 2b 22  30 30 30 30 30 30 22 3a  |"a$=a$+"000000":|
00001290  f1 23 46 25 2c 61 24 3a  e1 0d 04 74 69 e7 65 78  |.#F%,a$:...ti.ex|
000012a0  74 72 61 24 3e 22 30 30  30 30 30 30 22 61 24 3d  |tra$>"000000"a$=|
000012b0  61 24 2b 65 78 74 72 61  24 3a cf 23 47 25 3d 28  |a$+extra$:.#G%=(|
000012c0  bb 65 78 74 72 61 24 29  2a 6c 32 25 8b 65 78 74  |.extra$)*l2%.ext|
000012d0  72 61 25 3d 65 78 74 72  61 25 2b 31 3a cf 23 47  |ra%=extra%+1:.#G|
000012e0  25 3d 65 78 74 72 61 25  2a 6c 32 25 3a 61 24 3d  |%=extra%*l2%:a$=|
000012f0  61 24 2b a4 70 61 63 6b  28 65 78 74 72 61 25 2c  |a$+.pack(extra%,|
00001300  36 29 0d 04 7e 15 f1 23  47 25 2c 62 24 3a f1 23  |6)..~..#G%,b$:.#|
00001310  46 25 2c 61 24 3a e1 0d  04 88 05 3a 0d 04 92 26  |F%,a$:.....:...&|
00001320  dd a4 66 69 6c 65 63 68  65 63 6b 28 61 24 29 3a  |..filecheck(a$):|
00001330  66 69 25 3d 8e 61 24 3a  d9 23 66 69 25 3a 3d 66  |fi%=.a$:.#fi%:=f|
00001340  69 25 0d 04 9c 05 3a 0d  04 a6 48 dd f2 6e 65 77  |i%....:...H..new|
00001350  3a 73 74 61 74 65 24 3d  c4 31 35 2c bd 32 32 35  |:state$=.15,.225|
00001360  29 3a 63 6f 75 6e 74 72  79 24 3d 73 74 61 74 65  |):country$=state|
00001370  24 3a 73 69 74 65 24 3d  c4 32 35 2c bd 32 32 35  |$:site$=.25,.225|
00001380  29 3a 61 67 65 24 3d c4  35 2c bd 32 32 35 29 0d  |):age$=.5,.225).|
00001390  04 b0 3e 64 65 73 31 24  3d c4 39 30 2c bd 32 32  |..>des1$=.90,.22|
000013a0  35 29 3a 6c 6f 63 24 3d  c4 34 2c bd 32 32 35 29  |5):loc$=.4,.225)|
000013b0  3a 64 65 74 24 3d c4 32  2c bd 32 32 35 29 3a 63  |:det$=.2,.225):c|
000013c0  6f 64 65 24 3d c4 36 2c  bd 32 32 35 29 0d 04 ba  |ode$=.6,.225)...|
000013d0  3b 64 61 74 24 3d 64 61  74 65 24 3a 64 65 73 32  |;dat$=date$:des2|
000013e0  24 3d c4 6c 32 25 2d 32  2c bd 32 32 35 29 3a 65  |$=.l2%-2,.225):e|
000013f0  78 74 72 61 24 3d c4 36  2c 22 30 22 29 3a 6e 25  |xtra$=.6,"0"):n%|
00001400  3d 63 6f 64 65 25 3a e1  0d 04 c4 05 3a 0d 04 ce  |=code%:.....:...|
00001410  23 dd f2 73 70 6c 69 74  28 72 25 29 3a cf 23 46  |#..split(r%):.#F|
00001420  25 3d 72 25 2a 6c 31 25  3a e8 23 46 25 2c 61 24  |%=r%*l1%:.#F%,a$|
00001430  0d 04 d8 0c dd f2 64 69  76 69 64 65 0d 04 e2 1a  |......divide....|
00001440  73 25 3d a7 61 24 2c 22  20 22 29 3a e7 73 25 3d  |s%=.a$," "):.s%=|
00001450  30 73 25 3d 31 35 0d 04  ec 4d 63 6f 75 6e 74 72  |0s%=15...Mcountr|
00001460  79 24 3d c0 61 24 2c 73  25 2d 31 29 3a 73 74 61  |y$=.a$,s%-1):sta|
00001470  74 65 24 3d c1 61 24 2c  73 25 2b 31 2c 33 30 2d  |te$=.a$,s%+1,30-|
00001480  73 25 29 3a 73 69 74 65  24 3d c1 61 24 2c 33 31  |s%):site$=.a$,31|
00001490  2c 32 35 29 3a 61 67 65  24 3d c1 61 24 2c 35 36  |,25):age$=.a$,56|
000014a0  2c 35 29 0d 04 f6 45 64  65 73 31 24 3d c1 61 24  |,5)...Edes1$=.a$|
000014b0  2c 36 31 2c 39 30 29 3a  6c 6f 63 24 3d c1 61 24  |,61,90):loc$=.a$|
000014c0  2c 31 35 31 2c 34 29 3a  64 65 74 24 3d c1 61 24  |,151,4):det$=.a$|
000014d0  2c 31 35 35 2c 32 29 3a  63 6f 64 65 24 3d c1 61  |,155,2):code$=.a|
000014e0  24 2c 31 35 37 2c 36 29  0d 05 00 3d 64 61 74 24  |$,157,6)...=dat$|
000014f0  3d c1 61 24 2c 31 36 33  2c 35 29 3a 65 78 74 72  |=.a$,163,5):extr|
00001500  61 24 3d c2 61 24 2c 36  29 3a 65 78 25 3d bb 65  |a$=.a$,6):ex%=.e|
00001510  78 74 72 61 24 3a e7 65  78 25 3e 65 78 74 72 61  |xtra$:.ex%>extra|
00001520  25 ef 37 3a e0 0d 05 0a  33 e7 65 78 25 8c cf 23  |%.7:....3.ex%..#|
00001530  47 25 3d 65 78 25 2a 6c  32 25 3a e8 23 47 25 2c  |G%=ex%*l2%:.#G%,|
00001540  64 65 73 32 24 8b 64 65  73 32 24 3d c4 6c 32 25  |des2$.des2$=.l2%|
00001550  2d 32 2c bd 32 32 35 29  0d 05 14 05 e1 0d 05 1e  |-2,.225)........|
00001560  05 3a 0d 05 28 64 dd f2  6a 6f 69 6e 28 72 25 29  |.:..(d..join(r%)|
00001570  3a 73 6c 69 64 65 24 3d  a4 72 65 61 64 73 63 72  |:slide$=.readscr|
00001580  65 65 6e 28 36 2c 30 2c  31 2c 38 30 29 3a 63 6f  |een(6,0,1,80):co|
00001590  64 65 24 3d a4 72 65 61  64 73 63 72 65 65 6e 28  |de$=.readscreen(|
000015a0  34 34 2c 30 2c 35 2c 38  30 29 3a 64 61 74 24 3d  |44,0,5,80):dat$=|
000015b0  a4 72 65 61 64 73 63 72  65 65 6e 28 35 35 2c 30  |.readscreen(55,0|
000015c0  2c 34 2c 38 30 29 0d 05  32 56 6c 6f 63 24 3d a4  |,4,80)..2Vloc$=.|
000015d0  72 65 61 64 73 63 72 65  65 6e 28 36 30 2c 32 2c  |readscreen(60,2,|
000015e0  33 2c 38 30 29 3a 6c 63  24 3d a4 73 28 63 6f 75  |3,80):lc$=.s(cou|
000015f0  6e 74 72 79 24 29 2b 22  20 22 2b a4 73 28 73 74  |ntry$)+" "+.s(st|
00001600  61 74 65 24 29 3a 6c 63  24 3d 6c 63 24 2b c4 33  |ate$):lc$=lc$+.3|
00001610  30 2d a9 6c 63 24 2c bd  32 32 35 29 0d 05 3c 3d  |0-.lc$,.225)..<=|
00001620  61 24 3d 6c 63 24 2b 73  69 74 65 24 2b 61 67 65  |a$=lc$+site$+age|
00001630  24 2b 64 65 73 31 24 2b  6c 6f 63 24 2b 73 6c 69  |$+des1$+loc$+sli|
00001640  64 65 24 2b 63 6f 64 65  24 2b 64 61 74 24 3a 62  |de$+code$+dat$:b|
00001650  24 3d 64 65 73 32 24 3a  e1 0d 05 46 05 3a 0d 05  |$=des2$:...F.:..|
00001660  50 2e dd a4 70 61 63 6b  28 6e 75 6d 25 2c 6c 65  |P...pack(num%,le|
00001670  6e 25 29 3a 3d c2 c4 6c  65 6e 25 2c 22 30 22 29  |n%):=..len%,"0")|
00001680  2b c3 6e 75 6d 25 2c 6c  65 6e 25 29 0d 05 5a 05  |+.num%,len%)..Z.|
00001690  3a 0d 05 64 3f dd a4 73  28 61 24 29 3a 64 31 25  |:..d?..s(a$):d1%|
000016a0  3d a7 61 24 2c bd 32 32  35 29 3a 64 32 25 3d a7  |=.a$,.225):d2%=.|
000016b0  61 24 2c bd 31 32 39 29  3a 64 31 25 3d 64 31 25  |a$,.129):d1%=d1%|
000016c0  2d 28 64 32 25 2a 28 64  32 25 3e 64 31 25 29 29  |-(d2%*(d2%>d1%))|
000016d0  0d 05 6e 1a e7 64 31 25  3e 30 20 3d c0 61 24 2c  |..n..d1%>0 =.a$,|
000016e0  64 31 25 2d 31 29 8b 3d  61 24 0d 05 78 05 3a 0d  |d1%-1).=a$..x.:.|
000016f0  05 82 44 dd f2 73 63 72  65 65 6e 31 28 65 25 29  |..D..screen1(e%)|
00001700  3a f2 62 6f 78 28 30 2c  31 2c 38 30 2c 31 31 29  |:.box(0,1,80,11)|
00001710  3a f1 8a 33 30 2c 32 29  22 43 6f 64 65 20 6e 75  |:..30,2)"Code nu|
00001720  6d 62 65 72 3a 22 8a 36  35 2c 32 29 22 46 72 65  |mber:".65,2)"Fre|
00001730  65 3a 22 0d 05 8c 7e f1  8a 31 2c 33 29 22 43 6f  |e:"...~..1,3)"Co|
00001740  75 6e 74 72 79 3a 22 8a  33 35 2c 33 29 22 53 74  |untry:".35,3)"St|
00001750  61 74 65 2f 43 69 74 79  3a 22 8a 31 2c 34 29 22  |ate/City:".1,4)"|
00001760  53 69 74 65 3a 22 8a 33  38 2c 34 29 22 44 61 74  |Site:".38,4)"Dat|
00001770  65 3a 22 8a 35 31 2c 34  29 22 4c 6f 63 61 74 69  |e:".51,4)"Locati|
00001780  6f 6e 3a 22 8a 31 2c 35  29 22 44 65 74 61 69 6c  |on:".1,5)"Detail|
00001790  73 3a 22 8a 31 2c 38 29  22 41 64 64 69 74 69 6f  |s:".1,8)"Additio|
000017a0  6e 61 6c 20 69 6e 66 6f  72 6d 61 74 69 6f 6e 3a  |nal information:|
000017b0  22 0d 05 96 2d e7 65 25  fb 31 32 39 3a e3 69 25  |"...-.e%.129:.i%|
000017c0  3d 31 33 b8 32 33 3a f1  8a 34 30 2c 69 25 29 c4  |=13.23:..40,i%).|
000017d0  33 39 2c 22 20 22 29 3a  ed 3a fb 31 32 38 0d 05  |39," "):.:.128..|
000017e0  a0 19 ef 32 38 2c 31 2c  32 33 2c 37 38 2c 32 3a  |...28,1,23,78,2:|
000017f0  f2 68 65 6c 70 3a e1 0d  05 aa 05 3a 0d 05 b4 33  |.help:.....:...3|
00001800  dd f2 73 63 72 65 65 6e  32 3a ef 32 38 2c 30 2c  |..screen2:.28,0,|
00001810  32 33 2c 37 38 2c 31 34  2c 31 32 2c 32 36 3a f2  |23,78,14,12,26:.|
00001820  62 6f 78 28 32 35 2c 31  34 2c 33 32 2c 32 29 0d  |box(25,14,32,2).|
00001830  05 be 25 f2 62 6f 78 28  32 37 2c 31 37 2c 38 2c  |..%.box(27,17,8,|
00001840  32 29 3a f2 62 6f 78 28  34 37 2c 31 37 2c 38 2c  |2):.box(47,17,8,|
00001850  32 29 3a e1 0d 05 c8 05  3a 0d 05 d2 18 dd f2 62  |2):.....:......b|
00001860  6f 78 28 74 78 25 2c 74  79 25 2c 6c 25 2c 68 25  |ox(tx%,ty%,l%,h%|
00001870  29 0d 05 dc 21 f1 8a 74  78 25 2c 74 79 25 29 bd  |)...!..tx%,ty%).|
00001880  32 32 37 c4 6c 25 2d 32  2c bd 32 32 36 29 bd 32  |227.l%-2,.226).2|
00001890  32 38 0d 05 e6 37 e3 69  25 3d 74 79 25 2b 31 b8  |28...7.i%=ty%+1.|
000018a0  74 79 25 2b 68 25 2d 31  3a f1 8a 74 78 25 2c 69  |ty%+h%-1:..tx%,i|
000018b0  25 29 bd 32 32 34 8a 74  78 25 2b 6c 25 2d 31 2c  |%).224.tx%+l%-1,|
000018c0  69 25 29 bd 32 32 34 3a  ed 0d 05 f0 26 f1 8a 74  |i%).224:....&..t|
000018d0  78 25 2c 74 79 25 2b 68  25 29 bd 32 32 39 c4 6c  |x%,ty%+h%).229.l|
000018e0  25 2d 32 2c bd 32 32 36  29 bd 32 33 30 3a e1 0d  |%-2,.226).230:..|
000018f0  05 fa 05 3a 0d 06 04 a8  dd f2 64 69 73 70 6c 61  |...:......displa|
00001900  79 3a f1 8a 30 2c 30 29  22 53 6c 69 64 65 20 22  |y:..0,0)"Slide "|
00001910  64 65 74 24 8a 34 34 2c  30 29 63 6f 64 65 24 8a  |det$.44,0)code$.|
00001920  35 35 2c 30 29 64 61 74  24 8a 37 31 2c 30 29 3b  |55,0)dat$.71,0);|
00001930  6d 61 78 25 2d 63 6f 64  65 25 22 20 22 8a 31 30  |max%-code%" ".10|
00001940  2c 31 29 63 6f 75 6e 74  72 79 24 c4 31 35 2d a9  |,1)country$.15-.|
00001950  63 6f 75 6e 74 72 79 24  2c bd 32 32 35 29 8a 34  |country$,.225).4|
00001960  37 2c 31 29 73 74 61 74  65 24 8a 31 30 2c 32 29  |7,1)state$.10,2)|
00001970  73 69 74 65 24 8a 34 33  2c 32 29 61 67 65 24 8a  |site$.43,2)age$.|
00001980  36 30 2c 32 29 6c 6f 63  24 8a 30 2c 34 29 64 65  |60,2)loc$.0,4)de|
00001990  73 31 24 27 27 64 65 73  32 24 3a e1 0d 06 0e 05  |s1$''des2$:.....|
000019a0  3a 0d 06 18 0a dd f2 68  65 6c 70 0d 06 22 57 f1  |:......help.."W.|
000019b0  8a 34 2c 31 34 29 bd 31  33 35 bd 33 32 bd 31 33  |.4,14).135.32.13|
000019c0  36 89 38 22 4d 6f 76 65  20 6c 65 66 74 20 6f 72  |6.8"Move left or|
000019d0  20 72 69 67 68 74 22 8a  34 2c 31 35 29 bd 31 33  | right".4,15).13|
000019e0  37 bd 33 32 bd 31 33 38  89 38 22 50 72 65 76 69  |7.32.138.8"Previ|
000019f0  6f 75 73 20 6f 72 20 6e  65 78 74 20 66 69 65 6c  |ous or next fiel|
00001a00  64 22 0d 06 2c 45 f1 8a  34 2c 31 36 29 22 43 54  |d"..,E..4,16)"CT|
00001a10  52 4c 2b 49 22 89 35 22  49 6e 73 65 72 74 20 61  |RL+I".5"Insert a|
00001a20  20 73 70 61 63 65 22 8a  34 2c 31 37 29 22 43 54  | space".4,17)"CT|
00001a30  52 4c 2b 44 22 89 35 22  44 65 6c 65 74 65 20 61  |RL+D".5"Delete a|
00001a40  20 73 70 61 63 65 22 0d  06 36 46 f1 8a 34 2c 31  | space"..6F..4,1|
00001a50  38 29 22 53 48 49 46 54  22 89 36 22 46 6f 72 63  |8)"SHIFT".6"Forc|
00001a60  65 20 75 70 70 65 72 20  63 61 73 65 22 8a 34 2c  |e upper case".4,|
00001a70  31 39 29 22 43 4f 50 59  22 89 37 22 46 6f 72 63  |19)"COPY".7"Forc|
00001a80  65 20 6c 6f 77 65 72 20  63 61 73 65 22 0d 06 40  |e lower case"..@|
00001a90  2d f1 8a 34 2c 32 30 29  22 54 41 42 22 89 38 22  |-..4,20)"TAB".8"|
00001aa0  4d 6f 76 65 20 74 6f 20  6e 65 78 74 20 66 72 65  |Move to next fre|
00001ab0  65 20 73 70 61 63 65 22  3a e1 0d 06 4a 05 3a 0d  |e space":...J.:.|
00001ac0  06 54 49 dd f2 74 69 74  6c 65 28 61 24 29 3a ef  |.TI..title(a$):.|
00001ad0  32 36 3a db 3a 74 61 62  25 3d 28 36 38 2d a9 61  |26:.:tab%=(68-.a|
00001ae0  24 29 81 32 3a f1 89 74  61 62 25 22 53 4c 49 44  |$).2:..tab%"SLID|
00001af0  45 20 46 49 4c 45 20 2d  20 22 61 24 27 c4 38 30  |E FILE - "a$'.80|
00001b00  2c bd 32 32 36 29 3a e1  0d 06 5e 05 3a 0d 06 68  |,.226):...^.:..h|
00001b10  28 dd f2 6f 73 3a f1 8a  30 2c 31 35 29 22 4f 53  |(..os:..0,15)"OS|
00001b20  20 43 6f 6d 6d 61 6e 64  3a 20 2a 22 c4 32 35 2c  | Command: *".25,|
00001b30  bd 32 32 35 29 0d 06 72  28 6f 73 24 3d a4 67 65  |.225)..r(os$=.ge|
00001b40  74 28 31 33 2c 31 35 2c  32 30 2c b9 2c 32 35 29  |t(13,15,20,.,25)|
00001b50  3a f1 3a ff 28 a4 73 28  6f 73 24 29 29 0d 06 7c  |:.:.(.s(os$))..||
00001b60  28 f1 27 22 50 72 65 73  73 20 61 6e 79 20 6b 65  |(.'"Press any ke|
00001b70  79 20 74 6f 20 63 6f 6e  74 69 6e 75 65 22 3a 67  |y to continue":g|
00001b80  25 3d a5 3a e1 0d 06 86  05 3a 0d 06 90 20 dd f2  |%=.:.....:... ..|
00001b90  77 61 72 6e 28 61 24 29  3a ef 37 3a f1 27 61 24  |warn(a$):.7:.'a$|
00001ba0  3a 67 25 3d a6 32 30 30  3a e1 0d 06 9a 05 3a 0d  |:g%=.200:.....:.|
00001bb0  06 a4 13 dd a4 64 61 74  65 3a 64 61 74 65 24 3d  |.....date:date$=|
00001bc0  22 22 0d 06 ae 44 e3 69  25 3d 30 b8 31 3a e3 6a  |""...D.i%=0.1:.j|
00001bd0  25 3d 31 b8 32 3a f1 8a  33 36 2c 31 32 29 64 61  |%=1.2:..36,12)da|
00001be0  74 65 24 3b 3a 64 61 74  65 24 3d 64 61 74 65 24  |te$;:date$=date$|
00001bf0  2b be 3a ed 3a 64 61 74  65 24 3d 64 61 74 65 24  |+.:.:date$=date$|
00001c00  2b 22 2f 22 3a ed 0d 06  b8 0e 3d c0 64 61 74 65  |+"/":.....=.date|
00001c10  24 2c 35 29 0d 06 c2 05  3a 0d 06 cc 54 dd f2 69  |$,5)....:...T..i|
00001c20  6e 69 74 3a db 3a 6d 61  78 25 3d 31 30 30 30 3a  |nit:.:max%=1000:|
00001c30  63 6f 64 65 25 3d 30 3a  65 78 74 72 61 25 3d 30  |code%=0:extra%=0|
00001c40  3a 66 6f 72 6d 61 74 25  3d 26 39 30 41 3a 6c 6f  |:format%=&90A:lo|
00001c50  61 64 25 3d a3 3a 6c 31  25 3d 31 37 35 3a 6c 32  |ad%=.:l1%=175:l2|
00001c60  25 3d 31 38 32 3a f2 6f  70 65 6e 3a e1 0d ff     |%=182:.open:...|
00001c6f