/ MacWorld 1999 July / Macworld (1999-07).dmg / Shareware World / Info / For Developers / Mops 3.4.sea / Mops source / Extras / QEconsole

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 51 45 63 6f 6e 73 | 6f 6c 65 00 00 00 00 00 |..QEcons|ole.....|
|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 54 45 58 54 4d 53 45 | 54 01 00 00 00 00 00 00 |.TEXTMSE|T.......|
|00000050| 00 00 00 00 00 06 7f 00 | 00 01 7d b2 bf d4 90 b2 |........|..}.....|
|00000060| bf d4 90 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 a5 15 00 00 |........|........|
|00000080| 5c 20 30 33 4a 61 6e 39 | 39 20 44 42 48 20 61 64 |\ 03Jan9|9 DBH ad|
|00000090| 61 70 74 65 64 20 74 6f | 20 50 50 43 0d 20 0d 50 |apted to| PPC. .P|
|000000a0| 50 43 3f 0d 5b 49 46 5d | 0d 6e 65 65 64 20 7a 73 |PC?.[IF]|.need zs|
|000000b0| 74 72 69 6e 67 2b 0d 51 | 45 73 74 72 20 27 20 73 |tring+.Q|Estr ' s|
|000000c0| 74 72 69 6e 67 2b 20 73 | 65 74 5f 63 6c 61 73 73 |tring+ s|et_class|
|000000d0| 0d 5b 54 48 45 4e 5d 0d | 0d 3a 20 2e 53 2b 2b 0d |.[THEN].|.: .S++.|
|000000e0| 09 6f 6b 0d 09 64 65 70 | 74 68 20 20 30 3c 3d 20 |.ok..dep|th  0<= |
|000000f0| 49 46 20 63 72 20 45 58 | 49 54 20 20 54 48 45 4e |IF cr EX|IT  THEN|
|00000100| 0d 09 73 70 40 20 64 65 | 70 74 68 20 32 2d 20 34 |..sp@ de|pth 2- 4|
|00000110| 2a 20 2b 0d 09 64 65 70 | 74 68 20 31 2d 20 46 4f |* +..dep|th 1- FO|
|00000120| 52 20 20 64 75 70 20 2e | 63 65 6c 6c 20 20 34 2d |R  dup .|cell  4-|
|00000130| 20 20 4e 45 58 54 20 64 | 72 6f 70 20 63 72 0d 09 |  NEXT d|rop cr..|
|00000140| 3b 0d 0d 3a 20 51 45 74 | 79 70 65 09 28 20 61 64 |;..: QEt|ype.( ad|
|00000150| 64 72 20 6c 65 6e 20 2d | 2d 20 29 0d 09 74 65 78 |dr len -|- )..tex|
|00000160| 74 3a 20 74 51 45 20 3b | 0d 0d 3a 20 51 45 65 6d |t: tQE ;|..: QEem|
|00000170| 69 74 20 20 28 20 63 68 | 61 72 20 2d 2d 20 29 0d |it  ( ch|ar -- ).|
|00000180| 09 65 6d 69 74 76 61 72 | 20 63 21 0d 09 65 6d 69 |.emitvar| c!..emi|
|00000190| 74 76 61 72 20 31 20 51 | 45 74 79 70 65 20 3b 0d |tvar 1 Q|Etype ;.|
|000001a0| 0d 3a 20 51 45 63 72 0d | 09 63 72 3a 20 74 51 45 |.: QEcr.|.cr: tQE|
|000001b0| 20 64 72 6f 70 20 3b 09 | 5c 20 73 68 6f 75 6c 64 | drop ;.|\ should|
|000001c0| 20 65 72 72 6f 72 20 63 | 68 65 63 6b 3f 0d 0d 3a | error c|heck?..:|
|000001d0| 20 51 45 73 70 73 0d 09 | 64 75 70 20 30 3c 3d 20 | QEsps..|dup 0<= |
|000001e0| 49 46 20 20 64 72 6f 70 | 20 20 45 58 49 54 20 20 |IF  drop|  EXIT  |
|000001f0| 54 48 45 4e 0d 09 70 61 | 64 20 73 77 61 70 20 32 |THEN..pa|d swap 2|
|00000200| 64 75 70 20 62 6c 20 66 | 69 6c 6c 20 51 45 74 79 |dup bl f|ill QEty|
|00000210| 70 65 20 3b 0d 0d 3a 20 | 51 45 71 75 69 74 0d 09 |pe ;..: |QEquit..|
|00000220| 75 6e 6c 6f 63 6b 3a 20 | 51 45 73 74 72 0d 09 62 |unlock: |QEstr..b|
|00000230| 65 63 6f 6d 65 20 45 76 | 65 6e 74 4c 6f 6f 70 20 |ecome Ev|entLoop |
|00000240| 3b 0d 0d 3a 20 3e 51 45 | 43 4f 4e 53 0d 09 74 72 |;..: >QE|CONS..tr|
|00000250| 75 65 20 2d 3e 20 70 72 | 6f 6d 70 74 3f 0d 09 5b |ue -> pr|ompt?..[|
|00000260| 27 5d 20 51 45 74 79 70 | 65 20 2d 3e 20 74 79 70 |'] QEtyp|e -> typ|
|00000270| 65 76 65 63 0d 09 5b 27 | 5d 20 51 45 65 6d 69 74 |evec..['|] QEemit|
|00000280| 09 2d 3e 20 65 6d 69 74 | 76 65 63 0d 09 5b 27 5d |.-> emit|vec..[']|
|00000290| 20 51 45 63 72 09 2d 3e | 20 63 72 76 65 63 0d 09 | QEcr.->| crvec..|
|000002a0| 5b 27 5d 20 51 45 73 70 | 73 20 09 2d 3e 20 73 70 |['] QEsp|s .-> sp|
|000002b0| 76 65 63 0d 09 5b 27 5d | 20 51 45 65 6d 69 74 20 |vec..[']| QEemit |
|000002c0| 09 2d 3e 20 65 63 68 6f | 76 65 63 0d 09 5b 27 5d |.-> echo|vec..[']|
|000002d0| 20 6e 75 6c 6c 20 09 2d | 3e 20 73 65 74 66 77 69 | null .-|> setfwi|
|000002e0| 6e 64 0d 5c 09 5b 27 5d | 20 71 65 44 49 45 20 09 |nd.\.[']| qeDIE .|
|000002f0| 2d 3e 20 64 66 6c 74 2d | 64 69 65 0d 09 5b 27 5d |-> dflt-|die..[']|
|00000300| 20 51 45 71 75 69 74 09 | 2d 3e 20 71 75 69 74 76 | QEquit.|-> quitv|
|00000310| 65 63 0d 09 3b 0d 0d 0d | 27 20 4e 45 57 56 45 43 |ec..;...|' NEWVEC|
|00000320| 53 20 2d 3e 20 52 65 73 | 75 6d 65 56 65 63 0d 20 |S -> Res|umeVec. |
|00000330| 0d 3a 20 73 6b 69 70 31 | 0d 09 31 20 73 6b 69 70 |.: skip1|..1 skip|
|00000340| 3a 20 51 45 73 74 72 20 | 3b 0d 0d 3a 20 73 70 65 |: QEstr |;..: spe|
|00000350| 63 69 61 6c 3e 62 6c 0d | 09 72 65 73 65 74 3a 20 |cial>bl.|.reset: |
|00000360| 51 45 73 74 72 0d 09 42 | 45 47 49 4e 0d 09 09 6c |QEstr..B|EGIN...l|
|00000370| 65 6e 3a 20 51 45 73 74 | 72 0d 09 57 48 49 4c 45 |en: QEst|r..WHILE|
|00000380| 0d 09 09 31 73 74 3a 20 | 51 45 73 74 72 0d 09 09 |...1st: |QEstr...|
|00000390| 43 41 53 45 5b 20 31 33 | 20 20 5d 3d 3e 20 73 6b |CASE[ 13|  ]=> sk|
|000003a0| 69 70 31 20 20 5c 20 44 | 4f 20 4e 4f 54 20 72 65 |ip1  \ D|O NOT re|
|000003b0| 70 6c 61 63 65 20 63 72 | 27 73 0d 09 09 09 5b 20 |place cr|'s....[ |
|000003c0| 30 20 33 31 20 52 41 4e | 47 45 5d 3d 3e 20 33 32 |0 31 RAN|GE]=> 32|
|000003d0| 20 63 68 6f 76 77 72 3a | 20 51 45 73 74 72 0d 09 | chovwr:| QEstr..|
|000003e0| 09 09 44 45 46 41 55 4c | 54 3d 3e 20 64 72 6f 70 |..DEFAUL|T=> drop|
|000003f0| 20 73 6b 69 70 31 0d 09 | 09 5d 43 41 53 45 0d 09 | skip1..|.]CASE..|
|00000400| 52 45 50 45 41 54 0d 09 | 72 65 73 65 74 3a 20 51 |REPEAT..|reset: Q|
|00000410| 45 73 74 72 20 3b 0d 0d | 3a 20 44 6f 45 76 61 6c |Estr ;..|: DoEval|
|00000420| 75 61 74 65 0d 09 62 65 | 67 69 6e 3a 20 51 45 73 |uate..be|gin: QEs|
|00000430| 74 72 0d 09 42 45 47 49 | 4e 0d 09 09 6e 65 78 74 |tr..BEGI|N...next|
|00000440| 6c 69 6e 65 3f 3a 20 51 | 45 73 74 72 0d 09 57 48 |line?: Q|Estr..WH|
|00000450| 49 4c 45 0d 09 09 67 65 | 74 3a 20 51 45 73 74 72 |ILE...ge|t: QEstr|
|00000460| 20 65 76 61 6c 75 61 74 | 65 0d 09 52 45 50 45 41 | evaluat|e..REPEA|
|00000470| 54 20 3b 0d 0d 0d 3a 20 | 45 76 61 6c 46 72 6f 6d |T ;...: |EvalFrom|
|00000480| 51 45 0d 09 73 70 65 63 | 69 61 6c 3e 62 6c 0d 09 |QE..spec|ial>bl..|
|00000490| 6c 6f 63 6b 3a 20 51 45 | 73 74 72 0d 09 44 6f 45 |lock: QE|str..DoE|
|000004a0| 76 61 6c 75 61 74 65 0d | 09 75 6e 6c 6f 63 6b 3a |valuate.|.unlock:|
|000004b0| 20 51 45 73 74 72 0d 09 | 70 72 6f 6d 70 74 3f 20 | QEstr..|prompt? |
|000004c0| 49 46 20 20 2e 73 2b 2b | 20 20 54 48 45 4e 0d 09 |IF  .s++|  THEN..|
|000004d0| 3b 0d 0d 3a 20 44 6f 48 | 4c 65 76 65 6e 74 09 20 |;..: DoH|Levent. |
|000004e0| 5c 20 28 20 2d 2d 20 62 | 20 29 0d 09 6d 73 67 43 |\ ( -- b| )..msgC|
|000004f0| 6c 61 73 73 3a 20 66 45 | 76 65 6e 74 20 20 27 74 |lass: fE|vent  't|
|00000500| 79 70 65 20 54 45 58 54 | 20 20 3d 20 20 5c 20 61 |ype TEXT|  =  \ a|
|00000510| 20 73 69 6d 70 6c 65 20 | 63 68 65 63 6b 20 66 6f | simple |check fo|
|00000520| 72 20 70 72 6f 70 65 72 | 20 63 6c 61 73 73 0d 09 |r proper| class..|
|00000530| 49 46 0d 09 09 6d 73 67 | 49 44 3a 20 66 45 76 65 |IF...msg|ID: fEve|
|00000540| 6e 74 20 20 70 75 74 3a | 20 51 45 68 61 6e 64 20 |nt  put:| QEhand |
|00000550| 20 5c 20 6d 65 73 73 61 | 67 65 20 49 44 20 69 73 | \ messa|ge ID is|
|00000560| 20 6d 65 72 65 6c 79 20 | 74 68 65 20 68 61 6e 64 | merely |the hand|
|00000570| 6c 65 20 66 72 6f 6d 20 | 51 45 0d 09 09 70 74 72 |le from |QE...ptr|
|00000580| 3a 20 51 45 68 61 6e 64 | 20 20 73 69 7a 65 3a 20 |: QEhand|  size: |
|00000590| 51 45 68 61 6e 64 20 20 | 70 75 74 3a 20 51 45 73 |QEhand  |put: QEs|
|000005a0| 74 72 0d 09 09 65 76 61 | 6c 46 72 6f 6d 51 45 0d |tr...eva|lFromQE.|
|000005b0| 09 09 70 72 6f 6d 70 74 | 3f 20 6e 6f 74 20 49 46 |..prompt|? not IF|
|000005c0| 20 63 72 20 54 48 45 4e | 0d 09 09 74 72 75 65 09 | cr THEN|...true.|
|000005d0| 09 09 5c 20 77 65 20 64 | 69 64 20 68 61 6e 64 6c |..\ we d|id handl|
|000005e0| 65 20 74 68 65 20 65 76 | 65 6e 74 0d 09 09 77 6e |e the ev|ent...wn|
|000005f0| 64 20 54 57 20 3d 20 49 | 46 20 6e 65 77 76 65 63 |d TW = I|F newvec|
|00000600| 73 20 75 70 64 61 74 65 | 3a 20 54 57 20 54 48 45 |s update|: TW THE|
|00000610| 4e 0d 09 45 4c 53 45 0d | 09 09 66 61 6c 73 65 09 |N..ELSE.|..false.|
|00000620| 09 09 5c 20 77 65 20 64 | 69 64 20 6e 6f 74 20 68 |..\ we d|id not h|
|00000630| 61 6e 64 6c 65 20 74 68 | 65 20 65 76 65 6e 74 0d |andle th|e event.|
|00000640| 09 54 48 45 4e 0d 09 3b | 0d 0d 0d 3a 20 49 6e 69 |.THEN..;|...: Ini|
|00000650| 74 51 45 63 6f 6e 73 6f | 6c 65 0d 09 69 6e 73 74 |tQEconso|le..inst|
|00000660| 6c 64 3f 20 20 3f 45 58 | 49 54 20 20 5c 20 4d 75 |ld?  ?EX|IT  \ Mu|
|00000670| 73 74 6e 27 74 20 64 6f | 20 74 68 69 73 20 69 6e |stn't do| this in|
|00000680| 20 69 6e 73 74 61 6c 6c | 65 64 20 61 70 70 73 0d | install|ed apps.|
|00000690| 09 74 72 75 65 20 2d 3e | 20 72 65 73 75 6d 65 3f |.true ->| resume?|
|000006a0| 0d 09 5b 27 5d 20 44 6f | 48 4c 65 76 65 6e 74 20 |..['] Do|HLevent |
|000006b0| 2d 3e 20 48 4c 65 76 65 | 6e 74 56 65 63 0d 09 6e |-> HLeve|ntVec..n|
|000006c0| 65 77 3a 20 51 45 73 74 | 72 20 3b 0d 09 0d 49 6e |ew: QEst|r ;...In|
|000006d0| 69 74 51 45 63 6f 6e 73 | 6f 6c 65 0d 0d 27 20 49 |itQEcons|ole..' I|
|000006e0| 6e 69 74 51 45 63 6f 6e | 73 6f 6c 65 20 61 64 64 |nitQEcon|sole add|
|000006f0| 3a 20 69 6e 69 74 5f 61 | 63 74 69 6f 6e 73 0d 00 |: init_a|ctions..|
|00000700| 00 00 01 00 00 00 01 42 | 00 00 00 42 00 00 00 3b |.......B|...B...;|
|00000710| 64 29 21 41 70 70 6c 65 | 56 69 73 69 6f 6e 20 50 |d)!Apple|Vision P|
|00000720| 72 65 66 65 72 65 6e 63 | 65 73 20 43 6f 6d 70 6f |referenc|es Compo|
|00000730| 09 51 45 63 6f 6e 73 6f | 6c 65 02 00 00 00 50 61 |.QEconso|le....Pa|
|00000740| 72 74 53 49 54 21 00 00 | 00 00 00 00 00 00 00 01 |rtSIT!..|........|
|00000750| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 b3 66 c2 71 00 00 | 00 00 00 00 01 7d 70 6c |...f.q..|.....}pl|
|00000780| 65 56 69 73 69 6f 6e 00 | 00 00 46 64 61 64 62 64 |eVision.|..Fdadbd|
|00000790| 61 64 62 61 70 70 6c 80 | 00 00 00 00 00 00 00 64 |adbappl.|.......d|
|000007a0| 61 64 62 00 78 53 54 52 | 20 00 78 53 54 52 20 00 |adb.xSTR| .xSTR .|
|000007b0| 79 49 43 4e 23 00 80 00 | 00 00 00 00 00 00 03 00 |yICN#...|........|
|000007c0| 78 00 00 00 01 80 00 00 | 00 64 61 64 62 00 78 00 |x.......|.dadb.x.|
|000007d0| 01 00 00 28 0c 4e 56 00 | 00 48 e7 01 18 26 6e 00 |...(.NV.|.H...&n.|
|000007e0| 08 28 6e 00 0c 7e 00 4a | 6c 00 02 6c 00 00 9a 30 |.(n..~.J|l..l...0|
|000007f0| 2c 00 02 5e 40 67 72 55 | 40 67 5c 53 40 67 46 53 |,..^@grU|@g\S@gFS|
|00000800| 00 00 00 3e 00 00 00 00 | 00 00 00 00 00 00 00 00 |...>....|........|
|00000810| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000820| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000840| 00 00 00 00 01 00 00 00 | 01 42 00 00 00 42 00 00 |........|.B...B..|
|00000850| 00 3b 02 63 b8 a8 2a 3c | 00 00 00 1c 00 32 00 00 |.;.c..*<|.....2..|
|00000860| 4d 49 46 4f 00 00 00 0a | 00 80 00 00 00 00 00 00 |MIFO....|........|
|00000870| 02 63 c0 44 08 4d 69 73 | 63 49 6e 66 6f 00 00 00 |.c.D.Mis|cInfo...|
+--------+-------------------------+-------------------------+--------+--------+