/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / OTL-BBU3.DMS / in.adf / EXAMPLES / skid1.bb2

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 00 3b 20 73 74 61 72 | 74 75 70 20 66 6f 72 20 |;.; star|tup for |
|00000010| 53 6b 69 64 4d 61 72 6b | 73 20 28 6f 6c 64 20 6f |SkidMark|s (old o|
|00000020| 6c 64 20 76 65 72 73 69 | 6f 6e 29 00 3b 00 00 80 |ld versi|on).;...|
|00000030| 04 20 72 24 28 33 30 29 | 00 00 80 c3 00 00 cf 04 |. r$(30)|........|
|00000040| 20 30 00 00 80 16 20 69 | 3d 30 20 80 18 20 37 20 | 0.... i|=0 .. 7 |
|00000050| 20 20 20 20 20 20 3b 33 | 32 20 67 61 64 67 65 74 |      ;3|2 gadget|
|00000060| 73 00 20 20 c6 18 20 31 | 2c 32 00 20 20 c6 02 20 |s.  .. 1|,2.  .. |
|00000070| 30 2c 30 35 36 2c 33 36 | 2b 69 2a 31 32 2c 30 2c |0,056,36|+i*12,0,|
|00000080| 69 2b 30 30 2c 31 37 2c | 31 32 38 20 20 3b 6e 61 |i+00,17,|128  ;na|
|00000090| 6d 65 00 20 20 c6 02 20 | 30 2c 31 39 34 2c 33 36 |me.  .. |0,194,36|
|000000a0| 2b 69 2a 31 32 2c 30 2c | 69 2b 30 38 2c 31 37 2c |+i*12,0,|i+08,17,|
|000000b0| 31 32 38 20 20 3b 6e 75 | 6d 62 65 72 00 20 20 c6 |128  ;nu|mber.  .|
|000000c0| 02 20 30 2c 33 36 36 2c | 33 36 2b 69 2a 31 32 2c |. 0,366,|36+i*12,|
|000000d0| 30 2c 69 2b 31 36 2c 31 | 32 38 2c 32 35 30 20 20 |0,i+16,1|28,250  |
|000000e0| 3b 66 75 6e 63 74 69 6f | 6e 20 6b 65 79 73 00 20 |;functio|n keys. |
|000000f0| 20 c6 18 20 32 2c 31 3a | c6 01 20 30 2c 31 32 2c | .. 2,1:|.. 0,12,|
|00000100| 33 36 2b 69 2a 31 32 2c | 30 2c 33 30 2b 69 2c 22 |36+i*12,|0,30+i,"|
|00000110| 44 49 41 4c 22 00 80 17 | 00 00 c6 18 20 31 2c 32 |DIAL"...|.... 1,2|
|00000120| 00 c6 02 20 30 2c 33 32 | 36 2c 31 35 32 2c 30 2c |... 0,32|6,152,0,|
|00000130| 32 34 2c 31 37 2c 31 38 | 30 00 c6 02 20 30 2c 35 |24,17,18|0... 0,5|
|00000140| 36 36 2c 31 35 32 2c 30 | 2c 32 35 2c 33 2c 33 32 |66,152,0|,25,3,32|
|00000150| 00 c6 18 20 32 2c 31 00 | 00 c6 01 20 30 2c 31 30 |... 2,1.|... 0,10|
|00000160| 2c 31 32 2c 30 2c 34 30 | 2c dc 96 28 22 48 49 54 |,12,0,40|,..("HIT|
|00000170| 20 46 31 30 20 4f 52 20 | 43 4c 49 43 4b 20 48 45 | F10 OR |CLICK HE|
|00000180| 52 45 20 54 4f 20 53 54 | 41 52 54 22 2c 37 36 29 |RE TO ST|ART",76)|
|00000190| 00 c6 01 20 30 2c 30 34 | 30 2c 31 33 38 2c 30 2c |... 0,04|0,138,0,|
|000001a0| 34 31 2c 22 20 20 20 32 | 34 30 30 20 20 7c 20 20 |41,"   2|400  |  |
|000001b0| 20 34 38 30 30 20 20 7c | 20 20 20 39 36 30 30 20 | 4800  ||   9600 |
|000001c0| 20 7c 20 20 20 31 39 32 | 30 30 20 7c 20 20 20 31 | |   192|00 |   1|
|000001d0| 32 30 30 20 20 22 00 c6 | 01 20 30 2c 31 34 30 2c |200  "..|. 0,140,|
|000001e0| 31 33 38 2c 30 2c 34 32 | 2c 22 20 20 20 20 20 41 |138,0,42|,"     A|
|000001f0| 4e 53 57 45 52 20 20 20 | 20 20 20 22 00 c6 01 20 |NSWER   |   "... |
|00000200| 30 2c 33 30 30 2c 31 33 | 38 2c 30 2c 34 33 2c 22 |0,300,13|8,0,43,"|
|00000210| 20 20 20 20 4f 52 49 47 | 49 4e 41 54 45 20 20 20 |    ORIG|INATE   |
|00000220| 20 22 00 c6 01 20 30 2c | 34 36 30 2c 31 33 38 2c | "... 0,|460,138,|
|00000230| 30 2c 34 34 2c 22 20 20 | 20 20 20 48 41 4e 47 20 |0,44,"  |   HANG |
|00000240| 55 50 20 20 20 20 20 22 | 00 00 80 04 20 73 70 2e |UP     "|.... sp.|
|00000250| 77 28 35 29 3a 73 70 28 | 31 29 3d 32 34 30 30 3a |w(5):sp(|1)=2400:|
|00000260| 73 70 28 32 29 3d 34 38 | 30 30 3a 3a 73 70 28 33 |sp(2)=48|00::sp(3|
|00000270| 29 3d 39 36 30 30 3a 73 | 70 28 34 29 3d 31 39 32 |)=9600:s|p(4)=192|
|00000280| 30 30 3a 73 70 28 35 29 | 3d 31 32 30 30 00 00 77 |00:sp(5)|=1200..w|
|00000290| 74 24 3d 22 53 4b 49 44 | 4d 41 52 4b 53 20 53 54 |t$="SKID|MARKS ST|
|000002a0| 41 52 54 55 50 20 20 20 | 20 20 20 20 20 20 20 20 |ARTUP   |        |
|000002b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000002c0| 20 20 20 20 20 20 20 20 | 28 43 29 31 39 39 33 20 |        |(C)1993 |
|000002d0| 41 43 49 44 20 53 4f 46 | 54 57 41 52 45 22 00 00 |ACID SOF|TWARE"..|
|000002e0| c5 01 20 30 2c 28 e0 81 | 2d 36 34 30 29 2f 32 2c |.. 0,(..|-640)/2,|
|000002f0| 28 e0 82 2d 32 30 30 29 | 2f 32 2c 36 34 30 2c 32 |(..-200)|/2,640,2|
|00000300| 30 30 2c 24 31 30 30 65 | 2c 77 74 24 2c 31 2c 32 |00,$100e|,wt$,1,2|
|00000310| 2c 30 00 00 c5 1c 20 32 | 3a 80 16 20 69 3d 31 20 |,0.... 2|:.. i=1 |
|00000320| 80 18 20 38 3a c5 10 20 | 33 34 34 2c 31 36 2b 69 |.. 8:.. |344,16+i|
|00000330| 2a 31 32 3a dd 81 20 22 | 46 22 2b dd 83 28 69 29 |*12:.. "|F"+..(i)|
|00000340| 3a 80 17 3a c5 1c 20 33 | 00 00 c6 10 20 31 30 2c |:..:.. 3|.... 10,|
|00000350| 33 32 2c 33 32 30 2c 31 | 30 30 3a c6 10 20 33 34 |32,320,1|00:.. 34|
|00000360| 36 2c 33 32 2c 32 38 30 | 2c 31 30 30 00 c6 10 20 |6,32,280|,100... |
|00000370| 34 32 2c 31 37 30 2c 35 | 38 30 2c 31 30 3a c6 10 |42,170,5|80,10:..|
|00000380| 20 34 32 2c 31 38 35 2c | 35 38 30 2c 31 30 00 c6 | 42,185,|580,10..|
|00000390| 18 20 31 2c 32 3a c6 10 | 20 36 38 2c 31 35 34 2c |. 1,2:..| 68,154,|
|000003a0| 31 38 36 2c 38 00 00 c5 | 10 20 31 33 38 2c 31 36 |186,8...|. 138,16|
|000003b0| 3a dd 82 20 22 50 48 4f | 4e 45 20 42 4f 4f 4b 22 |:.. "PHO|NE BOOK"|
|000003c0| 3a c5 10 20 34 34 30 2c | 31 36 3a dd 82 20 22 4d |:.. 440,|16:.. "M|
|000003d0| 41 43 52 4f 20 43 4f 4d | 4d 45 4e 54 53 22 00 c5 |ACRO COM|MENTS"..|
|000003e0| 10 20 32 2c 31 36 30 3a | dd 82 20 22 4f 55 54 3a |. 2,160:|.. "OUT:|
|000003f0| 22 3a c5 10 20 32 2c 31 | 37 35 3a dd 82 20 22 20 |":.. 2,1|75:.. " |
|00000400| 49 4e 3a 22 00 00 c5 1c | 20 31 00 c5 10 20 34 2c |IN:"....| 1... 4,|
|00000410| 31 34 33 3a dd 81 20 22 | 53 54 41 54 55 53 3a 22 |143:.. "|STATUS:"|
|00000420| 00 c5 10 20 32 36 30 2c | 31 34 33 3a dd 81 20 22 |... 260,|143:.. "|
|00000430| 44 45 56 49 43 45 3a 22 | 00 c5 10 20 35 31 32 2c |DEVICE:"|... 512,|
|00000440| 31 34 33 3a dd 81 20 22 | 55 4e 49 54 23 3a 22 00 |143:.. "|UNIT#:".|
|00000450| c5 1c 20 32 00 00 80 0b | 20 be 11 20 28 30 2c 22 |.. 2....| .. (0,"|
|00000460| 73 6b 69 64 2e 64 65 66 | 61 75 6c 74 73 22 29 00 |skid.def|aults").|
|00000470| 20 20 be 08 20 30 00 20 | 20 80 16 20 69 3d 30 20 |  .. 0. | .. i=0 |
|00000480| 80 18 20 32 35 00 20 20 | 20 20 80 0b 20 80 89 20 |.. 25.  |  .. .. |
|00000490| be 0d 28 30 29 20 80 21 | 20 72 24 28 69 29 3d dd |..(0) .!| r$(i)=.|
|000004a0| 01 28 32 35 36 29 3a c6 | 1b 20 30 2c 69 2c 72 24 |.(256):.|. 0,i,r$|
|000004b0| 28 69 29 3a c6 0b 20 30 | 2c 69 00 20 20 80 17 00 |(i):.. 0|,i.  ...|
|000004c0| 80 c0 00 c5 11 20 30 00 | 00 80 08 20 73 65 6e 64 |..... 0.|... send|
|000004d0| 73 65 72 69 61 6c 7b 61 | 24 7d 00 20 20 80 15 20 |serial{a|$}.  .. |
|000004e0| 73 6f 70 00 20 20 80 0b | 20 73 6f 70 00 20 20 20 |sop.  ..| sop.   |
|000004f0| 20 80 16 20 69 3d 31 20 | 80 18 20 dc 8f 28 61 24 | .. i=1 |.. ..(a$|
|00000500| 29 00 20 20 20 20 20 20 | 61 3d dc 87 28 dc 83 28 |).      |a=..(..(|
|00000510| 61 24 2c 69 2c 31 29 29 | 00 20 20 20 20 20 20 80 |a$,i,1))|.      .|
|00000520| 0b 20 61 3e 33 31 20 80 | 21 20 c5 19 20 34 34 2c |. a>31 .|! .. 44,|
|00000530| 31 37 31 2c 36 32 30 2c | 31 37 38 2c 38 2c 30 3a |171,620,|178,8,0:|
|00000540| c5 10 20 34 32 2b 35 36 | 36 2c 31 36 30 3a dd 81 |.. 42+56|6,160:..|
|00000550| 20 dc 86 28 61 29 00 20 | 20 20 20 20 20 ad 02 20 | ..(a). |     .. |
|00000560| 30 2c 61 00 20 20 20 20 | 80 17 00 20 20 80 c0 00 |0,a.    |...  ...|
|00000570| 80 02 20 80 08 00 00 80 | 08 20 63 68 61 72 69 6e |.. .....|. charin|
|00000580| 7b 61 24 7d 00 20 20 80 | 16 20 69 3d 30 20 80 18 |{a$}.  .|. i=0 ..|
|00000590| 20 33 31 3a 61 24 3d dc | 8a 28 61 24 2c dc 86 28 | 31:a$=.|.(a$,..(|
|000005a0| 69 29 2c 22 22 29 3a 80 | 17 00 20 20 80 0b 20 dc |i),""):.|..  .. .|
|000005b0| 8f 28 61 24 29 3e 34 30 | 20 80 21 20 61 24 3d dc |.(a$)>40| .! a$=.|
|000005c0| 82 28 61 24 2c 34 30 29 | 00 20 20 c5 19 20 34 34 |.(a$,40)|.  .. 44|
|000005d0| 2c 31 38 36 2c 36 32 30 | 2c 31 39 34 2c 38 2a dc |,186,620|,194,8*.|
|000005e0| 8f 28 61 24 29 2c 30 3a | c5 10 20 35 30 2b 35 36 |.(a$),0:|.. 50+56|
|000005f0| 36 2d dc 8f 28 61 24 29 | 2a 38 2c 31 37 36 3a dd |6-..(a$)|*8,176:.|
|00000600| 81 20 61 24 00 80 02 20 | 80 08 00 00 80 08 20 73 |. a$... |...... s|
|00000610| 74 61 74 75 73 7b 61 24 | 7d 00 20 20 c5 10 20 36 |tatus{a$|}.  .. 6|
|00000620| 36 2c 31 34 33 3a dd 81 | 20 dc 96 28 61 24 2c 32 |6,143:..| ..(a$,2|
|00000630| 33 29 00 80 02 20 80 08 | 00 00 73 74 61 74 75 73 |3)... ..|..status|
|00000640| 20 7b 22 30 31 32 33 34 | 35 36 37 38 39 30 31 32 | {"01234|56789012|
|00000650| 33 34 35 36 37 38 22 7d | 00 00 80 0b 20 ad 01 28 |345678"}|.... ..(|
|00000660| c6 14 28 30 2c 32 34 29 | 2b dc 86 28 30 29 2c bc |..(0,24)|+..(0),.|
|00000670| 01 28 c6 14 28 30 2c 32 | 35 29 29 2c 73 70 28 c6 |.(..(0,2|5)),sp(.|
|00000680| 1d 28 30 2c 34 31 29 29 | 2c 33 32 29 00 20 20 73 |.(0,41))|,32).  s|
|00000690| 74 61 74 75 73 7b 22 53 | 45 52 49 41 4c 20 50 4f |tatus{"S|ERIAL PO|
|000006a0| 52 54 20 4f 50 45 4e 22 | 7d 3a 73 6f 70 3d bc 0e |RT OPEN"|}:sop=..|
|000006b0| 00 80 22 00 20 20 73 74 | 61 74 75 73 7b 22 4f 50 |..".  st|atus{"OP|
|000006c0| 45 4e 20 53 45 52 49 41 | 4c 20 46 41 49 4c 45 44 |EN SERIA|L FAILED|
|000006d0| 22 7d 3a 73 6f 70 3d bc | 0f 00 80 c0 00 00 80 bb |"}:sop=.|........|
|000006e0| 00 20 20 e1 03 00 20 20 | 80 0b 20 ad 0a 28 30 29 |.  ...  |.. ..(0)|
|000006f0| 3d 31 20 80 21 20 63 68 | 61 72 69 6e 7b ad 05 28 |=1 .! ch|arin{..(|
|00000700| 30 29 7d 00 20 20 65 76 | 2e 6c 3d c5 02 00 20 20 |0)}.  ev|.l=...  |
|00000710| 80 0b 20 65 76 3d 24 34 | 30 20 80 42 20 c5 04 3c |.. ev=$4|0 .B ..<|
|00000720| 32 36 00 20 20 20 20 67 | 3d c5 04 3a 72 24 28 67 |26.    g|=..:r$(g|
|00000730| 29 3d c6 14 28 30 2c 67 | 29 3a c6 13 20 30 2c 67 |)=..(0,g|):.. 0,g|
|00000740| 3a c6 0b 20 30 2c 67 00 | 20 20 20 20 80 0b 20 67 |:.. 0,g.|    .. g|
|00000750| 3c 39 20 80 21 20 c6 12 | 20 30 2c 67 2b 39 00 20 |<9 .! ..| 0,g+9. |
|00000760| 20 80 c0 00 20 20 80 0b | 20 65 76 3d 24 34 30 20 | ...  ..| ev=$40 |
|00000770| 80 42 20 c5 04 3e 32 39 | 20 80 42 20 c5 04 3c 33 |.B ..>29| .B ..<3|
|00000780| 38 00 20 20 20 20 73 65 | 6e 64 73 65 72 69 61 6c |8.    se|ndserial|
|00000790| 7b 22 41 54 44 54 22 2b | 72 24 28 c5 04 2d 32 32 |{"ATDT"+|r$(..-22|
|000007a0| 29 2b dc 86 28 31 33 29 | 7d 00 20 20 80 c0 00 20 |)+..(13)|}.  ... |
|000007b0| 20 80 0b 20 65 76 3d 24 | 34 30 20 80 42 20 c5 04 | .. ev=$|40 .B ..|
|000007c0| 3d 34 32 20 80 21 20 73 | 65 6e 64 73 65 72 69 61 |=42 .! s|endseria|
|000007d0| 6c 7b 22 41 54 41 22 2b | dc 86 28 31 33 29 7d 00 |l{"ATA"+|..(13)}.|
|000007e0| 20 20 80 0b 20 65 76 3d | 24 34 30 20 80 42 20 c5 |  .. ev=|$40 .B .|
|000007f0| 04 3d 34 33 20 80 21 20 | 73 65 6e 64 73 65 72 69 |.=43 .! |sendseri|
|00000800| 61 6c 7b 22 41 54 4f 22 | 2b dc 86 28 31 33 29 7d |al{"ATO"|+..(13)}|
|00000810| 00 20 20 80 0b 20 65 76 | 3d 24 34 30 20 80 42 20 |.  .. ev|=$40 .B |
|00000820| c5 04 3d 34 34 00 20 20 | 20 20 80 37 20 37 35 3a |..=44.  |  .7 75:|
|00000830| 73 65 6e 64 73 65 72 69 | 61 6c 7b 22 2b 2b 2b 22 |sendseri|al{"+++"|
|00000840| 7d 3a 80 37 20 37 35 3a | 73 65 6e 64 73 65 72 69 |}:.7 75:|sendseri|
|00000850| 61 6c 7b 22 41 54 48 30 | 22 2b dc 86 28 31 33 29 |al{"ATH0|"+..(13)|
|00000860| 7d 00 20 20 20 20 c5 37 | 00 20 20 80 c0 00 20 20 |}.    .7|.  ...  |
|00000870| 80 0b 20 65 76 3d 24 34 | 30 30 00 20 20 20 20 61 |.. ev=$4|00.    a|
|00000880| 3d dc 87 28 dd 02 28 31 | 29 29 3a 80 0b 20 61 3d |=..(..(1|)):.. a=|
|00000890| 31 33 38 20 80 21 20 80 | 05 20 73 74 61 72 74 67 |138 .! .|. startg|
|000008a0| 61 6d 65 00 20 20 20 20 | 80 0b 20 61 3e 31 32 38 |ame.    |.. a>128|
|000008b0| 20 80 42 20 61 3c 31 33 | 37 20 80 21 20 73 65 6e | .B a<13|7 .! sen|
|000008c0| 64 73 65 72 69 61 6c 7b | 72 24 28 31 36 2b 61 2d |dserial{|r$(16+a-|
|000008d0| 31 32 39 29 7d 20 80 22 | 20 73 65 6e 64 73 65 72 |129)} ."| sendser|
|000008e0| 69 61 6c 7b dc 86 28 61 | 29 7d 00 20 20 80 c0 00 |ial{..(a|)}.  ...|
|000008f0| 80 bc 20 65 76 3d 24 32 | 30 30 00 00 73 74 61 72 |.. ev=$2|00..star|
|00000900| 74 67 61 6d 65 00 00 80 | 0b 20 be 12 20 28 30 2c |tgame...|. .. (0,|
|00000910| 22 73 6b 69 64 2e 64 65 | 66 61 75 6c 74 73 22 29 |"skid.de|faults")|
|00000920| 00 20 20 be 07 20 30 3a | 80 16 20 69 3d 30 20 80 |.  .. 0:|.. i=0 .|
|00000930| 18 20 32 35 3a dd 82 20 | 72 24 28 69 29 3a 80 17 |. 25:.. |r$(i):..|
|00000940| 00 80 c0 00 00 c5 3c 20 | 30 00 00                |......< |0..     |
+--------+-------------------------+-------------------------+--------+--------+