' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL]렮 鷎귭෍ᷩ췩緈JJJJxL Lȿ L`lJJJJJ IL `L巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&Hh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"K ߼ 켩)``K ߼ 켩)`ij  !"#$%&'()*+,-./0123456789:;<=>?ֽ0LL𻽌ɪLFFB 췍@귎鷎lθҸ! 绠Ul\k 续k 续kUl\/8BθҸ!LLT L X -L[`31986:HH9 8L80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`5`?`ȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  L;?;ok+?kժ++++ժ-*Ӝu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /Q֩b_L`L[LLL`ª`LQLY[LXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff ``` 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`SAVLOA RUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALO PRINMAXFILE BSAVBLOABRU !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- ( [ Ϡ-@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0L 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#?Ϡ\\zz]]`1@"T p!G"<p!D8xA EDxp!DQ@>d D?" D@A FD( D@ "D D " DDA D"DH DB)@"D @C|@C8a!8@C8pB@q@(@ D (?D"@բըՊBD@H@ D"H D @բըՊC8p@>aACqCC|xǀ@  쀋ڀ?Dx@|p!D8a!8xpAC>8pD ""DDA D'"D"D @"L @""DA`D?D"DRT(CN):)pCN015:2072CN,LINE(CN):JpCN015:2088CN,EXIT(CN):]p2109,SLOT176p(4);"BSAVE PRINTER.B,A$800,L$300"p:10:"DONE."p(13):(4)"RUNMENU"`d::5`n" 1 - EDIT/MAKE A PRINTER FORMAT"`sax" 2 - LOADo INSTALL PRINTER >o:5:"PLEASE INSERT PROGRAM DISK"io:"ON IT AND PRESS ANY KEY...";:C$:to(13)o:7:7:"WORKING..."o(4);"BLOAD PRINTER.B"o2051,SIZE:2052,INC:2053,HSCAL:2054,VSCAL:2055,SMARTpCN015:2056CN,STĈĈĈĈĈĈĈ@߫Տ߀@ժ߀@ժ܀@Cժ ۀ @ժ ۀ?@ՏC8px`ACxpCC"|x@պՎHHDAA9 D" D"@ծՎBD!@A @ @"@?Bxp@x@ GxpAC"<@պժՏĈĈĈĈĈĈĈĈ?@պժψĈĈĈĈĈĈĈ@պժՏĈĈĈĈ?ĈĈĈĈ@ψĈĈĈĈĈĈĈ@ժ?ĈĈĈĈĈĈĈĈ@׺ψĈĈĈĈĈ8ĈĈ@׮ՏĈĈĈ@ĈĈ?ĈĈĈĈĈĈ@ψĈĈĈĈĈĈĈ@?ĈĈĈĈĈĈĈĈ@պժψĈĈĈĈĈ?ĈĈ@պժՏĈĈĈĈĈĈĈĈ@պժψĈ?ĈĈĈĈĈĈ@LJ@@@կ@իժ@Cժ@Cժ@C@Dժ@պ@ժ@@ժՋ߀@ժ?ψĈĈĈĈĈĈĈ@ĈĈĈĈĈĈ?ĈĈ@ψĈĈĈĈ+Ujڠ*U*艃_*U*ڠW*U+U*u*ڠCU*)U*Ujڠ*UjUzC*U~ LJڠ*U.U ݻݻÀ ݻ@E ݻ݋@E ݻݻ@ ݻݻ@ B 艃CC#ڠCC?ڠ艃ڠ|ڠU艃?U~ڠ/Uz ڠ4Ӯڠ?艃?ڠ!վڠCĈĈĈĈĈĈĈĈڠĈĈĈĈĈĈĈ艃ڠڠ艃ڠڠ艃ڠڠB艃聃ĈĈĈĈĈĈĈĈڠĈĈ?ĈĈĈĈĈĈĈĈĈĈĈĈĈ?ڠĈĈĈĈĈĈĈĈ聃ĈĈĈĈ?ĈĈĈĈڠĈĈĈĈĈĈĈĈ?86FV1:36100g22:"READABLE FROM RIGHT OR LEFT? (R/L): ";:ZA$:ZA$:(13):(ZA$)82FV2mኈ:8::"DANGER":::"THIS WILL ERASE ENTIRE SCREEN!"::"SURE YOU WANT TO ERASE? (Y/N): ";AN$:(AN$)037000(AN$)89600624507,0:63010:600 X273X273-Y0Y0>Y184Y184Dˆh:1::"PRESS RETURN FOR MENU"x:16302,0"HORIZONTAL OR VERTICAL LABEL? (H/V): ";:AZ$:AZ$:(13):1002Ӊ(AZ$)13ġ:600􉥌(AZ$)86(AZ$)7236000(AZ$)BLE IS NOW THE SAME ON BOTH SIDES.":63000:0HD104,96:24576,0:D:"(PRESS SPACE TO CONTINUE) ";:ER$:ER$:(13)::D216,0:""D63990D0N"::"(2) CUSTOMIZED SHAPE UTILITIES"::"(1-2): ";:A$:A(A$):A$:(13):A2A10ION OR SPACE TO GO AHEAD WITH IT: ";:N$:(13):(N$)270BC[CD$"BLOADARCH,A2110"C::"FLIP DISK TO THE SIDE YOU WISH TO RESTORE (THE SIDE YOU'VE EDITED):":63000:D$"BSAVEARCH,A2110,L4470":1D:"RESTORATION COMPLETE."::"SHAPE TA\3#PK171FIFI:(\4#PK189İ4000::\5#PK190İ90:V\6#PK186PK176İ15000:h\7#PK16118000z\8#PK16719000\9#PK134Ē0:8900\:#PK193ı];#PK19242,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67:PK192):X9%,Y9%OX%,OY%:C:X9%,Y9%OX%,Y9%:OY%Y9%:D[(#PK155::600V[)#PK17210000g[*#PK1419100[+#PK188FQ1:10000[,#PK1749200[-#PK1739300[.#PK1869030[/#PK1879700[0#PK1759400[1#PK1929425[2#PK170MSMS:11000Z"X%0X%0!Z"X%279X%2794Z"Y%191Y%191:Z"ZZ"(OX%X9%)(OY%Y9%)8950Z"X9%,Y9%OX%,OY%:OX%1,OY%X9%1,Y9%:OX%1,OY%X9%1,Y9%:C:X9%,Y9%X9%,OY%:OX%X9%:0["X9%,Y9%(Y9%0)OX%,OY%(OY%0):X9%,Y9%(Y9%191)OX%,OY%(OY%191 MAXIMUM IS "VZ:63000:8700GYo"ZZ87X%OX%Z(280SC):Y%OY%:8850qYt"ZZ69X%OX%Z(280SC):Y%OY%:8850Y~"ZZ78Y%OY%Z(280SC):X%OX%:8850Y"ZZ83Y%OY%Z(280SC):X%OX%:8850Y"Y"8860:3:X%,Y%OX%,OY%:14000:Y"Y%0Y%00,0,8808,0,0,0,8810AXd"(Z9OX%)279VZ(279OX%)(280SC):8812KXe"8815rXf"(Z9OY%)0VZOY%(280SC):8812|Xg"8815Xh"(Z9OY%)191VZ(191OY%)(280SC):8812Xi"8815Xj"(Z9OX%)0VZOX%(280SC):8812Xk"8815Yl"VZ(VZ)::"TOO LONG!EAST, SOUTH, WESTOR NORTH.":W`""GIVE DIRECTION (N,S,W,E): ";:Z$:Z$:(13):ZZ(Z$):ZZ69ZZ78ZZ83ZZ87ZZ278700Wa"ZZ27600Wb":"GIVE LINE'S LENGTH: ";A$:Z(A$):Z1ZSC8700Xc"Z9Z(280SC):ZZ688804,0,0,0,0,0,0,0,0,8806,0,0,RIGHT MARGIN MUST BE GREATER THAN LEFT MARGIN!":63000::5000HV@C:V!:::"THE SCREEN IS "SC" WIDE X "(SC(280192))" TALL"::"THE LINE WILL BEGIN AT THE LAST SHAPE ORLINE.":W""LINES WILL DRAW ONLY IF THEY FIT."::"LINE DIRECTION MUST BE (QW$)785020.UCT1:16304,0:16297,0>UP18(ST1)NUP07(LF2){UP0P07:P0(RR1)7P1P18:P07(LF1)UAN$(B$,CT,1):(AN$)27P0P07UCTCT1UXQ1:FV0:30128UCTLNXQ0:63000:600U5052ULFRRı?V::""HOW MANY LINES FROM THE TOP DO YOU WISH TEXT TO BEGIN? (1-24): ";ST$:ST(ST$)pTUP0:LN(B$):(ST$)0600TST24ST1Ģ7:5011T:"DO YOU WANT NORMAL OR BOLD TYPE? (N/B): ";:QW$:QW$:(13):(QW$)66BD1:5040T(QW$)0600USFZ0:QQ239WD:QQ215009FSEP239((QQ)WD):3QQ:EP1:"*"S3:1:ZK1:AN$"":30002:32,0:33,40:::(B$)0İ11000:600S::"YOUR CURSOR IS NOW "1(Y%8)" LINES FROM":"THE TOP OF THE SCREEN":PT"SCREEN IS 40 WIDE & 24 TALL."::8:5001?R:"RIGHT MARGIN (3-40): ";L$:RR(L$):(L$)1600lR5099:RR40RR3Ģ10:22:" ":9:5003RWDRR(LF1):UP0::"USE ESC FOR UPPER/LOWER CASE SWITCH":63000S:33,WD:32,LF1:QW1WD:2:QW:"?";::(13):QW1WD:22:QW:"?";:Y:X1TX:63010QSCTSQQ:::8:"TEXT FORMATTER:":::"(SCREEN IS 40 WIDE AND 24 HIGH)"::"CHOOSE LEFT AND RIGHT MARGINS:":Q232,180:233,25:16302,0:1:0:"LEFT MARGIN (1-38): ";L$:LF(L$):(L$)1600RLF38LF1Ģ8:21:" ":0>PDGDG100:Y1Y1100:X1X1100:X1(X1):Y1(Y1):DG(DG)`PY1Y1100:X1X1100:DGDG100P30:21:" ":30:21:X1:10:21:" ":10:21:Y1:11:23:" ":11:23:DGP23:27:" ":23:27:SCQDGTD:Y1T(X1)"'"IX;(34)O 20200O ID(DG(DG))12CO& ID(ID10)10O: 23:11:" ":23:11:(DG)"'"ID;(34):23:27:" ":23:27:SCOv 2099OTDDG:DG.3048DG:TYY1:Y1.3048Y1:TXX1:X1.3048X1PTSSC:SC30.48SC:SC(SC)103):((A$)49(A$)51)(A$)274505B(A$)270LB(A$)500,600,700SB0jB2000:D$"RUNEDIT"BX2000:D$"RUNVIEW SHAPES"B::"FLIP DISK TO THE SIDE WHICH HAS TABLE YOU HAVE NEVER EDITED.":63000 = ERASE A PADDLE-DEFINED AREA":": = DRAW/XDRAW SWITCH":"+ = FEET-INCH/DECIMAL SWITCH":"= = METRIC DIMENSIONS":"* = FULL/MIXED SCREINE WITH SQUARE CORNERS"::"CTRL F = STRAIGHTEN LAST (-) LINE"::"ESC = EXIT TO MENU IF NO SHAPE BLINKING"we\&63001e^&::7:"SHAPE COMMANDS"::Qf_&"LETTER KEY = CHOOSE SHAPES A-Z"::"RETURN = CHOOSE SHAPES 1-126"::"LETTER KEY = ROTATE FLICKER FROM LAST DOT OR LINE"::"; = DRAW A DOTTED LINE AS ABOVE"::"' = DRAW A DASHED LINE AS ABOVE":ldI&FF1dR&"! = DRAW A CENTER LINE AS ABOVE"::"/ = LINE COLOR (OR LENGTH)"::"1-9 = LINE THICKNESS FOR < OR ,"::", = THICK LINE":leS&"< = THICK L3(X%OX%)3(X%OX%):OX,OY:OYOYYI:6c%14000:kc&OXOX%:XI(X%OX%)(((OY%Y%)3)((OY%Y%)0))c &C:OYOY%Y%3(Y%OY%)3(Y%OY%):OX,OY:OXOXXI::9720cdH&:::7:"LINE COMMANDS"::". = BEGIN LINE OR DRAW A DOT"::"- = DRAW A LINE)bN%RT:3:9600:DX%,Y%:OX%X%:OY%Y%:ob%DR1(PK197PK216PK217PK218)Ē0:DX%,Y%:OX%X%:OY%Y%::b%(PK197PK216PK217PK218)Ē0b%b%(Y%OY%)(X%OX%)9750b%OYOY%:YI(Y%OY%)(((OX%X%)3)((OX%X%)0)))c%C:OXOX%X%749(1):DX%,Y%:QW150::DX%,Y%ua)%(16384)127Ĺ16368,0:(16384)32(16384)27RTRT16:RT64RT16a*%(16384)27ıa+%(16287)1279520a,%(16384)329520a.%RT:9512a0%DR09550a:%RT:3:9600:DX%,Y%:OX%X%:OY%Y%:Y1:T8T92:T9(T9100)100:T8(T8100)100d`$T9$(T9):(T9$)7T9$(T9$,7):T9(T9$):T8T92r`$16301,0`$77X%,Y%::24:"TRI. AREA: "T8;::" ";::"SQ. AREA: "T9;::63010::FF1:77X%,Y%:11000:`%OX%X%:OY%Y%%a(%X%1.094(0):Y%.^$(OX%X%)(OY%Y%)ĭC3C7ēOX%1,OY%X%1,Y%A_h$14000:_$::::"CHOOSE A COLOR OR LINE LENGTH"::44444:Z$:(13):JC:C(Z$):(Z$)0(Z$)769400_$FF1:(Z$)76CJ:8700_$C7C09400_$16304,0:16297,0:C_$-`$T9X1DS":^#FF1I^#"SHAPE NUMBER? (1-126): ";Z$:D(Z$):(Z$)0ė:9830h^#(Z$)67G71:9800:9100^#(Z$)68Č54915:1005^#(Z$)77Č54915:600^#D126D19100^#16304,0:16297,0^#9500^#X%,Y%:14000:^T$C:OX%,OY%X%,Y%4_9500 ]<#G]F#:16303,0:16298,0:DRDR:X$" DRAW":DR1X$"XDRAW"P]K#FF1]P#9:"YOU'RE NOW IN ";::X$::" MODE.":63000:16304,0:16297,0:^#:::"RETURN = SHAPE DESCRIPTIONS"::"M = BACK TO MENU"::"D = BACK TO DRAWING"::"C = COMMAN0:TT0:S_:"(PRESS SPACE TO CONTINUE) ":ZA$:(13):EW2011:EW:868::_::216,0:PP(222):"":"CHECK DISK DRIVE AND/OR DISK THAT IS IN IT!":63000_63990_0H206OLDYOLDY1:DXDX1@ KEY207OLDYOLDY1:DXDX3A KEF0:SV0:TT0:Y~:"(PRESS SPACE TO CONTINUE) ":ZA$:(13):EW2011:EW:868::~::216,0:PP(222):"":"CHECK DISK DRIVE AND/OR DISK THAT IS IN IT!":63000~63990~0NLDYOLDY1:DXDX1` KEY207OLDYOLDY1:DXDX3a KE084}aKK715086}bGH1%} b1995}ySG2KKK1D},ySG2SG0R}6ySG0204b}@ySG1K1K9r}JySG1K9KK}TySG1SG2}^y204}}N032020} }N1NN1}}C(N)0:4800:}}BYTEBYTE1:LOCLOC1:C(1)C1:C(2)C2:C(3)0:NTN}}""~(}FBE SURE PROGRAM DISK IS IN DRIVE"::630000| R6|YZ|Y:"(PRESS SPACE TO CONTINUE):"|YPK(16384):PK127Ĺ16368,0:|Y23010|aBYTE2200|a32000|aSG1|a0:DX,OLDY:3|aDXOX:OLDYOY|aKK315080|aKK515082}aKK115(13){B(B$)89Ľ:0#{JD$(4)5{TD$;"RUNMENU"O{:DXDX2:XX1:2:199i{:DXDX2:XX1:2:199{:DXDX2:XX1:2:199{:DXDX2:XX1:2:199{>SAC(2):C(3)0:635:{ NBYTEBT:LOCL1:936{>N488*|R43624,1:(1001)1ĉ::::::"9z DXDX2:YY1:899z-zTT148103zBzN1NN1HzzzD$"BLOAD"N$",A2110":D$"BSAVE"N$",A2110,L"LQz|N$zL"SHAPE NUMBER SAVED: "NB1z@16368,0:23000{A:"WOULD YOU LIKE TO EDIT ANOTHER SHAPE NOW? (Y/N):";:B$:B$:205)3020*y K95(KEY201KEY205)3030Ky K97(KEY201KEY205)3040y (K97K91)(KEY201KEY205)OLDYOLDY1:899y (K93K95)(KEY201KEY205)OLDYOLDY1:899y 855y DXDX2:YY1:899y DXDX2:YY1:899z DXDX2:YY1:89301,0 xj )x K922510,2520,2530,2540Bx XDX1:C(N)1:560:]x YOLDY1:C(N)0:560:vx XDX1:C(N)3:560:x YOLDY1:C(N)2:560:x K82370,2740,2350,2740,2350,2740,2370,2740x x K91(KEY201KEY205)3010 y K93(KEY201KEY2) w 1992w (K92(K92)KK215)K82152340Jw K92(K92)2340Pw" w$ K92370,2399,2350,2399,2350,2399,2370,2399w. C(N)0:YOLDY1:580:wB C(N)2:YOLDY1:580:w_ 2500:200w` :0:1:3:LOC,0:232,SM:233,D:NB1139,79xe 160:C(2)0:C(3)0:N06v D(SOI256):TD256:SMSOITVv 232,SM:233,D:NB1139,79v DXXX%(BYTEBE1):OLDYYY%(BYTEBE1):XXX%(BYTEBE1):YYY%(BYTEBE1)w LF1K92(K92)DXXX%(BYTEBE2):OLDYYY%(BYTEBE2):XXX%(BYTEBE2):YYY%(BYTEBE401655:P(I):I1024,P::I17681783:P(I):I1024,P::I18961911:P(I):I1024,P::uTI16161655:P(I):I1024,P::I27922800:I,160::I18721911:P(I):I1024,P::uLOCLOC1:LOC,0:BYTEBYTE(BYTE0)::0:1:3uLL(0)v C(1)Z:Z1ZZt((AR(2NB)1)0ıLt2Z8(AR(2NB)1):ZZZZ(256Z8):Z1ZZ:rtI19081910:P(I):I1024,P::tI16511655:P(I):I1024,P::t@I26402679:I,160::I27682807:I,160::I28962935:I,160::I30243063:I,160::\uJI16XX1:2117sK92(KEY206KEY172)XX1:YY1:211dsK96(KEY207KEY213)YY1:XX1:211sK96(KEY206KEY172)YY1:XX1:211s208s:::N$"ARCH"::"SHAPE EDITING":::sZ(AR(2(NB1))):ZZARZtZ(AR(2NB)):ZZAR1KEY205XX2:8994ruKEY201KEY205XX1:899TrzKEY201KEY205XX2:899orKEY201KEY205YY1}rHG0:211rKEY200KEY206HG1rHG0910rHG1850rK98YY1:211rK94YY1:211 sK92(KEY207KEY213)YY1:K94KEY205899(qTK96KEY202899>qUK98KEY201899HqV3000tqWK9860,865,870,875,880,885,890,895,899q\KEY201KEY205XX2:899qaKEY201KEY205XX1:899qfKEY201KEY205XX2:899qkKEY201KEY205YY1:899rpKEY20BE)X:YY%(BYTEBE)YGpLOC,B:LOCLOC1:XX%(BYTEBE)X:YY%(BYTEBE)YypBYTEBYTE1:23:37:" ":23:37:BYTE4BEp1500pC(3)0710pC(1)0:C(2)0:C(3)0:SA0:N0:pC(1)SA:C(2)0:C(3)0:SA0:N1:pRK92(KEY204KEY203)899qSN2C(1)0İ16000&o]BYTE0OYOLDY8o^BYTE0OXDXXobTTTT1:NN1:DXX:OLDYY:oolC(3)4C(3)0640ovSAC(3):C(3)0o{SV1oBC(1)C(2)8C(3)64oC1C(1):C2C(2):C3C(3)oB0670pB128:LOC,B:LOCLOC1:BYTEBYTE1:XX%(BYTELED "N$"? (Y/N): ";:AN$:AN$:(13):(AN$)78(AN$)89475Vn(AN$)78ĺ:8001wn::D$"BSAVE"N$",A3072,L"LQnY79:X139nC(1)0:C(2)0:C(3)0:ZX1::8001n&TCC(N):TNN:C(N)3580n00:DX,OLDYnD3:X,YnXN2İ620oZC(2)0Z5450 mzm16368,0::22:"THIS IS HOW YOUR SHAPE WILL LOOK..."::"(PRESS SPACE AFTER VIEWING YOUR SHAPE)":1620m:0:1:NB1139,79:16301,0:A$:(13)m16368,0::D$(4):?n:::"DO YOU WANT TO SAVE THIS SHAPE IN THE TABLE CALhDX279200lmXDX19lrC(N)1:PFLAG1KEY2C(N)5Gl|550:200UlDX0200`lXDX1lC(N)3:PFLAG1KEY6C(N)7l550:200l936lBC(1)C(2)8C(3)64:LOC,BlB0BYTE0470lLOCLOC1:LOC,0:BYTEBYTE1mBYTEBLLOC.$>>'d 557ؖ2'd53>$<>?M5md  ?߳2d16b $ ?I[K---%$???76-----%$$?????766-------%$$$???????7666---------%$$$$?????????76666-----------%$$$$$???????????766666--------------%$$$$$$ <%g 3-<(?MQMu?(2U! 6m -L->.$h , 'Mj273',n.Me.m u>? %g n5V2------%$gIgADRARUgNBNB1dgX139:Y79gPFLAG0:LL(0):54915:AF0gBEBYTE:FA0gAA1AA0:AF1g:3:0:1:N0:C(0)8:550g16301,0gg22:25:"PLOT MODE:" h:2263000:OI1OI0:vfLOCAR(AR(2NB))((AR(2NB)1)256):BYTELOCST:LCLOC:L1LC:BTBYTE:C(1)0:C(2)0:C(3)0f1310fZR(ZZ):ZR0134fZZZZ1:132fZ5ZZ:BLZZZ118g:"PLEASE HIT CTRL F AS SOON AS YOU'RE DONEOR AS SOON AS THE NFORMATION."::63000:1e"P = PLOT ON/OFF SWITCH"::"I,O,K OR L,COMMA,M,N,J,U = DIRECTION (FOR MOVE ONLY OR PLOT-MOVE)"::"E = EDIT LAST POINT ONLY"::"CTRL F = FINISHED DRAWING":f"CTRL E = START SHAPE OVER"::"? = THIS COMMAND PAGE":::d{(A$)32122.d}(4)"BLOAD"N$",A$C00"?d~LQ4470:114e::"ONE CRITICAL DETAIL OF SHAPE-DRAWING IS THAT YOU PLOT AN EXTRA DOT (IN ANY DIR- ECTION, NO MATTER WHAT IT LANDS ON) ONCEYOU'VE FINISHED DRAWING YOUR SHAPE!"::"SEE MANUAL FOR MORE I" ";NB$:NB(NB$):NB126NB10,cuBNNB:LcvNN126:233,12:232,0:1600ccwXX%(650),YY%(650)ocxAR3072cySTAR(2NU)2:SOIAR:WQ2(NB1):dz1000:"PRESS ESC FOR DISK MENU"::"PRESS SPACE TO CONTINUE";::A$:(13):(A$)27ĺ(4)"RUNMENU"4477:::1db)"YOUR BYTES HAVE REACHED "BYTE4BE:"WATCH OUT THAT YOU DON'T GO OVER "BL2:23000b*23000:23000:16368,0:16304,0:16297,0:16299,0:G51:200br::NU126bs1600 ct::"WHICH SHAPE ARE YOU GOING TO EDIT? (1-126):";:Y213OLDYOLDY1:DXDX37aKEY207K93OLDYOLDY2UaKEY206K97OLDYOLDY2[auaPFLAG0P7(16336)aKEY191OI1:16368,0:127:54915:16304,0:16299,0:16297,0:205aaTKK8:K8K9:K8215K9215K8TKa b(EA15:6`63990: EDIT '`21000:1222`GH1:S`BYTEBE636FA1ġ:63990Y`z`KEY172OLDYOLDY1:DXDX1`KEY172K91OLDYOLDY2`KEY213K95OLDYOLDY2` KEY206OLDYOLDY1:DXDX1` KEY207OLDYOLDY1:DXDX3a KE              "PK(16384):PK127Ĺ16368,0:631002I,63010JI|PK155Č54915:700PII::216,0:PP(222):"":"CHECK DISK DRIVE AND/OR DISK THAT IS IN IT!":63000I63990I0-105 ARE IN GROUPS OF 4...ONE SHAPE FOR EACH OF THE 4 VIEWS OF AN (A$)27ĺD$"RUNMENU"H9,HQWX,Y::HNBX,Y:HR43624,1:(975)1ĉ::::::"BE SURE PROGRAM DISK IS IN DRIVE"::63000H RH:"(PRESS SPACE TO CONTINUE, ESC TO EXIT):"::63010H:"(PRESS SPACE TO CONTINUE):";:BA$:(13):'IHAPE VIEW MENU":::"(1) SELECT SHAPE TABLE"::"(2) SEE ALL SHAPES"::"(3) SEE A SPECIFIC SHAPE":::"ESC";:G" RETURN TO MAIN MENU"::"(N) SEE NOTES"::"(1-3 OR N OR ESC): ";:A$:A$:(13):(A$)786G((A$)49(A$)51)(A$)27700H:(13):3f"PK(16384):PK127Ĺ16368,0:63100>f,63010Vf|PK155Č54915:700\ff::216,0:PP(222):"":"CHECK DISK DRIVE AND/OR DISK THAT IS IN IT!":63000f63990f0$"BLOADARCH,A$C00":700` (A$)110,100` 700a("(1-2 OR N OR ESC): ";:A$:A$:(13):(A$)786Xe((A$)49(A$)50)(A$)27700se(A$)27ĺD$"RUNMENU"ze9eQWX,Y:eNBX,Y:e Re:"(PRESS SPACE TO CONTINUE, ESC TO EXIT):"::63010 f:"(PRESS SPACE TO CONTINUE):";:BA$dXI26402679:I,160::I27682807:I,160::I28962935:I,160::I30243063:I,160::d:::5:"SHAPE VIEW MENU":::"(1) SEE ALL SHAPES"::"(2) SEE A SPECIFIC SHAPE":::"ESC";:d549151e" RETURN TO MAIN MENU"::"(N) SEE NOTES"::NB126200Jc:"HIT SPACE BAR ONCE YOU'VE SEEN IT LONG ENOUGH.":63000jc:1:R:3:2000:63000::c,:"DO YOU WANT TO SEE ANOTHER ONE? (Y/N): ";:B$:B$:(13)c6(B$)78700c@(B$)89200cJ300cI18721881:P(I):I1024,P::\:"PRESS SPACE TO MOVE TO NEXT SHAPE OR ESCTO EXIT SHAPE VIEWING.":63005Xb:1:R:3kb16301,0:600bQW1126:1000:23:"SHAPE: "QW:500:63000::1:R:3:16301,0::700 c:"GIVE THE # OF THE SHAPE YOU WISH TO SEE: ";NB$:NB(NB$):NB1D$(4) a2a7a<AD3072.aPNU(AD):7aU700EadYY1:140NanYY0Taya:::"SHAPE TABLE NAME: "ST$:aST$"NONE"ĺ::"CHOOSE A TABLE!"::63000:700a232,0:233,12:YY1YY0:200Ib:"YOU'LL SEE FROM SHAPE 1 TO SHAPE 126."`63990::VIEW SHAPES3`D$(4):ST$"ARCH"u`R64:X139:Y79::::"DO NOT DO ANY DISK SWITCHING.":63005`::"THE TABLE HAS 126 SHAPES. SEE YOUR COMMAND CARD."`63005`D$"BLOADARCH,A$C00":700` (A$)110,100` 700a(         $FV0)):"<":231uAN$"":Z$"":"LABEL: ";:ESC0:2uZ$:AN$AN$Z$:(ZK1((AN$)239(37)20))(Z$)13AN$(AN$,(AN$)((AN$)1)):(13):30009܁3u(Z$)8(AN$)1AN$(AN$,(AN$)2):30200:36,(36)1:300024u(Z$)27FZFZ:ESCESC1:300:43624,(1001):(1001)1ĉ::::"BE SURE DATA DISK IS IN DRIVE"::63000R!NR47721:43624,1:(1001)1ĉ::::::"BE SURE PROGRAM DISK IS IN DRIVE"::63000 R0u36000::"USE ESC FOR UPPER/LOWER CASE SWITCH":FZ0:63000::2::39(4(10)((OX%X%)0))eVJ04(C3):OXOX%X%10(X%OX%)10(X%OX%):64(OX),OY1:OYOYYI::19090jJOXOX%:XI(X%OX%)(((OY%Y%)10)((OY%Y%)0))tJ04(C3):OYOY%Y%10(Y%OY%)10(Y%OY%):64OX,OY1:OXOXXI:J14000:C:L N47741%)(((OY%Y%)10)((OY%Y%)0))V~F0:OYOY%Y%10(Y%OY%)10(Y%OY%):77OX,OYe~FOXOXXI:u~F14000:C:~8JC:OX%,OY%X%,Y%:QW0~BJ(OX%X%)(OY%Y%)QW1:C3C7ēOX%1,OY%X%1,Y%~LJQW119050QJOYOY%:YI(Y%OY%)(((OX%X%)>SC218.4:12020$}>SC109.2:120207}>SC54.6:12020M}PF3:OX%,OY%X%,Y%l}ZF(OX%X%)(OY%Y%)18050}iFOYOY%:YI(Y%OY%)(((OX%X%)10)((OX%X%)0))}nF0:OXOX%X%10(X%OX%)10(X%OX%):77(OX),OY:OYOYYI::18090!~FOXOX%:XI(X%OX,16110,16111,16112,16113,16114)|>12000=|>SC137.6:12020P|>SC68.8:12020c|>SC34.4:12020v|>SC17.2:12020|>SC8.6:12020|>SC6.45:12020|>SC4.3:12020|>SC2.87:12020|>SC1.43:12020|>SC1092.2:12020|>SC546.1:12020}000:D$"RUNPRINTERS"l{6X9%OX%:Y9%OY%:OX%X%:OY%Y%:A10:X10:Y10:DG0:A1$"0":X1$"0":Y1$"0":DG$"0":{:WPK176:W1(W2):W2W1:W9W1W10:W20:{:(W2)W2W2W21{:|>(Z$)6416101,16102,16103,16104,16105,16106,16107,16108,16109Iw6-Iw6166n  566-66 $ 6666  u66)u6?$66.- ?)5668$66  uI:?-??I-666v- $$6 $6v $b$$M 6-%$?----I-sw- )us?  )--5???.--5???.--5???.--5???u-6$$)-?66n  -3-?)-366166- $$$16v $$166f r$$$1n  $16. $)-5.--166.-$$,-)-566>?g $$ -- )56.8 -166.pe$I9?6--I 666$ u)u>?6-Iu-6) 5?$166.`u66#IIII--??  - -6?$$6%66M!?d )-;?I1?I ?6v- ?)-56 -?v- $$ -6?@-~ +7DHPXfnuz &/=LZfr$,6@LXdo| *6@LYdpw-%-%--e+'"$*umkk$?"fkeE$* .$$$ju 000:600z2:::"BEFORE PRINTING PICTURE, DO YOU WANT TO SAVE IT TO DISK FIRST? (THIS IS A GOOD PRECAUTION) (Y/N OR ESC FOR MENU): ";:A$:A$:(13)z2(A$)78(A$)89(A$)2713000z2(A$)27600z2OK0:(A$)89OK1:31000:OK0{2210600;y200008@yD$"BSAVE"F$",A8192,L8184":OK1ıAJy600o}16304,0:16302,0:16297,0:63010:600耗:::"PRESS RETURN FOR MENU":::16302,0ƈ"PICTURE NAME: ";F$:(F$)0600ш20000(4);"BLOAD";F$;",A8192":16304,0:1629MAL)"::"SCALE 100: LARGEST (SCALE GREATER THAN 1 IS NORMALLY JUST FOR SQUARES OR RECTANGLES)":y0:"SHAPE SCALE (1-100): ";Z$:TSS:S(Z$):(Z$)0STS:600y0S100S1STS:12500z02:31:" ":S(S):2:31::S:17:63 50/1 (L) 1 CM = 20 CM 218.4 CM 20/1 (M) 1 CM = 10 CM 109.2 CM 10/1 (N) 1 CM = 5 CM 54.6 CM 5/1"x/x0::2:10:"CURRENT SHAPE SCALE: "S:::"PRESS RETURN TO LEAVE SCALE AS IT IS"::FF1vy0:"SCALE 1: SMALLEST (NOR.6' 24/1"w/"(F) 3/4 INCH = 1' 6.45' 16/1 (G) 1 INCH = 1' 4.3' 12/1 (H) 1.5 INCH = 1' 2.87' 8/1 (I) 3 INCH = 1' 1.43' 4/1"x/"(J) 1 CM = 100 CM 1092.2 CM 100/1 (K) 1 CM = 50 CM 546.1 CM 5:"ARCH. SCALE";:18:"SCREEN WIDTH";:32:"RATIO";:Bv /(13)w /"(A) 1/32 INCH = 1' 137.6' 384/1 (B) 1/16 INCH = 1' 68.8' 192/1 (C) 1/8 INCH = 1' 34.4' 96/1 (D) 1/4 INCH = 1' 17.2' 48/1 (E) 1/2 INCH = 1' 8ĈĈĈĈĈĈ݈ĈĈĈĈ?ڠĈĈĈĸĈĈĈĈ聃ĈĈĈň?ĈĈĈĈڠĈĈĈĈĈĈĈĈ?ĈĈĈĈĈĈĈĈڠĈĈĈĈĈĈ?ĈĈċĈĈĈĈ聃ĈĈĈĈ?ĈĈĈĈڠĈĈĈċĈĈĈĈ?ĈĈĈĈĈĈĈĈڠĈĈĈċĈĈ?Ĉ聃ĈĈĈċĈĈĈĈڠĈĈ?ĻĈڠĈĈĈċ܈ĈĈĈ?ĈĈĈĈňĈĈĈڠĈĈĈċܸĈ?Ĉ聃ĈĈĈĈĈĈĈĈڠĈĈ?ċ܋ĈĈĈĈĈĈĈĈĈĈĈ?ڠĈĈĈĈĈڠĈĈĈĸĈĈ?Ĉ聃ĈĈĈ݋ċĈĈĈڠĈĈ?ċ܈ĈĈĈĈĈĈŋċĈĈĈ?ڠĈĈĈĈ݈ĈĈĈ聃ĈĈĈĈ?ĈĈĈĈĈňĸňĈĈڠĈĈ?܋ĈĸĈĈċĈĈňċĈĈĈ?ڠĈĈĈĈĈĈĈĈ聃܈ĈĈň?ċĈĈĈڠĈĈĈĈĈĈĈĈ?ĈĈĈ݈ċċňĈŸĈŋĈĈ?ڠĈܸĈ܈ĈĸĈĈ聃ċĈĈŋ?ĈŋĈĈڠĈ܈Ĉ܈ĈĸĈĈ?ċĈĈňĈňĈĈڠĈňĈܸĈŸ?Ĉ聃ĻĈĈċňċ݈?ĈŋĈĈĈܸň܈ŋĸĈĈ?ċĻ܋ňĈŋĈĈĈ܋Ĉ܈ňĻ?ĈċċňĈŋĈĈĈ܋?܈ňĸ܈ĈܸĻĈňԊ?ňċ݋ň܈ŋċĈԢĸ܈Ĉ܈ĸĸ?ĈԊċĸċŸ܈ŋċĈԢĈܸ?݈ŸĸňĈԊ܋ŋĻŋĈ݋ĈĈ?ԢĈ܈ň܈ŸĸĈĈĸŋĈĈ?ŸĸĈŋĈ܈ċ܋ĈĈň?ňĸĈĈŋĻĈŋĈ܈ŋŋĈ?ĈňĈĈĸĸĈň܈ĸŋň?܈ŋċĈԢĈ܈ĈĈĈĈĈĈ?ŋĈĈĈĸժĈĈĈĈĈĈĈĈ?ĈĈĈŋĈĈĈċĈĈ܋Ĉ?ĈĈĸĈĈĈĈŋĈĈĈ݈?ĈĈŋĈċċċňĈĈĈĈĈ?ĈĈĈĈĈĈĈĈĈĈĈĈĈĈ?ĈĈĈĈĈĈĈĈĈĈĈĈĈĈ?ĈĈĈĈĈĈĈĈĈĈĈĈ܋ĈĈ?ċĈĈĈĸĈĈĈĈĈĈĈ?ĈĈĈĈĈĈĈĈĈĈĈĈĈĈ?ĈĈĈĈĈĈĈĈĈĈĈĈĈĈĈ?ĈĈĈĈĈĈĈĈĈĈĈĈĈ?ĈĈĈĈĈĈĈĈĈĈQb b  bPW bDH)?hE&  b b b b b b b  `(  b`)JJ & & f ) `?ĈĈĈĈĈĈĈĈĈĈĈ         :b,::"PRINTER FORMAT FILES MUST BE INSTALLED BEFORE YOU CAN PRINT OUT PICTURES ON YOUR PRINTER. SEE MANUAL. AND IF YOU CHANGE PRINTERS, NEW PRINTER FORMATS MUST BE INSTALLED."7c6:"WOULD YOU LIKE TO INSTALL A PRINTER FORMAT AT THIS AL SCREEN SCALE IN FEET: (1-800 OR A-N): ";Z$:SC(Z$):(Z$)0SCTS:600u.(Z$)78((Z$)65(Z$)57)SCTS:12000u.(Z$)64(Z$)7916000u.SC800SC1SCTS:12000u.:1:31:" "::1:31:SC::23:63001u.6007v/3::z#?????    Ҩҩ!" Ӡ  à̠ Ү  ҠΠɠؠ ҠĠϠ ҠȠ נӠ ȮήРP Ԡ!ՠ0:D$"RUNMENU"٫60050WQ115:PK(16336)::;^:"(PRESS SPACE TO CONTINUE)""XQ0PH(16384):PH127Ĺ16368,0:#XQ1ı,63010::216,0:PQ(222):"":"CHECK DISK DRIVE AND/OR DISK THAT IS IN IT!":6300063990:32000"(0) BLACK1":"(1) GREEN":"(2) VIOLET":"(3) WHITE1":"(4) BLACK2":"(5) ORANGE":"(6) BLUE":"(7) WHITE2"::"(0-7 OR L FOR LINE LENGTH): ";:ل"ARE YOU SURE YOU WANT TO LEAVE THE PROGRAM (Y/N): ";A$:(A$)0600٭(A$)89İ2100.PQ6(218)(219)25663994Č54915:600>PQ255600PQ6ĉ:::"THE FILE YOU ASKED FOR IS NOT ON THE DISK. PLEASE READ THE CATALOG AND FIND THE RIGHT FILE.":63000600:600@J1:29@J2:29@J3:29@J4:29AAND FIND THE RIGHT FILE.":63000)6006SIGN.P@@63990`@0:1:C3:3:230,32:62450h@:t@ D$(4)@D$"BLOADALLCHAR"@D$"BLOADARCH,A2110":20000@W5:W12:W22@RT64:600@J1:29@J2:29@J3:29@J4:29ATIME? (Y/N): ";:A$:A$:(13):(A$)89(A$)78300Gc@(A$)78ıc 104,64:16384,0:(4)"MAXFILES1":(4)"RUNINSTALL"c:"(PRESS SPACE TO CONTINUE):";:B$:(13):::"BE SURE CAPS LOCK IS PRESSED DOWN."::QW12500::3,1:104,64:1638):FI13100UN23:11:" ":23:11:DG$:28:23:" ":23:27:SCdN3C::1010N IX(X1(X1))12:IY(Y1(Y1))12N IX(IX10)10:IY(IY10)10O 10:21:" ":10:21:(Y1)"'"IY;(34):21:30:" ":21:30:X1$-M1:77X%,Y%:QW120::77X%,Y%:S_MX1$(X1):Y1$(Y1):X1$(X1$,4):Y1$(Y1$,4)M22:8:" ":22:8:A1$:22:30:" ":22:30:A290(A1$):A2$(A2):A2$(A2$,4):A2$MDG((X1X1)(Y1Y1)) NDG$(DG):DG$(DG$,41yLFF1Ģ21::"UP/DOWN:":20:21:"SIDEWAYS:":"ANGLE:":22:20:"90-ANGLE:":"DIAGONAL:":23:20:"SCALE:":FF0:LX10A157.3(Y1X1):A1$(A1):A1$(A1$,4)LFI13000M10:21:" ":10:21:Y1$:21:30:" ":21:30:;KX%1.094(0):Y%.749(1):OX%X%:X9%X%:OY%Y%:Y9%Y%SK16304,0:16297,0rKX%1.094(0):Y%.749(1)yK1K77X%,Y%:QW120::77X%,Y%KSKPK(16384):PK127Ĺ16368,0:9000KX1(X%OX%)(SC280):Y1(Y%OY%)(SC280)L600J::"WARNING:"::"THIS WILL PERMANENTLY ERASE YOUR PICTUREFROM THE DISK."::"ARE YOU SURE YOU WANT TO DO IT? (Y/N): ";:A$:A$:(13):(A$)78(A$)89ė:910J(A$)89600J20000:D$(4):D$"DELETE";F$:600KGV0GV1:G71:9800(AN$)27ė::"DANGER...THIS WILL ERASE SCREEN":::55555aIqQ(AN$):AN$"C"G71:9800:600tIr(Q1Q9)600Iv:Q1000,12000,12500,5000,30000,31000,33000,900,13000I:::"PRESS RETURN FOR MENU":J:"PLAN NAME TO DELETE: ";F$:(F$)0"(C) SEE COMMANDS (V) VIEW SCREEN":::"RETURN";::" CATALOG DISK ";::"ESC";::" DISK MENU":Hl"(1-9, E, C, V, ESC, RETURN): ";:AN$:AN$Hm(AN$)6937000Hn(13):(AN$)13İ20000:D$"CATALOG":63000:600Ho(AN$)8632000;Ip(1) DRAW PLAN ** (6) SAVE PLAN"::"(2) SCREEN SCALE ** (7) GET PLAN (DISK)"::"(3) SHAPE SCALE ** (8) DELETE PLAN"::"(4) FORMAT TEXT ** (9) PRINT PLAN":Gg"(5) ADD LABELS ** (E) ERASE SCREEN"::"****************************************"jHhITECTURAL DESIGN":::232,62:233,8OFYQW(0):XQ0:11000:FZ0:UP0:C3:OK0xF]C:64:S:54915:FF1:FX0:FV0:BD0F^63990Fa"****************************************":"PLAN CREATION: ** PLAN UTILITIES:":QW4162:QW:18)"**"::7Gb"A$" "ıE05EAA(A$)31:AA4UPUP:357XEUP0AA33AA60JAA32:231fEJAA:350|EAA1AA9662000E^J1J9662000E`FX1ĕJX,Y:Ec3:JX,Y:EeFV1YY7:EfFV2YY7:EgXX7:$FX:::5:"MENU FOR ARCH1551005D_OO(16336):92aDdPX%1.094(0):PY%.749(1):77PX%,PY%:QW150::77PX%,PY%DfPK(16384):PK127Ĺ16368,0:PK155ĺ"":110DgPK1551005DiOO(16336):100Dn0:O8PX%:O1PY%:O0X%:O9Y%:OOO0O8:OO,O9OO,O1::C: ET LOWER RIGHT":FF1C["CORNER OF AREA TO ERASE & PRESS SPACE."::"TO EXIT PRESS ESC."::63000:16304,0:16297,0:PH1551005C\X%1.094(0):Y%.749(1):77X%,Y%:QW150::77X%,Y%C]PK(16384):PK127Ĺ16368,0:PK155ĺ"":100D^PK: B9D55:B:D9:"B;D13:-B<D68:8B=D49:BB>D8:MB?D16:XB@D51:cBAD65:nBBD66:yBCD67:BDBD1:BEBD0:CZ::"TO ERASE, POSITION CURSOR AT UPPER LEFT CORNER OF AREA TO ERASE & PRESS SPACE. THEN POSITION CURSOR AJ78:29,A232,62:233,8:FX0ĔJX,Y:317AJX,YQAC:232,180:233,25:^A(62000:iA*D35:tA+D53:A,D73:A-D69:A.D64:A/D19:A0D27:A1D43:A2D5:A3D75:A4D64:A5D65:A6D66:A7D67:B8D70M4@SH$"ARCH":16301,0:S1:SC100:ARCH.DESIGN.P@@63990`@0:1:C3:3:230,32:62450h@:t@ D$(4)@D$"BLOADALLCHAR"@D$"BLOADARCH,A2110":20000@W5:W12:W22@RT64:600@J1:29@J2:29@J3:29@J4:29A                  !""" "          !" "  E$:FILE$""ĺ(4);"CATALOG":::C$::Bn :5:7:"SAVEING..."Yn (4);"OPEN "FILE$qn (4);"WRITE "FILE$n SIZE:INC:HSCAL:VSCAL:SLOT:SMARTn CN015:STRT(CN):n CN015:LINE(CN):n CN015:EXIT(CN):n (4);"CLOSE"n E$,mSIZE:INC:HSCAL:VSCAL:SLOT:SMARTEmCN015:STRT(CN):^m CN015:LINE(CN):wmCN015:EXIT(CN):m (4);"CLOSE"m*m SAVE FORMAT m :5m 2:" (PRESS RETURN TO CATALOG)"m (n "PRINTER FILE NAME TO SAVE ?";FIL)lC(C$):C1C71730!l6l LOAD FORMAT ?l:5el2:" (PRESS RETURN TO CATALOG)"kll"PRINTER FILE NAME TO LOAD ?";FILE$:FILE$""ĺ(4);"CATALOG":::C$::l:5:7:"LOADING..."l(4);"OPEN "FILE$m(4);"READ "FIL"Y"HSCAL2Lk11:1:"DOUBLE VERTICAL SCALE (NOW="YN$(VSCAL2)") ?";:C$jkC$(13)C$Y2$(VSCAL2)kC$"Y"C$"N"1700kC$:VSCAL1:C$"Y"VSCAL2:SIZE3(SIZE8)k13:1:"PRINTER IN SLOT #(NOW="SLOT") : ";:C$lC$(13)C$(SLOT (NOW="YN$(INC255)") ?";:C$;jmC$(13)C$Y2$(INC255)UjrC$"Y"C$"N"1630sj|C$:INC255:C$"N"INC1j9:1:"DOUBLE HORIZONTAL SCALE (NOW="YN$(HSCAL2)") ?";:C$jC$(13)C$Y2$(HSCAL2)jC$"Y"C$"N"1670 kC$:HSCAL1:C$+i7CN:8:C$:C(C$):C$""CEXIT(CN)Di7CN:8:C" "SiEXIT(CN)C[iCNai@iJ5:"NUMBER OF PINS TO USE (NOW="SIZEVSCAL"): ";:C$iOC$(13)C$(SIZEVSCAL)iPC$iTC(C$):C4C81600i^SIZECjh7:1:"BIT 0 ON TOPRESET PRINTER TO NORMAL)"Kh::"--- PRESS ANY KEY TO GO ON ---":C$::kh:"END ENTRIES WITH A 255"h:"NOW NEW CHARACTER CODE"h"--- ------------------"h7:CN015:EXIT(CN);" --> ":hC0:CN015iC255EXIT(CN)0:1530---------------"4gP7:CN015:LINE(CN);" --> ":EgZC0:CN015agdC255LINE(CN)0:1410gn7CN:8:C$:C(C$):C$""CLINE(CN)gs7CN:8:C" "gxLINE(CN)CgCNg:5g"SOFT RESET COMMAND SEQUENCE"h:"(COMMANDS THAT ACROSS"::" THE SCREEN. IF YOU DOUBLE THE"af#:" VERTICAL SCALE YOU MUST SPECIFY"zf$:" 560 DOTS."f(::"--- PRESS ANY KEY TO GO ON ---":C$::f2:"END ENTRIES WITH A 255"f<:"NOW NEW CHARACTER CODE"gF"--- ---$Y2$(SMART0)(eC$"Y"C$"N"1170@eC$"Y"SMART255:LeSMART0Ue:5ve "PRINTER GRAPHICS COMMANDS"e:"(COMMANDS THAT PREFIX EACH LINE AND"e" SETUP THE GRAPHICS MODE FOR THAT LINE)"e:2f:" --- NOTE: THERE ARE 280 DOTS(CN)dy7CN:8:C" ",d~STRT(CN)C4dCN=d:5kd"DO YOU HAVE A SMART GRAPHICS CARD, AND"qdd"THE COMMAND SEQUENCE YOU JUST ENTERED"dd"WAS THE SCREEN DUMP SEQUENCE?"de" (NOW="YN$(SMART0)") ? ";:C$:C$(13)C PRESS ANY KEY TO GO ON ---":C$::Dc8:"END ENTRIES WITH A 255"gcB:"NOW NEW CHARACTER CODE"cL"--- ------------------"cV7:CN015:STRT(CN);" --> ":c`C0:CN015cjC255STRT(CN)0:1160dt7CN:8:C$:C(C$):C$""CSTRTFORMAT b:5:b"PRINTER INITIALIZATION SEQUENCE. "@bmb"(COMMANDS TO FEED PRINTER RIGHT AFTER"b" IT IS TURNED ON TO PREPARE FOR "b" GRAPHICS MODE, OR IF YOU HAVE A SMART"b$" PRINTER CARD, THE SCREEN DUMP COMMAND)"$c.::"--- A PRINTER FORMAT FROM DISK"Ja}:" 3 - SAVE A PRINTER FORMAT TO DISK"{a:" 4 - INSTALL PRINTER FORMAT CURRENTLY"a" IN MEMORY"a::" YOUR CHOICE --> ";:Q$:Q$aQ(Q$):Q1000,2000,3000,4000a100b EDIT/MAKE )` SIZE7:INC1:HSCAL1:VSCAL1:SLOT15`SMART0U`STRT(15),LINE(15),EXIT(15)}`STRT(0)255:LINE(0)255:EXIT(0)255`(YN$(0)"NO":YN$(1)"YES"`-Y2$(0)"N":Y2$(1)"Y"`d::5`n" 1 - EDIT/MAKE A PRINTER FORMAT"`sax" 2 - LOAD     I?;73/+'#?;73/+'#>:62.*&">:62.*&"=951-)%!=951-)%!<840,($ <840,($ ?;73/+'#?;73/+'#>:62.*&">:62.*&"=951-)%!=951-)%!<840,($ <840,($ ?;73/+'#?;73/+'#>:62.*&">:62.*&"=951-)%!=951-)%!<840,($ <840,($ h;PHH:Nȱ:;N:: L hhOiOPiHOH`HKh`8K| :< mH;JIu 1:h8`h` @PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP((((((((((((((((((((((((((((((((LQA 0@ңң 8  @` ML > .MKLL.MnNNMM K8KIIIJJ(ЙIJKmKLf ( @`h:O   025uFZ1Ğ_6uZK0(AN$)ESC31(4FV)AN$(AN$,ESC30(4(FV0)))Z$:PK(36):36,PK1q7uZ$;::300029uZK1ZK0:B$AN$::u:::"USE PADDLES TO POSITION LABEL"::"PRESS SPACE TO PRINT LABEL"::"USE ESC TO EXIT WITHOUT PRINTING"::63*`214,214:1010,10:1011,0:1012,0:5`::"DO YOU HAVE 1 OR 2 DRIVES? (1-2): ";:A$:A$:(13):(A$)49(A$)50Ģ13:1`1001,1:(A$)50Ĺ1001,2:200:`100:`:16302,0`(4)"BRUNPIC"`10:1:300#a103,1:104,64:1638 000;u232,180:233,25:1)uFV1Ę16e@uFX1:30050:16304,0:16297,0:3:30030Bu16304,0:16297,0:3:UP0 DuFV2XP0:YP1:Q1(AN$):A$(AN$,Q,1):35000:220:YY7::XP0:YP1:UP0:Q1(AN$):A$(AN$,Q,1):35000:220:YY4,0:(4)"MAXFILES1":(4)"RUNMENU"8a A$:(13):::ad:"LEAVE YOUR PROGRAM DISK IN DRIVE 1 FOR NOW. YOU WILL BE TOLD WHEN TO SWITCH TOTHE DATA DISK.":63000:b"LEAVE THE PROGRAM DISK IN DRIVE 1. INSERT THE DATA DISK IN DRIVE 2.":63000->736>?$ $ 6 $ 6 $ 6 $$ u66e$$ u66e$$  $$ u66e $$ u66e $$ u66e $$$d -666- $$$d -666- $$$d -666-----%$?>?>?'$%$$$<7666. %$$$$7666>>@$$$$- -f< , ? - ? --------%$??6666666 dddd eeee5 vvv6-u---8???-------$??????$,------$???,--%----%?????><><>$-------%???????'-------%???????'-------%???????'-------%???????'-------%???????'-------%???????7$$$$$$$???76666666-%( $$$$$?76666.  e e.%7e $?6,e??,-%?? -e<----67.65-%-,d'<<>775..,%%<<77.e? e $?66 $ $$ 66e $ `LLLLL L ddd$ d$ ddd$ $ $ d $d$ $ ddd $$ $d$ d d $$d$d$ ddd  ```````` ``  ` H ` `  `   ```` L e.(-%v~ !.?Xar )?Zv{  *6DTX^ckuNUm#4Zajx(9Lp!&2y S  X [ n ! 7 c *Qp24[MS]hy        32. SMALL TO LARGE 1/4 ARCS, DOT".k&63010:k&"33. - 40. SMALL TO LARGE 1/8 ARCS":"41. - 48. SMALL TO LARGE 1/8 ARCS, DOT":"49. TOILET":"50. TOILET, DIAGONAL":"51. WASHBOWL":"52. WASHBOWL, DIAGONAL"wl&"53. BATHTUB":"54. BATHTUB, DIAGONAL": "55. SMALL PILLAR":"56. MEDIUM PILLAR":"57. LARGER PILLAR":"58. BIG PILLAR":"59. OUTLET 110V.":"60. OUTLET 220V."l&63010::m&"61. WIRE JUMP":"62. LIGHT FIXTURE":"63. USER DEFINABLE (YOU NAME IT)":"64. SMALL SOLID SQUARE":"65. MEDIUM SOLID  7::30030HuFV1XP0:YP1:Q1(AN$):A$(AN$,Q,1):35000:220:YY7::XP0:YP1:UP0:Q1(AN$):A$(AN$,Q,1):35000:220:YY7::30030 IuXP0:YP1:Q1(AN$):A$(AN$,Q,1):35000:220:XX7::XP0:YP1:UP0:Q1(AN$):A$(AN$,Q,1):35000:2EIGHTS":"100.-103. BATT INSULATION (1/4 IN.=1')":" 100. 3.5 IN.":" 101. 5.5 IN.":" 102. 7.5 IN. (OR 3.5 IN.: 1/2 IN.=1') 103. 9.5 IN."Dp&"104.-107. WOOD STUDS (1/2 IN.=1')":" 104. 3.5 IN. (OR 7.5 IN.: 1/4 IN.=1') 105. 5.5 IN.":" 106. 7.5 GONAL"n&"77. CURSOR":"78. LOWER CASE C":"79.-82. DOUBLE DIAGONAL CROSS HATCH":"83.-86. DOUBLE PERPENDICULAR CROSS HATCH87.-90. DIAGONAL CROSS HATCH":"91.-94. HORIZONTAL CROSS HATCH"n&"95.-98. VERTICAL CROSS HATCH":63010:o&"99. ELEVATION HSQUARE":"66. LARGE SOLID SQUARE":"67. HUGE SOLID SQUARE"m&"68. SCALE MARKER":"69. DOOR":"70. OPEN DOOR":"71. SOLID DOOR":"72. OPEN SOLID DOOR":"73. CURVED STAIRWAY":"74. CURVED STAIRWAY, DIAGONAL"n&"75. STEPS/STAIRS":"76. STEPS/STAIRS, DIA20:XX7:)NuP01.094(0):P1.749(1)2OuUP0iSuPP(16384):PP127Ĺ16368,0:FX0:PP15530128yTuPP155600Xu30020buBT0::"DO YOU WANT NORMAL OR BOLD TYPE? (N/B): ";:QW$:QW$:(13):(QW$)66BD1:BT1luIuFV0XP0:YIN.":" 107. 9.5 IN.":"108. GROUND (FINE)":"109. GROUND (COARSE)"q&"110.-118. TEXTURES":" 110. FINE (SMALL)":" 111. FINE (MEDIUM)":" 112. FINE (LARGE)":" 113. FINE (LARGEST)":" 114. TEXTURE TOUCH-UP DOT":" 115. COARSE (SMALL)":" 116. C::"TURN ON PRINTER"::? (D$"BLOADPRINTER.B,A$800":2048Y 2D$"RUNARCH.DESIGN.P"j A$:(13):z 216,0:"" 63990 0PRINTER D$(4):::,63990 "WE'LL TRY TO PRINT THE ON-SCREEN PICTURENOW IF YOU PRESS SPACE. IF YOU PRESS ESC WE'LL EXIT THIS ROUTINE. (SPACE/ESC): ";:63000:(A$)27(A$)320(A$)27ĺD$"RUNARCH.DESIGN.P" ""uAA2BD0ıuFX0(uFV030162?uXX1:220:XX1:VuYY1:220:YY1:wu(36)1PO(37):PO:36,WD}vy:1:F$""F$"NONE"y"CURRENT PICTURE NAME: "F$::y::"PRESS RETURN FOR MENU"::"y"PICTURE NAME: ";F$:(F$)P1:Q1(AN$):A$(AN$,Q,1):35000:220:30140:XX7::63010:XQ0600UuXQ1ıuFV2XP0:YP1:Q1(AN$):A$(AN$,Q,1):35000:220:30140:YY7::63010:600uXP0:YP1:Q1(AN$):A$(AN$,Q,1):35000:220:30140:YY7::63010:XQ0600X%XX,(W1(OY%Y%))(W1(Y%OY%))OY%X%XX,(W1(OY%Y%))(W1(Y%OY%))Y%:FZ1\t.':10020rt*MS1Ĺ16302,0:t+16301,0:t.::9:"CURRENT SCREEN SCALE: "SC:20:"PRESS RETURN TO LEAVE SCALE AS IT IS":t.FF1:12040:TSSCQu.21:"HORIZONT1(X%OX%)),OY%YYX%(W1(OX%X%))(W1(X%OX%)),Y%YY:FZ1Bs'Ss$'FZ0FQ0:es%'14000:FQ0:s''XXW1W2:(OX%XX279X%XX279OX%XX0X%XX0)10030s('FQ0ēOX%XX,OY%X%XX,Y%:FZ1:10030Ot)'(OY%W1192Y%W1192OY%W11Y%W11)ēOARGER":" 126. LARGEST":63010+r':9100Rr'FZ0:C:(X%OX%)(Y%OY%)10023r'YYW1W2:(OY%YY191Y%YY191OY%YY0Y%YY0)10010r'FQ0ēOX%,OY%YYX%,Y%YY:FZ1:10010