Home » Archimedes archive » Acorn User » AU 1998-13 (Christmas).adf » Regulars » StarInfo/Granger/Carbon/!CarbonDem/WindPROCs
StarInfo/Granger/Carbon/!CarbonDem/WindPROCs
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1998-13 (Christmas).adf » Regulars |
| Filename: | StarInfo/Granger/Carbon/!CarbonDem/WindPROCs |
| Read OK: | ✔ |
| File size: | 01BB bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM Windows 20REM LEN A.Granger 98 30END 40DEFFNwindow(name$) 50$name%=name$:size%=FNwinsize(name$):DIM mainind% size% 60SYS&400DB,,b%,mainind%,mainind%+size%,fontarray%,name%,0 70SYS&400C1,,b% TO id% 80=id% 90DEFFNwinsize(win$) 100SYS&400DB,,0,,,,win$,0 TO ,,s% 110=s% 120DEFPROCopenwin(win%) 130!b%=win%:SYS&400CB,,b%:SYS&400C5,,b% 140ENDPROC 150DEFPROCclosewin(win%) 160!b%=win%:SYS&400C6,,b% 170ENDPROC 180DEFPROCtitle(win%,title$) 190!b%=win%:SYS&400CC,,b%:$(b%!76)=title$ 200ENDPROC
� Windows � � A.Granger 98 � (ݤwindow(name$) 27$name%=name$:size%=�winsize(name$):� mainind% size% <;ș&400DB,,b%,mainind%,mainind%+size%,fontarray%,name%,0 Fș&400C1,,b% � id% P=id% Zݤwinsize(win$) d ș&400DB,,0,,,,win$,0 � ,,s% n=s% x��openwin(win%) �&!b%=win%:ș&400CB,,b%:ș&400C5,,b% �� ���closewin(win%) �!b%=win%:ș&400C6,,b% �� ���title(win%,title$) �)!b%=win%:ș&400CC,,b%:$(b%!76)=title$ �� �
00000000 0d 00 0a 0d f4 20 57 69 6e 64 6f 77 73 0d 00 14 |..... Windows...| 00000010 14 f4 20 a9 20 41 2e 47 72 61 6e 67 65 72 20 39 |.. . A.Granger 9| 00000020 38 0d 00 1e 05 e0 0d 00 28 13 dd a4 77 69 6e 64 |8.......(...wind| 00000030 6f 77 28 6e 61 6d 65 24 29 0d 00 32 37 24 6e 61 |ow(name$)..27$na| 00000040 6d 65 25 3d 6e 61 6d 65 24 3a 73 69 7a 65 25 3d |me%=name$:size%=| 00000050 a4 77 69 6e 73 69 7a 65 28 6e 61 6d 65 24 29 3a |.winsize(name$):| 00000060 de 20 6d 61 69 6e 69 6e 64 25 20 73 69 7a 65 25 |. mainind% size%| 00000070 0d 00 3c 3b c8 99 26 34 30 30 44 42 2c 2c 62 25 |..<;..&400DB,,b%| 00000080 2c 6d 61 69 6e 69 6e 64 25 2c 6d 61 69 6e 69 6e |,mainind%,mainin| 00000090 64 25 2b 73 69 7a 65 25 2c 66 6f 6e 74 61 72 72 |d%+size%,fontarr| 000000a0 61 79 25 2c 6e 61 6d 65 25 2c 30 0d 00 46 16 c8 |ay%,name%,0..F..| 000000b0 99 26 34 30 30 43 31 2c 2c 62 25 20 b8 20 69 64 |.&400C1,,b% . id| 000000c0 25 0d 00 50 08 3d 69 64 25 0d 00 5a 13 dd a4 77 |%..P.=id%..Z...w| 000000d0 69 6e 73 69 7a 65 28 77 69 6e 24 29 0d 00 64 20 |insize(win$)..d | 000000e0 c8 99 26 34 30 30 44 42 2c 2c 30 2c 2c 2c 2c 77 |..&400DB,,0,,,,w| 000000f0 69 6e 24 2c 30 20 b8 20 2c 2c 73 25 0d 00 6e 07 |in$,0 . ,,s%..n.| 00000100 3d 73 25 0d 00 78 13 dd f2 6f 70 65 6e 77 69 6e |=s%..x...openwin| 00000110 28 77 69 6e 25 29 0d 00 82 26 21 62 25 3d 77 69 |(win%)...&!b%=wi| 00000120 6e 25 3a c8 99 26 34 30 30 43 42 2c 2c 62 25 3a |n%:..&400CB,,b%:| 00000130 c8 99 26 34 30 30 43 35 2c 2c 62 25 0d 00 8c 05 |..&400C5,,b%....| 00000140 e1 0d 00 96 14 dd f2 63 6c 6f 73 65 77 69 6e 28 |.......closewin(| 00000150 77 69 6e 25 29 0d 00 a0 19 21 62 25 3d 77 69 6e |win%)....!b%=win| 00000160 25 3a c8 99 26 34 30 30 43 36 2c 2c 62 25 0d 00 |%:..&400C6,,b%..| 00000170 aa 05 e1 0d 00 b4 18 dd f2 74 69 74 6c 65 28 77 |.........title(w| 00000180 69 6e 25 2c 74 69 74 6c 65 24 29 0d 00 be 29 21 |in%,title$)...)!| 00000190 62 25 3d 77 69 6e 25 3a c8 99 26 34 30 30 43 43 |b%=win%:..&400CC| 000001a0 2c 2c 62 25 3a 24 28 62 25 21 37 36 29 3d 74 69 |,,b%:$(b%!76)=ti| 000001b0 74 6c 65 24 0d 00 c8 05 e1 0d ff |tle$.......| 000001bb
.