/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / pd / programming / amos / ldos_demo / examples / ldos / io-demo.amos

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 4d 4f 53 20 42 61 73 | 69 63 20 56 31 2e 33 20 |AMOS Bas|ic V1.3 |
|00000010| 00 00 09 56 26 01 06 52 | 00 44 54 68 69 73 20 64 |...V&..R|.DThis d|
|00000020| 65 6d 6f 20 69 73 20 72 | 61 74 68 65 72 20 73 6c |emo is r|ather sl|
|00000030| 6f 77 20 73 69 6e 63 65 | 20 77 65 20 6f 6e 6c 79 |ow since| we only|
|00000040| 20 6c 6f 61 64 20 31 30 | 20 62 79 74 65 73 20 61 | load 10| bytes a|
|00000050| 74 20 74 68 65 20 74 69 | 6d 65 28 21 29 20 00 00 |t the ti|me(!) ..|
|00000060| 26 01 06 52 00 44 20 57 | 68 61 74 20 69 74 20 64 |&..R.D W|hat it d|
|00000070| 6f 65 73 20 69 73 20 74 | 6f 20 6f 70 65 6e 20 79 |oes is t|o open y|
|00000080| 6f 75 72 20 73 74 61 72 | 74 75 70 2d 73 65 71 75 |our star|tup-sequ|
|00000090| 65 6e 63 65 2c 20 72 65 | 61 64 20 31 30 20 62 79 |ence, re|ad 10 by|
|000000a0| 74 65 73 2c 20 73 61 76 | 65 20 00 00 28 01 06 52 |tes, sav|e ..(..R|
|000000b0| 00 48 20 74 68 65 20 31 | 30 20 72 65 61 64 20 62 |.H the 1|0 read b|
|000000c0| 79 74 65 73 20 74 6f 20 | 61 20 66 69 6c 65 20 63 |ytes to |a file c|
|000000d0| 61 6c 6c 65 64 20 22 72 | 61 6d 3a 75 74 22 20 28 |alled "r|am:ut" (|
|000000e0| 74 68 61 74 20 69 73 20 | 53 77 65 64 69 73 68 20 |that is |Swedish |
|000000f0| 79 6f 75 20 6b 6e 6f 77 | 21 29 00 00 28 01 06 52 |you know|!)..(..R|
|00000100| 00 48 20 49 74 20 72 65 | 70 65 61 74 73 20 74 68 |.H It re|peats th|
|00000110| 69 73 20 75 6e 74 69 6c | 20 74 68 65 20 53 49 5a |is until| the SIZ|
|00000120| 45 20 72 65 61 64 20 69 | 73 20 6c 65 73 73 20 74 |E read i|s less t|
|00000130| 68 61 6e 20 31 30 20 28 | 77 65 20 72 65 63 61 68 |han 10 (|we recah|
|00000140| 65 64 20 74 68 65 20 65 | 6e 64 00 00 22 01 06 52 |ed the e|nd.."..R|
|00000150| 00 3c 20 6f 66 20 74 68 | 65 20 66 69 6c 65 20 73 |.< of th|e file s|
|00000160| 69 6e 63 65 20 6c 65 73 | 73 20 62 79 74 65 73 20 |ince les|s bytes |
|00000170| 74 68 61 6e 20 72 65 71 | 75 65 73 74 65 64 20 77 |than req|uested w|
|00000180| 61 73 20 72 65 74 75 72 | 6e 65 64 29 2e 20 00 00 |as retur|ned). ..|
|00000190| 05 01 06 52 00 02 20 20 | 00 00 25 01 06 52 00 42 |...R..  |..%..R.B|
|000001a0| 20 54 68 65 20 70 72 6f | 67 72 61 6d 20 74 68 65 | The pro|gram the|
|000001b0| 6e 20 70 72 69 6e 74 73 | 20 74 68 65 20 70 6f 73 |n prints| the pos|
|000001c0| 69 74 69 6f 6e 20 69 6e | 20 62 6f 74 68 20 74 68 |ition in| both th|
|000001d0| 65 20 66 69 6c 65 73 2c | 20 61 6e 64 20 6d 6f 76 |e files,| and mov|
|000001e0| 65 73 00 00 28 01 06 52 | 00 48 20 74 6f 20 74 68 |es..(..R|.H to th|
|000001f0| 65 20 73 74 61 72 74 20 | 6f 66 20 74 68 65 20 77 |e start |of the w|
|00000200| 72 69 74 74 65 6e 20 66 | 69 6c 65 20 22 72 61 6d |ritten f|ile "ram|
|00000210| 3a 75 74 22 20 61 6e 64 | 20 6f 76 65 72 77 72 69 |:ut" and| overwri|
|00000220| 74 65 73 20 74 68 65 20 | 62 65 67 69 6e 6e 69 6e |tes the |beginnin|
|00000230| 67 20 00 00 10 01 06 52 | 00 18 20 77 69 74 68 20 |g .....R|.. with |
|00000240| 74 68 65 20 77 6f 72 64 | 20 22 48 45 4c 4c 4f 21 |the word| "HELLO!|
|00000250| 22 20 00 00 04 01 06 52 | 00 00 00 00 25 01 06 52 |" .....R|....%..R|
|00000260| 00 42 20 54 68 65 6e 20 | 74 68 65 20 77 68 6f 6c |.B Then |the whol|
|00000270| 65 20 66 69 6c 65 20 22 | 72 61 6d 3a 75 74 22 20 |e file "|ram:ut" |
|00000280| 69 73 20 6c 6f 61 64 65 | 64 20 61 6e 64 20 70 72 |is loade|d and pr|
|00000290| 69 6e 74 65 64 20 6f 6e | 20 74 68 65 20 73 63 72 |inted on| the scr|
|000002a0| 65 65 6e 2e 00 00 04 01 | 06 52 00 00 00 00 14 01 |een.....|.R......|
|000002b0| 09 ea 00 3e 00 00 00 01 | 00 5c 00 3e 00 00 02 80 |...>....|.\.>....|
|000002c0| 00 5c 00 3e 00 00 01 00 | 00 5c 00 3e 00 00 00 04 |.\.>....|.\.>....|
|000002d0| 00 5c 0c 84 00 00 08 01 | 13 dc 00 3e 00 00 00 00 |.\......|...>....|
|000002e0| 00 54 13 88 00 00 18 01 | 00 4e 0a 03 00 06 00 3e |.T......|.N.....>|
|000002f0| 00 00 00 01 00 5c 00 26 | 00 12 73 3a 73 74 61 72 |.....\.&|..s:star|
|00000300| 74 75 70 2d 73 65 71 75 | 65 6e 63 65 00 5c 00 3e |tup-sequ|ence.\.>|
|00000310| 00 00 00 00 00 00 12 01 | 00 4e 0a 03 00 06 00 3e |........|.N.....>|
|00000320| 00 00 00 02 00 5c 00 26 | 00 06 72 61 6d 3a 75 74 |.....\.&|..ram:ut|
|00000330| 00 5c 00 3e 00 00 00 01 | 00 00 0a 01 20 f2 00 3e |.\.>....|.... ..>|
|00000340| 00 00 00 0a 00 5c 00 3e | 00 00 00 0a 00 00 04 01 |.....\.>|........|
|00000350| 02 50 01 02 00 00 26 04 | 00 06 00 00 04 00 73 69 |.P....&.|......si|
|00000360| 7a 65 ff a2 00 4e 0a 03 | 00 24 00 74 00 3e 00 00 |ze...N..|.$.t.>..|
|00000370| 00 01 00 5c 01 40 00 74 | 00 3e 00 00 00 0a 00 7c |...\.@.t|.>.....||
|00000380| 00 5c 00 3e 00 00 00 0a | 00 7c 00 54 06 4a 00 10 |.\.>....|.|.T.J..|
|00000390| 20 52 65 61 64 20 31 30 | 20 62 79 74 65 73 2e 20 | Read 10| bytes. |
|000003a0| 00 00 2c 04 00 06 00 06 | 02 00 74 00 ff a2 00 4e |..,.....|..t....N|
|000003b0| 0a 03 00 34 00 74 00 3e | 00 00 00 02 00 5c 01 40 |...4.t.>|.....\.@|
|000003c0| 00 74 00 3e 00 00 00 0a | 00 7c 00 5c 00 06 00 00 |.t.>....|.|.\....|
|000003d0| 04 00 73 69 7a 65 00 7c | 00 54 06 4a 00 1a 20 53 |..size.||.T.J.. S|
|000003e0| 61 76 65 20 72 65 61 64 | 20 62 79 74 65 73 20 74 |ave read| bytes t|
|000003f0| 6f 20 72 61 6d 3a 75 74 | 00 00 0e 04 02 be 00 50 |o ram:ut|.......P|
|00000400| 00 06 00 06 02 00 74 00 | ff 66 00 06 00 00 04 00 |......t.|.f......|
|00000410| 73 69 7a 65 00 00 18 07 | 04 76 00 26 00 0a 44 69 |size....|.v.&..Di|
|00000420| 73 6b 65 72 72 6f 72 21 | 00 54 00 4e 0a 01 00 16 |skerror!|.T.N....|
|00000430| 00 3e 00 00 00 01 00 54 | 00 4e 0a 01 00 16 00 3e |.>.....T|.N.....>|
|00000440| 00 00 00 02 00 00 03 07 | 03 b6 00 00 03 04 02 da |........|........|
|00000450| 00 00 23 01 02 5c 00 06 | 00 00 04 00 73 69 7a 65 |..#..\..|....size|
|00000460| ff ac 00 3e 00 00 00 0a | 00 54 06 4a 00 28 20 57 |...>....|.T.J.( W|
|00000470| 68 65 6e 20 73 69 7a 65 | 3c 31 30 20 77 65 27 76 |hen size|<10 we'v|
|00000480| 65 20 72 65 61 64 20 74 | 68 65 20 6c 61 73 74 20 |e read t|he last |
|00000490| 62 79 74 65 73 20 00 00 | 1c 01 04 76 00 26 00 12 |bytes ..|...v.&..|
|000004a0| 50 6f 73 69 74 69 6f 6e | 20 69 6e 20 66 69 6c 65 |Position| in file|
|000004b0| 20 31 00 64 00 4e 0a 02 | 00 44 00 74 00 3e 00 00 | 1.d.N..|.D.t.>..|
|000004c0| 00 01 00 5c ff ca 00 3e | 00 00 00 01 00 7c 00 00 |...\...>|.....|..|
|000004d0| 1c 01 04 76 00 26 00 12 | 50 6f 73 69 74 69 6f 6e |...v.&..|Position|
|000004e0| 20 69 6e 20 66 69 6c 65 | 20 32 00 64 00 4e 0a 02 | in file| 2.d.N..|
|000004f0| 00 44 00 74 00 3e 00 00 | 00 02 00 5c ff ca 00 3e |.D.t.>..|...\...>|
|00000500| 00 00 00 01 00 7c 00 00 | 14 01 04 76 00 26 00 1e |.....|..|...v.&..|
|00000510| 53 65 65 6b 69 6e 67 20 | 74 6f 20 73 74 61 72 74 |Seeking |to start|
|00000520| 20 6f 66 20 6f 75 74 70 | 75 74 66 69 6c 65 00 00 | of outp|utfile..|
|00000530| 21 01 04 76 00 26 00 1d | 50 6f 73 69 74 69 6f 6e |!..v.&..|Position|
|00000540| 20 69 6e 20 6f 75 74 70 | 75 74 66 69 6c 65 20 69 | in outp|utfile i|
|00000550| 73 20 6e 6f 77 00 00 64 | 00 4e 0a 02 00 44 00 74 |s now..d|.N...D.t|
|00000560| 00 3e 00 00 00 02 00 5c | 00 3e 00 00 00 00 00 7c |.>.....\|.>.....||
|00000570| 00 00 1e 01 04 76 00 26 | 00 32 57 72 69 74 69 6e |.....v.&|.2Writin|
|00000580| 67 20 74 68 65 20 77 6f | 72 64 20 27 48 45 4c 4c |g the wo|rd 'HELL|
|00000590| 4f 21 27 20 69 6e 74 6f | 20 73 74 61 72 74 20 6f |O!' into| start o|
|000005a0| 66 20 6f 75 74 70 75 74 | 66 69 6c 65 00 00 13 01 |f output|file....|
|000005b0| 13 e8 00 26 00 0b 50 72 | 65 73 73 20 61 20 4b 65 |...&..Pr|ess a Ke|
|000005c0| 79 00 00 54 12 90 00 54 | 15 8a 00 54 04 76 00 54 |y..T...T|...T.v.T|
|000005d0| 15 1e 00 00 0c 01 00 06 | 00 0c 02 02 61 00 ff a2 |........|....a...|
|000005e0| 00 26 00 05 48 65 6c 6c | 6f 00 00 00 22 01 00 4e |.&..Hell|o..."..N|
|000005f0| 0a 02 00 84 00 06 00 0c | 02 02 61 00 00 5c 01 40 |........|..a..\.@|
|00000600| 00 74 00 3e 00 00 00 0a | 00 7c 00 54 06 4a 00 1e |.t.>....|.|.T.J..|
|00000610| 20 43 6f 70 79 20 74 68 | 69 73 20 73 74 72 69 6e | Copy th|is strin|
|00000620| 67 20 69 6e 74 6f 20 62 | 61 6e 6b 20 31 30 00 00 |g into b|ank 10..|
|00000630| 2d 01 00 06 00 06 02 00 | 74 00 ff a2 00 4e 0a 03 |-.......|t....N..|
|00000640| 00 34 00 74 00 3e 00 00 | 00 02 00 5c 01 40 00 74 |.4.t.>..|...\.@.t|
|00000650| 00 3e 00 00 00 0a 00 7c | 00 5c 05 da 00 74 00 06 |.>.....||.\...t..|
|00000660| 00 0c 02 02 61 00 00 7c | 00 7c 00 54 06 4a 00 18 |....a..||.|.T.J..|
|00000670| 20 53 61 76 65 64 20 74 | 68 65 20 63 6f 70 69 65 | Saved t|he copie|
|00000680| 64 20 73 74 72 69 6e 67 | 00 00 10 01 00 4e 0a 01 |d string|.....N..|
|00000690| 00 16 00 3e 00 00 00 01 | 00 54 06 4a 00 0a 20 49 |...>....|.T.J.. I|
|000006a0| 4d 50 4f 52 54 41 4e 54 | 00 00 12 01 00 4e 0a 01 |MPORTANT|.....N..|
|000006b0| 00 16 00 3e 00 00 00 02 | 00 54 06 4a 00 0e 20 41 |...>....|.T.J.. A|
|000006c0| 4c 57 41 59 53 20 43 4c | 4f 53 45 20 00 00 12 01 |LWAYS CL|OSE ....|
|000006d0| 00 4e 0a 03 00 06 00 3e | 00 00 00 01 00 5c 00 26 |.N.....>|.....\.&|
|000006e0| 00 06 72 61 6d 3a 75 74 | 00 5c 00 3e 00 00 00 00 |..ram:ut|.\.>....|
|000006f0| 00 00 06 01 21 5e 00 3e | 00 00 00 0a 00 00 12 01 |....!^.>|........|
|00000700| 06 52 00 1c 20 47 65 74 | 20 73 69 7a 65 20 6f 66 |.R.. Get| size of|
|00000710| 20 74 68 65 20 6f 75 74 | 70 75 74 20 66 69 6c 65 | the out|put file|
|00000720| 00 00 12 01 00 06 00 00 | 04 00 73 69 7a 65 ff a2 |........|..size..|
|00000730| 00 4e 0a 01 01 82 00 74 | 00 26 00 06 72 61 6d 3a |.N.....t|.&..ram:|
|00000740| 75 74 00 7c 00 00 20 01 | 20 f2 00 3e 00 00 00 0a |ut.|.. .| ..>....|
|00000750| 00 5c 00 06 00 00 04 00 | 73 69 7a 65 00 54 06 4a |.\......|size.T.J|
|00000760| 00 22 20 41 20 62 61 6e | 6b 20 77 69 74 68 20 73 |." A ban|k with s|
|00000770| 61 6d 65 20 73 69 7a 65 | 20 61 73 20 6f 75 72 20 |ame size| as our |
|00000780| 66 69 6c 65 00 00 29 01 | 00 06 00 06 02 00 74 00 |file..).|......t.|
|00000790| ff a2 00 4e 0a 03 00 24 | 00 74 00 3e 00 00 00 01 |...N...$|.t.>....|
|000007a0| 00 5c 01 40 00 74 00 3e | 00 00 00 0a 00 7c 00 5c |.\.@.t.>|.....|.\|
|000007b0| 00 06 00 00 04 00 73 69 | 7a 65 00 7c 00 54 06 4a |......si|ze.|.T.J|
|000007c0| 00 14 20 4c 6f 61 64 20 | 74 68 65 20 77 68 6f 6c |.. Load |the whol|
|000007d0| 65 20 66 69 6c 65 00 00 | 0d 01 00 06 00 12 02 00 |e file..|........|
|000007e0| 73 74 ff a2 01 40 00 74 | 00 3e 00 00 00 0a 00 7c |st...@.t|.>.....||
|000007f0| 00 00 04 01 02 50 01 3e | 00 00 0a 04 06 52 00 0c |.....P.>|.....R..|
|00000800| 20 47 65 74 20 61 20 6c | 69 6e 65 20 00 00 1d 04 | Get a l|ine ....|
|00000810| 00 06 00 0c 02 02 61 00 | ff a2 00 4e 0a 02 00 6c |......a.|...N...l|
|00000820| 00 74 00 06 00 12 02 00 | 73 74 00 94 01 40 00 74 |.t......|st...@.t|
|00000830| 00 3e 00 00 00 0a 00 7c | ff c0 00 06 00 00 04 00 |.>.....||........|
|00000840| 73 69 7a 65 00 7c 00 00 | 17 04 06 52 00 26 20 43 |size.|..|...R.& C|
|00000850| 61 6c 63 20 6e 65 78 74 | 20 73 74 61 72 74 61 64 |alc next| startad|
|00000860| 64 72 65 73 73 20 77 68 | 69 63 68 20 69 73 20 41 |dress wh|ich is A|
|00000870| 24 2b 31 20 00 00 24 04 | 00 06 00 12 02 00 73 74 |$+1 ..$.|......st|
|00000880| ff a2 00 06 00 12 02 00 | 73 74 ff c0 05 da 00 74 |........|st.....t|
|00000890| 00 06 00 0c 02 02 61 00 | 00 7c ff c0 00 3e 00 00 |......a.|.|...>..|
|000008a0| 00 01 00 54 06 4a 00 14 | 20 2b 31 20 66 6f 72 20 |...T.J..| +1 for |
|000008b0| 74 68 65 20 6c 69 6e 65 | 66 65 65 64 00 00 07 04 |the line|feed....|
|000008c0| 04 76 00 06 00 0c 02 02 | 61 00 00 00 07 04 04 44 |.v......|a......D|
|000008d0| 00 06 00 18 02 00 6c 69 | 00 00 0c 04 02 be 00 50 |......li|.......P|
|000008e0| 00 06 00 18 02 00 6c 69 | ff b6 00 3e 00 00 00 14 |......li|...>....|
|000008f0| 00 00 13 07 13 e8 00 26 | 00 0b 50 72 65 73 73 20 |.......&|..Press |
|00000900| 61 20 4b 65 79 00 00 54 | 04 76 00 54 15 1e 00 54 |a Key..T|.v.T...T|
|00000910| 12 90 00 54 15 8a 00 00 | 0a 07 00 06 00 18 02 00 |...T....|........|
|00000920| 6c 69 ff a2 00 3e 00 00 | 00 00 00 00 03 04 02 da |li...>..|........|
|00000930| 00 00 14 01 02 5c 00 06 | 00 12 02 00 73 74 ff 98 |.....\..|....st..|
|00000940| 01 40 00 74 00 3e 00 00 | 00 0a 00 7c ff c0 00 06 |.@.t.>..|...|....|
|00000950| 00 00 04 00 73 69 7a 65 | 00 00 08 01 00 4e 0a 01 |....size|.....N..|
|00000960| 00 16 00 3e 00 00 00 01 | 00 00 41 6d 42 73 00 00 |...>....|..AmBs..|
+--------+-------------------------+-------------------------+--------+--------+