1 '     Model 100 Subroutine Library
2 '     (c) 1983 by Jesse Bob Overholt
3 '     All rights reserved
100 CLEAR256,62299:DEFINTA-Z:GOSUB150:BG!=X!:AD!=X!:GOSUB150:EN!=X!:LN=FIX((EN!-BG!+1)/2)-1
110 CLS:PRINT"Model 100 Subroutine ";:PRINT"Library":PRINT"          Version 1.00":PRINT
120 PRINT"One moment please ...":PRINT"Loading Model 100 ";:PRINT"Subroutine Library":FORI=0TOLN:GOSUB150
130 H=FIX(X!/256):L=X!-H*256:POKEAD!,L:POKEAD!+1,H:AD!=AD!+2
140 NEXTI:GOTO200
150 READX!:IFX!<0THENX!=X!+65536
160 RETURN
200 PRINT"Library load complete!":SAVEM"SUBLIB",BG!,EN!,BG!
60000 DATA-3236,-2675
60001 DATA54,13859,11008,1278,-6704,9839,10496,29713
60002 DATA6643,9054,-5290,-13853,-3204,-2988,-2900,-2835
60003 DATA9013,9013,9054,9046,8939,-2994,20514,-5132
60004 DATA9054,-5290,21026,8692,-2993,-18562,30495,11095
60005 DATA8062,24439,-14158,20522,32244,28563,-25988,8807
60006 DATA-2998,33,8704,-3000,18474,8948,-3002,20010
60007 DATA-5132,17962,6644,19490,17652,10573,-5367,21034
60008 DATA-6668,17962,17652,10573,-16119,-5367,-6903,3797
60009 DATA17920,-18406,-6702,18419,30732,-13641,-3069,8979
60010 DATA9086,28518,32491,26147,6767,-9538,-3065,11714
60011 DATA5108,1315,-2622,3571,11722,-11788,1761,6659
60012 DATA32501,-3822,9079,1299,3010,10996,-2994,10987
60013 DATA-3002,-27779,31855,26522,17954,-11532,-3142,12227
60014 DATA-11788,10977,-2998,10987,-3000,8739,-3000,-27779
60015 DATA31855,26522,-19238,-15373,-3181,0,0,0
60016 DATA0,0,0,0,17954,9204,24099,22051
60017 DATA20003,17955,2595,-14153,20165,17955,32481,12835
60018 DATA-3000,9086,28518,18978,6900,-13634,-2942,2835
60019 DATA-20104,-15416,-2955,-10811,18490,20468,-16870,-27710
60020 DATA5108,3363,-30526,-11788,10945,-2998,31426,10996
60021 DATA-3002,9013,9013,9075,9074,8995,9073,-13968
60022 DATA9013,9013,9054,9046,9038,9030,-5147,-239
60023 DATA32511,-15069,22442,-3866,3855,3855,21418,5983
60024 DATA5911,20247,5911,8166,22442,-6535,-21776,31063
60025 DATA-6633,-21536,-16033,30731,-15695,-2883,29665,29219
60026 DATA-6711,8995,9054,-7850,-12821,8405,-6456,-15848
60027 DATA-2827,13803,13603,29475,29219,-10973,16101,-13047
60028 DATA10077,24289,22051,-6877,-30166,-5125,2358,29475
60029 DATA29219,-11807,4890,30535,13859,8960,3813,-13054
60030 DATA-2683,10981,-1142,1550,-31283,14069,9006,526
60031 DATA-31283,-7691,24291,22051,-6536,-15840,-2700,-6536
60032 DATA-13760,-2722,1,6656,787,6910,21442,-15371
60033 DATA-2688,19266,24299,22051,-19590,24770,9205,32035
60034 DATA20369,-26500,-15545,-2688,9195,20003,17955,1569
60035 DATA2304,17485,29153,28707,6857,4983,3363,-31294
60036 DATA-13835