' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`SE HANDLER (L54,240:55,253:1002:XV ********** INSTALL INPUT-ANYTHING ROUTINEg`X768839ujA:X,A:{t~ ********** INPUT-ANYTHING ROUTINE DATA 32,190,222,32,227,223,36,17,208,5,162,163,76,18,212,133,133,132,134,165@ 184䬠䮍䬠Ů׮嬠󺍍ŠӍ堭Ƞ٠ɭԠΠ̠ɭԠӠϠɭӠ٠ϠɭŠàō堠卭àɭŠàɭŠΠɭŠΠɭ X8,196,96,0,0,7,208,7,80,6,208,6,80,5,208d 05,80,4,208,4,80,7,168,7,40,6,168,6,40,5,168,5,40,4,168 :4,40,7,128,7,0,6,128,6,0,5,128,5,0,4,128,4,0,97,141 N 160,11,169,3,132,54,133,55,76,234,3,201,225,144,6,201,251,176,2,233,31,76,240,253 0,253201,4,208,196,96,162,0,189,210,96,133,255,232,189,210,96,133,254,232,16038,140,208,96,200,140,209,96,172,208,96,177,254,172,209,96,145,254,206,20896,206,209,96,173,209,96,201,0,208,233,172,209,96,169,160,145,254,165,255( &24,101,254,201,4,200,192,40,208Z248,96,162,0,189,210,96,133,255,232,189,210,96,133,254,232,160,0,140,20896,200,140,209,96,172,209,96,177,254,172,208,96,145,254,238,208,96,238,20996,173,209,96,201,40,208,233,169,160,172,208,96,145,254,165,255,24,101,254H33,254,232,189,210,96,133,253,232q189,210,96,133,252,232,160,0,177,252,145,254,200,192,40,208,247,24,165,253101,252,201,4,240,23,165,253,133,255,165,252,133,254,189,210,96,133,253,232 189,210,96,133,252,232,76,26,96,169,160,160,0,153,0,4,20165L@184,164,185,133,135,132,136,32,44,213,173,0,2,201,3,208,3,76,99,216J169,0,133,13,133,14,169,0,160,2,32,237,227,32,61,231,32,123,218,165T135,164,136,133,184,132,185,32,183,0,96,0 SCROLL!162,0,189,210,96,133,255,232,189,210,96,10:(4);"CATALOG"::K$"menu."X:"Press space bar to continue.":49168,0:49152,128b116041NP18(NP9):820(NP9):NP". Quit":X768839"A:X,A:,632,190,222,32,227,223,36,17,208,5,162,163,76,18,212,133,133,132,134,336):EQ:1230M21::958:"Do you really want to quit? (Y/N)";:49168,0Z" ";MM$(MM$,1)"Y"(MM$,1)"y"ė:1500:SF418:SF:" ":SF:1210I023:ML:768I,ML:I:54,240:55,253:1002:::49168,2,54,133,55,76,234,3,201,225,144,6,201,251,176,2,233,31,76,240,253(40,253XXrive.":"("(222);")"::1190x(1360)193(1360)211Ģ19:1:" ":2:1:" "EQ110:EY(16336)(16,164,185,133,135,132,136,32,44,213,173,0,2,201,3,208,3,76,99,216 169,0,133,13,133,14,169,0,160,2,32,237,227,32,61,231,32,123,218,165 135,164,136,133,184,132,185,32,183,0,96,0 ********** UPPER/LOWER CASE ROUTINE DATAB 160,11,169,3,13```IIIIIIIIIMMMMMMMMMVVVVVVVVVVVVVVVVllllllllllllllVVVVVVVVVVVVVVVVIIIIIIIIIIIIIIIIII````````````````````````ttttttt````````````````IIIIIIIIIMMMMMMMMMVVVVVVVVVVVVVVVVllllllllllllllVVVVVVVVVVVVVVVVIIIIIIIIIIIIIIIIII`````````````````````````󐐐ttttttt````````````````````````````````````````````````````````````````````````````````````````IIIIIIIII````````````````tttttttlllllll````````````````````````````````lllllllllllllltttt`````````VVVVVV`````tttttttttttttttt`````````VVVVVV`````ttttttttttttllllllllllllllVVVVVVVVVVVV````````tttttttt`````````VVVVVV`````tttttttttttt «{_:M    "'19FWn^^^^^^^^^]]]__________baaaaaaaaddccccccdffffefeehhghhghgjjiiijjkkkklkkmmmnmmmpopoooqrrrrrststttuuuvvuwwwwwwyyyyy|{{{{}}~~~!!!!!!!!!!!!!!!!!$$$$$$$$$$$$$$$$&&%%%%%%%%%%%%&(((((((((((((()))))))))))))++,+++,,+,++......-----00////0/00222212111333333345555555787877:999:<;<<>=>@?B!.?G:67/--"$#()%#ABC896# +12:@=>?7455,-()*  !!778:650,'#'(&(#((9:8:898.4254/,*-),*'.##%( ";:;>;7622.,'"(."%.588 &,8AKUYZZUNC0%$*3nBvC?5465:7 !%)+/379=AEIKOQUY[_cgkoquy     嬠󠱵à嬠ì堲堍嬠宬󮍠Š퍽報󮠠󮍍孍笠䬠󮠠䬠󮠠嬠亍Ǡ٠ӠÍǠ٠ӠōӠӠԠٯΩΠ嬠󮠠蠍ΠР󮠠堼ξ宍嬍ΠР栱宠΍䬠묍󮠠宠󺍍ϠՠŠҠٯΩ٠ @?`p~pp[(U*UA*U*uԪժժժժՊ @ [ժժժժժժdpO|`*U*U*U*U*U*p|~p|(U*U*U*U*U*S* @?p~px|ժժժժժ dOBT* @?p~Ap||xժժժՂ `|y #L ~`xCc- Uy(U*U P*U* >Ԫ"- U*U*U*uP*U*U*U*U*U }<_/" p@Pgp{?"dydw!<MժժժժժժdpO|`*U*U*U*U*U*p|~p|(U*U*U*U*U*S* @?p~px|ժժժժժ toBT* @?p~px|xժժժՂ `~}?~|C~axGFx- U9`  c` ` v`` ` v` `ݥ``8 ``+p|~p|*U*U*U*U*U*S( @?p~px|xժժժժժ pgBT* @?p~px|ЪժժժՊ @?~|>xaFaFF?p- U @?`p~?pxԊp L L L L d$?a 0LJLMLPLSLVLYL\L_`宠䮍ǠŠ͍栱ծӮ쮍嬠ᬠᬠᬍᬠ宍嬠à㮍䍍󮠠ŠӠ󮍍宠䬠㮍론塍͠Ŭ󮍍宠͠Šà             @p{?" NԪժժժժժ@ [ժժժժժժdpO|`*U*U*U*U*U*p|~p|(U*U*U*U*U* `AB@* @?p~px|ժժժժժ n_?BU* @?p~p|ժժժp}{  3 00C1c. Uz*U*U*U*U*U56N):CYZQ2:Q0ēCX,CY"T2:D:21=S10:"CALL 768,"X","P","R","L:768,X,P,R,L:1280:CS~S24:9:"<> ";:A$:(A$)131280S :21:S:3:0,0279,0279,1590,1590,0SSNUMX:TNUM(STADDSNUM256256)T(N1TNUM:CXZN:Q(STADDSNUM2562269,54:1280;R"USING THESE TECHNIQUES, AND ANY OF YOUR"hR"OWN, A GREAT VARIETY OF SOUNDS CAN BE"xR"CREATED."R768,13,5,2,13:768,14,5,1,13:N1450::768,13,5,1,13R:1280:::R1:N04:10,Y(N)269,Y(N)::3:R1280:1260SD.":12807Qj"HERE IS THE REST OF THE 'MARINE HYMN',"uQt"AND WHAT IT SOUNDS LIKE PLAYED ALONE.":X14:1300:1230Q~P5:R1:L13:1240:"NOTE THAT LEDGER LINES ARE PROVIDED WHEN";Q"YOU ENTER NOTES HIGH ON THE SCALE." R1:10,48269,48:10,54NG OR REPETITIOUS TUNE,"EP."YOU MAY WANT TO PUT IT ON TWO OR MORE"qP8"SCREENS, LIKE THIS;":X13:1300:1230PBP5:R1:L13:1240PL"NOTE THAT THE AVERAGE LENGTH OF A NOTE"PV"LINE IS A MATTER OF CHOICE, HERE, LONGER"; Q`"NOTE LINES ARE USE"THIS IS BECAUSE THESE WOULD NOT BE"QO"EASILY DISTINGUISHABLE ON THE MUSICAL"nO"STAFF PROVIDED.":1280O"HOWEVER, YOU MAY WISH TO ATTEMPT TO ADD"O"SHARPS OR FLATS IN MODE ONE, BUT YOU"O"MUST DO IT BY EAR.":1280P$"IF YOU HAVE A LOE.":X11:1300:1230+NP2:R1:L30:1240WN"HERE IS A TUNE THAT IS HIGHER ON THE"vN"SCALE.":X12:1300:1230NP1:R1:L85:1240N"NOTE THAT FOR THE SAKE OF CLARITY,"N"SHARPS AND FLATS ARE NOT INCLUDED IN"N"MODE TWO.":1280$O;";:1280.MfN327:X(N3):768,10,X,1,1:bMp1280:"OR ADD ANOTHER SOUND AND SOME FLASHES,"Mz"AND YOU GET THIS.":1280:210:1280M"SIMPLE MUSIC CAN BE REPRODUCED BY"M"ENTERING IT NOTE BY NOTE FROM SHEET"N"MUSIC. HERE IS AN EXAMPLHAT PLAYED IT AT EACH";KL*"OF THE PITCHES, 1 TO 9, CONSECUTIVELY?":1280xL4"A LINE LIKE THIS WOULD ACCOMPLISH IT."L>"890 FOR N = 3 TO 27:X = INT (N /"LH6:"3): CALL 768,10,X,1,1: NEXT"LR1280 M\"AND WHEN EXECUTED WOULD SOUND LIKE THISX10:1300:"TAKE THIS FOR INSTANCE."VK"ORDINARY TECHNIQUES DON'T YIELD ANYTHING";K"PARTICULARLY INTERESTING.":P5:R3:L20:1240KP9:R30:L1:1250K P2:R20:L3:1250K"BUT WHAT IF YOU MADE A ROUTINE IN YOUR"L "APPLESOFT PROGRAM T HAVE GUESSED"?J"THE PATTERN FOR A MACHINE GUN COULD LOOK";[J"LIKE THIS?":X9:1300rJP3:R40:L4:1240J"OTHER SOUNDS CAN BE BASICALLY SIMPLE,"J"BUT REQUIRE INOVATION IN THE PLAYING IN"J"ORDER TO MAKE THEM SOUND RIGHT.":1280%KE INCOMING SHELL YOU HEARD"BIl"EARLIER, I USED THIS.":X8:1300XIvP2:R1:L8:1240I"FOR SOME SOUNDS, IT IS LESS OBVIOUS HOW"I"TO LAY THEM OUT. TRIAL AND ERROR TAKES"I"ON A GREAT DEAL OF IMPORTANCE.":1280J"FOR INSTANCE, WOULD YOU* 500: FOR"0H06:"Q = 1 TO X: NEXT Q: NEXT N"aH:N110:768,7,1,1,1:X(1)440:Q1X:Q:NHD1280:"SOMETIMES MOVING THE SOUND UP OR DOWN ON";HN"THE SCREEN CAN MAKE A SMALL BUT"HX"IMPORTANT DIFFERANCE IN THE SOUND.":1280Ib"SO, FOR TH:12404G"A SIMPLE PATTERN CAN ALSO SOUND LIKE A"^G"BIRD.":X7:1300:P1:R10:L1:1240G"IF YOU WANT IT TO SOUND MORE NATURAL,"G"INTRODUCE RANDOM PAUSES LIKE THIS;":1280G"590 FOR N = 1 TO 10: CALL 768,7," H&6:"1,1,1:X = RND (1) TER COMPLEXITY GIVES MORE":F"POSSIBILITIES.":X2:1300QFP1:R10:L1:1240gFP9:R7:L1:1250uFX3:1300FP2:R15:L1:1240FP1:R20:L1:1250FX4:1300:P4:R8:L20:1240FX5:1300:P1:R1:L50:1240GX6:1300:P1:R1:L30ED TO INVOKE IT"8EJ"FROM AN APPLESOFT PROGRAM.":1280FETX1:1300qE^"EVEN THE SIMPLEST PATTERNS CAN GIVE"Eh"INTERESTING EFFECTS WHEN REPEATED"Er"RAPIDLY.":P1:R10:L7:1240E|P4:R10:L4:1250EP9:R10:L2:1250F"OF COURSE GREAK"1D"UNDER THE FILE NAME 'SOUNDS'. YOU WILL"_D"BE SHOWN SOME USEFUL TECHNIQUES TO AID"D""YOU IN DESIGNING YOUR OWN SOUNDS. FOR"D,"EACH SOUND PLAYED, YOU WILL BE SHOWN"D6"WHAT THE SOUND LOOKS LIKE, AND THE"E@"COMMAND OR COMMANDS US6300,0:768,10,N,1,1::KC:5:"THE PURPOSE OF THIS PROGRAM IS TO SHOW"xC"SOME OF THE CAPABILITIES OF THE SOUND"C"SYNTHESIZER. ALL THE SOUNDS YOU HAVE"C"JUST HEARD WERE CREATED WITH THE SOUND"D"SYNTHESIZER, AND ARE SAVED ON THIS DIS14,5,1,13:N1450::768,13,5,1,13:B768,9,3,40,4:210VB768,9,3,15,4:210:210fBN11500:B768,11,2,1,30:N1500:BN110:768,7,1,1,1:X(1)440:Q1X:Q:NB220C768,8,2,1,8:N19:768,10,N,1,1:16299,0:768,10,N,1,1:1):STADD25600:Z12.51AZD$;"BLOAD SOUND.READER"VAdN04:Y(N)::65,77,89,107,128An::10:8:"** SOUND DEMONSTRATION **":22:"** COPYRIGHT 1984 BY MICROSPARC, INC. **"AxD$;"BLOAD SOUNDS"AN03000::768,6,1,1,30#B768,13,5,2,13:768,##@ ***************************E@ * SOUND.DEMO *g@ * BY JAMES R. GESCHWENDER *@( * COPYRIGHT (C) 1984 *@2 * BY MICROSPARC, INC. *@< * LINCOLN, MA. 01773 *@F ***************************APY(4):D$(4         1. Apple Highways":" 2. Sound Synthesizer":" 3. Sound Demonstration":" 4. Clambake"!x17:"Enter selection: (1-4) ";:SE$:SE$:SE(SE$):SE1SE41400!UL$"N"İ1290!D$;"RUN ";SE$(SE)! END OF PROGRAM31,32,123,218,165@ <135,164,136,133,184,132,185,32,183,0,96,0] F *** UPPER CASE ROUTINE P160,11,169,3,132,54,133,55,76,234,3,201,225,144,6,201,251,176,2,233,31,76,240,253: END MENU Z:10 dUL$"N"İ1280Z!n"Run which program? "::" CASE2 ********** INPUT-ANYTHING ROUTINE DATA32,190,222,32,227,223,36,17,208,5,162,163,76,18,212,133,133,132,134,165(184,164,185,133,135,132,136,32,44,213,173,0,2,201,3,208,3,76,99,216 2169,0,133,13,133,14,169,0,160,2,32,237,227,32,61,254,XL:55,XH2: ACTIVATE INPUT ANYTHING ~Q0:X768839:X,I(Q):QQ1:::INPUT ANYTHING ACTIVATE UPPER CASE Q0:I023:768I,U(I):I:768:: DEEACTIVATE UPPER CASE  54,240:55,253:1002:54,189:55,158:: DEACTIVATE UPPER $(1)""J$(2)"")(BP2FL1)ĺJ$(1);Q$;J$(2):BP0:J$(1)"":J$(2)""SW$"ON"(J$(1)""J$(2)"")(BP2FL1)ĺJ$(1):J$(2):BP0:J$(1)"":J$(2)""H$(Q)""HF0HF1::TURN OFF PRINT BLANKSFF1:(9);"40N";PRINT0BT* @?p~px|ЪժժժՊ @?~X0FAF11U @?`p~p|ժժ!.U*(U*uP*U*U*U*U*U QE"!" @P(@ "%"@MժժժժժժdpO|`ժժժժժժ`p?|~?px*U*U*U*U*U*\p|ժժxsg> ";)< A$:(A$)132610)F :21:)P DISK ERROR TRAP)Z EL1:2670: ENTRY POINT FOR DISK WRITE!*dER FOR EQUAL",( "DURATION.":768,1,4,1,12I( 2610:768,1,1,1,25::7w( "WHEN YOU ARE SATISFIED WITH THE SOUND,"( "RECORD THE CALL COMMAND DISPLAYED, AND"( "SAVE THE SOUND. TO USE THE SOUND IN AN") "APPLESOFT PROGRAM, BLOAD THE SOUND FIORMAT LIKE THIS." ' Q1:N08S' X,A:7,9,5,11,3,14,14,1,5,9,6,8,5,9,7,7,14,60t' TNUMQQA:STADDTNUM,Q(X)' TNUM:QTNUM' N' STADD,79:X1:M2:1360' 2610:"NOTE THAT HIGH NOTES PLAY FASTER SO THAT"; ( "THE NOTE LINE MUST BE LONG4&L "TO THE 'END OF SOUND' SLASHES.":768,1,2,3,70g&V 2610:"SO PLACE THE CURSOR AT THE END OF THE"&` "SOUND BEFORE TESTING.":2610&j "MODE TWO SETS UP A MUSICAL SCALE WHICH"&t "ALLOWS YOU TO TRANSCRIBE DIRECTLY FROM"'~ "SHEET MUSIC, TO A F "PRESS ESC TO TRY IT. <> ";^% 0:CX,4CX,9:CX,142CX,147:CXZTNUM:2CX,CYv%$ A$:(A$)272340%. 2CX,CY:1610%8 :21:X0ĺ"PLEASE TRY AGAIN WITH A NON-ZERO SHIFT.":2610:2320&B "NOTE THAT THE SOUND READER READS ONLY UP"; SECTION"5$"WITH DIFFERENT TONE DOTS, OR ERASE A"^$"SECTION BY SPACING OVER IT.":2610y$TNUM30:CXZ126:CY60$"YOU MAY ALSO SHIFT THE RIGHT HAND"$"PORTION OF THE SCREEN LEFT OR RIGHT."$ "PLACE THE CURSOR HERE FOR INSTANCE, AND"*% ARE NOT SATISFIED WITH THE SOUND,";P#"USE THE 'ADD TO SOUND' OPTION.":2610|#"YOU MAY MOVE THE CURSOR HORIZONTALLY"#"LEFT OR RIGHT WITH THE ARROW KEYS, AS"#"WELL AS WITH THE NUMBER KEYS (0-9).":2610 $"YOU MAY WRITE OVER AN INCORRECT OVERALL PITCH,"2"\"THE NUMBER OF REPETITIONS,"\"f"AND THE LENGTH OF EACH NOTE.":2610"p"SO, WITH THE SOUND PATTERN ABOVE, THIS,":768,1,1,1,30"z"AND THIS,":768,1,2,10,1""AND THIS, ";:768,1,9,3,3""ARE POSSIBLE.":2610$#"IF YOU05))!STADDN,Q:C! 2610:"AN EXAMPLE MIGHT LOOK LIKE THIS."i!*:3:0,0279,0279,1590,1590,0!4X1:M1:STADD,126:1360!>21:"WHEN YOU WISH TO HEAR THE SOUND, GO TO"!H"THE MENU, AND USE THE 'TEST' OPTION.":2610"R"YOU CONTROL THE THE HI-RES DISPLAY"A "USING A PADDLE CONTROLLER OR JOYSTICK"p "AND THE KEYBOARD, OR THE KEYBOARD ONLY." "THE TOP OF THE SCREEN REPRESENTS HIGH" "PITCH, AND THE BOTTOM REPRESENTS LOW" "PITCH." N1255! Q(N127)(12560(N."INSTRUCTIONS"A7:"THIS PROGRAM HAS TWO SOUND MAKING MODES."r"THE FIRST IS FOR MAKING SOUND EFFECTS OF";"ALL VARIETIES, AND THE SECOND IS FOR""SYNTHESIZING MUSIC.":"TO USE MODE ONE YOU SIMPLY LAY OUT THE" "DESIRED SOUND ON"1900.:D$;"BLOAD";NAME$;",A";STADD:216,0oDNUM(43617)1:FOR PRODOS, CHANGE THE PEEK ADDRESS TO 48858N:21:"FILE "NAME$" CURRENTLY"X"CONTAINS "NUM1" SOUNDS."bSNUMNUM:340lD$;"CATALOG"v1820 INSTRUCTIONS:14:SNUM256256N,0::1780DN255X255:STADDSNUM256256N,0:jSTADDSNUM256256,TNUMX:XSNUMt1360z LOAD SAVED SOUND TABLE"ENTER NAME OF EXISTING SOUND TABLE."&"TYPE 'CAT' FOR A CATALOG":26600NAME$:NAME$"CATHIFT HOW FAR "A$" (0-9)? ";:A$:A$;A:::16:"SHIFTING";:fXX(A$):(X)21710,1800,1730}XTNUMX1TNUMNTNUM255:1750XTNUM255ıN255XTNUM1QSTADD256SNUM256N:QX,(Q):X0āNTNUMTNUMX:STADDX,4CX,9:CX,142CX,147KT:21:"WITH THIS FEATURE YOU MAY SHIFT ALL OF"^"THE DOTS THAT ARE TO THE RIGHT OF THE":"CURSOR."h"SHIFT LEFT OR RIGHT (L OR R)? ";:A$:A$rA$"R"A$"RIGHT":X1:1680|A$"L"1610A$"LEFT":X1$"S<> ";:A$.X(A$):X13ıNX49M2(M2):1560:1480hX50I2(I2):1480r1480M1:N2M26:10,Y(N)269,Y(N)::" QUIT,:21:"VERIFY QUIT (Y/N)? ";:A$:A$"Y"ı6::@ SHIFT DISPLAYJ3:C3:CX,4CX,9:CX,142CX,147:1 DELETE SOUNDd:21:"VERIFY DELETE (Y/N)? ";:A$:A$"Y"ıo:340 CHANGE MODES:21::" CURRENT MODE ":M$(M):I$(I):22:18:"1) CHANGE SOUND MODE"18:"2) CHANGE ENTRY MODE"12:" SOUND NUMBER (1-"NUM;:")? ";A$<FX(A$):X1XNUM1340\P13,11267,11:0:Z,1Z,158ZSNUMX:TNUM(STADDSNUM256256)dN1255nCXZN:Q(STADDSNUM256256N):CYZQ2xCX,1CX,158:Q0ĕ1CX,CYM2İ1560CXZTNUM: - ";NAME$*A((STADDNUM256256)0)HX256(NUMA):NUMNUM1AqD$;"BSAVE ";NAME$;",A";STADD;",L";X}:1870  ADD TO SOUND0:CX,4CX,9:CX,142CX,147:370( DISPLAY PREVIOUS SOUND2NUM2ı <:21:"DISPLAY WHICH255)? ";L:L1L2551180J"CALL 768,"SNUM","P","R","L:768,SNUM,P,R,L" <> ";:A$:(A$)13ı1150 SAVE SOUND:21:"VERIFY SAVE (Y/N)? ";:A$:A$"Y"ı :21:" **SAVING SOUND TABLE**":"TABLE NAMEVX(A$):X1X71060B`X1150,1230,1300,1330,1450,1480,1580Lj1060]t SOUND TEST|~:21:7:"**TEST SOUND**""OVERALL PITCH (1-9)? ";P:P1P91160"NUMBER OF REPETITIONS (1-255)? ";R:R1R2551170"LENGTH OF EACH TONE (1-MTNUM2:990 MAIN MENU>$3:CX,4CX,9:CX,142CX,147s.:21:" 1) TEST SOUND";:21:"5) DELETE SOUND"8" 2) SAVE SOUND";:21:"6) CHANGE MODES"B" 3) ADD TO SOUND";:21:"7) QUIT"L" 4) DISPLAY PREVIOUSLY CREATED SOUND ";:A$X47X581020X810302X27İ1610:1300AX131060J450hASTADDSNUM256256TNUM~CX,(A)2Z:A,0STADDSNUM256256,TNUMTNUMTNUM1(TNUM254)450XX4910(X48):TNUM(X28.3):990TNUM2450 TNU50 N013:PITCHQ(N)Ă2*X(X)((X).4)E4NNX:N0N0T>N13N13cHPITCHQ(N)R(N1):10,Y(0)269,Y(0)\(N3):10,Y(1)269,Y(1)f0:450p PADDLE AND KEYBOARD ENTRYz2CX,CYXX128:X21990X32970I1450680) PROCESS KEY PRESS> KEYBOARD ENTRYMX193890\X211620i2CX,CYX50(X217)10(X213)2(X201)50(X194)10(X206)2(X205)M2800PITCHPITCHX:PITCH1PITCH1 PITCH255PITCH2554Y%DCXZTNUM:CYZPITCH2:2CX,CYKNX(16384):X127Ĺ16368,0:720TX590ob PROCESS BUTTON PRESS|l2CX,CYvASTADDSNUM256TNUM256CX,(A)2ZA,PITCH:ATNUM,TNUMTNUMTNUM1(TNUM254)1CX,CY(16286)128ITCHQ(N)&(N1):10,Y(0)269,Y(0)H(N3):10,Y(1)269,Y(1):520nPITCH(1)1:PITCH255PITCH255CXZTNUM:CYZPITCH22CX,CY:0X(16384):X127Ĺ16368,0:890&X(16286):X12762002CX,CY:470: KEYBOARD ENTROR DOT";:4103"PADDLE AND BUTTON TO SET PITCH"O"SPACE BAR FOR PAUSE";h26:"ESC FOR SHIFT""KEYS 0-9 AND ARROW KEYS TO PLACE CURSOR"; MAIN SOUND MAKING LOOPI1580 PADDLE ENTRYM1510 N(((1)21.23)21.24):P J CLEAR FOR NEXT SOUNDA T:3:0,0279,0279,1590,1590,0R ^1560:TNUM1 hN0255:STADDSNUM256256N,0::IF ERROR, SEE LINE 1860 r:21:"RETURN FOR MENU"; |25::"SOUND NUMBER ";SNUM: I1ĺ"KEYS YUI FOR UP, BNM FOR DOWN, S F SOUND TABLE") 7:"3) INSTRUCTIONS ";F A$:X(A$):X1X3250] ":X1820,300,1930 ,"ENTER NAME FOR NEW SOUND TABLE.":NAME$:2650 6(NAME$)0(NAME$)15ĺ"ILLEGAL FILE NAME. TRY AGAIN":300 @D$"BSAVE";NAME$;",A";STADD;",L1":216,0:::1:0> M$(1)"SOUND SYNTHESIS":M$(2)"MUSIC SYNTHESIS"r I$(1)"KEYBOARD ENTRY ":I$(2)"PADDLE ENTRY " 11:"SOUND SYNTHESIZER":22:"** COPYRIGHT 1984 BY MICROSPARC, INC. **" 10:7:"1) LOAD EXISTING SOUND TABLE" 7:"2) BEGIN NEW128,144,152,171,192,213,230,254,0< DATA FOR SCALE LINESg N06:Y(N)::48,54,65,77,89,107,128 DATA FOR SHAPE TABLE N912924:A:N,A::232,144:233,3:2,0,6,0,8,0,4,0,172,30,7,32,0 Z12.5:M1:I1:PITCH125:SNUM1:NUM1:STADD25600TION ** PRODOS USERS SEE LINE 18605 Z(104)64120Q d103,1:104,64:16384,0m n(4);"RUN SYNTHESIZER"x x37376 Q(14),Y(6),M$(2),I$(2):D$(4) D$;"BLOAD SOUND.READER" DATA FOR MUSICAL NOTES! N014:Q(N)::73,77,86,96,108,116,e## **********8.30.84**********E * SYNTHESIZER *g * BY JAMES R. GESCHWENDER *( * COPYRIGHT (C) 1984 *2 * BY MICROSPARC, INC. *< * LINCOLN, MA. 01773 *F ***************************" P INITIALIZA                       ƁƱ예ƄЀԀЪժժժժꘃυ֪ժժժՀƌÿ̱怀󿀀ժժժƱĀ타€　Ȓ„Ĉ耀ժժժժժհժժժꀀÿÿ́࿀󿀀֪ժժՂ　ۀ怀ہԱ　ժƁ𿠂ȒĠÄЀЪժժժժՀ　ÿ޻݃Ʊÿ　$$$-m-?$466&$-.-?6-6?-6?46$-666--?6=6--6?46M!,66$$-&-66 $$-66$?-?6-6?- -?$-$?66 -$/$?=6-$/6?6$-6M$l6n$,=76.%<"-$$?66-6?6- -$$?66-6/6?- -$$?666-$66 -$$?66-?6-6?- -$$?66.,67576%$$$-5566>'%$$?-m,666.$$$(<. ,66666%$$$$46-55667?,%$$?-m!$'-66766.$$$,-.66>>'-$$$$$,M)-.6??',-5>?4>6%6--$7?-766>- $$$%466n)$$l166 $$,-&?76=6.-4 0-%$-5 (566&$$,m-566>?- -$$$?666/666/ %$$>6- -$$$?666- -$$$?66666 $JYk~4Mh~+:!&.8K[e/666/ -$$$?666&-6677.m-$$$<7666&-6>56?4- -$$$?6666.%$666 -$$$?666-?6.56?- -$$$?666-?6.56?$46- -$$$?666-666 -$$$?666-6>'466-$46 -$$$?666-6>'$6.56?- -$$$?666/666/ -$$$?666      )`H$(Q)""HF11210BjH$(Q)""BPBP1:J$(BP)H$(Q):HF0ZtFL0:H$(Q)""FL1t~B$"3"F32SW$"ON"B$"3"F36SW$""Q$" ":SW$""(J$(1)""J$(2)"")(BP2FL1)(J$(1),1)"-"J$(1)(J$(1),(J$(1))1):Q$""GSW$""(J """""""> >Q  d i co ]  co ;`P`0``|w+/>x~ -eu?T8\H]H^^h]h\TLrhhT` d' i`m`i ``"  >>@ p@B<>> """> """"""< "">""""""""""""">>>"2"""">""" "  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""**6T@ 0TG\H]I^ i"co iLc iQ\R]^ i"co i i co`hh i8 i> i coȘeelH `mco`ii    h` L<<`m;>UTcoKcoK0comUcoU8KKT֩d i co co ```VNGH'BVWW i$co c ;ЩJLN8LMOM LG N!O H JonNDL CDCRR;P0RDS; `0C(?1o1o4 "co L ?1o1oSS0L> STThEhcoh iH ; L9 T UT08TTUhEo ;o!wo"o#oo@ X@coco>>?DRȍQ>Q.RQmGGRmHHIiI 4 A L JW LG X i LG Xonn; 08T T L :\ H JonPQRQ.RRR( A GmQGRmHH L ?;o8Eo .?Eo8;o L 8TT`1oL 1ogOogYococomomo pon: R)N:)< ==LE < mGGHiHIiI ; 0 L :L% >RT;?1o1oTT8ACEABDFBdmGGHiH hhho         1"(F96F176F262F357)ĺ(12)sBB$"2"(F4F108F140F202F342F364F412F472F542F576)SW$"ON"LB$"2"(F14F126F154F219F350F392F427F480F547)SW$""VB$"2"(F97F171F251F342F399F476F572F636)ĺ(12D$;"CLOSE"1010P'SW$""3: ;D$B1S(9);"85N";PRINT "SCREEN #";P;"======================="Q021$B$"1"(F70F96F158F196F356)SW$"ON".B$"1"(F74F110F176F216F372)SW$"""8B$"OU DO NOT HAVE A PRINTER. SELECT THE":"D)ISPLAY OPTION."::570MzH0:F0W1270bP1R:10:"** READING ";(NA$,(NA$)1);" PAGE #";P;" **"D$;"OPEN ";NA$;",L960"D$;"READ ";NA$;",R";PQ021768,A$:H$(Q)A$ 16:"M)ore ...R)un program...Q)uit:";:AQ$:AQ$:AQ$"M"AQ$"R"AQ$"Q"AQ$"m"AQ$"r"AQ$"q"830HUL$"N"İ1290RAQ$"M"AQ$"m"510\AQ$"R"AQ$"r"1370f:"THE 'READ ARTICLES' PROGRAM IS ENDED.":ApPT$"Y"PT$"y"ĺ:"Y"p")PT$"Y"PT$"y"ė:10:"YOU DO NOT HAVE A PRINTER"::F11500::750i (K$"S"K$"s")P1:740*UL$"N"İ1280: ACTIVATE UPPER CASE4:10:"Now you can select:"::" M)ore articles (to display/print)":" R)un a program":" Q)uit."l>P"K$"p")(PT$"Y"PT$"y")Ģ10:"** PRINTING **":1:(9);"42N";:F021:B$(F):A$(F)B$(F)::(9);"40N";:0::750PR(K$"P"K$"p")(PT$"Y"PT$"y")Ģ10:"** PRINTING **":1:(9);"42N";:F021:A$(F)::(9);"40N";:0::750K(K$"P"K$((w+/>x~@@ 37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?`((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048< $(,048"&*.26:>#'+/37;?#'+/    $NA$" R"&D$;"OPEN ";NA$;",L960"@D$;"READ ";NA$;",R0"GRWD$;"CLOSE"vDP$"P"DP$"p"İ880:810~P1100: READ 1ST REC200: DISPLAY(K$"N"K$"n")PRPP1:740(K$"L"K$"l")P1PP1:740v PR(K$"i    `|xx|||<<co8comco`aii    `|xx|||<<co8comco`aTWPR `Pr csuh  i!;0 i!ii!i i -о`TUHT)T <=LȋTLދ   &e i hUT` `m`Ԡ̠ŠӠϠōŠǠŠǠȍӺӮ Ӯ Ӯ ͠ԠϠŠͬŠŠӺŽ٬ýŠӬѽԍɠԠϠŠŠԠ GӠԠՠԠϠŠŠԠ` hh ȘeilCLAMBAKE٠͠Սéìî ӠŠٍͮԮϧ̠Ԯɍ ĠϠˍ )ɠ` LLL Xy  L6-LLLL` L6  ` X GӠԠՠԠϠŠŠР٠ GӠԠՠԠϠŠŠΠ GӠԠ"@(x<`aa0xBDDD"D"ADQpx@CC` p   D@DD@(D DH)`N`@?$D$D$"$!B qх1apA0 "H($)H)HD$H$B"~`888`@~DQDAHHHEHD "|@ppp@|!""""DD H `Csӄ3pA|~A?~?"H($)H)HD$H$B"~`x9>||~DQDQHHHEHD "|@ps|x~x|!""""DD H"@(x<`gyp|pxBDDD"D"ADQpx@Os`x`p   D@DD@(D 8&O&NO8ULmU`8mo i `mco`i i ȱ ȱ ȱ `  m# @mo" 1o,0-L ,M--Lc c L  !ʎco8 i `mco`i ȱ ȱ ȱ  i i'Mo0 o' L'o`@ʊ TΟoo)mTg(g);h*h+om)%wom(0 #"L"%;oʎ!!L"%;o!!Lom+$om*0 #L#$Eoʎ L8#$Eo `UN****)TO)MTo%ococomomo  X@coco@L `&Eo;oon::):)L`o`o Eo'L'L;o'L'')-:S&&'o0LLn')ʽg'Mo0o'')-: 'oLo)ʽgoLo `?@@1oXIALlOo Yo1oOo@;o!Eo wo"o# X@L `tLttooEoEo wowo;o;o!oooooowoo;oJ J EoJJL؀@oo )o@o@ @"wo!;o#o Eo$"""""""> >Q  d i co ]  co ;`P`0``|w+/>x~ -eu?T8\H]H^^h]h\TLrhhT` d' i`m`i ```@ """> """"""< "">""""""""""""">>>"2"""">""" "  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""**6@p`@p`@@p`@pPHU|T|co@0T0TJ00co٠UнhʊHдh?@cocomomo @ IrWSh co ŠTTYGZH[IGYHZI[LZx yL[z``BL8@LMM T?@@ coigg {ggcoigg {ggcoih;h {h;hcoh;h {h;h@М? PJ?`8TU UUU`mTUi U@@UU` J H on;ЩoƮ?@o#wo"Eo ;o! X@ܩ     `h co TTco r  z zLxL{;`TzUzH`hHhHJ0UhTT`A8@ABPQRS A #co B AAhhhhM `LLp #co x i"coY\Z][^ Y yL[z "co i$coW c JD S?ug1ogOogYooowoooagEokg;oMgڍ̍ThUTnUo!mTTmUU-ީYZ[;Q WVGHIPFE|A|B|L|M?O|g)}gy};h}h<= 8<<==XP "co "co @A@A`A`c`c`c@w@ww>4wdw ??@@@@?>w@w@w`c`c`c`A@A@Ah\TLvhhT` d' i`m`i `|`@?~@`>88>`@~|~p?~pp~p?~|x|~``~|x`x|~~|x`vw?@@@@?? |x`?~@px<<xp@~x`xx`x|uuu vux`xx`xx~@`?pp`?@~x`x~?@@@@~?x`@p?|~~|p?@?`x|~~ i `m`i Qȱ Qȱ Qȱ Q i i ` L%ronT` hh  Ir r    `8 i `m`ii ȱȱȱ`  m  *ɂ  t t Lr  nu nu Lr Hs v v Lr Hs 0w 0w Lrʎ8M LSq LSq LSqmmonTLAqLSq  `0K# L%rʬ r L%r L%r   rL%rɂ0  L%r ȌL%rȮ rL%r  L%rLq rpLpLpLpLpM;;Lpɒ hhhhLZx  JJLpJ`JLpM 0Lp)onT)o-LSq LSq           1= APPLE HIGHWAYS":" 2= SOUND SYNTHESIZER":" 3= CLAM BAKE"l18:"ENTER SELECTION ";:X$:X$:B$X$:X(X$):X1X3620vUL$"N"İ1290: DEACTIVATE UPPER CASEX$"1"NA$"HIGHWAYS"X$"2"NA$"SOUND"X$"3"NA$"CLAM" NAh follows."::DP$"D":PT$"Y"Ģ19::"D)ISPLAY...P)RINT article (D/P):";:K$:K$:DP$K$:DP$"D"DP$"d"DP$"P"DP$"p"570DDS$"Display.":DP$"P"DP$"p"DS$"Print."NPT$"Y"ė:8X:"Please select the article to ";DS$:Db:" the'P' key to P)RINT the":"individual pages of the article while":"you display them.": 0PT$"Y"ĺ:"PRINT Article Mode":"==================":"You can also print the entire article":"on your printer (non-stop) by selecting":"the P)RINT option whic"n"500  UL$"N"İ1280W2:"DISPLAY Article Mode":"====================""You can display each page of the":"article and use the 'N' and 'L' keys":"to display the N)ext page or L)ast":"page in sequence."X&PT$"Y"ĺ:"You can use work."::" If you have a printer, the control":" card/cable should be in:"::" * SLOT #1 of an Apple IIe or ][+":" * Printer Port of an Apple //c or IIGS"18:968:"Do you have a printer? (Y/N):";:PT$:PT$:PT$"Y"PT$"y"PT$"N"PT$(4);"NOMONIOC"`SE$(1)"HIGHWAYS":SE$(2)"SYNTHESIZER":SE$(3)"SOUND.DEMO":SE$(4)"CLAM.BAKE"sUL$"N"İ1280:5:"Welcome to the Nibble Sampler!"::"This program displays and prints the":"articles which describe the programs":"and how they 砨򩬠򠤵嬠͠ŠŠŠǍҧӠź󮠠硍à㮩󺍍þ宍̠Ҿ宍̠Ӿ庠𬠠̧ڧ䠧󺍍̠ڍ蠭宍ǠŠō:(4)"RUN CLAM.BAKE"d (4)"BLOAD CLAM.BAKE.1":(4)"BLOAD CLAM.BAKE.2":(4)"BLOAD CLAM.BAKE.3"o (30720Ep **********************= * CLAME.BAKE *[ * BY WILLIAM PU *y * COPYRIGHT (C) 1984 * * BY MICROSPARC, INC * * LINCOLN, MA. 01773 * ********************** (104)3230 103,1:104,32:8192,0 z# Ӡʠ͠ǠŠ"̠*ά"*/********************* Ԡ ӠҠCĠàGĠҠ_ҠԠԠ Ӡ!  ͠Ҡ ĠҠ{ӠҠ?Š Ӡà͠à Šˠ ĮҠӠ   ҠӺ ĠҠӠ ͮŮ ͮŮ  ĠҺ Ҡ%ĮϠ  Ӡ8  ͠ź ͮŠͮŮ   ЮΠ Ϡ ՠ   ŠӺ   ŠҠˠ  Ԡé  ٠ìî  Ĭ  廠箍䠨婬獨堭婮堍ԥʩԥʩ䱠䲠䳠䴠堍ԥʩ䱠䲠䳠䴠Š卽卍砠䠠䍠󮍍Š嬠䮠䬍䮠宠䬠󮠠䬠䮍䬠堲ԥʩ䠍ԥʩ頠ܠݭ魭ݍ䠠頨䩍ݭ魭ݍܠܠ頠頠鍠ܠܠܠ報Š卍堠砠占ݭ魭ŠӠ庠ԥʩԥʩ嬠Ҡ嬠󠲠䠳䭍䮠堨嬠宍ŠӠ󮠠堹Ϭج堲ؠ󮠠נŠӠč󮠠䮍宍ɭɭ宍ɭɭ蠍ᮠ嬠ɭ󠭍뮍宍뺍ҍĮύĮҍӍ堧Чź卍ͮōͮŮͮŮͮŮ嬠堧ЧĠҬ堍砍ŠӬ뺍Ӎ͠Ŭ󮍍堍堍򬠍堍󮠍멍堯덪퍍堍䠍Š䮍ԺӠˠӍ묍蠍󺍍Ӡ򩍪ҠӠҠˍӍ͠ōĠҍĠ΍ĠҠӍŠӍΠӍ͠ōΠͮōĠҍΠҍĠ΍ΠĮύĠҠӍΠĠҠ    ᮠ嬠堍宠嬠ծӮ䮠宠EYSTROKEFLAG$""^23:" for next page or for menu";:49168,0:49152,128|(49152)155FLAG$"ESC"$. *********** ATTACH UPPER/LOWER CASE ROUTINE8I023:ML:768I,ML:I:768: B ********** DETACH UPPER/LOWER CA101)6ė:768](222)6(222)8Ģ19:(7);"Disk Error. Please insert Nibble disk":101019:(7);"An error #"(222)" has occurred. "23:"Press to continue ";:958:49168,0:49152,128:600 ********** WAIT FOR K quit? (Y/N)";:49168,0/49168,0:49152,128a(49152)249(49152)217Ĺ49168,0::1100:g ********** SOUND BUZZER FOR WRONG KEYSTROKE EQ110:EY(16336)(16336):EQ: ********** ERROR HANDLING ROUTINE:(1ID MENU CHOICE/H49168,0::1100:D$;RC$(SL)SR ********** CATALOG SELECTED t\:49168,0::D$;"CATALOG":f24:7:"Press to continue";p49168,0:49152,128:z ********** QUIT SELECTED22::958:"Do you really want to00 8005 ********** PRINT POINTER SUBROUTINER 61N:SX:X$(SLOS);:u ********** SELECTION ROUTINE SL(ME1)İ860:600*SLMEİ900:SL1:780:68042:1:" "::2:1:RC$(SL):> ********** EXECUTE A VAL12:SL:49168,0:16384,128::Z$((16384)128):Z$"1"Z$(ME)SL(Z$):NOS:780:700Z(Z$(21)Z$(10))(Z$(8)Z$(11))10(Z$(13))20(Z$(27)):Z950Z20ī380SLSLZ(Z10):SLSLME(SLME)ME(SL1)NOS:780:Z107(ME1):8:ME1". Catalog Disk";61ME:8:ME". Quit"o21:"----------------------------------------"23:1:"Type number or use arrows, then ";:PX10:SX4:SL1 ********** SELECT CHOICENSL:OSSL:780:Z0:24:868\1: D1030'N ********** SET UP MENUMXMEMM2:X$(0)" ":X$(1)"-->":b1:1:"Selection: : Instructions"l3:"----------------------------------------";v5:20((A$)2):A$I1ME2:61I:8:I". "MP$(I): 61 TEXT SCREEN BEFORE MENU!:3N" Thanks again for your subscription!"X12:6:"ALL PROGRAMS ON THIS DISK ARE"&6:"COPYRIGHT (C) 1986 BY NIBBLE"06:"MICROSPARC, INC. CONCORD, MA"::17:5:"UNAUTHORIZED COPYING IS ILLEGAL"this disk are:":* Z1NP:5:P$(Z):ZF 1030:FLAG$"ESC"ī600w  ********** CYCLE THRU NIBMENU TEXT SCREENS A1 :3 S$(A)"@"İ1030::3:((FLAG$"ESC"))490:600 S$(A)"#"510 S$(A) AA1:460 ********** LAST,1)"#"350 T320$ ^D$;"CLOSE"a h(1101)6İ1080: ********** UPPER/LOWER CASE ROUTINE r ********** FIRST TEXT SCREEN |::3 "Thank you for subscribing to Nibble.":"Here is your copy of the Nibble ":A$;"!": "The programs on A$ = DISK NAME@ NA$"NIBBLE "A$:22:20((NA$)2):NA$:1k NP: NP = NUMBER OF PROGRAMS ON DISK I1NP:P$(I):I MM: MM = NUMBER OF VALID MENU ENTRIES "I1MM:MP$(I):RC$(I):I ,S$ 6I0 @II1:768,S$(I) J(S$(I),1 11203 P$(20): P$ = PROGRAM NAME b S$(300): S$ = LINES OF TEXT INSTRUCTIONS RC$(20): RC$ = COMMAND USED TO RUN PROGRAM MP$(20): MP$ = PROGRAM NAME TO APPEAR IN MENU D$;"OPEN NIBMENU" D$;"READ NIBMENU" A$:********* GET HI-RES SCREEN AND SET DISPLAY SWITCHESf x11:3:"MICROSPARC PRESENTS NIBBLE SOFTWARE" 15:13:"PLEASE WAIT..." D$"BRUN STARTUP.SCREEN" G(16297)(16300)(16301)(16304) ********** READ INFO FROM NIBMENU TEXTFILEC ******* 8/08/86 *******;* HELLO *X* BY OWL *u(* COPYRIGHT (C) 1986 *2* BY MICROSPARC, INC. *<* CONCORD, MA 01742 *F***********************P16384Z::D$(4):(21)d9704 n *           卷卹ፍà㮩Šӡ堳󍽽󠠠󠦠危፲򍲴󍵲宠宠堳䮠䠴󮍍Ԡ㠍堵򮠠󠱶䮠䮠報堲䮍報栲䮠堲栱󠱱䠱卲󺍍ŬҬ堲Ҡ󮠍報䠨堵栱󮍍Ӎ堍宠嬠砍嬠報嬠堵ɭ栲򠰮젍䮠ɭ󍲶婬ɭ󠲸򻠠ծӮ鱠ϠغԠѺԠ΍󠪪ԠѺԠ΍;"RUN ";SE$(SE)$! END OF PROGRAMXMENU  Z:10" dUL$"N"İ1280 n"Run which program? "::" 1. Apple Highways":" 2. Sound Synthesizer":" 3. Sound Demonstration":" 4. Clambake" x17:"Enter selection: (1-4) ";:SE$:SE$:SE(SE$):SE1SE41400 UL$"N"İ1290!D$3,76,99,216T2169,0,133,13,133,14,169,0,160,2,32,237,227,32,61,231,32,123,218,165<135,164,136,133,184,132,185,32,183,0,96,0F *** UPPER CASE ROUTINE P160,11,169,3,132,54,133,55,76,234,3,201,225,144,6,201,251,176,2,233,31,76,240,253: END SE G 54,240:55,253:1002:54,189:55,158:: DEACTIVATE UPPER CASEu ********** INPUT-ANYTHING ROUTINE DATA32,190,222,32,227,223,36,17,208,5,162,163,76,18,212,133,133,132,134,165 (184,164,185,133,135,132,136,32,44,213,173,0,2,201,3,208, OFF PRINT BLANKSFF1:.(9);"40N";9PRINT@0R54,XL:55,XHu: ACTIVATE INPUT ANYTHING Q0:X768839:X,I(Q):QQ1:::INPUT ANYTHING ACTIVATE UPPER CASE Q0:I023:768I,U(I):I:768:: DEEACTIVATE UPPER CAFL1)(J$(1),1)"-"J$(1)(J$(1),(J$(1))1):Q$""SW$""(J$(1)""J$(2)"")(BP2FL1)ĺJ$(1);Q$;J$(2):BP0:J$(1)"":J$(2)""SW$"ON"(J$(1)""J$(2)"")(BP2FL1)ĺJ$(1):J$(2):BP0:J$(1)"":J$(2)""H$(Q)""HF0HF1::TURN547)SW$""DVB$"2"(F97F171F251F342F399F476)ĺ(12)\`H$(Q)""HF11210jH$(Q)""BPBP1:J$(BP)H$(Q):HF0tFL0:H$(Q)""FL1~B$"3"F32SW$"ON"B$"3"F36SW$""4Q$" ":SW$""(J$(1)""J$(2)"")(BP2158F196F356)SW$"ON"K.B$"1"(F74F110F176F216F372)SW$""w8B$"1"(F96F176F262F357)ĺ(12)BB$"2"(F4F108F140F202F342F364F412F472F542)SW$"ON" LB$"2"(F14F126F154F219F350F392F427F480FD$;"OPEN ";NA$;",L960"4D$;"READ ";NA$;",R";P@Q021U768,A$:H$(Q)A$[kD$;"CLOSE"u1010|P: D$1(9);"85N";PRINT "SCREEN #";P;"======================="Q021$B$"1"(F70F96F10\AQ$"R"AQ$"r"1370Mf:"THE 'READ ARTICLES' PROGRAM IS ENDED.":pPT$"Y"PT$"y"ĺ:"YOU DO NOT HAVE A PRINTER. SELECT THE":"D)ISPLAY OPTION."::570zH0:F0P1R:10:"** READING ";(NA$,(NA$)1);" PAGE #";P;" **"00!UL$"N"İ1290,!D$;"RUN ";SE$(SE)A! END OF PROGRAMXnthesizer":" 3. Sound Demonstration":" 4. Clambake"!x17:"Enter selection: (1-4) ";:SE$:SE$:SE(SE$):SE1SE41400!UL$"N"İ1290!D$;"RUN ";SE$(SE)! END OF PROGRAMXdO 䮠譍󮠠󮠠묠堍ӧ堧٧嬠嬠堧ͧΧ䍧§堧ӧ㧠堧է宠嬠䮍堍堧Ү宠嬠䬠㮠ɠ宍ΠԠ䬠䮍ǠŠ͍ĠҠ󮠠ĠҠ󮠠򠪪󮠠à㮍򍍠堪ĮϠ󠠪堠宠堠栠ĠҠ"                             """     ﬠ嬠Ԡﬠ欠嬠嬠箍٠٠ĠĬԬŠӮٍ宍򮍍䬠ōĬ򮠠ĠύĠ̠ŠĠӠ̠̠ȠҠƠ堲堲̠ߍ宠󮠠䬠̍嬠ԠĬ䮠謠栍ԠĠŠčŠĠŠӍĠϠĠԍ٠٠Ġč栠報ߍ報婍堍䮍ԠծԠ򮠠΍ŠՠӍ報Ԯ嬠宍ŠԠ΍堍󮠠䬠宠嬠󮠠謠堳堨宬ìĬ㮩㬠썠àĮ嬠卍㬠㮠䬠󮍍󮠠堍󮠠宠魍󮠠孍栍䮠    ƠŠĠŠĠà Ǡ捠ߍí ǠƠ堳嬠򮠠嬍宍ŠӠ󮠠讠󮍍àӍ䮠嬠䠲ĮϠ̠󠠪㠠̠󺍍̠썍堧䠴䠹䠧짠栍婍̠砨̠婮嬠󮠠ĠĮҍ䍠Ġᠠܠܠܠܠܠܠܠܠܠܠܠܠܠܠܠܠܠܠܠܠܠߍ፼ԾԠﬠ䮍ǠŠӠՠō堍宠栴󮍍ҠǍ䬠堍Ġύĩ䠨䮍ĮҠ嬠Ԡ䬠宠Ԡ宍덍嬠堼þԠ宍嬠笠翍ԠԠ箠󮍍ج٠ح٭󍠠򮍍Ƞ򻠱占謠占䬠󠷰䬠嬠󠶱䮠嬍     ̠ߍz̠󍲶󠳳䍱䍱䍱󍱵󍍱䍱危󍍱䍱䍱󺍍獍䍠ĮҠ󮠠堍Š͍ĠҠ$(F)  ! D$;"MONIOC", 216,0< D$;"CLOSE"N NA$"SOUND R"m D$;"OPEN ";NA$;",L960,D1"v H26 I1Q122 HH1:PRH D$;"WRITE ";NA$;",R";P F021:A$(IF): I D$;"WRITE ";NA$;",R0" P D$;"CLOS堤Ơ嬠쩮堍䠤󮠠򠤰䬠䠤Ʈ堍͠򍠠䩮͠򮍍Ġ捠宍䠰宍ϠغԠѺԠ΍ҠΠϠ̠ؠĠҍѠԠߠߠߠߠߠ̠썠ߍ߮߮߮߮ߠߍߠߠߠߠߠߠߠߠ̠ߍҠ宠ĮϠ嬠뮠䬠ĮύӠ󮠠ӠҬ󮍍ŠĠύҠĮҍҠ堠򮠠堍嬠嬠󮠠ĮҠŠĠҍð쮠􍠠󮍍宠򺍍썠堤宠㩮ōĠĮҍĠ婬ŠŠĮҠ堍󠤶謠堤箍䮠čҠ􍤱쬠";(NA$,(NA$)1);" PAGE #";P;" **"6 xUL$"N"İ1270R D$;"OPEN ";NA$;",L960"m D$;"READ ";NA$;",R";Py F021 768,A$:A$(F)A$ F D$;"CLOSE ";NA$ DISPLAY SCREENS UL$"N"İ1280: ACTIVATE UPPER F021(4) I(75):F071:I(F):9 (U(23):F023:U(F):L 2H$(25),B$(25)p <1270: ACTIVATE INPUT ANYTHING F(1101)6UL$"N": NO UPPER/LOWER CASE DISPLAY.. SET FLAG PA$(25) Z430 d READ DOCUMENTATION FILES # n:10:"** READING !**************************A* READ SAMPLER ARTICLES *a* BY FLH ** COPYRIGHT (C) 1987 ** BY MICROSPARC, INC. ** CONCORD, MA 01742 *************************** XL(54):XH(55) D$""""      ҠΠϠ̠ؠĠҍѠ堲Ҭ占ĠĮҬ󍠠󬠠ߠߠߠߠ썠ߍߠ̠ߍߠߠߍߠߠߠߠߠߠߠߠ߮߮߮߮ߠčҬ嬠堍ҠӍﮠ쬠䠍󮍍AUGUSTA,GA,5,7,20,144,141,25,133,75,-1,253,38,20,79,66,-25,113BALTIMORE,MD,6,164,95,37,67,70,75,68,83,79,133,-50,111,116,95,98,104,0,175BARSTOW,CA,3,77,40,203,80,15,155,136,15,74BATON ROUGE,LA,5,102,10,89,96,10,213,74,55,169,144,-71,236,7AMARILLO,TX,2,109,40,267,3,40,284mASHEVILLE,NC,5,170,40,144,66,-25,62,31,-74,118,78,40,118,38,26,156ATLANTA,GA,7,157,-27,275,9,20,144,86,75,82,32,75,109,15,20,149,66,85,151,97,85,165ATLANTIC CITY,NJ,3,133,-9,95,116,0,63,104,0,108>5,156,90,146,151,90,85,105,87,88,23,-7,154,14,88,142qALBERT LEA,MN,4,87,90,262,94,35,93,147,90,168,47,35,148ALBUQUERQUE,NM,4,5,40,284,56,40,323,37,25,365,52,25,257ALLENTOWN,PA,6,104,78,100,142,0,72,68,78,73,116,0,60,155,-22,41,103,78,103%(RT$):RT$*\T%(1,I)NFIT%(1,I):790AfJ135:"-";:J:{pCITY$(NF);", ";ST$(NF);:26((T%(0,NS))):T%(0,NS)zPRĺ::(4);"PR#0"23:"HIT 'Q' TO QUIT, ANY OTHER KEY TO":"CONTINUE ";:49168,0:Z$:Z$"Q"ī2404ALBANY,NY,0:LL1W L15PRĢ23::"HIT ANY KEY TO CONTINUE";::49168,0:Z$:L1:6:1:958*J1NDST%(I):DEST%(I,J)T%(1,I)KRT%(I,J):MDDIST%(I,J)4J>K0RT$"I-"(K)HK0RT$"US-"(K) RCITY$(I);", ";ST$(I);:26((MD)):MD;:36,I)):I! **WRITE OUT ROUTE**.49168,09:INSNPRĺ(4);"PR#1""SHORTEST ROUTE FROM ";CITY$(NS);", ";ST$(NS)"TO ";CITY$(NF);", ";ST$(NF):"CITY";13);"DISTANCE ROUTE" J135:"=";:J::L0RT$"TURNPIKE":K0:MDJ):DDEST%(J,I):T%(1,D)06500vDTDIST%(J,I)eDTT%(0,J)T%(0,D)T%(0,D)DTT%(0,J):T%(1,D)JlIzI1NCITT%(1,I)0T%(0,I)MDMDT%(0,I):KII:JK:T%(1,J)T%(1,J)20:8:T%(0,J)JNSī610I1NCIT:T%(1,I)(T%(1"IS THIS CORRECT (Y/N)? ";:49168,0:Z$A0Z$:Z$"N"NSNF250b: **COMPUTE SHORTEST ROUTE**DI1NCIT:T%(0,I)9999:T%(1,I)NF:INI1NDST%(NF):T%(0,DEST%(NF,I))DIST%(NF,I):IXT%(1,NF)NF:JNF:20:"MILES:"bMD10000lI1NDST%(CLINECLINE1:CLINEMCITCLINE0*370FZ$(8)Z$(11)380lCLINECLINE1:CLINE0CLINEMCITu370 **CHECK SELECTED CITIES**::"STARTING CITY IS ";CITY$(NS);", ";ST$(NS):"ENDING CITY IS ";CITY$(NF);", ";ST$(NF):'&168,0:Z$:Z$(13)KBCITCLINE:l 5CLINE:1:CITY$(CLINEBCIT);", ";ST$(CLINEBCIT);:Z$(27)ė:900 Z$(78)430 CPGCPG1:CPGNPGCPG1 350 Z$(80)460 CPGCPG1:CPG1CPGNPG 350 Z$(21)Z$(10)490!39:"=";:I:+ TNPG((NCIT18)19):CPG1k ^CLINE0:BCITCPG1918:MCIT18:BCITNCIT19MCITNCITBCIT h5:958:I0MCIT:I5:1:CITY$(IBCIT);", ";ST$(IBCIT);:I r5CLINE:1:868::CITY$(CLINEBCIT);", ";ST$(CLINEBCIT);:" |1:40:49G CITY"::300:NFK 5302 " **CITY LISTER**p ,1:16::"RET";::" SELECT CITY ";::"ESC";::" QUIT" 6:"N";:21:"P";::3:"- NEXT PAGE";:23:"- PREVIOUS PAGE" @:"->";:21:"<-";::4:"- NEXT CITY";:24:"- PREVIOUS CITY" JI1NDST%(I), DEST%(I,J),RT%(I,J),DIST%(I,J)6 J:IR **CHECK FOR PRINTER**[ PR0 :5:"DO YOU HAVE A PRINTER (Y/N)? ";:49168,0:Z$:Z$: Z$"Y"PR1 **CHOOSE START & STOP** ::"STARTING CITY": 300:NSK ::"ENDIN%(171,7),DEST%(171,7),T%(1,171),NDST%(171)f x:5:13:"APPLE HIGHWAYS":10:12:"BY VIC HASSELBLAD" 24:1:"** COPYRIGHT 1985 MICROSPARC,INC. **":15:10::"READING IN DISTANCES": NCIT171 I1NCIT CITY$(I),ST$(I),NDST%(I) J1H6******* 4/8/85 *******9* HIGHWAYS *U* BY VIC HASSELBLAD *q* COPYRIGHT (C) 1985 ** BY MICROSPARC, INC ** CONCORD, MA 01742 ***********************d **HEADING*** nCITY$(171),ST$(171),DIST%(171,7),RT                !!! ! ! ! ! !!!!!!!!!""" " " " " ",20,213,82,-65,267g&|JACKSONVILLE,FL,6,158,-301,198,45,95,99,79,10,66,139,95,232,141,95,143,9,-1,253&KANSAS CITY,MO,6,131,70,254,47,35,198,110,29,184,162,-169,259,161,70,60,168,35,201&KINGMAN,AZ,4,56,40,159,80,-93,103,11,40,203,117,-93,184N'-59,226,42,45,245,12,10,253,135,10,197d%^HUNTINGTON,WV,4,29,64,47,35,-52,161,81,64,112,39,-23,131%hINDIANAPOLIS,IN,6,44,70,104,35,74,110,84,65,114,51,70,136,28,74,114,60,65,145&rJACKSON,MS,7,96,-49,192,89,55,212,91,20,90,102,55,183,12,55,169,144,68,81,77,20,70,47,98,-48,133,154,81,51u$6HARRISBURG,PA,6,116,76,105,10,83,79,67,81,77,4,78,73,20,76,83,142,81,115$@HARTFORD,CT,5,123,-6,74,151,91,30,105,84,101,19,86,102,101,91,40$JHELENA,MT,3,62,15,91,95,-12,124,24,15,65&%THOUSTON,TX,4,144,,43,116,87,-151,131,140,-41,285T#GREEN RIVER,UT,3,41,70,158,134,-6,176,46,70,350#GREENSBORO,NC,4,50,85,54,31,85,94,170,40,30,128,-220,109#"GREENVILLE,SC,5,7,85,151,9,-25,113,38,26,104,31,85,105,6,-25,62'$,HAGERSTOWN,MD,6,10,70,75,164,270,64"FT. WORTH,TX,4,42,20,32,52,20,588,135,35,167,109,35,203"GARY,IN,6,34,90,32,148,90,66,73,65,145,48,94,248,61,196,144,43,80,183"GRAND RAPIDS,MI,3,48,96,148,140,-131,276,60,196,144"GREAT FALLS,MT,2,70,15,91,13,-89,287#GREEN BAY,WI,3,93RIE,PA,3,21,90,108,36,90,80,90,79,66S!FARGO,ND,3,94,94,240,147,29,261,16,94,191!FLAGSTAFF,AZ,3,117,17,135,3,40,323,77,40,159!FLORENCE,SC,4,30,-52,112,38,20,80,139,95,74,85,95,53!FT. SMITH,AR,4,82,40,153,159,-71,181,162,0,116,109,40,179;UTH,MN,2,94,35,156,140,-2,422M DURHAM,NC,3,65,85,54,124,-70,27,115,85,131 EFFINGHAM,IL,4,99,57,71,73,70,136,28,57,70,131,70,101 EL PASO,TX,4,135,10,552,59,20,588,3,25,257,163,10,317 ELLENSBURG,WA,3,149,90,171,113,82,233,143,90,103$!EPDAYTONA BEACH,FL,3,92,95,270,111,4,58,75,95,99tZDENVER,CO,5,37,25,67,132,70,429,33,25,98,64,70,350,107,76,269dDES MOINES,IA,5,43,80,160,76,35,198,110,80,128,146,80,183,2,35,148nDETROIT,MI,4,160,75,60,61,96,148,140,75,242,60,94,248 xDUL,-4,959(COVE FORT,UT,3,64,70,158,134,15,178,80,15,2512DALLAS,TX,6,109,35,205,59,20,32,159,30,183,135,35,170,71,45,245,144,20,195<DAVENPORT,IA,4,17,74,140,60,80,183,34,80,177,47,80,160FDAYTON,OH,4,160,75,147,39,70,71,35,75,54,73,70,1041COLORADO SPRINGS,CO,3,3,25,365,132,70,415,46,25,67} COLUMBIA,SC,6,9,20,79,57,20,80,139,26,66,66,26,104,31,77,95,6,26,156COLUMBUS,OH,7,36,71,140,35,71,109,72,-23,131,160,-23,135,44,70,71,25,70,80,90,71,203CONCORD,NH,3,88,93,20,167,89,66,121,316,107,80,223[CHICAGO,IL,6,93,94,87,87,90,140,28,57,133,17,55,133,60,90,32,43,80,177CINCINNATI,OH,6,39,71,109,81,75,78,84,71,101,44,75,54,73,74,110,72,-52,161CLEVELAND,OH,6,119,76,129,39,71,140,160,80,112,54,90,80,90,80,94,25,77,1163105,139,26,54,57,-52,112,169,-17,170~CHARLOTTE,NC,7,65,85,94,66,85,105,170,85,80,6,-74,118,85,-74,126,38,77,95,171,77,134CHATTANOOGA,TN,4,78,75,109,100,24,133,7,75,109,15,59,146CHEYENNE,WY,6,46,25,98,27,25,184,108,80,444,134,80,457,125,-85DE,AZ,3,163,10,63,117,10,58,137,8,356VCASPER,WY,3,22,25,305,33,25,184,125,-18,254CHAMPAIGN,IL,5,51,57,70,17,74,52,34,57,133,150,72,86,73,74,114CHARLESTON,WV,5,72,64,47,171,77,123,98,79,156,25,77,131,153,64,209$CHARLESTON,SC,4,141,-17,`BUFFALO,NY,2,54,90,108,156,90,156VjBUFFALO,WY,3,27,25,305,125,90,207,13,90,161~tBURLINGTON,VT,2,167,89,96,1,-7,154~BUTTE,MT,4,13,90,237,120,15,261,95,90,130,70,15,65CAMBRIDGE,OH,4,29,77,131,39,70,80,36,77,116,166,70,48%CASA GRANLOOMINGTON,IL,4,28,74,52,34,55,133,43,74,140,150,55,61sBBOISE,ID,4,120,84,234,113,84,217,149,-95,391,108,84,323LBOSTON,MA,5,123,95,51,69,86,102,151,90,92,88,93,51,121,95,109VBREEZEWOOD,PA,5,68,76,83,67,70,47,119,76,121,166,70,148,98,-48,134%1,10,253DBILLINGS,MT,4,62,-89,287,22,90,161,16,94,418,24,90,237vBINGHAMTON,NY,3,1,88,142,156,81,64,142,81,52$BIRMINGHAM,AL,6,7,20,149,97,65,90,91,59,144,100,65,192,32,59,146,89,-78,241.BISMARK,ND,3,55,94,191,13,94,418,118,-83,21168B136,15,115,83,5,127H6SAN FRANCISCO,CA,3,130,80,90,83,5,387,165,5,2826SANTEE,SC,5,57,95,74,38,26,66,30,26,54,75,95,232,141,95,966 SAULT STE. MARIE,MI,4,61,-131,276,48,75,242,63,-41,285,49,-2,4227 SAVANNAH,GA,5,75,95,143,86,16,166,139,95,96,,120,106,-13,129,8,-9,95d5SALT LAKE CITY,UT,5,41,15,178,33,80,457,108,15,34,64,-6,176,126,80,5315SAN ANTONIO,TX,4,71,10,197,42,35,170,59,35,167,52,10,5525SAN BERNADINO,CA,4,117,10,334,11,15,74,83,10,40,137,15,1156SAN DIEGO,CA,3,26,8,356,95,101,85,95,126M4SACRAMENTO,CA,4,165,5,227,83,5,382,126,80,134,138,80,904ST. LOUIS,MO,6,152,44,214,51,70,101,99,64,72,145,55,152,150,55,94,76,70,2544SALINA,KS,4,161,70,114,168,135,87,46,70,429,37,70,4155SALISBURY,MD,4,10,-50,111,164,-502,22,90,207,33,-85,316,27,-18,254_3zRENO,NV,4,80,-395,446,134,80,531,130,80,134,165,-395,2653RICHMOND,VA,4,115,95,24,153,64,106,106,64,99,164,95,1143ROANOKE,VA,3,65,-220,109,153,81,81,171,81,674ROCKY MOUNT,NC,4,124,-64,51,106,-58,136,115,8,15,132,24,15,261,18,84,234B2HPORTLAND,ME,2,40,-4,95,19,95,109t2RPORTLAND,OR,3,113,84,211,165,5,363,143,5,1732\PROVIDENCE,RI,3,101,95,102,19,95,51,69,-6,742fRALEIGH,NC,3,50,-70,27,129,-64,51,85,95,95!3pRAPID CITY,SD,5,147,90,346,118,90,195,68,76,105,104,0,82,4,0,60,10,95,98,8,0,63f1 PHOENIX,AZ,4,26,10,58,136,10,334,56,17,135,77,-93,1841*PIERRE,SD,4,16,-83,211,147,90,222,125,90,192,107,-83,26714PITTSBURGH,PA,5,166,70,57,36,76,129,90,79,61,20,76,121,98,79,692>POCATELLO,ID,3,100D0PADUCAH,KY,5,100,24,148,99,57,77,81,0,262,84,0,220,145,-60,590PENDLETON,OR,4,18,84,217,149,-395,203,53,82,233,122,84,2110PENSACOLA,FL,3,157,10,200,97,65,159,96,10,590 PETERSBURG,VA,3,127,95,24,50,85,131,129,95,101+1PHILADELPHIA,PA,0,223>/OGDEN,UT,4,33,80,444,134,15,34,120,15,132,18,84,323/OKLAHOMA CITY,OK,6,168,35,158,162,0,103,58,40,179,42,35,205,59,35,203,5,40,267/OMAHA,NE,4,47,80,128,76,29,184,107,80,299,146,29,980ORLANDO,FL,4,92,0,236,158,4,84,45,4,58,79,75,16103,95,19,105,87,69,155,80,66,4,78,100,8,0,108,116,0,82,10,0,175.NEWBURGH,NY,5,69,84,101,103,87,66,1,87,88,104,87,69,142,84,96.NORFOLK,VA,4,127,64,99,133,-13,129,129,-58,136,169,-17,259/NORTH PLATTE,NE,4,110,80,299,118,-83,267,46,76,269,33,88,40,170,15,65,192,84,65,180,89,40,219,112,24,148,81,65,214m-NEW HAVEN,CT,3,103,95,70,69,91,40,123,95,102-NEW ORLEANS,LA,4,96,10,153,91,59,199,74,55,183,12,10,89-NEW YORK,NY,5,105,87,66,101,95,70,104,95,19,155,80,78,4,78,103@.NEWARK,NJ,7,RY,AL,7,15,65,90,7,85,165,86,-80,180,157,-231,208,91,-80,160,114,65,159,96,65,171,bMORGANTOWN,WV,5,20,-48,134,67,-48,133,119,79,69,29,79,156,166,79,79,lMT. VERNON,IL,5,145,57,98,112,57,77,84,64,190,51,57,71,131,64,72;-vNASHVILLE,TN,7,32,24,133,72703+0MILWAUKEE,WI,3,87,94,77,34,94,87,63,43,116o+:MINNEAPOLIS,MN,4,2,35,93,87,94,271,49,35,156,55,94,240+DMISSOULA,MT,3,70,-12,124,24,90,130,149,90,201+NMOBILE,AL,6,114,10,59,97,65,171,102,10,153,91,-45,129,74,-49,192,12,10,213Q,XMONTGOME,51J*MEMPHIS,TN,5,15,-78,241,100,40,219,74,55,212,82,40,138,145,55,142*MERCER,PA,5,119,79,61,155,80,303,54,79,66,36,80,94,39,71,203*MERIDIAN,MS,5,74,20,90,102,59,199,96,-45,129,15,59,144,97,-80,160+&MIAMI,FL,3,158,-41,266,111,0,236,45,95,G)LUMBERTON,NC,5,124,95,95,31,-74,126,57,95,53,169,-74,80,129,95,126)MACON,GA,5,7,75,82,141,16,166,79,75,199,97,-80,180,157,-319,190)MADISON,WI,6,93,94,77,34,90,140,150,-51,290,63,-151,131,2,90,262,94,94,271*MANCHESTER,NH,2,40,93,20,19,9375,173,84,64,78,112,0,262,100,65,214p(LITTLE ROCK,AR,5,89,40,138,74,-65,267,152,-65,218,58,40,153,159,30,130(LOS ANGELES,CA,4,136,10,40,137,5,127,130,5,382,138,5,387(LOUISVILLE,KY,6,81,64,78,35,71,101,73,65,114,100,65,180,99,64,190,112,0,220KNOXVILLE,TN,6,6,40,118,171,81,187,81,75,173,100,40,170,32,75,109,171,81,187'LAKE CITY,FL,5,158,75,169,111,75,160,75,10,66,157,10,98,86,75,199'LAS VEGAS,NV,4,77,-93,103,41,15,251,126,-395,446,11,15,155$(LEXINGTON,KY,6,35,75,78,72,64,112,78,"L"K$"l"K$"P"K$"S"K$"E"K$"p"K$"s"K$"e"290SrK$(13)ĺK$f|K$(13)ĺK$;yUL$"N"İ1290K$"N"K$"n"āFF3801:32,FF:33,40FF::FF:PP1:220 SETUP XL = PEEK (54):XH = PEEK (54)JPT$"P"PT$"y"PRĢ23:958:36,0::"[FINAL]";::" ";::"S";::")TART OVER..";::"L";::")AST...";::"E";::")ND:";::K$ TP1(K$"L"K$"l")290 ^PRK$"L"K$"E"K$"P"K$"N"K$"l"K$"e"K$"p"K$"n"290@hPRK$")RINT... ";::"E";::")ND:";::K$p 6PT$"Y"PT$"y"PRĝ:"L";::")AST... ";::"E";::")ND:";::K$ @(PT$"P"PT$"y")PRĢ23:958:36,0::"[FINAL]";::" ";::"S";::")TART OVER..";::"P";::")RINT...";::"E";::")ND:";::K$ (A$(F))40ĺA$(F);:F21ĺ7 (A$(F))40ĺA$(F)= G 1290 PRāF021:B$(F)A$(F)::PP1:120:PP1: READ NEXT PAGE "PRĢ24:958::36,0::" ";::"N";::")EXT... ";% ,(PT$"Y"PT$"y")PRĝ:"L";::")AST... ";::"P";::嬠嬠ﮍà㮩󠤷栤΍蠍󮠠宍G>< WYTHEVILLE,VA,5,170,-52,83,29,77,123,128,81,67,78,81,187,31,77,1347,148,98,79,79E= WHITE RIVER JCT.,VT,3,40,89,66,23,89,96,151,91,118= WICHITA,KS,5,132,135,87,161,0,142,76,35,201,109,35,158,162,0,175=( WILMINGTON,NC,3,85,-74,80,30,-17,170,106,-17,259=2 WINSTON-SALEM,NC,4,65,40,30,6,40,144,31,85,80,171,-52,8316,152,44,180,168,0,175,109,0,103,76,-169,259Q< TUCSON,AZ,2,26,10,63,52,10,317< WASHINGTON,DC,5,127,95,114,10,95,37,67,270,64,133,-50,120,154,66,72< WEED,CA,4,130,5,227,126,-395,265,122,5,363,138,5,282 = WHEELING,WV,4,119,70,57,25,70,48,20,70,5,92,-41,266,111,4,84,157,-19,252,75,-301,198,79,75,169v; TEXARKANA,TX,4,144,-71,70,58,-71,181,42,30,183,82,30,130; TOLEDO,OH,5,39,-23,135,44,75,147,36,80,112,48,75,60,148,90,126; TOPEKA,KS,3,76,70,60,168,0,142,132,70,114-< TULSA,OK,5,58,0,1G,VA,3,67,81,51,164,66,72,153,81,76k: STROUDSBURG,PA,5,142,380,51,4,-22,41,104,80,66,103,80,78,90,80,303: SYRACUSE,NY,3,21,90,156,1,90,146,14,81,64: TALLAHASSEE,FL,6,158,-19,252,79,10,98,114,10,200,7,-27,275,97,-231,208,86,-319,1908; TAMPA,FLSPRINGFIELD,IL,4,87,-51,290,28,72,86,17,55,61,131,55,94s9t SPRINGFIELD,MA,4,167,91,118,19,90,92,1,90,85,69,91,309~ SPRINGFIELD,MO,4,131,44,214,82,-65,218,162,44,180,145,-60,2419 STAUNTON,VA,4,127,64,106,128,81,81,29,66,209,154,81,76#: STRASBUR52,89,55,142,152,-60,241K8B SIOUX CITY,IA,3,47,80,183,110,29,98,147,29,858L SIOUX FALLS,SD,5,2,90,168,146,29,85,55,29,261,118,90,222,125,90,3468V SOUTH BEND,IN,2,60,90,66,160,90,1268` SPOKANE,WA,4,95,90,201,113,-395,203,53,90,171,18,-95,39189j 9,-25,133,30,-17,105`7 SCRANTON,PA,6,68,81,115,14,81,52,105,84,96,4,0,72,155,380,51,68,81,1157$ SEATTLE,WA,2,53,90,103,122,5,1737. SHREVEPORT,LA,5,12,-71,236,74,20,213,159,-71,70,42,20,195,71,-59,22688 SIKESTON,MO,5,99,57,98,112,-60,59,131,55,1