' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  `L 鷎귭෍ᷩ췩JJJJx Lȿ L8ᷩ췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#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 ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 ˆʎõĵ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õ`  \ 濭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- 0@Ϡ@跻~!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-` ܫI볩쳢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䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z#L2L~2$L2$L~2$L2L~2$L2$L~2$L2L~2$L2$L2$L~2$L2L~2$L2D L4L2D2$L~2$L2L~2$L2DYPR1)XASDD6304bF0D0ē140XP,96YP:F1ClFD0F0YvFē140XP,96YPaLOiL1DDPI180O LL2O LL2D2$L~2$L2 LL2D2$L~2$L2L~2$L2D2$L~2$L2L~2$L2D2$L~2$24D0500'XPR(0.26)(L1)FYPR(0.26)(L1)(D)Y1X140XP,96YPeF(D0)|LO0.262.870.09D0F0650YR(LO)(D)R1RRY&XRR(LO)0YRXR(D):XPXR(L1)DYPYR(L1)YNAS(XPXPYP6XPXR(Z)@YPYR(Z)Y*JF350HT(XPXPYPYPR1)DD360hYRR6.28Z:XP140,YP96:F1~^Fē140XP,96YPhZrA| LONG. DRAWINGY1R(D)(0.26)LLPI180L1L6.02L0.26LCLC1NN13Q:NN0NNNNRR10YR(D)(A)$D02406A(PID)370HADF0:230fF1:140,96YR(A)(D)o260A(D)370A(PI(D))F0:260F1:140,YR(A)(D)R1RRYXRR(A)YRXR(D)"Z06.40.08,ZRR360c "LAT,LONG: ";D,L:L2L*Q(L15)7LLQ15H(PI3.1415926W2DDPI180`<R95mUDDR1.2vZ:3d140,95RnC06.40.05x140R(C),96R(C)D0D0.001140,96(R(D)15)(D)A0.262.880.26     #X2#XwD0N`YCOCO11<JXpD X0:X,Y!XDX559DX559X8YDY191DY191YLXDX0DXX1`YDY0DYY1(16286)128DX(DX10):DY(DY10)3:XXDX:YYDY:X,Y X,Y,DX,DY:2020XX12#XX12#XX12#X2P VERTICALLY% N=NO. OF PINS/SIDEC D=DISTANCE BETWEEN PINS_ X,Y ARE START CO-ORDSjYY14{COUNT0N1$YY14.COUNT5(COUNT5)YY281X,Y:1XD,Y:BX280:Y96DX((0)1012.8):DY((1)1012.) 84:203,82218,85:203,83218,86Q343,81358,84:343,82358,85:343,83358,86483,81511,81511,191:483,82510,82510,191 POWER LINES485,25531,25531,191:485,26530,26530,19143,18643,191:44,18644,191  DRAW A CHI404X,YX10,YX50,Y7X75,Y7X110,YX130,YnX,Y1X10,Y1X50,Y8X75,Y8X110,Y1X130,Y1tz REMOVE GLITCH0:75,195,175,295,2:3 ENABLE PADS1220,81:1360,81 ENABLE LINES 203,81218,11nYY14:C5(C5)YY2?x48,Y120,Y:48,Y1120,Y1RyX130270140u}X,YX36,Y7X80,Y7X130,Y~X,Y1X36,Y6X80,Y6X130,Y1:C416090,Y7135,Y7170,Y190,Y90,Y8135,Y8170,Y1190,Y1X2003401 3:3(0,1910,0559,0559,1915 EPROMSHX120400140aD72:N12:Y20:1000g(}2 EDGE CONNECTORS7X40:D40<Y6:C011FYY14:C5(C5)YY2P1X,Y:1XD,Y7:Z LINES FROM EDGES TO EPROMSdY09:C0   1(XP);",";(YP):F1%lFD0F0DvFĺ"D";1(XP);",";(YP)LLOTL1p"R0,";1(R1.4):"A"(4);"PR#0"DDPI180O LL2O LL2D2$L~2$L2D(0.26)(L1)(D)Y10"M";1(XP);",";(YP)=F(D0)TLO0.262.870.09eD0F0650xYR(LO)(D)R1RRY&XRR(LO)0YRXR(D):XPXR(L1)DYPYR(L1)YNAS(XPXPYPYPR1)XASDD630bF0D0ĺ"M";):F1!^Fĺ"D";(XP);",";(YP)(hZ/rAC| LONG. DRAWINGYY1R(D)(0.26)hLLPI180L1L6.02L0.26LCLC1NN13Q:NN0NNNN24XX1XX0:"C2"LCNNĺ"C1":XX1D0500XPR(0.26)(L1)YPRA(D)370+A(PI(D))F0:260KF1:"M0,";(YR(A)(D))XR1RRYfXRR(A)uYRXR(D)"Z06.40.08,ZRR3606XPXR(Z)@YPYR(Z)YJF350T(XPXPYPYPR1)DD360YRR6.28Z:"M";(XP);",";(YPD0D0.0015"M0,";((R(D)15)(D))?"P+"UA0.262.880.26p((A1.56))0.1ĺ"C3"((A1.82))0.1ĺ"C2"RR10YR(D)(A)D0240A(PID)370ADF0:230F1:"M0,"(YR(A)(D))260 "LAT,LONG: ";D,L:L2L*Q(L15)7LLQ15H(PI3.1415926W2DDPI180a<R200r>(4);"PR#1"}?(18)A"A"F(18)K"C2"P"M240,0"UDDR1.2Z"I"d"M0,";RnC06.40.05x"D";(R(C));",";(R(C)) "D";A(K,1);",";A(K,2)."M0,-200":"C0"9(17)J(4);"PR#0"141592611:I0101DA(I,1)((IS)200.5)LNA(I,2)((IS)200.5)SXInb"M";A(0,1);",";A(0,2)vlC2vI04K0CC1:C3C0"C";CJ010KKI1K10KK11:690"D";A(K,1);",";A(K,2)JIK PLOTTING ABILITY)(4);"PR#1"F12);"PLOTTING ABILITY"V(18);"L0"l"M250,-180":"I"|I035010SI1803.14159X(S)200.5:Y(S)200.5X(X):Y(Y)"D";X;",";Y:"H"I"M0,-450"&"I" 0S23.15wA3,2,1,15x&yC4,2,2,105zA3,2,2,10E{G3#,2,2,10T|E3,2,2,10c}A3,1,2,10r~E3,1,2,10A3,1,2,10C4,1,2,10B3,1,2,12E3,1,2,12B3,1,2,12D4,1,2,12T5A3,1,2,106E3,1,2,10*7A3,1,2,1098C4,1,2,10H9B3,1,2,10W:E3,1,2,10f;B3,1,2,10u<D4,1,2,10{dnA3,1,1,15oE3,1,1,15pA3,1,1,15qC4,1,1,15rB3,1,1,15sE3,1,1,15tB3,1,1,15uD4,1,1,15vC4,2,1, TEMPO17#E3,1,1,02E3,1,1,15AA3,1,1,15P C4,1,1,15_!B3,1,1,15n"E3,1,1,15}#B3,1,1,15$D4,1,1,15%C4,2,1,15&E4,2,1,15'G3#,2,1,15(E4,2,1,15)2A2,2,2,133A3,4,2,104G3#,2,2,10   1,2,106E3,1,2,10$7A3,1,2,1038C4,1,2,10B9B3,1,2,10Q:E3,1,2,10`;B3,1,2,10o<D4,1,2,10ud(v TEMPO17#E3,1,1,02E3,1,1,15AA3,1,1,15P C4,1,1,15_!B3,1,1,15n"E3,1,1,15}#B3,1,1,15$D4,1,1,15%C4,2,1,15&E4,2,1,15'G3#,2,1,15(E4,2,1,152A2,2,2,133A3,4,2,104G3#,2,2,105A3,  J),YLYR(J)PIIiCPIIPIIiCPiCPPI2n(LA)2120,140,130>xBOTBOTLD(1LALD):140TTPTPLD(LALD)eIBOTTPLD}YLYCCR(I)(LA)XRCR(I):YRXR(LA)LS0.05(0.05(I))XPI(IPI2LA)(PI2LA)IRD,XRDJXPIPIXLS XCXR(0  GLOBE:9PI3.1415926:CR90:XC140:YC96P#RD180PI:LD15RDh("LAT,LONG: ";LA,LO~-LALARD:LOLORD2:3:XCCR1,YC7 OUTSIDE CIRCLE<I0PI2.050.01FXCCR(I),YCCR(I)PZ LATITUDESdTPPI2:BOT  1,32: SET TEXT SCREEN232,WL1:33,WW2I34,WT:35,WTWB2OU[r SUBROUTINE CLOSEx&032,0:33,40:34,0:35,24DWJWTWTWB1:WJ:WL1:WS$(WJ):N8))40(WT8.5)WSWA8WJWTWTWB1:WS$(WJ)""hWK1WW:WS$(WJ)WS$(WJ)((WAWLWK1)):WAWL,32:WAWLWW1,32WAWA128:WA2088WA1104WA2048WA1064WJ1WW:WSWLWJ1,32:WA128984(WA1064WA1104)WLWJJ:J%:"SCROLLING IS AUTOMATIC"3"350:560I,(49152)128ĉ:R6150c@ ==========qJ DELAYT ==========^J11500::h ==================r SUBROUTINE WINDOW| ==================WA1024128(WT18((WT1)˲ CLOSE WINDOW&(49152)128ĉ::?WL5:WT1:WW25:WB7V390: OPEN WINDOWWT2:4:"NOTICE THE TEXT IS":4:"RESTORED CORRECTLY."350: DELAY560: CLOSE WINDOW(49152)128ĉ::WT10:WB10:390J125:" ";J,JPWS$(24)4Z::9)"FOR WHOM THE BELL BONGS"Qd:15)"BY A.MONKEY"::\nJ18}xK140:(6426(1));:K:J23:"PRESS ANY KEY TO HALT."WL12:WT10:WW10:WB5:390: OPEN WINDOW:"GOT IT?"350: DELAY560:       :3E18*R(N)((1)N)16(C(E,E)H2C(9,9)1:E,EU<I1288`FJ01vPXR(17):YR(17)ZVR(3)2dWV(2R(2)3)nSXV:UYWxJC(X,Y)SUSEUE1C(S,U)X2V,Y2W:C(S,U)12S,2U      A$ZA$A$ZA$ZA$I#0(768)(769)196ĺ(4);"BLOAD SCAN.OBJ"7 5ROD(7):I07:OD(I):^P(192)mX5501v768(I19101FP(I)(3):Q(3):K"";PI0191:OD((P(I)32))ZX5,IX54,I:dX 7,4,3,1,2,5,6,0Z  0(768)(769)196ĺ(4);"BLOAD SCAN.OBJ"9 :3EP(192)N768^(I19101uFP(I)(3):X(3):K"";PI0191:P(I),I:ZA$ZA$ZA$A$ZA$ZA$I P G* G G G G G G G@ G G G< G`0`( ;  END 256 NULLS  <3 #$40SEND 192 NULLS ^4 LPRSEND  <4 #$0ALINEFEED LPRSEND #$1BHOME HEAD LPRSEND #'<' LPRSEND AND RETURN ; LPRSEND LPRBUSYLPR BUSY? LPRSENDYES, LOOP LPRADRSEND BYTE AND RETURN GRAPHICS MODE LPRSEND #'*' LPRSEND #$01960 DOTS/LINE LPRSEND #$C0WE SEND 960 DOTS LPRSEND #$03 LPRSEND #$00SEND 256 NULLS #$00 ^1 LPRSEND  <1 !^2 LPRSENDSEND 256 NULLS  <2 !^3 LPRSENDS*************** * * * LPR SCANNER * * * * BY * * * * W. TOOMEY * * * *************** ;  $300 ; ; LPRBUSY $C1C1BUSY FLAG LPRADR $C090LPR ADDRESS ; $LPRMOVE #$1BSET UP   [ K3 :3#I0191:X0.J1K=(XX(3):G-XXKR2X,I:Z<10K RO:RXO,YO3 ZX((0)280256):Y((1)192256)E dXXOYYO70Y nRXO,YO:RX,Yk xXOX:YOY:70z A(49152) AA176:A1A980 RXO,YO:A RXO,YO:80A:80R  "SHAPE: ";R!:33232,0:233,3<(RO0F)0:1j2XO(0)280256:YO(1)192256w<RXO,YOF200P49168,0Q(49249)12885RRORO1:RO0RO255S87U(49250)12890VRORO1:RO255RO0 WRXO,YO:   `'10100 j'": ";6 t'"POKE ";PLACE;", ";(PLACE);A ~'PLACEG 'M 'K & HIT RETURN ";Z$ D$(4)2 D$;"OPEN ";N$G D$;"DELETE ";N$Z D$;"OPEN ";N$n D$;"WRITE ";N$y 10000 D$;"CLOSE ";N$ 20:"DONE." 23: 'PLACEP1P2 'CC1 .'C6C1 8'C110090 B': L'LI; V'LILISP O (10:"MACHINE CODE TO BASIC"I10:"------- ---- -- -----"P(4n2"ENTER LINE NUMBER: ";LI<"ENTER LINE STEP : ";SPF"ENTER ADDRESS : ";P1P"ENTER END ADDRESS: ";P2Z11d"ENTER FILENAME: ";N$ x16:"INSERT DIS `<``HHHH) )HMh,0,0Li8h L)hLh4ILhhhh`   ΩΨLhL')&JJ&&'***&'*&'*f&') ') e''`  &I&I0 ,P睢H~jJJ h(8,pLV   Ρ '&I&`) ) $L #þϠԍӠϠŠҠōӠžϠŠҍӠξϠĠٍǍѠˠϠՍĠ֍ ,P   IH hLL)?,I?P H h)  `H̯čźԯōκԯүԍǍ٠ӍԠӍנŠ͠ĩҠΠҠҠӍéҠӬÍӠ̭þϠԍӠ( qLq 9 hhh`+;RbŠ̍ŠӍŠ̍Š΍Ӡ̍Ӡ̍ҠŠŠҠŠԠŠΠԠźźLɱɹɵgikgLzkɶ } Lqɷ*jn    } Lq Lz( ` `WRPT`  X" q %!L : ɠ#%%! %L (ɍϠ(Lq  q( LLl4HHH ɱɷ ɱɸ> 9T X e : ɱɷ( e : ɱɸ 9T X$% q(ɍ e q :ɍ (ɺ  ɯ Lɠ H h)?Hh : ɃL ɛ       <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "$! $%%#,ep% !Lp"% $`"H *+)hi#"H !*0+i+icH#c hc`"%$$%H hi#`$% b,c*+Md,cPMb*!0 +i+`%J) a+je *`PPPP򠥹͠0sL"$!e (' !!%##`e`" e$$ ",q0rs(!#L"L$a -  $    `L `,fPfA[8 & & &mg)mh e$*+Md$(Mb,cp ,bpP!pA* +i+Md$qr"s`,Ta@0,U`* L" zLB$!$$"% %L"b`f`f`,,Lҩb`@``cd` pLXcd`r$s%L$tc`d`f`e`Yc`d`L$e (' 8!$!$%",qL !%# !L5 (5`)`W L{ IHHH``F}"*?GOWrzFF*Q$``1  emgh` a` ,q0qai$r%s`@a`r$$hLcd`,qSiaLL L$L$ B `t8967 ,R,W T ,P`ɭӠҠΠΠ ((*)  a+*HN OI*P,h*,H,_0ɛ_ ɍ $h`ɐ 6+_ pL L z <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""**6""">>8  80,$$$$"*:<y b`R2B"~|x`? <`b y$(O@2b2R "$$$$$$Dx"6**"""xD# HHD#BBB$$$$$ b`HHH$# xHHHHHHH(((((((88$# HHHDC@D{$$$$$$$<"Dp>> >00000>" `bp !"DDC b bx@ABDBAB}`b b "`r p #$$ **>$$$$$$$<><$$$$$$$<$$<<$$`b  #$8`x|~ #$HHHbB"H0B$$$ #$(((^"b2  CDHH$$$$$$$<>>$$$$$$$$<       TO TOP OF SCREEN"- d" P=CLEAR SCREEN" C/!"BLOAD TEXTRES(CALL6146)"-:61463 B" CTRL:-"\" L=LOWER CASE"v(" K=UPPER CASE"2" W=SCREEN SIZE (+CURS POS.)"<" I=INVERSE"F" N=NORMAL"P" Y=SET SCREEN TO 40" Z" Q=RETURN  ER FILE NAME: ";B$::2"NOW SAVING ";B$>D$(4)QD$;"OPEN ";B$fD$;"DELETE ";B$yD$;"OPEN ";D$D$;"WRITE ";B$J1IA$(J)JD$;"CLOSE ";B$::"FILE ";B$;" DONE"34,0  :A$(1000)'15:"TEXT WRITE"=15:"----------"D(4k2"THIS PROGRAM WRITES A TEXT FILE"}7"ENTER DATA"<:"ENTER 'ZZZ' TO BREAK"F34,9PI0ZII1dA$(I)nA$(I)"ZZZ"II1:130x90:::"NOW ENT  A$ D$;"READ ";A$ B$% B$. 2504  A6! READ TEXTFILE BY W.TOOMEY):]"THIS PROGRAM READS THE DATA IN A TEXT FILE"d(52"INPUT FILE NAME ";A$<12F"I WILL NOW READ THE FILE.":P"USE CTRL-S TO STOP & START."Z23dZ$D$(4) D$;"OPEN ";  ŠŠŠŠŠŠŠŠŠŠŠŠŠŠŠŠŠŠŠŠōŠŠŠŠŠŠŠŠŠŠŠŠŠŠŠŠ 1000 I17" X3035(I1)T I4ē135,20165,20165,87135,87135,20:190[ Io J(X)(X30)~ J,20J,87 J I 23  3 I3027010 I,90I,159 I I9015910 30,I279,I $I: I +(4);"BLOAD TEXTRES(CALL6146)"5#6146;$G%I220T(I:2:I[2Ib<2F" 223456789012345678901234567890123456789"P3Z0,0279,0279,1590,1590,0dI1027010nI,0I,3:IxI0150100,I3,I:I  4:20$I(16384)160Ĺ16368,0:.I2040ST PLOTTING":20::15:"0. UP":15:"1. RIGHT":15:"2. DOWN":15:"3. LEFT"HV15:W$"WITH PLOTTING":20::15:"4. UP":15:"5. RIGHT":15:"6. DOWN":15:"7. LEFT":W$"HIT RETURN WHEN COMPLETE":V22:20I::W$"<>>":V2XX2:X1X11:$GYY2:Y1Y11:8GXX2:X1X11:dGxX,Y:X1,Y1:XX1791000,1100,1200,1300G:V2:W$"SHAPE TABLE CREATOR":20:V4:W$"BY B. A. MCANDREW.":20:V6:W$"PLOTTING DIRECTIONS":20:W$"-------------------":V7:20LHV8:W$"WITHOU(SS256):233,(SS256)::OF,A(I1)1:A(I2)0:A(I3)3:II3:IIIIII1^F61000:110dFxFYY2:Y1Y11:FYY2:Y1Y11:FXX2:X1X11:FYY2:Y1Y11:FXX2:X1X11:F0:A(I)31010,1020,1030,1040:X,Y:X1,Y1:7:GLC:SS1,0:P2C2:SS2,P:SS3,0:PPSS4:C1270EII1C1:P(II)P(II)2P:X(P(II)256):YP(II)X256:PP,Y:PP1,X:PPPP2:IIEII1I12:PP,A(II)A(II1)8:PPPP1:IIFD$;"BSAVE ";N$;" A";SS;" L";PPSS;", A";SS;", L";PPSS:232,SS256(C)I:CC1:105!DW$"N"200qD:W$"WHAT IS THE NAME OF THIS SHAPE TABLE":V10:20:12:10:N$:N$""230DW$"WHAT IS THE DECIMAL STARTING ADDRESS":V15:20:W$"OF "N$" (DEFAULT:32000)":V17:20:19:10:S$:S$""S$"32000"2ESS(S$):SS,XA(I)176:130WCI0ĉ::W$"NO SHAPE ENTERED":V10:20:W$"GOODBYE":V12:20:22:C::W$"ARE THERE ANY MORE SHAPES":V10:20:V12:W$"THAT YOU WISH TO ADD (Y/N) ":20:12:35:W$:A(I1)0:A(I2)0:II2:I2(I2)0A(I1)0:II1DW$"Y"PXX136140BXX1491607BXX176I2(I2)1300IBIIIIII1BII1:A(I)XX176:XX1751000,1100,1200,1300,1400,1400,1400,1400:110BI0ĺ"":110BA(I)11010,1020,1030,1040,1050,1050,1050,1050:II1:110BIIIĺ"":110CXAi2000::16302,0:770,1:771,0:772,4:773,0:774,99:775,21:776,30:777,7:778,0:232,2:233,3:0,0185,0185,1910,1910,0:X92:Y96:X1231:Y196An1X,Y:F1F:XX(16384):XX127120As110Ax16368,0:F1ĕ1X,Y:F0A}XX141200 B~0 '@(13);(4);"BRUN LOMEM:":16384[@ :::255:S16336:1:0:7:D$(13)(4):100@L((W$)2):(W$)2L0LL1:W$W$" "@II1L:V:20II:(W$,LII,1);:SO(S):V:21II:(W$,LII1,1);:SO(S):II:@dA(1000),P(30):C1:I0:II0  LINES IN RANGEINCREMENT TOO LARGEDUPLICATE LINE NUMBERSOUT OF MEMORYPROGRAM ON HOLD, USE "&M" TO RECOVERHOLD FILE IN USELIMITED MEMORY, MAY DESTROY PROGRAM CONTINUE (Y/N)?SYNTAX> 63999LINE TOO LONGINCREMENT = 0SȪ`樥sthhRL`EȱEi樠 ȱȱ`ijEȱEi椠`H h`:808`ESIFee'Lѥȥ񥰶NO PROGRAM IN MEMORYNO ` Lӆ Ԇ8stijRLghLABCՆ>ֆ?sȥ Ȫ͆0 ҅ >&eee膝 & &ghȱ y y;L ۥghij L L  ͆0 ҅ >&eee膝JJJJ)ŝƝLpƞߥ ,LLL )WHLC L , Ɇ ɀL  , ҅LзLgş堰G L & & & .ee'Lѥȥ񥰶Ls 8tit8sB@tCtABCB>?><>=?>BPݱ>BL@ /@i ipm@8e@@AiA8ϥ_^8LKLKꤸ ML#gA$ (A$)3Ā% (A$)13220Q :4)"RENUMBER IS INSTALLED AND READY" 8:"IF YOU USE 'FP', 'HIMEM', OR 'MAXFILES'" :" YOU WILL HAVE TO RE-RUN RENUMBER" ' DO NOT CHANGE 10010 '(121)(122)256316yi<>zi=i?2X`ukVSVqa`7^r5Ǽ+[[ycm)|OӡTeR'E}xӛ7mS"I⫙rS 9o?$i& (`v0TA,Tf6TyI(\J5F,cl'![tt0f9W1 -FLnsVx9 {Y#HHcSу ԏLGr=dLtd-IEQ\t]Ό"w( l ,O% wmUC|7j$ ңCQic:R'-+ @KSe1VbR ^]9w7Y_*M; -X>,By}0?Q?Okbyb eDrM7[je %=3`DQ!:7ٞ{wP ffh S&pzsQIޣ:fӈHyԛրC9p2UY  m0L2R⁡U=n T ;QADu,^3:PIGE6R/s `B;hE]o`VqN?$9=83fU8Nnr$tڦf9bz"7Nm !>*eD;n$UsnA&&MƮ@4,'4 Tᐹ<қ.mݛxY}Eh}>+J16#)M2XWI.U|iJ^`W_̡`XL`u h֨ƌ웃b({YmRsF)^yjK98Gv'/!6KS^Z3kŦgnmY+hG}*Zk쭽9rK1._pb:U' _+5y+. eNRg豑"V9q%B8^N.s>$W(`s`$VR\(("VVIfwќ4n<+:k}v:c.&ABqI/vP 铫ɬ)r 84SY?PC*i =>PU|S!9 R$f|`q>V+k1$\@$~>(0I w(Bۛ+X =A+~MeϗhD6'f,85ٓ V'Cֺ 边ߛ aZ,ZzLd{x lVTύ\`jqeT|#W#=%-L\K"]4AsM;V_2.QGD_{^#(rmqo1_96x-uF$W'9ʑRؕȧ be-+l5cOP> #ા`KpG3G>8wJՁzK3[ s/x:buޯ潻/ЯudI/Y) y%HIIE*%DodzB"ۦOK4+UT4o%σp0dCx mF;tơtA6(|z;ѭ|P}}NUD|[Zl}yp6*,e-u_"H#?)I?<HXm#W<9'bo9 )ub25cuLψ䒊iZyNѾvj/"?K'uI T?m/!(4X$8210,0:8211,34 C8215,0 H8214,2:8192 R2,0:8223,0:8224,0:8225,1:8226,239<8227,216:8228,96B:8195,10:8196,32A8197,217:8198,3:8199,96:8200,0:8201,0o8202,1:8203,96:8204,1:8205,0:8206,188207,6:8208,32:8209,32:8210,0:8211,338212,0:8213,0:8214,1:8215,0:8216,08217,96:8218,1:8219,0:8220,0:8221,0%8228192 (8215)0İ3000/ 8206,0:8207,10D 8210,0:8211,37P 8215,0b 8214,2:8192w (8215)0İ3000 8207,11:8214,2 8215,0 8192:(8215)0İ3000 :"DISK IS NOW IMMUNIZED AGAINST DDOS"8192,169:8193,32:8194,1608451)72(8452)38(8453)831100e $:"DDOS IDBYTES FOUND WITH COUNT OF ";(8455)256(8454)o .1150 L"NO DDOS IDBYTES FOUND ON DISK" ~:"NOW IMMUNIZING DISK..." 8451,72:8452,38:8453,83 8454,0:8455,0 8215,0 8214,2:215)0İ3000 8206,0:8207,15 8210,0:8211,36A 8215,0S 8214,2:8192h (8215)0İ3000 "DDOS REMOVED FROM DISK"  GET IDBYTES 8206,17:8207,15 8210,0:8211,33 8215,0 8214,1:8192 (8215)0İ3000& (ERT": "DISK CHECK-UP: ";::"DDOS";::" ON DISK!":R *"NOW MODIFYING..."g 48206,0:8207,12| >8210,0:8211,34 C8215,0 H8214,2:8192 R(8215)0İ3000 \8206,1:8207,10 f8210,0:8211,35 k8215,0 p8214,2:8192 z(8(43788)155600; 0"RAM CHECK-UP: MODIFIED DOS IN MEMORY"D :700y X"RAM CHECK-UP: ";::"DDOS";::" IN MEMORY!" ] b"NOW MODIFYING...." l43786,32:43787,106:43788,174 vI3968040191:I,0: 500 :"DISK CHEK-UP. PLEASE INS  :"15);"DOS DOCTOR":G8);"BY THE HAWK & THE STUDENT"M(u2(4);"BLOAD DOS DOCTOR.OBJ,A$2200"<5000(43786)32(43787)106(43788)174550"RAM CHECK-UP: DOS 3.3 IN MEMORY"700 &(43786)32(43787)28   I I2252091% I,10I,1874 J130:J; IH I0279O 3^ 0,191I,0e 4| 279,0(279I),191 I I19101 0,I279,I I 5:" T HE END......" 15: FUTURE....." B$A$A$. I1((B$)10)6 15F (B$,I,10)U J130:J\ Ic 5r I9861 I,110I,120 &Y120:Y 0I :32,0:33,40 ?2 DI6208 NI,152I,187 XI ]3 bI10187 l225,I279,I v 6,I98,I:202,I208,I! I0 "I111121V ,6,I15,I:80,I98,I:202,I208,I] 6Il 7I120150 86,I98,I:202,I208,I 9I @32,2:33,11 A$"THIS IS A FAREWELL MESAGE FROM NATALIE. KEEP WORKING HARD I'M SURE YOU'LL DO WELL IN THE6 d"UST FANTASTIC" i163 n"!!!???!!!!..."P xI1019010:1,I2,I:Iq I1027010:I,188I,189:Ix 1 I80148 102,I198,I I 14:16 " EVEN INVERSE!" 6 I6208 I,10I,48 I 5 I51111 3(4);"BLOAD TEXTRES(CALL6146) ":3D6146[#0,00,190279,190(100,50200,50200,150100,150100,50-1:"123456789012345678901234567890123456789"2I122<I:31:IFIP8:16Z"I SN'T THIS J-" _120200 33,25::21@ 23);"X":23);X:23);"Y":23);Y;R 21:1:33,22t "ENTER MOVE- ";M$:M$(M$,2) FLAG64(M$,1)"P"KK1:FLAG1 FLAG64M$"U"KK1:FLAG1 M$"U"340 M$"R"370 M$"D"400 M$"L"430 "$,1):A$"Y"İ25000< 24:"HIT ANY KEY TO CONTINUE ";:A$I 49232,0[ I1N:20000j FLAG1:K1| "SHAPE ";I: "START AT CENTRE? ";A$:A$(A$,1) A$"N"X25:Y20:200 "ENTER YOUR CO-ORDS? ";X,Y:X(X):Y(Y) XLX:YLY:C2:AID" 7. <"TO DRAWING SHAPE TABLES.":18\ F"HOW MANY TABLES DO YOU WANT? ";N:N(N)i KN2070 P:"ENTER STARTING ADDRESS? ";S:S(S) ZTTP(S):BBOT(S) d232,B:233,T:S,N: iD2N2 n"DO YOU WANT INSTRUCTIONS? ";A$ xA$(A8 16384::/ DRAWER BY W.TOOMEYA 6/1/85WC%(50,40),M(100)jBIG(X)X42TP(X)(X256)BOT(X)X256(X256)11);"SHAPE TABLE DRAWER"#11);"------------------"(6 2"THIS PROGRAM IS A MANUAL        ````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````333 ``````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I "Ӝu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wU  8212,0:8213,0:8214,1:8215,0:8216,08217,96:8218,1:8219,0:8220,0:8221,0C8222,0:8223,0:8224,0:8225,1:8226,239Z8227,216:8228,96`92:(8215)0İ3000:"DISK IS NOW IMMUNIZED AGAINST DDOS"08192,169:8193,32:8194,160:8195,10:8196,32_8197,217:8198,3:8199,96:8200,0:8201,08202,1:8203,96:8204,1:8205,0:8206,188207,6:8208,32:8209,32:8210,0:8211,33 IMMUNIZING DISK..." 8451,72:8452,38:8453,838454,0:8455,08215,0#8214,2:81928(8215)0İ3000M8206,0:8207,10b8210,0:8211,37n8215,08214,2:8192(8215)0İ30008207,11:8214,28215,081206,17:8207,15 8210,0:8211,33 8215,0 8214,1:8192 (8215)0İ3000D (8451)72(8452)38(8453)831100 $:"DDOS IDBYTES FOUND WITH COUNT OF ";(8455)256(8454) .1150 L"NO DDOS IDBYTES FOUND ON DISK" ~:"NOW PD";:21N33,25::+N COLOR BLOCKSHNXNBIG(X):YNBIG(Y):CkNI1XN1XN1:I1,YN1I1,YN1sO:LO DRAW SHAPEVO230X,Y:O RESET ARRAYSOI1150:I2140OC%(I1,I2)0::OI11100:M(I1)0:Oa:3!4NI101564:I1,0I1,159C>N0,I1200,I1::0,159200,159dHNI11602004:I1,0I1,159:RN230,0279,0279,40230,40230,0\N33,40:21fN26);"MOVES- U PU"pN26);" R PR"zN26);" S L PL" N26);" X D 0f"NAME OF FILE: ";A$8pA$(A$,25)" ("(S)")"Bz:21l"O.K, INSERT DISK & HIT RETURN: ";M$:"SAVING ";A$(4);"BSAVE ";A$;" ,A";S;" ,L";D:A$;" IS SAVED.HIT ANY KEY TO EXIT ";:A$::: N INITIAISE SCREEN*N:"HERE ARE THE FINISHED TABLES:"/ I025050@I,0I,159:PI012040a0,I250,I:t 0,159250,159%X25:Y20:0:1*I1N4IX,Y>XX50:X250X25:YY40HIR:"DO YOU WANT TO SAVE SHAPES: ";A$\(A$,1)"N"94:"O.K, FORMATTING TABLE ";I6TTP(D):BBOT(D)R(S2I),B:(S2I1),TiI11K:LSDI11L,M(I1)::L1,0:DDK123:"TABLE ";I;" DONE":"HIT A KEY TO DO NEXT TABLE ";:A$INİ20400I33,40:::321: PL$+M(K)M(K)7FLAG:XLX:YLY=0C%(X,Y)3:C3:20200M520300:445UD SkIK1:FLAG1:20000S"HIT A KEY TO RESTART ";A$U20400X:160lFLAG512FLAG1:KK1v210 X:21:"FINISHED? ";A$(A$,1)"N"210AG8:620 PU1M(K)M(K)4FLAG:XLX:YLYJC%(X,Y)3:C3:20200Z20300:355c PRM(K)M(K)5FLAG:XLX:YLYC%(X,Y)3:C3:2020020300:385 PD M(K)M(K)6FLAG:XLX:YLYC%(X,Y)3:C3:2020020300:415& |CC%(X,Y):20200( C2:XX1:20200= FLAGFLAG8:620E  Dd M(K)M(K)2FLAG:XLX:YLYy CC%(X,Y):20200 C2:YY1:20200 FLAGFLAG8:620  L M(K)M(K)3FLAG:XLX:YLY CC%(X,Y):20200 C2:XX1:20200 FLAGFLM$"PU"460 'M$"PL"550. ,M$"PR"490? 1M$"PD"520O ;M$"S"580_ @M$"X"650z J"INVALID MOVE ":240 T U YM(K)M(K):XLX:YLY ^CC%(X,Y):20200 cC2:YY1:20200 hFLAGFLAG8:620 r R wM(K)M(K)FLAG:XLX:YLY"Ĺ34,0:5000 ZA$(A$,4)' dI143 iJ015G nA$(I)(A$,I,1)_ xA$(I)R$(J)A(I)Jf Jm I "XA(1)163A(2)162A(3)16A(4) ,:"DECIMAL IS: ";X; 1X256X31Ė25:"CHAR IS: ";(X):310 3 5I14:A(I)0:I 677 " HEX & DECIMAL! R$(15), 1000065000<V14:"HEX TO DECIMAL"p(14:"--------------"w25<"INPUT HEX CODE IN THE FORM 'XXXX'"F:"TYPE 'LAST' FOR MENU"::K34,8M::P"ENTER HEX CODE: ";A$ UA$"LAST  PLIPLPLIPLP49229,0:49236,0:N140005r(4);"BLOAD "F$",A$"N1=|10ED"ED"PLILIIPLIPLLIIPLIPLLIIG"#:A$::34,0:4:958:15055(F$)01500K49232,0:49234,0kN1540,1560,1580,1600,162049228,0:49236,0:N12000:165049228,0:49237,0:N14000:1650,49230,0:49236,0:N14000:1650@49230,0:49237,0:N18000:1650TL16:170I32:170(FD64:1709(4);"PR#1"?Q1913,PLIDe1785,Z:1145,C}(17):(4);"PR#0"10:15);"LOAD PAGE ";N9:" FOR CATALOG"8:"FILENAME: ";F$(F$)0152034,3:(4);"CATAL OA$"5"ĺA$;:900&"A$"C"ĺA$;:950<'A$"N"ĺA$;:750J,"";:170`I0:C75:D0:170u P1:N3:Z2:170RP2:N4:Z2:170P1:N5:Z1:170C76:170P1:N1:Z0:170P2:N2:Z0:170LP3:170~L4:170L8:170 A$"2"ĺA$;:1050-A$"B"ĺA$;:1100DA$"A"ĺA$;:1150[A$"O"ĺA$;:1200rA$"X"ĺA$;:1250A$"I"ĺA$;:1300A$"E"ĺA$;:1350A$"L"ĺA$;:1500A$"D"ĺA$;:1450A$"3"ĺA$;:800A$"4"ĺA$;:850E 5";25);"N) NORMAL"K"LLx"L) LOAD PAGE";25);"A) AND PAGES"R}{"D) DUMP PAGE";25);"O) OR PAGES""Q) QUIT";25);"X) XOR PAGES"L0:I0:D0:C7520:"CHOICE: ";A$A$"Q"ė:A$"1"ĺA$;:1000I(P1:L0:I0:D0:N1:Z0:C752 ::; 10Q15:"EPSON DUMP"g15:"----- ----"n(62"1) PAGE 1";25);"I) INVERSE"7"2) PAGE 2";25);"E) ENLARGED"<"3) PAGE 3";25);"C) CONDENSED"A"4) PAGE 4"F"5) PAG  ULLl4HHH ɱɷ ɱɸ> 9T X e : ɱɷ( e : ɱɸ 9T X$% q(ɍ e q :ɍ (ɺ  ɯ Lɠ H h)?Hh : ɃL ɛ4,L8192" 1020A 16304,0 16300,0) 16297,0O (4);"BSAVE ";A$;" ,A8192,L8192"W :m 15:"DONE":23:{ 16304,0 16299,0 16297,0 (4);"BSAVE ";A$;;" ,A16384,L8192" 1020A 16297,0  (4);"BSAVE ";A$;;" ,A1638  %15:"HI-RES SAVER"=15:"------ -----"D(8b2"1) SAVE SCREEN PAGE 1"j<14F"2) SAVE SCREEN PAGE 2"P20Z"WHICH SCREEN? ";:A$cdA((A$))nA1A210x:23"FILENAME ?";A$A1000,2000  "D":R$(14)"E":R$(15)"F" $' TMAL"! 14:"2) DECIMAL TO HEX"; 23:"INPUT OPTION ";K T$:A(T$)] A0A25000l A20,1000 'R$(0)"0":R$(1)"1":R$(2)"2":R$(3)"3":R$(4)"4":R$(5)"5":R$(6)"6":R$(7)"7" 'R$(8)"8":R$(9)"9":R$(10)"A":R$(11)"B":R$(12)"C":R$(13)W4096:1090- LW256A2A21:WW256:1100L VW16A3A31:WW16:1110i `W1A4A41:WW1:1120 j:"HEX IS ";R$(A1);R$(A2);R$(A3);R$(A4) tA10:A20:A30:A40 ~1055  15:"HEX CODES" 15:"---------" 8:"1) HEX TO DECI 14:"DECIMAL TO HEX"5 14:"--------------"M 4:"ENTER DECIMAL"k :"TYPE 'LAST' FOR MENU"q { 34,9 : $"ENTER DECIMAL:";W$ .W$"LAST"Ĺ34,0:5000 8W(W$)1 =W164ĺ:"OUT OF RANGE":1055 BW4096A1A11:W `p8      8p`@`pp@@@@@@@@pppx @`p8 ||||@@ xp@`p8 |||| || xp@`p8 ||  xp||@`p000@`p8 8p`@@@@@@@L\xppx\L@@@@@@||@@@@`pp`@`p0||`pp`@`p8 Ƀpppppppppppp>>>><<88~?px\\xp@@||``<f0f8<@`p8330xLLL|xxlL xp`pp`@`p0 W         O ң/  M $' 1$L11 $$ ɍ` )?~?7 , AY M 3 o 0+I`*)hQL$h 1L$h)L$h*`ɇ :I :`,0`  I`UU**ժU**U4+;߂ +|[?,$ +|B\|#B\9 Σ8 0h`H 0Iȱ 0I _ 0h `+i,^!*i,4*iPII*&if*+`, P\H_p , PPH` Bh $ 0IPH*&& h*H&& h& f$)% Ș)% L$, J , 0IH)hl )M H4+))`,1ɰ(ɸ$)_ B``ɠhɃ`ə`ɚ`ɂ`ɀ`ɐ`ɑ `ɗ@ `Ʌ `ɒL `ɔL `H, P $$!$  , %%#%% y $h( k HH _ 0h,  k  $( ɛɍ `HH 3, P Ș! 3$hh` k,  %%#%*I* 0`H, ,0 h`(*)) &+`τH,0 @ &,P,R,Wh,  N H%2 hH)*** **m(L(mhH h 'Ϥ`,ɰ Ʌ+hi#2H $)) &)!(*e))e++8) )L Lp"H $)) &+(*hi#H j j L *(+) 0!*(`$ H))? @(hN    Vɖ ILɓ%Ɂ)ɍ*ɘ&,  ɕ( ` (LN N ` `(5 $, P$$!#$%, i#V%i#%M%L" `"%$Iiii=ߤ$%H " %%, %%#h%LB y ,fH <hLp $,  %%#%  kH %+I`*L )*! 0h`"H $)) &)(*)*U*U*U*L Li ϩލR,0 ,J̩@K @& & < 2 ϩy6789L8L< | $(  ΰɐ$, P$$~!$$P$"%n%, %%L"ɍ7Ɋ7ɈɌOɎfɆ>ɉɋɏZ ? ~ "">">$ "" &"""  "" ****$$$$"""~$0&< <,""""**"""$>>   *U"":*:<0,$$,$$8" """**""">""" @>>>@ $"*T"p>>>>"""""$,W"p     $ "    ""$>> >00000>* i @0 66$>>< (&20 *,  ** > @            ""<  >>  L LKxHHD+(DA/(Dq'  I)(H  p闠 y) 񗰐 z$ r0θ4KHH0t# p y0p 9G @0ɩL[hHHϸȸI^hHHoTDD$ "" &"""  "" ****$$$$"""$$8&< ,""""**""""< ">>U"  "">""$$$$$$$$$$$>$ $>>$ "2"<""">"""8 "  "$>"6*""""""&*2"""""""$$"""*,"" "" ">*"""""""""""""**"""""">"">>>   i @0 66$>>< (&20>  **> > @ "2*&" " >>  ">> "8""> """"""<  >>  `LKxHHD+(DA/(Dq'  I)(H  p闠 y) 񗰐 z$ r0θ4KHH0t# p y0p 9G @0ɩL[hHHϸȸI^hHHoTDDJ1X2X1:Q;:?J190X2:"-";:@FC$C$(2)PQ2I3647X1,X261:C$C$(3)Q3I4X4,X5,X6)J1X120:"-";:4*J1X2X1:Q;:K+J1X3X2:"-";:`,J1X4X3:Q;:w-J1X5X4:"-";:.J1X6X5:Q;:/J190X6:"-";:0:2I2829:X1,X2,X3,X43J1X120:"-";:4J1X2X1:Q;:5J1X3X2hN$" Navy ":C$(1)" Green":C$(2)" Yellow":C$(3)" Fawn":C$(4)" Red":C$(5)" Mauve":C$(6)" Blue"n y (15)C$C$(1):Q1I423:X1,X2J1X120:"-";: J1X2X1:Q;:!J190X2:"-";:":(I2427:X1,X2,X3,  X1I@X1X1X1X1X1X1X1X1X1I8X10I8I8I88I8I88I8I8N 8I8N I8N N Ca N CaN11,68  BLUE=6 -- Y=82 TO 86R 12,68,12,67,13,66,14,65,15 , 64q BLUE DOUBLE --Y=87 TO 91 16,35,41,63,17,34,42,61,18, 32,44,60,20,30,46,58,22,28,48,55 ,62I<X1X2xX3,X4X3,X4I@X15 -- Y=48 TO 58L 2,62,2,62,2,62,2,62,3,62,3,63,3,63,3,63,3,64,3,64,3,64f RED=5 -- Y=59 TO 70 3,65,3,66,3,67,3,67,4,68,4,69,4,70,5,71,5,72,5,73,6,73,6,73 PURPLE=2 -- Y=71 TO 81 7,72,7,72,7,72,8,71,8,71,9,71,9,70,9,70,10,69,10,69,,49 j 20,27,40,48,54,58,16,31,40,46,51,60,14,33,40,44,49,63,12,35,41,42,47,65,11,38,44,67,10,40,43,68 9,69,8,70,7,71,6,72,6,71,5,70 YELLOW=1 + 5 -- Y=36 TO 475,69,4,68,4,67,3,66,3,65,3,64,3,64,2,63,2,63,2,63,2,62,2,62 ORANGE=3+$,X2X1;C$,90X2;N$:"I8791cX1,X2,X3,X4:X120;N$,X2X1;C$,X3X2;N$,X4X3;C$,90X4;N$:i GREEN=1 -- Y=4 TO 35 56,57,54,57,52,56,50,56,48,56,47,56,46,56,45,55,44,55,43,55,43,54,42,54,42,53,41,53,41,53,40,52,40,51,40,51,40,50,40C$C$(3)I4858""X1,X2B,X120;N$,X2X1;C$,90X2;N$HhUrC$C$(4)b|I5970mX1,X2X120;N$,X2X1;C$,90X2;N$:C$C$(5)I7181X1,X2:X120;N$,X2X1;C$,90X2;N$:C$C$(6)I8286X1,X2:X120;NX3;C$;" ";X5X4;N$" ";X6X5;C$" ";90X6;N$:2I2829:X1,X2,X3,X4:X120;N$,X2X1;C$,X3X2;N$,X4X3;C$,90X4;N$:<I3035:X1,X2:X120;N$,X2X1;C$,90X2;N$:FC$C$(2)I3647X1,X2X120;N$,X2X1;C$,90X2;N$I hN$" Navy ":C$(1)" Green":C$(2)" Yellow":C$(3)" Fawn":C$(4)" Red":C$(5)" Mauve":C$(6)" Blue"n {C$C$(1)I423:X1,X2:X120;N$,X2X1;C$,90X2;N$:5(I2427:X1,X2,X3,X4,X5,X6:X120;N$;" ";X2X1;C$;" ";X3X2;N$;" ";X4     0,I279,I(EI2(I2)Ē2:0,I279,I/EI6E3EEI12782YEX13025(I8)hEI1ēI,XtEI,X:I|E&23&23A:TK$(17,I);H4R NOW FIND WHERE EACH FILE IS?\Q(0)NfSTART4096YpI1NszT(I)35S(I)1511206S(I):3T(I):"S";TK$(T(I),S(I))"S"3086,T(I):3087,S(I)3094,1:3095,03072 ERROR TEST980(30:"TK":"SC""I03484:I3:(I10);S5:I3:I10(I10);o22:I3:I10(I10);w:~1I015I6 (I10);I10(I10);:38:(I10);I10(I10)I *TK$(17,0)"V"4I015 >20:I6"B"&Q2FIL$(N)"A"-0Q1FIL$(N)"I"B:Q0FIL$(N)"T"[DFIL$(N)FIL$(N)" "sNJSTART3START23XFIL$(N)FIL$(N)((J))blFIL$(N);25);T(N);32);S(N)vSC0380:15:"DISK USAGE"15:"---- -----"XT READI17&START4072I35E(START)(START1)0630ONN1qT(N)(START):S(N)(START1)(START)255Ĺ(START2),255:T(N)(START32)Q(START2)FIL$(N)"?"Q255FIL$(N)"D"Q127QQ128Q4FIL$(N)-----------------------" 622O@"---------------------------------------"\J7:34,6gT35,21o^N0yhSC15r3094,1: READ|3086,17:3087,SC3072 ERROR TEST(3095)06000TK$(17,SC)"C"SC(4098): SET FOR NEA(A$)A1A4304(A)190,1210,1550,I:S DISPLAY DISK USAGEYhFIL$(105)xTK$(34,15)T(105),S(105)15:"DISK USAGE"15:"---- -----"4""FILENAME";23);"TRACK SECTOR","----------------L 5000:,(17:"LOCKOUT"?217:"-------"F<6eF"<1> DISPLAY DISK USAGE"oP::Z"<2> DISPLAY SECTOR STATUS"d::n"<3> LOCKOUT SECTOR(S)"x::"<4> EXIT TO BASIC"22"ENTER OPTION: ";A$      =8=$ \ۭ=i=$>зɱг?Ь'$i; ڭ=i$ ͓0 \ \ۭ? ? \۩ ХHHHB:) \ 慩Bȱ0 =$$ɲ<=$hhh`HHHȱɲ<0* <$<- <;@@ \ `>=8=>HAHHAɁ =i=Ѐɂ*ȱ> ,C ` ,  ,) !=?<>hhPQ PQLY`f X ȱȱQPO o $=$ȱ0$L) \ۥ$; ڭ=$$ȱ 0BȱД \L枱`к ϔ8Єτ ͓0 \ۥ  I@X1X1X1X1X1X1X1X1X1I8X10I8I8I88I8I88I8I8N 8I8N I8N N Ca N CaN BLUE=6 -- Y=82 TO 86M 12,68,12,67,13,66,14,65,15 , 64l BLUE DOUBLE --Y=87 TO 91 16,35,41,63,17,34,42,61,18, 32,44,60,20,30,46,58,22,28,48,55 ,62I<X1X2xX3,X4X3,X4I@X1X1Y=48 TO 58G 2,62,2,62,2,62,2,62,3,62,3,63,3,63,3,63,3,64,3,64,3,64a RED=5 -- Y=59 TO 70 3,65,3,66,3,67,3,67,4,68,4,69,4,70,5,71,5,72,5,73,6,73,6,73 PURPLE=2 -- Y=71 TO 81 7,72,7,72,7,72,8,71,8,71,9,71,9,70,9,70,10,69,10,69,11,68e 20,27,40,48,54,58,16,31,40,46,51,60,14,33,40,44,49,63,12,35,41,42,47,65,11,38,44,67,10,40,43,68 9,69,8,70,7,71,6,72,6,71,5,70 YELLOW=1 + 5 -- Y=36 TO 475,69,4,68,4,67,3,66,3,65,3,64,3,64,2,63,2,63,2,63,2,62,2,62  ORANGE=3+5 -- 3128,141:3129,38:3130,12:3131,96)->-p"DISK ERROR"z""3098,1:3099,0:3100,0:3101,0L,3102,0:3103,0:3104,0:3105,1:3106,239Z,3107,216,3112,174:3113,39:3114,12:3115,169:3116,254,3117,202:3118,48:3119,5:3120,56:3121,42,3122,56:3123,48:3124,248:3125,45:3126,38#-3127,12:+9+3072,169:3073,12:3074,160:3075,10:3076,32h+3077,217:3078,3:3079,96:3080,0:3081,0+3082,1:3083,96:3084,1:3085,0:3086,18+3087,6:3088,32:3089,12:3090,0:3091,16+3092,0:3093,0:3094,1:3095,0:3096,0,3097,96:START56: START OF TK BIT MAPS+*B I1N?*L TKT(I):SCS(I)Y*V (TK$(TK,SC))12470h*` TK32470y*j RSTART4TK*t RR1*~ SC7SCSC8:RR1* 3110,(R)* 3111,SC* 3112:R,(3110)* * 3094,2:3095,0:3072+ 1170: TO MENUNSERT DISK TO ";$):"LOCKOUT";:8)" BAD SECTORS"d)11:6);"HIT TO LOCKOUT SECTORS"j))11);"'M' FOR MENU")15:19);"< >")15:20:T$) T$"M"30) (T$)132300) "L";)$ ::17);:). "LOCKING": *8 START";I( QIJ:Q6:(*I;:/(45);:"";TKJ(>TK0TK34ĢQ6:2100V(HT(I)TKb(RQ6:9m(\"";SC(fSC0SC152130(pSC(I)SC(z:Q6:I;:15:TK$(T(I),S(I))(1940( ( ** LOCKOUT **( (35,24:34,3:)6:3);"I 'E' TO EDIT 'M' FOR MENU"''35,204'49168,0O'Q(49152):Q1281970\'49168,0t'Q195JJ14:2030'Q1972050'Q20530'1960'JN1890'2190: LOCKOUT'35,24' 23:868(23:"ENTER NO. OF SECTOR TO EDIT: ------":&:21:"---------------------------------------"l&D23:"'C' TO CONT 'E' TO EDIT 'M' FOR MENU"&N6:34,5:35,20&XJ1&bIJJ13&lINIJ20:1920&vI;5);T(I);9);S(I);15);TK$(T(I),S(I))&&35,24'23:"'C' TO CONTT$"V"1820%"SECTOR ";S$.%S$"M"30?%S$"V"1820I%NN1c%T(N)(T$):S(N)(S$)}%T(N)0T(N)34NN1%S(N)0S(N)15NN1%::1710%34,3:%&"NO. TK SC STATUS FILENAME"&0"---------------------------------87,0$@3094,1:3095,0"$J30721$TSTART40969$^N0@$h4j$r"ENTER THE TRACK AND SECTOR OF EACH"$|"SECTOR YOU WISH TO LOCK."$$"PRESS 'V' TO VERIFY CHANGES."$"PRESS 'M' FOR MENU."$:34,9$"TRACK ";T$$T$"M"30 %SC) #1500+#7:19);" IS UNOCCUPIED"5#1500S#7:19);"IS OCCUPIED BY"k#12:5);TK$(TK,SC)u#1340{## LOCKOUT SECTORS####12:"LOCKOUT SECTORS"#"12:"------- -------"#, GET VTOC SECTOR$63086,17:30----------------"&"<6:"TRACK ";T$5"FT$"M"30I"P:"SECTOR ";S$X"ZS$"M"30n"dTK(T$):SC(S$)"nTK0TK341210"xSC0SC151210"(TK$(TK,SC))11480"12:38);"""TK$(TK,SC)""1460#7:19);" HAS STATUS ";TK$(TK,S"!15:"------ ------"D!17:"B= BINARY";20);"A= APPLESOFT"h!"I= INTEGER";20);"D= DELETED"! "T= TEXT";20);"C= CATALOG"!"V= VTOC";20);"S= SECTOR LIST"!"*= DOS";20);:!("M";::"= EXIT TO MENU""2"-----------------------3086,TK:3087,SC:930 `/ jI02:J015@ tTK$(I,J)"*"N ~6J:3I\ "*";::i 49168,0 24:10);"HIT ANY KEY FOR MENU"; Q(49152):Q1281190 49168,0:30    DISPLAY SECTOR STATUS !15:"SECTOR STATU95)0(3095)12960006TK(START1):SC(START2)EJSTART12YQ(J):R(J1)iQR01120}Q35R151070TK$(Q,R)FIL$(I)6R3Q$(TK$(Q,R),1);.JJ28J43511000BTKSC01120LTK35SC151120 V        XwD0N`YCOCO11<JXYXDX0DXX1*YDY0DYY1U(16286)128DX(DX10):DY(DY10)o3:XXDX:YYDY:X,Y X,Y,DX,DY:2020XX12#XX12#XX12#X2#X2#N PINS" X,Y ARE START CO-ORDS-YY14>COUNT0N1I$YY14g.COUNT5(COUNT5)YY2}81X,Y:1XD,Y:B49235,0X280:Y96DX((0)1012.8):DY((1)1012.)0:X,YXDX559DX559XYDY191DY19122,118422,191" LINE TO IC1.3?390,132412,132412,191\390,133411,133411,191u BLOCK E ENABLE PAD1283,108 BLOCK D ENABLE PAD1163,108 DRAW A CHIP VERTICALLY N=NO. OF PINS/SIDE D=DISTANCE BETWEE} LINE TO IC4.3/403,97448,97448,191J403,98447,98447,191^ LINE TO IC1.1{390,104435,104435,191390,105434,105434,191 BLOCK F ENABLE PAD1403,108 LINE TO IC1.2390,118423,118423,191390,1194 FOR LINE TO IC4.2 k1455,64Bl403,67454,67:403,68454,68Pm1455,78tn459,84459,191:460,84460,191s LINE TO IC2.3u390,74497,74497,191v390,75496,75496,191x BURNING PADz1435,78{403,81435,81:403,82435,82.2$W403,39480,39:403,40480,408Z LINE TO IC2.1S\390,46507,46507,191n^390,47506,47506,191_ LINE TO IC3.3a403,53480,53:403,54480,54d LINE TO IC2.2f390,60502,60502,191g390,61501,61501,191i PADS & LINE< 3:3(0,1910,0559,0559,1915 EPROMSGX80320120`D72:N12:Y20:1000f(v2 IC2 & IC3<X480FD36:N8:Y20:1000P LINE TO IC3.1R390,32440,32440,25480,25S390,33441,33441,26480,26U LINE TO IC3 PYC112 YY70 (C5)C5YY1; 1X,YA O X35:Y14[ C112e YY7{ (C5)C5YY1 1X,Y TE:TETEXT Y0COUNT011*YY14HCOUNT5(COUNT5)YY2n(110,Y:182,Y:1130,Y:1212,Yt2{739Y3<COUNT011?YY14ACOUNT5(COUNT5)YY2F16,Y172,Y7102,Y7133,YK16,Y72,Y6102,Y6133,Y1  ----????.-m--???? 0L@` g RgƖ8PgPQhQghe Ӣi  g y  gh^_8^eP^ȱ^ eQ^^_Ll8ePeQ`L10:D44:N7:1100%n BOTTOM OF IC5-s16?xX27434612M1X,30:a BOTTOM OF IC2sX398482121X,30:0 ADDRESS LINES FROM IC10360,3580,35:60,3680,3660,6380,63:60,6480,6460,4980,49:60,5 3:3(559,0559,1910,1910,0/0A232,0:233,3L IC10UX80mD36:N8:Y30:1000x# IC12(N7:X160:Y30:1000- IC11<X250:N7:Y110:D44:1100F IC7/8/9PX350:Y110:N7:D44:1100Z IC6dX450:Y1  !!! ! ! ! ! !!!!!! BLOCK D ENABLE PAD1163,108 DRAW A CHIP VERTIXwY ND0CO DRAW A CHIP VERTIX#XX12#XX12#X2#X2#XwD0N`YCOCO11<J,132412,191\390,133411,133411,191u BLOCK E ENABLE PAD1283,108"X280:Y968"DX((0)1012.8):DY((1)1012.)D"0:X,Y["XDX559DX559Xr"YDY191DY191Y"XDX0DXX1"YDY0DYY1"(16286)128DX(DX10):DY(DY10)"3:XXDX:YYDY:X,Y" X,Y,DX,DY:2020XX1214 !.COUNT5(COUNT5)YY26!81X,Y:1XD,Y:pEAܞ0k׋Cy~RՕՐ|(5u^vyAC=fhCnM7wALQy gLxUOjk/q"tx8YgkxےECV'ýQrlv?7{]9tD#!n1>$$]ukﻺqb?HJiMLq1ue j>_ך{8bnEV!SC k?0&3N}dC|"h֜G1;TXh_QJ$8&N. 6 5<|K!X# `q+y9%~q壵:䃮B'I_^+pdt<Ϝ@EC D,-`::maLkՄ?iXLDV%/;̿_ ]*%1_ڪp)Tau+b(/ߓ=QUnôOHjڽ!=m½  ӀCh׹6)(uWX8nVw8 NeJVs;cjc2cNTQ+hj^,h@u= >W{t&q]ȫ>9X+\[&M~!kQY5\SS+z?ņRs܆=b:FBѸuLC_ (n٘b}mci҇S퓱"re-p vŴRگCu{g"!ߝHEл}˘멫s5M!D,wtqF첑z^: (M ,\}YhH) Äq5H\Ul0tDPRlY2;WL} wVR->B.۸ z۬!˪Fᨪ4bmfFЇ07!DC+p6y@Γ3E|#J'0AjHEtKPs}yBWHStqKtNjŔȆcB04.iNT9fЦ-@`_) Mt<Щ(ittBf|{mC31!s{hySYgE tVV0= sKQ2zE5&NDw^p`v3:G2 =1C#7Zq s=)^t}@)'|_l٭{?F5%',1XgtH)Mp%T1)SB>ެQMa(MV= ?+c޺.ǓڽTԈ?@p^F3Ո=D{UY*d2;g:TJ;ʐՇ .Hӗ$sA<ۍ-S$i7 5ae|YSj͍r T􉷡 .P*X4NQfwWY,򪆳xj(A`C!vt]EY!RKل ho]`d+ RpMcCRs?R[ޠOJd;a ABJP{ [l%;MeC}B=@pPæzXdРRIxҎWHv=LóLۖ8emh;B#8` fT~GBQ*31,ˢh>If~PM/:m{7-ۛ#^ .Svss;QqHe;eyV^ݱU8*)TxMU7 /Jچ;"ʵHyydxVk&oZфOՇ€wksҼu V.A#d³EE_}xvuAuJ`+)rM ˅) JWNw\؍ƑJF:M 3U}39V \X2hVzfW^ޤ^J?>sPTXk(7УL&QnθX@jv$MYh<CD(]ݧ/4!.CN7Leҥ';b[6tk3 TR/6 DPOLb4b>Llh@a8s |d- 'pPpv7`'r_)8iW9s6BֱȆVI" " " """""""""        2 80# I03:(I),:)110I" 7----?????------5??;??.--M--5??????w-----??????w-----?????<