home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / magazines / _riscmag_2 / resources / program / prog_1
Unknown  |  1994-07-21  |  1.6 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
100% xdgMime image/x-tga default



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 18 f4 20 42 41 | 53 49 43 20 57 69 6d 70 |..... BA|SIC Wimp|
|00000010| 20 70 72 6f 67 72 61 6d | 0d 00 14 1e f4 20 a9 20 | program|..... . |
|00000020| 50 6f 70 65 20 4a 6f 68 | 6e 20 50 61 75 6c 20 74 |Pope Joh|n Paul t|
|00000030| 68 65 20 32 6e 64 0d 00 | 1e 05 3a 0d 00 28 1b f4 |he 2nd..|..:..(..|
|00000040| 20 53 65 74 20 75 70 20 | 20 65 72 72 6f 72 20 68 | Set up | error h|
|00000050| 61 6e 64 6c 65 72 0d 00 | 32 20 ee 20 85 20 eb 20 |andler..|2 . . . |
|00000060| 30 3a f1 20 f6 24 3b 22 | 20 61 74 20 6c 69 6e 65 |0:. .$;"| at line|
|00000070| 20 22 3b 9e 3a e0 0d 00 | 3c 21 f4 20 43 61 6c 6c | ";.:...|<!. Call|
|00000080| 20 69 6e 69 74 69 61 6c | 69 73 61 74 69 6f 6e 20 | initial|isation |
|00000090| 72 6f 75 74 69 6e 65 0d | 00 46 0f f2 69 6e 69 74 |routine.|.F..init|
|000000a0| 69 61 6c 69 73 65 0d 00 | 50 05 3a 0d 00 5a 05 f5 |ialise..|P.:..Z..|
|000000b0| 0d 00 64 15 20 f4 20 50 | 6f 6c 6c 20 74 68 69 73 |..d. . P|oll this|
|000000c0| 20 77 69 6d 70 0d 00 6e | 25 20 c8 99 20 22 57 69 | wimp..n|% .. "Wi|
|000000d0| 6d 70 5f 50 6f 6c 6c 22 | 2c 2c 62 6c 6f 63 6b 25 |mp_Poll"|,,block%|
|000000e0| 20 b8 20 72 65 61 73 6f | 6e 25 0d 00 78 1f 20 f4 | . reaso|n%..x. .|
|000000f0| 20 43 68 65 63 6b 20 6f | 75 74 20 74 68 65 20 65 | Check o|ut the e|
|00000100| 76 65 6e 74 20 63 6f 64 | 65 0d 00 82 12 20 20 c8 |vent cod|e.... .|
|00000110| 8e 20 72 65 61 73 6f 6e | 25 20 ca 0d 00 8c 0a 20 |. reason|% ..... |
|00000120| 20 20 c9 20 36 0d 00 96 | 27 20 20 20 20 f4 20 57 | . 6...|' . W|
|00000130| 68 65 6e 20 36 2c 20 74 | 68 65 20 6d 6f 75 73 65 |hen 6, t|he mouse|
|00000140| 20 77 61 73 20 63 6c 69 | 63 6b 65 64 0d 00 a0 2b | was cli|cked...+|
|00000150| 20 20 20 20 f2 72 65 70 | 6f 72 74 5f 65 72 72 6f | .rep|ort_erro|
|00000160| 72 28 22 52 69 73 63 20 | 4d 61 67 20 72 75 6c 65 |r("Risc |Mag rule|
|00000170| 73 20 4f 4b 21 22 29 0d | 00 aa 0e 20 20 20 c9 20 |s OK!").|... . |
|00000180| 31 37 2c 31 38 0d 00 b4 | 33 20 20 20 20 f4 20 77 |17,18...|3 . w|
|00000190| 68 65 6e 20 31 37 2c 31 | 38 20 61 20 6d 65 73 73 |hen 17,1|8 a mess|
|000001a0| 61 67 65 20 77 61 73 20 | 73 65 6e 74 20 74 6f 20 |age was |sent to |
|000001b0| 6f 75 72 20 74 61 73 6b | 0d 00 be 17 20 20 20 20 |our task|.... |
|000001c0| e7 20 62 6c 6f 63 6b 25 | 21 31 36 3d 30 20 8c 0d |. block%|!16=0 ..|
|000001d0| 00 c8 17 20 20 20 20 20 | f4 20 4d 65 73 73 61 67 |... |. Messag|
|000001e0| 65 5f 51 75 69 74 0d 00 | d2 2c 20 20 20 20 20 c8 |e_Quit..|., .|
|000001f0| 99 20 22 57 69 6d 70 5f | 43 6c 6f 73 65 44 6f 77 |. "Wimp_|CloseDow|
|00000200| 6e 22 2c 74 61 73 6b 25 | 2c 26 34 42 35 33 34 31 |n",task%|,&4B5341|
|00000210| 35 34 0d 00 dc 15 20 20 | 20 20 20 c8 99 20 22 4f |54.... | .. "O|
|00000220| 53 5f 45 78 69 74 22 0d | 00 e6 1d 20 20 20 20 20 |S_Exit".|... |
|00000230| f4 20 54 65 72 6d 69 6e | 61 74 65 20 74 68 65 20 |. Termin|ate the |
|00000240| 74 61 73 6b 0d 00 f0 09 | 20 20 20 20 cd 0d 00 fa |task....| ....|
|00000250| 07 20 20 cb 0d 01 04 2e | 20 f4 20 52 65 74 75 72 |. .....| . Retur|
|00000260| 6e 20 74 6f 20 70 6f 6c | 6c 20 6c 6f 6f 70 20 75 |n to pol|l loop u|
|00000270| 6e 74 69 6c 20 71 75 69 | 74 25 20 69 73 20 54 52 |ntil qui|t% is TR|
|00000280| 55 45 0d 01 0e 0d fd 20 | 71 75 69 74 25 3d b9 0d |UE..... |quit%=..|
|00000290| 01 18 05 3a 0d 01 22 1d | f4 20 54 68 65 6e 20 74 |...:..".|. Then t|
|000002a0| 65 72 6d 69 6e 61 74 65 | 20 74 68 65 20 74 61 73 |erminate| the tas|
|000002b0| 6b 0d 01 2c 27 c8 99 20 | 22 57 69 6d 70 5f 43 6c |k..,'.. |"Wimp_Cl|
|000002c0| 6f 73 65 44 6f 77 6e 22 | 2c 74 61 73 6b 25 2c 26 |oseDown"|,task%,&|
|000002d0| 34 42 35 33 34 31 35 34 | 0d 01 36 10 c8 99 20 22 |4B534154|..6... "|
|000002e0| 4f 53 5f 45 78 69 74 22 | 0d 01 40 05 3a 0d 01 4a |OS_Exit"|..@.:..J|
|000002f0| 10 dd f2 69 6e 69 74 69 | 61 6c 69 73 65 0d 01 54 |...initi|alise..T|
|00000300| 30 f4 20 69 6e 69 74 69 | 61 6c 69 73 65 20 74 68 |0. initi|alise th|
|00000310| 65 20 74 61 73 6b 20 77 | 69 74 68 20 74 68 77 20 |e task w|ith thw |
|00000320| 69 6e 64 6f 77 20 6d 61 | 6e 61 67 65 72 0d 01 5e |indow ma|nager..^|
|00000330| 4c c8 99 20 22 57 69 6d | 70 5f 49 6e 69 74 69 61 |L.. "Wim|p_Initia|
|00000340| 6c 69 73 65 22 2c 32 30 | 30 2c 26 34 42 35 33 34 |lise",20|0,&4B534|
|00000350| 31 35 34 2c 22 42 41 53 | 49 43 20 57 69 6d 70 20 |154,"BAS|IC Wimp |
|00000360| 70 72 6f 67 72 61 6d 22 | 20 b8 20 76 65 72 73 69 |program"| . versi|
|00000370| 6f 6e 25 2c 74 61 73 6b | 25 0d 01 68 1f f4 20 72 |on%,task|%..h.. r|
|00000380| 65 73 65 72 76 65 20 74 | 77 6f 20 6d 65 6d 6f 72 |eserve t|wo memor|
|00000390| 79 20 62 6c 6f 63 6b 73 | 0d 01 72 1a de 20 62 6c |y blocks|..r.. bl|
|000003a0| 6f 63 6b 25 20 32 35 36 | 2c 69 63 6f 6e 25 20 31 |ock% 256|,icon% 1|
|000003b0| 32 38 0d 01 7c 1e f4 20 | 53 65 74 20 61 20 57 49 |28..|.. |Set a WI|
|000003c0| 4d 50 20 65 72 72 6f 72 | 20 68 61 6e 64 6c 65 72 |MP error| handler|
|000003d0| 0d 01 86 64 ee 20 85 20 | f2 72 65 70 6f 72 74 5f |...d. . |.report_|
|000003e0| 65 72 72 6f 72 28 f6 24 | 2b 22 20 28 69 6e 74 65 |error(.$|+" (inte|
|000003f0| 72 6e 61 6c 20 63 6f 64 | 65 20 22 2b c3 9e 2b 22 |rnal cod|e "+..+"|
|00000400| 29 22 29 3a c8 99 20 22 | 57 69 6d 70 5f 43 6c 6f |)"):.. "|Wimp_Clo|
|00000410| 73 65 44 6f 77 6e 22 2c | 74 61 73 6b 25 2c 26 34 |seDown",|task%,&4|
|00000420| 42 35 33 34 31 35 34 3a | c8 99 20 22 4f 53 5f 45 |B534154:|.. "OS_E|
|00000430| 78 69 74 22 0d 01 90 3d | f4 20 43 61 6c 6c 20 69 |xit"...=|. Call i|
|00000440| 63 6f 6e 20 62 61 72 20 | 64 65 66 69 6e 69 6e 67 |con bar |defining|
|00000450| 20 66 75 6e 63 74 69 6f | 6e 2c 20 70 75 74 74 69 | functio|n, putti|
|00000460| 6e 67 20 68 61 6e 64 6c | 65 20 69 6e 20 62 61 72 |ng handl|e in bar|
|00000470| 25 0d 01 9a 12 62 61 72 | 25 3d a4 69 63 6f 6e 5f |%....bar|%=.icon_|
|00000480| 62 61 72 0d 01 a4 1c f4 | 20 53 65 74 20 71 75 69 |bar.....| Set qui|
|00000490| 74 20 66 6c 61 67 20 74 | 6f 20 66 61 6c 73 65 0d |t flag t|o false.|
|000004a0| 01 ae 0b 71 75 69 74 25 | 3d a3 0d 01 b8 05 e1 0d |...quit%|=.......|
|000004b0| 01 c2 05 3a 0d 01 cc 37 | f4 20 54 68 65 20 62 69 |...:...7|. The bi|
|000004c0| 74 73 20 74 68 61 74 20 | 66 6f 6c 6c 6f 77 20 77 |ts that |follow w|
|000004d0| 69 6c 6c 20 62 65 20 65 | 78 70 6c 61 69 6e 65 64 |ill be e|xplained|
|000004e0| 20 6e 65 78 74 20 69 73 | 73 75 65 0d 01 d6 05 3a | next is|sue....:|
|000004f0| 0d 01 e0 0e dd a4 69 63 | 6f 6e 5f 62 61 72 0d 01 |......ic|on_bar..|
|00000500| ea 0e 69 63 6f 6e 25 21 | 30 3d 2d 31 0d 01 f4 0d |..icon%!|0=-1....|
|00000510| 69 63 6f 6e 25 21 34 3d | 30 0d 01 fe 0d 69 63 6f |icon%!4=|0....ico|
|00000520| 6e 25 21 38 3d 30 0d 02 | 08 0f 69 63 6f 6e 25 21 |n%!8=0..|..icon%!|
|00000530| 31 32 3d 36 38 0d 02 12 | 0f 69 63 6f 6e 25 21 31 |12=68...|.icon%!1|
|00000540| 36 3d 36 38 0d 02 1c 12 | 69 63 6f 6e 25 21 32 30 |6=68....|icon%!20|
|00000550| 3d 26 32 31 30 32 0d 02 | 26 19 73 70 72 69 74 65 |=&2102..|&.sprite|
|00000560| 24 3d 22 61 70 70 6c 69 | 63 61 74 69 6f 6e 22 0d |$="appli|cation".|
|00000570| 02 30 1c de 20 69 63 6f | 6e 25 21 32 34 20 28 a9 |.0.. ico|n%!24 (.|
|00000580| 20 73 70 72 69 74 65 24 | 2b 31 29 0d 02 3a 17 24 | sprite$|+1)..:.$|
|00000590| 28 69 63 6f 6e 25 21 32 | 34 29 3d 73 70 72 69 74 |(icon%!2|4)=sprit|
|000005a0| 65 24 0d 02 44 0e 69 63 | 6f 6e 25 21 32 38 3d 31 |e$..D.ic|on%!28=1|
|000005b0| 0d 02 4e 19 69 63 6f 6e | 25 21 33 32 3d a9 28 73 |..N.icon|%!32=.(s|
|000005c0| 70 72 69 74 65 24 29 2b | 31 0d 02 58 29 c8 99 20 |prite$)+|1..X).. |
|000005d0| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 49 63 6f 6e |"Wimp_Cr|eateIcon|
|000005e0| 22 2c 2c 69 63 6f 6e 25 | 20 b8 20 68 61 6e 64 6c |",,icon%| . handl|
|000005f0| 65 25 0d 02 62 0c 3d 68 | 61 6e 64 6c 65 25 0d 02 |e%..b.=h|andle%..|
|00000600| 6c 05 3a 0d 02 76 1c dd | f2 72 65 70 6f 72 74 5f |l.:..v..|.report_|
|00000610| 65 72 72 6f 72 28 6d 65 | 73 73 61 67 65 24 29 0d |error(me|ssage$).|
|00000620| 02 80 0e 62 6c 6f 63 6b | 25 21 30 3d 9f 0d 02 8a |...block|%!0=....|
|00000630| 1d 24 28 62 6c 6f 63 6b | 25 2b 34 29 3d 6d 65 73 |.$(block|%+4)=mes|
|00000640| 73 61 67 65 24 2b bd 28 | 30 29 0d 02 94 37 c8 99 |sage$+.(|0)...7..|
|00000650| 20 22 57 69 6d 70 5f 52 | 65 70 6f 72 74 45 72 72 | "Wimp_R|eportErr|
|00000660| 6f 72 22 2c 62 6c 6f 63 | 6b 25 2c 31 2c 22 42 41 |or",bloc|k%,1,"BA|
|00000670| 53 49 43 20 57 69 6d 70 | 20 50 72 6f 67 72 61 6d |SIC Wimp| Program|
|00000680| 22 0d 02 9e 05 e1 0d ff | |".......| |
+--------+-------------------------+-------------------------+--------+--------+