home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-386-Vol-2of3.iso / b / bbl-v-1.zip / BBL-DEMO.BAS < prev    next >
BASIC Source File  |  1992-08-22  |  831b  |  30 lines
  1. OPEN "bbl-drvr" FOR OUTPUT AS #1
  2. mode$ = CHR$(14)     'mode introducer
  3. vt$ = CHR$(11)       'vertical position introducer
  4. ht$ = CHR$(9)        'horizontal position introducer
  5. bs$ = CHR$(8)        'backspace
  6. cr$ = CHR$(13)       'carriage return
  7. lf$ = CHR$(10)       'line feed
  8.  
  9. PRINT #1, mode$; "0"    'set to mode 0 and write out two lines
  10. PRINT #1, "12.34"
  11. PRINT #1, "56.78"
  12.  
  13. PRINT #1, mode$; "1"    'just one line in mode 1
  14. PRINT #1, "12.34"
  15.                         ' ... and in mode 2, only 3 chars wide
  16. PRINT #1, mode$; "2"
  17. PRINT #1, "012"
  18.  
  19. start = TIMER
  20. PRINT #1, mode$; "1"       'in mode 1 ...
  21. FOR i = 0 TO 99
  22. PRINT #1, ht$; "1"         'go to position 1
  23. PRINT #1, USING "###"; i   'and write an integer
  24. NEXT i
  25. endt = TIMER
  26. PRINT "Elapsed time for 100 iterations = "; endt - start; "sec"
  27.  
  28. END
  29.  
  30.