Demo for a product inventory database.
Related Content
- DEF 2068 instructions (document)
Gallery
Source Code
2 DIM e$(10,100)
5 LET p=VAL "1"
10 GO TO VAL "9000"
1001 CLS : LET a$="": LET k$="": LET b$="000000000": LET c$=" "
1005 PRINT AT 0,5; INVERSE 1;"Add records"
1009 LET x=VAL "2": LET y=VAL "11": FOR b=VAL "1" TO VAL "8": READ l,l$
1010 PRINT AT x,VAL "0";l$;: FOR k=VAL "1" TO l: PRINT AT x,y+k;CHR$ VAL "45";: NEXT k: LET k=VAL "1": GO SUB VAL "1500": NEXT b
1015 DATA VAL "9","Stock# ",VAL "20","Discript ",VAL "11","Supplier ",VAL "4","Qty ",VAL "6","Unit Price ",VAL "6","Retail Price ",VAL "3","Low Limit ",VAL "3","Back Order "
1050 INPUT INVERSE 1;"Hit ENTER to log this record or C to reenter it",,x$
1055 IF x$="C" OR x$="c" THEN RESTORE : GO TO VAL "1001"
1060 LET a$=a$+"/": LET e$(p, TO 100)=a$: LET p=p+1
1065 IF p>=10 THEN PRINT ; FLASH 1;"File Full": PAUSE 500: RETURN
1070 INPUT INVERSE 1;"More? Y/N",x$
1075 IF x$="N" OR x$="n" THEN RESTORE : RETURN
1080 RESTORE : GO TO VAL "1001"
1500 PAUSE VAL "0": LET q$=INKEY$
1505 IF q$=CHR$ VAL "13" AND k<>VAL "0" THEN GO TO VAL "1527"
1510 IF q$=CHR$ VAL "12" AND k>VAL "0" THEN LET k=k-1: PRINT AT x,y+k;CHR$ VAL "45": LET k$=k$( TO k-1): GO TO VAL "1500"
1515 IF q$<CHR$ VAL "32" THEN GO TO VAL "1500"
1520 LET k$=k$+q$: PRINT AT x,y+k;q$: LET k=k+VAL "1"
1525 IF k<=l THEN GO TO VAL "1500"
1527 IF x=VAL "2" THEN LET k$=b$( TO l-LEN k$)+k$: LET a$=a$+k$
1528 IF x>=VAL "4" THEN LET k$=k$+c$( TO l-LEN k$)
1530 IF x>VAL "2" AND x<=VAL "16" THEN LET a$=a$+"*"+k$
1532 IF x=VAL "8" THEN LET f$=k$
1533 IF x=VAL "10" OR x=VAL "12" THEN LET k$=STR$ (VAL f$*VAL k$): LET k$=c$( TO VAL "9"-LEN k$)+k$: LET a$=a$+"*"+k$
1535 LET x=x+VAL "2": LET k$="": RETURN
3001 CLS : PRINT INVERSE 1;"Search for a Record",: LET l$="": LET q$=""
3005 INPUT INVERSE 1;"Enter a Stock Number",x$
3010 IF x$="" THEN GO TO VAL "3005"
3015 LET x$=b$( TO VAL "9"-LEN x$)+x$
3025 FOR x=VAL "1" TO p
3027 IF e$(x,1 TO 9)=x$ THEN GO TO 3060
3035 NEXT x
3040 PRINT "File not found": PAUSE 50: RETURN
3060 LET y=VAL "2": PRINT AT VAL "2",VAL "0";"Stock #"''"Discript"''"Supplier"''"Qty"''"Unit Price"''"Rtl Price"''"Low limit"''"Bck Order"
3063 LET d=VAL "0": LET b=VAL "10"
3065 FOR z=VAL "1" TO VAL "100"
3070 IF e$(x,z)<>"*" THEN PRINT AT y,b+(z-x)-d;e$(x,z);
3075 IF e$(x,z+1)="*" OR e$(x,z+1)="/" THEN GO TO 3100+(20*(e$(x,z+1)="/"))
3080 NEXT z
3085 GO TO VAL "3120"
3100 IF y=10 AND b=10 OR y=12 AND b=10 THEN PRINT TAB VAL "18";"Ext ";: LET b=VAL "21": LET d=z-x: NEXT z
3103 PRINT : LET y=y+VAL "2": LET d=z-x: LET b=VAL "10"
3105 NEXT z
3120 FOR z=VAL "1" TO VAL "4": LET q$=q$+SCREEN$ (8,9+z): NEXT z
3140 FOR z=VAL "1" TO VAL "3": LET l$=l$+SCREEN$ (14,9+z): NEXT z
3143 IF q$=" " THEN GO TO VAL "3150"
3145 IF VAL l$>=VAL q$ THEN PRINT FLASH VAL "1";AT VAL "14",VAL "10";l$
3175 INPUT INVERSE 1;"Press enter for new search","Q to quit",,"C to copy",,k$
3180 IF k$="Q" OR k$="q" THEN RETURN
3185 IF k$="" THEN GO TO 3000
3188 IF k$="c" OR k$="C" THEN COPY
3190 GO TO 3175
5001 PAPER 2: INK 7: CLS : PRINT TAB 12; FLASH VAL "1";"WARNING": PRINT TAB VAL "4";"This will erase data!!"; PAPER 7; INK 0: PAUSE 100: GO SUB VAL "3000": INPUT INVERSE 1;"Delete this? Y/N",x$
5010 IF x$="N" OR x$="n" THEN RETURN
5020 LET e$(x)=c$: FOR l=x TO p: LET e$(l)=e$(l+1): NEXT l: LET p=p-1
5023 INPUT INVERSE 1;"More? Y/N ";x$: IF x$<>"Y" OR x$<>"y" THEN PAPER VAL "7": INK VAL "0": RETURN
5025 GO TO VAL "5001"
8000 CLS : INPUT INVERSE 1;"L = load file S = save file",k$
8010 IF k$="L" OR k$="l" THEN INPUT INVERSE 1;"enter file name ";k$: LOAD k$
8050 IF k$="S" OR k$="s" THEN INPUT INVERSE 1;"enter file name ";k$: SAVE k$ LINE 9040
8055 RETURN
9040 CLS : PRINT INVERSE 1;" Main Menu",
9045 PRINT AT 7,VAL "5";"A = Add Records"''TAB VAL "5";"D = Delete a Record"''TAB VAL "5";"S = Search for a Record"''TAB VAL "5";"Q = Quit"
9047 INPUT INVERSE 1;"Select Option and press ENTER",o$
9050 IF o$="A" OR o$="a" THEN GO SUB VAL "1000"
9060 IF o$="D" OR o$="d" THEN GO SUB VAL "5000"
9070 IF o$="S" OR o$="s" THEN GO SUB VAL "3000"
9080 IF o$="Q" OR o$="q" THEN GO SUB VAL "8000"
9090 GO TO VAL "9040"