1 '     Model 100 Subroutine Library
2 '     (c) 1983 by Jesse Bob Overholt
3 '     All rights reserved
4 '     US M10 Version by Don Herrick
100     CLEAR 256,62299:DEFINT A-Z:GOSUB 150:BG!=X!:AD!=X!:GOSUB 150:EN!=X!:LN=FIX((EN!-BG!+1)/2)-1
110     CLS:PRINT "M10 Subroutine ";:PRINT "Library":PRINT "     US M10 Version 1.00":PRINT
120     PRINT "One moment please ...":PRINT "Loading M10 ";:PRINT "Subroutine Library":FOR I=0 TO LN:GOSUB 150
130     H=FIX(X!/256):L=X!-H*256 :POKE AD!,L:POKE AD!+1,H:AD!=AD!+2
140     NEXT I:GOTO 200
150     READ X!:IF X!<0 THEN X!=X!+65536
160     RETURN
200     PRINT "Library load complete!":SAVEM "SUBL10",BG!,EN!,BG!
60000 DATA-3236,-2675
60001 DATA 54, 13859, 11008, 1278,-6704, 9839, 10496, 29713
60002 DATA 6643, 9054,-5290,-13853,-3204,-2988,-2900,-2835
60003 DATA 9013, 9013, 9054, 9046, 8939,-2994, 20514,-5132
60004 DATA 9054,-5290, 21026, 8692,-2993,-18562, 30495, 11095
60005 DATA 8062, 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 DATA 17920,-18406,-6702, 18419, 30732,-13641,-3069, 8979
60010 DATA 9086, 28518, 32491, 26147, 6767,-9538,-3065, 11714
60011 DATA 5108, 1315,-2622, 3571, 11722,-11788, 1761, 6659
60012 DATA 32501,-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 DATA 31855, 26522,-19238,-15373,-3181, 0, 0, 0
60016 DATA 0, 0, 0, 0, 17954, 9204, 24099, 22051
60017 DATA 20003, 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 DATA 5108, 3363,-30526,-11788, 10945,-2998, 31426, 10996
60021 DATA-3002, 9013, 9013, 9075, 9074, 8995, 9073,-13968
60022 DATA 9013, 9013, 9054, 9046, 9038, 9030,-5147,-239
60023 DATA 32511,-15069, 22442,-3866, 3855, 3855, 21418, 5983
60024 DATA 5911, 20247, 5911, 8166, 22442,-6535,-21776, 31063
60025 DATA-6633,-21536,-16033, 30731,-15695,-2883, 29665, 29219
60026 DATA-6711, 8995, 9054,-7850,-12821, 8423,-6456,-15848
60027 DATA-2827, 13803, 13603, 29475, 29219,-10973, 16101,-13047
60028 DATA 10103, 24289, 22051,-6877,-28630,-5125, 2358, 29475
60029 DATA 29219,-11807, 4890, 30535, 13859, 8960, 3813,-13054
60030 DATA-2683, 10981,-1136, 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 DATA 20369,-26500,-15545,-2688, 9195, 20003, 17955, 1569
60035 DATA 2304, 17485, 29153, 28707, 6857, 4983, 3363,-31294
60036 DATA-13835