home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Samples / WBASIC14 / WBASIC14.ZIP / WBB14.ZIP / SAMPLEW3.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-06-21  |  1.5 KB  |  75 lines
  1.  
  2.  
  3.    rem
  4.    rem This program demonstrates creating and using different fonts/sizes
  5.    rem
  6.    rem
  7.    rem It also demonstrates how to use an icon with a program
  8.    rem
  9.  
  10.    rem $ICON: 'SAMPLEW3.ICO'
  11.    rem windows size 10,2,70,19
  12.  
  13.    REM windows name "Font Demonstration"
  14.  
  15.  
  16.  
  17.    rem
  18.    rem Before going into graphics mode say we are handling paint.  If we
  19.    rem wait and do this after SCREEN command then a big bitmap would be
  20.    rem created (during SCREEN command) and then deleted (during ON PAINT).
  21.    rem
  22.    on paint gosub 1000
  23.    screen 1000
  24.    a=mouseon
  25.    mode=system(7)
  26.    position 10,50,550,450
  27.    line (0,0)-(550,450),7,bf
  28.  
  29.    color 1,7
  30.  
  31.    createfont 1,30,0,0,0,0,0,0,0,0,0,0,0,0,""
  32.    createfont 2,40,0,0,0,0,0,0,0,3,0,0,0,&h40,""
  33.    createfont 3,50,0,0,0,0,1,0,0,3,0,0,0,&h40,""
  34.    createfont 4,30,0,0,0,0,0,0,0,3,0,0,0,"COURIER"
  35.    createfont 5,40,0,0,0,0,0,1,0,3,0,0,0,"COURIER"
  36.    createfont 6,40,0,0,0,900,0,0,0,3,0,0,0,0,""
  37.  
  38.    selectfont 1
  39. '   FOR I=1 TO 1000:NEXT I
  40.    GOSUB DELAY
  41.    locate 10,40
  42.    print "Roses are red";
  43.    GOSUB DELAY
  44.    locate 70,40
  45.    selectfont 3
  46.    print "Violets are blue";
  47.    GOSUB DELAY
  48.    locate 140,40
  49.    SELECTFONT 4
  50.    print "Register this program";
  51.    GOSUB DELAY
  52.    locate 210,40
  53.    selectfont 5
  54.    print "And I'll love you.";
  55.    gosub delay
  56.    locate 280,40
  57.    selectfont 6
  58.    print "....Mark";
  59.  
  60. 100
  61.    b=mouseb
  62.    b=b and 1
  63.    if b=0 then goto 100
  64.    STOP
  65.  
  66.  
  67. DELAY:
  68.    FOR I=1 TO 2500:NEXT I
  69.    RETURN
  70.  
  71.  
  72. 1000
  73.    return
  74.  
  75.