2, 53, 214, 52, 2/<X 79, 230, 196, 141, 10, 231, 196, 230/eb 65, 141, 4, 231, 65, 53, 130, 142/l 0, 8, 88, 73, 161, 98, 37, 3/v 160, 98, 92, 48, 31, 38, 243, 57/ 0, 140, 0, 10, 255, 0, 255, 00(I$)710,1160,1440,100,140,19;:#2,64);:#2,P4$;AIJN#2,5)"Earnings per share";:#2,24);:#2,P4$;L;:#2,45)"Oper. expense ratio";:#2,64);:#2,P3$;AJJX#2,5)"Equity turnover";:#2,24);:#2,P2$;N;:#2,45)"Debt ratio";:#2,64);:#2,P3$;AKJb#2:#2K)l:"DO YOU WANT ANOTHER COPY ? (Y/N)";K:v44539:I$KKI$"Y"600KfXX116:#2::1550K@485,"ARE YOU SURE? (Y/N)";K44539:I$KI$"Y":K600K@483,"PRESS TO CONTINUE";KI$:I$(13)1990: $(A$))2):#2,ZZ)A$A9@#2,29)"For the Period Ending"A^JZZ((80(B$))2):#2,ZZ)B$AT#2:#2,25)C$:#2:#2:#2A^#2,30)"BALANCE SHEET DATA:":#2Bh#2,5)"Quick assets";:#2,24);:#2,P1$;BB;:#2,45)"Total liabilities";:#2,64);:#2,P1$;XB|r#2,5)"Current assets";:#2,24);:#2,P1$;R;:#2,45)"Owner's equity";:#2,64);:#2,P1$;PB|#2,5)"Total assets";:#2,24);:#2,P1$;BE;:#2,45)"Long term debts";:#2,64);:#2,P1$;WCV#2,5)"Accounts receivable";:#2,24);:#2,P1$;BC;:#2,45)"Shares outstanding";:#2,64);:#2,P1$;ZC#2,5)"Current liabilities";:#2,24);:#2,P1$;VC#2:#2:#2,29)"INCOME STATEMENT DATA:":#2D-#2,5)"Total income";:#2,24);:#2,P1$;M;:#2,45)"Operating profit";:#2,64);:#2,P1$;SD#2,5)"Net sales";:#2,24);:#2,P1$;T;:#2,45)"Total taxes";:#2,64);:#2,P1$;UD#2,5)"Operating expenses";:#2,24);:#2,P1$;BD;:#2,45)"Net income";:#2,64);:#2,P1$;OE)‡#2,5)"Depreciation";:#2,24);:#2,P1$;YEṠ#2:#2:#2,34)"OTHER DATA:":#2Eև#2,5)"Dividends paid";:#2,24);:#2,P1$;Q;:#2,45)"Market price/share";:#2,64);:#2,P4$;BAE#2: #2:#2,33)"ANALYSIS DATA:":#2F[#2,5)"Return on equity";:#2,24);:#2,P2$;A;:#2,45)"Net profit margin";:#2,64);:#2,P2$;HF#2,5)"Retention rate";:#2,24);:#2,P2$;B;:#2,45)"Equity-to-debt";:#2,64);:#2,P3$;AAG#2,5)"Reinvestment rate";:#2,24);:#2,P2$;C;:#2,45)"Capital contribution:"G#2,5)"Return on assets";:#2,24);:#2,P2$;D;:#2,47)"Creditor's equity";:#2,64);:#2,P2$;ACG#2,5)"Oper. profit margin";:#2,24);:#2,P2$;E;:#2,47)"Owner's equity";:#2,64);:#2,P2$;ADHh#2,5)"Pretax prof. margin";:#2,24);:#2,P2$;F;:#2,45)"Dividend yield";:#2,64);:#2,P2$;AEH,5)"Tax rate";:#2,24);:#2,P2$;G;:#2,45)"Price-earning ratio";:#2,64);:#2,P3$;AFI90#2,5)"Current ratio";:#2,24);:#2,P3$;I;:#2,45)"Acid-test ratio";:#2,64);:#2,P3$;AGI:#2,5)"Capital structure";:#2,24);:#2,P1$;J;:#2,45)"Acc. rec. turnover";:#2,64);:#2,"#### TIMES";AHJD#2,5)"Cash flow";:#2,24);:#2,P1$;K;:#2,45)"Book value/share"###.##:1";AG8w$:">>PERCENT OF ASSETS THAT CAN BE QUICKLY CONVERTED TO CASH, OVER CURRENT LIABILITIES.":19808.::"ACCOUNTS RECEIVABLE TURNOVER IS ######.##";AH88:">>INDICATES HOW LONG IT TAKES TO COLLECT DEBTS.":19809%B::"BOOK VALUE PER SHARE IS $####.##";AI9uL:">>PRICE PER SHARE OF COMMON STOCK IN THE COMPANIES BOOKS.":19809V::"OPERATING EXPENSE RATIO IS ###.##:1";AJ9`:">>PERCENT OF OPERATING EXPENSES, BASED ON NET SALES.":1980:j::"DEBT RATIO IS ######.##:1";AK:t:">>PERCENTAGE OF ASSETS FINANCED THROUGH BORROWING.":@484,"PRESS TO RETURN";:1990:~600::"1ST SET:":: "RETURN ON EQUITY ####.##%";A:"RETENTION RATE ####.##%";B;"REINVESTMENT RATE ####.##%";C;;"RETURN ON ASSETS ####.##%";D;b"OPER PROFIT MARGIN ####.##%";E;"PRETAX PROF MARGIN ####.##%";F;ć"TAX RATE ####.##%";G;·"CURRENT RATIO ####.##:1";I<؇"CAPITAL STRUCTURE $#########";J<*"EARNINGS PER SHARE $######.##";L!d"BOOK VALUE / SHARE $######.##";AI>Jn"OPER EXP RATIO ####.##:1";AJ>sx"DEBT RATIO ####.##:1";AK>@484,"PRESS TO RETURN";>1990>600>:"ENTER HEADING INFORMATION.":>"CO. OR CORP. NAME": ">";A$?$"DATE ON THE FINANCIAL REPORT": ">";B$??:@41,"** WARNING **"?ȇ"BE SURE THAT THE PRINTER IS ON, THE PAPER IS INSERTED CORRECTLY AND THE CABLES ARE PLUGGED IN!!"?P1$"$#########":P2$"######.##%":P3$"#####.##:1":P4$"$######.##"@܇@486,"PRESS TO GO";:1990@O@457, "ARE YOU SURE ?":@486," (N)O OR (G)O ";@`44539:I$@pI$"N"600@I$"G"1520@:"PRINTING..."@C$(30,"-")@"#2:#2,25)C$:#2@,#2,26)"FINANCIAL STATEMENT ANALYSIS"A6ZZ((80130,(28,"-")/-b:" (1) DETAILED DISPLAY"/Hl" (2) CHART DISPLAY"/fv" (3) SEND TO PRINTER "/" (4) ENTER NEW DATA"/" (5) CHANGE DATA"/" (6) QUIT"/44539:I$/(I$)1(I$)66700(I$)710,1160,1440,100,140,19400 60005ƞ::"RETURN ON EQUITY IS ###.##%";A0rЇ:">>MEASURES THE ABILITY TO EARN AN INCOME.":19800ڞ::"RETENTION RATE IS ###.##%";B0:">>THE PERCENTAGE OF EARNINGS RETAINED BY THE COMPANY.":19801::"REINVESTMENT RATE IS ###.##%";C1l:">>THE RATE OF RETURN FROM REINVESTING THE RETAINED EARNINGS.":19801::"RETURN ON TOTAL ASSETS IS ###.##%";D2 :">>MEASURES MANAGEMENTS ABILITY TO EARN A PROFIT ON THE TOTAL ASSETS EMPLOYED.":19802?::"OPERATING PROFIT MARGIN IS ###.##%";E2 :">>MARGIN OF PROFIT BEFORE TAXES, BASED ON NET SALES.":19802*::"PRETAX PROFIT MARGIN IS ###.##%";F24:">>MARGIN OF PROFIT BEFORE TAXES, BASED ON TOTAL INCOME.":19803>::"TAX RATE IS ###.##%";G3IH:">>RATE OF TAXES ON INCOME.":19803rR::"CURRENT RATIO IS ####.##:1";I3\:">>PERCENT OF CURRENT ASSETS TO CURRENT LIABILITIES.":19803f::"CAPITAL STRUCTURE IS $#########";J4Ep:">>THE SUM OF OWNER EQUITY OR STOCKHOLDERS EQUITY AND LONG- TERM DEBTS.":19804kz::"CASH FLOW IS $#########";K4:">>THE SUM OF NET PROFIT AND DEPRECIATION.":19804::"EARNINGS PER SHARE IS $#####.##";L5:">>PROFIT PER SHARE OF COMMON STOCK.":19805:::"EQUITY TURNOVER #####.##%";N5i:">>TIMES EQUITY IS TURNED OVER.":19805::"NET PROFIT MARGIN IS ###.##%";H5:">>PERCENT OF PROFIT EARNED, BASED ON NET SALES.":19806ʞ::"EQUITY TO DEBT IS ###.##:1";AA6Mԇ:">>SHOWS THE EQUITY COMPARED TO THE TOTAL LIABILITIES.":19806ޞ::" CAPITAL CONTRIBUTIONS:"::"CREDITORS EQUITY IS ###.##%";AC:"OWNERS EQUITY IS ###.##%";AD6:">>PERCENT OF TOTAL EQUITIES TO EACH.":19807::"DIVIDEND YIELD IS ###.##%";AE7h:">>RATE EARNED BY STOCKHOLDERS, BASED ON CURRENT MARKET RATE.":19807::"PRICE-EARNINGS RATIO IS####.##:1";AF7:">>SHOWS THE PRICE PER SHARE COMPARED TO EARNINGS.":19808 ::"ACID-TEST RATIO IS %& :FINSTANL 1.1&4:BRUCE S. LYON 11/11/1984&?300:&S(@34,(28,"-")&{2@98,"FINANCIAL STATEMENT ANALYSIS"&<@169,"BRUCE S. LYON"&F@226,(28,"-")'$P@294,"YOU WILL NEED A COPY OF FINANCIAL REPORTS INCLUDING THE BALANCE SHEET AND THE INCOME STATEMENT."'/Z1980'Xd:"ENTER THE FOLLOWING INFORMATION"'enXX118'xXX 400,410,420,430,440,450,460,470,480,490,500,510,520,530,540,550,560,570'XX':"1ST SET:":"(1)TOTAL ASSETS $";BE("(2)OPERATING EXPENSE $";BD(/"(3)TOTAL INCOME $";M(O"(4)NET INCOME $";O("(5)TOTAL STOCKHOLDERS EQUITY $";P("(6)DIVIDENDS PAID $";Q(ȇ"(7)TOTAL CUR. ASSETS $";R(҇"(8)OPERATING PROFIT $";S)܇"(9)NET SALES $";T)7:" >>CORRECT ANY INPUT? (1-9/NO)")T44539:I$:I$"N"270) (I$)400,410,420,430,440,450,460,470,480 )140):"2ND SET:":"(1)TOTAL TAXES $";U)"(2)TOTAL CURRENT LIA.$";V)""(3)LONG TERM DEBTS $";W*,"(4)TOTAL LIABILITIES $";X*?6"(5)DEPRECIATION $";Y*_@"(6)SHARES OUTSTAND. $";Z*J"(7)MARKET PRICE $";BA*T"(8)QUICK ASSETS $";BB*^"(9)ACC. RECEIVABLE $";BC*h:" >>CORRECT ANY INPUT? (1-9/NO)"+r44539:I$:I$"N"580+8|(I$)490,500,510,520,530,540,550,560,570+B270+]:"TOTAL ASSETS";BE:+~:"OPERATING EXPENSES";BD:+:"TOTAL INCOME";M:+:"NET INCOME";O:+:"TOTAL STOCKHOLDERS":" EQUITY";P:+‡:"DIVIDENDS PAID";Q:,!̇:"TOTAL CURRENT ASSETS";R:,Uև:"ORERATING PROFIT":" (BEFORE TAXES) ";S:,l:"NET SALES";T:,:"TOTAL TAXES":" (FED, STATE & LOCAL) ";U:,:"TOTAL CURRENT LIABILITIES";V:,:"LONG TERM DEBT";W:-:"TOTAL LIABILITIES";X:-:"DEPRECIATION";Y:-M:"NUMBER OF SHARES":" OUTSTANDING";Z:-&:"MARKET PRICE PER SHARE":" (COMMON) ";BA:-0:"TOTAL QUICK ASSETS":" (CASH, NOTES, ECT.) ";BB:-::"ACCOUNTS RECEIVABLE";BC:.\DAOP100:B(OQ)O100:C(AB)100:DOR100:EST100:FSM100:GUS100:IRV:JWP:KOY:LOZ:NTP100:HOT100.NAAPX:ABPX:ACXAB100:ADPAB100:AEQZBA100:AFBAL:AGBBV:AHTBC:AIPZ:AJBDT:AKXBE/ X:@2,(28,"-"):@66,"FINANCIAL STATEMENT ANALYSIS":@ &200,32199&* I 32200 32667 &2 X&< I,X&D( I&O232200&w< 79, 95, 206, 1, 32, 166, 196, 39&F 6, 235, 196, 51, 74, 32, 246, 202&P 128, 247, 125, 250, 134, 1, 167, 196&Z 142, 125, 243, 175, 65, 142, 125, 249'"d 175, 67, 111, 74, 142, 0, 10, 191'Ln 127, 154, 57, 65, 85, 84, 207, 126'xx 1, 128, 226, 142, 125, 247, 126, 173' 212, 38, 10, 141, 94, 243, 127, 154' 190, 127, 154, 32, 46, 129, 44, 38' 18, 141, 80, 52, 6, 189, 178, 109( 189, 183, 61, 53, 6, 52, 16, 227(G 225, 32, 24, 189, 183, 61, 52, 16(o 157, 165, 38, 7, 53, 6, 190, 127( 154, 32, 8, 189, 178, 109, 189, 183(Ȇ 61, 53, 6, 16, 131, 249, 255, 35(҆ 2, 32, 68, 253, 127, 152, 48, 31)܆ 140, 249, 255, 37, 5, 142, 126, 183)> 32, 56, 48, 1, 191, 127, 154, 134)j 126, 183, 1, 130, 142, 126, 205, 191) 1, 131, 57, 174, 159, 0, 25, 39) 22, 158, 27, 48, 30, 52, 16, 236) 130, 16, 163, 228, 39, 4, 156, 25*  34, 245, 50, 98, 236, 2, 57, 79*3" 95, 57, 140, 249, 255, 35, 69, 142*^, 126, 166, 134, 57, 183, 1, 130, 214*6 137, 197, 31, 39, 5, 134, 13, 189*@ 162, 130, 166, 128, 39, 5, 189, 162*J 130, 32, 247, 126, 172, 118, 66, 65+T 68, 32, 76, 73, 78, 69, 32, 78+(^ 85, 77, 66, 69, 82, 13, 0, 66+Nh 65, 68, 32, 73, 78, 67, 82, 69+tr 77, 69, 78, 84, 32, 86, 65, 76+| 85, 69, 13, 0, 57, 150, 104, 76+ 39, 1, 57, 190, 127, 152, 141, 170+ 31, 16, 141, 115, 243, 127, 154, 37, 166, 253, 127, 152, 142, 2, 221, 166,G 160, 39, 7, 167, 128, 189, 162, 130,s 32, 245, 134, 32, 167, 128, 189, 162, 130, 95, 189, 161, 118, 132, 127, 129,† 13, 39, 64, 129, 8, 39, 24, 129,̆ 21, 39, 31, 129, 3, 39, 42, 129-ֆ 31, 35, 231, 193, 245, 34, 227, 189-D 162, 130, 167, 128, 92, 32, 219, 93-n 39, 216, 189, 162, 130, 90, 48, 31- 32, 208, 93, 39, 205, 134, 8, 189- 162, 130, 48, 31, 90, 38, 248, 32- 193, 134, 57, 183, 1, 130, 134, 13. 126, 162, 130, 50, 98, 189, 162, 130.? 79, 167, 132, 142, 2, 220, 57, 52.g& 86, 206, 1, 218, 16, 142, 1, 217.0 111, 164, 237, 196, 166, 65, 167, 66.: 134, 10, 141, 18, 61, 80, 235, 66.D 203, 48, 231, 162, 109, 65, 38, 236/N 109, 196, 38, 23n&<d * MOSAIC * TRS-80 EXTENDED COLOR BASIC 16K / RAMELLA&sn 256: 1,1: : 2,1: 1: @ 234,"M O S A I C"&xU$(94): D$(10): L$(8): R$(9): V3& 1,1: A0 192 24&(A,0)(A,192),: (0,A)(192,A),: ' Y3 175 24: X3 175 24': X27 Y27 X147 Y147 180'w(X,Y),(2)2,2: NN1: N3 VV1: V4 V3: M0' X,Y: X9: Y9'A$' 2,(X,Y): (X,Y)(X6,Y6),,BF'ҁ 380: (X,Y)(X6,Y6),,BF: 380(܅ A$"" 190 : A$"N" Y9 YY24(L A$"S" Y177 YY24 : A$"W" X9 XX24(j A$"E" X177 XX24( (X,Y)5 ("NEWS",A$)0 190( A$U$ Y51 A$D$ Y129 A$L$ X51 A$R$ X129 190)" Y249 300 : N1(X,Y24): Y489 300 : N2(X,Y48))h, Y24153 310 : S1(X,Y24): Y48177 310 : S2(X,Y48))6 X249 320 : W1(X24,Y): X489 320 : W2(X48,Y))@ X24153 330 : E1(X24,Y): X48177 330 : E2(X48,Y)*TJL(X,Y): A$U$ N15 N25 (X,Y),5,2: YY48: (X,Y),L,2: (X,Y24),5,2: 190*T A$D$ S15 S25 (X,Y),5,2: YY48: (X,Y),L,2: (X,Y24),5,2: 190*^ A$L$ W15 W25 (X,Y),5,2: XX48: (X,Y),L,2: (X24,Y),5,2: 190+Eh A$R$ E15 E25 (X,Y),5,2: XX48: (X,Y),L,2: (X24,Y),5,2+Pr 190+g| T1 10: T: +mD2I2D2N2+"DO YOU WISH SUM(ENTER S),OR DIFFERENCE(ENTER D)";A$+"A$"S" A3A1A2:320+,A$"D" A3(A1A2):320,!6"INVAL|&<d * GRADEMAKER * TRS-80 EXTENDED COLOR BASIC / RAMELLA&cn: 200: 1: 4,1: 0,1: 1,1&xU$(94): D$(10): L$(8): R$(9)& Y4 189 37: X4 189 37: (X,Y,0): X,Y& X4 189 37: (X,3,0): (X,190,0): '. Y4 189 37: (3,Y,0): (190,Y,0): : X4: Y4'8A$'o A$U$ Y4 YY37 : A$D$ Y189 YY37' A$L$ X4 XX37 : A$R$ X189 XX37'(X,Y): T1 10: T: (X,Y,0): A$(13) 200 : 160'A$(2҅ (X1,Y)0 (X1,Y)0 (X,Y1)0 (X,Y1)0 270(n܅ (X,Y1)5 Y4 A$U$ (X,Y)(X,Y37),: YY37( (X,Y1)5 Y189 A$D$ (X,Y)(X,Y37),: YY37( (X1,Y)5 X4 A$L$ (X,Y)(X37,Y),: XX37)& (X1,Y)5 X189 A$R$ (X,Y)(X37,Y),: XX37)1 200)Z Y22 170 37: X22 170 37) (X,Y18)0 (X,Y)(X,Y10),: 420)" (X,Y19)0 (X,Y)(X,Y10),: 420), (X18,Y)0 (X,Y)(X10,Y),: 420*6 (X19,Y)0 (X,Y)(X10,Y),: 420* @ X,Y*AJR((S42)10): R1 R1*rTZ$"BM220,50;": R1 B$"U15R10L10U10R20"*^ R2 B$"U25R10F7D12G7L10"*h R3 B$"F7R10E7G7L10H7U20E7R10F7"*r R4 B$"R10E5U7H5L10R10E5U7H5L10D33"+| R5 B$"U15R15L15E2U5E2U5R7D5F2D5F2D15"+' Z$B$+M S92 "BM245,30;U5D10U5L5R10"+X 410+{SS1: (13)(13),1: : "DO YOU WISH SUM(ENTER S),OR DIFFERENCE(ENTER D)";A$+"A$"S" A3A1A2:320+,A$"D" A3(A1A2):320,!6"INVAL%+TITLE BAS"^GRIDSKIDBAS#VMOSAIC BAS qGRADEMKRBAS!DESIGN BAS$FINSTANLBASAUTONUM BASJBPOWER BAS&SYMMETRYBAS'NSAMPLE BAS(DSKJCKETBAS)STRNGARTBAS*[& 200,15000:&'B$""&:X1500015103&R(OP$:N("&H"OP$)&c2X,N:SSN:&<@72,"HOT COCO MAGAZINE "&F@139,"PRESENTS"&P:&Z 4)(130)(131)" "(129)(135)'d 4)(136)(140)" N S T A N T "(132)(140)" O C O"'4i@329," AUGUST 1985"'An@426,B$'vx15000:X1130::A$: A$(13) 140:120' 120':@65, " SPECIFIC INSTRUCTIONS FOR PROGRAMS APPEAR IN HOT COCO "(@162,"* cload FOR BASIC PROGRAMS * * cloadm FOR ML PROGRAMS *"(\@258,"*ALL PROGRAMS COPYRIGHT 1985* * HOT COCO MAGAZINE *"(@357,"** CW COMMUNICATIONS **"(@390,"* PETERBOROUGH, NH *"(@458,B$(15000: X1130::A$: A$(13) 200 :170( 170)V 31,8D,00,5F,1F,21,E6,8D,00,5D,3A,1F,12,8E,04,00,A6,A0,A7,80,8D,44,8C,04,20,26,F5,8E,04,3F,A6,A0)jȞ:113,0:40999)҆ A7,00,8D,36,30,88,20,8C,05,FF,26,F2,8E,06,00,A6,A0,A7,82,8D,25,8C,05,E0,26,F5,8E,05,C0,A6,A0,A7,00*?܆ 30,88,E0,8D,14,8C,04,00,26,F2,A6,8D,00,18,4C,81,04,26,01,4F,A7,8D,00,0E,39,81,BF,26,04,31,8D,00,01,39*Q 9F,AF,CF,BF*Z 002D112F2I2D1:A1F112D1I1D1N1:280* 220,230 GENERATE COMMON DENOMINATOR*D1D2 270 :ISOLATES CASE 3+D1D2 D2D22:N2N22:S&:d * GRIDSKID * TRS-80 EXTENDED COLOR BASIC / RAMELLA&nn 1,1: 3,0: 1: 1,1: D(8,8): P200: Q10&x X1 8: Y1 8: D(X,Y)0: Y,X& Y0 175 25: X0 175 25&(X,Y)(X10,Y10),,B: X,Y: X25: Y150'D(2,7)1: D(3,7)1: A2: B7'K 2,0: (50,150)(60,160),,BF: "BM195,160;R12": 3,0'cA$: W63 240'(X2,Y2)(X8,Y8),,BF: T1 40: T: (X2,Y2)(X8,Y8),,B' A$(94) B1 BB1: M1: (X5,Y1)(X5,Y15),: YY25: 260(Dȅ A$(9) A8 AA1: M2: (X11,Y5)(X25,Y5),: XX25: 260(҅ A$(10) B8 BB1: M3: (X5,Y11)(X5,Y25),: YY25: 260(܅ A$(8) A1 AA1: M4: (X1,Y5)(X15,Y5),: XX25: 260) MMM 280: 170 : 170)M W63 A3 B7 223,122: "T16;O3"("CDEFGAB",(7),1): 240) W63 (X,Y)(X10,Y10),: (X10,Y)(X,Y10),: 1,20: 250)(X,Y)(X10,Y10),,BF: 3,0: A0 )WW1: D(A,B)1 240 : D(A,B)1: *FMMM: (P,Q),5: (P,Q),4,3: "T64;CABBAGE CABBAGE": QQ10: Q185 PP10: Q10*L"*R, 002D112F2I2D1:A1F112D1I1D1N1:280* 220,230 GENERATE COMMON DENOMINATOR*D1D2 270 :ISOLATES CASE 3+D1D2 D2D22:N2N22: & &;"WELCOME TO THE WORLD OF":"COMPUTER GRAPHICS"&S"PRESS (1) OR (2)"&](A(9)&x2 A(9)1 A(9)2 40&~<&F A(9) 90,560&P 30&Z: FIRST DESIGNMAKER&d"STEP(2-30**LOWER THE BETTER**)";A&n A2 A30 100'x"0-256";B' B0 B256 120'+"0-192";C'C C0 C192 140'R"0-192";D'j D0 D192 160'}"MODE(0-4)";E' E0 E4 180'ȉ"SCREEN(0 OR 1)";F'҅ F0 F1 200'܉"OVERLAP 192-FULL 96-1/2 DESIGN";K( K1 K192 220("LINES";I$:"CIRCLES";J$(D"JUST LINES HARDCOPY (Y/N)";YN$(d YN$"Y" YN$"N" 250( YN$"Y" #2,(18)( E,1("(, 1,F(6 Y1 K A(@B$(JSS1(TR192Y(^ S2(S2) TY : TR(h J$"Y" 390) r(B,T),C)|(B,Y),D)- I$"Y" 460)A YN$"N" 420)n#2,"M";256",";192D:#2,"D";B","192T)(256,D)(B,T),) YN$"N" 450)#2,"M";0",";192C:#2,"D";B","192T)»(0,C)(B,T),)̅ B$(32) 490)֋ Y)FF1*A$* A$(13) 100*: FF1 A$(32) 470*P A$(12) 550*g A$"H" 1220*r 490*}&FF0:*0: SECOND DESIGNMAKER*:"STEP(2-30**LOWER THE BETTER**)";A*D A2 A30 570*N"0-256";B*X B0 B256 590+ b"0-256";Q+$l Q0 Q256 610+3v"0-192";C+K C0 C192 630+Z"0-192";D+r D0 D192 650+"MODE(0-4)";E+ E0 E4 670+"SCREEN(0 OR 1)";F+ F0 F1 690+ډ"0-256";Z+ Z0 Z256 730,"OVERLAP 192-FULL 96-1/2 DESIGN";K,2 K1 K192 750,v"STARTING POSITION LESS THAN":"OVERLAP (LESSER THE BETTER";GH, GHK GH0 770,"ENDING POSITION MUST BE":"> OR = TO OVERLAP AND LESS":"THAN 193";DD, DDK DD192 790- *"FLASHING(Y/N)";N$-&4"PERMANENT(Y/N)";R$-N>"LINES(Y/N)";I$:"CIRCLES(Y/N)";J$-sH"JUST LINES HARDCOPY (Y/N)";YN$-R YN$"Y" YN$"N" 840-\ YN$"Y" #2,(18)-f E,1-p-z 1,F- YGH K A-B$-SS1-RDDY. S2(S2) TY : TR.A Z256 Z0 R256 R0 1120.Z T256 T0 1120.oʅ I$"Y" 1040.ԅ YN$"N" 1000.އ#2,"M";B",";192T:#2,"D";Z",";192C.(Z,C)(B,T),. YN$"N" 1030/#2,"M";R",";192D:#2,"D";Q",";192T/(R,D)(Q,T),/, J$"Y" 1060/B(B,T),C:(Q,R),D/Y$ B$(32) 1180/m. N$"N" 1100/8(Z,C)(B,T),/B(R,D)(Q,T),/L T1 T256 1120/V T,1/` Y/jA$/t Y192 A$(32) 1190/~ A$(13) 5600 A$(12) 12100+ A$"H" 122007 11300K R$"Y" 11200W 10800]0mć#2,(18)0}Ň#2,"M0,0"0΀ ZY0 1920؇#2,"R0,-1"0 ZX0 2560 (ZX,ZY)5 13200#2,"R1,0"00 #2,"R-257,0"001(#2,"J1,0"12 1280cM"SPDCOMP":(h&H986,0(r&H985,0(|&HFF40,0((8( 200)30) 3)@195,A$;)'‡@197,"IS";)8̇@200,"NOT";)Gև@204,"A";)Z@206,"VALID";)q@212,"SELECTION";)@261,"PRESS";)@267& ** JOHN-B SYSTEM PROJECT&;** POWER CONTROLLER &Y** GENERAL USE SOFTWARE&z** (C) 1984, J.F.S./J.J.B.&** NAME: JBPOWER&** V 1.0, 11 AUG 84& 0: 0: 1: 500,16000: A(22): Z(21)'MA16000:MA1: 2000:BL$(32,32):BR$(32,128)':" JOHN-B SYSTEM PROJECT":" POWER CONTROLLER SOFTWARE": BR$:@448,BR$;:@484,"(C) 1984, J.F.S., J.J.B.";:@160,;'("TYPE HOUSE CODE (A - P)...";'2A$: A$""50 : T(A$)64: T1 T16 50( TO CONTINUE"*- 7);"HIT FOR MENU"*O:*** GET THE MENU CHOICE ****h@PP,"YOUR CHOICE?";*p C0*!@PL,(14316C);*" DL1 100*#HH$: HH$"0" DL : (HH$)48 40,56,72,93,114: 35*$CC1: C8 C0*%33+&:*** TWO LINES OPTION ***+8':*** GET FIRST LINE ***+v( 5:X1(247)5:X2(247)5:L1(X1X2): (L1)10 40+)Y1(183)5:Y2(183)5+*(X1,Y1)(X2,Y2),++:*** GET SECOND LINE ***,,U1(247)5:U2(247)5:L2(U1U2): (L2)10 44,!-V1(183)5:V2(183)5,8.(U1,V1)(U2,V2),,X/:*** GET NUMBER OF STRINGS,m0: TO USE ***,}1N(20)10,2I1L1N:I2L2N,3S1X2,4S2U2,5M1(Y1Y2)(X1X2):M2(V1V2)(U1U2),6 1,1: 4,7:*** ELLIPSES OPTION ***-8 5-9:*** ESTABLISH PI (P)-?:: CHOOSE LENGTH FOR TWO-a;: AXES OF THE ELLIPSE ***-:*** CHOOSE NUMBER OF NODES-?: AROUND ELLIPSE ***-@N(20)5-A:*** DRAW THE STRINGS FOR.B: THE ELLIPSES OPTION ***.C I1 N1: JI1 N:(R(IPN)128,S(IPN)96)(R(JPN)128,S(JPN)96),: J,I.D:*** HIT CLEAR FOR ANOTHER.E: HIT ENTER FOR MENU ***.FHH$: HH$"" 70 : HH$(13) 21 : 56/G:*** RECTANGLES 1 OPTION ***/#H/@I:*** DRAW RECTANGLE ***/^JXD(50)74:YD(50)44/K(128XD,96YD)(128XD,96YD),,B/L:*** CHOOSE NUMBER OF /M: STRINGS ***/NN(15)10/OIXXDN:IYYDN/P 1,10Q:*** DRAW THE STRINGS FOR0&R: RECTANGLES 1 OPTION ***06S I1 N10bT(128IIX,96YD)(128XD,96IIYYD),0U(128IIX,96YD)(128XD,96IIYYD),0V(128IIX,96YD)(128XD,96IIYYD),0W(128IIX,96YD)(128XD,96IIYYD),0X I1Y:*** HIT CLEAR FOR ANOTHER1/Z: HIT ENTER FOR MENU ***1c[HH$: HH$"" 91 : HH$(13) 21 : 721\:*** RECTANGLES 2 OPTION ***1]1^:*** DRAW RECTANGLE ***1_XD(50)74:YD(50)441`(128XD,96YD)(128XD,96YD),,B2a:*** CHOOSE NUMBER OF2&b: STRINGS TO DRAW ***26cN(15)102NdIX2XDN:IY2YDN2Xe 1,12wf:*** DRAW THE STRINGS FOR2g: RECTANGLES 2 OPTION ***2h I1 N12i(128XD,96YDIIY)(128XDIIX,96YD),3j(128XD,96YDIIY)(128XDIIX,96YD),36k(128XDIIX,96YD)(128XD,96YDIIY),3el(128XD,96YDIIY)(128XDIIX,96YD),3mm I3n:*** HIT CLEAR FOR ANOTHER3o: HIT ENTER FOR MENU ***3pHH$: HH$"" 112 : HH$(13) 21 : 934q:*** THREE LINES OPTION ***4 r4,s:*** GET THE THREE LINES ***4etX1(247)5:X2(247)5:L1X2X1: (L1)10 1164uY1(183)5:Y2(183)54vU1(247)5:U2(247)5:L2U2U1: (L2)10 1184wV1(183)5:V2(183)55xQ1(247)5:Q2(247)5:L3Q2Q1: (L3)10 12051yR1(183)5:R2(183)55nzM1(Y1Y2)(X1X2):M2(V1V2)(U1U2):M3(R1R2)(Q1Q2)5{N(20)10:I1L1N:I2L2N:I3L3N:S1X1:S2U1:S3Q15|(X1,Y1)(X2,Y2),:(U1,V1)(U2,V2),:(Q1,R1)(Q2,R2),5} 1,1: 106~*************************63* *6R* string art *6q* *6* BY WILLIAM MCARTHUR *6* AUGUST 1982 *6* *6*************************7::"DIVI