Loading ...
Sorry, an error occurred while loading the content.

47496Re: [LIBERTYBASIC] Re:

Expand Messages
  • gordonsweet2000
    May 4, 2014
    • 0 Attachment
      Actually I found a simpler way with help some years ago below. But there is a limit how much I can display on my PC

      Gordon S

      nomainwin
          open "scroll test" for graphics_fs as #t
          #t "trapclose [quit]; font fixedsys; down; fill white"
          row = 20 : colm = 20 :text$="qwertyuiop 123456"
          for n = 1 to 500
                        #t "place ";colm;" ";row
                        #t "\";n;" ";text$ : colm = colm +200
                        if colm > 900 then colm = 20 : row = row + 17
          next n
          #t "flush" : wait

      [quit]
              close #t : end
    • Show all 7 messages in this topic