bwBASIC/NBS2/M003.BAS

100 REM PURPOSE:  DISPLAY/VERIFY THE IMPLEMENTATION-DEFINED VALUES
110 REM  AUTHOR:  HOWARD WULF, AF5NE
120 REM    DATE:  2015-01-25
130 REM -------------------------------------------------------
140 PRINT "THIS PROGRAM DISPLAYS THE IMPLEMENTATION-DEFINED"
150 PRINT "RANGES FOR ALL BASIC VARIABLE TYPES."
160 PRINT "THERE SHOULD BE NO ERROR MESSAGES."
170 PRINT "MAXLVL=";MAXLVL
200 PRINT "MAXNUM=";MAXNUM
210 PRINT "MAXDBL=";MAXDBL
220 PRINT "MAXSNG=";MAXSNG
230 PRINT "MAXCUR=";MAXCUR
240 PRINT "MAXLNG=";MAXLNG
250 PRINT "MAXINT=";MAXINT
260 PRINT "MAXBYT=";MAXBYT
270 PRINT "MAXDEV=";MAXDEV
280 PRINT "MAXLEN=";MAXLEN("")
300 PRINT "MINNUM=";MINNUM
310 PRINT "MINDBL=";MINDBL
320 PRINT "MINSNG=";MINSNG
330 PRINT "MINCUR=";MINCUR
340 PRINT "MINLNG=";MINLNG
350 PRINT "MININT=";MININT
360 PRINT "MINBYT=";MINBYT
370 PRINT "MINDEV=";MINDEV
380 PRINT "MINLEN=";0
400 REM ------------------------------------------------
410 REM VERIFY THE MAX... RANGES ARE VALID
420 IF MAXNUM < MAXDBL THEN
430 PRINT "*** ERROR MAXNUM < MAXDBL ***"
440 END IF
450 IF MAXDBL < MAXSNG THEN
460 PRINT "*** ERROR MAXDBL < MAXSNG ***"
470 END IF
480 IF MAXSNG < MAXCUR THEN
490 PRINT "*** ERROR MAXSNG < MAXCUR ***"
500 END IF
510 IF MAXCUR < MAXLNG THEN
520 PRINT "*** ERROR MAXCUR < MAXSNG ***"
530 END IF
540 IF MAXLNG < MAXINT THEN
550 PRINT "*** ERROR MAXLNG < MAXINT ***"
560 END IF
570 IF MAXINT < MAXBYT THEN
580 PRINT "*** ERROR MAXINT < MAXBYT ***"
590 END IF
600 IF MAXBYT < MAXDEV THEN
610 PRINT "*** ERROR MAXBYT < MAXDEV ***"
620 END IF
630 IF MAXINT < MAXLEN("") THEN
640 PRINT "*** ERROR MAXINT < MAXLEN ***"
650 END IF
700 REM --------------------------------------------
710 REM VERIFY THE MIN... RANGES
720 IF MINDBL < MINNUM THEN
730 PRINT "*** ERROR MINDBL < MINNUM ***"
740 END IF
750 IF MINSNG < MINDBL THEN
760 PRINT "*** ERROR MINSNG < MINDBL ***"
770 END IF
780 IF MINCUR < MINSNG THEN
790 PRINT "*** ERROR MINCUR < MINSNG ***"
800 END IF
810 IF MINLNG < MINCUR THEN
820 PRINT "*** ERROR MINLNG < MINCUR ***"
840 END IF
850 IF MININT < MINLNG THEN
860 PRINT "*** ERROR MININT < MINLNG ***"
870 END IF
880 IF MINBYT < MININT THEN
890 PRINT "*** ERROR MINBYT < MININT ***"
900 END IF
910 IF MINDEV < MINBYT THEN
920 PRINT "*** ERROR MINDEV < MINBYT ***"
930 END IF
940 REM MINLEN("") IS 0
950 PRINT "IF NO ERROR MESSAGES, THEN *** TEST PASSED ***"
999 END