home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1989-12-12 | 6.7 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 30 52 45 4d 20 3e 20 | 4d 44 53 53 20 2d 20 42 |10REM > |MDSS - B|
|00000010| 79 20 44 61 72 72 65 6e | 20 4a 61 63 6b 73 6f 6e |y Darren| Jackson|
|00000020| 0a 32 30 52 45 4d 0a 33 | 30 52 45 4d 20 20 20 4d |.20REM.3|0REM M|
|00000030| 61 67 61 7a 69 6e 65 20 | 44 61 74 61 62 61 73 65 |agazine |Database|
|00000040| 20 53 65 61 72 63 68 20 | 53 79 73 74 65 6d 20 2d | Search |System -|
|00000050| 20 56 65 72 73 69 6f 6e | 20 31 2e 31 30 0a 34 30 | Version| 1.10.40|
|00000060| 52 45 4d 0a 35 30 52 45 | 4d 20 20 20 56 65 72 73 |REM.50RE|M Vers|
|00000070| 69 6f 6e 20 20 44 61 74 | 65 20 20 20 20 20 20 20 |ion Dat|e |
|00000080| 20 20 4e 6f 74 65 73 0a | 35 31 52 45 4d 20 20 20 | Notes.|51REM |
|00000090| 20 20 30 2e 30 30 20 20 | 20 32 32 20 44 65 63 20 | 0.00 | 22 Dec |
|000000a0| 31 39 38 39 20 20 6e 6f | 74 20 72 65 6c 65 61 73 |1989 no|t releas|
|000000b0| 65 64 0a 36 30 52 45 4d | 20 20 20 20 20 31 2e 30 |ed.60REM| 1.0|
|000000c0| 30 20 20 20 31 35 20 46 | 65 62 20 31 39 38 39 20 |0 15 F|eb 1989 |
|000000d0| 20 55 70 74 6f 20 64 61 | 74 65 20 61 73 20 6f 66 | Upto da|te as of|
|000000e0| 20 31 34 20 46 65 62 20 | 31 39 38 39 0a 37 30 52 | 14 Feb |1989.70R|
|000000f0| 45 4d 20 20 20 20 20 31 | 2e 31 30 20 20 20 32 32 |EM 1|.10 22|
|00000100| 20 4d 61 72 20 31 39 38 | 39 20 20 55 70 74 6f 20 | Mar 198|9 Upto |
|00000110| 64 61 74 65 20 61 73 20 | 6f 66 20 32 32 20 4d 61 |date as |of 22 Ma|
|00000120| 72 20 31 39 38 39 0a 38 | 30 52 45 4d 0a 39 30 52 |r 1989.8|0REM.90R|
|00000130| 45 4d 20 20 20 49 20 63 | 61 6e 20 62 65 20 63 6f |EM I c|an be co|
|00000140| 6e 74 61 63 74 65 64 20 | 6f 6e 20 74 68 65 20 66 |ntacted |on the f|
|00000150| 6f 6c 6c 6f 77 69 6e 67 | 20 42 42 53 27 73 0a 31 |ollowing| BBS's.1|
|00000160| 30 30 52 45 4d 20 20 20 | 20 20 45 75 72 65 6b 61 |00REM | Eureka|
|00000170| 20 49 49 20 20 20 20 20 | 20 20 30 31 20 36 38 33 | II | 01 683|
|00000180| 20 30 36 32 39 20 20 32 | 34 68 72 0a 31 31 30 52 | 0629 2|4hr.110R|
|00000190| 45 4d 20 20 20 20 20 43 | 68 72 6f 6e 6f 27 73 20 |EM C|hrono's |
|000001a0| 4c 61 69 72 20 20 30 32 | 31 20 37 34 34 20 35 35 |Lair 02|1 744 55|
|000001b0| 36 31 20 20 32 34 68 72 | 0a 31 32 30 0a 31 33 30 |61 24hr|.120.130|
|000001c0| 4f 4e 20 45 52 52 4f 52 | 20 50 52 4f 43 65 72 72 |ON ERROR| PROCerr|
|000001d0| 6f 72 3a 45 4e 44 0a 31 | 34 30 0a 31 35 30 50 52 |or:END.1|40.150PR|
|000001e0| 4f 43 73 63 72 65 65 6e | 0a 31 36 30 50 52 4f 43 |OCscreen|.160PROC|
|000001f0| 72 65 61 64 5f 61 72 63 | 5f 72 65 63 6f 72 64 73 |read_arc|_records|
|00000200| 0a 31 37 30 57 48 49 4c | 45 20 4e 4f 54 20 71 75 |.170WHIL|E NOT qu|
|00000210| 69 74 25 0a 31 38 30 20 | 20 50 52 4f 43 73 65 61 |it%.180 | PROCsea|
|00000220| 72 63 68 0a 31 39 30 45 | 4e 44 57 48 49 4c 45 0a |rch.190E|NDWHILE.|
|00000230| 32 30 30 50 52 4f 43 66 | 69 6e 61 6c 69 73 65 0a |200PROCf|inalise.|
|00000240| 32 31 30 45 4e 44 0a 32 | 32 30 0a 32 33 30 44 45 |210END.2|20.230DE|
|00000250| 46 20 50 52 4f 43 73 63 | 72 65 65 6e 0a 32 34 30 |F PROCsc|reen.240|
|00000260| 4d 4f 44 45 20 30 3a 4f | 46 46 0a 32 35 30 56 44 |MODE 0:O|FF.250VD|
|00000270| 55 20 31 39 2c 30 2c 32 | 34 2c 26 30 30 2c 26 30 |U 19,0,2|4,&00,&0|
|00000280| 30 2c 26 41 30 0a 32 36 | 30 56 44 55 20 31 39 2c |0,&A0.26|0VDU 19,|
|00000290| 30 2c 31 36 2c 26 30 30 | 2c 26 30 30 2c 26 41 30 |0,16,&00|,&00,&A0|
|000002a0| 0a 32 37 30 2a 3c 6f 62 | 65 79 24 44 69 72 3e 2e |.270*<ob|ey$Dir>.|
|000002b0| 49 42 4d 67 72 61 70 68 | 0a 32 38 30 56 44 55 20 |IBMgraph|.280VDU |
|000002c0| 32 33 2c 31 36 2c 31 7c | 0a 32 39 30 50 52 4f 43 |23,16,1||.290PROC|
|000002d0| 62 6f 78 5f 64 6f 75 62 | 6c 65 28 30 2c 33 31 2c |box_doub|le(0,31,|
|000002e0| 37 39 2c 30 2c 46 41 4c | 53 45 29 0a 33 30 30 50 |79,0,FAL|SE).300P|
|000002f0| 52 4f 43 62 6f 78 5f 64 | 6f 75 62 6c 65 28 38 2c |ROCbox_d|ouble(8,|
|00000300| 34 2c 37 31 2c 31 2c 46 | 41 4c 53 45 29 0a 33 31 |4,71,1,F|ALSE).31|
|00000310| 30 50 52 4f 43 63 65 6e | 74 72 65 28 22 4d 61 67 |0PROCcen|tre("Mag|
|00000320| 61 7a 69 6e 65 20 44 61 | 74 61 62 61 73 65 20 53 |azine Da|tabase S|
|00000330| 65 61 72 63 68 20 53 79 | 73 74 65 6d 20 76 2e 31 |earch Sy|stem v.1|
|00000340| 2e 31 30 22 2c 32 29 0a | 33 32 30 50 52 4f 43 63 |.10",2).|320PROCc|
|00000350| 65 6e 74 72 65 28 22 42 | 79 20 44 2e 4a 61 63 6b |entre("B|y D.Jack|
|00000360| 73 6f 6e 20 4d 61 72 63 | 68 20 31 39 38 39 22 2c |son Marc|h 1989",|
|00000370| 33 29 0a 33 33 30 50 52 | 4f 43 62 6f 78 5f 64 6f |3).330PR|OCbox_do|
|00000380| 75 62 6c 65 28 38 2c 33 | 30 2c 37 31 2c 32 38 2c |uble(8,3|0,71,28,|
|00000390| 46 41 4c 53 45 29 0a 33 | 34 30 50 52 49 4e 54 20 |FALSE).3|40PRINT |
|000003a0| 54 41 42 28 38 2c 35 29 | 20 22 57 48 45 4e 45 4e |TAB(8,5)| "WHENEN|
|000003b0| 44 49 46 45 4e 44 49 46 | 45 4e 44 49 46 45 4e 44 |DIFENDIF|ENDIFEND|
|000003c0| 49 46 45 4e 44 49 46 54 | 49 4d 45 45 4e 44 49 46 |IFENDIFT|IMEENDIF|
|000003d0| 45 4e 44 49 46 45 4e 44 | 49 46 45 4e 44 49 46 45 |ENDIFEND|IFENDIFE|
|000003e0| 4e 44 49 46 45 4e 44 49 | 46 45 4e 44 49 46 45 4e |NDIFENDI|FENDIFEN|
|000003f0| 44 49 46 45 4e 44 49 46 | 45 4e 44 49 46 45 4e 44 |DIFENDIF|ENDIFEND|
|00000400| 49 46 45 4e 44 49 46 45 | 4e 44 49 46 45 4e 44 49 |IFENDIFE|NDIFENDI|
|00000410| 46 45 4e 44 49 46 45 4e | 44 49 46 45 4e 44 49 46 |FENDIFEN|DIFENDIF|
|00000420| 45 4e 44 49 46 45 4e 44 | 49 46 45 4e 44 49 46 45 |ENDIFEND|IFENDIFE|
|00000430| 4e 44 49 46 45 4e 44 49 | 46 45 4e 44 49 46 45 4e |NDIFENDI|FENDIFEN|
|00000440| 44 49 46 45 4e 44 49 46 | 45 4e 44 49 46 45 4e 44 |DIFENDIF|ENDIFEND|
|00000450| 49 46 45 4e 44 49 46 45 | 4e 44 49 46 45 4e 44 49 |IFENDIFE|NDIFENDI|
|00000460| 46 45 4e 44 49 46 45 4e | 44 49 46 45 4e 44 49 46 |FENDIFEN|DIFENDIF|
|00000470| 45 4e 44 49 46 45 4e 44 | 49 46 45 4e 44 49 46 45 |ENDIFEND|IFENDIFE|
|00000480| 4e 44 49 46 54 49 4d 45 | 45 4e 44 49 46 45 4e 44 |NDIFTIME|ENDIFEND|
|00000490| 49 46 45 4e 44 49 46 45 | 4e 44 49 46 54 49 4d 45 |IFENDIFE|NDIFTIME|
|000004a0| 45 4e 44 49 46 45 4e 44 | 49 46 45 4e 44 49 46 45 |ENDIFEND|IFENDIFE|
|000004b0| 4e 44 49 46 45 4e 44 49 | 46 45 4e 44 49 46 45 4e |NDIFENDI|FENDIFEN|
|000004c0| 44 49 46 54 49 4d 45 45 | 4e 44 49 46 45 4e 44 49 |DIFTIMEE|NDIFENDI|
|000004d0| 46 45 4e 44 49 46 45 4e | 44 49 46 45 4e 44 49 46 |FENDIFEN|DIFENDIF|
|000004e0| 56 41 4c 22 0a 33 35 30 | 50 52 49 4e 54 20 54 41 |VAL".350|PRINT TA|
|000004f0| 42 28 38 2c 36 29 20 22 | 55 53 52 20 4e 6f 2e 20 |B(8,6) "|USR No. |
|00000500| 52 4e 44 20 41 72 74 69 | 63 6c 65 20 20 20 20 20 |RND Arti|cle |
|00000510| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000520| 20 20 20 20 20 20 20 20 | 52 4e 44 20 4d 67 20 52 | |RND Mg R|
|00000530| 4e 44 20 49 73 73 75 65 | 20 52 4e 44 20 50 67 20 |ND Issue| RND Pg |
|00000540| 20 55 53 52 22 0a 33 36 | 30 50 52 49 4e 54 20 54 | USR".36|0PRINT T|
|00000550| 41 42 28 38 2c 37 29 20 | 22 45 4c 53 45 45 4e 44 |AB(8,7) |"ELSEEND|
|00000560| 49 46 45 4e 44 49 46 45 | 4e 44 49 46 45 4e 44 49 |IFENDIFE|NDIFENDI|
|00000570| 46 45 4e 44 49 46 43 4c | 45 41 52 45 4e 44 49 46 |FENDIFCL|EARENDIF|
|00000580| 45 4e 44 49 46 45 4e 44 | 49 46 45 4e 44 49 46 45 |ENDIFEND|IFENDIFE|
|00000590| 4e 44 49 46 45 4e 44 49 | 46 45 4e 44 49 46 45 4e |NDIFENDI|FENDIFEN|
|000005a0| 44 49 46 45 4e 44 49 46 | 45 4e 44 49 46 45 4e 44 |DIFENDIF|ENDIFEND|
|000005b0| 49 46 45 4e 44 49 46 45 | 4e 44 49 46 45 4e 44 49 |IFENDIFE|NDIFENDI|
|000005c0| 46 45 4e 44 49 46 45 4e | 44 49 46 45 4e 44 49 46 |FENDIFEN|DIFENDIF|
|000005d0| 45 4e 44 49 46 45 4e 44 | 49 46 45 4e 44 49 46 45 |ENDIFEND|IFENDIFE|
|000005e0| 4e 44 49 46 45 4e 44 49 | 46 45 4e 44 49 46 45 4e |NDIFENDI|FENDIFEN|
|000005f0| 44 49 46 45 4e 44 49 46 | 45 4e 44 49 46 45 4e 44 |DIFENDIF|ENDIFEND|
|00000600| 49 46 45 4e 44 49 46 45 | 4e 44 49 46 45 4e 44 49 |IFENDIFE|NDIFENDI|
|00000610| 46 45 4e 44 49 46 45 4e | 44 49 46 45 4e 44 49 46 |FENDIFEN|DIFENDIF|
|00000620| 45 4e 44 49 46 45 4e 44 | 49 46 45 4e 44 49 46 45 |ENDIFEND|IFENDIFE|
|00000630| 4e 44 49 46 43 4c 45 41 | 52 45 4e 44 49 46 45 4e |NDIFCLEA|RENDIFEN|
|00000640| 44 49 46 45 4e 44 49 46 | 45 4e 44 49 46 43 4c 45 |DIFENDIF|ENDIFCLE|
|00000650| 41 52 45 4e 44 49 46 45 | 4e 44 49 46 45 4e 44 49 |ARENDIFE|NDIFENDI|
|00000660| 46 45 4e 44 49 46 45 4e | 44 49 46 45 4e 44 49 46 |FENDIFEN|DIFENDIF|
|00000670| 45 4e 44 49 46 43 4c 45 | 41 52 45 4e 44 49 46 45 |ENDIFCLE|ARENDIFE|
|00000680| 4e 44 49 46 45 4e 44 49 | 46 45 4e 44 49 46 45 4e |NDIFENDI|FENDIFEN|
|00000690| 44 49 46 54 52 55 45 22 | 0a 33 37 30 50 52 49 4e |DIFTRUE"|.370PRIN|
|000006a0| 54 20 54 41 42 28 38 2c | 32 37 29 22 69 73 74 20 |T TAB(8,|27)"ist |
|000006b0| 29 00 45 4e 44 49 46 45 | 4e 44 49 46 45 4e 44 49 |).ENDIFE|NDIFENDI|
|000006c0| 46 45 4e 44 49 46 50 54 | 52 45 4e 44 49 46 45 4e |FENDIFPT|RENDIFEN|
|000006d0| 44 49 46 45 4e 44 49 46 | 45 4e 44 49 46 45 4e 44 |DIFENDIF|ENDIFEND|
|000006e0| 49 46 45 4e 44 49 46 45 | 4e 44 49 46 45 4e 44 49 |IFENDIFE|NDIFENDI|
|000006f0| 46 45 4e 44 49 46 45 4e | 44 49 46 45 4e 44 49 46 |FENDIFEN|DIFENDIF|
|00000700| 45 4e 44 49 46 45 4e 44 | 49 46 45 4e 44 49 46 45 |ENDIFEND|IFENDIFE|
|00000710| 4e 44 49 46 45 4e 44 49 | 46 45 4e 44 49 46 45 4e |NDIFENDI|FENDIFEN|
|00000720| 44 49 46 45 4e 44 49 46 | 45 4e 44 49 46 45 4e 44 |DIFENDIF|ENDIFEND|
|00000730| 49 46 45 4e 44 49 46 45 | 4e 44 49 46 45 4e 44 49 |IFENDIFE|NDIFENDI|
|00000740| 46 45 4e 44 49 46 45 4e | 44 49 46 45 4e 44 49 46 |FENDIFEN|DIFENDIF|
|00000750| 45 4e 44 49 46 45 4e 44 | 49 46 45 4e 44 49 46 45 |ENDIFEND|IFENDIFE|
|00000760| 4e 44 49 46 45 4e 44 49 | 46 45 4e 44 49 46 45 4e |NDIFENDI|FENDIFEN|
|00000770| 44 49 46 45 4e 44 49 46 | 45 4e 44 49 46 45 4e 44 |DIFENDIF|ENDIFEND|
|00000780| 49 46 50 54 52 45 4e 44 | 49 46 45 4e 44 49 46 45 |IFPTREND|IFENDIFE|
|00000790| 4e 44 49 46 45 4e 44 49 | 46 50 54 52 45 4e 44 49 |NDIFENDI|FPTRENDI|
|000007a0| 46 45 4e 44 49 46 45 4e | 44 49 46 45 4e 44 49 46 |FENDIFEN|DIFENDIF|
|000007b0| 45 4e 44 49 46 45 4e 44 | 49 46 45 4e 44 49 46 50 |ENDIFEND|IFENDIFP|
|000007c0| 54 52 45 4e 44 49 46 45 | 4e 44 49 46 45 4e 44 49 |TRENDIFE|NDIFENDI|
|000007d0| 46 45 4e 44 49 46 45 4e | 44 49 46 56 50 4f 53 22 |FENDIFEN|DIFVPOS"|
|000007e0| 3b 0a 33 38 30 65 6d 70 | 74 79 5f 6c 69 6e 65 24 |;.380emp|ty_line$|
|000007f0| 20 3d 20 20 22 55 53 52 | 20 20 20 20 20 52 4e 44 | = "USR| RND|
|00000800| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000810| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000820| 20 20 20 20 20 52 4e 44 | 20 20 20 20 52 4e 44 20 | RND| RND |
|00000830| 20 20 20 20 20 20 52 4e | 44 20 20 20 20 20 55 53 | RN|D US|
|00000840| 52 22 0a 33 39 30 46 4f | 52 20 6c 69 6e 65 25 3d |R".390FO|R line%=|
|00000850| 38 20 54 4f 20 32 36 0a | 34 30 30 20 20 50 52 49 |8 TO 26.|400 PRI|
|00000860| 4e 54 20 54 41 42 28 38 | 2c 6c 69 6e 65 25 29 65 |NT TAB(8|,line%)e|
|00000870| 6d 70 74 79 5f 6c 69 6e | 65 24 0a 34 31 30 4e 45 |mpty_lin|e$.410NE|
|00000880| 58 54 0a 34 32 30 63 6f | 6c 31 24 3d 43 48 52 24 |XT.420co|l1$=CHR$|
|00000890| 28 31 37 29 2b 43 48 52 | 24 28 31 29 0a 34 33 30 |(17)+CHR|$(1).430|
|000008a0| 63 6f 6c 32 24 3d 43 48 | 52 24 28 31 37 29 2b 43 |col2$=CH|R$(17)+C|
|000008b0| 48 52 24 28 32 29 0a 34 | 34 30 63 6f 6c 33 24 3d |HR$(2).4|40col3$=|
|000008c0| 43 48 52 24 28 31 37 29 | 2b 43 48 52 24 28 33 29 |CHR$(17)|+CHR$(3)|
|000008d0| 0a 34 35 30 71 75 69 74 | 25 3d 46 41 4c 53 45 0a |.450quit|%=FALSE.|
|000008e0| 34 36 30 6d 61 78 5f 64 | 69 73 70 6c 61 79 25 3d |460max_d|isplay%=|
|000008f0| 31 39 0a 34 37 30 45 4e | 44 50 52 4f 43 0a 34 38 |19.470EN|DPROC.48|
|00000900| 30 0a 34 39 30 44 45 46 | 20 50 52 4f 43 72 65 61 |0.490DEF| PROCrea|
|00000910| 64 5f 61 72 63 5f 72 65 | 63 6f 72 64 73 0a 35 30 |d_arc_re|cords.50|
|00000920| 30 50 52 49 4e 54 20 54 | 41 42 28 32 37 2c 32 39 |0PRINT T|AB(27,29|
|00000930| 29 22 52 65 61 64 69 6e | 67 20 52 65 63 6f 72 64 |)"Readin|g Record|
|00000940| 20 30 30 30 20 28 30 30 | 30 25 29 22 0a 35 31 30 | 000 (00|0%)".510|
|00000950| 6d 61 67 61 7a 69 6e 65 | 25 3d 4f 50 45 4e 49 4e |magazine|%=OPENIN|
|00000960| 28 22 4d 61 67 61 7a 69 | 6e 65 22 29 0a 35 32 30 |("Magazi|ne").520|
|00000970| 49 4e 50 55 54 23 6d 61 | 67 61 7a 69 6e 65 25 2c |INPUT#ma|gazine%,|
|00000980| 72 65 63 73 25 0a 35 33 | 30 44 49 4d 20 61 72 74 |recs%.53|0DIM art|
|00000990| 24 28 72 65 63 73 25 29 | 2c 6d 61 67 24 28 72 65 |$(recs%)|,mag$(re|
|000009a0| 63 73 25 29 2c 6d 6f 6e | 24 28 72 65 63 73 25 29 |cs%),mon|$(recs%)|
|000009b0| 2c 79 65 61 72 24 28 72 | 65 63 73 25 29 2c 70 61 |,year$(r|ecs%),pa|
|000009c0| 67 65 24 28 72 65 63 73 | 25 29 0a 35 34 30 44 49 |ge$(recs|%).540DI|
|000009d0| 4d 20 66 6f 75 6e 64 24 | 28 72 65 63 73 25 29 0a |M found$|(recs%).|
|000009e0| 35 35 30 46 4f 52 20 72 | 65 63 25 3d 31 20 54 4f |550FOR r|ec%=1 TO|
|000009f0| 20 72 65 63 73 25 0a 35 | 36 30 20 20 50 52 49 4e | recs%.5|60 PRIN|
|00000a00| 54 20 54 41 42 28 34 32 | 2c 32 39 29 46 4e 73 70 |T TAB(42|,29)FNsp|
|00000a10| 61 63 65 28 72 65 63 25 | 2c 33 29 0a 35 37 30 20 |ace(rec%|,3).570 |
|00000a20| 20 70 65 72 63 65 6e 74 | 25 3d 28 72 65 63 25 2f | percent|%=(rec%/|
|00000a30| 72 65 63 73 25 29 2a 31 | 30 30 0a 35 38 30 20 20 |recs%)*1|00.580 |
|00000a40| 50 52 49 4e 54 20 54 41 | 42 28 34 37 2c 32 39 29 |PRINT TA|B(47,29)|
|00000a50| 46 4e 73 70 61 63 65 28 | 70 65 72 63 65 6e 74 25 |FNspace(|percent%|
|00000a60| 2c 33 29 0a 35 39 30 20 | 20 49 4e 50 55 54 23 6d |,3).590 | INPUT#m|
|00000a70| 61 67 61 7a 69 6e 65 25 | 2c 61 72 74 24 28 72 65 |agazine%|,art$(re|
|00000a80| 63 25 29 0a 36 30 30 20 | 20 49 4e 50 55 54 23 6d |c%).600 | INPUT#m|
|00000a90| 61 67 61 7a 69 6e 65 25 | 2c 6d 61 67 24 28 72 65 |agazine%|,mag$(re|
|00000aa0| 63 25 29 0a 36 31 30 20 | 20 49 4e 50 55 54 23 6d |c%).610 | INPUT#m|
|00000ab0| 61 67 61 7a 69 6e 65 25 | 2c 6d 6f 6e 24 28 72 65 |agazine%|,mon$(re|
|00000ac0| 63 25 29 0a 36 32 30 20 | 20 49 4e 50 55 54 23 6d |c%).620 | INPUT#m|
|00000ad0| 61 67 61 7a 69 6e 65 25 | 2c 79 65 61 72 24 28 72 |agazine%|,year$(r|
|00000ae0| 65 63 25 29 0a 36 33 30 | 20 20 49 4e 50 55 54 23 |ec%).630| INPUT#|
|00000af0| 6d 61 67 61 7a 69 6e 65 | 25 2c 70 61 67 65 24 28 |magazine|%,page$(|
|00000b00| 72 65 63 25 29 0a 36 34 | 30 4e 45 58 54 0a 36 35 |rec%).64|0NEXT.65|
|00000b10| 30 43 4c 4f 53 45 23 6d | 61 67 61 7a 69 6e 65 25 |0CLOSE#m|agazine%|
|00000b20| 0a 36 36 30 45 4e 44 50 | 52 4f 43 0a 36 37 30 0a |.660ENDP|ROC.670.|
|00000b30| 36 38 30 44 45 46 20 50 | 52 4f 43 73 65 61 72 63 |680DEF P|ROCsearc|
|00000b40| 68 0a 36 39 30 4f 4e 0a | 37 30 30 50 52 49 4e 54 |h.690ON.|700PRINT|
|00000b50| 20 54 41 42 28 39 2c 32 | 39 29 53 50 43 28 36 32 | TAB(9,2|9)SPC(62|
|00000b60| 29 0a 37 31 30 50 52 49 | 4e 54 20 54 41 42 28 31 |).710PRI|NT TAB(1|
|00000b70| 30 2c 32 39 29 22 53 65 | 61 72 63 68 20 53 74 72 |0,29)"Se|arch Str|
|00000b80| 69 6e 67 20 31 20 3a 20 | 22 3b 0a 37 32 30 49 4e |ing 1 : |";.720IN|
|00000b90| 50 55 54 20 22 22 73 65 | 61 72 63 68 31 24 0a 37 |PUT ""se|arch1$.7|
|00000ba0| 33 30 50 52 49 4e 54 20 | 54 41 42 28 39 2c 32 39 |30PRINT |TAB(9,29|
|00000bb0| 29 53 50 43 28 36 32 29 | 0a 37 34 30 50 52 49 4e |)SPC(62)|.740PRIN|
|00000bc0| 54 20 54 41 42 28 31 30 | 2c 32 39 29 22 53 65 61 |T TAB(10|,29)"Sea|
|00000bd0| 72 63 68 20 53 74 72 69 | 6e 67 20 32 20 3a 20 22 |rch Stri|ng 2 : "|
|00000be0| 3b 0a 37 35 30 49 4e 50 | 55 54 20 22 22 73 65 61 |;.750INP|UT ""sea|
|00000bf0| 72 63 68 32 24 0a 37 36 | 30 4f 46 46 0a 37 37 30 |rch2$.76|0OFF.770|
|00000c00| 46 4f 52 20 6c 69 6e 65 | 25 3d 38 20 54 4f 20 32 |FOR line|%=8 TO 2|
|00000c10| 36 0a 37 38 30 20 20 50 | 52 49 4e 54 20 54 41 42 |6.780 P|RINT TAB|
|00000c20| 28 38 2c 6c 69 6e 65 25 | 29 65 6d 70 74 79 5f 6c |(8,line%|)empty_l|
|00000c30| 69 6e 65 24 0a 37 39 30 | 4e 45 58 54 0a 38 30 30 |ine$.790|NEXT.800|
|00000c40| 73 65 61 72 63 68 31 24 | 3d 46 4e 75 70 70 65 72 |search1$|=FNupper|
|00000c50| 28 73 65 61 72 63 68 31 | 24 29 0a 38 31 30 73 65 |(search1|$).810se|
|00000c60| 61 72 63 68 32 24 3d 46 | 4e 75 70 70 65 72 28 73 |arch2$=F|Nupper(s|
|00000c70| 65 61 72 63 68 32 24 29 | 0a 38 32 30 50 52 49 4e |earch2$)|.820PRIN|
|00000c80| 54 20 54 41 42 28 39 2c | 32 39 29 53 50 43 28 36 |T TAB(9,|29)SPC(6|
|00000c90| 32 29 0a 38 33 30 50 52 | 49 4e 54 20 54 41 42 28 |2).830PR|INT TAB(|
|00000ca0| 32 37 2c 32 39 29 22 20 | 20 30 20 6d 61 74 63 68 |27,29)" | 0 match|
|00000cb0| 65 73 2c 20 30 30 30 25 | 20 73 65 61 72 63 68 65 |es, 000%| searche|
|00000cc0| 64 22 0a 38 34 30 50 52 | 4f 43 73 65 61 72 63 68 |d".840PR|OCsearch|
|00000cd0| 5f 64 61 74 61 62 61 73 | 65 0a 38 35 30 50 52 49 |_databas|e.850PRI|
|00000ce0| 4e 54 20 54 41 42 28 39 | 2c 32 39 29 53 50 43 28 |NT TAB(9|,29)SPC(|
|00000cf0| 36 32 29 0a 38 36 30 49 | 46 20 66 6f 75 6e 64 25 |62).860I|F found%|
|00000d00| 20 3d 20 30 20 54 48 45 | 4e 0a 38 37 30 20 20 50 | = 0 THE|N.870 P|
|00000d10| 52 4f 43 63 65 6e 74 72 | 65 28 22 4e 6f 20 72 65 |ROCcentr|e("No re|
|00000d20| 63 6f 72 64 73 20 66 6f | 75 6e 64 21 20 3c 52 3e |cords fo|und! <R>|
|00000d30| 75 6e 20 6f 72 20 3c 51 | 3e 75 69 74 22 2c 32 39 |un or <Q|>uit",29|
|00000d40| 29 0a 38 38 30 20 20 52 | 45 50 45 41 54 0a 38 39 |).880 R|EPEAT.89|
|00000d50| 30 20 20 20 20 6f 70 74 | 69 6f 6e 24 3d 43 48 52 |0 opt|ion$=CHR|
|00000d60| 24 28 47 45 54 20 41 4e | 44 20 26 44 46 29 0a 39 |$(GET AN|D &DF).9|
|00000d70| 30 30 20 20 20 20 71 75 | 69 74 25 3d 6f 70 74 69 |00 qu|it%=opti|
|00000d80| 6f 6e 24 3d 22 51 22 0a | 39 31 30 20 20 55 4e 54 |on$="Q".|910 UNT|
|00000d90| 49 4c 20 6f 70 74 69 6f | 6e 24 3d 22 52 22 20 4f |IL optio|n$="R" O|
|00000da0| 52 20 6f 70 74 69 6f 6e | 24 3d 22 51 22 0a 39 32 |R option|$="Q".92|
|00000db0| 30 45 4c 53 45 0a 39 33 | 30 20 20 49 46 20 66 6f |0ELSE.93|0 IF fo|
|00000dc0| 75 6e 64 25 20 3e 20 6d | 61 78 5f 64 69 73 70 6c |und% > m|ax_displ|
|00000dd0| 61 79 25 20 54 48 45 4e | 0a 39 34 30 20 20 20 20 |ay% THEN|.940 |
|00000de0| 50 52 4f 43 63 65 6e 74 | 72 65 28 53 54 52 24 28 |PROCcent|re(STR$(|
|00000df0| 66 6f 75 6e 64 25 29 2b | 22 20 6d 61 74 63 68 65 |found%)+|" matche|
|00000e00| 73 2c 20 3c 53 68 69 66 | 74 3e 20 66 6f 72 20 6e |s, <Shif|t> for n|
|00000e10| 65 78 74 20 70 61 67 65 | 22 2c 32 39 29 0a 39 35 |ext page|",29).95|
|00000e20| 30 20 20 45 4e 44 49 46 | 0a 39 36 30 20 20 50 52 |0 ENDIF|.960 PR|
|00000e30| 4f 43 64 69 73 70 6c 61 | 79 5f 6d 61 74 63 68 65 |OCdispla|y_matche|
|00000e40| 64 0a 39 37 30 20 20 50 | 52 49 4e 54 20 54 41 42 |d.970 P|RINT TAB|
|00000e50| 28 39 2c 32 39 29 53 50 | 43 28 36 32 29 0a 39 38 |(9,29)SP|C(62).98|
|00000e60| 30 20 20 49 46 20 66 6f | 75 6e 64 25 20 3d 20 31 |0 IF fo|und% = 1|
|00000e70| 20 54 48 45 4e 0a 39 39 | 30 20 20 20 20 50 52 4f | THEN.99|0 PRO|
|00000e80| 43 63 65 6e 74 72 65 28 | 53 54 52 24 28 66 6f 75 |Ccentre(|STR$(fou|
|00000e90| 6e 64 25 29 2b 22 20 6d | 61 74 63 68 2c 20 3c 50 |nd%)+" m|atch, <P|
|00000ea0| 3e 72 69 6e 74 20 3c 52 | 3e 75 6e 20 3c 51 3e 75 |>rint <R|>un <Q>u|
|00000eb0| 69 74 22 2c 32 39 29 0a | 31 30 30 30 20 20 45 4c |it",29).|1000 EL|
|00000ec0| 53 45 0a 31 30 31 30 20 | 20 20 20 50 52 4f 43 63 |SE.1010 | PROCc|
|00000ed0| 65 6e 74 72 65 28 53 54 | 52 24 28 66 6f 75 6e 64 |entre(ST|R$(found|
|00000ee0| 25 29 2b 22 20 6d 61 74 | 63 68 65 73 2c 20 3c 50 |%)+" mat|ches, <P|
|00000ef0| 3e 72 69 6e 74 20 3c 52 | 3e 75 6e 20 3c 51 3e 75 |>rint <R|>un <Q>u|
|00000f00| 69 74 22 2c 32 39 29 0a | 31 30 32 30 20 20 45 4e |it",29).|1020 EN|
|00000f10| 44 49 46 0a 31 30 33 30 | 20 20 52 45 50 45 41 54 |DIF.1030| REPEAT|
|00000f20| 0a 31 30 34 30 20 20 6f | 70 74 69 6f 6e 24 3d 43 |.1040 o|ption$=C|
|00000f30| 48 52 24 28 47 45 54 20 | 41 4e 44 20 26 44 46 29 |HR$(GET |AND &DF)|
|00000f40| 0a 31 30 35 30 20 20 20 | 20 43 41 53 45 20 6f 70 |.1050 | CASE op|
|00000f50| 74 69 6f 6e 24 20 4f 46 | 0a 31 30 36 30 20 20 20 |tion$ OF|.1060 |
|00000f60| 20 20 20 57 48 45 4e 20 | 22 50 22 20 3a 20 50 52 | WHEN |"P" : PR|
|00000f70| 4f 43 70 72 69 6e 74 0a | 31 30 37 30 20 20 20 20 |OCprint.|1070 |
|00000f80| 20 20 57 48 45 4e 20 22 | 51 22 20 3a 20 71 75 69 | WHEN "|Q" : qui|
|00000f90| 74 25 3d 54 52 55 45 0a | 31 30 38 30 20 20 20 20 |t%=TRUE.|1080 |
|00000fa0| 45 4e 44 43 41 53 45 0a | 31 30 39 30 20 20 55 4e |ENDCASE.|1090 UN|
|00000fb0| 54 49 4c 20 6f 70 74 69 | 6f 6e 24 3d 22 51 22 20 |TIL opti|on$="Q" |
|00000fc0| 4f 52 20 6f 70 74 69 6f | 6e 24 3d 22 52 22 0a 31 |OR optio|n$="R".1|
|00000fd0| 31 30 30 45 4e 44 49 46 | 0a 31 31 31 30 45 4e 44 |100ENDIF|.1110END|
|00000fe0| 50 52 4f 43 0a 31 31 32 | 30 0a 31 31 33 30 44 45 |PROC.112|0.1130DE|
|00000ff0| 46 20 50 52 4f 43 73 65 | 61 72 63 68 5f 64 61 74 |F PROCse|arch_dat|
|00001000| 61 62 61 73 65 0a 31 31 | 34 30 66 6f 75 6e 64 24 |abase.11|40found$|
|00001010| 28 29 3d 22 20 22 3a 66 | 6f 75 6e 64 25 3d 30 0a |()=" ":f|ound%=0.|
|00001020| 31 31 35 30 46 4f 52 20 | 72 65 63 25 3d 31 20 54 |1150FOR |rec%=1 T|
|00001030| 4f 20 72 65 63 73 25 0a | 31 31 36 30 20 20 70 65 |O recs%.|1160 pe|
|00001040| 72 63 65 6e 74 25 3d 28 | 72 65 63 25 2f 72 65 63 |rcent%=(|rec%/rec|
|00001050| 73 25 29 2a 31 30 30 0a | 31 31 37 30 20 20 50 52 |s%)*100.|1170 PR|
|00001060| 49 4e 54 20 54 41 42 28 | 34 30 2c 32 39 29 46 4e |INT TAB(|40,29)FN|
|00001070| 73 70 61 63 65 28 70 65 | 72 63 65 6e 74 25 2c 33 |space(pe|rcent%,3|
|00001080| 29 3b 0a 31 31 38 30 20 | 20 61 72 74 69 63 6c 65 |);.1180 | article|
|00001090| 24 3d 46 4e 75 70 70 65 | 72 28 61 72 74 24 28 72 |$=FNuppe|r(art$(r|
|000010a0| 65 63 25 29 29 0a 31 31 | 39 30 20 20 49 46 20 49 |ec%)).11|90 IF I|
|000010b0| 4e 53 54 52 28 61 72 74 | 69 63 6c 65 24 2c 73 65 |NSTR(art|icle$,se|
|000010c0| 61 72 63 68 31 24 29 3c | 3e 30 20 41 4e 44 20 49 |arch1$)<|>0 AND I|
|000010d0| 4e 53 54 52 28 61 72 74 | 69 63 6c 65 24 2c 73 65 |NSTR(art|icle$,se|
|000010e0| 61 72 63 68 32 24 29 3c | 3e 30 20 54 48 45 4e 0a |arch2$)<|>0 THEN.|
|000010f0| 31 32 30 30 20 20 20 20 | 66 6f 75 6e 64 24 28 72 |1200 |found$(r|
|00001100| 65 63 25 29 3d 22 59 22 | 0a 31 32 31 30 20 20 20 |ec%)="Y"|.1210 |
|00001110| 20 66 6f 75 6e 64 25 2b | 3d 31 0a 31 32 32 30 20 | found%+|=1.1220 |
|00001120| 20 20 20 50 52 49 4e 54 | 20 54 41 42 28 32 37 2c | PRINT| TAB(27,|
|00001130| 32 39 29 46 4e 73 70 61 | 63 65 28 66 6f 75 6e 64 |29)FNspa|ce(found|
|00001140| 25 2c 33 29 3b 0a 31 32 | 33 30 20 20 45 4e 44 49 |%,3);.12|30 ENDI|
|00001150| 46 0a 31 32 34 30 4e 45 | 58 54 0a 31 32 35 30 45 |F.1240NE|XT.1250E|
|00001160| 4e 44 50 52 4f 43 0a 31 | 32 36 30 0a 31 32 37 30 |NDPROC.1|260.1270|
|00001170| 44 45 46 20 50 52 4f 43 | 64 69 73 70 6c 61 79 5f |DEF PROC|display_|
|00001180| 6d 61 74 63 68 65 64 0a | 31 32 38 30 56 44 55 20 |matched.|1280VDU |
|00001190| 32 38 2c 38 2c 32 36 2c | 37 31 2c 38 0a 31 32 39 |28,8,26,|71,8.129|
|000011a0| 30 56 44 55 20 31 34 0a | 31 33 30 30 46 4f 52 20 |0VDU 14.|1300FOR |
|000011b0| 72 65 63 25 3d 31 20 54 | 4f 20 72 65 63 73 25 0a |rec%=1 T|O recs%.|
|000011c0| 31 33 31 30 20 20 49 46 | 20 66 6f 75 6e 64 24 28 |1310 IF| found$(|
|000011d0| 72 65 63 25 29 3d 22 59 | 22 20 54 48 45 4e 0a 31 |rec%)="Y|" THEN.1|
|000011e0| 33 32 30 20 20 20 20 6c | 69 6e 65 24 3d 22 55 53 |320 l|ine$="US|
|000011f0| 52 20 22 0a 31 33 33 30 | 20 20 20 20 6c 69 6e 65 |R ".1330| line|
|00001200| 24 2b 3d 46 4e 73 70 61 | 63 65 28 72 65 63 25 2c |$+=FNspa|ce(rec%,|
|00001210| 33 29 0a 31 33 34 30 20 | 20 20 20 6c 69 6e 65 24 |3).1340 | line$|
|00001220| 2b 3d 22 20 52 4e 44 20 | 22 0a 31 33 35 30 20 20 |+=" RND |".1350 |
|00001230| 20 20 6c 69 6e 65 24 2b | 3d 61 72 74 24 28 72 65 | line$+|=art$(re|
|00001240| 63 25 29 0a 31 33 36 30 | 20 20 20 20 6c 69 6e 65 |c%).1360| line|
|00001250| 24 2b 3d 22 20 52 4e 44 | 20 22 0a 31 33 37 30 20 |$+=" RND| ".1370 |
|00001260| 20 20 20 6c 69 6e 65 24 | 2b 3d 6d 61 67 24 28 72 | line$|+=mag$(r|
|00001270| 65 63 25 29 0a 31 33 38 | 30 20 20 20 20 6c 69 6e |ec%).138|0 lin|
|00001280| 65 24 2b 3d 22 20 52 4e | 44 20 22 0a 31 33 39 30 |e$+=" RN|D ".1390|
|00001290| 20 20 20 20 6c 69 6e 65 | 24 2b 3d 6d 6f 6e 24 28 | line|$+=mon$(|
|000012a0| 72 65 63 25 29 2b 22 2f | 22 2b 79 65 61 72 24 28 |rec%)+"/|"+year$(|
|000012b0| 72 65 63 25 29 0a 31 34 | 30 30 20 20 20 20 6c 69 |rec%).14|00 li|
|000012c0| 6e 65 24 2b 3d 22 20 52 | 4e 44 20 22 0a 31 34 31 |ne$+=" R|ND ".141|
|000012d0| 30 20 20 20 20 6c 69 6e | 65 24 2b 3d 70 61 67 65 |0 lin|e$+=page|
|000012e0| 24 28 72 65 63 25 29 0a | 31 34 32 30 20 20 20 20 |$(rec%).|1420 |
|000012f0| 6c 69 6e 65 24 2b 3d 22 | 20 55 53 52 22 0a 31 34 |line$+="| USR".14|
|00001300| 33 30 20 20 20 20 50 52 | 49 4e 54 20 6c 69 6e 65 |30 PR|INT line|
|00001310| 24 3b 0a 31 34 34 30 20 | 20 45 4e 44 49 46 0a 31 |$;.1440 | ENDIF.1|
|00001320| 34 35 30 4e 45 58 54 0a | 31 34 36 30 56 44 55 20 |450NEXT.|1460VDU |
|00001330| 31 35 0a 31 34 37 30 56 | 44 55 20 32 36 0a 31 34 |15.1470V|DU 26.14|
|00001340| 38 30 45 4e 44 50 52 4f | 43 0a 31 34 39 30 0a 31 |80ENDPRO|C.1490.1|
|00001350| 35 30 30 44 45 46 20 50 | 52 4f 43 70 72 69 6e 74 |500DEF P|ROCprint|
|00001360| 0a 31 35 31 30 56 44 55 | 20 32 0a 31 35 32 30 2a |.1510VDU| 2.1520*|
|00001370| 46 78 20 33 2c 31 30 0a | 31 35 33 30 56 44 55 20 |Fx 3,10.|1530VDU |
|00001380| 32 37 2c 36 39 0a 31 35 | 34 30 50 52 49 4e 54 20 |27,69.15|40PRINT |
|00001390| 22 4d 61 67 61 7a 69 6e | 65 20 44 61 74 61 62 61 |"Magazin|e Databa|
|000013a0| 73 65 20 53 65 61 72 63 | 68 20 53 79 73 74 65 6d |se Searc|h System|
|000013b0| 20 2d 20 42 79 20 44 61 | 72 72 65 6e 20 4a 61 63 | - By Da|rren Jac|
|000013c0| 6b 73 6f 6e 20 4d 61 72 | 63 68 20 31 39 38 39 22 |kson Mar|ch 1989"|
|000013d0| 0a 31 35 35 30 56 44 55 | 20 32 37 2c 37 30 0a 31 |.1550VDU| 27,70.1|
|000013e0| 35 36 30 50 52 49 4e 54 | 0a 31 35 37 30 50 52 49 |560PRINT|.1570PRI|
|000013f0| 4e 54 20 22 50 72 69 6d | 61 72 79 20 53 65 61 72 |NT "Prim|ary Sear|
|00001400| 63 68 20 3a 20 22 73 65 | 61 72 63 68 31 24 3b 0a |ch : "se|arch1$;.|
|00001410| 31 35 38 30 49 46 20 73 | 65 61 72 63 68 32 24 20 |1580IF s|earch2$ |
|00001420| 3c 3e 20 22 22 20 54 48 | 45 4e 0a 31 35 39 30 20 |<> "" TH|EN.1590 |
|00001430| 20 50 52 49 4e 54 20 22 | 20 20 20 20 53 65 63 6f | PRINT "| Seco|
|00001440| 6e 64 61 72 79 20 53 65 | 61 72 63 68 20 3a 20 22 |ndary Se|arch : "|
|00001450| 73 65 61 72 63 68 32 24 | 0a 31 36 30 30 45 4c 53 |search2$|.1600ELS|
|00001460| 45 0a 31 36 31 30 20 20 | 50 52 49 4e 54 0a 31 36 |E.1610 |PRINT.16|
|00001470| 32 30 45 4e 44 49 46 0a | 31 36 33 30 50 52 49 4e |20ENDIF.|1630PRIN|
|00001480| 54 0a 31 36 34 30 50 52 | 49 4e 54 20 22 4e 6f 20 |T.1640PR|INT "No |
|00001490| 20 20 41 72 74 69 63 6c | 65 20 20 20 20 20 20 20 | Articl|e |
|000014a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000014b0| 20 20 20 20 20 20 20 4d | 67 20 20 49 73 73 75 65 | M|g Issue|
|000014c0| 20 20 50 67 22 0a 31 36 | 35 30 50 52 49 4e 54 20 | Pg".16|50PRINT |
|000014d0| 22 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |"-------|--------|
|000014e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000014f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001500| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 22 0a 31 36 36 30 46 |--------|-".1660F|
|00001510| 4f 52 20 72 65 63 25 3d | 31 20 54 4f 20 72 65 63 |OR rec%=|1 TO rec|
|00001520| 73 25 0a 31 36 37 30 20 | 20 49 46 20 66 6f 75 6e |s%.1670 | IF foun|
|00001530| 64 24 28 72 65 63 25 29 | 3d 22 59 22 20 54 48 45 |d$(rec%)|="Y" THE|
|00001540| 4e 0a 31 36 38 30 20 20 | 20 20 50 52 49 4e 54 20 |N.1680 | PRINT |
|00001550| 46 4e 73 70 61 63 65 28 | 72 65 63 25 2c 33 29 22 |FNspace(|rec%,3)"|
|00001560| 20 20 22 61 72 74 24 28 | 72 65 63 25 29 22 20 20 | "art$(|rec%)" |
|00001570| 22 6d 61 67 24 28 72 65 | 63 25 29 22 20 20 22 6d |"mag$(re|c%)" "m|
|00001580| 6f 6e 24 28 72 65 63 25 | 29 22 2f 22 79 65 61 72 |on$(rec%|)"/"year|
|00001590| 24 28 72 65 63 25 29 22 | 20 20 22 70 61 67 65 24 |$(rec%)"| "page$|
|000015a0| 28 72 65 63 25 29 0a 31 | 36 39 30 20 20 45 4e 44 |(rec%).1|690 END|
|000015b0| 49 46 0a 31 37 30 30 4e | 45 58 54 0a 31 37 31 30 |IF.1700N|EXT.1710|
|000015c0| 49 46 20 66 6f 75 6e 64 | 25 3d 31 20 54 48 45 4e |IF found|%=1 THEN|
|000015d0| 0a 31 37 32 30 20 20 50 | 52 49 4e 54 27 22 31 20 |.1720 P|RINT'"1 |
|000015e0| 6d 61 74 63 68 20 66 72 | 6f 6d 20 22 3b 72 65 63 |match fr|om ";rec|
|000015f0| 73 25 22 20 72 65 63 6f | 72 64 73 20 20 20 20 20 |s%" reco|rds |
|00001600| 28 22 54 49 4d 45 24 22 | 29 22 27 0a 31 37 33 30 |("TIME$"|)"'.1730|
|00001610| 45 4c 53 45 0a 31 37 34 | 30 20 20 50 52 49 4e 54 |ELSE.174|0 PRINT|
|00001620| 27 3b 66 6f 75 6e 64 25 | 22 20 6d 61 74 63 68 65 |';found%|" matche|
|00001630| 73 20 66 72 6f 6d 20 22 | 3b 72 65 63 73 25 22 20 |s from "|;recs%" |
|00001640| 72 65 63 6f 72 64 73 20 | 20 20 20 28 22 54 49 4d |records | ("TIM|
|00001650| 45 24 22 29 22 27 0a 31 | 37 35 30 45 4e 44 49 46 |E$")"'.1|750ENDIF|
|00001660| 0a 31 37 36 30 2a 46 78 | 20 33 2c 30 0a 31 37 37 |.1760*Fx| 3,0.177|
|00001670| 30 56 44 55 20 33 0a 31 | 37 38 30 45 4e 44 50 52 |0VDU 3.1|780ENDPR|
|00001680| 4f 43 0a 31 37 39 30 0a | 31 38 30 30 44 45 46 20 |OC.1790.|1800DEF |
|00001690| 50 52 4f 43 66 69 6e 61 | 6c 69 73 65 0a 31 38 31 |PROCfina|lise.181|
|000016a0| 30 56 44 55 20 32 38 2c | 31 2c 33 30 2c 37 38 2c |0VDU 28,|1,30,78,|
|000016b0| 31 0a 31 38 32 30 43 4c | 53 3a 4f 4e 0a 31 38 33 |1.1820CL|S:ON.183|
|000016c0| 30 50 52 49 4e 54 20 22 | 45 6e 64 20 52 75 6e 20 |0PRINT "|End Run |
|000016d0| 2d 20 4d 44 53 53 20 42 | 79 20 44 2e 4a 61 63 6b |- MDSS B|y D.Jack|
|000016e0| 73 6f 6e 20 4d 61 72 63 | 68 20 31 39 38 39 22 27 |son Marc|h 1989"'|
|000016f0| 0a 31 38 34 30 45 4e 44 | 50 52 4f 43 0a 31 38 35 |.1840END|PROC.185|
|00001700| 30 0a 31 38 36 30 44 45 | 46 20 46 4e 75 70 70 65 |0.1860DE|F FNuppe|
|00001710| 72 28 73 74 72 69 6e 67 | 24 29 0a 31 38 37 30 4c |r(string|$).1870L|
|00001720| 4f 43 41 4c 20 63 6f 75 | 6e 74 25 2c 75 70 70 65 |OCAL cou|nt%,uppe|
|00001730| 72 24 0a 31 38 38 30 46 | 4f 52 20 63 6f 75 6e 74 |r$.1880F|OR count|
|00001740| 25 3d 31 20 54 4f 20 4c | 45 4e 28 73 74 72 69 6e |%=1 TO L|EN(strin|
|00001750| 67 24 29 0a 31 38 39 30 | 20 20 63 68 61 72 24 3d |g$).1890| char$=|
|00001760| 4d 49 44 24 28 73 74 72 | 69 6e 67 24 2c 63 6f 75 |MID$(str|ing$,cou|
|00001770| 6e 74 25 2c 31 29 0a 31 | 39 30 30 20 20 49 46 20 |nt%,1).1|900 IF |
|00001780| 63 68 61 72 24 3e 3d 22 | 61 22 20 41 4e 44 20 63 |char$>="|a" AND c|
|00001790| 68 61 72 24 3c 3d 22 7a | 22 20 54 48 45 4e 20 75 |har$<="z|" THEN u|
|000017a0| 70 70 65 72 24 2b 3d 43 | 48 52 24 28 41 53 43 28 |pper$+=C|HR$(ASC(|
|000017b0| 63 68 61 72 24 29 2d 33 | 32 29 20 45 4c 53 45 20 |char$)-3|2) ELSE |
|000017c0| 75 70 70 65 72 24 2b 3d | 63 68 61 72 24 0a 31 39 |upper$+=|char$.19|
|000017d0| 31 30 4e 45 58 54 0a 31 | 39 32 30 3d 75 70 70 65 |10NEXT.1|920=uppe|
|000017e0| 72 24 0a 31 39 33 30 0a | 31 39 34 30 44 45 46 20 |r$.1930.|1940DEF |
|000017f0| 46 4e 73 70 61 63 65 28 | 6e 75 6d 62 65 72 25 2c |FNspace(|number%,|
|00001800| 73 70 61 63 65 73 25 29 | 0a 31 39 35 30 3d 52 49 |spaces%)|.1950=RI|
|00001810| 47 48 54 24 28 53 54 52 | 49 4e 47 24 28 73 70 61 |GHT$(STR|ING$(spa|
|00001820| 63 65 73 25 2c 22 20 22 | 29 2b 53 54 52 24 28 6e |ces%," "|)+STR$(n|
|00001830| 75 6d 62 65 72 25 29 2c | 73 70 61 63 65 73 25 29 |umber%),|spaces%)|
|00001840| 0a 31 39 36 30 0a 31 39 | 37 30 44 45 46 20 50 52 |.1960.19|70DEF PR|
|00001850| 4f 43 63 65 6e 74 72 65 | 28 74 65 78 74 24 2c 6c |OCcentre|(text$,l|
|00001860| 69 6e 65 25 29 0a 31 39 | 38 30 50 52 49 4e 54 20 |ine%).19|80PRINT |
|00001870| 54 41 42 28 28 38 30 2d | 4c 45 4e 28 74 65 78 74 |TAB((80-|LEN(text|
|00001880| 24 29 29 20 44 49 56 20 | 32 2c 6c 69 6e 65 25 29 |$)) DIV |2,line%)|
|00001890| 74 65 78 74 24 3b 0a 31 | 39 39 30 45 4e 44 50 52 |text$;.1|990ENDPR|
|000018a0| 4f 43 0a 32 30 30 30 0a | 32 30 31 30 44 45 46 20 |OC.2000.|2010DEF |
|000018b0| 50 52 4f 43 62 6f 78 5f | 64 6f 75 62 6c 65 28 78 |PROCbox_|double(x|
|000018c0| 31 25 2c 79 31 25 2c 78 | 32 25 2c 79 32 25 2c 63 |1%,y1%,x|2%,y2%,c|
|000018d0| 6c 65 61 72 25 29 0a 32 | 30 32 30 4c 4f 43 41 4c |lear%).2|020LOCAL|
|000018e0| 20 78 5f 70 6f 73 25 2c | 79 5f 70 6f 73 25 0a 32 | x_pos%,|y_pos%.2|
|000018f0| 30 33 30 50 52 49 4e 54 | 20 54 41 42 28 78 31 25 |030PRINT| TAB(x1%|
|00001900| 2c 79 32 25 29 22 57 48 | 45 4e 22 3b 0a 32 30 34 |,y2%)"WH|EN";.204|
|00001910| 30 50 52 49 4e 54 20 54 | 41 42 28 78 32 25 2c 79 |0PRINT T|AB(x2%,y|
|00001920| 32 25 29 22 56 41 4c 22 | 3b 0a 32 30 35 30 50 52 |2%)"VAL"|;.2050PR|
|00001930| 49 4e 54 20 54 41 42 28 | 78 31 25 2c 79 31 25 29 |INT TAB(|x1%,y1%)|
|00001940| 22 41 43 53 3b 0a 32 30 | 36 30 50 52 49 4e 54 20 |"ACS;.20|60PRINT |
|00001950| 54 41 42 28 78 32 25 2c | 79 31 25 29 22 56 50 4f |TAB(x2%,|y1%)"VPO|
|00001960| 53 22 3b 0a 32 30 37 30 | 46 4f 52 20 78 5f 70 6f |S";.2070|FOR x_po|
|00001970| 73 25 3d 78 31 25 2b 31 | 20 54 4f 20 78 32 25 2d |s%=x1%+1| TO x2%-|
|00001980| 31 0a 32 30 38 30 20 20 | 50 52 49 4e 54 20 54 41 |1.2080 |PRINT TA|
|00001990| 42 28 78 5f 70 6f 73 25 | 2c 79 32 25 29 22 45 4e |B(x_pos%|,y2%)"EN|
|000019a0| 44 49 46 22 3b 0a 32 30 | 39 30 20 20 50 52 49 4e |DIF";.20|90 PRIN|
|000019b0| 54 20 54 41 42 28 78 5f | 70 6f 73 25 2c 79 31 25 |T TAB(x_|pos%,y1%|
|000019c0| 29 22 45 4e 44 49 46 22 | 3b 0a 32 31 30 30 4e 45 |)"ENDIF"|;.2100NE|
|000019d0| 58 54 0a 32 31 31 30 46 | 4f 52 20 79 5f 70 6f 73 |XT.2110F|OR y_pos|
|000019e0| 25 3d 79 32 25 2b 31 20 | 54 4f 20 79 31 25 2d 31 |%=y2%+1 |TO y1%-1|
|000019f0| 0a 32 31 32 30 20 20 50 | 52 49 4e 54 20 54 41 42 |.2120 P|RINT TAB|
|00001a00| 28 78 31 25 2c 79 5f 70 | 6f 73 25 29 22 55 53 52 |(x1%,y_p|os%)"USR|
|00001a10| 22 3b 0a 32 31 33 30 20 | 20 50 52 49 4e 54 20 54 |";.2130 | PRINT T|
|00001a20| 41 42 28 78 32 25 2c 79 | 5f 70 6f 73 25 29 22 55 |AB(x2%,y|_pos%)"U|
|00001a30| 53 52 22 3b 0a 32 31 34 | 30 4e 45 58 54 0a 32 31 |SR";.214|0NEXT.21|
|00001a40| 35 30 45 4e 44 50 52 4f | 43 0a 32 31 36 30 0a 32 |50ENDPRO|C.2160.2|
|00001a50| 31 37 30 44 45 46 20 50 | 52 4f 43 65 72 72 6f 72 |170DEF P|ROCerror|
|00001a60| 0a 32 31 38 30 4f 4e 20 | 45 52 52 4f 52 20 4f 46 |.2180ON |ERROR OF|
|00001a70| 46 0a 32 31 39 30 2a 46 | 78 20 33 0a 32 32 30 30 |F.2190*F|x 3.2200|
|00001a80| 43 4c 4f 53 45 23 30 0a | 32 32 31 30 56 44 55 20 |CLOSE#0.|2210VDU |
|00001a90| 33 0a 32 32 32 30 4f 4e | 0a 32 32 33 30 50 52 49 |3.2220ON|.2230PRI|
|00001aa0| 4e 54 27 52 45 50 4f 52 | 54 24 20 22 20 61 74 20 |NT'REPOR|T$ " at |
|00001ab0| 6c 69 6e 65 20 22 3b 45 | 52 4c 0a 32 32 34 30 4f |line ";E|RL.2240O|
|00001ac0| 53 43 4c 49 20 22 4b 65 | 79 20 31 20 45 44 49 54 |SCLI "Ke|y 1 EDIT|
|00001ad0| 20 22 2b 53 54 52 24 28 | 45 52 4c 29 2b 22 7c 4d | "+STR$(|ERL)+"|M|
|00001ae0| 22 0a 32 32 35 30 45 4e | 44 50 52 4f 43 0a |".2250EN|DPROC. |
+--------+-------------------------+-------------------------+--------+--------+
