Listing of file='MENUPR.BAS;01' on disk='vmedia/utility-sector.ccvf'
5 CLEAR 2000 10 PLOT 12:PRINT " PRICE LIST 12 / 6 / 80 K" 11 INPUT "TO THE SCREEN ( S ) OR PRINTER ( P ) ";A$:PRINT "":IF A$= "S"THEN SCREEN= - 1:GOTO 15 12 INPUT "SET UP PRINTER ! HIT RETURN WHEN READY.";X:PLOT 28,11 15 FL= 33265 20 PLOT 27,18,3:POKE 33289,126 50 FILE "R",1,"PRICE",1;100,64,20 400 REM PRINT TO PRINTER 410 FILE "D",1 420 NR= 46:REM 425 PRINT "NO. DESCRIPTION PRICE +TAX" 430 IF SCREENGOTO 440 436 POKE FL,14:PRINT 437 PRINT " NO DESCRIPTION PRICE TAX PRICE INC. TAX":PRINT :PRINT 438 POKE FL,0 440 FOR Q= 1TO NR 450 GET 1,Q;DE$[30],PR,TAX,PIT,X 461 POKE FL,0 462 PRINT ""Q"";TAB( 4)DE$, 464 N= PRI:GOSUB 6000:PRINT ""N$" "; 465 N= PIT:GOSUB 6000:PRINT ""N$"" 467 IF X= 1THEN PRINT 468 IF SCREENGOTO 490 470 POKE FL,14 472 PRINT Q;TAB( 4)DE$, 474 N= PRI:GOSUB 6000:PRINT N$" "; 475 N= TAX:GOSUB 6000:PRINT N$" "; 476 N= PIT:GOSUB 6000:PRINT N$ 477 IF X= 1THEN PRINT 490 POKE FL,0 500 NEXT Q 510 INPUT "HIT RETURN FOR ANOTHER COPY OR 'END' TO END :";A$:IF A$= "END"THEN END 600 RUN 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