home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 2 / MacMania 2.toast / Demo's / Tools&Utilities / Programming / Editor 2.0 / Edit.Res / Edit.Res.rsrc / mbas_128_Makros < prev    next >
Unknown  |  1994-06-07  |  1.9 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.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 12 07 4c 6f 6e 67 20 | 46 6e 13 4c 4f 4e 47 20 |...Long |Fn.LONG |
|00000010| 46 4e 20 0d 20 20 0d 45 | 4e 44 20 46 4e 0d 07 4c |FN .  .E|ND FN..L|
|00000020| 6f 6e 67 20 49 66 1a 4c | 4f 4e 47 20 49 46 20 0d |ong If.L|ONG IF .|
|00000030| 20 20 0d 58 45 4c 53 45 | 0d 0d 45 4e 44 20 49 46 |  .XELSE|..END IF|
|00000040| 0d 02 44 6f 0c 44 4f 0d | 20 20 0d 55 4e 54 49 4c |..Do.DO.|  .UNTIL|
|00000050| 0d 05 57 68 69 6c 65 0e | 57 48 49 4c 45 0d 20 20 |..While.|WHILE.  |
|00000060| 0d 57 45 4e 44 0d 06 53 | 65 6c 65 63 74 3e 53 45 |.WEND..S|elect>SE|
|00000070| 4c 45 43 54 20 0d 20 20 | 43 41 53 45 20 0d 20 20 |LECT .  |CASE .  |
|00000080| 20 20 0d 20 20 43 41 53 | 45 20 0d 20 20 20 20 0d |  .  CAS|E .    .|
|00000090| 20 20 43 41 53 45 20 45 | 4c 53 45 0d 20 20 20 20 |  CASE E|LSE.    |
|000000a0| 0d 45 4e 44 20 53 45 4c | 45 43 54 0d 03 44 65 66 |.END SEL|ECT..Def|
|000000b0| 08 44 45 46 20 46 4e 3d | 0d 04 43 61 6c 6c 05 43 |.DEF FN=|..Call.C|
|000000c0| 41 4c 4c 20 06 4d 61 63 | 68 6c 67 09 4d 41 43 48 |ALL .Mac|hlg.MACH|
|000000d0| 4c 47 20 26 0d 04 4c 69 | 6e 65 0d 41 64 72 26 3d |LG &..Li|ne.Adr&=|
|000000e0| 4c 49 4e 45 20 22 22 0d | 04 54 65 78 74 c5 0d 27 |LINE "".|.Text..'|
|000000f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000100| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000110| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000120| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0d |********|*******.|
|00000130| 27 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |'       |        |
|00000140| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000150| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000160| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 2a |        |       *|
|00000170| 0d 27 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.'******|********|
|00000180| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000190| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001b0| 2a 0d 0d 05 51 75 65 75 | 65 c6 22 45 56 45 4e 54 |*...Queu|e."EVENT|
|000001c0| 20 51 55 45 55 45 22 0d | 20 20 4f 4e 20 44 49 41 | QUEUE".|  ON DIA|
|000001d0| 4c 4f 47 20 47 4f 53 55 | 42 20 22 48 41 4e 44 4c |LOG GOSU|B "HANDL|
|000001e0| 45 20 44 49 41 4c 4f 47 | 22 3a 44 49 41 4c 4f 47 |E DIALOG|":DIALOG|
|000001f0| 20 4f 4e 0d 20 20 4f 4e | 20 4d 45 4e 55 20 20 20 | ON.  ON| MENU   |
|00000200| 47 4f 53 55 42 20 22 48 | 41 4e 44 4c 45 20 4d 45 |GOSUB "H|ANDLE ME|
|00000210| 4e 55 22 20 20 3a 4d 45 | 4e 55 20 20 20 4f 4e 0d |NU"  :ME|NU   ON.|
|00000220| 20 20 4f 4e 20 4d 4f 55 | 53 45 20 20 47 4f 53 55 |  ON MOU|SE  GOSU|
|00000230| 42 20 22 48 41 4e 44 4c | 45 20 4d 4f 55 53 45 22 |B "HANDL|E MOUSE"|
|00000240| 20 3a 4d 4f 55 53 45 20 | 20 4f 4e 0d 0d 22 4c 4f | :MOUSE | ON.."LO|
|00000250| 4f 50 22 0d 20 47 4f 54 | 4f 22 4c 4f 4f 50 22 0d |OP". GOT|O"LOOP".|
|00000260| 20 20 44 49 41 4c 4f 47 | 20 4f 46 46 3a 4d 4f 55 |  DIALOG| OFF:MOU|
|00000270| 53 45 20 4f 46 46 3a 4d | 45 4e 55 20 4f 46 46 0d |SE OFF:M|ENU OFF.|
|00000280| 07 44 69 6d 20 56 61 72 | 96 44 49 4d 20 54 2c 4c |.Dim Var|.DIM T,L|
|00000290| 2c 42 2c 52 0d 44 49 4d | 20 4d 59 2c 4d 58 0d 44 |,B,R.DIM| MY,MX.D|
|000002a0| 49 4d 20 56 54 2c 56 4c | 2c 56 42 2c 56 52 0d 44 |IM VT,VL|,VB,VR.D|
|000002b0| 49 4d 20 44 54 2c 44 4c | 2c 44 42 2c 44 52 0d 44 |IM DT,DL|,DB,DR.D|
|000002c0| 49 4d 20 55 54 2c 55 4c | 2c 55 42 2c 55 52 0d 44 |IM UT,UL|,UB,UR.D|
|000002d0| 49 4d 20 53 54 2c 53 4c | 2c 53 42 2c 53 52 0d 44 |IM ST,SL|,SB,SR.D|
|000002e0| 49 4d 20 4b 28 38 29 0d | 44 49 4d 20 31 32 38 20 |IM K(8).|DIM 128 |
|000002f0| 70 61 72 61 6d 42 6c 6f | 63 6b 24 0d 44 49 4d 20 |paramBlo|ck$.DIM |
|00000300| 41 73 63 65 6e 74 2c 44 | 65 73 63 65 6e 74 2c 57 |Ascent,D|escent,W|
|00000310| 69 64 6d 61 78 2c 4c 65 | 61 64 69 6e 67 0d 0d 06 |idmax,Le|ading...|
|00000320| 53 63 72 65 65 6e ac 22 | 43 41 4c 43 22 20 53 43 |Screen."|CALC" SC|
|00000330| 52 45 45 4e 22 0d 20 20 | 43 41 4c 4c 20 47 45 54 |REEN".  |CALL GET|
|00000340| 57 4d 47 52 50 4f 52 54 | 28 57 4d 47 52 50 4f 52 |WMGRPORT|(WMGRPOR|
|00000350| 54 26 29 0d 20 20 53 54 | 3d 50 45 45 4b 20 57 4f |T&).  ST|=PEEK WO|
|00000360| 4f 52 44 28 57 4d 47 52 | 50 4f 52 54 26 2b 38 29 |ORD(WMGR|PORT&+8)|
|00000370| 0d 20 20 53 4c 3d 50 45 | 45 4b 20 57 4f 4f 52 44 |.  SL=PE|EK WOORD|
|00000380| 28 57 4d 47 52 50 4f 52 | 54 26 2b 31 30 29 0d 20 |(WMGRPOR|T&+10). |
|00000390| 20 53 42 3d 50 45 45 4b | 20 57 4f 4f 52 44 28 57 | SB=PEEK| WOORD(W|
|000003a0| 4d 47 52 50 4f 52 54 26 | 2b 31 32 29 0d 20 20 53 |MGRPORT&|+12).  S|
|000003b0| 52 3d 50 45 45 4b 20 57 | 4f 4f 52 44 28 57 4d 47 |R=PEEK W|OORD(WMG|
|000003c0| 52 50 4f 52 54 26 2b 31 | 34 29 0d 52 45 54 55 52 |RPORT&+1|4).RETUR|
|000003d0| 4e 0d 0d 06 44 69 61 6c | 6f 67 e9 22 48 41 4e 44 |N...Dial|og."HAND|
|000003e0| 4c 45 20 44 49 41 4c 4f | 47 22 0d 20 20 41 43 54 |LE DIALO|G".  ACT|
|000003f0| 3d 44 49 41 4c 4f 47 28 | 30 29 3a 52 45 46 3d 44 |=DIALOG(|0):REF=D|
|00000400| 49 41 4c 4f 47 28 41 43 | 54 29 0d 20 20 4c 4f 4e |IALOG(AC|T).  LON|
|00000410| 47 20 49 46 20 57 70 74 | 72 26 0d 20 20 20 20 49 |G IF Wpt|r&.    I|
|00000420| 46 20 41 43 54 3d 31 20 | 54 48 45 4e 20 22 42 55 |F ACT=1 |THEN "BU|
|00000430| 54 54 4f 4e 22 0d 20 20 | 20 20 49 46 20 41 43 54 |TTON".  |  IF ACT|
|00000440| 3d 33 20 54 48 45 4e 20 | 57 49 4e 44 4f 57 28 52 |=3 THEN |WINDOW(R|
|00000450| 45 46 29 3a 52 45 54 55 | 52 4e 0d 20 20 20 20 49 |EF):RETU|RN.    I|
|00000460| 46 20 41 43 54 3d 34 20 | 54 48 45 4e 20 57 49 4e |F ACT=4 |THEN WIN|
|00000470| 44 4f 57 20 43 4c 4f 53 | 45 20 52 45 46 0d 20 20 |DOW CLOS|E REF.  |
|00000480| 20 20 49 46 20 41 43 54 | 3d 35 20 54 48 45 4e 20 |  IF ACT|=5 THEN |
|00000490| 22 46 4f 52 4d 41 54 22 | 0d 20 20 20 20 49 46 20 |"FORMAT"|.    IF |
|000004a0| 41 43 54 3d 31 36 20 54 | 48 45 4e 20 22 45 44 49 |ACT=16 T|HEN "EDI|
|000004b0| 54 22 0d 20 20 45 4e 44 | 20 49 46 0d 52 45 54 55 |T".  END| IF.RETU|
|000004c0| 52 4e 0d 0d 05 4d 6f 75 | 73 65 75 22 48 41 4e 44 |RN...Mou|seu"HAND|
|000004d0| 4c 45 20 4d 4f 55 53 45 | 22 0d 20 20 20 20 4d 41 |LE MOUSE|".    MA|
|000004e0| 43 54 3d 4d 4f 55 53 45 | 28 30 29 3a 4d 58 3d 4d |CT=MOUSE|(0):MX=M|
|000004f0| 4f 55 53 45 28 31 29 3a | 4d 59 3d 4d 4f 55 53 45 |OUSE(1):|MY=MOUSE|
|00000500| 28 32 29 0d 20 20 43 41 | 4c 4c 20 47 45 54 4b 45 |(2).  CA|LL GETKE|
|00000510| 59 53 28 4b 28 31 29 29 | 0d 20 20 4c 4f 4e 47 20 |YS(K(1))|.  LONG |
|00000520| 49 46 20 57 20 70 74 72 | 26 0d 20 20 20 20 0d 20 |IF W ptr|&.    . |
|00000530| 20 45 4e 44 20 49 46 0d | 52 45 54 55 52 4e 0d 0d | END IF.|RETURN..|
|00000540| 04 4d 65 6e 75 ed 22 48 | 41 4e 44 4c 45 20 4d 45 |.Menu."H|ANDLE ME|
|00000550| 4e 55 22 0d 20 20 4d 45 | 4e 55 49 44 3d 4d 45 4e |NU".  ME|NUID=MEN|
|00000560| 55 28 30 29 3a 49 54 45 | 4d 49 44 3d 4d 45 4e 55 |U(0):ITE|MID=MENU|
|00000570| 28 31 29 0d 20 20 43 41 | 4c 4c 20 48 49 4c 49 54 |(1).  CA|LL HILIT|
|00000580| 45 4d 45 4e 55 28 30 29 | 0d 20 20 4c 4f 4e 47 20 |EMENU(0)|.  LONG |
|00000590| 49 46 20 4d 45 4e 55 49 | 44 3d 31 32 38 0d 20 20 |IF MENUI|D=128.  |
|000005a0| 20 20 47 4f 53 55 42 20 | 22 49 4e 46 4f 22 0d 20 |  GOSUB |"INFO". |
|000005b0| 20 20 20 43 41 4c 4c 20 | 47 45 54 49 54 45 4d 28 |   CALL |GETITEM(|
|000005c0| 44 41 68 6e 64 6c 26 2c | 49 54 45 4d 49 44 2c 44 |DAhndl&,|ITEMID,D|
|000005d0| 41 24 29 0d 20 20 20 20 | 58 26 3d 46 4e 20 4f 50 |A$).    |X&=FN OP|
|000005e0| 45 4e 44 45 53 4b 41 43 | 43 28 44 41 24 29 0d 20 |ENDESKAC|C(DA$). |
|000005f0| 20 20 20 52 45 54 55 52 | 4e 0d 20 20 45 4e 44 20 |   RETUR|N.  END |
|00000600| 49 46 0d 4f 4e 20 4d 45 | 4e 55 49 44 20 47 4f 54 |IF.ON ME|NUID GOT|
|00000610| 4f 20 22 44 41 54 45 49 | 22 2c 22 41 52 42 45 49 |O "DATEI|","ARBEI|
|00000620| 54 22 2c 22 46 4f 4e 54 | 22 2c 22 47 52 85 a7 45 |T","FONT|","GR..E|
|00000630| 22 0d 0d 08 53 65 74 20 | 4d 65 6e 75 e9 22 53 45 |"...Set |Menu."SE|
|00000640| 54 20 4d 45 4e 55 22 0d | 20 20 4d 6c 69 73 74 26 |T MENU".|  Mlist&|
|00000650| 3d 46 4e 20 47 45 54 4e | 45 57 4d 45 4e 55 42 41 |=FN GETN|EWMENUBA|
|00000660| 52 28 31 32 38 29 0d 20 | 20 43 41 4c 4c 20 53 45 |R(128). | CALL SE|
|00000670| 54 4d 45 4e 55 42 41 52 | 28 4d 6c 69 73 74 26 29 |TMENUBAR|(Mlist&)|
|00000680| 0d 20 20 44 41 68 6e 64 | 6c 26 3d 46 4e 20 47 45 |.  DAhnd|l&=FN GE|
|00000690| 54 4d 45 4e 55 28 31 32 | 38 29 0d 20 20 43 41 4c |TMENU(12|8).  CAL|
|000006a0| 4c 0d 20 20 41 44 44 52 | 45 53 4d 45 4e 55 28 44 |L.  ADDR|ESMENU(D|
|000006b0| 41 68 6e 64 6c 26 2c 43 | 56 49 28 22 44 52 56 52 |Ahndl&,C|VI("DRVR|
|000006c0| 22 29 29 0d 20 20 46 4f | 4e 54 48 41 4e 44 4c 45 |")).  FO|NTHANDLE|
|000006d0| 26 3d 46 4e 20 47 45 54 | 4d 45 4e 55 28 33 29 0d |&=FN GET|MENU(3).|
|000006e0| 20 20 43 41 4c 4c 20 41 | 44 44 52 45 53 4d 45 4e |  CALL A|DDRESMEN|
|000006f0| 55 28 46 4f 4e 54 48 41 | 4e 44 4c 45 26 2c 43 56 |U(FONTHA|NDLE&,CV|
|00000700| 49 28 22 46 4f 4e 54 22 | 29 29 0d 20 20 43 41 4c |I("FONT"|)).  CAL|
|00000710| 4c 20 44 52 41 57 4d 45 | 4e 55 42 41 52 0d 52 45 |L DRAWME|NUBAR.RE|
|00000720| 54 55 52 4e 0d 0d 06 57 | 69 6e 64 6f 77 95 22 42 |TURN...W|indow."B|
|00000730| 55 49 4c 44 20 57 49 4e | 44 4f 57 22 0d 20 20 47 |UILD WIN|DOW".  G|
|00000740| 4f 53 55 42 20 22 43 41 | 4c 43 20 53 43 52 45 45 |OSUB "CA|LC SCREE|
|00000750| 4e 22 0d 20 20 54 3d 53 | 54 2b 34 30 3a 4c 3d 53 |N".  T=S|T+40:L=S|
|00000760| 4c 2b 33 3a 42 3d 53 42 | 2d 33 3a 52 3d 53 52 2d |L+3:B=SB|-3:R=SR-|
|00000770| 33 0d 20 20 57 49 4e 44 | 4f 57 20 31 2c 22 22 2c |3.  WIND|OW 1,"",|
|00000780| 28 4c 2c 54 29 2d 28 52 | 2c 42 29 2c 39 0d 20 20 |(L,T)-(R|,B),9.  |
|00000790| 57 70 74 72 26 3d 46 4e | 20 46 52 4f 4e 54 57 49 |Wptr&=FN| FRONTWI|
|000007a0| 4e 44 4f 57 0d 20 20 43 | 41 4c 4c 20 53 45 54 50 |NDOW.  C|ALL SETP|
|000007b0| 4f 52 54 28 57 70 74 72 | 26 29 0d 52 45 54 55 52 |ORT(Wptr|&).RETUR|
|000007c0| 4e 0d 0d                |                         |N..     |        |
+--------+-------------------------+-------------------------+--------+--------+