home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1994-04-02 | 2.2 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
| SoundTracker Module (music/soundTracker)
| ext
| Supported |
| 66%
| dexvert
| Chip Tracker Module (music/chipTracker)
| ext
| Supported |
| 66%
| dexvert
| Protracker Module (music/mod)
| ext
| Supported |
| 66%
| dexvert
| Octalyser Module (music/octalyser)
| ext
| Supported |
| 66%
| dexvert
| Star Tracker/StarTrekker Module (music/starTracker)
| ext
| Supported |
| 1%
| dexvert
| Multiplan spreadsheet (document/multiplanSpreadsheet)
| ext
| Unsupported |
| 1%
| dexvert
| PollyTracker Module (music/pollyTracker)
| ext
| Unsupported |
| 1%
| dexvert
| Black Viper packed music (music/blackViperPackedMusic)
| ext
| Unsupported |
| 100%
| file
| data
| default
| |
| 100%
| gt2
| Kopftext: 'oBGeneric.Mod'
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 6f 42 47 65 6e 65 72 69 | 63 2e 4d 6f 64 00 00 00 |oBGeneri|c.Mod...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 4d 4f 44 55 4c 45 | 20 47 65 6e 65 72 69 63 |..MODULE| Generic|
|00000030| 3b 09 28 2a 20 47 65 6e | 65 72 69 63 20 73 61 6d |;.(* Gen|eric sam|
|00000040| 70 6c 65 20 66 72 61 6d | 65 20 63 6c 61 73 73 20 |ple fram|e class |
|00000050| 4d 42 2f 67 72 69 2f 6d | 68 20 33 2e 31 31 2e 39 |MB/gri/m|h 3.11.9|
|00000060| 33 20 2a 29 0d 0a 0d 0a | 09 49 4d 50 4f 52 54 20 |3 *)....|.IMPORT |
|00000070| 4f 62 65 72 6f 6e 2c 20 | 54 65 78 74 46 72 61 6d |Oberon, |TextFram|
|00000080| 65 73 2c 20 4d 65 6e 75 | 56 69 65 77 65 72 73 2c |es, Menu|Viewers,|
|00000090| 20 56 69 65 77 65 72 73 | 2c 20 44 69 73 70 6c 61 | Viewers|, Displa|
|000000a0| 79 3b 0d 0a 0d 0a 09 54 | 59 50 45 0d 0a 09 09 46 |y;.....T|YPE....F|
|000000b0| 72 61 6d 65 2a 20 3d 20 | 50 4f 49 4e 54 45 52 20 |rame* = |POINTER |
|000000c0| 54 4f 20 46 72 61 6d 65 | 44 65 73 63 3b 0d 0a 09 |TO Frame|Desc;...|
|000000d0| 09 46 72 61 6d 65 44 65 | 73 63 2a 20 3d 20 52 45 |.FrameDe|sc* = RE|
|000000e0| 43 4f 52 44 20 28 44 69 | 73 70 6c 61 79 2e 46 72 |CORD (Di|splay.Fr|
|000000f0| 61 6d 65 44 65 73 63 29 | 0d 0a 09 09 09 28 2a 20 |ameDesc)|.....(* |
|00000100| 6d 61 79 20 68 61 76 65 | 20 61 20 6d 6f 64 65 6c |may have| a model|
|00000110| 20 61 6e 64 2f 6f 72 20 | 76 69 65 77 2d 73 70 65 | and/or |view-spe|
|00000120| 63 69 66 69 63 20 61 74 | 74 72 69 62 75 74 65 73 |cific at|tributes|
|00000130| 20 2a 29 0d 0a 09 09 45 | 4e 44 3b 0d 0a 0d 0a 09 | *)....E|ND;.....|
|00000140| 50 52 4f 43 45 44 55 52 | 45 20 44 72 61 77 43 6f |PROCEDUR|E DrawCo|
|00000150| 6e 74 65 6e 74 2a 20 28 | 58 2c 20 59 2c 20 57 2c |ntent* (|X, Y, W,|
|00000160| 20 48 3a 20 49 4e 54 45 | 47 45 52 29 3b 0d 0a 09 | H: INTE|GER);...|
|00000170| 09 43 4f 4e 53 54 20 77 | 20 3d 20 38 3b 0d 0a 09 |.CONST w| = 8;...|
|00000180| 09 56 41 52 20 69 2c 20 | 6a 3a 20 49 4e 54 45 47 |.VAR i, |j: INTEG|
|00000190| 45 52 3b 0d 0a 09 42 45 | 47 49 4e 20 69 20 3a 3d |ER;...BE|GIN i :=|
|000001a0| 20 30 3b 20 6a 20 3a 3d | 20 57 20 44 49 56 20 77 | 0; j :=| W DIV w|
|000001b0| 3b 0d 0a 09 09 57 48 49 | 4c 45 20 69 20 3c 20 6a |;....WHI|LE i < j|
|000001c0| 20 44 4f 0d 0a 09 09 09 | 49 46 20 4f 44 44 28 69 | DO.....|IF ODD(i|
|000001d0| 29 20 54 48 45 4e 20 44 | 69 73 70 6c 61 79 2e 52 |) THEN D|isplay.R|
|000001e0| 65 70 6c 43 6f 6e 73 74 | 28 44 69 73 70 6c 61 79 |eplConst|(Display|
|000001f0| 2e 62 6c 61 63 6b 2c 20 | 58 2b 69 2a 77 2c 20 59 |.black, |X+i*w, Y|
|00000200| 2c 20 77 2c 20 48 2c 20 | 44 69 73 70 6c 61 79 2e |, w, H, |Display.|
|00000210| 72 65 70 6c 61 63 65 29 | 0d 0a 09 09 09 45 4c 53 |replace)|.....ELS|
|00000220| 45 20 44 69 73 70 6c 61 | 79 2e 52 65 70 6c 43 6f |E Displa|y.ReplCo|
|00000230| 6e 73 74 28 69 20 4d 4f | 44 20 31 34 20 2b 20 32 |nst(i MO|D 14 + 2|
|00000240| 2c 20 58 2b 69 2a 77 2c | 20 59 2c 20 77 2c 20 48 |, X+i*w,| Y, w, H|
|00000250| 2c 20 44 69 73 70 6c 61 | 79 2e 72 65 70 6c 61 63 |, Displa|y.replac|
|00000260| 65 29 0d 0a 09 09 09 45 | 4e 44 3b 0d 0a 09 09 09 |e).....E|ND;.....|
|00000270| 49 4e 43 28 69 29 0d 0a | 09 09 45 4e 44 3b 0d 0a |INC(i)..|..END;..|
|00000280| 09 09 44 69 73 70 6c 61 | 79 2e 52 65 70 6c 43 6f |..Displa|y.ReplCo|
|00000290| 6e 73 74 28 44 69 73 70 | 6c 61 79 2e 62 6c 61 63 |nst(Disp|lay.blac|
|000002a0| 6b 2c 20 58 2b 69 2a 77 | 2c 20 59 2c 20 57 20 4d |k, X+i*w|, Y, W M|
|000002b0| 4f 44 20 77 2c 20 48 2c | 20 44 69 73 70 6c 61 79 |OD w, H,| Display|
|000002c0| 2e 72 65 70 6c 61 63 65 | 29 0d 0a 09 45 4e 44 20 |.replace|)...END |
|000002d0| 44 72 61 77 43 6f 6e 74 | 65 6e 74 3b 0d 0a 0d 0a |DrawCont|ent;....|
|000002e0| 09 50 52 4f 43 45 44 55 | 52 45 20 4d 6f 64 69 66 |.PROCEDU|RE Modif|
|000002f0| 79 2a 20 28 46 3a 20 46 | 72 61 6d 65 3b 20 59 2c |y* (F: F|rame; Y,|
|00000300| 20 48 3a 20 49 4e 54 45 | 47 45 52 29 3b 0d 0a 09 | H: INTE|GER);...|
|00000310| 09 56 41 52 20 64 48 3a | 20 49 4e 54 45 47 45 52 |.VAR dH:| INTEGER|
|00000320| 3b 0d 0a 09 42 45 47 49 | 4e 20 64 48 20 3a 3d 20 |;...BEGI|N dH := |
|00000330| 48 2d 46 2e 48 3b 0d 0a | 09 09 49 46 20 64 48 20 |H-F.H;..|..IF dH |
|00000340| 3e 20 30 20 54 48 45 4e | 20 28 2a 20 65 78 74 65 |> 0 THEN| (* exte|
|00000350| 6e 64 20 2a 29 0d 0a 09 | 09 09 49 46 20 46 2e 59 |nd *)...|..IF F.Y|
|00000360| 2b 46 2e 48 20 23 20 59 | 2b 48 20 54 48 45 4e 20 |+F.H # Y|+H THEN |
|00000370| 44 69 73 70 6c 61 79 2e | 43 6f 70 79 42 6c 6f 63 |Display.|CopyBloc|
|00000380| 6b 28 46 2e 58 2c 20 46 | 2e 59 2c 20 46 2e 57 2c |k(F.X, F|.Y, F.W,|
|00000390| 20 46 2e 48 2c 20 46 2e | 58 2c 20 59 2b 64 48 2c | F.H, F.|X, Y+dH,|
|000003a0| 20 44 69 73 70 6c 61 79 | 2e 72 65 70 6c 61 63 65 | Display|.replace|
|000003b0| 29 20 45 4e 44 3b 0d 0a | 09 09 09 46 2e 59 20 3a |) END;..|...F.Y :|
|000003c0| 3d 20 59 3b 20 46 2e 48 | 20 3a 3d 20 48 3b 20 44 |= Y; F.H| := H; D|
|000003d0| 72 61 77 43 6f 6e 74 65 | 6e 74 28 46 2e 58 2c 20 |rawConte|nt(F.X, |
|000003e0| 46 2e 59 2c 20 46 2e 57 | 2c 20 64 48 29 0d 0a 09 |F.Y, F.W|, dH)...|
|000003f0| 09 45 4c 53 49 46 20 64 | 48 20 3c 20 30 20 54 48 |.ELSIF d|H < 0 TH|
|00000400| 45 4e 20 28 2a 20 72 65 | 64 75 63 65 20 2a 29 0d |EN (* re|duce *).|
|00000410| 0a 09 09 09 49 46 20 46 | 2e 59 2b 46 2e 48 20 23 |....IF F|.Y+F.H #|
|00000420| 20 59 2b 48 20 54 48 45 | 4e 20 44 69 73 70 6c 61 | Y+H THE|N Displa|
|00000430| 79 2e 43 6f 70 79 42 6c | 6f 63 6b 28 46 2e 58 2c |y.CopyBl|ock(F.X,|
|00000440| 20 46 2e 59 2d 64 48 2c | 20 46 2e 57 2c 20 48 2c | F.Y-dH,| F.W, H,|
|00000450| 20 46 2e 58 2c 20 59 2c | 20 44 69 73 70 6c 61 79 | F.X, Y,| Display|
|00000460| 2e 72 65 70 6c 61 63 65 | 29 20 45 4e 44 3b 0d 0a |.replace|) END;..|
|00000470| 09 09 09 46 2e 59 20 3a | 3d 20 59 3b 20 46 2e 48 |...F.Y :|= Y; F.H|
|00000480| 20 3a 3d 20 48 0d 0a 09 | 09 45 4e 44 0d 0a 09 45 | := H...|.END...E|
|00000490| 4e 44 20 4d 6f 64 69 66 | 79 3b 0d 0a 0d 0a 09 50 |ND Modif|y;.....P|
|000004a0| 52 4f 43 45 44 55 52 45 | 20 43 6f 70 79 2a 20 28 |ROCEDURE| Copy* (|
|000004b0| 73 72 63 2c 20 64 73 74 | 3a 20 46 72 61 6d 65 29 |src, dst|: Frame)|
|000004c0| 3b 0d 0a 09 42 45 47 49 | 4e 0d 0a 09 09 64 73 74 |;...BEGI|N....dst|
|000004d0| 5e 20 3a 3d 20 73 72 63 | 5e 3b 0d 0a 09 45 4e 44 |^ := src|^;...END|
|000004e0| 20 43 6f 70 79 3b 0d 0a | 0d 0a 09 50 52 4f 43 45 | Copy;..|...PROCE|
|000004f0| 44 55 52 45 20 48 61 6e | 64 6c 65 2a 20 28 66 3a |DURE Han|dle* (f:|
|00000500| 20 44 69 73 70 6c 61 79 | 2e 46 72 61 6d 65 3b 20 | Display|.Frame; |
|00000510| 56 41 52 20 4d 73 67 3a | 20 44 69 73 70 6c 61 79 |VAR Msg:| Display|
|00000520| 2e 46 72 61 6d 65 4d 73 | 67 29 3b 0d 0a 09 09 56 |.FrameMs|g);....V|
|00000530| 41 52 20 46 2c 20 43 6f | 70 79 4f 66 46 3a 20 46 |AR F, Co|pyOfF: F|
|00000540| 72 61 6d 65 3b 0d 0a 09 | 42 45 47 49 4e 0d 0a 09 |rame;...|BEGIN...|
|00000550| 09 46 20 3a 3d 20 66 28 | 46 72 61 6d 65 29 3b 0d |.F := f(|Frame);.|
|00000560| 0a 09 09 49 46 20 4d 73 | 67 20 49 53 20 4f 62 65 |...IF Ms|g IS Obe|
|00000570| 72 6f 6e 2e 49 6e 70 75 | 74 4d 73 67 20 54 48 45 |ron.Inpu|tMsg THE|
|00000580| 4e 0d 0a 09 09 09 57 49 | 54 48 20 4d 73 67 3a 20 |N.....WI|TH Msg: |
|00000590| 4f 62 65 72 6f 6e 2e 49 | 6e 70 75 74 4d 73 67 20 |Oberon.I|nputMsg |
|000005a0| 44 4f 0d 0a 09 09 09 09 | 49 46 20 4d 73 67 2e 69 |DO......|IF Msg.i|
|000005b0| 64 20 3d 20 4f 62 65 72 | 6f 6e 2e 74 72 61 63 6b |d = Ober|on.track|
|000005c0| 20 54 48 45 4e 0d 0a 09 | 09 09 09 09 4f 62 65 72 | THEN...|....Ober|
|000005d0| 6f 6e 2e 44 72 61 77 43 | 75 72 73 6f 72 28 4f 62 |on.DrawC|ursor(Ob|
|000005e0| 65 72 6f 6e 2e 4d 6f 75 | 73 65 2c 20 4f 62 65 72 |eron.Mou|se, Ober|
|000005f0| 6f 6e 2e 41 72 72 6f 77 | 2c 20 4d 73 67 2e 58 2c |on.Arrow|, Msg.X,|
|00000600| 20 4d 73 67 2e 59 29 3b | 0d 0a 09 09 09 09 45 4e | Msg.Y);|......EN|
|00000610| 44 0d 0a 09 09 09 45 4e | 44 0d 0a 09 09 45 4c 53 |D.....EN|D....ELS|
|00000620| 49 46 20 4d 73 67 20 49 | 53 20 4f 62 65 72 6f 6e |IF Msg I|S Oberon|
|00000630| 2e 43 6f 70 79 4d 73 67 | 20 54 48 45 4e 0d 0a 09 |.CopyMsg| THEN...|
|00000640| 09 09 57 49 54 48 20 4d | 73 67 3a 20 4f 62 65 72 |..WITH M|sg: Ober|
|00000650| 6f 6e 2e 43 6f 70 79 4d | 73 67 20 44 4f 0d 0a 09 |on.CopyM|sg DO...|
|00000660| 09 09 09 4e 45 57 28 43 | 6f 70 79 4f 66 46 29 3b |...NEW(C|opyOfF);|
|00000670| 20 43 6f 70 79 28 46 2c | 20 43 6f 70 79 4f 66 46 | Copy(F,| CopyOfF|
|00000680| 29 3b 20 4d 73 67 2e 46 | 20 3a 3d 20 43 6f 70 79 |); Msg.F| := Copy|
|00000690| 4f 66 46 0d 0a 09 09 09 | 45 4e 44 0d 0a 09 09 45 |OfF.....|END....E|
|000006a0| 4c 53 49 46 20 4d 73 67 | 20 49 53 20 4d 65 6e 75 |LSIF Msg| IS Menu|
|000006b0| 56 69 65 77 65 72 73 2e | 4d 6f 64 69 66 79 4d 73 |Viewers.|ModifyMs|
|000006c0| 67 20 54 48 45 4e 0d 0a | 09 09 09 57 49 54 48 20 |g THEN..|...WITH |
|000006d0| 4d 73 67 3a 20 4d 65 6e | 75 56 69 65 77 65 72 73 |Msg: Men|uViewers|
|000006e0| 2e 4d 6f 64 69 66 79 4d | 73 67 20 44 4f 20 4d 6f |.ModifyM|sg DO Mo|
|000006f0| 64 69 66 79 28 46 2c 20 | 4d 73 67 2e 59 2c 20 4d |dify(F, |Msg.Y, M|
|00000700| 73 67 2e 48 29 20 45 4e | 44 0d 0a 09 09 28 2a 20 |sg.H) EN|D....(* |
|00000710| 45 4c 53 49 46 20 6d 6f | 72 65 20 6d 65 73 73 61 |ELSIF mo|re messa|
|00000720| 67 65 73 2c 20 65 2e 67 | 2e 20 75 70 64 61 74 65 |ges, e.g|. update|
|00000730| 20 6d 65 73 73 61 67 65 | 73 20 66 72 6f 6d 20 74 | message|s from t|
|00000740| 68 65 20 6d 6f 64 65 6c | 20 2a 29 0d 0a 09 09 45 |he model| *)....E|
|00000750| 4e 44 0d 0a 09 45 4e 44 | 20 48 61 6e 64 6c 65 3b |ND...END| Handle;|
|00000760| 0d 0a 0d 0a 09 50 52 4f | 43 45 44 55 52 45 20 4f |.....PRO|CEDURE O|
|00000770| 70 65 6e 2a 3b 0d 0a 09 | 09 56 41 52 20 46 3a 20 |pen*;...|.VAR F: |
|00000780| 46 72 61 6d 65 3b 20 56 | 3a 20 56 69 65 77 65 72 |Frame; V|: Viewer|
|00000790| 73 2e 56 69 65 77 65 72 | 3b 20 78 2c 20 79 3a 20 |s.Viewer|; x, y: |
|000007a0| 49 4e 54 45 47 45 52 3b | 0d 0a 09 42 45 47 49 4e |INTEGER;|...BEGIN|
|000007b0| 0d 0a 09 09 4f 62 65 72 | 6f 6e 2e 41 6c 6c 6f 63 |....Ober|on.Alloc|
|000007c0| 61 74 65 55 73 65 72 56 | 69 65 77 65 72 28 4f 62 |ateUserV|iewer(Ob|
|000007d0| 65 72 6f 6e 2e 4d 6f 75 | 73 65 2e 58 2c 20 78 2c |eron.Mou|se.X, x,|
|000007e0| 20 79 29 3b 0d 0a 09 09 | 4e 45 57 28 46 29 3b 20 | y);....|NEW(F); |
|000007f0| 46 2e 68 61 6e 64 6c 65 | 20 3a 3d 20 48 61 6e 64 |F.handle| := Hand|
|00000800| 6c 65 3b 0d 0a 09 09 56 | 20 3a 3d 20 4d 65 6e 75 |le;....V| := Menu|
|00000810| 56 69 65 77 65 72 73 2e | 4e 65 77 28 54 65 78 74 |Viewers.|New(Text|
|00000820| 46 72 61 6d 65 73 2e 4e | 65 77 4d 65 6e 75 28 22 |Frames.N|ewMenu("|
|00000830| 47 65 6e 65 72 69 63 2e | 4f 70 65 6e 22 2c 20 22 |Generic.|Open", "|
|00000840| 53 79 73 74 65 6d 2e 43 | 6c 6f 73 65 20 20 53 79 |System.C|lose Sy|
|00000850| 73 74 65 6d 2e 43 6f 70 | 79 20 20 53 79 73 74 65 |stem.Cop|y Syste|
|00000860| 6d 2e 47 72 6f 77 22 29 | 2c 0d 0a 09 09 09 09 09 |m.Grow")|,.......|
|00000870| 46 2c 20 54 65 78 74 46 | 72 61 6d 65 73 2e 6d 65 |F, TextF|rames.me|
|00000880| 6e 75 48 2c 20 78 2c 20 | 79 29 0d 0a 09 45 4e 44 |nuH, x, |y)...END|
|00000890| 20 4f 70 65 6e 3b 0d 0a | 0d 0a 45 4e 44 20 47 65 | Open;..|..END Ge|
|000008a0| 6e 65 72 69 63 2e 0d 0a | |neric...| |
+--------+-------------------------+-------------------------+--------+--------+
