' +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`U34)E&&RM1:I$"12":L$" Drive: ":DF$((OS1)):11700:OS1,(DL$)&0RM3:I$"-09":L$" Volume: ":DF$((OS2)):11700:(DL$)255DL$"0":CO,ZX,ZY:DL$&5ROS2,(DL$)O':RCEW:CO,0,(58YY)9:CEL:CO,0,(48YY)9:"Copy will look for your "Q$":D$"BRUN DISKUTIL.OBJ":200990%zN29700:350006%NM%R GET COPY CONFIG%RYY(Q$T$(T1)):OS9533YY:CO,0,(108YY)9:CEL:CO,0,(58YY)9:CEL:"Where will your "Q$" diskette be?"&R:M1:I$"-37":L$" Slot: ":DF$((OS)):11700:OS,(DL$1516384:$fNZE29400:K64ZEįDW,5IS,07IS,1553248S$kNZU0:ZE29400:IS$mN:11:"The copy of your "T$(T1)" diskette":"is finished.":30500%uN29700:35000:T0:ZD1:WP0::34500::12:"One moment please...":901,1:D$"BRUN PPRINT.OBJ"D1$T1)" diskette...":SET,2:Z4IS:QSZ(Z35)34(Z34):ZU1:ZE0:ZEįDR,IS,0QS,1516384#aNZE29400:K64ZEįDR,5IS,07IS,1553248#cNZE29400:ZD1:T2:WP1::34500$dN:12:"Writing to backup diskette...":SET,1:ZU1:ZE0:ZEįDW,IS,0QS,"Preparing your backup diskette...":DT$D1$:29500:ZE20090"YNIB(ID1)256(ID0):16128,IB:ZU1:ZE0:ZEįDW,34,1534,1516128"]NZU0:ZE29400:UNHOOK:901,2:::38304"^NIS3325(3K64):TT1:ZD2:WP0::34500Y#_N:12:"Reading from "T$(your "T$(T1)" diskette in drive 2";W!@N(S36)3DC2ĺ" and your "T$(T1)" diskette";g!CN".":30000!ENDC2TT1:ZD2:WP0:34000:ZU1:ZE0:ZEįDR,34,1534,1516128!GNZU0:ZE29400:ID(16128)!HNZD1:39000!RNOK20090<"WNCL$:CO,0,89: Setup"CC$:Q$"backup":21000:Q$T$(T1):21000:35000:DC(D1$D2$)1 NZU0:ZE29400:CO,0,27:CEW:CO,0,90:"Please insert your backup diskette";:(S36)2ĺ" in drive 1 and TTE %NT1U13*NCL$"Copy a "T$(T1)" diskette"CC$4NCO,0,72:"Copying a "T$(T1)" diskette will erase whatever information is currently on the backup diskette."::"Do you want to continue? ";:36000:Z$"N"20090E ;NDC(S36):DC3ĺCL$"Special CopySK,A"S",L$28"D2$:S,0F:D$"BSAVESOUND IMAGES DATA$$DISK,A900,L1"D2$:CO,0,81:CEW::"This diskette is now prepared to handle "T$(T1)" from "N$".":30000:ZU1:ZE0:ZEĺD$"VERIFY LOGO"D1$:GET BACK TO FIRST DRIVE:ZU0: NCOPY A T$(T1) DISKEt: "(S37):" Drive: "(S38):" Volume: "(S39);Y:(S36)2ĺ" in drive 2";u:".":30000:ZD2:39000:OK15099:CO,0,27:CEW:CO,0,89:"Now creating a "T$(T1)" diskette...":DT$D2$:29500:ZE15099:S,T1:D$"BSAVE MECC$$DIe whatever information is currently on the diskette."::"Do you want to continue? ";:36000:Z$"N"15099:CO,0,18::CEW:CO,0,81:"Please insert the diskette that you will use for storing "T$(T1);::(S36)3ĺ" in the drive located at:":" Slolone will accept the current values (or the default values if no current values exist) displayed to the right.":30000|.: CREATE A T$(T1) DISKETTE:T1U1:CL$"Create a Data Diskette"CC$j:CO,0,72:"Creating a "T$(T1)" diskette will erasA$;:CEL:.5|. HELP SCREEN FOR SPECIAL SETUPb.CL$"Special Disk Drive Setup Help"CC$:.:"To change the slot, drive or volume of the drive to hold the "T$(U1)" diskette, type the desired number and press return. ";v."Pressing return askette in:":CO,0,153:"Is this correct? ";:36000:CO,0,144::CEL:Z$"N"11015pR+S37,SL:S38,DR:S39,VOv[+- SLOT,DRIVE,VOL INPUT-L$CA$;:GCP,ZX,ZY:CO,115,ZY:"["DF$"]":CO,ZX,ZY:INP,(M,I$,0),DL$:DL$""DL$DF$ -CO,ZX,ZY:DL$CDrive: ":DF$((957)):11700:DR(DL$):DL$"?"İ11900:11010+M3:I$"-09?":L$" Volume: ":DF$((958)):11700:VO(DL$):VO255VO0:CO,ZX,ZY:VO+DL$"?"İ11900:11010Q+CEW:CO,0,99:CEL:CO,0,90:CEL:N$" will look for your "T$(U1)" di Drive: "(954):" Volume: "(955)J+CO,0,180:"Press ? for help." +CO,0,90:CEL::CEL:"Where will your "T$(U1)" diskette be?"+:M1:I$"-37?":L$" Slot: ":DF$((956)):11700:SL(DL$):DL$"?"İ11900:11010?+M1:I$"12?":L$" ,016128{6WP(WP1):ZE4ė:12:"Please remove the write-protect tab":"from your "T$(T)" diskette.":WP2:30500:345106'ZU0:6 GET DRIVE STRINGS6̈D1$",S"((953))",D"((954))",V"((955)) 7ֈD2$",S"((956))",D"((957))",V"insert your "T$(T)" diskette":"for "N$;:ZC(S36):ZC2ĺ" in drive "ZD;5↭ZC3ZL953(ZD2)3:" in the drive located at:":" Slot: "(ZL):" Drive: "(ZL1);5".":30500:345105 WP345996DR,17,017,016128:ZE0:ZEįDW,17,017(((T1ZT)(N$ZN$))ZE6)(16128)IB34570[4Ԇ(TT1)(T1ZT)(N$ZN$)(16128)ID345704؆:11:ZVZE7ĺ"The volume number, as set in diskette support, must be changed to zero before this diskette may be used.":30500:31000J5݆ZV(ZE7):"Please DUCT MECC$$DISK LOADED AT S=704M3Ɔ EXIT: DISK IN DRIVE ZD.WP=WP TAB FOUNDp3dž CALLS: 30500,38000,&RFL,&SET3ɆZU1:SET,ZD:ZS654:ZV03ΆZE0:ZT1:ZEįDR,34,1534,1516128:ZEįRFL,"MECC$$DISK"ZS:38000:(T0)(TZT)(N$ZN$)34570,4ц(T2)Please remove the write-protect tab from your "T$(T)" diskette.":WP2:30000:34010^23ZU0:2Ć DISK VERIFY TEXT VERSION USED ONLY FOR COPY3ņENTRY: T=DISK TYPE. ZD=DRIVE NUMBER. WP=VERIFY FOR WRITING? N$=PRODUCT NAME. T$()=ARRAY OF DISK TYPES. PRO(S36):ZC2ĺ" in drive "ZD;1ZC3ZL953(ZD2)3:" in the drive located at:":" Slot: "(ZL):" Drive: "(ZL1);1".":30000:340101WP340991DR,17,017,016128:ZE0:ZEįDW,17,017,016128S2 WP(WP1):ZE4ĺCL$:CO,0,89:"C$$DISK"ZS:38000:(TZT)(N$ZN$)340700䄺CL$:CO,0,89:ZVZE7ĺ"The volume number, as set in diskette support, must be changed to zero before this diskette may be used.":30000:310001ZV(ZE7):"Please insert your "T$(T)" diskette for "N$;:ZCYPE. ZD=DRIVE NUMBER. WP=VERIFY FOR WRITING? N$=PRODUCT NAME. T$()=ARRAY OF DISK TYPES. :PRODUCT MECC$$DISK LOADED AT S=704/҄ EXIT: DISK IN DRIVE ZD.WP=WP TAB FOUND/ӄCALLS: 30000,38000,&RFL,&SET/ՄZU1:SET,ZD:ZS654:ZV0)0ڄZE0:ZEįRFL,"MEC25531000 .F}38304:::12:1.P}"Error "ZE" at line #"ZN:"in Diskette Support."::"Please report this error to MECC.":30500.U}29700:ZU1:ZE0:ZEĺD$"VERIFY LOGO"D1$.Z}T0:ZD1:WP0:34500::12:31060.Є DISK VERIFY{/фENTRY: T=DISK TROR PROCESSING (TEXT)2-} ENTRY: CALLED BY ONERRY-} EXIT: MESSAGE AND RERUNS PROGRAMr-} CALLS: 30000,34000- }ZE(222):ZN(218)(219)256-}ZUZE0ZE16Ħ: ZU IS THE USER PROCESSING FLAG (FOR DOS ERRORS)-(} PROGRAMMERS REENTRY .<}ZE10003,6y29700:ZU1:ZE0:ZEĺD$"VERIFY LOGO"D1$^,@yZU0:T0:ZD1:WP0:34000:Z$"Y"į:u,JyZU0:CL$:CO,0,89,Ty"Getting the menu...",YyD$"BRUNSOUNDUTIL.OBJ":RFL,"UPPER/LOWER.OBJ":RFL,"PPRINT.OBJ":975,255,^yRNH,"MENU"-} STANDARD ERACE BAR";::" to continue";b+Lw16368,0:16384,128:ZP(16384):ZF(ZF1)(ZP155):ZF231000}+VwZP160ZP14130540+`w16368,0::+y STANDARD ENDING ROUTINE (HI-RES)+y(901)Ĭ+y29700:(901)2T0:ZD1:WP0:34500::, y54915:35000 *gt+*ht GET PAGE 3 DRIVE SETTINGSk*rtPS(953):PD(954):PV(955):DS(956):DD(957):DV(958)q*t*0u standard space-bar routine*:u(1):SPACE::*$w SPACE-BAR TEXT VERSION*.wZF0:24:1:868:7:"Press ";:(64435)6Ğ+8w"SPskette from this diskette. Be sure that your disk drive door is shut and that the diskette does not have a write-protect tab.":30000:29599)sZE32040)sZU0:)t RESTORE PAGE 3 DRIVE SETTINGS*t953,PS:954,PD:955,PV:956,DS:957,DD:958,DV:FsZE0:ZEĺD$"BSAVE JUNK,A0,L1"DT$(PsZE4įCO,0,162:CEW:"Please remove the write-protect tab from this diskette.":30000:CO,0,162:CEW:29510(nsZE0:ZEĺD$"INITHELLO"DT$:ZU0:D$"DELETEHELLO")xsZE8įCO,0,125:"Unable to create a "T$(T1)" di diskette in:":CO,0,(118YY)9:"Is this correct? ";:36000:CO,0,(118YY)9f'DRCEL:Z$"N"21010l'kR'rERROR ON WRITE OR READ'rZE8ė:12:"This "T$(T)" diskette is damaged.":30500:31000'r32040'9bZS654:Z9503ZD:ZU1:ZE0:ZEĺD$"VERIFY LOGO,S"((Z))",D"((Z1))",V"((Z2))9gLZE:ZE8OK1:390999lSET,ZD:ZE0:ZEįRFL,"MECC$$DISK"ZS9vMZE(ZS):CO,0,27:CEW:LM39070W:CO,0,73r EXIT ZN$=DISK NAME. ZT=DISK TYPE38zZN$"":Z1h8(ZSZ)0Z36ZN$ZN$((ZSZ)):ZZ1:38020u8ZT(ZS){8Ӕ8X VERIFY DISKETTE8Y ENTRY ZD=DRIVE NUMBER. CA$=CHR$(1):T$()=ARRAY OF DISK TYPES8Z EXIT OK= Is disk OK to erase?%9[ C((958))7+7 standard yes-no inputI7 zc=c/r legal (boolean)_7(1);:GCP,ZX,ZY7CO,ZX,ZY:CEL:INP,(3,"YESNO",1),Z$:Z$(Z$,1):Z$"Y"Z$"N"3602077p GET DISK NAME AND TYPE7q ENTRY ZS=ADDR WHERE MECC$$DISK WAS LOADED$810400:tHELP SCREEN~19000::ZT4:ZA0:ZB0:ZC279:ZD189:ZE6:15000:CO,ZT4,ZT4:"Direction Keys"::HS15:VS15:L02:L102HP33HSL15L:VP34VSL:BOX,HP,VP,HP10,VP8,3:CO,HP2,VP1::KE$(L1,L)::(L1L11)įCO,HPHS(L11)1,L19:L103:CO%(L):39,(39((L1)519))(L1)4L1::(L1)43:L;::(L1)43:031440:23:1:958:9:"Type the color number.":16368,0:16384,128:Z(16384)128:16368,0:Z47Z58COCO%(Z48):CO$CO$(Z48):3630$3615.:200:7,F,33,G,32,H,32,V,38,B,35,N,39NS))j16,H,Y,T,R,F,V,B,N,E,,?,C,M,L,D,SD)oX & Y MOVEMENT DELTASo)t1,0,1,-1,0,-1,-1,-1,-1,0,-1,1,0,1,1,1{)COLORS)0,1,6,9,11,13,12,3,8,15)COLOR NAMES)BLACK,MAGENTA,BLUE,ORANGE,PINK,YELLOW,GREEN,PURPLE,BROWN,WHITE*R,36,T,34,Y,3((953))",D"((954))",V"((955))^(ֈD2$",S"((956))",D"((957))",V"((958)):z( STANDARD YES-NO INPUT((1);:GCP,ZX,ZY(CO,ZX,ZY:INP,(3,"YESNO",1),Z$:Z$(Z$,1):Z$"Y"Z$"N"36020((`DATA AREA)eEDITING COMMAND30000:31000;'ЄDISPLAY DISKETTE SWITCH MESSAGE (HI RES)`'ڄSET,(DR2)(DR1)2:D1$D2$ı'䄺(12):CO,0,89:"Please insert your ";'DR1ĺ"data";:DR2:34050'"program";:DR1'" diskette.":30000:'GET DRIVE STRINGS'(̈D1$",S"2150&i}30000:310009&n} PROCESS BASIC ERROR (HI-RES)I&x}ZL53856ZE&}ZE255ĺ"Error ctrl-C hit at line #"ZN".":30000:31000&}ZM01:ZP(ZL):(ZP);:ZM(ZP127):ZLZL1:ZM:" error at line #"ZN"." '}:"Please report this error to MECC.":diskette parameters.":32105l%F}ZE4ĺ"Please remove the write protect sticker from your diskette.":32105%P}ZE8ĺ"Diskette bad - drive or format error.":32105%Z}ZE9ĺ"This diskette is full.":32105&d}"DOS error number "ZE" at line #"ZN".":3R PROCESSING (HI-RES)8$ }ZE(222):ZN(218)(219)256P$}(15):ZE1532110$}ZUĦ: ZU IS THE USER PROCESSING FLAG (FOR DOS ERRORS)$(} USERS ENTRY POINT (WHERE THE USER JUMPS BACK TO)$2}(12):CO,0,89%<}ZE2ZE3ZE7ĺ"Please check your TINE#y19000:DR2İ34000#"yWIND:CL$:(15):CO,0,89:"Do you want to try again? ";:INP,(3,"YESNO"),ZN$:ZN$(ZN$,1):ZN$"Y"ZN$"N"31010#,yZN$"Y"Ĭ#6yVSP:CL$:CO,0,89:"Getting the menu..."#@y901,0::RNH,"MENU"$} STANDARD ERRONE!".wZH(36)1:ZV(37)1:ZF0c"8w24:1:868:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";"Bw16368,0:16384,128:ZP(16384):ZP155ZFZF1:ZF231000"LwZP160ZP14130530"Vw1:868:1::ZV:ZH:16368,0:#ySTANDARD ENDING ROUCZT1,ZDZT1,ZT,ZE:-!8JINITIALIZE HPRINTA!BJ24576:AFT,1:_!JINITIALIZE LO-RES SCREEN!JUNHOOK:16300,0:16298,0:16301,0:!J!0uSTANDARD SPACE BAR ROUTINE (HI-RES)!:uBOX,28,181,256,191,4::SPACE::"$w STANDARD SPACE BAR ROUTIFIRST CHARACTERn 2CA$;:GCP,ZX,ZY:BOX,ZX,ZY2,ZX10,ZY8,3:CO,ZX2::(Z$,1)CA$;::CO,ZX13:(Z$,2);: 6DEFINE AN HPRINT WINDOW 6CA$;:GCP,ZX,ZY:WIND,ZX,ZY,279(ZT4),191(ZT4)::CO: :MAKE A HI-RES BORDER!:EDGE,ZAZT1,ZBZT1,Z +ZU0:ZE11100#*+ZE6NP0:p\+D$"OPEN"FI$:D$"READPICTURE CATALOG":NP:L1NP:PI$(L)::D$"CLOSE":.PUT PICTURE FILE.DADR1İ34000.D$"OPEN"FI$:D$"WRITEPICTURE CATALOG":NP:L1NP:PI$(L)::D$"CLOSE": 2PRINT Z$, INVERSE oment please...":&0*TEXT SPACE BAR:*24:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16368,0:16384,128:16368,0::*GET PICTURE FILE+FI$"PICTURE CATALOG":(DA)FI$FI$D2$ +(DA)FI$FI$D1$+ZU1:ZE0:ZEĺD$"VERIFY"FI$ZY:CEL:INP,(ZL,"-09"Z$,(ZC)),ZN$:ZN(ZN$):(ZN$"*"ZN$":"ZN$"8")DDZN$"*":nZNZBZNZT37030tĐCZN$""(Z$"*"DD)ıZNZBZNZT37030ĐDZ"OFF";(30:"? HELP";()ONE MOMENT PLEASE)CL$:10:"One mt line #"ZN".":32150'(i}30000:31000J(n} PROCESS BASIC ERROR (HI-RES)Z(x}ZL53856ZEl(}ZE25531000(}ZM01:ZP(ZL):(ZP);:ZM(ZP127):ZLZL1:ZM:" error at line #"ZN"."(}:"Please report this error to MECC.":30000:31000!)ЄDISPLAYlease check your diskette parameters.":32105}'F}ZE4ĺ"Please remove the write protect sticker from your diskette.":32105'P}ZE8ĺ"Diskette bad - drive or format error.":32105'Z}ZE9ĺ"This diskette is full.":32105(d}"DOS error number "ZE" a} STANDARD ERROR PROCESSING (HI-RES)I& }ZE(222):ZN(218)(219)256a&}(15):ZE1532110&}ZUĦ: ZU IS THE USER PROCESSING FLAG (FOR DOS ERRORS)&(} USERS ENTRY POINT (WHERE THE USER JUMPS BACK TO)&2}(12):CO,0,89-'<}ZE2ZE3ZE7ĺ"P15):CO,0,89:"Do you want to try again? ";:INP,(3,"YESNO"),ZN$:ZN$(ZN$,1):ZN$"Y"ZN$"N"31010x%'yQE0į:QE1%,yZN$"Y"ĺCL$:CO,0,89:"One moment please...":%6yQE0į:QE1%;yVSP:CL$:CO,0,89:"Getting the menu..."%@yRNH,"MENU"&&ess SPACE BAR to continue";^$Bw16368,0:16384,128:ZP(16384):ZP155ZFZF1:ZF231000y$LwZP160ZP14130530$Vw1:868:1::ZV:ZH:16368,0:$ySTANDARD ENDING ROUTINE$y54915:(903)Ĭ$y19000:DDDR2İ34000f%"yWIND:CL$:(1 #RZU0:6#0uSTANDARD SPACE BAR ROUTINE (HI-RES)]#:uBOX,28,181,256,191,4::SPACE::}#$wSTANDARD SPACE BAR ROUTINE#.wZH(36)1:ZV(37)1:ZF0#8w24:1:868:7:(64435)6ĺ"PRESS ";::"SPACE BAR";::" TO CONTINUE";$=w(64435)6ĺ"PrDISKETTE"*N30000V"4NZU1:Z0:ZE0:ZEĺD$"VERIFYSOUND IMAGES DATA$$DISK"D2$:Z1:">NCL$:CO,0,89:"This is not a proper data diskette.":30000:DR2:31000"RASSURE PROGRAM DISK" R30000#RZU1:Z0:ZE0:ZEĺD$"VERIFYSOUND IMAGES$$DISK"D1$:ZIND,ZX,ZY,279(ZT4),191(ZT4)::CO:A!:MAKE A HI-RES BORDERs!:EDGE,ZAZT1,ZBZT1,ZCZT1,ZDZT1,ZT,ZE:!8JINITIALIZE HPRINT!BJ24576:!JINITIALIZE LO-RES SCREEN!JUNHOOK:31440:16300,0:16298,0:16301,0:!J" NASSURE DATA OPEN"FI$:D$"WRITEPICTURE CATALOG":NP:L1NP:PI$(L)::D$"CLOSE":l 2PRINT Z$, INVERSE FIRST CHARACTER 2CA$;:GCP,ZX,ZY:BOX,ZX,ZY2,ZX10,ZY8,3:CO,ZX2::(Z$,1)CA$;::CO,ZX13:(Z$,2);: 6DEFINE AN HPRINT WINDOW'!6CA$;:GCP,ZX,ZY:WI$"PICTURE CATALOG":DDFI$FI$D2$9 +DDFI$FI$D1$[+ZU1:ZE0:ZEĺD$"VERIFY"FI$o +ZU0:ZE11100*+ZE6NP0:\+D$"OPEN"FI$:D$"READPICTURE CATALOG":NP:L1NP:PI$(L)::D$"CLOSE":.PUT PICTURE FILE.DADR1İ34000E .D$""top",(24::"D";::"raw ";:PLĺ"on ";=(PLĺ"off";|(12::"E";::"rase";:20::"M";::"usic ";:SOĺ"on ";(SOĺ"off";(30:"? Help";()ONE MOMENT PLEASE)CL$:10:"One moment please...":*GET PICTURE FILE$+F CURSOR POSITION WITHIN MARGINS.~'XLMXRM='XRMXLML'YTMYBM['YBMYTMa'x<(UPDATE COLOR TEXTF(22:8:11);:8:CO$" ":(UPDATE INFO WINDOW(21:::"C";::"olor: "CO$" ";:20::"L";::"isten";:30::"S";:::0,3939:CO:#8SAVE A PICTURE1[ZU0:ZE0a\CL$:CO,0,89:"One moment please...":6300`ZU0:D$"BSAVE"PI$".SIMA,A"SL",L"LOtSET UP ARRAY TO SAVEPI%(0,0)SP:LO0:SL0:SLPA(107):LO9(6SP):'MOVEMENT SUBROUTINESt'FIX000:" - ";:14000:"see color chart. Choose colors by number.":WINDZ30000:19100:`zTEST FOR A REAL EXIT19000:CL$:CO,0,89:"Do you want to stop? ";:36000:Z$"Y"ı19100:3080<DRAW BORDERF4:0,390:0,3939:0,390Erase":13000:" - ";:14000:"removes the last note and mark.":WIND::CO,ZT4:Z$"Draw":13000:" - ";:14000:"switches draw on or off.":WIND:CO,ZT4:Z$"Stop":13000:" - ";:14000:"ends and saves drawing.":WINDF:CO,ZT4:Z$"Color":13VP(VS5)(L1):AR$(L1,L)6::ZC120:ZD90:15000VSP,1:CO,127,8:Z$"Listen":13000:" - ";:14000:"Redraws picture while you listen.":WIND:CO,127:Z$"Music":13000:" - ";:14000:"switches music on or off.":WIND::CO,ZT4:Z$"1,ZB TXB6ZZL0:HCR(29):ZZ(((HC),1))X\ZZ7ZZ0ZZ4ZZ8ZZ9602bZL1:N2R(2)7:N1159:ZL0:ZXR(38)7:ZY0:N33:15000lBOX,ZX,ZY,ZXN21,ZYN1,HC: S*ZXST%(L,0):ZYST%(L,1):HCST%(L,2):N1ST%(L,3):N2ST%(L,4):NN14:MN38MNMN1' IN$" "MN0- 4 ,L 6ZL20:N1R(ZL60):ZLN11:ZXR(278N1):ZYR(159N1):ZL0:N2R(360):10000:N31:15000 @ZSN1(N2(PI180)):ZCN1(N2(PI180)):ZAZXZC:ZBZYZSJZX,ZYZA,ZB:ZX1,ZYZA1,ZB:ZX1,ZYZA7,8:BOX,X42,QY1,X5,QY7,8:(5), 10005 KEY> EF0[ IN(16384):IN128215u ININ128(IN224)32 16368,0 FKS,IN,RT$BS$VC$ES$,N:N0215 IN$(IN) IN$ES$EFEF1:EF1Ĺ16368,0:215 EF2Č54915:4000 MN$):Z$(Z(Z96Z123)32):Z$"Y"Z$"N"360207cSTANDARD RANGED NUMERIC INPUT (HI-RES) ZB = MIN, ZT = MAX, ZC = C/R LEGAL (BOOLEAN)(1);:GCP,ZX,ZYZL((ZT))CO,ZX,ZY:INP,(ZL,N,(ZC)),ZN$:Z(ZN$):ZCZN$""ıD ZZ54(DR2)3)".":30000:/GET DRIVE STRINGSd̈D1$",S"((953))",D"((954))",V"((955))ֈD2$",S"((956))",D"((957))",V"((958)):STANDARD YES-NO INPUT(1);:GCP,ZX,ZY1CO,ZX,ZY:CEL:INP,(3,"YESNOyesno",1),Z$:Z(Z this error to MECC.":30000:31000HЄDISPLAY DISKETTE SWITCH MESSAGEڄSET,(DR2)(DR1)2:D1$D2$DR(DR2)(DR1)2:䄺CL$:CO,0,89:"Please place your ";DR1ĺ"data";:DR2:34050"Sound Tracks";:DR1" diskette in drive "(9e is full.":32105Ed}"DOS error number "ZE" at line #"ZN".":32150Wi}30000:31000zn} PROCESS BASIC ERROR (HI-RES)x}ZL53856ZE}ZE25531000}ZM01:ZP(ZL):(ZP);:ZM(ZP127):ZLZL1:ZM:" error at line #"ZN"."#}:"Please report TO)2}(12):CO,0,89]<}ZE2ZE3ZE7ĺ"Please check your diskette parameters.":32105F}ZE4ĺ"Please remove the write protect sticker from your diskette.":32105P}ZE8ĺ"Diskette bad - drive or format error.":32105Z}ZE9ĺ"This diskettU"|yALTERNATE EXIT POINT.yZ$"N":31035V}STANDARD ERROR PROCESSING (HI-RES)y }ZE(222):ZN(218)(219)256}(15):ZE1532110}ZUĦ: ZU IS THE USER PROCESSING FLAG (FOR DOS ERRORS)(} USERS ENTRY POINT (WHERE THE USER JUMPS BACKyWIND:(12);(15):CO,0,89:"Do you want to try again? "(1);J,y36000;yDDİ21010:ZĺCL$:CO,0,84:"Please insert your Sound Tracks diskette in drive "(954)".":30000:31035=yZ$"Y"Ĭ@yVSP:(12):CO,0,89:"Getting the menu...":RNH,"MENCO,0,89:"This is not a proper data diskette.":30000:31000BRM R30000RSET,1:ZU1:ZE0:Z0:ZEĺD$"VERIFYSOUND IMAGES$$DISK"D1$:Z1RZU0:0uSTANDARD SPACE BAR ROUTINE )HI-RES):u(1):SPACE::yySET,1:54915:(901)Ĭ?"EW:"Do you want to "A$" another? ";:3600076WIND:=::D$"OPENPICTURE CATALOG":D$"WRITEPICTURE CATALOG":NP:L1NP:PI$(L)::D$"CLOSE": N*N300004NZU1:ZE0:ZEĺD$"VERIFYSOUND IMAGES DATA$$DISK"D2$:ZU0:Z1:<>NZU0:CL$:,11,13,12,3,8,15!,COLOR NAMESe,Black,Magenta,Blue,Orange,Pink,Yellow,Green,Purple,Brown,White,R,36,T,34,Y,37,F,33,G,32,H,32,V,38,B,35,N,39 35,N,39 YESNOyesno",1),Z$:Z(Z$):Z$(Z(Z96Z123)32):Z$"Y"Z$"N"36020N+]+`DATA AREAs+eEDITING COMMANDS+j17,H,Y,T,R,F,V,B,N,G,E,,?,C,M,L,D,S+oX & Y MOVEMENT DELTAS+t1,0,1,-1,0,-1,-1,-1,-1,0,-1,1,0,1,1,1,0,0+COLORS,0,1,6,9DR2İ21000:Z34070/* DR(DR2)(DR1)2:F*GET DRIVE STRINGS{*̈D1$",S"((953))",D"((954))",V"((955))*ֈD2$",S"((956))",D"((957))",V"((958)):*STANDARD YES-NO INPUT*(1);:GCP,ZX,ZYH+CO,ZX,ZY:CEL:INP,(3," DISKETTE SWITCH MESSAGE (HI RES)Y)ڄSET,(DR2)(DR1)2:D1$D2$DR(DR2)(DR1)2:)䄺(12):CO,0,89:"Please place your ";)DR1ĺ"data";:34050)"Sound Tracks";)" diskette in drive "(954(DR1)3)".") DR1İ20000:Z34060*@p0|DDON[CDGPE@FAxb"hbfB B( (B DA (E (G(H A @p|?o;o;o?m?o;ABw]w kO@pB0p@YܰBA( SF@?OuBUAWV^EXx`xx~~FA~x`BP@DAQTB@C`CUA đǓn~zzj*Ejz>OGNITBAABJAo# "bhbxZNBGBB I껌DC CLODt+C*YBEEDTPB@@PCB B xbh""" 'CU`A *DA"A A(C CBCC?ƒBBZ~x@@@AA胢dCCEFBBAϓđ Ǔ~@ xᅣdچFAAPCP@@PFP@PB~߅ kcF KE@Lŵ@Gs3???o;n;VBATKPHC~AxGB`pxXX^WBUW}w]wOJI*KCQDđŗMYAxJB  CD HC@p00pp∢QABBRAxB`BD*ae@xIܰG?CRACAA đđDцđHI BFC ~ kF|BA@@ZF  D( S@pGꪪꪪxD`NADDDTCUUTEPD@ADT@@GI?BJDp@IC A*(CA (HA *BC@pJꪪTx``DBB@UPB彯 PQAEDJHA GBEC(D (B B {>?/ KAݿGA BBCD]]_ED[C =<1414= QB H ((D(* ?2x"zCP@DPBy^GDD k_G(hh@SD CB ((B E?;3;L{o{?;# # OA؂EjPB@BQt4`CPB@ T~'~wEEDJ BJB( BD1|=DDQDq|OGDCBGK|?DA ( B`hjs;oI">' ch"'EԴ`GԴ`CACPPDx_w] ]w]w}w]w]wI?|QDQDDGDtEFB?@DA* B~;n{n{?KBCxbhbh""OACWFCBP@`}]RT$ī400017000:N55010'600OPLAY,MN,10,10:ST%(SP1,6)MN:5010VpLfzCL$:11000o200EF231000IN$RT$ī400017000:N56020300PLAY,MN,10,10:ST%(SP1,6)MN:6020XIMAGESbCL$:11000l200 you want to see:"u:" 1. Sound Bars":" 2. Sound Lines":" 3. Sound Pictures":" 4. Return to main menu":"Which number do you want? ";:INP,(1,"-14",1),IN$:IN(IN$)IN5000,6000,7000,31100SCL$:11000200 IN$The note and the doodle will be removed from the program." :" You may listen to your Sound Doodle anytime by pressing the":Z$"L":19000:" key. The Sound Doodle will be played back for you." SPACE18000:CL$"Sound Doodles"CC$:"Do r sound pictures.":" Press ";:Z$"K":19000:" to see the ";QU$;"piano";QU$;" keyboard. You may use this help screen anytime while making Sound Doodles."SPACE CL$"Sound Doodles"CC$: :" To erase a note, use the left arrow key, #. OX,100,1602210,180,160230:CO,0,1602:"Sound"CC$:"Doodles"CC$:SPACE[EF231000yCL$"Sound Doodles"CC$CN$:" Play a tune on your keyboard and Sound Doodles will decorate your monitor screen. You may choose sound bars, sound lines, o212:N14ZY53:ZX70(N14)70:N2N223_MN0OLZL:ZL1((OL5)11):N2R(1((OL5)22))rN3N24:15000IMAGE,N2,ZX,ZY:901,1::CL$:LZ026:MN:900:PLAY,MN,10,10:LZLZ((16384)128)30:LZ:(16384)1282000K18000:B3ST%(L,5):HC8ĒHC"/N34960:4N3320,415,620,720AIoZL1:N2R(22):ZL5:ZH8:N212ZL1:ZH4ZZ1:LZLZH:ZZ(ZN(L)0)ZZ:LN1R(ZH)ZN(N1)ZZ910N12N14910ZN(N1)N2901)ZN(N1)N2:ZY0:ZX70N170:N2N CA@pBLG@LCPF@DBAETPPC@PB T@BEFD\ńLE ( G ( (( "" ( BPEC (C( GFA Ie=-8`EB@PPB@AJ DGBUPC@CACFA@PGBP@@BJ BB "H "* (* ( B@pAJAA@pB?<~{n; тđQCFAPB@PP@@CE@@Q=':ބXSB * JB"D  (E  =tQDQDSOXꛆRBJB AKBIBCB * D ((*"C CHxxǓǓǑđđ~ o;o;nOBBA@PEP@BGDTE@x_w]OB B( I( H (E A%EA C?đđ n{n;n;n{~JB@PB@AQQGAETBPTETB@A@AAETUAAFw_ (C AA * D B( #sBBG#D DBRuKCMAB CT@C @P kBdE K ((B F(DHp0p<wSGGGSw|CKJB A@PP@CPBCDDea``x~w]w_v^~z~߂S@0,0@FB IzxDCACWD|rH"OQWUCCDCFDABJAvWQEwyayDRB@ ( B ( HED@|BBACABDC 2xbHbH"HbHbRBC@ABP@@AETBBCKEEBD ^R(h(@DCpC@BA/?|@D /JtT`JPJPDD@A`x~)9yx`xJ:LK*BAs[B BT@@DDB`Aa`C~D~aaBaygg^FGGWEOE( CDB?݂qDQDDQDq4}RT@@FA@PCP@@BH@ETDP@@DBAAyGE_GE g~ZxZxbx_w]w]T ( ( L ((B ( T@C ( (  |b"Hr< ~;n;VAFBIBBFuKTBCAC}]w kVBPI |p~{n{n{o}S jJ`DBFPCBPC@PaD d|ޗőđŗS:DC* E *E ( FL{j; CGGDNBP@DB@PDPAADA@CDRBBBB@AAđđ?"RCA I*EBA (袈ڀhBA(B BBC I?{|@~? (B  `hB^HAޅ kI@0,0@]B  ( CF BE J|o?0p?o;o||\_w_wJ)/-BBPCP@GI@D @TP@@@@PBACACd|w}w]w_~;nRBGA (( CG* BEBKDq]w_~x~` *C: "* F ( Fp?n;n;b . n;nBǓϿTEBDFLF}w]w]wED@D]w]ByH@0,0@UG ( O ( {n;n""8b;n{BхđH)/-_PE@FC}eDpDq]w}D}Fu}NCCʛ@TPB@PHCuA kkB e<O jJ`ZCP@PP@@L`Bx~~x`F@AWWǗŗO:EB (E( BH D*EA (z~??. ";|p@pp@@psCCsZBABB@ P kKaU@BDABBA~]w]Dff^WOUAE*FUB_DaFD Pu5aBDL3L3O=uuUuu=O3L3Ls?~jO*{E]N*A+/,9?9?yfy~CUu}IAE*FAEA}FuBUWDVA~a߇AHpEs3C, 0p00,/**jzH|pss?? (B BJA~D*BAMD`䄑QBACs~~B>:zjkB+/|pCA@ACO|@DHAF@ArA2>/+C*ABȢHA`xE8Ax~BAA`y_WUUuugC`AE+E`Bx~^^CVWJUEuAA`xđEpEBB+|ǓǓC`~ff~/++*++/~## PROGRAM: SOUND TUTOR6AUTHOR:SHANE MCCARRONPCOPYRIGHT MECC, 1984n(LAST UPDATE:84/07/20 SPMz-320002903,0:1000dPLAY A PICTUREiSP2ıjTL3ınTL3Ġ0:LLMRM:TM,BML:x3900 L1SP1:CPI%(0,L):C1          ata diskette information is obtained by pressing CONTROL-A (hold down the CONTROL key and press the letter A) while the main menu is being displayed." Ã"" Ã"""Ã"This program diskette has the capacity to store 4 Sound Images on a picture file. When the file is full, each picture saved will replace one beginning with the oldest picture on the file." Ã"A data diskette will store up to 26 Sound Images. Dctures with sound. A beginner's guide demonstrates the features of this program and gives you an opportunity to practice them."sÃ"",""xÃ"Sound Show","SOUND SHOW","Sound Show contains a demonstration show plus all of the Sound Images that you save.GRAM DATAdÃ"Sound Doodles","SOUND DOODLES","Sound Doodles allows you to play tunes on your keyboard while interesting patterns appear on your screen."iÃ"",""nÃ"Sound Images","SOUND IMAGES","Sound Images is designed for you to create your own pi(953))",D"((954))",V"((955))[ֈD2$",S"((956))",D"((957))",V"((958)):vSTANDARD YES-NO INPUT(1);:GCP,ZX,ZYCO,ZX,ZY:CEL:INP,(3,"YESNOyesno",1),Z$:Z(Z$):Z$(Z(Z96Z123)32):Z$"Y"Z$"N"36020 PòPRO32100=(}ZE0ZE16ĺ"DOS Error #"ZE" in line #"ZN:30000:2}"Error #"ZE" in line #"ZN" in Menu Program. Please report this error to MECC.":30000:d}" Please check your disk drive and diskette.":30000:GET DRIVE STRINGS$̈D1$",S"(00xF0uSPACE BAR ROUTINE0:u:SPACE::EyPROCESS ESC-ESCO"y2000U,yk}ERROR PROCESSING }ZE(222):ZN(218)(219)256:ZE255Ĭ}CO$CL$:WIND:HSP:VSP:CO,0,80:ZE6ĺ"Error: File not found.";:32100}ZE8ĺ"I/O Error.";: a data diskette is selected, pictures cannot be saved on the Sound Images diskette."::"Do you want to use a data":"diskette? ";:36000:DD(Z$"Y"):902,DDnFD$"BSAVESOUND IMAGES$$DISK,A902,L1"D1$:DDF1$"Diskette Support":F2$"DISKETTE SUPPORT":40n"CC$:::"A data diskette can be used with Sound Images to save up to 26 pictures."::"A data diskette can be created on either a new diskette or ";_F"used one. Existing programs on a used diskette will be destroyed."dF:"When the option to use8Z127įCO,ZX,ZY:CEL:9010&d#9040;n#AA48:A1A1bx#XX(XX):SEED RANDOM # GENERATORj#:#ZL11:XX(1):Z(16384):ZL(Z127)::ZZ128:16368,0:'HANDLE DISKETTE SUPPORTPFDISKETTE SUPPORTZFCL$"Program Management OptioEjC*~' ~*FA ( GA * C E ((( DB (C ( ;j; DAJHkFA?uUDI@QBAFBBICHBEwBDp߅A`~o;nD*zL ~j**/n;FC  EE CB  EpGAD]w]DU_|@N=uUwHH@PB`X`BP@@FA@TEDn+E*AQAAD(*BLS^ZDBA CKE_UuuEUKFP@DA@PEBAATAP@PCB)CP@BB@L?FH@p|_w}_WBUu5uBU W__}w_|p@IP@KPB@QrRYaCP@C ݂F`~o;n/+B* zzjB*+/>{o?~x`LH (G HAAB~C ϓǑđđE|_w}WCUu?G=uCU_]w_|BP@FA@PCACP@@EA@TCFD@ *B"*B AAABjB ( BEA (E(B A@Br߂JB(BP@@CAEDTPBQW[BEABRBRBDPTEBJB [ F DC B(F ( L (`0@H @pAF[BC kK`x8|??D/?|x8x``KB EBF (B ed.":::"Do you want to practice with":"sound? ";:36000LZ$"N"23000:L039:0,39L::PI$"PYRAMID":X37:Y38:TL3:300019000:CL$:CO,0,89:"One moment please..."::RNH,"SOUND IMAGES" DRAW A PICTURE  6200:19100::CO$CO$(never you want to hear your sound picture, press ";:Z$"L":13000:" for Listen. Your picture will disappear for a moment. Then you will see ";;"and hear it as the computer redraws it for you."::" You will be able to draw again when it is finishr the same note.":"move "AR$(1,2)" for a lower note.":WIND:::" To draw without music, press ":Z$"M":13000:" before ";"using the direction keys."::" Turn the sound back on by pressing ";:Z$"M":13000:" again.":30000CL$::" WhefPI$"BUTTERFLY":X27:Y20:LMLM2:TL2:3000:LMLM2ISOUND SCREEN19000:VSP,3:WIND::CL$"Learn to use SOUND"CC$:::"Each move will make a sound:"::CO,15:14000:"move "AR$(1,0)" for a higher note.""move "AR$(0,1)" or "AR$(2,1)" fo)4L1::(L1)43:L;::(L1)43:02C31440gH22:1:"Type a number to change colors.":30500R22:1:958:"When drawing, type C to see this chart.":30500\19000::CO,0,89:"Do you want to practice using color? ";:36000:Z$"N"22007rn ";:Z$"draw":16000:" on or off."::j"Do you want to practice":"drawing? ";:36000:Z$"N"2100 PI$"HOUSE":TL1:X23:Y33:30004COLOR SCREEN90:L039:0,39L:'>19100:::21:L19:L103:CO%(L):39,(39((L1)519))(L11L11)įCO,HPHS(L11)1,VP(VS5)(L1):AR$(L1,L)> : VSP,3:WIND,160,34,229,191:CO:"These are your direction keys.":WIND::::"Press ";:Z$"E":13000:" or "CN$;:Z$(33):13000:(15)" to erase.") :"Press ";:Z$"D":13000:" to tu8L09:CO$(L)::L02:L102:KE$(L1,L),Z:AR$(L1,L)CN$(Z)CP$::[ MAIN PROGRAM 903,1:AFT,1:CL$"Learn How To Draw"CC$ HS15:VS15:L02:L1026 HP60HSL15L:VP34VSL:BOX,HP,VP,HP10,VP8,3:CO,HP2,VP1::KE$(L1,L)::(LLO0:D$(4):CL$(12):CC$(3):CA$(1):CN$(14):CP$(15):TM1:BM38:LM20:RM38:LE20v PA(S)(S)(S1)256 FI$(50):DC:DC%(DC):L0DC1:A$:DC%(L)(A$):L DX%(8),DY%(8):L08:DX%(L),DY%(L): CO$(9),CO%(9):L09:CO%(L):I JL1EP1:CQI%(0,L):C127CC128h TC:QI%(1,L),QI%(2,L):QI%(0,L)127įPLAY,(QI%(2,L)39)11,LEw ^:10400: INITIALIZATION  VSP INITIALIZATION 901,1:16384 N0:XL0:YL0:CL0:P0:FP0:MX300:QI%(2,MX),PI%(2,MX)Z 27CC128M C:PI%(1,L),PI%(2,L):PI%(0,L)127įPLAY,(PI%(2,L)39)11,LE\ :10400:w JUST PLOT THE PICTURE SP2ı L1SP1:CPI%(0,L):C127CC128 C:PI%(1,L),PI%(2,L):: ,PLAY A LOADED PICTURE 6EP2ı @19100:% 000 `0x |||| ||x|8l````|| x````8p`````lxx|| |x ````l8|x0x0x| x0`0````0``0``l0`x000||0xxx||````` xxxxlxx x000000xx0x0xx0000 0``0 0xth`0``0@G0` pvv0`0``0`000`~<~0000`` 0`xx0p0000xx 8` 8 x8x x<`x 0```xxxx| ```0``0`0  computer is waiting for you to type.">WIND:VSP:30000:Q(#INPUT ROUTINE-#CA$;:16368,0:GCP,ZX,ZY:WIND,ZX,ZY,250,ZY12:DL$(127)2#DL$:CO,ZX,ZY:9100:AZ:A19070<#A49A(48N)9010F#(A);DL$;CA$;P#9100:Z139070Z#Zof the title indicates that the picture has been protected."G30000RAFT,1fESC ESC SCREENVSP,4:CL$:::"Use of ESC Key"CC$::&"You may want to quit in the middle of a program. If so, press the ESC (escape) key twice whenever the1:CEWKDS$(L,L1)""ĺ" ";:GCP,ZX,ZY:WIND,ZX,ZY,279,191:DS$(L,L1):cGCP,ZX,ZY:CO,0,ZY{WIND:L1:L:30000<CO,X1,Y1:CEW:"It is possible to 'padlock' your favorite pictures to prevent them from being erased. A !";(34);" in front d, line, and color to create pictures. It has been designed to provide fun and";" challenge for children ages 5 and up.":30000:VSPCO,X1,Y1:CEWSHOW DESCRIPTIONSAFT,2L1NP:L11DP:GCP,ZX,ZY:ZY150ZYY1İ30000::CO,X1,Y2:9,6L432L,6L:2352L,6L269,6L:9,183L392L,183L:2392L,183L269,183L:_xXGENERAL INFORMATIONbCL$TI$CC$:PA$""ĺPA$CC$lVE$CC$:::GCP,X1,Y1QvVSP,4:"The programs in Sound Tracks motivate experimentation with soun9,18576:X10:Y10:X2278:Y2191:DX18:DY12:L02X1DXL,Y1LX2DXL,Y1LX2DXL,Y1DYLX2L,Y1DYLX2L,Y2DYLX2DXL,Y2DYLX2DXL,Y2LX1DXL,Y2LX1DXL,Y2DYLX1L,Y2DYLX1L,Y1DYLX1DXL,Y1DYLX1DXL,Y1L:Y1:L0other diskette."CC$#30000:CL$GCS(P(P(999))1)16: SLOT #[CS1CS7CS6cCSizpDRAW BORDERz4: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,15826)))"."CC$:30000:2000' AS(6)5000<RUN THE PROGRAMG16384lA0ANPF1$MN$(A):F2$CN$(A)SET,1:901,0:CL$:HSP:VSP:CO,0,89:"Getting "F1$"..."A1įRNH,"DOODLESUTIL.OBJ"RNH,F2$END OPTIONCL$:11:"Insert anIND AS(1)İ7000:20002 A1İ18000:2000j AS(2)F1$"Picture Padlock":F2$"PICTURE PADLOCK" AS(3)F1$"Printer Support":F2$"PRINTER SUPPORT" AS(4)İ18000 AS(5)Ĺ975,((975)):CL$:11:"The sound is now turned "SB$(((975"y >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 "Which number? ";:9000:W "Options:":D NNP1:4(N9):S(1)N:N". General Information"t NN1:4(N9):S(2)N:N". Picture Padlock" *N = N + 1: HTAB 4 - (N > 9):S(3) = N: PRINT N". Printer Support" 4N = N + 1: HTAB 4 - (N > 9):S(4) = N: PRINT N". Diskette Support (975)255Č24768:975,1Y 230,64:24576:DFT,1,15128:AFT,1: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"; ":"::L1NP:4(L9):L". "MN$(L):: EAN FOR HIDDEN MANAGEMENT OPTIONSQ `TITLE$"Sound Tracks":PART2$"":VE$"* * *" jMN$(NP),CN$(NP),DS$(NP,DP): MENU NAME, CATALOG NAME, DESCRIPTION tL1NP:MN$(L),CN$(L):L11DP:DS$(L,L1):: ~DATA STATEMENTS ARE AT 50000 DISPLAY MENU:CN$(14):CO$(15):35000G MT13:ML37:SP0:FORMATTING PARAMETERSb P(S)(S)(S1)256} RFL,"TITLE.PFT"15128 $RFL,"KEY.FNT"32768:DFT,2,32768 LPROGRAMMER OPTIONS! VNP3:DP3:MO1:"# OF PROGRAMS, # OF PARTS PER DESCRIPTION, BOOL SOUND IMAGES&PROGRAM: MENUCPROGRAMMER: P. BOUCHARDa(COPYRIGHT (C) MECC, 1984~2LASTUPDATE:84/11/08 EJGZ32000d(975)255Ĺ975,0:RNH,"PPRINT.OBJ"INITIALIZATION15128 CA$(1):CC$(3):D$(13)(4):CL$(12)                rase":13000:" - ";:14000:"removes the last note and mark.":WIND::CO,ZT4:Z$"Draw":13000:" - ";:14000:"switches draw on or off.":WIND:CO,ZT4:Z$"Stop":13000:" - ";:14000:"ends and saves drawing.":WINDKTL1ĺ:CO,ZT4:Z$"ColorAR$(L1,L)%::ZC120:ZD90:15000VSP,1:TL3:CO,127,8:Z$"Listen":13000:" - ";:14000:"Redraws picture while you listen.":WINDTL3ĺ:CO,127:Z$"Music":13000:" - ";:14000:"switches music on or off.":WIND::CO,ZT4,95:Z$"E SCREENz~19000::ZT4:ZA0:ZB0:ZC279:ZD189:ZE6:15000:CO,ZT4,ZT4:"Direction Keys"::HS15:VS15:L02:L102 HP33HSL15L:VP34VSL:BOX,HP,VP,HP10,VP8,3:CO,HP2,VP1::KE$(L1,L)::(L1L11)įCO,HPHS(L11)1,VP(VS5)(L1):L103:CO%(L):39,(39((L1)519))(L1)4L1::(L1)43:L;::(L1)43:031440:23:1:958:9:"Type the color number.":16368,0:16384,128:Z(16384)128:16368,0:Z47Z58COCO%(Z48):CO$CO$(Z48)$::300:3900:200:tHELP(DI):YYDY%(DI):10100:- ERASE AN ENTRY9 SP1ı] SPSP1:XPI%(1,SP):YPI%(2,SP)k 0:X,Y:H TOGGLE DRAW STATER PLPL:10400: TOGGLE MUSIC STATUS TL3ı SOSO:10400:COLOR BARSTL2ıQ::21:L19::10400:3900:* ADD AN ENTRY AND MOVE8 PL3220 SPMX1ė:21:31440:"Sorry, you drew the largest Sound Image possible.":30500::10400: CO:X,Y:PI%(0,SP)CO(SO128):PI%(1,SP)X:PI%(2,SP)Y:SPSP1:SOįPLAY,(Y39)11,LE XXDX%$(K176):10300:OC:X,Y:3020K DI255:L0DC1:KDC%(L)128DIL:LDC^ :DI2553035v OC:X,Y:DIDC1ı DI9İ3200:3020 DI83300,3300,3700,3600,3500,100,3400:3020 INITIALIZE PICTURE& :SP1:X20:Y20:COCO%(5):CO$CO$(5)5):300:3900= PL1:SO(TL3):10400:K(1):COCO%(5):SP1J OCX,Y)c K(0):SC0:CC1:15 L01:X,Y:K(3):K96128KK32 K175K191 K128SCSC1:SC20CCCC:CC15:SC0 L(K128)::K175K187TL1COCO%(K176):CO$CO                          !                                                                     ! " # # $ % % % $$ # # " "" !# $ % % % $ $ # # " " " ! !                                                                 ! " #                              l-$ ! " # # $ % % % $$ # # " "" ! !                            NDARD ERROR PROCESSING (HI-RES)B% }ZE(222):ZN(218)(219)256Z%}(15):ZE1532110%}ZUĦ: ZU IS THE USER PROCESSING FLAG (FOR DOS ERRORS)%(} USERS ENTRY POINT (WHERE THE USER JUMPS BACK TO)%2}(12):CO,0,89&&<}ZE2ZE3ZE7ĺ"Please c,89:"Do you want to try again? ";:INP,(3,"YESNO"),ZN$:ZN$(ZN$,1):ZN$"Y"ZN$"N"31010$,yZN$"Y"ĺCL$:CO,0,89:"One moment please..."::901,0:RNH,"SOUND IMAGES"$6yVSP:CL$:CO,0,89:"Getting the menu..."$@y901,0::RNH,"MENU"%} STA#=w"Press SPACE BAR to continue";e#Bw16368,0:16384,128:ZP(16384):ZP155ZFZF1:ZF231000#LwZP160ZP14130530#Vw1:868:1::ZV:ZH:16368,0:#ySTANDARD ENDING ROUTINE#y54915:(903)Ĭ#y19000]$"yWIND:CL$:(15):CO,06298,0:16301,0:"JA"0uSTANDARD SPACE BAR ROUTINE (HI-RES)h":uBOX,28,181,256,191,4::SPACE::"$w STANDARD SPACE BAR ROUTINE".wZH(36)1:ZV(37)1:ZF0"8w24:1:868:7:(64435)6ĺ"PRESS ";::"SPACE BAR";::" TO CONTINUE";:30530":EDGE,ZAZT1,ZBZT1,ZCZT1,ZDZT1,ZT,ZE:A!>UNDERLINE Z$!>CA$;:GCP,Z1,ZY:Z$CA$;:GCP,Z2,ZY:3:Z1,ZY10Z22,ZY10:Z1,ZY9Z22,ZY9:!8JINITIALIZE HPRINT!BJ24576:AFT,1:!JINITIALIZE LO-RES SCREEN"JUNHOOK:31440:16300,0:1( 2PRINT Z$, INVERSE FIRST CHARACTER 2CA$;:GCP,ZX,ZY:BOX,ZX,ZY2,ZX10,ZY8,3:CO,ZX2::(Z$,1)CA$;::CO,ZX13:(Z$,2);: 6DEFINE AN HPRINT WINDOW 6CA$;:GCP,ZX,ZY:WIND,ZX,ZY,279(ZT4),191(ZT4)::CO: :MAKE A HI-RES BORDER/!:"M";::"usic ";:SOĺ"on ";4(TL3SOĺ"off";G(30:"? Help";M(d)ONE MOMENT PLEASE)CL$:CO,0,89:"One moment please...":0*TEXT SPACE BAR :*24:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16368,0:16384,128:16368,0::COLOR TEXT&F(22:8:11);:8:CO$:>(UPDATE INFO WINDOWf(21:::TL1ĺ"C";::"olor: "CO$;(TL3Ė20::"L";::"isten";(30::"S";::"top"(24::"D";::"raw ";:PLĺ"on ";(PLĺ"off";(12::"E";::"rase";:TL3Ė20: please...":LO0:ZU0:LOPA(107)>`ZU0:RFL,PI$".TUTO"LONjEPQI%(0,0)io:0:L039:0,39L:ot'MOVEMENT SUBROUTINESt'FIX CURSOR POSITION WITHIN MARGINS~'XLMXRM'XRMXLM'YTMYBM'YBMYTM' <(UPDATE ":13000:" - ";:14000:"see color chart. Choose colors by number.":WIND_30000:19100:ev<DRAW BORDERF4:LM1,RM1TM1:LM1,RM1BM1:TM,BMLM1:TM,BMRM1:CO:8LOAD A PICTURE[ZE0!\ZPA(S):CL$:CO,0,89:"One moment0003f<ff<cc>cc>>cc>0000000t` ```````fffffff~l6iɆpq{0`0``0`00000`Z<`~~6    D@HC@DC@p|\\KWB\A|BpA@JBs3?<x`~o++/..>x~/+k{BGC zjj++/>``BAPAAGW}uuWWDUHD DQDsw?OM=uBW_|pDBKABUD (@pH"bx:&# #"j**j~D嵭`K`DBAPGID8Ax~_ =D5=C BE6DA@AA@k `xXX__XX_WBV^BXxB`\@pzL*U}FU}eqdq|_WHUAu}V?zjM*Ajz::>[`y_}uFUu}] @p|oK""Hs?E*+/./k++zE`Ay`CA~xRA=uEUDWCUAW_B\A|Dp|?Uzjjkj.*.jjkjzD]H{C`bA@Ap|\E@|@]{+*.*o./k+k+/>B>:zjH*I*jz>X`aB}uuCUCUBu}BaZ|EBICYCBAJYCAABAAJYCAABAAAEBYCBAC*BYEABACuUUuBYCFB**CYGBFUUCQG@CBABCCOx`a @p0pp+D*+/|@\x^Wy?=`UA@ p0z**jz:>?{jC*j~``xXX_UU_Yx`}u}ajz>>zjz?@|dB`xoAC6FDBABDCM~vvNV~NVv~PADg6DB`xBDDf~^x``Z|// <|OCp003sCs?/ """Y~DE_xB`~GEDq~Yb"Hb" ""|[dqED\ydD~\|/+*+b">8>""]}CU_ydDx] >zj**+/|b" / ,/++**j{_@|_LUu= D@pp||pU`+J*jz~E`x?+B*Kp|\_FW_LU W@@pp|\_WCUu?KzzjO*z>/C+G*zSC}TUu5= YjI* :j**jjz_}JUAWez**zz**?z*jh=uCUmB6B`x^~`VUAB|WQBxXODXMD`~VQ VEAKZGDbꪪioB[6G|\|pp@oB*+/>x`J`x88xx[}EUW_|BpB@p|_WUU}]zjjD*+/B+*jzdBssOCCB?RAgayD~WLADp|nR6G@Ep@mABx```xDx`^?GF?^DBAcpGe`K~`b@pN|U`xx``CA`xPUBTUZBpBCp@WE`BC~BDxT<|C?C|@FpTDDF~`U p@FHV ꪪNQApFEK?RAHADIUAx```x>'iz`:zhb""B`O?|1tqDQGSGOL=t1tDDQB|Lzxcic '&&::****[uEUW}DDuUUUUWUU[zE* +/~h"**+C*^GUtQwEU`H*k?E*~`GUAWEUu?a.zJ*zdUGUu?WxC8x``E`*D*jzY=uCUW_|pp|_Wu]WUUu=_~jjB*A;:nkza@p|_CUu=gCe6M|LxB`C:j*/?>x`]BUWtQDGO|uUW]uUUW_|[D*+h""z+*+>j*/z**`ZFUtQDUW}UU_uUW}UU@YB*z/jj+?x:B* **?j*/z*+`Y UU_uWWUUuEU UUUUUUZ~E*c 'zjj/**                           z!#00 ͮ"ˮɮɮ" ŠǠ ̮ʠ ̮ʠĠӤˠ ήҠ!"ˮԠ Ү! ĠӮԠ ĠҠ&̮ʠıˠIJˠ  äˠ үҮʭ ŮϠήͮ ٮԠĠӠĠӮ-ŮԠٮϠ Ġנ$ĠӠ&׮ԠĮϠ̮ʠүҮʠŠˠĠӠϠϠ ՠŠԠ5ԮʠԮʠL+ɐst+Lɯtd 8ɀ   Lޤȱ:,Әe湥 vHuH L`stL<=ʱD>` <=T,34,Y,37,F,33,G,32,H,32,V,38,B,35,N,39Y,37,F,33,G,32,H,32,V,38,B,35,N,39,33,G,32,H,32,V,38,B,35,N,39,391,0,1,-1,0,-1,-1,-1,-1,0,-1,1,0,1,1,1,0,0+COLORS+0,1,6,9,11,13,12,3,8,15+COLOR NAMES+BLACK,MAGENTA,BLUE,ORANGE,PINK,YELLOW,GREEN,PURPLE,BROWN,WHITE',R,36,*j17,H,Y,T,R,F,V,B,N,G,E,,?,C,M,L,D,SC*oX & Y MOVEMENT DELTASr*t1,0,1,-1,0,-1,-1,-1,-1,0,-1,1,0,1,1,1,0,0~*COLORS*0,1,6,9,11,13,12,3,8,15*COLOR NAMES*Black,Magenta,Blue,Orange,Pink,Yellow,Green,Purple,Brown,White"+R,36,T,34,(955))=)ֈD2$",S"((956))",D"((957))",V"((958)):X)STANDARD YES-NO INPUTn)(1);:GCP,ZX,ZY)CO,ZX,ZY:CEL:INP,(3,"YESNOyesno",1),Z$:Z(Z$):Z$(Z(Z96Z123)32):Z$"Y"Z$"N"36020))`DATA AREA)eEDITING COMMANDS(TE SWITCH MESSAGE (HI RES)?(ڄSET,(DR2)(DR1)2:D1$D2$ık(䄺(12):CO,0,89:"Please insert your ";(DR1ĺ"data";:DR2:34050("program";:DR1(" diskette.":30000:(GET DRIVE STRINGS)̈D1$",S"((953))",D"((954))",V"(#"ZN".":32150 'i}30000:31000C'n} PROCESS BASIC ERROR (HI-RES)S'x}ZL53856ZEe'}ZE25531000'}ZM01:ZP(ZL):(ZP);:ZM(ZP127):ZLZL1:ZM:" error at line #"ZN"."'}:"Please report this error to MECC.":30000:31000(ЄDISPLAY DISKETheck your diskette parameters.":32105v&F}ZE4ĺ"Please remove the write protect sticker from your diskette.":32105&P}ZE8ĺ"Diskette bad - drive or format error.":32105&Z}ZE9ĺ"This diskette is full.":32105'd}"DOS error number "ZE" at line SS ERROR BY RE-BOOTP }:BS(P(P(999))1)16:BS1BS7BS6:FIND BOOT SLOTX }BS tP(X)(X)(X1)256Z SL(P(P(999))1)16:VO(P(P(999))14):BOOTED SLOT & VOLUMEs RFL,"MECC$$DISK"LL DC(LL36): DRIVE SETUP CODE 953,SL:954,1:955,VO:956,SL:957,DC:958,254 DC3āZ02:956Z,(LL37Z):  }PROCE,133,0,44,129,192,96,04 Z768799:P:Z,P::768A (0)ı  24768:CO,0,89:"This product needs 64K RAM to operate. This Apple has only 48K.":SPACE:(12):32000 PREPARE FOR DISKETTE SUPPORT LL704:LOAD LOCATION FOR MECC$$DISK $$DISK"7 8ALSO LOAD ANY OTHER ESSENTIAL BINARY FILESQ B3000:HARDWARE CHECKy L975,255:SOUND BYTE; DO NOT DELETE V4000 RNH,"MENU" CHECK FOR 64K 44,131,192,44,131,192,173,0,208,73,255,141,0,208,205,0,208,208,4,169,0,240,2,169,1Da ::(978)157Ģ12:"THIS PRODUCT NEEDS AT LEAST 64K TO RUN.":16384,128:16368,0:32000 230,64:D$"BRUN LOGO":16304,0:16297,0:16299,0:16302,0 $D$"BRUN SOUNDUTIL.OBJ" .RFL,"PPRINT.OBJ":RFL,"UPPER/LOWER.OBJ":RFL,"SOUND IMAGESZ DISK: SOUND IMAGES-PROGRAM: HELLOGCOPYRIGHT MECC, 1984f(LAST UPDATE: 84/06/06 SPMxMAIN PROGRAM3200049281,1:D$(13)(4):P(X)(X)(X1)256 (65435)6ĺD$"PR#0":D$"IN#0":16372,0:TURN OFF THE 80-COLUMN CAR     LpD l,lD pBN@DN@AA@PLP@@EDHP E~N~~N~A*B  B pp*D,/B,/D,?`N@`?PAtIpAqptUE xxxUPBEEP@N@A~L* E  **CB 8HH8* !+L +! A?`@L@`P      &L`L 䎱 掲`SEDDFMRFRNđ֑aϒ `>? :p">? %p gg^h_^`ȱ^Șe^^_iȑ^^_@A   䔠 `@ i @ ȱ C`,X` {ݩD ^ D`DED`>? >&g eL׭<7=8X<=LXLX<= h$)g>? pg G 8`L38ghegiȱehj8ȱL< = <ȱ=8<=8ȱ G` M?> M=<8?+ e<#8>>> g R>P>Q?=<`L #H h` VDEBC@A>?  { RPgLl`N bDEBC@A<ȥ?< <<= H <=ÑI<‘<đÑ` ,, ,` , , L( 0CBnJ*NGAGsBcB6cCtwutJUNGAGsBsB63CCnJ*NAsBc600`CFJUOAs``wBfgC{9{{ J*B MBlLC8W0W8JUBBgBlgClk {|J*BBC AC~~|~~JUqCFJ*NGAGs00{C3ACFJUNGAGsvC6ACFJ*NGAGsBcB6f`CBwJUNGAGsBBCFB;FJ*NGAGsB`B0`Ca]a}}JUNGAGsBgB0gC.5B;J*NGAGsBsB63Cwx{JUNGAGsBs600p0D@CAAGA <B~BBBYCFJUNGYByEx03B?^GQF@`Dp`@HB@@_BY_CFJ*NGYNCL EB]GOG|L|HBFACFJUNGYDg`dEBs]GOFBAQB oBlOCFJUNGAGP?D@B`ABpAB8ABAABBLBlOCFJ*NGAGOaHBAQBBOB`OCFJUNGAGQ|0TAA ~~B@@oBLOCFJ*NGAGOE@`pG`@GBBYCFJUNGV?C??BAGg]GOGCBB3CFJ*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)     n will ask you for the slot, drive, and volume where your "T$(U1)" diskette will be located. ";k*30000q** SPECIAL DISK DRIVE SETUP'+CL$"Special Disk Drive Setup"CC$:::"Your PROGRAM diskette was started from:"::" Slot: "(953):"d at the top of the screen.":c*"Most users will have either one or two floppy disk drives. ";*"If you have a different setup (such as a hard disk or more than one controller card), use "QU$"Select special disk drive setup."QU$`*:"This optio$:CO,0,89:"You may now replace your write-protect tab.":30000Fs'v* HELP SCREEN FOR CHANGE DISK DRIVE SETUP*CL$"Change Disk Drive Setup Help"CC$::*"This menu asks how many disk drives you are using. The current selection is displaye? "CA$;:GCP,ZX,ZY:CO,0,180:"Press ? for help.":CO,ZX,ZYjB'INP,(1,"-14?",1),Z$:Z$"?"İ10900:10010}G'(Z$)410099L'SC(Z$):SC3İ11000Q'S36,SC:T0:ZD1:WP1:34000V'D$"BSAVE MECC$$DISK,A"S",L$28"D1$@o'6000:35000:29800:WPĺCL39)")":WIND0' CHANGE DISK DRIVE SETUP'CL$"Change Disk Drive Setup"CC$:8000::"You may:"::" 1. Select one disk drive":" 2. Select two disk drives":" 3. Select special disk drive setup"'" 4. Make no change";$':"Which numbertup selection is:":(S36)18020,8030::" one disk drive"::8099pT:" two disk drives"::8099 ^" "CA$;:GCP,ZX,ZY:WIND,ZX,ZY,279,191:"a special disk drive setup ";:"(data diskette in slot "(S37)", drive "(S38)", volume "(Scant changes to it."!30000:<p SET PAGE 3 DISK VARSxzZC(S36):ZC3Ĺ956,(S37):957,(S38):958,(S39)ZC3Ĺ956,(953):ZC2Ĺ957,3(954)ZC1Ĺ957,(954)@ DISPLAY CURRENT SETUP MESSAGEIJCO,0,27:"The current se will prepare a diskette to hold "T$(U1)" created while using "N$".":"Whenever, you need to make copies of a "T$(U1)" diskette, use "QU$"Copy a "T$(U1)" diskette."QU$" You should make backup copies of a "T$(U1)" diskette every time you make signifiisk drive setup."QU$" ";"The rest of "N$" will use this information to make multiple disk operations as easy as possible for you.":30000FCO,0,27:CEW:CRĺ"If you need a new "T$(U1)" diskette, select "QU$"Create a "T$(U1)" diskette."QU$" Thise disk drive setup, and to ";:CRĺ"create and ";S {"copy "T$(U1)" diskettes.":"The current disk drive setup is displayed at the top of the "QU$"Diskette Support"QU$" menu screen. If that setup is not what you are using, select "QU$"Change the dINP,(1,"-1"(4(CR))"?",1),Z$:Z$"?"İ1900m 8Z$"?"Ĵ(Z$)((CR)((Z$)1))10000,15000,20000,31030w B1000 l HELP SCREEN FOR MAIN DISK MENU1 vCL$"Diskette Support Help"CC$:::QU$"Diskette Support"QU$" allows you to view and change thCRĺ" 2. Create a "T$(U1)" diskette" %" "2CR". Copy a "T$(U1)" diskette":" "3CR". "CA$;:GCP,ZX,ZY:WIND,ZX,ZY,279,191:CO,ZX:"Return to the "N$" menu":WIND ):"Which number? "CA$;:GCP,ZX,ZY:CO,0,180:"Press ? for help.":CO,ZX,ZY/ .S:38000:N$ZN$:35000:29800 U11:T$(0)"program":T$(1)"data":T$(2)"backup":T$(3)"spelling":T$(4)"results":T$(5)"word lists"  MAIN PROGRAM WIND:CL$"Diskette Support"CC$:8000& $:"You may:"::" 1. Change the disk drive setup":2):CC$(3):QU$(34):S704R q:D$"BRUN IDENT.OBJ":K64((0)0):64K AVAILABLE? xD$"BRUN PPRINT.OBJ"D1$:D$"BRUN DISKUTIL.OBJ":RFL,"UPPER/LOWER.OBJ-A$95A0" RFL,"MECC$$DISK"S:LOAD DISKETTE FILE AT BYTE 192 OF INPUT BUFFER, S=704 901,1:ZS3 DISKETTE SUPPORT8PROGRAMMER: ANDY HOLLENBECKU(COPYRIGHT (C) MECC 1984t2LAST UPDATE: 84/11/01 CPEc953-955 MUST BE SET BEFORE ENTRYd901,0e32000f16128:230,64iCR1: USE CREATE OPTION? nD$(4):CA$(1):CL$(1                  p-͂ooo _pLnõoo^`No ݤp 輤pppp߹ppo _po , g 掏p ,o vpp) p pp)p ߅ l o ) L{Bp HHHp hhh `+ hR("  h5880`L pppop ( vpLRo Ln {$0! 掐p ,L)o k {$0L#oNo 千oLoo n|-?npLn Up no n U mhhhhhhhhh,lp` ֩PyQ ALŠҠ僁'i(imiʈ*i+i &')iq&,iL6i N8`f `.f`mm ` ң Σ  h @)`,` sj ެLqj,Hl  !l  h!l`L, HHHHHHHHH k l jlNO,ɍɠ ɛ8nl,lPݩ'i(i)i hmHihʍ*i+i,i L8iL Sk TkMUkSk &g<>=MUk?'<>SkSkTk` H g Rh PQ`L     խ)?` `& ,jQ&-0iQ&&)i)i,i`/i-0i/i)i &g&'-i ,jQ&-/iQ&&)i)i,i`*U U*ժ gj')JMgj)1i Q&,5iP 0=lj`hj`J&)` `L3f̙jj ߅$0Hjj LbLvjj j` hH)8 qȥq8)h` g R  QP (`L h`L)  @ 5ij1i3i j2i4i'i(i g-i j/i*i+i g.ij0i-i.iB)i &g&'-i ,jQ&-/iQ&&ȭ1i.i ,jPhHhhh hJ` &eeieh ghIiwhi 썼h &gmh﬽hMhwhPjjjjjjj0jj) h0ȱjhjhhУ`8pPL2f -`,f`'im(imʈ*i+i)iʎ,iL6i Kggg`gg ggg`g Kg gggg`ggg8pg.g(gggmgg`8pgJJJ) }gggmgg`((((PPPL de80 " Tfm8h)` dem88eLf` deme` d8` f@ f f f`Lc dff`) ``fʽ`) ` `fH`mS` dS`)ae``e hae g`e}`mf8ff`f` dLc,0*`%f 8fHfJhj`mfff` c d` c dI``f`emfff`) ffffffO,0 `)  d`f(`HHf,Pf88`f d fhLcfHfHff,P d fhf8hfffffff``S`S```f穀f f`f3f'ff `ɀ   LX8e湥 qHqH L`@ @ʩ WRPT` J  dȱȱȱ` hfH) #,f h`` fffffffh`f fS```emffff  2f%%h $20 LZc $ aHaH`daemeWeeeef1fSflffffff(bb d (cf hf gNOH (c h f ghH ,aɈ.hH (cb h) e f g (c fbbh`˅o 8````L`bbbbIq$% `@ GaLa6 ,fLcLmfPa bHaa,aaɠ,wa ` a欇aah`ɀ)?  @IH (c$ d f$%0 d       TCAaqaACTAPLPtFpDqpt|L|@N@* BBA *A*B  B pp*~L~@N@@aN3a@`0L 0`AD|I8A98|D?`@L@`?@a?L?a@POANpNpPpL`p xLpx A0`L@`0PpL`!##!##!( UEA0BpA0AU?`O@?*P*APTFDAT* E  *`0N0`Aa=L=aAA xLpx *GB*PLPPOATPxPxPFTAAULUAA*GE?* N pL`pA* A  **G|DL|*tLpt|N|03DUA*B(|(F@A*( L (0`L@`0pN p*D|E0D*APH@CDDCPUG 33?33UpLpPUDJUA( "r"r"F (*L(*PNL*P*AU@@B @@UUE xxxU|Lx|~O~UPUA`0L0` (E N xUPUA0`L@`0*G~>BA*x L xP*DxxxXD*APEeEeEFPTLPTPCNfCUDacca`acDUA*BB $$**E`D0`*C~L<~CN*DD*AAAULUAAPE@GB@GFGPN0N`0UD3L |UT!q!q!FTU@@EBA@U|L8|AA * J JG * (F D! ( *BB *@`N2`@*LA*AUBB 8HH8UTEFaTAa?L?aAPUPUABzL8zB* E  *PN0*P*ANPLPpL`pxa1L1aPE@ ACCACCAPUBB 8HH8U@@QLQ@@LAP( FDB (Bb>L>bB*G ~>~*A xLpx U@@EB@@UPLpLpA* p p FA* *L * pL`p( EFB (PAU@@B@@UUG|D F@`N0`@@`N0`@@`N0`@@`N0`@@`N0`@AEg#A7EOOOOApC`lBblC`pPOOpL`pATAaAaAFTAC^L^CA0`L@`0P|L|A*BB$$**Gxxx*( CCG (?`N@`?@N@A LE .#!PAx L x@N@UD  DUF|L<|FAP !/C>^^C/!! (E !E ( NAAc>L>cAUEnBFBNEU|L|PAP*EUBTHE*@N@?`@L@`?AN0PC@YjijjC@PNCNJ *P*APGGGPUGBU*HEx* xLpx UPUA*BB 8HH8**L(*PL@S~L~* N *ATLPTUE|DL|Ux N x?`@L@`?PA*(|(|(F@A* hF`Da`h PpNpAPH@ CDDCP|L~!#.E 33?33*L~pL`p*DED*AUB  B ppUTLPT?`@L@`?|L|UPUA hI`Aa`h *E xxx*PLP@N@*P*A~N~PE@ ACCACCAP*H 33*`1L1`UPUA?`N@`?( FDB (AAULUAAP (L ( @N@x L x*DD*APH@ ABBAPTEaD1aT`1L1`PUD??DUA( "r"r"F (* EB *PAc>L>cA*DpppD*AU@@B @@UPLP xLpx PUDADUAA *L * *GB $$UpLpUPUA* H  *( EFb (Bb:L:bBP*P*Ax NxU@@E @@UPF|L8|FUPUAP *L * pL`pN*P*AACVLVCAUG~>BAU~L|0`L@`0UDp00pp00DUA*B>B ` `*FDEPDtLptDUG ~>~UAA + K KG + *GB*N (L ( AUBB 8HH8UAAULUAA0N`0TEq11qB1TTNTAA*L(**G|DL|*( BbBbBE (* EBA *O*AU(|(|(F@AUPF@DA@PUCu,,I,`915:(901)Ĭ;yWIND,24,33,251,191:ZU0:DDDR2İ34000"y:CO:CEW:CO,0,80:HSP,1::"Do you want to try again? ";:INP,(3,"YESNO"),ZN$:ZN$(ZN$,1):ZN$"Y"ZN$"N"31010'yQE0į:QE1,yHSP:ZN$"Y"įCO:CEW:6yWIND:VSP:CL$:CO,0,"SPACE BAR";::" TO CONTINUE";P=w(64435)6ĺ"Press SPACE BAR to continue";Bw16368,0:16384,128:ZP(16384):ZP155ZFZF1:ZF231000LwZP160ZP14130530Vw1:868:1::ZV:ZH:16368,0:ySTANDARD ENDING ROUTINEy19000:54:BOX,28,181,252,191,4:CO,33,181:"Press SPACE BAR to continue":16368,0kDuZ(4):Z141Z16030020NuBOX,28,181,252,191,4:16368,0:$w STANDARD SPACE BAR ROUTINE.wZH(36)1:ZV(37)1:ZF0 8w24:1:868:7:(64435)6ĺ"PRESS ";::$DISK"D2$:Z1:g>NZU0:CO:CEW:CO,0,75::"This is not a proper data diskette.";:30000:DR2:31000RASSURE PROGRAM DISK R30000RZU1:Z0:ZE0:ZEĺD$"VERIFYSOUND IMAGES$$DISK"D1$:Z1RZU0:0uSTANDARD SPACE BAR ROUTINE (HI-RES)K:u":NP:L1NP:PI$(L):(:D$"CLOSE":?8JINITIALIZE HPRINTWBJBOX:HOOK:AFT,1:uJINITIALIZE LO-RES SCREENJUNHOOK:16300,0:16298,0:16301,0:J NASSURE DATA DISKETTE*N300004NZU1:Z0:ZE0:ZEĺD$"VERIFYSOUND IMAGES DATA$RACTERe2CA$;:GCP,ZX,ZY:BOX,ZX,ZY2,ZX10,ZY8,3:CO,ZX2::(Z$,1)CA$;::CO,ZX13:(Z$,2);:6DEFINE AN HPRINT WINDOW6CA$;:GCP,ZX,ZY:WIND,ZX,ZY,279(ZT4),191(ZT4)::CO::UPDATE THE FILE:D$"OPEN"FI$:D$"WRITEPICTURE CATALOGZ:(" "(L),2)" "PI$(L)./.ZNP12040d.CO:::LLNP::CO,136:(" "(L),2)" "PI$(L)j/{/CO,0,ZB::/:GCP,ZX,ZY:ZBZY72/ZNP:" * LION":NPāL1Z:(" "(L),2)" "PI$(L):&/CO,0,ZB::2PRINT Z$, INVERSE FIRST CHA6ZE0:4+32040A\+D$"OPEN"FI$:D$"READPICTURE CATALOG":NPvf+L1NP:PI$(L):(PI$(L))12PI$(L)(PI$(L),2)p+:D$"CLOSE":.DISPLAY A LIST OF PICTURES.DD12050.:GCP,ZX,ZY:ZBZY72(40DD).Z(NP2)((NP2)(NP2)):L1Dİ34000"*DD(D1$D2$)İ20020L+FI$"PICTURE CATALOG":DDFI$FI$D2$a +DDFI$FI$D1$+ZU1:ZE0:ZEĺD$"VERIFY"FI$ +ZU0:ZE11100*+DDZE6įCO,0,130::CEW:"There are no pictures on this diskette.":ZE0:30000:NP0:/+DDZELOAD A PICTURE [ZE0f \ZPA(S):CO:CEW:CO,0,80::"One moment please...":LO0:ZU0:LOPA(107) ](PI$)12PI$(PI$,2) `ZU0:D$"BLOAD"PI$".SIMA,A"LO ePI$"LION.PERM"PI$"LION" jSPPI%(0,0) t *GET THE PICTURE FILE*DR1Dsee any of these? ";:36000:Z$"N"31000 CO,0,ZB::CEW:DDĺ"Type the number of the Sound Image or * for the sample: "; DDĺ"Which number? "; ZB1:ZTNP:37000:PI$PI$(ZN):ZN$"*"PI$"LION.PERM" 6200:100:30500::19000:2020 8ND"CC$:::"SHOW"CC$(15):PAUSE,20= 11000:NPDD31000 VSP:WIND,24,33,251,191:CO:CEW:"Sound Images Now Showing:":12000 NP0ĺ"Do you want to see the sample? ";:36000:Z$"N"31000 NP0PI$"LION.PERM":2040) "Do you want to :FP0:MX300:PI%(2,MX):QE0 LO0:D$(4):CL$(12):CC$(3):CA$(1):CN$(14):CP$(15):TM0:BM39:LM20:RM39:LE20:PI$(30) PA(S)(S)(S1)256:RNH,"IMAGESUTIL.OBJ":901,1 MAIN PROGRAM$ WIND,24,33,251,191:(5):CO,0,43::CN$"SOUC C:PI%(1,L),PI%(2,L):PI%(0,L)127įPLAY,(PI%(2,L)39)11,LEK :_ INITIALIZATION 34,0::16384:RFL,"BLOCK.FNT"32500:DFT,1,32500:AFT,1::RFL,"CURTAIN.SCR"16384 VSP  DD(902):DDİ35000:DR1 N0:XL0:YL0:CL0:P0u PROGRAM: SOUND SHOW5AUTHOR:SHANE MCCARRONOCOPYRIGHT MECC, 1984m(LASTUPDATE: 84/10/25 EJGy-320002SET,1:901,0:1000dPLAY A PICTUREiSP2ın::19100::22:20(PI$)2)PI$ L1SP1:CPI%(0,L):C127CC128          PLAY,(Y39)11,LE8 XXDX%(DI):YYDY%(DI):10100:L ERASE AN ENTRYX SP1ı| SPSP1:XPI%(1,SP):YPI%(2,SP) 0:X,Y:H TOGGLE DRAW STATER PLPL:10400: TOGGLE MUSIC STATUS SOSO:10400:COLOR BARSX::21::X20:Y20:COCO%(5):CO$CO$(5):10400:3900:I ADD AN ENTRY AND MOVEW PL3220 SPMX1ė:21:31440:"Sorry, you drew the largest Sound Image possible.":30500::10400: CO:X,Y:PI%(0,SP)CO(SO128):PI%(1,SP)X:PI%(2,SP)Y:SPSP1:SO5K187COCO%(K176):CO$CO$(K176):10300:OC:X,Y:3020g DI255:L0DC1:KDC%(L)128DIL:LDCz :DI2553035 OC:X,Y:DIDC13800 DI9İ3200:3020 DI83300,3300,3700,3600,3500,100,3400:3020 INITIALIZE PICTURE.& :SP12İ34000 31030' DRAW A PICTURE^ 0:PL1:SO1:L039:0,39L::19100:3100:K(1)k OCX,Y) K(0):SC0:CC1:15 L01:X,Y:K(3):K96128KK32 K175K191 K128SCSC1:SC20CCCC:CC15:SC0: L(K128)::K17l be erased.":::"Do you want to save your new Sound Image? ";:36000X{ Z$"N"2500g~ LNP2450 LL1NP:PI$(L1)PI$(L): QF0 Z1: ENDING FOR DRAW CL$:CO,0,89:"Do you want to try again? ";:36000:Z$"Y"2150 DDDR000:2500&` CHECK PICTURE FILE FULLWe ((NP26DD)(NP4DD))NPNP1:QF1:Z0:sj L1NP:(PI$(L))12Ăt LNPĺ:CEW:"This picture file is full.":30000:2160Gy FD$PI$(L):CL$:CO,0,50:"If you save your Sound Image, "(34)FD$(34)" wile name with a letter.":2170CFL0:L1NP:PI$(L)PI$FL1:LNPcPI$(L)(12)PI$FL1:LNPs:FL2300:CEW:PI$" is already in this picture file. ":30000:2160SAVE THE FILE QFĺD$"DELETE"FD$".SIMA"  PI$(NP)PI$:6200:12ZįCO,0,75:"Do you want to save your picture for Sound Show? ";:36000:Z0:Z$"N"2500buCL$zCO,0,80:"What do you want to name your Sound Image? "CA$;:CEL:INP,(9,"-AZ -09",1),PI$(PI$,1)"A"(PI$,1)"Z"ĺ:CEW:"Please begin the pictur"If you want help while you are creating your Sound Image, press "(34)"?"(34)"."R::"You can give your picture a name and save it for Sound Show.":30000WDD2150\DR1İ34000a20020f3000:SP12500Yp19000:CL$:11000:2400:0,89:"One moment please...":901,1:RNH,"SOUND TUTOR"J DDDR2İ34000 901,1:CL$:CO,0,89:"One moment please...":901,1:RNH,"SOUND TUTOR" 4REAL MAIN PROGRAMSHCL$"Sound Images"CC$:::"You are ready to draw your own Sound Image."::::AGESUTIL.OBJ":903,1:(901)1Ĺ901,0:2100= MAIN PROGRAM CL$"Sound Images"CC$:::"Play with sound, line, and color to draw pictures."6 CO,0,100:"Do you want to learn how to draw Sound Images? ";:36000:Z$"N"2100:Z$"Y"Ĺ901,1:CL$:CO,URES PA(S)(S)(S1)256X FI$(50):DC:DC%(DC):L0DC1:A$:DC%(L)(A$):L DX%(8),DY%(8):L08:DX%(L),DY%(L): CO$(9),CO%(9):L09:CO%(L): 8L09:CO$(L)::L02:L102:KE$(L1,L),Z:AR$(L1,L)CN$(Z)CP$::+ BRNH,"IMTIALIZATIONU (4)"MAXFILES1":33700:DFT,1,33536:AFT,1:DD(902):DDİ35000:DR1 N0:XL0:YL0:CL0:P0:FP0:MX300:PI%(2,MX):QE0:QF1 LO0:D$(4):CL$(12):CC$(3):CA$(1):CN$(14):CP$(15):TM1:BM38:LM1:RM38:LE20:PI$(30):30 PICT,L):PI%(0,L)127įPLAY,(PI%(2,L)39)11,LE; :10400:V JUST PLOT THE PICTUREk 19100:::3900w SP2ı L1SP1:CPI%(0,L):C127CC128 C:PI%(1,L),PI%(2,L):: INITIALIZATION :RFL,"ARROW.FNT"33536 VSP INI$ PROGRAM: SOUND IMAGES7AUTHOR:SHANE MCCARRONQCOPYRIGHT MECC, 1984o(LAST UPDATE: 84/11/5 EJG{-320002903,0:1000dPLAY A PICTUREiSP2ın:19100::3900L1SP1:CPI%(0,L):C127CC128, C:PI%(1,L),PI%(2            ժЪժŢТŪժЪժբЪժŢТŪЪժЪժŢТŪժЪժժЪժŢТŪժЪժբժŪժѪŪՊժԪբժԪՊժŪժѪŢТŪŢТŪժЪժŢТŪբТժՊժŪժŪՊժԪըՊժՊժŪժԪŪբЪժŢТŪբժŪժŪՊժԪըՊժՊժŪժѪŢТժŢТŪժЪժŢТŪժЪժբЪժŢТŪժЪժժЪժŢТŪժТժժЪժŢТŪժЪժբժŪժՊժԪՠՊԪՊժŪժѪŢТŪŢТŪժЪժŢТŪբТժՊժŪժŪՊժԪըՊժՊժŪժԪŪբЪժŢТŪբժŪժŪՊժԪըՊժՊժŪժѪŢТժŢТŪժЪժŢТŪժЪժբЪժŢТŪժЪժժЪժŢТŪժТժժЪժŢТŪժЪժբժŪժŪՊժԪըՊժՊժŪժѪŢТŪŢТŪժЪժŢТŪŢТժ(Sound Tracks p|L|~L~AxL xF|L8|FTCOWWCTP?`@L@`?APN*E;E*PpLpAP0`L@`0UE5UREUPOALBNBA CC C LLGtH#88<~~<><<>'|<<|'><<>|<<| tժЪժŢТŪժЪժբЪժŢТŪЪժЪժŢТŪժЪժժЪժŢТŪժЪժժѪŪժժժժժժժժժժԪժŪըŢТŪŢТŪժЪժŢТŪբТժՊժŪժŪՊժԪըՊժՊժŪժԪŪբТժŢТŪբժŪժŪՊժԪըՊժՊժŪժѪŢТժŢТŪժЪժŢТŪժЪժբЪժŢТŪЪժЪժŢТŪժЪժժЪժŢТŪժЪժՠժժժժժժժժժժՊԪժŢТŪŢТŪժЪժŢТŪբТժՊժŪժŪՊժԪըՊժՊժŪժԪŪբТժŢТŪբժŪժŪՊժԪըՊժՊժŪժѪŢТժŢТŪ%67LHh0 8 hL          " " ! ! ! !!!!!!!                   %%%%%%%$$$$$$$$ $ $ $ $ $$ # # # # ######## " " " " " " " " " "-'' ' ' ' ' ''''''''''&&&&&&&&& & & & & &&&% % % % % %%   BZZTįCO,0,181:ZF1:"Enter a number from "ZB" - "ZT"."(3):37030g ZFįCO,0,181:CEW:CO,ZX,ZY:m Đ I Lᎊ}LH~}}~}}}}m}~}m}}}}}}}<=8}}<}}~}=~}T8}<}}=}A}e<}}e=}}}$}e<}}e=}͆} } {`LEDG}L  } ` (`L |`L RP|}RFH)%n|},|}p h" ֩PyQ AL|}h) `}}}(s |Lލ}}~}} L |Lލ}}} LH~ ʎ}} ^ Lᎋ} }}}}~} :}}} }}} :}}} }}} :Ή}0 | |L>|}3 |}}}~} W}}} W}}} W}}}~} W`}}}~} W}}} :}}} :}}}~} :}}}~}L:}Ά}}}~}}΀}}` g R  QP{L+{s{t{+{L~ɯt} 8ɀ   Lޤȱ:,Әe湥 ~H~H L`s{t{L}LF|}}~}iȪ}}} }}}8ʍ}} :}Ȍ}}}~}    +2PLAY,ST%(L,6),10,10:LL1:LSP1301512C616300,0:Z0616384,128:ZN(16384):16368,0:ZN155ZZ1:Z2310006ZN155Z0:ZN160ZN141Ĺ16299,0:614030+:ST%(SP,0)ZX:ST%(SP,1)ZY:ST%(SP,2)HC:ST%(SP,3)N1:ST%(SP,4)N2:HSP,2 R+.ER/.16000:ST%(SP,2)0:LSPE.ST%(0,5)012030U.N3512025.ZN(N1)0:N212įBOX,ZX,ZY,ZX69,160:12027.BOX,ZX,ZY,ZX139,52:12027.800.ST%(SP,5)0.2LI2L0:ST%(0,5)0130302CL$:110002800O,X112,QY:"eyboard "CA$;:GCP,X2,QY+"# Erase "CA$;:GCP,X3,QY:"L"CA$;:CO,X312:"isten "CA$;:GCP,X4,QY:"Return"CA$;:GCP,X5,QY:" to end" +BOX,X12,179,X19,187,8:BOX,X22,179,X29,187,8:BOX,X32,179,X39,187,8:BOX,X42,179,X5,187,8Q+qEF231000 vIN$RT$ī4000517000:N57020>900WPLAY,MN,10,10:7020k@GOTO MAIN MENUq''ZL1:Z1R(3):ZL5:Z2R(6):Z1:HCZ1:(1).5ĒZ2:HCZ2$'*SCREEN*HSP,1%+CO,0,180:QY180:" "CA$;:GCP,X1,QY:"K"CA$;:C? |Ȑ }` )J { ^_ ީJL &L|`L 䎱 掲`SEIMAGFCFKDUKNÀ~~ |`= ) 8`EDFEDB` 掼 g RPQ g RP€, ȱee {À€À },` { ^_ { ^_ ޭ<=>|ܦH)?hJ  |  J?L~ |&'&Ȅ`,&@ȱ@ȌM>N? } >`LHh`<=< DﭲABC H)?hJ v~ v~ B~?L} |&'&Ȅ}~|~`` {[>M?N@KALBICJDEEF { 媤^_   |)`L |  | J 0ޢ Jȱ<`  }}} <= <ȭ<ȭ<ȭ}<ȭ}<><ȥ?< <<= H <=}I<}<}}`}} ߅$0H}} LbLv~~|~q}~i)` v~ B~ v~0 +|{{`{{ g|{{`{ +| g|{{{`e|f|f|8p_|.e|(_|{f|me|{`8p{){JJ {{{{ .{ .{ n{{){{m{{`||<|=|>|?||| ||ڰ|` <=ʱD>`    z%ۅ6z7LHh0 8 hLw number do you want":"to "A$"? ";:ZB1:ZTNP:ZC1:37000:ZC0:]2 ONLY ONE PICTURE SAVED2"Do you want to "A$" picture":"number 1? ";:360002Z$"N"ZN$"":Z(ZN$):2ZN$"1":Z(ZN$):66NP1Z$"N":14020+6WIND:CO,0,160:C)" "(PI$(L),1((PI$(L))12))$.0.ZNPı{.WIND,139,20,279,191:CO:LLNP:(PI$(L))12ĺKE$" ";:LCLC1:12032." ";/(" "(L),2)" "(PI$(L),1((PI$(L))12))//WIND:22WIND:CO,0,160:CEW:NP113020@2"WhichPI$(L)::D$"CLOSE":.t.NP0įCO,0,20:CEW:CO,0,80:"There are no pictures on this diskette.":30000:Z0:.LC0:WIND,0,20,279,191:CO:CEW:Z(NP2)((NP2)(NP2)):L1Z:(PI$(L))12ĺKE$" ";:LCLC1:12012." ";.(" "(L),2 +DDFI$FI$D1$5+ZU1:ZE0:ZEĺD$"VERIFY"FI$I +ZU0:ZE11100Z%+ZE632040*+ZE6įCO,0,10:CEW:CO,0,89:"There are no pictures on this diskette.":ZE0:30000:NP0:4+32040\+D$"OPEN"FI$:D$"READPICTURE CATALOG":NPf+L1NP:'INITIALIZATION'16384'D$(4):CL$(12):CA$(1):CC$(3):CN$(14):CO$(15):RFL,"KEY.FNT"32768:DFT,1,32768:AFT,1:KE$CN$"!"(34)CO$$'DD(902):DDDR1:35000.'PI$(30)8'901,1:*+FI$"PICTURE CATALOG":DDFI$FI$D2$D$"DELETE"Z$".SIMA":1hSLIDE THE LIST BACKJrLZ:4100:ZNP4230j|LZNP1:PI$(L)PI$(L1):NPNP1:NP0ĺD$"DELETEPICTURE CATALOG"SEE A LISTCL$"See a list of pictures"CC$:11000:NP0ı12000:WIND::30000::CEW:"That picture is locked.":30000:40454200:NPįCO,0,20:CEW:CO,0,80:"There are no pictures on the diskette.":30000:15000:12000:NPı14000:Z$"Y"402015000:DELETE A PICTUREZ$PI$(L):(Z$)12Z$(Z$,2) you want to delete all of these? ";:36000:Z$"N"A$"delete":4020CL$:CO,0,89:"One moment please...":Z1:L11NP:(PI$(Z))12ZZ1:40164200:NP0ı4050A$"delete":1200013000:Z04050-(PI$(Z))12įCO,0,160NPLCįCO,0,75:"All pictures on this diskette are locked, and cannot be deleted until they are unlocked.":30000:CO,0,80:"Do you want to delete all of the unlocked pictures? ";:36000:Z$"N"4019EU1:12000:U0:WIND:CO,0,160:"Are you sure0ı 12000$ 13000:Z03040n (PI$(Z))12įCO,0,160:CEW:"Number "Z" is unlocked.":30000:3030 PI$(Z)(PI$(Z),2):12000:15000 14000:Z$"Y"3020 15000: DELETE A PICTURE CL$"Delete a Picture"CC$:11000:NP0ıt:2030, PI$(Z)(12)PI$(Z):12000:15000 LC((3DD)(25DD))įCO,0,160:"Only "LC" Sound Images can be locked at a time.":30000:2040 14000:Z$"Y"2015 15000: UNLOCK A PITURE CL$"Unlock a Picture"CC$:11000:A$"unlock":NPLOCK A PICTUREF CL$"Lock a Picture"CC$:11000:A$"lock":NP0ı 12000:LC((3DD)(25DD))įCO,0,160:"There are already "LC" pictures locked.":30000:2040 13000:Z02040 (PI$(Z))12įCO,0,160:CEW:"Number "Z" is locked.":30000 Lock a picture":" 2. Unlock a picture":" 3. Delete a picture":" 4. See a list of pictures":" 5. Return to main menu" ::"Which number? ";:INP,(1,"-15"),Z$:S(Z$) $DDDR1İ34000:20020 .VSP:S2000,3000,4000,5000,31100 81040 DDĺ"Three "; "Sound Images may be locked to protect them from being erased from the file. If unlocked again, a picture remains on the file until a new Sound Image replaces it.":30000} VSP,3:CL$"Picture Padlock"CC$:4:"You may:":::" 1.o PROGRAM:PICTURE PADLOCK>PROGRAMMER: S. P. MCCARRONXCOPYRIGHT:MECC, 1984v(LAST UPDATE:84/10/30 EJG232000MAIN PROGRAM901,0:10000: INITIALIZATIONVSP,3:CL$"Picture Padlock"CC$::::" ";:DDĺ"Twenty-Five ";         GCP,X3,QY:"L"CA$;:CO,X312:"isten "CA$;:GCP,X4,QY:"Return"CA$;:GCP,X5,QY:" to end":HSP,2 CO,0,142:"Special Keys"CC$:CO,0,180:"Press SPACE BAR to continue"CC$" BOX,X12,QY1,X19,QY7,8:BOX,X22,QY1,X29,QY7,8:BOX,X32,QY1,X39,QY435)6)1:230,32:DUN,"KEYBOARD"(AP)".PCK":230,64 VC$"KL 1QW3E4RT6Y7U8IO0P:AZXD":AP2VC$"KL 1QW3E4RT6Y7U8IO0P-AZXD" HSP,1:(6);CA$:CO,0,160:QY160:" "CA$;:GCP,X1,QY:"K"CA$;:CO,X112,QY:"eyboard "CA$;:GCP,X2,QYa "# Erase "CA$;::34200; nMD(Y)X(XY)Y:R(ZH)((ZHZL1)(1)ZL)R xPI3.142:EF0:QE0i }ST%(127,6),ZN(12)} ZN(2)1:ZN(4)1 CA$(1):CC$(3):D$(13)(4):CL$(12):QU$(34):BS$(8):RT$(13):ES$(27):CN$(14) CN$:VSP,4:HSP,26 AP((64 PROG:SOUND DOODLES3PROGRAMMER:K MCGRATHMCOPYRIGHT:MECC, 1984j(LAST UPDATE:84/10/22SPMvd32000e901,0:49281,1:RFL,"SOUND DOODLES.IMA"53248:DFT,7,53248:RFL,"SOUND DOODLES.PFT"33280:DFT,1,33280:AFT,1 i:(4)"MAXFILES1"   !!! `zDzED` &Lu`L 䎱 掲`RFRNSEPLAwwwzJw u`8ȱ>? y:p"z>z? y%p yg^h_^`ȱ^Șe^^_iȑ^^_zzz@A  z  y `@ i @ ȱ v`,X` {ݩD ^ DCz@zAz>z?z y Wx)y e,L׭UxPxVxQxXUxVxLXLXUxVx y$)yz>z? ypy G 8`LLy8ghegiȱehj8ȱLUx Vx UxȱVx8UxVx<ȭHw<ȭJw<><ȥ?< <<= H <=IwI<Hwz?z y  { RPUxQVx _xL WxyLl`Q ueDzEzBz<=`ve<<>8^v?=4=0>?`L(vL.v<0>?`LBvLHvLOv>?`L\vø{{ttlnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !  HwIwJw <= <ȭ<ȭuLuLz}y 8ɀ  Lȱ:,֘e湥 zHzH L`<=ʱD>` <=ZXST%(SP,0):ZYST%(SP,1):HCST%(SP,2):N1ST%(SP,3):N2ST%(SP,4):N3ST%(SP,5):PLAY,ST%(SP,6),10,10:hBN517030|BN0,12000,14000,13000BPFUFL118:ZN(L1)0:L1:ZN(2)1:ZN(4)1ZFL106:ST%(0,L1)0:L1:SP0:8JINVST%(SP,5)N3:ST%(SP,6)MN:SPSP1:SP128ı:CO,0,161:VSP,2:CEW:"Sorry, you made the longest Sound Doodle possible. Do you want to listen to your Sound Doodle? ";:36000:VSP,4:Z$"Y"ĺCL$:13000:BOX,0,170,279,191:SPACE:31000 >SPSP1:S"%#&#'#'"'!' '''&%$#"! $#"#$%&&&&&&& &!&!'"'#'#&#%#$##"#!# #######"!  ! " # $ % %!% !!!"""!!"## " " ! !    $$$$$        &&&&&&&%$$$$$$$ $ $ $$$$$$#"!    ]o-'&%$#"""!      #$%&& & & & & &     ՊժŪժŪՊժԪըՊժՊժŪժԪŪբЪժŢТŪՂժŪժŪՊժԪըՊժՊժŪժЪŢТժŢТŪժЪժŢТŪժЪժբЪժŢТŪժЪժժЪժŢТŪժТժժЪժŢТŪժЪժբժŪժŪՊժԪըՊժՊժŪժѪŢТŪŢТŪժЪŢТŪŢТժՊժŪժŪՊժԪըՊժՊժŪժԪŪբЪժŢТŪՊժŪժŪՊժԪըՊժՊժŪժԪŪŢТժŢТŪժЪժŢТŪժЪժժЪժŢТŪժЪժժЪժŢТŪժТժժЪժŢТŪժЪժբժŪժŪՊժԪըՊժՊժŪժѪŢТժŢТŪժժժՊԪՂԪժժЪŢТŪŢТŪՊժŪժŪՊժԪըՊժՊժŪժԪŪբЪժŢТŪՊժŪժŪՊժԪըՊժՊժŪժԪŪբТժŢТŪժЪժŢТŪժЪժժЪժŢТŪժЪժժЪժŢТŪբТժժЪժŢТŪժЪժբժŪժŪՊժԪըՊժՊժŪժѪŢТժŢТŪժժժՊԪՂԪժժŢТŪŢТŪ ՊժŪժŪՊժԪըՊժՊժŪժԪŪբЪժŢТŪՊժŪժŪՊժԪըՊժՊժŪժԪŪբТժŢТŪ           t(#x̄x 29,29,26,26,26,22,22,22,29,27,26,24,2234,34,34,29,29,29,26,26,26,22,22,22,29,27,26,24,22,"N"36020 ZÃ22,22,22,24,26,26,24,26,27,29,34,34,34,29,29,29,26,26,26,22,22,22,29,27,26,24,222}30000:31000-(1);:GCP,ZX,ZYCO,ZX,ZY:CEL:INP,(3,"YESNOyesno",1),Z$:Z(Z$):Z$(Z(Z96Z123)32):Z$"Y"Z$"N"36020ZÃ22,22,22,24,26,26,24,26,27,29,34,34,34,29,29,29,26,26,26,22,22,22,29,27,26,24,22:CO,0,89:"Getting the menu...":RNH,"MENU"2|y=y31035E}EPw }ZE(222):ZN(218)(219)256:216,0:32000}WIND:ZE25531000}(12):CO,0,89}"Error "ZE" at line "ZN" in SOUND DOODLES."}:"Please report this error to MECC."0003f<ff<>gccccg>>~~p` fffffffffl6iɆpqs 0 000000 0 0Z<|~~6"""""