home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lb091.zip / GRAFDEMO.BAS < prev    next >
BASIC Source File  |  1995-09-26  |  2KB  |  74 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.     print #main, "trapclose [quit]"
  12.  
  13. [inputLoop]
  14.  
  15.     input r$ 
  16.     goto [inputLoop]
  17.  
  18. [go]
  19.  
  20.     print #main.text, "!lines" ;
  21.     input #main.text, lines
  22.     print #main, "cls" ;
  23.     for x = 1 to lines
  24.     print #main.text, "!line " ; x ;
  25.     input #main.text, line$ 
  26.     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]
  27.     print #main, line$ ;
  28.  
  29. [skip]
  30.  
  31.     next x
  32.     print #main, "flush" ;
  33.     goto [inputLoop]
  34.  
  35. [getPoint]
  36.  
  37.     print #main.text, "place " ; MouseX ; " " ; MouseY
  38.     goto [inputLoop]
  39.  
  40. [load]
  41.  
  42.     filedialog "Load GrafDemo Text", "*.gdt", fname$ 
  43.     open fname$ for input as #1
  44.     while eof( #1 ) = 0
  45.     input #1, line$ 
  46.     print #main.text, line$ 
  47.     wend
  48.     close #1
  49.     goto [inputLoop]
  50.  
  51. [save]
  52.  
  53.     filedialog "Save GrafDemo Text", "*.gdt", fname$ 
  54.     print #main.text, "!lines" ;
  55.     input #main.text, lines
  56.     open fname$ for output as #1
  57.     if lines = 0 then close #1 : goto [inputLoop]
  58.     for x = 1 to lines
  59.     print #main.text, "!line " ; x ;
  60.     input #main.text, line$ 
  61.     print #1, line$ 
  62.     next x
  63.     close #1
  64.     goto [inputLoop]
  65.  
  66. [quit]
  67.  
  68.     confirm "Quit. Really?"; answer$
  69.     if answer$ = "no" then [inputLoop]
  70.  
  71.     close #main
  72.  
  73.     end
  74.