' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*` U* ` ""<>`~@C#dg'`~>"``@ժ U*@a[!ժK!ժ@*U U*0`rb`&E`(@`ݻU*A;wwnA;wԨ@ի@aժנ@paa`?>>>>`?sApsssb}]ww] @`ݻU*A;wwnA;wԨ@ի@aժ@a@```pA`rc ߠ~ ժ@}zA-@@Ţڴ@*U@gs @>}}zA--ZժժժU*ך@a ժ@}zA-@@ݮʕ@aK!ժKA*UpppppppppppppcpB@`ȉڴ@@*Us@yO @>}}zA-P@}oժ@*UU*A*UU*`BpbB@pb@ppppppppppppp U* 0""""`| $$" `|""``@ʕ@a_>!ժKA*U@*U U*@@C?`@ݻ@];an]@*U fLѢ׮߾0```}kww_w@ݻ@];an]@*U fLѢ׮߾Њ@a@0````ߠ@~ @}zA-@ݡđڴ@@*U @yO @>}}zA--Z@}oժ@*UU*A*UU*@ך @}zA-@ppppppppppppp@߾ʕХ`@-e@,eժpppppppppppppC?B@`@րԪ@a@*U`pa@LP (P@R%!iR@ R$!ժժU*"B@`ppppppppppppp U* f3 " >2`x$ ! `x"" `bB`@ʕХ`@6y@2Yժ@*U U*0``C?`@ݻU*A;wwnA;wŊݺ߾@Ģժ~ߠݮ@@`?`?`awwwc@ݻU*A;wwnA;wŊݺ߾ժ@׺`L0paa`">>>`B@pb`ߠ@ߠP ժP !iR@@@a@*U` f@LP (P@R%!iR@R%R$!ժժU*ךP ժP !iR@ppppppppppppp@aʕڴժ`@-e@,e@*UpppppppppppppC?B@`a̙@a@@*U` ff3P (P@R%!iR@ ABo7ժ@*UU*A*UU*rpBpC@P@`ppppppppppppp U*`O@gs""`p@#`cc#`p""`C?BB`@ʕڴ U*`@7y@2Y@*U@*U U*@@L`p`p`cPrQ`@aݻ@];an]@*U fLa@Ԫ`O````}kww}w@aݻ@];an]@*U fLa`L B`"`B@b`ߠנP ڔP !iR@ݡ@a@@*U`paf3P (P@R%!iR@R%ABo7ժ@*UU*A*UU*@a@@aP ڔP !iR@ppppppppppppp@ժ`@7y!U*@2Yժժ U*`@gspsaq` @>}}zA--ZժժժU*`rbpB@pqQb@`"F(B,021317517,1024)7"W(106(M$)3.5,184,M$):S"F(1024,021317517):Y(#:v2#I111:MX(I),MY(I)::<# 69,150,69,168,146,159,14,187,93,182,122,182,154,185 F# 226,162,226,172,226,182,108,159 #I14:C!(15,100),C!(15,110),C!(15233:Y16218210:8590:Aj"X14:Y187:8590:W(X8,Y3,"QUIT")jt"X154:Y185:8590:W(X8,Y3,"MIRR")~"195,180209,180209,191195,191195,180:9300"0:79,17379,189137,189137,173"108,173108,189:W(83,178,"CLR"),W(112,178,"NEG"):"W(17,151,"DISK"),W(84,156,"PICTURE"),W(161,151,"BORDER")f"W(7,161,"STORAGE"),W(161,161,"MEMORY")$"0,141279,141:F(W,7713917319)L"F(W,22427914411),W(227,146,"OPTIONS")V"W(241,159,"BLACK"),W(241,169,"NOTRK"),W(241,179,"PATTS")`"XЇX1,Y1,X2,Y2:8690>!X1X11:X2X21:Y1Y11:Y2Y21:8690:H!8710m!X1,Y1X2,Y1X2,Y2X1,Y2X1,Y1:!0,144,62,174,77,144,139,191,154,144,209,174,224,144,279,191"F(25100,637614413),F(25000,637616213) "F(25100,14015315313):Y3!u!VY2Y2:X3,VX3,V:Dz!F(B,X4X4Y49,1024):8620a!F(1024,X4X4Y49):g!:!X06:X,170XX,170X!27X,170X27X,170X:!Y167173:7,Y20,Y:!F(B,01316413,25000)!F(B,142716413,25100)!I14:`M$"-- SET BORDER MEMORY FIRST --":8900[jI015:C!(10,30),C!(15,100)::8950:1000~T(X,Y,ZV15,SELECT,NC),C!(10,20):PS1:7000:1000f!:h!:3:F(B,027914052)k!X140:Y180:X4,YX4,Y:X,Y4X,Y4p!X2,Y3X2,Y3:X2,Y3X2,Y,KEY,NC,SKETCH5,MIRRMM):;>T(X,Y,KEY,SKETCH5,MIRRMM):YT(X,Y,KEY,NC,ZV10):7400tT(X,Y,KEY,ZV10):7400KEY255ıTCįT(X,Y,KEY,ZV3,FILL):7100T(X,Y,KEY,ZV0,FILL,NC):7100LI03:T(X,Y,ZV0,NC):Y1401000:VBS7550+1TC2PD7200,7210,7220,7230<vKEY50KEY21PD0:7020YKEY49KEY8PD1:7020jKEY271017|KEY3270301TC2PS7200,7210,7300,7310KEY2557100KEY32ı7100 T(X,Y,KEY,NC):*T(X,Y,KEY):4T(X,:+ pTC1TC:F(B,2412751697):TC6020E zW(241,169,"NOTRK"):_ W(241,169,"TRACK"): dM$"LOAD: "F$" ?":8900:9800 nD89İ9600:6530 x8950 :(4);"BLOAD ";F$;",A$2000":8550: XHS,DHS:BS7100 bCO3:PD0lKEY(0):- M$"CLEAR THE PICTURE?":8900:9800:8950: D89ın CHS,DHS,NEG,DHP,HP:BS0:PS0:TC0:CO0:8550: DHS,NEG,DHP,HP: MMMM1:MM3MM0 9300 |CO1CO:F(B,2412751597):CO5520 W(241,159,"BLACK"): W(241,159,"WHITE"),FIX,HP:BS1:PS0:C M$"QUIT THE PENPAINTER?":8900:9800:8950l D89įTP:::"PRINTER (Y/N) ?":A$ A$"N"ė:::(4);"RUN MENU": A$"Y"ė:22:"WAITING....." ::(4);"BSAVE PIC,A$4000,L$1FFF"::(4);"RUN PRINT" 3510 1010 .9400:1090% 8:D0:1010c BS2000,2500,3000,3500,4000,4500,5000,5500,6000,6500,7000m L1000 M$"":8900:9600 HS::(4);"BLOAD ";F$;",A$4000":9200: M$"":8900:9600: (4);"BSAVE ";F$;",A$4000,L$1FF8":9200: HSCK(X,Y,KEY,ZV0,NC):Y14075006 KEY32İ7000:1000H KEY271020g :(4);"PR#1":I012:: 1913,2::(17):(4);"PR#0":1000 I111 XMX(I)10XMX(I)101080 YMY(I)5YMY(I)51080 SISI:D0:1010 $DD1:D2:(4);"MAXFILES 1"I INIT,HP,DHS,CHS,NEG,DHP:3:MX(11),MY(11)Y8550:9000yD0:I66566670:DD(I):I71687179:DD(I)::D216050(:(4);"BLOAD PENPAINTER.ML"2F$"PATTERNS":HP,DHP:D(0):D0 X0:Y140:TRA     @ժڠժ@aK!ժK!ժC?B@`@`ъڴ@*U@gs @>}}zA-PժժժU*@ݻU*A;wwnA;wԨ@ի@"""`` $ ```"""`C?pCC`@`ժ@*U`@-e!U*@,eժU* U*@@L`x`x`C?P0`Ĩժ@׺L ```}]ww]@ݻU*A;wwnA;wԨ@իժߠݮ`L`BR`>`pC@Pc`@a@@a ժ}zA-@@@a@*U`pa@gs @>}}zA-PժժժU*ߠנ ժ}zA-@@`Ԫ@a@*U` f@gs@ʕ˂`@6y U*@2Y@*Uժ U*`@f3`ppppppppppppp @>}}zA--Z@{_ժ@*UU*A*UU*@B@2`@ݻ@];an]@*U fLѢ׮߾@ppppppppppppp"""`@ $$$ `@"""`cpBPB`@߾ʕ˂`@-e!U*@,e@*UU* U*@0`|`|`C?0`pppppppppppppЊ@`Ly0```A]cAc@ݻ@];an]@*U fLѢ׮߾т`L@@B`1`"`sB@pqQb@ך }zA-@ݡ@a@@*U` f@yO @>}}zA-P@{_ժ@*UU*A*UU*ߠ@ߠ }zA-@̩@a@@*U`pa@yOppppppppppppp@ʕҠ@a_>A*UK!ժժ U*`00`pppppppppppppP (P@R%!iR@R%! BժժU*" "A@psaA`@`ݻU*A;wwnA;wŊݺ߾@ppppppppppppp><>`@Cccg'`>>`C?B0B`@ݮʕҠ@aKA*UK!ժU* U*@a@@`~`~`r`pppppppppppppժ@a@`L0@`ݻU*A;wwnA;wŊݺ߾Īժנ`Ly0BP`""`B@2b@ךP ժ@סP !iR@@őڴ@*U @LP (P@R%!iR@ ! BժժU*ߠ@ܡ~P ժ@סP !iR@@ȉڴ@*Us@Lppppppppppppp@ʕڴ@a[A*UKA*Uժ U*`|y `pppppppppppppP (P@R%!iR@R%!$@v{ժ@*UU*A*UU*`Ar@`pApsssb`C?B@`@aݻ@];an]@*U fLa@a@```C?"AB`@ʕڴ@*U@aKA*UKA*UU* U*`|y`````ppppppppppppp@a@`L@p@ݻ@];an]@*U fLa@a@L B`"`"A@bA]cwc @ך@aP @סP !iR@ݡđڴ@@*Uf3P (P@R%!iR@ !$@v{ժ@*UU*A*UU*ߠܡ~P @סP !iR@aȉڴ@@*Uf3ppppppppppppp          @a|~p|~~`c?xx~qDs}g|y}}|8y|~xo|gy MJM --S--S--S--S--S--S-- --S--S--S--S--S--S-- S S S S S S J ۛ ۛ ۛ ۛ ۛ ۛ JISIۛIIJISIۛIIJIJISIۛ)-ۛiMJiSiۛiIJISIۛIIJMSiۛ MS)mJIS MJ-ۛi S S)mJiJISIۛi SiۛIMJ ۛi JIS MJiS S)mJiS MJISIۛIIJ ۛi S SiJ)ۛIMJiS M MJmS MJ ۛI S MJiS MۛiIJMS MJ ۛi JISiۛ MSiۛ -ۛ MSMJISIۛII mۛ MSiۛ mJISiۛI-SiۛI-SiۛI-JISIۛIIJmSMۛiiJmJISIۛ -ۛ) ۛ ۛ ۛ JISIۛ -ۛ MS)mJMSiJISIۛIIJ-ۛii Mۛ m %K$:F(B,II51848):94004%K$(13)9680K%(M$)0İ8950::]%F$M$:8950:%K$(8)įW(I,184,K$):M$M$K$:9610%(M$)09600%M$(M$,1,(M$)1):9610H&I15:D(16368):R&(16384)1289810 \&D(16384)128:I(,120)::%T$F(B,19620818110):3@^$MM1ē202,180202,191dh$(MM2)MM2ē195,185209,185jr${$C!(10,20):%F(B,021317517),W(0,184,"FILENAME :>"):M$""%I807(M$):3%F(B,II51848):I,191I5,191%(16384)1289630GHT.":3'" ... PRESS ANY KEY TO BEGIN ...";L'(16384)12810170V'K$:\g+ K1 12:12/"INSERT BOOTING DISK "0  sw7|7gwo|}O/s^o?Tco180,B$):S1, DHS,HS, NF, J172:X(J),Y(J)X(J1),Y(J1):J\, (16384)127N3p, (16384)0N0, N:H11,VH21,V, S03485, N:HB,V11HB,V21, 216,0, :3180- H1H11:H2H21:TP::12:15:">>> OVER <<<":K110`RR% Q΅ ȱ&؅ ȱei愅eم ei愅eFf` LT>L9 9Lk S`T  #L   9Lԅ؅ U78ԅم ;9ą؅ ':;ąم  <T`蚩؅ 襃 م ӥ 3`΅ <66857m:45;5 # 7182912 &%0JɀFL@>i >032 19  3U1124В25Њ996Э32 19  S>L Lk(  SiۛiI MJ-ۛiI Mۛ -ۛi SMۛ -JISIۛ -ۛiI -m Mۛ -JMS -SiۛiI Mۛ MSMJISIۛ)-ۛ MSiۛ MSIJISIۛ -ۛi S--SMۛ -JISIۛ MSiۛ MSiۛImJISIۛ MSiۛ mSiۛ MJISISiJ ۛIMJMSMۛ MS MJ JISIۛ)-ۛII --SIۛIIJMS MJ ۛI SIۛIMJMJ-ۛi SIۛIMJiSIۛIM --S--S--S--S--S--S--JISIۛIIJmSMۛiiJmJIS)mJMS)mJMS)m M Mۛ MS mJiۛImJ ۛii --SIۛIi --SMۛ)-ۛI SIۛi S)mJ)ۛ MSMۛ)-ۛi SMۛ - --SIۛIiJiSiۛ MSiJ-ۛi SMۛ -ۛi SMۛ -J-ۛi SMۛ -ۛI SIۛ)mJISIۛIMJIS MJISIJISIۛIMJIS MJiIIJIS MJiSiJISIۛII --SIۛIIJIJISIۛIIJISIۛIIJiJISIۛIiJiSiۛiIJIJ-ۛi SMۛi Smۛi S)mJiS)MJiS MJiS MJ-J-ۛi SIۛImJMSMۛ)- --SIۛIiJ)ۛI SMۛ -J S-mJi mۛ)MSIۛIMJMSMۛI)JMS M MJMS SMۛ mJiS MJiSIۛIIJISIJ ۛIMJMSiۛ MS MJ JMS MJ ۛIiJ ۛIMJMJiS S)m --S)m S MJIS MJiS--S MJiSIJISIۛ--JISIۛIIJISIۛIIJIJIS MJ-ۛi S MJiS MJISIۛIIJISIۛIIJIJISIۛIIJISIۛIIJIJiS MJiS MJiSIۛIMJ ۛ ۛ ۛIIJISIۛIIJ ۛ ۛ)-ۛ ۛ)-ۛ ۛ JiS)-S MJ-ۛIS S S)mJi Mۛi SiۛIMJ ۛi SMJiS M S S)mJiS MJ-ۛi SMۛi Siۛ ۛ) JiSiۛ)-ۛII --SIۛIMJIS M -mJIS-mJiSI --S--S--S--S--S--S-- --S--S--S--S--S--SJIS--SIۛ -ۛII --SIJ-ۛi SMۛi SMۛi S)m --Siۛ ۛ ۛ ۛ ۛ  -m Mۛi S-m MۛiI M --SMۛ MS MJMSMۛ)- --S S MJiS MJiS)mJ ۛi S S MJiS MJ-JiS)m IiJiSiۛi S-- Mۛi SMۛ)-ۛi SMۛi J-ۛi SMۛ)-ۛi SMۛ -J-ۛIMJiS MJiS MJ- Mۛii M mۛiM Mۛi JiSiۛ ۛ ۛi SMۛII Mۛ) ۛi S SMۛi SM Mۛi Smۛi SMۛi SMMJMJ-ۛi SIۛIMJiSIۛIMJ-ۛi S S -S m Mۛ -JiSiۛi SMۛ)-ۛi SM -m Mۛi S-m Mۛi S-m --Siۛ MSiۛ MSiۛ)mJiSiۛ ۛ ۛi SMۛ)- --SMۛiI -m MۛiI -- --SMۛ --SIۛIiJiSiۛ MSiJ-ۛi SMۛ -ۛi SMۛ -J-ۛi SMۛ -ۛI SIۛ)mJISIۛIMJIS MJISIJISIۛIMJIS MJiSiJ ۛIMJMSMۛ MS MJ JISIۛ)-ۛII --SIۛIIJMS MJ ۛI SIۛIIiJiSiۛiIJIJ-ۛi SMۛi Smۛi S)mJiS)MJiS MJiS MJ-J-ۛi SIۛImJMSMۛ)- --SIۛIiJ)ۛI SMۛ -J ۛImJ ۛii --SIۛIi --SMۛ)-ۛI SIۛi S)mJ)ۛ MSMۛ)-ۛi SMۛ -ۛIIJISIJ ۛIMJMSiۛ MS MJ JMS MJ ۛIiJ ۛIMJMJiS S)m --S)m S MJIS MJiS--S MJiSIJISIۛIIJIS MJiSiJISIۛII --SIۛIIJIJISIۛIIJISIۛIIJiJISIۛQvJISIۛIIJISIۛIIJIJiS MJiS MJiSIۛIMJ ۛ ۛ ۛIIJISIۛIIJ ۛ ۛ)-ۛ ۛ)-ۛ ۛ JiS)-S MJ-ۛI S-mJi mۛ)MSIۛIMJMSMۛI)JMS M MJMS SMۛ mJiS MJiSI@M"Bc -Nq4Uv@b%Hi6Xy!Bf2Tv " C c + M m  4 T t  < ^   $ E f /Qr8Yz?a,          - --S--S--S--S--S--S-- --S--S--S--S--S--S--J ۛIMJiSmۛIMJiSI mۛIMJiSIۛIMJiSmJISIۛIIJISIۛIIJISIۛIIJI1FFF"'h ::(4)"RUN PRINT"='r T(X,Y,KEY,LINES,CLICK,NC)R'| KEY("1")2980g' KEY("2")3000~' KEY78įNEG:2930' KEY8150' X(X,Y):X1X:Y1Y' 2930' X(X1,Y1):0' X,YX,Y1X1,Y1X1,YX,Y' X271X271' X1271X1271LE R/ECTANGLE P/OINT, ETC."#& S&" "TO SEE A COMPLETE COMMAND LIST, PRESS "n&, "/ OR ? AT ANY TIME."&6 (24):"HIT ANY KEY TO BEGIN";&@ (16384)1282880&J A$:&T TP:"RUN MENU"'^ TP::22:"WAITING.....":(4)"BSAVE PIC,A$4000,L$ "TO DRAW WITH GEOMED II, PLACE MARKERS BY"]% "MOVING THE TRACKING CURSOR TO A LOCATION"% "AND PRESSING 1,2 OR 3. MOST FIGURES WILL"% "REQUIRE MARKERS 1 AND 2 TO BE SPECIFIED."% "THEN SELECT THE TYPE OF FIGURE TO DRAW: "& "L/INE C/IRC,0$ 0:1:?$ :" L . P . S . L A B O R A T O R I E S"c$ (13):(12):"HOPE YOU ENJOYED"$ (17):(15):"GEOMED II":(23)$ 2900$ :$ "L.P.S. LABS - LPS I : --GEOMED II -- "$ $ "THE GEOMETRIC EDITOR .. "-%)0PV(HL)191ı# HLHL1:?# ..... BLINK OUT THE MARKERSP#( P1ĕ1X1,Y1a#2 P2ĕ1X2,Y2r#< P3ĕ1X3,Y3x#F #P AD:AD02690#Z DA:DA12640#d AD,DA:ADAD1:2650#n 232,0,3,-1,768,1,0,4,0$x 192,49,54,254,192,41,13,253,192,0,-1K LIT POINTS AWAY IN THE HISTORY FILEG" P1PH(HL)H1:PV(HL)V1:2540i" P2PH(HL)H2:PV(HL)V2:2540" P3PH(HL)H3:PV(HL)V3:2540" HPHL1:" HL02580" ZZ0HL1:PH(ZZ)PH(HL)PV(ZZ)PV(HL)ı" ZZ:PH(HL)0PH(HL)279ı# PV(HLB(V1V2)2JM(H1H2)26!V KB(V2V3)2KM(H2H3)2P!` H4(JBKB)(KMJM.1)`!j V4KMH4KBf!t !~ .....TOGGLE THE MIRROR MARKERS! MM12480,2450,2460,2470! X(VM2,HM2,VLO):! X(VM2,HM2,HLO):! X(VM2,HM2):! %" .....TUCX00X00 X0240X240, Y00Y00? Y0168Y0168E  c  ..... REMOVE THE MARKERSx  P10:P20:P30: $ QQ020:C!(7,10),C!(7,40):: . .....LOCATE THE CENTER OF THE CIRCLE 8 JM(H1H2)(V2V1.1) B KM(H2H3)(V3V2.1)!L J87Ē3:X0H1,Y0V1:2020>KEY66Ē0:X0H1,Y0V1:2020bKEY90XX0H1:YY0V1:1960zKEY63KEY4717202230:2020.....TEST THE LIMITSH5H5:X0X01H36H36:X0X01V5V5:Y0Y01V20V20:Y0Y01 X0H1:YY0V1:HS:500 KEY73VV1:2210H*KEY77VV1:2210`4KEY74HH1:2210x>KEY75HH1:2210HKEY9Y0Y01:2210RKEY13Y0Y01:2210\KEY10X0X01:2210fKEY11X0X01:2210pKEY78įNEG:2020zKEY:2230X4X4$X275X2751Y4Y4BY186Y186XHXX01:VYY01lZOOM(X0,Y0),TPI02:(H):(VI2):"X";:(H):(VI2):"X";:(H4):(V):"XXX";:(H2):"XXX";(16384)1282050 A$:KEY(A$)KEY81X> - BLACK DOT"NGX" - RE-CENTERS THE CURSOR ON SCREEN"ab" - NEGATE IMAGE"glv" - QUIT ZOOM MODE":" --- HIT ANY KEY TO RETURN --- "2050.....Z O O M MODE HANDLERH20:V12:X0X20:Y0Y12-------------------------------"(:O"CURSOR MOVEMENT KEYPAD: "U" THESE MOVE CURSOR "" TO MOVE SCREEN, HOLD"" THE KEY DOWN. "&0:" - PLACE WHITE DOT AT CURSOR"D" - PRINT"6" - COLOR"d" - HELP SCREEN IN NORM OR ZOOM";|(16384)1281700A$:HS:50(1):(24)"L . P . S . L A B O R A T O R I E S"" ZOOM-MODE MENU" "--------V> - ESTABLISH VERTICAL MIRRORING"VT" - SETUP A HORIZONTAL MIRRORING"^" - CANCEL EXISTING MIRRORING"hr" -> - MOVE FORWARD IN HISTORY FILE"|" <- - MOVE BACKWARD IN HISTORY FILE":" - 3D BOX"0" - ERASE IMAGE - SAVE IMAGE"6e" - VERT MOTION ONLY - DRAW BLACK""" - HORZ MOTION ONLY - DRAW WHITE"," - FREE MOTION - FILL FIGUR"6" - QUIT ZOOM OR 3D - ZOOM MODE "@'J"<----------------------------------")X"<1> <2> <3> - PLACE LOCATOR MARKERS "^" - ARC - CIRCLE - LINE""

- POINT - RECTANGLE - ANLY"" - TRIANGLE"" - QUIT GEOMED - GET IMAGE "Lx:(20):TP:" FILENAME -> ";N$a(N$)0įHS:50(22):" DRIVE NUMBER -> ";:M$:M$(4);"BLOAD ";N$;",A$4000,D";M$:HS:50:TP:"L . P . S . L A B O R A T O R I E S"#"-----2(22):" DRIVE NUMBER -> ";:M$:M$]<(4);"BSAVE ";N$;",A$4000,L$2000,D";M$:HS:50}F.....G IS FOR GET (A FILE)P:"L . P . S . L A B O R A T O R I E S"Z(7):(16):"GEOMED II"d(16):(13):"GET THE PICTURE":(18)$n:" IS FOR SAVE (A PICTURE)H:"L . P . S . L A B O R A T O R I E S"d(7):(16):"GEOMED II" (16):(12):"SAVE THE PICTURE":(18):" ":(20):TP:" FILENAME -> ";N$((N$)0įHS:50)VV:~XH2:YV2:0.....BACKARROW HISTORYKHPHP1:HP1HPHL1U1200mHPHP1:HPHLHP0XPH(HP):YPV(HP):50..... CTRL-E IS FOR ERASECHS,TP:..... P IS FOR POINTP1H1X:V1Y2490:H1,V1:.....S9H3279H3279'$V1191V1191:.V2191V2191M3V3191V3191W82490=KEY84ēH1,V1H2,V2H3,V3H1,V1:1150BH1,V1H1,V2H2,V2H2,V1H1,V1LFM1150VV1V2VSV2:VEV1:1130`VSV1:VEV2jVVVSVEFMtH1,VVH2, V10V20V1191V2191ıC2490:H1,V1H2,V2:XH2:YV2:`.....R IS FOR RECTANGLE(P1P2)İ2340:2590::580H10H10H20H20H30H30V10V10V20V20 V30V30H1279H1279H2279H227PY:fFM885(kPY(PXH1)CCV1ı5pPX,PY:HuPX,PY:FM0:gz.....M IS FOR MIRROR MODE2430:MM3LM:LM0MM0LM0VMX2:HMY2:2430:50.....L IS FOR LINE(P1P2)İ2340:2590::580H10H1279H2279H20<TP::12:12:"LOAD FILENAME=";L$> =14:12:"DRIVE ?":Zd >::(4)"BLOAD";L$;",A$4000,D";Zs ?DHS,HS:9 @TP::12:12:"SAVE FILENAME=";S$ A14:12:"DRIVE ?":Z B::(4)"BSAVE";S$;",A$4000,L$1FFF,D";Z CDHS,HS:9.DTP::22:U GET A THREE DIMENSIONAL BOX":L 3" - NEGATE PICTURE - HELP PAGE"t 4"

- PRINTER - ERASE" 5" - LOAD PICTURE - SAVE PICTURE" 6(23):"HIT ANY KEY TO BEGIN" 7(16384)12855 8A$: 9 ::: ;9$ O-THREE DIMENSIONAL "E +"ARRAYS OF OVERLAPPING BOXES TO BE DRAWN"] ,"ON THE SCREEN.":u -"TO DRAW A BOX:": ."POINT TO UPPER LEFTHAND CORNER OF BOX": /"HIT <1>": 0"POINT TO THE LOWER RIGHTHAND CORNER": 1"HIT <2>": 2"AND YOR18' X1R,YRXR,YRXR,Y1R. RI W(6,6,"COLOR=?"):33a W(6,16,"(0 TO 7)")z !C:W(6,6,"COLOR=?") "W(6,16,"(0 TO 7)") #C0C731 $C %IY11Y1 &X11,IX1,I: '10 (:: ): *"BOXES ALLOWS PSEUD("2")22 KEY78įNEG:10. KEY72İ41= KEY8068K KEY693Z KEY7659i KEY8364 X(X,Y):X1X:Y1Y 10 X(X1,Y1):0 X,YX,Y1X1,Y1X1,YX,Y X271X271 X1271X1271 Y183Y183 Y1183Y1183 I 41:INIT:0#I0693:0,I2279,I2S3:0,I21279,I21YqF(027908,25000)Y81848:F(25000,0279Y8): X140:Y96 T(X,Y,KEY,LINES,CLICK,NC) KEY13ĺ:(4);"RUN MENU" KEY("1")20 KEY  :810 PXH4YY:PYV4XX:810;PXH4YY:PYV4XX:810V PXH4YY:PYV4XX:810qPXH4YY:PYV4XX:810 :XX2:YY2:*PX279PX0ı4PY191PY0ı>KEY67860HCL870RPY(PXH1)CCV1ı\FM867aPX,PY:cPX,P3İ2350:680!H4H1:V4V1HCR(H4H2)(H4H2)(V4V2)(V4V2)kRA(CR):CC(V2V1)(H2H1.1)u2490YY00.707RA1:XX(CRYYYY)PXH4XX:PYV4YY:810PXH4XX:PYV4YY:810PXH4XX:PYV4YY:810PXH4XX:PYV4YY84600 01230 :2320. D2430:FM0:50E N.....A IS FOR ARCi X(P1P2P3)İ2340:2590::580y b2490:2350 gKEY841000 lCL0:V3(H3H1)(V2V1)(H2H1.1)V1CL1 v680 .....C IS FOR CIRCLE (P1P2)İ2340:2590::580MM0570 MM1510< V1HMY1:V2HMY2:V3HMY3:520J MM2570n H1VMX1:H2VMX2:H3VMX3:520 V1Y1:V2Y2:V3Y3:520:570 H1VMX1:H2VMX2:H3VMX3:520:570 KEY65590 KEY67640 KEY76930 &KEY82980 +KEY80 h50 rP1ĕ1X1,Y1; |X1X:Y1Y:P11:1X1,Y1:50L P2ĕ1X2,Y2l X2X:Y2Y:P21:1X2,Y2:50} P3ĕ1X3,Y3 X3X:Y3Y:P31:1X3,Y3:50 2430:2590:..... HANDLE ALL DRAWS THRU HERE H1X1:H2X2:H3X3:V1Y1:V2Y2:V3Y3:520 KEY70FMFM1:50$ KEY778904 KEY81160E KEY211190U KEY51210j KEY32LM0:50{ KEY172700 "KEY831260 ,KEY711350 6KEY631440 @KEY471440 JKEY901950 TKEY162910 ^KEY42930 cKEY8831390 nKEY51410F xKEY65KEY67KEY76KEY82KEY80KEY84430[ KEY72LM1:50p KEY86LM2:50 KEY68Ē0:50 KEY23KEY87Ē3:50 KEY7Ē1:50 KEY2Ē6:50 KEY18Ē5:50 KEY22Ē2:50 KEY78įNEG:50 % 24576 2740:CHSKINIT,HS,DHS,CLICK(20,200):X140:Y96:2640^3:LINES(1,0)s(PH(400),PV(400)2(LM1)60,70,80<T(X,Y,KEY,LINES,RT):90FT(X,Y,KEY,LINES,RT,HMO):90PT(X,Y,KEY,LINES,RT,VMO)ZKEY49370 dKEY50                           3008 ':::" L . P . S . L A B O R A T O R I E S"R':"*** LPS II ***"h'(4)"RUN MENU":28):" RESUME ":B(16384)1281090LDD(16368):KEY(16384):KEY32290VHP:340`j810:W(84,92," QUIT ? "):28):" HIT<";::"SPACE";&O:"> "GT(15):(28):" TO "j^(16):(28):" RESUME ":h(16384)1288040rDD(16368):KEY(16384):KEY32300|HP:3104!'6010:W(84,92," QUIT ? "):7500'K$"N"İ7010:)86700(N$)06610:W(1257(N$),92,(N$,1))QN$(N$,1,(N$)1)["6610,W(1327(N$),92,K$):N$N$K$:6610XII01000:bF(16384,702108424):LDD(16368)V(16384)1287510`K$:7010:@TPJ(14):(8816):&dF(W,212598424,16384)?nF(B,252558816):\F(16384,212598424):fN$""UX1327(N$):3:UX,101UX6,101(16384)1286620K$:0:130,101253,101K$(13)6670(N$)0ı:6550:300 (K$0I54100:II05:C!(10,10),C!(10,200)::I$:4010I7010:300t6010:W(84,92,"MIRRORING <0-3> "):R$R(R$)48:7010:3006000:W(84,92,ERR$):7000:pII05:C!(10,10),C!(10,200):zF(W,702108424,16384) F(B,73206;N$;",A$2000":3520 3505Y 6500:W(34,92,"SAVE FILENAME> "):6600 6550::(4);"BSAVE ";N$;",A$2000,L$1FFB" T14:C!(25,100),C!(25,110),C!(25,120)::300 6010:W(84,92,"INERTIA? (0-5).."):I$ I(I$)48:II`x pa|gg?gsyC~y?12:">>> RUN MENU <<<",d(4);"RUN MENU"2eXfW(185,114,"Q'TY="),W(230,114,N$)fgNN1:23hW(185,114,"Q'TY="),W(230,114,N$)iNN1jN0N0k2330,114,N$)NN1N0N03230A"Y"18:E$"N"5:17 :b TP::16368,0:::12:12:">>> RUN MENU <<<":(4)"RUN MENU": W(185,114,"Q'TY="),W(230,114,N$):NN1:4 W(185,114,"Q'TY="),W(230,114,N$):NN1:N0N0 4 `93 a: bTP::16368,0c::12:N D823G":I1(A$):511I,((A$,I,1))128::72,0:144:::(4);"PR#1"z 1913,2AB:(17):NN1:N014::::13 :(4);"PR#0":F(W,602153517) W(65,40,E$):A$:A$"Y"16:A$"N"19:15  TP::12:12:"QUIT (Y/N) ?":E$:E$3:X1069:X,176X,191::5:X71130:X,176X,191::A0:5 3:X211269:X,176X,191::6:X150209:X,176X,191::B64:5 3:X150209:X,176X,191::6:X211269:X,176X,191::B0:5J :::(4)"BLOAD PIC,A$4000":A$"2000<4000.5FFFM Y,ZV5,CLICK,HTM131,NC)u Y160Y1107:Y90Y6012:X10X698:X70X1309:X150X21010:X210X26911:5 X10X6917:X70X13019:X150X21020:X210X26921:5 3:X71130:X,176X,191::5:X1069:X,176X,191::A32:5> 9,125:110,75170,75 70,11070,191:210,125210,191:W(125,64,"START"),W(180,130,"+"),W(235,130,"-"):W(15,164,A$),W(80,164,B$),W(169,164,C$),W(222,164,D$):N0:W(25,114,"QUIT"),W(85,114,"MENU") N$(N):W(185,114,"Q'TY="):W(230,114,N$) T(X,(::(4);"MAXFILES 3":CHS,DHS,HS A$"INVERSE":B$"NORMAL":C$"BIG":D$"SMALL":E$"PRINTER AGAINST (Y/N) ?":F(W,1013016031),F(W,1013011030):X10130:F(W,15026916031),F(W,15026911030):F(W,1101706030):0:0,175279,175:0,12527      |!p?~Cps|c`?xGrx|`w~|}}@B8sG~?zgqNsww7~y7w+sgy}o/g^oQCoN@0~sw=ogsysc}o~g|}ypcyogw~OOy|3{wg}g7_]OOwcaGsOOs?~sgy?>~xac?Nc|`GHO?x?Gc|Apqg~Gp|mJ ۛii --SIۛIi --SMۛ)-ۛI SIۛi S)mJ)ۛ MSMۛ)-ۛi SMۛ - --SIۛIiJiSiۛ MSiJ-ۛi SMۛ -ۛi SMۛ -J-ۛi SMۛ -ۛI SIۛ)mJISIۛIMJIS MJISIJISIۛIMJIS MJiSiy?~}>sgyo?~w}}|Gs?JIS MJiSiJISIۛII --SIۛIIJIJISIۛIIJISIۛIIJiJISIۛIiJiSiۛiIJIJ-ۛi SMۛi Smۛi S)mJiS)MJiS MJiS MJ-J-ۛi SIۛImJMSMۛ)- --SIۛIiJ)ۛI SMۛ -J ۛIoow|s?~;ysOyw7YoGwGdcx{{||d~gp?~_ppfgoC#~Oax?x|scpa}ywOxosc}}`g?~S-mJi mۛ)MSIۛIMJMSMۛI)JMS M MJMS SMۛ mJiS MJiSIۛIIJISIJ ۛIMJMSiۛ MS MJ JMS MJ ۛIiJ ۛIMJMJiS S)m --S)m S MJIS MJiS--S MJiSIJISIۛII --Smۛ)MSmۛ)MSmۛ)-JIS MJ-ۛi S MJiS MJISIۛIIJISIۛIIJIJISIۛIIJISIۛIIJIJiS MJiS MJiSIۛIMJ ۛ ۛ ۛIIJISIۛIIJ ۛ ۛ)-ۛ ۛ)-ۛ ۛ JiS)-S MJ-ۛI SMۛi S)m Mۛi SMۛi SMۛ ۛIM Mۛi SMۛi S Smۛi  Mۛi SiۛIMJ ۛi SM Mۛi SiۛIMJiS MJi --SIۛIiJiSiۛiI -- --S--S--S--S--S--S-- --S--S--S--S--S--S-- Mۛi Smۛi SMۛi SMJ-ۛi SMۛi SMۛi S)m -m Mۛi S-m MۛiI MJ-ۛi SMۛi S SMۛ m -m Mۛi S-m M Mۛi J-ۛi SMۛ -ۛI SMۛ - --S MJiS MJiS MJi Mۛi SMۛi I -m MۛiI MJ-ۛiI MۛiI Mۛi S)m Mۛi SMۛ)-ۛi SMۛi J-ۛIMJiS MJiS MJ-JISIۛI SIۛI SMۛ - Mۛii M mۛiM Mۛi  MۛiI MۛiI MۛiI -- Mۛ) ۛi S SMۛi SMMJMJ-ۛi SIۛIMJiSIۛIMJ-ۛi S S -S m Mۛ -JiSiۛi SMۛ)-ۛi SM -m Mۛi S-m Mۛi S-mJ-ۛi SMۛiI Mۛi S)m -m Mۛi SMۛi SMۛ)- --SMۛiI -m MۛiI -- --SMۛi --SIۛIiJiSiۛ MSiJ-ۛi SMۛ -ۛi SMۛ -J-ۛi SMۛ -ۛI SIۛ)mJISIۛIMJIS MJISIJISIۛIMJIS MJiSiJ ۛIMJMSMۛ MS MJ JISIۛ)-ۛII --SIۛIIJMS MJ ۛI SIۛIIiJiSiۛiIJIJ-ۛi SMۛi Smۛi S)mJiS)MJiS MJiS MJ-J-ۛi SIۛImJMSMۛ)- --SIۛIiJ)ۛI SMۛ -J ۛImJ ۛii --SIۛIi --SMۛ)-ۛI SIۛi S)mJ)ۛ MSMۛ)-ۛi SMۛ -ۛIIJISIJ ۛIMJMSiۛ MS MJ JMS MJ ۛIiJ ۛIMJMJiS S)m --S)m S MJIS MJiS--S MJiSIJISIۛIIJIS MJiSiJISIۛII --SIۛIIJIJISIۛIIJISIۛIIJiJISIۛKkJISIۛIIJISIۛIIJIJiS MJiS MJiSIۛIMJ ۛ ۛ ۛIIJISIۛIIJ ۛ ۛ)-ۛ ۛ)-ۛ ۛ JiS)-S MJ-ۛI S-mJi mۛ)MSIۛIMJMSMۛI)JMS M MJMS SMۛ mJiS MJiSI@M"Bc -Nq4Uv@b%Hi4Vw@b -Op @ `  ( J j  1 Q q  9 [ | " C d ,Np5Wx=^~&        4,92," ERASE? "):7500; K$"Y"įCHP:D0:NįNEGD 300q 6010:W(84,92,"RETURN TO MENU ?"):7500 K$"Y"ĺ:(4);"RUN MENU" 7010:300H 3405M 6500:W(34,92,"LOAD FILENAME> "):6600R 6550::(4);"BLOAD "OOw}?~?g|{{w7?oWw(16384):KEY32300"|HP:320W':::" L . P . S . L A B O R A T O R I E S"q':"*** LPS II ***"w',88424,16384)'F(B,772048816):7XI01000:TbF(16384,732088424):\@TPJ(14):(28):" HIT<";::"SPACE";O:"> "T(15):(28):" TO "^(16):(28):" RESUME ":h(16384)1288040rD(16368):KEYX1,CYYY-@CXYY1,CYXX:CXYY1,CYXXQJCXYY1,CYXX:CXYY1,CYXX\T:300$6000:W(84,92," WON'T FIT! "):7000:300CNTįX(CX,CY)CNT1:CXX:CYY:X(CX,CY):300pI05:C!(10,10),C!(10,200)::C(10,20)zF(W,7320191CYSR049005YY00.707SR1:XX(RADYYYY)TCXXX,CYYY:CXXX,CYYYtCXXX,CYYY:CXXX,CYYYCXYY,CYXX:CXYY,CYXX"CXYY,CYXX:CXYY,CYXX'QĂ:300,CXXX1,CYYY:CXXX1,CYYY 6CXXX1,CYYY:CXXW(84,92,"HIT -H- FOR HELP")6 I01000::7000:300D CNT4020v 6000:W(84,92," NO CENTER YET! "):7000:300 X(CX,CY):CNT0 RAD(CXX)(CXX)(CYY)(CYY) RAD0ēX,Y:X1,Y:300 SR(RAD) CXSR278CXSR04900CYSR78įNEG:300 TKEY819990< ^KEY13ĺ:(4);"RUN MENU"U hKEY87Ē3:Q1:4000n rKEY66Ē0:Q1:4000 |KEY49Ē5:Q0:4000 KEY50Ē6:Q0:4000 KEY51Ē1:Q0:4000 KEY52Ē2:Q0:4000 KEY728000 KEY325000 6000:RT PROGRAM":Q -------------------------------------------------------------- INIT,START,CLICK,PEN(X,Y,ZV5),CHP,DHP:3 0,0279,0279,1910,1910,0:HP ,CNTįT(X,Y,KEY):320 6T(X,Y,KEY,LINES) @KEY5įCHP:3:Q1:CNT0:280 JKEYAGE"+ " : NEGATE IMAGE"Q " : ERASE IMAGE"z " : RETURN TO MENU" " : QUIT PROGRAM"; (14):(28):"USE LIGHT PEN" (15):(28):" TO " (16):(28):"STATHE CIRCLE" d1 x"HIT: FOR : WHITE"Q " : BLACK"W u " <1> : RED" " <2> : BLUE" " <3> : GREEN" " <4> : VIOLET"  " TO : SHOW HELP Py  :B"L.P.S. LABS - LPS II:";::(23):"*** CIRCLES ***"J:z("1> USE THE CURSOR TO LOCATE THE CENTER. "<"2> HIT TO FIX THAT LOCATION"FP"3> MOVE THE CURSOR TO THE CIRCLE'S EDGE." Z"4> SELECT A DRAWING COLOR FOR    |?|~gy?ry |Nxq7zO @qss'p~px~?x@cGyx~?x          z#   Š Ϡ ԠԠ!@Š!ſ Š'ȠӠ!ҠҮ̠ ӠĠ ˠŠŠŠҠà ՠŠ ŠԠԠ"Ԡ" Ġɠ'ԠҠ Ӡ Š Ġנ  Š!  7` ' IZ0 7``,3 I `)IH h` `HJ =+h  =,  i)  M " i)  M # i)  M $ i) ILM,5&$ EM `Ff$EL,5JJL7 L   & & &I #ML hhL ` qJ,3,4ԩ ` ' qJ  iL  & & &L   L  `  )H JJL{6e)(hjJ H)  h`   8M. `ʠ)#,` #LbLLL @` 0U#*18?FMT[bipw~3Df    `  IL `)JfJfJfe U   eL6 H eh,HHih>> OVER <<<":216,0:X140:Y96:50:300! KEY50KEY21D0:3008 KEY49KEY81000I KEY728000e KEY734000: INERTIA KEY774500: MIRRORING ERR$"HIT -H- FOR HELP":5000:300 COLERR$"HEY! WHAT COLOR?":5000:300 D1:300 D0:300 6010:W(8EY133200 MKEY76D0:34006 PKEY83D0:3500M RKEY84N1N:300i TKEY78įNEG:N1N:300 ^KEY82Ē5:COL1:300 hKEY66Ē6:COL1:300 rKEY71Ē1:COL1:300 |KEY86Ē2:COL1:300 KEY68Ē0:COL1:300 KEY87Ē3:COL1-- 8500= INIT,CHP,DHP,NEG,START,PEN(X,Y,ZV5),HP:N1H ,N303n -DįT(X,Y,KEY,SKETCHI,MIRRR):310 .T(X,Y,KEY):310 /DįT(X,Y,KEY,SKETCHI,MIRRR,NC):310 0T(X,Y,KEY,NC) 6313 9C!(10,20) ;KEY693000 @KEY819990 JKING "# S " HIT TO GO TO MENU ";Y z (14):(28):" POINT PEN " (15):(28):" HERE TO " (16):(28):"START PROGRAM": ------------------------------------------------------------ ARROW TO STOP" d n* x"OR HIT:"2 :a " E - ERASE N - NEGATE PICTURE" " H - HELP PAGE Q - QUIT PROGRAM " " I - INERTIA SET S - SAVE A PICTURE" " L - LOAD A PICTURE T - TOGGLE CURSOR " " M - MIRRORj  :3"L.P.S. LABS - LPS II: -- SKETCH --"9?Q#"TO SKETCH:"W(<"> SELECT A PEN COLOR: D W R B G V "F"> HIT -1- OR LEFT ARROW TO START DRAWING"P"> THE SELECTED COLOR WILL DRAW UNTIL ..." Z"> HIT -2- OR RIGHT  gpyOw#~_w_}|{{`sp~s?|yy|g?~s{o}w?`cpc`x| }o{O_}?~q|_w~GGqx_~O}ygoo?Ogw_www}yO          NįNEG16368,0JW(15,182,"SPEED=?(0 TO 9)"):S:S0S91517T1510`SS100W(15,182,"SPEED=?(0 TO 9)")HP:L0S:HS:L0S:(16384)1281550152016368,0:290@0,0:3082:290X7:1495:14807A90İ1490:YSYS2:1497:1495:1480A1480YF(W,XSXEYSYE):uF(24576,XSXEYSYE):XS0XE279YS0(YEYS)191įW(100,96,">>> OVER <<<"):L1300::W(100,96,">>> OVER <<<"):1460PP0įHPPP1įHS 0::W(100,96,">>> OVER <<<"):1460-1495RKEY8KEY21KEY65KEY901480b1490:1460rA$:A(A$)A81290A8İ1490:XSXS2:XEXE2:1497:1495:1480A21İ1490:XSXS2:XEXE2:1497:1495:1480 A65İ1490:YSYS2:149X1X:Y1Y:X(X1,Y1)3T(X,Y,KEY,LINES,CLICK)KX2X:Y2Y:X(X1,Y1)[KEY81290|F(W,X1X2Y1(Y2Y1),24576)T(X,Y,KEY,CLICK,LINES)XSX:XEX(X2X1):YSY:YEY2Y1#XS0XE279YS0(YEYS)191įW(100,96,">>> OVER <<<"):L130 PIC,A$4000,L$1FFF":1190#1180=::(4);"RUN PRINT"^DHS,HS,W(3,182,"2"):NįNEGjPPPP1yPP21250290DHP,HP:PP0:290PP0įHSNįNEG(317442290xNįNEG}T(X,Y,KEY,LINES,CLICK)KEY812901010tK$"N"İ1000:290P~:::" L . P . S . L A B O R A T O R I E S"j:"*** LPS II ***"(4)"RUN MENU":DHS,HS,W(15,182,"PRINTER ?"):A$:W(15,182,"PRINTER ?"):A$"N"290A$"Y"įTP::22:"WAITING.....":::(4);"BSAVE?~yO~oxysxy{g?~|q?|~~?~o?w?`O?~|o{oO?ps`|gpx}_~?~o~ss__w}G|xsc|~y}pA}}o?~_yow@~@@w|c?__O{ox``O}|~?G}o_??~?~vgow~?pG~|psy~?|{_s}oOwyo?g}3}sg?~_~|?~~~|Op||?}W~y?~|?|?~gCcwCpxO{s|}|xO|g?wg|?~_|}o{ggGg|ca~}OW|xO|yy_w}q?~sw~A||}~xyyo??O{ow_O~|@~wyy?O_?~g{Oaxp_c}}~?~yoO??~AfOgw~|~a|w}`sOg}o_w{o?~=`gp?O~~?~~?~~?~~ggy?~}W~sy?~wLg@w_`yy}}~Ccys?~sq|}}o{w3x~O~?x}oS}s_}}{?~_w|?|?|~Gg`|a~}Gsso?osowOo|p|gs?|??~o_pq{|x~?x|y}=~?|{og?|?nws|cq~?|aw|xpgoyO_w{og?~O?~?~ox?~~~x~?|wOs@_}W~ggsG|_wOw_}}yy`G~x{y|{}?xq?yyoyw x_@@?~}o[yg_}|{~_w~qG~OpO~}s?pgo?_owOwgg}|aoG?|g_ |y0~GC?~sO`}}9?q{Os?}?o?s{}?x~~g?~~ooq?~{_w{os?~x|~?`~oc~?~s~ywwO``_}W~Os)-+----IIII{_x?y?o?~y{y?x~cp}gg?|?xOuyOw~?|?~|w~g}?~_ww|wSC_}~?~|O?|p?qw_}?yyq_w~}~sOOw}_C~xO{o|w|_?~pAr}__gc?~qw?~o{o?|yxy?xx}?~Oo?~gwo_w{?~o}?~?|gg{~x|?~w_~?|w{@|{aO?Tl3n1~@m  i K~D "#$$6%III)MImI)-m -m ---Mmm) m)--M -MIIIIIRIII MMMMMM---M)--MMMMMMIII               -MIIIIII)+-MIIIIIII --MIIIIIIIII --MIIIIIIIIIII--mIIIIIIIIIIII --MIIIIIIIIIIIIII)-MIIIIIIIIIIIIIII -+-MIIIIIIIIIIIIIIIII-MIIMIIIIIIIIIIIIIII MIIIIIIIIIIIIIII MIIIIIIIIIIIIIII MIIIIIIIIIIIIIII MIIIIIIIIIIIIIII -------------------------KIIIIIIIII--+m --MI -+-MIII-+mIIIII)III MIIIIIIIIIIIIIII MIIIIIIIIIIIIIII MIIIIIIIIIIIIIII MIIIIIIIIIIIIIII MIIIIIIIIIIIIIII MIIIIIIIIIIIIIII MIIIIIIIIIIIIIII ---MIIIII---MIIIIIII+---MIIIIIIIII+--mIIIIIIIIIIII---MIIIIIIIIIIIII MIIIIIIIIIIIIIII MIIIIIIIIIIIIIII MIIIIIIIIIIIIIII MIIIIIIIIIIII MIIIIIII MIIIIIII MIIIIIII MIIIIIII MIIIIIII MIIIIIII MIIIIIII MIIIIIII MIIIIIII MIIIIIII -------------KIIIIIIIIIIIIII)-----MI---mIIIIIII MIIIIIII MIIIIIII MIIIIIII MIIIIIII MIIIIIII MIIIIIII MIIIIIII MIIIIIII MIIIIIII MIIIIIII MIIIIIII MIIIIIII MIIIIIII MIIIIIIIMIIIIIII MIIIIIII MIIIIIII MIIIIIII MIIIIIII MIIIIIII MIIIIIII MIIIIIII MIIIIIII MIIIIIII MIIIIIII MIIIIIII MIIIIIII MIIIIIII MIIIkIIIIIIIIIIIIIIIII mIIIIIIIIIIIIIIIII)+MIIIIIIIIIIIIIIIII+---------------------------NIIIK-------------MIIIIIII MIIIIIII MIIIIIII MIIIIIII MIIIIIIIIIIIIIIIII+MIIIIIIIIIIIIIIIIIMIIIIIIIIIIIIIIIII+MIIIIIIIIIIIIIIIIImIIIIIIIIIIIIIIIII)MIIIIIIIIIIIIIIIII+MIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII+MIIIIIIIIIIIIIIIIIMIIIIIIIIIIIIIIIII+MIIIIIIIIIIIIIIIIIMIIIIIIIIIIIIIIIII+MIIIIIIIIIIIIIIIIImIIIIIIIIIIIIIIIII)kIIIIIIIIIMIIIIIIIIIkIIIIIIIIIMIIIIIIIIIkIIIIIIIII---------------KIIII---------------------------mIIIIIIIIIIIIIIIIIMIIIIIIIIIIIIIIIIImMIIIIIIIIIkIIIIIIIIIMIIIIIIIIIkIIIIIIIIIMIIIIIIIIIkIIIIIIIIIMIIIIIIIIIkIIIIIIIIIMIIIIIIIIIkIIIIIIIIIMIIIIIIIIIkIIIIIIIIIMIIIIIIIIIMIIIIIIIIIIIIIIIMIIIIIIIIIIIIIIIMIIIIIIIIIIIIIIIMIIIIIIIIIIIIIIIMIIIIIIIIIIIIIII------------------------u ---------------kIIIIIIIIIMIIIIIIIIIIIIIIIMIIIIIIIIIIIIIIIMIIIIIIIIIIIIIIIMIIIIIIIIIIIIIIIMIIIIIIIIIIIIIIIMIIIIIIIIIIIIIIIMIIIIIIIIIIIIIIIMIIIIIIIIIIIIIII +--m)MI36vIII K------------------------MIIIIIIIIIIIIIIIMIIIIIIIIIIIIIIIMIIIIIIIIIIIIIIIMIIIIIIIIIIIIIIIMIIIIIIIIIIIIIIIMIIIIIIIIIIIIIIIMIm -+M -+-K MIIm mII)M-MIIm----m)--MII-+MIIMIIMII+MII-MII-----m)--MIIm+MIIm)MMIIm -+M -+-KIII)-MII-MII-MI mMI)MIMI -+--mI)kII)-MI) --M@         16368):' 716384)128:I(16368):3' --------------------------------------MIIkIIMII666RIIIIII -----------------------------------------------------------------------------------------------------------------------------------IIIIIIIIIIII+MIIIIIIIIIIII mIIIIIIIIIIII)-MIIIIIIIIIII-mIIIIIIIIII--MIIIIIIII-------------uIKIIIIIII 66MIIkIIMIIM)----M+---MMM)----MM1-----NIKIII ---------------MIIIIIIII+-MIIIIIIIIII-MIIIIIIIIIIImIIIIIIIIIIII)+MIIIIIIIIIIII kIIIIIIIIIIIIIMIIIIIIIIIIIIIMIIIIIIIIIIIIIMIIIIIIIIIIIIIIIMIIIIIIIIIIIIIIkIIIIIIIIIIIIIIMIIIIIIIIIIIIIIkIIIIIIIIIIIIIImIIIIIIIIIIIII)mIIIIIIIIIIII +MIIIIIIIIIII ------------------IIIII -+mIIIII)+-MIII--MI --M)--NIIIIIIIIIK -------------------+MIIIIIIIIIII +MIIIIIIIIIIII)mIIIIIIIIIIIII)MIIIIIIIIIIIII MIIIIIIIIIIIIIIkIIIIIIIIIIIIIIIII+-MIIIIIIIIIIIIIIIII--MIIIIIIIIIIIIIII --MIIIIIIIIIIIIII)-mIIIIIIIIIIII --MIIIIIIIIIII--MIIIIIIIII --mIIIIIIII-+mI|O JH @ Q_hL?1:1:DX1:DY0:XR1:YR0:0:NO0:DR$"LEFT TO RIGHT":CL$"WHITE":FT$"ENGLISH"d "BLOAD SHAPE 2"m 7,9 p936:16303,0 z" PLOT TEXT WRITER ": : "SELECT FUNCTION BY NUMBER": "1. EXAMINE CURRENT SETUP": "2. FORMAT":  10000 INIT:300,7271:9040OdDHP,HP,T(X,Y,KEY,LINES,CLICK)Um,A516384:A6163686L116416:L216411:L316412:L416413:L516414^N1256:N2279:N30:N4159:N5127:TWO2h232,0:233,64:PF0:FM1r5000N CL3:3:SZ          ONVERT TO ROW/COL (NPR,NPC)'%X0:Y0T%PEN(X,Y,KEY,ZV5):KEY255PLAY0:1080i%PR((Y17)9)1{&PR1PRPR1 &PC((X5)15)&PC0PC0:9770 &PC17PC17*&H&AD:AD09870R&DA:DA19800\&AD,DA:ADAD1:9810f&T COL *****&%ROWNR(COL)00%ROW0Y6:9540?:%YROW912OD%XCOL1512cN%1X,Y:ROW3ıqS%ROW11ıX%ROW2(ROW2)ıb%4:X6,YX6,Yl%% ***** TOGGLE ARROW AT CAP *****%2CAP1513,181:% ***** READ PEN LOCATION & C,234,173,48N  192,174,190,3,172,191,3,136,208,253,202,208,250,240,201,-1z @ ***** INITIALIZE NOTE POSITIONS ***** JCOL017 TNR(COL)17COL:9500 ^COL hCAP0:9600 r COL017:HL(COL),HH(COL):COL: % ***** TOGGLE NOTE AAPCAP1:9600:20003 XLOC900954:DA:LOC,DA:D bDA:DA1ı] l"DATA READ ERROR": v 169,2,44,192,192,240,24,173,200,192,206,189,3,208,22  96,234,234,234,234,234,234,234,234,234,234,234,234  234,234,234,234,234,234,234,234,23481190# 9600:CAPPC:9600:1000E COLPC:9500:NR(COL)PR:9500b 9600:CAPPC:9600:1000 FL,HL(NR(CAP)):FH,HH(NR(CAP)):TI,TM NR(CAP)02010 W1TM10:W 2050 900 CAP17CAP0:2000 (KBD)1271000 9600:C:DUM(KYS):PLAY0$ 8KEY211110F B9600:CAPCAP1:CAP17CAP0V L9600:1000g VKEY81140 `9600:CAPCAP1:CAP0CAP17 j9600:1000 tKEY801155 ~PLAY1:2000 KEY131000 :(4);"RUN MENU" 9700:PLAY0 PR1,TM NR(CAP)01010* W1TM10:W4 1015= 900H STARTn (KBD)1271070: *** KEYHIT *** BZ(SL):BZ(2(BZ2))1160:*** PENHIT *** PLAY01020 CAP17PLAY0:1020 $9600:CAPCAP1:9600:1000 .KEY(KBD)128^  10000( :NR(20),HL(20),HH(20)>SL49152(35200)ddKYS16368:KBD16384:PBSY16285}nFL959:FH958:TI957xTM20:INIT7000:9900:9800:8000:8100903,(35200):908,(35200)8:START FL,HL(NR(CAP)):FH,HH(NR(CAP)):TI     OVE THE POINTER TO ANY LOCATION BY "T~'" POINTING THE PEN IN THE ARROW ROW. ":'"3> START THE COMPOSITION PLAYING BY"'" PRESSING 'P'. HIT ANY KEY TO STOP.":'"4> THE LEFT AND RIGHT ARROW KEYS WILL"'" MOVE THE POINTER LEFT OR RI ".'?8'"MUSIC ALLOWS SIMPLE MELODIES TO BE"nB'"COMPOSED AND PLAYED THROUGH THE DISPLAY"L'"OF THE APPLE COMPUTER WITH THE LPS II."::`'"1> USE THE PEN TO MOVE NOTES WHEREVER"j'" REQUIRED TO PRODUCE A TUNE.":$t'"2> M&Y04:0,Y279,Y:Y(&Y3911118:&0,Y279,Y:YL&Y12916518f&9960:Y:Y21:9960:s&0,Y3,Y&X427415&X,YX1,Y:X'276,Y279,Y:':'" L . P . S . L A B O R A T O R I E S"$'" *** MUSIC ***06,1{& 106,1|& 120,1(}& 135,14~& 144,1@& 165,1L& 185,1X& 197,1d& 220,1p& 250,1{& 27,2& 41,2& 78,2& 120,2& 139,2& 190,2& 251,2& 50,3&0:1:&NEG:4&Y813:0,Y279,Y:Yk& 41,77,37,63,12,63,63,63,63,63,12,45,45,45,45dl& 28,63,63,63,12,45,45,28,63,12,150,146,9,63,63m& 31,63,46,77,45,78,63,63,46,45,53,63,63,23,45n& 45,45,62,63,63,55,45,45,45,62,63,63,39,0,-1,0p& *** FREQUENCY TABLES APPEAR HERE *****z& 1 232,0,3,-1,768,2,0,6,0,71,0Og& 41,45,45,60,63,63,39,45,45,37,63,63,39,45,45h& 28,63,103,25,63,62,247,45,53,63,63,46,45,53,63i& 63,55,45,45,53,63,63,119,45,45,53,63,63,119,45j& 45,62,63,110,45,44,101,63,39,45,45,60,63,103,73,57,63,63,39,0000::HS:3475ECALL PICTURE <== DISK":4!"C----CATALOG DISK":^&A$:A$"E"A$"C"A$"S"A$"R"6970h06000:A$"E"đ:XW0:6000DA$"S"Ą"SAVE UNDER WHAT NAME ?";A$:"BSAVE ";A$;",A$2000,L$2000":6000IA$"C"ĺ:936:"CATALOG"::"PRESS ANY KE"B"CL$"BLUE":6:CL6:6000FCL$"H"CL$"WHITE 2":7:CL7:6000oCL$"K"CL$"BLACK 2":4:CL4:6000"ANSWER W,0,O,V,G,H,OR B PLEASE.":6880936::::"E----ERASE SCREEN":"S----STORE PICTURE==> DISK":"R----R3:60000CL$"H"CL$"WHITE 2":7:CL7:6000WCL$"0"CL$"BLACK":0:CL0:6000CL$"L"CL$"BLACK 2":4:CL4:6000CL$"O"CL$"ORANGE":5:CL5:6000CL$"V"CL$"VIOLET":2:CL2:6000CL$"G"CL$"GREEN":1:CL1:6000CL$:" W= WHITE 1":6" H= WHITE 2":^" 0= BLACK 1 (THAT'S ZERO)":x" K= BLACK 2":" O= ORANGE":" V= VIOLET":" G= GREEN":" B= BLUE"::CL$:CL$"W"CL$"WHITE":3:CL.....":D$;"BSAVE PIC,A$2000,L$1FFF"::D$;"RUN PRINT"O:D$;"RUN MENU"],936::6"INPUT SIZE OF TEXT (1-5)";:A$@SZ(A$)JSZ0SZ5ĺ:"A NUMBER BETWEEN 1 AND 5 PLEASE."::6710TSZ:PF0:6000936::"INPUT COLOR"DR$"U"DR$"UP TO DOWN":16:FM2:6000V DR$"D"DR$"DOWN TO UP":48:FM4:6000 "PLEASE ANSWER L,U,D, OR R. TRY AGAIN."::6535 TP::22:"PRINTER (Y/N) ?":Q$ D$(4) Q$"Y"6610 Q$"N"6615 6600$TP::22:"WAITINGIRECTION OF TEXT":3 n" L= LEFT TO RIGHT":P s" U= UP TO DOWN":m x" D= DOWN TO UP": " R= RIGHT TO LEFT": :DR$:PF0 DR$"L"DR$"LEFT TO RIGHT":0:FM1:6000 DR$"R"DR$"RIGHT TO LEFT":32:FM3:6000) ,6800,6900,7000,7100,6600' 936::E "CURRENT SETUP VALUES":_ "FORMAT = ";DR$:x ("SIZE = ";SZ: 2"COLOR = ";CL$: F"FONT = ";FT$: P" PRESS ANY KEY FOR FUNCTION LIST";:A$ Z6000 d936:: i"INPUT D"3. SIZE": "4. COLOR":G "5. ERASE-STORE-RECALL-CATALOG":X "6. FONT":s "7. READY TO WRITE": "8. END SESSION ": 8" ";:A$ BFF(A$):FF0FF8ĺ"ANUMBER BETWEEN 1 AND 8. PLEASE TRY AGAIN.":6200 LFF6400,6500,6700VE CURSOR "8p" TO MOVE SCREEN, HOLD"_z" THE KEY DOWN. "e" - PLACE WHITE DOT AT CURSOR"" - BLACK DOT"" --- HIT ANY KEY TO RETURN --- "Q$:16368,0:50061X00X00#X0240X2402Y00Y00EY0168Y0168K Z(1):(24) "L . P . S . L A B O R A T O R I E S"*>"---------------------------------------"HR"CURSOR MOVEMENT KEYPAD: "\f" THESE MO1:690KEY78įNEG:500?KEY87Ē3:X0H1,Y0V1:500bKEY66Ē0:X0H1,Y0V1:500KEY90XX0H1:YY0V1:440KEY63KEY47790700:500H5H5:X0X01H36H36:X0X01V5V5:Y0Y01V20V20:Y0Y084)128530A$:KEY(A$)G&KEY32XX0H1:YY0V1:20:958:^0KEY73VV1:690u:KEY77VV1:690DKEY74HH1:690NKEY75HH1:690XKEY9Y0Y01:690bKEY13Y0Y01:690lKEY10X0X01:690vKEY11X0X0T01000:WT:92H20:V12:X0X20:Y0Y12:700?X4X4PX275X275]Y4Y4nY186Y186HXX01:VYY01ZOOM(X0,Y0),TPI02:(H):(VI2):"X";:(H):(VI2):"X";:(H4):(V):"XXX";:(H2):"XXX"; (163?":A$:A$"Y"ĺ:(4);"RUN LINK THE SHAPE"A&:D$"RUN MENU":'CO:SNTX,TY:IDSL((SN1)2):(ID1)21ĭ(((ID)(ID1)256)(SL2))11ĒCO4:SN1TX,TY()20:958:::"ERASE (Y/N) ";:A$:A$"Y"đ*:+:::" ERROR !!!!":WX,Y):?"N%N%1:N%18:0:T1X%(N%):T2Y%(N%):T1,T2:3:43#T1((16384)2)16384:T2(T1)(T11)256:"A NAME FOR THE TABLE PLEASE - (1 TO 9)";A:A0T210000ı$D$"BSAVE SHAPE ";A;",A$4000,L"(T2):+%20:958::"TO LINK THE SHAPE (Y/N) 3,08:6157,00:6158,00:05,(5)6:07,(7)6:6201c6235,76:BA(0)(1)256:(6146)0605:15{A$"R"T1T11:31A$"P"29:A$"B"34:A$"F"43:43FL0FL1:43FL0:N%N%1:43FL043:T1,T2:43 0:T1,T2:3:!X(159::150,BA(BA256)256:6144,N%(N%256)256:6145,(N%256):6153,08:6157,00:6158,00:05,(5)6:07,(7)6:6201::15:(7):"**SORRY !!, HIT ANY KEY":A$:BA0Ĺ6235,96:6159:2626235,96:0,BA(BA256)256:6144,32:6145,3:615 TO CONTINUE":A$:16384,(16384)1:(16384)0Ĺ16385,255v T1((16384)2)16384:((T1)((T11)256)16385),0:9 16368,0 2 N1%X256:N2%XN1%256:FL1FL0:18 KE32FL1:19 16368,0:N1%X256:N2%XN1%256: BA0Č618:DY%YTY:TY%TY:DX%XTX:TX%TX:33:XTXYTYİ33:13 SN(SL)::"SCANNING"::X(X,Y),X(TX,TY):7487:232,0:233,64:CO0:39:CO3:39: (6146)255ĺ"TABLE FULL OR MORE THAN 255 SHAPES DEFINED, LAST SHAPE NUMBER DELETED, HIT ANY KEY$"Q"Ĺ7,6:37- A$"S"Ģ20::958:35:9@ A$"E"İ41:9b A$"R"5:1:0:3:A$"D"9; 20:958::"OR AT UPPER LEFT CORNER OF REQUIRED BLOCK AND PRESS ANY KEY ":18:X(X2)2:TXX:TYY:33:::"NOW THE LOWER RIGHT CORNER, PRESS A KEY":6385)09_ A$"Y"6::"NAME OF THE SHAPE TABLE (1-9) ?";A::D$"BLOAD SHAPE ";A;",A$4000" "THERE ARE "(16384)1" SHAPES IN TABLE":"PRESS D--DEFINE S--SAVE R--RECALL Q--QUIT E--ERASE";:23:3:A$:A3 :21:958:"LOAD A PICTURE FROM DISK? (Y/N) ";:A$:::A$"N"6:A$"Y"5:"NAME OF THE PICTURE? ";A$:D$"BLOAD "A$" ,A$2000 :"LOAD A SHAPE TABLE FROM DISK? (Y/N) IF SAME ":A$:::A$"N"Ĺ16384,1:16385,255:9 (A$)13Ĵ(1INIT,CHP,DHP,HP,MIXED:3`T(X,Y,KEY,LINES,CLICK,RT):440:T(X,Y,KEY,LINES,CLICK,RT):28183:D$(4):(5995)173(8191)274:"SHAPE MAKER BY L.P.S LABORATORIES ":D$"BLOAD VCODE":(7)7(7)64 X%(800),Y%(800):N%1:SL16384:4     I02:(H):(VI2):"X";:(H):(VI2):"X";:W(H4):(V):"XXX";:(H2):"XXX";o(16384)1281230A$:KEY(A$)KEY81XX0H1:YY0V1:HP:120KEY73VV1:1390KEY77VV1:1390KEY74HH1:1390 KEY75HH181,R$),W(178,181,D$):(BX1825920:LX(X,0,VLO):KVY1417516]`X(0,Y,HLO):qjX140:Y96:120tH20:V12:X0X20:Y0Y12:1400~X4X4X275X275Y4Y4Y186Y186HXX01:VYY01ZOOM(X0,Y0),TP0P::22:" DRAWING # WANTED ? ";SN:SN(16384)SN1I1070:110m1070:SNSN1:SN(16384)SN1v1101070:SNSN1:SN0SN1110SNX,Y:"";:XMX:YMY:120$SNXM,YM:SNXM,YM:"";:.RO:SC:W(110,181,S$),W(140,LL SHAPE"p2z" - SHAPE COLOR"P"-> <- TO SELECT SHAPE"s" OR - SHOW HELP PAGE":8:">>> HIT ANY KEY TO START <<<"A$:SCSC1:SC5SC11070:110RORO16RO64RO01070:110:TN> - NEGATE - UNDRAW"M>" - LOAD PIC - SAVE PIC"|H"

- PRINTER - LOADTABLE"R" <1> - SET LINES <2> - TO POINT "\" - TO LINES - CROSSLINE" f" - ZOOM - A" - SCALE - QUIT"W" - ROTATE - DRAW SHAPE"z " - SELECT SHAPE NO."" - TEXT WRITER" " - HORZ ONLY - VERT ONLY"*" - NORMAL - ERASE "4" <0RO0:SC1:SN1"936:21@232,0:233,64:SASM:SM1TP::22:"WAITING.....":(4);"BLOAD SHAPE ";A;",A$4000"50:TP"L . P . S . L A B O R A T O R I E S""---------------------------------------":"HIT:":(LN)X(LN),Y(LN1)X(LN1),Y(LN1)'Q4SN0:145^XTP::12:"QUIT TO MENU (Y/N) ?":Z$nbZ$"Y"640wl110vTP::12:15:">>> ERR <<<":L11000::80:(4);"RUN MENU"TP::22:"SHAPE TABLE NAME (1 TO 9) ?":AA1A9ī6580C &TP::22:"WAITING.....":(4);"BSAVE PIC,A$2000,L$1FFF"_ 0::(4);"RUN PRINT": :X(N)X:Y(N)Y:X(N),Y(N):"":145 DX(N)2,Y(N)X(N)1,Y(N):X(N)1,Y(N)1X(N)1,Y(N)1X(N),Y(N)1X(N),Y(N)1:"":145 NLN1(N1)!PX(LN),Y(0 KEY201900 120@ TP::20:"LOAD FILE NAME :";A$U 22:"DRIVE:":Bf B1B2470 :(4);"BLOAD";A$;",A$2000,D";B HP:70 TP::20:"SAVE FILE NAME :";C$ 22:"DRIVE:":C :(4);"BSAVE";C$;",A$2000,L$1FFF,D";C 8Ē0:120 @KEY71Ē1:1201 JKEY82Ē5:120E TKEY86Ē2:120Y ^KEY87Ē7:120i hKEY19940y rKEY18960 |KEY211010 KEY81030 KEY88LOCK1:120 KEY89LOCK2:120 KEY78İ1070:100 KEY321050 KEY499650 KEY651720, KEY81LOCK0:120< KEY17600N KEY85İ1060] KEY6950m KEY76460} KEY83510 KEY80550 KEY49NN1:570 KEY50580 KEY70590 "KEY63KEY47İ720:120 ,KEY66Ē6:120 6KEY6CK1130 yLOCK21407 zT(X,Y,KEY,ZV0,LINES):150Z T(X,Y,KEY,ZV0,LINES,HMO):150} T(X,Y,KEY,ZV0,LINES,VMO):150 T(X,Y,KEY,LINES,RT):152 SNX,Y:SNX,Y KEY255120 KEY671090 KEY671090 KEY901140 KEY84*5 :A516384:A616368:N30:N5127:X(50):Y(50)>720G(650Q21070f<INIT,CHP,DHP,HP~PF(W,8919217814)ZW(94,181,"S= R= D= ")dNEGnD$(SN):S$(SC):R$(RO5.625):W(110,181,S$),W(140,181,R$),W(178,181,D$) xLO     ::" L . P . S . L A B O R A T O R I E S"G':"*** LPS II ***"M'C"Y' RESUME ":&h(16384)1288040PrD(16368):KEY(16384):KEY32300]|HP:310s(#AD:AD0Ę0:1:2#DA:DA19000<#AD,DA:ADAD1:9010F# 232,0,3,-1,768,1,0,4,0P# 3,32,108,54,45,22,63,54,31,36,63,4,40,141,192,0,-1,0-':,pI05:C!(10,10),C!(10,200)::C(10,20)IzF(W,732088424,16384)bF(B,772048816):rXI01000:bF(16384,732088424):@TPJ(16):(13):" HIT<";::"SPACE";O:"> "T(17):(13):" TO "^(18):(13):" FOR HELP"):7000:300' MKĕ1MX,MYH MXX:MYY:1MX,MY:MK1:300u COLERR$" WHAT COLOR ?? ":5000:300 MKERR$"DRAW FROM WHERE?":5000:300 1MX,MY:MK0 MX,MYX,Y:WēMX1,MYX1,Y 1000 6000:W(84,92,ERR$):7000:COL1:W1:300, hKEY66Ē6:COL1:W1:300J rKEY71Ē1:COL1:W1:300h |KEY86Ē2:COL1:W1:300y KEY728000 KEY49KEY81000 KEY50KEY212000 KEY87Ē3:COL1:W0:300 KEY68Ē0:COL1:W0:300 6000:W(84,92,"HIT -H-CK,START,PEN(X,Y,ZV5),HP,MAP8,VTM15:0I Y41888:X42608:X,Y::g "264,0264,191:X140:Y96 ,T(X,Y,KEY,LINES,NC,TP) 6KEY5įCHP,NEG:0:COL0:MK0:280 @KEY819990 JKEY13ĺ:(4);"RUN MENU" TKEY78įNEG:300 ^KEY82Ē5:RETURN TO MENU"7 " : QUIT PROGRAM";= ^ (16):(13):"USE LIGHT PEN" (17):(13):" TO " (18):(13):"START PROGRAM": --------------------------------------------------------------& INIT,CHP,DHP,NEG,CLINTINUE FROM LAST BY JUST HITTING"F n" ANOTHER -2- OR RIGHT ARROW"L xR X ^ j "HIT:"p " TO : SHOW HELP PAGE" " : NEGATE IMAGE" " : ERASE IMAGE" " : O ::9000<"L.P.S. LABS - LPS II: ** GRID DRAW **"BH(^2"CREATE A LINE:"d<F" > CHOOSE COLOR: HIT D,W,R,B,G,V "P" > POINT TO START, HIT -1- OR LEFT ARROW"Z" > POINT TO END, HIT -2- OR RIGHT ARROW"! d" > COHHsȭ查Ţ壐Lhh(&E%0Q&&Ӱ eЅԥePL`LzH΅ ΆhLeH0· ΈhL:آ=L5>9m`klnm\Łћȱeȱeש-ijlk)ћћ ieȅ8``꬇ꭅꮆH8HӰ hIiHӅхhЅԥፆ⍇hIi҄f8Ъх 8e҅ԥɆ0L`΅ N؅ 4م ` ȱ `蚩`   eHH@ё i iݦȑޠ8h@h   L#***  q Lq L  L****** q   L  8jjjjjj LL9   LH h`ȩȩȑ`@*ȱeeȌ HhL<[L<L9Li8LiLi8fP8- 8 kL=iȱiU 芑ȱ芑  LH38 79  399`  Hȱi@ 8)`آ     @  < y    `L       &T" - PLACE WHITE DOT AT CURSOR"C^" - BLACK DOT"Ihvr" - RE-CENTERS THE CURSOR ON SCREEN"|" - NEGATE IMAGE"" - QUIT ZOOM MODE":" --- HIT ANY KEY TO RETURN --- "1230N0:A1:Z1" ZOOM-MODE MENU"O"---------------------------------------"W:~"CURSOR MOVEMENT KEYPAD: """ THESE MOVE CURSOR "," TO MOVE SCREEN, HOLD"6" THE KEY DOWN. "@JEY471490n1400:1200/xH5H5:X0X01FH36H36:X0X01[V5V5:Y0Y01rV20V20:Y0Y01X00X00X0240X240Y00Y00Y0168Y0168(1):(24)"L . P . S . L A B O R A T O R I E S" 1:1390!KEY9Y0Y01:1390;KEY13Y0Y01:1390U(KEY10X0X01:1390o2KEY11X0X01:1390<KEY78įNEG:1200FKEY87Ē3:X0H1,Y0V1:1200PKEY66Ē0:X0H1,Y0V1:1200ZKEY90XX0H1:YY0V1:1140 dKEY63KI)-+----VIIJI)--.--.--@" "JIII)-----MII)-MIII --MIIIII-MIIIIII-MIIIIII)MIIIIIIIMIIIIIII+MIIIIIIIkIIIIIIIImIIIIIII MIIIIIIImIIIIIIImIIIIII--mIIII +-mI01,0r7200(#QQ60:BQ192#FM7600,7700,7400,7500I7#3:CL3Ē7e<#7271:9040:3:CL3Ē7|=#QQ124:9070:7271F#9070P#TI1SZQ#FM1FM3ĕQQX,Y1TI:9045R#QQXTI1,YU#(CL1CL2CL5CL6)SZ1ĔQQX1,Y:QQX1,YV#79:YSZ7PF00YYSZ6:YSZ67720DBQ1Y0:7720hXXSZ9:Y191:X279SZ8PF0n(@QQ14PF0:7200JQQ5ĀTQQ126000YQQ27FGFG:7100^QQ8İ9000hQQ24WXWX:WX1Ĺ16302,0mQQ24WX0Ĺ163BQ1X0:74203YYSZ9:X0:Y191SZ7PF09XLYY6SZ:Y191SZ67520nQBQ1Y191:7520VXXSZ9:Y0:XSZ8PF0`XXSZ6:SZ1FM1QL64XX2XSZ67620BQ1X07620BQ1X0:7620YYSZ8:X2ĔQQX,Y1TI:7275$iQQXTI1,YNk(CL1CL2CL5CL6)SZ1ĔQQX1,YVlTIbm9080:~pFM7400,7500,7600,7700z7200FM7410,7510,7610,77107200XX6SZ:SZ1FM1QL64XX2X279SZ67420BQ1X2797420 ESC FOR UPPER CASE";, PF172105%100V*QQ(16384):60X,Y:60X,Yg4QQ(16384)r>A6,N3HQQQQ128:PF1RQQ137295\QQQQ31:QQ0QQQQ31:8000a7270:7280fQQQQFG64:QLQQ:9070gTI1SZhFM1FM3G"ī6000,FT$"GREEK"::"BLOAD SHAPE 3";7,7:6000S16304,0:16297,0a936:21"PRESS CONTROL (CTRL) AND:"" N START NEW PLACE"" L LIST FUNCTIONS"FG0ĺ" ESC FOR LOWER CASE"; FG1ĺ"Y FOR MENU":A$:6000NN"NAME OF PICTURE ?";A$:"BLOAD";A$;",A$2000":6000\X936::nb"INPUT FONT"l:" E= ENGLISH"v:" G= GREEK":FT$FT$"E"7075FT$"ENGLISH"::"BLOAD SHAPE 2"6000FT$"14,1615:6,917:11,1417V 5,1521:21,235:21,2310:21,2315:6,924:11,1424c x5,1527 5,1530:31,335:31,3315:31,3210  @5,152:2,515 5,148:5,1411:9,1015 5,1514:14,165:14,1610:14,1615:6,917:11,1412 :15!10000#X1300:7(0A-1000I215S<1600bAX1300:zF0:1600:X1100:P20,5,15215,152:6,145:3,45:3,415L5,158:8,115:8,1115:8,1010 5,1514:14,165:14,1610:0,80,A$),W(80,100,B$) n0) xI1100F X(I1),Y(I1)X(I),Y(I)L Y N3160a N3 A$"HIT ANY KEY TO UNETCH" F(B,50230178190) W(65,180,A$) Z$:N:120 ::(4);"RUN MENU"C(I)X:Y(I)Y:' 3A$"HIT TO LIST"@ 4B$"HIT TO PLOT"^ 5W(80,80,A$),W(80,100,B$)t 7T(X,Y,KEY,LINES) 8KEY7660 9KEY71100 ;55 <TP: FI0100 KXX(I):YY(I) PI" ";"X=";X,"Y=";Y: ZHP:55 dDHP,HP iW(8 X(100):Y(100)*INIT,CHP,DHP,HP3NEGiC$"HIT ANY KEY TO START":D$"HIT RETURN TO MENU"W(80,80,C$),W(80,100,D$)T(X,Y,KEY,CLICK,LINES)#W(80,80,C$),W(80,100,D$)%KEY13200(I0100+J1100:J-P(X,Y) 2X:1730:1730:80-0:1:X6:Y11:SL140N8L18DSLX,YQS$(SL)eW(X1,Y10,S$)xSLSL1:XX34SL(16384)1830SL40(N1)ZZ1:1850:YY35:X61740&A2ı0AA1:I$::I$:Z3NN1:Z1:1730INK THE SHAPE", "PLOT & UNPLOT","PENPAINTER" D AD:AD0Ę48:1:i DA:DA121:AD,DA:ADAD1:22  232,0,3,-1,768,1,0,4,0, 60,40,37,63,28,45,45,60,63,231,45,45,45,60,63,63,103, 41,37,63,44,37,63,44,37,63,44,229,192,0,-1,0"WAITING.....":(4);"BSAVE PIC,A$4000,L$1FFF"HE::(4);"RUN PRINT"EY176Y156Y1156:18:Y170176:40,Y80,Y::N11:19> 4q 135,Y17:5:Y2Y114:YY1Y2:40,Y80,Y:: (16368),0:::(4);"RUN ";C$(N)-  "SKETCH","GRID DRAW","TEXT WRITER","GEOMED II","MUSIC","BOXES","CIRCLES","SHAPE MAKER","L3:19& Y72Y58Y158:18:N4:19G Y86Y72Y172:18:N5:19i Y100Y86Y186:18:N6:19 Y114Y100Y1100:18:N7:19 Y128Y114Y1114:18:N8:19 Y142Y128Y1128:18:N9:19 Y156Y142Y1142:18:N10:197 80,Y279,Y::C$(11):D$C$(11):W(90,Y8,D$):40,040,191:1:Y15176 40,Y80,Y::Y3016514:0:40,Y80,Y::21:T(X,Y,ZV10,CLICK,NC) X40X806:4 Y30Y15Y115:18:N1:19 Y44Y30Y130:18:N2:19 Y58Y44Y144:18:N\INIT,CHP,DHP,HP,F(W,0279015),F(W,0279176191),F(W,0150191),F(W,2642790191)A$"LPS-II APPLICATIONS MENU":B$"L.P.S. LABORATORIES CO.,LTD":W(50,5,A$):W(50,181,B$):C$(11):3:N1F Y3016514:C$(N):D$C$(N):NN1:W(90,Y10,D$):     D1730)l::(4);"RUN TEXT WRITER"7 l6,1421:6,1424:22,2350 22,2315:X.01745+ X(73),Y(73)#+ I119A+ X(I)A((I1)5K)(1M)_+* Y(I)B((I1)5K)(1M)~+4 X(38I)X(I):Y(38I)Y(I)+> X(36I)X(I):Y(36I)Y(I)+H X(74I)X(I):Y(74I)Y(I)+R I+\ I173+f X(I)X(I)HB:Y(I)VBY(I)+p I ,z W(20,:V2Y:V1VB(VBV2):HB,V1HB,V26* A(((H2H1)2))H* B((V2VB))s* A$"ENTER THE PARAMETER N=? (0 - 36 )"* B$"WAITING.............."* HS,W(20,180,A$):M* W(20,180,A$),W(20,180,B$)* M0M.01* A139A139* B95B95+ K00 )g NEG%)l DHS:(16384)127N09)n (16384)0N3c) T(X,Y,KEY,LINES,CLICK,RT):KEY8150t) KEY783175) N:H1X:X,Y:VBY) T(X,Y,KEY,LINES,CLICK,RT,HMO):H2X:VY:H1,VH2,V) 3495 * HB(H2H1)2H1:T(HB,Y,KEY,LINES,CLICK,RT,VMO)( Y183Y183#( Y1183Y1183.( R18M( X1R,YRXR,YRXR,Y1RT( Rq( W(5,5,"COLOR=?"):3110( W(5,15,"(0 TO 7)")(& C:W(5,5,"COLOR=?")(0 W(5,15,"(0 TO 7)")(: C0C73090(D C(N IY11Y1(X X11,IX1,I:)b 293 @@@p@C ```  ``00@8 @xp h``@ @ ``8D@` `@0@0@x`<0`0p{ @<Bp@0@  `p@  p`  p@x<`@@ @|@8@A@@0 0@p@`@` ,< h@0@@ @ `dp 00 <`0` @x>` ` @`@@`~|@x@0`@ @p@@p~@ @p?|0@C @`@`  `@@@~`@@0  `@` `@0` H@ p` `xp@ @,@`0``@ 0`x@0`@@`|`@ x@|`x@0 `@0 x| ` `x@0`?~0@8 @<?>@`~@`@`8x 8~?? 8 @`Hp`p 0@0~30p@(@0 p`@@x`@@p@p0@0@ ppp x@ 8p ``>`@ `?```?`?@ 0ppp|a``0@8 @@`c@ @8p` `@ 0@`L @ `@``n0@(@@`@<<`p0 0@p@ |8px0(0` @ p>``@@0 0`x?`@`0 @0pp @`0@@>0p`xx 0 pp@B@0@@@x@`( p`@``3`? |`< @ ~`L`0~@pqo, @ @@`8x8| @` 0~ @@@ x`@xB@@@` @pp0 @p0@@@@0 `p? ( 8 f0 x8`@@v ?pp?@$  `8`0p0` @@ 08p@ xspO8<@ 0F@0 @@@ @xpp@|@ ` @px@`p`@ ``0` (0 0\  | ` @|@ @``x`@ f0 @ 88 `0@0 0""" " " " " """""""""!!! ! ! ! ! !!!!!!!!!