home *** CD-ROM | disk | FTP | other *** search
GW-BASIC | 1985-08-24 | 592 b | 12 lines |
- 10 CLS :REM "DEBUG2"
- 20 PRINT "THIS PROGRAM IS TO SHOW THE NUMERICAL PRINT OPTIONS OFFERED BY THE TANDY 1K.
- 30 PRINT CINT(3.1416);CINT(0.0028);CINT(-0.3762);CINT(-8.2109)
- 40 PRINT INT(3.1416);INT(0.0028);INT(-0.3762);INT(-8.2109)
- 50 PRINT FIX(3.1416);FIX(0.0028);FIX(-0.3862);FIX(-8.2109)
- 60 PRINT CINT(3.1416*100)/100;CINT(0.0028*100)/100;CINT(-0.3762*100)/100;CINT(-8.2109*100)/100
- 70 PRINT INT(3.1415*100)/100;INT(0.0028*100)/100;INT(-0.3762*100)/100;INT(-8.2109*100)/100
- 80 PRINT INT(3.1416*1000)/1000;INT(0.0028*1000)/1000;INT(-0.3762*1000)/1000;INT(-8.2109*1000)/1000
- 90 PRINT FIX(3.1416*100)/100;FIX(0.0028*100)/100;FIX(-0.3762*100)/100;FIX(-8.2109*100)/100
- 100 X=9.9 :PRINT X
- 110 V$="#####.##" :PRINT USING V$;X
-