home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / sharewar / win31x / program / liberty / examples.shr / GRAFDEMO.BAS < prev    next >
Encoding:
BASIC Source File  |  1995-06-20  |  1.5 KB  |  64 lines
  1.  
  2.  
  3.     nomainwin
  4.  
  5.     texteditor #main.text, 10, 10, 175, 200
  6.     button #main, "Go!", [go], LR, 10, 10
  7.     menu #main, "&Text", "&Load", [load], "&Save", [save]
  8.     WindowWidth = 500 : WindowHeight = 265
  9.     open "Graf Demo" for graphics_nsb as #main
  10.     print #main, "when leftButtonDown [getPoint]"
  11.  
  12. [inputLoop]
  13.  
  14.     input r$ 
  15.     goto [inputLoop]
  16.  
  17. [go]
  18.  
  19.     print #main.text, "!lines" ;
  20.     input #main.text, lines
  21.     print #main, "cls" ;
  22.     for x = 1 to lines
  23.     print #main.text, "!line " ; x ;
  24.     input #main.text, line$ 
  25.     if word$( line$, 1 ) = "times" and x < lines then i = val(word$(line$, 2)) : x = x + 1 : print #main.text, "!line "; x : input #main.text, line$ : for x = 1 to i : print #main, line$ : next x : goto [skip]
  26.     print #main, line$ ;
  27.  
  28. [skip]
  29.  
  30.     next x
  31.     print #main, "flush" ;
  32.     goto [inputLoop]
  33.  
  34. [getPoint]
  35.  
  36.     print #main.text, "place " ; MouseX ; " " ; MouseY
  37.     goto [inputLoop]
  38.  
  39. [load]
  40.  
  41.     filedialog "Load GrafDemo Text", "*.gdt", fname$ 
  42.     open fname$ for input as #1
  43.     while eof( #1 ) = 0
  44.     input #1, line$ 
  45.     print #main.text, line$ 
  46.     wend
  47.     close #1
  48.     goto [inputLoop]
  49.  
  50. [save]
  51.  
  52.     filedialog "Save GrafDemo Text", "*.gdt", fname$ 
  53.     print #main.text, "!lines" ;
  54.     input #main.text, lines
  55.     open fname$ for output as #1
  56.     if lines = 0 then close #1 : goto [inputLoop]
  57.     for x = 1 to lines
  58.     print #main.text, "!line " ; x ;
  59.     input #main.text, line$ 
  60.     print #1, line$ 
  61.     next x
  62.     close #1
  63.     goto [inputLoop]
  64.