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 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