IMD 1.16: 7/06/2007 21:05:32 ORBIT LBRe ORC LBRkOREMOTE LBR OS-CIO OSB!"OS-SCRN LBR #OS1DISTMLBR$OS1FK LBR|%&'()*+,OS1SET LBR?-./0OSBASGAMLBRb123456789:;<=>?OSBASIC LBRe@ABCDEFGHIJKLMNOSBATLSHBQS'OPQOSBDSCIOCQ !RSTOSBIOS DQC@UVWXOSBKYBD AQMYOSBPLINKAQMPZ[\]^OSBPLINKLBRA_`abcdefghijkOSBRIDGELBRflmnopqrstuvwxyzOSBSETAULBR{|OSBYEZ2 AQMi}~OSCDIR COM OSCDIR DQC OSCHG COMOSCOM NQTOSCONT BQSOSCPR DQCOSCPR LBRUOSD41 COMOSD95 LBRGOSDOC LBRyOSDUALIOAQMBOSFORMATLBROSFORMATLBRf-PUBDOM 045 ORBIT BASORBIT TXT 10 REM ------------------------------------------------------------------------ 20 REM ******** ******** 30 REM ******** AMSAT ORBITAL PREDICTION PROGRAM ******** 40 REM ******** Written by: Dr. Thomas A. Clark, W3IWI ******** 50 REM ******** Converted for use with the IBM Personal Computer by: ******** 60 REM ******** Robert J. Diersing, N5AHD ******** 70 REM ******** May 31, 1982 ******** 80 REM ******** ******** 90 REM ------------------------------------------------------------------------ 92 REM ******** The subroutines equivalent to the functions used in ******** 93 REM ******** original North Star version of this program can be ******** 94 REM ******** found at the line numbers indicated. ******** 95 REM ******** ******** 96 REM ******** FNA(X,Y) at line 10040 - FNC(T) at line 10146 ******** 97 REM ******** FNO(D) at line 10550 - FNX(T) at line 10660 ******** 98 REM ******** FNM(T) at line 10345 - FNK(M) at line 10400 ******** 99 REM ------------------------------------------------------------------------ 120 DEFDBL A-Z : REM *** DEFAULT ALL DOUBLE PRECISION *** 130 DIM T$(20),S$(40),I$(40),C(3,2) : P = 0 : REM *** P = PAGE COUNTER *** 140 DIM C1$(50),X(4,9) : REM *** PLACE HOLDERS FOR STATION NAME / COORD *** 150 DIM S(10),T1$(20) : REM *** PLACE HOLDERS FOR MULTI-SATELLITE LOOP *** 154 I1$ = "###" : I2$ = "##/##/##" : I3$ = "##:##" 156 I4$ = "###.########" : I5$ = "##." : I6$ = "+###.##" 157 I7$ = "#####" : I8$ = "+#.########" : I9$ = "####.########" 158 I10$ = "##:##:##" : I11$ = "###.##" 168 STATION.RECSIZE% = 143 : ELEMENT.RE24 + M / 1440 940 INPUT " DURATION: Hours = ",H1 950 INPUT " Minutes = ",M1 : T8 = T7 + H1 / 24 + M1 / 1440 960 INPUT " TIME STEP: Minutes = ",M2 : T9 = M2 / 1440 970 PRINT : PRINT TAB(22);"Is data above correctly specified "; : INPUT DUMMY$ 980 IF DUMMY$ = "N" OR DUMMY$ = "NO" THEN GOTO 834 1000 REM ---------------------------------------------------------------------- 1010 REM *** GET VARIOUS PHYSICAL CONSTANTS *** 1020 RESTORE 2510 : READ P1,C,R0,F,G0,G1 1030 P2 = P1 * 2 : P0 = P1 / 180 : F = 1 / F 1040 READ Y1,G2 : IF Y1 = Y2 THEN 1090 ELSE IF Y1 > 0 THEN GOTO 1040 1050 PRINT : PRINT "Unable to find year ";Y2;" in Sidereal Time Table" : STOP 1070 REM ---------------------------------------------------------------------- 1080 REM *** SELECT OBSERVING STATIONS *** 1090 GOSUB 30000 : REM *** OPEN THE STATION INFORMATION FILE *** 1100 PRINT CHR$(26): PRINT TAB(29);"STATION SELECTION MENU" 1110 PRINT : SR% = 1 1112 PRINT TAB(16);"STATION";TAB(30);"W LONG";TAB(41);"CSIZE% = 174 169 MAX.STATIONS% = 4 : MAX.SATELLITES% = 10 170 REM ----------------------------------------------------------------------- 180 GOSUB 2650 : REM *** REINITIALIZATION FOR MULTIPLE PASSES *** 200 REM ----------------------------------------------------------------------- 210 PRINT CHR$(26): REM *** SIGNON HEADER AND DISCLAIMER *** 220 PRINT " AMSAT ORBITAL PREDICTION PROGRAM" 230 PRINT " Written by Dr. Thomas A. Clark, W3IWI" 240 PRINT " Converted for use with the IBM Personal Computer by:" 250 PRINT " Robert J. Diersing, N5AHD" 260 PRINT 270 PRINT " Copyright (c) 1980 by:" 280 PRINT " Dr. Thomas A. Clark, W3IWI" 290 PRINT " 6388 Guilford Road" 292 PRINT " Clarksville, MD 21029" 294 PRINT 296 PRINT " Permission granted for non-commercial use providing credit is given" 298 PRINTN LAT"; 1114 PRINT TAB(50);"HEIGHT";TAB(60);"MIN ELEVATION" : PRINT 1120 REM *** READ AND DISPLAY ONE STATION RECORD *** 1130 GET #1, SR% 1132 W9 = CVD(W9$) : L9 = CVD(L9$) : H9 = CVD(H9$) : E8 = CVD(E8$) 1140 PRINT TAB(10); 1142 PRINT USING I5$;SR%; : PRINT TAB(16);C$; 1144 PRINT TAB(30); : PRINT USING I6$;W9; 1146 PRINT TAB(40); : PRINT USING I6$;L9; 1148 PRINT TAB(50); : PRINT USING I1$;H9; 1150 PRINT TAB(60); : PRINT USING I6$;E8 1160 IF SR% < INT(LOF( 1)/STATION.RECSIZE%) THEN SR% = SR% + 1 : GOTO 1130 1162 PRINT : PRINT TAB(16);"FIRST STATION WILL BE MASTER STATION" 1164 PRINT TAB(16);"YOU MAY CHOOSE UP TO 4 OTHERS" : PRINT 1170 K9 = 0 1180 PRINT CHR$(7);TAB(16);"SELECT STATION NUMBER ";K9;" <0 TO END> "; 1182 INPUT K% 1200 IF K% <= 0 THEN GOTO 1270 1210 IF K% > INT(LOF( 1)/STATION.RECSIZE%) THEN GOTO 1180 1220 SR% = K% : GET #1, SR% : K5 = K9 1230 W9 = CVD(W9$) : L9 = CVD(L9$) : H9 = CVD(H9$) : E8 = CVD(E8$) 1240 GOSUB 10520 : REM *** REPLACES FNO(D) *** 1250 X(K5,0) = 0 : X(K5,1) " to the author, AMSAT and ORBIT Magazine." 300 PRINT CHR$(7) 320 REM ----------------------------------------------------------------------- 830 REM *** SET STARTING DAY/TIME, DURATION, STEP SIZE, AND INITIALIZE *** 832 PRINT : PRINT TAB(28);"To continue press return "; : INPUT DUMMY$ 833 IF DUMMY$ = "END" OR DUMMY$ = "EOJ" THEN STOP 834 PRINT CHR$(26): PRINT TAB(25);"INITIALIZE STARTING PARAMETERS" : PRINT 836 INPUT " START DATE: Year = ",Y 838 Y = Y / 100 : Y2 = INT(100 * (Y - INT(Y)) + .1) 840 IF Y2 / 4 = INT(Y2 / 4) THEN F9 = 1 ELSE F9 = 0 850 INPUT " Month = ",MONTH 852 INPUT " Day = ",DAY 880 REM *** CALCULATE D8 = DAY#, MONTH #13 = JANUARY OF NEXT YEAR *** 890 RESTORE 2480 : FOR I% = 1 TO MONTH : READ D9 : NEXT I% : D8 = DAY + D9 900 IF M > 2 THEN D8 = D8 + F9 902 PRINT " Julian = "; : PRINT USING I1$;D8 910 INPUT " START UTC: Hours = ",H 920 INPUT " Minutes = ",M : T7 = D8 + H /  = X9 : X(K5,2) = Y9 : X(K5,3) = Z9 : X(K5,4) = 0 1260 X(K5,5) = E8 : X(K5,6) = S8 : X(K5,7) = C8 : X(K5,8) = S9 : X(K5,9) = C9 1262 C1$(K5) = C$ : K9 = K9 + 1 : IF K9 <= MAX.STATIONS% THEN GOTO 1180 1270 ? CHR$(26): PRINT TAB(22);"THE FOLLOWING STATIONS HAVE BEEN CHOSEN:" : PRINT 1272 FOR I% = 0 TO MAX.STATIONS% : PRINT TAB(35);C1$(I%) : NEXT I% 1274 PRINT : PRINT TAB(32);"Is this correct"; : INPUT DUMMY$ 1276 IF DUMMY$ = "N" THEN GOTO 1100 1290 CLOSE #1 1300 REM ---------------------------------------------------------------------- 1310 REM *** READ AND DISPLAY SATELLITES FROM THE ELEMENT SET FILE *** 1320 PRINT CHR$(26): PRINT TAB(28);"SATELLITE SELECTION MENU" : PRINT 1322 PRINT TAB(10);"SATELLITE NAME";TAB(36);"OBJECT";TAB(46);"IDENTIFIER"; 1324 PRINT TAB(60);"UPDATED";TAB(72);"SET NO." 1326 PRINT 1330 GOSUB 30100 : REM *** OPEN THE ELEMENT SET FILE *** 1332 FOR EK% = 1 TO INT(LOF( 2)/ELEMENT.RECSIZE%) : GET #2, EK% 1333 ES.NUMBER = CVD(ELEMENT.SET$) 1334 PRINT TAB( 4); : PRINT USING I5$rbit Program" 1650 PRINT TAB(20);"Revisions as of 10 January 1982 by W3IWI" 1652 PRINT TAB(8);"Conversion for IBM Personal Computer as of 31 May 1982 by N5AHD" 1654 PRINT "-------------------------------------------------------------------------------" 1655 LPRINT "-------------------------------------------------------------------------------" 1660 PRINT TAB(5);"Satellite Name = ";LEFT$(S$,18);"|"; 1661 LPRINT TAB(5);"Satellite Name = ";LEFT$(S$,18);"|"; 1670 PRINT TAB(44);"Reference Epoch = "; 1671 LPRINT TAB(44);"Reference Epoch = "; 1672 PRINT USING I1$;Y3; : PRINT " + "; : PRINT USING I4$;T0 1673 LPRINT USING I1$;Y3; :LPRINT " + "; :LPRINT USING I4$;T0 1680 PRINT TAB(9);"Identifier = ";IDENTIFIER$;TAB(40);"|"; 1681 LPRINT TAB(9);"Identifier = ";IDENTIFIER$;TAB(40);"|"; 1682 PRINT TAB(45);"Starting Epoch = "; 1683 LPRINT TAB(45);"Starting Epoch = "; 1690 PRINT USING I1$;Y2; : PRINT " + "; : PRINT USING I4$;T7 1691 LPRINT USING I1$;Y2; :LPRINT " + "; :LPRINT USING I4$;T7 1694 PRINT TAB(2);;EK%; 1336 PRINT TAB( 8);S$;TAB(36);OBJECT.NUMBER$;TAB(48);IDENTIFIER$; 1338 PRINT TAB(60);ISSUE.DATE$;TAB(72); 1340 PRINT USING I1$;ES.NUMBER 1342 NEXT EK% 1344 IF EK% = > 1 THEN 1370 ELSE S(0) = 1 : S(1) = 1 : GOTO 1470 1370 PRINT : PRINT CHR$(7);TAB(22);"Select 1st satellite # <0 for all> "; 1380 INPUT J% : IF J% > 0 THEN GOTO 1410 ELSE S(0) = MAX.SATELLITES% 1400 FOR J% = 1 TO MAX.SATELLITES% : S(J%) = J% : NEXT J% : GOTO 1470 1410 S(0) = 1 : S(1) = J% 1412 PRINT TAB(20);"Select additional satellites <0 ends list> " 1414 J% = 2 1416 PRINT TAB(32);"Satellite # ";J%;" "; : INPUT K% 1430 IF K% <= 0 OR K% >= MAX.SATELLITES% THEN GOTO 1470 1440 S(0) = J% : S(J%) = K% : J% = J% + 1 : GOTO 1416 1450 REM ---------------------------------------------------------------------- 1460 REM *** OUTER LOOP THROUGH ALL REQUESTED SATELLITES *** 1470 FOR J4% = 1 TO S(0) 1480 EK% = S(J4%) : GET #2, EK% 1482 Y3 = CVD(Y3$) : D3 = CVD(D3$) 1484 H3 = CVD(H3$) : M3 = CVD(M3$) : S3 = CVD(S3$) 1486 K0 = CVD(K0$)"Start Date & Time = "; 1695 LPRINT TAB(2);"Start Date & Time = "; 1696 PRINT USING I2$;Y2;MONTH;DAY; : PRINT " at "; : PRINT USING I3$;H;M; 1697 LPRINT USING I2$;Y2;MONTH;DAY; :LPRINT " at "; :LPRINT USING I3$;H;M; 1700 PRINT TAB(40);"|";TAB(44);"Element Set Age = "; 1701 LPRINT TAB(40);"|";TAB(44);"Element Set Age = "; 1702 PRINT USING I4$;T7-T0; : PRINT " Days" 1703 LPRINT USING I4$;T7-T0; :LPRINT " Days" 1710 PRINT TAB(11);"Duration = "; : PRINT (T8-T7)*1440;" Minutes";TAB(40);"|"; 1711 LPRINT TAB(11);"Duration = "; :LPRINT (T8-T7)*1440;" Minutes";TAB(40);"|"; 1712 PRINT TAB(44);"Element Set No. = ";ES.NUMBER 1713 LPRINT TAB(44);"Element Set No. = ";ES.NUMBER 1714 PRINT TAB(11);"Duration = "; : PRINT (T8-T7)*24;" Hours";TAB(40);"|"; 1715 LPRINT TAB(11);"Duration = "; :LPRINT (T8-T7)*24;" Hours";TAB(40);"|"; 1716 PRINT TAB(50);"Step Size = ";T9*1440;" Minutes" 1717 LPRINT TAB(50);"Step Size = ";T9*1440;" Minutes" 1750 PRINT "------------------------------------------------------------------ : M0 = CVD(M0$) : N0 = CVD(N0$) : A0 = CVD(A0$) 1488 N1 = CVD(N1$) : I0 = CVD(I0$) : E0 = CVD(E0$) : W0 = CVD(W0$) 1490 O0 = CVD(O0$) : F1 = CVD(F1$) 1492 ES.NUMBER = CVD(ELEMENT.SET$) 1500 IF S(0) > 1 THEN GOTO 1540 : REM *** SUPRESS DOPPLER INQUIRY *** 1510 PRINT : PRINT TAB(17);"Doppler calculated for frequency = ";F1;" MHz" 1520 PRINT TAB(22);"Change frequency to <0 for default> "; : INPUT D 1530 IF D <> 0 THEN F1 = D 1535 ' PATCH BELOW....JRM 1540 GOTO 1590:'IF Y3 = Y2 THEN GOTO 1590 ELSE PRINT "ELEMENTS NOT FROM CURRENT YEAR" 1550 GOTO 2360 1560 REM *** IF D3 IS AN INTEGER THEN EPOCH IS ASSUMED TO BE HH:MM:SS *** 1580 REM *** IF D3 IS NOT AN INTEGER THEN D3 IS EPOCH IN DAYS + FRACTIONS *** 1590 IF D3 = INT(D3) THEN T0 = D3 + H3/24 + M3/1440 + S3/86400! ELSE T0 = D3 1610 REM ---------------------------------------------------------------------- 1620 REM *** PRINTOUT SUMMARY OF ELEMENTS AND OTHER INFORMATION *** 1630 GOSUB 2380 1640 PRINT TAB(14);"IBM Personal Computer Version OF W3IWI O-------------" 1751 LPRINT "-------------------------------------------------------------------------------" 1760 PRINT TAB(14);"Parameter";TAB(31);"At Reference Epoch"; 1761 LPRINT TAB(14);"Parameter";TAB(31);"At Reference Epoch"; 1762 PRINT TAB(54);"At Starting Epoch" 1763 LPRINT TAB(54);"At Starting Epoch" 1780 PRINT TAB(9);"--------------------";TAB(30);"--------------------"; 1781 LPRINT TAB(9);"--------------------";TAB(30);"--------------------"; 1782 PRINT TAB(52);"--------------------" 1783 LPRINT TAB(52);"--------------------" 1800 REM *** INITIALIZE EPOCH T BY CALLING FNC & FNM *** 1810 T = T7 : GOSUB 10110 : GOSUB 10310 1820 PRINT TAB(9);"Orbit Number"; 1821 LPRINT TAB(9);"Orbit Number"; 1822 PRINT TAB(34); : PRINT USING I7$;K0; : PRINT TAB(56); : PRINT USING I7$;K 1823 LPRINT TAB(34); :LPRINT USING I7$;K0; :LPRINT TAB(56); :LPRINT USING I7$;K 1830 PRINT TAB(9);"Mean Anomoly"; 1831 LPRINT TAB(9);"Mean Anomoly"; 1832 PRINT TAB(35); : PRINT USING I9$;M0; 1833 LPRINT TAB(35); :LPRI TAB(57); : PRINT USING I9$;O 1925 LPRINT TAB(57); :LPRINT USING I9$;O 1930 PRINT TAB(9);"Beacon Frequency"; 1931 LPRINT TAB(9);"Beacon Frequency"; 1932 PRINT TAB(35); : PRINT USING I9$;F1; : PRINT TAB(72); 1933 LPRINT TAB(35); :LPRINT USING I9$;F1; :LPRINT TAB(72); 1934 K9 = 9000000000# : K8 = 9000000000# : D0 = 2# 1950 REM ---------------------------------------------------------------------- 1960 REM ****** HERE FOLLOWS THE ACTUAL COMPUTATION LOOP ****** 1968 T = T7 : REM *** FOR/NEXT NOT USED - ILLEGAL FOR DOUBLE PRECISION *** 1970 REM *** BEGINNING OF COMPUTATION LOOP *** 1972 IF K5 < 1 THEN 2000 1980 R6 = X(0,0) : X9 = X(0,1) : Y9 = X(0,2) : Z9 = X(0,3) : T6 = X(0,4) 1990 E8 = X(0,5) : S8 = X(0,6) : C8 = X(0,7) : S9 = X(0,8) : C9 = X(0,9) 2000 K7 = INT(T) : GOSUB 10345 2010 REM *** IF NEW ORBIT, UPDATE THE VALUES FOR W AND O 2020 IF K = K9 THEN 2040 : GOSUB 10110 : K8 = 9000000000# : K9 = 9000000000# 2030 REM *** ABOVE MINIMUM SPECIFIED ELEVATION OR IS IT NEW DATE? *** 2040 GOSUB 10400NT USING I9$;M0; 1834 PRINT TAB(57); : PRINT USING I9$;M/P0 1835 LPRINT TAB(57); :LPRINT USING I9$;M/P0 1840 PRINT TAB(9);"Inclination"; 1841 LPRINT TAB(9);"Inclination"; 1842 PRINT TAB(35); : PRINT USING I9$;I0 1843 LPRINT TAB(35); :LPRINT USING I9$;I0 1850 PRINT TAB(9);"Eccentricity"; 1851 LPRINT TAB(9);"Eccentricity"; 1852 PRINT TAB(35); : PRINT USING I9$;E0 1853 LPRINT TAB(35); :LPRINT USING I9$;E0 1860 PRINT TAB(9);"Mean Motion"; 1861 LPRINT TAB(9);"Mean Motion"; 1862 PRINT TAB(35); : PRINT USING I9$;N0; 1863 LPRINT TAB(35); :LPRINT USING I9$;N0; 1864 PRINT TAB(57); : PRINT USING I9$;N 1865 LPRINT TAB(57); :LPRINT USING I9$;N 1870 PRINT TAB(9);"Drag Correction"; 1871 LPRINT TAB(9);"Drag Correction"; 1872 PRINT TAB(37); : PRINT USING I8$;N1 1873 LPRINT TAB(37); :LPRINT USING I8$;N1 1880 PRINT TAB(9);"Semi-Major Axis"; 1881 LPRINT TAB(9);"Semi-Major Axis"; 1882 PRINT TAB(35); : PRINT USING I9$;A0; 1883 LPRINT TAB(35); :LPRINT USING I9$;A0; 1884 PRINT TAB(57); : PRINT USING I9$;A 1 : GOSUB 10660 : IF E9 < E8 THEN GOTO 2350 2070 REM *** SATELLITE IS ABOVE HORIZON, TEST ORBIT NO AND DATE *** 2080 IF K7 = K8 AND K9 = K THEN 2200 2140 IF K = K9 THEN 2190 ELSE GOSUB 2380 : K9 = K 2142 REM ---------------------------------------------------------------------- 2144 REM ****** HEADING FOR A NEW ORBIT OF NEW DAY ****** 2146 IF K5 > 0 THEN GOTO 2177 2150 PRINT TAB(3);"U.T.C.";TAB(12);"AZIMUTH";TAB(21);"ELEVATION"; 2151 LPRINT TAB(3);"U.T.C.";TAB(12);"AZIMUTH";TAB(21);"ELEVATION"; 2152 PRINT TAB(32);"DOPPLER";TAB(41);"RANGE";TAB(48);"HEIGHT"; 2153 LPRINT TAB(32);"DOPPLER";TAB(41);"RANGE";TAB(48);"HEIGHT"; 2154 PRINT TAB(56);"N LAT";TAB(63);"W LONG";TAB(71);"PHASE" 2155 LPRINT TAB(56);"N LAT";TAB(63);"W LONG";TAB(71);"PHASE" 2170 PRINT TAB(2);"HH:MM:SS";TAB(12);"Degrees";TAB(22);"Degrees"; 2171 LPRINT TAB(2);"HH:MM:SS";TAB(12);"Degrees";TAB(22);"Degrees"; 2172 PRINT TAB(35);"Hz";TAB(42);"Km";TAB(50);"Km";TAB(57);"Deg"; 2173 LPRINT TAB(35);"Hz";TAB(42);"Km";TAB(50);"Km";TAB(57);"Deg885 LPRINT TAB(57); :LPRINT USING I9$;A 1890 PRINT TAB(9);"Perigee Height"; 1891 LPRINT TAB(9);"Perigee Height"; 1892 PRINT TAB(35); : PRINT USING I9$;A0*(1-E0)-R0; 1893 LPRINT TAB(35); :LPRINT USING I9$;A0*(1-E0)-R0; 1894 PRINT TAB(57); : PRINT USING I9$;A*(1-E0)-R0 1895 LPRINT TAB(57); :LPRINT USING I9$;A*(1-E0)-R0 1900 PRINT TAB(9);"Apogee Height"; 1901 LPRINT TAB(9);"Apogee Height"; 1902 PRINT TAB(35); : PRINT USING I9$;A0*(1+E0)-R0; 1903 LPRINT TAB(35); :LPRINT USING I9$;A0*(1+E0)-R0; 1904 PRINT TAB(57); : PRINT USING I9$;A*(1+E0)-R0 1905 LPRINT TAB(57); :LPRINT USING I9$;A*(1+E0)-R0 1910 PRINT TAB(9);"Argument of Perigee"; 1911 LPRINT TAB(9);"Argument of Perigee"; 1912 PRINT TAB(35); : PRINT USING I9$;W0; 1913 LPRINT TAB(35); :LPRINT USING I9$;W0; 1914 PRINT TAB(57); : PRINT USING I9$;W 1915 LPRINT TAB(57); :LPRINT USING I9$;W 1920 PRINT TAB(9);"R.A.A.N."; 1921 LPRINT TAB(9);"R.A.A.N."; 1922 PRINT TAB(35); : PRINT USING I9$;O0; 1923 LPRINT TAB(35); :LPRINT USING I9$;O0; 1924 PRINT"; 2174 PRINT TAB(65);"Deg";TAB(71);"<256>" 2175 LPRINT TAB(65);"Deg";TAB(71);"<256>" 2176 GOTO 2190 2177 REM *** DIFFERENT HEADING FOR MUTUAL ACCESS MODE *** 2178 PRINT TAB(3);"U.T.C."; 2180 FOR I% = 0 TO K5 : PRINT TAB(13+I%*16);"AZIMUTH ELEV"; : NEXT I% 2182 PRINT : PRINT TAB(2);"HH:MM:SS"; 2184 FOR I% = 0 TO K5 : PRINT TAB(18+I%*16);C1$(I%); : NEXT I% 2188 PRINT 2190 PRINT TAB(16);"- - - DAY # ";K7;" - - - ORBIT # ";K;" - - -" 2191 LPRINT TAB(16);"- - - DAY # ";K7;" - - - ORBIT # ";K;" - - -" 2200 K8 = K7 : T4 = T - K7 2202 S4 = INT(T4 * 86400! + .5) 2204 H4 = INT(S4 / 3600 + .000001) 2206 M4 = INT((S4 - H4 * 3600) / 60 + .000001) 2208 S4 = S4 - 3600 * H4 - 60 * M4 2230 F9 = -F1 * 1000000! * R8 / C : REM *** F9=DOPPLER IN HZ *** 2240 PRINT TAB(2); : PRINT USING I10$;H4;M4;S4; 2241 LPRINT TAB(2); : LPRINT USING I10$;H4;M4;S4; 2242 PRINT TAB(13); : PRINT USING I11$;A9; 2243 LPRINT TAB(13); : LPRINT USING I11$;A9; 2244 PRINT TAB(20); : PRINT USING I6$;E9; 2245 LPRINT TAB(20); : LPRINT3, 1.0027379093 2550 REM *** GREENWICH SIDEREAL TIMES ON JAN 0.0 IN DAYS FOR 1979 THRU 1985 2560 DATA 79, 0.2751843198 2570 DATA 80, 0.2745212008 2580 DATA 81, 0.2765959911 2590 DATA 82, 0.2759328721 2600 DATA 83, 0.2752697531 2610 DATA 84, 0.2746066342 2620 DATA 85, 0.2766814244 2630 DATA 0, 0 : REM *** TERMINATES SIDEREAL TIME TABLE *** 2640 REM ---------------------------------------------------------------------- 2650 REM *** (RE)INITIALIZATION FOR MULTIPLE PASSES RETURNS HERE *** 2750 K5 = -1 : FOR I% = 0 TO MAX.SATELLITES% : S(I%) = 0 : NEXT I% 2752 S$ = "" : C$ = "" : I$ = "" 2770 RETURN 2780 REM ---------------------------------------------------------------------- 10000 REM ===================================================================== 10010 REM ********* REPLACES FNA(X,Y) IN ORIGINAL NORTH STAR VERSION ********** 10012 REM *** PARAMETERS ARE PASSED TO THIS ROUTINE IN XX AND YY AND THE *** 10014 REM *** INVERSE TANGENT IS RETURNED IN ZZ SINCE MULTIPLE LINE *** 10 USING I6$;E9; 2246 IF K5 > 0 THEN GOTO 2260 2247 PRINT TAB(33); : PRINT USING I7$;F9; 2248 LPRINT TAB(33); : LPRINT USING I7$;F9; 2249 PRINT TAB(41); : PRINT USING I7$;R5; 2250 LPRINT TAB(41); : LPRINT USING I7$;R5; 2251 PRINT TAB(48); : PRINT USING I7$;R-R0; 2252 LPRINT TAB(48); : LPRINT USING I7$;R-R0; 2253 PRINT TAB(55); : PRINT USING I11$;L5; 2254 LPRINT TAB(55); : LPRINT USING I11$;L5; 2255 PRINT TAB(63); : PRINT USING I11$;W5; 2256 LPRINT TAB(63); : LPRINT USING I11$;W5; 2257 PRINT TAB(72); : PRINT USING I1$;M9 2258 LPRINT TAB(72); : LPRINT USING I1$;M9 2259 REM ---------------------------------------------------------------------- 2260 IF K5 = 0 THEN 2350 ELSE X(0,0) = R6 : X(0,4) = T6 2270 FOR I% = 1 TO K5 : REM *** LOOP THROUGH OTHER STATIONS *** 2280 R6 = X(I%,0) : X9 = X(I%,1) : Y9 = X(I%,2) : Z9 = X(I%, 3) : T6 = X(I%,4) 2290 E8 = X(I%,5) : S8 = X(I%,6) : C8 = X(I%,7) : S9 = X(I%, 8) : C9 = X(I%,9) 2300 GOSUB 10660 : IF E9 < E8 THEN 2330 ELSE F9 = -F1 * 1000000! * R8 / C 2310 016 REM *** FUNCTIONS NOR PROCEDURES ARE ALLOWED IN THIS VERSION OF BASIC *** 10018 REM --------------------------------------------------------------------- 10020 REM *** CALCULATES INVERSE TANGENT IN PROPER QUADRANT LIKE ATAN2 *** 10030 REM *** CASES LYING IN QUADRANTS 2 AND 3 *** 10040 IF XX < 0 THEN ZZ = P1 + ATN(YY / XX) : RETURN 10060 REM *** THE TWO CASES FOR X = 0 *** 10070 IF XX = 0 AND YY <= 0 THEN ZZ = P1 / 2 : RETURN 10072 IF XX = 0 AND YY > 0 THEN ZZ = P1 * 3 / 2 : RETURN 10080 REM *** CASES LYING IN QUADRANTS 1 AND 4 *** 10090 IF XX > 0 AND YY >= 0 THEN ZZ = ATN(YY / XX) : RETURN 10092 IF XX > 0 AND YY < 0 THEN ZZ = P2 + ATN(YY / XX) : RETURN 10102 REM ===================================================================== 10110 REM ****** REPLACES FNC(T) IN ORIGINAL NORTH STAR VERSION ****** 10112 REM --------------------------------------------------------------------- 10120 REM *** ROUTINE TO INITIALIZE THE C(J,K) COORDINATE ROTATION MATRIX *** 10130 REM *** AND THE OTHER PARAMETPRINT TAB(13+(I%*16)); : PRINT USING I11$;A9; 2312 PRINT TAB(20+(I%*16)); : PRINT USING I6$;E9; 2330 X(I%,0) = R6 : X(I%,4) = T6 2340 NEXT I% : PRINT 2350 T = T + T9 : IF T < T8 THEN GOTO 1970 2352 PRINT "END OF LOOP # ";J4%;" FOR SATELLITE # ";S(J4%) 2360 NEXT J4% : PRINT : INPUT "Press return to continue ",D$ 2362 CLOSE #2 : GOTO 180 2370 REM --------------------------------------------------------------------- 2380 REM *** PAGE HEADER SUBROUTINE *** 2382 PRING CHR$(26) 2384 RETURN 2450 REM --------------------------------------------------------------------- 2460 REM *** NUMERICAL AND PHYSICAL CONSTANTS *** 2470 REM *** DAY # AT START OF EACH MONTH *** 2480 DATA 0,31,59,90,120,151,181,212,243,273,304,334,365 2490 REM *** PI, VELOCITY OF LIGHT, EARTH RADIUS, 1/EARTH FLATTENING *** 2510 DATA 3.1415926535, 2.997925E5, 6378.160, 298.25 2520 REM *** GRAVITATIONAL MASS (GM) OF EARTH IN UNITS OF 2530 REM *** ((ORBITS/DAY) ^ 2 / (KM ^ 3), AND SIDEREAL/SOLAR TIME RATE RATIO 2540 DATA 7.5369793E1ERS ASSOCIATED WITH THE ORBITAL ELEMENTS *** 10139 REM *** GIVEN N0=MEAN MOTION, EXECUTE LINES 1014X *** 10140 REM *** INPUT ELEMENTS GIVE EITHER A0=SEMI-MAJOR AXIS IN KM OR *** 10142 REM *** N0=MEAN MOTION IN ORBITS/DAY. DECIDE WHICH WAS GIVEN AND *** 10144 REM *** CALCULATE THE OTHER, INCLUDING DRAG CORRECTIONS *** 10146 IF N0 > .1 THEN 10150 10148 N0 = SQR(G0 / (A0 ^ 3)) : GOTO 10154 : REM *** CALCULATE MEAN MOTION *** 10150 A0 = ((G0 / (N0 * N0)) ^ (1!/3!)) : REM *** CALCULATE SMA *** 10152 REM *** THE FOLLOWING CORRECTS FOR DRAG IN LOW ALTITUDE SATELLITES *** 10154 N = N0 + 2 * (T - T0) * N1 : REM *** MEAN MOTION AT T *** 10156 A = ((G0 / (N * N)) ^ (1!/3!)) : REM *** SMA AT T *** 10160 E2 = 1 - E0 ^ 2 : E1 = SQR(E2) : Q0 = M0 / 360 + K0 10170 REM *** ACCOUNT FOR NODAL EFFECTS DUE TO THE LUMPY GRAVITY FIELD *** 10180 REM *** DUE TO THE FLATTENED, OBLATE SPHEROIDAL, FIGURE OF EARTH *** 10190 K2 = 9.95 * ((R0 / A) ^ 3.5) / (E2 ^ 2) 10200 REM *** UPDATE ELEMENTS TO CURRENT EPOCH & EVALUATE SA * R3 10460 REM *** ROTATE FROM ORBIT PLANE TO INERTIAL CELESTIAL COORDINATES *** 10470 X1 = X0 * C(1,1) + Y0 * C(1,2) 10472 Y1 = X0 * C(2,1) + Y0 * C(2,2) 10474 Z1 = X0 * C(3,1) + Y0 * C(3,2) 10480 REM *** ROTATE THRU CURRENT GHA OF ARIES, CONVERT TO GEOCENTRIC COORD *** 10490 G7 = T * G1 + G2 : G7 = (G7 - INT(G7)) * P2 : S7 = -SIN(G7) : C7 = COS(G7) 10500 X = + (X1 * C7) - (Y1 * S7) 10502 Y = + (X1 * S7) + (Y1 * C7) 10504 Z = Z1 10506 RETURN 10510 REM ===================================================================== 10520 REM *** THIS ROUTINE REPLACES FNO(D) IN FROM THE NORTH STAR VERSION *** 10522 REM --------------------------------------------------------------------- 10530 REM *** ROUTINE TO EVALUATE OBSERVER'S GEOCENTRIC COORDINATES *** 10540 REM *** X-AXIS=GREENWICH, Y-AXIS=VU-LAND, Z-AXIS=NORTH POLE *** 10550 L8 = L9 * P0 : S9 = SIN(L8) : C9 = COS(L8) : REM *** GEODETIC COORD *** 10560 S8 = SIN(-W9*P0) : C8 = COS(W9*P0) : REM *** W9=WEST LONGITUDE *** 10570 REM *** FOLLOWING ACINs/COSs *** 10210 S1 = SIN(I0 * P0) : C1 = COS(I0 * P0) : REM *** I0 = INCLINATION *** 10220 O = O0 - (T - T0) * K2 * C1 10230 S0 = SIN(O * P0) : C0 = COS(O * P0) : REM *** O = R.A.A.N. *** 10240 W = W0 + (T - T0) * K2 * (2.5 * (C1 ^ 2) -.5) 10250 S2 = SIN(W * P0) : C2 = COS(W * P0) : REM *** W = ARGUMANT OF PERIGEE *** 10260 REM *** SET UP COORDINATE ROTATION MATRIX FOR THE CURRENT ORBIT *** 10270 C(1,1) = + (C2 * C0) - (S2 * S0 * C1) 10272 C(1,2) = - (S2 * C0) - (C2 * S0 * C1) 10280 C(2,1) = + (C2 * S0) + (S2 * C0 * C1) 10282 C(2,2) = - (S2 * S0) + (C2 * C0 * C1) 10290 C(3,1) = + (S2 * S1) 10292 C(3,2) = + (C2 * S1) 10294 RETURN 10300 REM ===================================================================== 10310 REM ****** REPLACES FNM(T) IN ORIGINAL NORTH STAR VERSION ****** 10312 REM --------------------------------------------------------------------- 10320 REM *** ROUTINE TO EVALUATE M=MEAN ANOMOLY IN (0 - 2*PI) RANGE *** 10330 REM *** K=PERIGEE PASSAGE COUNTER (=ORBIT ##) & M9 = MODCOUNTS FOR OBLATE SPHEROIDAL EARTH *** 10580 R9 = R0 * (1 - (F / 2) + (F / 2) * COS(2 * L8)) + H9 / 1000 10590 REM *** FOLLOWING MAKES L8 BE THE GEOCENTRIC LATITUDE *** 10600 L8 = ATN((1 - F) ^ 2 * S9 / C9) : Z9 = R9 * SIN(L8) 10610 X9 = R9 * COS(L8) * C8 : Y9 = R9 * COS(L8) * S8 10620 RETURN 10622 REM ===================================================================== 10630 REM ****** THIS ROUTINE REPLACES FNX(T) IN NORTH STAR VERSION ****** 10632 REM --------------------------------------------------------------------- 10640 REM *** ROUTINE TO EXTRACT ALL THE PARAMETERS YOU MIGHT EVER NEED *** 10650 REM *** FIRST GET THE VECTOR FROM THE OBSERVER TO SATELLITE *** 10660 X5 = (X - X9) : Y5 = (Y - Y9) : Z5 = (Z - Z9) 10662 R5 = SQR(X5 ^ 2 + Y5 ^ 2 + Z5 ^ 2) 10670 REM *** FINITE DIFFERENCE THE RANGE R5 TO GET THE VELOCITY R8 *** 10680 IF T6 <> T THEN R8 = ((R6 - R5) / (T6 - T)) / 86400! 10682 IF T6 = T THEN R8 = -8.999999E+09 10690 R6 = R5 : T6 = T : REM *** SAVE CURRENT RANGE & TIME FOR NEXT TULO 256 *** 10340 REM *** ORBITAL PHASE COMPATIBLE WITH PHASE3 GEN BEACON TELEMETRY *** 10345 Q = Q0 + N0 * (T - T0) + N1 * ((T - T0) ^ 2) : REM *** INCLUDE DRAG *** 10350 K = INT(Q + .000001) : M9 = INT((Q - K + .000001) * 256) : M = (Q - K) * P2 10352 RETURN 10360 REM ===================================================================== 10370 REM ****** REPLACES FNK(M) IN NORTH STAR VERSION ****** 10372 REM --------------------------------------------------------------------- 10380 REM *** ROUTINE TO SOLVE KEPLER'S EQUATION GIVEN M AND RETURN THE *** 10390 REM *** SATELLITE'S GEOCENTRIC COORDINATES *** 10400 E = M + E0 * SIN(M) + .5 * (E0 ^ 2) * SIN(2 * M) 10410 REM *** ITERATION LOOP TO SOLVE TRANSCENDENTAL KEPLER'S EQUATION *** 10420 S3 = SIN(E) : C3 = COS(E) : R3 = 1 - E0 * C3 : M1 = E - E0 * S3 10430 M5 = M1 - M 10432 IF ABS(M5) < .000001 THEN 10450 ELSE E = E - M5 / R3 : GOTO 10420 10440 REM *** NOW GET SATELLITE'S X,Y,Z COORDINATES *** 10450 X0 = A * (C3 - E0) : Y0 = A * E1 * S3 : R = IME *** 10700 REM *** NOW ROTATE INTO OBSERVER'S LOCAL COORDINATES *** 10710 REM *** WHERE X8=NORTH, Y8=EAST, Z8=UP (LEFT-HANDED SYSTEM) *** 10720 Z8 = + (X5 * C8 * C9) + (Y5 * S8 * C9) + (Z5 * S9) 10730 X8 = - (X5 * C8 * S9) - (Y5 * S8 * S9) + (Z5 * C9) 10732 Y8 = + (Y5 * C8) - (X5 * S8) 10740 S5 = Z8 / R5 : C5 = SQR(1 - S5 * S5) : E9 = ATN(S5 / C5) / P0 10750 XX = X8 : YY = Y8 : GOSUB 10000 : A9 = ZZ / P0 10760 XX = X : YY = Y : GOSUB 10000 : W5 = 360 - ZZ / P0 10770 B5 = Z / R : L5 = ATN(B5 / (SQR(1 - B5 ^ 2))) / P0 10780 RETURN 30000 REM ===================================================================== 30002 REM ****** OPEN AND DEFINE FIELDS FOR THE STATION INFORMATION FILE ****** 30003 REM --------------------------------------------------------------------- 30004 OPEN "R", 1, "B:STATIONS.DAT", STATION.RECSIZE% 30006 FIELD #1, 10 AS C$, 40 AS STA.NAME$, 25 AS STA.ADDRESS$, 15 AS STA.CITY$, 2 AS STA.STATE$, 9 AS STA.ZIP$, 10 AS STA.PHONE$, 8 AS L9$, 8 AS W9$, 8 AS H9$, 8 AS E8$ 30008 RETURN 30100 REM ===================================================================== 30102 REM ********** OPEN AND DEFINE FIELDS FOR THE ELEMENT SET FILE ********** 30103 REM --------------------------------------------------------------------- 30104 OPEN "R", 2, "B:ELEMENTS.DAT", ELEMENT.RECSIZE% 30106 FIELD #2, 24 AS S$, 6 AS OBJECT.NUMBER$, 8 AS IDENTIFIER$, 8 AS ISSUE.DATE$, 8 AS ELEMENT.SET$, 8 AS Y3$, 8 AS D3$, 8 AS H3$, 8 AS M3$, 8 AS S3$, 8 AS N1$, 8 AS I0$, 8 AS O0$, 8 AS E0$, 8 AS W0$, 8 AS M0$, 8 AS N0$, 8 AS K0$, 8 AS A0$, 8 AS F1$ 30108 RETURN 30200 REM =====================================================================  Msg #2145 posted 11/21/84 by WILLIAM SELLERS To: Gale Rhodes About: Orbit.bas (16 lines) Gale, I managed to upload orbit.bas to the fog system. This program is mainly for Ham Radio Operators, since it has to do with tracking the OSCAR sa ORCBYE OBJ*ORCLOG OBJ+4aORC DOC_ ݽÄ$$ password$@NAMES DIRZCPR2 w_#~ ʸ A:4ɀ  MSW:CP-MIG ?ʻ w# !ORCBYE#1.01 84-04-23! {-o:6:6)PYZ2PFX.CC #1.11 84-04-23&SC80.CC #5.14 84-04-17~og^#V}s#r!͘}o|g}o|g}o|g{z{z{z{̃!-{̃!,z>{z?!-z>{zï>{>_||g}oɯo_)& )yBKW_GyO+) BK>){_zWS{zSW#{_=;||s|s4s+|/g}/o{ozgN N#~# A~# yOčy—# ʬ#ʶɯ#+#Ⱦ N #NGͰ7~# A$SCPM.CC #5.06 84-03-27*!͘! !! !!! ! !!!!!jBe +++ $_CCABEtilite and others that the Hams are interested in. Not much documentation to it that I understand, but the Ham Operators will be able to understand it. It was in IBM basic when I got it, and made some changes to run under the MicroSoft Basic that comes with the Osborne 1's. I have another program that I will send you at a later date, it is called STARSRCH.BAS. It is for astronomers tracking stars at night with a telescope. It give the loactions of the brightest stars to look for William Sellersronomers tracking stars at night with a telescope. It give the loactions of the brightest stars to look for William Selle==========  Msg #2145 posted 11/21/84 by WILLIAM SELLERS To: Gale Rhodes About: Orbit.bas (16 lines) Gale, I managed to upload orbit.bas to the fog system. This program is mainly for Ham Radio Operators, since it has to do with tracking the OSCAR saND: Attempting System Restart.$jBx)SCENV0.CC #1.15 84-04-16* !͘*!9"##*}oyya<2"*yi y*0y>yz͠CCBROKE: Program or system is damaged.$1͠CCMEMRY: Not enough memory to work in.$!͋!y`i+ү6+r+s!*~# xJ S_z$Wz4Ns#Fr#x†**}o#y DMͻ!!7gͻ!&7ͻ!o@͑"]!!n&!\!l!^#V#N#F+++yx*y^#V#‘#xs!99a>!27!t9:a:aSTRLIB.CL #2.08 84-04-10s#w#ww###n&n&##n&#^Wng#>5^W#^wyO~#^+#4#q#r> My hMy##ů+ʕ5ů^WBK¡öͺ!-##!-!9G!ͣ|!9G!-F!9!9GsR!9G!ͣ|d!9G!9G! Ys!9G! Ys!9G! ͣ|ʗ!9G#w#w+r+s!9!9!!9Gs!9!;͗|!9!!9WR|@!9GA|.!9GA!;͌!9 !͌r|.!9!;F!9!9GsB|ʔ!9 B͢|n!!9x!9s!͗|ʔ!9 |ʥè|ʿ%}O3!͢|!9/!!9!! K !9G#R+A|h!9GA!/͗!9GA!-͗d!9GA!?͗d|h!9G#R!!9G|ʔ!9G!4!!7!>!Dͯ pl|ͱ @!|!9;R|!9G!͗|! !N͋!TC !9G!͢|? !9G!{! * * !  * !  * ! ! > $0123456789ABCDEF0xProgram , -levelENVCHEK: Incompatible environment assumptions.-point pedigree:COMMUNICATION STANDBY PROCEDURECP-MIG dummy version by Dennis E. Hamilton# ORCBYE#1.01 84-04-23LOGINUh, we don't seem able to chain to LOGIN fro!9G!0F!9G!9G! Y!9G! Y!0F!9!R!9GA|ʆ !9GA!0Ͷ!9GA!9͵r|T !9!9!9GR! !0{! 9GAR!9G!9Gͣ|u !s!9G#R+!9G LOGLIB.CL #2.09 84-04-09:!yMyy< T]6$c6" * #{* +"   e $! Q! Q!T j æ!͛ \|č # !  X! -y  eModified $! !9GA| !.Q!9G !~Bɐ  OUTNUM.CL #1.03 84-04-08!9G!9GA!r!9G!r! Q!9G! !9G !9G!r!9G͌|ʀ !9G!sI !9G( !s!r|ʣ !9G!ͣ| !-Q!9!9GsR !+Q! !9GI  y 4 !0$" e0$!9G!ͣ|G !-Q!9!9GsR!9G V PDGREE.CL #1.04 84-04-08fym here.Standing by for the next call.For today, that means use CTRL-C to exit to CPM, any other key to chain to LOGIN.*_###s#r^#V`à 4 Wm ()*+,-/ABCDEHLMDBDIDSDWEIIFINORSPACIADCADDADIANAANDANICMACMÄ$$ password$@NAMES DIRZCPR2 w_#~ ʸ A:4ɀ  MSW:CP-MIG ?ʻ w# !ORCLOGIN#1.01 84-04-23!3EP!1j:6:6PYZ2PFX.CC #1.11 84-04-23&SC80.CC #5.14 84-04-17~og^#V}s#r!!}o|g}o|g}o|g{z{z{z{̃!-{̃!,z>{z?!-z>{zï>{>_||g}oɯo_)& )yBKW_GyO+) BK>){_zWS{zSW#{_=;||s|s4s+|/g}/o{oz>.s #  x ^#V!6 y6!s*͐̀ !9 !9!H!s!Q9Gͧ !s!Q9G  ! !O9Gd ! !M9!9 !9!H! F!O9G}  !K9`d| !C `  ! `͚ ! !o  T  ENVLIB.CL #1.06 84-04-11!͎>!+ 1/ +!͎,y"a!#:a@o3!&DM>þ7#^#V^#VÆ!fʅڵ}U oj+++hÈ*+++*!9*!9*|{, g$ CCPENV.CL #1.05 84-04-14:! 9*̀""*h"!**!9"!"COM6!# >þ =~##_^#VyҀ#F!=+|gyڵ`kyڵ*yڵNõʵ!fڵ*~#foy҂ʱ} ʵ+++hô:ª*>2*~#Ü|N!XCHAIN.CL #1.01 84-04-11-µ:<µ*##T]},^3!͗|k!B}+V+^B}gN N#~# A~# yOčy—# ʬ#ʶɯ#+#Ⱦ N #NGͰ7~# A$SCPM.CC #5.06 84-03-27*!!! !! !!! ! !!!!!jBe +++ $_CCABEND: Attempting System Restart.$jBx)SCENV0.CC #1.15 84-04-16* !!*!9"##*}oyya<2"*yi y*0y>yz͠CCBROKE: Program or system is damaged.$1͠CCMEMRY: Not enough memory to work in.$!͋!y`i+ү6+r+s!*~# xJ S_z$Wz4Ns#Fr#x†**}o#y DMͻ!!7gͻ!&7ͻ!o@͑"]!!n&!\!l!^#V#N#F+++yx*y^#V#‘#xs!99a>!27!t9:a:aSTRLIB.CL #2.08 84-04-10s#w#ww###n&n&##n&#^Wng#>5^W#^wyO~#^+#4#q#r> My hM|gyڵ`kyڵ*yڵNõʵ!fڵ*~#foy҂ʱ} ʵ+++hô:ª*>2*~#Ü|N!XCHAIN.CL #1.01 84-04-11-µ:<µ*##T]},^3!͗|k!B}+V+^B}#w#w+r+s!9!9!!9Gs!9!;͗|!9!!9WR|@!9GA|.!9GA!;͌!9 !͌r|.!9!;F!9!9GsB|ʔ!9 B͢|n!!9x!9s!͗|ʔ!9 |ʥè|ʿ%}O3!͢|!9/!!9 UNLOCK.CL #1.02 84-04-22ͺÜ!9G+R#|x!9!KR!9G+R#|u!9;!rR|r!9G<!9G!T! T!T!T{\ !n&!9!9!xR!9!<!|!9!G9GR|!9G+R#!͗|D!s!C9!9Gͻ!͗|ʡ!*T!9!9GF!9 y##ů+ʕ5ů^WBK¡öͺ!-##!-!9G!ͣ|!9G!-F!9!9GsR!9G!ͣ|d!9G!9G! Ys!9G! Ys!9G! ͣ|ʗ!9G!9G!0F!9G!9G! Y!9G! Y!0F!9!R!9GA|ʆ !9GA!0Ͷ!9GA!9͵r|T !9!9!9GR! !0{! 9GAR!9G!9Gͣ|u !s!9G#R+!9G LOGLIB.CL #2.09 84-04-09:!yMyy< T]6$c6" * #{* +"   e $! Q! Q!T j æ!͛ \|č # !  X! -y  eModified $! !9GA| !.Q!9G !Bɐ  OUTNUM.CL #1.03 84-04-08!9G!9GA!r!9G!r! Q!9G! !9G !9G!r!9G͌|ʀ !9G!sI !9͗|ʞ!!C9!9Gͻ!͗|͂!93!9Gͻ!͗|!9 |͂!93!s!C9!9 !9 !͢r!C9GCLKENV.CL #1.00 84-04-12:`œ*p> !!K !9G#R+A|ʞ!9GA!/͗!9GA!-͗d!9GA!?͗d|!9G#R!!9Gͅ|!9Gͅ!;!!>!G!Mͯ p|Kwͱ   w]!ͣ|w!W  !C !9!RS !9G+R#|'! T! T!>T! T!9! dR|$!9G!͢|! * !  * !  * !  $'É !!  !\  !͋!C !  !  !A  !z  !  ! > $0123456789ABCDEF0xProgram , -levelENVCHEK: Incompatible environment assumptions.-point pedigree:RCPM TEST-PORTAL ACCESSCP-MIG edition by Dennis E. Hamilton# ORCLOGIN#1.01 84-04-23Direct Console I-O Needed for Password En!9G( !s!r|ʣ !9G!ͣ| !-Q!9!9GsR !+Q! !9GI  y 4 !0$" e0$!9G!ͣ|G !-Q!9!9GsR!9G V PDGREE.CL #1.04 84-04-08fy>.s #  x ^#V!6 y6!s*͐̀ !9 !9!H!s!Q9Gͧ !s!Q9G  ! !O9Gd ! !M9!9 !9!H! F!O9G}  !K9`d| !C `  ! `͚ ! !o  T  ENVLIB.CL #1.06 84-04-11!͎>!+ 1/ +!͎,y"a!#:a@o3!&DM>þ7#^#V^#VÆ!fʅڵ}U oj+++hÈ*+++*!9*!9*|{, g$ CCPENV.CL #1.05 84-04-14:! 9*̀""*h"!**!9"!"COM6!# >þ =~##_^#VyҀ#F!=+try.Need CP/M 2.x, 3.x, or MP/M system. ENTERING THE RCP/M SYSTEM ...Further operation is directly under CP/M.Remember to use the BYE command for exit.Check back in another week or so to review the informationand services which may have become available by then.BYEWe seem unable to chain to BYE from here. You have reached an under-development Remote CP/M system thatis presently undergoing extensive testing. During system test,access is restricted to members of the development team. As individual facilities are certified for general use,alternative access entry will be provided. Callers will needto check with the SYSOP about any authorizations required then.=ʅVq”*qͦ1& O:lµ̅>2ly:_!w~!s!m~ùy !~=w_!m~ ͅbro/age:1 [70100,271] ORCBYE.BIN 24-Apr-84 12940(5536) Keywords: ORCBYE #1.01 CPM 2.X 3.X MPM 2 DUMMY BYE COMMUNI  OREMOTE AQMC$OREMOTE OBJD OSDUALIOAQMNBlvOOREMOTE.ASMD  !"#%$&(')*o+,.-0/123456789:<;=?>@CBAcQ,'MҲ|=,bF_e,/y%JiV(⋫DU>zŷ۳o̭=i[ZCwzN`{Y`K|w9GfMw_90e9x|NKԻ-b;!߻ohNoiY [4EI flWt[nz_RNOdK_KZlii6K TFc[ѷ6KKw-ԴmM0>n{`h-4ȇXnė;z!mqq`hsz}plz֗b;yzF_,Y{d[pQ/eNt/:RDg|==A5tS/%X4qik9(^!pGXc[\o&8b;yzF_=#;z{[Q>8szj{ǡˠ]5R`lU>8<]/fead ownload op or ENTER for next file: [70100,271] ORCLOG.BIN 24-Apr-84 16020(6848) Keywords: ORCLOGIN #1.01 CPM 2.X 3.X MPM SIMPLIFIED TEST ENTRY TO RCPM This program, renamed LOGIN, can be used with any BYE that chains to a LOGIN program on connection. LOGIN has a password timeout that chains back to BYE if the caller fails to get in. You can specify the password anɦ,?8fۇ;6M)t<]/c4wMYh9s*D,;0O[R qD?E!E܇ؚY(kDsf$h֒~|9!=']gKf['D#8$Edٞ85(Z'DSuc0PNoiYZo hc0PooIpMq,-zxC:OMc5W̪V>>!s߽ кYYO1"}ϑUV܇Aw㈨KF'^sʩMҲ|WL`5_2UhJ a޹Z}N(u\}m+,ݾ W(St*=8=qc-Zbn_0Kzk-)ոtw_Xk?swJV'|{H>>{Ygvql)wiנj[F\.Z;3ѩF|l eKj|=v&?(0g9 9=֢IEjYw>+o׾[7&S0q4IZTclqom>g·Yw>=+-۩s|p&EfLyHq\,-FҎ>Z܇w>#0}Ϝq|%f :!q|k$zKrpz[-Ňi1v#G#e#=I|mVR.-=^kIϜq|%_[9twI\[z~hs9TR.-=? 7ޖ%HO?97 a֝jǵje֒F0lZZs&12D; k8N`ޮ7KG[u;wG#s5:V#p*T 0~<0~ead ownload op or ENTER for next file:   _2K+<+r"uO܇ɏ6G8si4'tG;ayzb|%N5Z>D2["S0gd k-itq!/u9>mJAVus45n۩s|~'M cfJ5(Ԕ^w?ҝ3$_"񵖔j\z_90%_2,}u3~נdw<ح֖`8>C)]qw*l;;߇A)#[ad*NrVayzcԎ}{?̺|9}׾~|mهYgvq\ܥ]N|ƱI|u:>L~9B}~'9hBӛѻuXk?Rjzs|3q|l}hs*qk8KeneÜ}|9~Oc[{ܥ]zf tcؔ٬ʢU>L~9Bax8.XmQ͸Y_:rx4e}ѿrC w>+oX&Iއyaϔl,-FҎ&/9=0~<{bwށ? OKKc$OH燖VEM~9B1GEY9ǝ0VdN||m*+9=bnUHfL>>k_kQ^4:>--ݨw>#ZR]if]0V(͔T㉥-mm:LJɏ6 :9SoDew΃E%5b;uG#1Tݕ&۩s||3s8֒RNҖ6Kg|$i`l~kDayzd#v-۩s|p&L>>+'Y>Zɏ6P8P.szaM)HIڈ ㈎%p^U}%jۦW嫼DZ-6妷r#azB6L2к^=j<^q|%%햋8D9ϫx=gZuZɏ6G=KU3m:{> S}ZB Rmp}s0@6RK~pK9=֊Z8Tc>Z]`Q|}ͣ&?BZRqc-.s|e;yg(_kI%5V;BT0خaGl9=b[D>LG6KZjRTgؔm}^3k_|%a~}NؒBazs8} ֒F0~sf`l~ksza~~޹?9ϫ'fl szłÖćy{JeszZ,aY6^I[Ǣ=9=֢2CYυs ">)L*f$߇9IL00P)ܼ00>*dIaNaO-!>)̫ܼ$00>!>)̫dՇ|2$ه9y!ܼIaNa^} $00!>) ~$00$00$00IaNa*gu9qK[pKXk?c(R9%}aNI߅, ,/e9Uq$7fQ|YaNI߅, 3F_*>)黐%bH:mSЊ2UU^UֵÜ Y|$T\>5߅, MҲl;ͭÜr(]ȒP1yBٔrDB(^OԜr|aN9 Y*X,=i[Zk݃'t;/ũ{Ps]ȒPqx=e9B#=Iv-۩s|slGo/Nj<a>g(f I[b#DG[HLZKJ5(Q㗺&?ڔ8HOiu9>L>{vi0qX&Q.rćA d]ô3X)h5: cfJDc·i1G[HL}hS "Ry;vq-UaKv,\nɖKew΃-5ǖ6 ޮׇɏ6G؊;glpcwsǣ0ooIٔVɏ6G؊Sax8Pv,͔z, D]ǢbseZ[ŢbpKzVV\;V;BTd|uhŢ ǜ;lƱILFǜs|?8ŗnn!W!Sj૳Dk,ŗl@ l1ôôaLa]g 凱DB6خaz(R^,zKJ.&s;A(>ԬMEe8v [c086ѻ6ϊbEeŇgoY8Ŧ,0=Gt,C>̪ aFV9Mb2.JW(az(3X6ek-iD-lIՎY_~pz5خ0-=0خsaZzaz([+elʂCf#DuF:[Yruŗ܇WOu.dIDNň/uv(wv X ߤ#0߅, *>׳*jN9 Y**x1Kݥ]C.9=b[T3.sň/+>)w!KBŅV9.dI`Q|4--5VíP}؊SSN͢B]ȒPqzSW Y*.T|pK$E_,/?~欩:e-IZKuhjm)>9kcYKRtJֹ'Oo̶9=`BQsTDz蔬skKOszEW;jΚX֒u֒F5~xzFKj8Jy?)Y]5:喑 N|pb?8r6 zKrvX}pmqf8~Fr^iuāEkbKԻ-z;A~pd8om,=|D=u9D?A߹P0zgq>E%hD]>X4S ;ۋI|X4R ;>O-߹P|ZQ\(^>8ŗLQ /u92mqؒ+&/u9X_~pR4S ;L?$>-0`cQ|IiW v,͔jm)X8lrVKl'X_~p &?ڬWk-TCYrW(5~iJْ7! HmnB|u3q\,-$y,Y)9=0KG%j-a֝\aM)=+']gk}XzY$ه;PaO[~ xa7! H\(^H޿J_$yGlUDk,z))ˠwzơub>(^OԜr*z`Ӡc;I-:^}TV k-)ոup>LK?L>,/yǃ-[-b9?Oずhs sNo}5KlKe;y8>CE?>m)7}0ٌ#:euOxTE9Gkp/˶ׇ~ƱIޭ!Cgq\wX6eg[vNc}39a9qÖ2LJv,ܲSQ;}_kIF.a]g xlaZza֝>TcR|޹?L>8ŗZZY5lwL?L(j}keљZY`Ka^{]q|Dkܾʇ;%jvjS)B$eOʊqp/˶ׇo U Qc)T8c \clai8&m/Jֹ҇+j] {WhRNZQw>[{q,kIҲZZ?[{·yuOa]'amcyl߻j}k7w:<>kw·yüλ ~pKZov :[ŗ܇;Լ0خ0ǷZYoth;v-0ǷZ%ZX_-)|%C5hV;BTgQ|}x'j}p,EN^%t,xKɏ3Ҳƿm*rh? ٠c>TqlMɄA$d5MbwtU"^jG0-BD.ZX2Լ]q\~wqZZFoiY;*cփRazo)yxK-3]R7LoiY:^5(Yg>\Tyc[ll{[c2-iKu|5-"jRwX_2EҲ\^VkK}Zsi86Ke9xM.a'd3=MbSՇ 5~[hzG/ <]pK([Z-[-%OKDZ-{wQnYR7̥Ҳ{WUQH|jiѱ. e>?ҭL2jG a^}ȇ>4Mb2{wQU"^f*-=?Oshi=m)7S3^}>4X3Y60;ANUM~pK([ZV[+R(>`VԼǵA]ëPwc>Y"6zKr|)?@5~X"6{`Ӡ,w^}p,{DR69ktr~pw[F_%;h⃛ qXybgwმw򵮼w?C,ܑ>IFo)fiq 'ֻ+ঌ|k$:%}vwBd=Uwe=h;[k]yGJYOe{β)ըuH"멬zC[yݹHYOlJ5j,d=|k|v Tqh;;=AvwBd=Uw ̳uǢ;gDN`vXMKM ŗ϶4:w:;(\d2?lK/fN8Ǣ-lݔab;Y_~p%G[w_:TweYKR:[3P{wmP9i~k߻vaz(ʳuSN`ŗZcNg5jهavjt6J8ׇ 5lj0خaN0VT~{0V>LC?EFoGHIJKLMNOPQRSTUVWXY[ZrLZbZa{ #cG~3~q+1%B2JL0?-߁8ǔÐj~$xL` ԌĦ} gL` Ԍ@X43[rL0|Bxh MaRheJvL9@T7d~oBtH~;~VgSԜV59y E'YQ=)wd33.Rx/W1)/81eᣌCr\7:/ GZ:PcJG~= a0S°3Yy Rh]1% ~mZ:$ǫU'$!pᡥ),֫mƔ)$q+,❐91eMotunmS tm x'd)iL:S xLWm^ Д\)a) gL! O!9Pdp ]ShO``i1#L):qHRZQL~=˕ø+jǔaC@?*&!qHΘq2|;tH9HѰ~wƔZ g=hhGoZL2\9䶟0\KS<|LNwB{!zΘ@oO)4飷g!}JMNCE%5I<[7wR7Ll'0mVO0VT~|`;^a֑}hf6N \UQ kk2׾s}C "!hql߻ Xʲ蔬R|p&߻ |釱Z9[q|ljه}8ׇ|Y}8} 6M{8bSn:g?LG6㈎%p{h){ҭ0f t e}\^~p׾S9e-I)Yw>8ŗl)VkKX-v,/?ѻ-v`8L|{NnL϶4>GKM'Ds0 "\tc"\tSNy,w} M:eU++?Lه6Yq\o;Vi=5~?}ȑz.˃7MvTX_}F+?,ݾʄz.|HmvXx+REMOTE CONSOLE PGM V1.0, (C) 1982 BY BRK1G2*""!" *"*^#V;"”*l* Q!]"~\v">2ڵ9*@Ei**E@."* Q*J"*!Q*! :#! Q̈́*ͻ# ;}|}o|g~# xQ0? ? ^#V#s#r#!͌ \))))oy*~#"͠0:ګOY|͗}× YN<ͬO`_6-!e4fL)ZRJm]H!!c=Ё::$gLa-SC@C 6swk!q kǔ@vH(P?*aBʄDžajL12 %?з,ϷrL4E ē';aƔcʍZ.ghIuEث+gQoqLYycY VՀ۵VS]s5{1E. DETACH IT (Y/N) ?$ --> REMOTE CONSOLE DRIVERS ARE DETACHED !! $  *** INVALID "ABOVE" ADDRESS SPECIFIED *** $  *** "ABOVE" ADDRESS IS TOO SMALL *** $ --- REMOTE CONSOLE DRIVERS ATTACHED AT $H --- $ ^C $S ALREADY$5>2!"2!":OREMOTE Crr=$W:*=:*:*Wy2*:*>/V*.<v=pOSDUALIO.ASM\  !"#$%&'()*+,-./0132465789:<;=>@?ABDC?۾lRMͺk[Ƹ-ԌV1hg%[0~c-jS.$v9+?*>#h;$7(vL9c+4on)yVz7[ wnǔXd뿅nO5{"N?0ہpvc1eCrL CO)N sH潋gc1<܋=]1嘲&4܋-Ipss^=PtLC&=1~OB3{8_zLB;F렺6 CrfS Mzǔ߁)tL?Q(jCrLc]{ΘKv!9@48$Ǵ<\ט8$Pùy@Qǔ!(!9.m/W&C=v9#:ty+rm(nL9T_ tLT, NX%1R׫ø@oO\Yf-p{OH tHΘDRہpÄ 9e1R׫E2FZcLDŶ1~^1%pLP@|SzgNA&< d7S64$O)4LY9S4Qc mǔcJ৙טrLPW5LYϷ^LEеaBjL qH &^pDMD z1嘲Eǔ_/S)UpHh1}жE48$렺VS>e8i/\|?F-OzLYrL dX12 fV S <'MT̘rLlh)Y)82ADŌ)YzqeqhO!ǔcʚ<tH5vBoD:Pm]>=1eqp>?߁@?e laL qH6\ Egtճ*˜21E@-IpgmϫgU1e8 c]5 ~䶃@|ceJ~Jk Gk̞1{q_D,\D)ǔ[K6{F cZWוRdQH[DQG8s1ㆭQ"5)KS@5Y+=flzQRSVcv\UϜM#qMtp1H XJvcJ]&? x_е@|4Qc1%k@Mzē';aƔvbnb L12 %?й땺rL4PxJ7XJvc1%@)M~;MCrg\F%6^}Oc!Y@^=+?⏊qy^=P0kfe3|J߽"mHr NXezLH|ƩN<c(c_k5yKPùy@QjBJ S ǔZ&Ĵs!Y@׾'S.$ +Z'{7:7PxV~Jc1~m]S SR1y_i#9;$yw+ǔ;4CKw{:$;>e8$b1}BxJX]dgz[&.~JogS *4X!9s!urSv ܅'=Sҵo0 &ep.${)<ɱkUˁ S ǔm;~;ɱoY@&ep.Z<ܡX#1bx ρBZ D1kĹj05 C@?e8i/w8$Su])?%ly5{t5fu7vո bǍ[1{[ˊd^Dkٛ]ͮf3fW_uʿ|ɜ1{FSblsnQ{ic_qd_`@/ [ǔY-$q&r tq1evNy,ƿjتyV՘mG_qd+&*fw?zoj\:s6u1{qM=n6]fٌٗwe۾h˙Gcv\UϜMȳy#1Utz(~Qmb쿺~#;1Z:+˟?f/cWf>ft>f[K@5x<,wcvTd ts[Dk^m@}x:*td!]s5K+P︪~1;EVc_]Wzʏt#yg"c_]W y8f/;ןwYy7c1;V+8q5D7ltǔ5_2&*fw?WѥY&vw=1~.߹@\h&pLI?( &#zLPƔc1eEgqf/UWcv\Uow[nx똝:(~[fڬ6fCWZ,fOm)Ǽ(~[fڬ6f땿=N8pVzlc1/R^/gR ^offY66D0fci^&Pa/WbfkRڬWmlc1KY6+zR^;{!9+Coi1Ji^m֫v}B;&٥al&ۘr̮B`L\կ3`z _)?%{5Z5stiq=Wty_%6};^&MTR2/cR13S{쯔 %8rg#ǎ DʞȭGc͜h׻h#h骭wFzij&46#W=wGx&r^^cEM.h.c"nb@h9static == 'N') /* Initialization ... */ { *static = Freeze = Pending = 0; Mode = M_echo | M_quit | M_flow | M_strip | M_expan; QuitC = 3; } Again: if (ISTAT) /* check for input pending. */ { ch = bios(3,0); /* use bios to get input! */ if ((mode=Mode) & M_strip) ch &= 0x7F; if ((mode & M_quit) && (ch == QuitC)) exit(); else if (mode & M_flow) { if (ch == ('S'-64)) { Freeze=1; goto brk; } if (ch == ('Q'-64)) { Freeze=0; goto brk; }} if (!Pending) { Pending = 1; PendCh = ch; if (mode & M_echo) bios(4, ch); }} brk: switch(key) { case 0: return; case 1: if (Freeze || !OSTAT) goto Again; /* putchar(arg) */ bios(4, arg); if ((arg == '\n') && (Mode & M_expan)) putchar('\r'); return arg; case 2: if (!Pending) goto Again; Pending = 0; return PendCh; case 3: return Pending; case 4: mode = Mode; Mode = arg; if (!(arg & M_flow)) Freeze = 0; return mode; default: return; } } /* Special Raw console I/O for BDS C Andrew Scott Beals 8 March 1982 * for the Osborne-1 computer! * * Provides a reasonably flexible, device-independent interface: * * ch = getchar() Read a character * * putchar(ch) write a character * * kbhit() true iff input character waiting * * old = TTYMode(m) Sets tty mode bits to m, returning old * value. Mode bits: * 1 Echo mode: chars echoed as read. * 2 Quit: ^C causes an exit. * 4 Flow: ^S, ^Q flow control. * 8 Strip: input characters stripped to 7 bits. * 16 Expand: expand \n, \t on output. * * Hence for REALLY raw I/O, do TTYMode(0). * * NOTE: Program using CIO.C are NOT PORTABLE to systems lacking a C compiler! * If you really must use CIO, then compile this once (to get CIO.CRL) * and link your programs by saying: * * A>clink main DEFF CIO * */ #include "a:bdscio.h" /* Make sure BDSCIO.H has been customized for your system! */ /* Device-specific def = Mode; Mode = arg; if (!(arg & M_flow)) Freeze = 0; return mode; default: return; } } initions... Input status flag: */ #define ISTAT (bios(2,0)) /* use the bios input status function */ /* character output status: */ #define OSTAT (1) /* since the Osborne does its own I/O, it's allways ready! */ /* Internal static definitions. */ #define Freeze (static[1]) /* true if output frozen (^S) */ #define Pending (static[2]) /* true if input char waiting */ #define PendCh (static[3]) /* the pending input char */ #define Mode (static[4]) /* input mode bits: */ #define M_echo 1 /* echo mode bit */ #define M_quit 2 /* ^C (quit) mode bit */ #define M_flow 4 /* ^S/^Q flow control */ #define M_strip 8 /* strip to 7-bits */ #define M_expan 16 /* Expand \n on output. */ #define QuitC (static[5]) putchar(c) { rawio(1, c); } getchar() { return rawio(2); } kbhit() { return rawio(3); } TTYMode(mode) { return rawio(4, mode); } /* set mode bits, returns prev. */ rawio(key, arg) { char ch, *static, mode; static = "Nonsense!"; if (* READ ME MSCREEN COM SCREEN DQC]]SCREEN.COM IS A PROGRAM I DOWNLOADED FROM COMPUSERVE. IT IS DESIGNED FOR 52-80-104 SCREEN-PAC USERS AND REPLACES THE THREE PUBLIC DOMAIN COM FILES 52.COM, 80.COM AND 104.COM. ENJOY. BOND SHANDS -104 SCREEN-PAC USERS AND REPLACES THE THREE PUB:P:` P:]5":^2":]85:^05:]1P:^0P:_4P SCREEN 1.1 (for the Osborne 1 with Screen-Pac) Copyright (c) 1984, Loren Cook Use: SCREEN [size] where size is 52, 80, or 104. $ >>>!wv>SCREEN.DOC?  o!"#$%&'()*+,-./0123456789:;<=>9l7G,鎢){%׫rr jh#7uPU<#Ff  + pS#*eKJrx0jp!H XDG¬xw0F#$v4TD.DOC8    !"$%#'&)(,+*-/.0o4231657Z俷KLGгb=iM%dn,#;!WRU>Y޼7Ͳ^cޛfY*TRh?''21.ˈmlcm/4K sFRɻBgqv?wm,A A.}bia* .3?{qIJZD ?,$4t cWlE̸Nxs lcm-#F7n̈nzfͅ9f_-97oM2./pD(YN@,ͅ - gives this message FK C - allows you to examine/change 8 sets FK C n - for a specified set "n" from 1 to 8 FK n - loads set "n" FK n command - loads set and executes command FK M - shows current set and allows changes FK M x - allows changing function key "x" where x is one of 0-9, U, R, D, or L   ends function reprogramming, or restores function key if entered at line beginning. followed by [, ], ^, H, S, \, or @ enters ^[ (escape), ^], ^^ (home), ^H (backspace), ^S, ^\, or ^@ (null).  ( (# 8_^ͻ@)()(( ( 8   TD COMTD DQCH@ O1 DISK TIMER V1.51 (C) 84/02/12 M.J.GUERRA =2j!@:] (!2o @ O1 DISK TIMER -- (C) 1984--MJ GUERRA--VROOM INC. MILLISECONDS PER REVOLUTION SSSSDDDDDDSSSSSS g    G 1 1 1 1 1 2 2 2 2 2 2 7 8 8 9 9 0 0 1 1 2 2 5 0 5 0 5 0 5 0 5 0 5 g           G A diskette must be in each drive to be timed. Press and hold: A to time left drive B to time right drive any other key to exit $*Z> w>2ͮ@>2!ͤ@:!(Kͤ@!#:! >28UCͤ@͗@(A6 >2ͤ@(_A( B(>2j2a>2@6<@͗@6>@*@6 "@ x >2,:(>@@2b2,ɯ(A6 >2ͤ@(_A( B(>2j2aͻ ͻ^##s1!fT!fTUnusual BIOS. Program aborted.{8>þ.. A set must be programmed on your machine before it can be loaded. ͪF\ 02>02=. 462 )L: (fͪ )Function Key Set: ( ͻ>1n~%>2n~%>3n~%>4n~ %>5n ~ %>6n ~%>7n~%>8n~%>9n~%>0n~% )Arrows:(>Un~%>Rn~%>Dn~%>Ln~%ɷG~ͮ#ͮ 0 #2Current|2.k"Eͻ :]MCA!+¾:^ :*Er:]2H1& oG ^#V>O*En[E*E~w#t# -- SET LOADED. -- !~\o#6ցO:W!g.6#w.:OK:m!* 6\~C\ͪ*En:/ :m ( !+N Pick a set (1-8) to examine/change, to exit: ͧ!+ 82H1& o"EGCc8!<~6\ Do you wish to save the changes? (COPY OSD OSD B: $R DISK =^ M80 =FK *.* EX LINK FK FK 8 VDO FK.MAC 0FK 1 FK 2 FK 3 FK 4 FK 5 FK 6 FK 7 89OSD A: OSD B: $R vFK.DOC\   !"#%$&('*)+,.-0/123465789:;<=?>A@BoCDEFGHIJKMLNOPQRSTUVWXY[ZV)>]8leN UKJN?+?F/QӪf9 +//mt8ݞeɷ;^rPohjw=?;BB to exit: ͧ(!*( _!*w+2 }!*2822 <<22 2 2 2 >*EFNV2Dz29=.# character(s) remaining 7: !wͧ(=()(%:D(4:D=0$~#%ȯ(5=.@ pending ͧ=.@ (2! h((s(! * @! >H>S[\]^HS@* *E~F(OfhC:!V^N#!:9G~w: ( 2 2 K:(V^!!<6C!  6}2!<w!  _s#r#! :< _!! All sets initialized. 8 On which drive, A or B? Be sure a disk is in the drive. --> ͧa_A8C08@2  2  +FK COMQRS2+ !+ ,  <($ ѷ !R0G  Directory or disk full. FK.COM destroyed : _   New FK.COM saved.  ѷ !s^Q6Z"F KW~P{_r6ڃ_PKm20D,}NZ+I.=0\׫ؓs$WvFCy~=IF+C(X|*2#ɿ .mjv|ABI.n1J!O0E[? L钵^U(X1ǃNZMrYgh!b`|Abjzhtpd >SPX}euVc6UKRnj|Zr2.l# `T'g7pBm2jTZyzm=2R7e';g+I.=ˈ9otO $ X,n_Fٟ)|a|SZDt'gyz>gI]yX]U*ktCKOZ_jklmn01234567890F T!@SF!@ 0123456789012345678901234567890123456789 ~PHl3 .mjv|ABI.}-%ɪXX6$\~~Wy';$WyKڃ_PKŘAbbH [#I__~런ʱ'= L钵^U(ǰȿF3ǃĞϋe_AKڃ^7hՅ.}{{)Hr-}o-c2~ .mK_C$, nըo L׫ [OKF}.k/ɀsU7e>Xp>[7[q9D9ߵ^U(Gy~Gŀs1 >xdKڃe}pߗ\m$F]_9DbBVSx۱<\җw\ѭK" pU}ktz~Rj%2[ ~#Y \W΋w!{rIR;^3 ,n_zyMzUcp{>Fsa].#I.n_s~_7uh} \~]Ɵg[7b q L]~Ļ$vU,=UGCF0tڼ<m44aivçF/L/LVkap  4aK0Vkak5|F {ɿ ktz~Rh9W/#\/V#᳧uLlk4i]:S8W9|H-Qe|Y_~\{gW{P7h"8_D XpݾXU$\~^,~ɿ$jtz~Rj-} .mj> $/{ɿ$}(8D-Fcw=ew[`/MŀEWcsP U/~$2I$aT_)P9am$)8_2rKvL!kjVpi\V{FH}dyI5:=?)5W/茿%/&z~UߔZ~pjkFk]/,}o8k//H(ɥ75MŀA(9\pIRy<ok¾K 1ьj?‘؏**z~etƿ Jn*}3𞋔^w3{.e\A}k(@yh<,PA0oyΗs,}rNOJ-!j; }HKڃP3Fb8_th{ɿ#YFo49//#(*o#1:T fubUI__?h\p \ڃ^p>K_ntz~Rj3 ey~>&\ xe[ ~$ .mjv|ABI.uV|16dcѡU(`mċm_! FwHv?n_*{1Wpi\V{P7hEWTRKY8Ū"W{P7p×0zDHy?Fe|prw|ABI.>.mDojױa0n_FŀE^k#^lo¨p5{/}IĞc$?coAYpn4b\_pN/H(ɥh9_2+I.=#p~> $woU<* \ڈb {.b6eK<5K^g U.=2/H(e M"$X7|y_2[Pktz~RI)wW{PߔgTњsmD( Jru$PX] bl;g9K L"Ɩ k)A@bO"Ń1+­ek"q%:k)r6ؿz3烨//n_cF;./:I䡅[OK沃zn2?6:kne^ߚ/F__:o2h[GC9K L钺F{WrڠIu ΕlR?sg6nMV}~b4pn٧kRW6VWUksVId}^&`$҇^Q*I׫Y^Xߔ>x &], ^p+[*c.;)]֫ #woUl̈́[r2hxYHW}ԷD Y`9eKy6I \(ҍ,#2Z\\ľп9 X=8 "烈Z\FL3"e9[U&3g~:)>]򴱺Z;?UƐÿhO-yz[٤~TwSd'%% jIzOVU?I)>]򴱺Z ~lVթ*ύ6Z#ɿlϋ\$t{c$_Uĺ)}o(wk#Fb .mj?{y 7f­vҨ6s'0K\oM2Ret{.FG_FW}h:{1F?" %!#Qߔn}22ZL b$Wv!ʸ2/_L{j1·;]ߚe|oyVP2RGg_Z{r,}$W·;]7hEc K[`Eۈb}Se{r BW\fys;]pwZނ26wmċm탈huFb' ]qe3"vPe|I [\~\{ˈ9Uoyg=ǨFg`^, .mj?xU,}ٷ9=K7:n_wM( +3H&X \/VFϑ/(õbo~2腁Us 5{.>uk0 kRþ+I.u_Qxe>ŷ; $^7腁UYUҗsP|p;\Mr1za`=X_p6eSu^^ÖŗF/ xubU; $~װecF/ I$2Z~K\V\V}^ B` pI(ɨ/*r,[o4g%kP^/=a.O">)]zdy!X1\a4U -ȵ^U(G} {sO3Z*c.X2­zUu- ؗGŀA58O"{$yw6e}j:s8֫ #A1^/#6za,EκF+#A1xds8ky!X_,0rY~[7hzss~ubFwSd/p.KM8`H}$^ [#o~Xע__^U(^yy]1\? j 4ԭSU*OK`K[| epAEHq9.ul^yyo{yAŽ\.n_Esb׷b].+WF.YUr|y].#YFPoy^7hUѹ'xwPQ}iO_NW}F?zy[cgcȘC}\/VFw;kw]k@=/x؋x굅sg ʸ2~^H0B9zy.8 F-& 8D=.}Kp{ w}svƨH!na pYI2Ϻ0 Yy2ö0 Z֠9F-et3 0 +iNQ{KLza`nAsS=9Wpc!0&]{ JrpE\_Ư;|it$QeSPX{Ay!:ڃpޤ3 +Q].}ubU=1G*`_^hx&a+9} S=?-X>c}FVɉ5luyִm{<*_F m,8_ٱ/Fyڃ469Kq;|7"i 8a0j1ɥ&9Kq%K_mCA$F7Bgm<|A(ٟC1ٱuQC9I;i4+I.=sp~W{rG}kb0J!8\9A8|῀~)Kڃ^:4e]wm\,lXZ{r,}«/;its#YƟ}? 9W{粌ڃ=FK~eK_~\/&/#Q7he $0\Ghe\$( ;16 h,o^\\/Vu{ʝqs5bXeOv^}nU?.YV'%O.zɥ8c.Mdŷ<­,OAUn#} qk#e|ۈboH}1>'-ܪ~b]}AV9;K_p=M)9;_ڈb2pr?FbT]. AqOσ$(>Q(G_wۈbbC9k#}1WaC{ Ib/ܪ~b]2;}zotmz3N.Je茿}ssW/`}ap>9;Qe*aÌ'1JP7pN _L{jjotƟ˯%\[yϹڈ`F}QE<$ŗF_.;?U†Ob`eĜ1Iug;Q1|ubU1dl‘د~7ˈ9N.bJ0C92ڈbg~y]=D2|9hʩ9\T̝\=WRo'1f9 9Yڈ`<^7uh:~KXƿ?36Y2:=y:U/ b4?x8_D/σ$:2by;3:㕬{7u_Fe B_KZڈ`bm\"F00_b-,}烜coeƾ/w=WHBb/}ubU7bZmp~_L{jݗshd [  mSET COMxSET DQC-} The SET Utility -- Version 3.0 For the O1 -- (C) 1983 M.J. Guerra, VROOM, INC. ** OPTIONS ** SET Arrows Wordstar, or Cpm, or Special SET Baud 300, or 1200, or 19200 SET Hxxxx xx, or SET Hxxxx xxxx, to change memory SET Logical 52, or 80, or 128 SET Printer Serial, or Parallel, or Ieee, or Osborne SET Printer Top-of-form, or Formfeed SET Printer /Etx/ack, or /Xon/xoff, or /Normal SET Printer Compressed, or Wide, or Emphasized, or Normal SET Scroll ON, or OFf$ SET Width 52, or 80, or 104 Only Upper Case Letters or Special Symbols Required Examples: SET P S sets printer to serial port SET B 300 sets baud rate to 300 $ BIOS base invalid for this version of SET.$!>#> {  mL4mI?~l(^i\V(DW~>G9{ zݏZ_0]?vs n꿞mۼa,#y}|{e)\S8eU+M;ΧW$ü~ntl}]Q]yzoz.x-ϮЯxABҽϨXd5C^p/;7CKÀ ~TX}x:`6|{e3Nbl>mX 8  Pҽr/Nu(="w!Կc}QI UFBg%칵 P}o,FA U lǪ`Xs6f_ܱU7܋y]62s\\Kߋ~}WB;I3gMgA=Rܱ^D԰aK.KvW={nf5|]}W}=۬q7Ng<o[w5C̼;unsz?j=$Vqa@w=7(\Vpxg,rYKYFP8ݳJιv̛!DPOk$wy3.${1ӝ[=%s3i1O.%$*T.`y='͹ ~zbc> 顏7hVJQaY\QI U~ھSyWCIs 1 &(&(.>þ..|2:] (AZBHYLDPDSWʥ|2`*:mC(TW(S6#6#6#S(66Special$WordStar$CP/M arrow keys loaded.$6 #6 #6 #6|2:m3(1:n9(U% SV +ST<[Baud rate is now $300.$1200.$19,200 (unsynchronized).$.g:mS(/P(FI(QO(\F(eT(a/(lCLETW\Nd:?@͋ 2:?͋:?͋:?͋ ͎:nE( X(N(>w͎>w͎w͎*.h:mO:nN(F6 Scrolling off.$66Scrolling on.$!l:m5(8(16u64u6Pu{Logical screen width is now $52.$80.$128.$!> #>:m!5(8(1 >w{ >Printer set to $serial.$parallel.$IEEE.$Osborne.$top-of-form.$ETX/ACK.$X-ON/X-OFF.$no protocol.$_0? ?0 ))))o:b ($f --- Invalid address or data.$!:^ (78:_ ʺ78:` ʺ78:a ʺ78"|8( 0$ <--- Address not accepted.$ !:m `7{eﴭ z|a SOۇ{iJE{K۠_G.reɯi3[ R!DP 'kg?x.Ş0UX~'NlClޏm^z<$|Z̧Wp="_/:t?iC\ż-gwK.K?m !ڋ9a=/b17C}À z\O7CS[.0[\ry10*~؂B ǖ# rlkQkҞi\endYxE.,+j=mЧZc =~W<~9S[\=+~C\ryqP$Q5?/a"\z.vg;g|~~aO,*l{bU5jK.^O7CbNbpA\ry10*~؂BX˲>~s"ιco,Gՠ> \rYV'^iyĢ"y\i{܋9i{8>m_wԽʳw!xcedӆa>m0s🶿΍b>̧sC!fYiC߆8Tst{# %i|ƽʳ K.0FӿP9 \rIm!>;AgP(+$>ekmUx}L oP(잧B\R;큺jFA܇FAA?GW0y8s)ʳ|P$jK.K߆ܱ#UtfQz{>mx-(x=`:n (578:o ()78:p ( 78:q *"6SE}*w Done.$!!!!F#^͎compressed.$emphasized.$expanded.$normal.$EFv#SET.DOC[   "!#%$&'()*+,.-o/103254768:9;<=>?@ABDCEGFHIJKLMNOPQSRTVWYUZXwx1AWbX7C/[}`T8 }~t>\u36Ms6?ԭ{؂z.r%0*}+ Fqx04ܘ-P-bQs+T:[ggLy?j=g 0eCg|WW)y^$wy\N4{QÆvQI Uy7ouƹ[zaE.,>;QQ5?BHTʳzls.b~@-f?muÛB!SyjPry3~E.0:^1Gū^3qq\ Fc ,'1 `/+nx̋ƙO*.:u }>I,xTz]Mi?5OO\rYΧm42HW7+?N{. /Ls\xљ7C?ĂGeWR|v>mҽ\fmQ5cҽ_OۯtlExW|ƹ$1Ts6t6t?mX \r3k^{1ǯzp^ KO:p3;q*t$TstS(`S[ΧW~xz^.G-gE0$ڽNm/I"w Q;Oۯ?7AI{03Q.5O^OǎF^Y轿B4,ry]^#jޏZ_4K_%J#ϺBs>m;ǎF^YQ2hЏsy]W{1FrDANm!Oۏ*wsy]| ?2lR^I .x*0*(=ceTc`TQzǜQS[ΧW~xzt.=l# rj 8n:kX=lXK'80|=ObQP~GZ:\F;^>0*# =a>ܱf/^Oeye1a>z.wFd\l nX\^̇B UOSBORNBIBQS*ZPCHEERS BQSDTYPIT BQSZ۽YKW BQSh 9BIO OBJrpCvTOSBORNBI.BASP  !"$#%'&)(+*,-.0/123456789:<;=?>@ABDCEGFHIoJLKMON%B#j93pFtۻavo Ah2jOJ8WKwX-#եG#ly\ ~fv韔qZfku$IZ $-590/hOn!v;=35-ys{6'1YZNaVA'0Ð3v2{??7vVrgfW-_9*oU;+j~Jn<璉x~t$ڽ4\r)K?Ă7Cy3bbBIss]A׹LtzB9oO۟Mb·y. Lg|g|> o7cYCa+f8tv.Ge{)GT~fhm~ ;َ ~Tm~ ;ֹSKFS[W$s0oj w^̇ OO$1 `K.tD!bJ4f\rYkXfjWp3xMWҽmQKOb8 ~_ݐ}?\g̘R/>8Jk>mg՟Oۯtl^O !ڋcM\ry3oϳ~<{ܘ}#y{^ w;yԽg|?bq*eјWWpyY?Sbvn11t܋cggL݋yƵg++[:y+qㇽPtg/پu]~ ni\.?{>x~{ek6j/inDD,&*ȧbqD? 3ѽ6sexƪ<&lBA)Obg?j9+@+Ii+?J~d:$jZN?`%78ғQ^RA)7O ;ē1yn0YF?!C~]0 :%i":%iE8 uv9KҸEtv9KҸQ  tv9KҸEtv9KҸQ,IcFf~JnQ"pX@bL^ wJnW- lڍwo"<_N!ģ93q;Gtl=8 '1Ts6t|V`{L݋]}.g|++[?^4*ݘ!67ܱ:i&Nc={5< b~h\i1Q++[Om!ΥKz]ź6ms-QN/T(ȩ-ĹpGtlKb w1F ]}sǚιB9^$w,. x;g12Z`҈ˏh=cYNZ.?bs`}LlҧP{΃è]{͝c ˏh=?FAȮ>?'-іx}W—d<x~{ek6j/i< >ox-;n-x-{ :Cēh~Ĭqu6~-nø:jaјW-_?@-@-͉Ob9}= =$6E-_'7j&ۿuad]z0Wyϛ$4jҿ%g:x޻F-o\ds5.ﷺF-37 ?w{xǟh/Zf̀8 ePGfu7{yѻj! mdx&Q_0kѸ;U ?i#;OleF/`h7ѺZ坙yZf#eS=tu&̬e7[uPq6w9#@-}id֕kmj e3@-}id֕)~Kr:0U˜@bLyFJnJnn?n&*ŧM6+[xkp{([Ob2բuPa4Ϋ9F-󌀕xxUwwJnW- lڍwo"<_NvPCHEERS.BAS  !"#$%&'()*+,-./{0123456789:;<=>?@ABCDEFGH}3|eeVs (36jg|x^LD̮/>|f + U2+gH]f5H3o>1o^>|fث0HTʬ`2 Qfvm 1 11Ƴ3?>؇mV$eeVs (36jg3gvEo3 P+ U2+gH]f5H3=-f3/헙]/߇qaqA2+gH]f5H3ܾ1f03{0^A2+gH]f5H3Hp~>϶8[a |.YefF #N3ʬ`2 Qfvm 1kf"27\_fvt}W$Z.+=|VDeQ>~ǘ]g7f` QrY\$.$F$F8Ƹv}>flA2+gH]f5H3~߇fW$Z.+=|VDeQ>u O̮or6 DeeVs (36jgozc̮ag^a DeeVs (36jgo3laʬ`2 Qfvm 1w~>+za^az |.YefF #ЕLD2k;f6 Dʬ`2 Qfvm 1~ǘ]7dP> U$\Vf{>2l|1%g6g+ b.+=|VDeQ>/9s0@E0HT |.YefF #?/kQ[ M 8IJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~nrq?5pxls~yt_oUQKE,+! vkiga`\YWSMGC=9)% zujecb][ZLIA@;7620/-('"wmfd^XVTROJHFB><41.*&#  o88V_5s|#$naw cOGVFA ԨFWBrߎ\9폳;n3~=Wɪ0{YU^٫ʪ[aꚬjfɪWa Y-Vz߿GQsYUUU. +PUy +PeU TrYUU\V*@b.+_^U|\0{zn3{lWzl W˓mffd٫=Yi3{U W՟զf^*mfW+^ʽ Wl)um3*kKCp.yP>kW$+nT\$6&__r>C̮A\‹7q5 PUs8r $nU|Vfd8!v3^{h5HÑWWc7={5 PU^Aܱ[FUygH\mFMnJ3;7]vh5HÑVk7}r5 Pu+ pHz7n.YW`QABܾ3M_fv p_C}̮aVa8#w@ֻQr ی "F?~C̮A gv T 9cލ|Vfd8!?wC#zC̮A ogv Ts8r $nb.YW`QAB{~>o\8|V"+0vkIdE#n`a'. مd,Ik@f# eCn.@+%jtpIǬ!7<|jv-_ƿ)5ԓ`H'f !`6v]Sl`Gb@؍bt S[N8LAņٲ \av3@$|V>u/pe:5 p)?-`>]i|E+@b+}̮a9A̹gH3W~]s-r g?\8gv y `e>+@b} 5 0Wds\$FK5 0Wbs\$F8˼X}އ`CY$F_ L" 18@n-"k~̮_-gZaʬ`2 Qfvm 1ԎnLD߭x6 DUeeVs (36jg|`>mNV$z.+=|VDeQ>^Ef60!UŃ}nhW$z.+=|VDeQ>;W=uc̮agW3fYa깬 |.YefF # #cի3daʬ`2 Qfvm 1Wk 8( Dd2k뢃}̮eeVs (36jg\^kQ4<у}8[a\Vf{>2l|ƿy~0@E0HTU.+=|VDeQ>wݯ% ߸3{f` QU |.YefF #3{0 DU2+gH]f5H3>w73 <55iF<󴗧<%#W#7OKZn0IRw`H8_34[N+q<\,mM`Ӹ(ٕ4'- -SF$Vd뢎nIm{% N'tb :Q< :`Z]p aVЁjs+Ǵ;Vn vWCq$]udMƯў]f6۸Zr5?]r''+UfWFeOV.DǙ]s:Hˎ$F8 qʻ|rHq5 05H̩\v 1q89+ x{urHq5 02H̹8+@b y\)}f GGyER:=r5r󤹤s+RQbJ:sf GFy%R::%t7S8<*##HM-?L(ҨDztNJ#U"W["MV"-o7S#%HFn\|8NMIHRJHI+7?":ER:":.%tҊɛRQQH<p\*#]#}JJ#5%W["MV"OW"oJE%*)*e)EE{+ҋt8ȣ==RԔ)EHIiJ*rK)?@ABn5&CDEFGHIJKLMNOPQRSTUVWXYp}|32vtZ[\]^_`abcdefghijklmnopq@-?;7rstuvwxyz{|}~~zsqkie]Q=/)(% ywumf_^[UTKGFECA610#"! +/VI,͆w"U=ή*#PLz T%*``/mٻDjbH:X 2{4.x*#T<ӭB3Q)k`/$TH3:_*!^;020PkN^Sut4(4\:WOЉ0VЁ Xc,T[!NfC`75X HvlDa:- `Fd&`%dNq<\,mM`Ӹ(=4'- -SF$Vd뢎n4\:LЉ'DL+iuv,1i XAͭoҭp=0kk.(6I2Ѣ@= "0a&h <MS50`Ac`H3ʥF=1xjGp,F3LaZU:IdFdNl\=A'g XAL+c!LS :Pmnt4\`6 1sD`6бوbtZAh-L 3AKȐkNh3G0IRwDd&I݉!T|b XpXl98Lr6QOL㢐wy4 b4AK8C˹xa YDA!M4\:LЉ'DL+iuv,1i XAͭgh0"6k.(6LehQ 0 yqңiX s,8֭'SbF7Iꎈ $;q0$\  -C [Mq<\,mM`Ӹ(lՏ8Y&h gh9/ ,5"!е"^ut4(/o͎dNl\=A'g XAL+c!LS :Pmno>8̆@fcdFӲ Bkf(POfL ZBhǁpV}lj!C% XpЭ[ N n0IRw`H!Oh\  -C8 T.u&0i\_zӣi8N ZZ 0KHtȪE$2 h.N&tx& t`;4 Vȷz_MfC sʲDE5Q{ކ] glP^¨J@>҇kX mEr ֪ s4"=`/GA1*ծ?=BANii-yii-*SZZ [ Z4fkZ4PcB첗K+kwplkeuwMg[+ϸiAo.VpV w .8=IO쳎TkKέ}>GtNm W81FO=@Ni<4g]ܠ_ vq7D`}8oκACO:DC rCgx`[!/YZ'h8,1HtW]Y8MuqE/ vQ]riq=s4 h!02` &j3hUl]O*^.' #8,Ӵ_.x#b+7"^ ☗+^.i>a*ITlF SR|VoDܰ*^.i-Цq5RW1}}~䛪84M;.VpV黔}8;%v4eS[$W q[n=Ӌ'>yz{yp˦J/_5$QnQT-S]ޤ=~uF}K㕖: :³M#_pN a\g$jп'%>Rw,j;dGZE <{Fّ'}8ocQ>Ϯ ;Ң'tǢ}%{Fّ/}8@ԠB&)2z"jxz}=[hnOq Fr"M5̲L~u.VMEzQI+ T3*-}]OBcD$Ⱦ  !#"$&%('".!>Ͳ.*i ".D!>Ͳ.*i7Ͳ*Ͳ*!B1!*͝.Ü !B1!*͝. iͲ*iͲ**!-1J-* !-1B-* !-1:-* ".ë".É!FͽW oͲ.*i m !-R*!-R* !-R*  ^ͽS o  ^ͽO o  ^ͽK oͽ!E A".]a!A <ͽ!FͽAͲ.*i 8ͽ!< Aͽ!&!4 A͝.ͽ!/ As .ͽ!/ A͝.ͽ!* As .ͽ!* A͝ .ͽ!% As  .ͽ!% As.& ͽ! eͲ.*Ͳ.*Ͳ .* sJc sBs s :  Ͳ.*Ͳ.*_Ͳ".*"i" eͲ.*v ͽ! eͽ! e]Ͳ.*v ͽ! eͽ! ev-QYKW.BASN o! "#%$&'()+*,-/.1023564789:<;?>=@ABDCEHFIGJMKLOVڍjrT aU%͹ 1 \O~2j]C{1^_!i{=h}s=Rs:ơ }kpUJͽOÞSR!_fvž|-#-eN{_h/z0M"n _&C Bž|1;U8t;Zodh~p^Bs=.*-G72z>pUJg}\X=o`}A"O4vʸZAx9!`F,K|VX=od> }~(MMYҔO&o473)Fig% Dr1JS>+1~S4島)Qy-og%Fi3>mp=o$)Kߔ%Fi73)Fi7eQy-o4Zzkp=o$)Kߔ%Fi]1~S>)I1~S43) O\>,Fi7sQyWߔ%Fi7e1JS>b,FiwާDrQ4s(M\b|&(M\bl1JS>ð".A&*!*>i 1Ͳ***i*Ͳ.*i Ͳ.*!B1!*͝.Í Ͳ *Ͳ*&*.s Ͳ.*.*".*". ͽ!! AͲ.*i ͽ! eͽ! Aͽ! A% ͽ! A!A% ͽ! A!&! A!&! A% ".| ͽ!! AͲ.*i l ͽ! eͽ!f Aͽ!F͚!b e". ͽ!! AͲ.*i ͽ! eͽ!+ Aͽ! Aͽ!b e". ͽ!! AͲ.*i ͽ! ë́!F}o|g<*2Ͳ2*6".^ ͽ!W AͲ.*i6N ͽ!b e".Î ͽ!! AͲ.*i ~ ͽ! eͽ! Aͽ! A% ͽ! Aͽ! A% ͽ!L Aͽ!: A% ". ͽ!! AͲ.*i ͽ! eͽ!͚! A!2 A!J5 PAGE = LEAD TO TROUBLE3O : CRITICAL DAYS TO AVOID SITUATIONS THAT MIGHT TIRE EASILY9 : LOW DAYS OF REDUCED EFFICIENCY, RECUPERATION,  AND HIGH ENDURANCE2 : HIGH DAYS OF FULL )[ҔJߔ-Fiwޟ Dr1JS>+1~S4島)QY(M\bl1JS>+1~g=? }~(MMYҔO&o47sQ)KҔJz>z>ymnaZV-{l~>d(J><;?>=@ABDCEHFIL#"ɧ$*"+V+^"ýOtVNU!!S$͖LOM![$͖L!S$O![$ͱQJG2!$͙LhVM!$͙L!$tV!$SY~<ʴc3~#~#foL6+>ͥ7533>!>!>!>!>!>^#V#^#V#K>!>!`ÌRxT:L F>6æ 0,31,59,90,120,151,181,212,243,273,304,334ðQ 365ͽ! e2.! m!͖!͖ͽ! e! m!͖ͽ!m e! m!͖i5ͽ![ evv&!-1*!-1"!**-"!*!-1!-1!* VITALITY, EFFICIENCY,  DATE :CRITICAL4. : LOW : HIGH :e :6i : P=PHYSICAL E=EMOTIONAL M=MENTAL  DAYS - DURATION  : DATE OF STUDY- : SUBJECT,  (PHONE 528-4438)4 : COMPUTERIZED STUDY OF BIORHYTHMIC CURVES BY ELMER $ -( P - E 2 M 7 : ? : D IH : N PR EV MZ ^ INVALID DATES p ENTER NAME OF SUBJECT  ENTER DURATION $ ENTER BIRTHDAY,CURRENT DATE (YYMMDD) plP8`@`H HC2|%I|>x{6 #zHQs@ 8e~`B~[[[[ BASLIB #900715 5.2 - OWNED BY MICROSOFT, 1979 <ÙÙogDM*"*##"t>22*^#V"##^#V" 2!!!""!n"k6#6P>2r>2q>2p͐)͓) _"222 222222R2S 2#2&2)22,2U_!14?25*!9"8*^*Xʌ!6#}Œ|Œ6!>6#zŸ*\|>  6#s#r#=µ>22>25>2427":!-"EͲ' STO͹B*E.. . G~## ++#0:.Â+75L ͕->}Ĺ!+ͬ->}L  ->x,L~,"š#"~ʱʱ# V "·#+yͧ?*T^#V#{!V"?"A>2VN#F#*?~=}|=͈!+:V*?g,~=Vg,~,9#"?ɧL*A"?+V+^"AVL%2>z>z>z>z>z>^#V#^#V#î+>ä>ä>ä>ä>ä>^#V#!]î+,^#V#Lm4ø^# ,þ,^#V#Ln5^# ,,^#V#L4 ^# ,6^#V#I,Ĺy~##++8>x,+V+^+l+r+s͂L?~#^#Vç*n&*q&̈́-͊-+*k{<Ү͖+{ʽ=> *î| }*kڽ<î}î| }î|!*k#n&͈^# ,-',^#V#^#V#',,^#V#-',N6LI,i!-',Li!bm451^#V#L͕L͕Lzʯ|ʯ|n66^#V}^#V#ͺ6  ........*S|:P`*N|`E*X s#r*X {w#6"Q*8*N>2PB'Error -!~<ʆ=ʆ#~#}r#-Syntax Error in DATRETURN without GOSU Type MismatcOut of DatIllegal Function CalOverfloOut of Memor Subscript Out of Rang Division By ZerOut of String SpacString Formula Too CompleRESUME without Erro2Field Overflo3Internal Erro4Bad File Numbe5File Not Foun6Bad File Mod7File Already Ope9Disk I/O Erro:File Already Exist=Disk Ful>Input Past En?Bad Record Numbe@Bad File NamCToo Many FileUnprintable Erro!9N#F*R~#~v~+|~#~v+^#V###T###T|ʈ~#fo!' Internal Error - No Line Number -*R~#$' at lineEB> < <0͂+}_|W!s,~#fo>' at address|}B> ͂+> Â+!9"0*0!7 SN#"k!9"f"hy2j*C|ʏ*[!f"SA~#*g,~f!º́!ý͈!"ͬ*-*-*-*- *-͕*-*-*><_!45*"~#N#F#[5 s,yx@ +++6@#yw#xw+++6###!~6ĺ*#~#~V!*"~#^#V#s,Î|³Î++~_w#~Ww#Î́*DM~#^#V#%+z+{##{z~#q#p_yxDM~#YP+++"6@###{_zW+r+sɷt*|RV ^#V+"w#s#r+++r+s##!{*{z*?Җ}|~# œyG?xx,́8Â**͆,ͻ8͂### ' during G.C. - ' -' Internal Error - String Space Corrup#N#F*yx}*yx}++`i+V+^͆,##6+6+~6  >@++*"s#r+*#~_#~WҫVr+s##6"###!~#fo͆,¿<*"*}o|g6@#s#r#6"**"}w>#w##͆,++6+6 8~͂+#=-~͂+#-<B<ʰI!! {w:I-B͐B!! ~Ͷ(*-}/o|/g#"-|͹N6È!-~wɯ2-Ͷ(ͥ1͹*-͹N6Ͷ(ͅ1>>^!~#þW!->!--2# !-/!- ͗->>g,~#",f×~f!"S~,",#"~@@# /f"F#"x"[ [+~ Pyͧ'?Redo from Start *f!*k:jOÖ*h+~+ʳʳ +w µ++~#fo?"h!j5*f~2#~#^#V++͸͙):7+7+>ڻ8.a8e7E8>l7L7q7Q8:5)8>)8~%n8#8!ʀ8d)8D@8͉8>>>.9@8_{_88D8̋5>!6͆7> @8܉87>!6!7@8͉8>@8̹55>6V6=>P6368*MLnOLyOL̈́OLDOLnlLylL̈́lLzLnLyL̈́L-Ï-Ï"-ØH~# x2`:fFV#͘<͆~*#õV#~ *#>2`:fFF#~#fox̆ ~#* ø>"*G:jxʖ+*k+~ *>,*W*k#^ ̩ʣ+=ڣ͖+z{ڻ{_í!n"k!"C2f!i~6#w~!NVi&   >|}+!y!/͋ 6+6!->H12-!u!4!q!/!-/~_#~W#~O8p4!:(m4 6^ ɇ<o&͹N6*-*-͎ "-`i"-!-^#V#N#F#!u!n5 8x{8!-66wg>j8&8 :`Gw#  !- -Ͷ(-Ͷ( *-||<Ͷ(*-! !6( ͜!P :-2-:-ғ)͝ :-:!?!E!|/g}/oY!!):-b!͝ "->2`V ajX! L}͐Ͷ~)>29`hY!~&(-ʰ!+ʰ!+͜(ڗ".="e!E!͜(l!L!q!Q!:`">"~%J"#["!\"d"D"e"͜((͜( #"_{_t"" "gͶ(!e b!Ͷ( "e"ð!͜(!e ! "e"͜("̕ĬͶ( 2 =Ͷ(,  -O,>-8, ~#=S,!8,#~ f, f,Ʌo$ɧGw#|,{zk,٬NytZB<(sfioS;5#-1]h!IͱRg\͈UïOͱRU͔R!MͽU!pSU͗\OW!4MͪRͷRͪROR!H1b02-:-ͯ0&8x/F+N+=.!-.!->q#p#=.!-/",..ʹ.*,ͺ17:-7!-N#F511qD/Gv0t1x -/$/ï0!-P1DG$"-`i"-#~+{$-R$0OxG{$#~9$`xEp$y $$>2;À$|$$h$$$"-`i"-̀ #W͉&:;$ø$$Ҽ$('60̕ O'+~0$.ĕ $Ͷ(>"w#6+$6-/</ $:#p#w#6!=#z~%& 'z&'{ =&͏#3%p#6!<#:a~ 8%*8%+L%͜(-+$0v%#͜(v%++wl%9%v%6%"&ʚ%>(%V#+6%V %ͺ ĉ&%_x&'O' ';' %_yĂ"%"%{_x%&'&&y?'O&GOO'&*a=&P)%ͣѯ(&ͺ 7ĉ&yĂ"OzWO"H&V&/< ;'/>x'>p#=o'!-} ë'P >͝ ̀ (?;'͋ /{_#zW#yO++ҿ'> #̀ p#ڱ'>'(>;'N#F#*-/1&8:-ʑ.0/<͑.9&8:-O6G2-!-H1:-2-x!--00N04t1:-b0!-~++w&8!-4#g04ʑ/+6!--# 0ɯ# Œ0͌0ү0/!-Oyw#§0G:-0!-Vwz# ½0x°07!-00xN0!-w7N0~w# 0ͮ.7ͅ1 1ͮ.|1!-/ͮ.7ͅ1(1ͮ.|1͑.!-/y2-!-,~q+>1q_1NsY+T1J1 W~w+i1b1!-f1N6Å17!-w#‹1&8͜1}1ͥ1116!-F#^#V#Ný71}-~#¿1G++Ny.8-ý1!-7>2183 8!-66g>j8|ԣ6>1ak7!3m4(27x32"~x5656x4!q24]2!m24h3!q2m4h3!u2.4d&X4#]I72h3!h3QY 6ڬ2!2ͱ64 8 62!26!2m4ͱ6!2B44!2.4!34h3! 3m4׳]b5~P$L~yI 7h35h3&88v3&8~36F35 6|8R3!h3c363t5Å3>O!-~+>w&8QY76&8:-Ҽ3hڴ365Ɓʼ3ͱ64!3B4Jx5QY7&87ì7|Yt&wz^Pc|u~r173>2-! 4B46o}o|g("-p#=';'w1_cƤ~@zZrN vH Tʚ;@B''d #~: ʜ( ʜ( ʜ(0?<=:`(7-++͜(Y)O(H(+((Y!H##)(V M!) )}0?)))صo)M!5)3)}Y)0? K)? ))))صo5)a{  Ͷ(:-:-J :92:29V V !"C!"ͯ):)'?)p*):*>\2*)ʿ)ͻ*+)~ͻ**+ͻ**ͻ*͸*!2***O):**>\ͻ*2*yʅ*̾*7 ʬ* ʅ* ?*)Å*̾*)]*)ͻ*> ͻ*>)g*>#)€*6͸*!** *x<>ʐ*yq#ͻ* *> ͻ**ʝ* **:̸*wBÂ+>^ͻ*@ͻ*͸*~ *> ͻ*ͻ*#* *k +#~+<+=ܖ+ m+p+ +4+~# *~=t+*k!n"k*"k> *> *> > **ù+ G++~#fo+##+>+~+~?~++#, gN6s4 }}{(qnz 6 8t5B4t56~#7=xq58s4M4`6p48&8:-7҃4/<ͱ6&86gj8!-4~_#~W#~Oҽ7#4ʬ7.̀8ý7G~_#~W#~Oܝ66`648&8>Os4`648ʑ6&8ȯG5"o-y2q-Foͨ6ͱ6!D*-:-O"5-4ʬ7:5J5g.*o-:q-Oz#5J5g.*-:-05x<=a5{_zWxG)yOHGý7`6q588&85y+F+F+Fw`h|ʾ5gyҢ5:-O|g}oxG-|–5}‘56ElaOÐ5!-~Gx5ƀ7w6w+ɷ77 8x{8!-66wg6z6 >j8|7{>2-6/))6 =6!-~7w?##wy7O*-*-"-"-ajSXF77JS\E!-7/Q8 P87>{_zW}o|g=G8|g}oy8CZQl8 o-yOzW{_xG|8-*-DM^#V#N#F#xy.8:-:-7|/G}/O!>Q8 P87>{_zW}o|g=G8|g}oy8CZQl8 o-y6ͱ6!D*-:-O"5-4ʬ7:5J5g.*o-:q-Oz#5J5g.*-:-05x<=a5{_zWxG)yOHGý7`6q588&85y+F+F+Fw`h|ʾ5gyҢ5:-O|g}oxG-|–5}‘56ElaOÐ5!-~Gx5ƀ7w6w+ɷ77 8x{8!-66wg6z6 >j8|7{>2-6/))6 =6!-~7w?##wy7O*-*-"-"-ajSXF77JS\E!-7/HO麋Vcp:JQCam0fzCR27 cy9vyc2̞pћ!ѧ`}sQːh]\4é6ϐB}䪍rS/,'_!h}\`;,'_|g0M}8ބ!ч^ާ, i2XEk#1d.=Sϖ>i}N>/ԇӼ j#eѻh;M6'_𮍐BF,&^S[͐S0{!G4 om$yt2FYM>ѷ6B]Մϣs6rvYOeԖCNa(ՁZZr0B5o麅qSzinaܔ<NZX7l,(JjLL}xzuƂ{ b\?{gT4E^}U,u?\W^'"ԭn3<'hO\;9_c* /WHb#&vv=q$_/LyNxў؈k zao^'a0gA /Wrc&9y+7Ιk+X1UOmt#)Z!45? /̕>}R esZMp^PqDWBhj~_+}ޭ:\zi59rܧp#)Z!45/ZvDYOSZ-JEDI.BASl  "!#%$&'(o)*+,-/.0123456798:;<=?>@BACDEGFHIJKLMNPOQSRTUVWXY\Z][^_a`bcdfeihgkjbμO_?zsanhԳj}F޽"1GyיW߈Qnjns^y7mps~_,kןuskoׁT bwq=ͰP}U`h@$"RDŽHL1Lǔ"ufT {v ffX_.Bk\$]oHTZ3O>׉IB'ouU]0>׏u@$*a}ٺsuQv "Q?t{0ޥ`~h 7׉cq=H@$*a}ٺsuQv "Qq?P}ӽ=\v^񩧽HoC= 03/[5b..n?A$=F{~l{[0g۟BJil;d[~?6*{[ f۟BJil_Oϭ^ooʙc71E=gN?"43{H:-1!@kf~ G 7('D?ED?۟BJ)麧l?~7e<3=nb{Hl8Y_zf 3L/tVz&KEk[^׏~  kcJ鑹Zr]gMEUB$f3SkcJ鑹ZҚr]g7fT]wٚ kcJ鑹Z"f#ufz\o-ε{so"1G3gV?Տ)!ufz=ڽnWY/2]SJo2s991oU0CJ#ٜp: "13O^lcw5c} ~SW)!`c}fNϋtcf`c}s)ԫᐍU0s񱦴c d)ԫᐍU0s쎱>3'KOȋZv,vl+9Z7cx GUe:"!X33hf۟BJX3kJͱ; "!Z3O^lcw fNㇲƙEgt,+/k9"!F3O?3V̱; "!*3O^lcw9Y$~+;N߉1Nx+^5ǽcyQՎu8R\fc1g o *E8dc,oOX9ܿN>~uY:iwDB3O^lcw񱦌ds'G։:16oNͫj;}[cSXEkF>ǚ2U0s쎱>Hs)ԫᐍU0s쎱>3>Q(GjMcq"c|)U0s쎱>Hb)ԫᐍU0sp펱>H ~SW)!`e ꌿ$ݿn+쎱>H ~SW)!`eUuAvTsjwDl?z" f]oJ@*eec}(G3O^lce 9ec}(+3O^lcw5c}(=3O^l֫4Қ oj?zRVdsݽ"ο}zn}ʹH2/[59(Q9 ~S49Q9bumߨcqoo7қ?q,c *g3E?}tWk|VM)VwnQ9[3O9öj/"T߼`z.gI_1s4EB Ϻ oX/`Ǚ=YoU}~Չt_[Av*B"9rzf۟rH~Sܟ6f^#v?wr:f۟ry֢~ wEQrEr Df۟rHhͰ߭Xݑ ə@T9>"f)VK֯Z"9R,g_D[?ᄀ5~7=Q)_3?ZA0ruY$@Tf)'XͰV"}{E[a[5ݗ)jw۾jԛH,z+uHw^Rz?ֵic;{k+&3,c *g)'D?N2췿wC Ϻt *c)]n7[7{H)op:Er Df۟rH},)bû۪De9g۟rLZ^?vO{7x1oɁ\$3O9@z?ۿ-dКEr De?du Ru)@T)M挺1h)'Kt,Bt~"u * ~SN3EBkk~[$Ot?HooƤ}̰KOY$@T ~SNw;ZowCuO~Ot W1g1UJ~%5i=陾?vS h ~S ۿH M9Lǔ"ufT k[^׏~ M3SLǔ#s1%,=8O߫"Ѵft~L)=2WSZSnOn7KD3 kcJ鑹Z"f#ufz\o-ε{so7KG2c}kcJ鑹Zr]gzkqݛ{xY:h<3ZRzdDo2s9:r  0E/e "/HK'D5g۟R}ҙt,,R,y@$Z ~SO t<3_:y f)' ,y>Kgҙ""j?$<3gY:|<|<  ~SO t<3g g"Ѫ?۟ - ~SOY:|)~E_:E_::c)',y>H| g g"f۟R}ҙҙҙ?ќoJIx>~A t2tt #1| '<3'Kg?Q3E"Y:|Y:| tt ̰l]ֈH("1?2stODbToJ mMo?}]EUg_z龨NݞDb֗1I_e۟ # ~SOߵ}? z0k3umo0<03/[5b..n?A$*s)]^V:ӧQM۾"Q3uZ#"i6~DR?H?T2SloW} 7l ~S^MEh ^qOYݔuHgQو,̾!qc|VM)g۟rq]΄Iw=ƷY$@T6 ~SNX}RHnGBk8Mk)m ouFuVM>gt De3o"U]?vrfoWw}?%灨l*3O9Yc * ~SNDeofXvTXY:y De?d$~.OY֜)=lh l3O f *[ ~SOn[d{788 ՚oex9'KERUTUe%UUY:x"y۪3h)T,%.v#]$vXAT*3O/dUm7Q[eMVY:xsDe3rO[t𒪪,*K/XAT3O/dށHVbd.$vY$o[5c}Qf۟r9^Nb*Kot3ќoex9'UUY:xIUU^RUc *Gb)T,%"]R&vK3Q9rOUgt&j,*KoH޶j: r?2sꓥx"KIwYl3Qk)T,%3; r4oex9'j,9 rToJ2~@T<3O^l ~3hV!~ NioO# ~SW)e#s?ݗ>2Z0UJ]ΥSŁPRJlusT۟ *+b)Z}skןG[t~z+[QY)g۟r|X/QYifz!f!CaSqd} {OO3t-kqE{ZzO#F)g۟r91Z2ƅl1e(ds]tf?2sc1epFSb\QӴf۟r91Z2dՏ)CmdsiF3O~L\\!~L o;݁i*3uZSf;(?2sc1ep hcPd1яǔ%~Lq!Q3O~L\ǔ69959яǔǔ"9mk5%P5-192s@Դk5%P5f]'DM53U}i?nnr.cDMk4UC"Tߟf\пƢ gOYi9feT .QOL0^PRɿU,CԌ26V֗<4-`BԌ x)N}R\eQ93p'ETeQ3OYӌFfԚ8SQ*B!jF=dR*Bmz TߟfTWЇmfTC63Tߟf䙹׸hPpD3 lE?1sAWЇ+ jF=d`c_ӌ 7.}pqEЇ+ jF2poBi*sK\\.̙=d`c 7.}pqEЇb\@T2pTʙ 7.}p }(DMC6P}J3sAƥq.5ff8{Bi* 7.}pvDM5 l4>EЇ[BTF3{Tf.߸5.څ>RC6bT<3o\vxf4>]C-!j*=d`c/P} 0sAƥ.hP5`f8q'TߟLJk=yJ6x)=(QYͼ넨TfusCh5[ݴ\ De3o2 0cLǔ#s1EF3]SJ!*=b)ԫQU0s^HEݙEvO{3k%ۿvǀ>3O'Do *!`3L[dɸe,%f&(Vf.0>f۟BJ*9\`{Ջ)U/Rޫ^WHyz^"E{Ջ)U/Rޫ^ c *=PRX3G1>֔ 6~SW)lkQsD2UH6VVfcM9U­c *=PRX3G1>֔ 6~SW)lkQsD1UH6V63U񱦌ٜ*63J0U `9ǚ2dsc}o *U0scM9j>tPR* fLcM9UyDC?z*9j񱦌5X۟BJdc5XSFlc * ~SW)#X3gr5eTx3>t43O^ fc|)#@6G1gmPRX3G1>֔ 3JGk)ԫl3^r5eTxec}Q?z*9j񱦌5X۟BJdc5XSFlc *X3'80Eʻ׋w)^/R޽^{Hyz"Eʻ׋w)^/R3c *X3'KGL=d2(of2.FY$3+F 5Jp= c *w`]g81?vS[ZV7؋&Tߟ3g.߸B3ghx>EЇb=d`c/F4rK\]C1^Bxʙ=d'Tߟ\пqq.+ j<2'TߟӚ]e Okf@fcO\пqq.b\@xF3{2:4jz-!j<=dP}gKw /!j<=dP}cKwqE 8fd6qBi<B/ j<2'Tߟ1g.߸tW 59 e37hwS8<4քq=ķuGݩ;RɿU,C8ʙ=ķqSWwOJ9'~W QhfuT?2sA Qh!usE?N]9?)]E2Dc4Wԝ>.BQwNsw!5i*Y_\2Ka*#Tߟh&D3wSCϻ~oehcV? lNi. q3O~L\ǔU0sqD 0g۟r9zFǨ;!j1smbJ5>6~S.3G16D PΨP{oeQ~hf۟r91Z2dՏ)C!Er j0}%5h);reiK!j̰l]֌l6~S.3GO@Qxf۟Rf.3GWrD o2oJo`O{~֟>c窊t9bumQk.?tOo-n7Q}zi}[W|QkTwSowU9OZiMkz&DY?2st%lf۟ l?;uof`sоU91Q ̙wѺz9'wR92D%P!Z7Tߟ,g.hk@3 <4s4!*֌:f`hfQ^?ݨcf3LW,oul d:f@eF3}[0J3cfIQF? gY.!؟Otu *njnUVkusVMō=]Joeh\f^6c.3Gu1Us9z=2sty,c.3GX\fn os9zQ3Ie"FE5SX+)rBr]'Dlfus~7ҷ[ݴ\.ٚy Q3G3uGhOg\@ ~S.3G?FSZ-V?xU0sc}Q3=3O~Li[6Z-`x3CvS bBL`)Տ) wFS*Ɂs)Տ) wFS< w@1󯋲!jD99osLJs9xQ#=dpطZY_3CiJ`BԈEO T&D?.aEקZk߮~\Q#<3O~L\B6Z296@ ~S.3G?FSl1e(ƅlNF3O?3Տ)+dՏ)C!ciDM9ge"۟Տ)ٴuQ6DM)f۟r91Z2dՏ)C!/QS3uZSE5e3яǔ5.dՏ)C!Er j ~S.3G?FSl1e(ƅlHDM9oehc hcPd23/[5娝] QSzf۟r91Z2dՏ)C!Er jJ0}G4@eM T&DM !˦d}\Q?MKL}~=h)էX/?cRzZG`徾DYoJ?oun} Z3oJ)VwO5Vlp6ޖtL)Bn!=OqBh353oZ&0 dĜoj?۟Om'ZB?drmo0Z8muިzM=)Vݾ[dX_z9v jr.Dc|oj?AbfB/ j<2'Tߟ1g.߸tW 59 e37hwS8<4քq=ķuGvDYOSZ-JEDI.BASl  "!#%$&'(o)*+,-/.0123456798:;<=?>@BACDEGFHIJKLMNPOQSRTUVWXY\Z][^_a`bcdfeihgkjbμO_?zsanhԳj}F޽"1GyיW߈Qnjns^y7mps~_,kןuskoׁT bwq=ͰP}U`h@$"RDŽHL1Lǔ"ufT {v ffX_.Bk\$]oHTZ3O>׉IB'ouU]0>׏u@$*a}ٺsuQv "Q?t{0ޥ`~h 7׉cq=H@$*a}ٺsuQv "Qq?P}ӽ=\v^񩧽HoC= 03/[5b..n?A$=F{~l{[0g۟BJil;d[~?6*{[ f۟BJil_Oϭ^ooʙc71E=gN?"43{H:-1!@kf~ G 7('D?ED?۟BJ)麧l?~7e<3=nb{Hl8Y_zf 3L/tVz&KEk[^׏~  kcJ鑹Zr]gMEUB$f3SkcJ鑹ZҚr]g7fT]wٚ kcJ鑹Z"f#ufz\o-ε{so"1G3gV?Տ)!ufz=ڽnWY/2]SJo2s991oU0CJ#ٜp: "13O^lcw5c} ~SW)!`c}fNϋtcf`c}s)ԫᐍU0s񱦴c d)ԫᐍU0s쎱>3'KOȋZv,vl+9Z7cx GUe:"!X33hf۟BJX3kJͱ; "!Z3O^lcw fNㇲƙEgt,+/k9"!F3O?3V̱; "!*3O^lcw9Y$~+;N߉1Nx+^5ǽcyQՎu8R\fc1g o *E8dc,oOX9ܿN>~uY:iwDB3O^lcw񱦌ds'G։:16oNͫj;}[cSXEkF>ǚ2U0s쎱>Hs)ԫᐍU0s쎱>3>Q(GjMcq"c|)U0s쎱>Hb)ԫᐍU0sp펱>H ~SW)!`e ꌿ$ݿn+쎱>H ~SW)!`eUuAvTsjwDl?z" f]oJ@*eec}(G3O^lce 9ec}(+3O^lcw5c}(=3O^l֫4Қ oj?zRVdsݽ"ο}zn}ʹH2/[59(Q9 ~S49Q9bumߨcqoo7қ?q,c *g3E?}tWk|VM)VwnQ9[3O9öj/"T߼`z.gI_1s4EB Ϻ oX/`Ǚ=YoU}~Չt_[Av*B"9rzf۟rH~Sܟ6f^#v?wr:f۟ry֢~ wEQrEr Df۟rHhͰ߭Xݑ ə@T9>"f)VK֯Z"9R,g_D[?ᄀ5~7=Q)_3?ZA0ruY$@Tf)'XͰV"}{E[a[5ݗ)jw۾jԛH,z+uHw^Rz?ֵic;{k+&3,c *g)'D?N2췿wC Ϻt *c)]n7[7{H)op:Er Df۟rH},)bû۪De9g۟rLZ^?vO{7x1oɁ\$3O9@z?ۿ-dКEr De?du Ru)@T)M挺1h)'Kt,Bt~"u * ~SN3EBkk~[$Ot?HooƤ}̰KOY$@T ~SNw;ZowCuO~Ot W1g1UJ~%5i=陾?vS h ~S ۿH M9Lǔ"ufT k[^׏~ M3SLǔ#s1%,=8O߫"Ѵft~L)=2WSZSnOn7KD3 kcJ鑹Z"f#ufz\o-ε{so7KG2c}kcJ鑹Zr]gzkqݛ{xY:h<3ZRzdDo2s9:r  0E/e "/HK'D5g۟R}ҙt,,R,y@$Z ~SO t<3_:y f)' ,y>Kgҙ""j?$<3gY:|<|<  ~SO t<3g g"Ѫ?۟ - ~SOY:|)~E_:E_::c)',y>H| g g"f۟R}ҙҙҙ?ќoJIx>~A t2tt #1| '<3'Kg?Q3E"Y:|Y:| tt ̰l]ֈH("1?2stODbToJ mMo?}]EUg_z龨NݞDb֗1I_e۟ # ~SOߵ}? z0k3umo0<03/[5b..n?A$*s)]^V:ӧQM۾"Q3uZ#"i6~DR?H?T2SloW} 7l ~S^MEh ^qOYݔuHgQو,̾!qc|VM)g۟rq]΄Iw=ƷY$@T6 ~SNX}RHnGBk8Mk)m ouFuVM>gt De3o"U]?vrfoWw}?%灨l*3O9Yc * ~SNDeofXvTXY:y De?d$~.OY֜)=lh l3O f *[ ~SOn[d{788 ՚oex9'KERUTUe%UUY:x"y۪3h)T,%.v#]$vXAT*3O/dUm7Q[eMVY:xsDe3rO[t𒪪,*K/XAT3O/dށHVbd.$vY$o[5c}Qf۟r9^Nb*Kot3ќoex9'UUY:xIUU^RUc *Gb)T,%"]R&vK3Q9rOUgt&j,*KoH޶j: r?2sꓥx"KIwYl3Qk)T,%3; r4oex9'j,9 rToJ2~@T<3O^l ~3hV!~ NioO# ~SW)e#s?ݗ>2Z0UJ]ΥSŁPRJlusT۟ *+b)Z}skןG[t~z+[QY)g۟r|X/QYifz!f!CaSqd} {OO3t-kqE{ZzO#F)g۟r91Z2ƅl1e(ds]tf?2sc1epFSb\QӴf۟r91Z2dՏ)CmdsiF3O~L\\!~L o;݁i*3uZSf;(?2sc1ep hcPd1яǔ%~Lq!Q3O~L\ǔ69959яǔǔ"9mk5%P5-192s@Դk5%P5f]'DM53U}i?nnr.cDMk4UC"Tߟf\пƢ gOYi9feT .QOL0^PRɿU,CԌ26V֗<4-`BԌ x)N}R\eQ93p'ETeQ3OYӌFfԚ8SQ*B!jF=dR*Bmz TߟfTWЇmfTC63Tߟf䙹׸hPpD3 lE?1sAWЇ+ jF=d`c_ӌ 7.}pqEЇ+ jF2poBi*sK\\.̙=d`c 7.}pqEЇb\@T2pTʙ 7.}p }(DMC6P}J3sAƥq.5ff8{Bi* 7.}pvDM5 l4>EЇ[BTF3{Tf.߸5.څ>RC6bT<3o\vxf4>]C-!j*=d`c/P} 0sAƥ.hP5`f8q'TߟLJk=yJ6x)=(QYͼ넨TfusCh5[ݴ\ De3o2 0cLǔ#s1EF3]SJ!*=b)ԫQU0s^HEݙEvO{3k%ۿvǀ>3O'Do *!`3L[dɸe,%f&(Vf.0>f۟BJ*9\`{Ջ)U/Rޫ^WHyz^"E{Ջ)U/Rޫ^ c *=PRX3G1>֔ 6~SW)lkQsD2UH6VVfcM9U­c *=PRX3G1>֔ 6~SW)lkQsD1UH6V63U񱦌ٜ*63J0U `9ǚ2dsc}o *U0scM9j>tPR* fLcM9UyDC?z*9j񱦌5X۟BJdc5XSFlc * ~SW)#X3gr5eTx3>t43O^ fc|)#@6G1gmPRX3G1>֔ 3JGk)ԫl3^r5eTxec}Q?z*9j񱦌5X۟BJdc5XSFlc *X3'80Eʻ׋w)^/R޽^{Hyz"Eʻ׋w)^/R3c *X3'KGL=d2(of2.FY$3+F 5Jp= c *w`]g81?vS[ZV7؋&Tߟ3g.߸B3ghx>EЇb=d`c/F4rK\]C1^Bxʙ=d'Tߟ\пqq.+ j<2'TߟӚ]e Okf@fcO\пqq.b\@xF3{2:4jz-!j<=dP}gKw /!j<=dP}cKwqE 8fd6qBi<B/ j<2'Tߟ1g.߸tW 59 e37hwS8<4քq=ķuGݩ;RɿU,C8ʙ=ķqSWwOJ9'~W QhfuT?2sA Qh!usE?N]9?)]E2Dc4Wԝ>.BQwNsw!5i*Y_\2Ka*#Tߟh&D3wSCϻ~oehcV? lNi. q3O~L\ǔU0sqD 0g۟r9zFǨ;!j1smbJ5>6~S.3G16D PΨP{oeQ~hf۟r91Z2dՏ)C!Er j0}%5h);reiK!j̰l]֌l6~S.3GO@Qxf۟Rf.3GWrD o2oJo`O{~֟>c窊t9bumQk.?tOo-n7Q}zi}[W|QkTwSowU9OZiMkz&DY?2st%lf۟ l?;uof`sоU91Q ̙wѺz9'wR92D%P!Z7Tߟ,g.hk@3 <4s4!*֌:f`hfQ^?ݨcf3LW,oul d:f@eF3}[0J3cfIQF? gY.!؟Otu *njnUVkusVMō=]Joeh\f^6c.3Gu1Us9z=2sty,c.3GX\fn os9zQ3Ie"FE5SX+)rBr]'Dlfus~7ҷ[ݴ\.ٚy Q3G3uGhOg\@ ~S.3G?FSZ-V?xU0sc}Q3=3O~Li[6Z-`x3CvS bBL`)Տ) wFS*Ɂs)Տ) wFS< w@1󯋲!jD99osLJs9xQ#=dpطZY_3CiJ`BԈEO T&D?.aEקZk߮~\Q#<3O~L\B6Z296@ ~S.3G?FSl1e(ƅlNF3O?3Տ)+dՏ)C!ciDM9ge"۟Տ)ٴuQ6DM)f۟r91Z2dՏ)C!/QS3uZSE5e3яǔ5.dՏ)C!Er j ~S.3G?FSl1e(ƅlHDM9oehc hcPd23/[5娝] QSzf۟r91Z2dՏ)C!Er jJ0}G4@eM T&DM !˦d}\Q?MKL}~=h)էX/?cRzZG`徾DYoJ?oun} Z3oJ)VwO5Vlp6ޖtL)Bn!=OqBh353oZ&0 dĜoj?۟Om'ZB?drmo0Z8muިzM=)Vݾ[dX_z9v jr.Dc|oj?AbfB/ j<2'Tߟ1g.߸tW 59 e37hwS8<4քq=ķuGvOZSCREEN.BASZ ! "#%$'&)(*,-+.0/123546798:;<=>?o@ABCDEFHGIKJLMNOQPRSTUVYXWO1vgi>X=pb;kį1㵼E3:Q˂(VzYm<FMljjy8?ftcF=R+Pcݭ@qYp x{n[-njhᖼ1_,4TS7-rzGӜ~"Ii7ݿmV[Dܖ_jy hw,ѱ4Q-xjۛOQ(Ѫt̿rLP-oAţUt/N i~0,Vq{s)ߢ-*htL[jy %?H'}!2?H'}! T[@h>[K!'4__89)q/R˃E{zĐfZ@PGSdtv(SHELSUBR.BAS; o !"#$%&'()*+,-./0123456789:u7h}okw>t[ǮeQ֗[qcֻf׎8sy.G˚\2GUBiju]lq S&c=nc[TijDwpy,>n}9]f9+ 4"?wͮq͚Ezך2[ہmk]OZE%wo֗e٬w:ܗqrԻznrf_ [_zӽz׬#evv jxpK|ԻEVn}@wd& g;ܢ -Q-˸1]kZ`Z%^]:xef_@`m 7~E;^9]&-X%?w;.eZvX0>w]7#ȳ\.[:P;888O8_\6XDow澌SnxpKr98mqWc@,ExwK>X|;̚,ܗqjMmr.sw.ˇW6;G\EY[:n%/kֻfqVR (mץyP-"?ܒ7 jQP1n.'-ω!",n,kq#n.a_@x`wm(xpKޘ/DEQC(]}$.Ҭōb1¾n:o(xpKޘ/D1>oʼn!x_-3{,X\d## H'A'ݟZE>?;1|"ׂs9u𵠊xpKޘ/DE1٥幬ek.3P{ɮP JxwZPxV JcFnAd .5>w}#MxgßҌR -jM9rpE־e7fkv)0mn6XA1+'3(n6X葧樆4 61Gbn{6XQ^GfpTP2wn{6X&ޣ.qDJjV?Pw&0m "Y̌ףb%bf烴A:isQpu)&3 bݝ)>A=b%uA.q| |; (?(3h:,M;Bp5ifLY dѣ'9Qw>&(7EFaVtAa1ĺm{C ɴ(?W 0+b&5); (ڠG]J|K4:KA9 cĺÙ "k?=Gf%}dm K%ѣ.qt>rĈ·QPNuG􈬍&c·N@'@|ZQ3/Do|:!qBKq>tA`ʓexVv OZIPS.BASG  !#"$&%(')*+-,./014235768;9:<=>@?ACFDBE}z_i3vS?.BLu>>ZrYr_PwmG+_WtO+ΰ׫GFuߧsboƜXwZʆ>WE:%#FRͣ%5%#FRm+zj[#; l+ ;{x/- {o47L|w`s.'冋ߘ/D 91yxg?4=Zj1>{CTN! Dja1>ȉ!ub i0EI-"gcy ĐkHAZjQ1>91yi94 -д;rZh ~N injVkzFC_.rZvZhPϾʉ!~8}8"kHQPjQ}A'4WꉧO3S8᳷^|oF7 -ԏ[B͠} 91y`ZT=o~2o '4XCR עR[Vv91yP'֐ԢB{ZA<-ԉ5((h1>{iV'4O4'֐ԢRO.'4O4N! FAEEYCR njVkrٚ˜spB=ͼZĐfZ'goo͉!͔"Pxxg?ͼRZ(TGS|Ŭ! FARcF5lefscg\. W-%gOP+YCR [rsbH3H-xwZ'ipoja>OP4njVkrٚ˜jU H$N iFAT[rsbH'xz4C?E>{zĐfZ@PGSdt?_-Ox{V˓E< Lo([ ӛA rbHO'xVE`ZjM.[s/UZϞfފ.'4D%goo͉!ot\jyBO3S8᳧kcҌRPGS򞈧yqi~"'|qK򾅂ҬW{xV{5((cF6w]zךnhƽt7)J %ݰ17ll6 P67ؔwC7оشf 6$wi7wC_v}6}lHʆdWCkkkz>N s_ِH=V|6$}"h6$򽾦 {_ِ(`wLِ da롗6<?=A@BEDCr GKHLJFMOINPRQSTWVXU\Y][_^b`caZ  vu7BATLSHIP.BASX  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJoKLMNOPQRSTUVWL2bUAµJo@u*o7STIOY~ Oj$BcvKL š 'pjR0wDXXyWO o oCuKD-%A7Ϭi 㝗*-55"7h xDEk9Vf@PyUk]k*Z.*r^L["r㉊fBȍ'*mEҋx`n͆pEEV.Z]E*w*UVW]&m.ZhuѪEV.Z]E*w*UVW]f #Y]ҁ^h;*wJgzUn5d9FrtW.Z^hs*wJoE+ͤШX wQb!ڢQEѨX uY;č>_Ud gFR(KuC@؈8`?@_m FR(KgNo"e|ШXQi9h~ЕH:y??@[Bb)FR@嬣?C{ruz??N[9AD.߽o5!{i 1$*[+.֡9Yn&5QE]쓲m>oJ (TcnE cOE%-" *-VnjE @?A@{הnC+c({O\[/cnF{-䧹QdU4*xqhE Xݲ릛 PN=[HXݲ}cLf4-Q93-'h`:y覛nZQ?}yȊj#!6rR!{rƟ_+R[?~[+ĭ O󱎿4=>y?ku>RB:;A7B{+ڛ]LS?VɊWt:X1MF}JVs+Rb(ʩ*V1M@zq4fGC?dǗk#`~HOt"ūx>q702ꦛl^cǒ%7<:q9Db(c>ꦛl""7h#w3qS[è:qtS 㞝(0 [N5: bA^Ѐ $ SUB..vb#OZSCREEN.DOCd _ "!$#&%')(+*-,/.013254o7689:;><?=A@BEDCr GKHLJFMOINPRQSTWVXU\Y][_^b`caZ  =N?k1$Kҋu(B0YPu(BYK>Z&# &Db)PzQEȚ #4*]ti9 Y].S!v^5}hT,5AKhT,ee)<%}<~ct`M]'GCx>ny8=& #%I[8>='%$-^G#{܏H[\FwoBb)&Oa1dE]>`zrأy|p<~?/=#kШX =&,l}pqO ^FO,Fp9:b1p@?^x&K/>9$ }ra:.GF O eoMGFR11c/ /%Ǵgy#MCmm~|ШX 8=&OJ.o# ɧ!F0&_/Ir2zp{iOr}rH^њ. 4*B]0&x=-74d'䂻p)OŚ#4*B'û$91=ރ =!?'NJ~? 7 w ?ɽ5]FhT,~=]'uitp2qn1&x"- ! .%4*B-[Lq|z|O.xOwIrczOx=0zLo>aMjBb)t>:4`Mo=m/OI'8^S'Ƀ5݀ШX }<Џo?ee/-L#t߀^FOt9Qa8^v:ݴ%r^ w}`Ǥ_k Qz8PߐXbzn9"{aMe`cM8}!^{>ן_/kШX =+0&FrttѨX kШX ~N/C L<\竊5I^Qd!\,f<&k xZEgv~VTWMF*:,֑5YM؇ cLEb)VY,9*bf֑5ـШX Uti9`EZθvYBz5YNhT,*:4G%T,,#3:&u@`dMKNƓXթsNNִL؇ 'd dM;KObV9{8YvE|C:c"5mF؇ cL>TC`m KHg = xJkښШX kt.Țv@:(Ɠj7nNWOruXJ0dM. $ryiw ]T9'k ArPyšPaZJx >ؚ Pa"D`M~X?.bܚ#{PA|exu@NXS= 쭩kڍЕ3 W΂y1qlM= C[C`Tk9a*|v [k Atù5"{|}*!&`C 1vējk!c:'1Y3c@L<ώ;k!cbI|vZ3h P [k5ܑ5Az߭u(BL 6x_ bI5YIkr&{v1$nXxߎ!&DĚ#{,3ēXؚ<#{bI.[u(B& {lM> HY`mM,0&KΥY!pTHAI4~/]T9'k6L,(au*50DNWOB8*AS 本tX6'КMFO"ߺ) uXJ0dͦ%{_ \ 1$6fSau*QEM@l$rz9uXJ0d&'IJ9 ,lI4~[q@AS 本a"B+! ,~0CL< ab:N%2*֡5LAtù5L!CJOi@vu(Blj)#'B}CNc rhT,5:^TT9'kZBb)pUQDF%\HYhT,J/&'.'.au*ST"0AyId 3=>ϝxY,0DNE挰S 本an lsG0ׄʑ5:!6YÜL~b)foN?9WTC`vhOSBDSCIO.C[  "!$#%'&()*,+-/.1023456879:<;o=>?@ABCDEGFHIJKLMPNOQRSVTWUYZXz#t-xW?oH`JfϨZo=|~2 *j\΅i,JCZ_3gn=Uj~k L!󯫫_]o}r]Y36Hw*_v+\!j@/Z<>L G!|W\+=l=<0W^z~()|k92Fԓ gTIsӋCgT'#}$Ա4 )Z_Eش;g8|Wy%S'}F6nuFxbZsu:}Ay5}1DnlC>[-ƓiBtV޼XթsNp,YmG޳@i A:n)(ƓiߺXթsNp6uXJ0d 5Ayn7d Bb)FRHYFg\ G$ç#5Ų9hbLp!,RBSbOae*Ϋ&qо^xP7OaXhk&")tu*oҾn0ph}-7{TPTp`"m LX"U?דXa¯*4$n*o(=\=%޴5\E*RPa~ӾĢҾ-*Ҿu5 E#,R" j?6ljkT .,, %,Rooo7nj&kr뚰HEAF A6mju 0z@X"ņPo(7M@&M.7]m 9aL5Lu3չ4|A33ϔ>&65\oT 9r.9j| }砭H]N>wys>wnSQsF>g\[&,Rی|n6}n維}nk3:>E*Re>(y} |σ.y#,RBw'0oT.<}.nJwi,=Yk}]NKm 2")Xz}=־k_KRԾ. u}]i_7O.?[*NoT9'k8#tRP'㝗XqʫtS 本 qx9-B(;4XթsNpKΥYYGP^%B뎬,#GE:k8k Pt j>TC`OcSTIy7zJꘛyY6蹯jU:#W>;4Z!ܧG{W[o+@ӈ"k}:#WJx;CϻuFxR/ 7^~ izR!:#WJ17[g 6\:]r5z>ZcÅp>Ъ9 =уy:#WC%n+9lNnN}th$&ٟPI[oޭ,'Zv?̃Ur}x+/~Q%Ҡ'T[?[gk2̿46y=HsS z\`]IFƲ4հ<)Sf~Og OQgϻ;fC:k>h8SuL|*aJӹYStޭ5Bm=<bm=J>k`T5J:F`>e5,Ou[F[ol=FeR9\,壗^8GRBhj ߳\I*vQbv/|r!SoN80M[P|r}gٜV#_,W=8Gzr-Bݓc=X I_+}ޭ'uFxgٜVUOmt#)Z!45? /̕>}R esZMp^PqDWBhj~_+}ޭ:\zi59rܧp#)Z!45/Zzq꘮)WM6U[q꘮)WM>kx3m=TV&߷nF[3UtMJnrGŭ}ZTZE/s(dygrF!4^pҟ+A[H4}>[׆ܿq*n+1Y-_φ,"h3rŃ5q:@}aBU7zq*1Sz\`]Xe>ܧ U\a}'X4G2x}ޭ3rŃ5հh=gG5/ zR*>nJbJi,ׅX+p|d}SF`_=˵|;-TpO5i/z*W<\\RMevM ³\I*XTp7 nJǦ5s8Vh8SuL|*aJӹYStޭ5Bm=<bm=J>k`T5J:F`>e5,Ou[F[ol=FeR9\,壗^8GRBhj ߳\I*vQbv/|r!SoN80M[P|r}gٜV#_,W=8Gzr-Bݓc=X I_+}ޭ'uFxgٜVUOmt#)Z!45? /̕>}R esZMp^PqDWBhj~_+}ޭ:\zi59rܧp#)Z!45/Zzq꘮)WM6U[q꘮)WM>kx3m=TV&߷nF[3UtMJnrGŭ}ZTZE/s(dygrF!4^pҟ+A[H4}v=OSBIOS.DOC  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopq2qrstuvwxyz{|}~6t 5kj<0=:{m%voi|l>98.,)$ ~}xpa]PNIC/-*'& rngcb`^XVTKH?;741+(#" 40DeT9Ѹ?!p͒+ csq CD+=V,+9Ѹ_J8]1eZrq`h?BUܮ֌'Ժ"ZScjˉ> Cۮm)dV!ֽhJ8+B("efɕƺ7ŎjN'0ZWgt ^յn4B 8[9E7E'ƚpFБ!TRNѓ nA:'r + 𪮥uX .in!\7>6XAeI}!UeБQ(AuspH(-Ei՜%*^BY14KpF {}`A݂tN,At(L`AAP-=]&Stk$Lх3&StexBg% V`!} z)  [K`8[0rn6Ѻ",oZZ7f)LAbt%41XAt!]&o[^PVEAM)aPT!f)LAQQC VÄo,B( &lXb)pFلAusGT,+a!Po/M]/C tNh( ҷVse A  [8)EuEY Wu-)&j8B+h2 SWBeS1AU]Kr"?C3nD`gt ^յFYS 5ld0gK6ʢP41uhS>CUR)ҥPJkID1`):0 %T -G!ڪCbjo *8JqNq졉8&GDGR Y0 4&8[9YMl!9~$P9S"7RD6؟aC 9m[t 9hFN_iVm-Xa !š+B:',4K)NhhmA2Ym hFvʍ`Ak$4X& w!M). $Df ^YxeYHlIh Sa4QJZ?|*XM:dx߾}98B0BՇΉ 7B)5A:' C˪FR)޷j3ȳFE 8#- JpNTCPQ #N` " ,  I[͉ƒcFMȀScȢZnN= `9rtþ+YChbx(Wa caTeʉM oQ0F]hޟv3I/D2ӳ0 a V1ʉ| ) C@Y1X1J:'g0!HXr-shF+͇ n '`lN4!B:'fJ+ݮ,T9|>` @0Q(Yss|9`4PA8'O,} 0 N5:'Kc[`' 9|!Q(Y#bU$a҄&[͉rY#*64V`]qFrI)g8[(7rI9oȷP(gt q:MJ gt Vb03e eE f5'ڀѰ0*Hh2ƶ Bla,mD XAh2Bf% dRVN4q,oM7Bʉ&&J:H)N7T<+1Ŏ hZ!Kb4a&'ĈzVh7]m Y Vc<+Mfc8[hK!kb(򭜨Eh/$- %i{n7[9Q1Cdc웶t9d2tgVQ(@ T/CȉG ͒+5Ha]s@[ ^m%8'GʲP-QauN40!9E]8*ΉC YWu-ˉ&i] "! tN@jlWrɤA 需4O"!'Zaaep6 -HQTsagt;.1$ `blr^+xU:mUQȉ2z }Bc  'Xh H:(KYh8B3Q(h˄z0hshW [!M؀Z#@ vm,y!.rS\.JhbB`! ,@9aM VhQ,A2e(8\CZ iuL`Y)G}8^9`YڗSRmJ2,vZJqSFH651RvVqH:xh_NqL0D, *)]S`ҺSS!"l,T)Q!"X&QHOu/(3"]1Ou/(c"hxB{9EI"іB@mj)bCD0ְ-؜"E2 SBY6=+YU@g%YH) # PN8NH6=+,Qv HnNF}!0JwY4:<+BVNFtaJSY4IE,b]bcX0ҳY#Td%A˂B NixFe Ҷ;9ŻCR K, UCGfKKm! 6]`l P:)C0iFJXYU@0Z@@+$aRH,Y:(L0^Us9tg«2XP9B)r9Db),,/YR3|#ENq bF XŨ#*Js#9ÙU+N}ra FP`&/5-9^9ڗS͇0I@WsbP`Nu,%c)8+4KpFY) %H{&h:"Ic clRaf`ZJK@M֡'d1>8sm e:8sh:T֑RNq<| ) SJh%Ш[ᔯjL.8s$xQ &F0VmGJ8 6!*V1ƒ)M HVhWSh\o@BPc{ sQTH8:hbf)@%( )c| dh c)8HXh6J[9M  d{ܠ6PxyM _ V,CRNq<@ M#%s nר$JX(F2YM9I,ʢD0P+G9`=!ۍ(rAF2Y U9ɠ@eU9h?f)@Sj Lm:vF6 6ȋU5)FNq9Q5BR!T&lm`X/VH`9bNEPҡ A޾}rE=bZg@ M9y&3< Ul+KRCU/gsh6n -k3?@ABCDEFGHIJKLMNߏWuxŸ7>ݾT߮.>G~iyT٧Gͩ܁vO~}A؎3Y.uocG1[ d٧&b8c*>y;&8;zAv.kN0pu1b_ӛ_AY(< *wM`*f .(sDsFb": .! vMKڠoQԮ]BRw 6Y}v6Lﴊ;^3IrXsgpQk} 2<0 |ޠm9GAA*;1a:a*L>zG@WLɸ ͪe2ɸ 2 6LF jT \ BN!d 7"k$Lх@M-h\霢Hk$Lѝ7[,9E<& P)eM0L(I3I E%Av a@Ae\)Y MZW奲]A dTҷeI)2JwQك& :d8uEpFU]KrnX#5ԔStetaJtE=6=+ki4KrnلPV;Wu-C!M Q):ه@YbBI)r FXAY# a\r¬FXKN5 +1H 416f`}*.*Pv" JԒB־XŨ4⬘`I)gFX X͉I^ FYԟjuw?=t םh@#l7O}zW>i>ڋ/ʩ?I\tӕO<'mOy ݲsݵW>r_tӕ|}tE7]i6˟o 7{奻7c[lu.*vg[['ʿy.dD-د t`_.L{TYTEt50;buPkɄ5L']M F^À;O#7<~) jA`aj 29̸Wﴊ;&sp=u됄Ɍ qS'a9uHdla08gg2_ vdpd@\3;”3g8&#jNo'TAYcT̸W-L΁è5T̸W ]L΁èUT̸WLD:Z2&2W^ɞhAaT색9hCT̸WLD:Z2&2W1u~5:Zh 0W&Z U0*Sa*.mAt NFd*L=ehV.Ezk2U@Yͩc2)z% 2\Ȟ0Dmd*L 5x&3 2q!] >oD\s]:$a*L.QP!d@v82&3n2ĕGAA*;a2:\I S 6 +d\$Dm̍c20Lm0x>$X8&8< q \q`227xTd 0mP+G9:Om9E%κӟ c/~ѫ!Fwm^wUg=ys_B.輫?槗_ݩu9 !쭳6vGw#zo {5 {JXh[G8s,Vڳ~Kc"'coݼ;vyρEWB*n &od8A\<[^ iCXߐfF%.9J4i$jKpAi7{5jc0i<![ľ*#,pG7?}]ޓhTD(n &od.{[Y齐J:rt8A{'Ncw/}s Ѩh+0Cz 61@"4 ^ nogӧVqWXZ9>^^ZVBY?qtK޽'ݱy=jȜFO{"4YBu{ , a'`W[+a5# ͕.= 4XEBitdqt}ٵ)jtac{P,pG7/wwρڳ~mc8`y+|*, 90WC&epx8eމݼwwρ9pŸ040$u%H J)bJБ ;qҵûo= 9샐et%za7EI$n898B0BՇΉ 7B)5A:' C˪FR)޷vOSBPLINK.ASMY  ! "$#&%'()*+-,./0132547698:;<=o>?A@BCEDFGHJIKLMNOPQRSTUXVWqLH#5פ_ȟ1; ⥹EX"psN1y@1H5׹C2jsvYD'mmgST-3!\~N \{wynavdB'8d&:7OFHr'rHu+"do: 7ղw&{>uKEh$n9VBYuOSD/҆񿧳˞HJwzkGP6L0 70JX*E#ɝv˱X5ױvax핀Mtn% B7h&:7OFѸ${2ԛdBdWOӜ]7)7!KKg k]*E#ɝvYnE \xZO>4gMtM}hdrٍs[ͫÜv׹oNz9`\0:7QX}zb N^^(0i|'.K7%BG,PުSnWm5z>g0= {.Bp&DCcuzN,f ^A4D舍nk_nME)7re籋.["t+E=(0i|'lrS/E+&-S+z.1w΢nk-h<ܿZ'WOs_ps c!8~=U4DVToЭ~Dg)oOƢQ%B/PC&kҏa/m}jڂS XB. 7ղ3:XyD,Ύ"+D;%DMǛAPj39auN Y/QcremY?.xzEߔA>.|#x |w17}T*pDžTnk=磟uOgѿ?~,/aέ.7 qED||?zgρZ?6DiY/Q4s?!ܖ(0iva7%s2D־rpS-;{'{M?6DiY/΢QammY?O6ىae7%s~C ѧ~:谗,D||NU+.>NAvv,W2D =EeO\ ?>'kȏ\@=S'C o+)#x {ZLOg=-=Ӕ^nX6FQ|Nms[쩢_G{"m9{AY4skrr[֏äsvb-ǚoJ<ܿ4;ak .DBmlBg<]0JGY4sryp^}>us/]9;1&CRQ4F:xnt4gSQԾ3oH3yx:C2ȟawoX+{N:uu.XЩtѷNJ4.W˒(Em{[QJ+=sH^ S+{)C8G" g.i\p3\ҏԛOEy\|#~6P, ,t?hy\|F|Bo.Ec. $,!4s]Ծ֪h!T籗'zyzKXs[s[Q:׾3oղ~S!L[͕3oҩ}OE}3o'\9.=sVt ϝ^Q4Rh}BF x#+#3>|<ϞxBF x#+=sV3>& tBF x#+J"g.޾ɑ[4+a"*E㭧9;16gp;T(z=s~<߅8D[x\[O>Ro27g2Pػ`xG[6Q{-K~\7tN|E;g.\?sv^DS{-c*Z^W[ٞ0C_,\\u[@xȴu*E#N'Sc{k3+WKgM&X'\E[]:K4}= }p!幭Fxl^=0]Z:H(EbxҬzE1Vh1{!^&lSzaY4f!վx\|sEi{]z>;9:10Mf0g'^:gS#,E97~_QkY?bPnC{=;%? SETo<'{{owm5*yxL#r.CѳarMvc@-QZVS-rI\;! y9h E4sJ0>j5.{Z {)ܰl@-Q|Ƨ@[@ .҆eOaϳ=ZDh&g':yЛSn%Y(Z9~Dž[0W„|xODEtr@TxzЛOls[=}dX޳O\GSQaBo>i]$*&WVFis[{K?_:{胳hhP1c[8gO}po+Z9Ԍz1| H SEEh@-E+z?bd:WfE:)quRU\eF(Q*oOa/Bh ourHeo*X'e our-IYE["t|!=_i6!~[}V'wO-- ,7d&{;}7?a>wMTMgXwm_bҞ!ab &3, DhufX|Ж!'VëY/s:z}SheX޾4_QaKsw}S:3,D(âpDÞ]~Аz~6!5ѯ|Z9ěTOtZOi['뭉_ X4V6g.>Q4(y?.Bp_~OgwgCak .D(EX3 a_F3~_Qډ>׵ѯW%B/LO틔Ӕ^]gO=MFіݪmOgTxz^`sv蛈s[{8磷~霝n>gXV?9mm9Üv^}=GSQa9D9ПeT1w΢_~Ogx|zps c!8Fі= >GSQazN0gWM["tS+[ t̷u:gX=9=g~ߏzqs c!8~ೊFіmz\{;5}Tg(Z9~5z]j*~5zIq a "Z9 S 'mD "Z9k|j`|':N "Ecfs Ӱy"aBI4O svNU4ukə^kv(Zٍ>Yo~hw!_7%kv׬胳hH׬ܟz 2Y?.{E/΢p svbmzvoJ5{GSQa9;16gTmmgۧ^S7^g[x[iaxS٩蛈_3D|폷ۧ^S7^g>8ǾH|nkyuns uhE]6cDLMDr~]ډ.mm1%zE_F3>.fENʏ ˕ډ.Xd}N<n]d&/Ŀ~{K}5?.{EXk?Sw{CI +Ŀ~i,3EmNu7(Ri1a*EϞ#x5+x_EEhמf<; ]k-|J.|nΊƟvX^ Sv=ho{kԀ{ZLΤ=w9Ph6~|3N|A[kDg"x =-&gػ nk=U[Dx4RZEuck<; >!Fјe{r& }6⏦Ä|-}`SozsٍNanZs[cy >ɳzsok_uSE>{G?{Nu7#| pICNnq $\{~-2 Et~GEzm~DDEHpok;;HC[! yO:lbn$g(RS-kC}c@-*h y/y E4ƍ=Mlih hؓqQ_Eu}*ۢ)-AwGmm}S*,E#3@'.JЛFQK*SE]Opl;?RL Eډ..D(7='{]E]¬laQ46A$>^ c!8LDY3_n_:<20lA{*y^%z?VPSWDӏ}25}r)6EGw7vO"蛈e۪>{jaBњlg}:,t EkC" D?k0! =qC"~_QjA67l#?{Otv El[5>׏k{:xpǧvDh/K԰ 9-||9U?xxb+C")?vn?Bg>V7 D]i~xṉbϺK¬li~a8F,W4vE~=c!8 nk=UY4fFl¬YkG =Bo>> SEEhZm5da5;J0Do St5jͲ]Ƨryaļl@-,5~5zIq a "Ecə,t9;|*CO (g<1,ىv;U8֭{:22P.s Ä s쾫hیnk˜\~,7;{yzTƿ>}}/ tW-x㧢7UY4vəv&Q]믢>}\mo '#6Uo>}pzهJЛFQꍍ*SE]Opl/JC8nko]Eo㍟>Wg('gl{h(n|\WE]>.|c~i,#6Uo>}p)/'yvh h-/*SE]Opl/ZpDަ>m?}΢Q4^yr~sv ʗ*EOgl|\mE]>.|n3}.srܴtRp~Ct]>W?}ۢ's׹fDh,;{ə!L.x*_.h+vEKsZD} Uq-U+/EH//-,$V./E*XV7%◝+#E+ٹrhٹ2OyE+Zv,Eh,7{ə!L OEfl}E//j-,$Vo~ƵXVѯ|?L]#E4(R+߷xXE߻7z?L.xza"!{β@Vt|Vȏ`\EC&.tہh{ƧIX>}nD] 0.~xyY遷ED|8)^:V^rG?@Y/ 9;\m>=GsvXM%~8oƢQN0 KdmY?O6ىa)DߔZs[9[Sxi=JpǿN < ET?ϞϺn.6ޏ74.o逗x.|4%\~>\@}ܢS׏ުϥ曎=Jp*DE(E[k-|ZO>Mt$sDEhs&g/Sa(g.TqQ_Eیnk˜\~,7;{yzTƿ>}p1[ə,t)7rzvqhScZwra=YQ4fc[Vѯ|?L}E//j-,$Vo~~(g\ r]#E4(R+߷xXE߻胳hPK9{A4wwF8֭u'gzvKEvEKsZD} UcFg\e[bYED|()E_Ń*E<Ƨ]woѯ|BbFg\ rD?RKs"E} U~Dѿa}pQ4EH3 [h]d¬*'Cvg K6}T?s>. OSBPLINKAQMP'OSPLINK AQMRPOSPLINK DQC/vOSBPLINK.ASMY  ! "$#&%'()*+-,./0132547698:;<=o>?A@BCEDFGHJIKLMNOPQRSTUXVWqLH#5פ_ȟ1; ⥹EX"psN1y@1H5׹C2jsvYD'mmgST-3!\~N \{wynavdB'8d&:7OFHr'rHu+"do: 7ղw&{>uKEh$n9VBYuOSD/sv蛈s[{8磷~霝n>gXV?9mm9Üv^}=GSQa9D9ПeT1w΢_~Ogx|zps c!8Fі= >GSQazN0gWM["tS+[ t̷u:gX=9=g~ߏzqs c!8~ೊFіm^(0i|'.K7%BG,PުSnWm5z>g0= {.Bp&DCcuzN,f ^A4D舍nk_nME)7re籋.["t+E=(0i|'lrS/E+&-S+z.1w΢nk-h<ܿZ'WOs_ps c!8~=U4DVToЭ~Dg)oOƢQ%B/PC&kҏa/m}jڂS XB. 7ղ3:XyD,Ύ"+D;%DMǛAPj39auN Y/QcremY?.xzEߔA>.|#x |w17}T*pDžTnk=磟uOgѿ?~,/aέ.7 qED||?zgρZ?6DiY/Q4s?!ܖ(0iva7%s2D־rpS-;{'{M?6DiY/΢QammY?O6ىae7%s~C ѧ~:谗,D||NU+.>NAv҆񿧳˞HJwzkGP6L0 70JX*E#ɝv˱X5ױvax핀Mtn% B7h&:7OFѸ${2ԛdBdWOӜ]7)7!KKg k]*E#ɝvYnE \xZO>4gMtM}hdrٍs[ͫÜv׹oNz9`\0:7QX}zb N^^}>us/]9;1&CRQ4F:xnt4gSQԾ3oH3yx:C2ȟawoX+{N:uu.XЩtѷNJ4.W˒(Em{[QJ+=sH^ S+{)C8G" g.i\p3\ҏԛOEy\|#~6P, ,t?hy\|F|Bo.Ec. $,!4s]Ծ֪h!T籗'zyzKXs[s[Q:׾3oղ~S!L[͕3oҩ}OE}3o'\9.=sVt ϝ^Q4Rh}BF x#+#3>|<ϞxBF x#+=sV3>& tBF x#+J"g.޾ɑ[4+a"*E㭧9;16gp;T(z=s~<߅8D[x\[O>Ro27g2Pػ`xG[6Q{-K~\7tN|E;g.\?sv^DS{-c*Z^W[ٞ0C_,\\u[@xȴ'kȏ\@=S'C o+)#x {ZLOg=-=Ӕ^nX6FQ|Nms[쩢_G{"m9{AY4skrr[֏äsvb-ǚoJ<ܿ4;ak .DBmlBg<]0JGY4sryp0Mf0g'^:gS#,E97~_QkY?bPnC{=;%? SETo<'{{owm5*yxL#r.CѳarMvc@-QZVS-rI\;! y9h E4sJ0>j5.{Z {)ܰl@-Q|Ƨ@[@ .҆eOaϳ=ZDh&g':yЛSn%Y(Z9~Dž[0W„|xODEtr@TxzЛOls[=}dX޳O\GSQaBo>i]$*&WVFis[{K?_:u*E#N'Sc{k3+WKgM&X'\E[]:K4}= }p!幭Fxl^=0]Z:H(EbxҬzE1Vh1{!^&lSzaY4f!վx\|sEi{]z>;9:1d:WfE:)quRU\eF(Q*oOa/Bh ourHeo*X'e our-IYE["t|!=_i6!~[}V'wO-- ,7d&{;}7?a>wMTMgXwm_bҞ!ab &3, DhufX|Ж!'VëY/s:z}SheX޾4_QaKsw}S:3,D(âpDÞ]~Аz~6!5ѯ|Z9ěTOtZOi['뭉_ X4V6g.>Q4(y?.Bp_~OgwgCak .D(EX3 a_F3~_Qډ>׵ѯW%B/LO틔Ӕ^]gO=MFіݪmOgTxz^`~Sn  9녥Qtܟ/oJį}X=9SEhmo{胳hhP1c[8gO}po+Z9Ԍz1| H SEEh@-E+z?bz\{;5}Tg(Z9~5z]j*~5zIq a "Z9 S 'mD "Z9k|j`|':N "Ecfs Ӱy"aBI4O svNU4ukə^kv(Zٍ>Yo~hw!_7%kv׬胳hH׬ܟz 2Y?.{E/΢p svbmzvoJ5{GSQa9;16gTmmgۧ^S7^g[x[iaxS٩蛈_3D|폷ۧ^S7^g>8ǾH|nkyuns uhE]6cDLMDr~]ډ.mm1%zE_F3>.fENʏ ˕ډ.Xd}N<n]d&/Ŀ~{K}5?.{EXk?Sw{CI +Ŀ~i,3EmNu7(Ri1a*EϞ#x5+x_EEhמf<; ]k-|J.|nΊƟvX^ Sv=ho{kԀ{ZLΤ=w9Ph6~|3N|A[9{A4wwF8֭u'gzvKEvEKsZD} UcFg\e[bYED|()E_Ń*E<Ƨ]woѯ|BbFg\ rD?RKs"E} U~Dѿa}pQ4EH3 [h]d¬*'Cvg K6}T?s>.禚uSE>{G?{Nu7#| pICNnq $\{~-2 Et~GEzm~DDEHpok;;HC[! yO6⏦Ä|-}`SozsٍNanZs[cy >ɳzsok_;?RL Eډ..D(7='{]E]¬laQ46A$>^ c!8LDY3_n_:<20lA{*y^%z?VPSWDӏ}25}r)6EGw7vO"蛈e۪>{jaBњlg}:,t EkC" D?k0! =qC"~_QjA67l#?{Otv El[5>׏k{:xpǧvDh/K԰ 9-||9U?xxb+C")?vn?Bg>V7 D]i~xṉbϺK¬li~a8F,W4vE~=c!8 nk=UY4fFl¬YkG =Bo>> SEEhZm5da5;J0Do St5jͲ]Ƨryaļl@-,5~5zIq a "Ecə,t9;|*CO (g<1,ىv;U8֭{:22cK:@'0Eq ]Mt$<΢QtbW>:lbn$g(RS-kC}c@-*h y/y E4ƍ=Mlih hؓqQ_Eu}*ۢ)-AwGmm}S*,E#3@'.JЛFQK*SE]Opl/ tW-x㧢7UY4vəv&Q]믢>}\mo '#6Uo>}pzهJЛFQꍍ*SE]Opl/JC8nko]Eo㍟>Wg('gl{h(n|\WE]>.|c~i,#6Uo>}p)/'yvh h-/*SE]Opl/ZpDަ>m?}΢Q4^yr~sv ʗ*EOgl|\mE]>.|n3}.srܴtRp~Ct]>W?}ۢ's׹fDh,;{ə!L.x*_.h+vEKsZD} Uq-U+/EH//-,$V./E*XV7%◝+#E+ٹrhٹ2OyE+Zv,Eh,7{ə!L OEfl}E//j-,$Vo~ƵXVѯ|?L]#E4(R+߷xXE߻7z?L.s Ä s쾫hیnk˜\~,7;{yzTƿ>}}pNtNu7bd;gdEh|9;}*ǺəT0gp;tȐndEX'k'{ڭ0.~xyY遷ED|8)^:V^rG?@Y/ 9;\m>=GsvXM%~8oƢQN0 KdmY?O6ىa)DߔZs[9[Sxi=JpǿN < ET?ϞϺn.6ޏ74.o逗x.|4%\~>\@}ܢS׏ުϥ曎=Jp*DE(E[k-|ZO>Mt$sDEhs&g/Sa(g.TqQ_Eیnk˜\~,7;{yzTƿ>}p1[ə,t)7rzvqhScZwra=YQ4fc[Vѯ|?L}E//j-,$Vo~~(g\ r]#E4(R+߷xXE߻胳hPK:aOhw1= ˢ΢Q4w.ehOg5>.xza"!{β@Vt|Vȏ`\EC&.tہh{ƧIX>}nD] ?@ACBoEDGFHIJKLMNOPRQSUTr y"K?jQa7.|}n$s d>ɉFј y"! ZsvYD'έugS4[4fB9Ȝ=O\]~7ovD_}$E#횛 y2!ZdxLȷx>̵-Nv1rnjeE J^}xrO[nwn# Fn!d;g)N-})/KEh$]s ~܆Mf f˥Q4މ߮Eml{v=-&:}i!.{ZG-JPB^9;]}+wdXWQskaNv' AMľX09D9}دuE|ot;vgQ4鬈7iOO_Fњ} ^ϊh,z^SEGM(n,^G|kC/߱;Z=ysڮ.zSY(_*Ek"M8V1(azNxrS/Ea$&b'(sk+O)7r+skEfGlsaE .f'QAƺ"6硗ot΢h| >+b|z]_Fњ ֊r7F4?=L/;]o-˜H-E=X0i|'7^b+ ㏚2QaYXio>:[;zY֊lyD(". zS/xzEDFњ2叚':;Ly{/Ek"@mkȄ +by>s}DFs<΢8Vdy _{"鋴YﻇF(i; 96.ƢIo\1!skEVv](>y4e7L[ne|dXD4t7xmnC6"?Dܿ 3$xn>W!x@^}B.^82/g?*}3D̾>~T 3@,/'Q48,J:?mno<9&wyɵ4^R:ZZhmέox+bs봾E[%K+K=/M\sD[߻`x"YQ4R?W|Nsaպ"9}Q4v;b>Ư/>64=cCPtns sc5cw±?Ei\ c?'9ׄq\4; {]Ow!ޅ(jc=5.{Z {)o Es2lέDkO=}ᵷ9}?Q@מDϭu6KlMȹ{޷U4jo _Etvb<=M~ˆyVM65H.{Z { 5|Q46;>~8V"=4Cw:W;2>X0Wy.2(8|pnx~)K'yُNOE;>EOzuQIh>Ew_j=q"(AF46&ی-Y'yMxjA=届i]b]EOz9}?QIh>f5 Eϧia(έ f_gwSn(έsYﻇ 9;]]4nwh,zy}߅s.^18,%έ7F<✝ڮ>.HB`"=^(έąڮ>g'wrXWij]̵6Ea$q #EKׄskE#fo Mf{Wkٞ;ֺNEhdjluj*trdj;9\E#,-LM}=bo8*EM˳y7c5bpO(Ey\Aν610?_*Eh Xޞ{nI@FQ췀}[ZW( cco6AWњ݄h=D L! ]]5A=ұ$ z)({=gi|hc,QRV M{XskK_=4E[+;V =,ϹΥ^ xxivc,QRdϹ'bisnsk"'bsfwuߜ>Q#ú"&ҥQIhqRDh>-*j(aȴZ'{;~ ۫(aNHE~'QÐҞń__,HEW(ڜ-be ëYﻇmIG#Qq* c9[FQ~N(IGs_IX(_lisYoZq~s{RQ(_lasMt':'mZEa,4/E73hg'6"..~ߜ5Q4鬢h| >(_z}Þi];/E@lvDJEw_+b$LUm\5߱~k""4v.skE4(Խ(Z[2Zq:{cDcQä=v9gHBMľD֊w_];Ÿ((έsbDڮ.E%&pyxvjADB! cqD\Y8O<v97hm>4;oJc4Ot.Q[+9FƁ 5߱~x WtKo?(έDEh` 5߱~x Wy.5Z=MY46dL8x WεcQ[+9Fơ&P<9}kZEia\>>~\{?6|6-j`^} H=[*8kq޷r4Ot;5|Fخ'w5i۞݉! ?V|>aGDa$]_qwK_OۥۻDr8U~//ҭsvj" (AQ߲UY4v~ɝwgy{>v>7 ugE#fx}X{hoiv=hm쉚@m^o _GN.z`*E5MC@pL|S~k'4(X=љx ޏ{ZL=o|;saRQ.]0(kE +U$J/2պ*wX($b<()VV2(d@(v4wܯU/dVQTzq(_IS~?EJfwQTz_&*,Eh&wzIt(ɄXE_O<:u skE4Q[+9 繩eMxSEqnȞgyx٩ꢸð"S9(a l]b]sBxJ͵cQIXDP0|Ԑ) "$癋|nk;# # DqOo;;n6dop&[<KDaLD"[4.BM}"'C-#cŹ"{(έ4|z=.(jcc[i&&^47 <{M|??E"OJsG5A=届# c"aҧ(jcv; K ƢDgItQIXdIokiY& +EOyPQp0dfڜ6mOOD" Q"zm>|>~΢Qt%j~ñ-4; <{(D4.BZbB͸18uyz߄vDS(AsEa쏇GƃEHK(Zёa]E"%ׄwh,zOtvړH"EA6iO^(zʃX4Mi{}0&!- ×7,E!}hB]\Q4Ƕy!Fјe{r':y"{hoD(eۄVIh,z<]oyY6~(XEa$!(F9OOsny~iNuY &sk"$ą^}-]ƃ,EOzIŹzeDgW:WNsӲ(έ%:by>ɳzuQԵRNrDꓩa:E?B5߱~]D0!ο{6E_(jc]ĵο{6"F,۟& H{#]oZ'hͲaB͸18uyea.(zcE*rQ~/b|zjA=届"k=yPI>I>)rqO:'Sc~. # Y-XHPZEaL$dŹ":;bu EC" E?;L{ vDQEE* c#'b"qvDhmK&NJwO܆=O<ǧvDh%&kș%ub||9(zc=gvDaL$d^"skEuvSoi~x=7(έ戧MSsMt{](jc]SaEDJEw_(Z)Z'(jcfn%z1E]ihoD(έDEhMe}"'{.B7^lŹ"{(hͲMЄXY[z1^}-} 8VdOsY[iq޷!E]ihoDo 6 {k97թ{޷U4v40>~\{?6|Fј=mr':ڮ>_O (g<[wjq>Z'w=_O!ʱoNN4fO3fo)oBs.^)(h]DЄy&Ի<%QM65XWOkq&wiho hݿ'XEm_(j~ñEQ;wpDqnn[AE(h/y~_O!uqD;hrdOsam_:d 9ɉ gYο{6s~NyD;̈́X.(JsFwڧ ֊wK'yMxSEqX0iP0&iF싴:=L0>tyyY<آ0N=y^GsDQn3D9}{NmWŹ"{(y'Ģ0?iN aiCh,zyNvBD;͒(έssxN'ړXx!&:fQfɄskED?랳7vuQی{svDӃy^z9H,wh,zsw󜋗Da$᝶D="zm>o:>Xx}"&:u_4ӖP;ZS{ tn󜋗DqnȞ#,E;grsvj{؟h3=OE76/ [VPQE[Vέ8biS祢؄xv>.OSPLINK.DOCv  ! "$#&%('*)o,+-./1024356879:;=<>@?ABCDEFGHIKJLNOMPRQSTVXUWY[Z]^_2\`=bacedhgjf5ik6%.*7H?PJj`1Gl|1N:G1Uζ]I{2@QG{?ZMc0bSN~0bSѿgڰe'ćA0~@nTbѿ_p( 8F}W&-`Ŧ?:!/-`Ŧq r7/2WC}㽈;p( Sl;ߚzP5Bۆ^ %/^bPDɃC5E[۲S;;>z ѿy!JÑ|kqD}9mC(6e{iܑU)Z]u얠/ѧ0m Be_qZH?9 *_e|;itm68?)Y*P#i؅~ o>0 O0 (i>|6˽%^ŁYHb4\Bw cHSh¾9gvg1ci]K&z$Ƞ Em[a)e_)^}&#'=)頫 ȃ.2@C/Җ||Pp,ߚ$F_I'+]]A϶ buvƕ}Htu9S9D_يnrя^st-ݮIف:r\] m Be}W鮥5);P+O9̟p,ߚ$1ڌ=rPl* xw6#G?zUJ{45ݮIف:rvKS넼ܶ!T&1z@EQDYL@ÑeX ȷaеdyBFݸtuy)e_&S(2 V+.QRAWW?@]NǷe᳁^-/\oBb*CBsF9=ӏMXb4#~ xm񧔕s~ O$XxRݓ P 9vmxMl_ui nuUHj)oF}i E~*ݴ .Y|wƻQTQui:]Vɿr{Qθlˇ?_xZa\3=kP g~ָFpV!;Ood{qn;߁, =ř ٸߖYKo3 i ͙&O' θ^8ږD}d]'auE}LR.K[6<(#'|k}LR.K[6<Խ8)˷f!?|/,$邽%=mu ^,ߚ$F0|לK,c/2H>D(T6v Гg6D?@{kErgomGɚz= ._{-؝@ʓg6i?rֶ|ݷ~g6<Ë E0|/ lmY ڇhom{a^Xֶ|cY +h?rֶ0|3mɳnW>@{k[{a^Xֶ|/^bwۆ}xֶ{Aom˧}'Ϻm>@{k[Gun{*omGZO֤IpmpG|1`_E'mЌ θB vx2Z/:Iof_pƵ}x2Z/:I'y7(_pƵ]S?|/ G zIz4'lBO`Yg\k;OMYaND7m:9`| nuUHg6>i>|6ЎoC}[[ՉVt+yă}:Oiz@"s{+hj vz=C7 +ӵ@AB`%zOE:^ V` ?9 *_e|;itm68?)Y*P#i؅~ o>0 O0 (i>|6˽%^ŁYHb4\Bw cHSh¾9gvg1ci]K&z$Ƞ Em[a)e_)^}&#'=)頫 ȃ.2@C/Җ||Pp,ߚ$F_I'+]]A϶ buvƕ}Htu9S9D_يnrя^st-ݮIف:r\] m Be}W鮥5);P+O9̟p,ߚ$1ڌ=rPl* xw6#G?zUJ{45ݮIف:rvKS넼ܶ!T&1z@EQDYL@ÑeX ȷaеdyBFݸtuy)e_&S(2 V+.QRAWW?@]NǷe᳁^-/\oBb*CBsF9=ӏMXb4#~ xm񧔕s~ O$XxRݓYWl|? wALom菁g6Dы )+WCeOَ!}|v?-觓>Y\-cC"v3Mo7Og_( v=\N$ۨGeuqf'TW)<蟬uَ!GIَ%V^v6Fqb~ UQ)^4%w[fZa|R]3?Ss 4G^}}&}&dz:|.?@'B57v6omG~"|(+"|+ '=ŋn3ѿ_YGMoBN<)˷f!џlϜrgOg|u? ^Qߎoߖo1TF l?>4~K3-T'=ŋn3UW)vBciGUи)t6owUËظ>)kyu@OD\wͦWͧ _}8(8J`9{T]=o`9y w >uJ u` }>(; xQ }} ˸T}ٕ(0D=C ,= ( [ 0%D , 7 ͏ ?(8u x O - ; 8˸x X ,-xG}; }م 9; .>#n0[ D = - nx P ,-(-˸G,-; }ٕ? 9.>͏ 8u ?= u+-(>O 0u O 8͏ ?x P , 78ƀ8ƀ8ox٨!دoGOW_gɷɷ|لg{ً_zيWyىOxوG|ٔg{ٛ_zٚWyٙOx٘Gxٸyٹzٺ{ٻ|ټx٨ xx(ͼ ?}ٽÏ }ց; <(; 7D = |٤g{٣_z٢Wy١Ox٠GD  BRIDGE2 COMvBRIDGE2 DOCx BRIDGE2 INC,BRIDGE2 PAS9 ͫCopyright (C) 1984 BORLAND IncA Osborne 1al selected)(= ERT()~7#~=% o&ͦoͦܐԩͣ}!!"8~#(}:$= +*!Z!*B!!:(=2!Z: <2!!!:O::O:!*B! !45(!.+/ 0y0( d!kZ!{Z͈͈o&  :(y ͠|( *"x2y( >28!?"9!!>2 :D]SXN]D [u J }x>uu}ƀ/ƀo; -J }0W-J W,}l˸ͨ 8 ; ` x( -ͨ 8J -ͨ 8,J }l8;*!` ! >u` ` u--- J ,,,-xGg?+2n*8t z~,->uxua}.; OJ , ; !U >,k- o&0%,` }g; }؉}颋.:}8c~I$I~L*kٷx˸; }0G,͙<},-(-J ! >0 a` o8 Oþ >um.`1pF,t6|!wS<.z}[|%FXc~ur1}Oٯx(<˸ͨ 8; !~Jͨ 0O!><ͨ 8 =  7 <` O ; 7 0 W-J OT0 j oD,:j !I}袋.}8c~I$I~L!>u` ` 77 ` = O nf^VNF!DLT\I!!53!r1!\!> x #-= o˸xO(- }(x>8(C ,C `iM!>u|; |J>| )=|(DMbo˸ͦ88 (!e}̈́A8Q0G: x@!\w# (   yV. V!h6# (*(.(!8}(*(̈́w#>?> w#a{ |͒}͛Ɛ'@'7||}>"C"6# ""͐ͩ*B"[R5*"^#V#^#V#N#FO/o&9O/o&9!9(> (G!9 w#E͊w}8uRB0 >R@RR!+ͨ z R!+ͨ z <!+ͨ z <!+ͨ z <!#ͨ z <!+ͨ z T]KB!z> S>))0 = |JJDMgo>jB0 7?= H\<z5+)+<z {0Gɯgo||H}||/g}/o#}o&K[xAJSJDM!b"!6J"DM'ͬͬdͬ ͬ} Mx(>-Ͳ{(ay(Ͱͦ \z(>.Ͳ (Ͱ ~ͦ{>EͲ>+|(|Dg>-Ͳ|/ 0:p# ~# +>0w#,-  60#J˸}րogM| .(C = ~> x0w#xG%P %P ZJDM%P = _~65i+~hìx-Sx9?+{Η@}|C C gZJDM0D ,7}o˸  #yO!@9i&   # w# /w# w#!9! E9!!9~(+F͊!"9!(#>2*Ͳ"|>" :( ͆ *6#w*6#6 !\$![ (̈́( #:~CONTRMKBDLSTAUXUSR>2$*#~ Ͷ$*:> >w###6RѷR* s#r$ s#r"S"! N#FB(^x * 6#[<(H*! Kq#p##K[! *! 4 #4! x *$ *>w""{_!"*nf}(HR0nf" ^VMDnfutqp*s#r*s#r"* 5KB!>u~#fo{_"*R0RnfR0KqputsrNF( ^VNF^V*SutKqp R*R(~w~wnf ut"6# * *!""*NFy(* "*B0Cnf* [R*"*RS[s#r^#VS>O"w2x2!"" @*>2"!"""!\Ͳ*: !~6go(\R*s#r_2x( s x(T]DMR0 -a%}̈́o*!~6o&͠|ͣ}%^C User break1:% I/O% Run-time% error ͒%, PC=[R"͍% Program aborted*1!͍!;5Ͳ8:TJQKASPHEDICLNO"  #6++p>2S-$Ͷ:*6###ww#w$w#w: ##N#F*B> w#w#[s#r>2S$Ͷ$*6 #-Nw#Fwq#p#6#w#w#w* :( ͒: *^ F* < >26"~͟*-w#ww#͟"~ <@*Ͳ!\  <ʮ!\$> >2*|>! * \$\<(!: [1Á\!(f"> 2:!<"F( #~#6e>!["N>!~8>O6*"w (=(&("( :(N 8y(~#x+% (6*#~[*#~ *~(h#"b=  8 J= B== ͯ}8= ͵}/ͭ !*###~-_~(4Q6*>2>*##w:>*##~*#~(E[ ( ( ( !][ ( ( ((w#(6!]~-#8~>7  [>Okͼ"!}2!}2!!45zʥ "!*+)*&s!*+)*&s*&!NEʍ *&!ͯEʃ *&#}2!}2Ü *&!}2*# !!45z *:4^q}Ò*|(M|( M6-#͐ͦ[R8 (G> ͒C~͒#*ͦC!h !lTRUEFALSEͦ!9^#(~#(G~͒#> ͒> Ò "F![(#RR0*4#4> RR *4 #4(>>2$*V(/˖:(#~+ x y2!͵( =( X:(R*:(###~-_-͌X> :("͟"*^˞*V˖0 SRѷR8A* N#F#s#r$ 0})jS\*###w* N#FB ͟r+s> !T]>)j)0 0= UR!#U*^#V#N#F#^#V>">!2DM"~x(L* :O(o:" C}=( ?*-N#Fp+qq#p! * F+N+++V+^Bq#p>>> Sqb!!Ezʢ$}26*6&!<*&))))*7&)-Eʗ$*6&! ͯEu$*6&R!b×$!*6&n&Re.!qb*6&+$*7&#b#*&#M#h"4!!5z2%}2!!5z'%}2*4*&))))*&)Q*&#$*&#$!!45z%"*&!NEb%!}2l%*&#}2!*+)n&}2!*+)n&}2*4*&))))*&)*4*&))))*&)-Q*&a*#=%"!!5z'}2!"!"!!5zʨ'}2!"!!5zʗ&}2*&**&))))*&)-Eʌ&*!"*&#D&! !5z'}2*&**&))))*&)-*! *&R͛}oE'**&! R"*&#â&*!NE:'*!"u'*!NEY'*!"u'*!NEu'*!"**&)))) *&*s*&#)&**&))))**s*&#&! !R!(*!))))C*&}2FKL!"9"!}29*&R0! !A1R1!!A1R-1!)!A1RA1!!*!a!K*&))))*D&)-Qͪ}oE1*D&R1R!Sb1R¶1R!Hb1R1R!Db1R1R!Cb*D&}2ê3!8!Ab*A&(SR2!}2ö2HR/2!}2ö2DRC2!}2ö2CRW2!}2ö2Rg23:ö2!!ͽ!}29Ŕ1The suit can only be S, H, D, or C. Try again...b!K*&))))*&)-Qͮ*A&Q!Sa!Ha!Da!Ca}oE`3!!!}29Ŕ4You don't have any cards in that suit. Try again...bê3*A&(Q!Sa!Ha!Da!CaEʪ3R*A&(b!!ͽ*9&!NE0!}29*&R3!!!8!@b\4R4!!n&!́ points)b!!R!(*!))))n&!́ points)b!(!R!(*!))))n&!́ points)b!!R!(*!))))n&!́ points)b""!!Ŕ Contract: b!8*b*n&Q!1!7kE`)R*n&(! b!!ͽ*n&!NE})!}26+*n&Q!1!7k}oE)!!ŔTry again... (3 N or 4 H, etc)b! !*n&Q!1!7kE(! !!8*b*n&(*s*n&Q!Na!Sa!Ha!Da!CaEl*R*n&(b!!ͽ*n&!NEʂ*(*n&!NEʟ*!}26+*n&Q!Na!Sa!Ha!Da!Ca}oE+!!ŔTry again... (3 N or 4 H, etc)b*n&Q!Na!Sa!Ha!Da!CaE)"!}2!!ŔBy: b!!!8!b*&(Q!Na!Sa!Ea!WaE+R*&(b!!ͽ*&(Q!Na!Sa!Ea!Wa!a}oE*,!!!8!@b\4R94!+!!8!@b\4R\4!!!8!@b*@&!NEq40*@&!NEʆ4/:*@&(e. 23456789TJQKA|}2*&!K*&))))*&)-E4R*@&(b!!ͽ*&!K*&))))*&)-}oE5*@&(!SN*@&(!HN}o*@&(!DN}o*@&(!CN}oE5Ŕ0The suit has already been entered. Try again...b5Ŕ'You don't have that card. Try again...b!}29*9&!NEʼ3!K*&))))*&)!K*&))))*&)-Q*&a*&Rd7!*&! ͽ!*&! !*&) R!qb!!EzO7}2B*B&!K!))))*&)-ED7*B&! ͯE"7*B&R!bD7!*B&n&Re.!qb*B&+6!*&! 7R†7!*&!ͽ7R¨7! *&! ͽ7R7!*&!ͽ!!Ezb8}2B*B&!K*&))))*&)ŔPlease enter only N, S, E, or Wb*&(Q!Na!Sa!Ea!Wa!aE^+*&(WRj-*!))))*!))))*!))))*!))))*!))))*!))))*!))))*!))))!*͡"!!Ŕ Contract: *&! *&b/NR|.*!))))*!))))*!))))*!))))!*!))))*!))))*!))))*!))))!*͡"!!Ŕ Contract: *&! *&b/ERƒ/*!))))*!))))*!))))*!))))*!))))*!))))*!))))*!))))!*͡"!!Ŕ Contract: *&! *&b/SR/! !ͽ!!ͽ!#!ŔEastb!!ͽ!!ͽ/R/!}2 0*&">*&}2-EW8*B&! ͯE58*B&R!bW8!*B&n&Re.!qb*B&+7*!NE~8*&}2D/*C&*E&N*&*E&N}o*&*>͛}oEʻ8/*C&*E&a*&*E&N}oE8/*&*C&N*&*>͛}oE9/*&!NE+9!}259*&#}2*#0*F&Rb9!}2* 1) and (hand[player].Cards[leadSuit] <> []) then begin case leadSuit of sp: write ('S'); he: write ('H'); di: write ('D'); cl: write ('C'); end; cardPlayed.CardSuit:= leadSuit; end else begin read (Kbd,tSuit); case UpCase(tSuit) of 'S': cardPlayed.CardSuit:= sp; 'H': cardPlayed.CardSuit:= he; 'D': cardPlayed.CardSuit:= di; 'C': cardPlayed.CardSuit:= cl; #27: goto Q; else begin GotoXY(1,24); ClrEol; error:= True; write ('The suit can only be S, H, D, or C. Try again...'); end; end; if (hand[player].Cards[cardPlayed.CardSuit]= []) and (tSuit in ['S','H','D','C']) then begin GotoXY(1,24); erro BRIDGE2 This program is an upgraded version of BRIDGE. It was written in TURBO PASCAL on a 52 column Osborne. It's still a "play against yourself" program. (I'm working on automatic bidding now.) Type "bridge" following the "A>" to run it. Press ESC to quit a hand at any time. To begin, type in the contract (e.g. 4 S, 3 N, etc). Then type in who the contract belongs to (e.g. N, S, E or W). The hands will rotate to put that hand in the South position. Begin play by typing West's lead (e.g. S 2, D T (T for ten), H K, etc). The suit will automatically be written in at the next player's position if he has any cards in that suit. Just type the card rank in that suit. If he doesn't have any cards in that suit, type another suit and then the card rank. When you press ESC, you will be asked if you want to play the hand again. If you answer no (N), then you will be asked if you want to play ANOTHER HAND, if you answer no, then the program will revert to CP/M. r:= True; write ('You don''t have any cards in that suit. Try again...'); end else if (UpCase(tSuit) in ['S','H','D','C']) then begin write (UpCase(tSuit)); GotoXY(1,24); ClrEol; end; end; (*else*) until error= False; repeat error:= False; case player of w: begin GotoXY(14,8); read (Kbd, tRank); end; n: begin GotoXY(30,1); read (Kbd, tRank); end; e: begin GotoXY(43,8); read (Kbd, tRank); end; s: begin GotoXY(30,15); read (Kbd, tRank); end; end; if tRank= chr(08) then goto R; if tRank= #27 then goto Q; cardPlayed.CardRank:= pos(UpCase(tRank),' 23456789TJQKA'); if (cardPlayed.CardRank in hand[player].Cards[cardPlayed.CardSuit]) then write (UpCase(tRank)); GotoXY(1,24); ClrEol; if not (cardPlayed.CardRank in hand[player].Ca Doug Cox FOG member Aug '84 (* This program will be called by BRIDGE2.PAS *) procedure Play (hand: HandArray); label Q, R; var winner: Players; trump, leadSuit, highSuit: Suit; vRank: Rank; tSuit, tRank: char; highCard, tricksLost, plays: integer; error: boolean; procedure Lead; begin highCard:= cardPlayed.CardRank; highSuit:= cardPlayed.CardSuit; winner:= player; end; begin tricksLost:= 0; plays:= 0; player:= w; case UpCase(sute) of 'S': trump:= sp; 'H': trump:= he; 'D': trump:= di; 'C': trump:= cl; 'N': trump:= no; end; GotoXY(32,22); write ('Plays/TricksLost:'); while plays < 13 do begin for j:= 1 to 4 do begin repeat error:= False; R: case player of w: GotoXY(12,8); n: GotoXY(28,1); e: GotoXY(41,8); s: GotoXY(28,15); rds[cardPlayed.CardSuit]) then begin if (UpCase(tRank)= 'S') or (UpCase(tRank)= 'H') or (UpCase(tRank)= 'D') or (UpCase(tRank)= 'C') then write ('The suit has already been entered. Try again...') else write ('You don''t have that card. Try again...'); error:= True; end; until error= False; hand[player].Cards[cardPlayed.CardSuit]:= hand[player].Cards[cardPlayed.CardSuit] - [cardPlayed.CardRank]; case player of w: begin GotoXY(3,ord(cardPlayed.CardSuit)+10); ClrEol; GotoXY(30,ord(cardPlayed.CardSuit)+10); write (suitName[cardPlayed.CardSuit]:2); for vRank:= 14 downto 2 do if vRank in hand[e].Cards[cardPlayed.CardSuit] then if vRank < 10 then write (vRank:3) else write (name[vRank]:3); GotoXY(3,ord(cardPlayed.CardSuit)+10); end; n: Points: 0..40; Bid: string[2]; end; HandArray= array[Players] of HandFull; Card= array[1..52] of Deck; var player: Players; cardPlayed: Deck; hand: HandArray; cd: Card; ans, reDeal, amt, sute: char; quit: boolean; j: integer; const name: array[10..14] of char= 'TJQKA'; suitName: array[Suit] of string[2]= ('SP','HE','DI','CL','NO'); procedure Deal (var hand: HandArray; var cd: Card); var vSuit: Suit; vRank: Rank; vCard: Deck; cardDeck: Card; cardNo: integer; begin vRank:= 2; vSuit:= sp; for j:= 1 to 52 do (*Put cards in arrays*) begin cardDeck[j].CardRank:= vRank; cardDeck[j].CardSuit:= vSuit; if vRank= 14 then begin if vSuit < cl then vSuit:= succ(vSuit); vRank:= 2; end else vRank:= vRank+1; end; for j:= 1 to 52 do (*Shuffle*) begin Randomize; cardNo:= trunc(random*(53-j)+j); vCard:= cardDeck[j]; cardDeck[j]:= cardDeck[cardNo]; ca begin GotoXY(18,ord(cardPlayed.CardSuit)+3); ClrEol; end; e: begin GotoXY(32,ord(cardPlayed.CardSuit)+10); ClrEol; end; s: begin GotoXY(18,ord(cardPlayed.CardSuit)+17); ClrEol; end; end; for vRank:= 14 downto 2 do if vRank in hand[player].Cards[cardPlayed.CardSuit] then if vRank < 10 then write (vrank:3) else write (name[vRank]:3); if j= 1 then begin leadSuit:= cardPlayed.CardSuit; Lead; end; if (highSuit= trump) and (cardPlayed.CardSuit= trump) and (cardPlayed.CardRank > highCard) then Lead; if (highSuit <> trump) and (cardPlayed.CardSuit= trump) then Lead; if (cardPlayed.CardSuit= highSuit) and (cardPlayed.CardRank > highCard) then Lead; if player= s then player:= w else plardDeck[cardNo]:= vCard; end; for j:= 1 to 52 do cd[j]:= cardDeck[j]; for player:= w to s do (*Initialize*) for vSuit:= sp to cl do hand[player].Cards[vSuit]:= []; for j:= 1 to 52 do (*Deal*) begin if player= s then player:= w else player:= succ(player); vRank:= cardDeck[j].CardRank; vSuit:= cardDeck[j].CardSuit; hand[player].Cards[vSuit]:= hand[player].Cards[vSuit] + [vRank]; end; end; procedure Display (hand: HandArray); var vSuit: Suit; vRank: Rank; begin ClrScr; write (#27#41); write ('ESC'); write (#27#40); GotoXY(21,1); write ('North'); GotoXY(6,8); write ('West'); GotoXY(35,8); write ('East'); GotoXY(21,15); write ('South'); for player:= w to s do for vSuit:= sp to cl do begin case player of w: GotoXY(1,ord(vSuit)+10); n: GotoXY(16,ord(vSuit)+3); e: GotoXY(30,ord(vSuit)+10); s: GotoXY(16,ord(vSuit)+17); end; write (suitName[vSuit]:2); yer:= succ(player); end; (*of 'for'*) case winner of w: begin player:= w; tricksLost:= tricksLost+1; end; n: player:= n; e: begin player:= e; tricksLost:= tricksLost+1; end; s: player:= s; end; plays:= plays+1; GotoXY(49,22); write (plays:2,'/',tricksLost); GotoXY(12,8); ClrEol; GotoXY(28,1); ClrEol; GotoXY(41,8); ClrEol; GotoXY(28,15); ClrEol; GotoXY(35,8); write ('East'); end; (*of 'while'*) Q:end; program Bridge2; (* written in TURBO PASCAL Aug '84 by Doug Cox for a 52 column Osborne 1. Bridge2.Inc is required to complete this program *) type Suit= (sp,he,di,cl,no); Rank= 2..14; Players= (w,n,e,s); Deck= record CardRank: Rank; CardSuit: Suit; end; HandFull= record Cards: array[Suit] of set of Rank; NumCards: array[Suit] of 0..13;  for vRank:= 14 downto 2 do if vRank in hand[player].Cards[vSuit] then if vRank < 10 then write (vRank:3) else write (name[vRank]:3); end; end; procedure ReDisplay (var hand: HandArray; cd: Card); var vSuit: Suit; vRank: Rank; begin for player:= w to s do (*Initialize*) for vSuit:= sp to cl do hand[player].Cards[vSuit]:= []; for j:= 1 to 52 do begin if player= s then player:= w else player:= succ(player); vRank:= cd[j].CardRank; vSuit:= cd[j].CardSuit; hand[player].Cards[vSuit]:= hand[player].Cards[vSuit] + [vRank]; end; end; procedure Evaluate (var hand: HandArray); var vSuit: Suit; vRank: Rank; value, lengthValue, noCards: integer; begin for player:= w to s do begin value:= 0; lengthValue:= 0; for vSuit:= sp to cl do begin noCards:= 0; for vRank:= 2 to 14 do if vRank in hand[player].Cards[vSuit] then  write (UpCase(ans)); GotoXY(1,24); ClrEol; end; if not (UpCase(ans) in ['N','S','E','W',#27]) then begin GotoXY(1,24); write ('Please enter only N, S, E, or W'); end; until UpCase(ans) in ['N','S','E','W',#27]; case UpCase(ans) of 'W': begin tHand:=Hand[w]; Hand[w]:=Hand[n]; Hand[n]:=Hand[e]; Hand[e]:= Hand[s]; Hand[s]:= tHand; Display(hand); GotoXY(1,22); write ('Contract: ',amt,' ',sute); end; 'N': begin tHand:=Hand[n]; Hand[n]:=Hand[s]; Hand[s]:=tHand; tHand:=Hand[w]; Hand[w]:=Hand[e]; Hand[e]:=tHand; Display(hand); GotoXY(1,22); write ('Contract: ',amt,' ',sute); end; 'E': begin tHand:=Hand[e]; Hand[e]:=Hand[n]; Hand[n]:=Hand[w]; Hand[w]:=Hand[s]; Hand[s]:=tHand; Display(hand); GotoXY(1,22); write ('Contract: ',amt,' ',sute); end; 'S': begin GotoXY(11,8); ClrEol; GotoXY(27,1); ClrEol; GotoXY(35,8); write ('East'); GotoXY(27,15); ClrEol; GotoXY(14,22); Cl noCards:= noCards + 1; for vRank:= 11 to 14 do if (vRank in hand[player].Cards[vSuit]) and (noCards > (13 - vRank)) then value:= value+(vRank-10); if noCards= 0 then lengthValue:= lengthValue + 3 else if noCards= 1 then lengthValue:= lengthValue + 2 else if noCards= 2 then lengthValue:= lengthValue + 1; hand[player].NumCards[vSuit]:= noCards; end; (*for vSuit*) hand[player].Points:= value + lengthValue; end; (*for player*) GotoXY(11,8); write ('(', hand[w].Points:2,' points)'); GotoXY(27,1); write ('(', hand[n].Points:2,' points)'); GotoXY(40,8); write ('(', hand[e].Points:2,' points)'); GotoXY(27,15); write ('(',hand[s].Points:2,' points)'); end; procedure Contract (var amt, sute: char); label Q, R; begin R:repeat GotoXY(1,22); write ('Contract: '); read (Kbd, amt); if amt in ['1'..'7'] then begin write (UpCase(amt),' '); GotoXY(1,24); ClrEol; end; ifrEol; end; #27: quit:= True; end; end; {$I bridge2.inc} Begin (*MAIN PART*) repeat quit:= False; ClrScr; if UpCase(redeal) <> 'Y' then Deal (hand, cd) else ReDisplay (hand, cd); Display (hand); Evaluate (hand); Contract (amt,sute); if quit= False then Rotate (hand); if quit= False then Play (hand); GotoXY(1,24); ClrEol; write ('Do you want to see the deal again (Y/N)?'); read (Kbd, redeal); if UpCase(reDeal) <> 'Y' then begin GotoXY(20,24); ClrEol; write ('ANOTHER DEAL (Y/N)?'); read (Kbd, ans); end; until (UpCase(ans)= 'N') and (UpCase(reDeal)= 'N'); ClrScr; End.:=Hand[s]; Hand[s]:=tHand; Display(hand); GotoXY(1,22); write ('Contract: ',amt,' ',sute); end; 'S': begin GotoXY(11,8); ClrEol; GotoXY(27,1); ClrEol; GotoXY(35,8); write ('East'); GotoXY(27,15); ClrEol; GotoXY(14,22); Cl amt= #27 then begin quit:= True; goto Q; end; if not (amt in ['1'..'7']) then begin GotoXY(1,24); write ('Try again... (3 N or 4 H, etc)'); GotoXY(11,22); end; until (amt in ['1'..'7']); repeat GotoXY(13,22); read (Kbd, sute); sute:= UpCase(sute); if sute in ['N','S','H','D','C'] then begin write (UpCase(sute)); GotoXY(1,24); ClrEol; end; if sute= chr(08) then goto R; if sute= #27 then begin quit:= True; goto Q; end; if not (sute in ['N','S','H','D','C']) then begin GotoXY(1,24); write ('Try again... (3 N or 4 H, etc)'); end; until (sute in ['N','S','H','D','C']); Q:end; procedure Rotate (var hand: HandArray); var tHand: HandFull; begin quit:= False; GotoXY(15,22); write ('By: '); repeat GotoXY(19,22); read (Kbd, ans); if UpCase(ans) in ['N','S','E','W'] then begin{ !!! * DISK READ ERROR $ DISK WRITE ERROR $ INVALID DRIVE $ Option: $ Program: $ $ NONE$COLD$WARM$BOTH$* DISK READ ERROR $ DISK WRITE ERROR $ INVALID DRIVE $ Option: $ Program: $*}ϽDkWNhM.+UTT\{['4~a#mbFK-\{Wd_q纚`hּu^D+***}ѹxEy?q䥈>o<x)iּu^***}H`Cyٴk:+***}ϗzRWVWTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTh 69A!G;&\ŗ}h$reV ` 0 .;w/2R:ۮzŵwys)< ^. {Nh\8^\\~FSETAUTO version 1.0 (23 Apr 82)copyright 1982 Michael M Rubenstein!91@":\ :<=!@$?|> :]N C W B :_!^#V  !~( ( _# 1!qm (## (w#6!@ \|> Kͣ!ͣ{Oͣ|ʘͣBKͣ!ͣ$ͣBKͣ!ͣ'ͣ OSETAUTODQC OSETAUTOCOM MODEM790COMphvOSETAUTO.DOC?  o !"$#&%'()+*-,.0/421356789;<=:>>X)מLUTT\^LR<}y~l2.blA[׾h<.c[k8o߃Re~o%=vo<x)iּu^***}H`Cyٴk:+***}ϗzRWVWTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTh 69A!G;&\ŗ}h$reV ` 0 .;w/2R:ۮzŵwys)< ^. {Nh\8^\\~FSETAUTO version 1.0 (23 Apr 82)copyright 1982 Michael M Rubenstein!91@":\ :<=!@$?|> :]N C W B :_!^#V  !~( ( _# 1!qm (## (w#6!@ \|> Kͣ!ͣ{Oͣ|ʘͣBKͣ!ͣ$ͣBKͣ!ͣ'ͣvӗOSBYEZ2.ASMc  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJ 80 8@ 8O8 A 8"@HLx 0p@@@d@>c  0&<`s v<5]d7~?^G&OqԞOSGǁ p㵛x0I x@0< C O႟n|Ø@!񃸌> 0K;|t;,/on{zͮ藔l?ո駼yeߍ[=#}i UA`ofNm%YBU|љ3~LƬ'NF߮}|ָJE7I }|ڸwfᚑnr}0&Ap8D   r L<@`t 7]n~X7v9F*>ٶ9;>z^ʷʷyM ó}Fŷ~s~sb87C8d@a_,E#E$$q3UFj. VKx:~bTc/?\B.1:q[Z(m%Y>Xo CEQ: j(J(sU2Ԝ8ϐ_ԀPUAD+3p E~Q[͸A<9̯_xx9|xzQd+VD-@ WJz/j<Çwg~EA K%+((AT./jDqMЛ:`$J$y8h(D`Wo?|[,7u>"#H\G5^ҟ~v>p'Xxn?)F 诹'FErq3҄#_dBriTZ L࠯%d)IaNOݴq|wB{Ȼv?Nof|׶;S5|<7%'Ln5ovp?N)G 3Rg6b:VD7fq7a>cJ+%J+G5.#ҊxE ;SMѩ"^C~Q6Cuy#&TZ/߽q/?P]^bxjo%Vፑb$lgE~Q"/3Tlo`ț/aOptY}3ŗ*ٷL0M0Ne'o:|HجϾ,_Ը2Ce66  MM7#)s꯹'F_s+N2%3Q%!V)F/?"i =47Loa׵L0}>6/GFꏿc)^ùY3i fʻf ma;H1R <8Q/9麀 @ $`L3< < 1@?2 L0'9|8Ā `bxH!/L][䫋ׯ`2uq9|qsO `iŢOcÂ8ä{ x tޯ-D >yـl@)\ 8 F;^@  ˵DquoIEaQcBь>QcRR #5g$Xƅc$Kd. ѩRyQc[ߖL7-48ok@?fwkW/|ǁ@0p #<"u{i€b#ennos`sӽ܏tn:?I@ pGx8` $8@N $A8 ?G1' <x>  ?0bB |y~lyv͎mWg1@ 8yy\~X`t(Px a'DQ PY1 !$s3a r @& @ OB?2O$$B 8<`@ A>8!`pGD ~^MÁbTJśY,fl :oæ˙yEpٜNPl HC >xX&|0|pŨZdfB(~neT/ mH;F8@L0b0`3` OU" |ůW>@{iH*(_x{S.FUB:?(CT_1* /|7NSv~W5#EH?|Omn]{'1[u>6|mW;0R z|篳Duq[?B#]m/|a 03`x!Hp<`Csp02Sr2 zݼBv?-a7 StCv{ U>5C~Ə~_r4ۆϡCݎ7m1`FM __ _Kόp|u^X >,A\~|@ep/(6+O.yj =@C{ Ory ŖmmWݎ-|~uj =Fu~p|`>{? > DsEIca@-R?:<p @"~ &s)rs3"$UWwUPcTV2=S9kOtkIf]$vo8ֿ*D <My8>Yc$4IDRO,7.>Btm~cAlfI(Fx1Pa(3TgS$!UMD?xRPXK9*nI:أ"Dw 0TgS$*Lt5 rďJ5b|QL@$GI)>`P ^t3S2 6 O,l5 2O!Xns" *J)|Jjd AV ^"Pӊ  r! |2 1?bN!bI>@AgIF<s< I>LF<3ϐ` bA8s$q?!I00|`@@L? N d@f !b@8@`p 8s@ @ 0`0GC8 C<y O LH@ C8@F'C `2  '` @ 0!<`8a<  8@@'0@? 91x88@ 8! CCL9y88$10`0HL <8<0?ǜx|0|`H@I3| NL?`38 ~xM:H9\^ mfTZ/߽ܾJ%hJp$ 0Y֌0V TNP'Fx^0 yUshABNhFN_{TZ/߽3N& !!Z]YվqyFZ~190 r>$Daǜ `a!AĜ.eZ @ɸ+ ~{t8gKAUB%R!/6*$i,tW[e?NP5wuYٌ E-E`?|Bh3aFh3'Ҋn ːU"ďR2Q,=LٌR2Q>B;K$zW 3BBePn d=06XЖ.WH|1e+X$j9!nTI H7}䢾.[ze"@NlRJa@l-yl(">/ (?@ b 1Ӥ=܎{#1䢾.SG,jt,Zs`9{@YDD/'I\A@rI ;Ǡy9 B!qۀLj ҫ$Y2OMy(2E<%ɚ!LYt/'I\A@rI ;Ǡ{9 B!~3H? L!#? @㇀c&`2B3GHAF" c18&$ !0d38H8$p22x7 uy. 11/Gm3=4MM܀`LA ?1B{ 0  xx+BsK 3''㌑BF /j|EdY TVD#H (YA! #DTK8͜ V9 $׌ H/j|EdY2^JY+_Frpdpr3BD%gNpWk ,wDZ.MQUA)5D:H1f_|Yqzf󱙠6zF*xhC\v~ xnDa4rsknኑb- E(40_~|06,޽->{X{Pv1mEӁnu70ksgq˷a0x`Tg5>ފ\2¬S;EA<ԫE(401~0Ru-܏ke+(]r5 > x،M#4܃7].;? X,>qZ6Yg npH1r̝a3"D-E_ QeE%Pl*-E$ZŖC=:3减*)@_K[A%Jc挰:,q% fX,Pi)k#"@ wuY1B=J+GTrơwBɄz!$QK8#-3#y\knʼnb櫇sgwAb'`@9'G1 8 A`@|3@0p1!r0q 80@!0q3 1 3 9$s<"CL D#L $ 9 "qFcx P%76 BN! E!3 01CI8+іfH(b `)zjѪ)pAj&xn@xIT+pŭ(ep3JL. AKIH1Ew(,pIr ܢ5}ĢzQ4V"IB`lJKu0 eCub`Kj|bvցц#mvЌЧ*%[pPzs=JQEb@ !N`0r0A&`! | 8@:Ҁ^/Dv=.Ø3B8C%J:bf^Zq N2B- J:Pn58#Ã92Ix^$}|Lr? 9!b ǜ D=v|=W HdiiD~Q( %#H1»B-M T3Q; :hsX,3ov ՜u'|ɽ 7`7꯹iƩK;8iAø~J}Kd~c$$ .Zg1}v'CSM>z F^ |KxWVXvBT"( 8P/dwUV,PA%"य5<-)Fj[v{47u \tioɯifFjIùƛݺ^Ë7m06RiɷZ70u0xخxneo;e0Z'f#Fe1ցE 1ZT!NsZCA2 V_K<30QccM%LzM1[T!N,-`dZ^ c_x BIXsT!NLn!ܳBD=/D``)@ F)6֣?(֔f=~FeuYs+F5 KuW f=r2NF6`HW#ZԥKN2hE]j2FY#a<Fc-%'a4֢.5O#Ĭǃ0[a|u钓0kQbH-0an[ v̡͸0k1\3Ru|&:?ϋ7:8,}[xjwKC0RpnyCs6 MqOkH1rbmna`cOTQZ0$~!i[b&0Z'Xw 0>l<@<paX"'34lO[78 rgiv p ! p|y@8'@LO808ODAp8pb 0 !ǜc8#ǜ8#<@80Bz<6>f q1p90b @!9#|L|a ǜ Cx 0 0 8>f Hɍ}nl =;|fL~CsuuH_ P.UdX}&4(83NIV0py\bU1R#U4u:NvZ+V5|H1BW`+Ru!p%u҉D~Q( %5`+V"Au#e셐W*$+V/j|EdauUpIQKXD=:Ra4b H1BW`+0).2PUpI b%)yYI˭8K`0Y#Z3=:ͅjn/AU[͠Fc-ΎAu #]VPU% (H[q^da6uW0kτfp6OTp{gGQKFS DU`ŊbKD HX!B+.qFQC=#VFc-R1¬ǃ0[a#,Fqka4b+T+R!auUpIf/KbX}&4*P_sF:B)2\,~B)2\=,/\,/80Bzan[ v̡͸0k1\3hMa4b& #,|1cZYaW4PX$ #tƪ|2,匰:10sH 0"㌰ C ? `@ BLs>!8!@& ψa   ĀO q` 9'a0&D#@ 9$8cbp00 113`?0<@9 p>D$B<[z_nb88k 7btYXp3mӎGl-we S: ø"@v7yMv9Ў참4!.7>Q5|. .H<|uYqv*Ǽ}#fc@";Ԣթ MMDŽewE0B;TxmZav"i4!(Ebٷ˸f-7d㨍'|7$7TRa`,z0cSߗۡ]f 9,;)g; 7LT &CLY@.B8\$#׋y,DO2p+!,&Vl0+oƄqUl<~8aEթ+qHNy!v"֦Zњyc%FOfP SD 8vieh UR3$f<sN/P{yna8g#Z dbTE~Q( %#ZՊK׌PC$<7et$@@+ء!E.D\V0O!0v$" `~`2 991 g$ N@ !@|09x` q b` !@'0`0 a H xC !` c a| p' qp Ap@@` @xN``pDaAxȀB| L @ '! A xsH 0A? A>8 _ݮ[?,>dq`FƷc_}_9ggd q<8'3 0a  @`8 0 " $ @@ &~ 3@DO8A?  Ä H$"'x$ 0!C>q "1@&L # !!2B3OHA$'!LC10 A<80N dFy <818xdA0 pd x>0x@b&2fBbdg3$t#>$zr aH^i!E #01iMAՒuOlvq>s;aH^i!<=͊ZC2gcMV61qf&nq7qz}^S[B򍇧v=#u{' ~O0~y_ksWX!oyF]~m}CisC;-ڌK7-a׮7/69O.yba.c xjwKط]7#{AյsXS[2X9<|>r9\-on'Fx&˷յs|[,-aU&e3yxsY{릹]3»$Qf3Rҟ)F&鏋oEQh.auh}q@TDg obOn5&:a֡Q=>.pӌS;FRWg0_=97K[3zm6Z0k1\#n!o`yFc-:[r^þ]}y3RY1m1?=|\,-Ǔ_r'ۮ}K}y s[cb`we&#b[QKFXny]-@bOn5&:a֡bpXS[M3NK]q!vZ~0ptp,EKFXnψsش{hafZ2hŌ[s!3Rl$z vCa;H!f=0pXS['^ F~a涘/]YI#$}E(4#,|6cX}&4#7Y@T=Dq$~҉cmjff҉ޥ$;TIA pI =˫w; J+ۏV\FKn\IkA`,pa.P9 N'Fx^P%1-I&$.Af63x*n߁Zq [%WhZr, \kF+*I̊ #K/ȏIw$#<`p"I =Pb`B=S9 #0F  Bpr@@C0c 'w,h}Ef42y(# PdE$gu"0X;y-=gu"|cu1z>Jb [L8I:]_ ldU[؎V]DJl^Ji@`-q`,Q:N$Gz_ $9Ӥ9ЎgMy~i&@Jl^ c xH Dq30x_"$9Ѥ!080Q??GЌ𮬐3#~LB/j|EdXVA)v?tbc s[0BzPk.A8A wuYKPlҊxqN& !!Z]Y!?gTfixF~QCf<.@}5lL@Հ $*hB7@Mc` xg0<@Bd  f<bHOHpAx@O" L 8 88 28  9@! xÐ8l~XPtB_T%#H7W7g3:q+m[QKFZrT+.@-9#K3CE޽`evIzHbqnPi. @^WFc-U-A늃q3a4bg(Db"4>1»^ ܲBhEҥJŌ M?B;Q%1g&|\PfAx`!uY|.`UI$Lx +-ITPq*ֳ4.QbxRц js $0XR1FKPedwV\^xN]fQY$(e((-%R]]Pa(3іBP\՗&׼^oP ,jT+qHNy! v8Mf1DQ)ZUD!,xIJ"uX0b L -ITPq$n&8K'  `x)]PC]w08 !k,!%VI[C(GrԢ5<Ќ3GWY\ADE<%_+H-ZAZNg$",N*Ja#4A/Xz"IxiW ;1ki`6j @ dfr u<+,-I]A'5H+*AiX=L? Dhƣ+e1*ѕƂj-!O+U+0)GWH1BW`+FX-s*ʚCDzQA&g.q  [@FX-yj%j"d<0BT`R0`>b #<A#$!|@|$D1 9@2a|fDd3<Ï<  ĀO@1|$DL  90FF@ ȃ @ǜ ĀO@B1 '0s`# $89p2F#iWg<|@8N 901I cpb'@ G|C0 xs~0 0p 38N 9H Lq H # 1838OC9< &~I>q p 88 28! A@ p@`GfxpI'`#8@bNGf8cA!C q $ <`Hd 38N 9aa@ @ Of<& O 1! Ap0A*D~Q( %#t3TR@G qf#P}bwSi+TWWI Q1R|ZBs706 L<_~v'FX-9G kVPޥN4U[$#UtK7]9#)sN"c%Q_x+BsH1R#t:XBE$]ȵ.j VDҌ扟j@k5gXXZ.qLHQ:Xb)F 셐^1R0k*HF0P};x8c~uuPJf=.!O+U/,b(Y&e[q[|EYJ3(pCya4b y\( g9A7F( g9#,m1CUaA8k-y4X gFB%r89kAsbFBK(D:TBs}mfPT҉c`DE +Fx TWWri9|7`rxTI` DQ^]1»NQ g9Xa2899??0hEg QU% r4\ka6r`x?|uuu0|Ȣ(:EQ"Vp-n5(p3hby\( g9# N& !!"X}/֜bl3 þ&f9#(_x+BsH1RrA./?æx>~~rش_= ~|}s徃1q#Hr?Ư~? NK1Cv?a7~? 78 Cis8;wv/)Fф[QKFh3Pϐ9<$bia匰 grYFhg-J`'ƲXAܖbw #k砟]r408ô[FT[Q8ފ\2R#,|q9cZYaWJs фxK%֬)dXVAKi(7F00'(MT[ßB&ZԐ8>a`X,گ}AKZZq [ckK87PZVdXeUKP<ę [4*p-E50V#2ւM6efrxޥ+.Sm-dP0»+.kQN K FF}Bš"@EHL$.* [QKFS D%l2HB8#Zt f=0|HU8o<9{מڣmlE"g0Gq-]2҉˭~~i%g0k[[r!3R琕y.6f_3FXnƹYia4b H1BW`7FJv`ڝ|M~oǵga|c!u`X}&4#)sUH1ROo<9{מڣl^Ğ[q.*a4b HeߎCР2{X@M$^2Z$A%'n(9rFjsxsFx  `Z,b@ƒ;T+.4+pQ,f%5;+"DYp[RaZ|2#9Xr ka4֢U$jfFŒC2Fx7}mϡox/]YɄz!$#(?"V撑bXofߡZq V\ZrFhErZX#9ԚU)+N;aaڣټ<:$H9Bya,+,QmuԚ#MP]3=L83i F;Fh3P+V.A-9qpQP=s^Aܖjiʌ`%%gXVAZN3#af'1¬?k|9t>u8=@#++\:PB/d A`@p@ bA"0ycx<&08  @ 0pp dɁ$O3rp 8A0yr ` 3a8N  90Hf1awKZ.P&>+@dXVA2¬?fC>]/]Ya=cX"ia9#Ag&|bwH.z C򔹂bloװoY{xmC9 t]¹Y3#H1hM)Fh?3T\rLp޽`RUKTnDjk5#H1BW̄̊#j=Þbܠj % LDB O `fBf DQ-@_kQ1B T:$ԚC]+$*SbfޣBvi/"<ÏB?a%* &aŊ򔹂b +F+o#KKZ~dr#K/+FQRUˏ/j|EdXi)j Ǚ .Ia &a U 84Xxy˭C3#ZNKQKPZ)'auh1Zq #)s)Q̄̊#( +V/j|Eda~D48 Q$?1^Us$Y .Pip2^ Ӧ1ª3 6[qf#Z"Z ix~v/)Fe/D~Q( %#*+3 "0V $h鬅^p{2%k`'pޕ&3PI!s:x#8y))FU/j|EdG9J-ÊK(VaJ->B+H1roEQh.a)%g&0hRԲ%(Q˪$#t3TpIQ2RlKTkE0hP]]"O#K/le+FX {Tk)>B+I`?H|ɀC0'9!b̈F ?Ą~@@C@c! Oa9$@C b̉ 80 B|@2'DŽ @@0p< r|cȘ##0#0#08AÁ0`L 8 03REY8YEQ"V8$ A03`LAp풑zAe>1B{t&>IׁX&>3hEg ac s[0¬?ĶF߁m01-8 h A @ q0y<px@q ` nHp`O<.?8uk HC ~ # 'Р3Q zI/<FxAJ gL/dԼºio<܏kfՊKQ@K=:~]PE i&$hib0Cuuezτ ŌV 6["&>3Rf_3T2~]=: TϜW` Ü a$"!>`H$>N@ @@0 #rď@@!rǂy'<q'p|  F$r0`ps8H' 0H@sG`O yD 9 9D'p9211@0p` 90A9 $xB s1*:vg[s^cx<0R 4bE Х FXUz3ZlHJɂG!*c]*`+%[qeP[}&4fpZ`Q c-vЌОfs(" `&9c!ce2F 53B FxwDJ.҄R@`&';3BJX#Au($`*CݝPRX -y*xBxaAB FFxw":P3[ fK!3VPfs_3T'K搸fRk-ø2 # F34V"O(sJ= $忱,Ô%\k&eC\CけIij oEQh.a%*LMJPNAgNCICMa ü r8 '#Ax:a]]e"$TA%%WZ DcmƷ#tk3eweeUKTx i ߺ]Ya)jYU)2^BU8o]𮬰t%RdMd|"gbEYE(4#t&!AWFrF DQ(JݐÓKoڮ~2B2W $$HH1BWH8$@偑qaj~_y7kJWFrFQS[QKPފ\2LGFb8=?xh;v&q]sF*xou`w5LMOvzKF= O9v9@sfkH1BW`+Ff/j|Ed7FQZ5>ފ\2L#(T[QKFi|cN~|A./?ϡ<5 ~ZBHB@pn ?0CqdD9 @AyxWk|4<7NMҟ᯻uͳNVB`yFþ/|$F:tI>^ ܲBr0Q؋fc-jRm'}z{KC?V#rg:0ܺgߘa4Vb-Q؋:ԼJiK_nֹa^|_q{{/a9uOhEM ]j2>^ ܲB#%M%zZ0ǥMß!pK/|<!94V"&,/*q fD^)6h%4Ia N{i1OcNHBhESP ~ZB>qߴݻOM.ފ\2ª3aUf g0kqEHFX gf0pH1"[QKFXz=#j=ÌVFc-nH.1RXyv#,Fd6\8AOw/j|Edwee셐BHFxWVXBHT'J腐𮬰HTx ZYk\KFxWVXTU)2^KU-!Z]Ya)jYT)2^eUK.qF LB6[FDTY]`񭋜&Q1$*FS!9"O1s:-8:?8 s!?\EYsf  > s\:>2*\E">2\\N<ʏs> ͆!]͓> ͓͆> ͆ʵs!5!5;sh>2h fsf s*O!"2N=o&*E"!4Z!"~#E_ > ͆> _~͆#“ CDIR - OS-1 04/03/83 R Wilcox/T McCormick =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= $ Directory is for drive A:. Files also on B:) HALF-INTENSITY ( $ --> Place diskettes in drives A and B RETURN to start SPACE to quit >$ there are no files on drive A:$ --> Replace ORIG disk in drive A , press RETURN: $)$($ CDIR prints a directory of disk A. Files which also exist on disk B are indicated by ) HALF-INTENSITY. ( Usage: CDIR CDIR *.* CDIR *.COM CDIR AB??.??Z You will be given a{}/\C^K;R/`]L3c,~l4TRBYg DR*>>KD(dM&CϪA^6uuv^ g\I=$% chance to change diskettes in both drives A: and B:. $ $???????????!]~WdCN125(8- ʉÎ>D>D>D>!w N!ww!^#Vbk6 #6 #6 #6w!^#Vbk6#6#6#6 ʉ!m~ ʉͤ!͚7~ͮ#Ú> ͮ> î_Format OSCHG x1 (x2) ---------------------- Where x1 = 1 104 column 5 52 column 8 80 column (x2 =) W wordstar keys C CPM keys OSBIOS DQC@UVWXOSBKYBD AQMYOSBPLINKAQMPZ[\]^OSBPLINKLBRA_`abcdefghijkOSBRIDGELBRflmnopqrstuvwxyzOSBSETAULBR{|OSBYEZ2 AQMi}~OSCDIR COM OSCDIR DQC OSCHG $$$vOSCDIR.DOCF  !"#$%&o(')*,+.-/013245768:9<;=>?@BAECD/=KI"%olV6w`Z FQ'}}:3Ȭ-n5s5 պ }vmwA@LMPѝ`tC{1?^m#uuxpWg:kmr:jm6u@2Hu1=k1t]iFCn+%DuVsoh36ؑI" I ѳtw{n@K4n̡AjI"Ę\l {ށmCYg5$+`5@٠%nǏ?~Ǐ?~Ǐ?~׳g1}v1t]!:u[)=y1"Bs<#{3jG1?6ܳj.n/v/n?BR̯soP:묳j Hjji_.v=y.tYg5$+`5@٠%nǏ?~Ǐ?~Ǐ?~׳I"iG7fm747JUøjq& g_* /;t+<"6JaFB܀n ,NYͳn8"Y[4O #ͽ>I$` %hI")|` %hI"ib2&!Gg XmZGmFUhԩg ݿݍ!MyƣESRctuMksޮ! o!G^o&iyTo?nw68eC}|k}" Җ 0.A{cd^--ۣN>YWl|? wALom菁g6Dы )+WCeOَ!}|v?-觓>Y\-cC"v3Mo7Og_( v=\N$ۨGeuqf'TW)<蟬uَ!GIَ%V^v6Fqb~ UQ)^4%w[fZa|R]3?Ss 4G^}}&}&dz:|.?@'B57v6omG~"|(+"|+ '=ŋn3ѿ_YGMoBN<)˷f!џlϜrgOg|u? ^Qߎoߖo1TF l?>4~K3-T'=ŋn3UW)vBciGUи)t6owUËظ>)kyu@OD\0 O0 (i>|6˽%^ŁYHb4\Bw cHSh¾9gvg1ci]K&z$Ƞ v>.COMM.OSZv  ! "$#&%('*)o,+-./1024356879:;=<>@?ABCDEFGHIKJLNOMPRQSTVXUWY[Z]^_2\`=bacedhgjf5ik6%.*7H?PJj`1Gl|1N:G1Uζ]I{2@QG{?ZMc0bSN~0bSѿgڰe'ćA0~@nTbѿ_p( 8F}W&-`Ŧ?:!/-`Ŧq r7/2WC}㽈;p( Sl;ߚzP5Bۆ^ %/^bPDɃC5E[۲S;;>z ѿyubMuw0^45H/lۆ K[ P 9vmxMl_ui nuUHj)oF}i E~*ݴ .Y|wƻQTQui:]Vɿr{Qθlˇ?_xZa\3=kP g~ָFpV!;Ood{qn;߁, =ř Em[a)e_)^}&#'=)頫 ȃ.2@C/Җ||Pp,ߚ$F_I'+]]A϶ buvƕ}Htu9S9D_يnrя^st-ݮIف:r\] m Be}W鮥5);P+O9̟p,ߚ$1ڌ=rPl* xw6#G?zUJ{45ݮIف:rvKS넼ܶ!T&1z@EQDYL@ÑeX ȷaеdyBFݸtuy)e_&S(2 V+.QRAWW?@]NǷe᳁^-/\oBb*CBsF9=ӏMXb4#~ xm񧔕s~ O$XxRݓD(T6v Гg6D?@{kErgomGɚz= ._{-؝@ʓg6i?rֶ|ݷ~g6<Ë E0|/ lmY ڇhom{a^Xֶ|cY +h?rֶ0|3mɳnW>@{k[{a^Xֶ|/^bwۆ}xֶ{Aom˧}'Ϻm>@{k[Gun{*omGZO֤IpmpG|1`_E'mЌ θB vx2Z/:Iof_pƵ}x2Z/:I'y7(_pƵ]S?|/ G zIz4'lBO`Yg\k;OMYaND7m:9`| nuUHg6>i>|6ЎoC}[6:QzE/^E wBunqf'T꩝+:N?kӌ{6_iIIO)L t)w] mqu{w`On[M%WL':!/-`Ŧ1(WTe+,W w}/ćyZ:|Nv {Q'ƻQi{a*WvOSCONT.BAS8  !"#%$&'()*+,-./01234765!/سăsvqSwيrt3RxKmy ˨`/1et6cIax /gk2O/`Q(eu8~@v4,c} 9c1e.IoD|ꭍ|z3$5-pԻksڵ/]}صQQԛ!чڨ}ֻk׮spԻk]`5ϮLwmez5ٹRg&cf~X^o``%ű$NY`,LD*& >HO麋Vcp:JQCam0fzCR27 cy9vyc2̞pћ!ѧ`}sQːh]\4é6ϐB}䪍rS/,'_!h}\`;,'_|g0M}8ބ!ч^ާ, i2XEk#1d.=Sϖ>i}N>/ԇӼ j#eѻh;M6'_𮍐BF,&^S[͐S0{!G4 om$yt2FYM>ѷ6B]Մϣs6rvYOeԖCNa(ՁZZr0B5o麅qSzinaܔ<NZX7l,(JjLL}xzuƂ{ b\?{gT4E^@CABDGEFHJIQ 0hy)/^|M<5wrQw7BD}FBBBr/X/ZC1 gUc[́$I@Ms[~X;sUS+Ԉkt8RFgDsɱ-?wv#}fJzKF 0oGۂczc2oq?߫FPG#XAB3h%Tg~zujpsɱsHqm[+ZasLL|zfG#{XOT R2UڅjRjsg3h⩹5 RY| P ν̼xWUg;,[?ҥqu[ù$Ke8js zl;Yo3Y&U=++3ͼl:GgVpvOOZCPR.DOC(    #"$%'&!oޙKZm .ڞ.wܓ{#F[_1DFq-V 튳vo}cۦXN1pKBWۏV^'LQAxKMK<^HjMP/Y֯%꣮FN~}9/kاka8%s\ה|-sG΃2?I}t)cxdZOSBIOS DQC@UVWXOSBKYBD AQMYOSBPLINKAQMPZ[\]^OSBPLINKLBRA_`abcdefghijkOSBRIDGELBRflmnopqrstuvwxyzOSBSETAULBR{|OSBYEZ2 AQMi}~OSCDIR COM OSCDIR DQC OSCHG COMOSCOM NQTOSCONT BQSOSCPR $$$KŊ}e RY<&Y/C_Vq?߫F !!.h- s$$ ϱgf~ov;‘ٙMzןLj$$wsLj+^Jg=6^.],e$ͻj2r?i~KEͥs_FbG̲tWluK/+x}e΀n|/H~K܏zX_3>}U_euK]e΀gD`_3h֥?4`t6#]*̏ùˬ_>{w'羵GT.x>eostlq[>Cm'|z.s pKx0M|/v'ν^f$$͟4~sν^f9l 7qYHH-!wj Rg{k=[?m~ħq$˖[UtH$$$$$$$$$<&x`4܍߫F\ ҥB[OOHH-wFwe@BT|:,;ƫ8eK]2]dHHʂ`nxzGBlv*s-t,]e{z7^ qZe$Q{<ҥ"h.# nxzfٍx(oޗ{KU(~$K 0Pe?=#!]d2\Rי)TABT4޾[O,{amH H Ȃ5Y/JRb뿠k|]~_pKֶ9>OP{|(s¸W$ jPq׿mRIO7^~/$$ΰpqfkv0t `4\F^|egf5l[?ҥbFEB2 :20038000213808E5CD08D0E12318F3CD4AD0BFCDB8D0C38FD21AB7C8FE2038DCC8FE3DC8AE :2003A000FE5FC8FE2EC8FE3AC8FE3BC8FE3CC8FE3EC9ED5B59CF1AB7C8FE20C01318F7858E :2003C0006FD024C9CDF3D221A6CF060B7E2BFE20200410F81804FE48282B219CCF01001172 :2003E0007EFE20281823D630FE0A3013577907070781380B8138088238054F10E379C9C33D :2004000078D1CDF3D2219CCF110000060B7EFE20282DFE482829D63038E5FE0A3806D60785 :20042000FE1030DB234F7A07070707E6F0577B070707075FE60FB2577BE6F0B15F10CEEB50 :200440007DC9CD8FD0CDF3D23A9CCFD62021EAD2B6C278D11839AF3207CF3177CFC5791F83 :200460001F1F1FE60F5FCDCED0CD6AD0327FD2C179E60F32EBD02803CD96D0117ACF3E00C4 :20048000B72FC4B0D02F327FD23A07CFB720293177CFCD01D0CD5FD0C641CD08D0CDCCD04A :2004A000B72812FE0A3809D60AF53E31CD08D0F1C630CD08D0CDF0D0CD51D1CD63D0CD5FE5 :2004C000D032EBD0CDF3D2C478D11142D2D53AEAD2B7C2E5D5CD6ED3C2E5D57E23666FE9B4 :2004E00021800081CDBFD17EC93E00B7C83D21EBD0BEC9219BCFAF32EAD2CDB2D1ED535BC6 :20050000CF1AB7280ADE4047131AFE3A28071B3AEBD07718067832EAD27013AF32BECF060E :2005200008CD43D3gzw6~sWYGTV{g1]U#]*\Lqo7^g=WYtb{zfWqKx𸳬sP~_ʊ=P#]*s\MN.m@[?[}Yoq[~;HJ7^sY2(U߸O3UR>~gwg u?ù.41aGu}o_Α.9M}ۊm]̃@$$$$$$$$$$$$$$$$$$$$@ BIuBM X VM%I0pk*UeDU55t\*5U]2kRUxMUNE 0BTԔ@u m'|z.s pKx0M|/v'ν^f$$͟4~sν^f9l 7qYHH-!wj Rg{k=[? :20010000C35AD2C356D25000202020202020202020202020202020003F0000000000000096 :200120000000000000000000000000000000000000000000000000000000000000000000BF :200140000000000000000000000000000000000000000000000000000008CF17CF000000E2 :200160000000000000000000000000000000000000000000000000434F4D012424242020F3 :200180002020205355420000CD000000000000000000000000000000000000000000000048 :2001A0000000000000000000000000000000000000000000000000000000000016000044E5 :2001C00049522090D34C4953546CD45459504570D4555340603FE2E200613CD43D31803CD60D3060423360010FBED5359CF3ABE96 :20054000CFB7C9CD95D1281823FE2A20033E3F1B7713FE3FCC66D310EACD95D1C81318F9EE :2005600023362010FBC93ABECF3C32BECFC921BFCF0E0B119CCF06041ABE200A132310F815 :200580001AFE202004C92310FD23230D20E50CC93E80F5CDF3D2CD85D0219CCF7EFE20CC7E :2005A0003DD4CDB2D106002818FE412808FE5320100600068013ED5359CFFE532803F1AF81 :2005C000F5F1571E02D57832E2D3CDADD0CCD2D028693D0F0F0FE6604F3E0ACDE0D2D1D5D5 :2005E000A2FE00204CD11C7BFE032002975FD5F52005CD01D01806CD4AD0207CA006017821 :20060000CDE0D2E67FFE202013F1F5FE02200B3E09CDE0D2E67FFE2028163E20CD08D00406 :2006200078FE0C300BFE0920D63E2ECD08D018CFF1CD67D12005CDB4D01895D1C9060B360E :200640003F2310FBC9CDF3D2FE0B2012CD45D0416C6CBFCD13D0FE59C28FD2CD01D0CD6FD9 :20066000D0AF47CDC2D3119BCFC3C3D03EFF1801AF3223D0CDF3D2C278D1CDB2D132FAD46A :20068000280513EB2259CFCD85D0CD9BD0CAEDD4CD01D03E1732BCCF21BDCF36FF06002147 :2006A000BDCF7EFE803809E5CD39D0E1203DAF7734218000CDBFD17EE67FFE1AC8FE0D282A :2006C0000EFE0A280AFE09280DCD21D0041812C552CED544465520D8D5474F20BB :2001E000201AD64552412045D45341564509D552454E208AD54745542091D64A554D50E0EA :20020000D53E0DCD08D03E0AC50E025FE5CD0500E1C1C90E01CD3ED0FE61D8FE7BD0E65FCC :20022000C9F53E00B72806F1C50E0518DEF1F5CD08D0F1FE0ACAF0D4C9119BCF0E14C5CD14 :200240000500C1B7C9F5CD01D0F1E3F5CD52D0F1E3C97EE67FCD08D07E23B7C8F818F30EB7 :200260001918091180000E1A18020E0DC30500AF329BCFCD6AD03AEAD23DC8F296D03AEBC4 :20028000D0B7C81811AF329BCFCDE9D2C81807CDE9D2C83AEBD05F0E0E18D1AF32BBCF1107 :2002A0009BCF0E0FCD05003CC90E1018F7119BCF0E1118F00E1218EC217FD27EB7C8360048 :2002C000117ACF0E1318A53E005F18021EFF0E20189ACD45D04E6F2046696CE5C9CDCCD041 :2002E0008787878721EBD0B618023E00320400C93A7FD2B72845117ACFD5CDA2D0D1283BA8 :200300003A89CF3D329ACFCD3CD0202F1107CF218000015000EDB02188CF36002335117A44 :20032000CFCDA9D028153E3ECD08D02108CFCD52D0CD67D1C8CDB8D0C38FD2CDB8D0CDDD1E :20034000D03E3ECD08D00E0A1106CFCD0500C3EAD02107CF4604237ECD18D07710F8360013 :200360002108CF2259CFC9D50E0BCD3ED0C413D0D1C9CDC4D1FE10D8CD01D02A5BCF7ED21D00600180B3E20CD21D00478E607201E :2006E000F5CD67D128B9FE03C818B43DC8C38BD6E521BCCF35201036163E00FE502808CD96 :2007000013D0FE03CA42D2E1C9CDC4D16F2600E5CD5BD50E16CDA4D0E1283AAF32BBCFCDB4 :20072000B2D113FE5328021B29ED5359CF1100017CB528182BE521800019E5CD66D0119B1B :20074000CF0E15CD3ED0D1E1200B18E4119BCFCDA9D03C2003CDF1D6C363D0CDF3D2C2787D :20076000D1CD6FD0CDADD0119BCFC8D5CD45D044656C6574652046696C65BFCD13D0D1FE27 :2007800059C242D2D5CDC3D0D1C9CD5BD53AEAD2F5219BCF11ABCF011000EDB0CDB2D1FE61 :2007A0003D2028EB232259CFCDF3D2201EF14721EAD27EB72804B870201170AF329BCF11F1 :2007C0009BCF0E17CDA4D0C0CDD2D0C38BD6CD72D15FCDCED0C345D2CD72D132B9D618F564 :2007E000CD02D218383A9CCFFE2020143AEAD2B7CA45D23D32EBD0CDEAD0CD96D0C345D2C5 :200800003AA4CFFE20C278D12177CF11A4CF010300EDB0210001CD9BD6C02100012279D6C3 :20082000CD8FD0CDF3D221EAD2E57E329BCF21ABCFCDF6D2E17E32ABCFAF32BBCF115C000B :20084000219BCF012100EDB02108CF7EB72807FE2028032318F506001181007E12B728056D :2008600004231318F678328000CD01D0CD63D0CDDDD0CD6AD0CD7ED0CD0001S = OSBORNE 1 Configuration Program=#"A )PRINTER(=#:B )BAUD RATE(=&"C )SCREEN SIZE(=&:D )AUTO HORIZONTAL SCROLL(=)"E )FUNCTION KEYS(=):F )ARROW KEYS(=6$Press "A-F" to change values=7$or "X" to exit =&$CURRENT PRINTER=&>A )STANDARD SERIAL(=(>B )QUME (ETX/ACK)(=*>C )DIABLO (XON/XOFF)(=,>D )CENTRONICS(=.>E )PET (IEEE 488)(=4$Press "A-E" to select printer=5$or "X" to return to main menu =&$CURRENT SCREEN SIZE=&>A ) 52(=(>B )128(=*>C ) ? (=4$Press "A-C" to select screen size=5$or "X" to return to main menu =*@ =$$CURRENT FUNCTION KEYS=6$Press "0-9" to program keys=7$or "X" to return to main menu =6$Press the escape key twice =7$to terminate input =3&=$@=1&94 character places remainingSTANDARD SERIAL QUME (ETX/ACK) DIABLO (XON/XOFF)CENTRONICS PET (IEEE 488) 300 1200ON OFFWORD STARCP/M 0: )()( =$$=$<='$ ='<=*<=)$ Drive A does not contain a valid CP/M CD63D0CDEA47 :20088000D0CD96D0C38FD2E1CDC7D0CD8FD0C378D1CD02D2E5CDF3D2E120F3CDA4D6F5CD9F :2008A000C7D0F1C922D4D6CDCCD032C8D032BBD6CD85D0CD9BD0201B3E00FE00280932BB36 :2008C000D65FCDCED018E921EAD2AFB6C287D6360118DD2100013ECEBC3816E5EBCD66D0DF :2008E000119BCFCD3CD0E120061180001918E73DC8CD45D046756CEC3E01B7C963D0CDEA51 :0000000000 SIG/Access: ECOPYRIGHT (C) 1981 by OSBORNE COMPUTER CORPORATION SETUP VERS. 2.1 !?!0 :l2>2l!0ͅ(͑a4:2l! ~#~\:32&4!3<_Y-:&4Wy'OxGzô''Ox0w#y0w#y0w#6<(! (/08:0-0G/8x8_ (yO(  >M{>8{G_{IAWO]~#fo"[*!$'! " 5>2 5! 54:5Nb>2 5! 54NyҌi* 5DMp25:5 8!4< <25: 5(zu * 5" 5>25!44CX(-23AL2 5́!{4CX-AL! 56́:(0 :>>25:!5ͱ: g. R"5*-5~ (>25!0!*0system Do you want system from drive T ? (Y or N) Which Diskette do you want to configure Drive (lA or Bm) =6$ =7$ =6$lDESTINATIONm (A,B or "X" to exit) PERMANENT ERROR, TYPE RETURN TO IGNORE '128G^    .͓ =« f |« }w#Ä >2L͐ ! =« f }ʫ +"MD Å D  !  # ë «   Ͷ ͐ =« f xY |« }ҫ gA>S Ag}S S i |« }!w s#r:[ʔ _!~ʦ ![4ç \͢¦ 2[ 7 >?  e͢!g"c> _͢a_!f~> 5*c~#"c 0 or "X" to return to main menu =6$Press the escape key twice =7$to terminate input =3&=$@=1&94 character places remainingSTANDARD SERIAL QUME (ETX/ACK) DIABLO (XON/XOFF)CENTRONICS PET (IEEE 488) 300 1200ON OFFWORD STARCP/M 0: )()( =$$=$<='$ ='<=*<=)$ Drive A does not contain a valid CP/M !0GXA!_^#V`j!0!3:5!T !0FXtA25!_^#V<<@2y2:2z!0!3!5!1DXtA(B(!828(8>>42!5ͱ:/2z:5/253*-5(3z!0!C2!2w!]2!@w<Xtxt08:0230OG!2!3<( !}(+~ͧ+#(G:5x(w#:5  ͧ+ʆaA{(T*558R&o R_O!z<_nf ut##< !5x_^V!@Æ 0 ʷ MMMMM[55! R}25:525!2ͱ6 !2(!2!3w!@~(͝#!3:5!T !3:U(!g3!l3!3!5!3:(!q3!u3!3:5(!y3!3!3 ̓ x023!3~͝# 0 ((>^-@-33!5x_^VnfRM[5!!5nfRut#### ɇ_^#V~-#<_XA80_(!5 3313C3U3"*2:EI SPHLDI XCHGPCHLXTHLRE SD95 DQC'SD95 OBJ( vSD95.DOCU  !"#$%&'()*+,-./0123o456789:;<=>?@ABCDEFGHIJKLMNOPQRST ?º"2GD }m SV[˧w/~ߴO#?/˲ \ &! tĠ [mug:)BJ:S>.›_Hdu?}x[d.OxJ"lD<" § 1jJ׭.G |R)l} )p DYRZrp^G2CH2/RZ{WHl[]>gೢ[ ~#Qo!jJ[I#AJp.%aK.3! Eh/3DGvr{2dG|)fMBJ_3/:leBFNdR(ld~+[]8!Nݴru(Y :/FnuyЈ_pƑOae9R oOh/o0h&ouÿ)OSD 4.1 - 06/11/82 3-up DIR for OS-1.!9"P 1P  }2  2 2 2͖2 <2M!\~i: ?3#v:C :\=a!&_!.~2 ! a!]~  6?#>?2h!\^ͭG##~2#~2##^#V"#^#Vc*.;^#~2#~2#^""*#|W+}ʍzwsi`:ʝ)=˜"*#)R " " *{z0!"" " \<9=! o:D~} o: #*  w#w#" *#"! *{zaMEMOR*}_2 * !R  s#r# +}R*" +}* |g}o}o"#"*{ozg"*"> E**0**{ozgÑ* *#{z*q:@ƒ!Lƒ5M< <ƒaOPEaWRIT<:\4!Y4<5:\ʃ=2mNaAPPEN!n~^#S!m5{!Y5 °##" Ì* ^#V#" ͦͦ^#~))))!o&:/o* " * #" >k3 WcB :#tSBJ+(uH!|1A8NaU<ȑOu!.7#!DfK'J; 9Vڵ&! 5R CRB8Na9l y!o[ ) V)uFHsXLB,W7t B2WP$8p 3:Ekv 3:V>9?V.77|d ϐBW8Qn/Da= <#vH! :M3;kZ?rq |ӮU<S+H!x7(BG&2 BjV[]^Y ^~qlU<+l8Q4VǠ>򶋔1jWitxND0Z F!Bء= O#oHFȬlU<+:)غU<_~}3@*:F"x<\kZyrw6`SHV7+}VǠ>Pt{΅SŽ@)#nU<ERFH"AG*|_ -Œ#Ì2 555>030A7x0Y: >03: 12 32 * |ʜ2,Ͱ:\@3Ͱ*  ͰͰ :>µ: ! 4Ҡ:w!L~6!K~6*I6#=MM!,~6 !@5:\@2Ͱ 4:?v>!\4v> 3> 31> ͠G:@g*I:K^M!n>p#"I=2Kx_:B{ œ:Aʜ:-<ڙ ;v2-_~3#¦3ð*. *.;v;vͭ: _ n*ð^#V#N#F_ #.#P ) ) Nq#NqP ) ) N#F^#V_ #W>2@#ͰͰ# ͖:C: _*P *. E>FNpq#= : 1P vDRIV (Strike any key to continue) $ ERRO - NO FILE ON - DRIVE Containsk in files withk free user ADFNPRSnSD DIR dyV7C ai ةQd 쏰!A \80jD@֔BG(Snj$ &] QdJ<@ aG[vgBGH!h/)N#)'}dbR04H놂`7f3/SmHV} 쏘9% ƙ"F&ȚR0:D#H!h/)ed:xb^Xi'4Bȉ򶋔1Ha0u]! L"` tg$v)#XOLUz`?JqyڥӹDې`A v i)Cfh6X(N[!wԪ(0!8v)d(2Kb`F. <Ѻ*)A#C{aua i ]fQTSU#XOL3KN%FLdnVeϗxq,mU`s:h7S #DViLRju"B`0 Qط)("D 2!Z]n^XR[h/6""B3uaطzHm ^])Vg˔P)(|CL SCR CODE->$ SD-95 - Osborne version, 11/27/84MAXUSR TBL>!9")1)*""":2!^Dw# sBw#  }2H   2<282"!~#¬w\R xʹy282" 2;<2n!\~:;<>2w!F#~$+~#  !]# K6D(A=::!\>w:>282"U“ P0ړ ғ282">20 o:8g282"y  !~ʴ #è>?  :_: *":`>2>2:a>2>2:b>2>2:h  :c :c W:\=Ҳ _!N~G27!8ڲ x!]~$h q 6?#j>?2hD !\^ F ګ##~2&#~2%##^#V"##^#V*.;^#~2&#~2%#^"#"):H0:\=_. !~w+ *0*##W+} z i`:&0)=+"+*)#)+"@"9*{zF :8_  >?!hw#w#w!"'"D"FD y\ <=! o:iʞ~w} o:8w#*9 w#°o& o|g o|gr#s#"9*'#"'! *{zw)'Ѩ9 W.) OaEyj!%dGh/~\Rٰ?BF!;D~N}@ !="G>G '@ ai #'0x=L}Cfħ3H%;G8-v*9 ;ڲ[]} G>>3H%;G8mN G>!tSBJ+h[,R':Dچa.A#+`PVͻ 9 pW# q9%4 VDq}|y:o]#hr6x!E y&)Bi+h'}'.3ǷGB QĨ+ NLϭ.C8Q4Vԁvxu߭.wlY p}~{]/w)-AGHaJ; 1k|ص:"=fx{~FXO+HV[h/:Q\Ax"q طEV)l9%D. !R!'D#vľ)s g#̜v9o(C a_m0rV,4"_*y?# V.)l5" :b~~L4(ج`DhQ4HcԔtݪE qD"Jqx ATBB"JB xC\ !ŠξnU`y3\ч- W3 Vla Ї-3kj4v s!Gٷ)w Memory) 1 *'}ʗ2?*@!+ s#r# +}(*'"=+}ʰ*=|g}oʰ}o"-#"0*-{ozg"2*-"4> ͐ *2*4{ *2*-{ozgʛg*=*0#{zZ*-G:d\!\5n < <\Ͳ OpenͲ Write <:} !z4 <5 :}\=2 'Ͳ Append!~7#,!5T!z5 <:}=22m"k:x>2:jx *'"!""!+""9*'+"'|ʷ *9> ^ ·##"9Ó*9^#V#"9 >.  *F"F*D#"D8>k *'|ʗ “:O:\@ F >: ÓV#^:%_zW/_zW{_,ɯ26[26:?2?m2?mmm>0 0yox0‘:6>0 :? 26 :e¦*D|t 2?*D|2 :\@ F  ?:  *F? L :^#F # :7!843:"w!~6X!m~6D*k6#==n n !~6¨!d5 :ʃʃ É :\@ F ښ L 4:c¿ >!\4ڿ2:g     :8 /  Gy x0 > > rI3Bv귂9@ [Butf߶ξ [:3Bu3WwvV)#'FBy`y%ʯ׭ l>lpFم"ViR nI D#Pr(> Ӊ:`f)B[瑇K@o֭ l78㞌2 =V&4! YQ#d4GSV0tSP^*opLh7~eBFNd9%C2eC h'}'K R(BJp} >ugtF t6H!XO<au)(»겣Q#2GD :B a8as}P$H!tF`6RouW6R#Snu9\QƗ_]!tF zx!̜vN!GH!tF|K".#n`4Ȕ>^/ Me>PBg:"H>0PG^)(x7(>@ 3nQԙ2¨) )mP ue3q"zHopW3έ.RQ(v#FNzH"3`BfSXB5NAeDJA y Ml} +̅6倿;~" AVV[BA]": Y;CO'B ,[%%u]8!Nݴru(Y :/FnuyЈ_pƑOae9R oOh/o0h&ouÿ  : > ͦ l )" (, G:/xl 2/G:d^ *k:mU 1 n !>p#"k=2mx_:g {2/ ¢ :fʢ :2d x :c >!\4 2   :H0 -  :c :h:;_ *):H0$ - *}2 >D2c. >>FNpq#=9 :H 1) >2D 2E $կ_ ~#:{ , ! g ~k Aڔ Aڏ <2D #~: ?¬ 2E #~: Ì G~#: 0ڌ Ҍ OxGî x Ҍ 2E ~: #~, !  >? :D G:E O> ~. # ; F ; *- >?/ # F #3 > ; ~k !i =_.:;,<>ɾa{ !+"2*+"| *> ^ ##"~ *|2?!: ?  *?2 *^#V#"!„ !::  OSPATCH DQC dOSHINTS DQC48OSTRICKSDQCBOSSARGONDQC_vhMOSPATCH.DOCI  o! "$#%&(')*+.,-/102354678<9:;?=>@ACBDEGFHY6ta|1cU]e[l)eeenV Ak__wE &8Bеʏ +^}vgoHiO<_lV A7?g Ʊ>++k5 }VV-$ }41fv>~ aKY,l9Lmpȱ`k,$}賲TWk7Dw4B}>:C?N |֛s77n?3qV&100ywcW7i=FX0Á҉z#`߇fW'8Yo֒ $3{uӘMg' ~~ؚz:{6KFެ(>DTF"jG7<@?oz:mz -   :\@ >:  >.  ?>k :\I 6#T Ͳ I I 1 !m~ !  ͩ *|ʢ ~ ++ Not a LIBRARY file ++ I F :8_  m  > #y # ^#~y #^#Vzy "*#":2!*}ʁ +"Ͳ I 1 !m~/  !:[>* > :I@ F >: # >.  ##^#V*"!{_j)))))8>k *#":=2$:2$~#!T# >* >* ** Library Directory for Library Directory for ** Lbr Members in Lbr Members in LBRDrive/User [more] $ $ Error -> ) >> No detectable file(s) on >> No file(s) on : ) Drive space used: k : files: (k free)( *** There are There are member files in library(s)L L AC468DFLNPRSVSD DIR+"| *> ^ ##"~ *|2?!: ?  *?2 *^#V#"!„ !:: –Ԏ +YoPrG7΃'Ŕϟ]{֛u7AYYIޢn&de\7dٻެ._ [{C:;+͊/0ۼ!񅷈7+lټEDGz ̱C+{";foH<ff![2YYYY*ث52$צ y͠i|!?gYp7NOuAf&mfORM\m8IlV[e~C;7ެz76akVVVVVVVVVVVM"#u_eXwUWvj YYY*ث5Io$mo|0fyIb?~ G%#(lsW?gY,l9LMs8 i̦ɱ>+K5Ip[$YYo1 Y7 cސzl׿!ǒ,U Q ~WO]?gYIbw> l/ z |p콓 9#fi7Nͦ u7AfmaRF$-pج,{w֛Յ1KakoHggeYqkoȚҷE%KPKC%Ug OmO)}賲TWv2OSHINTS.DOCQ o! #"$%'&()*,+-.0/124365789:;<=>@?AB!CDEFGHJIMLKOPN3O w"`_6g6m7OЂ]`mu~{'7́ͯ3,&-D7q!GƳ׼Y8Aƞ0a"|=Xya>X8[vc([2EO/_TTuBx2|N?㭚1/c^%Jfگ< 6>^4]ag;H>/E# :3Fqvy}+O2|Om,dxq@3i㓫KX}e.=rO֌nd<1PEEּo^tWk<{}.k8̆y=>ڱD{ou}"3Dݕˠ͠ޅ9`ɬyaֹ慌b3'伎SԼ//!0'W9/O/*۱=_}󞼋%y unmK4½'Cܓ]:ΚE<M'C>ino '.+W#8_ol9u_TԶaFϼVWɎweM4E}<ֹAt.+! Ǣ7rO\qvq{c#u';VoO5:ή4 ϠDɻ%ucp*:΂oI}\ey:ΆC>7]A8E1a߯]go?F?>XR_Q=0-MKQ|N>/WTtO<5iw"וFin_Q=즥]^8֯xc즥(>'w%r>{)-MKGؓt6 qG{ Z±~i]xÐ즥>&m OZ=idR1gP8N"37(o҂ݴYKaWTtO5i0Oxyl |{-`7-a-a{`?F EE[`Qj]d 6BDWC{SZ~E±톅#l`'PglЂݴo,.t2aZ04S^Òӂݴˮa1 Jw\TtOl<i)燿sφ|zֆᆨ 脱͙M`v}yxBxr`\)ߚI˟.ߚ5I˟cdvZIkoEp.ߚ%H ?iEYoӂOZ ,"|~kD'-Zpg#ߚnЂOZ 5~{D[-ZI,/ {D[IZI;sog˯p_֔I˟3Kc{ZI;#~.omLiAt'DGtD'-H/4~k#8ZI,/,WtaK ?i-8óp_ֆQZIkcy_~pD'-H|]OQ!?<ωñ-vs=xm/'xI@TtehLigfln&c08 E)jC>Y:#=x[[lKvpv%o v@okXLх9`,̓>{_TTԖ\~.rBxBFϋo7:^Ǽ>_8E'e;-FcFA4g{2̓'[W:N,Nks`ɇ&03O w"`_6g6m7OЂ]`m M3LXusِ#ً}\uJ'{i H[~!k}f&v"dXWBQ"c|=1>uv:I:ah&z2(wx:s |o[,`;;L+5/\{ ُ[h׹q trv>p=2s8ߜ׹EzQ&K0LW dǑUߜ׹d+a-\y KWfEE }YpIm&b3O w"`_6g6m7OЂ]`m5L@+~ lOy\5d6HFzunǃR]rXِ#{2ho-i--;4 49 `OB a|(Wܞ k[>%ʵ\`7zq"Wf"|=E v'~_o^krX)ZC>{'lHkO}=N<73]':oEEؓPm!Qa{_Tt!56ñj|/! }+%r>]~gv5;yV0{l6E)^#yFѱ8qDҒsϖ:΢}uñQJkI[sg<-q~_xp D)|~x]E>{BJ[RHɠ>nⱺ0,[IgjRZ+un/********************:1D}'5:als>`vsD-fDEEgcِ#sx}\=>PS>0_t/ mOag|z~YW~z)Z nq6wrڱV۟ /ڳ5Z,ߠ3a'?񃫑3:8tтc/nj=l?XWc)Z -'l;O-شޓu;fò< ޓ]i.Xt=WhzZ|>F=׳{ u,L>)Zo~sXٙpKr5 ><8/lG`s]7Vx}<{g᝷c-L Y,c&,9y5±.%,!ly/Hk2{2%p\oE v۽cuxV/#J["uyƳ.|!Gj28-E v>q6;&_T_@}9nݖI]dLϼK`wʵqvq> ʱnA҂i5$`@Ƥ(-r0M.3,u'JA ϰׅ~AZ7|ܯ˯ǫ!a/\ D)"`If6Wz8Rhȧp9PϞQ[Z7|ܯv 6WBQ yK2{ƢDC>ẃ}~f8[1hڠD·rXÕ:s8E)C>7K~oM҂]p{M>o'^{RӐ# [r{REl~k -MKgD#\"~~덝Q yA~٠ŹR- eqQ DZEAQ Hf Z@Qy=^G#.JAȰ{#JQ$n эMߜ~/QbKQ f>OH*%_[E)޵b3WْseВS(^2K2{ŽD)ޓm 32U(Q>,9\QѽYZ@4ݘ,-a|Abc)JA4aW"DEYZ@4ݘ,-a|&'(ѕ,QQQQQQQQQщ'; c3'h.6ng'inZ4&l]{gm\BtjcOTtO<҂F)4o/'O҂ݴt%r> {8r[`Q߆|z=xDEhnZ mȧ͎@ñKTtO<iioW"#*'!trPJE v2|w6N7MMNEED8[rj9^ĦKo."~~[-߷:^~~=qтi]vޓW:7(xu *ǵ&4~ܠdu-+Z5]+6s5cӺzl#.Zmd8k2@kaO5u7-9ΒW9{go$_jHNq;h XV=7S8N"-!xB' x\-Y_|o콯\ |-K~Yކݯ.̑:Nтwct}s&Εg/o-؍ޅ]ide#q~_|P`a{_waZyg導}iE v8|~Fޓ q7竳 s8b Z;Î#~z9isт 8{Hs+k E v7/;0~ܠ%cJwhz8heyZp0 S`t8_Tt_@=lk1a߯ dqs񬱷杗B~Y콯еf8ʿhng1a߯ }ld|_>vG`8:qv kJқ :Y ?TS_Y=^\C?eOZ/}zI PM>'rOل'-FVyP&ZH0|WBfnP-G6>MHE軍D#y=eFc.yV맽Su.+Ly})p4 PM:H4ψxLkgLC>E=miy6.鏞/){-8+9a +!emhh}MuJ\;!?T#,^m.C5= ʊeS6NikG#UJ][:Q<3 󺎽?=Cx=ւ{%_;!SB%z[^> ~/bE9rf8-H ~7ݟ~^}m^^Ċ^ X]~Z Cr"~d\*uY-ؑUY{e{AtIKт]' xY˱[cy%=E("=?@ADBFCEHIJMLOKGN I U[V* G?ihۧG~""ZtXxG-*!tfgn?Tm#*qCjebo8xaБ! <*Ȥf[^ZˉF3P݇u݇qwCRs݇qwaTmG6a;xss݇ U>6P݇qwC痶@ }+k_8TwC'HCiȊl}it=t;xa|jY'}t)6gguǚi?TE#<WP Љ9^ pA8X u1 qXNAet%=1 SJui_U:xʺ^ >{+^ Y?TWT\OQ9z-*fq9S6=V^w#Y?|>|9eژy7ԍO.zGڣ MD/ཟ%]|.zGڣ ^C~)mϑk^)&S >e^?T7fGShgycY_lzxmC4jxʾ! <*ȤIy{u/>e߁)!ST6^{G6eQhdZޞ?gBH=)y/2OӮk/lexkZuq/bEpwI; L_ݢG.$m,W5Zwۧl~GOٯZc|ͧ7)"3{hh}„/>eVi8uGc%/&,ldɽ\/s^fd\, t\_P^ס_&)y拶ts& y׼k~7_4y:C4j 4k\ܷyʦӾ#S$_[Tylu}F~dEn}[w)gק":Ǘ9xVgps3pSCx曬> (oӈLȭ@ eٙDJ]%=gۭhxz |^ )jExc>C5e>We_T/|>)*O#~Oٷi:NcFWؑ))9sN:^ q@SC;2ev4yOFy uퟲ1EEy^˖eؼ&>|Qo:c^.{M Oٗ,m엜Sh6[OFytc;nkV&KCcAumqڛtGmp}e#b9l Ѵ)y}1zO\Ѣ;+" r)*+,-./0123456789:;< S Q=>?@ABCDEFGHIJKLM:NOPQRSTUVWXYZ[\]^_,];1VoN`abcdefghijklm6-A+B2nopqrstuvwxy^E>840/&z{|}~OLKGD@<93Ãhv8yDAGg_?wp-6;h=g8L./;8>i5A?_q)sa=;Am x8}NzAF#xGIh>&akp9yx)STn,pi)v1 >Q~nU vb!bVTcIL|6xC`g tPalE R?b)*J ۠s'}US].(YP5嫇-e 8mNZm_=_1Aoz2( 9U=iҮqd9тe:`'BO (w2Ca5S&D8=-z 6hg+i TM|%% J*JA6dgѣ5&&akp99'?@Ī!t5/hiJ\C'UO=Ė}A;.< ĖV"%UbK![oO??{<<;;3|@{;~ 1Nqqx7xٙHoop#-<G/nGы[7D.ޡm8pISe_<D~T u n#u,PF O; ۆX, E~䬯Y()PNv1^Zz2'>DNuQNv% gPF O ACF#B7Ss,g>.6F*a+`Q;DFIv w"K>fYln<쀝%T#r>Iekb5S QAv 5c>T @5ln<«Dj O4Kk v QP+jRH4#d(#ېe|38=xE#*g V:Nhq. Md2jJ~{j OeqvHed4[ƒ (%V{h+㰏wPFCaT#UCF#=d4BJIh#O1Z;k+5^ D32-Uqj Oep\NΞvvKe}'8֠T Qoǯ* QcdzX!R)!1yŊj\P[kT3|}* (#hT# ; X&bI"X,Oa9k"Ix>_"u ,=$@@?ABDCEFoGHIJKLMNOPQRSTUVWXY[ZrLZbZa{ #cG~3~q+1%B2JL0?-߁8ǔÐj~$xL` ԌĦ} gL` Ԍ@X43[rL0|Bxh MaRheJvL9@T7d~oBtH~;~VgSԜV59y E'YQ=)wd33.Rx/W1)/81eᣌCr\7:/ GZ:PcJG~= a0S°3Yy Rh]1% ~mZ:$ǫU'$!pᡥ),֫mƔ)$q+,❐91eMotunmS tm x'd)iL:S xLWm^ <;؟$+2 -Y]d4BDƪم,SHͲ5b%sg @rZ\@;2 rZ\llntp$Rw`Xm7=7[;"կ!te`\N.#v V27r' TmƣJNtQFbT@BTqR,p)6jpM(S\ß$xd5P5ʈRɰ&H4#3'qlC6e4N D˘HXRY  HfiAkM^3ȝ Fmc|D&g81A5(UяhvZ ۆmUTV5;^cFڧ@FE4+xɬ$A]CF#SY`; ۠ep!NY"u*FpbgSSY'd mރ"& =;Zc7R`%'FF#ÿx1;t~;+K* ;/sm6A{`gQPF7g'Yk?}?Ew8ůq~`sL[&8FZbO7A'8u˫ߢQFgyU16Wo:Wyg;8?m?PFrr7d5<큝AmC6$Ԅ,RZT]AdJ?52(`gГ ҍD`GI.T)%VO3`S($nmYDB5!TJqT#83)R(D:;/8M"\)a) gL! O!9Pdp ]ShO``i1#L):qHRZQL~=˕ø+jǔaC@?*&!qHΘq2|;tH9HѰ~wƔZ g=hhGoZL2\9䶟0\KS<|LNwB{!zΘ@oO)4飷g!}JMNC-!e4e8$b1}BxJX]dgz[&.~JogS *4X!9s!urSv ܅'=Sҵo0 &ep.${)<ɱkUˁ S ǔm;~;ɱoY@&ep.Z<ܡX#1bx ρBZ D1kĹj05 C@?e8i/w8$S;7Z&*h&pLI?( &#zLPƔc1eEgqfL)ZRJm]H!!c=Ё::$gLa-SC@C 6swk!q kǔ@vH(P?*aBʄDžajL12 %?з,ϷrL4E ē';aƔcʍZ.ghIuEث+gQoqLYycY VՀ۵VS]s5{1E.#h;$7(vL9c+4on)yVz7[ wnǔXd뿅nO5{"N?0ہpvc1eCrL CO)N sH潋gc1<܋=]1嘲&4܋-Ipss^=PtLC&=1~OB3{8_zLB;F렺6 CrfS Mzǔ߁)tL?Q(jCrLc]{ΘKv!9@48$Ǵ<\ט8$Pùy@Qǔ!(!9.m/W&C=v9#:ty+rm(nL9T_ tLT, NX%1R׫ø@oO\Yf-p{OH tHΘDRہpÄ 9e1R׫E2FZcLDŶ1~^1%pLP@|SzgNA&< d7S64$O)4LY9S4Qc mǔcJ৙טrLPW5LYϷ^LEеaBjL qH &^pDMD z1嘲Eǔ_/S)UpHh1}жE48$렺VS>e8i/\|?F-OzL:fW_1{qMq=[GWH@sR쿺UU]\A`oŽ4Vcv, ҥr]n)1;ϵwsy-?jL9Ĺ#G.MFǮX/c:=f Uo=r՘o4u]_zwŹ=rUWĕ1{FS\25c3K5\|;6c_]W׻kW{p\2f`ט"]1;k Gk̞1{q_D,\D)ǔ[K6{F cZWוRdQH[DQG8s1ㆭQ"5)KS@5Y+=flzQRSVcv\UϜM#qMt=1eqp>?߁@?e laL qH6\ Egtճ*˜21E@-IpgmϫgU1e8 c]5 ~䶃@|ceJ~J)ɁH.";>p1H XJvcJ]&? x_е@|4Qc1%k@Mzē';aƔvbnb L12 %?й땺rL4PxJ7XJvc1%@)M~;MCrg\F%6^}Oc!Y@^=+?⏊qy^=P0kfe3|J߽"mHr NXezLH|ƩN<c(c_k5yKPùy@QjBJ S ǔZ&Ĵs!Y@׾'S.$ +Z'{7:7PxV~Jc1~m]S SR1y_i#9;$yw+ǔ;4CK#17;6(W]u_Yq+o7z1;gv&:s9?KTigkqU\.k.TKyd슨_qd+:f/w[kFigǔD̳W}E\65s3ժ_Yqo.ss媫1;%FŹX}E\ǔu]^}Ũ4oo"+1UtUcvTd t)f1;{h[u])?%ly5{t5fu7vո bǍ[1{[ˊd^Dkٛ]ͮf3fW_uʿ|ɜ1{FSblsnQ{ic_qd_`@/ [ǔY-$q&r tq1evNy,ƿjتyV՘mG_qd+&*fw?zoj\:s6u1{qM=n6]fٌٗwe۾h˙Gcv\UϜMȳy#1Utz(~Qmb쿺~#;1Z:+˟?f/cWf>ft>f[K@5x<,wcvTd ts[Dk^m@}x:*td!]s5K+P︪~1;EVc_]Wzʏt#yg"c_]W y8f/;ןwYy7c1;V+8q5D7ltǔ5_2&*fw?WѥY&vw=1~.߹@\f/UWcv\Uow[nx똝:(~[fڬ6fCWZ,fOm)Ǽ(~[fڬ6f땿=N8pVzlc1/R^/gR ^offY66D0fci^&Pa/WbfkRڬWmlc1KY6+zR^;{!9+Coi1Ji^m֫v}B;&٥al& cnd^#V2cDFORMAT COMOSTOKPROCOMXFORMAT COMFORMAT COM%hAUTOST COM CFORMAT COMOFORMAT COMFORMAT DOCKFORMAT COMPCPIP DOCPCPIP OBJ]OZTOKPROAQM:&-READ ME `+q>+q>^#V#!Éq>Sq>Sq>Sq>Sq>Sq>^#V#!Ð R˯F.S{E+V͢ ~˯  , H1> y(  *͢  F [˯ ,1>!!@ P6N#z  6#z 6#z 6#z 26N#z  6#z 6#z 6#z q#6#z ~#w#6#z 6#z 6N#z  6#z 6#z 6#z 6#z 6#z @6N#z r6N#z @R" !O ~0:0GyOy0d8d{0(0 r̮B`L\կ3`z _)?%{5Z5stiq=Wty_%6};^&MTR2/cR13S{쯔 %8rg#ǎ DʞȭGc͜h׻h#h骭wFzij&46#W=wGx&r^^cEM.h.c"nb@h9b]s]ַ!{zcvk}W7f/UWcv\Uow[nx똝:(~[fڬ6fCWZ,fOm)Ǽ(~[fڬ6f땿=N8pVzlc1/R^/gR ^offY66D0fci^&Pa/WbfkRڬWmlc1KY6+zR^;{!9+Coi1Ji^m֫v}B;&٥al&#8:_:g.6>2>2~fy2i@CK{ DEC VT180 Double density diskette format program ------------------------------------------------- All activity will take place on drive B OPTIONS ------- Exit--------> exit this program and return to CP/M Format------> format the disk in drive B it will erase all information on it! Single------> format 1 track on the disk in drive B Verify------> verify the disk in drive B is readable this is a non destructive test (E)xit (F)ormat (S)ingle (V)erify Please enter 'E' or 'F' or 'S' or 'V' ==>$ Insert disk to format into drive B. Enter to format, any other key to abort $ Format a single track of the disk Enter track number ( key to abort) xx$ DONE $ Formatting track:$ Enter to format, any other key to abort $ Sector $ $ w#s#r#@>2/     ,22 E:2O1!T"023.U:3< B0>whatsnew WHATSNEW -- First Osborne Group (FOG) RCP/M CTL-S pauses, CTL-C aborts -->New files since 01/04/84: B: RBBS32A .INF | RBBS32A1.LBR | RBBS32A2.LBR B: M7-OSCP .AQM | M7-OSCP .ASM | MDM7XX .BQG B: MDM7XX .BUG | NEWUSQ .OBJ | OS1WIDTH.LBR B: OSSARGON.DOC | OSSARGON.DQC | OSSARGON.OBJ B: PCPIP .DOC | PCPIP .OBJ | RCPM-045.LQT B: B0 .DIR | -->Deleted files since 01/04/84: B: ++NONE++ B0>dir *.* $a -FOG/ XXX 0k B0 DIR 8k BIGADD BAS 8k BUDGET BQS 8k CATXRF12LBR 16k CHAT1 OBJ 8k CPM3BIOSLBR 64k DBMGR INF 8k DBMGR LBR 80k DE-LBR DOC 8k DE-LBR OBJ 8k DIAL LBR 16k DISK76C LBR 48k DISK76C TXT 8k DSKLABL2ASM 24k EXTONE1 ASM 8k FANCFONTLBR 48k FIND OBJ 8k FIND40 LBR 16k FZ-DBSE LBR 48k GRADEBOKLBR 64k HANDYSYSLBR 72k HELP OBJ 8k HOW2HACKDOC 8k INV BQS 8k LDIR212 OBJ 8k LOCK DOC 8k LOCK OBJ 16k LTYPE OBJ 8k LU DOC 24k LU212 OBJ 24k LU300 DO 8:2<(:/  ˯ ͻ*0"2 K2>2/  E :3ͻO  E $Track $Drive A $Drive B $ {BAD}$ $ Format OK $ Please type any key to continue.$Verifying disk B to be readable Only one error per track is displayed$@}$ $ Format OK $ Please type any key to continue.$Verifying disk B to be re!r.9#[ s%  THIS PROG VALID ONLY FOR 1.4 CBIOS & A 59K SYSTEM$ KAYPRO DOUBLE DENSITY$!"*!!"!B" !)"!R" !g !q!w!"*>2)!{!">2!%   DISKS ARE NOW VALID$^#V#s#r(?8Osborne Computer System 59k CP/M vers 2.2 CBIOS 1.4 {Y͈‚>. .! :(!^#V!R!(=borne Computer System 59k CP/M vers 2.2 CBIOS 1.4 {Y͈‚ ˯F.S{E+Vg C˯  X  ͪ y(  g C 40k LUDEF1 DOC 8k LUDIR OBJ 8k M7-OSCP AQM 16k M7-OSCP ASM 24k M712OS1 OBJ 24k MANDALA BAS 8k MDM712 AQM 72k MDM712 LBR 208k MDM7XX BQG 8k MDM7XX BUG 8k MDMNUM OBJ 8k MKEY DOC 8k MKEY OBJ 8k NEC83CONAQM 8k NEWUSQ OBJ 8k NSWEEP DOC 8k NSWEEP LBR 24k NSWEEP OBJ 8k NSWP190 OBJ 8k NSWP196 OBJ 8k NSWP199 OBJ 8k OS-LIFE OBJ 8k OS-LIFE1DOC 32k OS1WIDTHLBR 8k OSBDUMB OBJ 8k OSBIOS CTL 8k OSBIOS DOC 16k OSBIOS SYM 8k OSBIOS TXT 8k OSBORNBIBAS 8k OSSARGONDOC 8k OSSARGONDQC 8k OSSARGONOBJ 8k OSZ-JEDIBAS 16k [ More ] OZTOKPROAQM 8k PAMS1183LQT 24k PCPIP DOC 8k PCPIP OBJ 16k PHELP DOC 8k PHELP OBJ 8k PTR8023 ASM 8k RBBS32A INF 16k RBBS32A1LBR 88k RBBS32A2LBR 32k RCPM-040LST 24k RCPM-042LST 32k RCPM-045LQT 24k RECOVER OBJ 16k RECOVER PAS 8k SD72 OBJ 8k SDIR COM 8k SDIR OBJ 8k SESSION WST 24k SPRINT OBJ 8k SYSTAT OBJ 8k TAG2 ASM 16k ͏  ͪ  ˯ !p!@6#z 6#z 6#z q#6#z ~#w#6#z 6#z  6#z 6#z 6#z 6#z 6#z  6#z d6#z @R"[ !pO ~0:0GyOy0d8d{0(0 8:_:g.6>2>2~fy2i@CK[{ XEROX 820 Single-Density Diskette Format Program ------------------------------------------------ All activity will take place on drive B OPTIONS ------- Exit--------> exit this program and return to CP/M Format------> format the disk in drive B it will erase all information on it! Single------> format 1 track on the disk in drive B Verify------> verify the disk in drive B is readable this is a non destructive test (E)xit (F)ormat (S)ingle (V)erify Please enter 'E' or 'F' or 'S' or 'V' ==>$ Insert disk to format into drive B. Enter to format$"*i*>2s <Error -!~<ʷ=ʷ#~#ã#BSyntax Error in DATRETURN without GOSU Type MismatcOut of DatIllegal Function CalOverfloOut of Memor Subscript Out of Rang Division By ZerOut of String SpacString Formula Too CompleRESUME without Erro2Field Overflo3Internal Erro4Bad File Numbe5File Not Foun6Bad File Mod7File Already Ope9Disk I/O Erro:File Already Exist=Disk Ful>Input Past En?Bad Record Numbe@Bad File NamCToo Many FileUnprintable Erro!9N#F*I~#~ҧ~+ʭ~#~ڧ+^#V###Å###Å|ʹ~#fo!< Internal Error - No Line Number ÷*I~#U < at linev s >< < at address|K}Ks > ͘)> Ø)!9"a*a ʢ FN#" !9" " y2 *t| *! "A~#*1 )~ʗ R  ͖ ͝"1   ********- **- ͪ*****1 )E ~#"1 ,— ~— !"~,"] #"~q q # ` × "w #"1 x"ʌ +~6  >@++*"s#r+*#~_#~W͇ Dr+s##6"###!~#fo)<*"*}o|g6@#s#r#6"***("}w>#w##)++6+6 4~͘)#=0B~͘)#Bǂ" x(!"ǂ"4x4!&G"$xD!G!"" **}/o|/g#"*|ͼ2Ý!*~wɯ2* /**ü2.>>s~͟#ßl!*>!**2# !*f-!**>>>|}+!n,͠C3+6!*>ͯ.2*!P1!n,!*n,~_#~W#~O͍40!O0͎2sɇ<o&ü2****ͣ"*`i"*!*^#V#N#F#!1{4x{p4!*6P3wg>4Ô4:uGw#!*****||<**+!Kͱ.e:*2*:*ҨͲ:*OTZ|/g}/on!:*wͲ"*>2ukajm L}ͥ>2N`hn~&-++ͱڬ.ReEͱlLqQ:u>~%_#p!qdD1zͱͱ1_{_5|!zw 1zͱ!z!1zͱ1̪ ʌ +~ ʁ yͼ- <?Redo from Start * !  * : O * +~+    +w ++~#foy" ! 5* t~2 #~#^#V.++ͯ':1 t`&$)*G@*z"|x*) RBEt4] $$WCLFMp eQp+2,̯ܵC2? P4cUW eX` 4V(#biQ/HSeVE6EY/%a*#` $j2Gm?\vp\+,͠pGm} ͟ À } ͪ À } ͵ À } u À } ͟ Ý } ͪ Ý } ͵ Ý }  ë } ͟ P } ͪ P } ͵ P }  P * * "* H~# x2u:w G kͭ<ͷ ~ )# k~ )# >2u:w F#~#foxG ̷ > 5 ~#)) > G >")G:xG ʬ)*+~ )G >,)W*#^  += ͬ)z{ {_ !"!"t2!~6#w~!$9N͇ i&I G~#I#;++T0:_Ø)} 0ͪ*>á} 9G=A$DG"*`i"*#~+ʐ-g0OxGҐ#~N`xE…y 9>2PÕ|9}9"*`i"*͕#W͞:P=60̪d+~0.Ī>"w#6+6-/</ :#p#w#6!R#zғ05z{"=ͤHp#6!Q#:v~ M*M+aͱ-+$0‹#ͱҋ++wʁNʋ6%7ʯSk+6%kĞ_x(d!P5_yė{_x (yTOGOd'*v=P>͸ѯ=7ĞyėOzWO]k/<á} 0*>)} 9~,"¾#"~# ͇ >"#Oyͼy*K^#V#{!"p"r>2N#F#*p~=+}|+a9͝O:*p)~=͇ A)~,]#"pɧp*r"p+V+^"r͇ G} ͖Գ~##++M>)+V+^+ʦ+r+s͗} y~#^#Vü} |>!9>ͼ^#V#(3Nb L&N DT@_!405*"~#N#F#pJ )3yxU 3+++6@#yw#xw+++6###!~6ځ͖0*#~#~0͇ 5!*"~#^#V#)ã|ã++~_w#~Ww#ã͖*DM~#^#V#:+z+{##{z~#q#p_y/x/DM~#/YP+++"6@###{_zW+r+sɷʉ*|g͇ 8 ^#V+"w#s#r+++r+s##!*({z**?ҫ}|~# ±yGTx)͖M×*(**)M͗###"< during G.C. ÷"< ÷< Internal Error - String Space Corrup#N#F*yxڒ*yxҒ++`i+V+^)##6+6$"~.Ī"vڕ>կ:*3!*M çCOk;͙͊t#k C=60#!P60#={ P/>ҍ>p#=„!*͒e>Ͳ͕?P͠/{_#zW#yO++S#͕p#>>PN#F#**/}o|g"*p#=Pw1_cƤ~@zZrN vH Tʚ;@B''d #~: ʱ ʱ ʱ0?<=:u7-++ͱnOH+ nH#8͇ ;M!$"}0?)))صo$M!JH}n0? `? ))))صoJa{ :*:*_:N2O2N͇ ;͇ ;bDDs(ʘ$ERR2D49T bDD4U =5BjtĈi H` inʦ@ 6'r@q `V"`CK6,:*(fQ0H*Hq H8h(3U2D} }7$ʆ'ʃ'!' ~ è~# x‰&DM&ʘ'&! w!( V6 ʾ&zw&ʘ'&! ~!&! ^#V! s#rDM&&q'}7$ʆ''ƒ'`i"t!!'"}N' ͇ !>I} |>,H'-:zʆ'*{!"}{Tf$%l'!e'*}W'ɪ|}!"t>6>4>?>=>:>7>5>2>3>@>C>͇ o&I!"t!1 "1 ': '<?'p( (:(>\2(''(+(~((+((((!1 2(((O':(1(>\(2(yʛ((7 ( ʛ( U('Û(('s('(> (>'}(>#(–(6(!1 (( (x<>ʦ(yq#( (> ((ʳ( ((: (wZs Ø)>^(@((~ (> ((#(͖* )#~+<)=ܬ) ̃)̆) ,)4+~#<[)=) ʊ)͟ :GX)͟K):yt)<2y*v")!)"v ʊ)ͦ*654> )~=Š)*!")"> )> )> ͦ> ͦ*)#~ ) )Ʌo$ɧGw#){zɅA@qX<à`H(qHgɱ HĉHP Hc8T!E5%It)*3@C꜀Q.G#՚5X4`Yf ʥ ʥ#~š`í {>O #~goPY!' ůw͵ :"{#ʡ'=ʛ'=ѯÌ'<ʡ'!% ^#Vr+s} }#!"a}7$. PY$!`i>}!' ~İ͵ $} }7$ʆ'!&L! ~+ng} }7$ʆ'! n&*t~ʀ'ʕ&DM'~̭4N#V pʡzw w+s#r#6#6DM: !" s#r#6 ! {zV w< <ʡ'!! {w:p' ́ !! ~!) ? ͭ? w'~#B *t~&( ~l +~#5O ~+~x ~ N 7>*tT]% N#F+q#p###6 – ͵ :!{#>® >w+w!(L 7?*t' 6#67~ʞ'#^#fk_ N#~:!++@ʞ'y@ڞ'Ҟ'> #S!~.,!?!7!#!2Jz ʞ'ڞ'> ?!3!> X!3!} ><ʕ'!.>> ) :>!.¤'><'.*_~ʃ'#N#F++ O!I!Rƒ'*a|!!"a}_7$!${7$’'z %"t#>> )66͵ ~K"<ʡ'`"<`"•'?"!%w#w#w#w~|"~ ) =aQ0#hBDdHx$AC3BE$DB01RD# $FR22D(P$PPABD($ERR Dd%6#*!/*-+͔4O2+!4!*y#*+++͔4?Ü4,d4.K+,.+!*!/ʷ+:*ʔ4:*/ͯ.-2*:*.͔4x/F+N+=5,!*I,!*>q#p#=L,!*n,"*@,/,,**!/K4:*K4!*N#F42͘.qʫ,G-.x ”,‹,.!*ͷ.ã,j0 TeB׳]h!I.k ,d4.,,.!*n, !*q#~++w+q -Ô4DNn"~`35zr1{r1h!I!/ʔ4yO2*l-!/ʔ4:*+~-/<+9Ҕ4:*OC3G2*!*ͯ.:*2*x!**--ҵ-4.:*-!*~++wÔ4!*4#-4,+6!**# -ɯ# --./!*Oyw#.G:*?.!*Vwz# $.x.K4!*R.7.xʵ-!*wK4õ-~w# T.,d4.s.,.!*f-,dp# ‚"# _} ><ʕ'} !>6# s#"} 2J!?o#!Go#>ʕ'O!  ~#(yB#~ ?#>.( ,#: W:[#> (((>#~*6?# s#O!!4“##4“##4y"¨#ʡ'><"_>2z!&"{:x<2x*v"c!#"v} "aͳ!*|###n#.*c}  $} 2e3%"f3%} '$} 2e4%"f4%ʆ'<ʆ'=_!~#fo[$##{q$++G$*z$"q#p#s#4#5++###DM !"h~#foʳ$+V+^##*a{z$BK^#V+*hs#r! DM$*a DMͦs#r# 6# x$ !T]~#foʆ'x$y$~#~+*"s#rXT*a|!%! s#r#w+%2%}7$ƒ'! ^#V:eV%*f{ʉ'+s#r! w#w! ~#fo!q'†%%BK>!)ҙ%)#Ú%))Ҩ% ҧ%#=%}_}la)ڤ'ҿ%#x¤'" %! " %!) "%!}o|gq'%bk:%4&q'&Q&DM*%* %͈&" %PYP&}o|g* %#" %%Q&DM* %*%͈&" %PY&2p'* %! ~#foq's#rw&:p'ʄ&!&!&%4.Ï.,.+!*V-y2*!**~q+¥.q.NsY+».ñ. W~w+..!*.ͼ2.d4!*w#.Ô4/}8/ />/8/C3!*F#^#V#N+4>/}*~#&/G++NyÜ4*$/!*d4>u/S/ ͍4̓/{4!*6P3g>4|3>M/akd4/T2/Ô4ͅ4/͔4/X3/W2͎2|p4/!//X3P01/>O!*~+>wÔ4QYm42Ô4:**0h"0X3T2Ɓ*03C1!30Ͱ0J1QYm4͔4K44|Yt&wz^Pc|u~r1m4Z0 >2*!w0Ͱ0X3ogͼ20 }}{(qnz X3{41Ͱ01X3~#d4=x1ͅ40û020ͅ4ʔ4:*m40/<3Ҕ4C3g4!*#1~_#~W#~O+4#44.4+4G~_#~W#~O 3m32@1ͅ4ʔ4>O02S1ͅ42͔4ȯG42"*y2*Fo33!D**:*OҐ1*44è1͸1g.**:*Ozґ1͸1g.**:*Þ1x<=1{_zWxG)yOHG+421ͅ4p4͔442y+F+F+Fw`h|,2gy2:*O|g}oxG-|2}1m3ElaO1!*~GxL2ƀJ4wC3w+ɷ4K4{4x{p4!*6P3wgr2zq2 >4|=4{ $ S˯F.S{E+V͡ }˯  - G2? y(  )͡  E Z˯ -2?!!@P6N#z  6#z 6#z 6#z 26N#z  6#z 6#z 6#z q#6#z ~#w#6#z 6#z 6N#z  6#z 6#z 6#z 6#z 6#z O6N#z 6N#z @R"!O ~0:0GyOy0d8d{0(0 8:_:g.6>2>2~fy2i@CK{ IBM CP/M-86 Single-Sided Diskette Format Program ------------------------------------------------ All activity will take place on drive B OPTIONS ------- Exit--------> exit this program and return to CP/M Format------> format the disk in drive B it will erase all inf>2*m3/))>3 =63!*~7w?##wy7O****"*"*ajSXʹ3K4JS\E!*K4/ÿ4 Ҿ47>{_zW}o|g=µ4|g}o4CZQ4 o-yOzW{_xG4***.|g"u*"#$>$> xppppw *u.e*u.>w*u.|w*uw# xe  FORMAT g$G$ LOADING FORMAT..... $ ************************************************** ***/##########/##########/##########/##########*** ormation on it! Single------> format 1 track on the disk in drive B Verify------> verify the disk in drive B is readable this is a non destructive test (E)xit (F)ormat (S)ingle (V)erify Please enter 'E' or 'F' or 'S' or 'V' ==>$ Insert disk to format into drive B. Enter to format, any other key to abort $ Format a single track of the disk Enter track number ( key to abort) xx$ DONE $ Formatting track:$ Enter to format, any other key to abort $ Sector $ $ w#s#r@>2.     -21 D:1O2!T"/22-T:2<8:1<(:.  ˯ ͼ*/"2 K1>2.  D :2ͼO  D $Track $Drive A $Drive B $ {BAD}$ $ Format OK $ Please type any key to continue.$Verifying disk B to be readable Only one error per track is displayed$@}$ $ Format OK $ Please type any key to continue.$Verifying disk B to be rea ***/////##/////##/////////////##/////##//////##*** *******/##****/##************/##****/##*****/##*** *******/##****/##########****/##****/##*****/##*** *******/##****/////////##****/##****/##*****/##*** *******/##************/##****/##****/##*****/##*** ***/##########/##########****/##****/##########*** ***//////////////////////****///****///////////*** ************************************************** %FORMAT-DISK (c) 1983 ISTO1,-&>!F!F͚ F !F!Fͣ &2aA2!F!8FQͻ>S~!F!|F !F͘!(!F[(_[(_ AB>>D >22]͢@[(_SD>S> 2>2 x2w2v:, =x=!b x =!ipGé:wg.,:??Ga)"xɯ*TR[xRux2z:zG>( ʓ҉y2{!1>2!|F22]͢@>*>E2$:<(±:@CC :wGKx* >ɯ>'2:2>&2OO>%2OO:=4>:2@*tKp>2:w=G*tKp!4:~ʒwvw@B"@!@[r:wG[p:w:g.6ͺ0ͺ'ͺ*ͺ>2 9ͺ: =ͺ~ͺrͺlͺx # _ >X~X#[(_u02 9: 0 1 2 3 0123456789012345678901234567890123456789$= S OSBO OSBORNE FORMAT PROGRAMS ----------------------------------------- STUART ISTO COMPUTER PROJECTS LTD 1639 WOODLAND DRIVE VANCOUVER, B. C. V5L 329 CANADA ----------------------------------------- THERE ARE FIVE PROGRAMS HERE WHICH FORMAT DISKS IN ALL OF THE FORMATS THE OSBORNE-1 CAN READ AND WRITE. THESE PROGRAMS WILL ONLY WORK ON DOUBLE- DENSITY MACHINES. ALSO ON THIS DISK IS A VERSION OF OSTOKPRO WHICH WORKS FOR RELEASE 1.44 TO ENABLE THE OSBORNE TO READ AND WRITE KAYPRO DISKS. THIS IS A SLIGHT MODIFICATION OF THE PROGRAM SUBMITTED BY JOHN S ROBINSON, WHICH IS WRITTEN TO WORK WITH BIOS 1.41. ANYONE WHO WOULD LIKE TO DEVELOP PROGRAMS FOR READING, WRITING, OR FORMATTING OTHER DISK FORMATS PLEASE WRITE TO ME AT THE ABOVE ADDRESS.  S˯F.S{E+Vͣ ˯  - I2? y(  +ͣ RNE FORMAT PROGRAM F Format disks Exit program Press F to format or to exit S Single density D Double density Press S or D =3$ Select disk to format (A or B)=4$ or press for main menu =&$ Place disk to be formatted in drive ='$ & press when ready Completed successfully FORMAT ERROR NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN G \˯ -2?!!@ P6N#z  6#z 6#z 6#z 6N#z 6#z 6#z 6#z q#6#z ~#w#6#z 6#z 6N#z  6#z 6#z 6#z 6#z 6#z 6N#z 6N#z @R" !O ~0:0GyOy0d8d{0(0 8:_:g.6>2>2~fy2i@CK{ KAYPRO II Double density diskette format program ------------------------------------------------- All activity will take place on drive B OPTIONS ------- Exit--------> exit this program and return to CP/M Format------> format the disk in drive B it will erase all information on it! Single------> format 1 track on the disk in drive B Verify------> verify the disk in drive B is readable this is a non destructive test (E)xit (F)ormat (S)ingle (V)erify Please enter 'E' or 'F' or 'S' or 'V' ==>$ & Insert disk to format into drive B. Enter to format, any other key to abort $ Format a single track of the disk Enter track number ( key to abort) xx$ DONE $ Formatting track:$ Enter to format, any other key to abort $ Sector $ $ w#s#r#@>20     -23 F:3O2!T"124/V:4< 8:3<(:0  ˯ ͼ*1"2 K3>20  F :4ͼO  F $Track $Drive A $Drive B $ {BAD}$ $ Format OK $ Please type any key to continue.$Verifying disk B to be readable Only one error per track is displayed$@}$ $ Format OK $ Please type any key to continue.$Verifying disk B to be r PCPIP.COM This program allows file transfers between double density Osbornes and IBM PC-DOS diskettes. It runs on the Osborne, and allows you to transfer to or from the PC-DOS diskette. It will write to a double sidded IBM° !öWrite error - Disk full $`iͭ!9~=+͛V+^+F+N~og~#fos#r}o|g}o|g}o|g|!,|}!%%,ɯ|!|}!-N|N}zc!_--{!-ze{eze{e!||g}oÉ|g}o×)ä{ozg+|/g}/oDM!z>S\)) =ɯz|MD!x<z>jS\>)) #  =ʹôN#F#x9~#~#"" "> w+ Cw w##w w #~+:n~##͓@~#.͓n*++͓w#Å*a O!p ~_#V!$ r+sbk#| !9"*++"Z *!9y *++"2 *++"}2:*++"l *++""**++"ͅ !!9l !9}2!9"͡ !9"!!9l * ʺ *   *#"+ á :! !91 *#"+!9}*61 !9:͗1 1   *#"+'D !"*!0Ci *!9D ʖ u J * ͼ* diskette with out problems, but obviously has trouble reading the flip side, and will display an error message. Run "PCPIP" and follow instructions. To transfer to the Osborne, you will be given a list of the files on the PC-DOS diskette to choose from; to transfer to the PC-DOS diskette, you must know the Osborne file name. PCPIP is written in "C". Give me a call if you would like the source or have questions. Eric Leininger, 614-488-2787 (Central Ohio Osborne Users Group) *+%"'%"%%"# "t "r "py 6"E+6+!^6*F+N+:I3!!9~#ʖ QO"j'j +}|+#~ʁt6#~#<ʶ>!4Q6#6*!͹* |ʳ͉!ͼ"r!ͼ" Q Can't open > or < file.$çw*4 y'! 9k!"4p/*}ʝ4::D<*E 2D ̓H  ‚#"+"r ! }2! ""!"*#"+R !"!9 o !0}2!"!9 o !0}2!"!9 o !9 o !9|D !9#+ *+" ! ͨ o o  d u o x c s͡ !9! Nʓ !90â !9A *+"!C : è 0* !9" *+"#*' * .|g| *+"#* ʹ" !"* *z( * !k L ͨ *|A !- * s ú *'f * !͖Ê *'ʀ * ! Ê * !͖ *'ʪ * ! õ *+* s " !9* * * * * * * * !" !O9* }!!V9!!T9!" * ))))!X9NʸW * #" 4 * ))))!T9" !" * !3Nʙ Ë * #" p !9* 6 Á !936!" * !Nʤ * #" é * * " !F9! * 3 !F9#'* )!960* )#!9!H9}!F9# 2!F9##' d* )!9!H9}* )#!9!H9#}!F9# ~!F9##  > _*E~+#4N s> > !ͦ:G¼H2D_~ÿ   >  ʚ!* }͗> !ͦ}  > _ !"# con:rdr:pun:lst: ڸ_~O7!  #i& ~!N~#~#F6,pw62=!9y=͛:>wN<!Ms 6#6 ~+† s#r{{ ڧ!ͦ#^!!/w#w!M~<6 !b~rG!T}*Kxu>w#%{=͛box h&{ !~~!TN#FwG+wO#s{ ک+!9~ !i~b!5> 6> *K w`i#᯾%,!|!!9n&:ʗɯ2>D`:!9!=:w!/xw;#4>2>2:Gexʰ:O}! DMR:&ʑ!F9###' ʻ* )!960* )#!9!H9##}!F9# !F9##  !F9###  * )!9!H9##}* )#!9!H9###}!O9* }!O9! CM!O9!zD k* "!9!Q9}!O9! NŒ!O9!z? ʡ* "!96.ú !!9M !!N9 /}" " " " " " " " !@9Memory dump at %x %s %x%s Hit return to continue  !9M:2B:2L!9DM:2_$!9M:2q!9M:2!:2':2*!"!"!#!)#!N#!_#!#!# /"*}2! "! "! "! "* !# /"*'v͎*'ʆ *'ʮ!# /"*}2*'ʾ͸H!$ͧ****,!"*! DS *#"!"*2!"*a*ͼ*"*N*sͅ!?"!*+"*'ʍ!/$!&!9+*H ʬ!&!"!9+"D"F"H"J"L"N;*!9!&ͼ"*!?*"3!&!9!"!9!'!'!9ͽ(!9͡!.'! 9*f*d*b*`*^*"b*b*Dá*b#"bÂ!"d*d2!"`*`a*b*ͪͼ*"f*fN*bs͏×!"^*^!Dʀ*^"^*^"b*b*^###D}3*b#"b!"d*d2!"`*`a*b*^ͪͼ*"f*fN*bs͏)"^"`"b"d"f;******! 96 !@'!9!"!9!`'ͼ"*'!c'""""""3!P"!"*"!"***="*!?g*' !|'!9****"* "**"***="S!'***'*̀ !9**+h!'*͉*)*'*%*#*!****!'!(!9!(!9!s"!"*'!J$!f$!$!d"!"*'!$!$*ͧ!$*"**Dl"*#"!"*2!"*a**ͪͼ*"*N*sͅ!%""""***!96!"*!?D *#"ç*)))))*"!9*}!9! 91 *#"+**#ø"""!9*!***!"!!9!)9R-!%9!'9!! 9!)9R-!9!9! 9-!%9"!*!"!%9"!*!"!#%!9**!M%!"9 /}!"9'!9*,""""!!9;***(!96 !d%! 9!"! 9"(*+ -!%! 9*+ ʛ!9!@N %!9G"***'*(**"**1!%!"!9! 9*+!%!9! 9Â*(͉"("*3*E*C*A*?*=*;*9*7!"7:'ʒ!'(!9!96!"*!?Dÿ*#"ä*)))))*"!9*}!9!9õ!"*!D&*#"**6*")*)!9*")*)!9!"*! Dʄw*#"\**6 m*"!"*! D7 ë*#"Ð!9* !9*  *!9*}*#"!9*' *"!9*'4 7 á:'Y ! *!7( """""!"#"%"'");!H(!_(!9!9!*y)3;* * * * * * :'!!t(!9!" *'h!!9!9!9!" * )))!9ͪ" * ))" !9!9*'!!9!9+!9!" * ))!9ͪ" * )))" * !#" !9!9#* " * *!* Na"!* #" !:'#"!(* * * 2* a* s* * ͪͼ*" * N͏!!9#P" :'ʑ!%!9*'!"C!9!9!9!"9*9)))!9ͪ";*;))";!9!9*'b!9!9+!9!"9*9))!9ͪ";*;)))";*9!#"9!9!9#*'!9+!"?*?!"A*A)"A*?*Aʨ!"C*?*A1ʻ!"C*C+'!%!&!7&!9 /}*C+ ʋ*;"=*=*!*;Nʋ(*=#"=:'M!O&*9*=*72*9a*=s*=*;ͪͼ*"E*ENͅ*C"7"9";"="?"A"C"E***!"!"*!,N7*#"**+"!s&***' *#"*!#?4!,""""*N*L*J*H*F*D:'ʌ!&!9!9"H*H ʮ!9!:D m!9*+"H*'Z!9+!"J*J!"L*L)"L*J*L!"N*J*L1!!"N:'J!&!9*N*N+'Z!"H!9!9#Ö:'ʒ'"!(* !9* *y)* " " " " " " 3Program PCPIP - Rev 1 Osborne / PC-DOS file transfer utility Developed by Eric Leininger, with latent bugs left in to tease the users. Insert Osborne disk in drive A, PC disk in drive B Hit return to continue... Source for copy? (o=OZ, p=PC, r=reset, e=EXIT) Change disks and hit return to continue... *** End of PCPIP *** ..Single sided diskette.. ..Double sided diskette.. Note that PC to OZ file transfers will fail if any data is on side 2. *** ERROR - UNRECOGNIZED DISK *** First fat entry = %x Please wait - reading IBM directory... Thank you. File = %s ; %d bytes ; %d = 1st sector Copy to disk A:?(y/n) Copying file %s PC => Oz First sector=%d *** WRITE ERROR, COPY ABORTED *** %c Next sector=%d Reading cluster %d ***ERROR - attempt to read flip side*** ---Cluster skipped, copy continuing-- Hit return to continue Reading Osborne track %d sector %d FAT of %d = %*- ʣ.!9*-  .*-'.! 9*-6.*-#"-! 9*-!9*-}*-#"-n.! 9*-6"-"-* /*/6"/*/!AC2/*/!ZD F/*/a"/*/" /* / b/6" /L/*/"/" /E 9*-6"vqOZTOKPRO.ASMM   "!#$%&'()+*-,.0/21534678:9<;=>?@ABDCEFIGHoLKJ#Q| ]c{o9}9`Rۚ&)Rf9kO_kw"ʾ+MHynDzva_a;z|xnScʻiD1cGw_ _Za_ݔwXQ2v ( 7W"ERޥSu[0#q%Rnpg(R?ޟSʻw3QʻE}OmKy7D=`mt. s.Aϯb 曦t>Ӡ}Jy7҇ X@l5ء}!$݌ĐTs)fؿ,o\,&]ʻ;ޟw)SܺQ bOqaRׂ֨`ҩh+j_ ]ED'R֨d Looking for free sector at %d Relsect %d, side %d Found free sector at %d ***ERROR - PC disk full*** wCan't Open: %s OK, OZ to PC file transfer Enter file name:...Copy complete Copying file %s (Oz => PC) rb*** Can't open file *** %c Have read %d, relsect = %d, next = %d End of read, last read was %d, last write to %d Copy complete Make PC directory entry... Name = %s First Sector = %d Length = %d New dir entry = Close PC fat chain... Last Sector = %d Writing sector %d Writing Osborne track %d sector %d Next sector %d *(6"(*(!aC(*(!zD (*(A"(*( U)!9*(}!9!9#6"(*(!aC>)*(!zD R)*(A"((!96"(;*w)*u)*s)*q)*o)*m)*k)*i)*g)*e)*c)!"m)!"o)!9!!9"c)!9!9*c)}!9!9*c)#}!9"m)!9"o)!m)"e)*e)#"e)*e)6!o)"e)*e)#"e)*e)6*m)!"q)*o)!"u)*q)))))*m)ͪ"s)*u)))))*o)ͪ"w)!9!`ҩL{Wտ|7չ |x*5*zmj/tjiZךGOGǽV]zwQZ0Z:ʹwE^k㽫ޞV6Z:iZך:U]EFAMN)3]QWZ(תY"Jy#NNfZwg}@]xzA+j] QKWe{W=TokAʎNVSi]5ޟ{ℱ);C" F5Ӻj?%YoH)`jU(k^0j5UT3ƣ^.g]QWSF)S{T=&ӺjDF)~wV.ӺD3-SDP:lʳ?i;>Vu*UM v:nZ-ῃx( 8j,5-ɊnrGWдgl-RU2mʫ FR@0b"]g0Hä<z Iy.ScGwIS!6L{Yc 5!liyYȣ _)1е`ZW0,Υ<~Bպ|P|tA(VuyWT)Rc ҍ2mm{wgE敔-J7eZ*V/+w<!C2!%8(J?gE敔o\ȢtL{$:xgE敔o[ni}?[n^Iyk6hץ<C${hUTwE(8'!mSPӡ"Y)OGCbiz z/">Oh}I<.Y%3* {9߻MІ FR@041mלbM汪χIy.< g}ͭl>&屸w)N yȻj 14 January, 1984 Intro to FORMAT.LBR I just received these programs from Stuart Isto, a member of the Vancouver Portable Computer Club, and I bundled them along with PCPIP to form this library of formatting programs. This library will allow you to use your Osborne 1 to read, write, and format other disk formats! Like a simple version of the Uniform program. All the formats are called from the menu brought up with autost.com except for pcpip. I included pcpip and oztokpro.aqm because of those of you who will want to expand upon these formats. Good luck! And return any other additions to either FOG RCP/M #1 - 415-755-2030 #2 - 604-596-0314 ...... Jack Brown d luck! And return any other additions to either FOG RCP/M #1 -HyvEF}ZHT]-J7``(~nMmߢtr(Q6:QqϟץlQMcQQxҍ2mm{wgEu)O>ÿE&nQM[]3mtR?-#0w$ã}9"W ?kcݺU(]ʆD;1j Ǥ<1j&幍Qv!ƺ`kH,YM>GywQS`My7: _)RfU5A1}ww3wAj῜Xѽ .e j*e e£MAے?޻(n3& 6 ݖ[?޻(n3&و3j>($عgv5[$ѡ㠿;kJy£Mմ40Rwx }P/ bR6cRhBwZ#Wr>,&tifU5A<1~5}AUDлj>?Is)م2]ѻ __NcN͓`RU.pu>ƿ0,=k˔w)_ 悁3!pgD=`9JynciWtp0RumKy.*:d"/cR fi?Ky.uZH9Kync*MphGaR6ӲWU]bX\0*iQq>|ѯZZ!)Nޟ{%幍Qئ:Zu9+幍Q%—Rޥ[Yc⡇ߤ)2].\0Om?,"Vsˮ炁9VXkb+OԏUX\05&``4m+&`k Mst&`k MO[/ŭ iWIyn?㽫>*N Iy7a@>D~>Ƣu_.gQʻ7^b6F}5)mZV7)opŸ`ֻÒuݴ.A?RJyn,J7]ZtzYعw)[[Qjݖ-GQ?Jy;;4?+D#q%R)OAmH/&su>F<=Rtҍɴ@R}tR'HQeg.A?:G)N((zLR}tREF ^skZ_n+EF F-v6:QqϟWR((S{jM@q"z(ݼ.Xn^r>DbGT]z\(~t$Jʻ-[o2c1-Vd<~@Z0-޻wiNj<`KL-y{VmuW_pǢ22EHZ%8(ׂi݁]K{oOtR+eʄG™v[%jׂ{WÿE&nQM[]3mtR?-#0w$ã}9"W ?kcݺU(]ʆD;1j Ǥ<1j&幍Qv!ƺ`kH,YM