windemor + + - ResiDOS Window Channel Demo  59999_ 7:7:0: (4,"w>4,0,16,20,5" 2f#4;0;5;14;1;30;1;"ResiDOS Windows"'"===============" <#4;30;0'"The 'channels' package provides channels to access disk files, memory, variables and powerful text windows, which you can PRINT to just like the screen." ?#4'"The channels are compatible with those provided by the ZX Spectrum +3e, with some additional features (more on these later). This demo focuses on text windows." A 9000(# F#4;30;2'"As you can see, text justification is available in three modes: left, centred and fuly justified." Po#4;0;"Of course, you can also turn it off, in which case you are responsible for word-wrapping!" U 9000(# Z5,"w>0,0,2,30" dh#5;1;6;1;14;"Windows can have any character size, from 3 up to 8..." nc=83-1 x)6,"w>"+(c*2)+",21,2,8,"+c 2#6;8-c;6;14;"Size ";c 6 c 9000(# #4;1;30;0'"Windows will automatically scroll upwards when required, or you can scroll them up manually:" +a=112 :#4;7;:a 9000(# 6#5;14;"You can have double-width text:" c=38 )6,"w>"+(c*2)+",21,2,8,"+c E#6;8-c;6;14;28;1;"Size ";c 6 c 9000(# -#5;14;"Or double-height text:" c=83-1 )6,"w>"+(c*2)+",21,2,8,"+c "E#6;8-c;6;14;29;1;"Size ";c , 6 6c @ 9000(# E3#5;14;"Or both together, of course:" Jc=38 T26,"w>"+(c*3-6)+",20,3,12,"+c ^Y#6;8-c;6;14;28;1;29;1;"Size ";c; h 6 rc | 9000(# #4;0;29;2;1;"Reduced height is also available, allowing you to cram more characters into the same space." c#4;0;29;3;1;"This can be combined with double height as well!!" #4;0;29;0;1;"Altogether, that's a choice of 48 different character sizes!"''"And if the built-in sets aren't to your liking, you can supply your own."  9000(# #4'"It is possible to use the standard attribute and cursor-movement features such as INK and TAB, as well as many more special control codes which can be output using CHR$." #4'"Block graphics are automatically scaled to the character size: ";142;137;131;135;" but UDGs are just 'clipped' to the current size.";0;  9000(# =#5;"You can instantly 'wash' windows to new colours:" 2#4;24;76L;15;1;  9000(# #4;2; 6,"w>5,5,14,22,7" #6;4;0;14;1;"You can also save the contents of a window, in case something overwrites it, and then restore it later."  6  9000(# #4;3;  9000(# ;#5;14;"You can use commands like %ROMS+ #4:" &#4;0;14; 0%ROMS+#4 : 9000(# D1#5;14;"And LIST #4;500 etc etc..." N#4;500 X 9000(# b3#5;14;"ResiDOS additional features:" l#4;14;30;0;1;"Windows under ResiDOS have several additional features that are not available on the +3e." v#4'"1. Normally, windows always output to screen memory (at 16384). However, any memory address on an 8K boundary can be specified using the POINT # command. This could allow output to the alternate screen on 128K Spectrums (under machine-code control), for example."  9000(# #4'"2. Window channels support input as well as output."''"If INKEY$ is used, then a keypress is returned but no character is automatically printed in the window." #4'"If INPUT is used, a prompt is displayed in the winow, and text (up to the size of the window) may be typed in and edited (with all 4 arrow keys and the DELETE key) before pressing ENTER." 6,"w>20,5,2,20,5" 8#6;6;0;14;8,0; #6;"Try it now: ";i$  6 ##4'"Thanks! You typed: ";i$ #4'"3. A completely different type of window is also available. This broadly emulates a VT52 terminal and is intended for applications like CP/M. Full details are on the ResiDOS website."  9000(# @4:5: #(15,"w>23,0,1,32,6" #2#15;2;7;18;1;19;1;30;1;1;14;"Press a key to continue" #< 15 #F""9030F# #P=""9040P# #Z15,"w>23,0,1,32,6" #d#15;14; #n 15 #x <