Xz77gt

Recommendations

Info

field or '0' will allow you to overwrite new data into it. If you made a mistake selecting thefield,Ewill let you exit back to choose another field. Next on the EDIT menu is SEARCH and REPLACE.Thisisa very powerful feature using fully all the SEARCH routines in the program. After selecting the field you wish to search, type in the search data. The String must be prefixed with character to indicate which type of search is to be done. The sixdifferenttypesarelisted at the top of the screen (for information on these see the documentation on for the search option). If scan string is used it can be made to insert data in a number of records e.g. to insert a middle name into MARK ANTHONY you would type; Search data ?@ANTHONY Replace data?ANDREW ANTHONY The name ANDREW would then be inserted at every occurrence of this name, but be careful since the routine searches for the fi rst occurrence of the string within a field, Le. if you wanted to insert my middle name DANIEL into GARETH THOMAS you could not use the shortened version e.g. Search data?@TH Replace data?DANIEL TH since the result would be GAREDANIEL TH THOMAS because TH occurs twice in my name, instead you would have to type the whole e.g. Search data?gTHOMAS Replace data?DANIEL THOMAS Search and Delete is similar in operation and replace. If you select any of the search options apart from '@' scan string the whole fi eld will be deleted. Using scan string can enable you to delete from inside a string e.g. to delete my middle name; Search data? @ DANIEL Note the space before DANIEL, since otherwise the result would be CARETHTHOMAS because the new string is reassembled around the position of the old one and their are two spaces around the old one. SUB 4400:60TO 2640 2760 REM DELETE FIELD HOMEPIGOSUB 9800 2906 GET 68:IF 68= 2770 IF 6$N 1 ER)N":GOSUB 4400 DITHEN 160TO 2640 A2780 S IF ( 6$0 D 2781 , 1 REM OVERWRITE FIELD-CAL 0 L INPUT S/R WITH EDIT FLA 1 6 SET SAVE MAIN VARIABL THEN ES 2790 2 7GOSUB 5 29701ECACIRCNER 0 1120160SUB 2000 2800 IF ISN"THEN AS(D,ER)N 1 2810 RCNEC:GOSUB 4400 :60TO 2640 1 TURN N2907 IF 610 1 12910 PRINPECLEARY THEN Y :SYS AT,9,14:PRINT R E 1 1ESPC,SD,SE,SL,SE,ST,SI,SN, THEN 8SG,SPC3$ 8 22911 9REM 0MOVE RECORDS DOWN 6 TO DELETE BLOCK 2920 FOR 0N07+1 TO RC-1 FOR FNO TO FD :Al(F,OF-1+(0-0T))=AliF,DI !NEXT:NEXT 2930 RENRC-M-OFWIRETURN 2940 1 2830 SYS AT,0,24:PRINT 2950 REM DELETE DATA ON SCRE 1 RVSON,SPC6,WHITE,SPC3,SU EC7, RE YOU SURE7ESPC4,C7, EN FOR OVERWRITE 2970 LIN":FOR LN1 TO LENCAS SPC12,HOME1 2840 GET GIF 6$N 1 TURN N2860 IF 6$0 1 12870 SYS AT,0,24:PRINT'EC7 THEN Y1 RYSON,SPC8,WHITE,SPC5,SU R E 1 ELETING DATA.. ESPC4,C7 THEN 1SPC4,HOME/ 22871 8REM 4MOVE RECORDS ABOVE 0 DELETED ONE DOWN 2880 FOR CNER TO RC :FOR FNO TO FD :A1(F,C)NAliF,C41/1NEXT INEXTIRCNRC-IRETURN 2881 2882 REM BLOCK DELETE S/R iD,ERHILSNLO"INEXT :GOSUB 2995:PRINT L$ :RETURN 2975 2976 REM S/R TO HIGHLIGHT CURRENT FIELD TO EDIT 2980 GOSUB 29951PRINT 1 'AS(D,ER)IRETURN ERVSON1 2985 USUB 2995:PRINT A$(D 1 2890 SYS AT,5,6:INPUT'ESDI ELETE FROM- 1:IF DF(1 OR DFAC-2 THEN 0F 2890 2895 ERNDF:M$N 1 SPC9,WHITE,SPC,SURE YOU ERYSON,C7 SUREEY/WESPC,C7,SPC10, 1 HOMEMGOSUB 9800 :60SUB 4390 2896 EET GSIIF 6$N 1 .N"ECLEARY:60TO 2890 N2897 IF 5$0 1 12900 PRINT THEN Y"THEN 1 1SYS AT,5,101INPUTIESD1 P R 2ECLEAR ELETE 8 9 6 Y :IF DT(NDF OR DI)RC-1 THE N 2900 2902 ERNDT:SOSUB 9800 :GOSUB 4390 2903 GET GS:IF ESNWTHEN PR INT 2904 1IF 6$0 12905 EC SYS AT,0,24:PRINT Y1 ERVSON,C7,SPC,WHITE,SPC, LE 1 SD10 ARYOU WISH THE DELETE THEN 1TO 60 AHEAD 2 191 0 3 00 ESPC,C7,S TO PC, 2 ER):RETURN 3040 ITSNLEFTWS,1) :LNNLECSSI-IISSNRIGHTItS $,LN1:GOSUB 3599 3050 IF CPS:"THEN 3000 3060 PRINT TABEIOPEDOWN2,S111 EPLACING—ESPC,DOWN31 1FOR DN1 TO LENICPSI IPNASCiMIDS(CPS,D,1)) 3070 IF IT$0 1 PINIS:GOTO 3092 83075 REM CHECK LENGTH OF STR 1 ING DOES NOT EXCEED FIELD THEN LENGTH A3000 lIF i LENiAS(SI, S I , P1)-LPLENtIWNVALE8$0, SIHTHEN 3091 3090 PRINT TAB(3) 1 ESPC,SS1TRIN6 TOO LONG EUMI IN?' 1 1 2990 SYS AT,0,24:PRINT"EC7, 1 RVSON,SPC,WHITEWI-ESDI ELETEESPC,C7,SPC,WHITE, SPC1F3-ESONERWRITESPC, C7,SPC,WHITE,SPC)F5-[SE) XIT(SPC,C7,SPC2,HOME) :GOTO 1 3092 3091 ACSI,P)NLEFICASiSI,P/ 1GOS PS-IMPRIGHTSEASESI UB ILENiAS(S1 9 8 3092 N, 1NEXTIGOSUB 0 0 98001RETURN 3093 P))- EFNIIISNO6OSUB 4350 (PS-1+1.Ni IINPUT I1IELD N0.(-1 TO EXIWOI EDOW :IF SIN-1 THEN RETURN 3094 N2 IF 5I(1 OR SI)FD+1 THEN I 3093 3095 RIGHT SINSI-1:INPUT 1 2,SF] RIGHT2,SEEARCH DATA EDOWN2, 1:IF SIN"THEN 3093 3096 0$ ITSNLEFTS(9,1) :LNNLEN(SS)-119NRIGHTSiS 2991 REM CURSOR SET SIR 2995 SYS ATM:L(13(1,0)1-3, YAL(BC0 2996 I 1 2997 D)-61RE REM SEARCH & REPLACE TURN S/11 3000 EFN ISNO:GOSUB 4350 :INPUT 1IELD WO.(-1 TO EXIT)"01 EDOW :IF SIN-1 THEN RETURN 3010 N,RIG IF SI(1 OR SI>F0+1 THEN HT2,S 3000 3020 N SSN"ISINSI-1 :SYS AT,2,16:INPUT 1EARCH DATA ESS1 1:IF Ste 3025 0$ 1SYS AT,2,18:PRINT 1 THEN EPLACE DATA ESRI 371 :SYS 0AT,15,18:POKE 251,0 3026 01XN181Y REM 0CALL INPUT ROUTINE 224 TO MAKE SURE DATA CONFOR MS TO FIELD TYPE 3030 POKE 252,VAL(B$(3,61)) :POKE 253,VAL(LEFTSEBS(4, SII,1))00SU8 2020 3031 REM CALL SEARCH SiR 20 $,LN)00SUB 3599 :IF CP$ 3097 01 PRINT TAB(9)IEDOWN2, RVSON,SPC,SIDELETING— THEN 3':FOR 0 ON1 9 TO LENiCPSI 3:PNASCEMIDS(CPS,D,1)) 3098 IF IT$0 1 P/N":NEXTIRETURN 13099 ASiSI,P/NLEFTS(ACSI,PI 1o PS-1)4111MACSI,PI,PPLN, THEN LENCASiSI,P I:NEXTIRETURN 3100 A tPRINPECLEAR,WHITE, i S I , DOWN3,RIGHT2,SP3RESSO :PRINT TABE5PIDOWN211 -ESPC,ST10 VIEW A RECORD. 3101 PRINT TA8(3) 1 -ESPC,S110 VIEW ALL RECO EDOWN2I2 RDS. 13 -ESPC,SENIT. 3102 :PRI GET GS:IF 6S= 1 NT 20 23103 TA IF 6$ 10 3104 Bi5 IF 6$0 THEN 33105 1 I PRINT 3 1 1 1 THEN CCLEAR 1 ED R1THEN OW E T U3 N2] R1 0N 2
3106 SYS AT,4,8:INPUTICSR1 ECORD NMIER:IF ER(1 OR EURC-1 THEN 3106 3108 MOTIVSON,C7,SPC7, WHITE,SPC,SPIRESS A KEY TO EXITISPC,C7,SPC11, HOME1 3109 1WAIT 198,1:GOTO 3100 3120 160SU PRINT'ECLEAR,DOWN4, B RI5HT4,SA,SN,SY,SPC,SK,SE 4SY,5PC1TO 3 9 SCROLL 1 01BEPTO EXIDOWN21 3150 SYS AT,6,10:INPUT . ECORD NO.(-1 TO EXIT)'ISP (SR) :IF SPs-1 THEN RETURN 3160 IF SP(' OR SP)RC-1 THEN 3150 3165 REM DISPLAY FILES BY SCROLLING 3170 PRINT'ECLEAR] 3220 FOR PsSP TO RC-1 :PRINT'UNSON,SPC,SR1 ECORD 11FOR S1120 TO FD 'PRINT 88(2,SR)' I "ACSR,P) 3230 GET 6$:1F GWE'THEN 31 00 3240 NEXT: PRINT' - - -ESPC,UP21 3260 WAIT 198,1tNEXT :WAIT 197,64:POKE 198,0 :WAIT 198,1:6010 3100 3400 SYS AT,7,31INPUMSR1 ECORD NMIERIIF ER(1 OR EURC-1 THEN 3400 3415 Mits'IC7,RVSON,SPC4, WHITE,SPC(-1SEACK1SPC, C7,SPC2,WHITE,SPC))-(SF1 ORWARD(SPC,C7,SPC2,WHITE, SPC,SE)-1SE3X1T1SPC,C7, SPC4,HOME1 3416 REM S/R TO DISPLAY RECO RDS WITHOUT SCROLLING USI N6 SCREEN LAYOUT 3420 FOR Ts0 TO 1 STEP 0 1PRINT'EHOME,C7,RVSON, SPC2 1CSPC29P 3430 SR1E 60SUB 4400 3450 COR GET 6$:1F 60 0 D D'OR 6$. POR i 1:RETURN S 6 3470 T PTHE $ IF R 8 5$0yTHEN ° 3480 3475 C N ERsER-1:IF E 1 ERs0 THEN ER R . •RC-1 P 3478 '1:N NEXT 3480 EXT IF 6$0 13490 ERsER4.1:IF ERaRC THEN E . Ral 1 THEN 3 4 5 0 3495 NEXT 3496 i 3497 REM SEARCH 6/R 3500 EFs01PRINTIECLEAR1' :SOSUB 4350:PRINTIEDOWN, RIGHT3,GREEN,SEATER IN FORM 1ELERVSON,SS,RVSOFF1 11 EARCHTYPE1RVSON,SD,RVSOFF1 RV ATA SO 3505 N, PRINT'IDOWN,RIGHT, YELLOWYESEY SF TO EXIT (SC) ,R 1 YIEW(DOWN2) VS 3510 T OF SO":POKE 198,0 O :INPUT S$11F SWE F1 C. PO: RETURN 3520 LTHEN IF SW I 0 E ICPW.":60TO 3500 C"THEN 3525 A IF SlierAND CP$0"THE I SR N PRINT*ICLEARr a 0 ' :605U8 4005 3526 IF S$s"OR LEN(S$)(3 TH 1 EN 3500 S 3530 SIS.LEFTS(9,1) V ilF SI$C1 r STRWD+11,1)THEN 1 3500 3535 T OR SIEVAL1SICISIsSI-1 O SIOR 1606U8 359815010 3500 3536 IGHT 1 3537 li( REM MAIN S/R 3598 ITOMIDS(9,2,1) tOOLEN:9)-21SWERIEHTS(6 $,LN) 3599 IF ITS0*!"AND ITSOlt" AND IT$0 . ND ITS()">"AND ITC)" 1"AND (UP-ARROWTHEN RETURN 3600 I IF T EF S THEN 0 PRINT'ECLEARI 1'1SYS AT,0,8 3601 ( PRINT " A TAB(5)sIDOWN,SS) EARCHIN6., 3602 IF IS.0 THEN IN :60SUB 380016010 3621 3610 60SUB 3810 3621 IF CPSONNTHEN 3630 3625 60SUB 9800:PRINT TAB(5) 'IUP11 SERVSON,SPC,SN10 DATA FOUNDESPCOVSOFFA 1':60SUB 3900 3626 IF IS THEN CPPCN$ 3627 RETURN 3630 114LENICPC:PRINT TAM )'1UP1'STRCIM1 1 FOUND't6OSUB 9800 3640 RECOR GOSU8 39001RE1URN 3700 DS 1 3710 REM SEARCH SUBROUTINES 3720 REM DIRECT COMPARISON 3781 IF ITSe!'AND SS.A$(61 $ WHEN CPS.CPOCHRS(6) C64/C1213 For both edit related 3782 IF ITSO[UP searches it should be noted - 'AND SWACSI, ARRON] 6)THEN CPOCPOCHRS(6) 3783 IF ITWOAND SOACSI, 6)THEN CPS.CPOCHRS(6) that the first occurrence of the string is used and also that the whole of !the fi le will be searched for the necessary data even if one alteration is made. 3784 IF ITS."”AND SCA$(S1, 6)THEN CPS•CPS+CHRS(6) The fi nal EDIT option is Block Delete. This allows you to 3785 NEXT:RETURN delete large chunks of records 3786 1 3787 REM WILDCARD 3790 IF LEFTS(ACSI,6), quickly, just enter the numbers of the first and last records to be deleted and the program will do the rest. 0).SITHEN CPW=CPS+CHRS(6) Now back to the main 3795 NEXT:RETURN 3796 REM SEARCH STRIN6 3797 FOR Sal TO LEN(ACSI, 60-L01 menu. Next is the view option file. This is very simple, you can either view one record (this uses the format layout) or you can select a record to start from 3798 IF SW.MIDUAS(91,6),S 1 LN)THEN CPS.CPS+CHRS(6) 3799 NEXT:NEXT:RETURN 3800 CPS.":FOR 6.1 TO RC-1 :60TO 3820 3810 CNS.CPW:CPS.' :FOR Tail TO LEN:CNS) IGEASC(MIDS(CNS,T,1)) and scroll the whole file. If you wish to view all the records, holding down a key will cause them to scroll down the screen. If you release the key the records will pause. Pressing 'E' will exit back to the start. Sixth on the main menu is the Search option. To make it as fast and easy as possible information is entered about 3820 IF ITS."S'THEN 3790 the field and search type in one 3830 IF ITS string e.g. to search field three 03840 IF ITS."("OR 11. 1"THEN 1 ITte(UP-ARROW] 3) 'OR 7 ITS."!"THEN 9 3781 comparing directly and searching for LONDON you would enter; 71 3900 FOR Nil TO 1000:NEXT 0R:RETURN 3905 1 3910 REM DISPLAY RECORDS FOU ND 4000 PRINT TAB(6) . RVSON,SP,SR,SE,SS2] (BA, [DONN2, SN,SY] 1SK,SE,SY1 E51,901 :MON DON The computer will then tell you how many records it finds but it will not display them. Instead the screen is set to its original form and you are prompted for more data. The next search done will not ISS,ST,SA,SR,ST,RYSOFF1' search all the records but it will :WAIT 198,1:PRINPECLEAR1 search only these found by the 4005 FOR Ds1 TO LEN1CPC previous search, this means :PEASNMID$(CP$,D,1)) 4010 PRINT 1 ECORD 'P:FOR Slis0 TO FD CRYSON :PRINT B$(2,SR)" ,SPC,SRI 1 "AUSR,P):GET 6$ OF 8WEITNEN RETURN 4040 NEXTIPRINT° that you can continually search a decreasing number of records using different search formats and so narrowing down the records to the few you are looking for. This is a very powerful feature if used properly. Suppose a fi le was created of names and addresses of people for a tennis WM. - 48PC club, you might need to search INAIT I198 4050 1WAIT UP21 197,641WAIT 198,1 11NEX !RETURN 1 4060 T t 4070 REM SEARCH INTRO SIR for all the people living in BATH who play singles and have a name beginning with A. Let's suppose that field one is Name, two is Address and three is type of player. You would 4350 PRINT*1CLEAR,RVSON]l MVSOFFIWILDCARDISPC, RVSONflERYSOFFICOMPARE enter 2@BATH (need to scan all of the address for the string BATH) DIRECTLYESPC 1* CRYSOFFNCAN I PRIM 3!SINGLES RVSON11 a rid then enter 'v' to view.
Page 1 and 2: YOI B DELVE IN YOUR COMMO AMIGA —
Page 3 and 4: JUNE 1986 VOLUME 2 NUMBER 9 Editor:
Page 5 and 6: DeluxeVideo brings another dimensio
Page 7 and 8: 1 1 1 , v L i - t ^,111E-WAY 11G -
Page 9 and 10: 300,000 pages of information on the
Page 11 and 12: Down to Basics When the computer is
Page 13 and 14: The event every Commodore user is w
Page 15 and 16: the detailed stor Empty. Demos are
Page 17 and 18: 76,173,202,32,121,1540 145,251,177,
Page 19: self-explanatory. When any of these
Page 23 and 24: • C84/C128 70 AT.52038:V.53248 22
Page 25 and 26: from direct or to pubbc Mon s e ms.
Page 27 and 28: Diabolical I always knew that I had
Page 29 and 30: 1 lain Murray provides al program t
Page 31 and 32: Stuart Cooke puts Ariolasoft's I H
Page 33 and 34: 1 Dealing with each option in term.
Page 35 and 36: ACTION REP L A PHANTOMS OF THE ASTE
Page 37 and 38: 1 ACTION Ft EP L A 0 DEFENSE MENU 3
Page 39 and 40: THE Fl THE FIRST OUTSIDE OPERATING
Page 41 and 42: lin 1111 EOM EIMIIIM M E M III •
Page 43 and 44: Listings will be much easier to ent
Page 45 and 46: READER'S 45
Page 47 and 48: 18. Who else uses your computer? No
Page 49 and 50: i S O F T W A R E PRIN 29 TER 5 -if
Page 51 and 52: join your party. Up to seven others
Page 53 and 54: 1 142,3,56,237,141,3,141, 144,3,169
Page 55 and 56: These three instructions perform a
Page 57 and 58: A 0 1 1 e a l l a n % vesha THE NEW
Page 59 and 60: FONT Evelyn Mills looks at a new pr
Page 61 and 62: the cassette buffer, address 828-10
Page 63 and 64: 10690 OK34 11280 LOP •'9 10700 FO
Page 65 and 66: 1 has got a very compatible package
Page 67 and 68: E, 5, 239;79,194,126,16,225,76, 93,
Page 69 and 70: i Communications CORNER R Name Tele
Page 71 and 72:
Joe Nicholson continues his look at
Page 73 and 74:
1 URN 210 IFA$2"ORASC(A$)859THEN2 0
Page 75 and 76:
Bill Bremner begins a series design
Page 77 and 78:
ytes, and written as five eight bit
Page 79 and 80:
1 Vs/hat I want to -Aye' knfiv Nvbi
Page 81 and 82:
Last nano: 0a991ss 1 Others: Street
Page 83 and 84:
David Gartrell helps I you get your
Page 85 and 86:
CI34 113 NEXT:RET11RN :ACS=":GOSUB
Page 87 and 88:
CE4 307 Ir LENNIS)=5 THEN 08: :-IRV
Page 89 and 90:
Lineage: 40o per word. (46p incl. V
Page 91 and 92:
FEATURING 4 built-in 18-hole champi
show all

Xz77gt

You also want an ePaper? Increase the reach of your titles

Delete template?

Save as template?