L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`z#X˲      ׁР ԠԠ̠Ϡ ̠Ϯà!ρӁ ŁӁԠ @@YY3fP*U*U*U*U*U*U*U*U*U*U*U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*U@*U*U*U*U*U`F `P*ysdy?N3N3~9~O9fys6$'J.'*** WRITTEN BYb8'*** LYNELL JACKSON|B'*** JANUARY 14, 1987L'V'*** LAST MODIFIED BY`'*** LYNELL JACKSONj'*** JANUARY 27, 1987t'~'<*** "ISL HELLO" ***>> 4:30 PM PST MONDAY-SATURDAY." (#""T#"TECHNICAL/SOFTWARE SUPPORT HOURS ARE"#"8:30 AM --> 4:30 PM PST MONDAY - FRIDAY." #""#"CALL US FOR A FREE CATALOG OF"#"COMPUTER SUPPLIES AND THE LATEST AND"#"MOST UP TO DATE PUBLIC DOMAARE LIBRARY": Z#"A DIVISION OF U.S.COMPUTER SUPPLY INC."] d#"511-104 ENCINITAS BOULEVARD"x n#"ENCINITAS, CA 92024" x#"(800) 992-1992 (USA) #"(800) 992-1993 (FOR CA) #"(619) 942-9998 (FOREIGN) #"" #"ORDER HOURS ARE" #"6:00 AM -- CONTINUE >" l24:7110% vGO$:+ 1 H TB%(21(PR$)2)W TB%:PR$;] c (# +#<*** DATA LOCATION ***> /# 2#"FOR OTHER PUBLIC DOMAIN AND" <#"USER-SUPPORTED PROGRAMS PLEASE CONTACT:" F#"" P#"THE INTERNATIONAL SOFTWO.GRAPHIC"6 16297,1:16300,1:16301,1:16304,1@ 7010F N :[ I1ND%m PR$:I:7110t I~ 7010  RN$""ė:D$;"CATALOG": (:D$;"RUN ";RN$ 2 X [<*** SUBROUTINES ***> _ bPR$"< PRESS ANY KEY TOM ***>  GF%11110$ :S PR$" U.S. COMPUTER SUPPLY INC. PRESENTS:"a 10:7110 PR$"THE INTERNATIONAL SOFTWARE LIBRARY" $13:7110 .7010:1210 L V: `PR$"* LOADING PROGRAM *" j11:7110: ~D$;"BLOAD ISL HELLCING FOR PRINTING DATA LINE6 * I = LOOP VARIABLE S * GO$ = CONTINUE STRING GF%1:* DISPLAY GRAPHIC FLAG, 1=YES, 0=NO ND%20:* NUMBER OF DATA LINES RN$"HELLO"(1)(26):* NAME OF THE PROGRAM TO RUN NEXT   <*** MAIN PROGRA <*** "ISL HELLO" ***>">*** PROGRAM WRITTEN BYV(*** LYNELL JACKSONp2*** JANUARY 14, 1987vdg<*** VARIABLES ***>knD$(4):* CONTROL-DxH$(8):* CONTROL-H* PR$ = DATA LINE FOR PRINTING * TB% = TAB SPA     P*Os?~~?O`P*U*U*U*U*U@*U*U*U*U*U``P*?U`<P*U*U*U*U T*U*U*U*U`P*U*U*U*U*U*U*U*U*U*U*U`L}|L1`><P*ysd?N3N?~9rO9fIs`P*U*U*U*U*U@*U*U*U*U*U``s3O{qc<P*?U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*UP*U*U*U*U*U` `P*ysx?N30~9O9fp~BBBB-\BBBB@gBBBBcBB_~BB,%)0B60BBBB,-BBB--BB"%BBB7.BBBBU)BBBJ+BBBa/BBB1B|/BBaBBBBhB)BB*BB*Bf-BBB0*BBB7BB:BB!B,BBB0BBB2B,BBB*BB)BBBB?BB0BBB1$ $($8$<$;$'$}B|BzBxBwBuBsBqBoBmBkBiBgBeBcBbB`B_B^B]B\B[BZBZBZBZBZB[B[B\B]B_B`BaBcBeBgBhBjBlBnBn$BnBnBB$iiB`BiBh$ et9vBNvBBq\BBBBhfBBBBB<}BBBB=xB{OBBBB2BVVVVVVVVVVVVV'#4444444444444444444444444444444{qBqB{B{Bw$npBrBtBvBxByB{B|B~BBƀBÁBBBBBBBBBB~B    5r 6r{rr r r5r85r6r6r׭5r`         r{rLqrr r r q` r{ rLq r rrr a a q xa`90E Y0YHY2390F 50007G 0,((0)22):FUNC%HL 0,66:FUNC%[V TH2P12360dW DS1nX 4500x[ 1410` SAVEj 3800o (04)32L31488:A31488p (04)64L33792:A33792q LL(((7)256)(6))1r 216,0:6100t "RADIUS: ";R 4400* R1R(R0.16); XXR1(TH)K$ YYR(TH)_% X0X2792392r& Y0YHY2392|' 5000/ 0,((0)22):FUNC%0 0,02:FUNC%8 THTHINC9 4500B XXR1(TH):YYR(TH)C XX0.5:YY0.5D X0X27923SAV%:404 RESTORE8>RCL%:4400:4500:40N CHANGE PAGE(4)32Ĺ16302,0:230,64:16299,0:HY191:223016300,0:230,3216301,0:HY1594,((230))CLR%:REST%:4400:4500:40 CIRCLE TH0.000:1405 } PLOT! 50009 0,((0)22):FUNC%Q "X=";X;" ";"Y=";YY 40j  ORIGIN 0,02:FUNC%:F(0):40  DRAW LINE 0,66:FUNC%:40  PAINT IT "COLOR: ";C 0,36:1,C:FUNC%:1410  SAVE 00 A$"F"3500# (4)64406 A$(26)3100G A$"?"3600X ,"ERROR":40n  SLOW PADDLE (0)120İ4200 (0)140İ4000 (1)120İ4300 (1)140İ4100 &1405 4000:1405 L4200:1405 4300:1405 41A$"P"1800 A$(24)20= A$"Q"ĉ:34,0::D$;"FP"N A$"S"2000_ A$"R"2100p A$"C"2200 A$"W"2300 A$(11)2400 A$(18)2500 A$(10)2600 A$(06)2700 A$(20)2800 A$"T"2900 A$"V"300):Y(1) 2X279X279+ 4Y159Y1595 61405M <A$((16384)128)[ >16368,0q ?A$"0"A$"9"80~ AIC(A$) BIC0IC10 C40 PA$"K"1000 dA$"J"1100 xA$"I"1200 A$"M"1300 A$"O"1500 A$"D"1700 39:Y79:IC1 (4)32đ* (4)64ĐG 5000:CLR%:PREP%:5000_ 0,((0)22):FUNC%t A$(24)ČSAV% ""ENTER ? FOR HELP" #1500 ((16384)12760 *KS040 ,(16287)1271700 .(16286)1271500 /KS1500 0X(:8191:6000JSL$((21910)):DR$((21912)):HS$SL$:HD$DR$p34,21:D$(04):R$(13):HY159:FUNC%24576:FILL%24582:CLR%24585:SAV%24588:RCL%24591:REST%24579:PREP%24594230,32:3086 INC.1:P13.141592:KS0 C3:X1     ҍŠӠ٠ŠĠٍǠþҠϠǍŠĠҮŠŠԠנƠŠōӮՠ٠Πέ΍РԠ٠ŠŠǠӠ΍Ӯ٠ǡō٠ŠĠϠŠԠԍ٠ǠҢ̠˾̠ōҠŠΠˠĠ̠Ҿ̍ĠŠ͠ˮԠ٠ŠĠΠҠŠٍǠ̠ԾƠҠŠӍԠԠүҠŬŠŬǍТĠǠŠŠҠҍŠĠҮŠōӠ٠ŠĠ٠ǍâӠâΠϠΠύҠŮԠƠҠŠ٠ōΠ٠ǠӢҠԍΠΠӠŠϠŠٍˠҠǠŠҮ΍ĬΠ̠ŠנĠΠ̠ԠōΠԮҠŠӠΠάԠ΍ŠĠ٠ǠŠҍŠΠȬŠӠΠ͠Š΍ԠƠŠԠנҠ͠ōԠƠΠĠ٠ӭǠϢҠԠӠōӠӺɠŠЍ͠Š΍ʠŠԍˠŠɍɭӠŠӠӠ͠ԍӠՠϠŠӠΠōΠĠΠԠ͠Ƞ٠ƠӮӠŠō٠ǠŠɭӠҠϠōĠΠĠΠǍĢҠ׮ΠĢӠĮƍנŠ͠ΠčנŠԍĠǠ̠ԍԠˠ̠ƍĠŠ͠ˠ̠ҍŠҠΠ͍ŠҠԠʍŠҠԠˍΠčΠǠ̠ԍҠΠ̠؍٠ҠԠÍ٠Ǡ٠֍ӠӠ̠ڍנŠ׍נŠ p(07):40%24597:(07)7216,0:6000A1410S824597:(07)oB" TO CONTINUE"D216,0:6000LAS$:312024597:(07)"FILE NOT ON THIS DISK"I1999:I3770ISK"I1999:I3770 YYIC"YHYYHY",-hXXIC:X0X0@KYYICXY0Y0^l0X1(224)zDX2(225)NY1(226)XX((X2256)X1)YY1(X)25550200,0:1,X:50300,1:1,(X256)2,Y3,CS TO EXIT"3790/D$;"CLOSE HELP"7D$P16304,0::34,21:b216,0:6000wCLR%:REST%:40(16384)1283790AS$((16384)128):16368,0:SL$HS$:DR$HD$"NAME: ";NA$XXICX279X279216,0:6300/.D$;"OPEN HELP,S";HS$;",D";HD$C8D$;"READ HELP"RBW0:F(0)[LNA$uV((NA$,1))1273750`NA$:WW1jW203660t:" FOR MORE HELP"~" TO EXIT"3790(AS$)273760:3650:"DEPRESR$ C 3120#H 16304,0:34,21:5M 216,0:6000JR CLR%:REST%:40Z FRAMEk "WIDTH: ";W (W2)159ĺ(07):3510 XW:Y159W H159(2W):W279(2W) 5000 0,((0)22):FUNC% 291116303,0$34,0: ) OP(OP$) :216,0:6200; OP3360,3370,3380,3390G 34,0:i" D$;"CATALOG ,S";SL$;",D";DR$x% AS$:3120* D$;"DELETE ";NA$;",S";SL$;",D";DR$/ 31204 D$;"LOCK ";NA$;",S";SL$;",D";DR$9 3120> D$;"UNLOCK ";NA$;",S";SL$;",D";D OP$"1"OP$"5"3120) OP$"5"34004 34,21b "DO YOU WANT TO SPECIFY DRIVE? (Y/N): ";m AS$: AS$"Y"3310 AS$(249)3310 3330 :"DRIVE: "; DR$:DR$:DR$"1"DR$"2"ĺ(07):3310 OP$"1"Ą"FILE NAME: ";NA$ (8)'D (49);" CATALOG ";6N (6):(10)QX (50);" DELETE FILE"`b (6):(12)zl (51);" LOCK FILE";v (6):(14) (52);" UNLOCK FILE"; (6):(16) (53);" EXIT"; (4):(18) "SELECT OPTION: "; OP$:: XXW:2990 1410" 5000: 0,((0)22):FUNC%K 0,66:FUNC%Q a SPACE (230)32ĺ33789(((07)256)(06)) (230)64ĺ36093(((07)256)(06)) 40 DOS& 16303,0+ SL$HS$:DR$HD$0 34,0:: (6):CH%205 0,OP% 1,CH%' 2,C2" FUNC%<, 2810R6 4400:4500:1410bT RECTANGLE^ "ENTER (HEIGHT, WIDTH): ";H,W_ 0,02:FUNC%h (YH)0HYr (XW)279W279X 4400:4500 YYH:2990 XXW:2990 YYH:2990STOP":UC0" (16384)1272813, 2811> CH%(16384)L 16368,0d CH%155UC1:2811v CH%1482870 CH%1922830 (1101)62833 (16285)128UC12830 CH%CH%32 CH%192CH%208 CH%222CH%206 CH%221KS1KS2:40 KS2KS1% 404 TYPE? OP%52f "LARGE LETTERS? (Y/N): ";:3790:x AS$"Y"2806 AS$(249)2806 2810 OP%86 "COLOR (0-7): ";:3790: AS$"0"AS$"7"2807 C(AS$)  "TYPE - TO (4);"BSAVE ";NA$;",A";A;",L";L0u 216,0:6000:~ 1410E LOADO 3800[ 3:X,Ym 216,0:6100 (4);"BLOAD";NA$ 216,0:6000 REST% 4400:4500:40( SWITCH2 KS0KS1:40< KS0:40 FAST SWITCH 0 (13);D$;"CLOSE ";N$* D$;"PR#0"0 ;"PR#0"B 2 D$(04):LC545"ENTER TEXT FILE NAME: ";N$U"ENTER PRINTER SLOT: ";SL$g#D$;"PR#";SL$z(D$;"OPEN ";N$2D$;"READ ";N$FA$P(A$)127140Z(01);A$;dA$(13)70nLCLC1sLC070xI112::I LC54:7  Ԡ٠ӠӭōҠ̠ŠŠĠҠƠӮÍȠϠˠ̠ʍŠԠӍҠŠÍϠŠҠԠԭҠҠԠӠύŠĠԮŠ͍ŠӠȠŠҠŠҠРɍԠЍԠэŠ͠ԠҍŠŠΠˠ̠ˍԠΠҠנύȠˠϠĠ̠ʍȠˠϠŠÍȠàŠ