Listing of file='PRICE.BAS;02' on disk='vmedia/utility-sector.ccvf'
2 PLOT 12 5 CLEAR 2000 10 PRINT " K" 15 FL= 33265 20 PLOT 27,18,3:POKE 33289,126 50 FILE "R",1,"PRICE",1;100,64,20 70 INPUT "WHICH RECORD FROM WHICH TO START (0-PRINT,>0-ENTER DATA) ?";R:IF R= 0GOTO 400 80 GET 1,R;A$[1]:REM SET POINTER 100 PRINT R,:PRINT "DESCRIPTION ..............................":PRINT TAB( 31):PLOT 28:INPUT DE$ 103 IF LEN (DE$)= 0GOTO 70 120 INPUT "PRICE ";PRICE:PRINT "" 125 TAX= PR* .1125 130 PIT= PRICE+ TAX 135 PRINT "TAX="TAX,,"PRICE INCUDING TAX "PIT"" 140 PUT 1,R;DE$[30],PR,TAX,PIT:R= R+ 1 150 PRINT 160 GOTO 100 400 REM PRINT TO PRINTER 410 FILE "D",1 420 INPUT "TO LINE PRINTER ?";A$ 430 IF A$= "N"THEN END 435 INPUT "NUMBER OF LINES ";NR 436 POKE FL,14:PRINT :PRINT :PRINT 437 PRINT " NO DESCRIPTION PRICE TAX PRICE INC. TAX":PRINT :PRINT 438 POKE FL,0 439 IF R= 0THEN R= 1 440 FOR Q= RTO NR+ R- 1 450 GET 1,Q;DE$[30],PR,TAX,PIT,X 460 FOR L= 0TO 14STEP 14 461 POKE FL,L 462 PRINT Q;TAB( 4)DE$, 464 N= PRI:GOSUB 6000:PRINT N$" "; 465 N= TAX:GOSUB 6000:PRINT N$" "; 466 N= PIT:GOSUB 6000:PRINT N$" "; 467 PRINT :IF X= 1THEN PRINT 470 NEXT L:POKE FL,0 500 NEXT Q 600 END 6000 REM FORMAT MONEY 6020 IN= INT (N):RE= N- IN:N$= " "+ STR$ (IN) 6050 IF RE= 0THEN N$= N$+ ".00":GOTO 6070 6060 N$= N$+ MID$ (STR$ (RE+ .001),2,3) 6070 N$= "$"+ RIGHT$ (N$,8):RETURN