/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / program / a / basicedit1 / !BasicEdit / BAS_EDIT

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1b f4 20 3e 20 | 21 42 61 73 69 63 45 64 |..... > |!BasicEd|
|00000010| 69 74 2e 42 41 53 5f 45 | 44 49 54 0d 00 14 34 f4 |it.BAS_E|DIT...4.|
|00000020| 20 56 65 72 73 69 6f 6e | 20 31 2e 30 20 42 79 20 | Version| 1.0 By |
|00000030| 4d 69 6b 65 20 43 6f 6f | 6b 20 2d 20 4d 75 73 62 |Mike Coo|k - Musb|
|00000040| 75 72 79 20 43 6f 6e 73 | 75 6c 74 61 6e 74 73 0d |ury Cons|ultants.|
|00000050| 00 1e 11 ee 20 85 20 f2 | 65 72 72 6f 72 62 6f 78 |.... . .|errorbox|
|00000060| 0d 00 28 1e de 20 74 61 | 73 6b 69 64 25 34 3a 24 |..(.. ta|skid%4:$|
|00000070| 74 61 73 6b 69 64 25 3d | 22 54 41 53 4b 22 0d 00 |taskid%=|"TASK"..|
|00000080| 32 46 c8 99 20 22 57 69 | 6d 70 5f 49 6e 69 74 69 |2F.. "Wi|mp_Initi|
|00000090| 61 6c 69 73 65 22 2c 32 | 30 30 2c 21 74 61 73 6b |alise",2|00,!task|
|000000a0| 69 64 25 2c 22 42 61 73 | 69 63 45 64 69 74 22 20 |id%,"Bas|icEdit" |
|000000b0| b8 20 76 65 72 73 69 6f | 6e 25 2c 74 61 73 6b 68 |. versio|n%,taskh|
|000000c0| 61 6e 64 25 0d 00 3c 2e | de 20 71 25 20 26 33 30 |and%..<.|. q% &30|
|000000d0| 30 2c 74 65 6d 70 25 20 | 32 35 36 2c 62 75 66 66 |0,temp% |256,buff|
|000000e0| 65 72 73 25 20 35 31 32 | 2c 6d 65 6e 75 25 20 31 |ers% 512|,menu% 1|
|000000f0| 32 38 0d 00 46 30 c8 99 | 20 22 57 69 6d 70 5f 4f |28..F0..| "Wimp_O|
|00000100| 70 65 6e 54 65 6d 70 6c | 61 74 65 22 2c 2c 22 3c |penTempl|ate",,"<|
|00000110| 45 44 24 44 69 72 3e 2e | 54 65 6d 70 6c 61 74 65 |ED$Dir>.|Template|
|00000120| 73 22 0d 00 50 29 ee 20 | 85 20 c8 99 20 22 57 69 |s"..P). |. .. "Wi|
|00000130| 6d 70 5f 43 6c 6f 73 65 | 54 65 6d 70 6c 61 74 65 |mp_Close|Template|
|00000140| 22 3a f2 65 72 72 6f 72 | 62 6f 78 0d 00 5a 3a c8 |":.error|box..Z:.|
|00000150| 99 20 22 57 69 6d 70 5f | 4c 6f 61 64 54 65 6d 70 |. "Wimp_|LoadTemp|
|00000160| 6c 61 74 65 22 2c 2c 71 | 25 2c 74 65 6d 70 25 2c |late",,q|%,temp%,|
|00000170| 74 65 6d 70 25 2b 32 35 | 36 2c 2d 31 2c 22 49 6e |temp%+25|6,-1,"In|
|00000180| 66 6f 22 2c 30 0d 00 64 | 26 c8 99 20 22 57 69 6d |fo",0..d|&.. "Wim|
|00000190| 70 5f 43 72 65 61 74 65 | 57 69 6e 64 6f 77 22 2c |p_Create|Window",|
|000001a0| 2c 71 25 20 b8 20 69 6e | 66 6f 25 0d 00 6e 1b c8 |,q% . in|fo%..n..|
|000001b0| 99 20 22 57 69 6d 70 5f | 43 6c 6f 73 65 54 65 6d |. "Wimp_|CloseTem|
|000001c0| 70 6c 61 74 65 22 0d 00 | 78 0a 72 65 66 25 3d 30 |plate"..|x.ref%=0|
|000001d0| 0d 00 82 11 ee 20 85 20 | f2 65 72 72 6f 72 62 6f |..... . |.errorbo|
|000001e0| 78 0d 00 8c 0e f2 73 65 | 74 75 70 6d 65 6e 75 0d |x.....se|tupmenu.|
|000001f0| 00 96 12 62 61 73 69 63 | 6f 6e 25 3d a4 69 63 6f |...basic|on%=.ico|
|00000200| 6e 0d 00 a0 04 0d 00 aa | 05 f5 0d 00 b4 3c 20 20 |n.......|.....<  |
|00000210| c8 99 20 22 57 69 6d 70 | 5f 50 6f 6c 6c 22 2c ac |.. "Wimp|_Poll",.|
|00000220| 28 28 33 3c 3c 31 37 29 | 84 28 31 3c 3c 39 29 84 |((3<<17)|.(1<<9).|
|00000230| 28 31 3c 3c 36 29 84 28 | 31 3c 3c 31 29 29 2c 71 |(1<<6).(|1<<1)),q|
|00000240| 25 20 b8 20 41 25 0d 00 | be 0d 20 20 c8 8e 20 41 |% . A%..|..  .. A|
|00000250| 25 20 ca 0d 00 c8 24 20 | 20 c9 20 31 3a c8 99 20 |% ....$ | . 1:.. |
|00000260| 22 57 69 6d 70 5f 52 65 | 64 72 61 77 57 69 6e 64 |"Wimp_Re|drawWind|
|00000270| 6f 77 22 2c 2c 71 25 0d | 00 d2 36 20 20 c9 20 36 |ow",,q%.|..6  . 6|
|00000280| 3a e7 20 71 25 21 31 32 | 3d 2d 32 20 80 20 71 25 |:. q%!12|=-2 . q%|
|00000290| 21 31 36 3d 62 61 73 69 | 63 6f 6e 25 20 8c 20 f2 |!16=basi|con% . .|
|000002a0| 5f 64 6f 5f 63 6c 69 63 | 6b 28 71 25 29 0d 00 dc |_do_clic|k(q%)...|
|000002b0| 18 20 20 c9 20 39 3a e7 | 20 21 71 25 3d 31 20 8c |.  . 9:.| !q%=1 .|
|000002c0| 20 f2 64 69 65 0d 00 e6 | 1a 20 20 c9 20 31 37 2c | .die...|.  . 17,|
|000002d0| 31 38 3a f2 72 65 63 65 | 69 76 65 28 71 25 29 0d |18:.rece|ive(q%).|
|000002e0| 00 f0 07 20 20 cb 0d 00 | fa 07 fd 20 a3 0d 01 04 |...  ...|... ....|
|000002f0| 04 0d 01 0e 14 dd 20 f2 | 5f 64 6f 5f 63 6c 69 63 |...... .|_do_clic|
|00000300| 6b 28 71 25 29 0d 01 18 | 35 e7 20 71 25 21 38 3d |k(q%)...|5. q%!8=|
|00000310| 32 20 8c 20 c8 99 22 57 | 69 6d 70 5f 43 72 65 61 |2 . .."W|imp_Crea|
|00000320| 74 65 4d 65 6e 75 22 2c | 2c 6d 65 6e 75 25 2c 71 |teMenu",|,menu%,q|
|00000330| 25 21 30 2d 36 34 2c 31 | 39 30 0d 01 22 16 e7 20 |%!0-64,1|90..".. |
|00000340| 71 25 21 38 3d 34 20 8c | 20 f2 5f 42 41 53 49 43 |q%!8=4 .| ._BASIC|
|00000350| 0d 01 2c 05 e1 0d 01 36 | 04 0d 01 40 0a dd a4 69 |..,....6|...@...i|
|00000360| 63 6f 6e 0d 01 4a 0b 71 | 25 21 30 3d 2d 31 0d 01 |con..J.q|%!0=-1..|
|00000370| 54 0a 71 25 21 34 3d 30 | 0d 01 5e 1a 71 25 21 38 |T.q%!4=0|..^.q%!8|
|00000380| 3d 30 20 3a 20 f4 20 59 | 20 44 49 52 45 43 54 49 |=0 : . Y| DIRECTI|
|00000390| 4f 4e 0d 01 68 1c 71 25 | 21 31 32 3d 35 32 20 3a |ON..h.q%|!12=52 :|
|000003a0| 20 f4 20 58 20 44 49 52 | 45 43 54 49 4f 4e 0d 01 | . X DIR|ECTION..|
|000003b0| 72 0c 71 25 21 31 36 3d | 39 36 0d 01 7c 0f 71 25 |r.q%!16=|96..|.q%|
|000003c0| 21 32 30 3d 26 32 30 30 | 32 0d 01 86 19 24 28 71 |!20=&200|2....$(q|
|000003d0| 25 2b 32 34 29 3d 22 21 | 42 61 73 69 63 45 64 69 |%+24)="!|BasicEdi|
|000003e0| 74 22 0d 01 90 24 c8 99 | 20 22 57 69 6d 70 5f 43 |t"...$..| "Wimp_C|
|000003f0| 72 65 61 74 65 49 63 6f | 6e 22 2c 2c 71 25 20 b8 |reateIco|n",,q% .|
|00000400| 20 69 63 6f 6e 25 0d 01 | 9a 0a 3d 69 63 6f 6e 25 | icon%..|..=icon%|
|00000410| 0d 01 a4 04 0d 01 ae 0f | dd f2 73 65 74 75 70 6d |........|..setupm|
|00000420| 65 6e 75 0d 01 b8 08 ea | 20 6d 25 0d 01 c2 16 24 |enu.....| m%....$|
|00000430| 6d 65 6e 75 25 3d 22 42 | 61 73 69 63 45 64 69 74 |menu%="B|asicEdit|
|00000440| 22 0d 01 cc 0e 6d 65 6e | 75 25 3f 31 32 3d 37 0d |"....men|u%?12=7.|
|00000450| 01 d6 0e 6d 65 6e 75 25 | 3f 31 33 3d 32 0d 01 e0 |...menu%|?13=2...|
|00000460| 0e 6d 65 6e 75 25 3f 31 | 34 3d 37 0d 01 ea 0e 6d |.menu%?1|4=7....m|
|00000470| 65 6e 75 25 3f 31 35 3d | 30 0d 01 f4 10 6d 65 6e |enu%?15=|0....men|
|00000480| 75 25 21 31 36 3d 31 32 | 38 0d 01 fe 0f 6d 65 6e |u%!16=12|8....men|
|00000490| 75 25 21 32 30 3d 34 30 | 0d 02 08 0e 6d 65 6e 75 |u%!20=40|....menu|
|000004a0| 25 21 32 34 3d 30 0d 02 | 12 0f 6d 25 3d 6d 65 6e |%!24=0..|..m%=men|
|000004b0| 75 25 2b 32 38 0d 02 1c | 0a 6d 25 21 30 3d 30 0d |u%+28...|.m%!0=0.|
|000004c0| 02 26 0e 6d 25 21 34 3d | 69 6e 66 6f 25 0d 02 30 |.&.m%!4=|info%..0|
|000004d0| 18 6d 25 21 38 3d 28 37 | 3c 3c 32 34 29 84 20 25 |.m%!8=(7|<<24). %|
|000004e0| 31 31 30 30 31 0d 02 3a | 13 24 28 6d 25 2b 31 32 |11001..:|.$(m%+12|
|000004f0| 29 3d 22 49 6e 66 6f 22 | 0d 02 44 04 0d 02 4e 0a |)="Info"|..D...N.|
|00000500| 6d 25 2b 3d 32 34 0d 02 | 58 0c 6d 25 21 30 3d 26 |m%+=24..|X.m%!0=&|
|00000510| 38 30 0d 02 62 0a 6d 25 | 21 34 3d 30 0d 02 6c 18 |80..b.m%|!4=0..l.|
|00000520| 6d 25 21 38 3d 28 37 3c | 3c 32 34 29 84 20 25 31 |m%!8=(7<|<24). %1|
|00000530| 31 30 30 31 0d 02 76 13 | 24 28 6d 25 2b 31 32 29 |1001..v.|$(m%+12)|
|00000540| 3d 22 51 75 69 74 22 0d | 02 80 05 e1 0d 02 8a 04 |="Quit".|........|
|00000550| 0d 02 94 0d dd 20 f2 5f | 42 41 53 49 43 0d 02 9e |..... ._|BASIC...|
|00000560| 08 ea 20 6d 25 0d 02 a8 | 0f 24 71 25 3d 22 42 41 |.. m%...|.$q%="BA|
|00000570| 53 49 43 22 0d 02 b2 08 | 6d 25 3d eb 0d 02 bc 1a |SIC"....|m%=.....|
|00000580| c8 99 20 22 57 69 6d 70 | 5f 53 74 61 72 74 54 61 |.. "Wimp|_StartTa|
|00000590| 73 6b 22 2c 71 25 0d 02 | c6 08 eb 20 6d 25 0d 02 |sk",q%..|... m%..|
|000005a0| d0 18 c8 99 20 22 57 69 | 6d 70 5f 53 65 74 4d 6f |.... "Wi|mp_SetMo|
|000005b0| 64 65 22 2c 6d 25 0d 02 | da 2a c8 99 20 22 57 69 |de",m%..|.*.. "Wi|
|000005c0| 6d 70 5f 46 6f 72 63 65 | 52 65 64 72 61 77 22 2c |mp_Force|Redraw",|
|000005d0| 2d 31 2c 30 2c 30 2c 31 | 32 38 30 2c 31 30 32 34 |-1,0,0,1|280,1024|
|000005e0| 0d 02 e4 05 e1 0d 02 ee | 04 0d 02 f8 12 dd 20 f2 |........|...... .|
|000005f0| 72 65 63 65 69 76 65 28 | 71 25 29 0d 03 02 08 ea |receive(|q%).....|
|00000600| 20 41 25 0d 03 0c 0e c8 | 8e 20 71 25 21 31 36 20 | A%.....|. q%!16 |
|00000610| ca 0d 03 16 0c c9 20 30 | 3a f2 64 69 65 0d 03 20 |...... 0|:.die.. |
|00000620| 32 c9 20 33 3a e7 20 71 | 25 21 32 30 3d 2d 32 20 |2. 3:. q|%!20=-2 |
|00000630| 80 20 71 25 21 32 34 3d | 62 61 73 69 63 6f 6e 25 |. q%!24=|basicon%|
|00000640| 20 80 20 71 25 21 34 30 | 3d 26 46 46 42 20 8c 0d | . q%!40|=&FFB ..|
|00000650| 03 2a 1b 20 20 20 20 20 | 20 20 20 6e 24 3d a4 73 |.*.     |   n$=.s|
|00000660| 67 65 74 28 71 25 2b 34 | 34 29 0d 03 34 12 20 20 |get(q%+4|4)..4.  |
|00000670| 20 20 20 20 20 20 f2 5f | 44 61 63 6b 0d 03 3e 3a |      ._|Dack..>:|
|00000680| 20 20 20 20 20 20 20 20 | 6e 24 3d 22 4c 4f 41 44 |        |n$="LOAD|
|00000690| 20 22 2b bd 28 26 32 32 | 29 2b 6e 24 2b bd 28 26 | "+.(&22|)+n$+.(&|
|000006a0| 32 32 29 2b bd 28 31 33 | 29 2b 22 45 44 49 54 22 |22)+.(13|)+"EDIT"|
|000006b0| 2b bd 28 31 33 29 0d 03 | 48 1a 20 20 20 20 20 20 |+.(13)..|H.      |
|000006c0| 20 20 e3 20 41 25 3d 31 | 20 b8 20 a9 28 6e 24 29 |  . A%=1| . .(n$)|
|000006d0| 0d 03 52 29 20 20 20 20 | 20 20 20 20 ff 28 22 46 |..R)    |    .("F|
|000006e0| 58 31 33 38 2c 30 2c 22 | 2b c3 28 97 28 c1 6e 24 |X138,0,"|+.(.(.n$|
|000006f0| 2c 41 25 2c 31 29 29 29 | 29 0d 03 5c 0d 20 20 20 |,A%,1)))|)..\.   |
|00000700| 20 20 20 20 20 ed 0d 03 | 66 13 20 20 20 20 20 20 |     ...|f.      |
|00000710| 20 20 f2 5f 42 41 53 49 | 43 0d 03 70 12 20 20 20 |  ._BASI|C..p.   |
|00000720| 20 20 20 20 20 72 65 66 | 25 3d 30 0d 03 7a 0c 20 |     ref|%=0..z. |
|00000730| 20 20 20 20 20 20 cd 0d | 03 84 11 c9 20 26 35 30 |      ..|.... &50|
|00000740| 32 3a c8 8e 20 b9 20 ca | 0d 03 8e 70 20 20 20 20 |2:.. . .|...p    |
|00000750| 20 20 20 c9 20 71 25 21 | 33 32 3d 2d 32 20 80 20 |   . q%!|32=-2 . |
|00000760| 71 25 21 33 36 3d 62 61 | 73 69 63 6f 6e 25 3a 6d |q%!36=ba|sicon%:m|
|00000770| 65 73 24 3d 22 54 68 69 | 73 20 69 73 20 74 68 65 |es$="Thi|s is the|
|00000780| 20 42 61 73 69 63 20 45 | 64 69 74 6f 72 20 69 63 | Basic E|ditor ic|
|00000790| 6f 6e 2e 7c 4d 44 72 61 | 67 20 61 20 42 41 53 49 |on.|MDra|g a BASI|
|000007a0| 43 20 66 69 6c 65 20 68 | 65 72 65 20 74 6f 20 65 |C file h|ere to e|
|000007b0| 64 69 74 20 69 74 2e 22 | 0d 03 98 14 20 20 20 20 |dit it."|....    |
|000007c0| 20 20 20 7f 3a 6d 65 73 | 24 3d 22 22 0d 03 a2 0c |   .:mes|$=""....|
|000007d0| 20 20 20 20 20 20 20 cb | 0d 03 ac 14 20 20 20 20 |       .|....    |
|000007e0| e7 20 6d 65 73 24 3c 3e | 22 22 20 8c 0d 03 b6 12 |. mes$<>|"" .....|
|000007f0| 20 20 20 20 71 25 21 31 | 32 3d 71 25 21 38 0d 03 |    q%!1|2=q%!8..|
|00000800| c0 18 20 20 20 20 24 28 | 71 25 2b 32 30 29 3d 6d |..    $(|q%+20)=m|
|00000810| 65 73 24 2b bd 30 0d 03 | ca 1e 20 20 20 20 71 25 |es$+.0..|..    q%|
|00000820| 21 30 3d 28 32 30 2b a9 | 6d 65 73 24 2b 34 29 80 |!0=(20+.|mes$+4).|
|00000830| 20 ac 20 33 0d 03 d4 12 | 20 20 20 20 71 25 21 31 | . 3....|    q%!1|
|00000840| 36 3d 26 35 30 33 0d 03 | de 28 20 20 20 20 c8 99 |6=&503..|.(    ..|
|00000850| 20 22 57 69 6d 70 5f 53 | 65 6e 64 4d 65 73 73 61 | "Wimp_S|endMessa|
|00000860| 67 65 22 2c 31 38 2c 71 | 25 2c 71 25 21 34 0d 03 |ge",18,q|%,q%!4..|
|00000870| e8 05 cb 0d 03 f2 05 e1 | 0d 03 fc 04 0d 04 06 0c |........|........|
|00000880| dd 20 f2 5f 44 61 63 6b | 0d 04 10 10 73 65 6e 64 |. ._Dack|....send|
|00000890| 74 68 25 3d 71 25 21 34 | 0d 04 1a 0f 6d 79 72 65 |th%=q%!4|....myre|
|000008a0| 66 25 3d 71 25 21 38 0d | 04 24 22 c8 99 20 22 57 |f%=q%!8.|.$".. "W|
|000008b0| 69 6d 70 5f 47 65 74 50 | 6f 69 6e 74 65 72 49 6e |imp_GetP|ointerIn|
|000008c0| 66 6f 22 2c 2c 71 25 2b | 38 0d 04 2e 0e 71 25 21 |fo",,q%+|8....q%!|
|000008d0| 32 38 3d 71 25 21 38 0d | 04 38 0f 71 25 21 33 32 |28=q%!8.|.8.q%!32|
|000008e0| 3d 71 25 21 31 32 0d 04 | 42 18 71 25 21 30 3d 28 |=q%!12..|B.q%!0=(|
|000008f0| 34 34 2b a9 6e 24 2b 34 | 29 80 20 ac 20 33 0d 04 |44+.n$+4|). . 3..|
|00000900| 4c 10 71 25 21 31 32 3d | 6d 79 72 65 66 25 0d 04 |L.q%!12=|myref%..|
|00000910| 56 0b 71 25 21 31 36 3d | 34 0d 04 60 0c 71 25 21 |V.q%!16=|4..`.q%!|
|00000920| 33 36 3d 2d 31 0d 04 6a | 0e 71 25 21 34 30 3d 26 |36=-1..j|.q%!40=&|
|00000930| 46 46 39 0d 04 74 12 24 | 28 71 25 2b 34 34 29 3d |FF9..t.$|(q%+44)=|
|00000940| 6e 24 2b bd 30 0d 04 7e | 27 c8 99 20 22 57 69 6d |n$+.0..~|'.. "Wim|
|00000950| 70 5f 53 65 6e 64 4d 65 | 73 73 61 67 65 22 2c 31 |p_SendMe|ssage",1|
|00000960| 37 2c 71 25 2c 73 65 6e | 64 74 68 25 0d 04 88 05 |7,q%,sen|dth%....|
|00000970| cd 0d 04 92 05 e1 0d 04 | 9c 04 0d 04 a6 0f dd 20 |........|....... |
|00000980| f2 65 72 72 6f 72 62 6f | 78 0d 04 b0 19 c8 99 20 |.errorbo|x...... |
|00000990| 22 57 69 6d 70 5f 44 72 | 61 67 42 6f 78 22 2c 2c |"Wimp_Dr|agBox",,|
|000009a0| 2d 31 0d 04 ba 32 21 62 | 75 66 66 65 72 73 25 3d |-1...2!b|uffers%=|
|000009b0| 9f 3a 24 28 62 75 66 66 | 65 72 73 25 2b 34 29 3d |.:$(buff|ers%+4)=|
|000009c0| f6 24 2b 22 20 61 74 20 | 6c 69 6e 65 20 22 2b c3 |.$+" at |line "+.|
|000009d0| 9e 2b bd 30 0d 04 c4 30 | c8 99 20 22 57 69 6d 70 |.+.0...0|.. "Wimp|
|000009e0| 5f 52 65 70 6f 72 74 45 | 72 72 6f 72 22 2c 62 75 |_ReportE|rror",bu|
|000009f0| 66 66 65 72 73 25 2c 31 | 2c 22 42 61 73 69 63 45 |ffers%,1|,"BasicE|
|00000a00| 64 69 74 22 0d 04 ce 08 | f2 64 69 65 0d 04 d8 05 |dit"....|.die....|
|00000a10| e1 0d 04 e2 04 0d 04 ec | 09 dd f2 64 69 65 0d 04 |........|...die..|
|00000a20| f6 2a c8 99 20 22 57 69 | 6d 70 5f 43 6c 6f 73 65 |.*.. "Wi|mp_Close|
|00000a30| 44 6f 77 6e 22 2c 74 61 | 73 6b 68 61 6e 64 25 2c |Down",ta|skhand%,|
|00000a40| 21 74 61 73 6b 69 64 25 | 0d 05 00 05 e0 0d 05 0a |!taskid%|........|
|00000a50| 05 e1 0d 05 14 04 0d 05 | 1e 0e dd a4 73 67 65 74 |........|....sget|
|00000a60| 28 78 25 29 0d 05 28 08 | ea 20 78 24 0d 05 32 1d |(x%)..(.|. x$..2.|
|00000a70| c8 95 20 3f 78 25 20 78 | 24 2b 3d bd 28 3f 78 25 |.. ?x% x|$+=.(?x%|
|00000a80| 29 3a 78 25 2b 3d 31 3a | ce 0d 05 3c 07 3d 78 24 |):x%+=1:|...<.=x$|
|00000a90| 0d 05 46 04 0d ff       |                         |..F...  |        |
+--------+-------------------------+-------------------------+--------+--------+