home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1993-01-23 | 3.7 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 66%
| dexvert
| PostScript (document/ps)
| ext
| Supported |
| 66%
| dexvert
| Paul Shields Module (music/paulShields)
| ext
| Supported |
| 100%
| file
| data
| default
| |
| 98%
| TrID
| MacBinary 1
| default (weak)
| |
| 1%
| TrID
| Sybase iAnywhere database files
| default (weak)
| |
| 100%
| dexmagic
| TextWare CDT (WEAK)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 0a 25 |........|.......%|
|000000a0| 25 20 76 73 6c 69 64 65 | 2e 70 73 0a 25 25 0a 25 |% vslide|.ps.%%.%|
|000000b0| 25 20 57 72 69 74 74 65 | 6e 20 41 70 72 69 6c 20 |% Writte|n April |
|000000c0| 32 39 2c 20 31 39 39 30 | 2c 0a 25 25 20 53 63 6f |29, 1990|,.%% Sco|
|000000d0| 74 74 20 48 65 73 73 0a | 25 25 20 4e 65 58 54 20 |tt Hess.|%% NeXT |
|000000e0| 43 61 6d 70 75 73 20 43 | 6f 6e 73 75 6c 74 61 6e |Campus C|onsultan|
|000000f0| 74 0a 25 25 20 47 75 73 | 74 61 76 75 73 20 41 64 |t.%% Gus|tavus Ad|
|00000100| 6f 6c 70 68 75 73 20 43 | 6f 6c 6c 65 67 65 0a 25 |olphus C|ollege.%|
|00000110| 25 20 53 74 2e 20 50 65 | 74 65 72 2c 20 4d 6e 09 |% St. Pe|ter, Mn.|
|00000120| 35 36 30 38 32 0a 25 25 | 20 73 63 6f 74 74 40 67 |56082.%%| scott@g|
|00000130| 61 63 76 61 78 31 2e 62 | 69 74 6e 65 74 0a 25 25 |acvax1.b|itnet.%%|
|00000140| 0a 25 25 20 54 68 69 73 | 20 70 72 6f 67 72 61 6d |.%% This| program|
|00000150| 20 73 6c 69 64 65 73 20 | 74 68 65 20 6c 65 66 74 | slides |the left|
|00000160| 20 73 65 63 74 69 6f 6e | 20 6f 66 20 74 68 65 20 | section| of the |
|00000170| 57 6f 72 6b 73 70 61 63 | 65 20 6f 66 66 20 74 68 |Workspac|e off th|
|00000180| 65 20 73 63 72 65 65 6e | 20 74 6f 0a 25 25 20 74 |e screen| to.%% t|
|00000190| 68 65 20 62 6f 74 74 6f | 6d 2c 20 73 6c 69 64 65 |he botto|m, slide|
|000001a0| 73 20 74 68 65 20 72 65 | 73 74 20 74 6f 20 63 6f |s the re|st to co|
|000001b0| 76 65 72 20 74 68 61 74 | 20 61 72 65 61 2c 20 61 |ver that| area, a|
|000001c0| 6e 64 20 6c 6f 6f 70 73 | 20 75 6e 74 69 6c 20 74 |nd loops| until t|
|000001d0| 68 65 20 77 68 6f 6c 65 | 0a 25 25 20 73 63 72 65 |he whole|.%% scre|
|000001e0| 65 6e 20 69 73 20 67 6f | 6e 65 2e 0a 0a 25 25 20 |en is go|ne...%% |
|000001f0| 54 68 69 73 20 66 69 6c | 65 20 6d 61 79 20 62 65 |This fil|e may be|
|00000200| 20 69 6e 73 74 61 6c 6c | 65 64 20 73 6f 20 74 68 | install|ed so th|
|00000210| 61 74 20 74 68 65 20 53 | 63 65 6e 65 20 61 70 70 |at the S|cene app|
|00000220| 6c 69 63 61 74 69 6f 6e | 20 77 69 6c 6c 20 62 72 |lication| will br|
|00000230| 69 6e 67 20 69 74 20 75 | 70 0a 25 25 20 75 6e 64 |ing it u|p.%% und|
|00000240| 65 72 20 74 68 65 20 4d | 6f 76 69 65 73 20 6d 65 |er the M|ovies me|
|00000250| 6e 75 2e 20 20 54 6f 20 | 64 6f 20 74 68 69 73 2c |nu. To |do this,|
|00000260| 20 63 72 65 61 74 65 20 | 61 20 64 69 72 65 63 74 | create |a direct|
|00000270| 6f 72 79 20 77 69 74 68 | 69 6e 20 74 68 65 0a 25 |ory with|in the.%|
|00000280| 25 20 2f 4e 65 78 74 4c | 69 62 72 61 72 79 2f 49 |% /NextL|ibrary/I|
|00000290| 6d 61 67 65 73 2f 53 63 | 65 6e 65 5f 6d 6f 76 69 |mages/Sc|ene_movi|
|000002a0| 65 73 20 64 69 72 65 63 | 74 6f 72 79 20 6e 61 6d |es direc|tory nam|
|000002b0| 65 64 20 76 73 6c 69 64 | 65 2e 6d 6f 76 69 65 2e |ed vslid|e.movie.|
|000002c0| 20 20 49 6e 73 69 64 65 | 20 74 68 69 73 0a 25 25 | Inside| this.%%|
|000002d0| 20 64 69 72 65 63 74 6f | 72 79 2c 20 70 6c 61 63 | directo|ry, plac|
|000002e0| 65 20 74 68 69 73 20 66 | 69 6c 65 2c 20 77 69 74 |e this f|ile, wit|
|000002f0| 68 20 74 68 65 20 6e 61 | 6d 65 20 76 73 6c 69 64 |h the na|me vslid|
|00000300| 65 2e 73 63 72 69 70 74 | 2e 70 73 2e 20 20 54 68 |e.script|.ps. Th|
|00000310| 65 6e 2c 20 72 75 6e 0a | 25 25 20 53 63 65 6e 65 |en, run.|%% Scene|
|00000320| 2c 20 61 6e 64 20 74 68 | 65 72 65 20 79 6f 75 20 |, and th|ere you |
|00000330| 61 72 65 2e 20 20 54 68 | 69 73 20 72 65 61 6c 6c |are. Th|is reall|
|00000340| 79 20 62 65 6c 6f 6e 67 | 73 20 69 6e 20 74 68 65 |y belong|s in the|
|00000350| 20 2f 4c 6f 63 61 6c 4c | 69 62 72 61 72 79 0a 25 | /LocalL|ibrary.%|
|00000360| 25 20 64 69 72 65 63 74 | 6f 72 79 2c 20 62 75 74 |% direct|ory, but|
|00000370| 20 75 6e 66 6f 72 74 75 | 6e 61 74 65 6c 79 2c 20 | unfortu|nately, |
|00000380| 53 63 65 6e 65 20 77 69 | 6c 6c 20 6e 6f 74 20 66 |Scene wi|ll not f|
|00000390| 69 6e 64 20 69 74 20 74 | 68 65 72 65 2e 20 20 53 |ind it t|here. S|
|000003a0| 61 64 2c 20 65 68 3f 0a | 0a 25 25 20 54 68 69 73 |ad, eh?.|.%% This|
|000003b0| 20 63 6f 64 65 20 69 73 | 20 66 72 65 65 6c 79 20 | code is| freely |
|000003c0| 72 65 6c 65 61 73 65 64 | 20 69 6e 74 6f 20 74 68 |released| into th|
|000003d0| 65 20 70 75 62 6c 69 63 | 20 64 6f 6d 61 69 6e 2e |e public| domain.|
|000003e0| 20 20 59 6f 75 20 6d 61 | 79 20 63 75 74 2f 70 61 | You ma|y cut/pa|
|000003f0| 73 74 65 2c 0a 25 25 20 | 73 6c 61 73 68 2c 20 72 |ste,.%% |slash, r|
|00000400| 65 61 72 72 61 6e 67 65 | 2c 20 72 65 6d 6f 76 65 |earrange|, remove|
|00000410| 20 63 6f 6d 6d 65 6e 74 | 73 2c 20 61 6e 64 20 6f | comment|s, and o|
|00000420| 74 68 65 72 77 69 73 65 | 20 6d 75 74 69 6c 61 74 |therwise| mutilat|
|00000430| 65 20 74 68 69 73 20 63 | 6f 64 65 0a 25 25 20 77 |e this c|ode.%% w|
|00000440| 69 74 68 20 6e 6f 20 66 | 65 61 72 20 6f 66 20 72 |ith no f|ear of r|
|00000450| 65 70 72 69 73 61 6c 20 | 66 72 6f 6d 20 6d 79 73 |eprisal |from mys|
|00000460| 65 6c 66 2e 20 20 53 6f | 2c 20 67 6f 20 61 68 65 |elf. So|, go ahe|
|00000470| 61 64 21 20 20 49 20 77 | 61 6e 74 20 74 6f 20 73 |ad! I w|ant to s|
|00000480| 65 65 20 6d 6f 72 65 0a | 25 25 20 73 63 72 65 65 |ee more.|%% scree|
|00000490| 6e 20 68 61 63 6b 73 2c | 20 70 65 6f 70 6c 65 21 |n hacks,| people!|
|000004a0| 0a 0a 25 25 20 73 63 6f | 74 74 0a 0a 25 25 20 47 |..%% sco|tt..%% G|
|000004b0| 72 61 62 20 74 68 65 20 | 57 6f 72 6b 73 70 61 63 |rab the |Workspac|
|000004c0| 65 20 61 6e 64 20 64 72 | 61 77 20 69 74 20 69 6e |e and dr|aw it in|
|000004d0| 20 74 68 65 20 70 61 73 | 73 65 64 20 77 69 6e 64 | the pas|sed wind|
|000004e0| 6f 77 2e 0a 2f 67 65 74 | 57 6f 72 6b 73 70 61 63 |ow../get|Workspac|
|000004f0| 65 09 25 20 77 69 6e 64 | 6f 77 0a 7b 0a 20 20 67 |e.% wind|ow.{. g|
|00000500| 73 74 61 74 65 20 2f 64 | 65 73 74 20 65 78 63 68 |state /d|est exch|
|00000510| 20 64 65 66 0a 20 20 2f | 74 65 6d 70 77 69 6e 20 | def. /|tempwin |
|00000520| 30 20 30 20 31 31 32 30 | 20 38 33 32 20 4e 6f 6e |0 0 1120| 832 Non|
|00000530| 72 65 74 61 69 6e 65 64 | 20 77 69 6e 64 6f 77 20 |retained| window |
|00000540| 64 65 66 0a 20 20 74 65 | 6d 70 77 69 6e 20 77 69 |def. te|mpwin wi|
|00000550| 6e 64 6f 77 64 65 76 69 | 63 65 72 6f 75 6e 64 0a |ndowdevi|ceround.|
|00000560| 20 20 2f 74 67 73 20 67 | 73 74 61 74 65 20 64 65 | /tgs g|state de|
|00000570| 66 0a 0a 20 20 66 61 6c | 73 65 20 74 65 6d 70 77 |f.. fal|se tempw|
|00000580| 69 6e 20 73 65 74 61 75 | 74 6f 66 69 6c 6c 0a 20 |in setau|tofill. |
|00000590| 20 41 62 6f 76 65 20 30 | 20 63 75 72 72 65 6e 74 | Above 0| current|
|000005a0| 77 69 6e 64 6f 77 20 6f | 72 64 65 72 77 69 6e 64 |window o|rderwind|
|000005b0| 6f 77 0a 0a 20 20 64 65 | 73 74 20 73 65 74 67 73 |ow.. de|st setgs|
|000005c0| 74 61 74 65 20 30 20 30 | 20 31 31 32 30 20 38 33 |tate 0 0| 1120 83|
|000005d0| 32 20 74 67 73 20 30 20 | 30 20 43 6f 70 79 20 63 |2 tgs 0 |0 Copy c|
|000005e0| 6f 6d 70 6f 73 69 74 65 | 0a 20 20 74 65 6d 70 77 |omposite|. tempw|
|000005f0| 69 6e 20 74 65 72 6d 77 | 69 6e 64 6f 77 0a 7d 20 |in termw|indow.} |
|00000600| 64 65 66 0a 0a 25 25 20 | 4d 6f 76 65 20 61 20 72 |def..%% |Move a r|
|00000610| 65 67 69 6f 6e 20 6f 66 | 20 74 68 65 20 63 75 72 |egion of| the cur|
|00000620| 72 65 6e 74 20 67 73 74 | 61 74 65 2e 0a 2f 73 68 |rent gst|ate../sh|
|00000630| 69 66 74 09 09 09 25 25 | 20 78 20 79 20 77 20 68 |ift...%%| x y w h|
|00000640| 20 64 78 20 64 79 0a 7b | 0a 20 20 34 20 69 6e 64 | dx dy.{|. 4 ind|
|00000650| 65 78 20 61 64 64 0a 20 | 20 65 78 63 68 20 35 20 |ex add. | exch 5 |
|00000660| 69 6e 64 65 78 20 61 64 | 64 0a 20 20 65 78 63 68 |index ad|d. exch|
|00000670| 0a 20 20 67 73 74 61 74 | 65 0a 20 20 33 20 31 20 |. gstat|e. 3 1 |
|00000680| 72 6f 6c 6c 0a 20 20 43 | 6f 70 79 20 63 6f 6d 70 |roll. C|opy comp|
|00000690| 6f 73 69 74 65 0a 7d 20 | 64 65 66 0a 0a 25 25 20 |osite.} |def..%% |
|000006a0| 52 65 74 75 72 6e 20 61 | 66 74 65 72 20 6d 6f 75 |Return a|fter mou|
|000006b0| 73 65 63 6c 69 63 6b 20 | 61 63 63 65 70 74 65 64 |seclick |accepted|
|000006c0| 2e 0a 2f 77 61 69 74 6d | 6f 75 73 65 0a 7b 0a 20 |../waitm|ouse.{. |
|000006d0| 20 7b 20 62 75 74 74 6f | 6e 64 6f 77 6e 20 7b 65 | { butto|ndown {e|
|000006e0| 78 69 74 7d 20 69 66 7d | 20 6c 6f 6f 70 0a 20 20 |xit} if}| loop. |
|000006f0| 7b 20 73 74 69 6c 6c 64 | 6f 77 6e 20 6e 6f 74 20 |{ stilld|own not |
|00000700| 7b 65 78 69 74 7d 20 69 | 66 7d 20 6c 6f 6f 70 0a |{exit} i|f} loop.|
|00000710| 7d 20 64 65 66 0a 0a 67 | 73 61 76 65 0a 20 20 25 |} def..g|save. %|
|00000720| 25 20 67 65 74 20 61 20 | 77 69 6e 64 6f 77 20 74 |% get a |window t|
|00000730| 68 65 20 73 69 7a 65 20 | 6f 66 20 74 68 65 20 57 |he size |of the W|
|00000740| 6f 72 6b 73 70 61 63 65 | 2e 0a 20 20 2f 77 69 6e |orkspace|.. /win|
|00000750| 20 30 20 30 20 31 31 32 | 30 20 38 33 32 20 42 75 | 0 0 112|0 832 Bu|
|00000760| 66 66 65 72 65 64 20 77 | 69 6e 64 6f 77 20 64 65 |ffered w|indow de|
|00000770| 66 0a 20 20 77 69 6e 20 | 77 69 6e 64 6f 77 64 65 |f. win |windowde|
|00000780| 76 69 63 65 72 6f 75 6e | 64 0a 0a 20 20 63 75 72 |viceroun|d.. cur|
|00000790| 72 65 6e 74 77 69 6e 64 | 6f 77 20 67 65 74 57 6f |rentwind|ow getWo|
|000007a0| 72 6b 73 70 61 63 65 0a | 0a 20 20 25 25 20 4d 6f |rkspace.|. %% Mo|
|000007b0| 76 65 20 74 68 65 20 70 | 73 75 65 64 6f 2d 57 6f |ve the p|suedo-Wo|
|000007c0| 72 6b 73 70 61 63 65 20 | 74 6f 20 74 68 65 20 66 |rkspace |to the f|
|000007d0| 72 6f 6e 74 2e 0a 20 20 | 41 62 6f 76 65 20 30 20 |ront.. |Above 0 |
|000007e0| 77 69 6e 20 6f 72 64 65 | 72 77 69 6e 64 6f 77 0a |win orde|rwindow.|
|000007f0| 0a 20 20 25 25 20 48 6f | 77 20 66 61 73 74 20 74 |. %% Ho|w fast t|
|00000800| 6f 20 73 68 69 66 74 2e | 20 20 4e 6f 74 20 72 65 |o shift.| Not re|
|00000810| 61 6c 6c 79 20 6e 65 65 | 64 65 64 2c 20 6e 6f 77 |ally nee|ded, now|
|00000820| 2e 0a 20 20 2f 73 68 69 | 66 74 62 79 20 34 20 64 |.. /shi|ftby 4 d|
|00000830| 65 66 0a 20 20 0a 20 20 | 30 2e 30 20 73 65 74 67 |ef. . |0.0 setg|
|00000840| 72 61 79 09 09 09 09 25 | 25 20 6c 65 61 76 65 20 |ray....%|% leave |
|00000850| 62 65 68 69 6e 64 20 42 | 6c 61 63 6b 0a 20 20 34 |behind B|lack. 4|
|00000860| 30 09 09 09 09 09 25 25 | 20 34 30 20 73 74 72 69 |0.....%%| 40 stri|
|00000870| 70 73 20 6f 66 20 32 33 | 20 70 69 78 65 6c 73 20 |ps of 23| pixels |
|00000880| 77 69 64 65 2e 0a 20 20 | 20 20 7b 0a 20 20 20 20 |wide.. | {. |
|00000890| 20 20 30 20 30 20 35 36 | 20 38 33 32 20 30 20 73 | 0 0 56| 832 0 s|
|000008a0| 68 69 66 74 62 79 20 6e | 65 67 20 73 68 69 66 74 |hiftby n|eg shift|
|000008b0| 09 25 25 20 73 68 69 66 | 74 20 74 68 65 20 73 74 |.%% shif|t the st|
|000008c0| 72 69 70 20 74 6f 20 74 | 68 65 20 62 6f 74 74 6f |rip to t|he botto|
|000008d0| 6d 2e 0a 20 20 20 20 20 | 20 30 20 38 33 32 20 73 |m.. | 0 832 s|
|000008e0| 68 69 66 74 62 79 20 73 | 75 62 20 35 36 20 73 68 |hiftby s|ub 56 sh|
|000008f0| 69 66 74 62 79 20 72 65 | 63 74 66 69 6c 6c 0a 09 |iftby re|ctfill..|
|00000900| 09 09 09 09 25 25 20 61 | 6e 64 20 66 69 6c 6c 20 |....%% a|nd fill |
|00000910| 69 6e 20 74 68 65 20 6f | 70 65 6e 65 64 20 61 72 |in the o|pened ar|
|00000920| 65 61 2e 0a 20 20 20 20 | 20 20 66 6c 75 73 68 67 |ea.. | flushg|
|00000930| 72 61 70 68 69 63 73 09 | 09 09 25 25 20 66 6c 75 |raphics.|..%% flu|
|00000940| 73 68 20 74 68 61 74 2e | 0a 20 20 20 20 20 20 73 |sh that.|. s|
|00000950| 68 69 66 74 62 79 20 73 | 68 69 66 74 62 79 20 38 |hiftby s|hiftby 8|
|00000960| 33 32 09 09 25 25 20 73 | 68 69 66 74 20 61 6c 6c |32..%% s|hift all|
|00000970| 20 74 68 65 20 77 61 79 | 20 61 63 72 6f 73 73 2e | the way| across.|
|00000980| 0a 09 7b 0a 09 20 20 70 | 6f 70 09 09 09 09 25 25 |..{.. p|op....%%|
|00000990| 20 66 6f 72 67 65 74 20 | 74 68 61 74 20 6e 75 6d | forget |that num|
|000009a0| 62 65 72 2e 0a 09 20 20 | 30 20 30 20 35 36 20 38 |ber... |0 0 56 8|
|000009b0| 33 32 20 30 20 73 68 69 | 66 74 62 79 20 6e 65 67 |32 0 shi|ftby neg|
|000009c0| 20 73 68 69 66 74 20 25 | 25 20 73 68 69 66 74 20 | shift %|% shift |
|000009d0| 74 68 65 20 73 74 72 69 | 70 20 74 6f 20 74 68 65 |the stri|p to the|
|000009e0| 20 62 6f 74 74 6f 6d 2e | 0a 09 09 09 09 09 25 25 | bottom.|......%%|
|000009f0| 20 28 64 6f 6e 27 74 20 | 68 61 76 65 20 74 6f 20 | (don't |have to |
|00000a00| 66 69 6c 6c 20 69 6e 20 | 6f 70 65 6e 65 64 0a 09 |fill in |opened..|
|00000a10| 09 09 09 09 25 25 20 61 | 72 65 61 20 61 6e 79 6d |....%% a|rea anym|
|00000a20| 6f 72 65 20 3a 2d 29 0a | 09 20 20 66 6c 75 73 68 |ore :-).|. flush|
|00000a30| 67 72 61 70 68 69 63 73 | 09 09 09 25 25 20 66 6c |graphics|...%% fl|
|00000a40| 75 73 68 20 74 68 65 20 | 6f 75 74 70 75 74 2e 0a |ush the |output..|
|00000a50| 09 20 20 62 75 74 74 6f | 6e 64 6f 77 6e 20 7b 65 |. butto|ndown {e|
|00000a60| 78 69 74 7d 20 69 66 09 | 09 25 25 20 69 66 20 62 |xit} if.|.%% if b|
|00000a70| 75 74 74 6f 6e 20 69 73 | 20 64 6f 77 6e 2c 20 6c |utton is| down, l|
|00000a80| 65 61 76 65 2e 0a 09 7d | 20 66 6f 72 0a 20 20 20 |eave...}| for. |
|00000a90| 20 20 20 62 75 74 74 6f | 6e 64 6f 77 6e 20 7b 65 | butto|ndown {e|
|00000aa0| 78 69 74 7d 20 69 66 09 | 09 25 25 20 67 65 74 20 |xit} if.|.%% get |
|00000ab0| 6f 75 74 20 72 69 67 68 | 74 20 61 77 61 79 20 69 |out righ|t away i|
|00000ac0| 6e 20 63 61 73 65 20 6f | 66 20 62 75 74 74 6f 6e |n case o|f button|
|00000ad0| 2e 0a 20 20 20 20 20 20 | 30 20 30 20 31 31 32 30 |.. |0 0 1120|
|00000ae0| 20 38 33 32 20 2d 35 36 | 20 30 20 73 68 69 66 74 | 832 -56| 0 shift|
|00000af0| 09 09 25 25 20 73 6c 69 | 64 65 20 73 63 72 65 65 |..%% sli|de scree|
|00000b00| 6e 20 6c 65 66 74 2e 0a | 20 20 20 20 20 20 31 30 |n left..| 10|
|00000b10| 36 34 20 30 20 35 36 20 | 38 33 32 20 72 65 63 74 |64 0 56 |832 rect|
|00000b20| 66 69 6c 6c 09 09 25 25 | 20 66 69 6c 6c 20 69 6e |fill..%%| fill in|
|00000b30| 20 74 68 65 20 72 69 67 | 68 74 2e 20 20 4e 6f 74 | the rig|ht. Not|
|00000b40| 65 20 74 68 61 74 20 74 | 68 65 0a 09 09 09 09 09 |e that t|he......|
|00000b50| 25 25 20 73 61 6d 65 20 | 74 68 69 6e 67 20 61 73 |%% same |thing as|
|00000b60| 20 61 62 6f 76 65 20 63 | 6f 75 6c 64 20 62 65 0a | above c|ould be.|
|00000b70| 09 09 09 09 09 25 25 20 | 64 6f 6e 65 2c 20 6a 75 |.....%% |done, ju|
|00000b80| 73 74 20 6e 6f 74 20 73 | 6f 20 65 61 73 79 2c 20 |st not s|o easy, |
|00000b90| 6e 6f 77 2e 0a 20 20 20 | 20 20 20 28 2e 2e 2f 2e |now.. | (../.|
|00000ba0| 2e 2f 2e 2e 2f 4e 65 78 | 74 4c 69 62 72 61 72 79 |./../Nex|tLibrary|
|00000bb0| 2f 53 6f 75 6e 64 73 2f | 42 6f 6e 6b 2e 73 6e 64 |/Sounds/|Bonk.snd|
|00000bc0| 29 20 31 20 70 6c 61 79 | 73 6f 75 6e 64 0a 09 09 |) 1 play|sound...|
|00000bd0| 09 09 09 25 25 20 42 6f | 6e 6b 2e 0a 20 20 20 20 |...%% Bo|nk.. |
|00000be0| 20 20 66 6c 75 73 68 67 | 72 61 70 68 69 63 73 09 | flushg|raphics.|
|00000bf0| 09 09 25 25 20 6d 61 6b | 65 20 73 75 72 65 20 74 |..%% mak|e sure t|
|00000c00| 68 65 20 75 73 65 72 20 | 73 65 65 73 20 69 74 21 |he user |sees it!|
|00000c10| 2e 0a 20 20 20 20 20 20 | 62 75 74 74 6f 6e 64 6f |.. |buttondo|
|00000c20| 77 6e 20 7b 65 78 69 74 | 7d 20 69 66 09 09 25 25 |wn {exit|} if..%%|
|00000c30| 20 63 6f 75 6c 64 20 68 | 61 76 65 20 62 65 65 6e | could h|ave been|
|00000c40| 20 61 20 62 75 74 74 6f | 6e 64 6f 77 6e 20 69 6e | a butto|ndown in|
|00000c50| 20 74 68 65 72 65 2e 0a | 20 20 20 20 7d 0a 20 20 | there..| }. |
|00000c60| 72 65 70 65 61 74 0a 20 | 20 77 61 69 74 6d 6f 75 |repeat. | waitmou|
|00000c70| 73 65 09 09 09 09 25 25 | 20 77 61 69 74 20 66 6f |se....%%| wait fo|
|00000c80| 72 20 74 68 61 74 20 62 | 75 74 74 6f 6e 64 6f 77 |r that b|uttondow|
|00000c90| 6e 2e 0a 0a 20 20 77 69 | 6e 20 74 65 72 6d 77 69 |n... wi|n termwi|
|00000ca0| 6e 64 6f 77 09 09 09 25 | 25 20 67 65 74 20 72 69 |ndow...%|% get ri|
|00000cb0| 64 20 6f 66 20 74 68 65 | 20 77 69 6e 64 6f 77 2e |d of the| window.|
|00000cc0| 0a 67 72 65 73 74 6f 72 | 65 0a 0a 69 74 20 69 6e |.grestor|e..it in|
|00000cd0| 20 74 68 65 20 70 61 73 | 73 65 64 20 77 69 6e 64 | the pas|sed wind|
|00000ce0| 6f 77 2e 0a 2f 67 65 74 | 57 6f 72 6b 73 70 61 63 |ow../get|Workspac|
|00000cf0| 65 09 25 20 77 69 6e 64 | 6f 77 0a 7b 0a 20 20 67 |e.% wind|ow.{. g|
|00000d00| 73 74 61 74 65 20 2f 64 | 65 73 74 20 65 78 63 68 |state /d|est exch|
|00000d10| 20 64 65 66 0a 20 20 2f | 74 65 6d 70 77 69 6e 20 | def. /|tempwin |
|00000d20| 30 20 30 20 31 31 32 30 | 20 38 33 32 20 4e 6f 6e |0 0 1120| 832 Non|
|00000d30| 72 65 74 61 69 6e 65 64 | 20 77 69 6e 64 6f 77 20 |retained| window |
|00000d40| 64 65 66 0a 20 20 74 65 | 6d 70 77 69 6e 20 77 69 |def. te|mpwin wi|
|00000d50| 6e 64 6f 77 64 65 76 69 | 63 65 72 6f 75 6e 64 0a |ndowdevi|ceround.|
|00000d60| 20 20 2f 74 67 73 20 67 | 73 74 61 74 65 20 64 65 | /tgs g|state de|
|00000d70| 66 0a 0a 20 20 66 61 6c | 73 65 20 74 65 6d 70 77 |f.. fal|se tempw|
|00000d80| 69 6e 20 73 65 74 61 75 | 74 6f 66 69 6c 6c 0a 20 |in setau|tofill. |
|00000d90| 20 41 62 6f 76 65 20 30 | 20 63 75 72 72 65 6e 74 | Above 0| current|
|00000da0| 77 69 6e 64 6f 77 20 6f | 72 64 65 72 77 69 6e 64 |window o|rderwind|
|00000db0| 6f 77 0a 0a 20 20 64 65 | 73 74 20 73 65 74 67 73 |ow.. de|st setgs|
|00000dc0| 74 61 74 65 20 30 20 30 | 20 31 31 32 30 20 38 33 |tate 0 0| 1120 83|
|00000dd0| 32 20 74 67 73 20 30 20 | 30 20 43 6f 70 79 20 63 |2 tgs 0 |0 Copy c|
|00000de0| 6f 6d 70 6f 73 69 74 65 | 0a 20 20 74 65 6d 70 77 |omposite|. tempw|
|00000df0| 69 6e 20 74 65 72 6d 77 | 69 6e 64 6f 77 0a 7d 20 |in termw|indow.} |
|00000e00| 64 65 66 0a 0a 25 25 20 | 4d 6f 76 65 20 61 20 72 |def..%% |Move a r|
|00000e10| 65 67 69 6f 6e 20 6f 66 | 20 74 68 65 20 63 75 72 |egion of| the cur|
|00000e20| 72 65 6e 74 20 67 73 74 | 61 74 65 2e 0a 2f 73 68 |rent gst|ate../sh|
|00000e30| 69 66 74 09 09 09 25 25 | 20 78 20 79 20 77 20 68 |ift...%%| x y w h|
|00000e40| 20 64 78 20 64 79 0a 7b | 0a 20 20 34 20 69 6e 64 | dx dy.{|. 4 ind|
|00000e50| 65 78 20 61 64 64 0a 20 | 20 65 78 63 68 20 35 20 |ex add. | exch 5 |
|00000e60| 69 6e 64 65 78 20 61 64 | 64 0a 20 20 65 78 63 68 |index ad|d. exch|
|00000e70| 0a 20 20 67 73 74 61 74 | 65 0a 20 20 33 20 31 20 |. gstat|e. 3 1 |
|00000e80| 72 6f 6c 6c 0a 20 20 43 | 6f 70 79 20 63 6f 6d 70 |roll. C|opy comp|
|00000e90| 6f 73 69 74 65 0a 7d 20 | 64 65 66 0a 0a |osite.} |def.. |
+--------+-------------------------+-------------------------+--------+--------+
