bwBASIC/HB1/DEFSNG_3.BAS

10 REM 'DEFSNG' TEST PROGRAM
20 REM USES DOUBLE PRECISION DECLARATION CHARACTER '#'
30 DEFSNG A,B
40 A=1.234567890123456
50 B#=1.234567890123456
60 IF A=B# THEN 110
70 PRINT "A =";A
80 PRINT "B#=";B#
90 PRINT "THE TEST PASSED WITH # OVER-RIDING DEFSNG"
100 GOTO 999
110 PRINT "THE # CHARACTER OVER-RIDE FEATURE FAILED THE TEST"
999 END