1 'TOSB.100 by Jim Maynard (c) 1986, creates the OS for A&J Micro Drive
10 CLS:CLEAR50,56000:X=99:AA=56000
11 DEFINTI-N:H$="0123456789ABCDEF"
12 PRINT@59,"Data line"
13 PRINT@99,"File address"
14 READA$:X=X+1:PRINT@72,X
15 B$=MID$(A$,1,2):GOSUB25:N=K
16 IFK=0THENSAVEM"TOSB",56000,60200,56000:END
17 B$=MID$(A$,3,2):GOSUB25:L=K
18 B$=MID$(A$,5,2):GOSUB25:L=K*256+L:L1=0
19 FORI=1TON
20 J=I*2+5:B$=MID$(A$,J,2):GOSUB25
21 POKEAA,K:PRINT@112,AA:AA=AA+1:L1=L1+K
22 NEXTI
23 IFL<>L1THENBEEP:PRINT@165,"Checksum error":END
24 GOTO14
25 B1$=LEFT$(B$,1):K1=INSTR(1,H$,B1$):IF K1=0GOTO28
26 B1$=RIGHT$(B$,1):K2=INSTR(1,H$,B1$):IF K2=0GOTO28
27 K=(K1-1)*16+K2-1:RETURN
28 BEEP:PRINT@165,"Non HEX Character in DATA":END
100 DATA 382925F3C3F2DA1EDCFBDD75DC50DDF5DDEAE259DEC5DECFDD74DBF3DB29E329E3A0E329E329E36EE32CE3B4DE80DF000083E91EEA21DAFA01CEDA
101 DATA 38C11DCD43DB21F0FACD43DB2323CD43DB2100FBCD43DB2106FBCD43DB210AFBCD43DB1E092128FBD5CD43DBD11DC21DDB2116E322F7F5AF32C5E9
102 DATA 38BA1B3265EE328CF0321CEC3EC332F6F5CDC4DBFBC90A7723030A772303C9F321DAFA1E1D0170DBCD43DB1DC252DB1E130172DBCD43DB1DC25EDB
103 DATA 3874213EC9CD3BDBC30205F37FDB08FE01C2A2DB2B2B7E2323CDE90FFE41CA93DBFE42CA93DBFE58C2A2DBC3A3DBF5D641473AECE9B8DADB08F1C1
104 DATA 389022C1B7C97ECDE90F77FE4ACABEDBFE56CACEDBFE44CA4CDBCF46CF3AC379E4CDC4DBC30205CD22422183E9CD9157C921A4E9CD91573AEDE9CD
105 DATA 38751DECDB21AFE9CD585A3AEEE9CDECDBCD2242C302056FAF67CDD439C9221EEAE12220EA2A1EEAE5D5F5110400197EFE41C210DC11C4DAC33A51
106 DATA 38411CF1D1E1221EEA2A20EAE52A1EEAC9E5D5E501060009AF777BFE01CA53DCFE02C24604CD63E13E00CD06E6CD76DFFE00C2DB083602FB3E01CD
107 DATA 380E1F0BDDD1EB23732372C3A2163E00CD5AE6C25750FBCD76DFFE00C2DB083601CD2BDDCD1BDDD1EB23732372C3A216F1F5CD3917C2F1DCE5E5C1
108 DATA 384D1E11F7FF192222EACD25DD2224EAE5CD39DD112601C29ADC112600E1E5F519C5D1010001CDD4E6F1E1CAF0DCCD2BDDCDFBDC47234E2BCD26E7
109 DATA 387122F578CD1BDDCD2BDD47CD6FE8CDF4E0FBF1CAE3DC23462BE5CDD4E7CD32E8E1CDB6E62A22EA3600FBC3173FCD11DDCD32DDCD05DD3CCD0BDD
110 DATA 38DC1BE1C3EA142100002252F6C9E5D51115001977D1E1C9D5E52BC313DDD5E52BC31DDDD5E5112500197EE1D1C9D5E51125001977E1D1C9237E23
111 DATA 38841A666FC9E52323237EE1C9E523232377E1C9E523237E2F772FB7E1C9E523232323237E2F772FB7E1C9E5D1EBCD25DD232323232226EACDC718
112 DATA 38C921EBCD4917C2BBDDE511F7FF19CD25DDCD39DDC2ACDDCD43DDC26350CD43DDCD2BDDCD76E0CC43DDCD11DDCD32DDE54711240019CD9AE8F5CD
113 DATA 38571DF4E0FBF1C29414E1CD43DDCD43DD112600C3AFDD11260119EBE1E5010001CDD4E678E14F097EFE1A373FC28A4EE52A26EA77E137C38A4EC1
114 DATA 386A1BCD814CCA5A50FE01C2DB08E5CDBF184F9FCD0A34E1232323237EFE41C2A5182A26EAC3BD182A26EAC3CD177E3600FE01CA4DDEE5CD25DD7E
115 DATA 38B81C3600B7E1CA4DDEE5CD25DD2323D1D5E521060019E53E1AE7D11AB7CA2ADED5C31DDEE17EB7CA35DEE5D5C31DDE23462B2B4E2B3600CD78E7
116 DATA 38191F41CDD4E7CD32E8FBE1AFC3594DE53600CD25DDAF77E1C3594DFE41C0CD63E12BD7CA8DDECF2CCF41E53E02CD06E6E5111300193600E1E5CD
117 DATA 38591911DF2A8CFC3602E136023E01CD0BDDE12BD7C3154ECDF005EB2A7CF622CEFA7B956F7A9C672B7CB5CA010522D0FA21000022D2FA3E02CD06
118 DATA 385420E6C3BEDFFE41C0CD63E1CD46233E01CD06E6C3BEDFFE41C0C1F1F5C2D3DE2BD7C246042BD73E00373FCAE8DECF2CCF52C24604F137F53E80
119 DATA 38DD1E32A7FCF53E02CD5AE6C25750CD76DFFE02CA31DFFE00C2DB08E53601CD2BDDCD1BDDCD11DFE1C3A64DE5CDB84B2A83FC7E23666F228CFC36
120 DATA 38C61C0123C1712370232336412323AF772377C9C1F1CA46049F3292FC22CFF2CDFF202AD0FAE5E5C12A7CF6E5CD6D6BDA173F2AAEFB0922AEFBE1
121 DATA 38271ED122CEFAEB22D0FA2ACFF2CD23E0CDF005CD283F3A92FCA7C20408C30205E5D5111300197ED1E1C9FE41C0C1E5D7C246043E01CD5AE6C257
122 DATA 385B2250CD76DFFE01C2DB08E52AD2FA7CB5C2B1DFC1E1F1F5E5C5D2B1DFE13600C3DB08CD3125DA173FE1CD23E0C31A25E521DFE0CDF7DCE12228
123 DATA 389B23EACDBDE0CD2BDD47CD6FE8DBE0E681CADFE0CDAEE0DAE3DFC302E03AD0FA473AD1FAB0CA02E0234E2BCD2BDD47CD27E7C2941478CD32DDC3
124 DATA 380320C9DFE5CDF4E0E13600E5CD2BDD1115001977E123462BCDD4E7CD32E8CDF4DCFBC302052228EAE521D1E0CDF7DCE13E00322AEACD2BDDCD76
125 DATA 38651DE0C241E03EFF322AEACD2BDD47E511240019CD9AE8E1C29414DBE0E681CA94143A2AEAB7C280E0010002CD9CE0CD2BDD47234E2BCD4BE778
126 DATA 381E24CD32DDC333E0E5D511150019BED1E1C9E5CDF4E02AD0FAE5C1E1CD9CE0FB3600CDF4DCC9E511260019EBE1C9E5CD94E02ACEFACDD4E622CE
127 DATA 38A524FACDAEE0E1C9D5E52AD0FA1100FE1922D0FAE1D1C9E5CD94E02ACEFAEB010002CDD4E6EB22CEFAE1C92A28EA3600CDF4E0CDFF20C3EEE0CD
128 DATA 381E21F4E02A28EA23462BCD22E8CDB6E6CDF4DCC39414F3CD56E1CD56E1CD07E1CD51E1CD56E1CD56E1E52188132B7DB4C20BE13E67D3B2AF32C5
129 DATA 383221E9E1C921C6E9C33BE121CEE90604C33DE121C6E9C338E121CCE9C338E121D2E9CDF4E006067EF3B7C456E1CC51E12305C23DE13EFF32C5E9
130 DATA 38CA26C93EC2C358E13E42D3B2E6BFD3B2F640D3B2C9F5F33E42D3B2DBB3E610FBCADB08F1C9F33EFFD3B13EC2D3B2DBE0E681C289E1CDF4E0C394
131 DATA 38A42614C9F3CD35E13EC2D3B2CD73E1DBB3E610C292E1CDBCE2CDF4E0FBC9CD73E106283E42D3B205CADEE1CDB1E2CDB1E2CDB1E2CDB1E2CDB1E2
132 DATA 389423003EC2D3B2CDB1E2CDB1E2CDB1E2CDB1E2CDB1E200C3A9E1CDF4E0C394147E060800CDB1E2174FDA10E2003EC2D3B2DBE0E681CAD8E1DBB3
133 DATA 38111F2FE610C07BB2C83E42D3B27905C2E1E1231B06087EC3E5E13E42D3B2DBE0E681CAD8E1DBB32FE610C07BB2C83EC2D3B27905C2E1E1231B06
134 DATA 382F24087EC3E5E1C5D5E5F3CD73E1DBB3E6204FDBB3E620B9CA39E2E1D106C6CDC8E20E01C361E2DBE0E681CAD8E1CDB1E20000DBB3E62047DBB3
135 DATA 38821FE620B8CA66E217171779174FD255E2C1B8C235E20E01E5E1C38FE2DBE0E681CAD8E1CDB1E20000DBB3E62047DBB3E620B8CA94E217171779
136 DATA 38DD1B174FD283E277231B0E017BB20000C28FE2C90100000B78B1C2B5E2C91120030601CDC572CD73E1C9C5DBE0E681CAD8E100DBB3E62047DBB3
137 DATA 38C620E620B8CAD6E21717177917C1B84FC2C8E2C9C1CDD7082BD7E52AF4F5E5C12A67FBCA4041E1CF2CD5CD97122BD7C24604E3EB7CA7F2DB08D5
138 DATA 389F2111C1DAC32D41CDF4E0CDE5E52165EECDB6E6218CF0CDB6E6C9C34604FE41C0CD63E1C13A99FCFE20CA4E503AA2FCFE20CA4E503E02CD5AE6
139 DATA 38461DCADB08CD4C223E02CD5AE6C25750119CFCE5010A00090DCDD4E6E123462BCDD4E7CD32E8FBC9FE41C0CD63E1C1CD5AE6C2575023462BCD22
140 DATA 38C920E8CD32E8FBC93E2FE7E50602CDE01BE12323C9CD89E3CD86E3CD86E33E20E7C9C1CD4FE9CD224221D8E9CD9157CDACE521E1E9CD585A2113
141 DATA 380020EC0608CDE01BCD2242CD2242061CC5CDD9E3C105F2C6E3CD2242CD7EE5FBC30205C5CD8DE7C17EB7C2E4E3C9C5E50606CDE01B3E2EE7E1E5
142 DATA 38C817010600090603CDE01BCD72E4E1E5010900097EFE00CA17E4FE02CA12E43E2EC319E43E23C319E43E2AE7CD72E4E101120009CD93E3C12109
143 DATA 383B1EEB78010000BE23C233E4040DC22DE478373F1FF5FE64D250E4F53E20E7F1FE0AD250E4F53E20E7F126006FCDD439F121F2E9D260E421EFE9
144 DATA 383A1FCD585A2109EA0608CDE01BCD2242CDF5E5C93E20E73E20E7C9E5CD63E1CD8AE1CD2FE1CDE5E5E11109EC06087EFE00CA9EE4FE22CA9EE412
145 DATA 389919231305C28CE42109EB0100FF70230DC2A4E421B6F2CDBFE5060521B6F2111CEC7E12132305C2B8E43EC632B3F23EB732B4F22113ECCD2F19
146 DATA 38491EF3CDB2E2212DEA36C62336A923CDBBE80600C57832B5F221B5F2CD5AE921B3F2110C00CDA4E1F501C800CDB5E2F1C219E5212DEAE52323CD
147 DATA 387B21BBE8E1116602CDA4E1C219E5C104C3E2E4CD29E1C178D603F5CDBCE206FF04C5212FEACD9AE8C278E5C1F1F590C226E5CD2FE1215EEC1102
148 DATA 38662002CDEBE5DBB3E610C244E5CD29E1F1F5210BEB3600233DC253E5F13212EC010080F3CDB5E2CD32E8CDBCE2FB21F5E9CD9157CD7EE5C30205
149 DATA 38601ACDF4E0C394142109EB3E00010000BE23C28CE5040DC286E578373F1FF526006FCDD439F1D2A5E521EFE9CD585A2109EACD585AC92109EC06
150 DATA 38971B08CDE01BC921BDF2CD2F19CD0F19C9E5CDB5E521BDF2D10E05CDD3E512130DC2C9E5C97E23D63017171717E6F0477ED630802323C9212DEA
151 DATA 38422111AA083600231B7AB3C2EBE5C9E5D5C5FBCDCB12018813CDB5E2C1D1E1C9CD4FE9F5CD87E6CDECE7C21AE6CD22E8F1C309E6F1E511130019
152 DATA 38091D77E1CDABE7CA2EE6CDB6E6C3665023702BE5483ACFF23CFE04D23EE63E0547CD27E7C2173FE1E51114001970E178CD32DD23462BCDD4E736
153 DATA 384D1E02C9CD4FE9CD87E6CDECE7C023702BE501160009EB21CEFA010600CDD4E6E1CD7FE6CD32DDAFC9E5011400097EE1C9CD05E72165EE7EB7CA
154 DATA 38021F95E6218CF07EB7C26650CDB6E61193FCCDC7E6CDDFE6E50116000911CEFA010600CDD4E6E1C9C5E50125023600230B78B1C2BBE6E1C1C9E5
155 DATA 388818C5010A00090DCDD4E6C1E1C91A7723130B78B1C2D4E6C9C5D5E521BDF2CD2F1921BDF2EBE1E5011C000906031A7723131A7723131305C2F4
156 DATA 38591CE6E1D1C1C9E5F51199FC1AFE20C223E7F1F547808006004F21B9E909EB010300CDD4E6F1E1C904D5E5591602044806002109EBC23EE715C2
157 DATA 38E11B3EE715C347E7097E41B7C22CE773AFE1D1C904D5E516025904C258E715CA68E72109EB480600097EBB41C250E7E1D1C93EFFB7C365E70600
158 DATA 38BB1DCD78E704C270E7C9C5E5D52109EB7948060009BEC289E73600D1E1C1C9F578D608DA9EE7CA9EE747214AECC3A1E72119EA1118001905F2A4
159 DATA 382B23E7F1C9061CE5D5C5CD8DE7C17EB7CABEE705C2AFE705D1E1C9C5D5E5CD8DE7061836002305C2C9E7E1D1C1C9C5D5E5CD8DE7EBE1E5010A00
160 DATA 38BB1D09EB011800CDD4E6E1D1C1C9D5E5061CC5CD8DE7EBC1E1E5C5010A00090D1ABECA09E87EFE2AC21AE813230DC2FEE7010F00CDD4E6C1AFC3
161 DATA 38C6241FE8C105F2F0E7E1D1C9D5E5C548CD6EE7C1C5CDC1E7C1E1D1C9E5D5C5210BEA0600CD6FE8213CEC0601CD6FE8CDF4E0C1D1E1C9E5D5C506
162 DATA 380D2100212FEACD9AE8C262E806012160ECCD9AE8F5CDF4E0FBF1C29414C1D1E1C9E5D5C511220019E536C62336A923CDBBE8CDD3E8CD21E101F4
163 DATA 38872101CDB5E2E1110D02CDA4E1CD1BE1C1D1E1C91602D5C5E5CDD3E8E1E511030206A9CD35E2E1E5CDBBE8E1C1D1C815C29CE815C9E5D5C51102
164 DATA 38C51E023E0086471B7AB32378C2C3E8BE77C1D1E1C9C53AC5E9B7C2ECE8CD73E1CD29E1C501D8270B78B1C2E5E8C121CFF211070006B7CD35E221
165 DATA 38CD27CFF2CD5AE9C1C2D3E878B7CA0FE9CD69E9CA0FE9CD4CE878FEFFCA4EE93ACFF2B8C8E5D5C5DA2BE9CD8AE1F3CD73E1CD29E1AF47F1F590FE
166 DATA 38602305DA48E9F5CD35E1F1F501803ECDB5E2F13DC239E9CD1BE1C1D1E1C3D3E8C9F506FFCDD3E8CDF4E0F1C9E506063E00862305C25FE9BE77E1
167 DATA 383316C9C5D5E5111CEC21D0F206051ABEC27FE9231305C274E9E1D1C1C928432920434F505952494748542031393835204A494D204D41594E4152
168 DATA 388A08440D0A000D0A56455253494F4E20002052454C454153452000444F43434F4D42415354585400000001000100010001000100000000000100
169 DATA 38470E0D0A4E616D653A200020437265617465643A20000005012E35002E30000D0A466F726D617420636F6D706C6574650D0A00204B2D62797465
170 DATA 38931C7320617661696C61626C650D0A007AB32378C21BEABE77C1D1E1C9C53A1DEBB7C244EACDCBE2CD81E2C501D8270B78B1C23DEAC12127F411
171 DATA 38AA26070006B7CD8DE32127F4CDB2EAC1C22BEA78B7CA67EACDC1EACA67EACDA4E978FEFFCAA6EA3A27F4B8C8E5D5C5DA83EACDE2E2F3CDCBE2CD
172 DATA 38B12381E2AF47F1F590FE05DAA0EAF5CD8DE2F1F501803ECD0DE4F13DC291EACD73E2C1D1E1C32BEAC9F506FFCD2BEACD4CE2F1C9E506063E0086
173 DATA 3804192305C2B7EABE77E1C9C5D5E51174ED2128F406051ABEC2D7EA231305C2CCEAE1D1C1C928432920434F505952494748542031393835204A49
174 DATA 38BD0A4D204D41594E4152440D0A000D0A56455253494F4E20002052454C454153452000444F43434F4D4241535458540000000100010001000100
175 DATA 000000