DIM itemprice AS SINGLE
DIM itemname AS STRING

'OPEN "ITEM.DAT" FOR INPUT AS #1
'WHILE NOT EOF(1)
'INPUT #1, itemname$, itemprice
'WEND
'CLOSE #1


M = 6
C = 6
0 CLS
COLOR 4
PRINT
PRINT
PRINT
PRINT
PRINT TAB(30); "STORE THING": COLOR 5
PRINT
PRINT TAB(30); "1. START THING": COLOR 2
PRINT TAB(30); "2. ENTER NEW ITEM": COLOR 13
PRINT TAB(30); "3. DELETE ITEM": COLOR 10
PRINT TAB(30); "4. QUIT": COLOR 1
PRINT
LOCATE , 30
LINE INPUT ">"; PROMPT$
IF PROMPT$ = "1" THEN GOTO 1
IF PROMPT$ = "2" THEN GOTO 2
IF PROMPT$ = "3" THEN GOTO 3
IF PROMPT$ = "4" THEN END
1
CLS
15
LOCATE 5, 10
PRINT "ENTER ITEM NAME, T FOR TOTAL, C FOR CUSTOM AMOUNT";
INPUT NAME$
IF NAME$ = "T" THEN GOTO 20
IF NAME$ = "C" THEN GOTO 22

OPEN "ITEM.DAT" FOR INPUT AS #1
WHILE NOT EOF(1)

INPUT #1, itemname$, itemprice
IF itemname$ = NAME$ THEN GOTO 10
WEND
CLOSE #1
10
itemprice = itemprice / 100

LOCATE M, 30
PRINT
PRINT itemname$; " -";
PRINT "$";
PRINT USING "###.##"; itemprice
TOTAL = TOTAL + itemprice
M = M + 1
CLOSE #1

GOTO 15

END
20
M = M + 1
LOCATE M, 5
PRINT "TOTAL $";
PRINT USING "###.##"; TOTAL
INPUT "AMOUNT TENDERED"; TENDERED
IF TENDERED < TOTAL THEN M = M + 1: GOTO 20

PRINT "CHANGE $";
PRINT USING "###.##"; TENDERED - TOTAL

INPUT "AGAIN Y,N"; AG$
IF AG$ = "Y" THEN GOTO 1
M = 6
GOTO 0

22

LOCATE C, 30
INPUT "CUSTOM AMOUNT"; CUSAM
LOCATE C, 5
PRINT "$";
PRINT USING "###.##"; CUSAM
TOTAL = TOTAL + CUSAM
C = C + 1
GOTO 15


END
2
PRINT
PRINT
PRINT
PRINT
INPUT "ENTER ITEM NAME"; itemname$: COLOR 5
INPUT "ENTER ITEM PRICE (MINUS DOLLAR SIGN EG. 45)"; itemprice: COLOR 3
itemprice = itemprice * 100
OPEN "ITEM.DAT" FOR APPEND AS #1
WRITE #1, itemname$, itemprice
CLOSE #1
GOTO 0




3
END















'QUASITRON
'MENSCHESSENTOPFPHLANZEN