' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩 緈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)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./0123456789:;<=>?  ( 9 +"  "*  (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).).*#!.*'!.8)(#/-)(#/-,,eb)++$ h( ,!!"@h !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HH ᥠ L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD# H8`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  L IH  /JJJJ"LL뷩 ᷩ췩 ɛ LDLSAVBPILOCUNLOCIBPIBPIBPPRBPIBLISCALBPIBUZZOFӜsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\  OÌȌ`W ԧ H h@ [_ /QSIZRb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLOɍ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׭Lܫ &RL &QL d L4 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@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@ ,\Z[PRR3\ɄSɊ"RQJ(0Fw6. ^-%p 㩠RP.Q I* P\L˵B̵C8pB߮Z\ @ յյ\BIR Z-^ Jp\IZLLӜv  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B / / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8`  XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` ᥠ hh`ĵµ`ڿ8.ڿ.ۿ`êL`õĵ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 x(`# dנz# u`:34ET,ZD:ZEįDR,34,1534,1516128:ZEįRFL,"MECC$$DISK"ZS:38000:(T0)(TZT)(N$ZN$)345702ц(T2)((T1ZT)(ZE6))(16128)IB345702Ԇ(TT1)((T1ZT)(ZE6ZP1))(16128)ID345703؆:10:"Please insert your "T$(T)" diskette":"for "N$;:ZCw1 WP(WP1):ZE4ĺCL$:CO,0,89:"Please remove the write-protect tab from your "T$(T)" diskette.":WP2:30000:3400513ZU0:1ĆSPECIAL DISK VERIFY USED ONLY DURING COPY1ɆZU1:SET,ZD:ZSS0:CPRO,ZP:ZPįCPRO,ZP^2ΆSPRO,ZP(ZP):ZE0:ZT1:Sour "T$(T)" diskette for "N$;:ZC(S36):ZC2ĺ" in drive "ZD;0ZC3ZL953(ZD2)3:" in the drive located at:"::" Slot: "(ZL):" Drive: "(ZL1);0".":30000:340050WP340990DR,17,017,016128:ZE0:ZEįDW,17,017,016128CPRO,ZP:ZPįCPRO,ZPf/ڄSPRO,ZP(ZP):ZE0:ZEįRFL,"MECC$$DISK"ZS:38000:(TZT)(N$ZN$)34070/䄺CL$:CO,0,73:ZVZE7ĺ"The volume number of this diskette does not match the current setting.":30000?0ZV(ZE7):CL$:CO,0,89:"Please insert y.F}UNHOOK:FILT:::12:1.P}"Error "ZE" at line #"ZN:"in Diskette Support."::"Please report this error to MECC.":30500.U}500:ZU1:ZE0:ZEĺD$"VERIFY LOGO"D1$.Z}T0:ZD1:WP0:34500::12:31060.ЄDISK VERIFY/ՄZU1:SET,ZD:ZSS0:ZV0:RFL,"PRINTER COMMANDS.BIN"(948)(949)256:RFL,"ASCII BOLD.PFT"64400:RNH,"SHORTPPRINT.OBJ":DFT,0,64400}-hyRNH,"MENU"-}ERROR PROCESSING- }ZE(222):ZN(218)(219)256::(4)"CLOSE"-}ZUZE0ZE16Ħ-(}REENTRY POINT-<}ZE25531000(901)Ĭ5,y500:(901)2T0:ZD1:WP0:34500::F, y54915:1000r,6y500:ZU1:ZE0:ZEĺD$"VERIFY LOGO"D1$,@yZU0:T0:ZD1:WP0:34000,JyZU0:CL$:CO,0,89,Ty"Getting the "PN$" menu..."m-^yNOFILT::901,0:D$"BLOAD"U1$D1$:D$"BRUN"UP$D1$:+$wSPACE-BAR TEXTG+.wZF0:24:1:868:7:"Press ";:(64435)6Ğl+8w"SPACE BAR";::" to continue";+Lw16368,0:16384,128:ZP(16384):ZF(ZF1)(ZP155):ZF231000+VwZP160ZP14130540+`w16368,0::+yENDING ROUTINE,ySPRO:CO,ZX,ZY:DL$*5ROS2,(DL$)*:RCEW:CO,0,(58YY)9:CEL:CO,0,(48YY)9:"Copy will look for your "Q$" diskette in:":CO,0,(118YY)9:"Is this correct? ";:36000:CO,0,(118YY)9*DRCEL:Z$"N"21010*kR*0uSPACE-BAR HI-RES+:u:SPACE::YY)9:CEL:"Where will your "Q$" diskette be?"p)R:M1:I$"-37":L$" Slot: ":DF$((OS)):300:OS,(DL$))&RM1:I$"12":L$" Drive: ":DF$((OS1)):300:OS1,(DL$) *0RM3:I$"-09":L$" Volume: ":DF$((OS2)):300:(DL$)255DL$"254":1:WP0::34500::12:"One moment please...":901,1:NOFILT:D$"BLOAD ASCII BOLD.PFT,A$713D"D1$:D$"BRUN SHORTPPRINT.OBJ":784,61:785,113:D$"BRUN DISKUTIL.OBJ"(N(RGET COPY CONFIG/)RYY(Q$T$(T1)):OS9533YY:CO,0,(108YY)9:CEL:CO,0,(58.":SET,1:ZU1:ZE0:ZEįDW,IS,0QS,1516384A'fNZEİ700:20076m'hNK64QS34ZEįDW,5IS,07IS,1553248z'jNZEİ700'lNZU0:IS'nNZ$"is":EFZ$"could not be"'pN:11:"The copy of your "T$(T1)" diskette":Z$" finished.":30500(zN500:T0:ZD"Reading from "T$(T1)" diskette...":SET,2:QSIS4:QS34QS34h&_NZU1:ZE0:ZEįDR,IS,0QS,1516384|&`NZEİ700:20076&aNK64QS34ZEįDR,5IS,07IS,1553248&bNZEİ700:20076&cNZD1:T2:WP1::34500-'dN:12:"Writing to backup diskette..S"((953))",D"((954))",V"((955)):SPRO,PT:400:ZEİ500:%YNIB(ID1)256(ID0):16128,IB:ZU1:ZE0:ZEįDW,34,1534,1516128%[NZU0:ZEİ700:20078%\NUNHOOK:901,2:::FILT:EF0%]NIS0345(3K64):TT1:ZD2:WP0::34500@&^N:12:" and your "T$(T1)" diskette";.$CN".":30000y$ENDC2TT1:ZD2:WP0:34000:PTZP:ZU1:ZE0:ZEįDR,34,1534,1516128$FNZU0:ZEİ700:20078$GNID(16128)$HNZD1:39000$RNOKİ500:C%WNCL$:CO,0,89:"Preparing your backup diskette...":DT$",#NCO,0,27:CEW:CO,0,90:"Please insert your backup diskette";:(S36)2ĺ" in drive 1 and your "T$(T1)" diskette in drive 2";$@N(S36)3DC2ĺ"Copying a "T$(T1)" diskette will erase whatever information is currently on the backup diskette."::"Do you want to continue? ";:36000:Z$"N"İ500:";NDC(S36):DC3ĺCL$"Special Copy Setup"CC$:Q$"backup":21000:Q$T$(T1):21000:DC(D1$D2$)1NADD ANY FEATURES TO NEWLY CREATED DISKETTE HERE!:CO,0,81:CEW::"This diskette is now prepared to handle "T$(T1)" from "N$".":30000:ZU1:ZE0:ZEĺD$"VERIFY LOGO"D1$!:ZU0:! NCOPY DISK!*NT1U1:CL$"Copy a "T$(T1)" diskette"CC$"4NCO,0,72:OPRO:400:ZE15099Q :ZSS:38000:CBS,ZN$".",AD:ZU1:ZE0:ZEįDW,0,00,0ADm :ZU0:ZEįDW,0,00,0AD :AD16128:DR,17,017,0AD:AD60,255:AD61,255:AD64,255:AD65,255:DW,17,017,0AD :S,T1:D$"BSAVE MECC$$DISK,A"S",L$28"D2$:S,0/!:3ĺ" in the drive located at:"::" Slot: "(S37):" Drive: "(S38):" Volume: "(S39);:(S36)2ĺ" in drive 2";:".":30000:ZD2:39000:OK15099:CO,0,27:CEW:CO,0,89:"Now creating a "T$(T1)" diskette..." :DT$D2$:SN"Creating a "T$(T1)" diskette will erase whatever information is currently on the diskette."::"Do you want to continue? ";:36000:Z$"N"15099:CO,0,18::CEW:CO,0,73:"Please insert the diskette that you will use for storing "T$(T1);d:(S36)ight.":30000.(.SET PAGE 3 VARSd.ZC(S36):ZC3Ĺ956,(S37):957,(S38):958,(S39).ZC3Ĺ956,(953):958,254:ZC2Ĺ957,3(954).ZC1Ĺ957,(954)C/:CREATE DISK:T1U1:CL$"Create a "T$(T1)" diskette"CC$:CO,0,72:"To change the slot, drive or volume of the drive to hold the "T$(U1)" diskette, type the desired number and press return. "; ."Pressing return alone will accept the current values (or the default values if no current values exist) displayed to the r10+CEW:CO,0,99:CEL:CO,0,90:CEL:N$" will look for your "T$(U1)" diskette in:":CO,0,153:"Is this correct? ";:36000:CO,0,144::CEL:Z$"N"11015R+S37,SL:S38,DR:S39,VO[+|.HELP3.CL$"Special Disk Drive Setup Help"CC$:.::DF$((956)):300:SL(DL$):DL$"?"İ11900:11010+M1:I$"12?":L$" Drive: ":DF$((957)):300:DR(DL$):DL$"?"İ11900:11010+M3:I$"-09?":L$" Volume: ":DF$((958)):300:VO(DL$):VO255VO254:CO,ZX,ZY:VO+DL$"?"İ11900:110up"CC$:::"Your PROGRAM diskette was started from:"::" Slot: "(953):" Drive: "(954):" Volume: "(955)+CO,0,180:"Press ? for help." +CO,0,90:CEL::CEL:"Where will your "T$(U1)" diskette be?"4+:M1:I$"-37?":L$" Slot: " than one controller card), use "QU$"Select special disk drive setup."QU$*:"This option will ask you for the slot, drive, and volume where your "T$(U1)" diskette will be located. ";*30000**SPECIAL SETUPv+CL$"Special Disk Drive Setz*"This menu asks how many disk drives you are using. The current selection is displayed at the top of the screen.":*"Most users will have either one or two floppy disk drives. ";I*"If you have a different setup (such as a hard disk or moreL'SC(Z$):SC3İ11000;Q'S36,SC:T0:ZD1:WP1:34000bV'D$"BSAVE MECC$$DISK,A"S",L$28"D1$o'12000:35000:600:WPĺCL$:CO,0,89:"You may now replace your write-protect tab.":30000s'*HELP2*CL$"Change Disk Drive Setup Help"CC$::disk drive":" 2. Select two disk drives":" 3. Select special disk drive setup"m'" 4. Make no change"$':"Which number? "CA$;:GCP,ZX,ZY:CO,0,180:"Press ? for help.":CO,ZX,ZYB'INP,(1,"-14?",1),Z$:Z$"?"İ10900:10010G'(Z$)410099kette, use "QU$"Copy a "T$(U1)" diskette."QU$" You should make backup copies of a "T$(U1)" diskette every time you make significant changes to it."30000:'CHANGE SETUPR'CL$"Change disk drive setup"CC$:200::"You may:"::" 1. Select one for you.":30000CO,0,27:CEW:CRĺ"If you need a new "T$(U1)" diskette, select "QU$"Create a "T$(U1)" diskette."QU$" This will prepare a diskette to hold "T$(U1)" created while using "N$".":"Whenever you need to make copies of a "T$(U1)" disdo this, you ";%+PRINT "will need to enter special configuration commands that are in your printer or interface card manual."%+7030%+%Hq MENU ENDING%Rq110:INIT STACK&VARS AND REINIT&qTD0:ZD1:WP0:33000:CL$:10:"Getting the menu..r high resolution graphics printing of crossword puzzles and mazes.":%+PRINT "You may affect the text (boldface, character pitch, character or line spacing) for the clues in Crossword Puzzle and the letters in Word Search and Posters and Banners. To GET SLOT FOR GP#+BOX::4:"The printer interface card may be in any slot 1 - 7. (Most commonly 1 or 2.)":9:"Which slot is your interface card in? ";:ZB1:ZT7:ZC0:30200F$ +PP,128ZN:PP1,66:CL$:3:"Puzzles and Posters is now configured fohe type of printer you are using:"::" 1. Apple DMP (Dot Matrix Printer)"j"'CO,24,65:"/Parallel Card""$':" 2. Apple Imagewriter/Serial Card"::" 3. Printer with a Grappler card"::".'"Which number? ";:ZB1:ZT3:ZC0:30200"8'PP107,ZN#*QX:YQY:CO,X,Y:CA$;:0:50,Y1279,Y1:CEL:L(S$):K1L!#A((S$,K,1)):PPCTK,A:A32AA64::GCP,X,Y:BOX,X1,Y1,X6,Y7,3:(A);CA$;::CO,X9,Y:9150!#(A);CA$;!#K:Q$:CTCTL!#!' GRAPHICS PRINTERJ"'BOX:4:"Identify t2#L(S$):L791209 <#K1L6:(S$,K,5)"CHR$("9110[ F#JK6L:(S$,J,1)")"9100} P#X$(S$,K5,JK5):X((X$)) Z#X0X127X0 d#L$"":K1L$(S$,K1) n#R$"":LJR$(S$,LJ) x#S$L$(X)R$ #LKLJ:9110 #J #K=!#XA34L198020e|A32AA64::BOX,X1,Y1,X6,Y7,3:(A);CA$;::P(L1)9:XX9:S$S$C$:8020(A);CA$;:GCP,ZX,ZY:P(L1)ZXX:XZX:S$S$C$:8020XXP(L):BOX,X1,Y1,X9,Y7,0:CEL:L18010S$(S$,L1):8020(# SCAN FOR CHR$ 17:"Are the above commands correct? ";:30100QL1(Z$"Y"):CO,0,45:CEW:L1Wj@ STRING INPUTJS$"":16368,0:XQX:YQY:I$"-"(1)(127)TL(S$):CO,X,Y:INP,(0,I$,0),C$:A(C$):A13Ĺ16368,0:^(A8L0)8010hA88080rwhen you have finished."0L111:CT1:HSP,2uL215:32L2:6:CA$;:CEW::"PRINT "Q$CA$;:GCP,QX,QY:8000S$""Ģ42L2:1:CA$;:CEW::L25S$""İ9000:CTCT1:PPCT,13L2:CTCT1:PPCT,0:PPCT1,255:PPCT2,255/HSP,1: that are in your printer or interface card manual."xv16:"Does your printer require any special commands? ";:30100Z$"N"ĹPP2,0:PP3,255:PP4,255:BOX:CO:"Please type in the special commands for your printer. Type an extra 'RETURN' ard in? ";:ZB1:ZT7:30200:PP,128ZN:PP107,0zlCL$:4:"Puzzles and Posters is now configured for text printing.":4qPRINT "You may affect the text (boldface, character pitch, character or line spacing) by entering special configuration commands14:"Which slot is the communications"::"card in? ";:INP,(1,"-17",1),ZN$:ZN(ZN$)fPP,ZN:}X "NOT A COMM CARD0bBOX::4:"The printer interface card may be in any slot 1 - 7. (Most commonly 1 or 2.)":9:"Which slot is your interface cP0ı,nL1LP:PP106L,((P$,L,1))::?pSET COMM CARDzBOX:3:"1. High speed (usually 30 cps)"::"2. Low speed (usually 10 cps)"9:"Which printing speed do you want"::"to use? ";:INP,(1,"-12",1),ZN$:ZN(ZN$)PP2,128(ZN1)Y00:D$;"BSAVEPRINTER COMMANDS.BIN,A"PP",L128"WWIND:CL$QP$CC$:WIND,0,20,279,191:fP ID FIELDU(PP107)0(PP107)3ıZL120:PP106L,0:dBOX:10:"What printer are you making these":"settings for? ";:INP,(20,0),P$:LP(P$):Layed at the top of the "QU$"Diskette Support"QU$" menu screen. If that setup is not what you are using, select "QU$"Change the disk drive setup."QU$" ";"The rest of "N$" will use this information to make multiple disk operations as easy as possible000,31030B1000lHELP1vCL$"Diskette Support Help"CC$:::QU$"Diskette Support"QU$" allows you to view and change the disk drive setup, and to ";:CRĺ"create and ";{"copy "T$(U1)" diskettes.":"The current disk drive setup is displL4,1)):P((Q32)5)33033:UBM,(PL3),901L%`'L59089031:(L5)110094%k'US1āLA1(D%(1,1)5):LN$LN$" ":LA:10105%l'LA1(D%(L1,1)5):LN$LN$" ":LA:10105%n'US1āLA1(D%(1,1)5):LN$LN$"*":LA:10105&t'LA1(D%(L1,1)5):LN$LN$OK:::11:"ONE MOMENT PLEASE...":D$"PR#"SN:(9)"R":PINIT:D$"PR#"SN::L01CO::BR1āX179:BT$;:X::BT$;:X177:" ";:X:BT$$8'L11NL:L304:US1āL61(D%(1,2)5):10050$='L61(D%(L1,2)5)*%B'LN$"":L41(PI$(L1)):Q((PI$(L1),W:RVB,XPQ32,PW:J1D%(L1,1)::#<#L290179018PW1:J1D%(L1,1):25000:ZP7P1:RVB,Z,K:UBM,K,901:K1D%(L1,1):ST$((L2));::::::J1D%(L1,1)::::FEED:#'POFF:HOOK:DFT,1,34816:DFT,0,64400:#'PRINT THE POSTER $'UNHO:D%(L1,1)0D%(L1,1)1&"!L1:SPACE<"!CL$:9000:29000T"(#PRINT THE BANNER "2#UNHOOK:::11:"ONE MOMENT PLEASE...":D$"PR#"SN:(9)"R":PINIT:D$"PR#"SN:##7#L01CO:L11NC:Q(PI$(L1))128:RVW,784,XP:PXP88(Q32):RVW,XP6,PW:XPXPPG$;:86229!!CO,F,G:(P)CA$;:D%(D,1)P176:DD1:8622N!!D1ĺCG$;:8622h!!D%(D,1)0:DD1:8622!!P141P136P255ĺCG$;:8622!!8624!! RETURN !!D(NC1)ĺCG$;:8622"!CL$:9:"Please prepare your printer.";(3):L11NC!G((2(3(((D1)20)1)))8)8:F(D1)(20(((D1)20)))::FF146:CO,F,G:(255)CA$;::CO,F,G:P(5):BOX,F,G,F6,G7,0:CA$ !DNC8633 !P136P2558629 !P1418635 !P160įCO,F,G:(P)CA$;:D%(D,1)0:DD1:8622 !!P177P181ĺC:CO,1,9:CEL::CEL:1:US08620!"Enter size code you would like to use for the letters (1-5)? ";:INP,(1,"-15",1),IP$:ZN(IP$)!L11NC:D%(L1,1)ZN:L1:8640!"Enter size code for each letter (1-5). Press RETURN only when finished.":D1 2518360& P160P222ĺCG$;:8290T CO,F,G:(P)CA$;:PI$(D)(P):DD1:8290z P141P136P255ĺCG$;:8290 83524!BACKSPACE AND DELETE>!D1ĺCG$;:8290C!PI$(D)" ":DD1:8290! RETURN!D1ĺCG$;:8290"!DD1:NCDX:X#279,33279,153:D1:D=#ONb G((2(3(((D1)20)1)))8)4:F(D1)(20(((D1)20)))::FF146:BOX,F,G,F6,G7,0:CO,F,G:(255)CA$;::CO,F,G:P(5):BOX,F,G,F6,G7,0:CA$ D1008390 P136P2558500 P1418600  P224P::"How many copies do you want to print (1-100)? ";:ZB1:ZT100:ZC0:30200:COZN:CL$@GET MSG/MG$ WILL RETURN WITH MSG^CL$:"Enter message. Press RETURN only when you are finished.":3:X019:X142,33X142,153:X:X3316012:2,X279,RAM}bCL$:CO,0,90:"Please prepare your printer.":SPACE:CL$:US0:CO1:P15:PI$(P)(P48128):D%(P,1)P:P:NC5:9000LCONTINUE BANNERSVCL$:CO,0,36:"Do you want to use uniform-size letters and symbols? ";:30100:US0:CO0:Z$"Y"US1[ch letter or symbol."a:::"Sizes range from the smallest size, 1, to the largest size, 5."BOX,1,14,9,20,1:BOX,1,59,9,65,1:BOX,1,113,9,119,1:WIND:SPACE:CL$CO,0,90:"Do you want to run a sample? ";:30100:Z$"N"7500XSAMPLE PROG2195:Y295:21000:CO,40,153:"Would you like background":CO,40:"information? ";:30100:Z$"N"7510CL$:WIND,20,5,270,170:::"You can print up to 99 letters and symbols."::::"You can use one uniform-size or you can vary the dimensions of ea:"Which line number do you want to change? ";:ZB1:ZTNL:ZC0:30200:L1ZN:CL$:23000:CO,0,36:5214:5267WIND:CL$:CO,0,90:"Please prepare your printer.":SPACE:CL$:10000:29000pBANNERSgrCL$:CO,0,80:"B A N N E R S";CC$:X183:Y175:X1,1)WI:D%(L1,2)HI%PI$(L1)IP$:-L1pWIND,60,0,279,191:CL$::L11NL:L110(L110)įSPACE:CL$Z$(L1)". "PI$(L1):Z$:L1WIND:CO,0,144::"Do you want to make any":"changes? ";:30100:Z$"N"5600lWIND:CO,1,144:CEW:l card;":"Apple Imagewriter/Serial card;":"Printer/Grappler card)"::"Text printing""(Any other type of printer and interface card combination)"WIND::"Which number? ";:ZB1:ZT3:ZC0:30200:ZN6000,10000,7000-5200:TD0:ZD1:WP1:330$(L)"":L:CLı7ZN$WC$(ZA1):N80:L10:Z16030pZ1$(ZN$,N):N(Z1$):SW,Z1$,ZP:ZP220NN1:6020EL0:ZT0:Z1$(ZN$,N):ZE(Z1$):EL(ZE((ZN$,N1))):EL(ZN$,ZE,1)" "6060FCS," ",Z1$,ZP:ZP06060 ZTZTZP:Z1$(Z1$,ZP1,N$(ZL):ZL:CO,0,40:CEW:L4:800'CO,0,24:CEW:CO,0,70:"You must enter clues for each word to use this list with the Crossword Puzzle program."::"Do you want to finish adding clues":"now? ";:30100ER(Z$"N"):pPARSEzL02:INCEW:L4W1WCQCO,10,40:"Word #"L4": "W$(L41):WD220:ZX15:ZY85:ML3:RT0CO,0,60:"Enter clue #"L4". Press RETURN after you enter the entire clue.":200NL050405060:ERıCO,0,24:CEW:5025!ZL02:WC$(L41)WC$(L41)I,ZY9:CEL:CO,0,ZY:CEL)Z$"N"41208600:4105WCWCER:W$(WN1)IN$:WC$(WN1)"":L02:WC$(WN1)WC$(WN1)IN$(L):L"WN:TCWCİ800,ER0:ADDER(WC0)ıCL$:WIND:CO,0,12:"Add Clues"CC$:W0İ5060CO,0,24:CO,0,94:"Enter clue #"WN". Press RETURN after you enter the entire clue.":ZX24:ZY120:RT1:WD220:ML3:L02:IN$(L)"":L:200CO,0,94:CEL:CO,0,103:CEL CO,16,164:"Do you want to make any":CO,16,173:"changes? "CA$;:30100:CO,0"930:ERWN50:4130CO,0,65:"Enter word #"WN" and press RETURN":CO,18,80:CEL:"[":CO,152,80:"]":CO,24,80:INP,(15,"-AZ",0),IN$:1200:ER4062CO,0,65:CEL:CO,1,50:CELIN$""WN50:4130CL4095930:ERWN50:4130tters per word . . . . 15":CL4050q"Maximum lines per clue"CA$;:GCP,ZX,ZY:CO,ZX13,ZY:". . . . . . 3"LWC151:W$(L)"":WC$(L)"":LWNWC150:BOX,0,65,279,180,0:L02:IN$(L)"":LCO,1,50:"Press RETURN once to end the list.ZL(Z$):ZLı@.eZ10:ZYZL11:(Z$,ZY,1)" "Z1ZY:ZY1V.e:Z$(Z$,1,Z1):\.xix.iTD0:ZD1:WP0:33000:.HqENDING.MqDFT,0,64400:(919)Ĭ110.Rq930,1:27000:110/q27000:CL$:CO,0,89:"Getting the main menu...":930,0:RNH,"MEN0:" 10":CO,80:" 15":CO,80:" 20":CO,80:"25-30"-YCO,80:"35-60":CO,130,10:"12":CO,130:" 6":CO,130:" 4":CO,130:" 3":CO,130:" 2":CO,130:" 1"-Z-aDESCENDER-aD%(L1,1)5āK15D%(L1,1):ST$(0);:- b-e TRUNCATE.eCO,130:" 6":CO,130:" 4":CO,130:" 3":CO,130:" 2":CO,130:" 1":X,YSECOND CHART,YX120:Y12:X2254:Y275:21000:CO,36,33:"Width":CO,163,18:"Number of":CO,163:"letters or":CO,163:"symbols":CO,163:-Y"per line":CO,80,10:" 5":CO,8Y140:X2254:Y2130:21000:CO,34,80:"Width":CO,165,65:"Number of":CO,165:"letters or":CO,165:"symbols":CO,165+V"per line":CO,80,55:" 5":CO,80:" 10":CO,80:" 15":CO,80:" 20":CO,80:"25-30":CO,80:"35-60"F,VCO,130,55:"12":CEL:CO,242,127:ZB5:ZT80:ZC0:30200:HIZN:HI5(HI5)20140}*NCO,0,181:"The height must be a multiple of 5.":20110*NWI5:20091*RBOXES*R2:L401:X1L4,Y1L4X2L4,Y1L4X2L4,Y2L4X1L4,Y2L4X1L4,Y1L4:L4:*UCHARTv+UX120::CEL:CO,161,127:ZB5:ZT80:ZC0:30200:HIZNF)pNHI5(HI5)20091)zNCO,0,181:"The height must be a multiple of 5.":20070){NSY(60WI))NCO,0,120:CEW:)NBLANK LINE)NBL1:CEWA*NCO,0,127:"Enter blank line height (5-80) [ ]"CA$;:CO,0,150::"(You may press RETURN to enter a blank line.)"CA$:CO,154,105o(LN30200:WIZN:US0ZN$""20100(RNBL0:((WI5))(WI5)įCEW:20070(dNCO,0,181:"The width must be a multiple of 5.":20040.)fNCO,0,127:"Enter height (5-80) [ ]"CA$;R1āX179:BT$;:XK'':CL$:L0:POFF:HOOK:DFT,0,64400:DFT,1,34816:r' NSUBROUTINE FOR ENTER HEIGHT/WIDTH'%NHI/WI WILL BE RETURNED '>NCO,0,99:CEW'HNCO,0,105:"Enter width (5-60) [ ]"CA$;:CEL:CO,154,105:ZB5:ZT60:ZC0K(JNUS0ZC1:"*":LA&y'L5:L4'&~'BR1ĺBT$;" ";Q&'WC1āX1(.5(76(LN$))):" ";:X[&'LN$;&'WC1āX1(.5(76(LN$))):" ";:X&'WC0āX1(76(LN$)):" ";:X&'BR1ĺBT$;&':L6:L3:BR1ĺBT$;:X177:" ";:X:BT$&'BR0ĺ''L1:BL20:20110\-pNA$(3210(ITWO))(32(IT10))(IT)" ":ITWOA$A$W$(IT1WO):20100p-zNA$A$WC$(IT1)-NCO,ZX2(ITWO),ZY:A$-NL:T$"one of these lists":NU1T$"this list",.NWIND:CO,0,134:"* denotes list with clues."CC$:NU39įCO0:33000g,*NFS0:CL$:NUWOWF:NU0įCO,0,89:"There are no lists on this diskette."CC$:SPACE:29000 -RNL11((NU1)20)1:WIND::CO,0,10:"Catalog of Lists"CC$:BOX,0,20,279,180,0:L120:IT(L11)20L:ZX140(L10):ZY1810(L10(L10)):ITNU,0,64400:10200+*M++ZN$" "WC$(L01)" ":L02:ZA(ZN$):ZA61ZA61W+ +Z1ZA|++((ZN$,Z1))32Z1Z11:11030+ +Z11Z1ZA+*+IN$(L)((ZN$,Z11),2):ZN$(ZN$,Z1):(ZN$)32(ZN$)1ZN$" "ZN$+[+:+ NPICK LIST,&NTD1:ZD2:WP,15,279,180:CO,0,80:"Would you like to print the list? ";:30100:Z$"N"10200y*)28000:::40((NA$)2));NA$::*)L01WC:11000:2(L010))L0". "W$(L01):L102:(IN$(L1))ĺ20)IN$(L1)*):FEED,9,ZN:ZNĺ:+)L0:CL$:POFF:HOOK:DFT))M))(32((L1)9));L;" "W$(L1):WD3įGCP,ZX,ZY:CO,ZX,ZY3:WC$(L1):S))))WIND::CO,0,160:"Press SPACE BAR for more words"CC$:"Press RETURN to end"CC$))P(0)(1):P(5):(P141)(P160)10655))P141L1(WCWD)1P*)L1:BOX,0list."CC$:SPACE:10200,(w)WD15:CL10620(y)CO,0,80:"This list has clues. Do you want to see them? ";:30100:Z$"Y"WD3(|)L11(WCWD)((WCWD)WCWD):BOX,0,15,279,180,0:L2(L11)WD:CO,0,15))LL21(L2WD)(WC(L2WD))WC(WC(L2WDase enter another name.":ER0:SPACE:CO,0,120:CEW:10440J'(OP110495}'(WP1:33000:D$"RENAME"NA$SU$(CL)","ZA$SU$(CL)'(NA$ZA$:A$NA$SU$(CL):1100:10200'h)PRINT(r)CL$:CO,0,5:"See a List"CC$:WC0įCO,0,80:"There are no entries in the ZX,ZY:::" Press RETURN to cancel."o&(A$NA$SU$(CL):CO,ZX,ZY:CEL:INP,(13,0),ZA$:ZA$""İ1100:10200&(500:ER(OP1)10470&(1020:ER0:SPACE:CO,0,120:CEW:10440&(900:ER(OP1)10485:'(CO,0,120:"That name already exists. PleZ$"Y"10375X%(W$(ZA1)IN$:WC$(ZA1)"":L24:WC$(ZA1)WC$(ZA1)IN$(L2):L:10360%(OP1İ800:L1051:W$(L1)"":WC$(L1)""::700(&(CL$:CO,0,12:"Change Title"CC$:CO,0,60:"The old name is "NA$".":CO,0,85:"Enter the new title: "CA$;:GCP,es":Z1$"change":20300:ZA$""İ800:10200C$}(CO,0,24:CEW:ZAZI$(IN$W$(ZA1):CLįCO,0,89:"One moment please...":PAUSE,6:Z11:6000:CO,0,89:CEL$(600$(CO,0,164:"Do you want to make any":"more changes? "CA$;:30100:CO,0,ZY9:CEW %(,10310,10330,10360,10430,23000,29000?#F(EL1:4000:EL0:10200#Z(ZL$"Delete Entries":Z1$"delete":20310:ZA$""İ800:10200#d(LZIWC1:W$(L1)W$(L):WC$(L1)WC$(L):L:WCWC1:W$(WC)"":WC$(WC)"":WC0İ800:10200#n(10330+$x(ZL$"Change Entri the list of entries"t"'"2. Add entries":"3. Delete entries":"4. Change entries":"5. Change title of the list""'"6. Print the puzzle":"7. Return to "CW$(CW)" menu":WIND"(WIND::"Which number? ";:INP,(1,"-17",1),ZA$:ZI(ZA$)$# (ZI10600ve up to 15 letters."$!t'CW10120t!~'BOX,1,150,8,158,1:CO,19,150:"Each clue can have up to three lines.":EL0!'WIND:SPACE:4000:OP123000"'CL$:CO,0,12:"Edit a List"CC$:CO,0,54:"You may:":WIND,19,0,279,181:CO,19,68:"1. See and print:CEW:100306 L'NA$ZA$:L049:W$(L)"":WC$(L)"":L@ `'INST!j'WIND,19,1,279,180:CL$:BOX,1,3020CL,8,3820CL,1:CO,19,3020CL:"You may type up to 50 entries, one at a time.":BOX,1,9020CL,8,9820CW,1:CO,19,9020CW:"Each word can haCO,15,85:"this list? "CA$;:GCP,ZX,ZYO.'CO,ZX,ZY:CEL:INP,(13,1),ZA$:500^8'ER10055B'1020:ER0:SPACE:CO,0,120:CEW:10030G'900:EROP110060 H'CO,0,120:"That name already exists. Please enter another name.":ER0:SPACE:CO,0,120(Z1$)):6040ZT0ZTZE<(ZN$,ZE1,1)" "ZTZE1XIN$(L1)(ZN$,ZT):ELıZN$(ZN$,(ZN$)ZT):L1L11:N80:6020'MAIN'OP1İ700'OP10080,10020,20000'$'CL$:CO,0,2:CW$(CW)CC$:CO,15,75:"What name do you want to give":10);ZI;". ";W$;:LW(W$)18vLL(1)ZI((DD$,L,1)):W$W$(WP%(0,((DD$,L1,1))1)):DCLW);ZI10);ZI;". ";W$;:L:::L0MY:L10MX:(GI%(L1,L)(GI%(L1,L)0)32)" ";::::CL$;:ZB(0):p PARSE!zXX(0):ZN$" "ZN$"i:`mDATA!jm1,65,195,255-HqENDINGDRqHOOK:DFT,0,64400\q26000:901,2:(12):CO,0,89:"One moment please...":VSP:WIND:HSP,1:RNH,"CROSSWORD/WORD SEARCH"q30100:Z$"N"29020q26000:WIND:CL$:VSP:CO,0,89:"Getting the menu..POFF:SN((948)(949)256)128:SN0SN(952)saUNHOOK:::11:"ONE MOMENT PLEASE...":PINIT:D$"PR#"SN::yeeTD0:ZD1:WP0:33000:xiSPACE BAR 2i16368,0:24:7:"Press SPACE BAR to continue";:Z(5):ZZ128:Z13Z322701013020V2ZQ$(ZQ$,1):ZQ$(ZQ$,1):ZQ$((ZQ$)32(ZQ$"Z")):Z$"Y"Z$"N"13010\3maPRINTER ACTaZT$".":NC1ZT$" for copy number "(NN1NC)"."a(12):CO,0,89:"Please prepare your printer"ZT$:SPACE::(12):UNHOOK1aPINIT:030'2ZZ(ZQ$)1:ZZ1ZQ$"":13025?2ZQ$(ZQ$,(ZQ$)1)]2VT:ZQ$;::" ";::868x2ZC13(ZQ$"")130502(ZC89ZC69ZC83ZC78ZC79ZC121ZC101ZC115ZC110ZC111)(ZQ$)2130202ZQ$ZQ$(ZC):VT:ZQ$;::" ";::13ZC10ZC11ZC73ZC74ZC75ZC7712020W/ZC21ZC10ZC75ZC76ZC21x/ZC8ZC11ZC73ZC74ZC8~/2BASIC2VT35:ZQ$"":P(0)(1):1::24:"Do you want to print this puzzle? ";::" ";::8682ZC(5)128:ZC813OX:CO,0,79:"You have deleted every word from the list. Try again.":SPACE:11040+WC0:IX0:L049:(WS%(L))W$(IX)W$(L):IXIX1:WCWC1:W$(L)""WCWC1:L49,L..INPUT.16368,0.ZC(4)4.ZCZC128:ZC32ZC8ZC21ZCC21LLUBLL0:112004a+ZC8LL1LLUB1:11200Qf+ZC8LLLL2:LL0LL0ip+ZC13LLUB:EXIT1+BX1:LL:CC1WC11240+EXIT11080+11045+800S+WX0:L0WC:WXWX1(WS%(L)1):L:WXWCāL0WC:WS%(L)0:L:CO,0,181:CEL:BX,WY:">":12000R+CO,WX,WY:" ":ZC13įCO,0,181:CEL:"Do you want to change anything? ";:30100:CO,0,181:CEL:"Inversed words are eliminated"CC$:Z$"Y"11085W+ZC32LLLL1:BOX,WX8,WY1,WX130,WY8,8:BX0:WS%(OCLL)WS%(OCLL):11200\+ZPRINT"4YCAP,"CROSSPRINT".4`m PRINTER ACTz4jm(12):CO,0,89:"Please prepare your printer.":SPACE::(12):UNHOOK4tmUNHOOK:::11:"ONE MOMENT PLEASE...":PINIT:4HqENDING4Rq(919)Ĭ1104WqHOOK:DFT,0,644005\qPARSE:TD0:ZD1:WP0:Z1$"? ";:30100:Z$"N"20310$3O03YPUZZLE3YCL$:WC0įCO,0,80:"There are no entries in the list."CC$:SPACE:OP29000,10200,102003YTD0:ZD1:WP0:330004YD$"VERIFYMECC$$DISK"D1$:CL$:CO,0,89:"One moment please...":FILT:CWįCAP,"WORDNP,(2,"-09",0),ZA$:ZI(ZA$):ZA$""20390@2~OZI0ZIWC203402OCO,0,60:CEL:CO,0,ZY:CEL:CO,0,ZY9:CEL:CO,0,60:"Word #"ZI": "W$(ZI1)2OCLĺ:"Clue: ";:WIND,36,0,265,181:WC$(ZI1):WIND3OWIND:CO,0,140:"Is this the entry you want to":1LOWORD.1VOCL$:CO,0,12:ZL$CC$:WC0203301`OCO,0,80:"There are no entries in the list."CC$:SPACE:OP10120,10200,102001jOCO,10,60:"Press RETURN to end.":CO,0,80:"Which entry do you want to ":Z1$" (1-"WC")? "CA$;:GCP,ZX,ZY*2tOCO,ZX,ZY:I:CL$:1000:ZIWONA$W$(ZIWO1):A$NA$".WF":CLCW:20190`0NNA$WC$(ZI1):A$NA$".CW":CL10N1100:L1((NU1)20)1:(((ZIWO)(WWC))CW)202000N5000:ERĺD$"DELETE"A$:202000N700:L10:FS00NL1:FS202100N290000NFS0:10200P,(2,"-09",1),ZA$:ZI(ZA$):(ZI1)(ZINU)20160J/N(CW(ZIWO))20180/NCO,0,130:CEW:CO,0,140:"You will have to add clues to use this list with the Crossword Puzzle program."/N"Do you want to add clues? ";:30100:Z$"N"L10:20200<0NFS1,0,148:"There are "NU" lists on this disk."s.NWIND,0,160,240,190:CO,0,160:"Do you want to use "T$"? ";:30100.NZ$"N"20200.NNU1ZI1:20170.NCO,0,160:CEL:CO,0,169:CEL:CO,10,165:"Which number? "CA$;:GCP,ZX,ZY1/NCO,ZX,ZY:CEL:IN߭߬ Ҍߨ߭ͯB )҅&' Q&-Q&&ȭ̯߰ & Q&-Q&&ߐ`-ߍ߮ )҅&' Q&-Q&&ߐ`*U U*ժ ')JM) Q&,P 0=``J&)` `L3f̙@A8@A ȱ `,`D/ D`H߅DI߅ED`>=?@3<>`=eA=?eA?A@ <><>=?`)  @ ߪߍ߽ߍ߭߬ Ҍߨ:VSP:CO,0,89:"Getting the menu...":RNH,"MENU"he menu...":RNH,"MENU":e";:ZI(5):ZIZI128:ZI13ZI32280102$tm:>$HqENDINGP$Mq(919)Ĭ110g$RqHOOK:DFT,0,64400$\q26000:(12):CO,0,89:"One moment please...":901,2:VSP:WIND:HSP,1:RNH,"CROSSWORD/WORD SEARCH"$q30100:Z$"N"290201%q26000:WIND:CL$er "(L9)".":L9NCTX$"."n#iHRĺCL$CO$:CO,0,89:"Please prepare your printer"TX$:SPACE:CL$:PINIT:#iCL$CO$:CO,0,89:"Please prepare your printer"TX$:SPACE:PINIT::POFF:#`mSPACE BAR 2*$jm16368,0:24:7:"Press SPACE BAR to continu79ZC121ZC101ZC115ZC110ZC111)(ZQ$)213020i"2ZQ$ZQ$(ZC):VT:ZQ$;::" ";::13020"2ZQ$(ZQ$,1):ZQ$((ZQ$)32(ZQ$"Z")):ZQ$"Y"ZQ$"N"13010"3"e "eTD0:ZD1:WP0:33000:"xiACT PRINTER#iTX$" for copy numb8,0:1::24:"Do you want to print this puzzle? ";::" ";::868f!2ZC(5):ZCZC128:ZC813030!2ZZ(ZQ$)1:ZZ1ZQ$"":13025!2ZQ$(ZQ$,(ZQ$)1)!2VT:ZQ$;::" ";::868!2ZC13(ZQ$"")13050<"2(ZC89ZC69ZC83ZC78ZC1:L49 ,L . .INPUT- .16368,09 .ZC(4) .ZCZC128:ZC32ZC8ZC21ZC13ZC10ZC11ZC73ZC74ZC75ZC7712020 /ZC21ZC10ZC75ZC76ZC21 /ZC8ZC11ZC73ZC74ZC8 / 2BASICC!2VT35:ZQ$"":1636WX0:L0WC:WXWX1(WS%(L)1):L:WXWCāL0WC:WS%(L)0:L:CO,0,181:CEL:BOX:CO,0,79:"You have deleted every word from the list. Try again.":SPACE:11040 +WC0:IX0:L049:(WS%(L))W$(IX)W$(L):WC$(IX)WC$(L):IXIX1:WCWC1:W$(L)""WCWCY8,8:BX0:WS%(OCLL)WS%(OCLL):11200E\+ZC21LLUBLL0:11200ca+ZC8LL1LLUB1:11200f+ZC8LLLL2:LL0LL0p+ZC13LLUB:EXIT1+BX1:LL:CC1WC11240+EXIT11080+11045+BOX:CO,0,89:"One moment please..."+10136(LL13):WY35(10LL)130(LL13):CO,WX,WY:">":12000R+CO,WX,WY:" ":ZC13įCO,0,181:CEL:"Do you want to change anything? ";:30100:CO,0,181:CEL:"Inversed words are eliminated"CC$:Z$"Y"11085(W+ZC32LLLL1:BOX,WX8,WY1,WX130,W35279,35:0,179279,179:WIND,0,36,279,178:COV%+OCCC:CCCC1:WX20:WY45:BOX:CO{*+CO,WX,WY:W$(CC1):CCWC11080/+WY160WX140110804+WY160WX156:WY35>+WYWY10:CCCC1:11050H+CCCC(CCWC)WC(CCWC):UBCCOC?M+LL1UB:WX to use the entire word list for the puzzle? ";:30100:Z$"Y"ı +WIND:EXIT0:BX1:CC0:CL$:CO:"Press arrow keys to move"CC$:"Press SPACE BAR to remove/re-select"CC$:"Press RETURN to end"CC$:CO,0,181:"Inversed words are eliminated"CC$/"+6:0,t fit in the puzzle.":NX0:NY30:L0WC1:WI%(L)128įCO,NX,NY:W$(L):NYNY9:NY150NY30:NXNX130{Z#L:CX0:CY160_#:CO,CX,CY:"Do you want to print this puzzle? ";:30100:Z$"N"ZP0d#CL$:*1st SETUP@+CL$:CO,0,79:"Do you wantto create a crossword puzzle with this list.":SPACE:29000W<#NGWCCX0:CY89:9060A#WCNG28ĺCL$:CO,0,89:WCNG" words did not fit in the puzzle.":CX0:CY160:9055F#TX$"This word ":WCNG1TX$"The following words "hP#CO,0,9:TX$"did no ":L402:ZE(ZN$):ZE75ZE75+ZPZEO((ZN$,ZP))32ZPZP1:6030_ZP1ZPZEIN$(L4)((ZN$,ZP1),2):ZN$(ZN$,ZP):(ZN$)32(ZN$)1ZN$" "ZN$:(#VERIFY;2#ZP1:HOOK:DFT,0,64400:CL$:NG0Ģ10:"It is not possible prqs Qptqu , c`rUsV P` 3rt su tr us Lrt su rt su !` LprmrsmstmtumuUmUVmVLp e.bﭚvwmmmmtmpumq e.bvmwmb`\8TTrpsq  Dtpuq 4rpsqQ(     T `8`rpsqT R Q`8`TUpVqW  b` L$% @"<=d< @<=ꩍ @d`p m͌0L͌0pmq m͍0L͍0qm`bﭖrpsq` ͪT ͤ8` +`c@A>?> 󈌧 'P@̏̏ ȱ>>Ώβ̏󐳭8`P mBmCBQ`aaͣ$͎͢<Q=epfqd pUqV=Wd =`  WUV 3͍͌͡í͠л8`쭄BC@A@0B eBBC̓ѭ >? 鍆 鍐 鍔 鍒DED̃ qWUV _DEPD I P ;PL,0 >ʭDEPDDEPDL``8R L G?Be>? 6` `@ABC"DȭDEBCBL`J ਸ਼ L` ?)擥攥$` ])) ]) (8$.߭)` ] z ] z` 8`DE DED`}腓}酔`8腓8酔` ? Ȑ )s` @)Q @ @{ @^_ @ީQL @ @ @ @ ֍ @ @g ; @ABCDE `mBnCo@pA >? L ( ?)Fɠ\ݗ4[.ȩ[Ȣ) HX`_X,Z`X m]䅅m^䅆 @ @ @{` I @{ @\^ ` @{ @^_ @ @{ @^_ @ޭ<=>@  @A:<  Պqe>>?@ޮ   L* @ޤ>?L+s u @ ֍]^_䈱` @l @ Qа/>?X >?2ȱ쨊 LԠ Y Y Yi#ǍYLX +s`ZȌ[i[猪 nސ Iԭ>? 㤔>)#`> 㤔>  ƓL(H>)? hɀ>v ƓL㤔> 㤔> Ɠ L(㍿ )҅&'&` ްp` I YL)s @{ @A<=>?ȭM<ȭO<><ȥ?< <H<= H <=N I<M` ,MNO <= <ȭ<ȭ<(Puzzles and Posters @FffggBfBA>A ?``cc``|~ffggBfB >|``||``|<?Bf@<|B`BfgG?``cc``?``?BBfAA<|B`FBBf ~|``cc``|>cB`Bf ~|CGBBf_ qAAAIAEAEAIAEAYAAAAAE[pqqqxBBAAABBABCF,ypqppqqqpqxqTxL| xEacBB3AAcq00??B3B ~33sq00>~F3B0>?B3Bc`B3AB3B8>00~~~~00ccc`>00~~>00??00??00??00001B3AsA3A?A01B3~acBB3UAEBfAgAf ~|``||BBf gG~|@FTC3E @@xx@@xxBB AAAAx|BLB AF BABLF OBLB@GBB AA 1@@G |x@@ @@GOLL OLL|xBBLAA@ABBLAAAA@G TCf|E0qxqxBBAA00~B3100>?B3B-?00~~00qa~cq00>ccc``c>00B100qc~`ccs33?BB3 sc>00>>00pcBB3 ~?00>>00R B E(Ggffg?``||``||||``|~ffgCc``|~BfBFB`A|A` ?Cgffgc``BfBAGA GCCGBBfAA@FCG@FBx@@xxB@B AA |x@@xxB@BLAOEL$OG@@GOLLxx@@x| |x@@xx@@xxOLLTCEqyBBAqAAqA!qpqqqxqyBBABBqyFBBBAA yppqBFyqqqBFABCCFABBRA6E ~~B3100??00??B3Bcqcc`TGB`GE?``|>FFGGGCGC||?````?GC??GG``FfBCc``cFFGgff?gBf Fc``cgff~|B`+Fgff``gffffgc``````TGBLGE0@@x|LLOOLLOOLLOG@@OLL@@xxxxEL O@@x|ILOxխժ @ @ގ @ @掲` @l @ @{ @R rQl)PNl`,< @{ @ @R rP=ȱP%<=LOs$8 @{ @R<= @ @{ @R= r=P<(ȥQ<`ժՖՖխժժժժխՖխժ @ @ގ @ @掲` @Y @ @{ @R |rQY)PNY`,< @{ @ @R |rP=ȱP%<=L+s$8 @{ @R<= @ @{ @R= |r=P<(ȥQ<`ժՖՖխժժժժխՖխժ<`ժՖՖխժժժժխ, ` @{ @@^_ դ<=@ _ݰ 2 ii` I ֠>q<ȥ?q=8m<@n=A8<>B=?C8mBmnCnLRߩ7PLP7P(L^ @ʊLLv @ (L` I @ޭ (s`  `eȱeѕ`n @{ @^_ ( @ @{ @R _ݰ"egiehj 2,0 @l` I @!8n [<= @e I׭<=<=Ѝ, @M @ @{ @R  INO @ @P @ @{ݥ @ @T >?NV?<ȥ?<e<<=he>>?PI`/P`/PP`0 100`gNg x h x h`}`>`q}q`8pp8qq`MNp0$̌q0 mDmEDMN`p0'̌"q0 mDmED`͠͠`ʹʹ`>DDEBDDEeBBC`8DEDmDDmDeDDEmmmm qDEq͎ q`͎ mDmE` r D`` r`D`DE DED`epfqdb O a`p}pMihPjjjjjjj0jj) i0ȱjij iiiР`8pPH)8 qȥq8)h` g R  QP (`L Li`L)  @ imjiiyjg(gnggmgog`8pmgJJJ) }hqggmogpg`((((PPPPiHhii iJ` &eeiei rgiIihi i |gmiif@ f f (g`LEc =e)g*gLzf -`,(g`imimʈiiiʎi$20Li gogng`mgog gpgqg`mg g gpgqgng`ggg8pg.%+g 8)gH*gJhj`m)g)g*g` Ec =e` Ec =eI``,L =ee80 " fm8h)` =eem88eLf` =eeme` =e8`2gLf `S`S```+g穀2g 1g`+g3,g'+g+g ``) ``+gʽ`) ` `+gH`mS` 0eS`)e`e ie B~BBBYCFJUNGSAcECByCEq?VGQF@`Dp`@HB@@_BY_CFJ*NGSA ~? EL DLCA? ?><<~VGOG|L|HFBAQB oBlOCFJUNGAGP?D@B`ABpAB8ABAABBLBlOCFJ*NGAGOaHBAQBBOB`OCFJUNGAGQ|0TAA ~~B@@oBLOCFJ*NGPAAsACsOAAsACsVGOE@`pG`@GBBYCFJUNGP|xyBBB3CFJ*NGAGJ`@UCUBUBUUUBUABUCUBOBfFCFJUNGAGN~C*B*B* FBC BBB CFJ*NGAGOCUBWBB@B`@CFJUNGAGOCC@B`ABpAB8ABAABBGlo`OCFJ*NGAGO~x`捿ttmtt`BB0xXCFJ*B037B6ACFJUBBC3ACFJ*BA_BBC3ACFJUNA]??B/++*C*BB3?>CFJ*NGAGO?_WUUUBUABUCUBB>0CFJUNGTvGJ??C*B*B***B*AB*C*Bt  u@ )` t t t0H)?hJ t t t?Lt t&'&Ȅ``tt ttt`t)tJJ tttt .t .t ntt)    0`x000||0xxx||````` xxxxlxx x000000xx0x0xx0000 0``0 0xqh`lllll~~~0` pvv0`0``0`000`~<~0000`` 0`xx0p0000xx 8` 8 x8x x<`x 0```xxxx| ```0``0`0@BODFAFPARSNOJUSJUSCNNOCNGCVSHSCECEPAUSHOOUNHOOSPACCWININ kjkkkkkkkkkk/m3gmmm0lmmAn nQp,QpPLSpNQp,p05Ɉhd ,pɿɯ 詍0S,pɁɍpA,p ,p0pRp) pRp9p ,p0 Lo pLo ` ֩PyQ AL ppp`pp dppp` ~LnpH)hJJJp` ` R-?npLnnpLn dp ozo o dp-zozozo npLnyo{oyo^` , g 掴p ,wo pp) p pp)Np ߅ l |o ) L{Qp,p0- HHHp hhh ɛң Σ  Li`+ LiR("  Li5880`L 㩀pwopppppp ( pLJo {$0$ 掵pnp ,L#o {$0LoNwo {oLoyo o ɛ8nm,mPݩ 0mhhhhhhhhh,mp` ֩PyQ ALŠҠ僁iimiʈii &',iq&i,$20Li N8`3g `.3g`mm ` ` @)`,` j ެLj,H+l  .l  h,,.l,`L, HHHHHHHHH k ,,m jmNO,ɍɠ` `L3f̙jj ߅$0jj  c`Lvjj j` Liiii LimHihʍiii LiL H g Rh PQ`L   )?` iiii rgifjiii rgi`jii͇iBi |g&'i jQ&-iQ&&ȭi̇i j& jQ&-iQ&&iii`i-iii |g&'i jQ&-iQ&&iii`*U U*ժ j')JMj)i Q&,iP 0=j`j`J&)0003f<ff<cc>cc>>cc>0000000t` ```````fffffff~l6iɆpq{0`0``0`00000`Z<`~~6    it in the middle of a program. If so, press the Escape (ESC) Key twice whenever the computer is waiting for a response."WIND:VSP:SPACE:(#INPUT ROUTINE-#CA$;:16368,0:GCP,ZX,ZY:WIND,ZX,ZY,250,ZY12:DL$(127) 2#DL$:CO,ZX,ZY:9100:A$;:GCP,ZX,ZYH:WIND,ZX,ZY,279:CO:"MECC Distribution":"3490 Lexington Avenue North":"St. Paul, Minnesota 55126-8097":"(612) 481-3527"RSPACE:CL$:WINDESC ESC SCREENVSP,4:CL$:::"Use of ESC Key"CC$::y"You may want to quWIND:::L:SPACE, SUPPORT BOOK INFO*CL$:CO:VSP,10::"A manual to aid in the use of this diskette is available from MECC.":VSP49:" Title: ";CA$;:GCP,ZX,ZY:TI$:PA$""įCO,ZX:PA$ >12:" Direct inquiries to:"::" "CCnal banners and posters.":SPACE:VSP8CO,X1,Y1:CEWOSHOW DESCRIPTIONSrWIND::GCP,ZX,ZY:CO,ZX,ZY8L1NP:GCP,ZX,ZY:ZY150ZYY1įSPACE::CO,X1,Y1:CEWMN$(L)::" ";:GCP,ZX,ZY:WIND,ZX,ZY,279,191:L11DP:DS$(L,L1);:L1:83L: %XGENERAL INFORMATIONEbCL$TI$CC$:PA$""ĺPA$CC$`lVE$CC$:::GCP,X1,Y1mvVSP,4:%"Puzzles and Posters lets you create and print a variety of crossword puzzles, word searches, and mazes. You can also design and print origi1LX2DXL,Y1DYLX2L,Y1DYLX2L,Y2DYLX2DXL,Y2DYLX2DXL,Y2LX1DXL,Y2LX1DXL,Y2DYLX1L,Y2DYLX1L,Y1DYLX1DXL,Y1DYLX1DXL,Y1L:1:L02:9,6L432L,6L:2352L,6L269,6L:9,183L392L,183L:2392L,183L269,1S7CS6CS'pDRAW BORDER;z4:21,021,1911:9,69,33:11,611,32:9,1589,185:11,15911,185:267,6267,32:269,6269,33:267,159267,185:269,158269,1856:X10:Y10:X2278:Y2191:DX18:DY12:L02X1DXL,Y1LX2DXL,Yĺ"Getting "MN$(A)"...":16255,0:900,A1:RNH,CN$(A)[A0ANPF1$MN$(A):F2$CN$(A)|"Getting "F1$"...":RNH,F2$END OPTIONCL$:11:"Insert another diskette."CC$SPACE:CL$:CS(P(P(999))1)16: SLOT #CS1CORT"> AS(4)F1$"Diskette Support":F2$"DISKETTE SUPPORT" AS(5)Ĺ975,((975)):CL$:11:"The sound is now turned "SB$(((975)))"."CC$:SPACE:2000 AS(6)5000RUN THE PROGRAMTD0:ZD1:WP0:33000:CL$:HSP:VSP:CO,0,896A3 number? ";:9000:WIND/ AS(1)İ7000:2000 MOA1ĺCL$:VSP,8:CO,0,75:"There are no management options available.":SPACE:2000 AS(2)A1F1$"the management options":F2$"MANAGEMENT" AS(3)F1$"Printer Support":F2$"PRINTER SUPPN". Diskette Support" >N = N + 1: HTAB 4 - (N > 9):S(5) = N: PRINT N". Turn sound ";:SB$(0) = "on":SB$(1) = "off": PRINT SB$( PEEK (975)) HNN1:4(N9):S(6)N:N". End" RESPOND TO USER'S CHOICE :GCP,ZX,ZY:ZY160įCO,ZX,ZY4 "Which000`0x |||| ||x|8l````|| x````8p`````lxx|| |x ````l8|x0x0x| x0`0````0``0``vphxp pP ؈P PP  @`@@@`@ ` ` Pp@ t` PP PP p`0` @x( @@@ @ @pp p @p@ @pp ` ppxp @ppppx@@@@ @@ @ @ @@`p Pxxxx pبȨpp . "CA$;:GCP,ZX,ZY:WIND,ZX,ZY,279,191:"Return to the "N$" menu":WIND):"Which number? "CA$;:GCP,ZX,ZY:CO,0,180:"Press ? for help.":CO,ZX,ZY.INP,(1,"-1"(4(CR))"?",1),Z$:Z$"?"İ1900 8Z$"?"Ĵ(Z$)((CR)((Z$)1))10000,15000,20e is damaged.":30500:EF1:IS34:-32040?MAIN PROGRAMhWIND:CL$"Diskette Support"CC$:200$:"You may:"::" 1. Change the disk drive setup":CRĺ" 2. Create a "T$(U1)" diskette"G%" "2CR". Copy a "T$(U1)" diskette":" "3CR"40$RESTORE DRIVE SETTINGS_953,PS:954,PD:955,PV:956,DS:957,DD:958,DV:35000eW}XGET DRIVE SETTINGSbPS(953):PD(954):PV(955):DS(956):DD(957):DV(958)WRITE/READ ERROR"ZE8ė:12:"This "T$(T)" diskettO,0,162:CEW:410B ZE0:ZEĺD$"INITHELLO"DT$:D$"DELETEHELLO" ZU0:ZE8įCO,0,132:"Unable to create a "T$(T1)" diskette from this diskette. Be sure that your diskette is not write protected and the disk drive door is shut.":30000:ZE320Y:CO,115,ZY:"["DF$"]":CO,ZX,ZY:INP,(M,I$,0),DL$:DL$""DL$DF$a @CO,ZX,ZY:DL$CA$;:CEL:g v INIT DISK ZU1:ZE0:ZEĺD$"BSAVE JUNK,A0,L1"DT$ ZE4įCO,0,162:CEW:"Please remove the write-protect tab from this diskette.":30000:C drive"::. :" two disk drives":: " "CA$;:GCP,ZX,ZY:WIND,ZX,ZY,279,191:"a special disk drive setup ";:"(data diskette in slot "(S37)", drive "(S38)", volume "(S39)")":WIND + ,SLOT,DRIVE,VOL INPUTC 6L$CA$;:GCP,ZX,Z):ZSS:38000:N$ZN$:600 U11:T$(0)"program":T$(1)"data":T$(2)"backup":T$(3)"student":T$(4)"results":T$(5)"word lists" 901,1:1000 SHOW CURRENT SETUP CO,0,27:"The current setup selection is:":(S36)1220,230::" one diskUZZUTIL.OVL": Product name, utilpack, and overlayse nD$(4):CA$(1):CL$(12):CC$(3):QU$(34) x35000::24576:D$"BLOAD ASCII BOLD.PFT,A$713D"D1$:784,61:785,113:D$"BRUNDISKUTIL.OBJ" S16064:S016000:RFL,"MECC$$DISK"S K64((941)63[0 DISKETTE SUPPORT5PROGRAMMER: A HOLLENBECKRCOPYRIGHT (C) MECC 1984r("LAST UPDATE: 85/07/22 RLHd901,0:32000f:(4)"MAXFILES1":16000:230,64iCR1:Use create option?3 kPN$"Puzzles and Posters":UP$"PUZZUTIL.OBJ":U1$"P           posters and banners."+HqPROCESS ESC-ESC=Mq(919)Ĭ110NRq54915:2000T\qeate and print crossword puzzles. You may store the lists of words for the puzzles on a data diskette."~m"A-Maze-Ment","AMAZE","You can use this program to create and print unique mazes."m"Posters and Banners","POSTERS","Design and print original`mPROGRAM DATAjm"Word Search","CROSSWORD/WORD SEARCH","You can create and print word searches with this program. You may store the lists of words for the puzzles on a data diskette."htm"Crossword","CROSSWORD/WORD SEARCH","This program lets you crZ:A19070#<#A49A(48N)90106F#(A);DL$;CA$;KP#9100:Z139070oZ#Z8Z127įCO,ZX,ZY:CEL:9010yd#9040n#AA48:A1A1x#XX(XX):SEED RANDOM # GENERATOR#:#ZL11:XX(1):Z(16384):ZL(Z127)::ZZ128:16368,0:t @@@@PP @@pP @ @@ @ @``@@@@ @`` ` p``ࠠ p` @````p`z#   Ϡ äˠ ҠӮΠԮʠɠĮԠՠР ̮̠* Ůà!Үà"ŮԠŠӮԠҮԠŮԠ Ҡ2ԠԠή  Ϯʠ" ̮ʠ ̮ʠ ӠĠӠϠ ŠԠ2ҠԠ Ӡ)Š įĠȠ.":SET,0:RNH,"MENU"qskette for "ZN$".":::"Are you sure you want to do":"this? ";:36000:OK(Z$"Y")Y8 K(Z$"Y")n8 C"Y")8 "program":ZEZ$"data":ZP1OK1:7CO,0,73:"WARNING:"::"This appears to be a MECC "Z$" diskette. Are you sure you want to erase it? ";:36000:OK(Z$"Y")77MECC$$DISK FOUND7Ƙ38000:CO,0,73S8И"You are about to erase a "T$(ZT)" di6XCAN DISK BE DESTROYED?J6bSET,ZD:CPRO,ZP:ZPįCPRO,ZP:ZPOK1:6lSPRO,ZP:ZU1:ZE0:ZS640:ZEįRFL,"MECC$$DISK"ZS6vCO,0,27:CEW:ZEİ39100:6ZU1:ZE0:Z9503ZD:ZEĺD$"VERIFY LOGO,S"((Z))",D"((Z1))",V"((Z2))%7Z$);:GCP,ZX,ZYh5CO,ZX,ZY:INP,(3,"YESNOyesno",1),Z$:Z$(Z$,1):Z$"Y"Z$"y"Z$"N"Z$"n"360205(Z$)100Z$((Z$)32)55pGET DISK NAME AND TYPE5zZN$"":Z15(ZSZ)0Z36ZN$ZN$((ZSZ)):ZZ1:380205ZT(ZS)5Ӕe remove the write-protect tab":"from your "T$(T)" diskette.":WP2:30500:34505\4'ZU0:u4BUILD DRIVE STRINGS4̈D1$",S"((953))",D"((954))",V"((955))4ֈD2$",S"((956))",D"((957))",V"((958))44YES/NO INPUT 5(1(S36):ZC2ĺ" in drive "ZD;3↭ZC3ZL953(ZD2)3:" in the drive located at:"::" Slot: "(ZL):" Drive: "(ZL1);3".":30500:345053 WP345993DR,17,017,016128:ZE0:ZEįDW,17,017,016128Q4WP(WP1):ZE4ė:12:"Pleas]sn 6368,0:16384,128:16368,0& }:SL ECC$$DISK"LL:DC(LL36):953,SL:954,DR:955,VO:956,SL:957,(DRDC)1:958,0:DC3āZ02:956Z,(LL37Z): 975,255:RNH,"MENU": (#:11:"THIS PRODUCT REQUIRES AT LEAST 64K OF RAM TO OPERATE."::"THIS APPLE HAS ONLY "(941)"K OF RAM.":1 230,64:8192,"LOGO":16304,0:16297,0:16299,0:16302,0:8195,"PUZZUTIL.OVL":8192,"PUZZUTIL.OBJ":RFL,"ASCII BOLD.PFT"64400:RFL,"SHORTPPRINT.OBJ":RFL,"PRINTER COMMANDS.BIN"(948)(949)256 (941)64āZ14000::9000q LL704:RFL,"M( PUZZLES AND POSTERS/PROGRAM: HELLOMCOPYRIGHT (C) MECC, 1984m( LAST UPDATE: 85/06/30 RLHy32000 :(4)"MAXFILES1":::P(X)(X)(X1)256:LP(P(999)):SL(L1)16:DR(L2):VO(L14):(4)"BRUNHELLO.OBJ":(941)649000   U" :RNH,"MENU"L0,162::"(You may press RETURN to enter a blank line.)"CA$:WIND,0,0,279,160iCO,0,81:CEW:CO,0,99:"ENTER LINE ";L1;":":"[";:L21SY2:" ";:L2:"]":CO,11,108jINP,(SY,"- ^",0),IP$:Z$IP$:26000:IP$Z$:IP$""IP$" "lWIND:CEWnD%(L0,90:CEW:Z$"N"US0:5200PUS1:20000:D%(1,1)WI:D%(1,2)HI:CO,0,90:CEWmPCONTINUE ENTERING LINESZL11NL:5214:5266^US15220`CO,0,81:CEW:CO,0,90:"For line ";L1;":":20000:BL1IP$" ":5230aCO,0,81:CEWMdWIND:CO,the border? ";:INP,(1,"-az-#^"" ""!",1),IP$:BT$IP$:"How many copies do you want to print (1-100)? ";:ZB1:ZT100:ZC0:30200:COZNINPUT POSTER LINESCL$:23000:CO,0,90:"Do you want to use uniform-size characters? ";:30100:US0:CO,$"Y"WC1Z::"Do you want to put a border around the poster? ";:30100:Z$"Y"BR16BR1ĺCL$:"You may use all characters except the underline, curly brackets, quotation marks, and the vertical line. Which character would you like to use for 5:D%(2,2)5:D%(3,1)10:D%(3,2)30:10000CL$:"How many lines will be on your poster, including blank lines (1-100)? ";:ZB1:ZT100:ZC0:30200 NL0:WC0:BR0:CO0:IPZN:CEW:NLZN:::"Do you want the words centered on your poster? ";:30100:ZSPACE:CL$:CO,0,90:"Do you want to run a sample? ";:30100:Z$"N"4000U SAMPLE WIND:CL$:CO,0,90:"Please prepare your printer.":SPACE:CL$) NL3:BR1:BT$"#":CO1:WC1:PI$(1)"MAKE":PI$(2)"A":PI$(3)"POSTER":D%(1,1)15:D%(1,2)20:D%(2,1)ber of letters and symbols per line.":BOX,1,5,9,11,1:BOX,1,113,9,119,1:WIND:SPACE:CL$:"This chart shows the relationship";I" of the width to the number of letters and symbols per line.":22000:CO,0,155:"The maximum height of a letter is 80.":height and width. For example:":"A height of 5 and a width of 5 prints letters 5 lines high and 5 spaces wide. A height of 10 and a width of 10 prints letters 10 lines high and 10 spaces wide.":"As you increase the width, you decrease the numan vary the dimensions line by line.":::"You can put a border around your poster.":BOX,1,14,9,20,1:BOX,1,59,9,65,1:BOX,1,122,9,128,1:SPACE:CL$:WIND,20,5,270,170:!"You can create many styles of letters by using different dimensions for ,40,153:"Would you like background":CO,40:"information? ";:30100:Z$"N"4000 4CL$:WIND,20,5,270,170:::"You can print up to 100 horizontal lines of message.":::+>"You can use one uniform size of characters throughout the poster, or you c:Y142:X2217:Y270:21000:X1155 Y184:X2267:Y2102:21000:CO,159,54:"POSTERS":CO,159,89:"B A N N E R S":CO,24,171:"Which number? ";:ZB1:ZT3:ZC0:30200:CL$:ZN2000,6000,29100Q CO,0,54:"POSTERS";CC$:X187:Y120:X2193:Y2120:21000:CO"Banners prints block letters vertically on the printer paper.":::~ BOX,1,14,9,20,1:BOX,1,68,9,74,1:SPACE:WIND:CL$! WIND:CL$:"Options Menu";CC$:CO,40,54:"1. Posters":CO,40,90:"2. Banners":CO,40,136:"3. Return to main menu":X1155TART OF PROGRAM& ::(930)11250 230,64:RFL,"POSTER.FNT"33025:DUN,"POSTER.PIC":16297,0:16302,0:16304,0:16299,0:SPACEF CL$:WIND,20,5,270,170::"Posters prints a variety of letter styles horizontally on the printer paper."::::$(4):CL$(12):CC$(3):CG$(7):CA$(1):PINIT:POFF:SN((948)(949)256)128:SN0SN(952) 33100:ZS704:SET,1:RFL,"MECC$$DISK"ZS:33200:QN$ZN$:QC(ZS36):QP$"Posters and Banners":QT$(1):QT$(0)"program":QT$(1)"data" 919,1 S'" PROGRAM:POSTERS AND BANNERS<AUTHOR:ERIC SWILDENSVCOPYRIGHT: MECC,1984s(LAST UPDATE:87/04/3 JJK}dINITe32000iAPP,"COMMON.LIB":(175)(176)256nRE-ENTRYd x16384:D%(100,2),PI$(100),ST$(1):ST$(0)" ":ST$(1)"**":D               bh` mc i (g$20 LCOPYRIGHT: MECC 1984ePROGRAMMER FREDERICK J. STEINMANN(LAST UPDATE 86/10/28 JJK dINITi32000mAPP,"COMMON.LIB":(175)(176)256nRE-INIT x919,0:16384:D$(4):CA$(1):CL$(12):CO     ! ":WC0:W$(0)"":WC$(0)""TCWC:CL$:CO,0,1:Z$CC$:WC50įCO,0,50:NA$" contains the maximum of 50 words. To add words, you must delete some.":SPACE:%CO,0,14:"Maximum number of words "CA$;:GCP,ZX,ZY:CO,ZX1,ZY:". . . . . 50":"Maximum leWC0WCWC1tWC50WC50.~D$"CLOSE":ER0:L0WN2:IN$W$(L)IN$""LWN2:CO,0,16420CL:ER1:IN$" has been entered before.":IN$"":SPACEL:CO,0,16420CL:CEL::CEL:EDIT2Z$"Add Entries":ELZ$"Create a New Listthe first character must be a letter.":2LLOAD>VOP1ıX[TD1:ZD2:WP0:33000`L050:W$(L)"":WC$(L)"":L:WC0:FS1:D$"OPEN"A$D2$:D$"READ"A$:L150:W$(L1),WC$(L1):W$(L1)""WCL:WC$(L1)""CWL50WL jL:W$(WC(WC0))""o add more shorten the existing clues or delete words from the list."USPACE:ER1[CL$:WIND:CO,0,89:"One moment please...":(CO,0,120:"That can not be the title of a list. Please enter a list title without a comma or *. Also ER0:L0(WO1)(WOWF)(WF1)(WFWO):ERER(((ZA$W$(L))(ZA$WC$(L)))ER):L:[m(0)500970ER0:800:L150:WC$(L1)""W$(L1)""CL$:WIND:CO$:CO,0,75:"There is no room for more words or clues.";:OP1965E" T0'HL049:D$"WRITE"FI$:ZEĺW$(L)BRZEĺ(34)WC$(L)(34)m\L:D$"CLOSE"FI$:ZEĺD$"DELETE"FI$D2$fZEĺCL$:CO,0,89:"There is no more room on this data diskette. The list "NA$" has been eliminated.":ZU0:SPACE:29000CHECKU":SPACEjTD1:ZD2:WP0:33000:1000:L050:W$(L)"":WC$(L)""::FCN,SU$(0),W$,WF:FCN,SU$(1),WC$,WOp z SAVE*OP1ı4TD1:ZD2:WP1:33000:CL$:1000>ZU1:FI$NA$SU$(CL):ZEĺD$"OPEN"FI$D2$:D$"DELETE"FI$:D$"OPEN"FI$CZE87e "SP" sectors left on this data diskette. ";:SP10ĺ"It ";:760}"There is still room for minor changes, however it ";"is not recommended that you add more data to this diskette until you have deleted information or your word list may be lost.$;:CEL:CO,152,80:"]":CO,24,80:INP,(15,"-AZ",0),IN$:IN$""İ1200:ERıoIN$""IN$NN$:CO,24,80:IN$CO,0,100:CEL:GET CATALOGTD1:ZD2:WP0:33000:1000CNT,SP:SP21770BCL$:CO,0,12:"WARNING"CC$:CO,0,70:"There ar6202 IN$""Z21TIN$NN$:CO,ZX,ZY:IN$:645q NLZ21āL02:IN$(L)I$(L):L:CO,ZX,ZY:IN$(Z22):645 CO,0,100:CEL:Z21I$(Z22)IN$(0):L02:IN$(L)I$(L):L CO,0,100:CEL:LCO,20,100:CEL:"Re-enter the word":CO,16,80:"["CA]":L24:ZY1209(L2):CO,11,ZY:L"["IN$(L2):CO,244,ZY:"]":L vCO,16,164:"Which line #? ";:INP,(1,"-14",1),ZA$:CO,0,164:CEL:Z2(ZA$):ZX24:ZY120(Z22)9:RT0:ML1:WD220 {Z21įCO,20,100:"Re-enter line #"Z2 Z2650,200,200,200:ERCA$  VALIDATE NAME? ER0:L1(ZA$):Z$(ZA$,L,1)p ER((Z$",")(ER)((Z$" ")(L1))(Z$"*")) L:ER((ZA$,1)"A")(ER): XEDIT bNN$IN$:CL650C lCO,20,100:CEL:L02:I$(L)IN$(L):L:CO,11,80:CEL:"1["NN$:CO,152,80:"$$DISK"ZS:33200:QN$ZN$:QP$CW$(CW):QC(ZS36)G WIND:VSP:HSP,1Y 919,1:10000d INPUT & NOJUST: & CO,ZX,ZY: & HMI,RT,WD,ML,C$,1,IN$,NL: & PARSE: PRINT CA$: RETURN NOJUST CO,ZX,ZY HMI,RT,WD,ML,C$,1,IN$,NL PARSE :CN$(14):CC$(3):33100:CW(900):OP(902) DR1:CLCW:IN$(2),I$(2),W$(51),WC$(51),CW$(1),SU$(1),QT$(1):CW$(1)"Crossword":CW$(0)"Word Search":SU$(0)".WF":SU$(1)".CW":QT$(0)"program":QT$(1)"data":WC0:C$"-az-#Z !"1 ZS704:SET,1:RFL,"MECC9- PROGRAM EDITOR/COPYRIGHT: MECC 1984MLAST UPDATE:87/01/20 JJKl(PROGRAMMER:FRED STEINMANNxe32000iAPP,"COMMON.LIB":(175)(176)256nRE-ENTERs919,0. x(4)"MAXFILES1":31080:DR1:D$(4):CA$(1):CL$(12):CO$(15)             '%+OCCC:CCCC1:WX20:WY45:BOX:COL*+CO,WX,WY:W$(CC1):CCWC11080e/+WY160WX14011080~4+WY160WX156:WY35>+WYWY10:CCCC1:11050H+CCCC(CCWC)WC(CCWC):UBCCOCM+LL1UB:WX10136(LL13):WY35(10LL)130(LL13):CO,W:30100:Z$"Y"ı +WIND:EXIT0:BX1:CC0:CL$:CO:"Press arrow keys to move"CC$:"Press SPACE BAR to remove/re-select"CC$:"Press RETURN to end"CC$:CO,0,181:"Inversed words are eliminated"CC$"+6:0,35279,35:0,179279,179:WIND,0,36,279,178:CO"Z +:" 4. Horizontally, vertically, diagonally,":CO,38,119:"and in inverted order"+:"Which number? ";:INP,(1,"-14",1),LD$:LDLD%((LD$))+(FT)ı+FTFT0+CL$:CO,0,79:"Do you want to use the entire word list for the puzzle? ";? ";:SET,1:WIND:29100:Ack!Illegalentrypoint.?*1st SETUP+CL$::"How do you want to arrange the words in the puzzle?"::" 1. Horizontally"::" 2. Horizontally and vertically"::" 3. Horizontally, vertically, and":CO,38,91:"diagonallyPOFF:UNHOOK:HOOK:DFT,0,64400:NC1NCNC1:10200(WIND:CL$:CO,0,59:"Would you like to generate another Word Search puzzle using the same list of words? ";:30100:Z$"Y"100100(CO,0,109:"Would you like to prepare another Word Search puzzleWP%(0,L1))(SP$,20(W$(WP%(0,L1))))W$(WP%(0,L2))H'L:(AK)10250'CL$;:L15::L:TX$"Answer Key for: "NA$:(SP$,40((TX$)2));TX$:::(ZS$(SP$,40MX):L0MY:ZS$;:L10MX:(GI%(L1,L)(46(GI%(L1,L)0)));" ";:L1::L5 (CL$;::d'ZS$(SP$,40MX):L0MY:ZS$;:L10MX:(GI%(L1,L)(R(26)65)(GI%(L1,L)0));" ";:L1::L'::::(SP$,28)"Can you find these words?":'LNG51:WP%(0,L)51:L4'L03((NG1)3)3:(SP$,15)W$(WP%(0,L))(SP$,20(W$(WP%(0,L))))W$((Z$"Y")~'CL$:CO,0,49:"If you wish, you may use a ditto master in the printer.":CO,0,100:"How many copies of this puzzle do you want to print (1-9)? ";:INP,(1,"-19",1),NN$:NN(NN$):NCNN'ZB(0):25000:L15::L:(SP$,40((NA$)2));NA$:nt title is "(34)NA$"."(34){':"Do you want to use this title on the puzzle? ";:30100:Z$"N"ĺ:"Enter a new title to be used on the":"puzzle: ";:INP,(25,"-AZ-az-09 .-'!",1),NA$|'CL$:CO,0,89:"Do you want an answer key printed? ";:30100:AK0100:Z$"N"10260% L'NA$""10105 V'CL$:CO,0,75:"Do you want to include a title for the puzzle? ";:30100:Z$"N"10108 `'::"Enter the title to be used on the":"puzzle: ";:INP,(25,"-AZ-az-09 .-'!",1),NA$:10108y'CL$:CO,0,20:"The curreX$"This word ":WCNG1TX$"The following words " .'CO,0,9:TX$"did not fit in the puzzle.":NX0:NY30:L0WC1:WI%(L)128įCO,NX,NY:W$(L):NYNY9:NY150NY30:NXNX130 8'L:CX0:CY160 B':CO,CX,CY:"Do you want to print this puzzle? ";:3LWC51:WP%(0,L)WC:L &'HOOK:DFT,0,64400:CL$:NG0įCO,0,79:"It is not possible to create a Word Search puzzle with this list.":SPACE:29000 )'WCNG10060 *'WCNG28įCO,0,89:WCNG" words did not fit in the puzzle.":CX0:CY160:100503 +'T= 'GX21:GY19:GI%(GX1,GY1):SP$"":L140:SP$SP$" ": 'HOOK:DFT,0,64400:CL$:11000:CL$::UNHOOK:FILT::ZB(0):GCW,0,W$,WC,GX,GY,LD,WP%,WI%,GI%,NG,MX,MY:ZB(0):NGWCİ27000:10020 '13000:ZQ$"N"įHOOK:DFT,0,64400:CL$:10260 $'NU) WP%(7,51),WI%(50),WS%(50):33100:ZS704:SET,1:RFL,"MECC$$DISK"ZS:33200:QN$ZN$:QC(ZS36):QP$"Word Search":(900)QP$"Crossword Puzzle" WIND:VSP:HSP,1 919,1:10000 WIND:CL$:CO,0,89:"One moment please...": 'PROGRAM PROGRAM: WORDPRINT3COPYRIGHT: MECC 1984QLAST UPDATE: 87/2/23 JJKy(PROGRAMMER: FREDERICK J. STEINMANNe32000iAPP,"COMMON.LIB"nRE-INITx919,0: D$(4):CL$(12):DR1:FT1:AK1:NC0:L14:LD%(L):L:R(NU)((1)             :CL$;:ZB(0):&ANSWERS~DC44:::35);"ANSWER KEY":35);"__________"::14);"Across:";DC21);"Down:":L(0)(AA$):L(1)(DD$):ZX(L(0)L(1)):L1L(ZX)2:LW0:LL(0)ZI((AA$,L,1)):W$W$(WP%(0,((AA$,L1,1))1)):14);ZI)):6000:L102:IN$(L1)""ĺ4(L10))IN$(L1)<:::cHR(959)2(DD$)265ĺCL$;::LL(DD$):LL0ĺ"DOWN:"::L1LL2:ZI((DD$,L,1)):ZI10)ZI". ";:ZN$WC$(WP%(0,((DD$,L1,1))1)):6000:L102:IN$(L1)""ĺ4(L10))IN$(L1) CLUESSZ15MY(3(MY15)):Z27((AA$)(DD$))2:HR(Z1Z266)ĺCL$;::yHR(959)4(AA$)265ĺCL$::40(TI$)2);TI$::0LL(AA$):LL0ĺ"ACROSS:"::L1LL2:ZI((AA$,L,1)):ZI10)ZI". ";:ZN$WC$(WP%(0,((AA$,L1,1))1u& UNHOOK:::11:"ONE MOMENT PLEASE...":ZI((PP107)1)((PP107)2):PINIT:POFF:SN(PP)128:SN0SN(952)0 D$"PR#"SN:(9)"K":ZIĺ(9)"GDR2":3140: SDUMP,SN,7:D :D$"PR#0":D$"PR#"SN:(9)"R":PINIT:D$"PR#"SN::959,0:ZB(0):T,L::CT0:AA$"":DD$""E L0MY:L10MX:ZIII%(L1,L):ZI03090 ZXL1WS1:ZYLHS1:ZI1įBOX,ZX,ZY,ZXWS2,ZYHS2,3:3090 CTCT1:CO,ZX1,ZY1:CT:ZH(ZI256):ZLZIZH256:ZH0AA$AA$(CT)(ZH) ZL0DD$DD$(CT)(ZL) :MY)):Z2)CH$;:L104MX2:"-";::CH$:::=HZB(0):O PRINT HI-RES 27000:D$"BLOAD LITTLE DIGITS.FNT,A65280":DFT,1,65280:AFT,1:CL$CN$ WMX1:HMY1:WS(279W):WTWSW:HS(191H):HTHSH:3:L0WTWS:L,0L,HT::L0HTHS:0,LW ZI0ĺ" |";:2090lCTCT1:((CT)". ",3);"|";:ZH(ZI256):ZLZIZH256:ZH0AA$AA$(CT)(ZH) ZL0DD$DD$(CT)(ZL)*::L20(MY15):Z2);"|";:L10MX:ZIII%(L1,L):ZI1ĺ"XXX|";4ZI1ĺ" |";/>:::CH$(12481(Ler crossword puzzle? ";:SET,1:WIND:29100:Ack!Illegalentrypoint.SPRINT TEXT27000:::CT0:AA$"":DD$"":ZZ4(MX1)1:Z2((80ZZ)2):Z2);:"+";:L104MX2:"-";::"+"L0MY:Z2);"|";:L10MX:ZIII%(L1,L):ZI1ĺ"XXX|";:2090HR)2000,3000:4000:AKİ5000MPOFF:L9:UNHOOK:HOOK:DFT,0,64400:AFT,0WIND:CL$:CO,0,59:"Would you like to generate another crossword puzzle using the same list of words? ";:30100:Z$"Y"1040CCO,0,109:"Would you like to prepare anoth) .CL$:CO,0,89:"One moment please..."] `L0MY:L10MX:II%(L1,L)1(GI%(L1,L)0):: jL0NG1:II%(WP%(5,L),WP%(6,L))II%(WP%(5,L),WP%(6,L))(L1)(1255(WP%(4,L)0)): tPP(948)(949)256:HR((PP107)0)((PP107)4)L91NC:(1CL$:CO,0,89:"Do you want an answer key printed? ";:30100:AK(Z$"Y") $CL$:CO,0,49:"If you wish, you may use a ditto master in the printer.":CO,0,100:"How many copies of this puzzle do you want to print (1-9)? ";:INP,(1,"-19",1),NC$:NC(NC$)AZ-az-09 .-'!",1),TI$:1058^ TI$NA$:CL$:CO,0,20:"The current title is "(34)TI$(34)"." :"Do you want to use this title on the puzzle? ";:30100:Z$"N"ĺ:"Enter a new title to be used on the":"puzzle: ";:INP,(25,"-AZ-az-09 .-'!",1),TI$I "00:10489 13000:HOOK:DFT,0,64400:CL$:ZQ$"N"1215N 9000:ZP01215` NA$""1055 CL$:CO,0,75:"Do you want to include a title for the puzzle? ";:30100:Z$"N"1058 ::"Enter the title to be used on the":"puzzle: ";:INP,(25,"-),GI%(X1,Y1),II%(X1,Y1),WS%(51):33100:ZS704:SET,1:RFL,"MECC$$DISK"ZS:33200:QN$ZN$:QC(ZS36)s 919,1y  FTFT0:11000 CL$:ZB(0):UNHOOK:::GCW,1,W$,WC,X,Y,65,WP%,WI%,GI%,NG,MX,MY:ZB(0)::NG" WORDS PRINTED"::NGWCİ2802 PUZZLES AND POSTERS2PROGRAM:CROSSPRINTMCOPYRIGHT(C)MECC,1984p(PROGRAMMER:R. PHILIP BOUCHARD2LAST UPDATE 87/03/31 JJKe32000iAPP,"COMMON.LIB"n919,0xZP1:FT1:HOOK:DFT,0,64400h X19:Y20:WP%(7,WC1),WI%(WC1              L1NP:4(L9):L". "MN$(L)::2 "Options:":g NNP1:4(N9):S(1)N:N". General Information" N = N + 1: HTAB 4 - (N > 9):S(2) = N: PRINT N". Program Manager":MO = 1 *NN1:4(N9):S(3)N:N". Printer Support" 4NN1:4(N9):S(4)N:N DISPLAY MENU1 (975)255Č24768:975,1| 230,64:24576:DFT,0,64400:DFT,1,34816:AFT,1,0:CO$:HSP:VSP:WIND CL$:6000:CO,0,MT:CN$TI$CC$:PA$""ĺPA$CC$ CO$:GCP,ZX,ZY:WIND,ML,ZYSP,270:CO:"Program";:NP1ĺ"s"; ":"::)256 RFL,"TITLE.PFT"348163 NP4:DP1:MO0p TITLE$"Puzzles and Posters":PART2$"":VE$"Version 1.6" MN$(NP),CN$(NP),DS$(NP,DP): MENU NAME, CATALOG NAME, DESCRIPTION :L1NP:MN$(L),CN$(L):L11DP:DS$(L,L1):: 919,1 MAI(3):D$(13)(4):CL$(12):CN$(14):CO$(15):900,1:901,0:930,0 33100:ZS704:SET,1:RFL,"MECC$$DISK"ZS:33200:QN$ZN$:QP$"Menu":QC(ZS36):QT$(1):QT$(0)"program":QT$(1)"data" MT13:ML37:SP0:FORMATTINGPARAMETERS P(S)(S)(S1U PUZZLES AND POSTERS-PROGRAM: MENUJPROGRAMMER: P. BOUCHARDh(COPYRIGHT (C) MECC, 19842LAST UPDATE: 86/05/01 JJKe32000iAPP,"COMMON.LIB":(175)(176)256nRE-ENTERs919,0:(4)"MAXFILES1":16384D xCA$(1):CC$      GET DISK NAME AND TYPEHENTRY ZS=ADDR WHERE MECC$$DISK WAS LOADEDnEXIT ZN$=DISK NAME. ZT=DISK TYPEUSES: Z,ZN$,ZS,ZTZN$"":Z1ā(ZSZ)0Z36ZN$ZN$((ZSZ)):ZZ1:33220΁ZT(ZS)9GET DRIVE STRINGSFMENTRY:953 - 958 CONTAIN S,D,V OF DRIVES 1 AND 2{NEXIT: D1$ = DRIVE 1 STRING,D2$ = DRIVE 2 STRINGPUSES:D1$,D2$VD1$",S"((953))",D"((954))",V"((955))`D2$",S"((956))",D"((957))",V"((958)) Drive: "(ZL1);0$".":SPACE:CL$:33010?.WP33099p8ZE0:ZEĺD$"BSAVEMECC$$DISK,A"ZS",L$28"ZD$BWP(WP1):ZE4ĺCL$:CO,0,89:"Please remove the write-protect tab from your "QT$(TD)" diskette.":WP2:SPACE:CL$:33010KZU0:L volume number of this diskette does not match the current setting.":SPACE ZV(ZE7):CL$:CO,0,89:"Please insert your "QT$(TD)" diskette for "QN$;:QC2ĺ" in drive "ZD;QC3ZL953(ZD2)3:" in the drive located at:"::" Slot: "(ZL):":"Please report this error to MECC.":SPACE:31000F 耲 DISK VERIFY` ZD$D1$:ZD2ZD$D2$ ZU1:SET,ZD:ZV0:CPRO,ZP:ZPįCPRO,ZP SPRO,ZP(ZP):ZE0:ZEįRFL,"MECC$$DISK"ZS:33200:(TDZT)(QN$ZN$)33070K CL$:CO,0,73:ZVZE7ĺ"The 30000(HI-RES),31000(HI-RES)3 }USES:CL$,ZE,ZN,ZUe }ZE(222):ZN(218)(219)256:216,0:32000z }ZUZE0ZE16Ħ d}PROGRAMMERS REENTRY n}ZE255įPOFF:HOOK:(919)031000:4 x}WIND:CL$CO$:CO,0,80:"Error "ZE" at line #"ZN" in "QP$"."::"Enter a number between "ZB" and "ZT"."(3):30240W 4vZFįCO,0,181:CEW:CO,ZX,ZY:] [vh y29000~ }ERROR PROCESSING }ENTRY: CALLED BY ONERR. ZU<>0 INDICATES PROGRAMMER WILL HANDLE DOS ERRORS. }EXIT: MESSAGE AND ENDING ROUTINE }CALLS:"N"30120 u7 u OLD RANGED NUMERIC INPUT(HI-RES)l v ZB = MIN, ZT = MAX, ZC = C/R LEGAL (BOOLEAN) v(1);:GCP,ZX,ZY vZL((ZT)) vCO,ZX,ZY:INP,(ZL,"-09",(ZC)),ZN$:ZN(ZN$):ZCZN$""ı4 *vZNZBZNZTįCO,0,181:CEL:CO,0,181:ZF1uYES-NO INPUT=uENTRY:CURSOR AT LOCATION OF QUESTIONjuEXIT:Z$="Y"OR"N" (FIRST LETTER ENTERED){uCALLS: &INPuUSES: CA$,Z,Z$,ZX,ZYuCA$;:GCP,ZX,ZY uCO,ZX,ZY:CEL:INP,(3,"YESNOyesno",1),Z$:Z(Z$):Z$(Z32(Z96)):Z$"Y"Z$     ENU"mArBJrKOuL υ u ` u `D# D`-#D.#ED`  ### <= <ȭ<ȭ<ȭ#<ȭ#<><ȥ?< <<= H <=#I<#<##`$q" ""ȱ h!"8ȱ ">? "6p"5#>6#? "!p ""<"=`""8쭇"`+#*#)#@A %#  # `@ i @ ȱ ;#`,"`, ,`<=ʱD>` <=5#?6# "!)">? "PLj"" 8` "L L L X@8MɭɊ=Le 2 `,0 (!U XT`I`I0, `n! J! { ^_ ( { R !,`L8n! <!=!< =Ѝ ,   3300085fq901,1:CL$:1000:RNH,"CROSSWORD/WORD SEARCH"U(Z$)100Z$((Z$)32)^5z5pGET DISK NAME AND TYPE5zZN$"":Z15(ZSZ)0Z36ZN$ZN$((ZSZ)):ZZ1:380205ZT(ZS)5Ӕ5XCAN DISK BE DESTROYED?6bSET,ZD:CPRO,.":RNH,"MENU"he menu...":RNH,"MENU"C$(1)"data":33100:ZS704:SET,1:RFL,"MECC$$DISK"ZS:33200:QN$ZN$:QC(ZS36):QP$"Printer Support"w CALL24576 919,1 MENU L011:WIND::BOX:CO:QP$CC$:Q10:Q220:Q3279:Q4191:WIND,Q1,Q2,Q3,Q4 CO::"You may:":" " 1.)(949)256:CA$(1):CC$(3):CL$(12):Q$(34):VSP:HSP,1 P$(1)"n Apple DMP with a Parallel card":P$(2)"n Apple Imagewriter with a Serial card":P$(3)" printer with a Grappler card"f N$" Puzzles and":N1$"Posters ":QT$(1):QT$(0)"program":QT PROGRAM: PRINTER SUPPORT<PROGRAMMER: P. BOUCHARDYCOPYRIGHT (C) MECC 1983z("LAST UPDATE: 86/03/31 jjk de32000iAPP,"COMMON.LIB":(175)(176)256nRE-ENTERs919,0:16384xCI$(9):D$(4)::P(19)= PP(948! !!!!!!!!!""      to do":"this? ";:36000:OK(Z$"Y")+8 x0,73:"WARNING:"::"This appears to be a MECC "Z$" diskette. Are you sure you want to erase it? ";:36000:OK(Z$"Y")}77MECC$$DISK FOUND7Ƙ38000:CO,0,73%8И"You are about to erase a "T$(ZT)" diskette for "ZN$".":::"Are you sure you wantZP:ZPįCPRO,ZP:ZPOK1:T6lSPRO,ZP:ZU1:ZE0:ZS640:ZEįRFL,"MECC$$DISK"ZSt6vCO,0,27:CEW:ZEİ39100:6ZU1:ZE0:Z9503ZD:ZEĺD$"VERIFY LOGO,S"((Z))",D"((Z1))",V"((Z2))6Z$"program":ZEZ$"data":ZP1OK1:w7CO,PRSPRSEUBRVRVWVWVu[wwwwEtww`R V@*Y\L@IArBJrK]sL / u `AGCHMRFRNAPRASNOPRSPRSEUBRVRVWVWVv󅟆nmLvȱȱeȱe(ӊ0ȱ ie枦ş Hvu$\s`YsWs5Ys `SXs`%u u("u)&u*u ʎ`ttt7H6H ht$8\s tt t u\s$h6h7t`#ʆ%$()t6t7 H h6t\sɍ\sͳɌ\s`% ()` RPuX0VsWs @ @c` IvnEt$>t ht,Et>t r^s]sB6)8|' t \t]s t \t6t7  ?Ðݩ?)`H8HHHha {8 $h`а ,,i,,`8,nshhshsrȱr,s0msssH,( ,s0hsHsHH,,(`?<>?>,>$f<<`VsWs @߅$@qLuqqquq,, x,`ɯL r셝v )8ɀ   Lޤȱ 0:,јe湥 VxirWxi |rr , ,`qqL s?FVr >Yr       [ޱ>? ް4p >? ް!p YޭWޅP߅?Q߅F߭E߭Dߩ@A @ߑ  0ߠ `@ i @gh`ȱȘeiȑ nު%)Yޥ>? ްPL8ޭYE 8`W X gWޥhXޠ8ȱG8ZZު [ޱuW XWȱ |rXޠ8ȱ܅>܅?h`܌ܩ @܅>܅?NO>ܐ ܭ (!HH܍܍] hh@ܬ)`ܭܝݭܝݭܝܩ܍܍܍܍܍ܭ܍܍m܍``܅>܅?ܝݝ܍܍܍܍܍܍܍ܢܝq>ȭq>߭άΫȱ>mߍέߢ$20 ߠ>Z8܍ܩ] َۮ߬Ȏ܌ܩ] ۢܝ[ َۭ8ۍ[ ۠>ȱ>`H$2 @ح܍ڭ8܅<=ܩܽ܍ܽݍm܍ݍm܍8܍̰ڰ!< ۘH< يm܍ܐhڭ܍ڭ܍ڭ-ڭΑΐڭ  يm܍ܐΰ`<`۠><ȱ>= ڰ--# ڐ- ڐ ڰ ۰Lm܅<ȱ>=`H܆܆ Պih`/ܮܽݍm܍ݍm܍܍ܭ8܍>)!HH܍܍] hhܭܭ܍٭܍٭ َڊ ح8ڍܰܩ܍܍ܮLpʽm܅<m܅= ِ|ܬ =< ܝܭܝݭܝ ܭm܍ܐܭ ܍܍ܭm܍ܐܭ܍iح܍jح؍ L֮ܭܝ >܍܍܍] ۩`، `߭߭άΫ߭m܍έ߭8߭ߢ$20  ܠ>Ly /L֍جȘ> ي ٰL֭ ڰ َ؊ ِL!ح /܎o׮܎p׍ܭm܍ܐ L֭sܬ خܭ8ܝܭ8ܝݭܝܭ܍ܭ܍ܭ܍ܭ܍܍m܍8܅<ȥq8)h`@ @ߩ ie`~֌N}8o~֍֥p֍֭mn,} I8.} @L?֭֬օop`܌܅>?>ڭ  ܅܅+٠ َVܠqܩ @ @   n,PL:Nf$ I i $ %i $ iPII)if Э$pI p$ I 0բLl @`Վժ)լ`Ռՠ p` Z Z T16A D G0560G0280gA?@A<` ) Cԭ X8!sՅ 8 yՅ pեjjj) @ բ թ )fD8&HH$0àբ թ( pթ phhhhHHt0% <=`VӌWӥ<-ӥ=.ӥ>*ӥ?+ӢXV XWӐڰX`ө А` а<ӭ mӨ|ѹѹѹѹҹ Fѐ%ɩ` Z ZLuӠ< ЬȽ` <=?4> ө<=8> <=,p8`ddBюCѩEѢ .ECѐ mBѐEDјmDѐEѬE``fшf gѰ $8` 8Lшɪɖ8*ѽ-эѽ*<%<<*>%>>*@%@@ E@Lk`'U_jSX]P7 ` @֩PyQ @A I<=ʱD>` Lн`н݌$8` ЩэЭ и `pЩэ                   ``````pqBBAExqpqBF pyT`B0`E00??B3BA~AAAA~AA~AA~A0%?ccccccca~~00??B3 100B3AAAAAA<?00ps33sc>00?~~~~~~~~aCCgff``cG@Bf~<<|B`BfAgBf F>|``||``TxBLxE(@@ G@@x|LLOOLLOxxOLL||LLOOLLOOBLJ AB BAxAAB @C|E0BAAAAAAAA@AA@AAx| |x@@G xxBJLAA |x@@xxUBF$qxqqqqqyFBAAAA-BByq_J3BAcAcsF3B c``cB3BAcAcsF3B c`~~CB%?00~~>00~~`ccs33sccc`cBJ3A?A0pcB100>BB3RA > l8EF@|~BfBAGA$GC<|``||``?GC>|````?FCfB` ?``?Ccgo{scB(F@CG~|LLOLLE LLOOLLOG@@BLBx|BLB@x|BLB@AA@AxA@AxA@AAAAAA G@@xx@@B@ C0pp3B0B G@@xxxxxxBB AF OLB |xBC BLA|B BL|x@@R EFBqyBBVBAAAAAFBqpCLNOMBLBpqBByqBFAAAAABByxF3B0AqA0 >?33s`CyxyBAAAAAAB3 sq00qa1B0B3?BB3A?A0A~A0A~Aac>B0B3?>00RFfcffcE CGFFGgJfB>~BfBABfB`|<|~F@||CgBfB@BfAgCqB@FBBf gc``||``cc``cGBFf~|B`Bf~|B`Bf gc``???>|B`Bf~|``RCGAAA G@@GB@FLAAABBLAOAL |xxx@@ RDEBBAA pyxqBBAABCBAAABBAxAC|@`0 |CBAyAAyA yqpxxyBBABBqpqqBCCBRp00p00pE33ssB3Bcp001?0011001C3BcsF3B?cs3333saR<>>~~FfB>~ffg~~ffggffgc``cc``cgffggBfBA?C1;?5B1B |~??><cB`BfA~Bf FCc``ccB`Nf~|``?c``cCR| | |EBLBAA |x@@G ||BLB A|BLB@GJLB |xx| ||C00~1B0B3AAAA aq001100?1B0B3?`,cC|~~~>>~|Cc``?Cgff?@BfgcB`Jfgc``RGL@GLLGE ||BLBAAAFLB@%Gx| |x@@xx@@xx@@GG@@GOLL||BLB |xD@D`CBLAAAAAA |xG@@GGB@BLAAGB@BLABFLOGB@FLRBEpyBCBAAAABBAAAAAAE?F3B ~cccsB3BAAAA1?001as33?`s33100?33spB0BAA)100`s33ss33~00pcaq00>BB3?~R@``@`@E >>>>FBfA~A ?ffggffggBfB`AcA`%c>>><|~~~????????BB&A?A A|A@@GBBL OG@@GG@@FLB A|BLB AA0x| xx@@G@@GG@@x|LLO  G@@TqpxExyyyBBBCBBBpxxpBBABB9xpyqxqxpBB qyBFABBT~`s33??00pcB100T22rrF2CB2A~AA~AAbAbr22~~~~br22rr22~~B2BA~A br22~~22rb~_FCfB`AcA`cgFfB>|``cCCgffg??~~BfBA?Ac``|>~~``cCBBfAFfB<|~??               27:(J);:::::SPACE!CA$P(PP107)3ĺD$"PR#"SN::CI$"GDR2":4020:UNHOOK:::11:"ONE MOMENT PLEASE...":D$"PR#"SN:CI$"K"SDUMP,SN,7:PINIT:959,35:CL$:POFF:(4)"PR#"SN::(9)"R"::PINIT:(4)"PR#"SN::"Text printer SPACE:TEST PRINTERJPINIT:POFF:SN(PP)128:SN0SN(952)BOX:CO,0,89:"Please prepare your printer...":SPACE:((PP107)3)((PP107)0)4020CL$:CO,0,15:"High resolution printer test":::I13:J3295:(J);:::J961:7:L120:((PP106L));:::HSP,1:B RETURN TO DEFAULTS \ TD0:ZD1:WP1:33000 8:"Now returning the printer settings to"::"their original state (slot search)..." I0127:PPI,0: D$"BSAVE PRINTER COMMANDS.BIN,A"PP",L128" 24709~ 7:"PRINT "(34)CA$;:L211:P(PPCT):CTCT1| Z(P0P13P32):ZPP64::GCP,X,Y:BOX,X1,Y1,X6,Y7,3 L2(P13):PP21L2:(P)CA$;::ZįCO,X9,Y L2: L1:HSP,1: PRINTER TYPE) :" Type of printer:":HSP,2:5:"The current printer settings are for a high-resolution printout using a"P$((PP107));B " inserted in slot #"(PP)128".":(PP2)0ĺ:2400L SPACE:` PRINT SPECIAL COMMANDSj " Commands:"::CT2:HSP,2t L115:(PPCT)0L15:characters per second)."7:(PP107)0İ2500DSPACE:RUSER SET CO:"The current printer settings are:" :" Slot: ";(PP)128::APLĺ" Page length: ";(PP1): (PP2)0İ2400$ (PP107)32İ2500. SPACE:[8 ed up."HSPACE:#COMM CARD3:"This diskette is currently set up to":"expect an Apple Communications Board":"in slot #";(PP);".":SD$"LOW":SD10:(PP2)127SD$"HIGH":SD307:"The speed is set to '";SD$;"'":"(usually ";SD;" (PP)136(PP107)3İ2300:2020D (PP107)0(PP107)3İ2360J X 4DEFAULTS>5:"This diskette is currently set to the"::"default setting, which is to search"::"slots 1 and 2 for a recognizable card"::"each time the diskette is starthat is your choice? ";:INP,(1,"-15",1),ZN$:ZN(ZN$)` 8BOX:CO:ZN2000,5000,3000,4000,29100m BL00:L0  CHECK CURRENT SETTINGS (PP)0İ2100 (PP)0(PP)8İ2200:2020 (PP)127(PP)136(PP107)0İ2300:2020 (PP)127 Check current printer settings":I " 2. Change printer settings": " 3. Return printer settings to their":CO,38:"original state (slot search)": " 4. Test printer settings": " 5. Return to the"N$:CO,38:N1$"menu"5 $::"WRqWIND:21000:110Qq21000:CL$:CO,0,89:"Getting the menu...":RNH,"MENU"NU""MENU"RRNH,"MENU"Lj G* (G*lOUnM*qJUtH* vEUx C*zUU\`GLO@OW H*[(H*jIU_L*PBXHU@XTGUkI*_LUP>0YH* VH* lIU_L*pHUPS@HUmI*_LUrH*(Q H*oIU_**5GUPOPGU5z*_UAUZG*(M(G*Z{U_BGUTKTGU|cH*IH*bHUF@HUeH*D H*hGU@PGUL@S(H*`IU_L*dIUPRRTHUaI*_LUfI*(hI*bIU_L*N>ff>BQHUTe@IUcI*_LUPxBLxR H*(c H* eIU_L*PpqxSHUTa@HUfI*_LUNA`s`acAHpXXpXXpDI*_ H*gIU_L*PC``fCIAEIU@\PHUhI*_LUP@dq*^*`U[UcJ*"CI* eIUP@IUg I*(~ I*iIUT|PIUkJ*X3333Z(I*nIUTY<`|f|YTHUqJ*X|CLXI*sIU@VxCV@IUFn@JI* Ua3s3cU H*jh@_o*-IU@Tcfg`gTPHU5i*_LUcI* S!! ! ! you using?":DWIND,0,40,279,191:CO::"1.":6:"2.":11:"3."WIND,24,40,279,191::"Apple communications board":"(an obsolete card that is not":"compatible with the Apple //e)":W"High resolution graphics printing:":"(Apple DMP/Paralle test":I13:J3295:(J);:::J96127:(J);:::::CL$:POFF:UNHOOK:HOOK:DFT,0,64400:CL$:CO,0,89:"Printer test complete."SPACE:WIND:CL$QP$CC$:WIND,0,20,279,191: SET NEW OPTIONS2:"What type of print capability areՖխժժժժխՖխժCBCPRDDFMFILNOFILRFRNSNOPRSPRSEוݕt"[mU_jSX]P7 `i @ ȱ {`,` {ݩD ^ D`RDSED`7PL7P(L ʊLL( &L`L 䎱 掲`ժL ȱ8쭓8ȱ>? :p"Z>[? %p g^h_^`ȱ^Șe^^_iȑ^^_PON@A J  : `@ PQ / ,L Ll`Q ͐eDRESBVCW@XAY>Z?[  ) e,L׭XLXLX $)Z>[? p G 8`Lg8hegiȱehj8ȱL( 掲 ` `?> `=<8?. e<&8>!>> g R>P>Q /?=<`L #H h`STɩST` ST` L ͐\DRESBVCW@XAY>Z?[  # { R`բ ]Lp ]Lp[ m[[\\ ][ \ \LpUz_j`S縎X]` ߅$0  c`Lv { (^_ <= ޤ<=LL _L  K, `  Q, <ȥ?< <H<= H <= I<<<*>%>>*@%@@ 9E@L`ɪɭ`8` H` < mÒ̒Ւ F O X %ɩ` Z ZL{< ЬȽ` <= , X,lӠӠŠҍԠŠŠԠŠ͠ˍĠӠή`έ  ;$8` 8L8ɪɖ8*9-99*<%<D>ʱD>` L(`GG݌$8`cd a݅`pcd,p8`dd<=10<a {8 1᩸` ,Q,R,T X+JJJJ % "\  L+ɐxy+L_ɯL )8ɀ   Lޤȱ 0:,јe湥 GiHi , ,`xyL<=