' +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`CC$$DISK"ZS:38000:(T0)(TZT)(N$ZN$)34570^2ц(T2)((T1ZT)(ZE6))(16128)IB345702Ԇ(TT1)((T1ZT)(ZE6ZP1))(16128)ID345702؆:10:"Please insert your "T$(T)" diskette":"for "N$;:ZC(S36):ZC2ĺ" in drive "ZD;T3↭ZC3ZL95ove the write-protect tab from your "T$(T)" diskette.":WP2:30000:34005T13ZU0:1ĆSPECIAL DISK VERIFY USED ONLY DURING COPY1ɆZU1:SET,ZD:ZSS0:CPRO,ZP:ZPįCPRO,ZP02ΆSPRO,ZP(ZP):ZE0:ZT1:SET,ZD:ZEįDR,34,1534,1516128:ZEįRFL,"MEĺ" in drive "ZD;u0ZC3ZL953(ZD2)3:" in the drive located at:"::" Slot: "(ZL):" Drive: "(ZL1);0".":30000:340050WP340990DR,17,017,016128:ZE0:ZEįDW,17,017,016128I1 WP(WP1):ZE4ĺCL$:CO,0,89:"Please rem: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.":300000ZV(ZE7):CL$:CO,0,89:"Please insert your "T$(T)" diskette for "N$;:ZC(S36):ZC2at 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:CPRO,ZP:ZPįCPRO,ZP8/ڄSPRO,ZP(ZP):ZE0RFL,"ASCII BOLD.PFT"64400:RNH,"SHORTPPRINT.OBJ":DFT,0,64400O-hyRNH,"MENU"e-}ERROR PROCESSING- }ZE(222):ZN(218)(219)256::(4)"CLOSE"-}ZUZE0ZE16Ħ-(}REENTRY POINT-<}ZE25531000-F}UNHOOK:FILT:::12:1R.P}"Error "ZE" (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..."?-^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)" disprinting of crossword puzzles and mazes.":$+"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 do this, you ";`%+"will need t::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:30200+$ +PP,128ZN:PP1,66:CL$:3:"Puzzles and Posters is now configured for high resolution graphics using:"::" 1. Apple DMP (Dot Matrix Printer"O"'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"* GET SLOT FOR GP#+BOX50,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 PRINTER/"'BOX:4:"Identify the type of printer you are1L6:(S$,K,5)"CHR$("9110A F#JK6L:(S$,J,1)")"9100c P#X$(S$,K5,JK5):X((X$))v Z#X0X127X0 d#L$"":K1L$(S$,K1) n#R$"":LJR$(S$,LJ) x#S$L$(X)R$ #LKLJ:9110 #J #K#!#XQX:YQY:CO,X,Y:CA$;:0:AA64::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$2#L(S$):L79120 <#Kds correct? ";:301007L1(Z$"Y"):CO,0,45:CEW:L1=P@ 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)8010hA88080rA34L198020K|A32L111:CT1:HSP,2[L215: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,255HSP,1:17:"Are the above commanor interface card manual."^v16:"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' when you have finished."00:PP,128ZN:PP107,0lCL$:4:"Puzzles and Posters is now configured for text printing."::"You may affect the text (boldface, character pitch, character or line spacing) by entering special configuration commands that are";q" in your printer e communications"::"card in? ";:INP,(1,"-17",1),ZN$:ZN(ZN$)MPP,ZN:dX "NOT A COMM CARDbBOX::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:302L,((P$,L,1))::&pSET COMM CARDwzBOX: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)@14:"Which slot is thANDS.BIN,A"PP",L128">WIND:CL$QP$CC$:WIND,0,20,279,191:MP ID FIELDmU(PP107)0(PP107)3ıZL120:PP106L,0:dBOX:10:"What printer are you making these":"settings for? ";:INP,(20,0),P$:LP(P$):LP0ınL1LP:PP106ter/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,70005200:TD0:ZD1:WP1:33000:D$;"BSAVEPRINTER COMMayed 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 displt'LA1(D%(L1,1)5):LN$LN$"*":LA0%y'L5:L4D%~'BR1ĺBT$;" ";n%'WC1āX1(.5(76(LN$))):" ";:Xx%'LN$;%'WC1āX1(.5(76(LN$))):" ";:X%'WC0āX1(76(LN$)):" ";:X%'BR1ĺBT$;&':L6:L3:BR1ĺBT$;:X177:" ";:41(PI$(L1)):Q((PI$(L1),L4,1)):P((Q32)5)33033:UBM,(PL3),901i$`'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$((L2));::::::J1D%(L1,1)::::FEED:A#'POFF:CL$:Z#' PRINT THE POSTER #'PINIT::L01CO::BR1āX179:BT$;:X::BT$;:X177:" ";:X:BT$#8'L11NL:L304:US1āL61(D%(1,2)5):10050#='L61(D%(L1,2)5)G$B'LN$"":L9000"(#PRINT THE BANNER "2#PINIT::L01CO:L11NC:Q(PI$(L1))128:RVW,784,XP:PXP88(Q32):RVW,XP6,PW:XPXPPW:RVB,XPQ32,PW:J1D%(L1,1)::0#<#L290179018PW1:J1D%(L1,1):25000:ZP7P1:RVB,Z,K:UBM,K,901:K1D%(L1,1):S2!!D1ĺCG$;:86220!!D%(D,1)0:DD1:8622V!!P141P136P255ĺCG$;:8622`!!8624s!! RETURN !!D(NC1)ĺCG$;:8622!!CL$:9:"Please prepare your printer.";(3):L11NC:D%(L1,1)0D%(L1,1)1!!L1:SPACE"!CL$:9000:20)))::FF146:CO,F,G:(255)CA$;::CO,F,G:P(5):BOX,F,G,F6,G7,0:CA$[ !DNC8633q !P136P2558629 !P1418635 !P160įCO,F,G:(P)CA$;:D%(D,1)0:DD1:8622 !P177P181ĺCG$;:8622!!CO,F,G:(P)CA$;:D%(D,1)P176:DD1:862 you would like to use for the letters (1-5)? ";:INP,(1,"-15",1),IP$:ZN(IP$)r!L11NC:D%(L1,1)ZN:L1:8640!"Enter size code for each letter (1-5). Press RETURN only when finished.":D1L !G((2(3(((D1)20)1)))8)8:F(D1)(20(((D1)2CA$;:PI$(D)(P):DD1:8290B P141P136P255ĺCG$;:8290L 8352f4!BACKSPACE AND DELETE{>!D1ĺCG$;:8290C!PI$(D)" ":DD1:8290! RETURN!D1ĺCG$;:8290!DD1:NCD:CO,1,9:CEL::CEL:1:US08620O!"Enter size code)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 P224P2518360 P160P222ĺCG$;:8290 CO,F,G:(P):ZB1:ZT100:ZC0:30200:COZN:CL$I@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,X:X279,33279,153:D1:D=#ONb G((2(3(((D1PACE:CL$:US0:CO1:P15:PI$(P)(P48128):D%(P,1)P:P:NC5:9000[LCONTINUE BANNERSVCL$:CO,0,36:"Do you want to use uniform-size letters and symbols? ";:30100:US0:CO0:Z$"Y"US1#::"How many copies do you want to print (1-100)? ";mallest size, 1, to the largest size, 5."tBOX,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 PROGRAMEbCL$:CO,0,90:"Please prepare your printer.":Sd":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 each letter or symbol."):::"Sizes range from the sL:ZC0:30200:L1ZN:CL$:23000:CO,0,36:5214:5267WIND:CL$:CO,0,90:"Please prepare your printer.":SPACE:CL$:10000:29000pBANNERS/rCL$:CO,0,80:"B A N N E R S";CC$:X183:Y175:X2195:Y295:21000:CO,40,153:"Would you like backgroun60,0,279,191:CL$::L11NL:L110(L110)įSPACE:CL$ZZ$(L1)". "PI$(L1):Z$:L1WIND:CO,0,144::"Do you want to make any":"changes? ";:30100:Z$"N"56004WIND:CO,1,144:CEW::"Which line number do you want to change? ";:ZB1:ZTNo enter special configuration commands that are in your printer or interface card manual.":7030f%+x%Hq MENU ENDING%Rq110:INIT STACK&VARS AND REINIT%qTD0:ZD1:WP0:33000:CL$:10:"Getting the menu...":SET,0:RNH,"MENU"e(L)"":L:CLı6ZN$WC$(ZA1):N80:L10:Z16030oZ1$(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,$(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:IN$EW:L4W1WCPCO,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)INZY9:CEL:CO,0,ZY:CEL(Z$"N"41207600: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İ5060 CO,0,24:CCO,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:4130ters per word . . . . 15":CL4050p"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."q27000:CL$:CO,0,89:"Getting the main menu...":930,0:RNH,"MENU"1(Z$):ZLı=-eZ10:ZYZL11:(Z$,ZY,1)" "Z1ZY:ZY1S-e:Z$(Z$,1,Z1):Y-xiu-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,"MENU"" 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 -eZL130:" 6":CO,130:" 4":CO,130:" 3":CO,130:" 2":CO,130:" 1":U+YSECOND CHART+YX120:Y12:X2254:Y275:21000:CO,36,33:"Width":CO,163,18:"Number of":CO,163:"letters or":CO,163:"symbols":CO,1637,Y"per line":CO,80,10:" 5":CO,80:40: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"C+VCO,130,55:"12":CO,L:CO,242,127:ZB5:ZT80:ZC0:30200:HIZN:HI5(HI5)20140z)NCO,0,181:"The height must be a multiple of 5.":20110)NWI5:20091)RBOXES)R2:L401:X1L4,Y1L4X2L4,Y1L4X2L4,Y2L4X1L4,Y2L4X1L4,Y1L4:L4:)UCHARTs*UX120:Y1EL:CO,161,127:ZB5:ZT80:ZC0:30200:HIZNC(pNHI5(HI5)20091(zNCO,0,181:"The height must be a multiple of 5.":20070({NSY(60WI)(NCO,0,120:CEW:(NBLANK LINE(NBL1:CEW>)NCO,0,127:"Enter blank line height (5-80) [ ]"CA$;:CE,0,150::"(You may press RETURN to enter a blank line.)"CA$:CO,154,105l'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$;:CX:BT$&'BR0ĺ1&'L1:BR1āX179:BT$;:XH&':CL$:L0:POFF:o& 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:ZC0H'JNUS0ZC1:CO20:20110[-pNA$(3210(ITWO))(32(IT10))(IT)" ":ITWOA$A$W$(IT1WO):20100o-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įCO,:33000f,*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)):ITNUL0,64400:10200+*L++ZN$" "WC$(L01)" ":L02:ZA(ZN$):ZA61ZA61V+ +Z1ZA{++((ZN$,Z1))32Z1Z11:11030+ +Z11Z1ZA+*+IN$(L)((ZN$,Z11),2):ZN$(ZN$,Z1):(ZN$)32(ZN$)1ZN$" "ZN$+[+:+ NPICK LIST,&NTD1:ZD2:WP015,279,180:CO,0,80:"Would you like to print the list? ";:30100:Z$"N"10200x*)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,)L))(32((L1)9));L;" "W$(L1):WD3įGCP,ZX,ZY:CO,ZX,ZY3:WC$(L1):R))))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)1O*)L1:BOX,0,ist."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(L2WD)se enter another name.":ER0:SPACE:CO,0,120:CEW:10440I'(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 lX,ZY:::" Press RETURN to cancel."n&(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)104859'(CO,0,120:"That name already exists. Plea$"Y"10375W%(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,Zs":Z1$"change":20300:ZA$""İ800:10200B$}(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 %(Z10310,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 Entriethe list of entries"s"'"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$)## (ZI10600,e up to 15 letters."#!t'CW10120s!~'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:100305 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 havCO,15,85:"this list? "CA$;:GCP,ZX,ZYN.'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)" "ZTZE1WIN$(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":ZI10);ZI;". ";W$;:Lb:::L0MY:L10MX:(GI%(L1,L)(GI%(L1,L)0)32)" ";::::vCL$;:ZB(0):p PARSEzXX(0):ZN$" "ZN$" ":L402:ZE(ZN$):ZE75ZE75ZPZE((ZN$,ZP))32ZPZP1:6030ZP1ZPZEH...":VSP:WIND:HSP,1:RNH,"CROSSWORD/WORD SEARCH"Mq30100:Z$"N"29020q26000:WIND:CL$:VSP:CO,0,89:"Getting the menu...":RNH,"MENU":ng the menu...":RNH,"MENU"1eTD0:ZD1:WP0:33000:,xiSPACE BAR 2i16368,0:24:7:"Press SPACE BAR to continue";:Z(5):ZZ128:Z13Z3227010i:`mDATAjm1,65,195,255HqENDINGRqHOOK:DFT,0,644003\q26000:901,2:(12):CO,0,89:"One moment please2ZQ$(ZQ$,1):ZQ$(ZQ$,1):ZQ$((ZQ$)32(ZQ$"Z")):Z$"Y"Z$"N"13010T3eaPRINTER ACTaZT$".":NC1ZT$" for copy number "(NN1NC)"."a(12):CO,0,89:"Please prepare your printer"ZT$:SPACE::(12):UNHOOKaPINIT:eZZ(ZQ$)1:ZZ1ZQ$"":1302572ZQ$(ZQ$,(ZQ$)1)U2VT:ZQ$;::" ";::868p2ZC13(ZQ$"")130502(ZC89ZC69ZC83ZC78ZC79ZC121ZC101ZC115ZC110ZC111)(ZQ$)2130202ZQ$ZQ$(ZC):VT:ZQ$;::" ";::13020N10ZC11ZC73ZC74ZC75ZC7712020O/ZC21ZC10ZC75ZC76ZC21p/ZC8ZC11ZC73ZC74ZC8v/2BASIC2VT35:ZQ$"":P(0)(1):1::24:"Do you want to print this puzzle? ";::" ";::8682ZC(5)128:ZC8130302,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),.ZCZC128:ZC32ZC8ZC21ZC13ZCUBLL0:11200,a+ZC8LL1LLUB1:11200If+ZC8LLLL2:LL0LL0ap+ZC13LLUB:EXIT1~+BX1:LL:CC1WC11240+EXIT11080+11045+800K+WX0:L0WC:WXWX1(WS%(L)1):L:WXWCāL0WC:WS%(L)0:L:CO,0,181:CEL:BOX:CO,0":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\+ZC21LLRINT"4YCAP,"CROSSPRINT"-4`m PRINTER ACTy4jm(12):CO,0,89:"Please prepare your printer.":SPACE::(12):UNHOOK4tmPINIT:4HqENDING4Rq(919)Ĭ1104WqHOOK:DFT,0,644004\qPARSE:TD0:ZD1:WP0:330005fq901,1:CL$:1000:RNH,"CROSSWOZ1$"? ";:30100:Z$"N"20310#3O/3YPUZZLE3YCL$: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,"WORDPP,(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":LOWORD-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:INCL$: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:102001,(2,"-09",1),ZA$:ZI(ZA$):(ZI1)(ZINU)20160I/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."r.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,ZY0/NCO,ZX,ZY:CEL:INPߪߍ߽ߍ߭߬ Ҍߨ߭߬ Ҍߨ߭B )҅&' Q&-Q&&ȭ߰ & Q&-Q&&ߐ`-ߍ߮ )҅&' Q&-Q&&ߐ`*U U*ժ ')JM) Q&,P 0=fߑ  Vߠ `@ i @ ȱ `,5`DU D`n߅Do߅ED`>=?@3<>`=eA=?eA?A@ <><>=?`)  @  menu...":RNH,"MENU",64400o$\q26000:(12):CO,0,89:"One moment please...":901,2:VSP:WIND:HSP,1:RNH,"CROSSWORD/WORD SEARCH"$q30100:Z$"N"29020$q26000:WIND:CL$:VSP:CO,0,89:"Getting the menu...":RNH,"MENU"ENU"ND:CL$:VSP:CO,0,89:"Getting theL$:PINIT:\#iCL$CO$:CO,0,89:"Please prepare your printer"TX$:SPACE:PINIT:::POFF:m#`mSPACE BAR 2#jm16368,0:24:7:"Press SPACE BAR to continue";:ZI(5):ZIZI128:ZI13ZI3228010#tm:#HqENDING#Mq(919)Ĭ110$RqHOOK:DFT,013020K"2ZQ$(ZQ$,1):ZQ$((ZQ$)32(ZQ$"Z")):ZQ$"Y"ZQ$"N"13010Q"3X"e t"eTD0:ZD1:WP0:33000:"xiACT PRINTER"iTX$" for copy number "(L9)".":L9NCTX$"." #iHRĺCL$CO$:CO,0,89:"Please prepare your printer"TX$:SPACE:C030'!2ZZ(ZQ$)1:ZZ1ZQ$"":13025?!2ZQ$(ZQ$,(ZQ$)1)]!2VT:ZQ$;::" ";::868x!2ZC13(ZQ$"")13050!2(ZC89ZC69ZC83ZC78ZC79ZC121ZC101ZC115ZC110ZC111)(ZQ$)213020"2ZQ$ZQ$(ZC):VT:ZQ$;::" ";::ZC10ZC11ZC73ZC74ZC75ZC7712020S /ZC21ZC10ZC75ZC76ZC21t /ZC8ZC11ZC73ZC74ZC8z / 2BASIC 2VT35:ZQ$"":16368,0:1::24:"Do you want to print this puzzle? ";::" ";::868!2ZC(5):ZCZC128:ZC813ave 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)""WCWC1:L49,L..INPUT.16368,0.ZC(4)0 .ZCZC128:ZC32ZC8ZC21ZC13f+ZC8LLLL2:LL0LL05p+ZC13LLUB:EXIT1R+BX1:LL:CC1WC11240c+EXIT11080n+11045+BOX:CO,0,89:"One moment please..."@+WX0:L0WC:WXWX1(WS%(L)1):L:WXWCāL0WC:WS%(L)0:L:CO,0,181:CEL:BOX:CO,0,79:"You h: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\+ZC21LLUBLL0:11200a+ZC8LL1LLUB1:11200Y:W$(CC1):CCWC110801/+WY160WX14011080J4+WY160WX156:WY35f>+WYWY10:CCCC1:11050H+CCCC(CCWC)WC(CCWC):UBCCOCM+LL1UB:WX10136(LL13):WY35(10LL)130(LL13):CO,WX,WY:">":12000rR+CO,WX,WY:" ":ZC13įCO,0,181O:"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%+OCCC:CCCC1:WX20:WY45:BOX:CO*+CO,WX,WX130Z#L:CX0:CY160c_#:CO,CX,CY:"Do you want to print this puzzle? ";:30100:Z$"N"ZP0nd#CL$:}*1st SETUP+CL$:CO,0,79:"Do you want to use the entire word list for the puzzle? ";:30100:Z$"Y"ı +WIND:EXIT0:BX1:CC0:CL$:C28ĺCL$:CO,0,89:WCNG" words did not fit in the puzzle.":CX0:CY160:9055F#TX$"This word ":WCNG1TX$"The following words "P#CO,0,9:TX$"did not fit in the puzzle.":NX0:NY30:L0WC1:WI%(L)128įCO,NX,NY:W$(L):NYNY9:NY150NY30:NXNIN$(L4)((ZN$,ZP1),2):ZN$(ZN$,ZP):(ZN$)32(ZN$)1ZN$" "ZN$P:\(#VERIFY2#ZP1:HOOK:DFT,0,64400:CL$:NG0Ģ10:"It is not possible to create a crossword puzzle with this list.":SPACE:29000<#NGWCCX0:CY89:9060LA#WCNG:R Q`8`TUpVqW )prqs Qptqu , `rUsV P` 3rt su tr us Lrt su rt su G` Lrmrsmstmﭼrpsq .vwmmmmtmpumq .vmwm`\8TTrpsq ) :Dtpuq  :4rpsqQ( : ) :   : )T `8`rpsqT aa$ʹ b` EL#$% @"<=< @<=ꩍ @Ί`p !mͲ0LͲ0pmq !mͳ0Lͳ0qm`%eBBC##ͩѭ$% ` ET 8` Q`c@A>?> # 'P@̵̵ ȱ>>ε̵󐳭8`P mBmCBQ`PDL``8R 8L GbRbQcepfqd pUqVcWd &c` E EWUV &3Ͳͳíл8`#$%BC@A#@0B$ $# @`B@C@`A 鍮>? 鍬 鍶 鍺 鍸DED̩ 2 qWUV &_DEPD I P aPL,0 dʭDEPDDE` х>?Be>? m` ᅓ ᅔ`@ABC"Dȭ  ᅓL ?( e)J ᨶ L` e)擥攥$` )) ) (8$.߭)` /  + ` 8`DE DED`}#<^:_; @ޭ6<7=:>;?< Ȑ Ms` @)w @ @{ @<^:_; @ީw67L @ @ @ @ O֍ @ @g a @AB CDE `mBnCo@pA >? i#ǍL~ Os`ȌíFɠݽ4́.ȩ쬁Ȣ) n~䭆~,`~ m䅅m䅆 @ @ @{` I @{ @^ ` @{ @^6_7 @ @{ @` I YLMs @{ @A<=>?@  @A:<  ֊qe>>?@ޮ   LP @ޤ>?LOs @ O֍䌄䈱 @l @ Qа/>?~ >?2ȱ쨊 LԠ    Qа  Os` I @{ @猪 ސ Iԭ>? 㤔>)#`> 㤔>  ƓLNH>)? hɀ> ƓL㤔> 㤔> Ɠ LN )҅&'&` ߰pstu <= <ȭ<ȭ<ȭs<ȭu<><ȥ?< <H<= H <=t I<s` ,>(Puzzles and Postersd @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<`ժՖՖխժժժժխՖխժ` I @ @ގ @ @掲` @ @ @{ @R rQ)PN`,< @{ @ @R rP=ȱP%<=LOs$8 @{ @R<= @ @{ @R= r=P<(ȥQ<`ժՖՖխժժժժխ @e I׭)<*=<&=Ѝ',, ` @{ @f^_ ֤<=f ݰ i ii` I O֠>q<ȥ?q=8m<@n=A8<>B=?C8mBmnCnLxߩ7PLv7P(L @ʊLL @ (L<ȥ?<e<<=he>>?v @ޭ1 Ls`  `eȱeѕ`n+ @{ @^_ ( @ @{ @R ݰ"egiehj i,+0 @l` I @!8n+ <)=* @s @ @{ @R  Itu @ @v @ @{ݥ/0 @ @z 2>?t|?E eBBC `8I`/P`/PP`V WVV`N  `}`>``epfqdb u a`p}pq}q`8pp8qq`stp0$̲q0 mDmEDst`p0'̲"q0 mDmED```> DDEBDDtumuUmUVmVLDEDmDDmDeDDEmmmm DEʹ `ʹ mDmE` D`` `D`DE DEDMihPjjjjjjj0jj) 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ҠԠӠ(Š įĠȠ 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,o",1),Z$:Z$(Z$,1):Z$"Y"Z$"y"Z$"N"Z$"n"36020X5(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,$(T)" diskette.":WP2:30500:34505.4'ZU0:G4BUILD DRIVE STRINGS|4̈D1$",S"((953))",D"((954))",V"((955))4ֈD2$",S"((956))",D"((957))",V"((958))44YES/NO INPUT4(1);:GCP,ZX,ZY:5CO,ZX,ZY:INP,(3,"YESNOyesn3(ZD2)3:" in the drive located at:"::" Slot: "(ZL):" Drive: "(ZL1);k3".":30500:34505z3 WP345993DR,17,017,016128:ZE0:ZEįDW,17,017,016128#4WP(WP1):ZE4ė:12:"Please remove the write-protect tab":"from your "TOu  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   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)":>"High resolution graphics printing:":"(Apple DMP/Parallel card;":"Apple Imagewrier test":uI13:J3295:(J);:::J96127:(J);:::::CL$:POFF: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 you using?":+WIND,E CA$j(PP107)3SN(PP)128:PINIT:POFF:D$"PR#"SN:(9)"GDR2":CL$:HOOK:DFT,0,64400:4020{:D$"PR#"SNUNHOOK:SDUMP,SN,7:PINIT:959,35:CL$:POFF:HOOK:DFT,0,64400 CL$:CO,0,89:"Testing the printer...":PINIT:"Text print8" SPACE:& TEST THE PRINTERBOX:CO,0,89:"Please prepare your printer...":SPACE:CL$:((PP107)3)((PP107)0)4020SN(PP)128:CO,0,15:"High resolution printer test":::I13:J3295:(J);:::J96127:(J);:::::SPACP,2::7:L120:((PP106L));:::HSP,1:G RETURN TO DEFAULTS a 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",L1215:2470>~ 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:":HS`8 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,2 t L115:(PPCT)0LSD;" characters per second)."#<:(PP107)0İ2500ISPACE:WUSER SET CO:"The current printer settings are:" :" Slot: ";(PP)128::APLĺ" Page length: ";(PP1): (PP2)0İ2400$ (PP107)32İ2500. SPACE:started 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 ";127(PP)136(PP107)3İ2300:2020I (PP107)0(PP107)3İ2360O ] 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 :"What is your choice? ";:INP,(1,"-15",1),ZN$:ZN(ZN$)e 8BOX:CO:ZN2000,5000,3000,4000,29100r BL00:L0  CHECK CURRENT SETTINGS (PP)0İ2100 (PP)0(PP)8İ2200:2020 (PP)127(PP)136(PP107)0İ2300:2020% (PP) 1. Check current printer settings":N " 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": $:m":QT$(1)"data":33100:ZS704:SET,1:RFL,"MECC$$DISK"ZS:33200:QN$ZN$:QC(ZS36):QP$"Printer Support"| CALL24576 919,1 MENU L011:WIND::BOX:CO:QP$CC$:Q10:Q220:Q3279:Q4191:WIND,Q1,Q2,Q3,Q4 CO::"You may:":' "(948)(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"k N$" Puzzles and":N1$"Posters ":QT$(1):QT$(0)"progra PROGRAM: PRINTER SUPPORT<PROGRAMMER: P. BOUCHARDYCOPYRIGHT (C) MECC 1983z("LAST UPDATE: 85/08/29 RLH dINITIALIZATIONe32000iAPP,"COMMON.LIB":(175)(176)256nRE-ENTERs919,0:16384xD$(4)::P(19)B PP          CA$:WIND,0,0,279,160qiCO,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%(L1,1)WI:D%(L1,2)HIPI$(L1)IP$:L18WIND,D%(1,2)HI:CO,0,90:CEW5PCONTINUE ENTERING LINESNZL11NL:5214:5266]^US15220`CO,0,81:CEW:CO,0,90:"For line ";L1;":":20000:BL1IP$" ":5230aCO,0,81:CEWdWIND:CO,0,162::"(You may press RETURN to enter a blank line.)":"How many copies do you want to print (1-100)? ";:ZB1:ZT100:ZC0:30200:COZNmINPUT POSTER LINESCL$:23000:CO,0,90:"Do you want to use uniform-size characters? ";:30100:US0:CO,0,90:CEW:Z$"N"US0:5200US1:20000:D%(1,1)WI:the poster? ";:30100:Z$"Y"BR1BR1ĺ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 the border? ";:INP,(1,"-az-#^"" ""!",1),IP$:BT$IP$U many lines will be on your poster, including blank lines (1-100)? ";:ZB1:ZT100:ZC0:30200NL0:WC0:BR0:CO0:IPZN:CEW:NLZN:::"Do you want the words centered on your poster? ";:30100:Z$"Y"WC1"::"Do you want to put a border around 0100:Z$"N"4000 SAMPLEa 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)5:D%(2,2)5:D%(3,1)10:D%(3,2)30:10000]CL$:"HowOX,1,113,9,119,1:WIND:SPACE:CL$:"This chart shows the relationship";" of the width to the number of letters and symbols per line.":22000:CO,0,155:"The maximum height of a letter is 80.":SPACE:CL$:CO,0,90:"Do you want to run a sample? ";:3d 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.":H"As you increase the width, you decrease the number of letters and symbols per line.":BOX,1,5,9,11,1:Bn 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 height and width. For example:":"A height of 5 ann? ";:30100:Z$"N"4000w 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 can vary the dimensions line by line.":::y"You ca2: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,29100 CO,0,54:"POSTERS";CC$:X187:Y120:X2193:Y2120:21000:CO,40,153:"Would you like background":CO,40:"informatio paper.":::F 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":X1155:Y142:X2217:Y270:21000:X1155 Y184:X2267:Y210"POSTER.FNT"33025:DUN,"POSTER.PIC":16297,0:16302,0:16304,0:16299,0:SPACE CL$:WIND,20,5,270,170::"Posters prints a variety of letter styles horizontally on the printer paper."::::"Banners prints block letters vertically on the printerD$(4):CL$(12):CC$(3):CG$(7):CA$(1) 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 START OF PROGRAM ::(930)11250S 230,64:RFL,&" PROGRAM:POSTERS AND BANNERS<AUTHOR:ERIC SWILDENSVCOPYRIGHT: MECC,1984t(LAST UPDATE:85/08/04 RLH~dINITe32000iAPP,"COMMON.LIB":(175)(176)256nRE-ENTRY, x16384:D%(100,2),PI$(100),ST$(1):ST$(0)" ":ST$(1)"**":               bh` mc i (g$20 LCOPYRIGHT: MECC 1984ePROGRAMMER FREDERICK J. STEINMANN(LAST UPDATE 86/8/4 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 letC0WCWC1tWC50WC50-~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 List"he first character must be a letter.":1LLOAD=VOP1ıW[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))""W add more shorten the existing clues or delete words from the list."TSPACE:ER1ZCL$: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 tER0:L0(WO1)(WOWF)(WF1)(WFWO):ERER(((ZA$W$(L))(ZA$WC$(L)))ER):L:Zl(0)500970ER0:800:L150:WC$(L1)""W$(L1)""CL$:WIND:CO$:CO,0,75:"There is no room for more words or clues.";:OP1965D" To&HL049:D$"WRITE"FI$:ZEĺW$(L)ARZEĺ(34)WC$(L)(34)l\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:29000CHECKT:SPACEiTD1:ZD2:WP0:33000:1000:L050:W$(L)"":WC$(L)""::FCN,SU$(0),W$,WF:FCN,SU$(1),WC$,WOo y SAVE*OP1ı4TD1:ZD2:WP1:33000:CL$:1000>ZU1:FI$NA$SU$(CL):ZEĺD$"OPEN"FI$D2$:D$"DELETE"FI$:D$"OPEN"FI$CZE870 "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ınIN$""IN$NN$:CO,24,80:IN$CO,0,100:CEL:GET CATALOGTD1:ZD2:WP0:33000:1000CNT,SP:SP21770ACL$:CO,0,12:"WARNING"CC$:CO,0,70:"There are6201 IN$""Z21TIN$NN$:CO,ZX,ZY:IN$:645p 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:KCO,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:ERA$  VALIDATE NAME> ER0:L1(ZA$):Z$(ZA$,L,1)o ER((Z$",")(ER)((Z$" ")(L1))(Z$"*")) L:ER((ZA$,1)"A")(ER): XEDIT bNN$IN$:CL650B 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)F WIND:VSP:HSP,1X 919,1:10000c 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 CCN$(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 !"0 ZS704:SET,1:RFL,"MECC$- PROGRAM EDITOR/COPYRIGHT: MECC 1984LLAST UPDATE:86/08/1 JJKk(PROGRAMMER:FRED STEINMANNwe32000iAPP,"COMMON.LIB":(175)(176)256nRE-ENTERs919,0- x(4)"MAXFILES1":31080:DR1:D$(4):CA$(1):CL$(12):CO$(15):             CC:CCCC1:WX20:WY45:BOX:COD*+CO,WX,WY:W$(CC1):CCWC11080]/+WY160WX14011080v4+WY160WX156:WY35>+WYWY10:CCCC1:11050H+CCCC(CCWC)WC(CCWC):UBCCOCM+LL1UB:WX10136(LL13):WY35(10LL)130(LL13):CO,WX,WY:">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%+OCк" 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? ";:30100:T,1:WIND:29100:Ack!Illegalentrypoint.7*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:"diagonally"R +:POFF: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"10010((CO,0,109:"Would you like to prepare another Word Search puzzle? ";:SEWP%(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::L- (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: 85/7/15 RLHy(PROGRAMMER: FREDERICK J. STEINMANNe32000iAPP,"COMMON.LIB"nRE-INITx919,0: D$(4):CL$(12):DR1:FT1:AK1:NC0:L14:LD%(L):L:R(NU)((1)             "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);ZI10);ZI;". ";W$;:LW(W$)18LL(1)ZI((DD$,L,1)):W$W$(WP%(0,((DD$,L1,1))1)):DCLW);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):CL$;:ZB(0):ANSWERSDC44:::35);"ANSWER KEY":35);"__________"::14);4(AA$)265ĺCL$::140(TI$)2);TI$::LL(AA$):LL0ĺ"ACROSS:"::L1LL2:ZI((AA$,L,1)):ZI10)ZI". ";:ZN$WC$(WP%(0,((AA$,L1,1))1)):6000:L102:IN$(L1)""ĺ4(L10))IN$(L1):::HR(959)2(DD$)265ĺCL$;::7)1)((PP107)2)90 ZIĺD$"PR#"SN:(9)"GDR2":3140I: SDUMP,SN,7D :CL$:HOOK:DFT,0,64400:CL$:CO,0,89:"Printing...":PINIT:959,0:ZB(0):CLUESZ15MY(3(MY15)):Z27((AA$)(DD$))2:HR(Z1Z266)ĺCL$;::HR(959)ȁL0MY:L10MX:ZIII%(L1,L):ZI03090k 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) :& SN(PP)128:ZI((PP10"-";::CH$::: HZB(0):2 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,LWT,L::CT0:AA$"":DD$""( CT1:((CT)". ",3);"|";:ZH(ZI256):ZLZIZH256:ZH0AA$AA$(CT)(ZH)m ZL0DD$DD$(CT)(ZL)*::L20(MY15):Z2);"|";:L10MX:ZIII%(L1,L):ZI1ĺ"XXX|";4ZI1ĺ" |";>:::CH$(12481(LMY)):Z2)CH$;:L104MX2:1:WIND:29100:Ack!Illegalentrypoint.6PRINT TEXT27000:::CT0:AA$"":DD$"":ZZ4(MX1)1:Z2((80ZZ)2):Z2);:"+";:L104MX2:"-";::"+"L0MY:Z2);"|";:L10MX:ZIII%(L1,L):ZI1ĺ"XXX|";:2090 ZI0ĺ" |";:2090OCTHR)2000,3000:4000:AKİ50000POFF:L9:CO$WIND:CL$:CO,0,59:"Would you like to generate another crossword puzzle using the same list of words? ";:30100:Z$"Y"1040&CO,0,109:"Would you like to prepare another crossword puzzle? ";:SET,) .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İ280 PUZZLES AND POSTERS2PROGRAM:CROSSPRINTMCOPYRIGHT(C)MECC,1984p(PROGRAMMER:R. PHILIP BOUCHARD2LAST UPDATE 86/08/1 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.3" 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/08/05 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$     ArBJrKOuL υ 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! <!=!< =Ѝ ,   RD/WORD SEARCH" SEARCH"$"y"Z$"N"Z$"n"36020X5(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, 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,T`Yx Zx YxSZxT` rL$8Ls @mͳ @ @ފ Ls`CASDUMFILNOFILPINIPOFPACFEECNDUCPRSFCFCFKGAGCHMRFRNAPRASNOPRSPRSEUBRVRVWVWV$f<<`zs{s @߅$0zs{s @ @c` IvnNuSJu rOu$H)Puh0,Qu0RLXt|s}sp6t7  }s|s~s~ss,Nu5S,NuNQu Ru9SuI7Ru+tSu,tTu߭ Pu >}r?Ȑ۩`?)8鍸ζ`H88HHHha {8 $h`а ,,i,,`8,n%shh&sh'ssȱs,%s0m&s&s'sH,( ,%s0h'sH&sHH,,(`?<>?>,@q%Luqqquq,, 2y,`ɯL rw )8ɀ   Lޤȱ 0:,јe湥 xirxi rr , ,`qqLB (s?F<?F<>yr      ~ȱ rޠ8ȱ ޱ>? ߰4p >? ߰!p ޭ~ޅ<ޅ=,`ޭ~8`~ rގU QЊp 6ߥDnߥEoߥBr߅Cs߅@t߅Au߅>v߅?w߅l߭k߭jߩ@A  ݭݍݍm&ݍ`gh`ȱȘeiȑ ު%)ޥ>? ߰PL_ޭ; 8`~  g~ޥhޠȱ> ޱo~ Qَ'ܭ8'܍[ (ܠ>"ȱ>#`H$2 @$݅>%݅?h`܌ܩ @$݅>%݅?NO>ݐ ݭ (!HHݍݍ] (hh@ܬ)`!!ݭݝ?ݭݝTݭݝ*ݩݍݍݍݍݍ>= ڰ--# ڐ-7 ڐ ڰ 7۰77`$݅>%݅?*ݝ?ݝT!ݍݍݍݍݍݍ ݍ'ݢݝq>ȭq>߭ȱ>m&ߍ'ߢ$20 ߠ>Z'8&ݍݩ] Qَ'ܮ߬Ȏ݌ݩ] (ܢݝ[ݩݍݍ ݮ!Lʽ?m݅<ȱ߭m&ݍ߭8߭ߢ$20Lm݅<i=><ȱ>=`H(݆)݆ ֊ih`/!ݮ!ݽ?ݍmݍTݍmݍ*ݍݭ8&ݍ>)!HHݍݍ] (hhݭ"#"ݭ"ݍ٭#ݍ٭ Qَڊ ح8ڍݭݍݭݍݭ ݍݭݍݍm&ݍ"8݅<#=< (!ݝ*ݭݝ?ݭݝT ܭmݍݐݭ ݍݍ ݭmݍݐ ݭ"ݍح#ݍح؍ ("#L׮!ݭݝ* !>ݍݍݍ] (ܩ*`ٌ& &`߭߭ܠq&ݩ @ @ 8 @ n','PL:N' ! ݠ>L!  fL׍ج!Ș> Qي 8ٰL׭ ڰ Qَ؊ 8ِLXح /"ݎ׮#ݎ׍"#ݭmݍݐ L׭sݬ خ!ݭ8ݝ*ݭ8ݝ?ݭ ݝT!ݙ`g?>ڭ  (݅)݅b٠G Q٩2 թ8 թ0 թ( թ hhhhHHt0%f$ I i $ %i $ iPII)if Э$pI $ I 0 թA թ թ թ թD թ թ `))@򊙈`l)ȱ<`@A<&=&@&A8@>A?@A<`@ xե ) Sԭ X8؅Յ8 Յ եjjj) @ թ թZ թ թ թ թT թ1 թ6 թ )fa8&HH թG թ0 $ 5 թ6  <=`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<|~??               INGRqWIND:21000:110Uq21000:CL$:CO,0,89:"Getting the menu...":RNH,"MENU"H,"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!! ! ! ՖխժժժժխՖխժ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<=