/ Amoszine 9 / Amoszine 9 (Disk 3 of 3).adf / AJC_Source.lha / AJC-VARSWAPPER.AMOS

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 4d 4f 53 20 42 61 73 | 69 63 20 76 31 33 34 20 |AMOS Bas|ic v134 |
|00000010| 00 00 04 14 05 01 06 52 | 00 02 20 20 00 00 0d 01 |.......R|..  ....|
|00000020| 06 52 00 12 20 56 41 52 | 49 41 42 4c 45 20 53 57 |.R.. VAR|IABLE SW|
|00000030| 41 50 50 45 52 20 00 00 | 16 01 06 52 00 24 20 2a |APPER ..|...R.$ *|
|00000040| 2a 20 52 65 71 75 69 72 | 65 73 20 74 68 65 20 4a |* Requir|es the J|
|00000050| 44 20 45 78 74 65 6e 73 | 69 6f 6e 21 21 20 2a 2a |D Extens|ion!! **|
|00000060| 20 20 00 00 0e 01 06 52 | 00 14 20 42 79 20 41 6e |  .....R|.. By An|
|00000070| 64 72 65 77 20 43 61 6d | 70 62 65 6c 6c 20 00 00 |drew Cam|pbell ..|
|00000080| 04 01 06 52 00 00 00 00 | 23 01 06 52 00 3e 20 54 |...R....|#..R.> T|
|00000090| 68 69 73 20 72 6f 75 74 | 69 6e 65 20 73 69 6d 70 |his rout|ine simp|
|000000a0| 6c 79 20 73 77 61 70 73 | 20 61 6e 79 20 61 6d 6f |ly swaps| any amo|
|000000b0| 75 6e 74 20 6f 66 20 6f | 6e 65 20 73 69 6e 67 6c |unt of o|ne singl|
|000000c0| 65 20 63 68 61 72 61 63 | 74 65 72 20 00 00 24 01 |e charac|ter ..$.|
|000000d0| 06 52 00 40 20 63 6f 6e | 74 61 69 6e 65 64 20 77 |.R.@ con|tained w|
|000000e0| 69 74 68 69 6e 20 61 20 | 73 74 72 69 6e 67 20 74 |ithin a |string t|
|000000f0| 6f 20 61 6e 6f 74 68 65 | 72 20 6f 66 20 79 6f 75 |o anothe|r of you|
|00000100| 72 20 73 70 65 63 69 66 | 69 65 64 20 63 68 6f 69 |r specif|ied choi|
|00000110| 63 65 2e 20 00 00 23 01 | 06 52 00 3e 20 52 75 6e |ce. ..#.|.R.> Run|
|00000120| 20 74 68 65 20 70 72 6f | 67 72 61 6d 20 66 6f 72 | the pro|gram for|
|00000130| 20 61 6e 20 65 78 61 6d | 70 6c 65 2e 20 43 6f 75 | an exam|ple. Cou|
|00000140| 6c 64 20 62 65 20 75 73 | 65 66 75 6c 20 74 6f 20 |ld be us|eful to |
|00000150| 73 6f 6d 65 62 6f 64 79 | 20 20 00 00 25 01 06 52 |somebody|  ..%..R|
|00000160| 00 42 20 65 6c 73 65 2c | 20 61 73 20 69 74 20 77 |.B else,| as it w|
|00000170| 61 73 20 76 65 72 79 20 | 75 73 65 66 75 6c 20 66 |as very |useful f|
|00000180| 6f 72 20 6d 65 20 77 68 | 65 6e 20 49 20 63 6f 64 |or me wh|en I cod|
|00000190| 65 64 20 4d 61 67 6e 65 | 74 69 63 20 46 69 63 74 |ed Magne|tic Fict|
|000001a0| 69 6f 6e 20 00 00 0f 01 | 06 52 00 16 20 66 6f 72 |ion ....|.R.. for|
|000001b0| 20 46 31 20 4c 69 63 65 | 6e 63 65 77 61 72 65 2e | F1 Lice|nceware.|
|000001c0| 20 20 00 00 05 01 06 52 | 00 02 20 20 00 00 08 01 |  .....R|..  ....|
|000001d0| 06 52 00 08 20 2d 20 41 | 4a 43 20 20 00 00 04 01 |.R.. - A|JC  ....|
|000001e0| 06 52 00 00 00 00 1f 01 | 14 46 00 54 0d 34 00 54 |.R......|.F.T.4.T|
|000001f0| 0b b8 00 3e 00 00 00 00 | 00 54 1d d2 00 54 0d 1c |...>....|.T...T..|
|00000200| 00 3e 00 00 00 01 00 5c | 00 36 00 00 0f ff 00 54 |.>.....\|.6.....T|
|00000210| 13 d2 00 3e 00 00 00 01 | 00 54 13 dc 00 3e 00 00 |...>....|.T...>..|
|00000220| 00 00 00 00 02 00 00 00 | 22 01 00 12 ff f2 08 80 |........|".......|
|00000230| 5f 78 63 68 61 6e 67 65 | 00 84 00 26 00 19 47 65 |_xchange|...&..Ge|
|00000240| 74 2a 72 69 64 2a 6f 66 | 2a 61 6c 6c 2a 74 68 65 |t*rid*of|*all*the|
|00000250| 2a 73 74 61 72 73 21 00 | 00 5c 00 26 00 01 2a 00 |*stars!.|.\.&..*.|
|00000260| 00 5c 00 26 00 01 20 00 | 00 8c 00 00 02 00 00 00 |.\.&.. .|........|
|00000270| 03 01 04 76 00 00 0c 01 | 04 76 00 26 00 0d 50 72 |...v....|.v.&..Pr|
|00000280| 65 73 73 20 61 6e 79 20 | 6b 65 79 00 00 00 03 01 |ess any |key.....|
|00000290| 12 90 00 00 03 01 04 76 | 00 00 02 00 00 00 22 01 |.......v|......".|
|000002a0| 00 06 00 00 08 00 5f 78 | 63 68 61 6e 67 65 00 84 |......_x|change..|
|000002b0| 00 26 00 1a 53 77 61 70 | 2a 74 68 65 2a 73 74 61 |.&..Swap|*the*sta|
|000002c0| 72 73 2a 66 6f 72 2a 64 | 61 73 68 65 73 21 00 5c |rs*for*d|ashes!.\|
|000002d0| 00 26 00 01 2a 00 00 5c | 00 26 00 01 2d 00 00 8c |.&..*..\|.&..-...|
|000002e0| 00 00 02 00 00 00 06 01 | 12 9e 00 3e 00 00 00 14 |........|...>....|
|000002f0| 00 00 03 01 06 70 00 00 | 02 00 00 00 21 01 03 76 |.....p..|....!..v|
|00000300| 00 00 01 1e 00 24 80 00 | 00 06 00 00 08 80 5f 78 |.....$..|......_x|
|00000310| 63 68 61 6e 67 65 00 84 | 00 06 00 00 08 02 5f 73 |change..|......_s|
|00000320| 6f 75 72 63 65 00 00 5c | 00 06 00 06 02 02 61 00 |ource..\|......a.|
|00000330| 00 5c 00 06 00 0c 02 02 | 62 00 00 8c 00 00 02 00 |.\......|b.......|
|00000340| 00 00 19 01 00 06 00 12 | 04 00 5f 63 6e 74 ff a2 |........|.._cnt..|
|00000350| 00 4e 16 02 00 5a 00 74 | 00 06 00 00 08 02 5f 73 |.N...Z.t|......_s|
|00000360| 6f 75 72 63 65 00 00 5c | 00 06 00 06 02 02 61 00 |ource..\|......a.|
|00000370| 00 7c 00 00 02 00 00 00 | 13 01 02 3c 00 8a 00 06 |.|......|...<....|
|00000380| 00 18 04 00 5f 74 6d 00 | ff a2 00 3e 00 00 00 01 |...._tm.|...>....|
|00000390| 00 94 00 06 00 12 04 00 | 5f 63 6e 74 00 00 16 03 |........|_cnt....|
|000003a0| 00 06 00 1e 02 00 78 00 | ff a2 05 e4 00 74 00 06 |......x.|.....t..|
|000003b0| 00 00 08 02 5f 73 6f 75 | 72 63 65 00 00 5c 00 06 |...._sou|rce..\..|
|000003c0| 00 06 02 02 61 00 00 7c | 00 00 16 03 05 1e 00 74 |....a..||.......t|
|000003d0| 00 06 00 00 08 02 5f 73 | 6f 75 72 63 65 00 00 5c |......_s|ource..\|
|000003e0| 00 06 00 1e 02 00 78 00 | 00 7c ff a2 00 06 00 0c |......x.|.|......|
|000003f0| 02 02 62 00 00 00 08 01 | 02 46 00 06 00 18 04 00 |..b.....|.F......|
|00000400| 5f 74 6d 00 00 00 02 00 | 00 00 0a 01 04 76 00 06 |_tm.....|.....v..|
|00000410| 00 00 08 02 5f 73 6f 75 | 72 63 65 00 00 00 02 00 |...._sou|rce.....|
|00000420| 00 00 03 01 03 90 00 00 | 41 6d 42 73 00 00       |........|AmBs..  |
+--------+-------------------------+-------------------------+--------+--------+