X%53:(50500)0X%135P X%,22::59468,12:TN8192:BN5632:2550:200w" COSTIT AND FLOGGIT":d7,0:7,IN$:7:IN((IN$)):L(IN$)::J0:nX%167:(50500)0X%528s"PRESS RETURN ";:X%,0xO$:O$""120X%,1:" ":F20:"1-ENTER HOUSE DETAILS.":"2-DISPLAY HOUSE DETAILS.""3-FIND SUITABLE PROPERTY.":"4-SAVE FILES ON TO TAPE.""5-LOAD TAPE FILES INTO COMPUTER.":"6-DELETE AN ENTRY.""7-C.P":"8-AREAS COVERED.":"9-DISPLAYED("SELECT 1 TO 9 > ";:100:IN$"STOP"jIN10IN.9 (IN)400,600,1600,1400,1200,900,1800,5000,8000s200,X1500::20UBN (TN8)8:(U)0415"FOLIO # ";((UBN)8)1UTN8"FULL UP PRESS RETURN ";:100:8"HOUSE BUNG FLAT >";:100:L0AS((IN$,1))X(AS72AS66AS70)420bU,AS" PRICE >";:100:IN1000IN65535435HI((IN.0001)256):(U2),HILOIN(HI256):(U1),LO" LOCATION >";:100::N14L$:L$"*"5000:"FOLIO # >"((UBN)8)1:450V(IN$,3)(L$,3)NN1:455n(U3),N:17)""L$"# OF RECEP RMS >";:100:L0IN255480(U4),IN"# OF BEDROOMS >";:100:L0IN255490(U5),IN "GARDEN SIZE(0-9)>";:100:L0IN9 500& GS10INT "# OF GARAGES >";:100:L0IN9502e (U6),INGS " DET SEMI TERR >";:100:L0AS((IN$,1)) AS68AS83AS84510 U7,AS D110 W X20 v" FOLIO # >";:100:IN1IN(TNBN8)86304 RBN8(IN8):(R)0n "HOUSE/BUNG/FLAT > ";:H$((R)):H$"H"H$"HOUSE" H$"B"H$"BUNGALOW" H$"F"H$"FLAT" H$ "PRICE IN POUNDS >";(256(R2))(R1) " LOCATION >";: Y1(R3):T$::T$, " # OF RECEP RMS >";(R4)M " # OF BEDROOMS >";(R5)| "GARDEN SIZE(0-9)>";:GS((R6)10):GS "#OF GARAGES >";(R6)(GS10) "SEMI DET TERR > ";:H$((R7)):H$"D"H$"DETACHED" H$"S"H$"SEMI-DETACHED" H$"T"H$"TERRACED", H$:J17 110:] 20:"DELETE FOLIO #>";:100:650 "CONFIRM DELETION (Y OR N) >";:100:IN$"Y"R,0:  20:"LOAD TAPE FILE INTO COMPUTER":2550 "INSERT FILE TAPE,REWIND FULLY &":110( 1,1,0:1,IN$:IN$:1,CK:XBNTN:1,A:X,A@ "*";:(ST)641240F y 1:2500::(CKCS).01"***ERROR***":2550 110: x20:"SAVE FILES ONTO TAPE" "INSERT A BLANK CASETTE , REWIND FULLY &":110 (50500)01420243,122:244,2%"TODAYS DATE? ";:100:2500NX(TN8)BN8:(X)0XX8:1450T1,1,1:1,IN$:1,CS:YBNX:1,(Y):59411,53"*";::1::11020:E0:"FILE VERIFY,REWIND FULLY &":110:1,1,01,IN$:1,CK:XBNTN:1,T:"*";:(ST)641500T(X)EE1;1::E" ERRORS":110:Y@20:" LOCATION(*=ANY)>";E100::N1:LO0:IN$"*"LO1:1630JL$:L$"*"1600T(IN$,3)(L$,3)NN1:1610Y17)""L$^"MAXIMUM PRICE >";:100:MP(IN256)cIN1000IN655351630;h"# OF BEDROOMS >";:100:IN11640PrXBNTN88:R0aw(X)01680|((X3)N LO1)(X2)MP(X5)(IN)R1R1RX:20:" FOLIO # >";(RBN8)8:655"YOU HAVE NOW SEEN ALL OF THE PROPERTIES MATCHING YOUR REQUIREMENT"!110:[20:"CHANGE PRICE OF FOLIO # > ";:100:UBN8(8IN)i (U)0"NEW PRICE IS > ";:100HI((IN.0001)256):(U2),HI&LOIN(HI256):(U1),LO:TONBRIDGE,TUN/WELLS,SEVENOAKS,WADHURST,TICEHURST,SEAL,IVY-HATCHZ EYNSFORD,FRANT,EDENBRIDGE,SUTTON-VALANCE,NIZELS,OTFORD,SOUTHBOROUGHHILDENBOROUGH,IDE-HILL,HADLOW,SHIPBOURNE,CAPEL,LEIGH,PADDOCK-WOOD PENSHURST,COWDEN,STAPLEHURST,LANGTON,KEMSING,WROTHAM,GOLDEN-GREEN)EAST-PECKHAM,BORO'GREEN,BARMING,FOUR-ELMS,MALLING,CHIPSTEAD1  *> P1:CS0M EBNTN8` (E)02540h : E2EE7:CSCSP(E2):PP:: EBNTN8:E,0::20::P1L$:PP:L$"*"110:P1L$;P120)L$5010@J1:=E20:"PROPERTIES DEALT WITH IN THE FOLLOWING AREAS"SJ L$:L$"*"9000T"";11)""L$" ":300:8010(#IN1(TNBN)8:20:650:(515)2552#300::8000'537,133$