Basic FORM filler

[NOVARSEG]

Moved from Discussion to here

appends text with a cursor. Can move text with left or right arrow keys
 can append numbers at present. Very basic code.

I see my vpos should have been hpos . i really dont understand the AND OR at the end of the PUTs but it does seem to work

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(1024, 768, 32)
2. DIM x AS INTEGER
3. DIM vpos AS INTEGER
4. DIM kh AS LONG
5. DIM CurON(300) AS INTEGER
6. DIM CurOFF(300) AS INTEGER
7. LINE (0, 0)-(12, 12), _RGB32(255, 255, 255), BF
8. GET (0, 7)-(9, 9), CurON()
9. LINE (0, 0)-(12, 12), _RGB32(0, 0, 0), BF
10. GET (0, 7)-(9, 9), CurOFF()
11.  
12. vpos = 100
13. h& = _NEWIMAGE(1024, 768, 32)
14.  
15. DIM Msg AS STRING
16. Msg = " FORM FILLER"
17.  
18.  
19. _PRINTSTRING (vpos, 10), Msg
20. _SOURCE h&
21. _DEST 0
22.  
23. _PUTIMAGE
24.  
25.  
26. PUT (vpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurON(), OR
27.  
28. DO
29.  
30.     DO
31.  
32.         _LIMIT 100
33.  
34.         kh = _KEYHIT
35.         IF kh > 0 THEN EXIT DO
36.  
37.     LOOP
38.  
39.     IF kh > 47 AND kh < 58 THEN
40.  
41.         PUT (vpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurOFF(), AND
42.         'SLEEP
43.         Msg = Msg + CHR$(kh)
44.         _PRINTSTRING (vpos, 10), Msg
45.  
46.         PUT (vpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurON(), OR
47.     END IF
48.  
49.     IF kh = 27 THEN EXIT DO
50.     IF kh = 19200 AND vpos > 0 THEN 'left arrow
51.         PUT (vpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurOFF(), AND
52.         vpos = vpos - 1
53.         _PRINTSTRING (vpos, 10), Msg
54.         PUT (vpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurON(), OR
55.     END IF
56.  
57.     IF kh = 19712 AND vpos < _WIDTH - LEN(Msg) THEN 'right arrow
58.         PUT (vpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurOFF(), AND
59.         vpos = vpos + 1
60.         _PRINTSTRING (vpos, 10), Msg
61.         PUT (vpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurON(), OR
62.     END IF
63.  
64.     _SOURCE h&
65.     _DEST 0
66.  
67.     _PUTIMAGE
68.  
69. LOOP
70. END

Some bugs fixed in this one

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(1024, 768, 32)
2. DIM x AS INTEGER
3. DIM Hpos AS INTEGER
4. DIM kh AS LONG
5. DIM H AS LONG
6. DIM CurON(300) AS INTEGER
7. DIM CurOFF(300) AS INTEGER
8. LINE (0, 0)-(12, 12), _RGB32(255, 255, 255), BF
9. GET (0, 7)-(9, 9), CurON()
10. LINE (0, 0)-(12, 12), _RGB32(0, 0, 0), BF
11. GET (0, 7)-(9, 9), CurOFF()
12.  
13. Hpos = 0
14. H = _NEWIMAGE(1024, 768, 32)
15.  
16. DIM Msg AS STRING
17. Msg = " FORM FILLER"
18.  
19.  
20. _PRINTSTRING (Hpos, 10), Msg
21. _SOURCE H
22. _DEST 0
23.  
24. _PUTIMAGE
25.  
26.  
27. PUT (Hpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurON(), OR
28.  
29. DO
30.  
31.     DO
32.         _LIMIT 100
33.         kh = _KEYHIT
34.         IF kh > 0 THEN EXIT DO
35.  
36.     LOOP
37.  
38.     IF kh > 47 AND kh < 58 THEN
39.  
40.         IF Hpos + _PRINTWIDTH(CHR$(kh)) + _PRINTWIDTH(Msg) + 12 < _WIDTH THEN
41.             PUT (Hpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurOFF(), AND
42.             Msg = Msg + CHR$(kh)
43.             _PRINTSTRING (Hpos, 10), Msg
44.             PUT (Hpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurON(), OR
45.         END IF
46.  
47.     END IF
48.  
49.     IF kh = 27 THEN EXIT DO
50.     IF kh = 19200 AND Hpos > 0 THEN 'left arrow
51.         PUT (Hpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurOFF(), AND
52.         Hpos = Hpos - 1
53.         _PRINTSTRING (Hpos, 10), Msg
54.         PUT (Hpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurON(), OR
55.     END IF
56.  
57.     IF kh = 19712 AND Hpos < _WIDTH - (_PRINTWIDTH(Msg) + 10) THEN 'right arrow
58.         PUT (Hpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurOFF(), AND
59.         Hpos = Hpos + 1
60.         _PRINTSTRING (Hpos, 10), Msg
61.         PUT (Hpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurON(), OR
62.     END IF
63.  
64.     _SOURCE H
65.     _DEST 0
66.     _PUTIMAGE
67.  
68. LOOP
69. END

Can enter most any character now.  Backspace works

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(1024, 768, 32)
2. DIM x AS INTEGER
3. DIM Hpos AS INTEGER
4. DIM kh AS LONG
5. DIM H AS LONG
6. DIM CurON(300) AS INTEGER
7. DIM CurOFF(300) AS INTEGER
8. LINE (0, 0)-(12, 12), _RGB32(255, 255, 255), BF
9. GET (0, 7)-(9, 9), CurON()
10. LINE (0, 0)-(12, 12), _RGB32(0, 0, 0), BF
11. GET (0, 7)-(9, 9), CurOFF()
12.  
13. Hpos = 0
14. H = _NEWIMAGE(1024, 768, 32)
15.  
16. DIM Msg AS STRING
17. Msg = " FORM FILLER"
18.  
19.  
20. _PRINTSTRING (Hpos, 10), Msg
21. _SOURCE H
22. _DEST 0
23.  
24. _PUTIMAGE
25.  
26.  
27. PUT (Hpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurON(), OR
28.  
29. DO
30.  
31.     DO
32.         _LIMIT 100
33.         kh = _KEYHIT
34.         IF kh > 0 THEN EXIT DO
35.  
36.     LOOP
37.  
38.     IF kh > 31 AND kh < 127 THEN 'append
39.  
40.         IF Hpos + _PRINTWIDTH(CHR$(kh)) + _PRINTWIDTH(Msg) + 12 < _WIDTH THEN
41.             PUT (Hpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurOFF(), AND
42.             Msg = Msg + CHR$(kh)
43.             _PRINTSTRING (Hpos, 10), Msg
44.             PUT (Hpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurON(), OR
45.         END IF
46.  
47.     END IF
48.  
49.  
50.     IF kh = 8 AND LEN(Msg) > 1 THEN 'BACKSPACE
51.  
52.         PUT (Hpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurOFF(), AND
53.         Msg = LEFT$(Msg, LEN(Msg) - 1)
54.         _PRINTSTRING (Hpos, 10), Msg + " "
55.         PUT (Hpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurON(), OR
56.  
57.     END IF
58.  
59.  
60.  
61.  
62.  
63.     IF kh = 27 THEN EXIT DO
64.     IF kh = 19200 AND Hpos > 0 THEN 'left arrow
65.         PUT (Hpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurOFF(), AND
66.         Hpos = Hpos - 1
67.         _PRINTSTRING (Hpos, 10), Msg
68.         PUT (Hpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurON(), OR
69.     END IF
70.  
71.     IF kh = 19712 AND Hpos < _WIDTH - (_PRINTWIDTH(Msg) + 10) THEN 'right arrow
72.         PUT (Hpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurOFF(), AND
73.         Hpos = Hpos + 1
74.         _PRINTSTRING (Hpos, 10), Msg
75.         PUT (Hpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurON(), OR
76.     END IF
77.  
78.     _SOURCE H
79.     _DEST 0
80.     _PUTIMAGE
81.  
82. LOOP
83. END

[NOVARSEG]

The next thing to do is word wrap.  This is tricky because each line of text is stored in an array. The text array must work with append, insert, delete, backspace, home, end , enter

The text array is movable anywhere on the screen with arrow keys

The width of text array is adjustable.    Line spacing is adjustable.

This code shows a very basic word wrap that almost works with backspace.

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(1024, 768, 32)
2. DIM x AS INTEGER
3. DIM oldHpos AS INTEGER
4. DIM Hpos AS INTEGER
5. DIM Vpos AS INTEGER
6. DIM HLine AS INTEGER
7. DIM kh AS LONG
8. DIM H AS LONG
9. DIM CurON(300) AS INTEGER
10. DIM CurOFF(300) AS INTEGER
11.  
12. DIM Lspace AS INTEGER ' line spacing
13. Lspace = 12 ' pixels
14. LINE (0, 0)-(12, 12), _RGB32(255, 255, 255), BF
15. GET (0, 7)-(9, 9), CurON()
16. LINE (0, 0)-(12, 12), _RGB32(0, 0, 0), BF
17. GET (0, 7)-(9, 9), CurOFF()
18.  
19. Hpos = 0
20. Vpos = 10
21. oldHpos = 0
22. H = _NEWIMAGE(1024, 768, 32)
23.  
24. DIM msg(50) AS STRING
25. msg(0) = " FORM FILLER"
26.  
27.  
28. _PRINTSTRING (Hpos, 10), msg(HLine)
29. _SOURCE H
30. _DEST 0
31.  
32. _PUTIMAGE
33.  
34.  
35. PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurON(), OR
36.  
37. DO
38.     LL1:
39.     DO
40.         _LIMIT 100
41.         kh = _KEYHIT
42.         IF kh > 0 THEN EXIT DO
43.  
44.     LOOP
45.  
46.     IF kh > 31 AND kh < 127 THEN 'append
47.  
48.  
49.         IF Hpos + _PRINTWIDTH(CHR$(kh)) + _PRINTWIDTH(msg(HLine)) + 12 < _WIDTH THEN
50.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurOFF(), AND
51.             msg(HLine) = msg(HLine) + CHR$(kh)
52.             _PRINTSTRING (Hpos, (Vpos + HLine * Lspace)), msg(HLine)
53.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurON(), OR
54.         END IF
55.  
56.         IF Hpos + _PRINTWIDTH(CHR$(kh)) + _PRINTWIDTH(msg(HLine)) + 12 >= _WIDTH THEN
57.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurOFF(), AND
58.             HLine = HLine + 1: GOTO LL1
59.         END IF
60.  
61.  
62.     END IF
63.  
64.  
65.     IF kh = 8 AND LEN(msg(HLine)) > 1 THEN 'BACKSPACE
66.  
67.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
68.         msg(HLine) = LEFT$(msg(HLine), LEN(msg(HLine)) - 1)
69.         _PRINTSTRING (Hpos, Vpos + HLine * Lspace), msg(HLine) + " "
70.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
71.  
72.     END IF
73.  
74.     IF kh = 27 THEN EXIT DO
75.  
76.     IF kh = 19200 AND Hpos > 0 THEN 'left arrow
77.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurOFF(), AND
78.         Hpos = Hpos - 1
79.         _PRINTSTRING (Hpos, 10), msg(HLine)
80.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurON(), OR
81.     END IF
82.  
83.     IF kh = 19712 AND Hpos < _WIDTH - (_PRINTWIDTH(msg(HLine)) + 10) THEN 'right arrow
84.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurOFF(), AND
85.         Hpos = Hpos + 1
86.         _PRINTSTRING (Hpos, 10), msg(HLine)
87.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurON(), OR
88.     END IF
89.  
90.     _SOURCE H
91.     _DEST 0
92.     _PUTIMAGE
93.  
94. LOOP
95. END

Backspace works now. Still some bugs to work out when moving text from left most screen position. Text is not movable as an array yet.

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(1024, 768, 32)
2. DIM x AS INTEGER
3. DIM oldHpos AS INTEGER
4. DIM Hpos AS INTEGER
5. DIM Vpos AS INTEGER
6. DIM HLine AS INTEGER
7. DIM kh AS LONG
8. DIM H AS LONG
9. DIM CurON(300) AS INTEGER
10. DIM CurOFF(300) AS INTEGER
11.  
12. DIM Lspace AS INTEGER ' line spacing
13. Lspace = 15 ' pixels
14. LINE (0, 0)-(12, 12), _RGB32(255, 255, 255), BF
15. GET (0, 7)-(9, 9), CurON()
16. LINE (0, 0)-(12, 12), _RGB32(0, 0, 0), BF
17. GET (0, 7)-(9, 9), CurOFF()
18.  
19. Hpos = 0
20. Vpos = 10
21. oldHpos = 0
22. H = _NEWIMAGE(1024, 768, 32)
23.  
24. DIM msg(50) AS STRING
25. msg(0) = "FORM FILLER"
26.  
27.  
28. _PRINTSTRING (Hpos, 10), msg(HLine)
29. _SOURCE H
30. _DEST 0
31.  
32. _PUTIMAGE
33.  
34.  
35. PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurON(), OR
36.  
37. DO
38.     LL1:
39.     DO
40.         _LIMIT 100
41.         kh = _KEYHIT
42.         IF kh > 0 THEN EXIT DO
43.  
44.     LOOP
45.  
46.     IF kh > 31 AND kh < 127 THEN 'append
47.  
48.  
49.         IF Hpos + _PRINTWIDTH(CHR$(kh)) + _PRINTWIDTH(msg(HLine)) + 12 < _WIDTH THEN
50.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurOFF(), AND
51.             msg(HLine) = msg(HLine) + CHR$(kh)
52.             _PRINTSTRING (Hpos, (Vpos + HLine * Lspace)), msg(HLine)
53.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurON(), OR
54.         END IF
55.  
56.         IF Hpos + _PRINTWIDTH(CHR$(kh)) + _PRINTWIDTH(msg(HLine)) + 12 >= _WIDTH THEN
57.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurOFF(), AND
58.             HLine = HLine + 1: GOTO LL1
59.         END IF
60.  
61.  
62.     END IF
63.  
64.  
65.     '****  'BACKSPACE
66.     IF kh = 8 AND LEN(msg(HLine)) = 0 THEN
67.         'erases cursor before a line feed up
68.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
69.  
70.         IF HLine > 0 THEN HLine = HLine - 1
71.     END IF
72.  
73.     IF kh = 8 AND LEN(msg(HLine)) > 0 THEN
74.  
75.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
76.         msg(HLine) = LEFT$(msg(HLine), LEN(msg(HLine)) - 1)
77.         _PRINTSTRING (Hpos, Vpos + HLine * Lspace), msg(HLine) + " "
78.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
79.  
80.     END IF
81.  
82.     '****
83.  
84.  
85.  
86.     IF kh = 27 THEN EXIT DO
87.  
88.     IF kh = 19200 AND Hpos > 0 THEN 'left arrow
89.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurOFF(), AND
90.         Hpos = Hpos - 1
91.         _PRINTSTRING (Hpos, 10), msg(HLine)
92.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurON(), OR
93.     END IF
94.  
95.     IF kh = 19712 AND Hpos < _WIDTH - (_PRINTWIDTH(msg(HLine)) + 10) THEN 'right arrow
96.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurOFF(), AND
97.         Hpos = Hpos + 1
98.         _PRINTSTRING (Hpos, 10), msg(HLine)
99.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurON(), OR
100.     END IF
101.  
102.     _SOURCE H
103.     _DEST 0
104.     _PUTIMAGE
105.  
106. LOOP
107. END

"Enter" key works now and a bug was fixed, Text arrays still not movable as a paragraph

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(1025, 768, 32)
2. DIM x AS INTEGER
3. DIM oldHpos AS INTEGER
4. DIM Hpos AS INTEGER
5. DIM Vpos AS INTEGER
6. DIM HLine AS INTEGER
7. DIM kh AS LONG
8. DIM H AS LONG
9. DIM CurON(300) AS INTEGER
10. DIM CurOFF(300) AS INTEGER
11.  
12. DIM Lspace AS INTEGER ' line spacing
13. Lspace = 15 ' pixels
14. LINE (0, 0)-(12, 12), _RGB32(255, 255, 255), BF
15. GET (0, 7)-(9, 9), CurON()
16. LINE (0, 0)-(12, 12), _RGB32(0, 0, 0), BF
17. GET (0, 7)-(9, 9), CurOFF()
18.  
19. Hpos = 0
20. Vpos = 10
21. oldHpos = 0
22. H = _NEWIMAGE(1024, 768, 32)
23.  
24. DIM msg(50) AS STRING
25. msg(0) = "FORM FILLER"
26.  
27.  
28. _PRINTSTRING (Hpos, 10), msg(HLine)
29. _SOURCE H
30. _DEST 0
31.  
32. _PUTIMAGE
33.  
34.  
35. PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurON(), OR
36.  
37. DO
38.     LL1:
39.     DO
40.         _LIMIT 100
41.         kh = _KEYHIT
42.         IF kh > 0 THEN EXIT DO
43.  
44.     LOOP
45.  
46.  
47.     IF kh = 13 THEN 'ENTER
48.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurOFF(), AND
49.         HLine = HLine + 1
50.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurON(), OR
51.         GOTO LL1 'line feed
52.     END IF
53.  
54.  
55.     IF kh > 31 AND kh < 127 THEN 'append
56.  
57.  
58.         IF Hpos + _PRINTWIDTH(CHR$(kh)) + _PRINTWIDTH(msg(HLine)) + 12 < _WIDTH THEN
59.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurOFF(), AND
60.             msg(HLine) = msg(HLine) + CHR$(kh)
61.             _PRINTSTRING (Hpos, (Vpos + HLine * Lspace)), msg(HLine)
62.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurON(), OR
63.         END IF
64.  
65.         IF Hpos + _PRINTWIDTH(CHR$(kh)) + _PRINTWIDTH(msg(HLine)) + 12 >= _WIDTH THEN
66.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurOFF(), AND
67.             HLine = HLine + 1: GOTO LL1 'line feed
68.         END IF
69.  
70.  
71.     END IF
72.  
73.  
74.     '****  'BACKSPACE
75.     IF kh = 8 AND LEN(msg(HLine)) = 0 THEN
76.         'erases cursor before a line feed up
77.  
78.         IF HLine > 0 THEN
79.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
80.         END IF
81.  
82.         IF HLine > 0 THEN HLine = HLine - 1
83.     END IF
84.  
85.     IF kh = 8 AND LEN(msg(HLine)) > 0 THEN
86.  
87.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
88.         msg(HLine) = LEFT$(msg(HLine), LEN(msg(HLine)) - 1)
89.         _PRINTSTRING (Hpos, Vpos + HLine * Lspace), msg(HLine) + " "
90.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
91.  
92.     END IF
93.  
94.     '****
95.  
96.  
97.  
98.     IF kh = 27 THEN EXIT DO
99.  
100.     IF kh = 19200 AND Hpos > 0 THEN 'left arrow
101.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurOFF(), AND
102.         Hpos = Hpos - 1
103.         _PRINTSTRING (Hpos, 10), msg(HLine)
104.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurON(), OR
105.     END IF
106.  
107.     IF kh = 19712 AND Hpos < _WIDTH - (_PRINTWIDTH(msg(HLine)) + 10) THEN 'right arrow
108.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurOFF(), AND
109.         _PRINTSTRING (Hpos, 10), " "
110.         Hpos = Hpos + 1
111.         _PRINTSTRING (Hpos, 10), msg(HLine)
112.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurON(), OR
113.     END IF
114.  
115.     _SOURCE H
116.     _DEST 0
117.     _PUTIMAGE
118.  
119. LOOP
120. END

[NOVARSEG]

 Entire text array moves right .  Useful for moving a paragraph.

Try right arrow, enter key and backspace

Need to try a green background and save to a file.

A lot more code to do.

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(1025, 768, 32)
2. DIM x AS INTEGER
3. DIM oldHpos AS INTEGER
4. DIM Hpos AS INTEGER
5. DIM Vpos AS INTEGER
6. DIM HLine AS INTEGER
7. DIM kh AS LONG
8. DIM H AS LONG
9. DIM CurON(300) AS INTEGER
10. DIM CurOFF(300) AS INTEGER
11.  
12. DIM Lspace AS INTEGER ' line spacing
13. Lspace = 20 ' pixels
14. LINE (0, 0)-(12, 12), _RGB32(255, 255, 255), BF
15. GET (0, 7)-(9, 9), CurON()
16. LINE (0, 0)-(12, 12), _RGB32(0, 0, 0), BF
17. GET (0, 7)-(9, 9), CurOFF()
18.  
19. Hpos = 0 'horizontal pixel  position
20. Vpos = 10 'vertical pixel  position
21. oldHpos = 0
22. H = _NEWIMAGE(1024, 768, 32)
23.  
24. DIM msg(50) AS STRING
25. msg(0) = "FORM FILLER"
26.  
27.  
28. _PRINTSTRING (Hpos, 10), msg(HLine)
29. _SOURCE H
30. _DEST 0
31.  
32. '_PUTIMAGE
33.  
34.  
35. PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurON(), OR
36.  
37. DO
38.     LL1:
39.     DO
40.         _LIMIT 100
41.         kh = _KEYHIT
42.         IF kh > 0 THEN EXIT DO
43.  
44.     LOOP
45.  
46.  
47.     IF kh = 13 THEN 'ENTER
48.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurOFF(), AND
49.         HLine = HLine + 1
50.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurON(), OR
51.         GOTO LL1 'line feed
52.     END IF
53.  
54.  
55.     IF kh > 31 AND kh < 127 THEN 'append
56.  
57.  
58.         IF Hpos + _PRINTWIDTH(CHR$(kh)) + _PRINTWIDTH(msg(HLine)) + 12 < _WIDTH THEN
59.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurOFF(), AND
60.             msg(HLine) = msg(HLine) + CHR$(kh)
61.             _PRINTSTRING (Hpos, (Vpos + HLine * Lspace)), msg(HLine)
62.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurON(), OR
63.         END IF
64.  
65.         IF Hpos + _PRINTWIDTH(CHR$(kh)) + _PRINTWIDTH(msg(HLine)) + 12 >= _WIDTH THEN
66.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurOFF(), AND
67.             HLine = HLine + 1: GOTO LL1 'line feed
68.         END IF
69.  
70.  
71.     END IF
72.  
73.  
74.     '****  'BACKSPACE
75.     IF kh = 8 AND LEN(msg(HLine)) = 0 THEN
76.  
77.         IF HLine > 0 THEN 'erases cursor before a line feed up
78.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
79.         END IF
80.  
81.         IF HLine > 0 THEN HLine = HLine - 1
82.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
83.         GOTO LL1
84.     END IF
85.  
86.     IF kh = 8 AND LEN(msg(HLine)) > 0 THEN
87.  
88.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
89.         msg(HLine) = LEFT$(msg(HLine), LEN(msg(HLine)) - 1)
90.         _PRINTSTRING (Hpos, Vpos + HLine * Lspace), msg(HLine) + " "
91.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
92.  
93.     END IF
94.  
95.     '****  end BACKSPACE
96.  
97.     IF kh = 27 THEN EXIT DO
98.  
99.     IF kh = 19200 AND Hpos > 0 THEN 'left arrow
100.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurOFF(), AND
101.         Hpos = Hpos - 1
102.         _PRINTSTRING (Hpos, 10), msg(HLine)
103.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurON(), OR
104.     END IF
105.  
106.  
107.     '****
108.     IF kh = 19712 AND Hpos < _WIDTH - (_PRINTWIDTH(msg(HLine)) + 10) THEN 'right arrow
109.         HLine = 0
110.         DO
111.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
112.             _PRINTSTRING (Hpos, Vpos + HLine * Lspace), " "
113.             Hpos = Hpos + 1
114.             _PRINTSTRING (Hpos, Vpos + HLine * Lspace), msg(HLine)
115.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
116.             Hpos = Hpos - 1 '- 1 because this is an array.
117.  
118.             IF msg(HLine + 1) = "" THEN
119.                 Hpos = Hpos + 1
120.                 EXIT DO
121.             END IF
122.  
123.             HLine = HLine + 1
124.  
125.         LOOP
126.     END IF
127.     '****
128.  
129.     '   _SOURCE H
130.     '  _DEST 0
131.     ' _PUTIMAGE
132.  
133. LOOP
134. END

left arrow works now

move paragraph left or right

move paragraph up down next

Code: QB64: [Select]

1.  SCREEN _NEWIMAGE(1024, 768, 32)
2. DIM x AS INTEGER
3. DIM oldHpos AS INTEGER
4. DIM Hpos AS INTEGER
5. DIM Vpos AS INTEGER
6. DIM HLine AS INTEGER
7. DIM kh AS LONG
8. DIM H AS LONG
9. DIM CurON(300) AS INTEGER
10. DIM CurOFF(300) AS INTEGER
11.  
12. DIM Lspace AS INTEGER ' line spacing
13. Lspace = 20 ' pixels
14. LINE (0, 0)-(12, 12), _RGB32(255, 255, 255), BF
15. GET (0, 7)-(9, 9), CurON()
16. LINE (0, 0)-(12, 12), _RGB32(0, 0, 0), BF
17. GET (0, 7)-(9, 9), CurOFF()
18.  
19. Hpos = 0 'horizontal pixel  position
20. Vpos = 10 'vertical pixel  position
21. oldHpos = 0
22. H = _NEWIMAGE(1024, 768, 32)
23.  
24. DIM msg(50) AS STRING
25. msg(0) = "FORM FILLER"
26.  
27.  
28. _PRINTSTRING (Hpos, 10), msg(HLine)
29. _SOURCE H
30. _DEST 0
31.  
32. '_PUTIMAGE
33.  
34.  
35. PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurON(), OR
36.  
37. DO
38.     LL1:
39.     DO
40.         _LIMIT 100
41.         kh = _KEYHIT
42.         IF kh > 0 THEN EXIT DO
43.  
44.     LOOP
45.  
46.  
47.     IF kh = 13 THEN 'ENTER
48.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurOFF(), AND
49.         HLine = HLine + 1
50.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurON(), OR
51.         GOTO LL1 'line feed
52.     END IF
53.  
54.  
55.     IF kh > 31 AND kh < 127 THEN 'append
56.  
57.  
58.         IF Hpos + _PRINTWIDTH(CHR$(kh)) + _PRINTWIDTH(msg(HLine)) + 12 < _WIDTH THEN
59.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurOFF(), AND
60.             msg(HLine) = msg(HLine) + CHR$(kh)
61.             _PRINTSTRING (Hpos, (Vpos + HLine * Lspace)), msg(HLine)
62.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurON(), OR
63.         END IF
64.  
65.         IF Hpos + _PRINTWIDTH(CHR$(kh)) + _PRINTWIDTH(msg(HLine)) + 12 >= _WIDTH THEN
66.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurOFF(), AND
67.             HLine = HLine + 1: GOTO LL1 'line feed
68.         END IF
69.  
70.  
71.     END IF
72.  
73.  
74.     '****  'BACKSPACE
75.     IF kh = 8 AND LEN(msg(HLine)) = 0 THEN
76.  
77.         IF HLine > 0 THEN 'erases cursor before a line feed up
78.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
79.         END IF
80.  
81.         IF HLine > 0 THEN HLine = HLine - 1
82.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
83.         GOTO LL1
84.     END IF
85.  
86.     IF kh = 8 AND LEN(msg(HLine)) > 0 THEN
87.  
88.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
89.         msg(HLine) = LEFT$(msg(HLine), LEN(msg(HLine)) - 1)
90.         _PRINTSTRING (Hpos, Vpos + HLine * Lspace), msg(HLine) + " "
91.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
92.  
93.     END IF
94.  
95.     '****  end BACKSPACE
96.  
97.     IF kh = 27 THEN EXIT DO
98.  
99.     IF kh = 19200 AND Hpos > 0 THEN 'left arrow
100.  
101.         HLine = 0
102.         DO
103.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
104.             _PRINTSTRING (Hpos, Vpos + HLine * Lspace), " "
105.             Hpos = Hpos - 1
106.             _PRINTSTRING (Hpos, Vpos + HLine * Lspace), msg(HLine)
107.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
108.             Hpos = Hpos + 1 '- 1 because this is an array.
109.  
110.             IF msg(HLine + 1) = "" THEN
111.                 Hpos = Hpos - 1
112.                 EXIT DO
113.             END IF
114.  
115.             HLine = HLine + 1
116.  
117.         LOOP
118.  
119.  
120.     END IF
121.  
122.  
123.     '****
124.     IF kh = 19712 AND Hpos < _WIDTH - (_PRINTWIDTH(msg(HLine)) + 10) THEN 'right arrow
125.         HLine = 0
126.         DO
127.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
128.             _PRINTSTRING (Hpos, Vpos + HLine * Lspace), " "
129.             Hpos = Hpos + 1
130.             _PRINTSTRING (Hpos, Vpos + HLine * Lspace), msg(HLine)
131.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
132.             Hpos = Hpos - 1 '- 1 because this is an array.
133.  
134.             IF msg(HLine + 1) = "" THEN
135.                 Hpos = Hpos + 1
136.                 EXIT DO
137.             END IF
138.  
139.             HLine = HLine + 1
140.  
141.         LOOP
142.     END IF
143.     '****
144.  
145.     '   _SOURCE H
146.     '  _DEST 0
147.     ' _PUTIMAGE
148.  
149. LOOP
150. END

some bugs fixed.  up down arrows notworking yet.

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(1025, 768, 32)
2. DIM x AS INTEGER
3. DIM oldHpos AS INTEGER
4. DIM Hpos AS INTEGER
5. DIM Vpos AS INTEGER
6. DIM HLine AS INTEGER
7. DIM maxHline AS INTEGER
8. DIM kh AS LONG
9. DIM H AS LONG
10. DIM CurON(300) AS INTEGER
11. DIM CurOFF(300) AS INTEGER
12.  
13. DIM Lspace AS INTEGER ' line spacing
14. Lspace = 20 ' pixels
15. LINE (0, 0)-(12, 12), _RGB32(255, 255, 255), BF
16. GET (0, 7)-(9, 9), CurON()
17. LINE (0, 0)-(12, 12), _RGB32(0, 0, 0), BF
18. GET (0, 7)-(9, 9), CurOFF()
19.  
20. Hpos = 0 'horizontal pixel  position
21. Vpos = 10 'vertical pixel  position
22. oldHpos = 0
23. H = _NEWIMAGE(1024, 768, 32)
24.  
25. DIM msg(50) AS STRING
26. msg(0) = "FORM FILLER"
27.  
28.  
29. _PRINTSTRING (Hpos, 10), msg(HLine)
30. _SOURCE H
31. _DEST 0
32.  
33. '_PUTIMAGE
34.  
35.  
36. PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurON(), OR
37.  
38. DO
39.     LL1:
40.     DO
41.         _LIMIT 100
42.         kh = _KEYHIT
43.         IF kh > 0 THEN EXIT DO
44.  
45.     LOOP
46.     ' PRINT kh
47.  
48.     IF kh = 13 THEN 'ENTER
49.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurOFF(), AND
50.         HLine = HLine + 1 'line feed
51.         maxHline = HLine
52.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurON(), OR
53.         GOTO LL1
54.     END IF
55.  
56.  
57.     IF kh > 31 AND kh < 127 THEN 'append
58.  
59.  
60.         IF Hpos + _PRINTWIDTH(CHR$(kh)) + _PRINTWIDTH(msg(HLine)) + 12 < _WIDTH THEN
61.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurOFF(), AND
62.             msg(HLine) = msg(HLine) + CHR$(kh)
63.             _PRINTSTRING (Hpos, (Vpos + HLine * Lspace)), msg(HLine)
64.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurON(), OR
65.         END IF
66.  
67.         IF Hpos + _PRINTWIDTH(CHR$(kh)) + _PRINTWIDTH(msg(HLine)) + 12 >= _WIDTH THEN
68.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurOFF(), AND
69.             HLine = HLine + 1: GOTO LL1 'line feed
70.         END IF
71.  
72.  
73.     END IF
74.  
75.  
76.     '****  'BACKSPACE
77.     IF kh = 8 AND LEN(msg(HLine)) = 0 THEN
78.  
79.         IF HLine > 0 THEN 'erases cursor before a line feed up
80.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
81.         END IF
82.  
83.         IF HLine > 0 THEN HLine = HLine - 1
84.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
85.         GOTO LL1
86.     END IF
87.  
88.     IF kh = 8 AND LEN(msg(HLine)) > 0 THEN
89.  
90.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
91.         msg(HLine) = LEFT$(msg(HLine), LEN(msg(HLine)) - 1)
92.         _PRINTSTRING (Hpos, Vpos + HLine * Lspace), msg(HLine) + " "
93.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
94.  
95.     END IF
96.  
97.     '****  end BACKSPACE
98.  
99.     IF kh = 27 THEN EXIT DO
100.  
101.  
102.     IF kh = 20480 THEN
103.         HLine = 0
104.     END IF
105.  
106.  
107.     IF kh = 19200 AND Hpos > 0 THEN 'left arrow
108.  
109.         HLine = 0
110.         DO
111.             'PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
112.             _PRINTSTRING (Hpos, Vpos + HLine * Lspace), " "
113.             Hpos = Hpos - 1
114.             _PRINTSTRING (Hpos, Vpos + HLine * Lspace), msg(HLine)
115.             'PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
116.             Hpos = Hpos + 1 '- 1 because this is an array.
117.  
118.             IF maxHline = HLine THEN
119.                 PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
120.                 Hpos = Hpos - 1
121.                 PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
122.  
123.                 EXIT DO
124.             END IF
125.  
126.             HLine = HLine + 1
127.  
128.         LOOP
129.  
130.  
131.     END IF
132.  
133.  
134.     '****
135.     IF kh = 19712 AND Hpos < _WIDTH - (_PRINTWIDTH(msg(HLine)) + 10) THEN 'right arrow
136.         HLine = 0
137.         DO
138.             'PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
139.             _PRINTSTRING (Hpos, Vpos + HLine * Lspace), " "
140.             Hpos = Hpos + 1
141.             _PRINTSTRING (Hpos, Vpos + HLine * Lspace), msg(HLine)
142.             'PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
143.             Hpos = Hpos - 1 '- 1 because this is an array.
144.  
145.             IF maxHline = HLine THEN
146.                 PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
147.                 Hpos = Hpos + 1
148.                 PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
149.  
150.                 EXIT DO
151.             END IF
152.  
153.             HLine = HLine + 1
154.  
155.         LOOP
156.     END IF
157.     '****
158.  
159.     '   _SOURCE H
160.     '  _DEST 0
161.     ' _PUTIMAGE
162.  
163. LOOP
164. END
165.  

[NOVARSEG]

Move a paragraph around the screen

Fast / slow movement depending on how long the arrow keys are held down.

Back space works.   no something went wrong

bug fixed

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(1024, 768, 32)
2.  
3. DIM Hpos AS INTEGER
4. DIM Vpos AS INTEGER
5.  
6. DIM maxHline AS INTEGER 'max array index for a cursor and or text
7. DIM kh AS LONG
8. DIM H AS LONG
9. DIM CurON(300) AS INTEGER
10. DIM CurOFF(300) AS INTEGER
11.  
12. DIM ParaWide AS INTEGER 'Tight Left,word wrap paragraph of this width
13. ParaWide = 25
14. DIM Dec AS INTEGER
15. DIM text AS STRING
16. DIM P AS INTEGER
17. DIM Inc AS INTEGER
18. DIM f1 AS INTEGER
19.  
20. DIM Lspace AS INTEGER ' line spacing
21. Lspace = 15 ' pixels
22.  
23. LINE (0, 0)-(12, 12), _RGB32(255, 255, 255), BF
24. GET (0, 7)-(9, 9), CurON()
25. LINE (0, 0)-(12, 12), _RGB32(0, 0, 0), BF
26. GET (0, 7)-(9, 9), CurOFF()
27.  
28. Hpos = 100 'initial horizontal position
29. Vpos = 100 'initial vertical position
30. P = 0
31. DIM msg(50) AS STRING
32. DIM HLine AS INTEGER
33. HLine = 0
34.  
35. text = "After the latest update, the forms I need to fill are shrunk to 50% without an option to expand to full screen (blows up only a part of the document, the rest is hidden behind the enormously wide margins around the edges of the screen). Previously filled documents also shrunk, but the parts I filled out did not. So now all my tables are all over the place. Please fix                      "
36.  
37. DO
38.     IF P + ParaWide <= LEN(text) THEN
39.  
40.         msg(HLine) = MID$(text, P + 1, ParaWide)
41.         P = P + ParaWide
42.         _PRINTSTRING (Hpos, Vpos + HLine * Lspace), msg(HLine)
43.         maxHline = HLine
44.         HLine = HLine + 1
45.  
46.     END IF
47.  
48.     IF P + ParaWide > LEN(text) THEN EXIT DO
49. LOOP
50.  
51. PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurON(), OR
52.  
53. DO
54.     LL1:
55.  
56.     DO
57.         _LIMIT 100
58.         kh = _KEYHIT
59.         IF kh > 0 THEN t = 0: EXIT DO
60.         t = t + 1
61.         IF t > 5 THEN f1 = 0
62.     LOOP
63.  
64.     IF kh = 27 THEN EXIT DO
65.  
66.     '**** ENTER
67.     IF kh = 13 AND Vpos + (HLine + 1) * Lspace + _FONTHEIGHT + 2 < _HEIGHT THEN
68.  
69.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurOFF(), AND
70.         HLine = HLine + 1
71.         maxHline = HLine
72.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurON(), OR
73.         GOTO LL1
74.  
75.     END IF
76.     '****  end enter
77.  
78.  
79.     '**** APPEND
80.     IF kh > 31 AND kh < 127 THEN
81.  
82.         IF LEN(msg(HLine)) < ParaWide THEN
83.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurOFF(), AND
84.             msg(HLine) = msg(HLine) + CHR$(kh)
85.             _PRINTSTRING (Hpos, (Vpos + HLine * Lspace)), msg(HLine)
86.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurON(), OR
87.         END IF
88.  
89.  
90.         IF LEN(msg(HLine)) >= ParaWide THEN
91.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurOFF(), AND
92.  
93.             HLine = HLine + 1
94.             maxHline = HLine
95.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurON(), OR
96.             GOTO LL1
97.         END IF
98.  
99.  
100.     END IF
101.     '****  end append
102.  
103.  
104.     '****  'BACKSPACE
105.     IF kh = 8 AND LEN(msg(HLine)) = 0 THEN
106.  
107.         IF HLine > 0 THEN 'erases cursor before a line feed up
108.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
109.             HLine = HLine - 1
110.             maxHline = HLine
111.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
112.             GOTO LL1
113.         END IF
114.     END IF
115.  
116.     IF kh = 8 AND LEN(msg(HLine)) > 0 THEN
117.  
118.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
119.         msg(HLine) = LEFT$(msg(HLine), LEN(msg(HLine)) - 1)
120.         _PRINTSTRING (Hpos, Vpos + HLine * Lspace), msg(HLine) + " "
121.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
122.  
123.     END IF
124.  
125.     '****  end BACKSPACE
126.  
127.  
128.     '****
129.     IF kh = 20480 AND Vpos + maxHline * Lspace + _FONTHEIGHT + Inc < _HEIGHT THEN 'down arrow
130.         HLine = 0
131.         Inc = 1
132.         DO
133.             _PRINTSTRING (Hpos, Vpos + (HLine * Lspace)), SPACE$(ParaWide)
134.             IF maxHline = HLine THEN EXIT DO
135.             HLine = HLine + 1
136.         LOOP
137.  
138.         IF f1 = 0 THEN f1 = 1: t1! = TIMER
139.  
140.         t2! = TIMER
141.         IF t2! - t1! > .5 THEN
142.             Inc = 9
143.             t2! = 0
144.         END IF
145.  
146.         Vpos = Vpos + Inc
147.         HLine = 0
148.  
149.         DO
150.             _PRINTSTRING (Hpos, Vpos + (HLine * Lspace)), msg(HLine)
151.  
152.             IF maxHline = HLine THEN
153.                 Vpos = Vpos - Inc
154.                 PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
155.                 Vpos = Vpos + Inc
156.                 PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
157.                 EXIT DO
158.             END IF
159.             HLine = HLine + 1
160.         LOOP
161.     END IF
162.     '****
163.  
164.     '****
165.     IF kh = 18432 AND Vpos > Inc THEN 'up arrow
166.         HLine = 0
167.         Inc = 1
168.         DO
169.             _PRINTSTRING (Hpos, Vpos + (HLine * Lspace)), SPACE$(ParaWide)
170.             IF maxHline = HLine THEN EXIT DO
171.             HLine = HLine + 1
172.         LOOP
173.  
174.         IF f1 = 0 THEN f1 = 1: t1! = TIMER
175.  
176.         t2! = TIMER
177.         IF t2! - t1! > .5 THEN
178.             Inc = 9
179.             t2! = 0
180.         END IF
181.  
182.         Vpos = Vpos - Inc
183.         HLine = 0
184.  
185.         DO
186.             _PRINTSTRING (Hpos, Vpos + (HLine * Lspace)), msg(HLine)
187.  
188.             IF maxHline = HLine THEN
189.                 Vpos = Vpos + Inc
190.                 PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
191.                 Vpos = Vpos - Inc
192.                 PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
193.                 EXIT DO
194.             END IF
195.  
196.             HLine = HLine + 1
197.         LOOP
198.     END IF
199.  
200.     '****
201.  
202.     '****
203.     IF kh = 19200 AND Hpos > Inc THEN 'left arrow
204.  
205.         HLine = 0
206.         Inc = 1
207.         DO
208.             _PRINTSTRING (Hpos, Vpos + (HLine * Lspace)), SPACE$(ParaWide)
209.             IF maxHline = HLine THEN EXIT DO
210.             HLine = HLine + 1
211.         LOOP
212.  
213.         IF f1 = 0 THEN f1 = 1: t1! = TIMER
214.  
215.         t2! = TIMER
216.         IF t2! - t1! > .5 THEN
217.             Inc = 9
218.             t2! = 0
219.         END IF
220.  
221.         Hpos = Hpos - Inc
222.         HLine = 0
223.         DO
224.             _PRINTSTRING (Hpos, Vpos + (HLine * Lspace)), msg(HLine)
225.             IF maxHline = HLine THEN
226.                 Hpos = Hpos + Inc
227.                 PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
228.                 Hpos = Hpos - Inc
229.                 PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
230.                 EXIT DO
231.             END IF
232.             HLine = HLine + 1
233.         LOOP
234.     END IF
235.     '****
236.  
237.     '****
238.  
239.  
240.     IF kh = 19712 AND Hpos + _PRINTWIDTH(SPACE$(ParaWide)) + Inc + 8 < _WIDTH THEN 'right arrow
241.  
242.         HLine = 0
243.         Inc = 1
244.         DO
245.             _PRINTSTRING (Hpos, Vpos + (HLine * Lspace)), SPACE$(ParaWide)
246.             IF maxHline = HLine THEN EXIT DO
247.             HLine = HLine + 1
248.         LOOP
249.  
250.         IF f1 = 0 THEN f1 = 1: t1! = TIMER
251.  
252.         t2! = TIMER
253.         IF t2! - t1! > .5 THEN
254.             Inc = 9
255.             t2! = 0
256.         END IF
257.  
258.         Hpos = Hpos + Inc
259.         HLine = 0
260.         DO
261.             _PRINTSTRING (Hpos, Vpos + (HLine * Lspace)), msg(HLine)
262.             IF maxHline = HLine THEN
263.                 Hpos = Hpos - Inc
264.                 PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
265.                 Hpos = Hpos + Inc
266.                 PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
267.                 EXIT DO
268.             END IF
269.  
270.             HLine = HLine + 1
271.         LOOP
272.     END IF
273.  
274. LOOP
275. END
276.  

[NOVARSEG]

 PUT (x,y),array, AND can swap  font color with background color without the use of COLOR statement.

More bugs.