home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1989-09-05 | 10.5 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.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 19 f4 20 3e 24 | 2e 21 50 73 69 6f 6e 2e |..... >$|.!Psion.|
|00000010| 21 52 75 6e 49 6d 61 67 | 65 0d 00 14 2f f4 20 50 |!RunImag|e.../. P|
|00000020| 73 69 6f 6e 20 54 6f 20 | 41 72 63 68 69 6d 65 64 |sion To |Archimed|
|00000030| 65 73 20 44 61 74 61 20 | 54 72 61 6e 73 66 65 72 |es Data |Transfer|
|00000040| 20 50 72 6f 67 72 61 6d | 0d 00 1e 20 f4 20 2a 2a | Program|... . **|
|00000050| 2a 20 4d 61 72 6b 20 54 | 61 79 6c 6f 72 20 a9 20 |* Mark T|aylor . |
|00000060| 31 39 38 38 20 2a 2a 2a | 0d 00 28 1f f4 20 4f 72 |1988 ***|..(.. Or|
|00000070| 69 67 69 6e 61 6c 79 20 | 77 72 69 74 74 65 6e 20 |iginaly |written |
|00000080| 32 31 2f 32 2f 38 38 0d | 00 32 29 f4 20 53 6f 6d |21/2/88.|.2). Som|
|00000090| 65 20 52 69 73 63 2d 4f | 53 20 6d 6f 64 69 66 69 |e Risc-O|S modifi|
|000000a0| 63 61 74 69 6f 6e 73 20 | 4d 61 79 20 31 39 38 39 |cations |May 1989|
|000000b0| 0d 00 3c 1c f4 20 56 65 | 72 73 69 6f 6e 20 31 2e |..<.. Ve|rsion 1.|
|000000c0| 35 32 20 28 32 32 2f 35 | 2f 38 39 29 0d 00 46 2c |52 (22/5|/89)..F,|
|000000d0| 76 65 72 73 69 6f 6e 24 | 3d 22 50 72 6f 67 72 61 |version$|="Progra|
|000000e0| 6d 20 56 65 72 73 69 6f | 6e 20 31 2e 35 32 20 4d |m Versio|n 1.52 M|
|000000f0| 61 79 20 31 39 38 39 22 | 0d 00 50 05 3a 0d 00 5a |ay 1989"|..P.:..Z|
|00000100| 22 f4 20 53 65 74 20 4d | 4f 44 45 20 69 6e 20 74 |". Set M|ODE in t|
|00000110| 68 65 20 21 52 75 6e 20 | 66 69 6c 65 21 21 21 0d |he !Run |file!!!.|
|00000120| 00 64 47 f4 20 49 66 20 | 4d 4f 44 45 20 4e 4f 54 |.dG. If |MODE NOT|
|00000130| 20 73 65 74 20 69 6e 20 | 21 52 75 6e 20 66 69 6c | set in |!Run fil|
|00000140| 65 20 74 68 65 6e 20 73 | 65 74 20 4d 4f 44 45 20 |e then s|et MODE |
|00000150| 28 65 67 20 63 61 6c 6c | 65 64 20 66 72 6f 6d 20 |(eg call|ed from |
|00000160| 42 41 53 49 43 29 0d 00 | 6e 12 e7 20 eb 3c 3e 31 |BASIC)..|n.. .<>1|
|00000170| 35 20 8c 20 eb 20 31 35 | 0d 00 78 05 87 0d 00 82 |5 . . 15|..x.....|
|00000180| 0a f2 73 65 74 75 70 0d | 00 8c 0e ee 20 85 20 f2 |..setup.|.... . .|
|00000190| 65 72 72 6f 72 0d 00 96 | 05 3a 0d 00 a0 05 f5 0d |error...|.:......|
|000001a0| 00 aa 09 f2 6d 65 6e 75 | 0d 00 b4 05 f5 0d 00 be |....menu|........|
|000001b0| 13 c8 97 20 6d 78 2c 6d | 79 2c 62 75 74 74 6f 6e |... mx,m|y,button|
|000001c0| 0d 00 c8 1e f2 6f 70 74 | 69 6f 6e 28 6d 78 2c 6d |.....opt|ion(mx,m|
|000001d0| 79 2c 6e 6f 25 2c 63 68 | 6f 69 63 65 25 29 0d 00 |y,no%,ch|oice%)..|
|000001e0| d2 10 67 65 74 25 3d a6 | 28 30 29 2d 34 38 0d 00 |..get%=.|(0)-48..|
|000001f0| dc 1b e7 20 67 65 74 25 | 3e 30 20 8c 20 63 68 6f |... get%|>0 . cho|
|00000200| 69 63 65 25 3d 67 65 74 | 25 0d 00 e6 36 fd 20 28 |ice%=get|%...6. (|
|00000210| 62 75 74 74 6f 6e 3d 34 | 20 80 20 63 68 6f 69 63 |button=4| . choic|
|00000220| 65 25 3c 3d 6e 6f 25 29 | 20 84 20 28 67 65 74 25 |e%<=no%)| . (get%|
|00000230| 3e 30 20 80 20 67 65 74 | 25 3c 3d 6e 6f 25 29 0d |>0 . get|%<=no%).|
|00000240| 00 f0 05 3a 0d 00 fa 10 | c8 8e 20 63 68 6f 69 63 |...:....|.. choic|
|00000250| 65 25 20 ca 0d 01 04 1e | c9 20 31 3a f2 50 73 69 |e% .....|. 1:.Psi|
|00000260| 6f 6e 5f 41 72 63 28 6f | 70 74 69 6f 6e 24 28 31 |on_Arc(o|ption$(1|
|00000270| 29 29 0d 01 0e 1e c9 20 | 32 3a f2 41 72 63 5f 50 |))..... |2:.Arc_P|
|00000280| 73 69 6f 6e 28 6f 70 74 | 69 6f 6e 24 28 32 29 29 |sion(opt|ion$(2))|
|00000290| 0d 01 18 1a c9 20 33 3a | f2 50 72 69 6e 74 28 6f |..... 3:|.Print(o|
|000002a0| 70 74 69 6f 6e 24 28 33 | 29 29 0d 01 22 20 c9 20 |ption$(3|)).." . |
|000002b0| 34 3a f2 43 6f 6e 76 65 | 72 74 46 72 6f 6d 28 6f |4:.Conve|rtFrom(o|
|000002c0| 70 74 69 6f 6e 24 28 34 | 29 29 0d 01 2c 31 f4 20 |ption$(4|))..,1. |
|000002d0| 4e 65 76 65 72 20 63 61 | 6c 6c 20 74 68 69 73 20 |Never ca|ll this |
|000002e0| 6f 70 74 69 6f 6e 21 21 | 20 28 49 74 20 64 6f 73 |option!!| (It dos|
|000002f0| 65 6e 74 20 65 78 69 73 | 74 21 29 0d 01 36 28 f4 |ent exis|t!)..6(.|
|00000300| 20 57 48 45 4e 20 35 3a | 50 52 4f 43 43 6f 6e 76 | WHEN 5:|PROCConv|
|00000310| 65 72 74 42 61 63 6b 28 | 6f 70 74 69 6f 6e 24 28 |ertBack(|option$(|
|00000320| 35 29 29 0d 01 40 19 c9 | 20 35 3a f2 48 65 6c 70 |5))..@..| 5:.Help|
|00000330| 28 6f 70 74 69 6f 6e 24 | 28 35 29 29 0d 01 4a 19 |(option$|(5))..J.|
|00000340| c9 20 36 3a f2 73 74 61 | 72 28 6f 70 74 69 6f 6e |. 6:.sta|r(option|
|00000350| 24 28 36 29 29 0d 01 54 | 08 c9 20 37 3a 0d 01 5e |$(6))..T|.. 7:..^|
|00000360| 05 cb 0d 01 68 0f fd 20 | 63 68 6f 69 63 65 25 3d |....h.. |choice%=|
|00000370| 37 0d 01 72 05 3a 0d 01 | 7c 0a 2a 46 58 32 2c 30 |7..r.:..||.*FX2,0|
|00000380| 0d 01 86 07 d9 23 30 0d | 01 90 0e 2a 50 4f 49 4e |.....#0.|...*POIN|
|00000390| 54 45 52 20 30 0d 01 9a | 07 db 3a ee 0d 01 a4 05 |TER 0...|..:.....|
|000003a0| e0 0d 01 ae 05 3a 0d 01 | b8 25 dd f2 6f 70 74 69 |.....:..|.%..opti|
|000003b0| 6f 6e 28 6d 78 2c 6d 79 | 2c 72 61 6e 67 65 48 25 |on(mx,my|,rangeH%|
|000003c0| 2c f8 20 63 68 6f 69 63 | 65 25 29 0d 01 c2 27 f4 |,. choic|e%)...'.|
|000003d0| 20 4e 6f 74 20 76 65 72 | 79 20 65 6c 65 67 61 6e | Not ver|y elegan|
|000003e0| 74 20 62 75 74 20 69 74 | 20 77 6f 72 6b 73 20 6f |t but it| works o|
|000003f0| 6b 21 0d 01 cc 0f 6f 70 | 25 3d 6d 79 20 81 20 33 |k!....op|%=my . 3|
|00000400| 32 0d 01 d6 10 74 61 62 | 79 25 3d 33 31 2d 6f 70 |2....tab|y%=31-op|
|00000410| 25 0d 01 e0 10 65 76 65 | 6e 3d 74 61 62 79 25 2f |%....eve|n=taby%/|
|00000420| 32 0d 01 ea 22 e7 20 65 | 76 65 6e 3d a8 28 65 76 |2...". e|ven=.(ev|
|00000430| 65 6e 29 20 8c 20 74 61 | 62 79 25 3d 74 61 62 79 |en) . ta|by%=taby|
|00000440| 25 2b 31 0d 01 f4 1d 63 | 68 6f 69 63 65 25 3d 28 |%+1....c|hoice%=(|
|00000450| 74 61 62 79 25 2d 73 74 | 61 72 74 79 25 29 2f 32 |taby%-st|arty%)/2|
|00000460| 0d 01 fe 23 e7 20 63 68 | 6f 69 63 65 25 3c 31 20 |...#. ch|oice%<1 |
|00000470| 84 20 63 68 6f 69 63 65 | 25 3e 72 61 6e 67 65 48 |. choice|%>rangeH|
|00000480| 25 20 e1 0d 02 08 13 fb | 31 39 31 20 c8 9c 20 31 |% ......|191 .. 1|
|00000490| 39 32 3a fb 33 32 0d 02 | 12 2f f1 8a 79 79 25 2c |92:.32..|./..yy%,|
|000004a0| 74 61 62 79 25 2d 31 29 | 3b 63 68 6f 69 63 65 25 |taby%-1)|;choice%|
|000004b0| 3b 22 2e 22 3b 6f 70 74 | 69 6f 6e 24 28 63 68 6f |;".";opt|ion$(cho|
|000004c0| 69 63 65 25 29 0d 02 1c | 1a fb 20 31 36 30 20 c8 |ice%)...|.. 160 .|
|000004d0| 9c 20 30 3a fb 20 36 33 | 20 c8 9c 20 31 39 32 0d |. 0:. 63| .. 192.|
|000004e0| 02 26 26 e7 20 6f 6c 64 | 74 61 62 79 25 3c 3e 74 |.&&. old|taby%<>t|
|000004f0| 61 62 79 25 20 80 20 6f | 6c 64 63 68 6f 69 63 65 |aby% . o|ldchoice|
|00000500| 25 3e 30 20 8c 0d 02 30 | 38 f1 8a 79 79 25 2c 6f |%>0 ...0|8..yy%,o|
|00000510| 6c 64 74 61 62 79 25 2d | 31 29 3b 6f 6c 64 63 68 |ldtaby%-|1);oldch|
|00000520| 6f 69 63 65 25 3b 22 2e | 22 3b 6f 70 74 69 6f 6e |oice%;".|";option|
|00000530| 24 28 6f 6c 64 63 68 6f | 69 63 65 25 29 0d 02 3a |$(oldcho|ice%)..:|
|00000540| 05 cd 0d 02 44 25 6f 6c | 64 74 61 62 79 25 3d 74 |....D%ol|dtaby%=t|
|00000550| 61 62 79 25 3a 6f 6c 64 | 63 68 6f 69 63 65 25 3d |aby%:old|choice%=|
|00000560| 63 68 6f 69 63 65 25 0d | 02 4e 05 e1 0d 02 58 05 |choice%.|.N....X.|
|00000570| 3a 0d 02 62 12 dd f2 73 | 74 61 72 28 74 69 74 6c |:..b...s|tar(titl|
|00000580| 65 24 29 0d 02 6c 10 fb | 31 36 30 3a db 3a ee 3a |e$)..l..|160:.:.:|
|00000590| fb 31 39 0d 02 76 0e 2a | 50 4f 49 4e 54 45 52 20 |.19..v.*|POINTER |
|000005a0| 30 0d 02 80 15 f2 63 65 | 6e 74 72 65 28 74 69 74 |0.....ce|ntre(tit|
|000005b0| 6c 65 24 2c 31 29 0d 02 | 8a 09 fb 36 33 3a ee 0d |le$,1)..|...63:..|
|000005c0| 02 94 05 f5 0d 02 9e 0a | f1 27 22 2a 22 3b 0d 02 |........|.'"*";..|
|000005d0| a8 0a e8 22 22 69 6e 24 | 0d 02 b2 09 ff 20 69 6e |...""in$|..... in|
|000005e0| 24 0d 02 bc 0b fd 69 6e | 24 3d 22 22 0d 02 c6 05 |$.....in|$=""....|
|000005f0| e1 0d 02 d0 05 3a 0d 02 | da 0b dd f2 73 70 61 63 |.....:..|....spac|
|00000600| 65 0d 02 e4 07 fb 36 33 | 0d 02 ee 0b 2a 46 58 32 |e.....63|....*FX2|
|00000610| 31 2c 30 0d 02 f8 0f e3 | 49 3d 30 b8 32 30 30 30 |1,0.....|I=0.2000|
|00000620| 3a ed 0d 03 02 38 f2 63 | 65 6e 74 72 65 28 22 50 |:....8.c|entre("P|
|00000630| 72 65 73 73 20 53 50 41 | 43 45 20 6f 72 20 63 6c |ress SPA|CE or cl|
|00000640| 69 63 6b 20 6d 6f 75 73 | 65 20 74 6f 20 63 6f 6e |ick mous|e to con|
|00000650| 74 69 6e 75 65 22 2c 33 | 30 29 0d 03 0c 05 f5 0d |tinue",3|0)......|
|00000660| 03 16 0a 47 3d a6 28 30 | 29 0d 03 20 0c c8 97 20 |...G=.(0|).. ... |
|00000670| 78 2c 79 2c 62 0d 03 2a | 10 fd 20 47 3d 33 32 20 |x,y,b..*|.. G=32 |
|00000680| 84 20 62 3e 30 0d 03 34 | 0f e3 49 3d 30 b8 32 30 |. b>0..4|..I=0.20|
|00000690| 30 30 3a ed 0d 03 3e 05 | e1 0d 03 48 05 3a 0d 03 |00:...>.|...H.:..|
|000006a0| 52 0b dd f2 73 65 74 75 | 70 0d 03 5c 1d f4 20 4c |R...setu|p..\.. L|
|000006b0| 69 6d 69 74 65 64 20 54 | 6f 20 4e 69 6e 65 20 4f |imited T|o Nine O|
|000006c0| 70 74 69 6f 6e 73 0d 03 | 66 09 6e 6f 25 3d 37 0d |ptions..|f.no%=7.|
|000006d0| 03 70 12 de 20 6f 70 74 | 69 6f 6e 24 28 6e 6f 25 |.p.. opt|ion$(no%|
|000006e0| 29 0d 03 7a 33 f4 20 53 | 6f 6d 65 20 57 6f 72 6b |)..z3. S|ome Work|
|000006f0| 20 53 70 61 63 65 20 46 | 6f 72 20 54 68 65 20 22 | Space F|or The "|
|00000700| 54 69 6d 65 26 44 61 74 | 65 22 20 53 59 53 20 43 |Time&Dat|e" SYS C|
|00000710| 61 6c 6c 21 0d 03 84 0f | de 20 62 6c 6f 63 6b 20 |all!....|. block |
|00000720| 31 30 30 0d 03 8e 1a f4 | 20 73 74 61 72 74 79 25 |100.....| starty%|
|00000730| 20 4d 55 53 54 20 62 65 | 20 65 76 65 6e 0d 03 98 | MUST be| even...|
|00000740| 0d 73 74 61 72 74 79 25 | 3d 36 0d 03 a2 1b 6f 6c |.starty%|=6....ol|
|00000750| 64 74 61 62 79 25 3d 30 | 3a 6f 6c 64 63 68 6f 69 |dtaby%=0|:oldchoi|
|00000760| 63 65 25 3d 30 0d 03 ac | 0a 79 79 25 3d 32 33 0d |ce%=0...|.yy%=23.|
|00000770| 03 b6 21 64 65 66 61 75 | 6c 74 24 3d 22 24 2e 21 |..!defau|lt$="$.!|
|00000780| 50 73 69 6f 6e 2e 44 61 | 74 61 2e 4d 41 49 4e 22 |Psion.Da|ta.MAIN"|
|00000790| 0d 03 c0 1d 64 69 72 74 | 65 78 74 24 3d 22 24 2e |....dirt|ext$="$.|
|000007a0| 21 50 73 69 6f 6e 2e 54 | 65 78 74 2e 22 0d 03 ca |!Psion.T|ext."...|
|000007b0| 1c 2a 53 65 74 20 46 69 | 6c 65 24 54 79 70 65 5f |.*Set Fi|le$Type_|
|000007c0| 37 46 46 20 50 73 69 6f | 6e 0d 03 d4 1b f4 20 50 |7FF Psio|n..... P|
|000007d0| 73 69 6f 6e 20 6c 6f 67 | 6f 20 64 65 66 69 6e 69 |sion log|o defini|
|000007e0| 74 69 6f 6e 0d 03 de 24 | ef 32 33 2c 31 32 38 2c |tion...$|.23,128,|
|000007f0| 30 2c 31 30 32 2c 31 30 | 32 2c 31 30 32 2c 36 30 |0,102,10|2,102,60|
|00000800| 2c 30 2c 32 35 35 2c 30 | 0d 03 e8 27 ef 32 33 2c |,0,255,0|...'.23,|
|00000810| 31 32 39 2c 30 2c 31 30 | 32 2c 32 33 31 2c 31 39 |129,0,10|2,231,19|
|00000820| 35 2c 31 39 35 2c 32 33 | 31 2c 31 30 32 2c 30 0d |5,195,23|1,102,0.|
|00000830| 03 f2 23 ef 32 33 2c 31 | 33 30 2c 30 2c 30 2c 31 |..#.23,1|30,0,0,1|
|00000840| 32 36 2c 31 32 36 2c 30 | 2c 31 32 36 2c 31 32 36 |26,126,0|,126,126|
|00000850| 2c 30 0d 03 fc 27 ef 32 | 33 2c 31 33 31 2c 30 2c |,0...'.2|3,131,0,|
|00000860| 31 39 35 2c 32 33 31 2c | 31 30 32 2c 31 30 32 2c |195,231,|102,102,|
|00000870| 32 33 31 2c 31 39 35 2c | 30 0d 04 06 26 ef 32 33 |231,195,|0...&.23|
|00000880| 2c 31 33 32 2c 32 35 32 | 2c 36 33 2c 30 2c 32 35 |,132,252|,63,0,25|
|00000890| 35 2c 32 35 35 2c 30 2c | 32 35 35 2c 32 35 35 0d |5,255,0,|255,255.|
|000008a0| 04 10 3b 70 73 69 6f 6e | 24 3d 22 20 22 2b bd 31 |..;psion|$=" "+.1|
|000008b0| 32 38 2b 22 20 22 2b bd | 31 32 39 2b 22 20 22 2b |28+" "+.|129+" "+|
|000008c0| bd 31 33 30 2b 22 20 22 | 2b bd 31 33 31 2b 22 20 |.130+" "|+.131+" |
|000008d0| 22 2b bd 31 33 32 2b 22 | 20 22 0d 04 1a 10 c8 97 |"+.132+"| "......|
|000008e0| 20 b8 20 33 39 30 2c 34 | 39 30 0d 04 24 14 ef 31 | . 390,4|90..$..1|
|000008f0| 39 2c 31 2c 32 34 2c 30 | 2c 30 2c 31 34 30 0d 04 |9,1,24,0|,0,140..|
|00000900| 2e 18 f4 20 2a 2a 2a 20 | 39 36 30 30 20 42 41 55 |... *** |9600 BAU|
|00000910| 44 21 20 2a 2a 2a 0d 04 | 38 0a 2a 46 58 37 2c 37 |D! ***..|8.*FX7,7|
|00000920| 0d 04 42 0a 2a 46 58 38 | 2c 37 0d 04 4c 16 f4 20 |..B.*FX8|,7..L.. |
|00000930| 31 35 38 3d 25 31 30 30 | 31 31 31 31 30 20 52 58 |158=%100|11110 RX|
|00000940| 0d 04 56 16 f4 20 32 35 | 32 3d 25 31 31 31 31 31 |..V.. 25|2=%11111|
|00000950| 31 30 30 20 54 58 0d 04 | 60 24 f4 20 20 20 33 3d |100 TX..|`$. 3=|
|00000960| 25 30 30 30 30 30 30 31 | 31 20 52 45 53 45 54 20 |%0000001|1 RESET |
|00000970| 52 53 34 32 33 20 50 6f | 72 74 0d 04 6a 0e f4 20 |RS423 Po|rt..j.. |
|00000980| 2a 46 58 31 35 36 2c 33 | 0d 04 74 0b 2a 46 58 32 |*FX156,3|..t.*FX2|
|00000990| 31 2c 31 0d 04 7e 0b 2a | 46 58 32 31 2c 32 0d 04 |1,1..~.*|FX21,2..|
|000009a0| 88 0b 2a 46 58 32 31 2c | 33 0d 04 92 05 e1 0d 04 |..*FX21,|3.......|
|000009b0| 9c 05 3a 0d 04 a6 0a dd | f2 6d 65 6e 75 0d 04 b0 |..:.....|.menu...|
|000009c0| 0e fb 31 36 30 3a db 3a | fb 31 39 0d 04 ba 38 f2 |..160:.:|.19...8.|
|000009d0| 63 65 6e 74 72 65 28 22 | 50 73 69 6f 6e 2f 41 72 |centre("|Psion/Ar|
|000009e0| 63 68 69 6d 65 64 65 73 | 20 44 61 74 61 20 54 72 |chimedes| Data Tr|
|000009f0| 61 6e 73 66 65 72 20 53 | 6f 66 74 77 61 72 65 22 |ansfer S|oftware"|
|00000a00| 2c 31 29 0d 04 c4 09 f2 | 6c 6f 67 6f 0d 04 ce 07 |,1).....|logo....|
|00000a10| fb 36 33 0d 04 d8 2c f2 | 63 65 6e 74 72 65 28 22 |.63...,.|centre("|
|00000a20| 2a 2a 2a 20 4d 61 72 6b | 20 54 61 79 6c 6f 72 20 |*** Mark| Taylor |
|00000a30| a9 20 31 39 38 38 20 2a | 2a 2a 22 2c 32 38 29 0d |. 1988 *|**",28).|
|00000a40| 04 e2 18 f2 63 65 6e 74 | 72 65 28 76 65 72 73 69 |....cent|re(versi|
|00000a50| 6f 6e 24 2c 33 30 29 0d | 04 ec 10 87 3a 2a 50 4f |on$,30).|....:*PO|
|00000a60| 49 4e 54 45 52 20 31 0d | 04 f6 05 f7 0d 05 00 0c |INTER 1.|........|
|00000a70| e3 79 3d 31 b8 6e 6f 25 | 0d 05 0a 10 f3 20 6f 70 |.y=1.no%|..... op|
|00000a80| 74 69 6f 6e 24 28 79 29 | 0d 05 14 29 f1 8a 79 79 |tion$(y)|...)..yy|
|00000a90| 25 2c 73 74 61 72 74 79 | 25 2b 28 32 2a 79 29 29 |%,starty|%+(2*y))|
|00000aa0| 3b 79 3b 22 2e 22 3b 6f | 70 74 69 6f 6e 24 28 79 |;y;".";o|ption$(y|
|00000ab0| 29 0d 05 1e 05 ed 0d 05 | 28 07 fb 31 35 0d 05 32 |).......|(..15..2|
|00000ac0| 30 f1 8a 79 79 25 2c 33 | 2b 28 73 74 61 72 74 79 |0..yy%,3|+(starty|
|00000ad0| 25 2b 28 32 2a 6e 6f 25 | 29 29 29 22 45 6e 74 65 |%+(2*no%|)))"Ente|
|00000ae0| 72 20 43 68 6f 69 63 65 | 20 3a 2d 22 3b 0d 05 3c |r Choice| :-";..<|
|00000af0| 05 e1 0d 05 46 05 3a 0d | 05 50 0a dd f2 6c 6f 67 |....F.:.|.P...log|
|00000b00| 6f 0d 05 5a 3d f4 20 45 | 6e 64 20 74 68 69 73 20 |o..Z=. E|nd this |
|00000b10| 70 72 6f 63 65 64 75 72 | 65 20 65 61 72 6c 79 20 |procedur|e early |
|00000b20| 73 6f 20 6e 6f 74 20 74 | 6f 20 20 69 6e 66 72 69 |so not t|o infri|
|00000b30| 6e 67 65 20 63 6f 70 79 | 72 69 67 68 74 21 0d 05 |nge copy|right!..|
|00000b40| 64 39 f4 20 52 65 6d 6f | 76 65 20 74 68 65 20 6c |d9. Remo|ve the l|
|00000b50| 69 6e 65 20 62 65 6c 6f | 77 20 74 6f 20 72 65 2d |ine belo|w to re-|
|00000b60| 65 6e 73 74 61 74 65 20 | 74 68 65 20 50 53 49 4f |enstate |the PSIO|
|00000b70| 4e 20 6c 6f 67 6f 2e 0d | 05 6e 05 e1 0d 05 78 26 |N logo..|.n....x&|
|00000b80| f4 20 50 72 6f 62 61 62 | 6c 79 20 69 6e 66 72 69 |. Probab|ly infri|
|00000b90| 6e 67 65 73 20 63 6f 70 | 79 72 69 67 68 74 21 21 |nges cop|yright!!|
|00000ba0| 21 21 0d 05 82 16 fb 31 | 32 38 2b 32 31 20 c8 9c |!!.....1|28+21 ..|
|00000bb0| 20 31 39 32 3a fb 36 33 | 0d 05 8c 15 f2 63 65 6e | 192:.63|.....cen|
|00000bc0| 74 72 65 28 70 73 69 6f | 6e 24 2c 34 29 0d 05 96 |tre(psio|n$,4)...|
|00000bd0| 07 fb 31 35 0d 05 a0 1c | f2 63 65 6e 74 72 65 28 |..15....|.centre(|
|00000be0| 22 20 50 20 53 20 7c 20 | 4f 20 4e 20 22 2c 35 29 |" P S | |O N ",5)|
|00000bf0| 0d 05 aa 10 fb 31 36 30 | c8 9c 20 30 3a fb 36 33 |.....160|.. 0:.63|
|00000c00| 0d 05 b4 05 e1 0d 05 be | 05 3a 0d 05 c8 16 dd f2 |........|.:......|
|00000c10| 63 65 6e 74 72 65 28 77 | 6f 72 64 24 2c 59 25 29 |centre(w|ord$,Y%)|
|00000c20| 0d 05 d2 08 ea 20 58 25 | 0d 05 dc 16 58 25 3d 34 |..... X%|....X%=4|
|00000c30| 30 2d 28 28 a9 77 6f 72 | 64 24 29 2f 32 29 0d 05 |0-((.wor|d$)/2)..|
|00000c40| e6 13 f1 8a 58 25 2c 59 | 25 29 3b 77 6f 72 64 24 |....X%,Y|%);word$|
|00000c50| 3b 0d 05 f0 05 e1 0d 05 | fa 05 3a 0d 06 04 0b dd |;.......|..:.....|
|00000c60| f2 65 72 72 6f 72 0d 06 | 0e 06 ef 33 0d 06 18 08 |.error..|...3....|
|00000c70| 2a 46 58 32 0d 06 22 0e | 2a 50 4f 49 4e 54 45 52 |*FX2..".|*POINTER|
|00000c80| 20 30 0d 06 2c 09 ee 3a | d9 23 30 0d 06 36 0e e7 | 0..,..:|.#0..6..|
|00000c90| 20 9f 3d 31 37 20 8c 20 | e1 0d 06 40 09 db 3a fb | .=17 . |...@..:.|
|00000ca0| 31 39 0d 06 4a 1e f2 63 | 65 6e 74 72 65 28 22 47 |19..J..c|entre("G|
|00000cb0| 65 6e 65 72 61 6c 20 45 | 72 72 6f 72 22 2c 31 29 |eneral E|rror",1)|
|00000cc0| 0d 06 54 13 65 72 6c 24 | 3d c3 9e 3a 65 72 72 24 |..T.erl$|=..:err$|
|00000cd0| 3d c3 9f 0d 06 5e 37 72 | 65 70 6f 72 74 24 3d f6 |=....^7r|eport$=.|
|00000ce0| 24 2b 22 20 61 74 20 6c | 69 6e 65 20 22 2b 65 72 |$+" at l|ine "+er|
|00000cf0| 6c 24 2b 22 20 2d 20 45 | 72 72 6f 72 20 4e 75 6d |l$+" - E|rror Num|
|00000d00| 62 65 72 3d 22 2b 65 72 | 72 24 0d 06 68 17 f2 63 |ber="+er|r$..h..c|
|00000d10| 65 6e 74 72 65 28 72 65 | 70 6f 72 74 24 2c 31 37 |entre(re|port$,17|
|00000d20| 29 0d 06 72 0a f2 73 70 | 61 63 65 0d 06 7c 05 e1 |)..r..sp|ace..|..|
|00000d30| 0d 06 86 05 3a 0d 06 90 | 17 dd f2 50 73 69 6f 6e |....:...|...Psion|
|00000d40| 5f 41 72 63 28 74 69 74 | 6c 65 24 29 0d 06 9a 11 |_Arc(tit|le$)....|
|00000d50| ea 20 64 65 66 24 2c 63 | 68 65 63 6b 24 0d 06 a4 |. def$,c|heck$...|
|00000d60| 05 f5 0d 06 ae 0e fb 31 | 36 30 3a db 3a fb 31 39 |.......1|60:.:.19|
|00000d70| 0d 06 b8 0c 6f 77 66 6c | 61 67 3d 30 0d 06 c2 0b |....owfl|ag=0....|
|00000d80| 2a 46 58 32 31 2c 31 0d | 06 cc 0b 2a 46 58 32 31 |*FX21,1.|...*FX21|
|00000d90| 2c 32 0d 06 d6 0e 2a 46 | 58 31 35 36 2c 32 35 32 |,2....*F|X156,252|
|00000da0| 0d 06 e0 15 f2 63 65 6e | 74 72 65 28 74 69 74 6c |.....cen|tre(titl|
|00000db0| 65 24 2c 31 29 0d 06 ea | 09 f2 6c 6f 67 6f 0d 06 |e$,1)...|..logo..|
|00000dc0| f4 0e 2a 50 4f 49 4e 54 | 45 52 20 30 0d 06 fe 09 |..*POINT|ER 0....|
|00000dd0| ee 3a fb 31 35 0d 07 08 | 3c f2 63 65 6e 74 72 65 |.:.15...|<.centre|
|00000de0| 28 22 45 6e 74 65 72 20 | 66 69 6c 65 6e 61 6d 65 |("Enter |filename|
|00000df0| 20 66 6f 72 20 74 68 65 | 20 64 61 74 61 20 74 6f | for the| data to|
|00000e00| 20 62 65 20 73 61 76 65 | 64 20 61 73 22 2c 31 32 | be save|d as",12|
|00000e10| 29 0d 07 12 1c 64 65 66 | 24 3d 22 5b 22 2b 64 65 |)....def|$="["+de|
|00000e20| 66 61 75 6c 74 24 2b 22 | 5d 20 3a 2d 22 0d 07 1c |fault$+"|] :-"...|
|00000e30| 14 f2 63 65 6e 74 72 65 | 28 64 65 66 24 2c 31 34 |..centre|(def$,14|
|00000e40| 29 0d 07 26 10 e8 22 22 | 66 69 6c 65 6e 61 6d 65 |)..&..""|filename|
|00000e50| 24 0d 07 30 27 e7 20 66 | 69 6c 65 6e 61 6d 65 24 |$..0'. f|ilename$|
|00000e60| 3d 22 22 20 8c 20 66 69 | 6c 65 6e 61 6d 65 24 3d |="" . fi|lename$=|
|00000e70| 64 65 66 61 75 6c 74 24 | 0d 07 3a 21 f2 54 69 6d |default$|..:!.Tim|
|00000e80| 65 5f 44 61 74 65 28 66 | 69 6c 65 6e 61 6d 65 24 |e_Date(f|ilename$|
|00000e90| 2c 64 61 24 2c 74 79 24 | 29 0d 07 44 23 e7 20 74 |,da$,ty$|)..D#. t|
|00000ea0| 79 24 3d 22 37 46 46 22 | 20 8c 20 f2 65 78 69 74 |y$="7FF"| . .exit|
|00000eb0| 73 28 66 69 6c 65 6e 61 | 6d 65 24 29 0d 07 4e 0e |s(filena|me$)..N.|
|00000ec0| fd 20 6f 77 66 6c 61 67 | 3d 30 0d 07 58 16 63 68 |. owflag|=0..X.ch|
|00000ed0| 61 6e 25 3d ae 28 66 69 | 6c 65 6e 61 6d 65 24 29 |an%=.(fi|lename$)|
|00000ee0| 0d 07 62 22 f2 63 65 6e | 74 72 65 28 22 41 77 61 |..b".cen|tre("Awa|
|00000ef0| 69 74 69 6e 67 20 44 61 | 74 61 2e 2e 2e 22 2c 31 |iting Da|ta...",1|
|00000f00| 39 29 0d 07 6c 0c 63 68 | 65 63 6b 25 3d 30 0d 07 |9)..l.ch|eck%=0..|
|00000f10| 76 0f f5 20 fd 20 96 28 | 2d 32 29 3e 30 0d 07 80 |v.. . .(|-2)>0...|
|00000f20| 23 f2 63 65 6e 74 72 65 | 28 22 52 65 63 65 69 76 |#.centre|("Receiv|
|00000f30| 69 6e 67 20 44 61 74 61 | 2e 2e 2e 22 2c 31 39 29 |ing Data|...",19)|
|00000f40| 0d 07 8a 05 f5 0d 07 94 | 0e 63 68 61 72 25 3d a4 |........|.char%=.|
|00000f50| 67 65 74 0d 07 9e 11 63 | 68 65 63 6b 25 2b 3d 63 |get....c|heck%+=c|
|00000f60| 68 61 72 25 0d 07 a8 11 | d5 23 63 68 61 6e 25 2c |har%....|.#chan%,|
|00000f70| 63 68 61 72 25 0d 07 b2 | 0e fd 63 68 61 72 25 3d |char%...|..char%=|
|00000f80| 26 31 41 0d 07 bc 27 73 | 61 76 65 24 3d 22 53 61 |&1A...'s|ave$="Sa|
|00000f90| 76 69 6e 67 20 44 61 74 | 61 20 41 73 20 3a 2d 22 |ving Dat|a As :-"|
|00000fa0| 2b 66 69 6c 65 6e 61 6d | 65 24 0d 07 c6 15 f2 63 |+filenam|e$.....c|
|00000fb0| 65 6e 74 72 65 28 73 61 | 76 65 24 2c 31 39 29 0d |entre(sa|ve$,19).|
|00000fc0| 07 d0 0b d9 23 63 68 61 | 6e 25 0d 07 da 23 ff 28 |....#cha|n%...#.(|
|00000fd0| 22 2a 53 45 54 54 59 50 | 45 20 22 2b 66 69 6c 65 |"*SETTYP|E "+file|
|00000fe0| 6e 61 6d 65 24 2b 22 20 | 37 46 46 22 29 0d 07 e4 |name$+" |7FF")...|
|00000ff0| 28 63 68 65 63 6b 24 3d | 22 43 68 65 63 6b 73 75 |(check$=|"Checksu|
|00001000| 6d 20 76 61 6c 75 65 20 | 3d 20 22 2b c3 28 63 68 |m value |= "+.(ch|
|00001010| 65 63 6b 25 29 0d 07 ee | 16 f2 63 65 6e 74 72 65 |eck%)...|..centre|
|00001020| 28 63 68 65 63 6b 24 2c | 32 31 29 0d 07 f8 0a f2 |(check$,|21).....|
|00001030| 73 70 61 63 65 0d 08 02 | 05 e1 0d 08 0c 05 3a 0d |space...|......:.|
|00001040| 08 16 17 dd f2 41 72 63 | 5f 50 73 69 6f 6e 28 74 |.....Arc|_Psion(t|
|00001050| 69 74 6c 65 24 29 0d 08 | 20 0e fb 31 36 30 3a db |itle$)..| ..160:.|
|00001060| 3a fb 31 39 0d 08 2a 0e | 2a 50 4f 49 4e 54 45 52 |:.19..*.|*POINTER|
|00001070| 20 30 0d 08 34 0b 2a 46 | 58 32 31 2c 31 0d 08 3e | 0..4.*F|X21,1..>|
|00001080| 0b 2a 46 58 32 31 2c 32 | 0d 08 48 0e 2a 46 58 31 |.*FX21,2|..H.*FX1|
|00001090| 35 36 2c 31 35 38 0d 08 | 52 15 f2 63 65 6e 74 72 |56,158..|R..centr|
|000010a0| 65 28 74 69 74 6c 65 24 | 2c 31 29 0d 08 5c 56 f2 |e(title$|,1)..\V.|
|000010b0| 63 65 6e 74 72 65 28 22 | 50 6c 65 61 73 65 20 68 |centre("|Please h|
|000010c0| 61 76 65 20 74 68 65 20 | 50 73 69 6f 6e 20 72 65 |ave the |Psion re|
|000010d0| 61 64 79 20 74 6f 20 72 | 65 63 65 69 76 65 20 64 |ady to r|eceive d|
|000010e0| 61 74 61 20 62 65 66 6f | 72 65 20 79 6f 75 20 74 |ata befo|re you t|
|000010f0| 72 61 6e 73 66 65 72 20 | 64 61 74 61 2e 22 2c 34 |ransfer |data.",4|
|00001100| 29 0d 08 66 31 f2 63 65 | 6e 74 72 65 28 22 54 68 |)..f1.ce|ntre("Th|
|00001110| 65 20 74 72 61 6e 73 66 | 65 72 20 6d 61 79 20 66 |e transf|er may f|
|00001120| 61 69 6c 20 6f 74 68 65 | 72 77 69 73 65 21 22 2c |ail othe|rwise!",|
|00001130| 36 29 0d 08 70 09 ee 3a | fb 31 35 0d 08 7a 3e f2 |6)..p..:|.15..z>.|
|00001140| 63 65 6e 74 72 65 28 22 | 45 6e 74 65 72 20 66 69 |centre("|Enter fi|
|00001150| 6c 65 6e 61 6d 65 20 66 | 6f 72 20 74 68 65 20 64 |lename f|or the d|
|00001160| 61 74 61 20 74 6f 20 62 | 65 20 74 72 61 6e 73 66 |ata to b|e transf|
|00001170| 65 72 65 64 22 2c 31 32 | 29 0d 08 84 1c 64 65 66 |ered",12|)....def|
|00001180| 24 3d 22 5b 22 2b 64 65 | 66 61 75 6c 74 24 2b 22 |$="["+de|fault$+"|
|00001190| 5d 20 3a 2d 22 0d 08 8e | 14 f2 63 65 6e 74 72 65 |] :-"...|..centre|
|000011a0| 28 64 65 66 24 2c 31 34 | 29 0d 08 98 10 e8 22 22 |(def$,14|).....""|
|000011b0| 66 69 6c 65 6e 61 6d 65 | 24 0d 08 a2 27 e7 20 66 |filename|$...'. f|
|000011c0| 69 6c 65 6e 61 6d 65 24 | 3d 22 22 20 8c 20 66 69 |ilename$|="" . fi|
|000011d0| 6c 65 6e 61 6d 65 24 3d | 64 65 66 61 75 6c 74 24 |lename$=|default$|
|000011e0| 0d 08 ac 16 63 68 61 6e | 25 3d 8e 28 66 69 6c 65 |....chan|%=.(file|
|000011f0| 6e 61 6d 65 24 29 0d 08 | b6 2d e7 20 63 68 61 6e |name$)..|.-. chan|
|00001200| 25 3d 30 20 8c 20 f2 6e | 6f 74 66 6f 75 6e 64 28 |%=0 . .n|otfound(|
|00001210| 74 69 74 6c 65 24 2c 66 | 69 6c 65 6e 61 6d 65 24 |title$,f|ilename$|
|00001220| 29 3a e1 0d 08 c0 21 f2 | 54 69 6d 65 5f 44 61 74 |):....!.|Time_Dat|
|00001230| 65 28 66 69 6c 65 6e 61 | 6d 65 24 2c 64 61 24 2c |e(filena|me$,da$,|
|00001240| 74 79 24 29 0d 08 ca 30 | e7 20 74 79 24 3c 3e 22 |ty$)...0|. ty$<>"|
|00001250| 37 46 46 22 20 8c 20 f2 | 77 72 6f 6e 74 79 70 65 |7FF" . .|wrontype|
|00001260| 28 74 69 74 6c 65 24 2c | 66 69 6c 65 6e 61 6d 65 |(title$,|filename|
|00001270| 24 29 3a e1 0d 08 d4 46 | f2 63 65 6e 74 72 65 28 |$):....F|.centre(|
|00001280| 22 50 72 65 73 73 20 53 | 50 41 43 45 20 42 41 52 |"Press S|PACE BAR|
|00001290| 20 77 68 65 6e 20 79 6f | 75 20 61 72 65 20 72 65 | when yo|u are re|
|000012a0| 61 64 79 20 74 6f 20 74 | 72 61 6e 73 66 65 72 20 |ady to t|ransfer |
|000012b0| 64 61 74 61 2e 22 2c 31 | 37 29 0d 08 de 0e 2a 46 |data.",1|7)....*F|
|000012c0| 58 31 35 36 2c 31 35 38 | 0d 08 e8 0b 2a 46 58 32 |X156,158|....*FX2|
|000012d0| 31 2c 30 0d 08 f2 0a f5 | fd a5 3d 33 32 0d 08 fc |1,0.....|..=32...|
|000012e0| 2f 74 72 61 6e 66 24 3d | 22 54 72 61 6e 73 6d 69 |/tranf$=|"Transmi|
|000012f0| 74 69 6e 67 20 27 22 2b | 66 69 6c 65 6e 61 6d 65 |ting '"+|filename|
|00001300| 24 2b 22 27 20 4e 6f 77 | 2e 2e 2e 22 0d 09 06 16 |$+"' Now|..."....|
|00001310| f2 63 65 6e 74 72 65 28 | 74 72 61 6e 66 24 2c 32 |.centre(|tranf$,2|
|00001320| 31 29 0d 09 10 05 f5 0d | 09 1a 0e 43 25 3d 9a 23 |1)......|...C%=.#|
|00001330| 63 68 61 6e 25 0d 09 24 | 0d f2 73 65 6e 64 28 43 |chan%..$|..send(C|
|00001340| 25 29 0d 09 2e 0c fd c5 | 23 63 68 61 6e 25 0d 09 |%)......|#chan%..|
|00001350| 38 0b d9 23 63 68 61 6e | 25 0d 09 42 0b 2a 46 58 |8..#chan|%..B.*FX|
|00001360| 32 31 2c 32 0d 09 4c 0a | f2 73 70 61 63 65 0d 09 |21,2..L.|.space..|
|00001370| 56 05 e1 0d 09 60 05 3a | 0d 09 6a 13 dd f2 65 78 |V....`.:|..j...ex|
|00001380| 69 74 73 28 66 6e 61 6d | 65 24 29 0d 09 74 0e fb |its(fnam|e$)..t..|
|00001390| 31 36 30 3a db 3a fb 31 | 39 0d 09 7e 15 f2 63 65 |160:.:.1|9..~..ce|
|000013a0| 6e 74 72 65 28 74 69 74 | 6c 65 24 2c 31 29 0d 09 |ntre(tit|le$,1)..|
|000013b0| 88 09 f2 6c 6f 67 6f 0d | 09 92 0e 2a 50 4f 49 4e |...logo.|...*POIN|
|000013c0| 54 45 52 20 30 0d 09 9c | 09 ee 3a fb 31 35 0d 09 |TER 0...|..:.15..|
|000013d0| a6 2d 77 6f 72 64 24 3d | 22 46 69 6c 65 20 27 22 |.-word$=|"File '"|
|000013e0| 2b 66 6e 61 6d 65 24 2b | 22 27 20 61 6c 6c 72 65 |+fname$+|"' allre|
|000013f0| 61 64 79 20 65 78 69 74 | 73 21 22 0d 09 b0 15 f2 |ady exit|s!".....|
|00001400| 63 65 6e 74 72 65 28 77 | 6f 72 64 24 2c 31 37 29 |centre(w|ord$,17)|
|00001410| 0d 09 ba 38 77 6f 72 64 | 24 3d 22 44 6f 20 79 6f |...8word|$="Do yo|
|00001420| 75 20 77 69 73 68 20 74 | 6f 20 6f 76 65 72 77 72 |u wish t|o overwr|
|00001430| 69 74 65 20 66 69 6c 65 | 20 27 22 2b 66 6e 61 6d |ite file| '"+fnam|
|00001440| 65 24 2b 22 27 20 3f 22 | 0d 09 c4 15 f2 63 65 6e |e$+"' ?"|.....cen|
|00001450| 74 72 65 28 77 6f 72 64 | 24 2c 31 39 29 0d 09 ce |tre(word|$,19)...|
|00001460| 20 f2 63 65 6e 74 72 65 | 28 22 59 65 73 20 6f 72 | .centre|("Yes or|
|00001470| 20 4e 6f 20 3f 20 3a 2d | 22 2c 32 31 29 0d 09 d8 | No ? :-|",21)...|
|00001480| 08 79 24 3d be 0d 09 e2 | 0b c8 8e 20 79 24 20 ca |.y$=....|... y$ .|
|00001490| 0d 09 ec 16 c9 20 22 59 | 22 2c 22 79 22 3a 6f 77 |..... "Y|","y":ow|
|000014a0| 66 6c 61 67 3d 30 0d 09 | f6 16 c9 20 22 4e 22 2c |flag=0..|... "N",|
|000014b0| 22 6e 22 3a 6f 77 66 6c | 61 67 3d 31 0d 0a 00 05 |"n":owfl|ag=1....|
|000014c0| cb 0d 0a 0a 1e 57 24 3d | c4 37 30 2c 22 20 22 29 |.....W$=|.70," ")|
|000014d0| 3a f2 63 65 6e 74 72 65 | 28 57 24 2c 31 37 29 0d |:.centre|(W$,17).|
|000014e0| 0a 14 1e 57 24 3d c4 37 | 30 2c 22 20 22 29 3a f2 |...W$=.7|0," "):.|
|000014f0| 63 65 6e 74 72 65 28 57 | 24 2c 31 39 29 0d 0a 1e |centre(W|$,19)...|
|00001500| 1e 57 24 3d c4 32 30 2c | 22 20 22 29 3a f2 63 65 |.W$=.20,|" "):.ce|
|00001510| 6e 74 72 65 28 57 24 2c | 32 31 29 0d 0a 28 05 e1 |ntre(W$,|21)..(..|
|00001520| 0d 0a 32 05 3a 0d 0a 3c | 13 dd f2 50 72 69 6e 74 |..2.:..<|...Print|
|00001530| 28 74 69 74 6c 65 24 29 | 0d 0a 46 05 f5 0d 0a 50 |(title$)|..F....P|
|00001540| 0e fb 31 36 30 3a db 3a | fb 31 39 0d 0a 5a 15 f2 |..160:.:|.19..Z..|
|00001550| 63 65 6e 74 72 65 28 74 | 69 74 6c 65 24 2c 31 29 |centre(t|itle$,1)|
|00001560| 0d 0a 64 09 f2 6c 6f 67 | 6f 0d 0a 6e 0e 2a 50 4f |..d..log|o..n.*PO|
|00001570| 49 4e 54 45 52 20 30 0d | 0a 78 09 ee 3a fb 31 35 |INTER 0.|.x..:.15|
|00001580| 0d 0a 82 08 70 72 3d 30 | 0d 0a 8c 3a f2 63 65 6e |....pr=0|...:.cen|
|00001590| 74 72 65 28 22 45 6e 74 | 65 72 20 66 69 6c 65 6e |tre("Ent|er filen|
|000015a0| 61 6d 65 20 6f 66 20 74 | 68 65 20 64 61 74 61 20 |ame of t|he data |
|000015b0| 74 6f 20 62 65 20 70 72 | 69 6e 74 65 64 22 2c 31 |to be pr|inted",1|
|000015c0| 32 29 0d 0a 96 1c 64 65 | 66 24 3d 22 5b 22 2b 64 |2)....de|f$="["+d|
|000015d0| 65 66 61 75 6c 74 24 2b | 22 5d 20 3a 2d 22 0d 0a |efault$+|"] :-"..|
|000015e0| a0 14 f2 63 65 6e 74 72 | 65 28 64 65 66 24 2c 31 |...centr|e(def$,1|
|000015f0| 34 29 0d 0a aa 10 e8 22 | 22 66 69 6c 65 6e 61 6d |4)....."|"filenam|
|00001600| 65 24 0d 0a b4 27 e7 20 | 66 69 6c 65 6e 61 6d 65 |e$...'. |filename|
|00001610| 24 3d 22 22 20 8c 20 66 | 69 6c 65 6e 61 6d 65 24 |$="" . f|ilename$|
|00001620| 3d 64 65 66 61 75 6c 74 | 24 0d 0a be 16 63 68 61 |=default|$....cha|
|00001630| 6e 25 3d 8e 28 66 69 6c | 65 6e 61 6d 65 24 29 0d |n%=.(fil|ename$).|
|00001640| 0a c8 2b e7 20 63 68 61 | 6e 25 3d 30 20 8c 20 f2 |..+. cha|n%=0 . .|
|00001650| 6e 6f 74 66 6f 75 6e 64 | 28 74 69 74 6c 65 24 2c |notfound|(title$,|
|00001660| 66 69 6c 65 6e 61 6d 65 | 24 29 0d 0a d2 21 f2 54 |filename|$)...!.T|
|00001670| 69 6d 65 5f 44 61 74 65 | 28 66 69 6c 65 6e 61 6d |ime_Date|(filenam|
|00001680| 65 24 2c 64 61 24 2c 74 | 79 24 29 0d 0a dc 38 e7 |e$,da$,t|y$)...8.|
|00001690| 20 74 79 24 3c 3e 22 37 | 46 46 22 20 80 20 63 68 | ty$<>"7|FF" . ch|
|000016a0| 61 6e 25 3e 30 20 8c 20 | f2 77 72 6f 6e 74 79 70 |an%>0 . |.wrontyp|
|000016b0| 65 28 74 69 74 6c 65 24 | 2c 66 69 6c 65 6e 61 6d |e(title$|,filenam|
|000016c0| 65 24 29 0d 0a e6 18 fd | 63 68 61 6e 25 3e 30 20 |e$).....|chan%>0 |
|000016d0| 80 20 74 79 24 3d 22 37 | 46 46 22 0d 0a f0 3a f2 |. ty$="7|FF"...:.|
|000016e0| 63 65 6e 74 72 65 28 22 | 50 72 69 6e 74 20 66 69 |centre("|Print fi|
|000016f0| 6c 65 20 6f 6e 20 53 29 | 63 72 65 65 6e 20 6f 72 |le on S)|creen or|
|00001700| 20 50 29 72 69 6e 74 65 | 72 20 5b 53 5d 20 3a 2d | P)rinte|r [S] :-|
|00001710| 22 2c 31 36 29 0d 0a fa | 0c 70 72 69 6e 74 24 3d |",16)...|.print$=|
|00001720| be 0d 0b 04 0f c8 8e 20 | 70 72 69 6e 74 24 20 ca |....... |print$ .|
|00001730| 0d 0b 0e 12 c9 20 22 53 | 22 2c 22 73 22 3a 70 72 |..... "S|","s":pr|
|00001740| 3d 30 0d 0b 18 12 c9 20 | 22 50 22 2c 22 70 22 3a |=0..... |"P","p":|
|00001750| 70 72 3d 31 0d 0b 22 05 | cb 0d 0b 2c 1b db 3a fb |pr=1..".|...,..:.|
|00001760| 31 39 3a f2 63 65 6e 74 | 72 65 28 74 69 74 6c 65 |19:.cent|re(title|
|00001770| 24 2c 31 29 0d 0b 36 07 | ef 31 34 0d 0b 40 16 e7 |$,1)..6.|.14..@..|
|00001780| 20 70 72 3d 31 20 8c 20 | f2 50 72 69 6e 74 73 65 | pr=1 . |.Printse|
|00001790| 74 0d 0b 4a 07 fb 31 35 | 0d 0b 54 2f f1 8a 30 2c |t..J..15|..T/..0,|
|000017a0| 34 29 22 53 61 76 65 64 | 20 64 61 74 61 20 66 72 |4)"Saved| data fr|
|000017b0| 6f 6d 20 74 68 65 20 66 | 69 6c 65 20 22 3b 66 69 |om the f|ile ";fi|
|000017c0| 6c 65 6e 61 6d 65 24 0d | 0b 5e 0f fb 20 36 33 20 |lename$.|.^.. 63 |
|000017d0| c8 9c 20 31 39 32 0d 0b | 68 05 f1 0d 0b 72 05 f5 |.. 192..|h....r..|
|000017e0| 0d 0b 7c 0e 59 25 3d 9a | 23 63 68 61 6e 25 0d 0b |..|.Y%=.|#chan%..|
|000017f0| 86 1e e7 20 59 25 3d 26 | 31 41 20 84 20 59 25 3d |... Y%=&|1A . Y%=|
|00001800| 26 31 31 20 8c 20 59 25 | 3d 26 30 30 0d 0b 90 08 |&11 . Y%|=&00....|
|00001810| ef 20 59 25 0d 0b 9a 0c | fd c5 23 63 68 61 6e 25 |. Y%....|..#chan%|
|00001820| 0d 0b a4 07 d9 23 30 0d | 0b ae 1c f1 27 22 46 69 |.....#0.|....'"Fi|
|00001830| 6c 65 20 73 61 76 65 64 | 20 6f 6e 20 20 20 22 3b |le saved| on ";|
|00001840| 64 61 24 0d 0b b8 1b f1 | 27 22 46 69 6c 65 20 70 |da$.....|'"File p|
|00001850| 72 69 6e 74 65 64 20 6f | 6e 20 22 3b 91 24 0d 0b |rinted o|n ";.$..|
|00001860| c2 06 f1 27 0d 0b cc 06 | ef 33 0d 0b d6 0a f2 73 |...'....|.3.....s|
|00001870| 70 61 63 65 0d 0b e0 05 | e1 0d 0b ea 05 3a 0d 0b |pace....|.....:..|
|00001880| f4 0e dd f2 50 72 69 6e | 74 73 65 74 0d 0b fe 09 |....Prin|tset....|
|00001890| 87 3a fb 31 35 0d 0c 08 | 45 f1 8a 35 2c 33 29 22 |.:.15...|E..5,3)"|
|000018a0| 50 6c 65 61 73 65 20 68 | 61 76 65 20 74 68 65 20 |Please h|ave the |
|000018b0| 70 72 69 6e 74 65 72 20 | 74 75 72 6e 65 64 20 6f |printer |turned o|
|000018c0| 6e 20 61 6e 64 20 74 68 | 65 20 70 61 70 65 72 20 |n and th|e paper |
|000018d0| 61 6c 69 6e 67 6e 65 64 | 21 22 0d 0c 12 05 f5 0d |alingned|!"......|
|000018e0| 0c 1c 10 70 72 69 3d a4 | 70 72 69 6e 74 65 72 0d |...pri=.|printer.|
|000018f0| 0c 26 0e fb 36 33 20 c8 | 9c 20 31 39 32 0d 0c 30 |.&..63 .|. 192..0|
|00001900| 2c e7 20 ac 20 70 72 69 | 20 8c 20 f1 8a 35 2c 35 |,. . pri| . ..5,5|
|00001910| 29 22 50 72 69 6e 74 65 | 72 20 69 73 20 6e 6f 77 |)"Printe|r is now|
|00001920| 20 4f 46 46 22 3a fb 31 | 35 0d 0c 3a 2e e7 20 20 | OFF":.1|5..:.. |
|00001930| 20 20 20 70 72 69 20 8c | 20 f1 8a 35 2c 35 29 22 | pri .| ..5,5)"|
|00001940| 50 72 69 6e 74 65 72 20 | 69 73 20 6e 6f 77 20 4f |Printer |is now O|
|00001950| 4e 20 22 3a fb 31 35 0d | 0c 44 27 f1 8a 35 2c 37 |N ":.15.|.D'..5,7|
|00001960| 29 22 50 72 65 73 73 20 | 53 50 41 43 45 20 42 41 |)"Press |SPACE BA|
|00001970| 52 20 77 68 65 6e 20 72 | 65 61 64 79 22 3b 0d 0c |R when r|eady";..|
|00001980| 4e 0b 2a 46 58 32 31 2c | 30 0d 0c 58 12 fd 20 a6 |N.*FX21,|0..X.. .|
|00001990| 28 2d 39 39 29 20 80 20 | 70 72 69 0d 0c 62 19 db |(-99) . |pri..b..|
|000019a0| 3a ee 3a f2 63 65 6e 74 | 72 65 28 74 69 74 6c 65 |:.:.cent|re(title|
|000019b0| 24 2c 31 29 0d 0c 6c 09 | ef 32 2c 31 35 0d 0c 76 |$,1)..l.|.2,15..v|
|000019c0| 05 e1 0d 0c 80 05 3a 0d | 0c 8a 0d dd a4 70 72 69 |......:.|.....pri|
|000019d0| 6e 74 65 72 0d 0c 94 0b | 2a 46 58 32 31 2c 33 0d |nter....|*FX21,3.|
|000019e0| 0c 9e 13 73 74 61 72 74 | 73 69 7a 65 3d 96 28 2d |...start|size=.(-|
|000019f0| 34 29 0d 0c a8 1c ef 32 | 2c 31 2c 30 2c 31 2c 30 |4).....2|,1,0,1,0|
|00001a00| 2c 31 2c 30 2c 31 2c 30 | 2c 31 2c 30 2c 33 0d 0c |,1,0,1,0|,1,0,3..|
|00001a10| b2 0d 77 61 69 74 3d a6 | 28 32 29 0d 0c bc 11 65 |..wait=.|(2)....e|
|00001a20| 6e 64 73 69 7a 65 3d 96 | 28 2d 34 29 0d 0c c6 18 |ndsize=.|(-4)....|
|00001a30| 3d 28 73 74 61 72 74 73 | 69 7a 65 3d 65 6e 64 73 |=(starts|ize=ends|
|00001a40| 69 7a 65 29 0d 0c d0 05 | 3a 0d 0c da 20 dd f2 6e |ize)....|:... ..n|
|00001a50| 6f 74 66 6f 75 6e 64 28 | 74 69 74 6c 65 24 2c 66 |otfound(|title$,f|
|00001a60| 69 6c 65 6e 61 6d 65 24 | 29 0d 0c e4 0e fb 31 36 |ilename$|).....16|
|00001a70| 30 3a db 3a fb 31 39 0d | 0c ee 15 f2 63 65 6e 74 |0:.:.19.|....cent|
|00001a80| 72 65 28 74 69 74 6c 65 | 24 2c 31 29 0d 0c f8 0e |re(title|$,1)....|
|00001a90| 2a 50 4f 49 4e 54 45 52 | 20 30 0d 0d 02 05 ee 0d |*POINTER| 0......|
|00001aa0| 0d 0c 2a 6e 6f 74 24 3d | 22 46 49 4c 45 20 27 22 |..*not$=|"FILE '"|
|00001ab0| 2b 66 69 6c 65 6e 61 6d | 65 24 2b 22 27 20 4e 4f |+filenam|e$+"' NO|
|00001ac0| 54 20 46 4f 55 4e 44 21 | 22 0d 0d 16 14 f2 63 65 |T FOUND!|".....ce|
|00001ad0| 6e 74 72 65 28 6e 6f 74 | 24 2c 31 35 29 0d 0d 20 |ntre(not|$,15).. |
|00001ae0| 0a f2 73 70 61 63 65 0d | 0d 2a 05 e1 0d 0d 34 05 |..space.|.*....4.|
|00001af0| 3a 0d 0d 3e 20 dd f2 77 | 72 6f 6e 74 79 70 65 28 |:..> ..w|rontype(|
|00001b00| 74 69 74 6c 65 24 2c 66 | 69 6c 65 6e 61 6d 65 24 |title$,f|ilename$|
|00001b10| 29 0d 0d 48 0e fb 31 36 | 30 3a db 3a fb 31 39 0d |)..H..16|0:.:.19.|
|00001b20| 0d 52 15 f2 63 65 6e 74 | 72 65 28 74 69 74 6c 65 |.R..cent|re(title|
|00001b30| 24 2c 31 29 0d 0d 5c 0e | 2a 50 4f 49 4e 54 45 52 |$,1)..\.|*POINTER|
|00001b40| 20 30 0d 0d 66 05 ee 0d | 0d 70 35 6e 6f 74 24 3d | 0..f...|.p5not$=|
|00001b50| 22 46 49 4c 45 20 27 22 | 2b 66 69 6c 65 6e 61 6d |"FILE '"|+filenam|
|00001b60| 65 24 2b 22 27 20 49 53 | 20 4f 46 20 54 48 45 20 |e$+"' IS| OF THE |
|00001b70| 57 52 4f 4e 47 20 54 59 | 50 45 21 22 0d 0d 7a 14 |WRONG TY|PE!"..z.|
|00001b80| f2 63 65 6e 74 72 65 28 | 6e 6f 74 24 2c 31 35 29 |.centre(|not$,15)|
|00001b90| 0d 0d 84 0a f2 73 70 61 | 63 65 0d 0d 8e 05 e1 0d |.....spa|ce......|
|00001ba0| 0d 98 05 3a 0d 0d a2 09 | dd a4 67 65 74 0d 0d ac |...:....|..get...|
|00001bb0| 0a 2a 46 58 32 2c 31 0d | 0d b6 08 67 25 3d a5 0d |.*FX2,1.|...g%=..|
|00001bc0| 0d c0 0a 2a 46 58 32 2c | 32 0d 0d ca 07 3d 67 25 |...*FX2,|2....=g%|
|00001bd0| 0d 0d d4 05 3a 0d 0d de | 11 dd f2 73 65 6e 64 28 |....:...|...send(|
|00001be0| 63 68 61 72 25 29 0d 0d | e8 0a 2a 46 58 33 2c 37 |char%)..|..*FX3,7|
|00001bf0| 0d 0d f2 0a ef 63 68 61 | 72 25 0d 0d fc 0a 2a 46 |.....cha|r%....*F|
|00001c00| 58 33 2c 30 0d 0e 06 05 | e1 0d 0e 10 05 3a 0d 0e |X3,0....|.....:..|
|00001c10| 1a 12 dd f2 48 65 6c 70 | 28 74 69 74 6c 65 24 29 |....Help|(title$)|
|00001c20| 0d 0e 24 0e fb 31 36 30 | 3a db 3a fb 31 39 0d 0e |..$..160|:.:.19..|
|00001c30| 2e 15 f2 63 65 6e 74 72 | 65 28 74 69 74 6c 65 24 |...centr|e(title$|
|00001c40| 2c 31 29 0d 0e 38 0e 2a | 50 4f 49 4e 54 45 52 20 |,1)..8.*|POINTER |
|00001c50| 30 0d 0e 42 09 ee 3a fb | 31 35 0d 0e 4c 4e f1 8a |0..B..:.|15..LN..|
|00001c60| 35 2c 33 29 22 54 68 69 | 73 20 70 72 6f 67 72 61 |5,3)"Thi|s progra|
|00001c70| 6d 20 77 69 6c 6c 20 73 | 61 76 65 20 61 6e 64 20 |m will s|ave and |
|00001c80| 6c 6f 61 64 20 64 61 74 | 61 20 68 65 6c 64 20 6f |load dat|a held o|
|00001c90| 6e 20 61 20 50 73 69 6f | 6e 20 4f 72 67 61 6e 69 |n a Psio|n Organi|
|00001ca0| 73 65 72 20 49 49 2e 22 | 0d 0e 56 4f f1 8a 35 2c |ser II."|..VO..5,|
|00001cb0| 35 29 22 59 6f 75 72 20 | 50 73 69 6f 6e 20 4f 72 |5)"Your |Psion Or|
|00001cc0| 67 61 6e 69 73 65 72 20 | 6d 75 73 74 20 62 65 20 |ganiser |must be |
|00001cd0| 63 6f 6e 65 63 74 65 64 | 20 74 6f 20 74 68 65 20 |conected| to the |
|00001ce0| 6e 69 6e 65 20 70 69 6e | 20 52 53 34 32 33 20 70 |nine pin| RS423 p|
|00001cf0| 6f 72 74 20 6f 6e 22 0d | 0e 60 31 f1 8a 35 2c 36 |ort on".|.`1..5,6|
|00001d00| 29 22 74 68 65 20 62 61 | 63 6b 20 6f 66 20 79 6f |)"the ba|ck of yo|
|00001d10| 75 72 20 41 72 63 68 69 | 6d 65 64 65 73 20 63 6f |ur Archi|medes co|
|00001d20| 6d 70 75 74 65 72 2e 22 | 0d 0e 6a 45 f1 8a 35 2c |mputer."|..jE..5,|
|00001d30| 38 29 22 54 68 69 73 20 | 70 72 6f 67 72 61 6d 20 |8)"This |program |
|00001d40| 69 73 20 73 65 74 20 75 | 70 20 74 6f 20 75 73 65 |is set u|p to use|
|00001d50| 20 74 68 65 20 66 6f 6c | 6c 6f 77 69 6e 67 20 70 | the fol|lowing p|
|00001d60| 65 72 61 6d 65 74 65 72 | 73 20 3a 2d 22 0d 0e 74 |erameter|s :-"..t|
|00001d70| 39 f1 8a 32 33 2c 31 30 | 29 22 53 70 65 65 64 20 |9..23,10|)"Speed |
|00001d80| 20 20 20 20 20 20 3d 20 | 39 36 30 30 20 42 41 55 | = |9600 BAU|
|00001d90| 44 20 7d 20 2a 43 6f 6e | 66 69 67 75 72 65 20 42 |D } *Con|figure B|
|00001da0| 41 55 44 20 37 22 0d 0e | 7e 27 f1 8a 32 33 2c 31 |AUD 7"..|~'..23,1|
|00001db0| 31 29 22 50 61 72 69 74 | 79 20 20 20 20 20 20 3d |1)"Parit|y =|
|00001dc0| 20 4f 44 44 20 20 20 20 | 20 20 20 7d 22 0d 0e 88 | ODD | }"...|
|00001dd0| 39 f1 8a 32 33 2c 31 32 | 29 22 57 6f 72 64 20 6c |9..23,12|)"Word l|
|00001de0| 65 6e 67 74 68 20 3d 20 | 38 20 42 69 74 73 20 20 |ength = |8 Bits |
|00001df0| 20 20 7d 20 2a 43 6f 6e | 66 69 67 75 72 65 20 44 | } *Con|figure D|
|00001e00| 41 54 41 20 37 22 0d 0e | 92 27 f1 8a 32 33 2c 31 |ATA 7"..|.'..23,1|
|00001e10| 33 29 22 53 74 6f 70 20 | 62 69 74 20 20 20 20 3d |3)"Stop |bit =|
|00001e20| 20 31 20 42 69 74 20 20 | 20 20 20 7d 22 0d 0e 9c | 1 Bit | }"...|
|00001e30| 1f f1 8a 32 33 2c 31 34 | 29 22 48 61 6e 64 73 68 |...23,14|)"Handsh|
|00001e40| 61 6b 65 20 20 20 3d 20 | 41 4c 4c 22 0d 0e a6 20 |ake = |ALL"... |
|00001e50| f1 8a 32 33 2c 31 35 29 | 22 50 72 6f 74 6f 63 6f |..23,15)|"Protoco|
|00001e60| 6c 20 20 20 20 3d 20 4e | 4f 4e 45 22 0d 0e b0 21 |l = N|ONE"...!|
|00001e70| f1 8a 32 33 2c 31 36 29 | 22 45 63 68 6f 20 20 20 |..23,16)|"Echo |
|00001e80| 20 20 20 20 20 3d 20 4c | 4f 43 41 4c 22 0d 0e ba | = L|OCAL"...|
|00001e90| 45 f1 8a 35 2c 31 38 29 | 22 59 6f 75 72 20 4f 72 |E..5,18)|"Your Or|
|00001ea0| 67 61 6e 69 73 65 72 20 | 73 68 6f 75 6c 64 20 62 |ganiser |should b|
|00001eb0| 65 20 73 65 74 20 74 68 | 65 20 61 62 6f 76 65 20 |e set th|e above |
|00001ec0| 76 61 6c 75 65 73 20 6f | 66 20 63 6f 75 72 73 65 |values o|f course|
|00001ed0| 2e 22 0d 0e c4 4b f1 8a | 35 2c 32 30 29 22 54 68 |."...K..|5,20)"Th|
|00001ee0| 65 20 70 72 6f 67 72 61 | 6d 20 69 73 20 71 75 69 |e progra|m is qui|
|00001ef0| 74 65 20 73 69 6d 70 6c | 65 20 74 6f 20 75 73 65 |te simpl|e to use|
|00001f00| 2c 20 6a 75 73 74 20 66 | 6f 6c 6c 6f 77 20 74 68 |, just f|ollow th|
|00001f10| 65 20 70 72 6f 6d 70 74 | 73 20 74 6f 22 0d 0e ce |e prompt|s to"...|
|00001f20| 25 f1 8a 35 2c 32 31 29 | 22 53 61 76 65 2f 4c 6f |%..5,21)|"Save/Lo|
|00001f30| 61 64 20 6f 72 20 50 72 | 69 6e 74 20 64 61 74 61 |ad or Pr|int data|
|00001f40| 2e 22 0d 0e d8 4e f1 8a | 35 2c 32 33 29 22 49 74 |."...N..|5,23)"It|
|00001f50| 65 6d 73 20 69 6e 20 73 | 71 75 61 72 65 20 62 72 |ems in s|quare br|
|00001f60| 61 63 6b 65 74 73 20 27 | 5b 5d 27 20 61 72 65 20 |ackets '|[]' are |
|00001f70| 74 68 65 20 64 65 66 61 | 75 6c 74 73 2c 20 6a 75 |the defa|ults, ju|
|00001f80| 73 74 20 70 72 65 73 73 | 20 72 65 74 75 72 6e 22 |st press| return"|
|00001f90| 0d 0e e2 28 f1 8a 35 2c | 32 34 29 22 74 6f 20 65 |...(..5,|24)"to e|
|00001fa0| 6e 74 65 72 20 74 68 65 | 20 64 65 66 61 75 6c 74 |nter the| default|
|00001fb0| 20 76 61 6c 75 65 2e 22 | 0d 0e ec 48 f1 8a 35 2c | value."|...H..5,|
|00001fc0| 32 36 29 22 50 72 65 73 | 73 69 6e 67 20 3c 45 53 |26)"Pres|sing <ES|
|00001fd0| 43 41 50 45 3e 20 77 69 | 6c 6c 20 61 6c 6c 77 61 |CAPE> wi|ll allwa|
|00001fe0| 79 73 20 72 65 74 75 72 | 6e 20 79 6f 75 20 74 6f |ys retur|n you to|
|00001ff0| 20 74 68 65 20 6d 61 69 | 6e 20 6d 65 6e 75 2e 22 | the mai|n menu."|
|00002000| 0d 0e f6 35 f1 8a 35 2c | 32 38 29 22 55 73 65 20 |...5..5,|28)"Use |
|00002010| 27 2a 54 59 50 45 20 52 | 65 61 64 4d 65 27 20 66 |'*TYPE R|eadMe' f|
|00002020| 6f 72 20 6d 6f 72 65 20 | 69 6e 66 6f 72 6d 61 74 |or more |informat|
|00002030| 69 6f 6e 2e 22 0d 0f 00 | 0a f2 73 70 61 63 65 0d |ion."...|..space.|
|00002040| 0f 0a 05 e1 0d 0f 14 05 | 3a 0d 0f 1e 19 dd f2 43 |........|:......C|
|00002050| 6f 6e 76 65 72 74 46 72 | 6f 6d 28 74 69 74 6c 65 |onvertFr|om(title|
|00002060| 24 29 0d 0f 28 05 f5 0d | 0f 32 0e fb 31 36 30 3a |$)..(...|.2..160:|
|00002070| db 3a fb 31 39 0d 0f 3c | 15 f2 63 65 6e 74 72 65 |.:.19..<|..centre|
|00002080| 28 74 69 74 6c 65 24 2c | 31 29 0d 0f 46 0e 2a 50 |(title$,|1)..F.*P|
|00002090| 4f 49 4e 54 45 52 20 30 | 0d 0f 50 09 ee 3a fb 36 |OINTER 0|..P..:.6|
|000020a0| 33 0d 0f 5a 4f f1 8a 35 | 2c 34 29 22 54 68 69 73 |3..ZO..5|,4)"This|
|000020b0| 20 6f 70 74 69 6f 6e 20 | 61 6c 6c 6f 77 73 20 79 | option |allows y|
|000020c0| 6f 75 20 74 6f 20 63 6f | 6e 76 65 72 74 20 61 20 |ou to co|nvert a |
|000020d0| 70 72 65 76 69 6f 73 6c | 79 20 73 61 76 65 64 20 |previosl|y saved |
|000020e0| 50 73 69 6f 6e 20 64 61 | 74 61 20 66 69 6c 65 22 |Psion da|ta file"|
|000020f0| 0d 0f 64 43 f1 8a 35 2c | 36 29 22 74 6f 20 61 20 |..dC..5,|6)"to a |
|00002100| 70 75 72 65 20 41 53 43 | 49 49 20 66 69 6c 65 20 |pure ASC|II file |
|00002110| 66 6f 72 20 6c 6f 61 64 | 69 6e 67 20 69 6e 74 6f |for load|ing into|
|00002120| 20 61 20 77 6f 72 64 20 | 70 72 6f 63 65 73 73 6f | a word |processo|
|00002130| 72 2e 22 0d 0f 6e 3a f1 | 8a 35 2c 38 29 22 54 68 |r."..n:.|.5,8)"Th|
|00002140| 65 20 6f 72 69 67 69 6e | 61 6c 20 64 61 74 61 20 |e origin|al data |
|00002150| 66 69 6c 65 20 77 69 6c | 6c 20 62 65 20 6c 65 66 |file wil|l be lef|
|00002160| 74 20 75 6e 63 68 61 6e | 67 65 64 21 22 0d 0f 78 |t unchan|ged!"..x|
|00002170| 07 fb 31 35 0d 0f 82 3c | f2 63 65 6e 74 72 65 28 |..15...<|.centre(|
|00002180| 22 45 6e 74 65 72 20 66 | 69 6c 65 6e 61 6d 65 20 |"Enter f|ilename |
|00002190| 6f 66 20 74 68 65 20 64 | 61 74 61 20 74 6f 20 62 |of the d|ata to b|
|000021a0| 65 20 63 6f 6e 76 65 72 | 74 65 64 22 2c 31 32 29 |e conver|ted",12)|
|000021b0| 0d 0f 8c 1c 64 65 66 24 | 3d 22 5b 22 2b 64 65 66 |....def$|="["+def|
|000021c0| 61 75 6c 74 24 2b 22 5d | 20 3a 2d 22 0d 0f 96 14 |ault$+"]| :-"....|
|000021d0| f2 63 65 6e 74 72 65 28 | 64 65 66 24 2c 31 34 29 |.centre(|def$,14)|
|000021e0| 0d 0f a0 0e e8 22 22 69 | 70 66 69 6c 65 24 0d 0f |.....""i|pfile$..|
|000021f0| aa 23 e7 20 69 70 66 69 | 6c 65 24 3d 22 22 20 8c |.#. ipfi|le$="" .|
|00002200| 20 69 70 66 69 6c 65 24 | 3d 64 65 66 61 75 6c 74 | ipfile$|=default|
|00002210| 24 0d 0f b4 14 63 68 61 | 6e 25 3d 8e 28 69 70 66 |$....cha|n%=.(ipf|
|00002220| 69 6c 65 24 29 0d 0f be | 29 e7 20 63 68 61 6e 25 |ile$)...|). chan%|
|00002230| 3d 30 20 8c 20 f2 6e 6f | 74 66 6f 75 6e 64 28 74 |=0 . .no|tfound(t|
|00002240| 69 74 6c 65 24 2c 69 70 | 66 69 6c 65 24 29 0d 0f |itle$,ip|file$)..|
|00002250| c8 1f f2 54 69 6d 65 5f | 44 61 74 65 28 69 70 66 |...Time_|Date(ipf|
|00002260| 69 6c 65 24 2c 64 61 24 | 2c 74 79 24 29 0d 0f d2 |ile$,da$|,ty$)...|
|00002270| 36 e7 20 74 79 24 3c 3e | 22 37 46 46 22 20 80 20 |6. ty$<>|"7FF" . |
|00002280| 63 68 61 6e 25 3e 30 20 | 8c 20 f2 77 72 6f 6e 74 |chan%>0 |. .wront|
|00002290| 79 70 65 28 74 69 74 6c | 65 24 2c 69 70 66 69 6c |ype(titl|e$,ipfil|
|000022a0| 65 24 29 0d 0f dc 18 fd | 63 68 61 6e 25 3e 30 20 |e$).....|chan%>0 |
|000022b0| 80 20 74 79 24 3d 22 37 | 46 46 22 0d 0f e6 05 f5 |. ty$="7|FF".....|
|000022c0| 0d 0f f0 0c 6f 77 66 6c | 61 67 3d 30 0d 0f fa 3b |....owfl|ag=0...;|
|000022d0| f2 63 65 6e 74 72 65 28 | 22 45 6e 74 65 72 20 66 |.centre(|"Enter f|
|000022e0| 69 6c 65 6e 61 6d 65 20 | 6f 66 20 74 68 65 20 6f |ilename |of the o|
|000022f0| 75 74 70 75 74 20 66 69 | 6c 65 20 28 41 53 43 49 |utput fi|le (ASCI|
|00002300| 49 29 22 2c 31 36 29 0d | 10 04 12 6c 65 6e 3d a9 |I)",16).|...len=.|
|00002310| 28 69 70 66 69 6c 65 24 | 29 0d 10 0e 16 e7 20 6c |(ipfile$|)..... l|
|00002320| 65 6e 3e 3d 31 30 20 8c | 20 6c 65 6e 3d 31 30 0d |en>=10 .| len=10.|
|00002330| 10 18 18 74 65 6d 70 31 | 24 3d c2 69 70 66 69 6c |...temp1|$=.ipfil|
|00002340| 65 24 2c 6c 65 6e 29 0d | 10 22 14 64 6f 74 3d a7 |e$,len).|.".dot=.|
|00002350| 74 65 6d 70 31 24 2c 22 | 2e 22 29 0d 10 2c 1b 74 |temp1$,"|.")..,.t|
|00002360| 65 6d 70 32 24 3d c2 74 | 65 6d 70 31 24 2c 6c 65 |emp2$=.t|emp1$,le|
|00002370| 6e 2d 64 6f 74 29 0d 10 | 36 18 74 65 6d 70 32 24 |n-dot)..|6.temp2$|
|00002380| 3d 74 65 6d 70 32 24 2b | 22 54 65 78 74 22 0d 10 |=temp2$+|"Text"..|
|00002390| 40 16 74 65 6d 70 32 24 | 3d c0 74 65 6d 70 32 24 |@.temp2$|=.temp2$|
|000023a0| 2c 31 30 29 0d 10 4a 19 | 64 65 66 74 24 3d 64 69 |,10)..J.|deft$=di|
|000023b0| 72 74 65 78 74 24 2b 74 | 65 6d 70 32 24 0d 10 54 |rtext$+t|emp2$..T|
|000023c0| 1d 64 65 66 74 65 78 74 | 24 3d 22 5b 22 2b 64 65 |.deftext|$="["+de|
|000023d0| 66 74 24 2b 22 5d 20 3a | 2d 22 0d 10 5e 18 f2 63 |ft$+"] :|-"..^..c|
|000023e0| 65 6e 74 72 65 28 64 65 | 66 74 65 78 74 24 2c 31 |entre(de|ftext$,1|
|000023f0| 38 29 0d 10 68 0e e8 22 | 22 6f 70 66 69 6c 65 24 |8)..h.."|"opfile$|
|00002400| 0d 10 72 20 e7 20 6f 70 | 66 69 6c 65 24 3d 22 22 |..r . op|file$=""|
|00002410| 20 8c 20 6f 70 66 69 6c | 65 24 3d 64 65 66 74 24 | . opfil|e$=deft$|
|00002420| 0d 10 7c 1f f2 54 69 6d | 65 5f 44 61 74 65 28 6f |..|..Tim|e_Date(o|
|00002430| 70 66 69 6c 65 24 2c 64 | 61 24 2c 74 79 24 29 0d |pfile$,d|a$,ty$).|
|00002440| 10 86 21 e7 20 74 79 24 | 3d 22 46 46 46 22 20 8c |..!. ty$|="FFF" .|
|00002450| 20 f2 65 78 69 74 73 28 | 6f 70 66 69 6c 65 24 29 | .exits(|opfile$)|
|00002460| 0d 10 90 0e fd 20 6f 77 | 66 6c 61 67 3d 30 0d 10 |..... ow|flag=0..|
|00002470| 9a 07 fb 36 33 0d 10 a4 | 39 74 65 78 74 24 3d 22 |...63...|9text$="|
|00002480| 4e 6f 77 20 63 6f 6e 76 | 65 72 74 69 6e 67 20 27 |Now conv|erting '|
|00002490| 22 2b 69 70 66 69 6c 65 | 24 2b 22 27 20 74 6f 20 |"+ipfile|$+"' to |
|000024a0| 27 22 2b 6f 70 66 69 6c | 65 24 2b 22 27 22 0d 10 |'"+opfil|e$+"'"..|
|000024b0| ae 15 f2 63 65 6e 74 72 | 65 28 74 65 78 74 24 2c |...centr|e(text$,|
|000024c0| 32 30 29 0d 10 b8 16 69 | 70 63 68 61 6e 25 3d 8e |20)....i|pchan%=.|
|000024d0| 28 69 70 66 69 6c 65 24 | 29 0d 10 c2 16 6f 70 63 |(ipfile$|)....opc|
|000024e0| 68 61 6e 25 3d ae 28 6f | 70 66 69 6c 65 24 29 0d |han%=.(o|pfile$).|
|000024f0| 10 cc 05 f5 0d 10 d6 10 | 59 25 3d 9a 23 69 70 63 |........|Y%=.#ipc|
|00002500| 68 61 6e 25 0d 10 e0 1c | e7 20 59 25 3d 26 30 39 |han%....|. Y%=&09|
|00002510| 20 8c 20 d5 23 6f 70 63 | 68 61 6e 25 2c 26 32 30 | . .#opc|han%,&20|
|00002520| 0d 10 ea 1c e7 20 59 25 | 3d 26 30 41 20 8c 20 d5 |..... Y%|=&0A . .|
|00002530| 23 6f 70 63 68 61 6e 25 | 2c 26 30 41 0d 10 f4 1c |#opchan%|,&0A....|
|00002540| e7 20 59 25 3d 26 30 44 | 20 8c 20 d5 23 6f 70 63 |. Y%=&0D| . .#opc|
|00002550| 68 61 6e 25 2c 26 30 44 | 0d 10 fe 23 e7 20 59 25 |han%,&0D|...#. Y%|
|00002560| 3e 33 31 20 80 20 59 25 | 3c 31 32 37 20 8c 20 d5 |>31 . Y%|<127 . .|
|00002570| 23 6f 70 63 68 61 6e 25 | 2c 59 25 0d 11 08 0e fd |#opchan%|,Y%.....|
|00002580| c5 23 69 70 63 68 61 6e | 25 0d 11 12 07 d9 23 30 |.#ipchan|%.....#0|
|00002590| 0d 11 1c 21 ff 28 22 2a | 53 45 54 54 59 50 45 20 |...!.("*|SETTYPE |
|000025a0| 22 2b 6f 70 66 69 6c 65 | 24 2b 22 20 46 46 46 22 |"+opfile|$+" FFF"|
|000025b0| 29 0d 11 26 0a f2 73 70 | 61 63 65 0d 11 30 05 e1 |)..&..sp|ace..0..|
|000025c0| 0d 11 3a 05 3a 0d 11 44 | 19 dd f2 43 6f 6e 76 65 |..:.:..D|...Conve|
|000025d0| 72 74 42 61 63 6b 28 74 | 69 74 6c 65 24 29 0d 11 |rtBack(t|itle$)..|
|000025e0| 4e 1e f4 20 54 68 69 73 | 20 6f 70 74 69 6f 6e 20 |N.. This| option |
|000025f0| 6e 6f 74 20 77 6f 72 6b | 69 6e 67 21 0d 11 58 2c |not work|ing!..X,|
|00002600| f4 20 59 6f 75 20 73 68 | 6f 75 6c 64 20 6e 65 76 |. You sh|ould nev|
|00002610| 65 72 20 62 65 20 61 62 | 6c 65 20 74 6f 20 63 61 |er be ab|le to ca|
|00002620| 6c 6c 20 69 74 21 21 21 | 0d 11 62 05 f5 0d 11 6c |ll it!!!|..b....l|
|00002630| 0e fb 31 36 30 3a db 3a | fb 31 39 0d 11 76 15 f2 |..160:.:|.19..v..|
|00002640| 63 65 6e 74 72 65 28 74 | 69 74 6c 65 24 2c 31 29 |centre(t|itle$,1)|
|00002650| 0d 11 80 0e 2a 50 4f 49 | 4e 54 45 52 20 30 0d 11 |....*POI|NTER 0..|
|00002660| 8a 09 ee 3a fb 36 33 0d | 11 94 4f f1 8a 35 2c 34 |...:.63.|..O..5,4|
|00002670| 29 22 54 68 69 73 20 6f | 70 74 69 6f 6e 20 61 6c |)"This o|ption al|
|00002680| 6c 6f 77 73 20 79 6f 75 | 20 74 6f 20 63 6f 6e 76 |lows you| to conv|
|00002690| 65 72 74 20 61 20 70 72 | 65 76 69 6f 73 6c 79 20 |ert a pr|eviosly |
|000026a0| 73 61 76 65 64 20 41 53 | 43 49 49 20 70 75 72 65 |saved AS|CII pure|
|000026b0| 20 66 69 6c 65 22 0d 11 | 9e 49 f1 8a 35 2c 36 29 | file"..|.I..5,6)|
|000026c0| 22 74 6f 20 61 20 50 73 | 69 6f 6e 20 64 61 74 61 |"to a Ps|ion data|
|000026d0| 20 66 69 6c 65 20 66 6f | 72 20 6c 6f 61 64 69 6e | file fo|r loadin|
|000026e0| 67 20 62 61 63 6b 20 69 | 6e 74 6f 20 61 20 50 73 |g back i|nto a Ps|
|000026f0| 69 6f 6e 20 4f 72 67 61 | 6e 69 73 65 72 2e 22 0d |ion Orga|niser.".|
|00002700| 11 a8 3b f1 8a 35 2c 38 | 29 22 54 68 65 20 6f 72 |..;..5,8|)"The or|
|00002710| 69 67 69 6e 61 6c 20 41 | 53 43 49 49 20 66 69 6c |iginal A|SCII fil|
|00002720| 65 20 77 69 6c 6c 20 62 | 65 20 6c 65 66 74 20 75 |e will b|e left u|
|00002730| 6e 63 68 61 6e 67 65 64 | 21 22 0d 11 b2 07 fb 31 |nchanged|!".....1|
|00002740| 35 0d 11 bc 3c f2 63 65 | 6e 74 72 65 28 22 45 6e |5...<.ce|ntre("En|
|00002750| 74 65 72 20 66 69 6c 65 | 6e 61 6d 65 20 6f 66 20 |ter file|name of |
|00002760| 74 68 65 20 64 61 74 61 | 20 74 6f 20 62 65 20 63 |the data| to be c|
|00002770| 6f 6e 76 65 72 74 65 64 | 22 2c 31 32 29 0d 11 c6 |onverted|",12)...|
|00002780| 0a f2 73 70 61 63 65 0d | 11 d0 05 e1 0d 11 da 05 |..space.|........|
|00002790| 3a 0d 11 e4 26 dd f2 54 | 69 6d 65 5f 44 61 74 65 |:...&..T|ime_Date|
|000027a0| 28 6e 61 6d 65 24 2c f8 | 20 64 61 74 65 24 2c f8 |(name$,.| date$,.|
|000027b0| 20 74 79 70 65 24 29 0d | 11 ee 13 24 62 6c 6f 63 | type$).|...$bloc|
|000027c0| 6b 3d 6e 61 6d 65 24 2b | bd 30 0d 11 f8 0a 72 30 |k=name$+|.0....r0|
|000027d0| 3d 26 30 35 0d 12 02 0c | 72 31 3d 62 6c 6f 63 6b |=&05....|r1=block|
|000027e0| 0d 12 0c 05 3a 0d 12 16 | 2a c8 99 20 22 4f 53 5f |....:...|*.. "OS_|
|000027f0| 46 69 6c 65 22 2c 72 30 | 2c 72 31 20 b8 20 72 30 |File",r0|,r1 . r0|
|00002800| 2c 72 31 2c 72 32 2c 72 | 33 2c 72 34 2c 72 35 0d |,r1,r2,r|3,r4,r5.|
|00002810| 12 20 05 3a 0d 12 2a 14 | 74 65 6d 70 3d 72 32 20 |. .:..*.|temp=r2 |
|00002820| 80 20 26 46 46 46 30 30 | 0d 12 34 14 74 79 70 65 |. &FFF00|..4.type|
|00002830| 24 3d c0 c3 7e 74 65 6d | 70 2c 33 29 0d 12 3e 12 |$=..~tem|p,3)..>.|
|00002840| 6d 73 62 3d 28 72 32 20 | 80 20 26 46 46 29 0d 12 |msb=(r2 |. &FF)..|
|00002850| 48 0e 62 6c 6f 63 6b 21 | 30 3d 72 33 0d 12 52 0f |H.block!|0=r3..R.|
|00002860| 62 6c 6f 63 6b 3f 34 3d | 6d 73 62 0d 12 5c 0c 72 |block?4=|msb..\.r|
|00002870| 30 3d 62 6c 6f 63 6b 0d | 12 66 0f 72 31 3d 62 6c |0=block.|.f.r1=bl|
|00002880| 6f 63 6b 2b 35 30 0d 12 | 70 09 72 32 3d 33 30 0d |ock+50..|p.r2=30.|
|00002890| 12 7a 05 3a 0d 12 84 3a | c8 99 20 22 4f 53 5f 43 |.z.:...:|.. "OS_C|
|000028a0| 6f 6e 76 65 72 74 53 74 | 61 6e 64 61 72 64 44 61 |onvertSt|andardDa|
|000028b0| 74 65 41 6e 64 54 69 6d | 65 22 2c 72 30 2c 72 31 |teAndTim|e",r0,r1|
|000028c0| 2c 72 32 20 b8 20 72 30 | 2c 72 31 2c 72 32 0d 12 |,r2 . r0|,r1,r2..|
|000028d0| 8e 05 3a 0d 12 98 0c 64 | 61 74 65 24 3d 22 22 0d |..:....d|ate$="".|
|000028e0| 12 a2 11 e3 49 25 3d 30 | b8 28 32 39 2d 72 32 29 |....I%=0|.(29-r2)|
|000028f0| 0d 12 ac 0f 54 25 3d 3f | 28 49 25 2b 72 30 29 0d |....T%=?|(I%+r0).|
|00002900| 12 b6 13 64 61 74 65 24 | 3d 64 61 74 65 24 2b bd |...date$|=date$+.|
|00002910| 54 25 0d 12 c0 05 ed 0d | 12 ca 05 e1 0d 12 d4 05 |T%......|........|
|00002920| 3a 0d 12 de 25 dc 20 22 | 50 73 69 6f 6e 20 54 6f |:...%. "|Psion To|
|00002930| 20 41 72 63 68 69 6d 65 | 64 65 73 20 54 72 61 6e | Archime|des Tran|
|00002940| 73 66 65 72 2e 22 0d 12 | e8 25 dc 20 22 41 72 63 |sfer."..|.%. "Arc|
|00002950| 68 69 6d 65 64 65 73 20 | 54 6f 20 50 73 69 6f 6e |himedes |To Psion|
|00002960| 20 54 72 61 6e 73 66 65 | 72 2e 22 0d 12 f2 21 dc | Transfe|r."...!.|
|00002970| 20 22 50 72 69 6e 74 2f | 44 69 73 70 6c 61 79 20 | "Print/|Display |
|00002980| 53 61 76 65 64 20 46 69 | 6c 65 2e 22 0d 12 fc 1e |Saved Fi|le."....|
|00002990| dc 20 22 43 6f 6e 76 65 | 72 74 20 74 6f 20 41 53 |. "Conve|rt to AS|
|000029a0| 43 49 49 20 66 69 6c 65 | 2e 22 0d 13 06 26 f4 20 |CII file|."...&. |
|000029b0| 4f 70 74 69 6f 6e 20 64 | 6f 65 73 20 6e 6f 74 20 |Option d|oes not |
|000029c0| 77 6f 72 6b 20 73 6f 20 | 52 45 4d 20 6f 75 74 21 |work so |REM out!|
|000029d0| 0d 13 10 25 f4 20 44 41 | 54 41 20 22 43 6f 6e 76 |...%. DA|TA "Conv|
|000029e0| 65 72 74 20 66 72 6f 6d | 20 41 53 43 49 49 20 66 |ert from| ASCII f|
|000029f0| 69 6c 65 2e 22 0d 13 1a | 0d dc 20 22 48 65 6c 70 |ile."...|.. "Help|
|00002a00| 2e 22 0d 13 24 12 dc 20 | 22 2a 20 43 6f 6d 6d 61 |."..$.. |"* Comma|
|00002a10| 6e 64 2e 22 0d 13 2e 0d | dc 20 22 45 78 69 74 2e |nd."....|. "Exit.|
|00002a20| 22 0d ff | |".. | |
+--------+-------------------------+-------------------------+--------+--------+
