1 'TOSC.100 by Jim Maynard (c) 1986, creates the OS for A&J Micro Drive
10 CLS:CLEAR50,54000:X=99:AA=54000
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"TOSC",54000,58200,54000: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 38EE23F3C322D34ED42BD6A5D480D525D61ADB89D6F5D6FFD5A4D323D459DB59DBD0DB59DB59DB9EDB5CDBE4D6B0D70000B3E14EE221DAFA01FED2
101 DATA 38511FCD73D321F0FACD73D32323CD73D32100FBCD73D32106FBCD73D3210AFBCD73D31E092128FBD5CD73D3D11DC24DD32146DB22F7F5AF32F5E1
102 DATA 384A1D3295E632BCE8324CE43EC332F6F5CDF4D3FBC90A7723030A772303C9F321DAFA1E1D01A0D3CD73D31DC282D31E1301A2D3CD73D31DC28ED3
103 DATA 388D213EC9CD6BD3C30205F37FDB08FE01C2D2D32B2B7E2323CDE90FFE41CAC3D3FE42CAC3D3FE58C2D2D3C3D3D3F5D641473A1CE2B8DADB08F1C1
104 DATA 38D122C1B7C97ECDE90F77FE4ACAEED3FE56CAFED3FE44CA7CD3CF46CF3AC3A9DCCDF4D3C30205CD224221B3E1CD9157C921D4E1CD91573A1DE2CD
105 DATA 38E01B1CD421DFE1CD585A3A1EE2CD1CD4CD2242C302056FAF67CDD439C9224EE2E12250E22A4EE2E5D5F5110400197EFE41C240D411F4D2C33A51
106 DATA 38591DF1D1E1224EE22A50E2E52A4EE2C9E5D5E501060009AF777BFE01CA83D4FE02C24604CD93D93E00CD36DECDA6D7FE00C2DB083602FB3E01CD
107 DATA 38FF1E3BD5D1EB23732372C3A2163E00CD8ADEC25750FBCDA6D7FE00C2DB083601CD5BD5CD4BD5D1EB23732372C3A216F1F5CD3917C221D5E5E5C1
108 DATA 38E01C11F7FF192252E2CD55D52254E2E5CD69D5112601C2CAD4112600E1E5F519C5D1010001CD04DFF1E1CA20D5CD5BD5CD2BD547234E2BCD56DF
109 DATA 387C21F578CD4BD5CD5BD547CD9FE0CD24D9FBF1CA13D523462BE5CD04E0CD62E0E1CDE6DE2A52E23600FBC3173FCD41D5CD62D5CD35D53CCD3BD5
110 DATA 382C1CE1C3EA142100002252F6C9E5D51115001977D1E1C9D5E52BC343D5D5E52BC34DD5D5E5112500197EE1D1C9D5E51125001977E1D1C9237E23
111 DATA 38D41A666FC9E52323237EE1C9E523232377E1C9E523237E2F772FB7E1C9E523232323237E2F772FB7E1C9E5D1EBCD55D5232323232256E2CDC718
112 DATA 38A923EBCD4917C2EBD5E511F7FF19CD55D5CD69D5C2DCD5CD73D5C26350CD73D5CD5BD5CDA6D8CC73D5CD41D5CD62D5E54711240019CDCAE0F5CD
113 DATA 38491C24D9FBF1C29414E1CD73D5CD73D5112600C3DFD511260119EBE1E5010001CD04DF78E14F097EFE1A373FC28A4EE52A56E277E137C38A4EC1
114 DATA 380A1CCD814CCA5A50FE01C2DB08E5CDBF184F9FCD0A34E1232323237EFE41C2A5182A56E2C3BD182A56E2C3CD177E3600FE01CA7DD6E5CD55D57E
115 DATA 38D01D3600B7E1CA7DD6E5CD55D52323D1D5E521060019E53E1AE7D11AB7CA5AD6D5C34DD6E17EB7CA65D6E5D5C34DD623462B2B4E2B3600CDA8DF
116 DATA 380A1F41CD04E0CD62E0FBE1AFC3594DE53600CD55D5AF77E1C3594DFE41C0CD93D92BD7CABDD6CF2CCF41E53E02CD36DEE5111300193600E1E5CD
117 DATA 38D91941D72A8CFC3602E136023E01CD3BD5E12BD7C3154ECDF005EB2A7CF622CEFA7B956F7A9C672B7CB5CA010522D0FA21000022D2FA3E02CD36
118 DATA 383E1FDEC3EED7FE41C0CD93D9CD46233E01CD36DEC3EED7FE41C0C1F1F5C203D72BD7C246042BD73E00373FCA18D7CF2CCF52C24604F137F53E80
119 DATA 38CD1F32A7FCF53E02CD8ADEC25750CDA6D7FE02CA61D7FE00C2DB08E53601CD5BD5CD4BD5CD41D7E1C3A64DE5CDB84B2A83FC7E23666F228CFC36
120 DATA 38EE1C0123C1712370232336412323AF772377C9C1F1CA46049F3292FC22FFEACDFF202AD0FAE5E5C12A7CF6E5CD6D6BDA173F2AAEFB0922AEFBE1
121 DATA 389F1ED122CEFAEB22D0FA2AFFEACD53D8CDF005CD283F3A92FCA7C20408C30205E5D5111300197ED1E1C9FE41C0C1E5D7C246043E01CD8ADEC257
122 DATA 387D2150CDA6D7FE01C2DB08E52AD2FA7CB5C2E1D7C1E1F1F5E5C5D2E1D7E13600C3DB08CD3125DA173FE1CD53D8C31A25E5210FD9CD27D5E12258
123 DATA 384D23E2CDEDD8CD5BD547CD9FE0DBE0E681CA0FD9CDDED8DA13D8C332D83AD0FA473AD1FAB0CA32D8234E2BCD5BD547CD57DFC2941478CD62D5C3
124 DATA 38F01CF9D7E5CD24D9E13600E5CD5BD51115001977E123462BCD04E0CD62E0CD24D5FBC302052258E2E52101D9CD27D5E13E00325AE2CD5BD5CDA6
125 DATA 38C51ED8C271D83EFF325AE2CD5BD547E511240019CDCAE0E1C29414DBE0E681CA94143A5AE2B7C2B0D8010002CDCCD8CD5BD547234E2BCD7BDF78
126 DATA 383922CD62D5C363D8E5D511150019BED1E1C9E5CD24D92AD0FAE5C1E1CDCCD8FB3600CD24D5C9E511260019EBE1C9E5CDC4D82ACEFACD04DF22CE
127 DATA 389822FACDDED8E1C9D5E52AD0FA1100FE1922D0FAE1D1C9E5CDC4D82ACEFAEB010002CD04DFEB22CEFAE1C92A58E23600CD24D9CDFF20C31ED9CD
128 DATA 38302124D92A58E223462BCD52E0CDE6DECD24D5C39414F3CD86D9CD86D9CD37D9CD81D9CD86D9CD86D9E52188132B7DB4C23BD93E67D3B2AF32F5
129 DATA 385C21E1E1C921F6E1C36BD921FEE10604C36DD921F6E1C368D921FCE1C368D92102E2CD24D906067EF3B7C486D9CC81D92305C26DD93EFF32F5E1
130 DATA 384326C93EC2C388D93E42D3B2E6BFD3B2F640D3B2C9F5F33E42D3B2DBB3E610FBCADB08F1C9F33EFFD3B13EC2D3B2DBE0E681C2B9D9CD24D9C394
131 DATA 38862614C9F3CD65D93EC2D3B2CDA3D9DBB3E610C2C2D9CDECDACD24D9FBC9CDA3D906283E42D3B205CA0EDACDE1DACDE1DACDE1DACDE1DACDE1DA
132 DATA 382623003EC2D3B2CDE1DACDE1DACDE1DACDE1DACDE1DA00C3D9D9CD24D9C394147E060800CDE1DA174FDA40DA003EC2D3B2DBE0E681CA08DADBB3
133 DATA 38B51B2FE610C07BB2C83E42D3B27905C211DA231B06087EC315DA3E42D3B2DBE0E681CA08DADBB32FE610C07BB2C83EC2D3B27905C211DA231B06
134 DATA 384923087EC315DAC5D5E5F3CDA3D9DBB3E6204FDBB3E620B9CA69DAE1D106C6CDF8DA0E01C391DADBE0E681CA08DACDE1DA0000DBB3E62047DBB3
135 DATA 389B1FE620B8CA96DA17171779174FD285DAC1B8C265DA0E01E5E1C3BFDADBE0E681CA08DACDE1DA0000DBB3E62047DBB3E620B8CAC4DA17171779
136 DATA 38A61B174FD2B3DA77231B0E017BB20000C2BFDAC90100000B78B1C2E5DAC91120030601CDC572CDA3D9C9C5DBE0E681CA08DA00DBB3E62047DBB3
137 DATA 381720E620B8CA06DB1717177917C1B84FC2F8DAC9C1CDD7082BD7E52AF4F5E5C12A67FBCA4041E1CF2CD5CD97122BD7C24604E3EB7CA7F2DB08D5
138 DATA 38092111F1D2C32D41CD24D9CD15DE2195E6CDE6DE21BCE8CDE6DEC9C34604FE41C0CD93D9C13A99FCFE20CA4E503AA2FCFE20CA4E503E02CD8ADE
139 DATA 38681CCADB08CD4C223E02CD8ADEC25750119CFCE5010A00090DCD04DFE123462BCD04E0CD62E0FBC9FE41C0CD93D9C1CD8ADEC2575023462BCD52
140 DATA 383320E0CD62E0FBC93E2FE7E50602CDE01BE12323C9CDB9DBCDB6DBCDB6DB3E20E7C9C1CD7FE1CD22422108E2CD9157CDDCDD2111E2CD585A2143
141 DATA 38C21EE40608CDE01BCD2242CD2242061CC5CD09DCC105F2F6DBCD2242CDAEDDFBC30205C5CDBDDFC17EB7C214DCC9C5E50606CDE01B3E2EE7E1E5
142 DATA 381019010600090603CDE01BCDA2DCE1E5010900097EFE00CA47DCFE02CA42DC3E2EC349DC3E23C349DC3E2AE7CDA2DCE101120009CDC3DBC12139
143 DATA 384D1DE378010000BE23C263DC040DC25DDC78373F1FF5FE64D280DCF53E20E7F1FE0AD280DCF53E20E7F126006FCDD439F12122E2D290DC211FE2
144 DATA 38A41ECD585A2139E20608CDE01BCD2242CD25DEC93E20E73E20E7C9E5CD93D9CDBAD9CD5FD9CD15DEE11139E406087EFE00CACEDCFE22CACEDC12
145 DATA 38511B231305C2BCDC2139E30100FF70230DC2D4DC21E6EACDEFDD060521E6EA114CE47E12132305C2E8DC3EC632E3EA3EB732E4EA2143E4CD2F19
146 DATA 380120F3CDE2DA215DE236C62336A923CDEBE00600C57832E5EA21E5EACD8AE121E3EA110C00CDD4D9F501C800CDE5DAF1C249DD215DE2E52323CD
147 DATA 385C22EBE0E1116602CDD4D9C249DDC104C312DDCD59D9C178D603F5CDECDA06FF04C5215FE2CDCAE0C2A8DDC1F1F590C256DDCD5FD9218EE41102
148 DATA 38202002CD1BDEDBB3E610C274DDCD59D9F1F5213BE33600233DC283DDF13242E4010080F3CDE5DACD62E0CDECDAFB2125E2CD9157CDAEDDC30205
149 DATA 38A219CD24D9C394142139E33E00010000BE23C2BCDD040DC2B6DD78373F1FF526006FCDD439F1D2D5DD211FE2CD585A2139E2CD585AC92139E406
150 DATA 38881B08CDE01BC921EDEACD2F19CD0F19C9E5CDE5DD21EDEAD10E05CD03DE12130DC2F9DDC97E23D63017171717E6F0477ED630802323C9215DE2
151 DATA 38842011AA083600231B7AB3C21BDEC9E5D5C5FBCDCB12018813CDE5DAC1D1E1C9CD7FE1F5CDB7DECD1CE0C24ADECD52E0F1C339DEF1E511130019
152 DATA 384A1D77E1CDDBDFCA5EDECDE6DEC3665023702BE5483AFFEA3CFE04D26EDE3E0547CD57DFC2173FE1E51114001970E178CD62D523462BCD04E036
153 DATA 388F1D02C9CD7FE1CDB7DECD1CE0C023702BE501160009EB21CEFA010600CD04DFE1CDAFDECD62D5AFC9E5011400097EE1C9CD35DF2195E67EB7CA
154 DATA 381C1EC5DE21BCE87EB7C26650CDE6DE1193FCCDF7DECD0FDFE50116000911CEFA010600CD04DFE1C9C5E50125023600230B78B1C2EBDEE1C1C9E5
155 DATA 385A16C5010A00090DCD04DFC1E1C91A7723130B78B1C204DFC9C5D5E521EDEACD2F1921EDEAEBE1E5011C000906031A7723131A7723131305C224
156 DATA 381B1CDFE1D1C1C9E5F51199FC1AFE20C253DFF1F547808006004F21E9E109EB010300CD04DFF1E1C904D5E5591602044806002139E3C26EDF15C2
157 DATA 38211D6EDF15C377DF097E41B7C25CDF73AFE1D1C904D5E516025904C288DF15CA98DF2139E3480600097EBB41C280DFE1D1C93EFFB7C395DF0600
158 DATA 38531FCDA8DF04C2A0DFC9C5E5D52139E37948060009BEC2B9DF3600D1E1C1C9F578D608DACEDFCACEDF47217AE4C3D1DF2149E21118001905F2D4
159 DATA 381324DFF1C9061CE5D5C5CDBDDFC17EB7CAEEDF05C2DFDF05D1E1C9C5D5E5CDBDDF061836002305C2F9DFE1D1C1C9C5D5E5CDBDDFEBE1E5010A00
160 DATA 38AE1B09EB011800CD04DFE1D1C1C9D5E5061CC5CDBDDFEBC1E1E5C5010A00090D1ABECA39E07EFE2AC24AE013230DC22EE0010F00CD04DFC1AFC3
161 DATA 3830244FE0C105F220E0E1D1C9D5E5C548CD9EDFC1C5CDF1DFC1E1D1C9E5D5C5213BE20600CD9FE0216CE40601CD9FE0CD24D9C1D1E1C9E5D5C506
162 DATA 38772000215FE2CDCAE0C292E006012190E4CDCAE0F5CD24D9FBF1C29414C1D1E1C9E5D5C511220019E536C62336A923CDEBE0CD03E1CD51D901F4
163 DATA 38A02101CDE5DAE1110D02CDD4D9CD4BD9C1D1E1C91602D5C5E5CD03E1E1E511030206A9CD65DAE1E5CDEBE0E1C1D1C815C2CCE015C9E5D5C51102
164 DATA 38071E023E0086471B7AB32378C2F3E0BE77C1D1E1C9C53AF5E1B7C21CE1CDA3D9CD59D9C501D8270B78B1C215E1C121FFEA11070006B7CD65DA21
165 DATA 38D628FFEACD8AE1C1C203E178B7CA3FE1CD99E1CA3FE1CD7CE078FEFFCA7EE13AFFEAB8C8E5D5C5DA5BE1CDBAD9F3CDA3D9CD59D9AF47F1F590FE
166 DATA 38CB2105DA78E1F5CD65D9F1F501803ECDE5DAF13DC269E1CD4BD9C1D1E1C303E1C9F506FFCD03E1CD24D9F1C9E506063E00862305C28FE1BE77E1
167 DATA 38D415C9C5D5E5114CE42100EB06051ABEC2AFE1231305C2A4E1E1D1C1C928432920434F505952494748542031393835204A494D204D41594E4152
168 DATA 388A08440D0A000D0A56455253494F4E20002052454C454153452000444F43434F4D42415354585400000001000100010001000100000000000100
169 DATA 38470E0D0A4E616D653A200020437265617465643A20000005012E35002E30000D0A466F726D617420636F6D706C6574650D0A00204B2D62797465
170 DATA 38361C7320617661696C61626C650D0A00C8E20E01C361E2DBE0E681CAD8E1CDB1E20000DBB3E62047DBB3E620B8CA66E217171779174FD255E2C1
171 DATA 38A31DB8C235E20E01E5E1C38FE2DBE0E681CAD8E1CDB1E20000DBB3E62047DBB3E620B8CA94E217171779174FD283E277231B0E017BB20000C28F
172 DATA 38651EE2C90100000B78B1C2B5E2C91120030601CDC572CD73E1C9C5DBE0E681CAD8E100DBB3E62047DBB3E620B8CAD6E21717177917C1B84FC2C8
173 DATA 38B522E2C9C1CDD7082BD7E52AF4F5E5C12A67FBCA4041E1CF2CD5CD97122BD7C24604E3EB7CA7F2DB08D511C1DAC32D41CDF4E0CDE5E52165EECD
174 DATA 38941EB6E6218CF0CDB6E6C9C34604FE41C0CD63E1C13A99FCFE20CA4E503AA2FCFE20CA4E503E02CD5AE6CADB08CD4C223E02CD5AE6C25750119C
175 DATA 000000