' +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*`ƲǰحƳǰح٠ҠƲǰ٠Ƴζǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴζǰؠ٠Ƴζǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴζǰؠ٠ڠƱ٠Ƴǰؠ٠Ҡح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴζǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠ҠƲǰ٠Ƴεǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴεǰح٠ڠƱ٠ƳǠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴεǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠٱحƳǰح٠ҠƲǰ٠Ƴεǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴεǰؠ٠ڰεǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴεǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰ٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴεǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠ƳҠƲǰ٠Ƴεǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴεǰح٠ڠƱ٠ƳǰحƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴδǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠Ƴǰح٠ҠƲǰ٠Ƴδǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴδǰؠ٠ڠح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴδǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴδǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠ƳδǹƲǰ٠Ƴδǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴδǰح٠ڠƱ٠Ƴǰح٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴδǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠Ҡ"X4 = ";:USNG:D4$;X4sú"Y1 = ";:USNG:D4$;Y1xú"Y2 = ";:USNG:D4$;Y2}ú"Y3 = ";:USNG:D4$;Y3ú"Y4 = ";:USNG:D4$;Y4ñ`D4$" .0000" jD1$" .0":FEEDRATE FORMAT&G<H"CAVITY 1386-01"FM"O1"]R"G00G17G40G80G90"qǰح٠ҠƲǰ٠Ƴγǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴδǰؠ٠ڠƱ٠٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴγǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳƲǰؠƳǰؠ٠ҠƲǰ٠Ƴγǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴγǰح٠Ƴγǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴγǰح٠ڠƱ٠Ƴǰح٠Ҡǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴγǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǵ٠ҠƲǰ٠Ƴγǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴγǰؠ٠ڠƱ٠ƳڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴγǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰحǰؠƳǰؠ٠ҠƲǰ٠Ƴβǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴβǰح٠Ƴβǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴβǰح٠ڠƱ٠Ƴǰح٠ҠƲ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴβǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠ҠƲǰ٠Ƴβǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴβǰؠ٠ڠƱ٠ƳǰخƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴβǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠Ƴǰؠ٠ҠƲǰ٠Ƴβǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴβǰح٠ڠαǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴαǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴαǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠ƳƲǰ٠Ƴαǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴαǰؠ٠ڠƱ٠Ƴǰؠ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴαǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠Ҡǰؠ٠ҠƲǰ٠Ƴαǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴαǰح٠ڠƱ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴαǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƱҠƲǰحƳǰح٠ҠƲǰ٠Ƴιǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠ƳαǰعƲǰ٠Ƴηǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴθǰؠ٠ڠƱ٠Ƴǰؠ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴζǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠Ҡǰؠ٠ҠƲǰ٠Ƴδǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴεǰح٠ڠƱ٠٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴγǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳ٠ϱǰDZǴǸǹǹذٰڰحٶǴڰȰͰӲͰαǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴβǰؠ                  ñòññÍ̳̍ñ̍òÍò̴̵̳ū̶ū̸ūдǍ؍ŭū؍ūЍӍŭūӍū̱ūбвг    TY3Y4PR:Y2Y3x(#SEQ.NUMBER-#SNSN12#N$"N"(SN)7#N$;:'P:PRINT VALUESUú::"X/2 = ";:USNG:D4$;XXZú"Y/2 = ";:USNG:D4$;YY#_ú"X1 = ";:USNG:D4$;X1?dú"X2 = ";:USNG:D4$;X2[iú"X3 = ";:USNG:D4$;X3wnàΠǰؠ٠ڠƲǰؠ٠ҠǰحƱǰح٠ҠƲεΠΠǰح٠ڠƲǰح٠ҠǰؠƱǰ٠ҠǰحƱǰح٠ҠƲδΠΠǰح٠ڠƲǰح٠ҠǰؠƱǰؠ٠ҠƲεΠҠƲδΠΠǰح٠ڠƲǰح٠ҠǰؠƱǰؠ٠ҠƲδΠΠǰؠ٠ڠƲǰؠح٠ڠƲǰح٠ҠǰؠƱǰؠ٠ҠƲδΠΠǰؠ٠ڠƲǰؠ٠ҠǰحƱǰح٠ǰؠƱǰؠ٠ҠƲδΠΠǰؠ٠ڠƲǰؠ٠ҠǰحƱǰح٠ҠƲδΠΠDzδΠΠǰؠ٠ڠƲǰؠ٠ҠǰحƱǰح٠ҠƲδΠΠǰح٠ڠƲǰح٠ҠڠƲǰؠ٠ҠǰحƱǰح٠ҠƲδΠΠǰح٠ڠƲǰح٠ҠǰؠƱǰؠ٠ҠƮƱǰح٠ҠƲγΠΠǰح٠ڠƲǰح٠ҠǰؠƱǰؠ٠ҠƲδΠΠǰؠ٠Πǰح٠ڠƲǰح٠ҠǰؠƱǰؠ٠ҠƲγΠΠǰؠ٠ڠƲǰؠ٠ҠǰحƲǰح٠ҠǰؠƱǰؠ٠ҠƲγΠΠǰؠ٠ڠƲǰؠ٠ҠǰحƱǰح٠ҠƲγΠؠ٠ҠƲγΠΠǰؠ٠ڠƲǰؠ٠ҠǰحƱǰح٠ҠƲγΠΠǰح٠ڠΠǰؠ٠ڠƲǰؠ٠ҠǰحƱǰح٠ҠƲγΠΠǰح٠ڠƲǰح٠ҠǰؠƱǰ٠ҠǰحƱǰح٠ҠƲγΠΠǰح٠ڠƲǰح٠ҠǰؠƱǰؠ٠ҠƲγΠҠƲβΠΠǰح٠ڠƲǰح٠ҠǰؠƱǰؠ٠ҠƲγΠΠǰؠ٠ڠƲǰؠح٠ڠƲǰح٠ҠǰؠƱǰؠ٠ҠƲβΠΠǰؠ٠ڠƲǰؠ٠ҠǰحƱǰح٠"uW"G92X00Y00Z00"\XX1:2100]YUU:2110:a"G43Z0.250H01M08"f"S2000M03"SAVE PROGRAM TO DISK (13);(4);"SAVE TOMCO CAVITY II,D2" I{nú"X4 = ";:USNG:D4$;X4sú"Y1 = ";:USNG:D4$;Y1xú"Y2 = ";:USNG:D4$;Y2}ú"Y3 = ";:USNG:D4$;Y3ú"Y4 = ";:USNG:D4$;Y4ñ`D4$" .0000"$jD1$" .0":FEEDRATE FORMAT*G@H"CAVITY 1386-01"JM"O1"aR"G00G17G40G80G90Y4vTY3Y4PR:Y2Y3|(#SEQ.NUMBER-#SNSN12#N$"N"(SN)7#N$;:'P:PRINT VALUESUú::"X/2 = ";:USNG:D4$;XX Zú"Y/2 = ";:USNG:D4$;YY'_ú"X1 = ";:USNG:D4$;X1Cdú"X2 = ";:USNG:D4$;X2_iú"X3 = ";:USNG:D4$;X319);~@"Y";:USNG:D4$;Y;:HTEĺ29);J"R";:USNG:D4$;PRCR;:RTEĺ29);T"Z";:USNG:D4$;Z;:\"F";::D1$;FR:f"F";::D1$;F2: @DEFINE X1 TO X4 & Y1 TO Y47EX4XXCRDX:X1X4KJX3X4PR:X2X3bOY4YYCRDY:Y1i UL CORNER CCWnTEĺ4);s"G03";xXX1:2100}YY3:21102120:2150 Y- TO ENDTEĺ4);"G01";YUU:2110:2140X0DX:Y0DY:Z0Z:-FORMAT PRINT;4TEĺ9);U6"X";:USNG:D4$;X;:d>TEĺX4:2100xYUU:21102130:"F1.0"! Y+ TO RADIUS-YY3:2110:21407 UR CORNER CCW<TEĺ4);A"G03";FXX3:2100 KYY4:2110P2120:2150.U TOP X-<ZTEĺ4);H_"G01";]dXX2:2100:2140w3:2100:2140 UR CORNER CWTEĺ4);"G02";XX4:2100YY3:21102120:2150 Y- TO ENDTEĺ4);"G01";YUU:2110:21401499@ POSITION AT RGT. END NTEĺ4);Z"G01";iX[XX1:2100{`YUU:2110e2130:"F1.0"g Y+ TO RADIUS jTEĺ4);yYY3:2110:2140 UL CORNER CWTEĺ4);"G02"; XX2:2100YY4:2110+2120:2150> TOP X+LTEĺ4);X"G01";mXX{" Z = ";:USNG:D4$;ZTRD((DXX0)(ZZ0)):40);"DX/DZ IS ";:USNG:D4$;TTRD((DYY0)(ZZ0)):40);"DY/DZ IS ";:USNG:D4$;T8000:9000NN2(SN2)"!SNNN1300CL POSITION AT LEFT ENDQQTEĺ4);]V"G01";lNNSTZ:ZSZDZDYSYDZ(13.25DR)DXSXDZ(44.50DR)8000:1000:"N999M30"D$;"CLOSE"D$;"PR#0":D$;"PR#7" ONCE CW ACROSS TOP TE1050B35);"DX = ";:USNG:D4$;DX;`" DY = ";:USNG:D4$;DY;ADDR):TZZw@DZZLZEDYLY(DZ(13.25DR)):TYDYT8000:1000:DOWN AT 13.25 & 44.5 DEG.TEĺ:40);"DOWN AT 13.25 AND 44.5 DEG."SXX0:SYY0%SZZ0:EZ0.794:TZEZSZMNS((TZIZ)):(NSIZ)TZNSNS1YN1NSpDZ}LXTX:LYTY:SAVE DX & DYLZTZ:SAVE LAST Z,0.1 RADIUS CONTINUED TO -44.5 DEG.-TEĺ:40);"CONTINUE 0.1 RADIUS".SA13.25:EA44.50:IAEASA1NS7:N1NS,3AD13.25(NNSIA)L6DX(R1(1(ADDR))):TXDXk;Z0.1706R1( N1NS:ZNNSTZ 1000: 0.1 RADIUS TEĺ:40);"START 0.1 RADIUS" SA0:EA13.25:IAEASA R10.1CR NS5:N1NS ADNNSIADX(R1(1(ADDR))):TXDX.:DYDX:TYDYMZ0.1706R1(ADDR):TZZ_8000:1000:y `D$;"OPEN ";FI$;",D2" aD$;"DELETE ";FI$ bD$;"OPEN ";FI$ cD$;"WRITE ";FI$:61000 dFIRST VERT.MOVE ePRINT D$;"PR#1" iTEĺ"1ST VERT.MOVE" nDX0:DY0( sN0:Z10:Z20.1206C xTZZ2Z1CR:T(TZIZ)^ }NS(T):NSTNSNS1t:PART RADIUSz -PRPRKK 2T33.11:WIDTH 7XXT2KK <T12.600:HGT. AYYT2KK BT11.49:UUT2KK FIZ0.010 PFR30.0:FEEDRATE IN IPM RF2FR(PRCR)PR:FEED CIRCULARN Z20:1:"SAVE TO DISK (Y/N) ";:A$:A$_ _A$"Y"100w :2:TOMCO CAVITY TE1  CR$(13):D$CR$(4) FI$"TOMCAV II" PI4(1) DRPI180:RD1DR 60000:SET FORMAT STRING CD.100: CUTTER BALL DIAM.7 CRCD2:CUTTER RADIUSS #KK1.005:SHRINK FACTORm (PR0.390     ǰؠ٠Ҡǰ٠ǰؠ٠Ҡǰحǰح٠Ҡǰ٠ǰح٠Ҡǰؠζǰؠ٠ڠƲؠƱؠ٠Ҡǰ٠ǰؠ٠Ҡǰحǰح٠Ҡǰ٠ǰح٠Ҡǰؠζǰؠ٠ڠƲؠƱ٠Ҡǰ٠ǰؠ٠Ҡǰحǰح٠Ҡǰ٠ǰح٠Ҡǰؠζǰؠ٠ڠƲؠƱǰ٠Ҡǰ٠ǰؠ٠Ҡǰحǰح٠Ҡǰ٠ǰح٠Ҡǰؠζǰؠ٠ڠƲؠƱǰؠ٠Ҡǰ٠ǰؠ٠Ҡǰحǰح٠Ҡǰ٠ǰح٠Ҡǰؠεǰؠ٠ڠƲؠƱǰؠҠǰ٠ǰؠ٠Ҡǰحǰح٠Ҡǰ٠ǰح٠Ҡǰؠεǰؠ٠ڠƲؠƱǰؠҠǰ٠ǰؠ٠Ҡǰحǰح٠Ҡǰ٠ǰح٠Ҡǰؠεǰؠ٠ڠƲؠƱǰؠ٠Ҡǰ٠ǰؠ٠Ҡǰحǰح٠Ҡǰ٠ǰح٠Ҡǰؠεǰؠ٠ڠƲؠƱǰؠ٠ǰ٠ǰؠ٠Ҡǰحǰح٠Ҡǰ٠ǰح٠Ҡǰؠεǰؠ٠ڠƲؠƱǰؠ٠ǰ٠ǰؠ٠Ҡǰحǰح٠Ҡǰ٠ǰح٠Ҡǰؠεǰؠ٠ڠƲؠƱǰؠ٠ҠҮƲιǰحٶڭƲǰحٷҮǰرƱǰرٶҮƲιǰحٶڭƲǰحٷҮǰرƱǰرٶҮƲιͳٷҮǰرƱǰرٶҮƲθǰحٶڭƲǰحٷҮǰرƱǰرٶҮƲθǰحٶڭƲǰحٷҮǰرƱǰرٸǰحٶڭƲǰحٷҮǰرƱǰرٶҮƲθǰحٶڭƲǰحٷҮǰرƱǰرٶҮƲθǰحٶڭƲǰحٶҮƲǰرƳǰرٶҮƲǰٶƳιͳƳǰرٶҮƲǰٶƳθǰرٶڭƱٶƳǰرٶҮƲǰحƳǰحٶҮƲǰٶƳθǰحٶڭƱٶƳǰحҮƲǰٶƳθǰرٶڭƱٶƳǰرٶҮƲǰحƳǰحٶҮƲǰٶƳθǰحٶڭƱٶƳǰحٶҮƲǰسƳθǰرٶڭƱٶƳǰرٶҮƲǰحƳǰحٶҮƲǰٶƳθǰحٶڭƱٶƳǰحٶҮƲǰرƳǰرٶڭƱٶƳǰرٶҮƲǰحƳǰحٶҮƲǰٶƳθǰحٶڭƱٶƳǰحٶҮƲǰرƳǰرٶҮƲǰٶǰرٶҮƲǰحƳǰحٶҮƲǰٶƳθǰحٶڭƱٶƳǰحٶҮƲǰرƳǰرٶҮƲǰٶƳθǰرٶǰحƳǰحٶҮƲǰٶƳηǰحٶڭƱٶƳǰحٶҮƲǰرƳǰرٶҮƲǰٶƳθǰرٶڭƱٶƳحٶҮƲǰٶƳηǰحٶڭƱٶƳǰحٶҮƲǰرƳǰرٶҮƲǰٶƳηǰرٶڭƱٶƳǰرٶҮƲǰٶƳηǰحٶڭƱٶƳǰحٶҮƲǰرƳǰرٶҮƲǰٶƳηǰرٶڭƱٶƳǰرٶҮƲǰحƳǰٶڭƱٶƳǰحٶҮƲǰرƳǰرٶҮƲǰٶƳηǰرٶڭƱٶƳǰرٶҮƲǰحƳǰحٶҮƲٶƳǰحٶҮƲǰرƳǰرٶҮƲǰٶƳηǰرٶڭƱٶƳǰرٶҮƲǰحƳǰحٶҮƲǰٶƳηǰحҮƲǰرƳǰرٶҮƲǰٶƳηǰرٶڭƱٶƳǰرٶҮƲǰحƳǰحٶҮƲǰٶƳηǰحٶڭƱƳǰرٶҮƲǰٶƳζǰرٶڭƱٶƳǰرٶҮƲǰحƳǰحٶҮƲǰٶƳζǰحٶڭƱٶƳǰحٰҮƲǰٶƳζǰرٶڭƱٶƳǰرٶҮƲǰحƳǰحٶҮƲǰٶƳζǰحٶڭƱٶƳǰحٶҮƲǰرζǰرٶڭƱٶƳǰرٶҮƲǰحƳǰحٶҮƲǰٶƳζǰحٶڭƱٶƳǰحٶҮƲǰرƳǰرٶƱٶƳǰرٶҮƲǰحƳǰحٶҮƲǰٶƳζǰحٶڭƱٶƳǰحٶҮƲǰرƳǰرٶҮƲǰٶƳرٶҮƲǰحƳǰحٶҮƲǰٶƳζǰحٶڭƱٶƳǰحٶҮƲǰرƳǰرٶҮƲǰٶƳζǰرٶڭǰحƳǰحٶҮƲǰٶƳεǰحٶڭƱٶƳǰحٶҮƲǰرƳǰرٶҮƲǰٶƳζǰرٶڭƱٶƳǰٶҮƲǰٶƳεǰحٶڭƱٶƳǰحٶҮƲǰرƳǰرٶҮƲǰٶƳεǰرٶڭƱٶƳǰرٶҮƲٶƳεǰحٶڭƱٶƳǰحٶҮƲǰرƳǰرٶҮƲǰٶƳεǰرٶڭƱٶƳǰرٶҮƲǰحƳǰحٶڭƱٶƳǰحٶҮƲǰرƳǰرٶҮƲǰٶƳεǰرٶڭƱٶƳǰرٶҮƲǰحƳǰحٶҮƲǰƳǰحٶҮƲǰرƳǰرٶҮƲǰٶƳεǰرٶڭƱٶƳǰرٶҮƲǰحƳǰحٶҮƲǰٶƳεǰحҮƲǰرƳǰرٶҮƲǰٶƳεǰرٶڭƱٶƳǰرٶҮƲǰحƳǰحٶҮƲǰٶƳεǰحٶڭƱٶǰرٶҮƲǰٶƳδǰرٶڭƱٶƳǰرٶҮƲǰحƳǰحٶҮƲǰٶƳδǰحٶڭƱٶƳǰحٶƲǰٶƳδǰرٶڭƱٶƳǰرٶҮƲǰحƳǰحٶҮƲǰٶƳδǰحٶڭƱٶƳǰحٶҮƲǰرƴǰرٶڭƱٶƳǰرٶҮƲǰحƳǰحٶҮƲǰٶƳδǰحٶڭƱٶƳǰحٶҮƲǰرƳǰرٶҮA$A$"E"XTR::30-A$"C"B$"C"3q:10:20(TI$(A))2:TI$(A):13::20(NF$)2:NF$::READ FROM DISK,WRITE TO DISK,READ TAPE,PUNCH TAPE,PRINT PROGRAM,LIST TO SCREEN,QUIT,DSI TAPE CONTROL PROGRAM ANY DISK FROM DRIVE #2":7:3:"AND INSERT THE DISK WHICH CONTAINS THE":9:13:"REQUESTED FILE":880f::"ERROR ON LINE #"LI" ERROR CODE #"E:p22:12:"PRESS ANY KEY TO CONTINUE ";:A$::24:"(E)ND (C)ONTINUOUS KEY TO CONTINUE";:A$:256*E253Ħ%4E5LI110120HE9LI230ĺ"DELETE"NF$:18:6:"B U R P ! ! ! I'M FULL."::"GIVE ME A CLEAN DISH AND I'LL START OVER":"PRESS ANY KEY WHEN READY";:A$;:A$:220RE9LI200220e\E9LI100::5:2:"PLEASE REMOVE X". ";A$(X)$B$"C"690EY20TR20:XYİ900:YTR:KZ:900:30:8:"ARE YOU SURE YOU WISH TO QUIT (Y/N)?";:A$:A$:A$"Y"72030::"END DSI TAPE PREPARATION PROGRAM": BE$"PR#0":E(222):LI(218)(219)560 &::(12):"PR#0":30Z0PP1:36,30(NF$)2:NF$;:36,72:"page "P::LP0:X:1:19(NF$)2::" "NF$" "::34,2b3:"(A)UTO STOP OR (C)ONTINUOUS LISTING?";:B$:B$:B$"A"B$"C"610l:X1TR:X10ĺ" ";vX100ĺ" "; (9)"80N"=560:X1TR:LE(A$(X)):10:LPLP1:X10ĺ" ";NX100ĺ" ";X".";:Y1LE:((A$(X),Y,1)"0"(A$(X),Y,1)"9")(A$(X),Y,1)"."ĺ" ";:(A$(X),Y,1)"("āZYLE:(A$(X),Z,1);::YLE::550(A$(X),Y,1);::LP50ĺ:(12):(1)(A$(1),(A$(1))1)2 "BLOAD ASCII-EIA,D1"r 3:"1P":"1D":"Z":X150:(16);::N1:A$(1)NF$N2 768,NF$:X120:(16);::(128); XNTR:768,A$(X):(128);::(11);:X190:(16);::0:1002:30 940:P0"PR#1":7)256(6):(12288)13TRTR1M c3:14:(1)256(0);:24:"LINES = "TRt h5:12:"NOW AMASSING INFORMATION" r"BLOAD MAKE STRINGS" |768:X1TR:783:Y0(250):A$(X)A$(X)((528Y)):Y,X NF$A$(1):30 940 (A$(1),1)" "A$"DELETE"NF$:"OPEN"NF$:"WRITE"NF$I X1TR:A$(X)::"CLOSE":30e ,940:X1TR:A$(X)"": 6"BLOAD EIA-ASCII,D1":0,0:1,127:2,1:3,16:6,16 @3:"Z" J768:"R":1002 T"BLOAD COUNT" ^2:958:3:"FILE LENGTH = ":768:TR(OOiLeeLLLL0LLL5IL5IбLL8eL8iLeeLOOOOOOOOAʽLLLLLLLLL8iLuuH hLL 0 LB  ȹ LB̅L9EFGhHhh) JQJJJLJ)LHHEFG(l#.2J-97>EjNWbՑ]mp񩠅aL92DWbr:# LINE# > .STRING. .OLDSTR.NEWSTR. SOURCE FILE<#> # p 8e  Lȱ7 ) LhhLB  ɒ 8ɍɘ Lv LB `$( e`p)2(:YlRLaLBɓ,Ƀɠ`: SYNTAX: BAD FORMAT: MEMORY FULL: BAD RANGEBYTES USEDBYTES REMAININGALL OR SOME?(A/S)?: BAD SLOT OR DRIVE #  YQL  jWHW hW L )|IQi A l9LedeɍH)) @ eh %eɠ#$dHeheLGɖ %LFdɕɈLɄ LGɆ %HɍhhɉfdLvHheɔ[L   )?LBBZ '?J          $ LB IAYA!!:JL):I H  `hhiLi (ɠ B$q*q $c  ɃLBɜ la9a:  *4  $9 I b oLBL I   ` Y X L NL NLol  :;  o ';  &; LBl;  )8l+?;  ):l;  (1*2 LB  j   TLY )4$( J$1I ɃLT!$9 Lj)2 `J/?   fc i j )IQJQ!:BQl?7ʆ 7AY` 4L.  ):(;" LH <)q'q*qq , 7`4?l4 4 $;Ll;8   32)81  (98 MJ78%9<)q(q LB <2qq"l  ):(;  )8*9(  ? ] B+?6Y+S7?XZLL  LiʽWLB     LB L L l;8 LBLl8(d8?  )`  T  +)L  N L ':;?   $[L 7? NeL $[0 3 $[0 Ʉɑ`LB +: 2d1*: $0I ɰf֩L7? %9+1;)`ɍ 'd +5%7LL LLLːEȹE 2"? wn - L L 4!X1G8+,.vT)fy2$Z0 bf$' b$abb p$$ɻ fWfɍ f ) f в`ɍ`  `l  2"*806,& ( ң:.4  $          ؠ٠ҠƲζǰح٠ڠƲǰح٠ҠǰؠƱǰؠ٠ҠƲζǰح٠ڠƲǰح٠ҠǰؠƱǰؠ٠Ʊǰؠ٠ҠƲζǰح٠ڠƲǰح٠ҠǰؠƱǰؠ٠ҠƲζǰح٠ڠƲǰح٠ҠǰؠƱǰǰؠƱǰؠ٠ҠƲζǰح٠ڠƲǰح٠ҠǰؠƱǰؠ٠ҠƲζǰح٠ڠƲǰح٠ҠǰؠҠǰؠƱǰؠ٠ҠƲεǰح٠ڠƲǰح٠ҠǰؠƱǰؠ٠ҠƲεǰح٠ڠƲǰح٠Ҡ٠ҠǰؠƱǰؠ٠ҠƲεǰح٠ڠƲǰح٠ҠǰؠƱǰؠ٠ҠƲεǰح٠ڠƲǰح٠ǰؠƳǰؠ٠ҠƲǰ٠ƳιͳƳθǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴθǰح٠ڠƱ٠Ƴǰح٠ҠƲ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴθǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠ÅŠɠҠҠΠéԠŠҠÍm8  }ɛ`Ɉ*ɠ,) ɘɈ : 3  ɕ(0@  `)?  @ ɍЗL$U0 B T ɍS ɍ Uj`UT`7ʎ V`889Lm Y a $[0PL La L ,Π҇ͬӶıҬӶı$(l8H)H(h0h(hN OH?%Oh,(,`%R,RR`\ m 1$R02߰.ݰ۰&I $Rp,c ɔɗ @ p]` 1ɠɍSS Ll3 1ɺ)[ pZ@ L ɍڥɍɍ L, L \\  (\ s\0ɠ0۩  ʩL 8L,,,w, ` nLЬӶı¸̱ĠàҨөpi 0  La ~   ` xB  x7ɘ[&&&&ee&&eL7`ɺɰ)`8` ` ( L (I,8L. L  L ʠ! L ɍɬΠ L ɍ 'H4 H`)`  ɠ`% & `^- Lf -' % & L   ɍ` ɍ` ɍ`L,   ( w L[ ~ 80)?i@Ip    ~ p lL Lj L1LxLGLa ' X JJJJX +  WRS78   U vZ[V٭ 3 xɮ W Lm ɒ i L % &   ɿV  #)ɬɭ   L $VLN ȹ4  ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴηǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳƲǰحƳǰح٠ҠƲǰ٠Ƴηǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴηǰؠǰ٠Ƴζǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴηǰؠ٠ڠƱ٠Ƴǰؠ٠ҳƳǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴζǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲ٠ҠƲǰ٠Ƴζǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴζǰح٠ڠƱ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴζǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠƲǰحƳǰح٠ҠƲǰ٠Ƴζǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴζǰؠ٠Ƴζǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴζǰؠ٠ڠƱ٠Ƴǰؠ٠Ҡح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴζǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠ҠƲǰ٠Ƴεǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴεǰح٠ڠƱ٠ƳǠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴεǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠٱحƳǰح٠ҠƲǰ٠Ƴεǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴεǰؠ٠ڰεǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴεǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰ٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴεǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴz@"Y";:USNG:D4$;Y;:HTEĺ29);J"R";:USNG:D4$;PRCR;:RTEĺ29);T"Z";:USNG:D4$;Z;:\"F";::D1$;FR:f"F";::D1$;F2:@DEFINE X1 TO X4 & Y1 TO Y43EX4XXCRDX:X1X4GJX3X4PR:X2X3^OY4YYCRDY:Y1Y4rƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴδǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠Ƴǰح٠ҠƲǰ٠Ƴδǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴδǰؠ٠ڠح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴδǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴδǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠ƳδǹƲǰ٠Ƴδǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴδǰح٠ڠƱ٠Ƴǰح٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴδǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠Ҡǰح٠ҠƲǰ٠Ƴγǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴδǰؠ٠ڠƱ٠٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴγǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳƲǰؠƳǰؠ٠ҠƲǰ٠Ƴγǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴγǰح٠Ƴγǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴγǰح٠ڠƱ٠Ƴǰح٠Ҡǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴγǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǶ٠ҠƲǰ٠Ƴγǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴγǰؠ٠ڠƱ٠ƳڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴγǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰحǰؠƳǰؠ٠ҠƲǰ٠Ƴβǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴβǰح٠Ƴβǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴβǰح٠ڠƱ٠Ƴǰح٠ҠƲҠƲǰ٠Ƴβǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴβǰؠ٠ڠƱ٠ƳǰخƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴβǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠Ƴǰؠ٠ҠƲǰ٠Ƴβǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴβǰح٠ڠαǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴαǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴαǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠ƳƲǰ٠Ƴαǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴαǰؠ٠ڠƱ٠Ƴǰؠ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴαǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠Ҡ*7,83,50,73,73,73,38,0,0:47,84,64,64,127,64,64,0,0V>7,85,126,1,1,1,126,0,0tH7,86,112,14,1,14,112,0,0R7,87,127,6,24,6,127,0,0\7,88,65,54,8,54,65,0,0f7,89,64,48,15,48,64,0,0p7,90,65,71,73,113,65,0,0z255AZ70 7,74,2,1,65,126,64,0,037,75,127,8,20,34,65,0,0M7,76,127,1,1,1,1,0,0l7,77,127,32,16,32,127,0,07,78,127,48,8,6,127,0,07,79,62,65,65,65,62,0,0 7,80,127,72,72,72,48,0,07,81,62,65,69,67,63,1,0 7,82,127,72,76,74,49,0,05,31,40,72,40,31,0,02 7,66,127,73,73,73,54,0,0O 7,67,62,65,65,65,34,0,0m 7,68,127,65,65,34,28,0,0 7,69,127,73,73,73,65,0,0 7,70,127,72,72,72,64,0,0 7,71,62,65,65,73,46,0,0 7,72,127,8,8,8,127,0,0 5,73,65,127,65,0,05,66,68,72,112,0,0/ 7,56,54,73,73,73,54,0,0L &7,57,50,73,73,73,62,0,0] 03,58,20,0,0n :3,59,11,0,0 D6,60,8,20,34,65,0,0 N7,61,20,20,20,20,20,0,0 X6,62,65,34,20,8,0,0 b7,63,32,64,77,80,32,0,0 l7,64,62,65,93,85,28,0,0 v7,60,0 4,46,3,3,0,0/ 7,47,3,4,8,16,96,0,0L 7,48,62,81,73,69,62,0,0c 5,49,33,127,1,0,0 7,50,35,69,73,81,33,0,0 7,51,50,65,73,73,54,0,0 7,52,8,24,40,127,8,0,0 7,53,114,73,73,73,70,0,0 7,54,62,73,73,73,38,0,0 7,55,6124,40,124,40,0,0/ T7,36,18,42,127,42,36,0,0J ^7,37,3,68,8,17,96,0,0e h7,38,8,12,10,63,8,0,0v r3,39,96,0,0 |4,40,62,65,0,0 4,41,65,62,0,0 9,42,73,42,28,127,28,42,73,0,0 7,43,8,8,62,8,8,0,0 3,44,3,0,0 7,45,8,8,8,8,8,d3:"7P":"1D":"Z"! n200? xI1(A$):N((A$,I,1))S X1BC%(NM,0)j (BC%(NM,X));:Xq I 200:0:1002:"RUN DSI PUNCH" X120:(0);:: ,7,32,0,0,0,0,0,0,0 63,33,125,0,0 @5,34,96,0,96,0,0 J7,35,40,  M320::"PLEASE WAIT....":BC%(58,9)CLE:LE25550x(BC%:BC%(BC%M,0)LE:X1LE:BC%(BC%M,X)::302:1:"MESSAGE: "<1:10:"";A$:(A$)20060F22:13:"CORRECT (Y/N)? ";:AN$:AN$:AN$"N"60PAN$"Y"100Z70      DZحDzح٭ҮDZٶDzحٷҮDZذζDZذٷڭƲرƱDzرٶҮDZ٭Dzر٭ҮDZحDzح٭ҮDZٶDzحٷҮڭƲرƱDzرٶҮDZ٭Dzر٭ҮDZحDzح٭ҮDZٶDzحٷҮDZذζDZذٷڭƲرƱDzرٶҮDZ٭Dzر٭Ұ٠ҠƲǰحƳǰح٠ҠƲθǰح٠ڠƱǰح٠ҠƲǰؠƳǰؠ٠ҠƲιͳ٠ҠƲǰحƳǰح٠ҠƲθǰح٠ڠƱǰح٠ҠƲǰؠƳǰؠ٠ҠƲθǰؠ٠ڠƱǰؠ٠ҠƲǰحƳǰح٠ҠƲθǰح٠ڠƱǰح٠ҠƲǰؠƳǰؠ٠ҠƲθǰؠ٠ڠƱǰؠ٠ҠƲǰحƳǰح٠ҠƲθǰح٠ڠƱǰح٠ҠƲǰؠƳǰؠ٠ҠƲθǰؠ٠ڠƱǰؠ٠ҠƲǰحƳǰح٠ҠƲθǰح٠ڠƱǰح٠ҠƲǰؠƳǰؠ٠ҠƲθǰؠ٠ڠƱǰؠ٠ҠƲǰحƳǰح٠ҠƲηǰح٠ڠƱǰح٠ҠƲǰؠƳǰؠ٠ҠƲθǰؠ٠ڠƱǰؠ٠ҠƲǰحƳǰح٠ҠƲηǰح٠ڠƱǰح٠ҠƲǰؠƳǰؠ٠ҠƲηǰؠ٠ڠƱǰؠ٠ҠƲǰحƳǰح٠ҠƲηǰح٠ڠƱǰح٠ҠƲǰؠƳǰؠ٠ҠƲηǰؠ٠ڠƱǰؠ٠ҠƲǰحƳǰح٠ҠƲηǰح٠ڠƱǰح٠ҠƲǰؠƳǰؠ٠ҠƲηǰؠ٠ڠƱǰؠ٠ҠƲǰحƳǰح٠ҠƲηǰح٠ڠƱǰح٠ҠƲǰؠƳǰؠ٠ҠƲηǰؠ٠ڠƱǰؠ٠ҠƲǰحƳǰح٠ҠƲζǰح٠ڠƱǰح٠ҠƲǰؠƳǰؠ٠ҠƲηǰؠ٠ڠƱǰؠٷҮƲǰرƳǰرٶҮƲǰٶƳιͳ;0 ` 4 4LʆL:`L` 12478%& 3569(0TVWZ/SUXY,-LNOR)JKMPQABDGH.+CEFIz #????     ͮʠ Ҡ     ɭԠ ɠȠ !ɠŠӠԠŠ "Ϡ Ϡ٠ ֠3Р׮ĠϠ٠ɠРҠƲǰ٠Ƴθǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴθǰؠ٠ڠƱ٠ƳǰؠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴθǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠Ƴǰؠ٠ҠƲǰ٠Ƴθǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴθǰح٠ڠǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴθǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠҠƲǰحƳǰح٠ҠƲǰ٠Ƴηǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠ƳγƲǰ٠Ƴηǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴηǰؠ٠ڠƱ٠Ƴǰؠ٠٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴηǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠Ҡǰؠ٠ҠƲǰ٠Ƴηǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴηǰح٠ڠƱ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴηǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳƲǰحƳǰح٠ҠƲǰ٠Ƴηǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴηǰؠǰ٠Ƴζǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴηǰؠ٠ڠƱ٠Ƴǰؠ٠ҸƳǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴζǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲ٠ҠƲǰ٠Ƴζǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴζǰح٠ڠƱ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴζǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ CR$(13): C/R.D$CR$(4):CNTRL DF(2100:INIT PRINTERUZ::5:10td"T A P E R O U T I N E Sf16:"DISK #400i:16:"DOS 3.3lML10:I1:n2000:"CATALOG DRIVE #1x2000:"CATALOG DRIVE #22000:"TEXT EDITOR  ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲζǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠٠ҠƲǰحƳǰح٠ҠƲζǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴζǰؠ٠ҠƲζǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴζǰؠ٠ڠƱ٠ƳǰؠڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴζǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰظ٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴζǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲζǰحٱ٠ҠƲǰ٠Ƴεǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲεǰح٠ڠƱ٠Ƴǰحεǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲεǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠƳǰؠ٠ҠƲǰحƳǰح٠ҠƲεǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠ƳƳǰح٠ҠƲεǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴεǰؠ٠ڠƱ٠ǰؠƳǰؠ٠ҠƲǰ٠ƳιͳƳθǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴθǰح٠ڠƱ٠Ƴǰح٠ҠƲ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴθǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠D  (768)0Āj ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..."p ,H6: 769 (768)1250% I --IF THERE, LOAD INTG AND PA#1P 10:"(LOADING INTEGER INTO LANGUAGE CARD)" "BLOAD INTBASIC,A$D000" --WRITE PROTECT THE CARD A(16254): $C082  --NO CARD OR CAN'T RELOAA$: GA$"X"90 K7 10:"(";I;") ";:II1:U 4INIT PRINT TO 80 COLUMNSi 9D$;"PR#1":" "{ >(27);"7080" HD$;"PR#0":" ":C821,0: x822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128: }831,192:832,9 2000:"TEXT/PRINT OR PUNCHO :10:"ANY OTHER KEY TO CONTINUE ";:A$:A$^ T((A$))y T1010,1020,1030,1040 : D$;"CATALOG,D1":1090 D$;"CATALOG,D2":1090 D$;"BRUN EDASM.OBJ D$;"RUN TEXT/POP B"X OR ANY KEY ";:A$:ٶҮƲǰحƳǰحٵҮƲǰٵƳβǰحٵڭƱٵƳǰحٶҮƲǰرƳǰرٵҮƲǰٵƳβǰرٵڭƱƳǰحٵҮƲǰٵƳαǰحٵڭƱٵƳǰحٶҮƲǰرƳǰرٵҮƲǰٵƳβǰرٵڭƱٵƳǰرҮƲǰٵƳαǰحٵڭƱٵƳǰحٶҮƲǰرƳǰرٵҮƲǰٵƳαǰرٵڭƱٵƳǰرٶҮƲǰحƳαǰحٵڭƱٵƳǰحٶҮƲǰرƳǰرٵҮƲǰٵƳαǰرٵڭƱٵƳǰرٶҮƲǰحƳǰحٷڭƱٵƳǰحٶҮƲǰرƳǰرٵҮƲǰٵƳαǰرٵڭƱٵƳǰرٶҮƲǰحƳǰحٵҮƲǰٵǰحٶҮƲǰرƳǰرٵҮƲǰٵƳαǰرٵڭƱٵƳǰرٶҮƲǰحƳǰحٵҮƲǰٵƳαǰحٵƲǰرƳǰرٵҮƲǰٵƳαǰرٵڭƱٵƳǰرٶҮƲǰحƳǰحٵҮƲǰٵƳαǰحٵڭƱٵƳǰرٵҮƲǰٵƳθǰرٵڭƱٵƳǰرٶҮƲǰحƳǰحٵҮƲǰٵƳιǰحٵڭƱٵƳǰحٶҮƲǰٵƳζǰرٵڭƱٵƳǰرٶҮƲǰحƳǰحٵҮƲǰٵƳηǰحٵڭƱٵƳǰحٶҮƲǰرƳǰرٵڭƱٵƳǰرٶҮƲǰحƳǰحٵҮƲǰٵƳεǰحٵڭƱٵƳǰحٶҮƲǰرƳǰرٵҮƱٵƳǰرٶҮƲǰحƳǰحٵҮƲǰٵƳγǰحٵڭƱٵƳǰحٶҮƲǰرƳǰرٵҮƲǰٵƳ٠حϱǰDZǴǸǹǹذٰڰحٵǴڰȰͰӲͰαǰحٵڭƱٵƳǰحٶҮƲǰرƳǰرٵҮƲǰٵƳβǰرٵڭ             ART RADIUSw -PRPRKK 2T37.17:WIDTH 7XXT2KK <T14.02:HGT. AYYT2KK BT12.91:UUT2KK FIZ0.010 PFR30.0:FEEDRATE IN IPM RF2FR(PRCR)PR:FEED CIRCULARJ Z20:1:"SAVE TO DISK (Y/N) ";:A$:A$[ _A$"Y"100u `w :2:TOMCO CAVITY TE1  CR$(13):D$CR$(4) FI$"TOMCAV" PI4(1) DRPI180:RD1DR 60000:SET FORMAT STRING CD.100: CUTTER BALL DIAM.4 CRCD2:CUTTER RADIUSP #KK1.005:SHRINK FACTORj (PR0.390:P      δǰرٵڭƱٵƳǰرٶҮƲǰحƳǰحٵҮƲǰٵƳδǰحٵڭƱٵƳǰحٶҮƲǰرƳǰرٵҲƱٵƳǰرٶҮƲǰحƳǰحٵҮƲǰٵƳδǰحٵڭƱٵƳǰحٶҮƲǰرƳǰرٵҮƲǰٵƳٶҮƲǰحƳǰحٵҮƲǰٵƳδǰحٵڭƱٵƳǰحٶҮƲǰرƳǰرٵҮƲǰٵƳδǰرٵڭحƳǰحٵҮƲǰٵƳγǰحٵڭƱٵƳǰحٶҮƲǰرƳǰرٵҮƲǰٵƳδǰرٵڭƱٵƳǰرٵҮƲǰٵƳγǰحٵڭƱٵƳǰحٶҮƲǰرƳǰرٵҮƲǰٵƳγǰرٵڭƱٵƳǰرٶҮƲǵƳγǰحٵڭƱٵƳǰحٶҮƲǰرƳǰرٵҮƲǰٵƳγǰرٵڭƱٵƳǰرٶҮƲǰحƳǰحٵڭƱٵƳǰحٶҮƲǰرƳǰرٵҮƲǰٵƳγǰرٵڭƱٵƳǰرٶҮƲǰحƳǰحٵҮƲǰٳƳǰحٶҮƲǰرƳǰرٵҮƲǰٵƳγǰرٵڭƱٵƳǰرٶҮƲǰحƳǰحٵҮƲǰٵƳγǰحҮƲǰرƳǰرٵҮƲǰٵƳγǰرٵڭƱٵƳǰرٶҮƲǰحƳǰحٵҮƲǰٵƳγǰحٵڭƱٵǰرٵҮƲǰٵƳβǰرٵڭƱٵƳǰرٶҮƲǰحƳǰحٵҮƲǰٵƳβǰحٵڭƱٵƳǰحٶƲǰٵƳβǰرٵڭƱٵƳǰرٶҮƲǰحƳǰحٵҮƲǰٵƳβǰحٵڭƱٵƳǰحٶҮƲǰرƳǰرٵڭƱٵƳǰرٶҮƲǰحƳǰحٵҮƲǰٵƳβǰحٵڭƱٵƳǰحٶҮƲǰرƳǰرٵҮٵƳǰرٶҮƲǰحƳǰحٵҮƲǰٵƳβǰحٵڭƱٵƳǰحٶҮƲǰرƳǰرٵҮƲǰٵƳβLXTX:LYTY:SAVE DX & DYLZTZ:SAVE LAST Z,0.1 RADIUS CONTINUED TO -44.5 DEG.-TEĺ:40);"CONTINUE 0.1 RADIUS".SA13.25:EA44.50:IAEASA1NS7:N1NS(3AD13.25(NNSIA)H6DX(R1(1(ADDR))):TXDXg;Z0.1706R1(ADDN1NS:ZNNSTZ| 1000: 0.1 RADIUS TEĺ:40);"START 0.1 RADIUS" SA0:EA13.25:IAEASA R10.1CR NS5:N1NS ADNNSIADX(R1(1(ADDR))):TXDX*:DYDX:TYDYIZ0.1706R1(ADDR):TZZ[8000:1000:yD$;"OPEN ";FI$;",D2" aD$;"DELETE ";FI$ bD$;"OPEN ";FI$ cD$;"WRITE ";FI$:61000 dFIRST VERT.MOVE ePRINT D$;"PR#1" iTEĺ"1ST VERT.MOVE" nDX0:DY0$ sN0:Z10:Z20.1206? xTZZ2Z1CR:T(TZIZ)Z }NS(T):NSTNSNS1p ҮƲǰٵƳζǰرٵڭƱٵƳǰرٶҮƲǰحƳǰحٵҮƲǰٵƳζǰحٵڭƱٵƳǰحٶҮƲǰرζǰرٵڭƱٵƳǰرٶҮƲǰحƳǰحٵҮƲǰٵƳζǰحٵڭƱٵƳǰحٶҮƲǰرƳǰرٵڭƱٵƳǰرٶҮƲǰحƳǰحٵҮƲǰٵƳζǰحٵڭƱٵƳǰحٶҮƲǰرƳǰرٵҮƲǰٵưرٶҮƲǰحƳǰحٵҮƲǰٵƳζǰحٵڭƱٵƳǰحٶҮƲǰرƳǰرٵҮƲǰٵƳζǰرٵǰحƳǰحٵҮƲǰٵƳεǰحٵڭƱٵƳǰحٶҮƲǰرƳǰرٵҮƲǰٵƳζǰرٵڭƱٵƳDZٵҮƲǰٵƳεǰحٵڭƱٵƳǰحٶҮƲǰرƳǰرٵҮƲǰٵƳεǰرٵڭƱٵƳǰرٶҮƲǰٵƳεǰحٵڭƱٵƳǰحٶҮƲǰرƳǰرٵҮƲǰٵƳεǰرٵڭƱٵƳǰرٶҮƲǰحƳǰحٵڭƱٵƳǰحٶҮƲǰرƳǰرٵҮƲǰٵƳεǰرٵڭƱٵƳǰرٶҮƲǰحƳǰحٵҮƲƳǰحٶҮƲǰرƳǰرٵҮƲǰٵƳεǰرٵڭƱٵƳǰرٶҮƲǰحƳǰحٵҮƲǰٵƳεǰحҮƲǰرƳǰرٵҮƲǰٵƳεǰرٵڭƱٵƳǰرٶҮƲǰحƳǰحٵҮƲǰٵƳεǰحٵڭƱٵƳǰرٵҮƲǰٵƳδǰرٵڭƱٵƳǰرٶҮƲǰحƳǰحٵҮƲǰٵƳδǰحٵڭƱٵƳǰحٶƲǰٵƳδǰرٵڭƱٵƳǰرٶҮƲǰحƳǰحٵҮƲǰٵƳδǰحٵڭƱٵƳǰحٶҮƲǰرW"G92X00Y00Z00"\XX1:2100]YUU:2110:a"G43Z0.250H01M08"f"S2000M03"SAVE PROGRAM TO DISK(13);(4);"SAVE TOMCO CAVITY,D2" " Z = ";:USNG:D4$;ZTRD((DXX0)(ZZ0)):40);"DX/DZ IS ";:USNG:D4$;TTRD((DYY0)(ZZ0)):40);"DY/DZ IS ";:USNG:D4$;T8000:9000NN2(SN2)!SNNN1300?L POSITION AT LEFT ENDMQTEĺ4);YV"G01";h[XSTZ:ZSZDZDYSYDZ(13.25DR)DXSXDZ(44.50DR)8000:1000:"N999M30"D$;"CLOSE"D$;"PR#0":D$;"PR#7" ONCE CW ACROSS TOPTE1050>35);"DX = ";:USNG:D4$;DX;\" DY = ";:USNG:D4$;DY;wR):TZZs@DZZLZEDYLY(DZ(13.25DR)):TYDYT8000:1000:DOWN AT 13.25 & 44.5 DEG.TEĺ:40);"DOWN AT 13.25 AND 44.5 DEG."SXX0:SYY0!SZZ0:EZ0.794:TZEZSZINS((TZIZ)):(NSIZ)TZNSNS1UN1NSlDZNNرƳǰرٵҮƲǰٵƳθǰرٵڭƱٵƳǰرٶҮƲǰحƳǰحٵҮƲǰٵƳθǰحٵڭƱٵƳǰحٵҮƲǰٵƳθǰرٵڭƱٵƳǰرٶҮƲǰحƳǰحٵҮƲǰٵƳθǰحٵڭƱٵƳǰحٶҮƲǰƳθǰرٵڭƱٵƳǰرٶҮƲǰحƳǰحٵҮƲǰٵƳθǰحٵڭƱٵƳǰحٶҮƲǰرƳǰرڭƱٵƳǰرٶҮƲǰحƳǰحٵҮƲǰٵƳθǰحٵڭƱٵƳǰحٶҮƲǰرƳǰرٵҮƲǰٵǰرٶҮƲǰحƳǰحٵҮƲǰٵƳθǰحٵڭƱٵƳǰحٶҮƲǰرƳǰرٵҮƲǰٵƳθǰرٵƲǰحƳǰحٵҮƲǰٵƳηǰحٵڭƱٵƳǰحٶҮƲǰرƳǰرٵҮƲǰٵƳθǰرٵڭƱٵƳحٵҮƲǰٵƳηǰحٵڭƱٵƳǰحٶҮƲǰرƳǰرٵҮƲǰٵƳηǰرٵڭƱٵƳǰرٶҮǰٵƳηǰحٵڭƱٵƳǰحٶҮƲǰرƳǰرٵҮƲǰٵƳηǰرٵڭƱٵƳǰرٶҮƲǰحƳحٵڭƱٵƳǰحٶҮƲǰرƳǰرٵҮƲǰٵƳηǰرٵڭƱٵƳǰرٶҮƲǰحƳǰحٵҮƲٵƳǰحٶҮƲǰرƳǰرٵҮƲǰٵƳηǰرٵڭƱٵƳǰرٶҮƲǰحƳǰحٵҮƲǰٵƳηǰٶҮƲǰرƳǰرٵҮƲǰٵƳηǰرٵڭƱٵƳǰرٶҮƲǰحƳǰحٵҮƲǰٵƳηǰحٵڭƱƳǰرٵҮƲǰٵƳζǰرٵڭƱٵƳǰرٶҮƲǰحƳǰحٵҮƲǰٵƳζǰحٵڭƱٵƳǰح UL CORNER CCWnTEĺ4);s"G03";xXX1:2100}YY3:21102120:2150 Y- TO ENDTEĺ4);"G01";YUU:2110:2140X0DX:Y0DY:Z0Z:)FORMAT PRINT74TEĺ9);Q6"X";:USNG:D4$;X;:`>TEĺ19);2100tYUU:21102130:"F1.0"! Y+ TO RADIUS-YY3:2110:21407 UR CORNER CCW<TEĺ4);A"G03";FXX3:2100KYY4:2110P2120:2150*U TOP X-8ZTEĺ4);D_"G01";YdXX2:2100:2140si 100:2140 UR CORNER CWTEĺ4);"G02";XX4:2100YY3:21102120:2150 Y- TO ENDTEĺ4);"G01";YUU:2110:21401499< POSITION AT RGT. END JTEĺ4);V"G01";eXX4:X1:2100w`YUU:2110e2130:"F1.0"g Y+ TO RADIUS jTEĺ4);yYY3:2110:2140 UL CORNER CWTEĺ4);"G02";XX2:2100YY4:2110'2120:2150: TOP X+HTEĺ4);T"G01";iXX3:2رٷҮƲǰحƳǰحٶҮƲεǰحٶڭƱٶƳǰحٷҮƲǰرƳǰرٶҮƲǰٶƳεǰرٶڭƱٶҮƲǰحƳǰحٶҮƲδǰحٶڭƱٶƳǰحٷҮƲǰرƳǰرٶҮƲǰٶƳεǰرٶڭƱٶƳǰƲǰحƳǰحٶҮƲδǰحٶڭƱٶƳǰحٷҮƲǰرƳǰرٶҮƲǰٶƳδǰرٶڭƱٶƳǰرٷحƳǰحٶҮƲδǰحٶڭƱٶƳǰحٷҮƲǰرƳǰرٶҮƲǰٶƳδǰرٶڭƱٶƳǰرٷҮǰحٶҮƲδǰحٶڭƱٶƳǰحٷҮƲǰرƳǰرٶҮƲǰٶƳδǰرٶڭƱٶƳǰرٷҮƲǰٶҮƲδǰحٶڭƱٶƳǰحٷҮƲǰرƳǰرٶҮƲǰٶƳδǰرٶڭƱٶƳǰرٷҮƲǰحƶҮƲγǰحٶڭƱٶƳǰحٷҮƲǰرƳǰرٶҮƲǰٶƳδǰرٶڭƱٶƳǰرٷҮƲǰحƳǰحƲγǰحٶڭƱٶƳǰحٷҮƲǰرƳǰرٶҮƲǰٶƳγǰرٶڭƱٶƳǰرٷҮƲǰحƳǰحٶحٶڭƱٶƳǰحٶҮƲǰرƳǰرٶҮƲǰٶƳγǰرٶڭƱٶƳǰرٷҮƲǰحƳǰحٶҮٶڭƱٶƳǰحٶҮƲǰرƳǰرٶҮƲǰٶƳγǰرٶڭƱٶƳǰرٶҮƲǰحƳǰحٶҮƲγǮƱٶƳǰحٶҮƲǰرƳǰرٶҮƲǰٶƳγǰرٶڭƱٶƳǰرٶҮƲǰحƳǰحٶҮƲγǰحٶƳǰحٶҮƲǰرƳǰرٶҮƲǰٶƳγǰرٶڭƱٶƳǰرٶҮƲǰحƳǰحٶҮƲγǰحٶڭǰحٶҮƲǰرƳǰرٶҮƲǰٶƳβǰرٶڭƱٶƳǰرٶҮƲǰحƳǰحٶҮƲβǰحٶڭƱٶҮƲǰرƳǰرٶҮƲǰٶƳβǰرٶڭƱٶƳǰرٶҮƲǰحƳǰحٶҮƲβǰحٶڭƱٶƳҮƲǰرƳǰرٶҮƲǰٶƳβǰرٶڭƱٶƳǰرٶҮƲǰحƳǰحٶҮƲβǰحٶڭƱٶƳǰحٶҮƲǰرƳǰرٵҮƲǰٵƳǰǴڰιͳٶƳǰحٷҮƲǰرƳǰرٶҮƲǰٶƳθǰرٶڭƱٶƳǰرٷҮƲǰحƳǰحٶҮƲθǰحٶƳǰحٷҮƲǰرƳǰرٶҮƲǰٶƳθǰرٶڭƱٶƳǰرٷҮƲǰحƳǰحٶҮƲθǰحٶڭحٷҮƲǰرƳǰرٶҮƲǰٶƳηǰرٶڭƱٶƳǰرٷҮƲǰحƳǰحٶҮƲηǰحٶڭƱٶҮƲǰرƳǰرٶҮƲǰٶƳηǰرٶڭƱٶƳǰرٷҮƲǰحƳǰحٶҮƲηǰحٶڭƱٶƳǰƲǰرƳǰرٶҮƲǰٶƳηǰرٶڭƱٶƳǰرٷҮƲǰحƳǰحٶҮƲηǰحٶڭƱٶƳǰحٱرƳǰرٶҮƲǰٶƳηǰرٶڭƱٶƳǰرٷҮƲǰحƳǰحٶҮƲηǰحٶڭƱٶƳǰحٷҮǰرٶҮƲǰٶƳηǰرٶڭƱٶƳǰرٷҮƲǰحƳǰحٶҮƲηǰحٶڭƱٶƳǰحٷҮƲǰٶҮƲǰٶƳζǰرٶڭƱٶƳǰرٷҮƲǰحƳǰحٶҮƲζǰحٶڭƱٶƳǰحٷҮƲǰرƷҮƲǰٶƳζǰرٶڭƱٶƳǰرٷҮƲǰحƳǰحٶҮƲζǰحٶڭƱٶƳǰحٷҮƲǰرƳǰرǰٶƳζǰرٶڭƱٶƳǰرٷҮƲǰحƳǰحٶҮƲζǰحٶڭƱٶƳǰحٷҮƲǰرƳǰرٶƳζǰرٶڭƱٶƳǰرٷҮƲǰحƳǰحٶҮƲζǰحٶڭƱٶƳǰحٷҮƲǰرƳǰرٶҮƍζǰرٶڭƱٶƳǰرٷҮƲǰحƳǰحٶҮƲζǰحٶڭƱٶƳǰحٷҮƲǰرƳǰرٶҮƲǰٶٶڭƱٶƳǰرٷҮƲǰحƳǰحٶҮƲεǰحٶڭƱٶƳǰحٷҮƲǰرƳǰرٶҮƲǰٶƳڭƱٶƳǰرٷҮƲǰحƳǰحٶҮƲεǰحٶڭƱٶƳǰحٷҮƲǰرƳǰرٶҮƲǰٶƳεǰرٶƳǰرٷҮƲǰحƳǰحٶҮƲεǰحٶڭƱٶƳǰحٷҮƲǰرƳǰرٶҮƲǰٶƳεǰرٶDZذθDZذٷڭƲرƱDzرٶҮDZ٭Dzر٭ҮDZحDzح٭ҮDZٶDzحٷҮDZذθDZذٷڭƲرƱDzرٶҮDZ٭ҮDZحDzح٭ҮDZٶDzحٷҮDZذθDZذٷڭƲرƱDzرٶҮDZ٭Dzر٭ҮDZحDzح٭ҮDZٶDzحٷҷڭƲرƱDzرٶҮDZ٭Dzر٭ҮDZحDzح٭ҮDZٶDzحٷҮDZذθDZذٷڭƲرƱDzرٶҮDZ٭Dzر٭Dzح٭ҮDZٶDzحٷҮDZذθDZذٷڭƲرƱDzرٶҮDZ٭Dzر٭ҮDZحDzح٭ҮDZٶDzحٷҮDZذθDZذٱƱDzرٶҮDZ٭Dzر٭ҮDZحDzح٭ҮDZٶDzحٷҮDZذθDZذٷڭƲرƱDzرٶҮDZ٭Dzر٭ҮDZحҮDZٶDzحٷҮDZذηDZذٷڭƲرƱDzرٶҮDZ٭Dzر٭ҮDZحDzح٭ҮDZٶDzحٷҮDZذηDZذٷڭƲضٶҮDZ٭Dzر٭ҮDZحDzح٭ҮDZٶDzحٷҮDZذηDZذٷڭƲرƱDzرٶҮDZ٭Dzر٭ҮDZحDzح٭DzحٷҮDZذηDZذٷڭƲرƱDzرٶҮDZ٭Dzر٭ҮDZحDzح٭ҮDZٶDzحٷҮDZذηDZذٷڭƲرƱDzر٭Dzر٭ҮDZحDzح٭ҮDZٶDzحٷҮDZذηDZذٷڭƲرƱDzرٶҮDZ٭Dzر٭ҮDZحDzح٭ҮDZٶҮDZذηDZذٷڭƲرƱDzرٶҮDZ٭Dzر٭ҮDZحDzح٭ҮDZٶDzحٷҮDZذηDZذٷڭƲرƱDzرٶҮDZƲθǰحٶڭƱٶƳǰحٷҮƲǰرƳǰرٶҮƲǰٶƳǰDzڰͰذٰͰιͳθǰحٶڭƱٶƳǰحٷҮƲǰرƳǰرٶҮƲǰٶƳθǰرٶڭƱٶƳǰرٷҮƲǰحƳǰحٶҮαǹԱαǹذڱαǰذͲαǰذڰƱͰαǹӰͰαڰưαǹڭưαǹذƱαڰαǹحưαǹذڰαذڱαͰιͰ ٱϱDZǴǸǹǹذٰڰǰحٶǴڰȰӲͰǰؠ٠ҠƲǰحƳǰح٠ҠƲβǰح٠ڠƱǰح٠ҠƲǰؠƳǰؠ٠ҠƲγǰؠ٠ڠƮǰؠ٠ҠƲǰحƳǰح٠ҠƲβǰح٠ڠƱǰح٠ҠƲǰؠƳǰؠ٠ҠƲβǰؠ٠ڠƳǰؠ٠ҠƲǰحƳǰح٠ҠƲβǰح٠ڠƱǰح٠ҠƲǰؠƳǰؠ٠ҠƲβǰؠ٠ڠƳǰؠ٠ҠƲǰحƳǰح٠ҠƲβǰح٠ڠƱǰح٠ҠƲǰؠƳǰؠ٠ҠƲβǰؠ٠ڠƳǰؠ٠ҠƲǰحƳǰح٠ҠƲβǰح٠ڠƱǰح٠ҠƲǰؠƳǰؠ٠ҠƲβǰؠ٠ڠƳؠ٠ҠƲǰحƳǰح٠ҠƲαǰح٠ڠƱǰح٠ҠƲǰؠƳǰؠ٠ҠƲβǰؠ٠ڠƳؠ٠ҠƲǰحƳǰح٠ҠƲαǰح٠ڠƱǰح٠ҠƲǰؠƳǰؠ٠ҠƲαǰؠ٠ڠƳؠ٠ҠƲǰحƳǰح٠ҠƲαǰح٠ڠƱǰح٠ҠƲǰؠƳǰؠ٠ҠƲαǰؠ٠ڠƳǰ٠ҠƲǰحƳǰح٠ҠƲαǰح٠ڠƱǰح٠ҠƲǰؠƳǰؠ٠ҠƲαǰؠ٠ڠƳǰ٠ҠƲǰحƳǰح٠ҠƲαǰح٠ڠƱǰح٠ҠƲǰؠƳǰؠ٠ҠƲαǰؠ٠ڠƳǰعƲǰ٠Ƴηǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰƳǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴζǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠Ҡǰؠ٠ҠƲǰ٠Ƴδǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴεǰح٠ڠƱ٠٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴγǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳαǹԱαǰذͲαǹذڱαǹӰͰαǰذڰƱͰαڰưαǹڭưαǹذƱαڰαǹحưαǹذڰͰαذڱαͰιͰҠƲǰ٠Ƴβǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴβǰؠ٠ڠƱ٠ƳǰخƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴβǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠Ƴǰؠ٠ҠƲǰ٠Ƴβǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴβǰح٠ڠαǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴαǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴαǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠ƳƲǰ٠Ƴαǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴαǰؠ٠ڠƱ٠Ƴǰؠ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴαǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠Ҡǰؠ٠ҠƲǰ٠Ƴαǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴαǰح٠ڠƱ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴαǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƵҠƲǰحƳǰح٠ҠƲǰ٠Ƴιǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠ƳαǰعƲǰ٠Ƴηǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴθǰؠ٠ڠƱ٠Ƴǰؠ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴζǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠Ҡǰؠ٠ҠƲǰ٠Ƴδǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴεǰح٠ڠƱ٠٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴγǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳ٠ϱǰDZǴǸǹǹذٰڰحٶǴڰȰͰӲͰαǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠ƳβǰؠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴδǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠Ƴǰح٠ҠƲǰ٠Ƴδǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴδǰؠ٠ڠح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴδǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴδǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠ƳδǹƲǰ٠Ƴδǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴδǰح٠ڠƱ٠Ƴǰح٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴδǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠Ҡǰح٠ҠƲǰ٠Ƴγǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴδǰؠ٠ڠƱ٠٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴγǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳƲǰؠƳǰؠ٠ҠƲǰ٠Ƴγǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴγǰح٠Ƴγǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴγǰح٠ڠƱ٠Ƴǰح٠Ҡǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴγǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǶ٠ҠƲǰ٠Ƴγǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴγǰؠ٠ڠƱ٠ƳڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴγǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰحǰؠƳǰؠ٠ҠƲǰ٠Ƴβǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴβǰح٠Ƴβǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴβǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠ٠ҠƲǰ٠Ƴηǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴηǰح٠ڠƱ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴηǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳƲǰحƳǰح٠ҠƲǰ٠Ƴηǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴηǰؠǰ٠Ƴζǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴηǰؠ٠ڠƱ٠Ƴǰؠ٠ұƳǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴζǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲ٠ҠƲǰ٠Ƴζǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴζǰح٠ڠƱ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴζǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠƲǰحƳǰح٠ҠƲǰ٠Ƴζǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴζǰؠ٠Ƴζǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴζǰؠ٠ڠƱ٠Ƴǰؠ٠Ҡح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴζǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠ҠƲǰ٠Ƴεǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴεǰح٠ڠƱ٠ƳǠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴεǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠٱحƳǰح٠ҠƲǰ٠Ƴεǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴεǰؠ٠ڰεǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴεǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰ lݠȱȱ). \`*Jp;@k1 absduvghyQRCTEFWXI2#4%&78)ǰحƳǰحٶҮƲζǰحٶڭƱǰحٷҮƲǰرƳǰرٶҮƲηǰرٶڭƳǰرٷҮƲǰحƳǰحǰرٷҮƲǰحƳǰحٶҮƲζǰحٶڭƱǰحٷҮƲǰرƳǰرٶҮƲζǰرٶڭƳǰرٷҮƲǰرٶڭƳǰرٷҮƲǰحƳǰحٶҮƲζǰحٶڭƱǰحٷҮƲǰرƳǰرٶҮƲζǰرٶڭƳǰرٶҮƲζǰرٶڭƳǰرٷҮƲǰحƳǰحٶҮƲζǰحٶڭƱǰحٷҮƲǰرƳǰرٶҮƲζҮƲǰرƳǰرٶҮƲζǰرٶڭƳǰرٷҮƲǰحƳǰحٶҮƲζǰحٶڭƱǰحٷҮƲǰرƳڭƱǰحٷҮƲǰرƳǰرٶҮƲεǰرٶڭƳǰرٷҮƲǰحƳǰحٶҮƲεǰحٶڭƱǰحٷǰؠƳǰؠ٠ҠƲǰ٠ƳιͳƳθǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴθǰح٠ڠƱ٠Ƴǰح٠ҠƲ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴθǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠ҠƲǰ٠Ƴθǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴθǰؠ٠ڠƱ٠ƳǰؠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴθǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠Ƴǰؠ٠ҠƲǰ٠Ƴθǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴθǰح٠ڠǰؠ٠ڠƱ٠Ƴǰؠ٠ҠƲǰحƳǰح٠ҠƲǰ٠Ƴθǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠҠƲǰحƳǰح٠ҠƲǰ٠Ƴηǰح٠ڠƱ٠Ƴǰح٠ҠƲǰؠƳǰؠ٠ҠƲǰ٠Ƴ90  LL`ǰٶƳβǰرٶڭƱٶƳǰرٶҮƲǰحƳǰحٶҮƲǰٶƳβǰحٶڭƱٶƳǰحٶҮƲǰرƳرٶڭƱٶƳǰرٶҮƲǰحƳǰحٶҮƲǰٶƳβǰحٶڭƱٶƳǰحٶҮƲǰرƳǰرٶҮưٶƳǰرٶҮƲǰحƳǰحٶҮƲǰٶƳβǰحٶڭƱٶƳǰحٶҮƲǰرƳǰرٶҮƲǰٶƳβǰINUE";:A$:A$%A$"E"XTR::308A$"C"B$"C">|:10:20(TI$(A))2:TI$(A):13::20(NF$)2:NF$::READ FROM DISK,WRITE TO DISK,READ TAPE,PUNCH TAPE,PRINT PROGRAM,LIST TO SCREEN,QUIT,DSI TAPE CONTROL PROGRAM7)";:A$:A$:AASE REMOVE ANY DISK FROM DRIVE #2":7:3:"AND INSERT THE DISK WHICH CONTAINS THE":9:13:"REQUESTED FILE":880f::"ERROR ON LINE #"LI" ERROR CODE #"E:p22:12:"PRESS ANY KEY TO CONTINUE ";:A$::24:"(E)ND (C)ONTINUOUS KEY TO CONT218)(219)256*E253Ħ04E5LI110120HE9LI230ĺ"DELETE"NF$:18:6:"B U R P ! ! ! I'M FULL."::"GIVE ME A CLEAN DISH AND I'LL START OVER":"PRESS ANY KEY WHEN READY";:A$;:A$:220RE9LI200220p\E9LI100::5:2:"PLEX". ";A$(X)$B$"C"690EY20TR20:XYİ900:YTR:KZ:900:30:8:"ARE YOU SURE YOU WISH TO QUIT (Y/N)?";:A$:A$:A$"Y"72030::"B Y E - B Y E"::"HOPE YOU DIDN'T SCREW UP": BE$"PR#0":E(222):LI(560 &::(12):"PR#0":30Z0PP1:36,30(NF$)2:NF$;:36,72:"page "P::LP0:X:1:19(NF$)2::" "NF$" "::34,2b3:"(A)UTO STOP OR (C)ONTINUOUS LISTING?";:B$:B$:B$"A"B$"C"610l:X1TR:X10ĺ" ";vX100ĺ" "; (9)"80N"=560:X1TR:LE(A$(X)):10:LPLP1:X10ĺ" ";NX100ĺ" ";X".";:Y1LE:((A$(X),Y,1)"0"(A$(X),Y,1)"9")(A$(X),Y,1)"."ĺ" ";:(A$(X),Y,1)"("āZYLE:(A$(X),Z,1);::YLE::550(A$(X),Y,1);::LP50ĺ:(12):(1)(A$(1),(A$(1))1)2 "BLOAD ASCII-EIA,D1"r 3:"1P":"1D":"Z":X150:(16);::N1:A$(1)NF$N2 768,NF$:X120:(16);::(128); XNTR:768,A$(X):(128);::(11);:X190:(16);::0:1002:30 940:P0"PR#1":7)256(6):(12288)13TRTR1M c3:14:(1)256(0);:24:"LINES = "TRt h5:12:"NOW AMASSING INFORMATION" r"BLOAD MAKE STRINGS" |768:X1TR:783:Y0(250):A$(X)A$(X)((528Y)):Y,X NF$A$(1):30 940 (A$(1),1)" "A$"DELETE"NF$:"OPEN"NF$:"WRITE"NF$I X1TR:A$(X)::"CLOSE":30e ,940:X1TR:A$(X)"": 6"BLOAD EIA-ASCII,D1":0,0:1,127:2,1:3,16:6,16 @3:"Z" J768:"R":1002 T"BLOAD COUNT" ^2:958:3:"FILE LENGTH = ":768:TR(0:"VERIFY"NF$",D2":"OPEN"NF$:"READ"NF$:R0F nRR1:A$(R):110_ x"CLOSE":TRR1:30 "VERIFY"NF$",D2"::8:20(NF$)2::NF$:::"ALREADY EXISTS."::"DO YOU WISH TO REPLACE IT (Y/N)? ";:A$:A$:A$"Y"220 70& 940:"OPEN"NF$:(A$):A1A7503 <A70,70,300,400,500,600,700 F::2:10::" RETURN ";::" FOR CATALOG":5:15::" # ";::" TO END" P"FILE: ";:NF$TI$(8)ĺNF$; Q7:"";NF$:NF$""ĺ"CATALOG,D2":80 UNF$"#"NF$TI$(8):30 ZA100,2000 d94  A$(2000):800=X18:TI$(X)::NF$""NF$TI$(8)^::(NF$)30NF$(NF$,30) LE(NF$):(NF$,1)" "NF$(NF$,LE1):32#:1:19(NF$)2:" "NF$" ":(X17:X22:X". "TI$(X): 223:9:"MAKE SELECTION (1-7)";:A$:A$:A       ٶƳεǰحٶڭƱٶƳǰحٷҮƲǰرƳǰرٶҮƲǰٶƳεǰرٶڭƱٶƳǰرٷҮƲǰحƳǰحٶڭƱٶƳǰحٷҮƲǰرƳǰرٶҮƲǰٶƳεǰرٶڭƱٶƳǰرٷҮƲǰحƳǰحٶҮƲǰƳǰحٷҮƲǰرƳǰرٶҮƲǰٶƳεǰرٶڭƱٶƳǰرٷҮƲǰحƳǰحٶҮƲǰٶƳεǰحҮƲǰرƳǰرٶҮƲǰٶƳεǰرٶڭƱٶƳǰرٷҮƲǰحƳǰحٶҮƲǰٶƳεǰحٶڭƱٶǰرٶҮƲǰٶƳδǰرٶڭƱٶƳǰرٷҮƲǰحƳǰحٶҮƲǰٶƳδǰحٶڭƱٶƳǰحٷƲǰٶƳδǰرٶڭƱٶƳǰرٷҮƲǰحƳǰحٶҮƲǰٶƳδǰحٶڭƱٶƳǰحٷҮƲǰرƴǰرٶڭƱٶƳǰرٷҮƲǰحƳǰحٶҮƲǰٶƳδǰحٶڭƱٶƳǰحٷҮƲǰرƳǰرٶҮƱٶƳǰرٷҮƲǰحƳǰحٶҮƲǰٶƳδǰحٶڭƱٶƳǰحٷҮƲǰرƳǰرٶҮƲǰٶƳγٷҮƲǰحƳǰحٶҮƲǰٶƳδǰحٶڭƱٶƳǰحٷҮƲǰرƳǰرٶҮƲǰٶƳδǰرٶڭحƳǰحٶҮƲǰٶƳγǰحٶڭƱٶƳǰحٷҮƲǰرƳǰرٶҮƲǰٶƳδǰرٶڭƱٶƳǰرٶҮƲǰٶƳγǰحٶڭƱٶƳǰحٷҮƲǰرƳǰرٶҮƲǰٶƳγǰرٶڭƱٶƳǰرٷҮƲǰƳγǰحٶڭƱٶƳǰحٶҮƲǰرƳǰرٶҮƲǰٶƳγǰرٶڭƱٶƳǰرٷҮƲǰحƳǰحڭƱٶƳǰحٶҮƲǰرƳǰرٶҮƲǰٶƳγǰرٶڭƱٶƳǰرٶҮƲǰحƳǰحٶҮƲǰٶǰحٶҮƲǰرƳǰرٶҮƲǰٶƳγǰرٶڭƱٶƳǰرٶҮƲǰحƳǰحٶҮƲǰٶƳγǰح80Å9 ) )> ML` 12478%& 3569(0TVWZ/SUXY,-LNOR)JKMPQABDGH.+CEFI!ƳθǰرٶڭƱٶƳǰرٷҮƲǰحƳǰحٶҮƲǰٶƳθǰحٶڭƱٶƳǰحٷҮƲǰرƳǰرٶڭƱٶƳǰرٷҮƲǰحƳǰحٶҮƲǰٶƳθǰحٶڭƱٶƳǰحٷҮƲǰرƳǰرٶҮƲǰٶǰرٷҮƲǰحƳǰحٶҮƲǰٶƳθǰحٶڭƱٶƳǰحٷҮƲǰرƳǰرٶҮƲǰٶƳθǰرٶǰحƳǰحٶҮƲǰٶƳηǰحٶڭƱٶƳǰحٷҮƲǰرƳǰرٶҮƲǰٶƳθǰرٶڭƱٶƳحٶҮƲǰٶƳηǰحٶڭƱٶƳǰحٷҮƲǰرƳǰرٶҮƲǰٶƳηǰرٶڭƱٶƳǰرٷҮƲǰٶƳηǰحٶڭƱٶƳǰحٷҮƲǰرƳǰرٶҮƲǰٶƳηǰرٶڭƱٶƳǰرٷҮƲǰحƳǰٶڭƱٶƳǰحٷҮƲǰرƳǰرٶҮƲǰٶƳηǰرٶڭƱٶƳǰرٷҮƲǰحƳǰحٶҮƲٶƳǰحٷҮƲǰرƳǰرٶҮƲǰٶƳηǰرٶڭƱٶƳǰرٷҮƲǰحƳǰحٶҮƲǰٶƳηǰحҮƲǰرƳǰرٶҮƲǰٶƳηǰرٶڭƱٶƳǰرٷҮƲǰحƳǰحٶҮƲǰٶƳηǰحٶڭƱƳǰرٶҮƲǰٶƳζǰرٶڭƱٶƳǰرٷҮƲǰحƳǰحٶҮƲǰٶƳζǰحٶڭƱٶƳǰحٴҮƲǰٶƳζǰرٶڭƱٶƳǰرٷҮƲǰحƳǰحٶҮƲǰٶƳζǰحٶڭƱٶƳǰحٷҮƲǰرζǰرٶڭƱٶƳǰرٷҮƲǰحƳǰحٶҮƲǰٶƳζǰحٶڭƱٶƳǰحٷҮƲǰرƳǰرٶ0:"VERIFY"NF$",D2":"OPEN"NF$:"READ"NF$:R0F nRR1:A$(R):110_ x"CLOSE":TRR1:30 "VERIFY"NF$",D2"::8:20(NF$)2::NF$:::"ALREADY EXISTS."::"DO YOU WISH TO REPLACE IT (Y/N)? ";:A$:A$:A$"Y"220 70& 940:"OPEN"NF$:(A$):A1A7503 <A70,70,300,400,500,600,700 F::2:10::" RETURN ";::" FOR CATALOG":5:15::" # ";::" TO END" P"FILE: ";:NF$TI$(8)ĺNF$; Q7:"";NF$:NF$""ĺ"CATALOG,D2":80 UNF$"#"NF$TI$(8):30 ZA100,2000 d94  A$(2000):800=X18:TI$(X)::NF$""NF$TI$(8)^::(NF$)30NF$(NF$,30) LE(NF$):(NF$,1)" "NF$(NF$,LE1):32#:1:19(NF$)2:" "NF$" ":(X17:X22:X". "TI$(X): 223:9:"MAKE SELECTION (1-7)";:A$:A$:A"" "