Xz77gt

Recommendations

Info

displayed. If we take the example of the club membership system, then the display might look something like this: Club Membership System Name - Address - Tel. no - Membership no. - Then, to define the input position for 'Name', you might move the cursor to the column next to the dash after *Name' and then store the position by pressing RETURN. After the input position has been set an overlayed menu will come down (if you've just typed the program in it's not a bug). This is where you select the type of data the field will hold, there are four types; alphabetic, numeric, digit and other. These options are on the menu plus another five, The extra ones are used to limit the values of data entered and all conform to the rules for 'DIGIT' data; 1 ALPHABETIC - alphabetic characters only 2 NUMERIC - 0 to 9 plus+,-,/,* and point 3 DIGIT - 0 to 9 only 4 ANYTHING - any keyboard character 5 BETWEEN between but NOT equal to two numbers 6 < than 7 > than 8 < than or = to 9 > than or = to To select datatype move the blue cursor with the up/down cursor key to the required type and press RETURN. If you select any datatype above four then you will be asked to input the relevant values.which must be conformed to, in the window at the bottom of the menu. If you have made a mistake in selecting the input position, pressing 'E' will return back to this part without updating the field pointer to the next field, so that you may redefine. The third parameter to define is the length_ After the datatype menu has disappeared, a cross cursor will appear next to the position you defined for the input, with a reverse video representation of the field number in the exact location. Holding down any key will move the cursor which will leave a trail of dots behind it, each representing one 1410 GET GS:IF 6$2"R"THEN 14 50 1420 IF ESOPCITHEN 1410 1430 60SU8 1500:IF FWE'THE N EI.IIRETURN 1440 CLOSE 2:CLOSE 15:RETURN 1441 REM SCRATCH OLD FILE 1450 PRINT115, 1 :CLOSE 2:CLOSE 15:RETURN 50: 1451 11530 REM SAVE FILES 41 1535 REM BET DATATYPE 1600 GOSS 9800:PRINT 1 RI6HT,SF1ORMAT OR DATA' 1601 1DOWN2, GET 6$:1F 6$.1"THEN 16 30 1602 IF 6$0 11603 REM SAVE FORMAT F"THEN 1609 PRINT02,FO:PRINT#2,7 11610 6FOR 06.0 1TO 6 :FOR H.0 TO FD :IF 8$(6,10."THEN 8$16, H1." 1615 PRINT12,86(6,H1INEXT :NEXT 1620 REM SAYE SCREEN LAYOUT 1621 SC.49152:C0.52229 :FOR I.SC TO SC+919 IPRINT62,CHRSCPEEK(I)1CHR CPEEK1C0.11-SC)1i 1622 NEXT:CLOSE 2:RETURN 1623 t 1624 REM SAVE DATA 1630 PRINT12,1":PRINT42,RC 1631 FOR 6=1 TO RC-1 :FOR H=0 TO FD 1PRINT112,AC4,6::NEXT:NEXT :CLOSE 2:RETURN 1632 1633 REM INPUT FILES 1700 IF RF THEN 1720 1701 REM SAYE FORMAT 1709 INPUT02,FD:INPUT112,MI 1711 IF MSOINTHEN PRINT' 1DOWN3,RIGHTZI ESHATA TYPE MISMATCH I I" :WAIT 198,1:CLOSE 2:RETURN 1712 HSU 9980:FOR 6.0 TO 6 :FOR H.0 TO FD :INPUT12,11$(6,H::NEXT:NEXT 1715 REM INPUT SCREEN LAYOUT 1716 SC=491521C0.52229 :FOR I.SC TO SC+919 :BET112,ACIF A$ 01 .CHRS(0) 1717 THEN POKE I,ASCCACIGET02,A$ A:IF AS."THEN l AS=CHRS(0) 1718 POKE CO+I-SC,ASCCAI: INEXT:RF.1:CLOSE 2:RETURN 1719 REM INPUT DATA 1720 INPUT112,M$ 18 1721 IF MS(PD"THEN PRINT' EDOWN3,SPC11 ICSDI ATA TYPE MISMATCHI t" :WAIT 198,1:RC=1:CLOSE 2 :RETURN 1722 INPUT#2,RC:FOR 621 TO R C-11FOR H.0 TO FD :INPUT#2 1:CLOSE 2:RETURN 1723 ACH, 1724 61:NEXT: REM UPDATE S/R 1800 NEXT PRINTIELEARP:EF.0 :IF RC.200 THEN SYS AT,6, 12:PRINT"CSN10 MORE ROOM FOR DATA':WAIT 198,1 :RETURN 1810 PRINT'1HOME,C7,RVSON, SPC,WHITUF1-1SEHIEC7, SPC2,WHITE1F3-ISR1EDOEC7, SPC2,WHITE1F5-1SCEMORY (07)11SR1ECORPSTRURC1" CSPC31':SYS 52156 1820 FOR 1.0 TO FD:60SUB 2000 :IF P.133 THEN RETURN 1825 IF A$(1,RC). 11RC1.":60TO 1850 THEN 1826 REM REMOVE EXTRA SPACES 1830 C0.01FOR 1.0 TO-1 STEP 0 :CO.004.11T.:RIGHTI(A$11, RC:,C010" "11NEXTICO2C0-1 1840 AS(I,RC1.LEFTICAI1I,RC1, LENCAS:1,R01-00/ 1850 NEXT:RC.RC4.1:60TO 1810 1860 1 1870 REM MAIN INPUT S/R 1880 REM SET UP ZERO-PAGE LOCATIONS FOR M/C INPUT 2000 Y.VAL(8$10,M 1 X2VAL (8$ (10 ) :SYS AT,X-3,Y-61POKE 231 :POKE 1 252,VAL(6$(3,1)1 2010 0POKE 253,VAL(LEFTS:13114, 1/0)) 2011 REM PRINT CURSOR AND SET INPUT POSITION 2020 PRINT"1CO,UPP :SYS AT,X-2,Y-6:It."" :FOR T.0 TO 1 STEP 0 :SYS 51885:P=PEEK(254) IF EF THEN 2035 2021 IF P2135 THEN 60SU8 9800 :GOSH 2400:NEXT 2025 IF P.I34 AND I THEN I$. 1$.0 ":60SUB 2420:T=1:NEXT :60TO 2000 2030 IF P.133 THEN T.IINEXT :RETURN 2031 REM DELETE CHARS 2035 IF P.20 THEN IS.LEFTSCI $,PEEK(25111:NEXT character. This gives a visual representation of the fi eld length, but on the bottom line is a count of the number of characters. The cursor may be moved until either a length of 255 is reached, or another character is encountered in front of the cursor. RETURN sets the length and DEL allows you to move back the cursor. The final part of this section of the program is typing in the field name. You will be prompted to do this on the bottom line after defining the length. All the processes discussed then have to be repeated for each field. As in the previous section for defining the screen layout, in this section the function keys have certain uses. They are; Fl (Exit) returns back to the beginning of the program; F3 (Clear) homes the cursor and resets the field count to one; F5 (Back) allows you to go back and redefine the previous field if you made a mistake. When you have finished defining the database the program will ask if you wish to save the data to tape or disk. If you choose tape remember to take note of the tape count. You must also wind the tape back to the position of the main program so that it can be autorun (of course on disk this is automatic). Management or Main Program When the main program has auto-run, press any key to exit the intro screen so that you are then presented with the main menu. In the top right of the screen is printed the number of empty records remaining i.e. how many more records can be input. Laid out below this are the 10 main functions of the management program which can be accessed by pressing zero to nine, When the program is fi rst run only options one and eight can be selected since no data is present and also there is no 'format' where it can be held. The formatting can be done using option eight, which will be described later, or option one can be used to lead in a format or any data. To describe how to use the program ril go through each option in turn: 1 — Press this yields yet another menu with five more options all of which are really
self-explanatory. When any of these are selected you will be asked to supply a filename. This must be no longer than 16 characters. Typing 'E' will exit to the main menu. Before describing other parts of DATA I/O, I must first describe the unusual method in which the program handles data files_ Files can be loaded/saved in one of two forms either program data, i.e. the actual records of data or the format data. The format data takes a while to load/save even with disk since it is itself split into two halves. Firstly, the format parameters are saved i.e. field length, name etc, and then the screen layout data which takes the time to load. Saving the data as two separate files may sound strange but it creates a very fl exible system. For example, if you select load from tape and a format is already present (if not then program automatically assumes you wish to load a format), firstly, you will be prompted to enter the type of file to be loaded: "Format or data?". This means that if you select data you can load in different sets of data for the same format, so it is possible to create many data files from one format fi le so overcoming memory limitations. If you select format and load a new format then the data present will be erased and new data file must be loaded. If you try to load a file which is data but you select format when prompted the computer will give an error message after reading the fi le header and return to the menu. Note The data I/O option cannot be used to load a transfer file from the format program. Option eight must be used for this. The next, option two, is print fi le. I have left this unwritten since I have no printer and also there are many different types, but provision has been made for a subroutine. If pressed the menu will just be listed again. My suggestion is to place the subroutine starting at line 4200 which means the third line number (30) in the ON... GOSUB at line 35 must be altered. To help you the sir at 4005 will list all the records found by a search. Also look at the view option. Finally, the C64/C128 2040 IF P013 THEN ISEISI.CHR S(P):NEXT 2041 REM CHECK FOR EDIT FLAB 2610 PRINT 1 ON VAL(BCGOSUB 2620, CCLEAR 3000,3093,2890 array B$ holds the format data and B$ 'fi eld number two) contains the name of each field and records are held by AS in 2045 IF EF AND 6$0"0"THEN EI1NEXT:RETURN r :PRINT'ICLEAR,WHITEr :IF RC>1 THEN 2500 the form A$ (field number, record number). 2050 AS(I,RC)EISIIF LEFTS(BS (40),1)0"3"THEN PRINT C HRS(20):RETURN 2060 2615 SYS AT,8,101PRINT" IRVSON,SPC,S1110 RECORDS REMAININS 1 :WAIT : 198,1:RETURN The third option Updateallows the updating of the file i.e. typing in new records. When pressed, the layout you designed using the format 2070 REM CHECK IF INPUT IS IN RANH 2300 VL.VAL(AS(I,RC)) :KS.MIDS(BS(4,1),2 2620 6OSUB SYS AT,10,8:INPUPUR) ECORD 9 8NO.";ER:IF 0 ER KSE"B"ANDO/LVA1ORi KS.">= UB 1 9800:NEXT 2360 AND ASII,RNEISIPRINT CHRS( CSF3ORWARDIC7,SPC,WHITE, SC-CSAJLTEREC7,SPC,WHITE, SD)-ESD3ELIC7,SPC,WHITE, SE)-ISENITEC7,SPC,HOMEr :GOSUB 3420 2631 IF SWA'THEN 2640 2635 IF SWEITHEN RETURN 2636 SOSUB 2830:IF RC>1 THEN POKE 198,11POKE 631,60 ;SOTO 2630 hand corner,a number displays the current record being typed in, as usual the function keys have been used which are also displayed on the top line they are: (Exit) will exit back to the main menu, this will not update the record counter and any data that was typed for the current record will be last: F3 (REDO) this allows the user to retype the previous field, while VL< 20):RETURN 2370YA1 2380 THE REM FREE BYTES ROUTINE 2400 N PSESTRUFRE(0))+ 1 BYTES B FREMLNELEN(PS) O ;FOR PEI TO LW S:POKE 19904.P,ASCNIDCPS, P,11) 2410 POKE 562624,1:NEXT 2637 RETURN 2640 SOSUB 98001PRINTs[NOME, RVSON,C7,SPC5,WHITE,SPC, SUELECT DATA AND PRESS ESPC,SR,SE,ST,SU,SR,SN, SPC,C7,SPC43 2650 6SYS AT,0,241PRINT 1 RVSON,SPC,SHITE,SU) (C7, SE CURSOR KEY TO MOVE UP/ deleting any data that has been typed on the current field; FS (Memory) displays on the bottom line the number of free bytes remaining, this may take a few seconds and is due to FRE(0) and not to my program. The number will remain on the bottom line until any key is pressed. The fourth option - Edit- is :POKE 198,01WAIT 198,1 :FOR P.1 TO LW :POKE 19904,32:NEXT :RETURN 2415 1 2416 REM REDO S/R DOWN(C7,6PC,WHITE,SEHSE1 XITIC7,SPC,HOME) 2655 DEO:606UB 2980 2660 SET GS:IF StePTHEN 26 30 2680 IF DetUPPTHEN GOSUB probably the most complex in the program but has some very powerful function. When pressed you are presented with another menu. Again I will go through these options in order starting with Edit. After 2420 AS(I,RC)EISIDEI:ERERC 160SUB 2970:PRINT L$11E1-1 :DEI:50SUB 2970:PRINT LS :RETURN 2985:D4-1:IF DO-1 THEN GOSUB 2980 2690 IF DO THEN D.FD :SOSUB 2980 selecting this and entering the number of the record you wish to edit, once entered, the screen will display the record, and the bottom line will list the 2430 1 2440 REM EDIT SIR 2500 PRINT TAB(13) 1 STI ISM,SE,SN,SUP ESEpSD ;PRINT TAB(13) I SPRINT 1 TABI8) SI, 1ISPC,SUDIT (C19r RECORDS. 2530 (DOWN11 PRINT TAB(8) 1 --ESPC,SEEARCH & REPLACE 2700 IF 6WEDOWN3 'THEN SOSUB 2985:114+1 :IF DOF0+1 THEN GOSUB 29 80 2710 IF D>F1) THEN 2635 2720 IF 61OCHRS(13)THEN 2660 2730 GOSUB 9800:PRINT"EHOME, RVSON,C7,SPC4,WHITE,SPC, SEELECT EDIT OPTIONkey function. The top right shows the record currently being displayed using the inequality keys ( ). You can look at other records going backwards/forwards and when you have definitely found the record you wish to edit, pressing 'D' will delete the whole record, 'E' will exit back to the menu or 'A' will allow [DOWN]2 . 1-ISPC,SEEARCH & DELETE. 2550 1PRINT TABIEIEDOWN)4 P-[SPC,SELOCK DELETE.' R:PRINT TAMPIDOWN]5 - ISPC11,C7,SPC4I° 2740 SYS AT,0,24:PRINTqC7, RYSON,SPC2,WHITE,SPC,S0)- CSOIYERWRITE[SPC,C7,5P02, WHITE,SPC,SONSUELETE you to alter it. Selecting 'A' changes the prompts on the bottom and top lines and also turns the data in the first field to inverse video. Using the cursor up/down key, you can select IESPC,SENIT.CDOWN31 2590 NSOSUB 5800:IF SWPOR T 6S>"5"THEN 2590 2600 T IF 611. 1 A 5 B 1 ( THEN B R ) E T U CSPC,C7,SPC,WHITE,SPC,SE -ISEHIT[SPC,C7,SPC2,HOME) 2750 SET SS:IF SWEITHEN SO 19 the field to alter when you have it, pressing RETURN will change the prompts again for the third and final time asking you to select the 'Edit option', D will delete all the data in the
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: 76,173,202,32,121,1540 145,251,177,
Page 21 and 22: 3106 SYS AT,4,8:INPUTICSR1 ECORD NM
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

Create successful ePaper yourself

Delete template?

Save as template?