ftp.whtech.com/ftp.whtech.com.tar/ftp.whtech.com/club100/bus/dbase.ba

Text File | 2006-10-19 | 2KB | 26 lines

0 'DBASE.BA  Author Unknown
1 'CLUB 100 LIBRARY- 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
2 CLEAR1000:DIMA$(50,2):KEYON:GOTO19
3 I$=INKEY$:IFI$=""THEN3ELSEI=VAL(I$):IFASC(I$)>96 THEN I$=CHR$(ASC(I$)-32):RETURNELSE RETURN
4 CODE":GOSUB1:I=I-1
5 MENU 'Micro database program for model 100
6 'from a magazine article somewhat modified by WT
7 'Holds 12 records
8 F=1:RD=RD+1:CLS:PRINT@15,"INPUT MODE-- RECORD #"RD:PRINT:PRINT"NAME : ";:LINEINPUTA$(RD,0):PRINT"NUMBER: ";:LINEINPUTA$(RD,1):PRINT"CODE: ";:LINEINPUTA$(RD,2):PRINT"ANOTHER Y/N ":GOSUB3:IFI$="Y"THEN8ELSERETURN
9 F=1:CLS:PRINT@16,"SORT MODE":PRINT"SELECT FIELD":PRINT:PRINT"1 NAME 2 NUMBER
10 FOR B=1TORD-1:F1=0:FORC=1TORD-B
11 IFA$(C+1,I)>=A$(C,I)THEN13
12 FORY=0TO2:T$=A$(C,Y):A$(C,Y)=A$(C+1,Y):A$(C+1,Y)=T$:NEXT:F1=1
13 NEXT:IFF=0THEN RETURN
14 NEXT:RETURN
15 F=1:CLS:PRINT@15,"SAVE FILE":PRINT:PRINT"FILE NAME: "NM$:INPUT Q$:IF Q$ = ""THEN NM$="TEMP"ELSENM$=Q$
16 OPENNM$ FOR APPEND AS 1:PRINT#1,RD:FORX=1TORD:FORY=0TO2:PRINT#1,A$(X,Y):NEXT:NEXT:CLOSE:RETURN
17 F=1:CLS:PRINT@15,"LOAD FILE":PRINT:PRINT"FILE NAME "NM$:INPUTI$:IFI$<>""THENNM$=I$
18 OPENNM$FOR INPUT AS1:INPUT #1,RD:FOR X=1TORD:FORY=0TO2:INPUT#1,A$(X,Y):NEXT:NEXT:CLOSE:RETURN
19 ONKEY GOSUB8,17,15,9,22,,,24
20 F=0:CLS:PRINT@16,"MAIN MENU":PRINT:PRINT"F1 INPUT DATA":PRINT"F2 LOAD DATA":PRINT"F3 SAVE ":PRINT"F4 SORT DATA":PRINT"F5 PRINT ":PRINT"F8 EXIT ";
21 IF F=0THEN21ELSE19
22 F=1:CLS:PRINT"PRINT MODE  PRESS <ENTER> TO CONTINUE":FOR X=1TORDSTEP2:PRINT@40," ";:FORZ=1TO6:PRINTSTRING$(40,32);:NEXT:PRINT@40,"";:FORY=0TO1:PRINT"NAME: "A$(X+Y,0):PRINT"NUMBER: "A$(X+Y,1):PRINT"CODE: "A$(X+Y,2)
23 NEXT:PRINTTAB(19)"PRESS 'R' TO RETURN";:GOSUB3:IFI$="R"THEN RETURNELSENEXT:RETURN
24 CLOSE:MENU