Listing of file='WATEST.BAS;01' on disk='vmedia/ncc_18-sector.ccvf'
10 PLOT 12,14,6,2 20 PLOT 2,0,0,242,0,127,127,127,127,0,0,0,255 30 PLOT 3,12,4:PRINT "S W I M M I N G P O O L H E L P E R" 40 PLOT 3,7,12:PRINT "FOR CHLORINE LEVELS...( IDEAL LEVEL IS 1.0 TO 1.5 )" 50 PLOT 3,7,16:PRINT "FOR PH LEVELS...........( IDEAL LEVEL IS 7.4 TO 7.6 )" 60 PLOT 3,12,24:PRINT "MAINTAIN CORRECT LEVELS FOR SAFETY SAKE" 70 FOR I= 1TO 5000:NEXT 80 PLOT 12,6,1 90 PLOT 2,0,0,242,0,127,127,127,127,0,0,0,255 100 PLOT 3,8,4:PRINT "POOL CAPACITY IN APPROXIMATE CAPACITY" 110 :PLOT 3,12,6:PRINT " LITRES IN GALLONS" 120 PLOT 3,13,10,6,3:PRINT "5,000 .........CONVERSION......... 1,000 130 PLOT 3,12,12:PRINT "10,000 ............................ 2,000 140 PLOT 3,12,14:PRINT "20,000 ...........CHART............ 4,000 150 PLOT 3,12,16:PRINT "30,000 ............................ 6,000 160 PLOT 3,12,18:PRINT "40,000 ............................ 9,000 170 PLOT 3,12,20:PRINT "50,000 ........................... 11,000 180 PLOT 3,12,22:PRINT "60,000 ........................... 13,000 190 PLOT 6,1,3,12,26:INPUT "ENTER AMOUNT OF WATER IN LITRES: ";A 200 A$= " IF READING IS BELOW 1.0 P.P.M ADD DAILY DOSAGE " 210 B$= "YOU MAY NEED TO ADD LIQUID CHLORINE FOR ONE OR TWO DAYS." 220 PLOT 12 230 PLOT 6,3,2,0,0,242,0,127,127,127,127,0,0,0,255 240 PLOT 3,4,2:PRINT "CHECK LIST - WHICH DO YOU WISH TO CHECK ?" 250 PLOT 3,22,8:PRINT "( 1) CHLORINE LEVEL........" 260 PLOT 3,22,16:PRINT "( 3) NEW WATER CAPACITY...." 270 PLOT 3,22,12:PRINT "( 2) PH LEVEL.............." 280 PLOT 3,22,20:PRINT "( 4) RETURN TO MENU........" 290 PLOT 3,4,24:PRINT "MAKE YOUR SELECTION " 300 PLOT 3,4,26:INPUT "AND PRESS ENTER:";P 310 ON PGOTO 320,500,640,650 320 PLOT 12 330 PLOT 6,3,2,0,0,242,0,127,127,127,127,0,0,0,255 340 PLOT 3,4,2:PRINT "CHLORINE CONTROLS AND KILLS BACTERIA AND ALGAE" 350 PLOT 3,4,6:PRINT "KEEPS POOL WATER CLEAN AND FRESH" 360 PLOT 3,4,10:PRINT "WHICH TYPE OF CHLORINE DO YOU USE ?" 370 PLOT 3,24,14:PRINT "( 1) TABLETS......." 380 PLOT 3,24,18:PRINT "( 2) LIQUID........" 390 PLOT 3,24,22:PRINT "( 3) GRANULAR......" 400 PLOT 3,4,26:PRINT "MAKE YOUR SELECTION" 410 PLOT 3,4,28:INPUT "AND PRESS RETURN:";Z 420 ON ZGOTO 1280,1870,430 430 IF A< = 5000THEN 660 440 IF A> 5000AND A< = 10000THEN 720 450 IF A> 10000AND A< = 20000THEN 780 460 IF A> 20000AND A< = 30000THEN 840 470 IF A> 30000AND A< = 40000THEN 900 480 IF A> 40000AND A< = 50000THEN 960 490 IF A> 50000THEN 1020 500 PLOT 12 510 PLOT 6,3,2,0,0,242,0,127,127,127,127,0,0,0,255 520 PLOT 3,4,2:PRINT "PH IS THE AMOUNT OF ACID PRESENT IN YOUR WATER" 530 PLOT 3,4,6:PRINT "FIRST TAKE PH READING WITH YOUR TEST KIT" 540 PLOT 3,4,14:PRINT " AMOUNT OF WATER = "A" LITRES 550 PLOT 3,4,10:INPUT "NOTE READING AND ENTER IT (e.g. 7.6).....";H 560 PLOT 3,4,22:PRINT " RUN FILTER FOR RECOMENDED TIME. " 570 IF H< = 6.6 THEN 1080 580 IF H> 6.6 AND H< 7.0 THEN 1100 590 IF H> = 7.0AND H< 7.4THEN 1120 600 IF H> = 7.4AND H< = 7.6THEN 1140 610 IF H> 7.6 AND H< = 8.0 THEN 1160 620 IF H> 8.0 AND H< = 8.4 THEN 1180 630 IF H> 8.4 THEN 1200 640 GOTO 80 650 LOAD "MENU":RUN 660 PLOT 12 670 PLOT 6,3,2,0,0,242,0,127,127,127,127,0,0,0,255 680 PLOT 3,4,2:PRINT "FIRST TAKE CHLORINE READING WITH YOUR TEST KIT" 690 PLOT 3,4,6:PRINT A$ 700 PLOT 3,4,12:PRINT "DAILY CHLORINE DOSAGE FOR "A" LITRES = 7 GRAMS" 710 GOTO 1250 720 PLOT 12 730 PLOT 6,3,2,0,0,242,0,127,127,127,127,0,0,0,255 740 PLOT 3,4,2:PRINT "FIRST TAKE CHLORINE READING WITH YOUR TEST KIT" 750 PLOT 3,4,6:PRINT A$ 760 PLOT 3,4,12:PRINT "DAILY CHLORINE DOSAGE FOR "A" LITRES = 15 GRAMS" 770 GOTO 1250 780 PLOT 12 790 PLOT 6,3,2,0,0,242,0,127,127,127,127,0,0,0,255 800 PLOT 3,4,2:PRINT "FIRST TAKE CHLORINE READING WITH YOUR TEST KIT" 810 PLOT 3,4,6:PRINT A$ 820 PLOT 3,4,12:PRINT "DAILY CHLORINE DOSAGE FOR "A" LITRES = 30 GRAMS" 830 GOTO 1250 840 PLOT 12 850 PLOT 6,3,2,0,0,242,0,127,127,127,127,0,0,0,255 860 PLOT 3,4,2:PRINT "FIRST TAKE CHLORINE READING WITH YOUR TEST KIT" 870 PLOT 3,4,6:PRINT A$ 880 PLOT 3,4,12:PRINT "DAILY CHLORINE DOSAGE FOR "A" LITRES = 45 GRAMS" 890 GOTO 1250 900 PLOT 12 910 PLOT 6,3,2,0,0,242,0,127,127,127,127,0,0,0,255 920 PLOT 3,4,2:PRINT "FIRST TAKE CHLORINE READING WITH YOUR TEST KIT" 930 PLOT 3,4,6:PRINT A$ 940 PLOT 3,4,12:PRINT "DAILY CHLORINE DOSAGE FOR "A" LITRES = 60 GRAMS" 950 GOTO 1250 960 PLOT 12 970 PLOT 6,3,2,0,0,242,0,127,127,127,127,0,0,0,255 980 PLOT 3,4,2:PRINT "FIRST TAKE CHLORINE READING WITH YOUR TEST KIT" 990 PLOT 3,4,6:PRINT A$ 1000 PLOT 3,4,12:PRINT "DAILY CHLORINE DOSAGE FOR "A" LITRES = 75 GRAMS" 1010 GOTO 1250 1020 PLOT 12 1030 PLOT 6,3,2,0,0,242,0,127,127,127,127,0,0,0,255 1040 PLOT 3,4,2:PRINT "FIRST TAKE CHLORINE READING WITH YOUR TEST KIT" 1050 PLOT 3,4,6:PRINT A$ 1060 PLOT 3,4,12:PRINT "DAILY CHLORINE DOSAGE FOR "A" LITRES = 90 GRAMS" 1070 GOTO 1250 1080 PLOT 3,4,18:PRINT "ADD "A* 10/ 1000" GRAMS OF SODA ASH THIS WILL FIX YOUR LEVEL" 1090 GOTO 1210 1100 PLOT 3,4,18:PRINT "ADD"A* 8/ 1000" GRAMS OF SODA ASH THIS WILL FIX YOUR LEVEL" 1110 GOTO 1210 1120 PLOT 3,4,18:PRINT "ADD"A* 5/ 1000" GRAMS OF SODA ASH THIS WILL FIX YOUR LEVEL" 1130 GOTO 1210 1140 PLOT 3,4,18:PRINT "THIS IS THE IDEAL LEVEL DON'T ADD ANYTHING " 1150 GOTO 1210 1160 PLOT 3,4,18:PRINT "ADD"A* 18/ 1000" MLS OF LIQUID HYDROCHLORIC ACID" 1170 GOTO 1210 1180 PLOT 3,4,18:PRINT "ADD"A* 6.4/ 10000/ 10" LITRES OF LIQUID HYDROCHLORIC ACID" 1190 GOTO 1210 1200 PLOT 3,4,10:PRINT "READING IS TOO HIGH FOR MOST TEST KITS. TRY AGAIN ":FOR I= 1TO 4000:NEXT :GOTO 500 1210 PLOT 3,4,26:INPUT "WOULD YOU LIKE ANOTHER READING, CHECK LIST OR MENU ?";L$ 1220 IF L$= "R"THEN 500 1230 IF L$= "C"THEN 220 1240 IF L$= "M"THEN 650 1250 PLOT 3,4,26:INPUT "WOULD YOU LIKE THE CHECK LIST OR THE MENU ? ";L$ 1260 IF L$= "C"THEN 220 1270 IF L$= "M"THEN 650 1280 IF A< = 5000THEN 1350 1290 IF A> 5000AND A< = 10000THEN 1420 1300 IF A> 10000AND A< = 20000THEN 1490 1310 IF A> 20000AND A< = 30000THEN 1560 1320 IF A> 30000AND A< = 40000THEN 1630 1330 IF A> 40000AND A< = 50000THEN 1700 1340 IF A> 50000THEN 1770 1350 PLOT 12 1360 PLOT 6,3,2,0,0,242,0,127,127,127,127,0,0,0,255 1370 PLOT 3,6,6:PRINT "FOR "A" LITRES OF WATER USE ONE TABLET PER WEEK." 1380 PLOT 3,10,10:PRINT "BECAUSE OF THE SLOW DISSOLVING OF TABLETS," 1390 PLOT 3,3,14:PRINT B$ 1400 PLOT 3,12,20:PRINT " RUN FILTER FOR RECOMENDED TIME." 1410 GOTO 1840 1420 PLOT 12 1430 PLOT 6,3,2,0,0,242,0,127,127,127,127,0,0,0,255 1440 PLOT 3,6,6:PRINT "FOR "A" LITRES OF WATER USE ONE TABLET PER WEEK" 1450 PLOT 3,10,10:PRINT "BECAUSE OF THE SLOW DISSOLVING OF TABLETS," 1460 PLOT 3,3,14:PRINT B$ 1470 PLOT 3,12,20:PRINT " RUN FILTER FOR RECOMENDED TIME." 1480 GOTO 1840 1490 PLOT 12 1500 PLOT 2,0,0,242,0,127,127,127,127,0,0,0,255 1510 PLOT 3,6,6:PRINT "FOR "A" LITRES OF WATER USE TWO TABLETS PER WEEK" 1520 PLOT 3,10,10:PRINT "BECAUSE OF THE SLOW DISSOLVING OF TABLETS," 1530 PLOT 3,3,14:PRINT B$ 1540 PLOT 3,12,20:PRINT " RUN FILTER FOR RECOMENDED TIME." 1550 GOTO 1840 1560 PLOT 12 1570 PLOT 6,3,2,0,0,242,0,127,127,127,127,0,0,0,255 1580 PLOT 3,6,6:PRINT "FOR "A" LITRES OF WATER USE TWO TABLETS PER WEEK" 1590 PLOT 3,10,10:PRINT "BECAUSE OF THE SLOW DISSOLVING OF TABLETS," 1600 PLOT 3,3,14:PRINT B$ 1610 PLOT 3,12,20:PRINT " RUN FILTER FOR RECOMENDED TIME." 1620 GOTO 1840 1630 PLOT 12 1640 PLOT 6,3,2,0,0,242,0,127,127,127,127,0,0,0,255 1650 PLOT 3,6,6:PRINT "FOR "A" LITRES OF WATER USE THREE TABLETS PER WEEK" 1660 PLOT 3,10,10:PRINT "BECAUSE OF THE SLOW DISSOLVING OF TABLETS," 1670 PLOT 3,3,14:PRINT B$ 1680 PLOT 3,12,20:PRINT " RUN FILTER FOR RECOMENDED TIME." 1690 GOTO 1840 1700 PLOT 12 1710 PLOT 6,3,2,0,0,242,0,127,127,127,127,0,0,0,255 1720 PLOT 3,6,6:PRINT "FOR "A" LITRES OF WATER USE THREE TABLETS PER WEEK" 1730 PLOT 3,10,10:PRINT "BECAUSE OF THE SLOW DISSOLVING OF TABLETS," 1740 PLOT 3,3,14:PRINT B$ 1750 PLOT 3,12,20:PRINT " RUN FILTER FOR RECOMENDED TIME." 1760 GOTO 1840 1770 PLOT 12 1780 PLOT 6,3,2,0,0,242,0,127,127,127,127,0,0,0,255 1790 PLOT 3,6,6:PRINT "FOR "A" LITRES OF WATER USE THREE TABLETS PER WEEK" 1800 PLOT 3,10,10:PRINT "BECAUSE OF THE SLOW DISSOLVING OF TABLETS," 1810 PLOT 3,3,14:PRINT B$ 1820 PLOT 3,12,20:PRINT " RUN FILTER FOR RECOMENDED TIME." 1830 GOTO 1840 1840 PLOT 3,6,26:INPUT "WOULD YOU LIKE CHECK LIST OR MENU. ?";L$ 1850 IF L$= "C"THEN 220 1860 IF L$= "M"THEN 650 1870 PLOT 12,3,26,15,6,3:PRINT " STILL TO BE DONE"