home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / wst!blz4.dms / in.adf / amigamode / ARexx / arexxstringtst.bb < prev    next >
Unknown  |  1994-09-05  |  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.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 80 13 20 61 72 65 78 78 | 72 65 73 2e 62 62 00 00 |.. arexx|res.bb..|
|00000010| 3b 53 65 6e 64 69 6e 67 | 20 53 74 72 69 6e 67 20 |;Sending| String |
|00000020| 66 69 6c 65 73 20 74 6f | 20 41 52 65 78 78 2e 00 |files to| ARexx..|
|00000030| 3b 00 3b 59 6f 75 20 77 | 69 6c 6c 20 6e 6f 74 69 |;.;You w|ill noti|
|00000040| 63 65 20 61 20 73 74 72 | 61 6e 67 65 20 6f 63 63 |ce a str|ange occ|
|00000050| 75 72 61 6e 63 65 21 20 | 20 69 66 20 77 65 20 73 |urance! | if we s|
|00000060| 65 6e 64 20 61 20 73 74 | 72 69 6e 67 00 3b 66 69 |end a st|ring.;fi|
|00000070| 6c 65 20 74 68 61 74 20 | 64 6f 65 73 20 6e 6f 74 |le that |does not|
|00000080| 20 61 6c 6c 6f 77 20 61 | 20 72 65 73 75 6c 74 20 | allow a| result |
|00000090| 73 74 72 69 6e 67 20 74 | 6f 20 62 65 20 73 65 6e |string t|o be sen|
|000000a0| 74 20 62 61 63 6b 00 3b | 28 69 2e 65 2e 20 6e 6f |t back.;|(i.e. no|
|000000b0| 20 45 58 49 54 29 20 74 | 68 65 6e 20 69 74 20 73 | EXIT) t|hen it s|
|000000c0| 65 6e 64 73 20 75 73 20 | 74 68 65 20 72 65 73 75 |ends us |the resu|
|000000d0| 6c 74 20 61 73 20 61 20 | 63 6f 6d 6d 61 6e 64 00 |lt as a |command.|
|000000e0| 3b 6d 65 73 73 61 67 65 | 20 62 65 66 6f 72 65 20 |;message| before |
|000000f0| 69 74 20 72 65 74 75 72 | 6e 73 20 6f 75 72 20 6f |it retur|ns our o|
|00000100| 72 69 67 69 6e 61 6c 20 | 6d 65 73 73 61 67 65 2e |riginal |message.|
|00000110| 00 3b 54 72 79 20 72 65 | 6d 6f 76 69 6e 67 20 74 |.;Try re|moving t|
|00000120| 68 65 20 45 58 49 54 20 | 66 72 6f 6d 20 74 68 65 |he EXIT |from the|
|00000130| 20 73 74 72 69 6e 67 20 | 61 6e 64 20 79 6f 75 20 | string |and you |
|00000140| 77 69 6c 6c 20 73 65 65 | 00 3b 77 68 61 74 20 49 |will see|.;what I|
|00000150| 20 6d 65 61 6e 2e 00 3b | 46 75 72 74 68 65 72 20 | mean..;|Further |
|00000160| 74 6f 20 74 68 61 74 20 | 79 6f 75 20 63 61 6e 20 |to that |you can |
|00000170| 63 72 61 73 68 20 74 68 | 65 20 72 65 78 78 20 74 |crash th|e rexx t|
|00000180| 61 73 6b 20 74 68 65 20 | 73 61 6d 65 20 77 61 79 |ask the |same way|
|00000190| 00 3b 69 74 20 61 70 70 | 65 61 72 73 20 74 6f 20 |.;it app|ears to |
|000001a0| 62 65 20 61 20 62 75 67 | 20 69 6e 20 61 72 65 78 |be a bug| in arex|
|000001b0| 78 20 61 6e 64 20 65 76 | 65 6e 20 69 66 20 74 68 |x and ev|en if th|
|000001c0| 69 73 20 69 73 20 6e 6f | 74 00 3b 74 68 65 20 63 |is is no|t.;the c|
|000001d0| 61 73 65 20 69 74 20 63 | 65 72 74 61 69 6e 6c 79 |ase it c|ertainly|
|000001e0| 20 69 73 20 6e 6f 74 20 | 63 6f 6d 70 61 74 69 62 | is not |compatib|
|000001f0| 6c 65 20 77 69 74 68 20 | 74 68 65 00 3b 77 61 79 |le with |the.;way|
|00000200| 20 74 68 69 73 20 6c 69 | 62 72 61 72 79 20 65 78 | this li|brary ex|
|00000210| 70 65 63 74 73 20 61 72 | 65 78 78 20 74 6f 20 62 |pects ar|exx to b|
|00000220| 65 68 61 76 65 2e 00 3b | 59 6f 75 20 77 69 6c 6c |ehave..;|You will|
|00000230| 20 61 6c 73 6f 20 20 6e | 6f 74 69 63 65 20 74 68 | also  n|otice th|
|00000240| 61 74 20 79 6f 75 20 6c | 6f 6f 73 65 20 61 20 73 |at you l|oose a s|
|00000250| 6d 61 6c 6c 20 61 6d 6f | 75 6e 74 20 6f 66 00 3b |mall amo|unt of.;|
|00000260| 6d 65 6d 6f 72 79 20 65 | 61 63 68 20 74 69 6d 65 |memory e|ach time|
|00000270| 20 74 68 69 73 20 6f 63 | 63 75 72 73 20 73 6f 20 | this oc|curs so |
|00000280| 69 66 20 79 6f 75 20 61 | 72 65 20 67 6f 69 6e 67 |if you a|re going|
|00000290| 20 74 6f 20 75 73 65 00 | 3b 53 74 72 69 6e 67 20 | to use.|;String |
|000002a0| 46 69 6c 65 73 20 74 68 | 65 6e 20 6d 61 6b 65 20 |Files th|en make |
|000002b0| 73 75 72 65 20 74 68 65 | 72 65 20 69 73 20 61 6e |sure the|re is an|
|000002c0| 20 45 58 49 54 20 69 6e | 20 74 68 65 00 3b 73 74 | EXIT in| the.;st|
|000002d0| 72 69 6e 67 20 73 6f 6d | 65 77 68 65 72 65 2e 00 |ring som|ewhere..|
|000002e0| 00 00 3b 21 21 21 21 21 | 21 21 21 21 21 21 21 21 |..;!!!!!|!!!!!!!!|
|000002f0| 21 21 21 21 21 21 21 21 | 21 21 21 21 21 21 21 00 |!!!!!!!!|!!!!!!!.|
|00000300| 3b 4e 4f 54 45 20 54 48 | 49 53 20 49 53 20 41 4e |;NOTE TH|IS IS AN|
|00000310| 20 45 41 52 4c 59 20 44 | 45 56 45 4c 4f 50 4d 45 | EARLY D|EVELOPME|
|00000320| 4e 54 20 45 58 41 4d 50 | 4c 45 53 20 41 4e 44 00 |NT EXAMP|LES AND.|
|00000330| 3b 44 4f 45 53 20 4e 4f | 54 20 55 53 45 20 43 4f |;DOES NO|T USE CO|
|00000340| 52 52 45 43 54 20 45 56 | 45 4e 54 20 4c 4f 4f 50 |RRECT EV|ENT LOOP|
|00000350| 49 4e 47 20 50 52 4f 43 | 45 44 55 52 45 53 2e 00 |ING PROC|EDURES..|
|00000360| 3b 53 4f 4d 45 20 45 52 | 52 4f 52 53 20 49 4e 20 |;SOME ER|RORS IN |
|00000370| 54 48 49 53 20 43 4f 44 | 45 20 28 61 6e 64 20 63 |THIS COD|E (and c|
|00000380| 6f 6d 6d 65 6e 74 73 29 | 20 48 41 56 45 20 4e 4f |omments)| HAVE NO|
|00000390| 57 00 3b 42 45 45 4e 20 | 52 45 4d 4f 56 45 44 20 |W.;BEEN |REMOVED |
|000003a0| 41 4e 44 2f 4f 52 20 43 | 4f 52 52 45 43 54 45 44 |AND/OR C|ORRECTED|
|000003b0| 2e 00 00 00 3b 44 65 66 | 61 75 6c 74 49 44 43 4d |....;Def|aultIDCM|
|000003c0| 50 20 24 32 30 30 20 20 | 20 20 20 20 20 20 20 3b |P $200  |       ;|
|000003d0| 77 69 6e 64 6f 77 20 77 | 69 6c 6c 20 6f 6e 6c 79 |window w|ill only|
|000003e0| 20 72 65 70 6f 72 74 20 | 43 4c 4f 53 45 20 47 41 | report |CLOSE GA|
|000003f0| 44 47 45 54 00 cf 04 20 | 30 00 c5 01 20 30 2c 30 |DGET... |0... 0,0|
|00000400| 2c 30 2c 33 35 30 2c 32 | 35 30 2c 24 31 34 33 66 |,0,350,2|50,$143f|
|00000410| 2c 22 54 45 53 54 20 46 | 55 4e 43 54 49 4f 4e 30 |,"TEST F|UNCTION0|
|00000420| 22 2c 30 2c 31 00 c5 01 | 20 31 2c 32 30 30 2c 30 |",0,1...| 1,200,0|
|00000430| 2c 33 35 30 2c 32 35 30 | 2c 24 31 34 33 66 2c 22 |,350,250|,$143f,"|
|00000440| 54 45 53 54 20 46 55 4e | 43 54 49 4f 4e 31 22 2c |TEST FUN|CTION1",|
|00000450| 30 2c 31 00 00 50 6f 72 | 74 2e 6c 20 3d 20 e1 01 |0,1..Por|t.l = ..|
|00000460| 28 22 46 75 6e 63 50 6f | 72 74 22 29 00 6d 73 67 |("FuncPo|rt").msg|
|00000470| 2e 6c 20 3d 20 ae 01 28 | 50 6f 72 74 2c 22 2e 72 |.l = ..(|Port,".r|
|00000480| 65 78 78 22 2c 22 46 75 | 6e 63 50 6f 72 74 22 29 |exx","Fu|ncPort")|
|00000490| 00 ae 07 20 6d 73 67 2c | 22 45 58 49 54 20 45 52 |... msg,|"EXIT ER|
|000004a0| 52 4f 52 54 45 58 54 28 | 31 30 29 22 2c 23 52 58 |RORTEXT(|10)",#RX|
|000004b0| 43 4f 4d 4d 7c 23 52 58 | 46 46 5f 52 45 53 55 4c |COMM|#RX|FF_RESUL|
|000004c0| 54 7c 23 52 58 46 46 5f | 53 54 52 49 4e 47 00 00 |T|#RXFF_|STRING..|
|000004d0| 3b 47 65 74 20 74 68 65 | 20 66 69 72 73 74 20 6d |;Get the| first m|
|000004e0| 65 73 73 61 67 65 20 50 | 61 63 6b 65 74 20 74 6f |essage P|acket to|
|000004f0| 20 61 72 72 69 76 65 00 | 20 4c 41 42 45 4c 3a 00 | arrive.| LABEL:.|
|00000500| 20 80 bb 00 20 20 20 e1 | 03 00 20 80 bc 20 c5 03 | ...   .|.. .. ..|
|00000510| 20 3d 20 4e 55 4c 4c 20 | 20 20 20 20 20 3b 57 45 | = NULL |     ;WE|
|00000520| 20 77 69 6c 6c 20 47 55 | 52 55 20 49 66 20 77 65 | will GU|RU If we|
|00000530| 20 61 74 74 65 6d 70 74 | 20 54 6f 20 47 65 74 52 | attempt| To GetR|
|00000540| 65 78 78 52 65 73 75 6c | 74 20 66 72 6f 6d 20 61 |exxResul|t from a|
|00000550| 6e 20 69 6e 74 75 69 4d | 65 73 73 61 67 65 20 28 |n intuiM|essage (|
|00000560| 6e 6f 74 20 61 6e 79 20 | 6d 6f 72 65 21 21 29 00 |not any |more!!).|
|00000570| 20 52 6d 73 67 2e 6c 3d | ae 0c 28 50 6f 72 74 29 | Rmsg.l=|..(Port)|
|00000580| 20 20 20 20 3b 74 68 65 | 72 65 20 69 73 20 6e 6f |    ;the|re is no|
|00000590| 20 65 72 72 6f 72 20 63 | 68 65 63 6b 69 6e 67 20 | error c|hecking |
|000005a0| 66 72 6f 6d 20 68 65 72 | 65 20 6f 6e 21 21 00 20 |from her|e on!!. |
|000005b0| dd 82 20 dc 84 28 52 6d | 73 67 29 2c 22 20 22 2c |.. ..(Rm|sg)," ",|
|000005c0| dc 84 28 6d 73 67 29 2c | 22 20 28 4d 73 67 50 61 |..(msg),|" (MsgPa|
|000005d0| 63 6b 65 74 73 20 41 64 | 64 72 65 73 73 29 22 00 |ckets Ad|dress)".|
|000005e0| 20 dd 82 20 dc 84 28 ae | 09 28 52 6d 73 67 2c 31 | .. ..(.|.(Rmsg,1|
|000005f0| 29 29 2c 22 20 28 46 69 | 72 73 74 20 52 65 73 75 |))," (Fi|rst Resu|
|00000600| 6c 74 29 22 00 20 dd 82 | 20 dc 84 28 ae 09 28 52 |lt)". ..| ..(..(R|
|00000610| 6d 73 67 2c 32 29 29 2c | 22 20 28 53 65 63 6f 6e |msg,2)),|" (Secon|
|00000620| 64 20 52 65 73 75 6c 74 | 29 22 00 20 dd 82 20 ae |d Result|)". .. .|
|00000630| 0b 28 52 6d 73 67 29 2c | 22 20 28 52 65 73 75 6c |.(Rmsg),|" (Resul|
|00000640| 74 20 73 74 72 69 6e 67 | 29 22 00 20 dd 82 20 ae |t string|)". .. .|
|00000650| 0a 28 52 6d 73 67 2c 31 | 29 2c 22 20 28 43 6f 6d |.(Rmsg,1|)," (Com|
|00000660| 6d 61 6e 64 20 53 74 72 | 69 6e 67 29 22 00 20 ae |mand Str|ing)". .|
|00000670| 08 20 52 6d 73 67 2c 30 | 2c 30 2c 22 52 65 70 6c |. Rmsg,0|,0,"Repl|
|00000680| 79 22 00 20 dd 82 20 22 | 2d 2d 2d 2d 2d 2d 2d 2d |y". .. "|--------|
|00000690| 2d 2d 2d 2d 2d 2d 22 00 | 00 3b 47 65 74 20 74 68 |------".|.;Get th|
|000006a0| 65 20 73 65 63 6f 6e 64 | 20 28 65 69 74 68 65 72 |e second| (either|
|000006b0| 20 66 72 6f 6d 20 41 52 | 65 78 78 20 6f 72 20 62 | from AR|exx or b|
|000006c0| 65 63 61 75 73 65 20 77 | 65 20 72 65 70 6c 69 65 |ecause w|e replie|
|000006d0| 64 20 74 6f 20 6f 75 72 | 20 6f 72 69 67 69 6e 61 |d to our| origina|
|000006e0| 6c 20 6d 73 67 20 61 62 | 6f 76 65 29 00 4c 41 42 |l msg ab|ove).LAB|
|000006f0| 45 4c 31 3a 00 e1 03 00 | 52 6d 73 67 2e 6c 3d ae |EL1:....|Rmsg.l=.|
|00000700| 0c 28 50 6f 72 74 29 00 | 80 0b 20 ae 0d 28 52 6d |.(Port).|.. ..(Rm|
|00000710| 73 67 29 00 20 20 20 20 | 20 dd 82 20 dc 84 28 52 |sg).    | .. ..(R|
|00000720| 6d 73 67 29 2c 22 20 22 | 2c dc 84 28 6d 73 67 29 |msg)," "|,..(msg)|
|00000730| 00 20 20 20 20 20 dd 82 | 20 dc 84 28 ae 09 28 6d |.     ..| ..(..(m|
|00000740| 73 67 2c 31 29 29 00 20 | 20 20 20 20 dd 82 20 dc |sg,1)). |    .. .|
|00000750| 84 28 ae 09 28 6d 73 67 | 2c 32 29 29 00 20 20 20 |.(..(msg|,2)).   |
|00000760| 20 20 dd 82 20 ae 0b 28 | 6d 73 67 29 00 20 20 20 |  .. ..(|msg).   |
|00000770| 20 20 dd 82 20 ae 0a 28 | 6d 73 67 2c 31 29 00 20 |  .. ..(|msg,1). |
|00000780| 20 20 20 20 dd 82 20 22 | 2d 2d 2d 2d 2d 2d 2d 2d |    .. "|--------|
|00000790| 2d 2d 2d 2d 2d 2d 22 00 | 20 20 20 20 20 dd 82 20 |------".|     .. |
|000007a0| 22 43 4c 49 43 4b 20 4d | 4f 55 53 45 20 42 55 54 |"CLICK M|OUSE BUT|
|000007b0| 54 4f 4e 22 00 80 c0 00 | e1 02 28 50 6f 72 74 29 |TON"....|..(Port)|
|000007c0| 00 ae 02 28 6d 73 67 29 | 00 80 bb 00 20 20 e1 03 |...(msg)|....  ..|
|000007d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000007e0| 20 20 20 20 20 20 20 20 | 20 20 3b 57 61 69 74 20 |        |  ;Wait |
|000007f0| 6f 6e 20 65 76 65 6e 74 | 20 66 72 6f 6d 20 77 69 |on event| from wi|
|00000800| 6e 64 6f 77 00 20 20 65 | 76 2e 6c 20 20 3d 20 c5 |ndow.  e|v.l  = .|
|00000810| 03 00 20 20 dd 82 20 dc | 84 28 65 76 29 20 20 20 |..  .. .|.(ev)   |
|00000820| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 4a 75 73 |        |    ;Jus|
|00000830| 74 20 74 6f 20 70 72 6f | 76 65 20 61 6c 6c 20 74 |t to pro|ve all t|
|00000840| 68 65 20 6e 6f 72 6d 61 | 6c 20 66 75 6e 63 74 69 |he norma|l functi|
|00000850| 6f 6e 73 00 20 20 dd 82 | 20 dc 84 28 c5 05 29 20 |ons.  ..| ..(..) |
|00000860| 20 20 20 20 20 3b 73 74 | 69 6c 6c 20 77 6f 72 6b |     ;st|ill work|
|00000870| 20 61 66 74 65 72 20 57 | 61 69 74 20 73 6f 20 6c | after W|ait so l|
|00000880| 6f 6e 67 20 61 73 20 79 | 6f 75 20 63 61 6c 6c 20 |ong as y|ou call |
|00000890| 45 56 45 4e 54 00 80 bc | 20 c5 05 20 3d 20 30 20 |EVENT...| .. = 0 |
|000008a0| 80 42 20 65 76 20 3d 20 | 24 32 30 30 00 00 00    |.B ev = |$200... |
+--------+-------------------------+-------------------------+--------+--------+