10 REM (C)Concord Comms. 20 REM I did this program for no 30 REM real reason, However, it may 40 REM come of some use to you if 50 REM you need to round DOWN a bulk 60 REM batch of number. Simple mess 70 REM around with the programs. 80 CLS 90 A$="Rounding Numbers" 100 PRINTTAB(20-(LEN(A$)/2),0);A$' 110 PRINT"(1). Rounding UP" 120 PRINT'"(2).Rounding DOWN" 130 A$=GET$ 140 IFA$="1"GOTO190 150 IFA$="2"GOTO310 160 GOTO130 170 : 180 REM Rounding UP 190 CLS 200 INPUT"Rounding UP. Number - "n 210 a=INT(n)+1 220 PRINTa 230 PRINT'"Again Y/Q or SPACE for rounding DOWN" 240 A$=GET$ 250 IF A$="Y"ORA$="y"GOTO190 260 IF A$="Q"ORA$="q"END 270 IF A$=" "GOTO300 280 GOTO 240 290 : 300 REM Rounding DOWN 310 CLS 320 INPUT"Rounding DOWN. Number - "n 330 a=INT(n)-1 340 PRINTa 350 PRINT'"Again Y/Q or SPACE for rounding UP" 360 A$=GET$ 370 IF A$="Y"ORA$="y"GOTO310 380 IF A$="Q"ORA$="q"END 390 IF A$=" "GOTO200 400 GOTO360