IMD 1.15: 15/05/2007 14:21:01 fog mis 001         -FOG/MIS001EPSON4 BASQZLOVE BAS BEEP BASF DEMO BASF SINEWAVEBASCOPYRITEDOC"+,BANNER BASBUNNY BAS CALENDARBAS PINUP PICAPINUP1 PIC  !"#$%SNOOPY PIC&'DISK DOC(SIEVE BAS+10 REM 20 REM EPSON MX80 TEST AND DEMO 30 REM 40 REM WRITTEN BY BYRON MCKAY 50 REM FOR THE DIGITAL DELI 60 REM 70 REM 80 REM 90 FOR I = 1 TO 25:PRINT CHR$(10);:NEXT I 100 PRINT "EPSON MX80 PRINTER TEST AND DEMO PROGRAM" 110 PRINT:PRINT 120 REM .............................PRINT OUT HEADER 130 PRINT "Printing 40 Column Header Text..." 140 REM 150 REM .............................CONTROL CODES TO TURN OFF EVERYTHING 160 LPR  INT CHR$(20);CHR$(18);CHR$(27);"F";CHR$(27);"H" 170 LPRINT CHR$(27);"E";CHR$(27);"G" 180 REM 190 REM .............................TURN ON 40 COLUMN MODE 200 LPRINT TAB(8);CHR$(14)+"EPSON MX80 GRAPHICS PRINTER DEMO" 210 REM 220 REM ................... REM 430 LPRINT TAB(22);CHR$(15);"The Epson Does Compressed Text Mode to give you 132 columns on standard 8.5 by 11 paper." 440 LPRINT TAB(22);"This enables you to fit those wide reports and charts into a standard size binder!!" 450 LPRINT TAB(22);"And ..........PRINT GRAPHICS LINE ACROSS PAGE 230 FOR I = 1 TO 80 :LPRINT CHR$(163);:NEXT I 240 LPRINT CHR$(27);"F";CHR$(27);"H" 250 REM 260 REM .............................PRINT OUT 80 COLUMN DEMO 270 PRINT "Printing 80 Column Demo..." 280 LPRINT 290 best of all you can enter compressed text by sending a simple character string " 460 LPRINT TAB(22);"to your MX80 under basic or any other language." 470 LPRINT 480 REM .............................PRINT EXPANDED COMPRESSED DEMO 490 REM 500 REM 510 PLPRINT TAB(10);"The Epson MX80 Dot Matrix Graphics Printer has the best price" 300 LPRINT TAB(10);"performance ratio in the printer business today. With features" 310 LPRINT TAB(10);"that are years ahead of other printers. Made by the largest" 320 LPRRINT "Printing expanded compressed demo..." 520 LPRINT TAB(8);CHR$(14)+"The MX80 can also expand this compressed print like this!!" 530 LPRINT CHR$(18) 540 REM 550 REM .............................PRINT EXPANDED DEMO 560 REM 570 PRINT "Printing expINT TAB(10);"manufacturer of print heads in the world, the Epson has features" 330 LPRINT TAB(10);"that will meet the needs of the toughest environments." 340 LPRINT 350 LPRINT TAB(10);"The preceding paragraph was printed out in the normal 80 column" 3anded normal demo..." 580 LPRINT TAB(10);CHR$(14)+"MX80 does Expanded Text Too!!" 590 LPRINT 600 LPRINT 610 REM 620 REM .............................PRINT ENHANCEMENTS DEMO 630 REM 640 PRINT "Printing print enhancements demo..." 650 LPRINT TAB(8);"60 LPRINT TAB(10);"text mode. But, the Epson has many more tricks that we will" 370 LPRINT TAB(10);"now show you!!" 380 LPRINT 390 REM 400 REM ...........................PRINT OUT COMPRESSED TEXT DEMO 410 PRINT "Printing compressed text demo..." 420The MX80 has the ability to print in 3 different enhancements!!!" 660 LPRINT TAB(6);"Any of these enhancements may be combined to produce many effects!!!" 670 LPRINT:LPRINT 680 PRINT"Printing normal mode text..." 690 LPRINT TAB(11);"The Normal Print Mo  de is light, but easy on the head life." 700 LPRINT TAB(25);"ABCDEFGHIJKLMNOPQRSTUVWXYZ" 710 LPRINT TAB(25);"abcdefghijklmnopqrstuvwxyz" 720 LPRINT TAB(25);"1234567890" 730 LPRINT 740 PRINT"Printing double dot vertical..." 750 LPRINT TAB(11);"The DouD X 1050 LPRINT CHR$(X); 1060 NEXT I 1070 LPRINT 1080 DATA 183,163,163,163,163,163,163,163,163,163,163,163,163,163,163,163,163,163,163,163,163,163,163,163,203 1090 LPRINT TAB(27);CHR$(181);TAB(32);"THE DIGITAL DELI";TAB(51);CHR$(202) 1100 LPRINT TAB(ble Print Mode is Vertically Fuller than Normal" 760 LPRINT CHR$(27);"G" 770 LPRINT TAB(25);"ABCDEFGHIJKLMNOPQRSTUVWXYZ" 780 LPRINT TAB(25);"abcdefghijklmnopqrstuvwxyz" 790 LPRINT TAB(25);"1234567890" 800 LPRINT 810 LPRINT CHR$(27);"H"; 820 PRINT"Pr27);CHR$(181);TAB(32);"80 W. EL CAMINO";TAB(51);CHR$(202) 1110 LPRINT TAB(27);CHR$(181);TAB(32);" MT. VIEW CA.";TAB(51);CHR$(202) 1120 LPRINT TAB(27);CHR$(181);TAB(32);" 94040 ";TAB(51);CHR$(202) 1130 LPRINT TAB(27);CHR$(181);TAB(32);" 415 961inting emphasized double mode..." 830 LPRINT TAB(11);"The Emphasized Double Mode is Horizontally Fuller than Normal" 840 LPRINT CHR$(27);"E" 850 LPRINT TAB(25);"ABCDEFGHIJKLMNOPQRSTUVWXYZ" 860 LPRINT TAB(25);"abcdefghijklmnopqrstuvwxyz" 870 LPRINT TAB-2670";TAB(51);CHR$(202) 1140 LPRINT TAB(27); 1150 FOR I = 1 TO 25 1160 READ X 1170 LPRINT CHR$(X); 1180 NEXT I 1190 LPRINT 1200 DATA 213,208,208,208,208,208,208,208,208,208,208,208,208,208,208,208,208,208,208,208,208,208,208,208,218 1210 LPRINT CH(25);"1234567890" 880 LPRINT CHR$(27);"G"; 890 LPRINT 900 LPRINT "By turning both enhancements on at the same time we get a very high quality" 910 LPRINT "text like this; which means cheap and efficient letter quality for all needs. " 920 LPRINT 930 R$(27);"E";CHR$(27);"G" 1220 LPRINT CHR$(27);"F";CHR$(27);"H" 1230 FOR I = 1 TO 80 :LPRINT CHR$(163);:NEXT I 1240 LPRINT CHR$(12) 1250 LPRINT:LPRINT 1260 REM ..............................NEW PAGE STARTS HERE 1270 LPRINT CHR$(27);"G" 1280 FOR J = 1 REM 940 REM 950 REM ..............................PRINT GRAPHICS DEMO 960 REM 970 REM 980 LPRINT 990 LPRINT 1000 PRINT "Printing Graphics Deli Logo demo..." 1010 LPRINT CHR$(27);"E";CHR$(27);"G" 1020 LPRINT TAB(27); 1030 FOR I = 1 TO 25 1040 REATO 9 1290 FOR I = 1 TO 40 1300 READ X 1310 LPRINT CHR$(X); 1320 NEXT I 1330 LPRINT 1340 NEXT J 1350 LPRINT CHR$(27);"H" 1360 REM ...............................FIRST LINE OF GRAPHICS 1370 DATA 223,223,223,223,223,223,223,160 1380 DATA 223,223,223  ,223,223,223,160,160 1390 DATA 160,223,223,223,223,223,160,160 1400 DATA 160,223,223,223,223,223,160,160 1410 DATA 223,160,160,160,160,160,160,223 1420 REM ...............................SECOND LINE OF GRAPHICS 1430 DATA 223,160,160,160,160,160,160,16.............................SIXTH LINE OF GRAPHICS 1670 DATA 223,160,160,160,160,160,160,160 1680 DATA 223,160,160,160,160,160,160,160 1690 DATA 160,160,160,160,160,160,223,160 1700 DATA 223,160,160,160,160,160,223,160 1710 DATA 223,160,160,160,223,20 1440 DATA 223,160,160,160,160,160,223,160 1450 DATA 223,160,160,160,160,160,223,160 1460 DATA 223,160,160,160,160,160,223,160 1470 DATA 223,223,160,160,160,160,160,223 1480 REM ...............................THIRD LINE OF GRAPHICS 1490 DATA 223,16023,160,223 1720 REM ...............................SEVENTH LINE OF GRAPHICS 1730 DATA 223,160,160,160,160,160,160,160 1740 DATA 223,160,160,160,160,160,160,160 1750 DATA 223,160,160,160,160,160,223,160 1760 DATA 223,160,160,160,160,160,223,160 1770 D,160,160,160,160,160,160 1500 DATA 223,160,160,160,160,160,223,160 1510 DATA 223,160,160,160,160,160,223,160 1520 DATA 223,160,160,160,160,160,223,160 1530 DATA 223,223,223,160,160,160,160,223 1540 REM ...............................FOURTH LINE OF GRAATA 223,160,160,160,160,223,223,223 1780 REM ...............................EIGHTH LINE OF GRAPHICS 1790 DATA 223,160,160,160,160,160,160,160 1800 DATA 223,160,160,160,160,160,160,160 1810 DATA 223,160,160,160,160,160,223,160 1820 DATA 223,160,160,160PHICS 1550 DATA 223,160,160,160,160,160,160,160 1560 DATA 223,160,160,160,160,160,223,160 1570 DATA 223,160,160,160,160,160,160,160 1580 DATA 223,160,160,160,160,160,223,160 1590 DATA 223,160,223,223,160,160,160,223 1600 REM .........................,160,160,223,160 1830 DATA 223,160,160,160,160,160,223,223 1840 REM ...............................NINTH LINE OF GRAPHICS 1850 DATA 223,223,223,223,223,223,223,160 1860 DATA 223,160,160,160,160,160,160,160 1870 DATA 160,223,223,223,223,223,160,160 18......FIFTH LINE OF GRAPHICS 1610 DATA 223,223,223,223,223,160,160,160 1620 DATA 223,223,223,223,223,223,160,160 1630 DATA 160,223,223,223,223,223,160,160 1640 DATA 223,160,160,160,160,160,223,160 1650 DATA 223,160,160,223,223,160,160,223 1660 REM ..80 DATA 160,223,223,223,223,223,160,160 1890 DATA 223,160,160,160,160,160,160,223 1900 LPRINT:LPRINT 1910 LPRINT CHR$(14)+"MX-80 GRAPHICS PRINTER" 1920 LPRINT CHR$(27);"F";CHR$(27);"H" 1930 LPRINT :LPRINT :LPRINT:LPRINT:LPRINT:LPRINT 1940 LPRINT CHR$  (14)+"* * * * * VITAL STATISTICS * * * * *" 1950 LPRINT 1960 LPRINT "CHARACTERS PER SECOND :";TAB(40);"80 CPS MAX." 1970 LPRINT "PRINTING METHOD :";TAB(40);"IMPACT DOT MATRIX" 1980 LPRINT "CHARACTER SET :";TAB(40);"ASCII 96 +64 GRAPHIC +9 SPECIAL" AB(27); 2200 FOR I = 1 TO 25 2210 READ X 2220 LPRINT CHR$(X); 2230 NEXT I 2240 LPRINT 2250 DATA 183,163,163,163,163,163,163,163,163,163,163,163,163,163,163,163,163,163,163,163,163,163,163,163,203 2260 LPRINT TAB(27);CHR$(181);TAB(32);"THE DIGITAL DE 1990 LPRINT "CHARACTER FONT :";TAB(40);"9X9 DOT MATRIX" 2000 LPRINT "PAPER FEED :";TAB(40);"ADJUSTABLE SPROCKET (TRACTOR)" 2010 LPRINT "PAPER REQUIREMENTS :";TAB(40);"FANFOLD STANDARD" 2020 LPRINT "PAPER WIDTHS :";TAB(40);"4'' TO 10''" 2030 LPRINT "COLI";TAB(51);CHR$(202) 2270 LPRINT TAB(27);CHR$(181);TAB(32);"80 W. EL CAMINO";TAB(51);CHR$(202) 2280 LPRINT TAB(27);CHR$(181);TAB(32);" MT. VIEW CA.";TAB(51);CHR$(202) 2290 LPRINT TAB(27);CHR$(181);TAB(32);" 94040 ";TAB(51);CHR$(202) 2300 LPRIPIES :";TAB(40);"UP TO 2 CARBONS" 2040 LPRINT "LINE SPACING :";TAB(40);"PROGRAMMABLE" 2050 LPRINT "NO. COLUMNS :";TAB(40);"40,66,80,132" 2060 LPRINT "RIBBON TYPE :";TAB(40);"CARTRIDGE, BLACK" 2070 LPRINT "MEAN TIME BEFORE FAILURE :";TAB(40);"5,000,000 NT TAB(27);CHR$(181);TAB(32);" 415 961-2670";TAB(51);CHR$(202) 2310 LPRINT TAB(27); 2320 FOR I = 1 TO 25 2330 READ X 2340 LPRINT CHR$(X); 2350 NEXT I 2360 LPRINT 2370 DATA 213,208,208,208,208,208,208,208,208,208,208,208,208,208,208,208,208,208,208,LINES (EXC. PRINTHEAD)" 2080 LPRINT "PRINT HEAD MTBF :";TAB(40);"100,000,000 CHARACTERS" 2090 LPRINT:LPRINT 2100 LPRINT TAB(10);"$28.00 THROWAWAY PRINTHEAD!!" 2110 LPRINT TAB(10);"$16.00 RIBBON CARTRIDGE !!!" 2120 LPRINT:LPRINT 2130 LPRINT TAB(10);"O208,208,208,208,208,218 2380 LPRINT CHR$(27);"F";CHR$(27);"H" 2390 LPRINT CHR$(12) 2400 END 08,208,208,208,208,208,208,208,PRINT CHR$(X); 2350 NEXT I 2360 LPRINT 2370 DATA 213,208,208,208,208,208,208,208,208,208,208,208,208,208,208,208,208,208,208,ther interfaces available for PET, TRS-80, Apple..(tm)" 2140 LPRINT CHR$(27);"G" 2150 LPRINT TAB(2);CHR$(14)+"$ 645.00 PARALLEL - $ 699.00 SERIAL" 2160 LPRINT CHR$(27);"H" 2170 LPRINT :LPRINT:LPRINT 2180 LPRINT CHR$(27);"E";CHR$(27);"G" 2190 LPRINT T!UG!c!ci*#*Q~#fo{z)!c̀!ci!"*+*S~#foͯ"!**!))*_"!!.*!*+*S~#foͯ"!**!))*]"!*))G!cg*!*#*Q~#fo{z>**))*Y"!!c*!-!"*))"!  "!*Y"!!c*!*!*Y"!*!*Y*!*!*["!*!*[!c*!*!*["!*!*[*!!.!!"*))"!"!*!M!U!!*!!U!!!!!R?2!+!!*"*#*o{zU/!#.͓2a.a0!C.͓2a.a0!#.͓!C.!;.i!S.Ԃ2a.k0!;.͓!W.Ԃ=2a.k0*Q.#"Q.t1!;.̀!+.i!"M.*K.*M.{ozg}2a.?1*M."[.+*.~#foͯ"].*K."_.*].))*."b.G!+.ɀg*b.*_.+*.~#foͯ"d.*[.*d.))*Q~#fo{z+*))"!G!si*!M!!"*))"!G!ci*!MG!ki*"!+"!*S~#foͯ"!*"!*!))*]"!!G!kɀ!!i!s͓!cɀ!!!g*!*!*S~#foͯ"!*!*!))*_"!!G!cad (): Pan !);"LOVE": bx );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"b: : Yb "A TRIBUTE TO THE GREAT AMERICAN ARTIST, ROBERT INDIANA."b "HIS GREATEST WORK WILL BE REPRODUCED WITH A MESSAGE OF"b "YOUR CHOICE UP ɀ!!i!s͓!kɀ!!ͱ!g*!*!++*S~#foͯ""*!*"))*]""*!*S~#foͯ""*!*"))*]*"*"!++*S~#foͯ"!*"!*!))*_"!*!+*S~#foͯ"!*!*!))*_*!*#*Q~#fo{z9,*#*Q~#fTO 60 CHARACTERS. IF YOU CAN'T THINK OF" c "A MESSAGE, SIMPLE TYPE THE WORD 'LOVE'": 4c "YOUR MESSAGE, PLEASE";A$: L(A$)Jc T$(x): ()_c J (!.Ϙ!"K.!"M.*M.+*.~#foͯ"[.*K.*[.))"].*."_.*].*.*_.*M.#*.~#fo{z.*K.)))*."[.!}3G*[.i*K.#*.~#: C% cc A: A1A1A: P " d I A: " ";: I: P: ,1d" IA1A A1: T$(I);: I: PCd, A1< Md6 d@ 60,1,12,26,9,12,3,8,24,17,8,4,6,23,21,6,4,6,22,12,5,6,5dJ 4,6,21,11,8,6,4,4,6,21,10,10,fo{z|.!3!S.!3!W.!"O.!"Q.!"K.!3G!#.i!3G!C.i!"M.*K.*M.{ozg}2a./*K."[.+*.~#foͯ"].*M."_.*].))*."b.*b.?G!#.!#.i*_.+*.~#foͯ"d.*[.*d.))*."f.*f.?G!C.!C.i*M.#*.~#f5,4,4,6,21,9,11,5,4dT 4,6,21,8,11,6,4,4,6,21,7,11,7,4,4,6,21,6,11,8,4;e^ 4,6,19,1,1,5,11,9,4,4,6,19,1,1,5,10,10,4,4,6,18,2,1,6,8,11,4qeh 4,6,17,3,1,7,5,13,4,4,6,15,5,2,23,5,1,29,5,17,8er 1,29,9,9,12,1,13,5,40,1,1,13,5,40,1,4,6,13,3,10,6,12,5,  1e| 5,6,11,3,11,6,14,3,1,5,6,11,3,11,6,15,2,1f 6,6,9,3,12,6,16,1,1,6,6,9,3,12,6,7,1,10Mf 7,6,7,3,13,6,6,2,10,7,6,7,3,13,14,10,8,6,5,3,14,6,6,2,10{f 8,6,5,3,14,6,7,1,10,9,6,3,3,15,6,16,1,1f 9,6,3,3,15,6,15,2,1,10,6,1,3,16,6,14,3,1,10,1SC(A$) : Z=Z+1 : NEXT I% : RETURN 150 REM calculate address z from x,y 160 REM h home cell addr, r rows (whole map) 170 Z=H+(Y%-1)*C%+X%-1 : RETURN 180 REM poke char a$ into x,y 190 GOSUB 170 : POKE Z,ASC(A$) : RETURN 200 REM poke value v%0,16,6,12,5,1f 11,8,13,27,1,11,8,13,27,1,60f I : : I,1f 9,6,3,3,15,6,15,2,1,10,6,1,3,16,6,14,3,1,10,13,13,14,10,8,6,5,3,14,6,6,2,10{f 8,6,5,3,14,6,7,1,10,9,6,3,3,15,6,16,1,1f 9,6,3,3,15,6,15,2,1,10,6,1,3,16,6,14,3,1,10,1 into x,y 210 GOSUB 170 : POKE Z,V% : RETURN 220 REM draw horiz line length l% using v% 230 GOSUB 170 : REM z at first cell using x,y 240 FOR I%=0 TO L%-1 : POKE Z+I%,V% :NEXT I%:RETURN 250 REM draw vert line length l% using v% 260 GOSUB 170 : REi*3+"3*3~#foͯ"3*3"3*3))*3"3G!3ɀ!3ͱ!3i*3G!3ͱg*3*3*3~#foͯ"3*3*3))*3"3*3*3~#foͯ"3*3*3))*3"4!3͓!3ɀ!4i*4Ԃg*3*3))*3" 4!4͓g* 4!3̀!3M calc z 270 FOR I%=0 TO L%-1 : POKE Z+I%*C%,V% :NEXT I%:RETURN 280 REM time fundamental cycle s% times 290 FOR J%=1 TO S% 300 FOR I%=1 TO T 310 NEXT I% : NEXT J% : RETURN 320 REM put frame number f% in upper right 330 REM after clearing scree!3i*3"3*3+*3~#foͯ"3*3*3))*3"3G!3g*3*3))*3"3*3+*3~#foͯ"3*3*3))*3G!3g*3*3#*3~#fo{z 8*3"3!ZNG!3i*3"3*3+*3~#foͯ"3*3"3*3))*3"3*3+*3~#foͯ"n ; incr f% 340 PRINT CHR$(26) : B$=STR$(F%) : F%=F%+1 350 X%=48 : Y%=1 : GOSUB 110 : RETURN 360 REM draw box from lower left x1,y1 to 370 REM upper right x2,y2 380 V%=22 :X%=X1 : Y%=Y2 :L%=Y1-Y2 :GOSUB 260 390 L%=X2-X1+1 : GOSUB 230 400 X%=X2 :10 REM DEMO PROGRAM FOR OSBORNE 1 20 REM COPYRIGHT (C) 1981 WORDCRAFT 30 REM (415) 534-2212 90 GOTO 1000 100 REM PRINT B$ FROM X,Y 110 P%=LEN(B$)-1 120 GOSUB 170 : REM calc z=(x,y) 130 FOR I%=0 TO P% : A$=MID$(B$,I%+1,1) 140 POKE Z,A L%=Y1-Y2 : GOSUB 260 410 X%=X1 : Y%=Y1 :L%=X2-X1+1 :GOSUB 230 420 RETURN 430 REM erase lines under block diagram 440 V%=32 : L%=50 : GOSUB 230 : Y%=Y%-2 : GOSUB 230 450 RETURN 460 REM write first line of caption 470 X%=3 : Y%=20 : GOSUB 110 : RET  URN 480 REM ...and second line with time to read 490 Y%=Y%+2:GOSUB 110 :S%=3:GOSUB 280 500 GOSUB 440 : RETURN 1000 H=61440! : R%=34 : C%=128 : F%=1 1010 DEFINT T 1020 S%=10 1030 GOSUB 4220 1040 DEFINT X-Y 2000 REM frame 1 2010 F%=1 2020 GOSUB 3tware" : X%=12 2350 GOSUB 110 2360 S%=2 : GOSUB 280 2370 REM frame 4 2380 GOSUB 340 2390 X%=6 : Y%=4 : GOSUB 210 2400 B$="Portable": X%=8 :GOSUB 110 2410 S%=1 : GOSUB 280 2420 B$="The keyboard latches on for transport." 2430 X%=10 : Y%=12 : GOSU40 2030 L%=52 : V%=22 : X%=1 : Y%=3 : GOSUB 230 2040 S%=2 2050 GOSUB 280 2060 B$="The Osborne 1" : X%=20 : Y%=8 : GOSUB 110 2070 S%=1 : GOSUB 280 2080 B$="is here!" : X%=22 : Y%=10 : GOSUB 110 2090 PRINT CHR$(7) 2100 S%=1 : GOSUB 280 2110 X%=1 : YB 110 2440 GOSUB 280 2450 B$="Weight is only 24 pounds.":Y%=14:GOSUB 110 2460 GOSUB 280 2470 B$="Take it along with you!" : X%=12 : Y%=18 2480 GOSUB 110 2490 S%=2 : GOSUB 280 2500 REM frame 5 2510 GOSUB 340 2520 X%=6 : Y%=4 : GOSUB 210 2530 B$="A%=22 : GOSUB 230 2120 S%=1 : GOSUB 280 2130 REM frame 2 2140 GOSUB 340 2150 B$="Take a couple of minutes":X%=10:Y%=8:GOSUB 110 2160 B$="to see what's in the OSBORNE 1":Y%=10:GOSUB 110 2170 B$="Personal Business Computer." 2180 Y%=12: GOSUB 110 2190 productive tool": X%=8 : GOSUB 110 2540 S%=1 : GOSUB 280 2550 B$="Word processing lets you write, edit," 2560 X%=10 : Y%=10 : GOSUB 110 2570 B$=" and polish your work quickly." 2580 Y%=12 : GOSUB 110 2590 GOSUB 280 2600 B$="Computing power aids y B$="You'll see why it represents a new way" 2200 Y%=14 : GOSUB 110 2210 B$="to conduct business." : Y%=16 : GOSUB 110 2220 S%=2 : GOSUB 280 2230 REM frame 3 2240 GOSUB 340 2250 B$="The OSBORNE 1 is":X%=8: Y%=8 : GOSUB 110 2260 S%=1 : GOSUB 280 227ou in accounting," 2610 Y%=15 : GOSUB 110 2620 B$=" managing, or scientific work." 2630 Y%=17 : GOSUB 110 2640 GOSUB 280 2650 B$="You can draw on thousands of standard" 2660 Y%=20 : GOSUB 110 2670 B$=" programs for other applications." 2680 Y%=220 V%=13 : X%=10 : Y% = 10 : GOSUB 210 2280 B$="Portable":X%=12 : GOSUB 110 2290 GOSUB 280 2300 V%=13 : X%=10 : Y%=12 : GOSUB 210 2310 B$="A productive tool" : X%=12 : GOSUB 110 2320 GOSUB 280 2330 X%=10 : Y%=14 : GOSUB 210 2340 B$="Complete with sof : GOSUB 110 2690 S%=3 : GOSUB 280 2700 REM frame 6 2710 GOSUB 340 2720 X%=6 : Y%=4 : GOSUB 210 2730 B$="Complete with software" 2740 X%=8 : GOSUB 110 2750 S%=1 : GOSUB 280 2760 B$="- WORDSTAR for word processing" 2770 X%=10 : Y%=Y%+3 : GOSUB 110    2780 S%=1 : GOSUB 280 2790 B$="- SUPERCALC for creating data tables and" 2800 Y%=Y%+2 : GOSUB 110 2810 B$=" testing 'what if...?' (avail. late Aug.)" 2820 Y%=Y%+1 : GOSUB 110 2830 GOSUB 280 2840 B$="- BASIC by Microsoft and CBASIC" 2850 Y%=Y%+2 : M 2.2 150" 3160 Y%=Y%+1 : GOSUB 110 3170 X%=26 : Y%=Y%+1 : GOSUB 230 : X%=40 : GOSUB 230 3180 B$="$4500" : X%=26 : Y%=Y%+1 : GOSUB 110 3190 S%=1 : GOSUB 280 3200 I1%=Y% : REM temp value 3210 L%=12 : X%=42 : Y%=5 : V%=11 : GOSUB 250 3220 V%=GOSUB 110 2860 B$=" programming languages" 2870 Y%=Y%+1 : GOSUB 110 2880 GOSUB 280 2890 B$="- and CP/M industry standard operating" 2900 Y%=Y%+2 : GOSUB 110 2910 B$=" system for application programs" 2920 Y%=Y%+1 : GOSUB 110 2930 S%=2 : GOSUB 28021 : X%=X%-1 : Y%=I1%-3 : GOSUB 210 3230 V%=25 : X%=X%+2 : GOSUB 210 3240 B$="$1795" : X%=40 : Y%=I1% : GOSUB 110 3250 V%=22 : Y%=Y%+1 : L%=5 : GOSUB 230 3260 PRINT CHR$(7) : S%=1 : GOSUB 280 : PRINT CHR$(7) 3270 S%=4 : GOSUB 280 3280 REM frame 8 32 2940 B$="It's all in the price..." 2950 X%=14 : Y%=Y%+3 : GOSUB 110 2960 S%=2 : GOSUB 280 2970 REM frame 7 2980 GOSUB 340 2990 B$="ON YOUR OWN OSBORNE 1" 3000 X%=24 : Y%=3 : GOSUB 110 3010 B$="Hardware" : X%=8 : Y%=Y%+2 : GOSUB 110 3020 B$="64K90 GOSUB 340 3300 B$="Let's take a look at the front of the machine..." 3310 X%=2 : Y%=12 : GOSUB 110 3320 S%=1 : GOSUB 280 3330 REM frame 9 3340 GOSUB 340 3350 X1=1 : Y1=17 : X2=52 : Y2=1 : GOSUB 380 3360 REM screen 3370 X1=19 : Y1=10 : X2=34 :Y2= RAM" : X%=10 : Y%=Y%+1 : GOSUB 110 3030 B$="2 disk drives" : Y%=Y%+1 : GOSUB 110 3040 B$="Video monitor" : Y%=Y%+1 : GOSUB 110 3050 B$="Full keyboard" : Y%=Y%+1 : GOSUB 110 3060 L%=5 : X%=26 : Y%=Y%+1 : V%=95 : GOSUB 230 3070 B$="$2900" : Y%=Y%+1 : G4 :GOSUB 380 3380 REM disk drive boxes 3390 X1=3 : Y1=7 : X2=17 : Y2=3 : GOSUB 380 3400 X1=36: X2=50: GOSUB 380 3410 B$="Disk A" : X%=7 : Y%=5 : GOSUB 110 3420 B$="Disk B" : X%=40 : GOSUB 110 3430 B$="Each diskette holds about 102,000 characters--" OSUB 110 3080 B$="Software" : X%=8 : Y%=Y%+2 : GOSUB 110 3090 B$="Wordstar 650" 3100 X%=10 : Y%=Y%+1 : GOSUB 110 3110 B$="Supercalc 295" 3120 Y%=Y%+1 : GOSUB 110 3130 B$="MBASIC & CBASIC 505" 3140 Y%=Y%+1 : GOSUB 110 3150 B$="CP/3440 GOSUB 470 3450 B$="approximately 60 typewritten pages." 3460 GOSUB 490 3470 GOSUB 440 : REM brings y% to first line 3480 REM draw storage boxes 3490 Y1=11 : Y2=9 : GOSUB 380 3500 X1=3 : X2=17 : GOSUB 380 3510 B$="Storage" : X%=7 : Y%=10 : GOS  UB 110 3520 X%=40 : GOSUB 110 3530 B$="Storage area for a dozen diskettes" 3540 GOSUB 470 : B$="" : GOSUB 490 3550 REM RS232C 3560 X1=9 : Y1=15 : X2=16 : Y2=Y1-2 : GOSUB 380 3570 B$="RS232C" : X%=10 : Y%=14 : GOSUB 110 3580 B$="RS232C - Serial port M draw batt port 3910 X1=40 : X2=47 : GOSUB 380 3920 B$="Batt" : X%=42 : Y%=14 : GOSUB 110 3930 B$="Plug in an optional battery pack" 3940 GOSUB 470 3950 B$="for super portability of the Osborne 1." 3960 GOSUB 490 3970 B$="The" : X%=25 : Y%=6 : GOSUto which most printers" 3590 GOSUB 470 3600 B$="will connect. You can produce hard copy." 3610 GOSUB 490 3620 REM draw modem port 3630 X1=3 : X2=7 : GOSUB 380 3640 A$="m" : X%=5 :Y%=14:GOSUB 190 3650 B$="Modem - your telephone line connection to" B 110 3980 B$="OSBORNE" :X%=23:Y%=Y%+1 : GOSUB 110 3990 A$="1" : X%=26 :Y%=Y%+1 : GOSUB 190 4000 PRINT CHR$(7):S%=1:GOSUB 280:PRINT CHR$(7) 4010 S%=2: GOSUB 280 4020 REM frame 10 4030 GOSUB 340 4040 L%=52 : V%=22 : X%=2 : Y%=3 : GOSUB 230 4050 V%=13660 GOSUB 470 3670 B$="information banks and other computers." 3680 GOSUB 490 3690 REM IEEE-488 port 3700 X1= 18 : X2=23 : GOSUB 380 3710 B$="488" : X%=20 :Y%=14 : GOSUB 110 3720 B$="IEEE-488 port - An industry standard connection" 3730 GOSUB 470 3 : X%=10 : Y%=7 : GOSUB 210 4060 B$="Inquire about an OSBORNE 1 now" 4070 GOSUB 110 4080 B$="" 4090 X%=10 : Y%=13 : GOSUB 110 4100 B$="" 4110 Y%=15 : GOSUB 110 4120 B$="" 4130 Y%=17 : GOSUB 110 4140 B$="" 4150 Y%=19 : GOSUB 110 4160 B$="" 41703740 B$="links instruments and controls to the Osborne 1." 3750 GOSUB 490 3760 REM Keyboard socket 3770 X1=25 :X2=30 :GOSUB 380 3780 B$="KB" : X%=27 : Y%=14 : GOSUB 110 3790 B$="Separate keyboard allows placement" 3800 GOSUB 470 3810 B$="for maximum Y%=21 : GOSUB 110 4180 S%=8 : GOSUB 280 4190 B$="(Demo program by Wordcraft 415 / 534-2212) 4200 Y%=24 : GOSUB 110 : S%=1 : GOSUB 280 4210 GOTO 2000 4220 T=1100 4230 RETURN 4240 END m by Wordcraft 415 / 534-2212) 4200 Y%=24 : GOSUB 110 : S%=1 :  comfort." 3820 GOSUB 490 3830 REM external video box 3840 X1=32 : X2=38 : GOSUB 380 3850 B$="Vid" : X%=34 : Y%=14 :GOSUB 110 3860 B$="External video outlet connects" 3870 GOSUB 470 3880 B$="to a 12-inch monitor (optional)." 3890 GOSUB 490 3900 RE+*Y~#foͯ"Y*Y*Y))*Y*YcG!Y!Yi*Y#*Y{z[*Y+*Y~#foͯ"Y*Y*Y))"Y*Y"Y*Y*Y!YcG!Yͱg*Y*Y#*Y~#fo{z[*Y"Y+*Y~#foͯ"Y*Y*Y))*Y"Y*Y*Y))*Y!Y*Y*Y#  *Y~#fo{z[!"Y*Y))*Y!Y*Y"Y+*Y~#foͯ"Y*Y*Y))*Y"Y!Y!Yc*Y*Y#"Y!"Y*Y"Y+*Y~#foͯ"Y*Y"Y*Y))*Y"Y*Y*Y~#foͯ"Y*Y*Y))*Y!Yc*Y*Y*Y#*Y{zs]*Y+}2YFSC(A$) : Z=Z+1 : NEXT I% : RETURN 150 REM calculate address z from x,y 160 REM h home cell addr, r rows (whole map) 170 Z=H+(Y%-1)*C%+X%-1 : RETURN 180 REM poke char a$ into x,y 190 GOSUB 170 : POKE Z,ASC(A$) : RETURN 200 REM poke value v%^*Y"Y++*Y~#foͯ"Y*Y*Y))*Y"Y*Y))*Y!Yc*Y*Y"Y*Y+*Y~#foͯ"Y*Y*Y))"Y*Y"Y*Y*Y!Yc*Y*Y*Y#*Y~#fo{zI^*Y#*Y{z]*Y~#fo+"Y!"Y*Y#"Y*Y##"Y*Y)++*Y"Y!*Ys#r*Y*Y{ozg} into x,y 210 GOSUB 170 : POKE Z,V% : RETURN 220 REM draw horiz line length l% using v% 230 GOSUB 170 : REM z at first cell using x,y 240 FOR I%=0 TO L%-1 : POKE Z+I%,V% :NEXT I%:RETURN 250 REM draw vert line length l% using v% 260 GOSUB 170 : RE2YB_*Y"Y+*Y~#foͯ"Y*Y*Y))*Y2Y_*Y"Y+*Y~#foͯ"Y*Y*Y))*Y2Y_*Y"Y+*Y~#foͯ"Y*Y*Y))*Y2Yb*Y"Y+*Y~#foͯ"Y*Y*Y))*Y"Y*Y*Yb*Y*Y{ozg}2Y`*M calc z 270 FOR I%=0 TO L%-1 : POKE Z+I%*C%,V% :NEXT I%:RETURN 280 REM time fundamental cycle s% times 290 FOR J%=1 TO S% 300 FOR I%=1 TO T 310 NEXT I% : NEXT J% : RETURN 320 REM put frame number f% in upper right 330 REM after clearing screeY"Y+*Y~#foͯ"Y*Y*Y))*Y"Y*Y*Y))*Y"Y*Y?!Y*Y?!YR?2Y`*Y"Y+*Y~#foͯ"Y*Y*Y))*Y"Y*Y*Y))*Y"Y*Y?!Y*Y?!YR?2Yb!"Y*Y)++*Y"Y!*Ys#r`a*Y"Y+*Y~#foͯ"Y*Y*Y)n ; incr f% 340 PRINT CHR$(26) : B$=STR$(F%) : F%=F%+1 350 X%=48 : Y%=1 : GOSUB 110 : RETURN 360 REM draw box from lower left x1,y1 to 370 REM upper right x2,y2 380 V%=22 :X%=X1 : Y%=Y2 :L%=Y1-Y2 :GOSUB 260 390 L%=X2-X1+1 : GOSUB 230 400 X%=X2 :10 REM DEMO PROGRAM FOR OSBORNE 1 20 REM COPYRIGHT (C) 1981 WORDCRAFT 30 REM (415) 534-2212 90 GOTO 1000 100 REM PRINT B$ FROM X,Y 110 P%=LEN(B$)-1 120 GOSUB 170 : REM calc z=(x,y) 130 FOR I%=0 TO P% : A$=MID$(B$,I%+1,1) 140 POKE Z,A L%=Y1-Y2 : GOSUB 260 410 X%=X1 : Y%=Y1 :L%=X2-X1+1 :GOSUB 230 420 RETURN 430 REM erase lines under block diagram 440 V%=32 : L%=50 : GOSUB 230 : Y%=Y%-2 : GOSUB 230 450 RETURN 460 REM write first line of caption 470 X%=3 : Y%=20 : GOSUB 110 : RET  URN 480 REM ...and second line with time to read 490 Y%=Y%+2:GOSUB 110 :S%=3:GOSUB 280 500 GOSUB 440 : RETURN 1000 H=61440! : R%=34 : C%=128 : F%=1 1010 DEFINT T 1020 S%=10 1030 GOSUB 4220 1040 DEFINT X-Y 2000 REM frame 1 2010 F%=1 2020 GOSUB 3 software" : X%=12 2350 GOSUB 110 2360 S%=2 : GOSUB 280 2370 REM frame 4 2380 GOSUB 340 2390 X%=6 : Y%=4 : GOSUB 210 2400 B$="Portable": X%=8 :GOSUB 110 2410 S%=1 : GOSUB 280 2420 B$="The keyboard latches on for transport." 2430 X%=10 : Y%=12 : 40 2030 L%=52 : V%=22 : X%=1 : Y%=3 : GOSUB 230 2040 S%=2 2050 GOSUB 280 2060 B$="The Osborne 1" : X%=20 : Y%=8 : GOSUB 110 2070 S%=1 : GOSUB 280 2080 B$="is here!" : X%=22 : Y%=10 : GOSUB 110 2090 REM PRINT CHR$(7) 2100 S%=1 : GOSUB 280 2110 X%=1GOSUB 110 2440 GOSUB 280 2450 B$="Weight is only 24 pounds.":Y%=14:GOSUB 110 2460 GOSUB 280 2470 B$="Take it along with you!" : X%=12 : Y%=18 2480 GOSUB 110 2490 S%=2 : GOSUB 280 2500 REM frame 5 2510 GOSUB 340 2520 X%=6 : Y%=4 : GOSUB 210 2530 B : Y%=22 : GOSUB 230 2120 S%=1 : GOSUB 280 2130 REM frame 2 2140 GOSUB 340 2150 B$="Take a couple of minutes":X%=10:Y%=8:GOSUB 110 2160 B$="to see what's in the OSBORNE 1":Y%=10:GOSUB 110 2170 B$="Personal Business Computer." 2180 Y%=12: GOSUB 110 $="A productive tool": X%=8 : GOSUB 110 2540 S%=1 : GOSUB 280 2550 B$="Word processing lets you write, edit," 2560 X%=10 : Y%=10 : GOSUB 110 2570 B$=" and polish your work quickly." 2580 Y%=12 : GOSUB 110 2590 GOSUB 280 2600 B$="Computing power ai2190 B$="You'll see why it represents a new way" 2200 Y%=14 : GOSUB 110 2210 B$="to conduct business." : Y%=16 : GOSUB 110 2220 S%=2 : GOSUB 280 2230 REM frame 3 2240 GOSUB 340 2250 B$="The OSBORNE 1 is":X%=8: Y%=8 : GOSUB 110 2260 S%=1 : GOSUB 280 ds you in accounting," 2610 Y%=15 : GOSUB 110 2620 B$=" managing, or scientific work." 2630 Y%=17 : GOSUB 110 2640 GOSUB 280 2650 B$="You can draw on thousands of standard" 2660 Y%=20 : GOSUB 110 2670 B$=" programs for other applications." 2680 Y 2270 V%=13 : X%=10 : Y% = 10 : GOSUB 210 2280 B$="Portable":X%=12 : GOSUB 110 2290 GOSUB 280 2300 V%=13 : X%=10 : Y%=12 : GOSUB 210 2310 B$="A productive tool" : X%=12 : GOSUB 110 2320 GOSUB 280 2330 X%=10 : Y%=14 : GOSUB 210 2340 B$="Complete with%=22 : GOSUB 110 2690 S%=3 : GOSUB 280 2700 REM frame 6 2710 GOSUB 340 2720 X%=6 : Y%=4 : GOSUB 210 2730 B$="Complete with software" 2740 X%=8 : GOSUB 110 2750 S%=1 : GOSUB 280 2760 B$="- WORDSTAR for word processing" 2770 X%=10 : Y%=Y%+3 : GOSUB   110 2780 S%=1 : GOSUB 280 2790 B$="- SUPERCALC for creating data tables and" 2800 Y%=Y%+2 : GOSUB 110 2810 B$=" testing 'what if...?' (avail. late Aug.)" 2820 Y%=Y%+1 : GOSUB 110 2830 GOSUB 280 2840 B$="- BASIC by Microsoft and CBASIC" 2850 Y%=Y%+"CP/M 2.2 150" 3160 Y%=Y%+1 : GOSUB 110 3170 X%=26 : Y%=Y%+1 : GOSUB 230 : X%=40 : GOSUB 230 3180 B$="$4500" : X%=26 : Y%=Y%+1 : GOSUB 110 3190 S%=1 : GOSUB 280 3200 I1%=Y% : REM temp value 3210 L%=12 : X%=42 : Y%=5 : V%=11 : GOSUB 250 32202 : GOSUB 110 2860 B$=" programming languages" 2870 Y%=Y%+1 : GOSUB 110 2880 GOSUB 280 2890 B$="- and CP/M industry standard operating" 2900 Y%=Y%+2 : GOSUB 110 2910 B$=" system for application programs" 2920 Y%=Y%+1 : GOSUB 110 2930 S%=2 : GOSUB V%=21 : X%=X%-1 : Y%=I1%-3 : GOSUB 210 3230 V%=25 : X%=X%+2 : GOSUB 210 3240 B$="$1795" : X%=40 : Y%=I1% : GOSUB 110 3250 V%=22 : Y%=Y%+1 : L%=5 : GOSUB 230 3260 S%=1 : GOSUB 280 3270 S%=4 : GOSUB 280 3280 REM frame 8 3290 GOSUB 340 3300 B$="Let' 280 2940 B$="It's all in the price..." 2950 X%=14 : Y%=Y%+3 : GOSUB 110 2960 S%=2 : GOSUB 280 2970 REM frame 7 2980 GOSUB 340 2990 B$="ON YOUR OWN OSBORNE 1" 3000 X%=24 : Y%=3 : GOSUB 110 3010 B$="Hardware" : X%=8 : Y%=Y%+2 : GOSUB 110 3020 B$=s take a look at the front of the machine..." 3310 X%=2 : Y%=12 : GOSUB 110 3320 S%=1 : GOSUB 280 3330 REM frame 9 3340 GOSUB 340 3350 X1=1 : Y1=17 : X2=52 : Y2=1 : GOSUB 380 3360 REM screen 3370 X1=19 : Y1=10 : X2=34 :Y2=4 :GOSUB 380 3380 REM disk"64K RAM" : X%=10 : Y%=Y%+1 : GOSUB 110 3030 B$="2 disk drives" : Y%=Y%+1 : GOSUB 110 3040 B$="Video monitor" : Y%=Y%+1 : GOSUB 110 3050 B$="Full keyboard" : Y%=Y%+1 : GOSUB 110 3060 L%=5 : X%=26 : Y%=Y%+1 : V%=95 : GOSUB 230 3070 B$="$2900" : Y%=Y%+1 drive boxes 3390 X1=3 : Y1=7 : X2=17 : Y2=3 : GOSUB 380 3400 X1=36: X2=50: GOSUB 380 3410 B$="Disk A" : X%=7 : Y%=5 : GOSUB 110 3420 B$="Disk B" : X%=40 : GOSUB 110 3430 B$="Each diskette holds about 102,000 characters--" 3440 GOSUB 470 3450 B$="ap : GOSUB 110 3080 B$="Software" : X%=8 : Y%=Y%+2 : GOSUB 110 3090 B$="Wordstar 650" 3100 X%=10 : Y%=Y%+1 : GOSUB 110 3110 B$="Supercalc 295" 3120 Y%=Y%+1 : GOSUB 110 3130 B$="MBASIC & CBASIC 505" 3140 Y%=Y%+1 : GOSUB 110 3150 B$=proximately 60 typewritten pages." 3460 GOSUB 490 3470 GOSUB 440 : REM brings y% to first line 3480 REM draw storage boxes 3490 Y1=11 : Y2=9 : GOSUB 380 3500 X1=3 : X2=17 : GOSUB 380 3510 B$="Storage" : X%=7 : Y%=10 : GOSUB 110 3520 X%=40 : GOSUB   110 3530 B$="Storage area for a dozen diskettes" 3540 GOSUB 470 : B$="" : GOSUB 490 3550 REM RS232C 3560 X1=9 : Y1=15 : X2=16 : Y2=Y1-2 : GOSUB 380 3570 B$="RS232C" : X%=10 : Y%=14 : GOSUB 110 3580 B$="RS232C - Serial port to which most printers" 350 : X2=47 : GOSUB 380 3920 B$="Batt" : X%=42 : Y%=14 : GOSUB 110 3930 B$="Plug in an optional battery pack" 3940 GOSUB 470 3950 B$="for super portability of the Osborne 1." 3960 GOSUB 490 3970 B$="The" : X%=25 : Y%=6 : GOSUB 110 3980 B$="OSBORNE" :X90 GOSUB 470 3600 B$="will connect. You can produce hard copy." 3610 GOSUB 490 3620 REM draw modem port 3630 X1=3 : X2=7 : GOSUB 380 3640 A$="m" : X%=5 :Y%=14:GOSUB 190 3650 B$="Modem - your telephone line connection to" 3660 GOSUB 470 3670 B$="in%=23:Y%=Y%+1 : GOSUB 110 3990 A$="1" : X%=26 :Y%=Y%+1 : GOSUB 190 4000 GOSUB 280 4010 S%=2: GOSUB 280 4020 REM frame 10 4030 GOSUB 340 4040 L%=52 : V%=22 : X%=2 : Y%=3 : GOSUB 230 4050 V%=13 : X%=10 : Y%=7 : GOSUB 210 4060 B$="Inquire about an OSBOformation banks and other computers." 3680 GOSUB 490 3690 REM IEEE-488 port 3700 X1= 18 : X2=23 : GOSUB 380 3710 B$="488" : X%=20 :Y%=14 : GOSUB 110 3720 B$="IEEE-488 port - An industry standard connection" 3730 GOSUB 470 3740 B$="links instruments RNE 1 now" 4070 GOSUB 110 4080 B$="" 4090 X%=10 : Y%=13 : GOSUB 110 4100 B$="" 4110 Y%=15 : GOSUB 110 4120 B$="" 4130 Y%=17 : GOSUB 110 4140 B$="" 4150 Y%=19 : GOSUB 110 4160 B$="" 4170 Y%=21 : GOSUB 110 4180 S%=8 : GOSUB 280 4190 B$="(Demo prand controls to the Osborne 1." 3750 GOSUB 490 3760 REM Keyboard socket 3770 X1=25 :X2=30 :GOSUB 380 3780 B$="KB" : X%=27 : Y%=14 : GOSUB 110 3790 B$="Separate keyboard allows placement" 3800 GOSUB 470 3810 B$="for maximum comfort." 3820 GOSUB 490 ogram by Wordcraft 415 / 534-2212) 4200 Y%=24 : GOSUB 110 : S%=1 : GOSUB 280 4210 GOTO 2000 4220 T=1100 4230 RETURN 4240 END  3830 REM external video box 3840 X1=32 : X2=38 : GOSUB 380 3850 B$="Vid" : X%=34 : Y%=14 :GOSUB 110 3860 B$="External video outlet connects" 3870 GOSUB 470 3880 B$="to a 12-inch monitor (optional)." 3890 GOSUB 490 3900 REM draw batt port 3910 X1=4g>ͫ|Ԙ!>ak~#foC8;i!!CxN"~m߉ۈxU!Rx!R!!ñd&X4#]I!QYDŽ!ͦk 8!߉!ͦ!ņk!ñ!!R  !%׳]b5~P$L~yI ۈ>h1rl||h͊>)=j2*"*"!5ʘ%i)!cQYͦxh/>߉Ʌވ|Յ!߉ei>O!~+>w>QY PRIME = I+I + 3 12 K = I + PRIME 13 IF K > SIZE THEN 17 14 FLAGS(K) = 0 15 K = K + PRIME 16 GOTO 13 17 COUNT = COUNT + 1 18 NEXT I 19 PRINT COUNT," PRIMES" :PRINT CHR$(7) :PRINT CHR$(0) 20 PRINT CHR$(7) 21 PRINT CHR$(0) 22 PRINT CHR$(7) 23 PRI>:?h7߉ۈƁ?ͦX!HņJmQY>Á|Yt&wz^Pc|u~r1oដ>2!ņ߉ogC }}{(qnz ߉%iņi߉~#=xf/ІU/>:NT CHR$(0) 24 PRINT CHR$(7) 18 NEXT I 19 PRINT COUNT," PRIMES" :PRINT CHR$(7) :PRINT CHR$(0) 20 PRINT CHR$(7) 21 PRINT CHR$(0) 22 PRINT CHR$(7) 23 PRI/<ͦ>ʉgͫ!8~_#~W#~OҒ#4ʁ.ÒG~_#~W#~OܒԖUU/>>OUh/ʆ>ȯGͻ"y2Foͦ͝!D*:Oҥ4ʁý͇g.*:OzҦ͇g.*:óx<={_zWxG)yOHGÒ> 2!PA"!US"!:y*+}|H:1*"B>`*@>`*B"*@w#=*=+"=|<i>G!F60#͹!]4:0wwo"w~:ڣ w+Ów!F|¸}¸!]4#"`|/W}/_*w"w>2[:yڱ͕:\G:ꌀx2Za:2_E ",*6 *6 Tʉ~#"! ~#1> 2!ST"!OP"! ",ÉUf/>ͻy+F+F+Fw`h|ʳgyҗ:O|g}oxG-|‹}†ԖElaOÅ!~Gxӈƀʱwʉw+ɷò%x{!6׉wgz >ͫ|:0K!Z5+<:Z++ؑE:[6DK:]!2]K+R-/<2]K:]_! w{0GK}0GK:yڱ͕:\G!]:wa2_:\2Z:]2_!Zw:]/֍*w"u!"wؑ!]4ƍ*u"wؑ֍:yڱ͕:]݌!\/<݌Fw!e~a: : : : a2Bad START LONG LOOPan T (  bxA((T))b A)&b B 9b "OSBORNE 01"BbB Lb ]b "COMPUTER"ebBmb Tsb bxA((T))b A)&b B 9b "Ow2s!~w<2t22e2\2t>2s K)*q*iDM*Ͱ+|>""qú*q*iFK*q#"q*+"|#bú*DDM!s5ʦ*B+}|ګ*@ ~2`i"D>Ü> Üʹ !s4ð:hI :y=ӎ=ڎ:\ގរ!|#:ʥ*z|/  g}/o#"zå>2?:yរ!\:^1:f1:bw~/2͕:]a:]2Z2_Ͱ >00:io o th notic wa inadverten o distributio wa fo limite purpos onl (lik t one' famil o friendl grou gettin together th lac o notic doe no caus an harm However th absenc o th notic wil allo anyon wh 02>ɯ2\2^2f-&>2++.*D+"D!s4ǐ:.V>2^2]ǐ:EfDk+z->2?y2f*D+"D!s4Ox ڥ> GÐ:?xʺ/<2]G!\~w:ǐͩffͧf:!w#wͧ!\:]wǐcopie you progra t clai i wa place i th publi domai fo al t us fo an purpose Onl th copyrigh ca b license an i th othe fello doesn' kno yo ar claimin copyright h ca clai innocenc i thi copying Registr COPYRIGHT INFORMATION FOR COMPUTER SOFTWARE HACKS from June B. Moore Attorney at Law 32 Salinas Avenue San Anselmo CA 94960 Ph 415-456-5889 (after 5:30 pm) Writer o softwar program tha ar bein place o th vatio i simple Jus sen not of t th Copyrigh Office Librar o Congress Washington D.C an as fo th form neede t registe compute program The wil sen yo packag o stuf whic wil includ th form an instructions ariou bulleti board wit permissio t user o th boar t us th program fo non- commerica purpose shoul mar thos program as: (c 198 Joh Smith I i no necessar t registe th wor wit th Copyrigh Offic i Washingto ho t fil fo registration Fil ou th form sen i bac wit tw copie o you printou showin th copyrigh notic o i an $1 an soo th Copyrigh Offic wil sen yo certificat sayin th progra i registered That' al thon D.C t ge copyrigh protection I fact i i no necessar t pu th copyrigh notic o t ge protection bu th notic i require i yo wan t su fo infringement a i regis- tratio wit th Copyrigh Office I th omisser i t it! Copyrigh shoul no b confuse wit patent Patent hav t b origina inventio an protec th ide embodie i a objec o machine Copyrigh protect an kin o literary musical o artis work includin al kind o g  a ()a "**************"a "* BANNER *"b "**************" b:8b "HORIZONTAL LETTER LENGTH (IN INCHES)";Xgb "VERTICAL LETTER LENGTH (IN INCHES)";Y: c "DO YOU WANT BANNER CENTERED (ON 15 INCH PAPER)";L$: (L$,  f/F(U)K: f " ",0,0,0,0,0,0,0g "A",505,37,35,34,35,37,505(g "G",125,131,258,258,290,163,101Ng "E",512,274,274,274,274,258,258hg "T",2,2,2,512,2,2,2g "W",256,257,129,65,129,257,256g "L",512,257,257,257,257,257)"N" (L$,)"n" "DIABLO MARGIN SET (ESCAPE 9) CAN BE USED TO SET LEFT MARGIN."7cG1: (L$,)"Y" (L$,)"y" G1dc: "MESSAGE (USE ALL CAPITAL LETTERS)";mc A$c "PRINTING CHARACTER (TYPE 'ALL' IF YOU WANT CHARACTER B,257g "S",69,139,274,274,274,163,69g "O",125,131,258,258,258,131,125h "N",512,7,9,17,33,193,512;h "F",512,18,18,18,18,2,2]h "K",512,17,17,41,69,131,258h "B",512,274,274,274,274,274,239h "D",512,258,258,258,258,131,125hEING PRINTED)";M$c#: "ENTER 'RETURN' WHEN PAPER IS POSITIONED.";RR$d$:: "--- Printing ---"::1d(A((A$,))7d2=d<PdF T (A$)bdPP$(A$,T,)qdZ O 2d_ S$,S(),S(),S(),S(),S(),S(),S()d` P$" " , "H",512,17,17,17,17,17,512h "M",512,7,13,25,13,7,512i "?",5,3,2,354,18,11,5+i "U",128,129,257,257,257,129,128Mi "R",512,18,18,50,82,146,271mi "P",512,18,18,18,18,18,15i "Q",125,131,258,258,322,131,381i "Y",8,9,17,481,17,9,8dd P$S$ dx OddX$M$e M$"ALL" M$"All" M$"all" X$S$e U (e K  =e KS(U) JeJ(K)Te peJ(K): S(U)S(U)Ke S(U) /e Ke T1 Xe (?Y)i "V",64,65,129,257,129,65,64i "X",388,69,41,17,41,69,388j "Z",386,322,290,274,266,262,260>j "I",258,258,258,512,258,258,258cj "C",125,131,258,258,258,131,69j "J",65,129,257,257,257,129,128j "1",0,0,261,259,512,257,257jG1((X$)));e B F(U)e J(B) e I Y: X$;: If Xf I Y(f I1 (X$)9f " ";: I1Af IIfX BOflXfv T1`f Uxf H X: : Hf  Tf& ( )f*f, H X: : Hf- "2",261,387,322,290,274,267,261j "*",69,41,17,512,17,41,69k "3",66,130,258,274,266,150,1005k "4",33,49,41,37,35,512,33[k "5",160,274,274,274,274,274,226k "6",194,291,293,297,305,289,193k "7",258,130,66,34,18,10,8k "8",69,  171,274,274,274,171,69k "9",263,138,74,42,26,10,7l "=",41,41,41,41,41,41,41l "!",1,1,1,384,1,1,1@l "0",57,69,131,258,131,69,57^l ".",1,1,129,449,129,1,1dljl",41,41,41,41,41,41,41l "!",1,1,1,384,1,1,1@l "0",57,69,A "3",66,130,258,274,266,150,100 931 DATA "4",33,49,41,37,35,512,33 932 DATA "5",160,274,274,274,274,274,226 933 DATA "6",194,291,293,297,305,289,193 934 DATA "7",258,130,66,34,18,10,8 935 DATA "8",69,171,274,274,274,171,69 936 DATA "9",263,138,74,42a (): Pa !);"BUNNY":b );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"b: : ?b( "MAKE SURE THE PRINTER IS ON."b2 "ENTER 'RETURN' WHEN THE PRINTER AND PAPER ARE READY. ";XX$bd "BUNNY" FROM AHL'S 'BASIC COMPUTER G,26,10,7 937 DATA "=",41,41,41,41,41,41,41 938 DATA "!",1,1,1,384,1,1,1 939 DATA "0",57,69,131,258,131,69,57 940 DATA ".",1,1,129,449,129,1,1 1000 REM 1002 REM ,41 938 DATA "!",1,1,1,384,1,1,1 939 DATA "0",57,69,131,258,131,69,57 940 DATA ".",1,AMES'bnbx I : B(I): Ib cL@: ASCII LETTER CODE...c c"c X: X 3c X Cc X);: Y`c IX Y: JI(I)rc (LB(J));zc Ic cc : cc I : ( );: Iccc" 2,21,14,14,25d, 1,2,-1,0,2,45,50,-1,0,5,43,52,-1,0,7,41,52,-1Pd6 1,9,37,50,-1,2,11,36,50,-1,3,13,34,49,-1,4,14,32,48,-1d@ 5,15,31,47,-1,6,16,30,45,-1,7,17,29,44,-1,8,19,28,43,-1dJ 9,20,27,41,-1,10,21,26,40,-1,11,22,25,38,-1,12,22,24,36,-1eT 13,34,-1,14,33,-1,15,31,-1,17,29,-1,18,27,-15e^ 19,26,-1,16,28,-1,13,30,-1,11,31,-1,10,32,-1geh 8,33,-1,7,34,-1,6,13,16,34,-1,5,12,16,35,-1er 4,12,16,35,-1,3,12,15,35,-1,2,35,-1,1,35,-1e| 2,34,-1,3,34,-1  ,4,33,-1,6,33,-1,10,32,34,34,-1f 14,17,19,25,28,31,35,35,-1,15,19,23,30,36,36,-1:f 14,18,21,21,24,30,37,37,-1,13,18,23,29,33,38,-1pf 12,29,31,33,-1,11,13,17,17,19,19,22,22,24,31,-1f 10,11,17,18,22,22,24,24,29,29,-1f 22,23,26,29,-1,27S OF EACH MONTHb N  : M(N): Nbb N  c: : SSM(N)c "**";S;);2c I : "*";: Ilc N ,,,,,,",,,6,@,J,Tc " JANUARY ";: ^c " FEBRUARY";: ^c " MARCH,29,-1,28,29,-1,4096f-1,11,13,17,17,19,19,22,22,24,31,-1f 10,11,17,18,22,22,24,24,29,29,-1f 22,23,26,29,-1,2729,33,38,-1pf 12,29,31,33,-1,11,13,17,17,19,19,22,22,24,31,-1f 10,11,17,18,22,22,24,24,29,29,-1f 22,23,26,29,-1,27 ";: ^c " APRIL ";: ^c " MAY ";: ^d " JUNE ";: ^"d" " JULY ";: ^ =+O+:#5+:#5+:#2# .ͬ--*###:#2#GM$ ~i+i+w# _+ #_+ w#r+:#!V$~ –+w#Œ+,:7>¼+xʘ+^-Ox=y+[A@2M$,x + D2DSe D2M(N) De D2 D2;e G);e Ge f& D2M(N) Nf0 Wf:%fDDDG-fN N3fXQfb I : ( );: I}fl 0,31,28,31,30,31,30,31,31,30,31,30,31fv 0,31,29, ..., ON LEAP YEARS-fN N3a  );"CALENDAR"a );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"b::-bd VALUES FOR 1979 - SEE NOTES9bn M( )Wbx I : ( );: IbD: 1979 STARTS ON MONDAY (0=SUN, -1=MON, -2=TUES...)bSb READ DAY25,28,31,35,35,-1,15,19,23,30,36,36,-1 400 DATA 14,18,21,21,24,30,37,37,-1,13,18,23,29,33,38,-1 410 DATA 12,29,31,33,-1,11,13,17,17,19,19,22,22,24,31,-1 420 DATA 10,11,17,18,22,22,24,24,29,29,-1 430 DATA 22,23,26,29,-1,27,29,-1,28,29,-1,4096 440 REM   31,28,31,30,31,30,31,31,30,31,30,31 630 REM 0,31,29, ..., ON LEAP YEARS 640 RUN "MENU" RINT CHR$(10);: NEXT I 620 DATA 0,IF D2=M(N) THEN 590 560 NEXT W 570 REM 580 D=D-G 590 NEXT N 600 REM 610 FOR I=1 TO 6: PRINT CHR$(10);: NEXT I 620 DATA 0,MMMM. MMMMMMMMMMII:. ':I:.,MMMMM': MMMMMMMMMHHHII:. .::I:IIMMM'::: MMMMMMMMMMMMMII::.. .:II: '::II:''.,:''''::.., MMMMMMMMMMMMMMI:::.:I::.. .. ..:'' ,.:'''::, ':, MMMMMMMMMMMHII::'II::....' .:' ::., IHIMMMMMMMMMMMuC>uC>zuC>uC>*}"]>2a=2!6;*w*_DM!"w*"x'3w# x3"!"*yP:=*{P>2g3>5>uC*yP:<ͪC>2:=ʓ3>5>GuC*yP>2a:>uC>xuC2:=n3*yP+;>uC*{P>2=5>2?!"3͇=MMHI::....::::: :' :: '. '':HMMMMMMMMMMHHHHHI:..::::II::' .::::::III:,, ', 'IHMMMHHHHHHIHIIIIHHHH: ,'' ::, .::.. ', 'MMMHHHHHIIHHHHHHHII: .::: ::::::::...... ....:, MMHHHHHHHIH .:IHHMHHI:.., .IHHI..IIHMMMMHIHHH:.. :MHHMHHMMMMMMHMMHMHI::, IHHHMHMHMHHMMMMMMMMMMH::..: MMMMMMMMMHMMMMMMHMMMMMMMMMM: MMMMMMMMMMMMMMMHMMMMMMMMMM,: MMMMMMMMMMMMMMMMMMMMMMMMMMM, MHMHMEMMMMMMMHMMMMHHMMMMMMMM:.. HMMMMMMHMMMMMMHHMMMMMMMMIIHHIIII '...'''' '''H:IIHII... ...', .MMHHHHHHHHHHIIIIII':' ..... .:::::II. 'HHH:.. .. , .MMMMMHHHHII::''' '' .. .....:HI:, II:.. ...:: ,MHMMMMMHH:.'' ... .. ...::H:, 'I::. .: MMMMM MMMMMMMMMHMMHHHI' '::I HMMMMMI MMMHMMMMMMMMMMHHI, ' HIHMMMMMM. MMMMMMMMMMMMMMIII, '':IHMMMM MMMMMMMMMHMMMMMMH: ... HMMM: MMMMMMMMMMMMMMMHHH IMM MH, MMMMMMMMMMMMMMMMMI, ...IMMMMMM MMMMHMMMMMMMMMMM :MIMMI., MMM .IMHMMMHI:'' ..:. I .. .. ...::II, 'II.... ::.. IMHIMMI:'' . : ....::H: I:: . ... MMHIMMI:.'' ..: ...: ... ....II,'I:.... . 'MMHIMM:'':. . MMMMHHMMMMMMMM IMMI.. IMMIHH:. MMMMMMMHHHHHMMMMIMMH:::... 'IHI,... MMMMMMMMMMMMMMM'H:MHIII:...: ':.:. MMMMMHHMMHHMHI ,,MMMII:'::I:I. :I:: MMMMMMMMHH....:'''''::.::I,.: MII: MMMMMMMMM::.::''' '':::IH:IM:: IM. MMMMMMMMMMII:'' ' ''::I:: : .. . .. ,: ,.IIHI:::. IMIHMMI:::'' . , .,, ..::IHIII... IMIHMMM....... . ..::HH:.. HMIHMMMH:. . ...:::IIHHI.   IHIMMM::... '''::::::: :MMHOM:.. . ... I II..... . '''::: 'MIHMMI:... :::.. . I. :::::.. ...::.... .. '' MMHMMM:... ..  IMMHHIII:::... .....IHHIIHHIIIHHHHMH 'MMHHHIII:..:.. .. ...:HI:...:::IIHHHMH IMHHHII::::... ..IHI.. ..:HHHIHMHH 'MHHII:::.... ...III:... .IHHHHMMH IMHHHIII::...  .:.....:.III:::.........::::........ .. HMIMMI:... ..:::::::::III:H:IIHII:::::...::::......... IMHIMM:..... ....:::::III:IIIHHHHHHH'III:....:.......... 'MHHMM:... ....:::::IIIIHMI:':::IHHMHIII:::::...... .. ..IHH.. ..:::IHHMH 'MHHHIIIII:... . ....II:....:::IHMMHI MHHIIII:::::. ...:::..:::.HHHHH' 'MMHI::::....... ..:::::.IHHHIHH MMIII::::....... ....::::::HIIHHH'..... IMIMM:::... ...:::::III' :....::::IHHMHIIII.::.:...... 'MMIMM:... ....::I:.' ' ''''::IIIHMH,'::::::::: IMHMMI:::.... , ..::::::.. .. ... ..::IHMM:, ''::: HMMMMH......:  'MHHHHHII::... ...:::::MHHHH MHHHHHHIIH::. .::::HIMMH' HMHHHHHHHHH::.. ....:::HHHHI IMMHHHHHIIII:. .. ..::::IHHM' IMMHHHHHHHHHI . ..::::::.. ..::::MMMM) IMIMMHH:...:... .. ...:::::... .. ... ..:,::MMMI HMHMMHI:... ..:. ....:::::::..:. ....::::IMM' 'MMOHHHI:..::... ....::::II::.::.... ..: ...::IHM' ::. .. ..::HMHHH IMHHHHHHHIII::.... ......::HHHI HMHHHHHHIII::''' ' '''''::MHHM' IMMHHHIII::''' '::HMMM ,HMHHHII::'''' ''''::MMMHM IHMH IMMHHI:.:::... . ......::III:..::.::::::..IIHHM' 'MMMHI:::..::. ......:IIIHIHII::IHHHHHHHHHI'' MIMHHHII::..:. .. ..:::I::.:HHHHIHMMMHMHHIH' 'MMHHHHII::. ... ..:.::HHHHHHHMHHMMHI' HHHH:'' '' ''':IHMMMMI ,HMHHHHII::. ''..::MMMMM' ,HMHHII::'' ''''':HHHIHMMMM ,HMHHI::. ''::IIIMMHHMMM ,IHMMH::'' ..''IHIIMMHMMH ,HMH  HI:'' ... .IIIHIMHMHH ,HMMI:' . ... ::H MMHHI :HMHI:' .. ... ....:::. MMMHH' IHMHHHI: . ... ....:::::MMHIM ,IHMHHHHII::. ..... ....::::MM' ,HMMHHHHII:::...:: .....::. MMMMMIHMMMMHHHHMHHHHMHHH::.I:.. ... ....:. MMMIHHIHHHMMHHHHMMMHHHHHMMHH::. ... .... ..::. MMMMHHHIHHHHMHHHHHHMMMHHHHHHIII:::.., .... ...::. MMMMMIHHHIHMMMMMHHHHHHHHMMHII::. ....:::MH' HMHHHHHHII:::. ...... ...:::..IM' MMMHHHHIII::, ....::.. ..:::M' :MHHHHHIII::' ....::..:::.:IM' MMHHHHHIII::' ....::::.::IHM' ,MIHHHHHHHII. . HHHHII::::.:' ::::. :MMMMMIIHHHIHHHMMMMHHHHHHHHHHHHIIII::::.'' ....::::. IMMMMHHIIIHHIIHHHHMMMHHHHHHHHIHHHHHII::. .... ...:::. IMMMHHHIHIIIIIIIHHMMMHHHHHHHHHIIIII:::.. ....::: IMMHHHHHI::III :::. .:III IMIHHHHMMHHII ''::::::II:, HMIHHMMHHHHH::. '' :::IIH::,:, MMHHHHHHHII::' ''::::::II::, HMHHHHHHHHHI:' .. ..: :::::.... IMMHHHHHHHHH::.. HHIHHMMMHHHHHHHII::::::..... . ...:: :MMMMHHIII::IHHHHHIHHMMMHHHHHHII:::::.. .. , ... ..:: IMMHHHHII:' '' ':HMHHHHMMMHHHHHII:::..::'' . ..::: HMMHHHII::' :::.HHHHHHMMMHHHHHII::'' .. ..  ...:::::..:II::. 'MMHHHHHHHHH::::. .... ....::::.::I::., IMMIHHHHHHHHHII::. ....::::::...:::::. 'MMMHHHHHHHHHHII::. ... ........::::::, HMMMHHHHHHHHHIIII::. ....:::. ....::::..:.. 'HMMMHHHH ....::: HHMHHHH... ....::HHHMHMMMMMHHHIII:::''.. ... ....::. HMHHHII:'' ''''::IHHMMHMMMMIHHHHHH::. .... . . .. ...:::. MMHHHI::' .. ... IHHHHMMMM 'IHHHHII::...... .... ..::: MMMHHH:: 'HHHHHHIII:::., ,,: ...::..:,. MMHMMHHHHHHHHIIII::::... ...:. .. ...::::. MMHHMMMHHHHHHHHHHHHHI::... ......::. MMMIHHMMMHHHHHHHHIIIII:::... ...: ...: MMMMIHMMMMMMHHHMHHHHHHHII':::HHHHMHMM' 'HHHHI::::::.... . ..: MMMIHI:: : :,:.MHMHMMM 'HHHH::::.......... .: MMMMHIIH:. ..HHHMMM' 'HMHHHHI::,,,,.. ... ,MMMHHH::. .. ...:HHMM' 'MMMHHHI:::..  .. ... .. IMMMMHHH::. ....:::MMMI IMMMHHHH:::...... .. .HMMMMHHH::... .. ..:MMM ....::II.IIMMMHHHMH::::....... MMMMMMMMMHHH::.. ..::HHMMM ,:IIIHIIII:IIIHHMMMMMMMMHHH:::.. . MMMMMMHHHHHIII::. .:HMMMMM:IIIIH:2d>2(!""+"*!s s#r!> s#r!g s#rͰ#:=*U:JU*!> s#r͝#*!s s#r:g+DU-XU2o͊*+!g s#ry!djU͌cTX:P͟PV*y"`!"b*`!g N#FR*b"b!> N#FRs#r!s ^#V*U":'''':'':''::::IHMMMMHHHH::........ MMMMMMMHHIII::''IHHHIIIIIHHHI:'' '':::.IHMMMMMHHHH::..... HHHHMMHIIHIIHHHIII::::'''''' '':::IHMMMMHHMHHI:::... IHII''HHHHIII:'::... .. .... .HHHMMHMMMMHHI::.. *!s ^#V">2ͶW#|U+">2ͶWy!dV!6 N#F*`R"`ÉUP*b|ʤV:a_V*"*#|LV*"TV>2ͶWP2(ñV*"*b*]">*2>2>2:a*p2a=ʗV*"p"]:Y2(*#|V>2*":2ͶW*"2 HHHHIII:''''':... . ..... :::: .IIHMHHHHHMHHHIMMH:.. II:'':::.. . ....::::::: .::::::IIHHIIIHMHHIIIHHHMMMHHII .. . . ......::::::::'' IIHHHMHHHHHHHMMMMHHHMMMMMMM ..... ........::::::W*w"*B">2ͶW*k">2ͶW*:">2ͶW**u"*@">2ͶW#|2ͶW*i">2ͶW*8">2ͶW**s"*>">2ͶW">2ͶWP*y">2ͶW*gR">2ͶWPäV!"**WW2:::::III::IIHHHHHHMHHHHHHHMMMMMMMMMMMMMMMM ..... ..: ..: ......:::::IIHHHHHHHIIIIIHHMMMMMMMMHHMMMMMMHII::' ::. ........::::::::::IIIHHHHHHMMMMMMMMMMHHHHHMMMMMMMMMMHHMII::''' :::::::IIIHHHHHHHHHHMMMMMMMMMMMMMMMMMMMHHHHHIIII::''''''' IHIH*JW2JP=W:>ȯ:222oÖ>)͓cͲ7R!6*[#"[!> 2 :-X X͋/aX 2X 2X2XhX*[͑KXhX͋/hX> 2w rX XX͋/aX XʑXyX [X [X ºX> w#xP©X[Xw XX2P> :IIHHHHMMMMMMHHIII:::::::::::::''''''''' HHHHHHHHHHHHHHHHHHHH''''''' HHHIIIIIII'''' .......::::::::::IIIHHHHHHMMMMMMMMMMHHHHHMMMMMMMMMMHHMII::''' :::::::IIIHHHHHHHHHHMMMMMMMMMMMMMMMMMMMHHHHHIIII::''''''' IHIHX Y:#X Y: $ X> X#>O[X> X!X (Y4~Y5> 4. 2Y6#Y #Y"Y!N:*w:aG:!+w+*]r+s+*pr+s+w+ sY:<Y>2y:*r+s*]++r+sY!~¶Y4dAS*"H!Fw Y5͇=*4  .~!0h[*2|Z:F Z:Z:hZ 3*4*Z:*Z*4!"4͇="42:Y:F°ZC*HP:F20*c|ʣZ:£Z͇=*c"]2g $********X$X**XXXXXXXXXXXXXXX**QXXQ ***$$$$$$$$$**XXXXXXXXXXXXXXXX**QXXQ **$**XQQXXXXXXXXXXXXXXXXXXXXXXXX*QXXQ o"cxSãZ:auZ*"!"\2f*\*]_|[["\͜c_:f)[*Z_|1[1[>2f"ZZ*\*"\*Z">2a*]*\_"]:YJ[uZ > ]_2:2*++++~_!~!!w:[*++++"g_!2x u[}[!~w*w* *$XX*QMMMQQ$QXXXXQQQQ$$$QQQQ*XXXQXXQ $XXXQ***/////***Q*XXXXXXXXXX*QQ*XXXXQ XXXXXXXXX$.$XXQ***///,,///***'QQ$$QQQ   $XXQ$***////,,,,,....**..*QXXXXXXXXXXQ $XXXQQ***//,,,,.*Q$*'''* //*QXXXXXXXQ *XXXX$Q**//,,L ;$Q .../*QXXXXXX*XQ XXXXXQ***/,... QQQQQQQ QQXXX*QQQ QQQQ  *$ .*QQQQ$ .*QXXXX$QXXQ XXXXQ *. . .Q$Q $'' .*QQXXX$*XQQ XXXX$Q$$$Q., ,Q $Q' ./**QQ$XX**XQQ XXX$ .,.,.. 1 .. .,/* QXXXXXX**QQQQXXX**Q QQQQQQQQ X*$$$$$$*XXXXXXXXXXQQQQQ..QQQQQQQ $$******$$****XXXXXXXXXXXXXXX*QXXQ *QXQX***X$ XXQ . *Q$''Q.. ,,... .,/QQX***XQ X$ *'Q$$* ... .,Q, ../QXQ***XQ * *Q*QQ' ,,. $Q 1. *XQ**XQ $Q    **//,,.. * Q$ *... *QXX*XX QXX ***//,. *,Q .. ..* *QXX*X *QX$ XQ**/, . .*Q$$*** .,$XXXX* QXX*' PO&/,..... ..,///PQ DDDDQQXXXXXXXXXXXXXXX*Q$&&///&&Q...,,,&Q$..,,//QDQ&&&///,,... ..,///&&&&&3Q DDDD$ 1QXXXXXXXXXXXQ$&&&Q&&//.&Q$../&Q...,/////*O3MN&&&&////,,......,,//&&33Q DDP$ '**QQ$QX*Q$&&//&&$Q&//.&Q..*Q.,/////JJJN*$PMMMN&&&&&/// XX'*&&&// . *Q$$Q*Q$$* .,*/QXXXXQ QXXXX*Q XXXXQ&&&&/, ., Q$Q**Q$$Q*,.. &Q&&$XXXXXXXXXXQXQ XXXXX$&&&&// ..Q*$$$Q*',. &Q&&&QXXXXXXXXXQXX$ ,,,,///&&&&&33$ &&Q$ Q$&&///,//&&*Q&/&$...$..,,,///JJNNNQ$QMMMN&&&&&&////,,..,,//&&&3 &&Q $&&///,,L,///&&Q&&//..&&/////&&&NNNMMMQ$QMMMMNN&&&&&&/////,,.../&& DQ *Q&&&///M/.,,///&&Q&&///,,,/&&&&&&&&&&*&Q$$*MMMMMNNN&&&&&&////,,.../  XXXXXX'Q&&&&//,. .,. //*'&&/&$XXX*Q*XXXXQ XXXXXXXXQ&&&//,,L .. ,//Q*&&//&QXMMM$$QQ*- Q$*XXXXXX$&&///,,...... .//*$&&///&&$X///////M$$$QQQQ***-. QXXXWXXXXXX$&/ Q Q*&&&&//NMN&&,///&&$&&//,,,//&&&&&&&&&&***JDD//PPJMMMNN&&&///,,..&&&& Q Q*&&&&//NMMN&&&&&&&QNNM&&&&&&&&&&&&&&&&&&&JFAAF//AA&&&&&&&AAA///,,,../ Q*JJNNMAQXXXXJMM&&&&&//////&&&&&&&&&&&&&&&&&&&//////JXXXXXJ&&&////,,,,. Q*JJNNMMQ/,,..,,///Q$'&&&//,//&QXM***&&&///,,*1/,.../1$Q* XXXXXXXQXXXXX$QQ*-**Q$/'&&&&&//,,,/&QXQM**&&&,../DP/,.. ,PQ* XXXXXXXQXXXXXXX$&&/,,//////&&//,,,/&&$XQM*&&&,.&PD&/,. '$Q XXXXXXQ$XXXXXXXXQ&///,..,//&&&XQXJ&MMM&&&&&&&&&&&&&&&///////&&/////&&&&&&/////,,,....,,,////, Q*///JJMMQQMMNN&////&&&//////////&&&&&&&&&&/////***QQ$Q**&&&&&&&&&/////,, Q*//NNNMMMM&*QQMNNN///&&&&&&&&&&&&&&&&&&&&&/////////*****Q*&&&&&&&&&&/////, Q*/////NNNMMM**QMNN///&&&&&&*//,,,/&&Q**Q$MM//QD&/,. '$Q PQXQXXXXXXXXXXXXXX$&///,.,/&Q..,,,///&&&M*&&//,DD&/,.. ..$ $1QXXXXXXXXXXXXXXXX'Q&///,.,/Q...,,,//&&&///Q',OO&/,... .,,8 &&&&QXXXXXXXXXXXXXXXQ&///',/&Q...,,,//&&Q$..//********&&&&&&&/////////&&**$$Q*&&&&&&&&&&////, Q$&&&&///,,,,,,//QMMN,,,,//&&&&&&&&&&&//////,,,,,...,,/&&NMMMX*Q&&&///&/,,,,,, $*&&&&&///,,,//&&$MMNN,,,///&&&NMM&&&&////,,,,,,....,/*&NNMMNNNNQZ&&////&&/,,, &&&&&///,,//&&&&&$MMN,,,,////&NMMN&&&////,..    .,/&&&ND&&&&&///Q&&&////&&&// &&&&&//,,//&&&&&&X$QN/,,,,///&NMMN&&//... .,,/&&&&&//////&1Q&&&////&&& &&&//,,,//&&&&&&&NX$N&/,,,,,//NMN&&&//.. .,,&&&////////&&1Q&&&////&& &&//,,//&&&&&&&&NXX$N/,,,///&&N$Q&/,,. ..,,//////&&KKKQ$'&&&&//,.....,,,//&4* Q&&&&/&&&KQ$&&/,,//&&*$$QQ$$QQ$$*&&&&&&&&//,,.....,,//&4 *$KKK&KQ$&&//,,,//&&&&&HQ$Q*&&&&&&&&&///,,......,//&$ '*Q$Q'Q&//,,...,/&&&&NNMMMNN&&&&&&///,,,..///&&&2Q&&&//// //,,//&&&&&&&&NXXXQQ&/,,,///&&&Q/,,. . ..,,////&&///&&&&X1Q&&&/// /,,//&&&&&&&&&NXQ $&/,,...//&&&Q/,., .,. ..,,///&&&&///&&&&XXXQ*&&/ ,//&&&&&&&&&NXQ Q/,,. /&&&$/,..*QMQ,. ..,,///&&Q&&//&&&XX$Q&&&/// ....,,/&Q Q&//,,.....,&&&&&NMN&&&&&&////,,,.......,,/&$ Q//,,.......////'&&&'///////,,,.........,,,/Q $/,.,/,.........,,,,.................,,,//1$  //&&&&&&&&&&Q 1Q,. /&&M/,.$....Q.. ..,,//&&Q&&//,,,&&&&7X$ Q& /&&&&&&&&&Q $.. .//&M/.Q......Q.. ..,,//&&*&&//,,,,/&&&XXQ &&&&&&&&Q Q,. .,/&&$/,$.1$...$.. ...,,///&&Q&&///,,,,/&&&XQ &&&&&&Q * Q&//.,,/,......,,,,,,,............,,,,,////. *&&/.,,/,..........,,,............,,,,,///$ QQ&&&////,,....................,,,,,,,,///Q *. ..,/&Q/,Q.($...Q.. ...,//////&&$&////,,,,,/&&&$ &&&&Q Q.$. ..,,*&*//,Q....Q,,...,,,,//&&&&&KQ&&//,.,,,//&&&Q &&Q' )$..Q. ...,,,&*&*///$.*$'..,,,,,///&&&&KK$&&///..,,,///&8Q Q )$..$....,,,,,&&&** Q&Q&&&&----//,,,,,,,,,...........,,,,,/////Q $&Q&&&&&&----///,,,,,,,,,,.......,,,,,,,//*/$ Q&&//&&&&&&&&&-----&-/////,,,,,..,,,,,,/////Q/. *$Q&&///&&&&Q*/////,,,,////&&&&&KKKQ&&&//,....,,,//H* Q,,Q...,,,//&&&-KQ&&&$&&&/////&&&&&&KKKKKK$&&&&//,....,,,/&H* $,Q,&/,,.,,/&&KQ$&&&&$K*&&&&&&&&&KKKKKKQ$&&&&//,.....,,,/&* '$/&&&//&&&KQ$&&///&&$KKKKKKKKKK&&&&&&&&&&&&-----/////,,,,,,,////////QQ $Q&&&//////&&&&&&&&&&-----///////,,,////////////$ Q&Q&&&//,,/////&&&&&-//////---//////////&&//,,////Q $//&&&////*//////,,,,,/////  //////////-&&&*//,,,///& Q//&&&/,,Q$$Q..........,,//////,,,.,,,&&&///,,,////&3 $/.&&&/,,QQQ...........,,,,////,,,,/&&&&///,,.,,////3* */..&&/,,.//&*...............,,,,,///&&&&//,,LLLL&&&///,,,,,,....,,,,////&Q .Q // Q&LL&33&//LL33LLLLLLLLLLLLLLLLL&&&&////,,,,,...,,,/////&8 ($ // Q6&333&LL3333LLLLLLLLLL33LLLLL&&&&/////,,,,,..,,/////**$ 2Q // Q&&333333333333LL33333333LLL&&&&&&/////,,,..,,///HQ. Q/..Q&//,.,//.................,,,,//&&&&//,,,....,,//Q$I .$/.Q&&//..,,/.................,,,//&&&&//,,,......,,//I* .Q//..$&&//..,/................,,///&&&&J//,,.......,,///Q ,,,,,,////**&$ M/ /// Q&K33333333333333333333L,L&&&&&&/////////,,,,,/////&&& P// /// Q&Q33333333333333333333L,&&&&&&///////////,,//////&&& $// //// QK333333333333333333,L&&&&&&&////////////,,//////&&Q  QQ/...&&///.,,................,,//&&&&&///,,.......,,///$I $.Q&..$&&&///.,...............,,//&&&&&////,,,......,,,///* .Q.$&..Q8&&////,...............,/&&&&&&&///,,,.......,,,///QI  M// //// $K333333333333333,$&&,,&&&&////////,,/////&&&&&&&,Q I// ///// $KK33333333KK333Q,,&&&&&&&&&&&&&////////////&&&&&Q$* I// ///// QKKK3333KKKKKKQQQ&&&&&&&&&//////////&&&&&&&&&&&&&&Q INQQ..&Q..$L&&/////..............,&&&&&&&////,,,.......,,,///$) *$*,&,..QLL&&//////,,,....,,,///&&&&&&&&////,,,.....,,,,///1*) 1/Q,&,..QLLL&&//////,,..,,,///&&&LLL&&&////,,,......,,,,////Q) .Q-Q,/&L&&*LLLL&&/ ,//// ,*$KKKKKKKKKKKK3QQ'&&&&&&&&&/////////&&&&&&&&&&&&&$ *J/ ,///&&Q$KKKKKK$$$$$Q &&&&&&&&&////,,,,,/,,/////&&&&&Q$' '$/, ,//&&&$$KKKKK$$$$ &&&&&&///,,,..,,////////&&&&&&&$1' Q/, ,,/&L^Q$,///////////&&&LLLLL&&&///,,,......,,,,/////$$ *$//Q/&&**LLLLL&&&&&,,,,,//&&&LLLLLLL&&&///,,,......,,,,/////$1 1// 0Q&&LLLLLLLLL&&&&&&&&&&LLLLLLLLLL&&&///,,,,,...,,,,,//////* *1// /$&LL33&&LLLLL3&LLLLLLLLLLLL$KK$$Q/ /&&&&&//,,,,.....,,,,/////&&&&&&$Q) */,. ,/&&LQ$$$$$$Q /&&&&&///,,,,.....,,,,////&&&&&&&$' *M/, /&&&LQQ$$$Q /&&&&///,,,.......,,,,,///&&&&&&QQ) '$/, /&&&LQ$$Q /&&&&,,,..  . .....,,,,,//&&&&&&&$Q Q/,. ./&&&LLLQ$ ,&&&&,,... .....,,,,,//&&&&&&&&QQ *M/, ,/&&&LLL$ /&&&,,... .....,,,///&&&&&&&$1) ,$/, ,/&&&&LLQ/ /&&,,.... .....,,,///&&&,,,//////&&&$' Q/&XXQ&//,,,.......,,,,//////&&&&&Q $&XQ&//,,,.....,,,,,//////&&&&&&Q' QX*'&/,,.....,,,,,/////&&&&&&&&$/ &&&&&$' Q/,. /&&&&LL$&/&&&,,,.... .....,,///&&&&&&&Q/ */,, ,/&&&LLQ&/&&&&&,,,.... ....,,,////&&&&&&&* *$/,. ./&&&&L$&/&&&&,,... ....,,,////&&&&&&&&*  $*Q&/,,......,,,,,/////&&&&&&&&Q 'Q$&&&.......,,,,,/////&&&&&&&&Q* .Q$&&&.......,,,,,/////&&&&&&&&QMQ.  Q/. .,&&&&&*&/&&&&,,... .....,,,////&&&&&&&&$' *$/. .,/&&&&Q&&&&&&/,,,.. .....,,,////&&&&&&&&&@ 'Q/,. /&&&&&$&&&&&///,,,,....,,,,////&&&&&&&&&Q  QQ*&,.......,,,,////&&&&&&&&&&$MN$) 'Q$&&,......,,,,////&&&&&&&&&&QMN//Q Q$&&&,.......,,,/////&&&&&&&&QMN&//$.  ''$/,..,/&&&*M&&&&////,,,,,....,,,,////&&&&&&&$* Q/,,.,/&XX*&&&&////,,,,,.....,,,////&&&&&&&*'/ 'Q//,,/&&XQ&&&////,,,......,,,,////&&&&&&&$Q '$//,/&&X$ $$&&,........,,,////&&&&&&&&QMNN&///Q '$&&&,......,,,,/////&&&&&&&&MNN&////$ *$&&,.&/,...,,,,/////&&&&&&&QMMN&////$. .$&,..&&/..&&/////,,......,,,,//////&&&&&&Q Q&//&&X*&&////,,,......,,,,,///////&&&&Q '$&//&*Q&////,,,......,,,,,,,//////&&&$/ Q//&XX$&///,,,,......,,,.//,,/////&&&&&&&$MNN&//////Q .$&,..&&/..00,,/////&&&&&&*$MNNN&//////$. $&,.,//&&/....,,,//&&&&&&&$MNNN&///////,Q .Q&..///&&&/....,,,&&&&&&&&Q  MMNN&&/////,,$. (Q&.../&X/....,,,,/&&&&&&$MMNN&N&///////,,$. ($&../&&X/....,,,/&&&&&&&$MNNNN&&//////,,,,$. '$&./&&XXX...,,,/&&&&*&&$MMNNNN&&/////,,,,.. Q$&&&&//////////,,,,,,,,,. 'Q&&&,///,,,,,////&&&&&Q Q&&&&&/////////,,,,,,,,,. Q&&,.,///,,,//,,///&&&*Q 'Q&&&&/////////,,,,,,,,, $&,. ,,/////,,.,,//&&&&Q Q&&&&////$ *Q&./&&X/...,,,/&&&&&*&$MMNNNN&&/////,,,,,..'Q Q$&../&&/....,,,/&&&&*&QMNNNNN&&//////,,,,,..$' Q&.,,,//,,...,,/&&&&&&$MMNNNNN&&///////,,,,,..Q$ ////,,,,,,,,, $Q,. ',,////,,. ',,//&&&$ $&&&&///////,,,,,,,,, Q,. ',,,////,. ,,//&&'Q Q*&&&//////,,,,,,,,.. .$,.. ,,,///,. ',,//&&Q $&&&&//////,,,,,,..  $&.,,///,,,..,,,/&&&&&QMMNNNNN&&////////,,,,,,..$ Q,,&///,,,,,.,,//&&&&&*QMMNNNN&&////////,,,,,,,..Q. Q,,,&///,,,,,.,,//&&&&$ Q*MNNN&&/////////,,,,,,,..'Q  *$,.. ',,,///,. ,,//&$' Q&&&////////,,.... Q,,.. ',,////,. ',,//&Q. '$&&//////,,,..., '$,,.. ,,,////,. ,,//$*. Q&&//////,,...,,  $,,,&///,,,,,.,,//&&&&* 'QMNN&&//////////,,,,,,,...Q $,,,,&///,,,,,.,,/&&&&$ 8&&&&&//////////,,,,,,,...'Q $&&,,,,,//,,,,/////&&&* QM&&&&//////////,,,,,,,...$Q. '$&&,,,,,/ *$,,. ,,,////,. ',,/&*Q '$&/////...,,,, Q,,.. ',,,///,, '//&$*, $&/////..,,,,/ '$,,.. ,,,,///,. //&&$Q $/////.,,,,// /,,,,/////&&$ *&&&&&//////////,,,,,,,...$.Q Q&&,,,,,//.,,,,/////&&Q Q&&&&&&/////////,,,,,,,..... $&&//,,,,.,,,,,////&&&Q Q&&&&&//////////,,,,,,,,... $&&&///,,,,///////&&&&QQ,,.. ,,,,,///. '/&&&$*. $////.,,,,,/ '$,,..,,,,,,///, //&&*Q $///,,,,,// *$,,. ,,,,,///,. '/&&$*. $//.,,,,// 'Q,,. ,,,,,///,  ., /&&&$' $/..,,,,/ '$.. ',,,,///,.. /&&&$* 'Q...,,,, 1.., ,,,,////,,...&&&&$* $...,,,, '$., ',,,/////,,..,&&$^* ///,,,/&DM. @,,,,,,////,,/&D$1 'Q,,,,,////,,/&D$) Q,,,/////,,,,&DQ'  Q...,,, Q.,, ,,,,/////,,,..&&$1 .Q...,, $Q., ',,/////,,,..&&&$* Q...,, 'Q,,.,,,/////,,,.&&&&Q$ 8..,,  '$,,////,,,,,&D$' Q,,,,///,,,,,&DQ /Q 'Q,,,//,,,,,,&D$. Q..  Q,,. ,,,/////////,&&QQ '.,,, 'Q,,. ,,,///////,/&&1, $.,, '$,,. ,,,,/////,/&&11$ $.,  $,,,//,,,,,,&DDQ Q,,, 'Q,,///,,,,,,&D$* Q..,, 'Q,,,///,,,,,,&DQ. .$..,,  'Q,,. ,,,,,////,&&&1$Q 'Q. '$,,.',,,,////&/&&$$* Q. Q,,,,.,,,,,////&&&QQ '$  Q,,,,///,,,,,KD&$. Q$..,,,, 'Q,,,////,,,,KD/&&Q *&&,,,/// $,,,/////KKD&///'&$.Q&&&.....,/  '*,,.',,,,////&&&C$* $ Q,,,.,,,,,///,/&C11 ' 'Q,,,,,,,,///,/&D$' $,,,,,/ 'Q,,,//////&&&///&&&Q//,,,,,/// 'Q,,,,///////////&&&&$&&&&&&&&& '*,,,,///////////&&&$QQ$**$QQ* 1!  ,,,,///////////&&&&1 A$,,,&&/////////&&&$ Q&&&//////////&&&&Q A&&//////////&&&&Q XXX XXX 1 1 XXXXXXXXXXXX XXXX XXXXX XXX XXX 1 1 XXXX XX XXXX XXXXXXX XXX XXX 1 1 XXXX XX XXXX XXXXXXXXX XXX XXX 1 1 XXXX X* $&///////////&&&$' *&///////////&&&Q X XXXX XXXXX XXXXX XXX XXX 1 1 XXXXXXXXXXX XXXX XXXXX XXXXX XXXXXXXXXX 1 1 XXXXXXXXXXXX XXXX XXXXX XXXXX XXXXXXXXXX 1 1 XXXXX XX XXXX XXXXXXXXXXXXX XXX XXX MATRIX "',2A4,'"')"}"}>!}ݘ!DA.!~ >Y2 ~! " ~~!u*}!>*}!> !*}" ~* ~!> *}DM*}!>ё!"A~*A~+* ~"C~*}~#fo{ozg}=2E~*}~#fo"C~*}~#fo* ~{ozg}=2E~F~!uC~A~!>ё!"1 1 XXXXX XX XXXX XXXXXXXXXXXXX XXX XXX 1 1 XXXXX XX XXXX XXXXXXXXXXXXX XXX XXX 1 1 XXXXX XX XXXX XXX XXX XXX XXX 1 1 XXXXXXXXXXXXX XXXXXXXXXX XXX m~s~!u*A~"o~*o~+*}~#foͽ" ~*m~* ~))*}"q~*q~!> *o~#*C~{zё*m~#*}~#fo{z*A~* ~"A~*}~#fo{ozg}=2E~™Ë~~!uё~!r ~!>ё: ~! ~2E~¸~!uё~!r~!>ё~!uё~! XXX XXX XXX 1 1 XXXXXXXXXXXXX XXXXXXXXXX XXX XXX XXX XXX 1 1 1 1 1 ------------- --------------------------------------------------------------- 1 1 1 1 1 XXXXXXXXXXXX XXXX XXXXX-------------------------------------------------- 111111 111111 111111 111111 OOOOO 111111 OOOOOOOOOO 111111 "   /OOOOOOOOOOOOO 111111 "OOOOOOOOOOOOOOO 111111 OO"OOOOOOOOOOOOOOOOO 111111 ------OOOOOOOOOOO8 OOOOOOOOOOOOOOOO 888888 0000OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO  111111 "OOOOOOOOOOOOO" 111111 "OOOOOOO"OOOOOO"" 111111 "OOOOOOOO"OOO"OO"88" ------ "OOOOOOOO"OOO"OO"888 "OOOOOOOOO"OOO"OO"88888 "OOOOOOOOOO"OOO"OOO"88888 -"""" ----OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 888888-00000OOOOOOOOOOOOOOOOOOOOOOOO/OO-OOOOOOOO 88888"OOOOOOOOOOOOOOOOOOOOOOOOOOOO"888888888888 OOO"OOOOOOOOOOOOOOOOOOOOOOOOOOO"88888888888888 111"OOOOOOOOOOOOO "OOOOOOOOOOO"OOO"OOOO888888 "OOOOOOOOOOO"OOO"OOOOOO888888 "OOOOOOOOOOO"OOOO"OOOOO88888-" "OOOOOOOOO--OOOOO"OOOOOOOOO" "OOOOOOO"OOOOOOOO"OOOOOOOO" "OOOOOO"OOOOOOOOOOOOOOOOOOO"888888888888888 111"OOOOOOOOOOOOOOOOOOOOOOOOO"8888888888888888 1111"OOOOOOOOOOOOOOOOOOOOOOO"88888888888888888 11111"OOOOOOOOOOOOOOOOOOOOO"888888888888888888 111111"OOOOOOOOOOOOOOOOOOO"888888OO"OOOOOOOO" ""OOOOOO"-------"OOOOOOO" "OOOOOOOOOOOOOOOOOOO" "OOOOOOOOOOOOOOOOO" "OOOOOOOOO"OOOOOOOOO""""OOOO" """""-------"OOOO"""""" """"OOOOOOOOO888888888888 111111 """"""OOOOOOOOOOOO"88888888888888888 111111 "OOOOOOOO"88888888888888888 111111 "OOOOOO"8888888888888888 111111 "OOOOOO"888888888888888 1OO" "OOOOOOOOOOOOOOO" "OOOOOOOOOO" "OOOOOOOOOOOOOO" "OOOOOOOOO" "OOOOOOOOOOOOO" "OOOOOOOOO" "OOOOOOOOOOOO" "OOOOOOO" "OOOOOOOOOO" "OOOOO" 11111 "OOOO" "8888888888888 ------- "OOOO" 8888888888 /OOOOOOO" "OOOOO" 888888 /OOOOOOOO""" ""OOOOO 1OOOOOOOOOOOO""OOOOOOOOO" -------1"""""OOOOOOOOOOO"  "OOOOOOOO" "OOOOOOOOO" "OOOOOOOOOOOO" "OOOOOOO" "OOOOOOOOOO" "OOOOO" #   DISK.DOC -FOG/MIS.001 First Osborne Group (FOG) Miscellaneous Disk This disk contains several MBASIC programs. EPSON4 and ZLOVE were previously found on -FOG.005. BEEP, DEMO, and SINEWAVE were onprogram of interest. The quotation marks are required. PINUP, PINUP1, and SNOOPY.PIC were previously found on -FOG.005. They provide an interesting picture when printed. Place the .PIC files in drive A. At the A> prompt, type T -FOG.017. BANNER, BUNNY, and CALENDAR were received from the Northwest Osborne Users Clubs of the Washington/Oregon area. EPSON4 demonstrates operation of the Epson printer. ZLOVE provides an artistic display. (Also see LOVE on -FOG/GAM.010.YPE filename.PIC where filename represents the picture of interest. Make sure your printer is on. COPYRITE.DOC, previously found on -FOG.026, provides information regarding copyrights for software. This is a WordStar document mode file. Use Wo) BEEP and DEMO are similar Osborne 1 demonstration programs; the first uses the bell, which has been eliminated from the second. Wordcraft has given FOG written permission to distribute their copyrighted DEMO program. SINEWAVE provides an intrdStar to view or print it. Jim Woolley FOG Disk Librarian September, 1982 eresting visual display. BANNER will print oversize letters on your printer. BUNNY prints out the familiar Playboy monogram. CALENDAR lists a full calendar on the console; it must be modified to change the assumed year. (Also see MONTHS on -Fic an sculpture I als protect recorde audi an visua work suc a phonorecord an videotape an films. Neithe typ o protectio guarantee n on wil stea you effort an mor tha th polic departmen guarantee n on wil burgOG/APP.005.) To run these programs, place the .BAS files in drive B and your MBASIC disk in drive A. At the A> prompt, type B: At the B> prompt, type A:MBASIC At the Ok prompt, type RUN "filename" where filename represents the l you house Th la agains burglar an th la agains copyrigh infringement however giv th owne o th hous o th copy- righ kin o righ t recove fro th thief Bette chance too i th cas o softwar thie wh copie fo$   commercia purposes copyrigh wil no protec you fin ide fo bit-twiddlin - i wil protec you expressio o i - tha is n on ca cop you progra directl althoug the ca d som bit-twiddlin themselve t accomplis th sam you attorney' fee i h wa a intentiona infringer It coul b goo dea fo you i you progra i reall grea - an som tha hav see o th CBBS' ar great! I ca hel wit advic - bu no filin lawsuits- drop m not o thpurpos yo aime at Fo example n on ca copyrigh th ide o th pla "Rome an Juliette o pai o lover whos familie ar feuding Bu Rome an Juliett coul hav bee copyrighte b Willia Shakespear an anyon wh use hi li Mil Valle RBB (415-383-0473 o to th abov address don' practic la - writ abou it an copyrigh i on o th area writ about. ne i anothe pla abou th sam thin o simila thin woul hav infringe his copyright I tha clear O jus confusing Well Einstein' theory, MC* coul no b eithe patente (i i natura law) o copyrighte (i i a idea bu Albert' boo abou his theor coul be was an i copyrighted! I i come dow t protectin yo progra throug lawsuit, i i necessar t hav th notic an th registration The registratio i prim faci evidenc o th validit o your copyright An shoul yo succee i provin you copyright, th cour wil issu a injunctio agains copie withou permission wil ultimatel giv yo eithe hi profits your losse (shoul yo star sellin th progra yourself) and %  burgl you house Th la agains burglar an th la agains copyrigh infringement however giv th owne o th hous o th copy- righ kin o righ t recove fro th thief Bette chance too i th cas o softwar thie wh copie fo commercia purposes copyrigh wil no protec you fin ide fo bit-twiddlin - i wil protec you expressio o i - tha is n on ca cop you progra directl althoug the ca d som bit-twiddlin themselve t accomplis th sam purpos yo aime at Fo example n on ca copyrigh th ide o th pla "Rome an Juliette o pai o lover whos familie ar feuding Bu Rome an Juliett coul hav bee copyrighte b Willia Shakespear an anyon wh use hi line i anothe pla abou th sam thin o simila thin woul hav infringe his copyright I tha clear O jus confusing Well Einstein' theory, MC* coul no b eithe patente (i i natura law) o copyrighte (i i araphic an sculpture I als protect recorde audi an visua work suc a phonorecord an videotape an films. Neithe typ o protectio guarantee n on wil stea you effort an mor tha th polic departmen guarantee n on wil  idea bu Albert' boo abou his theor coul be was an i copyrighted! I i come dow t protectin yo progra throug lawsuit, i i necessar t hav th notic an th registration The registratio i prim faci evidenc o th valid&  it o your copyright An shoul yo succee i provin you copyright, th cour wil issu a injunctio agains copie withou permission wil ultimatel giv yo eithe hi profits your losse (shoul yo star sellin th progra yourself) EIGENVECTORS ARE STORED AS A MODAL MATRIX CONSISTING OF AN EIGENVECTOR IN THE COLUMN OF THE MATRIX WHICH CORRESPONDS TO THE EIGENVALUE IN THE SAME COLUMN OF THE EIGENVALUE ROW VECTOR ABOVE IT. THE EIGENVECTORS ARE SCALED SO THAT REAL ONES HAVE THE  and you attorney' fee i h wa a intentiona infringer It coul b goo dea fo you i you progra i reall grea - an som tha hav see o th CBBS' ar great! I ca hel wit advic - bu no filin lawsuits- drop m not LARGES ELEMENT VALUED BETWEEN .75 AND 1.25 -- COMPLEX EIGENVECTORS HAVE THEIR LARGEST REAL PART EQUAL TO 1.0 AND THE CORRESPONDING IMAGINARY ELEMENT EQUAL TO ZERO. THE TWO PROGRAMS CAN BE USED TOGETHER (THAT IS FILES ARE COMPATABLE) TO PERFORM SOo th Mil Valle RBB (415-383-0473 o to th abov address don' practic la - writ abou it an copyrigh i on o th area writ about. PHISTICATED OPERATIONS. FOR EXAMPLE, THE MODAL MATRIX FROM EIGEN.COM CAN BE MANIPULATED WITH THE COMPLEX MULTIPLICATION ROUTINE FROM MCALC TO DIAGONALIZE A SQUARE MATRIX. ALSO, YOU CAN ALWAYS CHECK RESULTS LIKE AFTER AN INVERSION YOU MAY MULTIPLY TOF THE MATRIX SEPARATELY. DEFAULTS FOR ALL QUESTIONS ARE EITHER THE LOGGED DRIVE, A VALUE OF ZERO, OR NO -- THE USUAL RESPONSE TO QUESTIONS THEREFORE IS A CARRIAGE RETURN IF YOU HAVE ALREADY SAVED THE MATRIX IN QUESTION ONCE AND DO NOT WITH TO EDIT HE ORIGINAL MATRIX BY ITS INVERSE TO SEE IF YOU GET AN IDENTITY MATRIX (IF YOU DON'T IT'S YOUR FAULT, NOT THE PROGRAM'S). QUESTIONS, OR BUGS (IMPOSSIBLE) CONTACT: SCOTT BUETHE AERONAUTICAL RESEARCH ENGINEER/PILOT C/O F.O.G. I WILL PROBABLY BE ATTHE MATRIX. EIGEN.COM SIMPLY ASKS FOR A SQUARE MATRIX THAT IS REAL, GENERAL, AND UP TO 20 BY 20 IN DIMENSION. THE PROGRAM THEN DETERMINES THE EIGENVALUES AND EIGENVECTORS OF THE MATRIX. AGAIN THE MATRICES ARE IN REAL AND IMAGINARY PARTS. THE NASA AMES RESEARCH CENTER OR PURDUE UNIVERSITY IN WEST LAFAYETTE, IN I SHOULD SELL THESE PROGRAMS FOR HUNDREDS OF DOLLARS BUT I'M JUST SUCH A NICE GUY THAT YOU CAN GIVE IT TO YOUR FRIENDS. I FIGURE THAT IF YOU WENT TO SCHOOL LONG ENOUGH TO LEARN '  THIS MATH BULLSHIT, YOU DESERVE A BREAK. THE METHODS USED ARE TOO SOPHISTICATED TO DISCUSS HERE BUT YOU CAN BE ASSURED THEY ARE AMONG THE BEST AVAILABLE. PRECISION IS TO SEVEN SIGNIFICANT DECIMAL DIGITS FOR MOST OPERATIONS EXCEPT INVERSIONS, ETC. WHICH ARE CALCULATED WITH SEVENTEEN SIGNIFICANT DIGITS. INDICATION OF AN OVERFLOW IS **OV** IF THIS HAPPENS, JUST SCALE IT DOWN. BY THE WAY, THE INVERSION OF A 30 BY 30 TAKES ABOUT 4 1/2 MINUTES.