X-GUI 5 (attempt to port a qbasic gui to qb64

[keybone]

Hey everyone,

A long time ago a dude started some little "company" on the internet...
It was called KG Software, coincidentally those are also my initials (I am not the original author).

They created a GUI for DOS that was scriptable and stable but very slow and required a lot of memory (real mode standards).
It was called X-GUI. There were versions 1, 2, 3, and 4. Version 3 was very nice, but version 4 was a little more advanced and had more accessory applications.

As many of you probably know, I've been relentlessly trying to create a gui for the past few years (like a broken record).

Well lately in my gui attempts I ran into a little trouble with tcp/ip and it seems like the previous way I was creating the gui will not work with intermachine networking... So I came up with a plan to build a scripting language that could be sent from node to node and recreate images sent across the connection at each machine. Last night I thought, if im going to build something like that, why not just port a really good one for DOS/qbasic to Windows/Linux/Mac qb64? So I chose one: X-GUI 4. It is great, works great, uses outdated DOS stuff that I will strip out and replace, and it's totally abandoned to the point that if the author saw me bringing it back to life they would probably be happy :D.

Here is a link to a screenshot, a download of DOS binaries, source code, and script files: http://qbasicgui.datacomponents.net/203_xgui4.html

There is a lot of work involved which is why I admit this may become vaporware but right now im going to give it a try and see what happens:

If I succeed at making it work it will be called X-GUI 5 and it will hopefully be awesome.

[keybone]

I actually already did some significant work trying to figure out how it works...
Also, I tediously converted all the old outdated DOS PCX images to PNG. :)

[bplus]

Hi keybone,

I am interested to know if it has a decent text editor control, ie select text for cut, copy, and paste.

[keybone]

Hi keybone,

I am interested to know if it has a decent text editor control, ie select text for cut, copy, and paste.

It's been forever since I ran this program... I don't have a dos computer to use the executable on.
I haven't been able to get it to compile on qb64, I have to get rid of any use of rhe SVGAPV (Zephyr) library.
So I really couldn't tell you. I believe so... it will be easy to integrate the qb64 clipboard commands into it though.


I'm reading up on the library as I come to places in the code where its used.
My plan is to use QB64 graphics commands to replace it, it will be a lot better that way.
Version 5 is going to be way different than version 4 anyways, as I've developed so much GUI related stuff that I will use to enhance this project. For example it will use PNG graphics throughout (instead of PCX) and will be able to use them as icons, buttons, desktop wallpaper etc. And all the background routines i wrote: the stretched background, the tiling, the dither patterns, diagonal gradients, etc. will be used. Also I have to come up with a better alternative to all the XMS stuff, probably my normal route of a dynamic array or something.

[keybone]

This appears to be quite an undertaking. but... It might not be.
I was thinking about it, all I may really have to do is use qb64 functionality to clone the library.

If I design all the subs/functions to work the same as all the zephyr library ones, they should drop right in and it should work.
There is probably other stuff to be done too, but that's the direction i'm going... I have a lot of time to work on it... :D

Also, the zephyr library had some pretty decent documentation so that's helping a lot too. :)

[keybone]

This appears to be quite an undertaking. but... It might not be.
I was thinking about it, all I may really have to do is use qb64 functionality to clone the library.

If I design all the subs/functions to work the same as all the zephyr library ones, they should drop right in and it should work.
There is probably other stuff to be done too, but that's the direction i'm going... I have a lot of time to work on it... :D

Also, the zephyr library had some pretty decent documentation so that's helping a lot too. :)

So far what I got done of trying to port the needed parts of the Zephyr library (untested):

Code: QB64: [Select]

1.  
2. FUNCTION initDisplay%
3.     initDisplay% = RESTEXT~&&(-1, 0, -1)
4. END SUB
5.  
6. FUNCTION RESTEXT~&& (inFullscreen AS _BYTE, inScaled AS _BYTE, inSmoothed AS _BYTE)
7.     theDisplay.sizeX = _DESKTOPWIDTH
8.     theDisplay.sizeY = _DESKTOPHEIGHT
9.     theDisplay.Options.isFullscreen = inFullscreen
10.     theDisplay.Options.isScaled = inScaled
11.     theDisplay.Options.isSmoothed = inSmoothed
12.     theDisplay.Handle = _NEWIMAGE(theDisplay.sizeX, theDisplay.sizeY, 32)
13.     RESTEXT~&& = 1
14. END FUNCTION
15.  
16. SUB FONTSYSTEM (inFilename AS STRING, inSize AS _UNSIGNED INTEGER)
17.     SHARED systemFont AS LONG
18.     systemFont = _LOADFONT(inFilename, inSize)
19.     _FONT systemFont
20. END SUB
21.  
22. SUB DRWFILLBOX (inColour AS _UNSIGNED LONG, inX1 AS INTEGER, inY1 AS INTEGER, inX2 AS INTEGER, inY2 AS INTEGER)
23.     LINE (inX1, inY1)-(inX1 + inX2, inY1 + inY2), inColour, BF
24. END SUB
25.  
26. SUB DRWBOX (inColour AS _UNSIGNED LONG, inX1%, inY1%, inX2%, inY2%)
27.     LINE (inX1, inY1)-(inX1 + inX2, inY1 + inY2), inColour, B
28. END SUB
29.  
30. SUB DRWSTRING (inForegroundColor AS _UNSIGNED LONG, inBackgroundColor AS _UNSIGNED LONG, inString AS STRING, inX AS INTEGER, inY AS INTEGER)
31.     COLOR inForegroundColor, inBackgroundColor
32.     _PRINTSTRING (inX, inY), inString
33. END SUB
34.  

the original library had an additional first parameter, some kind of mode integer, would have served no purpose in qb64 so its gone everywhere it was used.

[bplus]

Hi keybone,

When I was imagining the project, I also imagined a humongous undertaking but the crucial areas that decide if it is possible or not are the ones translating interactions with DOS OS: converting those to Windows OS or Linux OS. I myself would check out the feasibility of those areas before undertaking the translating process.

Eh, maybe you have all your file management tools ready to go?

Last night I thought, if im going to build something like that, why not just port a really good one for DOS/qbasic to Windows/Linux/Mac qb64?

"Why not just port..."  OK, if you have those file management tools ready...   

[keybone]

Hi keybone,

When I was imagining the project, I also imagined a humongous undertaking but the crucial areas that decide if it is possible or not are the ones translating interactions with DOS OS: converting those to Windows OS or Linux OS. I myself would check out the feasibility of those areas before undertaking the translating process.

Eh, maybe you have all your file management tools ready to go?

Last night I thought, if im going to build something like that, why not just port a really good one for DOS/qbasic to Windows/Linux/Mac qb64?

"Why not just port..."  OK, if you have those file management tools ready...

Don't really care too much about feasibility... Not really on my list of important things :D
no need for file management tools either, kinda missing your point.

First pass done. Not running yet,  but I managed to get the ide to OK... Nothing shows on the screen yet, but that's to be expected I didn't even replace XMS yet.

Code: QB64: [Select]

1. DECLARE FUNCTION getvar$ (varname$, pid!)
2. DECLARE FUNCTION readline$ (linenumber%, pid!)
3. DECLARE FUNCTION window.create! (X1!, Y1!, X2!, Y2!, closebtn!, resizebtn!, movebtn!, title$)
4. DECLARE SUB setuppointers (mousefile$, mousefile2$)
5. DECLARE SUB PANIC (message$)
6. DECLARE SUB background (wallpaper$)
7. DECLARE SUB fontnormal ()
8. DECLARE SUB fontload (FileName$)
9. DECLARE SUB startscript (FileName$, cmd$)
10. DECLARE SUB putvar (varname$, contents$, pid!)
11. DECLARE SUB drw3Dbox (X1%, Y1%, X2%, Y2%, col1%, col2%)
12. DECLARE SUB hidegraph (truth%)
13. DECLARE SUB screen.close ()
14. DECLARE SUB screen.setup ()
15. DECLARE SUB window.close (id%)
16. DECLARE SUB window.manager ()
17. DECLARE SUB window.paint (X1%, Y1%, X2%, Y2%, closebtn%, resizebtn%, movebtn%, title$, active%)
18. DECLARE SUB winvput (id!)
19. DECLARE SUB winvsave (id!)
20. DECLARE SUB setpoi (FileName$, v$)
21. DECLARE SUB timerset (truth%)
22. DECLARE SUB startup ()
23. DECLARE SUB scrshot ()
24. DECLARE SUB chactcol (newcol!)
25. DECLARE SUB chnonactcol (newcol!)
26. DECLARE SUB chbcolor (newcol!)
27. DECLARE SUB chwallpaper (newfile$)
28.  
29. CONST true = 1, false = 0 ' real logic
30. CONST maxwins = 30 ' always +2 more then actual value
31. CONST stfile$ = "SHELL.XSF" ' first ran script file
32.  
33. DIM SHARED pcxpal AS STRING * 768, refreshwindows
34. DIM SHARED maxx, maxy
35. DIM SHARED mx%, my%, mb%, bgcolor, openwins
36. DIM SHARED actcolor, nonactcolor, titlecolor
37. DIM SHARED bghandle%, crhandle%
38. DIM SHARED mainmem$(1 TO maxwins), IP(1 TO maxwins) AS INTEGER
39. DIM SHARED vtx%(1 TO maxwins), vty%(1 TO maxwins)
40. DIM SHARED flags1%(1 TO maxwins), flags2%(1 TO maxwins), flags3%(1 TO maxwins)
41. DIM SHARED co1%(1 TO maxwins), co2%(1 TO maxwins)
42. DIM SHARED pstack$(1 TO maxwins)
43. DIM SHARED pcommand$(1 TO maxwins), pfiles$(1 TO maxwins)
44. DIM SHARED homedir$, derror(1 TO maxwins)
45. DIM SHARED sfonx%, sfony%, sfon$, fon AS STRING * 4098
46. DIM SHARED repair, switch
47.  
48. TYPE windows
49.     objectID AS INTEGER ' ID of window environment
50.     X1 AS INTEGER ' windows x1
51.     Y1 AS INTEGER ' windows y1
52.     X2 AS INTEGER ' windows x2
53.     Y2 AS INTEGER ' windows y2
54.     closebtn AS INTEGER ' window close button truth
55.     resizebtn AS INTEGER ' window resize button truth
56.     movebtn AS INTEGER ' window titlebar show truth
57.     title AS STRING * 60 ' window title
58.     virtual AS INTEGER ' window virtual screen pointer to XMS
59. END TYPE
60.  
61. DIM SHARED win(1 TO maxwins) AS windows
62.  
63. DIM SHARED mousepointer$, mousetimer$
64.  
65. startup
66. START: CLEAR
67.  
68. homedir$ = CURDIR$
69. switch = true
70.  
71. ON ERROR GOTO errhandler
72.  
73. screen.setup
74.  
75. IF DIR$(stfile$) <> "" THEN
76.     startscript stfile$, ""
77. ELSE
78.     PANIC stfile$ + " main script not found."
79. END IF
80.  
81. DO
82.     MOUSESTATUS x%, y%, b%
83.     scrshot
84.     window.manager
85.     IF refreshwindows = false AND openwins <> false THEN
86.         activewin = win(openwins).objectID
87.         X1 = win(openwins).X1 + 2: Y1 = win(openwins).Y1 + 2
88.         X2 = win(openwins).X2 - 2: Y2 = win(openwins).Y2 - 2
89.         IF win(openwins).movebtn THEN Y1 = Y1 + 18
90.         IF win(openwins).resizebtn THEN X2 = X2 - 19: Y2 = Y2 - 19
91.         a$ = readline$(IP(activewin), activewin)
92.         derror = false
93.         IF a$ = "R" THEN
94.             p$ = pstack$(activewin)
95.             DO
96.                 IF INSTR(p$, ".") = false THEN EXIT DO
97.                 p$ = MID$(p$, INSTR(p$, ".") + 1)
98.             LOOP
99.             pstack$(activewin) = LEFT$(pstack$(activewin), LEN(pstack$(activewin)) - LEN(p$) - 1)
100.             IP(activewin) = VAL(p$)
101.         END IF
102.         IF LEFT$(a$, 1) = CHR$(1) THEN
103.             p$ = LTRIM$(MID$(a$, 2))
104.             pstack$(activewin) = pstack$(activewin) + "." + LTRIM$(STR$(IP(activewin)))
105.             label$ = UCASE$(p$): GOTO jump
106.         END IF
107.         IF LEFT$(a$, 1) = ">" THEN
108.             p$ = LTRIM$(MID$(a$, 2))
109.             IF RIGHT$(p$, 1) = "$" THEN p$ = getvar$(p$, activewin)
110.             IF LEFT$(p$, 1) = CHR$(34) THEN p$ = MID$(p$, 2): p$ = LEFT$(p$, LEN(p$) - 1)
111.             _MOUSEHIDE
112.             h% = XMSSCREENGET%
113.             OUT 968, 66
114.             SHELL p$
115.             OUT 968, 0
116.             e% = XMSSCREENPUT%(h%)
117.             e% = XMSFREE%(h%)
118.             _MOUSESHOW
119.         END IF
120.         IF LEFT$(a$, 1) = "!" THEN
121.             p$ = LTRIM$(MID$(a$, 2))
122.             IF RIGHT$(p$, 1) = "$" OR RIGHT$(p$, 1) = "%" THEN p$ = getvar$(p$, activewin)
123.             IF LEFT$(p$, 1) = CHR$(34) THEN p$ = MID$(p$, 2): p$ = LEFT$(p$, LEN(p$) - 1)
124.             PANIC p$
125.         END IF
126.         IF LEFT$(a$, 1) = "@" THEN
127.             p$ = LTRIM$(MID$(a$, 2)): a1$ = LEFT$(p$, INSTR(p$, ",") - 1)
128.             p$ = MID$(p$, INSTR(p$, ",") + 1): a2$ = LEFT$(p$, INSTR(p$, ",") - 1)
129.             p$ = MID$(p$, INSTR(p$, ",") + 1): a3$ = LEFT$(p$, INSTR(p$, ",") - 1)
130.             a4$ = MID$(p$, INSTR(p$, ",") + 1)
131.             IF RIGHT$(a1$, 1) = "%" THEN a1$ = getvar$(a1$, activewin)
132.             IF RIGHT$(a2$, 1) = "%" THEN a2$ = getvar$(a2$, activewin)
133.             IF RIGHT$(a3$, 1) = "%" THEN a3$ = getvar$(a3$, activewin)
134.             IF RIGHT$(a4$, 1) = "%" THEN a4$ = getvar$(a4$, activewin)
135.             _MOUSEHIDE
136.             'SETVIEW X1, Y1, X2, Y2
137.             winvsave openwins
138.             'SETVIEW 0, 0, maxx, maxy
139.             dummy% = XMSBLKPUT%(1, 0, 0, crhandle%)
140.             _MOUSESHOW
141.             win(openwins).X1 = VAL(a1$): win(openwins).Y1 = VAL(a2$)
142.             win(openwins).X2 = VAL(a3$): win(openwins).Y2 = VAL(a4$)
143.             IF win(openwins).X2 > maxx THEN win(openwins).X2 = maxx
144.             IF win(openwins).Y2 > maxy THEN win(openwins).Y2 = maxy
145.             refreshwindows = true
146.             repair = true
147.         END IF
148.         IF a$ = "S-" THEN switch = false
149.         IF a$ = "S+" THEN switch = true
150.         IF LEFT$(a$, 1) = "`" THEN
151.             p$ = LTRIM$(MID$(a$, 2))
152.             putvar p$, STR$(repair), activewin
153.             repair = false
154.         END IF
155.         IF LEFT$(a$, 1) = "c" THEN
156.             p$ = LTRIM$(MID$(a$, 2))
157.             IF RIGHT$(p$, 1) = "%" THEN p$ = getvar$(p$, activewin)
158.             bgcolor = VAL(p$)
159.             chbcolor bgcolor
160.             refreshwindows = true
161.             repair = true
162.         END IF
163.         IF LEFT$(a$, 1) = "n" THEN
164.             p$ = LTRIM$(MID$(a$, 2))
165.             IF RIGHT$(p$, 1) = "%" THEN p$ = getvar$(p$, activewin)
166.             nonactcolor = VAL(p$)
167.             chnonactcol nonactcolor
168.             refreshwindows = true
169.             repair = true
170.         END IF
171.         IF LEFT$(a$, 1) = "a" THEN
172.             p$ = LTRIM$(MID$(a$, 2))
173.             IF RIGHT$(p$, 1) = "%" THEN p$ = getvar$(p$, activewin)
174.             actcolor = VAL(p$)
175.             chactcol actcolor
176.             refreshwindows = true
177.             repair = true
178.         END IF
179.         IF LEFT$(a$, 1) = "\" THEN
180.             p$ = LTRIM$(MID$(a$, 2))
181.             IF RIGHT$(p$, 1) = "$" THEN p$ = getvar$(p$, activewin)
182.             fontload p$
183.             sfon$ = p$
184.             FK = FREEFILE: KL = false
185.             OPEN "SETTINGS.INI" FOR INPUT AS FK
186.             FL = FREEFILE
187.             OPEN "SETTINGS.TMP" FOR OUTPUT AS FL
188.             DO UNTIL EOF(FK)
189.                 LINE INPUT #FK, h$
190.                 h$ = UCASE$(LTRIM$(h$))
191.                 IF LEFT$(h$, 12) = "SYSTEM FONT " THEN
192.                     PRINT #FL, "SYSTEM FONT " + p$: KL = true
193.                 ELSE
194.                     PRINT #FL, h$
195.                 END IF
196.             LOOP
197.             IF KL = false THEN PRINT #FL, "SYSTEM FONT " + p$
198.             CLOSE FK, FL
199.             OPEN "SETTINGS.INI" FOR OUTPUT AS FK
200.             OPEN "SETTINGS.TMP" FOR INPUT AS FL
201.             DO UNTIL EOF(FL)
202.                 LINE INPUT #FL, h$: PRINT #FK, h$
203.             LOOP
204.             CLOSE FK, FL
205.             KILL "SETTINGS.TMP"
206.             refreshwindows = true
207.             repair = true
208.         END IF
209.         IF LEFT$(a$, 1) = "t" THEN
210.             p$ = LTRIM$(MID$(a$, 2))
211.             IF RIGHT$(p$, 1) = "%" THEN p$ = getvar$(p$, activewin)
212.             titlecolor = VAL(p$)
213.             FK = FREEFILE: KL = false
214.             OPEN "SETTINGS.INI" FOR INPUT AS FK
215.             FL = FREEFILE
216.             OPEN "SETTINGS.TMP" FOR OUTPUT AS FL
217.             DO UNTIL EOF(FK)
218.                 LINE INPUT #FK, h$
219.                 h$ = UCASE$(LTRIM$(h$))
220.                 IF LEFT$(h$, 12) = "TITLE COLOR " THEN
221.                     PRINT #FL, "TITLE COLOR " + p$: KL = true
222.                 ELSE
223.                     PRINT #FL, h$
224.                 END IF
225.             LOOP
226.             IF KL = false THEN PRINT #FL, "TITLE COLOR " + p$
227.             CLOSE FK, FL
228.             OPEN "SETTINGS.INI" FOR OUTPUT AS FK
229.             OPEN "SETTINGS.TMP" FOR INPUT AS FL
230.             DO UNTIL EOF(FL)
231.                 LINE INPUT #FL, h$: PRINT #FK, h$
232.             LOOP
233.             CLOSE FK, FL
234.             KILL "SETTINGS.TMP"
235.             refreshwindows = true
236.             repair = true
237.         END IF
238.         IF LEFT$(a$, 1) = "b" THEN
239.             p$ = LTRIM$(MID$(a$, 2))
240.             IF RIGHT$(p$, 1) = "$" THEN p$ = getvar$(p$, activewin)
241.             IF LEFT$(p$, 1) = CHR$(34) THEN p$ = MID$(p$, 2): p$ = LEFT$(p$, LEN(p$) - 1)
242.             background p$ + "~"
243.             chwallpaper p$
244.         END IF
245.         IF LEFT$(a$, 1) = "#" THEN
246.             p$ = LTRIM$(MID$(a$, 2))
247.             IF RIGHT$(p$, 1) = "$" OR RIGHT$(p$, 1) = "%" THEN p$ = getvar$(p$, activewin)
248.             IF LEFT$(p$, 1) = CHR$(34) THEN p$ = MID$(p$, 2): p$ = LEFT$(p$, LEN(p$) - 1)
249.             win(openwins).title = p$
250.             _MOUSEHIDE
251.             window.paint win(openwins).X1, win(openwins).Y1, win(openwins).X2, win(openwins).Y2, win(openwins).closebtn, win(openwins).resizebtn, win(openwins).movebtn, CHR$(3) + p$, true
252.             _MOUSESHOW
253.         END IF
254.         IF LEFT$(a$, 3) = "GP " THEN
255.             p$ = LTRIM$(MID$(a$, 4)): a1$ = LEFT$(p$, INSTR(p$, ",") - 1)
256.             p$ = MID$(p$, INSTR(p$, ",") + 1): a2$ = LEFT$(p$, INSTR(p$, ",") - 1)
257.             a3$ = MID$(p$, INSTR(p$, ",") + 1)
258.             IF RIGHT$(a2$, 1) = "%" THEN a2$ = getvar$(a2$, activewin)
259.             IF RIGHT$(a3$, 1) = "%" THEN a3$ = getvar$(a3$, activewin)
260.             putvar a1$, STR$(GETPOINT%(VAL(a2$) + X1, VAL(a3$) + Y1)), activewin
261.         END IF
262.         IF LEFT$(a$, 3) = "FA " THEN
263.             p$ = LTRIM$(MID$(a$, 4)): a1$ = LEFT$(p$, INSTR(p$, ",") - 1)
264.             p$ = MID$(p$, INSTR(p$, ",") + 1): a2$ = LEFT$(p$, INSTR(p$, ",") - 1)
265.             p$ = MID$(p$, INSTR(p$, ",") + 1): a3$ = LEFT$(p$, INSTR(p$, ",") - 1)
266.             a4$ = MID$(p$, INSTR(p$, ",") + 1)
267.             IF RIGHT$(a1$, 1) = "%" THEN a1$ = getvar$(a1$, activewin)
268.             IF RIGHT$(a2$, 1) = "%" THEN a2$ = getvar$(a2$, activewin)
269.             IF RIGHT$(a3$, 1) = "%" THEN a3$ = getvar$(a3$, activewin)
270.             IF RIGHT$(a4$, 1) = "%" THEN a4$ = getvar$(a4$, activewin)
271.             'SETVIEW X1, Y1, X2, Y2
272.             FILLAREA VAL(a1$) + X1, VAL(a2$) + Y1, VAL(a3$), VAL(a4$)
273.             'SETVIEW 0, 0, maxx, maxy
274.         END IF
275.         IF LEFT$(a$, 3) = "HD " THEN putvar LTRIM$(MID$(a$, 4)), homedir$, activewin
276.         IF LEFT$(a$, 3) = "OP " THEN
277.             p$ = LTRIM$(MID$(a$, 4))
278.             IF RIGHT$(p$, 1) = "$" THEN p$ = getvar$(p$, activewin)
279.             IF LEFT$(p$, 1) = CHR$(34) THEN p$ = MID$(p$, 2): p$ = LEFT$(p$, LEN(p$) - 1)
280.             FF = FREEFILE
281.             OPEN p$ FOR OUTPUT AS FF
282.             FOR R = 1 TO maxwins - 1
283.                 IF win(R).objectID <> false THEN PRINT #FF, RTRIM$(win(R).title) + " " + STR$(win(R).objectID) + CHR$(13)
284.             NEXT
285.             CLOSE FF
286.         END IF
287.         IF LEFT$(a$, 3) = "XF " THEN
288.             p$ = LTRIM$(MID$(a$, 4))
289.             IF RIGHT$(p$, 1) = "%" THEN p$ = getvar$(p$, activewin)
290.             dummy% = XMSFREE%(VAL(p$))
291.         END IF
292.         IF LEFT$(a$, 3) = "XP " THEN
293.             p$ = LTRIM$(MID$(a$, 4)): a1$ = LEFT$(p$, INSTR(p$, ",") - 1)
294.             p$ = MID$(p$, INSTR(p$, ",") + 1): a2$ = LEFT$(p$, INSTR(p$, ",") - 1)
295.             p$ = MID$(p$, INSTR(p$, ",") + 1): a3$ = LEFT$(p$, INSTR(p$, ",") - 1)
296.             a4$ = MID$(p$, INSTR(p$, ",") + 1)
297.             IF RIGHT$(a1$, 1) = "%" THEN a1$ = getvar$(a1$, activewin)
298.             IF RIGHT$(a2$, 1) = "%" THEN a2$ = getvar$(a2$, activewin)
299.             IF RIGHT$(a3$, 1) = "%" THEN a3$ = getvar$(a3$, activewin)
300.             a4$ = getvar$(a4$, activewin)
301.             'SETVIEW X1, Y1, X2, Y2
302.             dummy% = XMSBLKPUT%(VAL(a3$), VAL(a1$) + X1, VAL(a2$) + Y1, VAL(a4$))
303.             'SETVIEW 0, 0, maxx, maxy
304.         END IF
305.         IF LEFT$(a$, 3) = "XG " THEN
306.             p$ = LTRIM$(MID$(a$, 4)): a1$ = LEFT$(p$, INSTR(p$, ",") - 1)
307.             p$ = MID$(p$, INSTR(p$, ",") + 1): a2$ = LEFT$(p$, INSTR(p$, ",") - 1)
308.             p$ = MID$(p$, INSTR(p$, ",") + 1): a3$ = LEFT$(p$, INSTR(p$, ",") - 1)
309.             p$ = MID$(p$, INSTR(p$, ",") + 1): a4$ = LEFT$(p$, INSTR(p$, ",") - 1)
310.             a5$ = MID$(p$, INSTR(p$, ",") + 1)
311.             IF RIGHT$(a2$, 1) = "%" THEN a2$ = getvar$(a2$, activewin)
312.             IF RIGHT$(a3$, 1) = "%" THEN a3$ = getvar$(a3$, activewin)
313.             IF RIGHT$(a4$, 1) = "%" THEN a4$ = getvar$(a4$, activewin)
314.             IF RIGHT$(a5$, 1) = "%" THEN a5$ = getvar$(a5$, activewin)
315.             putvar a1$, STR$(XMSBLKGET%(VAL(a2$) + X1, VAL(a3$) + Y1, VAL(a4$) + X1, VAL(a5$) + Y1)), activewin
316.         END IF
317.         IF LEFT$(a$, 4) = "_GC " THEN
318.             p$ = LTRIM$(MID$(a$, 5))
319.             putvar p$, pcommand$(activewin), activewin
320.         END IF
321.         IF LEFT$(a$, 1) = CHR$(43) THEN
322.             p$ = LTRIM$(MID$(a$, 2)): a1$ = LEFT$(p$, INSTR(p$, ",") - 1)
323.             p$ = MID$(p$, INSTR(p$, ",") + 1): a2$ = LEFT$(p$, INSTR(p$, ",") - 1)
324.             a3$ = MID$(p$, INSTR(p$, ",") + 1)
325.             IF RIGHT$(a1$, 1) = "%" THEN a1$ = getvar$(a1$, activewin)
326.             IF RIGHT$(a2$, 1) = "%" THEN a2$ = getvar$(a2$, activewin)
327.             IF RIGHT$(a3$, 1) = "%" THEN a3$ = getvar$(a3$, activewin)
328.             DEF SEG = VAL(a1$)
329.             POKE VAL(a2$), VAL(a3$)
330.             DEF SEG
331.         END IF
332.         IF LEFT$(a$, 1) = CHR$(45) THEN
333.             p$ = LTRIM$(MID$(a$, 2)): a1$ = LEFT$(p$, INSTR(p$, ",") - 1)
334.             p$ = MID$(p$, INSTR(p$, ",") + 1): a2$ = LEFT$(p$, INSTR(p$, ",") - 1)
335.             a3$ = MID$(p$, INSTR(p$, ",") + 1)
336.             IF RIGHT$(a2$, 1) = "%" THEN a2$ = getvar$(a2$, activewin)
337.             IF RIGHT$(a3$, 1) = "%" THEN a3$ = getvar$(a3$, activewin)
338.             DEF SEG = VAL(a2$)
339.             putvar a1$, STR$(PEEK(VAL(a3$))), activewin
340.             DEF SEG
341.         END IF
342.         IF LEFT$(a$, 1) = CHR$(202) THEN
343.             p$ = LTRIM$(MID$(a$, 2)): a1$ = LEFT$(p$, INSTR(p$, ",") - 1)
344.             p$ = MID$(p$, INSTR(p$, ",") + 1): a2$ = LEFT$(p$, INSTR(p$, ",") - 1)
345.             a3$ = MID$(p$, INSTR(p$, ",") + 1)
346.             IF RIGHT$(a2$, 1) = "$" THEN a2$ = getvar$(a2$, activewin)
347.             IF RIGHT$(a3$, 1) = "$" THEN a3$ = getvar$(a3$, activewin)
348.             IF LEFT$(a3$, 1) = CHR$(34) THEN a3$ = MID$(a3$, 2): a3$ = LEFT$(a3$, LEN(a3$) - 1)
349.             putvar a1$, STR$(INSTR(a2$, a3$)), activewin
350.         END IF
351.         IF LEFT$(a$, 4) = "POI " THEN
352.             p$ = LTRIM$(MID$(a$, 5))
353.             IF RIGHT$(p$, 1) = "$" THEN p$ = getvar$(p$, activewin)
354.             IF LEFT$(p$, 1) = CHR$(34) THEN p$ = MID$(p$, 2): p$ = LEFT$(p$, LEN(p$) - 1)
355.             setpoi p$, mousepointer$
356.         END IF
357.         IF LEFT$(a$, 4) = "DIR " THEN
358.             p$ = LTRIM$(MID$(a$, 5))
359.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
360.             IF RIGHT$(d$, 1) = "$" THEN d$ = getvar$(d$, activewin)
361.             IF RIGHT$(s$, 1) = "$" THEN s$ = getvar$(s$, activewin)
362.             IF LEFT$(d$, 1) = CHR$(34) THEN d$ = MID$(d$, 2): d$ = LEFT$(d$, LEN(d$) - 1)
363.             IF LEFT$(s$, 1) = CHR$(34) THEN s$ = MID$(s$, 2): s$ = LEFT$(s$, LEN(s$) - 1)
364.             FF = FREEFILE
365.             OPEN d$ FOR OUTPUT AS FF
366.             f$ = DIR$(s$)
367.             PRINT #FF, f$
368.             DO UNTIL f$ = ""
369.                 'f$ = DIR$
370.                 PRINT #FF, f$
371.             LOOP
372.             CLOSE FF
373.         END IF
374.         IF LEFT$(a$, 4) = "PID " THEN
375.             p$ = LTRIM$(MID$(a$, 5))
376.             putvar p$, STR$(activewin), activewin
377.         END IF
378.         IF LEFT$(a$, 1) = CHR$(201) THEN
379.             p$ = LTRIM$(MID$(a$, 2))
380.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
381.             IF RIGHT$(s$, 1) = "%" THEN s$ = getvar$(s$, activewin)
382.             putvar d$, STR$(VAL(s$)), activewin
383.         END IF
384.         IF LEFT$(a$, 1) = CHR$(253) THEN
385.             p$ = LTRIM$(MID$(a$, 2))
386.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
387.             putvar d$, STR$(sfonx%), activewin
388.             putvar s$, STR$(sfony%), activewin
389.         END IF
390.         IF LEFT$(a$, 1) = "{" THEN
391.             p$ = LTRIM$(MID$(a$, 2))
392.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
393.             putvar d$, STR$(maxx), activewin
394.             putvar s$, STR$(maxy), activewin
395.         END IF
396.         IF LEFT$(a$, 4) = "EOF " THEN
397.             p$ = LTRIM$(MID$(a$, 5))
398.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
399.             IF RIGHT$(s$, 1) = "%" THEN s$ = getvar$(s$, activewin)
400.             putvar d$, STR$(EOF(VAL(s$))), activewin
401.         END IF
402.         IF LEFT$(a$, 4) = "LOF " THEN
403.             p$ = LTRIM$(MID$(a$, 5))
404.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
405.             IF RIGHT$(s$, 1) = "%" THEN s$ = getvar$(s$, activewin)
406.             putvar d$, STR$(LOF(VAL(s$))), activewin
407.         END IF
408.         IF LEFT$(a$, 3) = "FP " THEN
409.             p$ = LTRIM$(MID$(a$, 4))
410.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
411.             IF RIGHT$(d$, 1) = "%" THEN d$ = getvar$(d$, activewin)
412.             IF LEFT$(s$, 1) = CHR$(34) THEN s$ = MID$(s$, 2): s$ = LEFT$(s$, LEN(s$) - 1)
413.             PUT #VAL(d$), , s$
414.         END IF
415.         IF LEFT$(a$, 3) = "FG " THEN
416.             p$ = LTRIM$(MID$(a$, 4))
417.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
418.             IF RIGHT$(s$, 1) = "%" THEN s$ = getvar$(s$, activewin)
419.             GET #VAL(s$), , f$
420.             putvar d$, f$, activewin
421.         END IF
422.         IF LEFT$(a$, 3) = "FW " THEN
423.             p$ = LTRIM$(MID$(a$, 4))
424.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
425.             IF RIGHT$(d$, 1) = "%" THEN d$ = getvar$(d$, activewin)
426.             IF RIGHT$(s$, 1) = "$" OR RIGHT$(s$, 1) = "%" THEN s$ = getvar$(s$, activewin)
427.             IF LEFT$(s$, 1) = CHR$(34) THEN s$ = MID$(s$, 2): s$ = LEFT$(s$, LEN(s$) - 1)
428.             PRINT #VAL(d$), s$
429.         END IF
430.         IF LEFT$(a$, 3) = "FI " THEN
431.             p$ = LTRIM$(MID$(a$, 4))
432.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
433.             IF RIGHT$(s$, 1) = "%" THEN s$ = getvar$(s$, activewin)
434.             LINE INPUT #VAL(s$), f$
435.             putvar d$, f$, activewin
436.         END IF
437.         IF LEFT$(a$, 1) = "Z" THEN
438.             p$ = LTRIM$(MID$(a$, 2))
439.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
440.             IF RIGHT$(s$, 1) = "%" THEN s$ = getvar$(s$, activewin)
441.             IF RIGHT$(d$, 1) = "%" THEN d$ = getvar$(d$, activewin)
442.             IF VAL(d$) > 0 THEN
443.                 FOR dummy = 1 TO VAL(d$)
444.                     LINE INPUT #VAL(s$), dummy$
445.                     IF EOF(VAL(s$)) THEN EXIT FOR
446.                 NEXT
447.             END IF
448.         END IF
449.         IF LEFT$(a$, 3) = "FH " THEN putvar LTRIM$(MID$(a$, 4)), STR$(FREEFILE), activewin
450.         IF LEFT$(a$, 3) = "CL " THEN
451.             p$ = LTRIM$(MID$(a$, 4))
452.             IF RIGHT$(p$, 1) = "%" THEN p$ = getvar$(p$, activewin)
453.             f = VAL(p$)
454.             FOR FF = 1 TO LEN(pfiles$(activewin))
455.                 m$ = MID$(pfiles$(activewin), FF)
456.                 IF pfiles$(activewin) <> "" THEN
457.                     IF ASC(m$) = f THEN pfiles$(activewin) = LEFT$(pfiles$(activewin), FF - 1) + MID$(pfiles$(activewin), FF + 1)
458.                 END IF
459.             NEXT
460.             CLOSE f
461.         END IF
462.         IF LEFT$(a$, 1) = "J" THEN
463.             p$ = LTRIM$(MID$(a$, 2)): a1$ = LEFT$(p$, INSTR(p$, ",") - 1)
464.             p$ = MID$(p$, INSTR(p$, ",") + 1): a2$ = LEFT$(p$, INSTR(p$, ",") - 1)
465.             p$ = MID$(p$, INSTR(p$, ",") + 1): a3$ = LEFT$(p$, INSTR(p$, ",") - 1)
466.             p$ = MID$(p$, INSTR(p$, ",") + 1): a4$ = LEFT$(p$, INSTR(p$, ",") - 1)
467.             p$ = MID$(p$, INSTR(p$, ",") + 1): a5$ = LEFT$(p$, INSTR(p$, ",") - 1)
468.             a6$ = MID$(p$, INSTR(p$, ",") + 1)
469.             'JOYSTICKINFO jax%, jay%, jab%, jbx%, jby%, jbb%
470.             putvar a1$, STR$(jax%), activewin
471.             putvar a2$, STR$(jay%), activewin
472.             putvar a3$, STR$(jab%), activewin
473.             putvar a4$, STR$(jbx%), activewin
474.             putvar a5$, STR$(jby%), activewin
475.             putvar a6$, STR$(jbb%), activewin
476.         END IF
477.         IF LEFT$(a$, 2) = "O " THEN
478.             p$ = LTRIM$(MID$(a$, 3)): a1$ = LEFT$(p$, INSTR(p$, ",") - 1)
479.             p$ = MID$(p$, INSTR(p$, ",") + 1): a2$ = LEFT$(p$, INSTR(p$, ",") - 1)
480.             a3$ = MID$(p$, INSTR(p$, ",") + 1)
481.             IF RIGHT$(a1$, 1) = "$" THEN a1$ = getvar$(a1$, activewin)
482.             IF RIGHT$(a2$, 1) = "%" THEN a2$ = getvar$(a2$, activewin)
483.             IF RIGHT$(a3$, 1) = "%" THEN a3$ = getvar$(a3$, activewin)
484.             IF LEFT$(a1$, 1) = CHR$(34) THEN a1$ = MID$(a1$, 2): a1$ = LEFT$(a1$, LEN(a1$) - 1)
485.             SELECT CASE VAL(a2$)
486.                 CASE 1: OPEN a1$ FOR INPUT AS VAL(a3$)
487.                 CASE 2: OPEN a1$ FOR APPEND AS VAL(a3$)
488.                 CASE 3: OPEN a1$ FOR OUTPUT AS VAL(a3$)
489.                 CASE 4: OPEN a1$ FOR BINARY AS VAL(a3$)
490.                 CASE 5: OPEN a1$ FOR RANDOM AS VAL(a3$)
491.             END SELECT
492.             pfiles$(activewin) = CHR$(VAL(a3$))
493.         END IF
494.         IF LEFT$(a$, 4) = "TMR " THEN putvar LTRIM$(MID$(a$, 5)), STR$(TIMER), activewin
495.         IF LEFT$(a$, 4) = "RAN " THEN
496.             p$ = LTRIM$(MID$(a$, 5))
497.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
498.             IF RIGHT$(s$, 1) = "%" THEN s$ = getvar$(s$, activewin)
499.             RANDOMIZE TIMER
500.             putvar d$, STR$(INT(RND * VAL(s$))), activewin
501.         END IF
502.         IF LEFT$(a$, 4) = "MOD " THEN
503.             p$ = LTRIM$(MID$(a$, 5)): a1$ = LEFT$(p$, INSTR(p$, ",") - 1)
504.             p$ = MID$(p$, INSTR(p$, ",") + 1): a2$ = LEFT$(p$, INSTR(p$, ",") - 1)
505.             a3$ = MID$(p$, INSTR(p$, ",") + 1)
506.             IF RIGHT$(a2$, 1) = "%" THEN a2$ = getvar$(a2$, activewin)
507.             IF RIGHT$(a3$, 1) = "%" THEN a3$ = getvar$(a3$, activewin)
508.             putvar a1$, STR$(VAL(a2$) MOD VAL(a3$)), activewin
509.         END IF
510.         IF LEFT$(a$, 4) = "OCT " THEN
511.             p$ = LTRIM$(MID$(a$, 5))
512.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
513.             IF RIGHT$(s$, 1) = "%" THEN s$ = getvar$(s$, activewin)
514.             putvar d$, OCT$(VAL(s$)), activewin
515.         END IF
516.         IF LEFT$(a$, 4) = "HEX " THEN
517.             p$ = LTRIM$(MID$(a$, 5))
518.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
519.             IF RIGHT$(s$, 1) = "%" THEN s$ = getvar$(s$, activewin)
520.             putvar d$, HEX$(VAL(s$)), activewin
521.         END IF
522.         IF LEFT$(a$, 4) = "ATN " THEN
523.             p$ = LTRIM$(MID$(a$, 5))
524.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
525.             IF RIGHT$(s$, 1) = "%" THEN s$ = getvar$(s$, activewin)
526.             putvar d$, STR$(ATN(VAL(s$))), activewin
527.         END IF
528.         IF LEFT$(a$, 4) = "TAN " THEN
529.             p$ = LTRIM$(MID$(a$, 5))
530.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
531.             IF RIGHT$(s$, 1) = "%" THEN s$ = getvar$(s$, activewin)
532.             putvar d$, STR$(TAN(VAL(s$))), activewin
533.         END IF
534.         IF LEFT$(a$, 4) = "SIN " THEN
535.             p$ = LTRIM$(MID$(a$, 5))
536.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
537.             IF RIGHT$(s$, 1) = "%" THEN s$ = getvar$(s$, activewin)
538.             putvar d$, STR$(SIN(VAL(s$))), activewin
539.         END IF
540.         IF LEFT$(a$, 4) = "COS " THEN
541.             p$ = LTRIM$(MID$(a$, 5))
542.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
543.             IF RIGHT$(s$, 1) = "%" THEN s$ = getvar$(s$, activewin)
544.             putvar d$, STR$(COS(VAL(s$))), activewin
545.         END IF
546.         IF LEFT$(a$, 4) = "ABS " THEN
547.             p$ = LTRIM$(MID$(a$, 5))
548.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
549.             IF RIGHT$(s$, 1) = "%" THEN s$ = getvar$(s$, activewin)
550.             putvar d$, STR$(ABS(VAL(s$))), activewin
551.         END IF
552.         IF LEFT$(a$, 1) = CHR$(204) THEN
553.             p$ = LTRIM$(MID$(a$, 2))
554.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
555.             IF RIGHT$(d$, 1) = "%" THEN d$ = getvar$(d$, activewin)
556.             IF RIGHT$(s$, 1) = "%" THEN s$ = getvar$(s$, activewin)
557.             SOUND VAL(d$), VAL(s$)
558.         END IF
559.         IF LEFT$(a$, 1) = CHR$(203) THEN
560.             p$ = LTRIM$(MID$(a$, 2))
561.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
562.             IF RIGHT$(s$, 1) = "$" THEN s$ = getvar$(s$, activewin)
563.             putvar d$, STR$(LEN(s$)), activewin
564.         END IF
565.         IF LEFT$(a$, 1) = CHR$(200) THEN
566.             p$ = LTRIM$(MID$(a$, 2))
567.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
568.             IF RIGHT$(s$, 1) = "$" THEN s$ = getvar$(s$, activewin)
569.             putvar d$, LCASE$(s$), activewin
570.         END IF
571.         IF LEFT$(a$, 1) = CHR$(199) THEN
572.             p$ = LTRIM$(MID$(a$, 2))
573.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
574.             IF RIGHT$(s$, 1) = "$" THEN s$ = getvar$(s$, activewin)
575.             putvar d$, UCASE$(s$), activewin
576.         END IF
577.         IF LEFT$(a$, 1) = CHR$(198) THEN
578.             p$ = LTRIM$(MID$(a$, 2)): a1$ = LEFT$(p$, INSTR(p$, ",") - 1)
579.             p$ = MID$(p$, INSTR(p$, ",") + 1): a2$ = LEFT$(p$, INSTR(p$, ",") - 1)
580.             p$ = MID$(p$, INSTR(p$, ",") + 1): a3$ = LEFT$(p$, INSTR(p$, ",") - 1)
581.             a4$ = MID$(p$, INSTR(p$, ",") + 1)
582.             IF RIGHT$(a2$, 1) = "$" THEN a2$ = getvar$(a2$, activewin)
583.             IF RIGHT$(a3$, 1) = "%" THEN a3$ = getvar$(a3$, activewin)
584.             IF RIGHT$(a4$, 1) = "%" THEN a4$ = getvar$(a4$, activewin)
585.             IF VAL(a4$) <> false THEN g$ = MID$(a2$, VAL(a3$), VAL(a4$)) ELSE g$ = MID$(a2$, VAL(a3$))
586.             putvar a1$, g$, activewin
587.         END IF
588.         IF LEFT$(a$, 1) = CHR$(197) THEN
589.             p$ = LTRIM$(MID$(a$, 2)): a1$ = LEFT$(p$, INSTR(p$, ",") - 1)
590.             p$ = MID$(p$, INSTR(p$, ",") + 1): a2$ = LEFT$(p$, INSTR(p$, ",") - 1)
591.             a3$ = MID$(p$, INSTR(p$, ",") + 1)
592.             IF RIGHT$(a2$, 1) = "$" THEN a2$ = getvar$(a2$, activewin)
593.             IF RIGHT$(a3$, 1) = "%" THEN a3$ = getvar$(a3$, activewin)
594.             putvar a1$, RIGHT$(a2$, VAL(a3$)), activewin
595.         END IF
596.         IF LEFT$(a$, 1) = CHR$(196) THEN
597.             p$ = LTRIM$(MID$(a$, 2)): a1$ = LEFT$(p$, INSTR(p$, ",") - 1)
598.             p$ = MID$(p$, INSTR(p$, ",") + 1): a2$ = LEFT$(p$, INSTR(p$, ",") - 1)
599.             a3$ = MID$(p$, INSTR(p$, ",") + 1)
600.             IF RIGHT$(a2$, 1) = "$" THEN a2$ = getvar$(a2$, activewin)
601.             IF RIGHT$(a3$, 1) = "%" THEN a3$ = getvar$(a3$, activewin)
602.             putvar a1$, LEFT$(a2$, VAL(a3$)), activewin
603.         END IF
604.         IF LEFT$(a$, 1) = CHR$(195) THEN putvar LTRIM$(MID$(a$, 2)), STR$(derror(activewin)), activewin: derror(activewin) = false
605.         IF LEFT$(a$, 1) = CHR$(194) THEN
606.             p$ = LTRIM$(MID$(a$, 2))
607.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
608.             IF RIGHT$(s$, 1) = "$" THEN s$ = getvar$(s$, activewin)
609.             putvar d$, RTRIM$(LTRIM$(s$)), activewin
610.         END IF
611.         IF LEFT$(a$, 1) = CHR$(193) THEN
612.             p$ = LTRIM$(MID$(a$, 2))
613.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
614.             IF RIGHT$(s$, 1) = "$" THEN s$ = getvar$(s$, activewin)
615.             putvar d$, RTRIM$(s$), activewin
616.         END IF
617.         IF LEFT$(a$, 1) = CHR$(192) THEN
618.             p$ = LTRIM$(MID$(a$, 2))
619.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
620.             IF RIGHT$(s$, 1) = "$" THEN s$ = getvar$(s$, activewin)
621.             putvar d$, LTRIM$(s$), activewin
622.         END IF
623.         IF LEFT$(a$, 1) = CHR$(191) THEN
624.             p$ = LTRIM$(MID$(a$, 2))
625.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
626.             IF RIGHT$(s$, 1) = "%" THEN s$ = getvar$(s$, activewin)
627.             putvar d$, CHR$(VAL(s$)), activewin
628.         END IF
629.         IF LEFT$(a$, 1) = CHR$(190) THEN
630.             p$ = LTRIM$(MID$(a$, 2))
631.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
632.             IF RIGHT$(s$, 1) = "$" THEN s$ = getvar$(s$, activewin)
633.             IF s$ <> "" THEN putvar d$, STR$(ASC(s$)), activewin
634.         END IF
635.         IF LEFT$(a$, 1) = CHR$(137) THEN
636.             p$ = LTRIM$(MID$(a$, 2))
637.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
638.             IF RIGHT$(d$, 1) = "%" THEN d$ = getvar$(d$, activewin)
639.             IF RIGHT$(s$, 1) = "%" THEN s$ = getvar$(s$, activewin)
640.             OUT VAL(d$), VAL(s$)
641.         END IF
642.         IF LEFT$(a$, 1) = CHR$(138) THEN
643.             p$ = LTRIM$(MID$(a$, 2))
644.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
645.             IF RIGHT$(d$, 1) = "%" THEN d$ = getvar$(d$, activewin)
646.             putvar s$, STR$(INP(VAL(d$))), activewin
647.         END IF
648.         IF a$ = "RES" THEN RES = true: EXIT DO
649.         IF a$ = "SYS" THEN EXIT DO
650.         IF LEFT$(a$, 1) = CHR$(136) THEN
651.             p$ = LTRIM$(MID$(a$, 2))
652.             IF RIGHT$(p$, 1) = "$" THEN p$ = getvar$(p$, activewin)
653.             IF LEFT$(p$, 1) = CHR$(34) THEN p$ = MID$(p$, 2): p$ = LEFT$(p$, LEN(p$) - 1)
654.             DATE$ = p$
655.         END IF
656.         IF LEFT$(a$, 1) = CHR$(135) THEN
657.             p$ = LTRIM$(MID$(a$, 2))
658.             IF RIGHT$(p$, 1) = "$" THEN p$ = getvar$(p$, activewin)
659.             IF LEFT$(p$, 1) = CHR$(34) THEN p$ = MID$(p$, 2): p$ = LEFT$(p$, LEN(p$) - 1)
660.             TIME$ = p$
661.         END IF
662.         IF LEFT$(a$, 1) = CHR$(134) THEN putvar LTRIM$(MID$(a$, 2)), DATE$, activewin
663.         IF LEFT$(a$, 1) = CHR$(133) THEN putvar LTRIM$(MID$(a$, 2)), TIME$, activewin
664.         IF LEFT$(a$, 1) = CHR$(182) THEN
665.             p$ = LTRIM$(MID$(a$, 2))
666.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
667.             IF RIGHT$(d$, 1) = "$" THEN d$ = getvar$(d$, activewin)
668.             IF LEFT$(d$, 1) = CHR$(34) THEN d$ = MID$(d$, 2): d$ = LEFT$(d$, LEN(d$) - 1)
669.             IF DIR$(d$) <> "" THEN putvar s$, STR$(true), activewin ELSE putvar s$, STR$(false), activewin
670.         END IF
671.         IF LEFT$(a$, 1) = CHR$(181) THEN
672.             p$ = LTRIM$(MID$(a$, 2))
673.             putvar p$, CURDIR$, activewin
674.         END IF
675.         IF LEFT$(a$, 1) = CHR$(180) THEN
676.             p$ = LTRIM$(MID$(a$, 2))
677.             IF RIGHT$(p$, 1) = "$" THEN p$ = getvar$(p$, activewin)
678.             IF LEFT$(p$, 1) = CHR$(34) THEN p$ = MID$(p$, 2): p$ = LEFT$(p$, LEN(p$) - 1)
679.             'CHDRIVE p$
680.             CHDIR p$
681.         END IF
682.         IF LEFT$(a$, 1) = CHR$(170) THEN
683.             p$ = LTRIM$(MID$(a$, 2))
684.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
685.             IF RIGHT$(d$, 1) = "$" THEN d$ = getvar$(d$, activewin)
686.             IF RIGHT$(s$, 1) = "$" THEN s$ = getvar$(s$, activewin)
687.             IF LEFT$(d$, 1) = CHR$(34) THEN d$ = MID$(d$, 2): d$ = LEFT$(d$, LEN(d$) - 1)
688.             IF LEFT$(s$, 1) = CHR$(34) THEN s$ = MID$(s$, 2): s$ = LEFT$(s$, LEN(s$) - 1)
689.             IF INSTR(d$, ".") = false THEN d$ = d$ + ".XSF"
690.             IF d$ <> "" AND LEFT$(d$, 1) <> "." THEN
691.                 IF DIR$(d$) <> "" THEN
692.                     _MOUSEHIDE
693.                     winvsave openwins
694.                     _MOUSESHOW
695.                     startscript d$, s$
696.                 ELSE
697.                     derror(activewin) = 53
698.                 END IF
699.             END IF
700.         END IF
701.         IF LEFT$(a$, 1) = CHR$(171) THEN
702.             p$ = LTRIM$(MID$(a$, 2))
703.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
704.             IF RIGHT$(d$, 1) = "$" THEN d$ = getvar$(d$, activewin)
705.             IF LEFT$(d$, 1) = CHR$(34) THEN d$ = MID$(d$, 2): d$ = LEFT$(d$, LEN(d$) - 1)
706.             RMDIR d$
707.             putvar s$, STR$(derror(activewin)), activewin
708.         END IF
709.         IF LEFT$(a$, 1) = CHR$(172) THEN
710.             p$ = LTRIM$(MID$(a$, 2))
711.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
712.             IF RIGHT$(d$, 1) = "$" THEN d$ = getvar$(d$, activewin)
713.             IF LEFT$(d$, 1) = CHR$(34) THEN d$ = MID$(d$, 2): d$ = LEFT$(d$, LEN(d$) - 1)
714.             MKDIR d$
715.             putvar s$, STR$(derror(activewin)), activewin
716.         END IF
717.         IF LEFT$(a$, 1) = CHR$(165) THEN
718.             p$ = LTRIM$(MID$(a$, 2))
719.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
720.             IF RIGHT$(d$, 1) = "$" THEN d$ = getvar$(d$, activewin)
721.             IF LEFT$(d$, 1) = CHR$(34) THEN d$ = MID$(d$, 2): d$ = LEFT$(d$, LEN(d$) - 1)
722.             KILL d$
723.             putvar s$, STR$(derror(activewin)), activewin
724.         END IF
725.         IF LEFT$(a$, 1) = CHR$(164) THEN
726.             p$ = LTRIM$(MID$(a$, 2)): a1$ = LEFT$(p$, INSTR(p$, ",") - 1)
727.             p$ = MID$(p$, INSTR(p$, ",") + 1): a2$ = LEFT$(p$, INSTR(p$, ",") - 1)
728.             p$ = MID$(p$, INSTR(p$, ",") + 1): a3$ = LEFT$(p$, INSTR(p$, ",") - 1)
729.             a4$ = MID$(p$, INSTR(p$, ",") + 1)
730.             IF RIGHT$(a4$, 1) = "$" THEN a4$ = getvar$(a4$, activewin)
731.             IF LEFT$(a4$, 1) = CHR$(34) THEN a4$ = MID$(a4$, 2): a4$ = LEFT$(a4$, LEN(a4$) - 1)
732.             dummy% = PNGGETINFO%(a4$, x%, y%)
733.             putvar a1$, STR$(x%), activewin: putvar a2$, STR$(y%), activewin
734.             putvar a3$, STR$(cols%), activewin
735.         END IF
736.         IF LEFT$(a$, 1) = CHR$(163) THEN
737.             p$ = LTRIM$(MID$(a$, 2)): a1$ = LEFT$(p$, INSTR(p$, ",") - 1)
738.             p$ = MID$(p$, INSTR(p$, ",") + 1): a2$ = LEFT$(p$, INSTR(p$, ",") - 1)
739.             p$ = MID$(p$, INSTR(p$, ",") + 1): a3$ = LEFT$(p$, INSTR(p$, ",") - 1)
740.             p$ = MID$(p$, INSTR(p$, ",") + 1): a4$ = LEFT$(p$, INSTR(p$, ",") - 1)
741.             a5$ = MID$(p$, INSTR(p$, ",") + 1)
742.             IF RIGHT$(a1$, 1) = "%" THEN a1$ = getvar$(a1$, activewin)
743.             IF RIGHT$(a2$, 1) = "%" THEN a2$ = getvar$(a2$, activewin)
744.             IF RIGHT$(a3$, 1) = "%" THEN a3$ = getvar$(a3$, activewin)
745.             IF RIGHT$(a4$, 1) = "%" THEN a4$ = getvar$(a4$, activewin)
746.             IF RIGHT$(a5$, 1) = "$" THEN a5$ = getvar$(a5$, activewin)
747.             IF LEFT$(a5$, 1) = CHR$(34) THEN a5$ = MID$(a5$, 2): a5$ = LEFT$(a5$, LEN(a5$) - 1)
748.             _MOUSEHIDE
749.             'SETVIEW X1, Y1, X2, Y2
750.             dummy% = PNGMAKE%(VAL(a1$) + X1, VAL(a2$) + Y1, VAL(a3$) + X1, VAL(a4$) + Y1, a5$)
751.             'SETVIEW 0, 0, maxx, maxy
752.             _MOUSESHOW
753.         END IF
754.         IF LEFT$(a$, 1) = CHR$(162) THEN
755.             p$ = LTRIM$(MID$(a$, 2)): a1$ = LEFT$(p$, INSTR(p$, ",") - 1)
756.             p$ = MID$(p$, INSTR(p$, ",") + 1): a2$ = LEFT$(p$, INSTR(p$, ",") - 1)
757.             p$ = MID$(p$, INSTR(p$, ",") + 1): a3$ = LEFT$(p$, INSTR(p$, ",") - 1)
758.             a4$ = MID$(p$, INSTR(p$, ",") + 1)
759.             IF RIGHT$(a1$, 1) = "%" THEN a1$ = getvar$(a1$, activewin)
760.             IF RIGHT$(a2$, 1) = "%" THEN a2$ = getvar$(a2$, activewin)
761.             IF RIGHT$(a3$, 1) = "$" THEN a3$ = getvar$(a3$, activewin)
762.             IF RIGHT$(a4$, 1) = "%" THEN a4$ = getvar$(a4$, activewin)
763.             IF LEFT$(a3$, 1) = CHR$(34) THEN a3$ = MID$(a3$, 2): a3$ = LEFT$(a3$, LEN(a3$) - 1)
764.             _MOUSEHIDE
765.             'SETVIEW X1, Y1, X2, Y2
766.             dummy% = PNGPUT%(VAL(a1$) + X1, VAL(a2$) + Y1, a3$)
767.             'SETVIEW 0, 0, maxx, maxy
768.             _MOUSESHOW
769.         END IF
770.         IF LEFT$(a$, 1) = CHR$(161) THEN
771.             p$ = LTRIM$(MID$(a$, 2)): a1$ = LEFT$(p$, INSTR(p$, ",") - 1)
772.             p$ = MID$(p$, INSTR(p$, ",") + 1): a2$ = LEFT$(p$, INSTR(p$, ",") - 1)
773.             p$ = MID$(p$, INSTR(p$, ",") + 1): a3$ = LEFT$(p$, INSTR(p$, ",") - 1)
774.             p$ = MID$(p$, INSTR(p$, ",") + 1): a4$ = LEFT$(p$, INSTR(p$, ",") - 1)
775.             a5$ = MID$(p$, INSTR(p$, ",") + 1)
776.             IF RIGHT$(a1$, 1) = "%" THEN a1$ = getvar$(a1$, activewin)
777.             IF RIGHT$(a2$, 1) = "%" THEN a2$ = getvar$(a2$, activewin)
778.             IF RIGHT$(a3$, 1) = "%" THEN a3$ = getvar$(a3$, activewin)
779.             IF RIGHT$(a4$, 1) = "%" THEN a4$ = getvar$(a4$, activewin)
780.             IF RIGHT$(a5$, 1) = "%" THEN a5$ = getvar$(a5$, activewin)
781.             'SETVIEW X1, Y1, X2, Y2
782.             DRWCIRCLE VAL(a5$), VAL(a1$) + X1, VAL(a2$) + Y1, VAL(a3$)
783.             'SETVIEW 0, 0, maxx, maxy
784.         END IF
785.         IF LEFT$(a$, 1) = ")" THEN
786.             p$ = LTRIM$(MID$(a$, 2)): a1$ = LEFT$(p$, INSTR(p$, ",") - 1)
787.             p$ = MID$(p$, INSTR(p$, ",") + 1): a2$ = LEFT$(p$, INSTR(p$, ",") - 1)
788.             p$ = MID$(p$, INSTR(p$, ",") + 1): a3$ = LEFT$(p$, INSTR(p$, ",") - 1)
789.             p$ = MID$(p$, INSTR(p$, ",") + 1): a4$ = LEFT$(p$, INSTR(p$, ",") - 1)
790.             a5$ = MID$(p$, INSTR(p$, ",") + 1)
791.             IF RIGHT$(a1$, 1) = "%" THEN a1$ = getvar$(a1$, activewin)
792.             IF RIGHT$(a2$, 1) = "%" THEN a2$ = getvar$(a2$, activewin)
793.             IF RIGHT$(a3$, 1) = "%" THEN a3$ = getvar$(a3$, activewin)
794.             IF RIGHT$(a4$, 1) = "%" THEN a4$ = getvar$(a4$, activewin)
795.             IF RIGHT$(a5$, 1) = "%" THEN a5$ = getvar$(a5$, activewin)
796.             'SETVIEW X1, Y1, X2, Y2
797.             DRWFILLCIRCLE VAL(a5$), VAL(a1$) + X1, VAL(a2$) + Y1, VAL(a3$)
798.             'SETVIEW 0, 0, maxx, maxy
799.         END IF
800.         IF a$ = CHR$(155) THEN _MOUSEHIDE
801.         IF a$ = CHR$(156) THEN _MOUSESHOW
802.         IF LEFT$(a$, 1) = CHR$(160) THEN
803.             p$ = LTRIM$(MID$(a$, 2)): a1$ = LEFT$(p$, INSTR(p$, ",") - 1)
804.             p$ = MID$(p$, INSTR(p$, ",") + 1): a2$ = LEFT$(p$, INSTR(p$, ",") - 1)
805.             p$ = MID$(p$, INSTR(p$, ",") + 1): a3$ = LEFT$(p$, INSTR(p$, ",") - 1)
806.             a4$ = MID$(p$, INSTR(p$, ",") + 1)
807.             IF RIGHT$(a1$, 1) = "%" THEN a1$ = getvar$(a1$, activewin)
808.             IF RIGHT$(a2$, 1) = "%" THEN a2$ = getvar$(a2$, activewin)
809.             IF RIGHT$(a3$, 1) = "%" THEN a3$ = getvar$(a3$, activewin)
810.             IF RIGHT$(a4$, 1) = "%" THEN a4$ = getvar$(a4$, activewin)
811.             'SETVIEW X1, Y1, X2, Y2
812.             DRWPOINT VAL(a4$), VAL(a1$) + X1, VAL(a2$) + Y1
813.             'SETVIEW 0, 0, maxx, maxy
814.         END IF
815.         IF LEFT$(a$, 1) = CHR$(159) THEN
816.             p$ = LTRIM$(MID$(a$, 2)): a1$ = LEFT$(p$, INSTR(p$, ",") - 1)
817.             p$ = MID$(p$, INSTR(p$, ",") + 1): a2$ = LEFT$(p$, INSTR(p$, ",") - 1)
818.             p$ = MID$(p$, INSTR(p$, ",") + 1): a3$ = LEFT$(p$, INSTR(p$, ",") - 1)
819.             p$ = MID$(p$, INSTR(p$, ",") + 1): a4$ = LEFT$(p$, INSTR(p$, ",") - 1)
820.             p$ = MID$(p$, INSTR(p$, ",") + 1): a5$ = LEFT$(p$, INSTR(p$, ",") - 1)
821.             a6$ = MID$(p$, INSTR(p$, ",") + 1)
822.             IF RIGHT$(a1$, 1) = "%" THEN a1$ = getvar$(a1$, activewin)
823.             IF RIGHT$(a2$, 1) = "%" THEN a2$ = getvar$(a2$, activewin)
824.             IF RIGHT$(a3$, 1) = "%" THEN a3$ = getvar$(a3$, activewin)
825.             IF RIGHT$(a4$, 1) = "%" THEN a4$ = getvar$(a4$, activewin)
826.             IF RIGHT$(a5$, 1) = "%" THEN a5$ = getvar$(a5$, activewin)
827.             IF RIGHT$(a6$, 1) = "%" THEN a6$ = getvar$(a6$, activewin)
828.             'SETVIEW X1, Y1, X2, Y2
829.             DRWFILLBOX VAL(a6$), VAL(a1$) + X1, VAL(a2$) + Y1, VAL(a3$) + X1, VAL(a4$) + Y1
830.             'SETVIEW 0, 0, maxx, maxy
831.         END IF
832.         IF LEFT$(a$, 1) = CHR$(158) THEN
833.             p$ = LTRIM$(MID$(a$, 2)): a1$ = LEFT$(p$, INSTR(p$, ",") - 1)
834.             p$ = MID$(p$, INSTR(p$, ",") + 1): a2$ = LEFT$(p$, INSTR(p$, ",") - 1)
835.             p$ = MID$(p$, INSTR(p$, ",") + 1): a3$ = LEFT$(p$, INSTR(p$, ",") - 1)
836.             p$ = MID$(p$, INSTR(p$, ",") + 1): a4$ = LEFT$(p$, INSTR(p$, ",") - 1)
837.             p$ = MID$(p$, INSTR(p$, ",") + 1): a5$ = LEFT$(p$, INSTR(p$, ",") - 1)
838.             a6$ = MID$(p$, INSTR(p$, ",") + 1)
839.             IF RIGHT$(a1$, 1) = "%" THEN a1$ = getvar$(a1$, activewin)
840.             IF RIGHT$(a2$, 1) = "%" THEN a2$ = getvar$(a2$, activewin)
841.             IF RIGHT$(a3$, 1) = "%" THEN a3$ = getvar$(a3$, activewin)
842.             IF RIGHT$(a4$, 1) = "%" THEN a4$ = getvar$(a4$, activewin)
843.             IF RIGHT$(a5$, 1) = "%" THEN a5$ = getvar$(a5$, activewin)
844.             IF RIGHT$(a6$, 1) = "%" THEN a6$ = getvar$(a6$, activewin)
845.             'SETVIEW X1, Y1, X2, Y2
846.             DRWBOX VAL(a6$), VAL(a1$) + X1, VAL(a2$) + Y1, VAL(a3$) + X1, VAL(a4$) + Y1
847.             'SETVIEW 0, 0, maxx, maxy
848.         END IF
849.         IF LEFT$(a$, 1) = CHR$(157) THEN
850.             p$ = LTRIM$(MID$(a$, 2)): a1$ = LEFT$(p$, INSTR(p$, ",") - 1)
851.             p$ = MID$(p$, INSTR(p$, ",") + 1): a2$ = LEFT$(p$, INSTR(p$, ",") - 1)
852.             p$ = MID$(p$, INSTR(p$, ",") + 1): a3$ = LEFT$(p$, INSTR(p$, ",") - 1)
853.             p$ = MID$(p$, INSTR(p$, ",") + 1): a4$ = LEFT$(p$, INSTR(p$, ",") - 1)
854.             p$ = MID$(p$, INSTR(p$, ",") + 1): a5$ = LEFT$(p$, INSTR(p$, ",") - 1)
855.             a6$ = MID$(p$, INSTR(p$, ",") + 1)
856.             IF RIGHT$(a1$, 1) = "%" THEN a1$ = getvar$(a1$, activewin)
857.             IF RIGHT$(a2$, 1) = "%" THEN a2$ = getvar$(a2$, activewin)
858.             IF RIGHT$(a3$, 1) = "%" THEN a3$ = getvar$(a3$, activewin)
859.             IF RIGHT$(a4$, 1) = "%" THEN a4$ = getvar$(a4$, activewin)
860.             IF RIGHT$(a5$, 1) = "%" THEN a5$ = getvar$(a5$, activewin)
861.             IF RIGHT$(a6$, 1) = "%" THEN a6$ = getvar$(a6$, activewin)
862.             'SETVIEW X1, Y1, X2, Y2
863.             DRWLINE VAL(a6$), VAL(a1$) + X1, VAL(a2$) + Y1, VAL(a3$) + X1, VAL(a4$) + Y1
864.             'SETVIEW 0, 0, maxx, maxy
865.         END IF
866.         IF LEFT$(a$, 3) = "WS " THEN
867.             p$ = LTRIM$(MID$(a$, 4))
868.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
869.             putvar d$, STR$(X2 - X1), activewin: putvar s$, STR$(Y2 - Y1), activewin
870.         END IF
871.         IF LEFT$(a$, 1) = CHR$(154) THEN
872.             p$ = LTRIM$(MID$(a$, 2)): a1$ = LEFT$(p$, INSTR(p$, ",") - 1)
873.             p$ = MID$(p$, INSTR(p$, ",") + 1): a2$ = LEFT$(p$, INSTR(p$, ",") - 1)
874.             a3$ = MID$(p$, INSTR(p$, ",") + 1)
875.             MOUSESTATUS x%, y%, b%: putvar a1$, STR$(x%), activewin
876.             putvar a2$, STR$(y%), activewin: putvar a3$, STR$(b%), activewin
877.         END IF
878.         IF LEFT$(a$, 1) = CHR$(153) THEN
879.             p$ = LTRIM$(MID$(a$, 2)): a1$ = LEFT$(p$, INSTR(p$, ",") - 1)
880.             p$ = MID$(p$, INSTR(p$, ",") + 1): a2$ = LEFT$(p$, INSTR(p$, ",") - 1)
881.             a3$ = MID$(p$, INSTR(p$, ",") + 1)
882.             MOUSESTATUS x%, y%, b%: putvar a1$, STR$(x% - X1), activewin
883.             putvar a2$, STR$(y% - Y1), activewin: putvar a3$, STR$(b%), activewin
884.         END IF
885.         IF LEFT$(a$, 1) = CHR$(20) THEN
886.             p$ = LTRIM$(MID$(a$, 2))
887.             putvar p$, s$, activewin
888.         END IF
889.         IF LEFT$(a$, 1) = CHR$(152) THEN
890.             p$ = LTRIM$(MID$(a$, 2))
891.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
892.             putvar d$, STR$(vtx%(activewin)), activewin: putvar s$, STR$(vty%(activewin)), activewin
893.         END IF
894.         IF LEFT$(a$, 1) = CHR$(151) THEN
895.             p$ = LTRIM$(MID$(a$, 2))
896.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
897.             IF RIGHT$(d$, 1) = "%" THEN d$ = getvar$(d$, activewin)
898.             IF RIGHT$(s$, 1) = "%" THEN s$ = getvar$(s$, activewin)
899.             vtx%(activewin) = VAL(d$): vty%(activewin) = VAL(s$)
900.         END IF
901.         IF LEFT$(a$, 1) = CHR$(132) THEN
902.             p$ = LTRIM$(MID$(a$, 2)): putvar p$, STR$(VAL(getvar$(p$, activewin)) - 1), activewin
903.         END IF
904.         IF LEFT$(a$, 1) = CHR$(131) THEN
905.             p$ = LTRIM$(MID$(a$, 2)): putvar p$, STR$(VAL(getvar$(p$, activewin)) + 1), activewin
906.         END IF
907.         IF LEFT$(a$, 1) = CHR$(17) THEN
908.             p$ = LTRIM$(MID$(a$, 2))
909.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
910.             putvar d$, STR$(FIX(VAL(getvar$(s$, activewin)))), activewin
911.         END IF
912.         IF LEFT$(a$, 1) = CHR$(143) THEN
913.             p$ = LTRIM$(MID$(a$, 2)): a1$ = LEFT$(p$, INSTR(p$, ",") - 1)
914.             p$ = MID$(p$, INSTR(p$, ",") + 1): a2$ = LEFT$(p$, INSTR(p$, ",") - 1)
915.             a3$ = MID$(p$, INSTR(p$, ",") + 1)
916.             IF RIGHT$(a2$, 1) = "%" THEN a2$ = getvar$(a2$, activewin)
917.             IF RIGHT$(a3$, 1) = "%" THEN a3$ = getvar$(a3$, activewin)
918.             putvar a1$, STR$(VAL(a2$) / VAL(a3$)), activewin
919.         END IF
920.         IF LEFT$(a$, 1) = CHR$(142) THEN
921.             p$ = LTRIM$(MID$(a$, 2)): a1$ = LEFT$(p$, INSTR(p$, ",") - 1)
922.             p$ = MID$(p$, INSTR(p$, ",") + 1): a2$ = LEFT$(p$, INSTR(p$, ",") - 1)
923.             a3$ = MID$(p$, INSTR(p$, ",") + 1)
924.             IF RIGHT$(a2$, 1) = "%" THEN a2$ = getvar$(a2$, activewin)
925.             IF RIGHT$(a3$, 1) = "%" THEN a3$ = getvar$(a3$, activewin)
926.             putvar a1$, STR$(VAL(a2$) * VAL(a3$)), activewin
927.         END IF
928.         IF LEFT$(a$, 1) = CHR$(141) THEN
929.             p$ = LTRIM$(MID$(a$, 2))
930.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
931.             IF RIGHT$(d$, 1) = "%" THEN
932.                 IF RIGHT$(s$, 1) = "%" THEN s$ = getvar$(s$, activewin)
933.                 putvar d$, STR$(VAL(getvar$(d$, activewin)) - VAL(s$)), activewin
934.             END IF
935.         END IF
936.         IF LEFT$(a$, 1) = CHR$(140) THEN
937.             p$ = LTRIM$(MID$(a$, 2))
938.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
939.             IF RIGHT$(d$, 1) = "%" THEN
940.                 IF RIGHT$(s$, 1) = "%" THEN s$ = getvar$(s$, activewin)
941.                 putvar d$, STR$(VAL(getvar$(d$, activewin)) + VAL(s$)), activewin
942.             END IF
943.             IF RIGHT$(d$, 1) = "$" THEN
944.                 IF RIGHT$(s$, 1) = "$" THEN
945.                     s$ = getvar$(s$, activewin)
946.                     putvar d$, getvar$(d$, activewin) + s$, activewin
947.                 ELSE
948.                     IF LEFT$(s$, 1) = CHR$(34) THEN s$ = MID$(s$, 2): s$ = LEFT$(s$, LEN(s$) - 1)
949.                     putvar d$, getvar$(d$, activewin) + s$, activewin
950.                 END IF
951.             END IF
952.         END IF
953.         IF LEFT$(a$, 1) = CHR$(130) THEN
954.             p$ = LTRIM$(MID$(a$, 2)): a1$ = LEFT$(p$, INSTR(p$, ",") - 1)
955.             p$ = MID$(p$, INSTR(p$, ",") + 1): a2$ = LEFT$(p$, INSTR(p$, ",") - 1)
956.             p$ = MID$(p$, INSTR(p$, ",") + 1): a3$ = LEFT$(p$, INSTR(p$, ",") - 1)
957.             a4$ = MID$(p$, INSTR(p$, ",") + 1)
958.             IF RIGHT$(a1$, 1) = "$" THEN a1$ = getvar(a1$, activewin)
959.             IF RIGHT$(a1$, 1) = "%" THEN a1$ = LTRIM$(STR$(VAL(getvar(a1$, activewin))))
960.             IF LEFT$(a1$, 1) = CHR$(34) THEN a1$ = MID$(a1$, 2): a1$ = LEFT$(a1$, LEN(a1$) - 1)
961.             IF RIGHT$(a2$, 1) = "$" THEN a2$ = getvar(a2$, activewin)
962.             IF LEFT$(a2$, 1) = CHR$(34) THEN a2$ = MID$(a2$, 2): a2$ = LEFT$(a2$, LEN(a2$) - 1)
963.             IF RIGHT$(a3$, 1) = "%" THEN a3$ = getvar(a3$, activewin)
964.             IF RIGHT$(a4$, 1) = "%" THEN a4$ = getvar(a4$, activewin)
965.             t$ = UCASE$(LTRIM$(RTRIM$(a2$)))
966.             IF t$ <> "SYSTEM" THEN
967.                 IF t$ <> "" THEN fontload a2$ ELSE FONTSYSTEM
968.             END IF
969.             _MOUSEHIDE
970.             'SETVIEW X1, Y1, X2, Y2
971.             DRWSTRING co1%(activewin), co2%(activewin), a1$, X1 + VAL(a3$), Y1 + VAL(a4$)
972.             'SETVIEW 0, 0, maxx, maxy
973.             _MOUSESHOW
974.             IF t$ <> "SYSTEM" THEN
975.                 fontnormal
976.             END IF
977.         END IF
978.         IF LEFT$(a$, 1) = CHR$(5) THEN
979.             p$ = LTRIM$(MID$(a$, 2))
980.             IF flags2%(activewin) = 1 THEN label$ = UCASE$(p$): GOTO jump
981.         END IF
982.         IF LEFT$(a$, 1) = CHR$(6) THEN
983.             p$ = LTRIM$(MID$(a$, 2))
984.             IF flags3%(activewin) = 1 THEN label$ = UCASE$(p$): GOTO jump
985.         END IF
986.         IF LEFT$(a$, 1) = CHR$(7) THEN
987.             p$ = LTRIM$(MID$(a$, 2))
988.             IF flags2%(activewin) = 2 THEN label$ = UCASE$(p$): GOTO jump
989.         END IF
990.         IF LEFT$(a$, 1) = CHR$(11) THEN
991.             p$ = LTRIM$(MID$(a$, 2))
992.             IF flags3%(activewin) = 2 THEN label$ = UCASE$(p$): GOTO jump
993.         END IF
994.         IF LEFT$(a$, 1) = CHR$(4) THEN
995.             p$ = LTRIM$(MID$(a$, 2))
996.             IF flags1%(activewin) = 0 THEN label$ = UCASE$(p$): GOTO jump
997.         END IF
998.         IF LEFT$(a$, 1) = CHR$(3) THEN
999.             p$ = LTRIM$(MID$(a$, 2))
1000.             IF flags1%(activewin) = 1 OR flags1%(activewin) = 2 THEN label$ = UCASE$(p$): GOTO jump
1001.         END IF
1002.         IF LEFT$(a$, 1) = CHR$(144) THEN
1003.             p$ = LTRIM$(MID$(a$, 2))
1004.             d$ = LEFT$(p$, INSTR(p$, ",") - 1)
1005.             s$ = MID$(p$, INSTR(p$, ",") + 1)
1006.             IF LEFT$(d$, 1) = CHR$(34) THEN d$ = MID$(d$, 2): d$ = LEFT$(d$, LEN(d$) - 1)
1007.             IF LEFT$(s$, 1) = CHR$(34) THEN s$ = MID$(s$, 2): s$ = LEFT$(s$, LEN(s$) - 1)
1008.             IF RIGHT$(d$, 1) = "%" THEN d$ = getvar$(d$, activewin): s = false
1009.             IF RIGHT$(d$, 1) = "$" THEN d$ = getvar$(d$, activewin): s = true
1010.             IF RIGHT$(s$, 1) = "%" THEN s$ = getvar$(s$, activewin)
1011.             IF RIGHT$(s$, 1) = "$" THEN s$ = getvar$(s$, activewin)
1012.             flags1%(activewin) = false
1013.             IF s = true THEN
1014.                 IF s$ = d$ THEN flags1%(activewin) = 1
1015.             ELSE
1016.                 IF VAL(s$) = VAL(d$) THEN flags1%(activewin) = 2
1017.             END IF
1018.             flags2%(activewin) = false
1019.             IF VAL(d$) > VAL(s$) THEN flags2%(activewin) = 1
1020.             IF VAL(d$) < VAL(s$) THEN flags2%(activewin) = 2
1021.             flags3%(activewin) = false
1022.             IF VAL(d$) >= VAL(s$) THEN flags3%(activewin) = 1
1023.             IF VAL(d$) <= VAL(s$) THEN flags3%(activewin) = 2
1024.         END IF
1025.         IF LEFT$(a$, 1) = CHR$(150) THEN
1026.             p$ = LTRIM$(MID$(a$, 2))
1027.             putvar p$, INKEY$, activewin
1028.         END IF
1029.         IF LEFT$(a$, 1) = CHR$(14) THEN
1030.             p$ = LTRIM$(MID$(a$, 2))
1031.             IF RIGHT$(p$, 1) = "%" THEN p$ = getvar$(p$, activewin)
1032.             IF RIGHT$(p$, 1) = "$" THEN p$ = STR$(ASC(getvar$(p$, activewin)))
1033.             p$ = CHR$(VAL(p$))
1034.             GOSUB printf
1035.         END IF
1036.         IF LEFT$(a$, 1) = CHR$(12) THEN
1037.             p$ = LTRIM$(MID$(a$, 2))
1038.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = MID$(p$, INSTR(p$, ",") + 1)
1039.             IF RIGHT$(s$, 1) = "%" THEN s$ = getvar(s$, activewin)
1040.             IF RIGHT$(d$, 1) = "%" THEN d$ = getvar(d$, activewin)
1041.             co1%(activewin) = VAL(d$): co2%(activewin) = VAL(s$)
1042.         END IF
1043.         IF LEFT$(a$, 1) = CHR$(128) THEN
1044.             p$ = LTRIM$(MID$(a$, 2))
1045.             d$ = LEFT$(p$, INSTR(p$, ",") - 1): s$ = RTRIM$(MID$(p$, INSTR(p$, ",") + 1))
1046.             IF RIGHT$(s$, 1) = "$" OR RIGHT$(s$, 1) = "%" THEN s$ = getvar(s$, activewin)
1047.             putvar d$, s$, activewin
1048.         END IF
1049.         IF LEFT$(a$, 1) = "L" THEN
1050.             p$ = LTRIM$(MID$(a$, 2))
1051.             k = false
1052.             IF RIGHT$(p$, 1) = ";" THEN
1053.                 k = true
1054.                 p$ = RTRIM$(LEFT$(p$, LEN(p$) - 1))
1055.             END IF
1056.             IF RIGHT$(p$, 1) = "$" THEN p$ = getvar(p$, activewin)
1057.             IF RIGHT$(p$, 1) = "%" THEN p$ = LTRIM$(STR$(VAL(getvar(p$, activewin))))
1058.             IF LEFT$(p$, 1) = CHR$(34) THEN p$ = MID$(p$, 2): p$ = LEFT$(p$, LEN(p$) - 1)
1059.             IF p$ <> "" THEN
1060.                 IF k = true THEN LPRINT p$; ELSE LPRINT p$
1061.             END IF
1062.         END IF
1063.         IF LEFT$(a$, 1) = CHR$(129) THEN
1064.             p$ = LTRIM$(MID$(a$, 2))
1065.             k = false
1066.             IF RIGHT$(p$, 1) = ";" THEN
1067.                 k = true
1068.                 p$ = RTRIM$(LEFT$(p$, LEN(p$) - 1))
1069.             END IF
1070.             IF RIGHT$(p$, 1) = "$" THEN p$ = getvar(p$, activewin)
1071.             IF RIGHT$(p$, 1) = "%" THEN p$ = LTRIM$(STR$(VAL(getvar(p$, activewin))))
1072.             IF LEFT$(p$, 1) = CHR$(34) THEN p$ = MID$(p$, 2): p$ = LEFT$(p$, LEN(p$) - 1)
1073.             IF p$ <> "" THEN
1074.                 GOSUB printf
1075.                 IF k = false THEN p$ = CHR$(13): GOSUB printf
1076.             END IF
1077.         END IF
1078.         IF LEFT$(a$, 1) = CHR$(2) THEN
1079.             label$ = UCASE$(MID$(a$, 2))
1080.             jump:
1081.             IP(activewin) = VAL(label$) - 2
1082.         END IF
1083.         done:
1084.         IF a$ <> "E" THEN
1085.             IP(activewin) = IP(activewin) + 1
1086.         ELSE
1087.             window.close openwins + 0
1088.         END IF
1089.     END IF
1090. LOOP
1091. screen.close
1092. IF RES = true THEN GOTO START
1093. SYSTEM
1094.  
1095. printf: ' print text into window as if it was a text mode screen
1096. _MOUSEHIDE
1097. FOR Z = 1 TO LEN(p$)
1098.     q$ = MID$(p$, Z, 1)
1099.     IF q$ = CHR$(7) THEN
1100.         SOUND 500, 1
1101.     ELSE
1102.         IF q$ = CHR$(13) THEN
1103.             vty%(activewin) = vty%(activewin) + 1
1104.             vtx%(activewin) = 0
1105.             IF sfony% + 1 + vty%(activewin) * sfony% > Y2 - Y1 THEN GOSUB scrollf: vty%(activewin) = vty%(activewin) - 1
1106.         ELSE
1107.             IF q$ = CHR$(8) THEN
1108.                 IF vtx%(activewin) THEN
1109.                     vtx%(activewin) = vtx%(activewin) - 1
1110.                     x% = X1 + vtx%(activewin) * sfonx%: y% = Y1 + vty%(activewin) * sfony%
1111.                     DRWSTRING co1%(activewin), co2%(activewin), " ", x%, y%
1112.                 END IF
1113.             ELSE
1114.                 IF sfonx% + vtx%(activewin) * sfonx% > X2 - X1 THEN
1115.                     vty%(activewin) = vty%(activewin) + 1
1116.                     vtx%(activewin) = 0
1117.                     IF sfony% + 1 + vty%(activewin) * sfony% > Y2 - Y1 THEN GOSUB scrollf: vty%(activewin) = vty%(activewin) - 1
1118.                 END IF
1119.                 IF sfonx% + vtx%(activewin) * sfonx% > X2 - X1 THEN vtx%(activewin) = 0
1120.                 IF sfony% + 1 + vty%(activewin) * sfony% > Y2 - Y1 THEN vty%(activewin) = 0
1121.                 x% = X1 + vtx%(activewin) * sfonx%: y% = Y1 + vty%(activewin) * sfony%
1122.                 DRWSTRING co1%(activewin), co2%(activewin), q$, x%, y%
1123.                 vtx%(activewin) = vtx%(activewin) + 1
1124.             END IF
1125.         END IF
1126.     END IF
1127. NEXT
1128. _MOUSESHOW
1129. RETURN
1130.  
1131. scrollf: ' scroll text in window
1132. scroll% = XMSBLKGET%(X1, Y1 + sfony%, X2, Y2)
1133. dummy% = XMSBLKPUT%(1, X1, Y1, scroll%)
1134. DRWFILLBOX co2%(activewin), X1, Y2 - sfony%, X2, Y2
1135. dummy% = XMSFREE%(scroll%)
1136. RETURN
1137.  
1138. errhandler:
1139. derror(activewin) = ERR
1140. RESUME NEXT
1141.  
1142. REM I had way too much caffeine while programming this, hahahaha!!!
1143.  
1144. SUB background (wallpaper$)
1145.     IF RIGHT$(wallpaper$, 1) = "~" THEN
1146.         wallpaper$ = LEFT$(wallpaper$, LEN(wallpaper$) - 1)
1147.         mm = true
1148.     END IF
1149.     IF mm = true THEN timerset true
1150.     refreshwindows = true
1151.     IF mm = true THEN _MOUSEHIDE
1152.     IF openwins THEN winvsave openwins
1153.     FILLSCREEN bgcolor
1154.     IF mm = true THEN _MOUSESHOW
1155.     IF wallpaper$ <> "" THEN
1156.         IF DIR$(wallpaper$) <> "" THEN
1157.             redo3:
1158.             IF mm = true THEN _MOUSEHIDE
1159.             a% = PNGPUT%(xx%, yy%, wallpaper$)
1160.             IF mm = true THEN _MOUSESHOW
1161.             a% = PNGGETINFO%(wallpaper$, x%, y%)
1162.             IF x% + xx% < maxx THEN xx% = xx% + x%: GOTO redo3 ELSE xx% = 0
1163.             IF y% + yy% < maxy THEN yy% = yy% + y%: GOTO redo3 ELSE yy% = 0
1164.         END IF
1165.     END IF
1166.     IF bghandle% <> false THEN dummy% = XMSFREE%(bghandle%)
1167.     IF mm = true THEN _MOUSEHIDE
1168.     bghandle% = XMSBLKGET%(0, 0, maxx, maxy)
1169.     IF mm = true THEN
1170.         _MOUSESHOW
1171.         timerset false
1172.     END IF
1173. END SUB
1174.  
1175. SUB fontload (FileName$)
1176.     IF DIR$(FileName$) = "" THEN EXIT SUB
1177.     FF = FREEFILE: OPEN FileName$ FOR BINARY AS FF
1178.     GET #FF, , fon
1179.     CLOSE FF
1180.     'FONTSET fon
1181. END SUB
1182.  
1183. SUB fontnormal
1184.     IF sfon$ <> "" THEN fontload sfon$ ELSE FONTSYSTEM
1185. END SUB
1186.  
1187. FUNCTION getvar$ (varname$, pid)
1188.     a$ = mainmem$(pid)
1189.     a = INSTR(UCASE$(a$), CHR$(127) + UCASE$(varname$))
1190.     IF a > false THEN
1191.         b$ = MID$(a$, a)
1192.         b$ = MID$(b$, INSTR(b$, ",") + 1)
1193.         b$ = LTRIM$(RTRIM$(LEFT$(b$, INSTR(b$, CHR$(255)) - 1)))
1194.         IF LEFT$(b$, 1) = CHR$(34) THEN b$ = MID$(b$, 2): b$ = LEFT$(b$, LEN(b$) - 1)
1195.         getvar$ = b$
1196.     END IF
1197. END FUNCTION
1198.  
1199. SUB putvar (varname$, contents$, pid)
1200.     varname$ = CHR$(127) + LTRIM$(RTRIM$(UCASE$(varname$)))
1201.     a$ = mainmem$(pid)
1202.     IF RIGHT$(varname$, 1) = "$" AND LEFT$(contents$, 1) <> CHR$(34) THEN contents$ = CHR$(34) + contents$ + CHR$(34)
1203.     a = INSTR(UCASE$(a$), varname$)
1204.     IF a > false THEN
1205.         b$ = LEFT$(a$, a - 1) + varname$ + "," + contents$
1206.         b$ = b$ + MID$(a$, INSTR(a, a$, CHR$(255)))
1207.         mainmem$(pid) = b$
1208.     END IF
1209. END SUB
1210.  
1211. FUNCTION readline$ (linenumber%, pid)
1212.     a$ = mainmem$(pid)
1213.     b$ = MID$(a$, INSTR(a$, CHR$(255) + LTRIM$(STR$(linenumber%)) + CHR$(252)))
1214.     b$ = MID$(b$, INSTR(b$, CHR$(252)) + 1)
1215.     readline$ = LEFT$(b$, INSTR(b$, CHR$(255)) - 1)
1216. END FUNCTION
1217.  
1218. SUB screen.close
1219.     FOR i% = 1 TO maxwins
1220.         window.close i%
1221.     NEXT
1222.     dummy% = XMSFREE%(bghandle%)
1223.     tmp% = RESTEXT%: CLS
1224. END SUB
1225.  
1226. SUB screen.setup
1227.     freehandle = FREEFILE
1228.  
1229.     bgcolor = 25
1230.  
1231.     IF WHICHXMS(MEM%, handles%) = true THEN
1232.         IF MEM% < 1 OR handles% < 1 THEN
1233.             PANIC "no free XMS memory"
1234.         END IF
1235.     ELSE
1236.         PANIC "HIMEM.SYS must be loaded first"
1237.     END IF
1238.  
1239.     IF DIR$("SETTINGS.INI") <> "" THEN
1240.         OPEN "SETTINGS.INI" FOR INPUT AS freehandle
1241.         DO UNTIL EOF(freehandle)
1242.             LINE INPUT #freehandle, settings$
1243.             settings$ = LTRIM$(RTRIM$(UCASE$(settings$)))
1244.             IF LEFT$(settings$, 4) = "MODE" THEN Mode$ = LTRIM$(MID$(settings$, 5))
1245.             IF LEFT$(settings$, 14) = "MOUSE POINTER " THEN
1246.                 mousefile$ = MID$(settings$, 15)
1247.             END IF
1248.             IF LEFT$(settings$, 12) = "MOUSE TIMER " THEN
1249.                 mousefile2$ = MID$(settings$, 13)
1250.             END IF
1251.             IF LEFT$(settings$, 17) = "BACKGROUND COLOR " THEN bgcolor = VAL(MID$(settings$, 18))
1252.             IF LEFT$(settings$, 13) = "ACTIVE COLOR " THEN actcolor = VAL(MID$(settings$, 14))
1253.             IF LEFT$(settings$, 13) = "NONACT COLOR " THEN nonactcolor = VAL(MID$(settings$, 14))
1254.             IF LEFT$(settings$, 12) = "TITLE COLOR " THEN titlecolor = VAL(MID$(settings$, 13))
1255.             IF LEFT$(settings$, 10) = "WALLPAPER " THEN wallpaper$ = MID$(settings$, 11)
1256.             IF LEFT$(settings$, 12) = "SYSTEM FONT " THEN sfon$ = MID$(settings$, 13)
1257.         LOOP
1258.         CLOSE freehandle
1259.     ELSE
1260.         Mode$ = "640X480"
1261.         mousefile$ = "mouse.poi"
1262.     END IF
1263.  
1264.     setuppointers mousefile$, mousefile2$
1265.  
1266.     cardtype = WHICHVGA
1267.     IF WHICHMOUSE = false THEN
1268.         PANIC "No mouse driver found"
1269.     END IF
1270.  
1271.     SELECT CASE Mode$
1272.         CASE "640X400": errorcheck = RES640L: maxx = 639: maxy = 399
1273.         CASE "640X480": errorcheck = RES640: maxx = 639: maxy = 479
1274.         CASE "800X600": errorcheck = RES800: maxx = 799: maxy = 599
1275.         CASE "1024X768": errorcheck = RES1024: maxx = 1023: maxy = 767
1276.         CASE "1280X1024": errorcheck = RES1280: maxx = 1279: maxy = 1023
1277.     END SELECT
1278.     IF errorcheck = false THEN
1279.         PANIC "Video card can't use this screen mode in SETTINGS.INI"
1280.     END IF
1281.  
1282.     dummy% = PAGEACTIVE%(1)
1283.     FILLPAGE 24
1284.     f$ = "XGUI4.INI"
1285.     a% = PNGGETINFO%(f$, xe%, ye%)
1286.     xe% = xe% / 2: ye% = ye% / 2
1287.     a% = PNGPUT%(-xe% + maxx / 2, -ye% + maxy / 2, f$)
1288.     t$ = RIGHT$(TIME$, 2)
1289.     dummy% = PAGEACTIVE%(0)
1290.     dummy% = PAGEDISPLAY%(0, 0, 1)
1291.  
1292.     background wallpaper$
1293.  
1294.     FONTSYSTEM
1295.  
1296.     IF sfon$ <> "" THEN
1297.         IF DIR$(sfon$) <> "" THEN
1298.             fontload sfon$
1299.         END IF
1300.     END IF
1301.     FONTGETINFO sfonx%, sfony%
1302.  
1303.     IF VAL(RIGHT$(TIME$, 2)) < VAL(t$) + 3 THEN SLEEP 2
1304.     dummy% = PAGEDISPLAY%(0, 0, 0)
1305.  
1306.     'MOUSEENTER
1307.     MOUSELOCSET 16, 16
1308.     timerset true
1309.     _MOUSESHOW
1310.  
1311. END SUB
1312.  
1313. SUB startscript (FileName$, cmd$)
1314.     'ON LOCAL ERROR GOTO sse
1315.     timerset true
1316.     FF = FREEFILE: OPEN FileName$ FOR INPUT AS FF
1317.     INPUT #FF, X1, Y1, X2, Y2, closebtn, resizebtn, movebtn, title$
1318.     process = window.create(X1, Y1, X2, Y2, closebtn, resizebtn, movebtn, title$)
1319.     DO UNTIL EOF(FF)
1320.         LINE INPUT #FF, a$
1321.         a$ = LTRIM$(RTRIM$(a$))
1322.         l = l + 1
1323.         mainmem$(process) = mainmem$(process) + CHR$(255) + LTRIM$(STR$(l)) + CHR$(252) + a$
1324.     LOOP
1325.     mainmem$(process) = mainmem$(process) + CHR$(255)
1326.     CLOSE FF
1327.     IP(process) = 1 'set instruction pointer to first line...
1328.     vtx%(process) = 0 'set virtual text cursor x
1329.     vty%(process) = 0 'set virtual text cursor y
1330.     co1%(process) = 0 'set color x, to 0
1331.     co2%(process) = 7 'set color ,x to 7
1332.     pcommand$(process) = cmd$
1333.     timerset false
1334.     EXIT SUB
1335.     sse:
1336.     RESUME ssee
1337.     ssee:
1338.     timerset false
1339. END SUB
1340.  
1341. SUB window.close (id%)
1342.     IF win(id%).objectID = false THEN EXIT SUB
1343.     mainmem$(win(id%).objectID) = ""
1344.     a$ = pfiles$(win(id%).objectID)
1345.     IF a$ <> "" THEN
1346.         FOR i = 1 TO LEN(a$)
1347.             m$ = MID$(a$, i, 1)
1348.             IF m$ <> "" THEN CLOSE ASC(m$)
1349.         NEXT
1350.     END IF
1351.     pfiles$(win(id%).objectID) = ""
1352.     _MOUSEHIDE
1353.     'SETVIEW win(id%).X1, win(id%).Y1, win(id%).X2, win(id%).Y2
1354.     dummy% = XMSBLKPUT%(1, 0, 0, bghandle%)
1355.     'SETVIEW 0, 0, maxx, maxy
1356.     _MOUSESHOW
1357.     dummy% = XMSFREE%(win(id%).virtual)
1358.     FOR c = id% TO maxwins - 1 '*rollback* function #2
1359.         win(c).X1 = win(c + 1).X1: win(c).Y1 = win(c + 1).Y1
1360.         win(c).X2 = win(c + 1).X2: win(c).Y2 = win(c + 1).Y2
1361.         win(c).closebtn = win(c + 1).closebtn: win(c).resizebtn = win(c + 1).resizebtn
1362.         win(c).movebtn = win(c + 1).movebtn: win(c).title$ = win(c + 1).title$
1363.         win(c).virtual = win(c + 1).virtual: win(c).objectID = win(c + 1).objectID
1364.     NEXT
1365.     openwins = openwins - 1
1366.     refreshwindows = true
1367.     switch = true
1368. END SUB
1369.  
1370. FUNCTION window.create (X1, Y1, X2, Y2, closebtn, resizebtn, movebtn, title$)
1371.     IF Y2 = 5000 THEN Y1 = maxy / 2: Y2 = maxy '*little internal hack 4 shell :)
1372.     IF X2 > maxx THEN X2 = maxx
1373.     IF Y2 > maxy THEN Y2 = maxy
1374.     IF openwins = maxwins - 2 THEN SOUND 700, 1: SOUND 500, 1: EXIT FUNCTION
1375.     FOR i = 1 TO maxwins
1376.         IF win(i).objectID = false THEN
1377.             win(i).X1 = X1: win(i).X2 = X2
1378.             win(i).Y1 = Y1: win(i).Y2 = Y2
1379.             win(i).closebtn = closebtn
1380.             win(i).resizebtn = resizebtn
1381.             win(i).movebtn = movebtn
1382.             win(i).title$ = title$
1383.             FOR Z = 1 TO maxwins
1384.                 FOR x = 1 TO maxwins
1385.                     IF win(x).objectID = Z THEN GOTO n
1386.                 NEXT
1387.                 win(i).objectID = Z: EXIT FOR
1388.                 n:
1389.             NEXT
1390.             openwins = openwins + 1
1391.             refreshwindows = true
1392.             repair = true
1393.             window.create = Z: EXIT FUNCTION
1394.         END IF
1395.     NEXT
1396.     window.create = false
1397. END FUNCTION
1398.  
1399. SUB window.manager
1400.     MOUSESTATUS x%, y%, b%
1401.  
1402.     IF b% <> false AND refreshwindows = false THEN
1403.         'if mouse is in another window and pressed, set active
1404.         FOR i = 1 TO maxwins
1405.             IF win(i).objectID = false THEN i = i - 1: EXIT FOR
1406.         NEXT
1407.         IF x% >= win(i).X1 AND y% >= win(i).Y1 AND x% <= win(i).X2 AND y% <= win(i).Y2 THEN
1408.         ELSE
1409.             FOR Z = 1 TO openwins - 1
1410.                 IF x% >= win(Z).X1 AND y% >= win(Z).Y1 AND x% <= win(Z).X2 AND y% <= win(Z).Y2 THEN
1411.                     newactwin = Z ' sets this for next routines below
1412.                 END IF
1413.             NEXT
1414.         END IF
1415.     END IF
1416.  
1417.     IF newactwin <> false AND refreshwindows = false THEN
1418.         ' set to new active window
1419.         IF switch = true THEN
1420.             _MOUSEHIDE
1421.             winvsave openwins
1422.             _MOUSESHOW
1423.             FOR i = 1 TO maxwins
1424.                 IF win(i).objectID = false THEN EXIT FOR
1425.             NEXT
1426.             win(i).X1 = win(newactwin).X1: win(i).X2 = win(newactwin).X2
1427.             win(i).Y1 = win(newactwin).Y1: win(i).Y2 = win(newactwin).Y2
1428.             win(i).closebtn = win(newactwin).closebtn
1429.             win(i).resizebtn = win(newactwin).resizebtn
1430.             win(i).movebtn = win(newactwin).movebtn
1431.             win(i).title$ = win(newactwin).title$
1432.             win(i).virtual = win(newactwin).virtual
1433.             win(i).objectID = win(newactwin).objectID
1434.             FOR c = newactwin TO maxwins - 1 '*rollback routine*
1435.                 win(c).X1 = win(c + 1).X1: win(c).Y1 = win(c + 1).Y1
1436.                 win(c).X2 = win(c + 1).X2: win(c).Y2 = win(c + 1).Y2
1437.                 win(c).closebtn = win(c + 1).closebtn: win(c).resizebtn = win(c + 1).resizebtn
1438.                 win(c).movebtn = win(c + 1).movebtn: win(c).title$ = win(c + 1).title$
1439.                 win(c).virtual = win(c + 1).virtual: win(c).objectID = win(c + 1).objectID
1440.             NEXT
1441.             refreshwindows = true
1442.         ELSE
1443.             SOUND 700, .6 ' window switch = false so just beep..
1444.             DO UNTIL b% = false
1445.                 MOUSESTATUS x%, y%, b%
1446.             LOOP
1447.         END IF
1448.     END IF
1449.  
1450.     IF refreshwindows = true THEN 'refresh windows (duh)
1451.         refreshwindows = false
1452.         _MOUSEHIDE
1453.         hidegraph true
1454.         dummy% = XMSBLKPUT%(1, 0, 0, bghandle%)
1455.         FOR i = 1 TO maxwins
1456.             IF win(i).objectID <> false THEN
1457.                 IF i = openwins THEN a% = true ELSE a% = false
1458.                 IF a% = true THEN
1459.                     IF crhandle% <> false THEN dummy% = XMSFREE%(crhandle%)
1460.                     crhandle% = XMSBLKGET%(0, 0, maxx, maxy)
1461.                 END IF
1462.                 window.paint win(i).X1, win(i).Y1, win(i).X2, win(i).Y2, win(i).closebtn, win(i).resizebtn, win(i).movebtn, win(i).title$, a%
1463.                 IF win(i).virtual <> false THEN
1464.                     Y1 = win(i).Y1: X1 = win(i).X1: Y2 = win(i).Y2: X2 = win(i).X2
1465.                     IF win(i).movebtn THEN Y1 = Y1 + 18
1466.                     IF win(i).resizebtn THEN X2 = X2 - 19: Y2 = Y2 - 19
1467.                     'SETVIEW X1, Y1, X2 - 2, Y2 - 2
1468.                     winvput i 'put windows contents back into the window :)
1469.                     'SETVIEW 0, 0, maxx, maxy
1470.                 END IF
1471.             END IF
1472.         NEXT
1473.         hidegraph false
1474.         _MOUSESHOW
1475.     END IF
1476.  
1477.     i = openwins
1478.     IF b% <> false AND refreshwindows = false THEN
1479.         IF win(i).resizebtn <> false AND x% >= win(i).X2 - 19 AND y% >= win(i).Y2 - 19 AND x% <= win(i).X2 AND y% <= win(i).Y2 THEN
1480.             xl = x% - win(i).X1: yl = y% - win(i).Y1
1481.             'SETVIEW win(i).X1, win(i).Y1, win(i).X2, win(i).Y2
1482.             _MOUSEHIDE
1483.             winvsave i
1484.             hidegraph true
1485.             dummy% = XMSBLKPUT%(1, 0, 0, crhandle%)
1486.             'SETVIEW 0, 0, maxx, maxy
1487.             DO
1488.                 MOUSESTATUS x%, y%, b%
1489.                 x3 = win(i).X1: y3 = win(i).Y1
1490.                 x4 = x% + (win(i).X2 - win(i).X1) - xl: y4 = y% + (win(i).Y2 - win(i).Y1) - yl
1491.                 IF x4 <= x3 + 70 THEN x4 = x3 + 70
1492.                 IF y4 <= y3 + 70 THEN y4 = y3 + 70
1493.                 IF x4 > maxx THEN x4 = maxx
1494.                 IF y4 > maxy THEN y4 = maxy
1495.                 handle2% = XMSBLKGET%(x3, y3, x4, y4)
1496.                 window.paint x3 + 0, y3 + 0, x4 + 0, y4 + 0, win(i).closebtn, true, win(i).movebtn, win(i).title, true
1497.                 drw3Dbox x4 - 19, y4 - 19, x4 - 2, y4 - 2, 0, actcolor + 0
1498.                 'SETVIEW x3, y3, x4 - 21, y4 - 21
1499.                 winvput i
1500.                 'SETVIEW 0, 0, maxx, maxy
1501.                 MOUSESTATUS xx%, yy%, bb%
1502.                 hidegraph false
1503.                 _MOUSESHOW
1504.                 DO UNTIL x% <> xx% OR y% <> yy%
1505.                     MOUSESTATUS x%, y%, b%
1506.                     IF b% = false THEN s = true: GOTO e
1507.                 LOOP
1508.                 _MOUSEHIDE
1509.                 hidegraph true
1510.                 dummy% = XMSBLKPUT%(1, x3, y3, handle2%)
1511.                 e: 'Hidden deep inside your code you may find yourself
1512.                 dummy% = XMSFREE%(handle2%)
1513.                 IF s = true THEN EXIT DO
1514.             LOOP
1515.             _MOUSESHOW
1516.             refreshwindows = true
1517.             win(i).X2 = x4: win(i).Y2 = y4
1518.             repair = true
1519.             _MOUSEHIDE
1520.             winvsave i
1521.             _MOUSESHOW
1522.         END IF
1523.         IF win(i).closebtn <> false THEN f = 20
1524.         IF win(i).movebtn <> false AND x% >= win(i).X1 AND y% >= win(i).Y1 AND x% <= win(i).X2 - f AND y% <= win(i).Y1 + 18 THEN
1525.             xl = x% - win(i).X1: yl = y% - win(i).Y1
1526.             handle% = XMSBLKGET%(win(i).X1, win(i).Y1, win(i).X2, win(i).Y2)
1527.             'SETVIEW win(i).X1, win(i).Y1, win(i).X2, win(i).Y2
1528.             _MOUSEHIDE
1529.             winvsave i
1530.             hidegraph true
1531.             dummy% = XMSBLKPUT%(1, 0, 0, crhandle%)
1532.             'SETVIEW 0, 0, maxx, maxy
1533.             DO
1534.                 MOUSESTATUS x%, y%, b%
1535.                 x3 = x% - xl: y3 = y% - yl
1536.                 x4 = x% + (win(i).X2 - win(i).X1) - xl: y4 = y% + (win(i).Y2 - win(i).Y1) - yl
1537.                 IF x3 < 0 THEN x3 = 0: x4 = win(i).X2 - win(i).X1
1538.                 IF y3 < 0 THEN y3 = 0: y4 = win(i).Y2 - win(i).Y1
1539.                 IF x4 > maxx THEN x4 = maxx: x3 = x4 - (win(i).X2 - win(i).X1)
1540.                 IF y4 > maxy THEN y4 = maxy: y3 = y4 - (win(i).Y2 - win(i).Y1)
1541.                 handle2% = XMSBLKGET%(x3, y3, x4, y4)
1542.                 dummy% = XMSBLKPUT%(1, x3, y3, handle%)
1543.                 hidegraph false
1544.                 MOUSESTATUS xx%, yy%, bb%
1545.                 DO UNTIL x% <> xx% OR y% <> yy%
1546.                     MOUSESTATUS x%, y%, b%
1547.                     IF b% = false THEN s = true: GOTO E2
1548.                 LOOP
1549.                 E2:
1550.                 hidegraph true
1551.                 dummy% = XMSBLKPUT%(1, x3, y3, handle2%)
1552.                 dummy% = XMSFREE%(handle2%)
1553.                 IF s = true THEN EXIT DO
1554.             LOOP
1555.             dummy% = XMSBLKPUT%(1, x3, y3, handle%)
1556.             hidegraph false
1557.             _MOUSESHOW
1558.             dummy% = XMSFREE%(handle%)
1559.             win(i).X1 = x3: win(i).Y1 = y3: win(i).X2 = x4: win(i).Y2 = y4
1560.             refreshwindows = true
1561.         END IF
1562.         IF win(i).closebtn <> false AND win(i).movebtn <> false AND x% >= win(i).X2 - 19 AND x% <= win(i).X2 - 2 AND y% >= win(i).Y1 + 2 AND y% <= win(i).Y1 + 18 THEN
1563.             _MOUSEHIDE
1564.             DRWBOX 0, win(i).X2 - 19, win(i).Y1 + 1, win(i).X2 - 1, win(i).Y1 + 18
1565.             _MOUSESHOW
1566.             DO UNTIL b% = false
1567.                 MOUSESTATUS x%, y%, b%
1568.             LOOP
1569.             FOR R = 0 TO 1: t# = TIMER: DO UNTIL t# <> TIMER: LOOP: NEXT
1570.             _MOUSEHIDE
1571.             DRWLINE 15, win(i).X2 - 19, win(i).Y1 + 1, win(i).X2 - 19, win(i).Y1 + 17
1572.             DRWLINE 15, win(i).X2 - 19, win(i).Y1 + 1, win(i).X2 - 2, win(i).Y1 + 1
1573.             _MOUSESHOW
1574.             IF x% >= win(i).X2 - 19 AND x% <= win(i).X2 - 2 AND y% >= win(i).Y1 + 2 AND y% <= win(i).Y1 + 18 THEN
1575.                 window.close i + 0
1576.             END IF
1577.         END IF
1578.     END IF
1579. END SUB
1580.  
1581. SUB window.paint (X1%, Y1%, X2%, Y2%, closebtn%, resizebtn%, movebtn%, title$, active%)
1582.     'kenneths ripoff of the Amiga look >:)
1583.     DRWBOX 0, X1%, Y1%, X2%, Y2%
1584.     DRWBOX 0, X1%, Y1%, X2% - 1, Y2% - 1
1585.     DRWBOX 15, X1% + 1, Y1% + 1, X2% - 2, Y2% - 2
1586.     IF LEFT$(title$, 1) <> CHR$(3) THEN
1587.         DRWFILLBOX 7, X1% + 2, Y1% + 2, X2% - 2, Y2% - 2
1588.     ELSE
1589.         title$ = MID$(title$, 2)
1590.     END IF
1591.     IF movebtn% THEN
1592.         DRWLINE 0, X1% + 1, Y1% + 18, X2% - 2, Y1% + 18
1593.         DRWLINE 15, X1% + 1, Y1% + 19, X2% - 2, Y1% + 19
1594.     END IF
1595.     IF active% THEN
1596.         a = actcolor
1597.     ELSE
1598.         a = nonactcolor
1599.     END IF
1600.     IF movebtn% THEN
1601.         DRWFILLBOX a, X1% + 2, Y1% + 2, X2% - 2, Y1% + 17
1602.         IF closebtn% THEN
1603.             DRWLINE 15, X2% - 19, Y1% + 2, X2% - 19, Y1% + 17
1604.             DRWLINE 0, X2% - 20, Y1% + 2, X2% - 20, Y1% + 17
1605.             DRWBOX 0, X2% - 13, Y1% + 7, X2% - 8, Y1% + 12
1606.             DRWLINE 15, X2% - 12, Y1% + 12, X2% - 8, Y1% + 12
1607.             DRWLINE 15, X2% - 8, Y1% + 8, X2% - 8, Y1% + 12
1608.             b = 19
1609.         END IF
1610.         t$ = RTRIM$(title$)
1611.         l% = ((X2% - X1%) / 2) - LEN(t$) * 4
1612.         'SETVIEW X1% + 2, Y1% + 3, X2% - 3 - b, Y1% + 17
1613.         DRWSTRING titlecolor, a, t$, X1% + 2 + l%, Y1% + 3
1614.         'SETVIEW 0, 0, maxx, maxy
1615.     END IF
1616.     IF resizebtn% THEN
1617.         DRWFILLBOX a, X2% - 18, Y2% - 18, X2% - 2, Y2% - 2
1618.         DRWBOX 0, X2% - 16, Y2% - 15, X2% - 12, Y2% - 11
1619.         DRWBOX 15, X2% - 16, Y2% - 15, X2% - 11, Y2% - 10
1620.         DRWBOX 0, X2% - 17, Y2% - 16, X2% - 5, Y2% - 5
1621.         DRWBOX 15, X2% - 16, Y2% - 15, X2% - 4, Y2% - 4
1622.         DRWLINE 15, X2% - 19, Y2% - 19, X2% - 19, Y2% - 2
1623.         DRWLINE 15, X2% - 19, Y2% - 19, X2% - 2, Y2% - 19
1624.         DRWBOX 0, X2% - 20, Y2% - 20, X2% - 1, Y2% - 1
1625.         DRWLINE 0, X2% - 20, Y1% + 20, X2% - 20, Y2% - 21
1626.         DRWLINE 0, X1% + 2, Y2% - 20, X2% - 21, Y2% - 20
1627.         DRWFILLBOX a, X2% - 19, Y1% + 20, X2% - 2, Y2% - 21
1628.         DRWFILLBOX a, X1% + 2, Y2% - 19, X2% - 21, Y2% - 2
1629.     END IF
1630. END SUB
1631.  
1632. SUB winvput (id)
1633.     X1% = win(id).X1 + 2: Y1% = win(id).Y1% + 2
1634.     IF win(id).movebtn THEN
1635.         Y1% = Y1% + 18
1636.     END IF
1637.     dummy% = XMSBLKPUT%(1, X1%, Y1%, win(id).virtual)
1638. END SUB
1639.  
1640. SUB winvsave (id)
1641.     IF win(id).virtual <> false THEN dummy% = XMSFREE%(win(id).virtual)
1642.     X1% = win(id).X1 + 2: Y1% = win(id).Y1% + 2
1643.     X2% = win(id).X2 - 2: Y2% = win(id).Y2% - 2
1644.     IF win(id).movebtn THEN
1645.         Y1% = Y1% + 18
1646.     END IF
1647.     IF win(id).resizebtn THEN
1648.         X2% = X2% - 19
1649.         Y2% = Y2% - 19
1650.     END IF
1651.     win(id).virtual = XMSBLKGET%(X1%, Y1%, X2%, Y2%)
1652. END SUB
1653.  
1654. SUB chactcol (newcol)
1655.     FK = FREEFILE: KL = false
1656.     OPEN "SETTINGS.INI" FOR INPUT AS FK
1657.     FL = FREEFILE
1658.     OPEN "SETTINGS.TMP" FOR OUTPUT AS FL
1659.     DO UNTIL EOF(FK)
1660.         LINE INPUT #FK, h$
1661.         h$ = UCASE$(LTRIM$(h$))
1662.         IF LEFT$(h$, 13) = "ACTIVE COLOR " THEN
1663.             PRINT #FL, "ACTIVE COLOR" + STR$(newcol): KL = true
1664.         ELSE
1665.             PRINT #FL, h$
1666.         END IF
1667.     LOOP
1668.     IF KL = false THEN PRINT #FL, "ACTIVE COLOR" + STR$(newcol)
1669.     CLOSE FK, FL
1670.     OPEN "SETTINGS.INI" FOR OUTPUT AS FK
1671.     OPEN "SETTINGS.TMP" FOR INPUT AS FL
1672.     DO UNTIL EOF(FL)
1673.         LINE INPUT #FL, h$: PRINT #FK, h$
1674.     LOOP
1675.     CLOSE FK, FL
1676.     KILL "SETTINGS.TMP"
1677. END SUB
1678.  
1679. SUB chbcolor (newcol)
1680.     FK = FREEFILE: KL = false
1681.     OPEN "SETTINGS.INI" FOR INPUT AS FK
1682.     FL = FREEFILE
1683.     OPEN "SETTINGS.TMP" FOR OUTPUT AS FL
1684.     DO UNTIL EOF(FK)
1685.         LINE INPUT #FK, h$
1686.         h$ = UCASE$(LTRIM$(h$))
1687.         IF LEFT$(h$, 17) = "BACKGROUND COLOR " THEN
1688.             PRINT #FL, "BACKGROUND COLOR" + STR$(newcol): KL = true
1689.         ELSE
1690.             PRINT #FL, h$
1691.         END IF
1692.     LOOP
1693.     IF KL = false THEN PRINT #FL, "BACKGROUND COLOR" + STR$(newcol)
1694.     CLOSE FK, FL
1695.     OPEN "SETTINGS.INI" FOR OUTPUT AS FK
1696.     OPEN "SETTINGS.TMP" FOR INPUT AS FL
1697.     DO UNTIL EOF(FL)
1698.         LINE INPUT #FL, h$: PRINT #FK, h$
1699.     LOOP
1700.     CLOSE FK, FL
1701.     KILL "SETTINGS.TMP"
1702. END SUB
1703.  
1704. SUB chnonactcol (newcol)
1705.     FK = FREEFILE: KL = false
1706.     OPEN "SETTINGS.INI" FOR INPUT AS FK
1707.     FL = FREEFILE
1708.     OPEN "SETTINGS.TMP" FOR OUTPUT AS FL
1709.     DO UNTIL EOF(FK)
1710.         LINE INPUT #FK, h$
1711.         h$ = UCASE$(LTRIM$(h$))
1712.         IF LEFT$(h$, 13) = "NONACT COLOR " THEN
1713.             PRINT #FL, "NONACT COLOR" + STR$(newcol): KL = true
1714.         ELSE
1715.             PRINT #FL, h$
1716.         END IF
1717.     LOOP
1718.     IF KL = false THEN PRINT #FL, "NONACT COLOR" + STR$(newcol)
1719.     CLOSE FK, FL
1720.     OPEN "SETTINGS.INI" FOR OUTPUT AS FK
1721.     OPEN "SETTINGS.TMP" FOR INPUT AS FL
1722.     DO UNTIL EOF(FL)
1723.         LINE INPUT #FL, h$: PRINT #FK, h$
1724.     LOOP
1725.     CLOSE FK, FL
1726.     KILL "SETTINGS.TMP"
1727. END SUB
1728.  
1729. SUB chwallpaper (newfile$)
1730.     FK = FREEFILE: KL = false
1731.     OPEN "SETTINGS.INI" FOR INPUT AS FK
1732.     FL = FREEFILE
1733.     OPEN "SETTINGS.TMP" FOR OUTPUT AS FL
1734.     DO UNTIL EOF(FK)
1735.         LINE INPUT #FK, h$
1736.         h$ = UCASE$(LTRIM$(h$))
1737.         IF LEFT$(h$, 10) = "WALLPAPER " THEN
1738.             PRINT #FL, "WALLPAPER " + newfile$: KL = true
1739.         ELSE
1740.             PRINT #FL, h$
1741.         END IF
1742.     LOOP
1743.     IF KL = false THEN PRINT #FL, "WALLPAPER " + newfile$
1744.     CLOSE FK, FL
1745.     OPEN "SETTINGS.INI" FOR OUTPUT AS FK
1746.     OPEN "SETTINGS.TMP" FOR INPUT AS FL
1747.     DO UNTIL EOF(FL)
1748.         LINE INPUT #FL, h$: PRINT #FK, h$
1749.     LOOP
1750.     CLOSE FK, FL
1751.     KILL "SETTINGS.TMP"
1752. END SUB
1753.  
1754. SUB drw3Dbox (X1%, Y1%, X2%, Y2%, col1%, col2%)
1755.     DRWLINE col1%, X1%, Y1%, X2%, Y1%
1756.     DRWLINE col1%, X1%, Y1%, X1%, Y2%
1757.     DRWLINE col2%, X1% + 1, Y2%, X2%, Y2%
1758.     DRWLINE col2%, X2%, Y1% + 1, X2%, Y2%
1759. END SUB
1760.  
1761. SUB hidegraph (truth%)
1762.     IF truth% = false THEN
1763.         a% = PAGEDISPLAY(0, 0, 0)
1764.     ELSE
1765.         h% = XMSSCREENGET%
1766.         a% = PAGEACTIVE%(1)
1767.         e% = XMSSCREENPUT%(h%)
1768.         e% = XMSFREE%(h%)
1769.         a% = PAGEACTIVE%(0)
1770.         a% = PAGEDISPLAY%(0, 0, 1)
1771.     END IF
1772. END SUB
1773.  
1774. SUB PANIC (message$)
1775.     tmp% = RESTEXT%: CLS
1776.     COLOR 12
1777.     PRINT "PANIC: ";
1778.     PRINT message$
1779.     COLOR 7
1780.     SYSTEM
1781. END SUB
1782.  
1783. SUB scrshot
1784.     MOUSESTATUS x%, y%, b%
1785.     IF b% = 3 THEN
1786.         MOUSERANGESET x%, y%, x% + 1, y% + 1
1787.         dummy% = PNGMAKE%(0, 0, GETMAXX%, GETMAXY%, "SCRSHOT.PCX")
1788.         MOUSERANGESET 0, 0, GETMAXX%, GETMAXY%
1789.         startscript "MSGBOX.L", "System Message...:Screen shot was saved as SCRSHOT.PCX"
1790.     END IF
1791. END SUB
1792.  
1793. SUB setpoi (FileName$, v$)
1794.     freehandle = FREEFILE
1795.     OPEN FileName$ FOR INPUT AS freehandle
1796.     DO UNTIL EOF(freehandle)
1797.         LINE INPUT #freehandle, tempstr$
1798.         FOR i = 1 TO LEN(tempstr$)
1799.             char$ = MID$(tempstr$, i, 1)
1800.             IF char$ <> "," THEN
1801.                 newchar$ = newchar$ + char$
1802.             ELSE
1803.                 vv$ = vv$ + CHR$(VAL(newchar$)): newchar$ = ""
1804.             END IF
1805.         NEXT
1806.     LOOP
1807.     CLOSE #freehandle
1808.     v$ = vv$
1809. END SUB
1810.  
1811. SUB setuppointers (mousefile$, mousefile2$)
1812.     IF mousefile$ <> "" THEN
1813.         IF DIR$(mousefile$) <> "" THEN
1814.             setpoi mousefile$, mousepointer$
1815.         END IF
1816.     END IF
1817.  
1818.     IF mousefile2$ <> "" THEN
1819.         IF DIR$(mousefile2$) <> "" THEN
1820.             setpoi mousefile2$, mousetimer$
1821.         END IF
1822.     END IF
1823. END SUB
1824.  
1825. SUB startup
1826.     IF DIR$("SETTINGS.INI") = "" THEN
1827.         tmp% = RESTEXT%: CLS
1828.         PRINT "Please run SETUP program first"
1829.         SYSTEM
1830.     END IF
1831.     IF COMMAND$ <> "~+][[]+~" THEN
1832.         PANIC "Don't directly start X-GUI, please use START"
1833.     END IF
1834. END SUB
1835.  
1836. SUB timerset (truth%)
1837.     IF truth% = true THEN
1838.         IF mousetimer$ <> "" THEN MOUSECURSORSET mousetimer$
1839.     ELSE
1840.         IF mousepointer$ <> "" THEN MOUSECURSORSET mousepointer$
1841.     END IF
1842. END SUB
1843.  
1844. FUNCTION DIR$ (spec$)
1845.     CONST TmpFile$ = "DIR$INF0.INF", ListMAX% = 500 'change maximum to suit your needs
1846.     SHARED DIRCount% 'returns file count if desired
1847.     STATIC Ready%, Index%, DirList$()
1848.     IF NOT Ready% THEN REDIM DirList$(ListMAX%): Ready% = -1 'DIM array first use
1849.     IF spec$ > "" THEN 'get file names when a spec is given
1850.         SHELL _HIDE "DIR " + spec$ + " /b > " + TmpFile$
1851.         Index% = 0: DirList$(Index%) = "": ff% = FREEFILE
1852.         OPEN TmpFile$ FOR APPEND AS #ff%
1853.         size& = LOF(ff%)
1854.         CLOSE #ff%
1855.         IF size& = 0 THEN KILL TmpFile$: EXIT FUNCTION
1856.         OPEN TmpFile$ FOR INPUT AS #ff%
1857.         DO WHILE NOT EOF(ff%) AND Index% < ListMAX%
1858.             Index% = Index% + 1
1859.             LINE INPUT #ff%, DirList$(Index%)
1860.         LOOP
1861.         DIRCount% = Index% 'SHARED variable can return the file count
1862.         CLOSE #ff%
1863.         KILL TmpFile$
1864.     ELSE IF Index% > 0 THEN Index% = Index% - 1 'no spec sends next file name
1865.     END IF
1866.     DIR$ = DirList$(Index%)
1867. END FUNCTION
1868.  
1869. FUNCTION RESGRAPHIC~&& (inFullscreen AS _BYTE, inScaled AS _BYTE, inSmoothed AS _BYTE)
1870.     theDisplay.sizeX = _DESKTOPWIDTH
1871.     theDisplay.sizeY = _DESKTOPHEIGHT
1872.     theDisplay.Options.isFullscreen = inFullscreen
1873.     theDisplay.Options.isScaled = inScaled
1874.     theDisplay.Options.isSmoothed = inSmoothed
1875.     theDisplay.Handle = _NEWIMAGE(theDisplay.sizeX, theDisplay.sizeY, 32)
1876.     SCREEN theDisplay.Handle
1877.     IF inScaled THEN
1878.         IF inSmoothed THEN
1879.             theDisplay.Options.isScaled = -1
1880.             theDisplay.Options.isSmoothed = -1
1881.             IF theDisplay.Options.isScaled = -1 AND theDisplay.Options.isSmoothed = -1 THEN
1882.                 _FULLSCREEN _STRETCH , _SMOOTH
1883.             END IF
1884.         ELSE
1885.             theDisplay.Options.isScaled = -1
1886.             theDisplay.Options.isSmoothed = 0
1887.             IF theDisplay.Options.isScaled = -1 AND theDisplay.Options.isSmoothed = 0 THEN
1888.                 _FULLSCREEN _STRETCH
1889.             END IF
1890.         END IF
1891.     ELSE
1892.         IF inSmoothed THEN
1893.             theDisplay.Options.isScaled = 0
1894.             theDisplay.Options.isSmoothed = -1
1895.             IF theDisplay.Options.isScaled = 0 AND theDisplay.Options.isSmoothed = -1 THEN
1896.                 _FULLSCREEN _SQUAREPIXELS , _SMOOTH
1897.             END IF
1898.         ELSE
1899.             theDisplay.Options.isScaled = 0
1900.             theDisplay.Options.isSmoothed = 0
1901.             IF theDisplay.Options.isScaled = 0 AND theDisplay.Options.isSmoothed = 0 THEN
1902.                 _FULLSCREEN _SQUAREPIXELS
1903.             END IF
1904.         END IF
1905.     END IF
1906.     RESGRAPHIC~&& = 1
1907. END FUNCTION
1908.  
1909. SUB FONTSYSTEM
1910.     systemFont = _LOADFONT("SYSTEMRG.TTF", 12)
1911.     _FONT systemFont
1912. END SUB
1913.  
1914. SUB DRWFILLBOX (inColour AS _UNSIGNED LONG, inX1 AS INTEGER, inY1 AS INTEGER, inX2 AS INTEGER, inY2 AS INTEGER)
1915.     LINE (inX1, inY1)-(inX1 + inX2, inY1 + inY2), inColour, BF
1916. END SUB
1917.  
1918. SUB DRWBOX (inColour AS _UNSIGNED LONG, inX1%, inY1%, inX2%, inY2%)
1919.     LINE (inX1, inY1)-(inX1 + inX2, inY1 + inY2), inColour, B
1920. END SUB
1921.  
1922. SUB DRWSTRING (inForegroundColor AS _UNSIGNED LONG, inBackgroundColor AS _UNSIGNED LONG, inString AS STRING, inX AS INTEGER, inY AS INTEGER)
1923.     COLOR inForegroundColor, inBackgroundColor
1924.     _PRINTSTRING (inX, inY), inString
1925. END SUB
1926.  
1927. SUB MOUSESTATUS (x AS INTEGER, y AS INTEGER, b AS INTEGER)
1928.     DO WHILE _MOUSEINPUT
1929.         x = _MOUSEX
1930.         y = _MOUSEY
1931.         IF _MOUSEBUTTON(1) THEN
1932.             b = b AND 1
1933.         END IF
1934.         IF _MOUSEBUTTON(2) THEN
1935.             b = b AND 2
1936.         END IF
1937.         IF _MOUSEBUTTON(3) THEN
1938.             b = b AND 4
1939.         END IF
1940.     LOOP
1941. END SUB
1942.  
1943. SUB FILLAREA (inXSeed AS INTEGER, inYSeed AS INTEGER, inBorderColor AS _UNSIGNED LONG, inFillColor AS _UNSIGNED LONG)
1944.     PAINT (inXSeed, inYSeed), inFillColor, inBorderColor
1945. END SUB
1946.  
1947. FUNCTION PNGGETINFO% (inFilename AS STRING, inWidth AS INTEGER, inHeight AS INTEGER)
1948.     inFilename = LTRIM$(RTRIM$(UCASE$(inFilename)))
1949.     DIM Temporary AS _UNSIGNED LONG: Temporary = _LOADIMAGE(inFilename)
1950.     inWidth = _WIDTH: inHeight = _HEIGHT
1951.     PNGGETINFO = 1
1952. END FUNCTION
1953.  
1954. FUNCTION PNGMAKE% (inX1 AS INTEGER, inY1 AS INTEGER, inX2 AS INTEGER, inY2 AS INTEGER, inFilename AS STRING)
1955.     inFilename = LTRIM$(RTRIM$(UCASE$(inFilename)))
1956.     DIM Temporary AS _UNSIGNED LONG: Temporary = _NEWIMAGE(x2 - x1, y2 - y1, 32)
1957.     _PUTIMAGE , theDisplay.Handle, Temporary, (inX1, inY1)-(inX2, inY2)
1958.     PNGMAKE = 1
1959. END FUNCTION
1960.  
1961. FUNCTION PNGPUT% (inX AS INTEGER, inY AS INTEGER, inFilename AS STRING)
1962.     inFilename = LTRIM$(RTRIM$(UCASE$(inFilename)))
1963.     DIM Temporary AS _UNSIGNED LONG: Temporary = _LOADIMAGE(inFilename)
1964.     PNGPUT = 1
1965. END FUNCTION
1966.  
1967. SUB DRWCIRCLE (inColor AS _UNSIGNED LONG, inXCenter AS INTEGER, inYCenter AS INTEGER, inRadius AS INTEGER)
1968.     CIRCLE (inXCenter, inYCenter), inRadius, inColor
1969. END SUB
1970.  
1971. SUB DRWFILLCIRCLE (inColor AS _UNSIGNED LONG, inXCenter AS INTEGER, inYCenter AS INTEGER, inRadius AS INTEGER)
1972.     DRWCIRCLE inColor, inXCenter, inYCenter, inRadius
1973.     FILLAREA inXCenter, inYCenter, inColor, inColor
1974. END SUB
1975.  
1976. SUB DRWPOINT (inColour AS _UNSIGNED LONG, inX AS INTEGER, inY AS INTEGER)
1977.     PSET (inX, inY), inColour
1978. END SUB
1979.  
1980. SUB DRWLINE (inColour AS _UNSIGNED LONG, inX1 AS INTEGER, inY1 AS INTEGER, inX2 AS INTEGER, inY2 AS INTEGER)
1981.     LINE (inX1, inY1)-(inX2, inY2), inColour
1982. END SUB
1983.  
1984. SUB FILLSCREEN (inColour AS _UNSIGNED LONG)
1985.     CLS 1, inColour
1986. END SUB
1987.  
1988. SUB FILLPAGE (inColour AS _UNSIGNED LONG)
1989.     CLS 1, inColour
1990. END SUB
1991.  
1992. FUNCTION RESTEXT% ()
1993.     'SCREEN 3
1994.     RESTEXT = 1
1995. END SUB
1996.  
1997. SUB FONTGETINFO (inWidth, inHeight)
1998.     inWidth = _FONTWIDTH(fonthandle)
1999.     height = _FONTHEIGHT(fonthandle)
2000. END SUB
2001.  
2002. SUB MOUSELOCSET (inX AS INTEGER, inY AS INTEGER)
2003.     _MOUSEMOVE inX, inY
2004. END SUB
2005.  
2006. SUB MOUSERANGESET (X1 AS INTEGER, Y1 AS INTEGER, X2 AS INTEGER, Y2 AS INTEGER)
2007.     WHILE _MOUSEX < X1
2008.         _MOUSEMOVE X1 + 1, _MOUSEY
2009.     WEND
2010.     WHILE _MOUSEY < Y1
2011.         _MOUSEMOVE _MOUSEX, Y1 + 1
2012.     WEND
2013.     WHILE _MOUSEX > X2
2014.         _MOUSEMOVE X2 - 1, _MOUSEY
2015.     WEND
2016.     WHILE _MOUSEY > Y2
2017.         _MOUSEMOVE _MOUSEX, Y2 - 1
2018.     WEND
2019. END SUB
2020.  
2021. SUB MOUSECURSORSET (MouseCursor AS STRING)
2022.     DIM Temporary AS INTEGER: Temporary = VAL(MouseCursor$)
2023.     MOUSE.Icon = Temporary
2024. END SUB
2025.  

Btw, it is definately possible to port this to qb64... Qb64 has way better graphics functionality than QB 7.1 + SVGAPV anyday.

[bplus]

Code: QB64: [Select]

1. Don't really care too much about feasibility... Not really on my list of important things :D
2. no need for file management tools either, kinda missing your point.
3.  

My point was that the biggest difference with code written for DOS and code now being written for Windows or porting to other OS is obviously the OS interface.

But now it is dawning on me you don't care about translating this, say for a Windows version, but are just in it for the GUI tools. OK :)

[keybone]

Code: QB64: [Select]

1. Don't really care too much about feasibility... Not really on my list of important things :D
2. no need for file management tools either, kinda missing your point.
3.  

My point was that the biggest difference with code written for DOS and code now being written for Windows or porting to other OS is obviously the OS interface.

But now it is dawning on me you don't care about translating this, say for a Windows version, but are just in it for the GUI tools. OK :)

Oh, okay... I get ya. Well as far as accessing the file system, that *could* be a little different depending on which OS you are compiling for and which features you are using etc. For windows specifically, it uses the same filesystem superficially... Underneath one is still NTFS the other one FAT.... but how do you get a directory listing in both NTFS and FAT? DIR... change directory CD/CHDIR, remove directory, RD/RMDIR... etc. same for both, and Linux is usually not difficult to get basic stuff like that either.

As far as all the other stuff goes, u gotta remember i have a lot of little pieces already written, I've literally rewrote my own GUI 3-4 times, didnt finish every single one though... I have enough gui pieces basically that if part of this becomes impossible or too difficult i can just drop in one of those pieces replacing the old piece.

Also, the goal is to get it running... Once it runs, its not gonna stay the same, then im really gonna start tweaking and replacing stuff.
X-GUI 5 will eventually end up being very different from now.

[keybone]

I'm starting to think this code is sloppily written... I might give up and look at something else on the datacomponents gui website and try to port that. I'm starting to think that in order to make X-GUI the way I want I would have to replace like 80% of it (at least)… :-/

Maybe I can add all the widgets from this one into my gui:

http://qbasicgui.datacomponents.net/240_tguiv311.html

Well at the very least messing with all these other people's guis might teach me something.


And it works already as-is qb64. awesome... gonna hack on it a little bit, bored, this may be interesting.
still want some kind of script system though :-/ ill figure something out, i have like couple hundred more guis on that page to experiment with :D

might just work on mine instead... so bored. im working on something :D

[bplus]

A GUI Control type is interesting idea, then possibly script to that... hmm...

I might be just catching up with the main ideas.  :)

[keybone]

A GUI Control type is interesting idea, then possibly script to that... hmm...

I might be just catching up with the main ideas.  :)

Yeah I gave up on the whole porting effort.. after spending hours getting it to say 'OK' in the ide it *still* was nowhere near even about to run... But the script idea is nice, thats the main reason I wasted my time with it.

[Rudy]

Hello,
I'm new on this forum and fully testing qb64 in Linux Mint 19.1 Xfce on a 64bit pc.
I did a lot of tests to implemant the inform software but it seems for me impossible to get it working.

In Freebasic I used FLTK GUI    https://www.fltk.org/doc-1.3/index.html
As you can read on this link " it is a cross-platform C++ GUI toolkit for UNIX®/Linux® (X11), Microsoft® Windows®, and Apple® OS X® "

I understand it is a lot of work to port old librarys to QB64 (or to make a new one).
 
Therefore: Is it not possible to use this kind of library's (as FLTK) in QB64?