home *** CD-ROM | disk | FTP | other *** search
/ Millennium Time Capsule / AC2000.BIN / disks / hbasic_1 / source / speedo.bas < prev    next >
Encoding:
BASIC Source File  |  1997-01-05  |  976 b   |  68 lines
  1.  
  2. LIBRARY "GEMVDI"
  3.  
  4. DEFINT a-z
  5. REM $option k300
  6.  
  7. DIM inv(10)
  8. DIM outv(57)
  9.  
  10. IF gdos=-1 THEN
  11.  
  12. oldhand=cvhandle
  13. REM PRINT "Got old handle"
  14.  
  15. inv (0)=1
  16. inv (1)=1
  17. inv (2)=1
  18. inv (3)=1
  19. inv (4)=1
  20. inv (5)=1
  21. inv (6)=1
  22. inv (7)=1
  23. inv (8)=1
  24. inv (9)=1
  25. inv (10)=0
  26. PRINT "Set inv() variables"
  27.  
  28. REM v_opnwk inv(),handle,outv()
  29. REM PRINT "Opening workstation..."
  30.  
  31. REM IF handle=0 THEN PRINT "Could not open workstation!" : STOP
  32.  
  33. font=vst_load_fonts
  34. REM PRINT "Loaded fonts..."
  35.  
  36. size=20
  37.  
  38. vst_height size
  39. vst_point size
  40.  
  41. REM vst_alignment 0,0
  42.  
  43. b=10
  44.  
  45. FOR a=1 TO font
  46. dummy=vqt_name (a,font$)
  47. vst_font dummy
  48. vst_color 1
  49. t$="Font"+STR$(a)+"='"+font$+"'"
  50. REM PRINT t$
  51. v_gtext 1,b,t$
  52. REM v_justified 1,b,t$,640,1,1
  53. b=b+size
  54. REM DO
  55. REM LOOP UNTIL INKEY$<>""
  56. NEXT a
  57.  
  58.  
  59. vst_font 1
  60. vst_unload_fonts
  61. REM PRINT "Unloaded fonts..."
  62. REM v_clswk
  63. REM PRINT "Deleting workstation..."
  64.  
  65. change_handle oldhand
  66. REM PRINT "Setting old handle..."
  67.  
  68. END IF