Compucolor.org – Virtual Media

Listing of file='APRICE.BAS;01' on disk='vmedia/utility-sector.ccvf'

5 CLEAR 2000
10 PLOT 12:PRINT "			PRICE LIST	12 / 6 / 80K"
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
435 POKE FL,14:PRINT
436 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
503 PRINT "
505 GOTO 425
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