/ APDL Public Domain 1 / APDL_PD1A.iso / database / library / !Library / !RunImage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 10 f4 20 3e 21 | 52 75 6e 49 6d 61 67 65 |..... >!|RunImage|
|00000010| 0d 00 14 05 f4 0d 00 1e | 05 f4 0d 00 28 13 f2 69 |........|....(..i|
|00000020| 6e 69 74 3a 61 63 63 65 | 73 73 25 3d 30 0d 00 32 |nit:acce|ss%=0..2|
|00000030| 0d ee 85 f2 73 61 76 65 | 3a f9 0d 00 3c 2b ef 32 |....save|:...<+.2|
|00000040| 33 2c 32 35 35 2c 32 35 | 34 2c 32 35 34 2c 32 35 |3,255,25|4,254,25|
|00000050| 34 2c 32 35 34 2c 32 35 | 34 2c 32 35 34 2c 32 35 |4,254,25|4,254,25|
|00000060| 34 2c 32 35 34 0d 00 46 | 17 eb 31 32 3a ef 32 33 |4,254..F|..12:.23|
|00000070| 3b 38 32 30 32 3b 30 3b | 30 3b 30 3b 0d 00 50 0d |;8202;0;|0;0;..P.|
|00000080| f5 3a f2 73 63 72 65 65 | 6e 0d 00 5a 14 63 68 6f |.:.scree|n..Z.cho|
|00000090| 69 63 65 3d a4 63 68 6f | 6f 73 65 3a db 0d 00 64 |ice=.cho|ose:...d|
|000000a0| 16 e7 20 63 68 6f 69 63 | 65 3d 31 20 f2 73 65 61 |.. choic|e=1 .sea|
|000000b0| 72 63 68 0d 00 6e 17 e7 | 20 63 68 6f 69 63 65 3d |rch..n..| choice=|
|000000c0| 32 20 f2 69 6e 6f 72 6f | 75 74 0d 00 78 18 e7 20 |2 .inoro|ut..x.. |
|000000d0| 63 68 6f 69 63 65 3d 33 | 20 61 63 63 65 73 73 25 |choice=3| access%|
|000000e0| 3d 30 0d 00 82 13 e7 20 | 63 68 6f 69 63 65 3d 34 |=0..... |choice=4|
|000000f0| 20 f2 61 64 64 0d 00 8c | 14 e7 20 63 68 6f 69 63 | .add...|.. choic|
|00000100| 65 3d 35 20 f2 65 64 69 | 74 0d 00 96 16 e7 20 63 |e=5 .edi|t..... c|
|00000110| 68 6f 69 63 65 3d 36 20 | f2 64 65 6c 65 74 65 0d |hoice=6 |.delete.|
|00000120| 00 a0 17 e7 20 63 68 6f | 69 63 65 3d 37 20 f2 6d |.... cho|ice=7 .m|
|00000130| 69 73 73 69 6e 67 0d 00 | aa 19 e7 20 63 68 6f 69 |issing..|... choi|
|00000140| 63 65 3d 38 20 f2 70 61 | 73 73 77 6f 72 64 73 0d |ce=8 .pa|sswords.|
|00000150| 00 b4 18 e7 20 63 68 6f | 69 63 65 3d 39 20 61 63 |.... cho|ice=9 ac|
|00000160| 63 65 73 73 25 3d 31 0d | 00 be 19 fd 63 68 6f 69 |cess%=1.|....choi|
|00000170| 63 65 3d 30 20 80 20 61 | 63 63 65 73 73 25 3d 32 |ce=0 . a|ccess%=2|
|00000180| 0d 00 c8 09 f2 73 61 76 | 65 0d 00 d2 05 e0 0d 00 |.....sav|e.......|
|00000190| dc 22 dd a4 63 68 6f 6f | 73 65 3a 4b 24 3d 22 22 |."..choo|se:K$=""|
|000001a0| 3a f5 3a 47 24 3d be 3a | 4b 24 3d 4b 24 2b 47 24 |:.:G$=.:|K$=K$+G$|
|000001b0| 0d 00 e6 1c e7 47 24 3d | bd 31 33 20 84 20 a9 20 |.....G$=|.13 . . |
|000001c0| 4b 24 3d 32 35 34 20 4b | 24 3d 22 22 0d 00 f0 28 |K$=254 K|$=""...(|
|000001d0| e7 4b 24 3d 70 61 73 73 | 31 24 20 80 20 61 63 63 |.K$=pass|1$ . acc|
|000001e0| 65 73 73 25 3d 30 20 61 | 63 63 65 73 73 25 3d 31 |ess%=0 a|ccess%=1|
|000001f0| 3a 3d 31 30 0d 00 fa 1c | e7 4b 24 3d 70 61 73 73 |:=10....|.K$=pass|
|00000200| 32 24 20 61 63 63 65 73 | 73 25 3d 32 3a 3d 31 30 |2$ acces|s%=2:=10|
|00000210| 0d 01 04 2b e7 20 c2 4b | 24 2c 31 29 3e 22 2f 22 |...+. .K|$,1)>"/"|
|00000220| 20 80 20 c2 4b 24 2c 31 | 29 3c 3d 22 39 22 20 8c | . .K$,1|)<="9" .|
|00000230| 20 3d bb 28 c2 4b 24 2c | 31 29 29 0d 01 0e 06 fd | =.(.K$,|1)).....|
|00000240| 30 0d 01 18 34 dd f2 69 | 6e 69 74 3a de 62 6f 6f |0...4..i|nit:.boo|
|00000250| 6b 73 24 28 32 35 30 2c | 38 29 3a 58 3d 8e 28 22 |ks$(250,|8):X=.("|
|00000260| 3c 4c 69 62 72 61 72 79 | 24 44 69 72 3e 2e 42 6f |<Library|$Dir>.Bo|
|00000270| 6f 6b 73 22 29 0d 01 22 | 3e e3 49 3d 31 b8 32 35 |oks").."|>.I=1.25|
|00000280| 30 3a e3 4a 3d 30 b8 38 | 3a e8 23 58 2c 62 6f 6f |0:.J=0.8|:.#X,boo|
|00000290| 6b 73 24 28 49 2c 4a 29 | 3a ed 2c 3a e8 23 58 2c |ks$(I,J)|:.,:.#X,|
|000002a0| 70 61 73 73 31 24 2c 70 | 61 73 73 32 24 3a d9 23 |pass1$,p|ass2$:.#|
|000002b0| 58 3a e1 0d 01 2c 47 dd | f2 73 63 72 65 65 6e 3a |X:...,G.|.screen:|
|000002c0| db 3a fb 31 33 32 3a fb | 33 3a f1 22 4c 49 42 52 |.:.132:.|3:."LIBR|
|000002d0| 41 52 59 20 43 41 54 41 | 4c 4f 47 55 45 22 27 22 |ARY CATA|LOGUE"'"|
|000002e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000002f0| 3d 22 3a fb 32 3a fb 31 | 32 38 0d 01 36 34 f7 8d |=":.2:.1|28..64..|
|00000300| 44 58 42 3a e3 20 49 3d | 31 b8 31 3a fb 31 3a f1 |DXB:. I=|1.1:.1:.|
|00000310| 8a 30 2c 49 2b 32 29 3b | 49 3a fb 36 3a f3 41 24 |.0,I+2);|I:.6:.A$|
|00000320| 3a f1 8a 32 2c 49 2b 32 | 29 3b 41 24 3a ed 0d 01 |:..2,I+2|);A$:...|
|00000330| 40 10 e7 61 63 63 65 73 | 73 25 3d 30 20 e1 0d 01 |@..acces|s%=0 ...|
|00000340| 4a 2e e3 20 49 3d 32 b8 | 33 3a fb 31 3a f1 8a 30 |J.. I=2.|3:.1:..0|
|00000350| 2c 49 2b 33 29 3b 49 3a | fb 36 3a f3 41 24 3a f1 |,I+3);I:|.6:.A$:.|
|00000360| 8a 32 2c 49 2b 33 29 3b | 41 24 3a ed 0d 01 54 10 |.2,I+3);|A$:...T.|
|00000370| e7 61 63 63 65 73 73 25 | 3d 31 20 e1 0d 01 5e 2e |.access%|=1 ...^.|
|00000380| e3 20 49 3d 34 b8 39 3a | fb 31 3a f1 8a 30 2c 49 |. I=4.9:|.1:..0,I|
|00000390| 2b 34 29 3b 49 3a fb 36 | 3a f3 41 24 3a f1 8a 32 |+4);I:.6|:.A$:..2|
|000003a0| 2c 49 2b 34 29 3b 41 24 | 3a ed 0d 01 68 2c fb 31 |,I+4);A$|:...h,.1|
|000003b0| 3a f1 8a 30 2c 31 35 29 | 3b 22 30 22 3a fb 36 3a |:..0,15)|;"0":.6:|
|000003c0| f1 8a 32 2c 31 35 29 3b | 22 51 75 69 74 20 70 72 |..2,15);|"Quit pr|
|000003d0| 6f 67 72 61 6d 22 0d 01 | 72 05 e1 0d 01 7c 56 dd |ogram"..|r....|V.|
|000003e0| a4 69 6e 70 75 74 28 61 | 73 6b 24 2c 6c 65 25 2c |.input(a|sk$,le%,|
|000003f0| 69 6e 69 24 2c 79 70 25 | 29 3a f1 8a a8 28 28 38 |ini$,yp%|):...((8|
|00000400| 30 2d a9 61 73 6b 24 29 | 2f 32 29 2c 79 70 25 29 |0-.ask$)|/2),yp%)|
|00000410| 3b 61 73 6b 24 3a 79 70 | 25 3d 79 70 25 2b 31 3a |;ask$:yp|%=yp%+1:|
|00000420| 78 70 25 3d a8 28 28 38 | 30 2d 6c 65 25 29 2f 32 |xp%=.((8|0-le%)/2|
|00000430| 29 0d 01 86 4f f1 8a 78 | 70 25 2c 79 70 25 29 3b |)...O..x|p%,yp%);|
|00000440| c4 6c 65 25 2c bd 32 35 | 35 29 3a 4b 24 3d 69 6e |.le%,.25|5):K$=in|
|00000450| 69 24 3a f5 e7 20 a9 4b | 24 3d 6c 65 25 20 f1 8a |i$:.. .K|$=le% ..|
|00000460| 78 70 25 2c 79 70 25 29 | 3b 4b 24 20 8b 20 f1 8a |xp%,yp%)|;K$ . ..|
|00000470| 78 70 25 2c 79 70 25 29 | 3b 4b 24 3b bd 32 35 35 |xp%,yp%)|;K$;.255|
|00000480| 0d 01 90 3a 47 24 3d be | 3a e7 20 28 47 24 3c 22 |...:G$=.|:. (G$<"|
|00000490| 20 22 80 47 24 3e 22 5a | 22 29 20 80 47 24 3c 3e | ".G$>"Z|") .G$<>|
|000004a0| bd 38 20 80 20 47 24 3c | 3e bd 31 33 20 80 20 47 |.8 . G$<|>.13 . G|
|000004b0| 24 3c 3e bd 31 32 37 20 | fd 30 0d 01 9a 2f e7 a9 |$<>.127 |.0.../..|
|000004c0| 4b 24 3d 6c 65 25 20 80 | 20 28 47 24 3c 3e bd 38 |K$=le% .| (G$<>.8|
|000004d0| 20 80 20 47 24 3c 3e bd | 31 33 20 80 20 47 24 3c | . G$<>.|13 . G$<|
|000004e0| 3e bd 31 32 37 29 20 fd | 30 0d 01 a4 30 e7 20 28 |>.127) .|0...0. (|
|000004f0| 47 24 3d bd 31 32 37 20 | 84 20 47 24 3d bd 38 29 |G$=.127 |. G$=.8)|
|00000500| 80 20 4b 24 3c 3e 22 22 | 20 4b 24 3d c0 4b 24 2c |. K$<>""| K$=.K$,|
|00000510| a9 4b 24 2d 31 29 3a fd | 30 0d 01 ae 1a e7 20 28 |.K$-1):.|0..... (|
|00000520| 47 24 3d bd 31 32 37 20 | 84 20 47 24 3d bd 38 29 |G$=.127 |. G$=.8)|
|00000530| 20 fd 30 0d 01 b8 11 e7 | 20 47 24 3d bd 31 33 e5 | .0.....| G$=.13.|
|00000540| 8d 64 4c 41 0d 01 c2 0c | 4b 24 3d 4b 24 2b 47 24 |.dLA....|K$=K$+G$|
|00000550| 0d 01 cc 0f fd 47 24 3d | bd 31 33 3a 3d 4b 24 0d |.....G$=|.13:=K$.|
|00000560| 01 d6 1d dd f2 69 6e 6f | 72 6f 75 74 3a 63 76 25 |.....ino|rout:cv%|
|00000570| 3d a4 62 6f 6f 6b 63 68 | 6f 6f 73 65 0d 01 e0 0d |=.bookch|oose....|
|00000580| e7 63 76 25 3d 2d 31 20 | e1 0d 01 ea 3a e7 62 6f |.cv%=-1 |....:.bo|
|00000590| 6f 6b 73 24 28 63 76 25 | 2c 38 29 3d 22 4d 22 20 |oks$(cv%|,8)="M" |
|000005a0| f2 65 72 72 6f 72 28 22 | 42 4f 4f 4b 20 52 45 47 |.error("|BOOK REG|
|000005b0| 49 53 54 45 52 45 44 20 | 4d 49 53 53 49 4e 47 22 |ISTERED |MISSING"|
|000005c0| 29 3a e1 0d 01 f4 57 e7 | 62 6f 6f 6b 73 24 28 63 |):....W.|books$(c|
|000005d0| 76 25 2c 38 29 3d 22 4f | 22 20 f1 22 42 6f 6f 6b |v%,8)="O|" ."Book|
|000005e0| 20 27 22 3b 62 6f 6f 6b | 73 24 28 63 76 25 2c 30 | '";book|s$(cv%,0|
|000005f0| 29 3b 22 27 20 72 65 74 | 75 72 6e 65 64 2e 22 3a |);"' ret|urned.":|
|00000600| 62 6f 6f 6b 73 24 28 63 | 76 25 2c 38 29 3d 22 49 |books$(c|v%,8)="I|
|00000610| 22 3a f2 70 61 75 73 65 | 3a e1 0d 01 fe 55 e7 62 |":.pause|:....U.b|
|00000620| 6f 6f 6b 73 24 28 63 76 | 25 2c 38 29 3d 22 49 22 |ooks$(cv|%,8)="I"|
|00000630| 20 f1 22 42 6f 6f 6b 20 | 27 22 3b 62 6f 6f 6b 73 | ."Book |'";books|
|00000640| 24 28 63 76 25 2c 30 29 | 3b 22 27 20 69 73 73 75 |$(cv%,0)|;"' issu|
|00000650| 65 64 2e 22 3a 62 6f 6f | 6b 73 24 28 63 76 25 2c |ed.":boo|ks$(cv%,|
|00000660| 38 29 3d 22 4f 22 3a f2 | 70 61 75 73 65 3a e1 0d |8)="O":.|pause:..|
|00000670| 02 08 1c f2 65 72 72 6f | 72 28 22 44 41 54 41 20 |....erro|r("DATA |
|00000680| 45 52 52 4f 52 21 21 22 | 29 3a e1 0d 02 12 2c dd |ERROR!!"|):....,.|
|00000690| f2 65 72 72 6f 72 28 65 | 72 24 29 3a ef 37 3a f1 |.error(e|r$):.7:.|
|000006a0| 27 22 45 52 52 4f 52 21 | 20 22 3b 65 72 24 3a f2 |'"ERROR!| ";er$:.|
|000006b0| 70 61 75 73 65 3a e1 0d | 02 1c 1b dd f2 70 61 75 |pause:..|.....pau|
|000006c0| 73 65 3a 49 3d 91 3a f5 | fd 91 3e 49 2b 32 30 30 |se:I=.:.|..>I+200|
|000006d0| 3a e1 0d 02 26 0c dd f2 | 64 65 6c 65 74 65 0d 02 |:...&...|delete..|
|000006e0| 30 13 63 76 25 3d a4 62 | 6f 6f 6b 63 68 6f 6f 73 |0.cv%=.b|ookchoos|
|000006f0| 65 0d 02 3a 0d e7 63 76 | 25 3d 2d 31 20 e1 0d 02 |e..:..cv|%=-1 ...|
|00000700| 44 32 e7 a4 69 6e 70 75 | 74 28 22 44 65 6c 65 74 |D2..inpu|t("Delet|
|00000710| 65 20 22 2b 62 6f 6f 6b | 73 24 28 63 76 25 2c 30 |e "+book|s$(cv%,0|
|00000720| 29 2c 31 2c 22 22 2c 36 | 29 3c 3e 22 59 22 20 e1 |),1,"",6|)<>"Y" .|
|00000730| 0d 02 4e 26 e3 20 63 64 | 25 3d 30 20 b8 20 38 3a |..N&. cd|%=0 . 8:|
|00000740| 62 6f 6f 6b 73 24 28 63 | 76 25 2c 63 64 25 29 3d |books$(c|v%,cd%)=|
|00000750| 22 22 3a ed 3a e1 0d 02 | 58 c5 dc 20 53 65 61 72 |"":.:...|X.. Sear|
|00000760| 63 68 20 66 6f 72 20 62 | 6f 6f 6b 2c 4c 6f 61 6e |ch for b|ook,Loan|
|00000770| 2f 72 65 74 75 72 6e 20 | 62 6f 6f 6b 2c 52 65 6d |/return |book,Rem|
|00000780| 6f 76 65 20 6c 69 62 72 | 61 72 69 61 6e 20 61 63 |ove libr|arian ac|
|00000790| 63 65 73 73 20 70 72 69 | 76 65 6c 65 67 65 73 2c |cess pri|veleges,|
|000007a0| 41 64 64 20 61 20 62 6f | 6f 6b 2c 45 64 69 74 20 |Add a bo|ok,Edit |
|000007b0| 61 20 62 6f 6f 6b 2c 44 | 65 6c 65 74 65 20 61 20 |a book,D|elete a |
|000007c0| 62 6f 6f 6b 2c 52 65 67 | 69 73 74 65 72 20 62 6f |book,Reg|ister bo|
|000007d0| 6f 6b 20 6d 69 73 73 69 | 6e 67 2f 66 6f 75 6e 64 |ok missi|ng/found|
|000007e0| 2c 43 68 61 6e 67 65 20 | 70 61 73 73 77 6f 72 64 |,Change |password|
|000007f0| 73 2c 52 65 6d 6f 76 65 | 20 73 65 6e 69 6f 72 20 |s,Remove| senior |
|00000800| 6c 69 62 72 61 72 69 61 | 6e 20 61 63 63 65 73 73 |libraria|n access|
|00000810| 20 70 72 69 76 65 6c 65 | 67 65 73 0d 02 62 1a dd | privele|ges..b..|
|00000820| f2 65 64 69 74 3a 63 76 | 25 3d a4 62 6f 6f 6b 63 |.edit:cv|%=.bookc|
|00000830| 68 6f 6f 73 65 0d 02 6c | 0f db 3a e7 63 76 25 3d |hoose..l|..:.cv%=|
|00000840| 2d 31 20 e1 0d 02 76 39 | 62 6f 6f 6b 73 24 28 63 |-1 ...v9|books$(c|
|00000850| 76 25 2c 30 29 3d a4 69 | 6e 70 75 74 28 22 42 6f |v%,0)=.i|nput("Bo|
|00000860| 6f 6b 20 74 69 74 6c 65 | 22 2c 35 30 2c 62 6f 6f |ok title|",50,boo|
|00000870| 6b 73 24 28 63 76 25 2c | 30 29 2c 30 29 0d 02 80 |ks$(cv%,|0),0)...|
|00000880| 3a 62 6f 6f 6b 73 24 28 | 63 76 25 2c 31 29 3d a4 |:books$(|cv%,1)=.|
|00000890| 69 6e 70 75 74 28 22 42 | 6f 6f 6b 20 61 75 74 68 |input("B|ook auth|
|000008a0| 6f 72 22 2c 35 30 2c 62 | 6f 6f 6b 73 24 28 63 76 |or",50,b|ooks$(cv|
|000008b0| 25 2c 31 29 2c 33 29 0d | 02 8a 3e 62 6f 6f 6b 73 |%,1),3).|..>books|
|000008c0| 24 28 63 76 25 2c 32 29 | 3d a4 69 6e 70 75 74 28 |$(cv%,2)|=.input(|
|000008d0| 22 53 75 62 6a 65 63 74 | 20 6f 66 20 62 6f 6f 6b |"Subject| of book|
|000008e0| 22 2c 33 30 2c 62 6f 6f | 6b 73 24 28 63 76 25 2c |",30,boo|ks$(cv%,|
|000008f0| 32 29 2c 36 29 0d 02 94 | 34 62 6f 6f 6b 73 24 28 |2),6)...|4books$(|
|00000900| 63 76 25 2c 33 29 3d a4 | 69 6e 70 75 74 28 22 4e |cv%,3)=.|input("N|
|00000910| 6f 74 65 73 22 2c 35 30 | 2c 62 6f 6f 6b 73 24 28 |otes",50|,books$(|
|00000920| 63 76 25 2c 33 29 2c 39 | 29 0d 02 9e 30 62 6f 6f |cv%,3),9|)...0boo|
|00000930| 6b 73 24 28 63 76 25 2c | 34 29 3d a4 69 6e 70 75 |ks$(cv%,|4)=.inpu|
|00000940| 74 28 22 22 2c 35 30 2c | 62 6f 6f 6b 73 24 28 63 |t("",50,|books$(c|
|00000950| 76 25 2c 34 29 2c 31 30 | 29 0d 02 a8 30 62 6f 6f |v%,4),10|)...0boo|
|00000960| 6b 73 24 28 63 76 25 2c | 35 29 3d a4 69 6e 70 75 |ks$(cv%,|5)=.inpu|
|00000970| 74 28 22 22 2c 35 30 2c | 62 6f 6f 6b 73 24 28 63 |t("",50,|books$(c|
|00000980| 76 25 2c 35 29 2c 31 31 | 29 0d 02 b2 39 62 6f 6f |v%,5),11|)...9boo|
|00000990| 6b 73 24 28 63 76 25 2c | 36 29 3d a4 69 6e 70 75 |ks$(cv%,|6)=.inpu|
|000009a0| 74 28 22 50 75 62 6c 69 | 73 68 65 72 22 2c 33 30 |t("Publi|sher",30|
|000009b0| 2c 62 6f 6f 6b 73 24 28 | 63 76 25 2c 36 29 2c 31 |,books$(|cv%,6),1|
|000009c0| 34 29 0d 02 bc 05 e1 0d | 02 c6 36 dd f2 61 64 64 |4)......|..6..add|
|000009d0| 3a 63 76 25 3d 30 3a f5 | 3a 63 76 25 3d 63 76 25 |:cv%=0:.|:cv%=cv%|
|000009e0| 2b 31 3a fd 62 6f 6f 6b | 73 24 28 63 76 25 2c 37 |+1:.book|s$(cv%,7|
|000009f0| 29 3d 22 22 20 84 63 76 | 25 3d 32 35 30 0d 02 d0 |)="" .cv|%=250...|
|00000a00| 31 e7 62 6f 6f 6b 73 24 | 28 63 76 25 2c 37 29 3c |1.books$|(cv%,7)<|
|00000a10| 3e 22 22 20 f2 65 72 72 | 6f 72 28 22 43 41 54 41 |>"" .err|or("CATA|
|00000a20| 4c 4f 47 55 45 20 46 55 | 4c 4c 22 29 3a e1 0d 02 |LOGUE FU|LL"):...|
|00000a30| da 2f 62 6f 6f 6b 73 24 | 28 63 76 25 2c 37 29 3d |./books$|(cv%,7)=|
|00000a40| bd 28 36 34 2b b3 28 32 | 36 29 29 3a 62 6f 6f 6b |.(64+.(2|6)):book|
|00000a50| 73 24 28 63 76 25 2c 38 | 29 3d 22 49 22 0d 02 e4 |s$(cv%,8|)="I"...|
|00000a60| 09 e5 8d 44 76 42 0d 02 | ee 55 dd a4 62 6f 6f 6b |...DvB..|.U..book|
|00000a70| 63 68 6f 6f 73 65 3a 62 | 73 25 3d bb 28 a4 69 6e |choose:b|s%=.(.in|
|00000a80| 70 75 74 28 22 42 6f 6f | 6b 20 6e 75 6d 62 65 72 |put("Boo|k number|
|00000a90| 22 2c 33 2c 22 22 2c 30 | 29 29 3a 63 64 24 3d a4 |",3,"",0|)):cd$=.|
|00000aa0| 69 6e 70 75 74 28 22 43 | 68 65 63 6b 20 64 69 67 |input("C|heck dig|
|00000ab0| 69 74 22 2c 31 2c 22 22 | 2c 33 29 0d 02 f8 2f e7 |it",1,""|,3).../.|
|00000ac0| 62 73 25 3c 31 20 84 20 | 62 73 25 3e 32 35 30 20 |bs%<1 . |bs%>250 |
|00000ad0| f2 65 72 72 6f 72 28 22 | 4e 4f 20 53 55 43 48 20 |.error("|NO SUCH |
|00000ae0| 42 4f 4f 4b 22 29 3a 3d | 2d 31 0d 03 02 36 e7 63 |BOOK"):=|-1...6.c|
|00000af0| 64 24 3c 22 41 22 20 84 | 20 63 64 24 3e 22 5a 22 |d$<"A" .| cd$>"Z"|
|00000b00| 20 f2 65 72 72 6f 72 28 | 22 43 48 45 43 4b 20 44 | .error(|"CHECK D|
|00000b10| 49 47 49 54 20 45 52 52 | 4f 52 22 29 3a 3d 2d 31 |IGIT ERR|OR"):=-1|
|00000b20| 0d 03 0c 3b e7 63 64 24 | 3c 3e 62 6f 6f 6b 73 24 |...;.cd$|<>books$|
|00000b30| 28 62 73 25 2c 37 29 20 | f2 65 72 72 6f 72 28 22 |(bs%,7) |.error("|
|00000b40| 49 4e 43 4f 52 52 45 43 | 54 20 43 48 45 43 4b 20 |INCORREC|T CHECK |
|00000b50| 44 49 47 49 54 22 29 3a | 3d 2d 31 0d 03 16 08 3d |DIGIT"):|=-1....=|
|00000b60| 62 73 25 0d 03 20 60 dd | f2 73 61 76 65 3a 58 3d |bs%.. `.|.save:X=|
|00000b70| ae 28 22 3c 4c 69 62 72 | 61 72 79 24 44 69 72 3e |.("<Libr|ary$Dir>|
|00000b80| 2e 42 6f 6f 6b 73 22 29 | 3a e3 49 3d 31 b8 32 35 |.Books")|:.I=1.25|
|00000b90| 30 3a e3 4a 3d 30 b8 38 | 3a f1 23 58 2c 62 6f 6f |0:.J=0.8|:.#X,boo|
|00000ba0| 6b 73 24 28 49 2c 4a 29 | 3a ed 2c 3a f1 23 58 2c |ks$(I,J)|:.,:.#X,|
|00000bb0| 70 61 73 73 31 24 2c 70 | 61 73 73 32 24 3a d9 23 |pass1$,p|ass2$:.#|
|00000bc0| 58 3a e1 0d 03 2a 53 dd | f2 70 61 73 73 77 6f 72 |X:...*S.|.passwor|
|00000bd0| 64 73 3a 70 24 3d a4 69 | 6e 70 75 74 28 22 45 6e |ds:p$=.i|nput("En|
|00000be0| 74 65 72 20 6e 65 77 20 | 4c 69 62 72 61 72 69 61 |ter new |Libraria|
|00000bf0| 6e 20 70 61 73 73 77 6f | 72 64 22 2c 32 30 2c 22 |n passwo|rd",20,"|
|00000c00| 22 2c 30 29 3a e7 70 24 | 3c 3e 22 22 20 70 61 73 |",0):.p$|<>"" pas|
|00000c10| 73 31 24 3d 70 24 0d 03 | 34 4e 70 24 3d a4 69 6e |s1$=p$..|4Np$=.in|
|00000c20| 70 75 74 28 22 45 6e 74 | 65 72 20 6e 65 77 20 73 |put("Ent|er new s|
|00000c30| 65 6e 69 6f 72 20 4c 69 | 62 72 61 72 69 61 6e 20 |enior Li|brarian |
|00000c40| 70 61 73 73 77 6f 72 64 | 22 2c 32 30 2c 22 22 2c |password|",20,"",|
|00000c50| 30 29 3a e7 70 24 3c 3e | 22 22 20 70 61 73 73 32 |0):.p$<>|"" pass2|
|00000c60| 24 3d 70 24 0d 03 3e 07 | db 3a e1 0d 03 48 27 dd |$=p$..>.|.:...H'.|
|00000c70| f2 6d 69 73 73 69 6e 67 | 3a 63 76 25 3d a4 62 6f |.missing|:cv%=.bo|
|00000c80| 6f 6b 63 68 6f 6f 73 65 | 3a e7 63 76 25 3d 2d 31 |okchoose|:.cv%=-1|
|00000c90| 20 e1 0d 03 52 5f e7 62 | 6f 6f 6b 73 24 28 63 76 | ...R_.b|ooks$(cv|
|00000ca0| 25 2c 38 29 3d 22 4d 22 | 20 f1 22 42 6f 6f 6b 20 |%,8)="M"| ."Book |
|00000cb0| 27 22 3b 62 6f 6f 6b 73 | 24 28 63 76 25 2c 30 29 |'";books|$(cv%,0)|
|00000cc0| 3b 22 27 20 72 65 67 69 | 73 74 65 72 65 64 20 66 |;"' regi|stered f|
|00000cd0| 6f 75 6e 64 2e 22 3a 62 | 6f 6f 6b 73 24 28 63 76 |ound.":b|ooks$(cv|
|00000ce0| 25 2c 38 29 3d 22 49 22 | 3a f2 70 61 75 73 65 3a |%,8)="I"|:.pause:|
|00000cf0| e1 0d 03 5c 4e f1 22 42 | 6f 6f 6b 20 27 22 3b 62 |...\N."B|ook '";b|
|00000d00| 6f 6f 6b 73 24 28 63 76 | 25 2c 30 29 3b 22 27 20 |ooks$(cv|%,0);"' |
|00000d10| 72 65 67 69 73 74 65 72 | 65 64 20 6d 69 73 73 69 |register|ed missi|
|00000d20| 6e 67 2e 22 3a 62 6f 6f | 6b 73 24 28 63 76 25 2c |ng.":boo|ks$(cv%,|
|00000d30| 38 29 3d 22 4d 22 3a f2 | 70 61 75 73 65 3a e1 0d |8)="M":.|pause:..|
|00000d40| 03 66 43 dd f2 64 69 73 | 70 6c 61 79 28 64 62 25 |.fC..dis|play(db%|
|00000d50| 29 3a db 3a fb 32 3a f1 | 8a a8 28 28 38 30 2d a9 |):.:.2:.|..((80-.|
|00000d60| 62 6f 6f 6b 73 24 28 64 | 62 25 2c 30 29 29 2f 32 |books$(d|b%,0))/2|
|00000d70| 29 2c 30 29 3b 62 6f 6f | 6b 73 24 28 64 62 25 2c |),0);boo|ks$(db%,|
|00000d80| 30 29 0d 03 70 2f f1 8a | a8 28 28 37 37 2d a9 62 |0)..p/..|.((77-.b|
|00000d90| 6f 6f 6b 73 24 28 64 62 | 25 2c 31 29 29 2f 32 29 |ooks$(db|%,1))/2)|
|00000da0| 2c 31 29 3b 62 6f 6f 6b | 73 24 28 64 62 25 2c 31 |,1);book|s$(db%,1|
|00000db0| 29 0d 03 7a 2f f1 8a a8 | 28 28 38 30 2d a9 62 6f |)..z/...|((80-.bo|
|00000dc0| 6f 6b 73 24 28 64 62 25 | 2c 32 29 29 2f 32 29 2c |oks$(db%|,2))/2),|
|00000dd0| 33 29 3b 62 6f 6f 6b 73 | 24 28 64 62 25 2c 32 29 |3);books|$(db%,2)|
|00000de0| 0d 03 84 2f f1 8a a8 28 | 28 38 30 2d a9 62 6f 6f |.../...(|(80-.boo|
|00000df0| 6b 73 24 28 64 62 25 2c | 33 29 29 2f 32 29 2c 35 |ks$(db%,|3))/2),5|
|00000e00| 29 3b 62 6f 6f 6b 73 24 | 28 64 62 25 2c 33 29 0d |);books$|(db%,3).|
|00000e10| 03 8e 2f f1 8a a8 28 28 | 38 30 2d a9 62 6f 6f 6b |../...((|80-.book|
|00000e20| 73 24 28 64 62 25 2c 34 | 29 29 2f 32 29 2c 36 29 |s$(db%,4|))/2),6)|
|00000e30| 3b 62 6f 6f 6b 73 24 28 | 64 62 25 2c 34 29 0d 03 |;books$(|db%,4)..|
|00000e40| 98 2f f1 8a a8 28 28 38 | 30 2d a9 62 6f 6f 6b 73 |./...((8|0-.books|
|00000e50| 24 28 64 62 25 2c 35 29 | 29 2f 32 29 2c 37 29 3b |$(db%,5)|)/2),7);|
|00000e60| 62 6f 6f 6b 73 24 28 64 | 62 25 2c 35 29 0d 03 a2 |books$(d|b%,5)...|
|00000e70| 2f f1 8a a8 28 28 38 30 | 2d a9 62 6f 6f 6b 73 24 |/...((80|-.books$|
|00000e80| 28 64 62 25 2c 36 29 29 | 2f 32 29 2c 39 29 3b 62 |(db%,6))|/2),9);b|
|00000e90| 6f 6f 6b 73 24 28 64 62 | 25 2c 36 29 0d 03 ac 48 |ooks$(db|%,6)...H|
|00000ea0| f1 8a a8 28 28 38 30 2d | 28 a9 28 c3 64 62 25 29 |...((80-|(.(.db%)|
|00000eb0| 2b 32 2b 31 33 29 29 2f | 32 29 2c 31 31 29 3b 22 |+2+13))/|2),11);"|
|00000ec0| 42 6f 6f 6b 20 6e 75 6d | 62 65 72 3a 20 22 3b 64 |Book num|ber: ";d|
|00000ed0| 62 25 3b 22 2d 22 3b 62 | 6f 6f 6b 73 24 28 64 62 |b%;"-";b|ooks$(db|
|00000ee0| 25 2c 37 29 0d 03 b6 32 | f1 8a a8 28 36 33 2f 32 |%,7)...2|...(63/2|
|00000ef0| 29 2c 31 33 29 3b 22 43 | 75 72 72 65 6e 74 20 73 |),13);"C|urrent s|
|00000f00| 74 61 74 75 73 3a 20 22 | 3b 62 6f 6f 6b 73 24 28 |tatus: "|;books$(|
|00000f10| 64 62 25 2c 38 29 0d 03 | c0 3c fb 31 3a f1 8a 32 |db%,8)..|.<.1:..2|
|00000f20| 38 2c 31 35 29 3b 22 50 | 72 65 73 73 20 53 50 41 |8,15);"P|ress SPA|
|00000f30| 43 45 20 74 6f 20 63 6f | 6e 74 69 6e 75 65 22 3a |CE to co|ntinue":|
|00000f40| f5 fd a6 2d 39 39 3a f5 | fd ac a6 2d 39 39 3a db |...-99:.|...-99:.|
|00000f50| 3a e1 0d 03 ca 88 dd f2 | 73 65 61 72 63 68 3a fb |:.......|search:.|
|00000f60| 31 32 39 3a fb 32 3a f1 | 22 53 45 41 52 43 48 20 |129:.2:.|"SEARCH |
|00000f70| 42 59 3a 22 27 22 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |BY:"'"==|========|
|00000f80| 22 3a fb 31 32 38 3a fb | 35 3a f1 27 22 31 29 20 |":.128:.|5:.'"1) |
|00000f90| 54 69 74 6c 65 22 27 22 | 32 29 20 41 75 74 68 6f |Title"'"|2) Autho|
|00000fa0| 72 22 27 22 33 29 20 53 | 75 62 6a 65 63 74 22 27 |r"'"3) S|ubject"'|
|00000fb0| 22 34 29 20 4e 6f 74 65 | 73 22 27 22 35 29 20 50 |"4) Note|s"'"5) P|
|00000fc0| 75 62 6c 69 73 68 65 72 | 22 27 22 36 29 20 42 6f |ublisher|"'"6) Bo|
|00000fd0| 6f 6b 20 6e 75 6d 62 65 | 72 22 0d 03 d4 1b f5 3a |ok numbe|r".....:|
|00000fe0| 5a 24 3d be 3a fd 5a 24 | 3e 22 30 22 20 80 20 5a |Z$=.:.Z$|>"0" . Z|
|00000ff0| 24 3c 22 37 22 0d 03 de | 17 e7 5a 24 3d 22 36 22 |$<"7"...|..Z$="6"|
|00001000| 20 f2 64 69 73 70 62 6f | 6f 6b 3a e1 0d 03 e8 28 | .dispbo|ok:....(|
|00001010| 73 73 24 3d a4 69 6e 70 | 75 74 28 22 53 65 61 72 |ss$=.inp|ut("Sear|
|00001020| 63 68 20 73 74 72 69 6e | 67 22 2c 35 30 2c 22 22 |ch strin|g",50,""|
|00001030| 2c 31 30 29 0d 03 f2 2d | e7 73 73 24 3d 22 22 20 |,10)...-|.ss$="" |
|00001040| f2 65 72 72 6f 72 28 22 | 49 4e 56 41 4c 49 44 20 |.error("|INVALID |
|00001050| 53 45 41 52 43 48 20 53 | 54 52 49 4e 47 22 29 3a |SEARCH S|TRING"):|
|00001060| e1 0d 03 fc 09 47 24 3d | 5a 24 0d 04 06 3d e3 73 |.....G$=|Z$...=.s|
|00001070| 72 25 3d 31 20 b8 20 32 | 35 30 3a e7 20 47 24 3d |r%=1 . 2|50:. G$=|
|00001080| 22 31 22 20 80 20 a7 62 | 6f 6f 6b 73 24 28 73 72 |"1" . .b|ooks$(sr|
|00001090| 25 2c 30 29 2c 73 73 24 | 29 20 f2 64 69 73 70 6c |%,0),ss$|) .displ|
|000010a0| 61 79 28 73 72 25 29 0d | 04 10 34 e7 20 47 24 3d |ay(sr%).|..4. G$=|
|000010b0| 22 32 22 20 80 20 28 a7 | 62 6f 6f 6b 73 24 28 73 |"2" . (.|books$(s|
|000010c0| 72 25 2c 31 29 2c 73 73 | 24 29 3e 30 29 20 f2 64 |r%,1),ss|$)>0) .d|
|000010d0| 69 73 70 6c 61 79 28 73 | 72 25 29 0d 04 1a 34 e7 |isplay(s|r%)...4.|
|000010e0| 20 47 24 3d 22 33 22 20 | 80 20 28 a7 62 6f 6f 6b | G$="3" |. (.book|
|000010f0| 73 24 28 73 72 25 2c 32 | 29 2c 73 73 24 29 3e 30 |s$(sr%,2|),ss$)>0|
|00001100| 29 20 f2 64 69 73 70 6c | 61 79 28 73 72 25 29 0d |) .displ|ay(sr%).|
|00001110| 04 24 60 e7 20 47 24 3d | 22 34 22 20 80 20 28 28 |.$`. G$=|"4" . ((|
|00001120| a7 62 6f 6f 6b 73 24 28 | 73 72 25 2c 33 29 2c 73 |.books$(|sr%,3),s|
|00001130| 73 24 29 29 84 28 a7 62 | 6f 6f 6b 73 24 28 73 72 |s$)).(.b|ooks$(sr|
|00001140| 25 2c 34 29 2c 73 73 24 | 29 29 84 28 a7 62 6f 6f |%,4),ss$|)).(.boo|
|00001150| 6b 73 24 28 73 72 25 2c | 35 29 2c 73 73 24 29 29 |ks$(sr%,|5),ss$))|
|00001160| 29 20 f2 64 69 73 70 6c | 61 79 28 73 72 25 29 0d |) .displ|ay(sr%).|
|00001170| 04 2e 30 e7 20 47 24 3d | 22 35 22 20 80 20 a7 62 |..0. G$=|"5" . .b|
|00001180| 6f 6f 6b 73 24 28 73 72 | 25 2c 36 29 2c 73 73 24 |ooks$(sr|%,6),ss$|
|00001190| 29 20 f2 64 69 73 70 6c | 61 79 28 73 72 25 29 0d |) .displ|ay(sr%).|
|000011a0| 04 38 27 ed 3a f1 22 4e | 6f 20 66 75 72 74 68 65 |.8'.:."N|o furthe|
|000011b0| 72 20 6d 61 74 63 68 65 | 73 2e 2e 2e 22 3a f2 70 |r matche|s...":.p|
|000011c0| 61 75 73 65 3a e1 0d 04 | 42 0e dd f2 64 69 73 70 |ause:...|B...disp|
|000011d0| 62 6f 6f 6b 0d 04 4c 5a | 62 6e 25 3d bb 28 a4 69 |book..LZ|bn%=.(.i|
|000011e0| 6e 70 75 74 28 22 42 6f | 6f 6b 20 6e 75 6d 62 65 |nput("Bo|ok numbe|
|000011f0| 72 22 2c 33 2c 22 22 2c | 31 30 29 29 3a e7 20 62 |r",3,"",|10)):. b|
|00001200| 6e 25 3c 31 20 84 20 62 | 6e 25 3e 32 35 30 20 f2 |n%<1 . b|n%>250 .|
|00001210| 65 72 72 6f 72 28 22 49 | 4e 56 41 4c 49 44 20 42 |error("I|NVALID B|
|00001220| 4f 4f 4b 20 4e 55 4d 42 | 45 52 22 29 3a e1 0d 04 |OOK NUMB|ER"):...|
|00001230| 56 13 f2 64 69 73 70 6c | 61 79 28 62 6e 25 29 3a |V..displ|ay(bn%):|
|00001240| e1 0d ff                |                         |...     |        |
+--------+-------------------------+-------------------------+--------+--------+