L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`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- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`(@@" @?|@"_"0 x& @@"@?p0@p`|0@r` @ "$H@"@@@A" ~@x" " @'@3"|C7  @@ @@p@`"lN@"@A&0r?x|` "@?" `<0 p"@0bp| Lxo#8@@x@@"Lg@"@@C%`@T^"`                Z" 8:23"BY"#11:187"RICK BOROVOY"C13:17Y"(415)-967-7596"eœ17:13̜"CUPERTINO JUNIOR HIGH"֜19:17"CUPERTINO, CA."圁ZP12000:ZPꜫ5dCCT ANSWER IS ";ANS$b117'b30000-b3e?e12:12je" CONGRATULATIONS!"ve13:13e"YOU GOT IT RIGHT"e117e30000e0u49232,0:49234,0:49237,0:49239,0:uh::r4:17|"MICROSCOPE QUIaa:::2a25000Ga"WHAT PART OF THE MICROSCOPE WAS THE "ca"POINTER POINTING TO?"o bREPLY$ bREPLY$""Ģ3:25060 bREPLY$ANS$ī26000*bINDEXINDEX1>bWG(INDEX)RD\b:2pb"THAT'S NOT THE RIGHT ANSWER!"b"THE CORRE00 U25000VQPV::GV"THANK YOU FOR USING THIS PROGRAM"V:"IS THERE ANYONE ELSE WHO WANTS":"TO PLAY? (Y/N) =>";VZ$:Z$"Y"ĬVZ$"N"22042VD$"": CTRL D V"VD$(4):D$;"BRUN JOHN'S MENU"a0a270,YX,YHIS PROGRAM" 5RD$"": CTRL D&6RC:RD$(4):D$;"RUN";"MENU"OS::12}T"WE WILL NOW REVIEW THE ONES YOU MISSED"T117T10000$TAU114:DE(AU)2:AUUQP1INDEXUWG(QP)300,400,500,600,800,900,1000,1100,1200,1300,1400,1500,16:D$;"RUN";"MENU"'10010F':(4);"BLOAD PIC.MICROSCOPE,A$4000"L$'S:5b:270,YX,Yu:AR13000:AR:25040: N:CNINDEX021500HNR"WOW...MACHO BIOLOGIST. YOU DID NOT"R"MISS ANY." 0R"THANK YOU FOR USING TE(12)1FLG1!X100:Y1601ANS$"BASE"<15000BRDE(13)1ı[F21hDE(13)1xX154:Y170ANS$"MIRROR",150006@DE(14)1ıEF21JDE(14)1^X178:Y180rANS$"FOOT"15000:D$(4):Y130~ANS$"STAGE CLIP"'15000-=DE(10)1ıFF21SDE(10)1cX175:Y135tANS$"STAGE"15000 DE(11)1ıF21DE(11)12X160:Y140FANS$"DIAPHRAGM"d15000nxDE(12)1ı}F21DCTIVE LENS"p15000z+DE(7)1ı4F21@DE(7)1PX150:Y118jANS$"OBJECTIVE LENS"u15000~123DE(8)1ıF21DE(8)1X102:Y123ANS$"ARM"815000BLDE(9)1ıQF21VDE(9)1jX165 DE(3)1FLG1&X118:Y100A&ANS$"FINE ADJUSTMENT"LD15000RNaXDE(4)1ıj]F21vbDE(4)1vX168:Y90ANS$"ROTATING NOSEPIECE"15000F21 DE(6)1ı$F21*DE(6)1>X170:Y100 RANS$"OBJE1100,1200,1300,1400,1500,1600+F201404F20=123L,DE(1)1ıU1F21a6DE(1)1oJX153:Y7^ANS$"EYEPIECE"|15000DE(2)1ıF21DE(2)1X155:Y28ANS$"TUBE"15000DE(3)1ıF21URN> TO CONTINUE...":"OR THE KEY TO END PROGRAM=>";R vZ$:(Z$)2722030e w(Z$)13118m x:v yRD0 {FLG1İ10000 FLG0 DNE113 DE(DNE)1ĂDNE DNE1420000 RD((1)13)1RD300,400,500,600,800,900,1000, /FLG1 2:8? <"YOU WILL SEE A PICTURE OF A MICROSCOPE"o F:"AFTER YOU SEE IT, YOU WILL BE ASKED TO" P:"NAME THE PART INDICATED BY THE POINTER." U: Z::"I'LL TELL YOU IF YOU'RE RIGHT OR NOT!" s117 t121: u23:"PRESS A$(P):[***********************w--GET FILE NAME, SUB--:4:"INPUT NAME OF TEXT FILE IF SPECIAL.":"USE SPACE IF NO NAME WAS ASSIGNED.":B$:B$" "D$X1$:B$;:"";D$:D**L--PRT,LAST LINE---NQ(CL$)(CW$)LL1CL$CL$CW$:CW$"":C(CL$)qVCL$""Ė(LM):CL$:CL$"":C0[(DS$,1)"Y"ĺ`CW$""Ė(LM):CW$:CW$""e(DS$,1)"Y"ĺjo***********************t--REVIEW/EDIT PRINT---yA$(,"CC$" "ī1055+CW$CW$CC$:1085a(CL$)(CW$)LL1CL$CL$CW$:CW$"":CC(CW$)$(CLL)(CW$"")CL$CL$" ":CC1)CW$""ī1085.CW$CW$" "3(LM):CL$:CL$"":C08(DS$,1)"Y"ĺ=NBG*********************5LA(A$(A1)):A$(A1)A$(A1)(A$(P),230A):A$(P)(A$(P),(A$(P))A230)eA1A11:A$(A1)A$(P)lPPA11500:A$(P)"":************************--PRINTOUT SUB----NN1(A$(P)) CC$(A$(P),N,1)(CC$)95CC$"WRITE ";D$ P1500:A$(P):4X$;"CLOSE ";D$:X************************q----COMPACT SUB----zA11P2500A$(P)""ī1005(A$(A1))230ī1000(A$(P))32ī1000(A$(A1))(A$(P))231A$(A1)A$(A1)A$(P):100T FILE----k1170/p12:16::"READING":BuX$;"OPEN ";D$UzX$;"READ ";D$kP1500:A$(P):X$;"CLOSE ";D$************************---WRITE TEXT FILE---117012:16::"WRITING":X$;"OPEN ";D$ X$;"DS$-4X$;"PR#1"::1785,LL5LM:-PRTR.ON-C9C0:CL$"":CW$""P>P1500xC(A$(P)"")(A$(P1)"")P500:845H315: (DSPLY)MR1100:(PRT.LAST LINE)WX$;"PR#0": -PRTR. OFF-\a************************ f----READ TEX)16Ė5E A1$A$(P):CH1:CV4:CB0:CA1:((A$(P),1))32CA2:CB1O1440X625v************************ ----MAKE HARD COPY----%:4:"ENTER LINE LENGTH ";LL*:"ENTER LEFT MARGIN ";LM/DS$"N"::"DOUBLE SPACED? Y OR N ";9:"X:EXIT"419:11::"CHOICE?";:9:B$:DB$"X"375\B$"F"P500PP1rB$"B"P1PP1B$"D"A$(P)""B$"F"B$"B"B$"D"625B$"E"770A0$"D"A$(P)"":6256851505::1545:4((A$(P),1)K120:685#4:1:958-11403>12:1m"---------------------------------------"9:"F:FORWARD - TO NEXT BLOCK"9:"B:BACKWARD - TO PREVIOUS BLOCK"9:"D:DELETE ENTIRE BLOCK"9:"E:EDIT--MINI EDITOR--" ************************7]--REVIEW/EDIT DISPLAY--=b_g4:"INPUT BLOCK # & RTN ;";PrlP1P500615q1:1:868vC0:CL$"":CW$""{:"BLOCK #";P;:30:150A$(P)""6704:1:9586:15::"EMPTY BLOCK": R/LF/LF"""RTN,RTN=GO TO MENU">N14:"----'----!";:L24:34,4h!N14:"----'----!";:w&22:35,22+PF5000CH(36)5:P;::3:22:150::33:"BLK.";P::22:1?36,CHD175I(A$(P))""P500NSXB$"7"İ1565<B$"Q"ė:10:15::"YOU'RE CLEAR"::M375:(MENU)k************************ ----WRITE----G1500A$(G)""FG:G500:A0 " CTRL P=PARAGRAPH CTRL R=CR/LF":" CTRL B=BACKSPACE CTRL S=CRINT HARD COPY"-53)"6. COMPACT STORAGE"P53)"7. CLEAR MEMORY OF TEXT"p53)"Q. QUIT THIS PROGRAM"56::"SELECT 1 > Q";::13B$B$"1"İ500B$"2"605B$"3"İ870B$"4"İ915B$"5"İ800B$"6"İ965*********************+w ----MENU---->|34,0:35,24:\150:26)"TEXT WRITER B"o2:17:"MENU"14:"=========="53)"1. WRITE TEXT"53)"2. REVIEW/EDIT"53)"3. READ FROM DISK"53)"4. WRITE TO DISK"53)"5. P******************;----DISPLAY SUB----:@A$(P)""ıCEN12WJA((A$(P),1))OA16A18A19İ1100:(PRT.LAST LINE)TA16CL$" ":C4:365YA19ĺ:365^A18ī365c(A$(P))2ıhN11m1025:: (PRINTOUT)r***2290#(13=RTN. , 16=CTRL P)?(18=CTRL R, 19=CTRL S)[( 2=CTRL B )oT(0):T0T1v T(A$(P))2A$(P)"":280A$(P)(A$(P),(A$(P))1)N1NN1200"B$;'A$(P)A$(P)B$,16*******CH(36):CV(37)* A1A(B$):220: B$:A(B$)_ (A8)(A21)Ĺ36,CH:37,CV:200t B$","B$(95) (A16A18A19)N1N230:A1:300 A13N230:300: (NEXT) A16ĺ:5:295 A19ĺ::295 A18ĺ:295A(13)(4)' ( X$ IS RTN + CTRL D ): 375:( MENU )X ************************u --AVAILABLE MEM. SUB--- M(0):M0MM65536 :"MEM: ";M;: ************************ ----DATA ENTRY SUB---- A$(P)"" N1230 TS-- -A$=B1$+B3$+B2$--? _*************************Z d----TEXT WRITER B----w i-MOD.BY HAMELINK TO ADD n-A DECENT EDITOR, ETC-- s------6/13/81-------- x************************ } ----PRESETS---- A$(500):X1$"TEXT":X$RARY- --A1$,CA,CB=MISC.-5 --DS$=DOUBLE SPACE=  V (-POKE34=WINDOW TOP-r )-POKE36=CURSOR HORIZ.- *-POKE37=CURSOR VERT.- +-POKE1785=PTR.LINE LGTH- 1 2-CALL-868=CLR > LINE END 3-CALL-958=CLR > SCRN END <-ARRAY SEGMEN)-  --X1$="TEXT"-( --A=ASC( )-C --N,N1=LOOP COUNTERS-X --LL=LINE LGTH-q --LM=LINE L.MARGIN- --CC$=CHAR.- --CW$=WORD- --CL$=LINE- --CH=CURSOR HORIZ.- --CV=CURSOR VERT- --C=ARRAY OR LINE POS- --T=TEMPO`!  -----TEXT WRITER B1------n -THIS HAS EDITING REMARKS, USE TEXTWRITER B FOR DE-REMARKED PROGRAM.-- --A$(P)=TEXT ARRAY- --B$=TEXT INPUT CHAR.---C$,D$=COPIES OF B$---B1$,B2$,B3$,B4$=PARTS OF THE STRING- --X$=(RTN+CTRL D          ĤҤŠ ԠҠŠҠԠŠŤԠ̤ȤƠ̠ŤΠԠҠԠŠ̤̠̠̤Ԡ̺̤Ҥ̩Ơ̠Ҡ̠ Ȓ :L s ?LُL7^8_9Z:[`1'8tp`8M``i^j_kZl[`28tp`8M`y h (`|)* X |`YLHHJhh`Ǘ˯߷ë󳏋'C/cO KC[ a(נ)+Ss?ՠ) K(LOK U(NLK D(EL Q(UIT ----------------------------------------VOL PG OF SECT-FREE N(DRIV ---------------------------------------- $% 0 4'  `` :19,3020:4:17,20:21,20:21,2716:21,2722:9:31,3718:31,3720:BIRD IN THE HAND IS MESSY!":*% N1:2617% N1:261D% N1:261Q%# N1:261^%( N1:261H&7:10,2835:10,2836:I826:6,31I:I:0:3,1019:8:16,2211:16,2218:12,1715:12,1723:17,13:21,13:17,17:21,17:17,2116:4:19,3018:19,3019EING IS BELIEVING.":0$ M$"POOR BUT HONEST":N$ M$"HANG IT UP, LOSER.":t$ M$"IN THE GOOD OLD SUMMERTIME":$ M$"I CAME, I SAW, I CONQUERED.":$ M$"HUSBANDS, LOVE YOUR WIVES.":$ M$"THE EVIL THAT MEN DO LIVES AFTER THEM.":% M$"A M$"AS AMERICAN AS APPLE PIE":@# M$"THE SKY IS FALLING.":h# M$"PENNY WISE AND POUND FOOLISH":# M$"WE THE PEOPLE":# M$"TEMPIS FUGIT":# M$"THE CHILD IS FATHER OF THE MAN.":# M$"NECESSITY IS THE MOTHER OF INVENTION.":$ M$"SE LIFE.":/" M$"PRIDE GOETH BEFORE A FALL.":Z" M$"LOOK TO THE ANT, THOU SLUGGARD.":" M$"AN APPLE A DAY KEEPS THE DOCTOR AWAY.":" M$"A POEM AS LOVELY AS A TREE":" M$"COLORS ARE THE SMILES OF NATURE.":" M$"2 GOOD 2 BE 4 GOTTEN":!#POOR MEN'S RICHES.":0! M$"AS GOOD AS GOLD":Y! M$"FASTER THAN A SPEEDING BULLET":! M$"BAREFOOT BOY WITH CHEEKS OF TAN":! M$"LIFE IS REAL, LIFE IS EARNEST.":! M$"OLD SOLDIERS NEVER DIE.":! M$"AS HIGH AS A KITE": " M$"COKE ADDSKEEP YOUR MOUTH AND KEEP YOUR LIFE.":J j M$"AN APPLE FOR THE TEACHER":t o M$"A FOOL'S HONOR IS SUMMER SNOW.": t M$"NICE GUYS FINISH LAST.": y M$"A CHEERFUL HEART IS GOOD MEDICINE.": ~ M$"KIND WORDS ARE LIKE HONEY.":! M$"CHILDREN ARE )B M$"HERE TODAY AND GONE TOMMORROW":OG M$"ONE GIANT LEAP FOR MANKIND":wL M$"BLESSED ARE THE PEACEMAKERS.":Q M$"TO BE OR NOT TO BE":V M$"UNCLE SAM NEEDS YOU!":[ M$"GARBAGE IN, GARBAGE OUT":` M$"PAINT THE TOWN RED.":& e M$""AS FAT AS A PIG":1$ M$"AS HAPPY AS A LARK":S) M$"THANK GOD IT'S FRIDAY.":. M$"LAUGH AND THE WORLD LAUGHS WITH YOU.":3 M$"REJOICE IN THE LIFE OF THY YOUTH.":8 M$"2 4 6 8 WHO DO WE APPRECIATE?":= M$"PATIENCE IS PASSION TAMED.":M$"WHO'S THE FAIREST OF THEM ALL?":U M$"LANGUAGE IS THE DRESS OF THOUGHT.":~ M$"NO MAN CAN SERVE TWO MASTERS.": M$"AS CUTE AS A BUTTON": M$"AS MAD AS A HORNET": M$"AS STRONG AS AN OX": M$"AS HUNGRY AS A BEAR": M$ FOX":&M$"PRETTY AS A PICTURE":QM$"KNEE HIGH BY THE FOURTH OF JULY":~M$"A LISTENER IS A SILENT FLATTERER.":M$"THE POT CALLED THE KETTLE BLACK.":M$"IT'S RAINING CATS AND DOGS.":M$"GIVE ME LIBERTY OR GIVE ME DEATH.":(M$"FAILURE IS THE LINE OF LEAST PERSISTENCE":bM$"DON'T BURN YOUR CANDLE AT BOTH ENDS.":M$"TIME AND TIDE WAIT FOR NO MAN.":M$"AS BUSY AS A BEAVER":M$"AS BUSY AS A BEE":M$"A MEMORY LIKE AN ELEPHANT":M$"AS SLY AS AHAN YOU CAN CHEW.":EM$"ASK WHAT YOU CAN DO FOR YOUR COUNTRY.":nM$"ONE IF BY LAND, TWO IF BY SEA":M$"AS HARMLESS AS A DOVE":M$"GO WEST YOUNG MAN.":M$"A GENTLEMAN'S WORD IS HIS BOND.":M$"ALL'S WELL THAT ENDS WELL.":2E POOR.":9M$"WHERE THERE IS SMOKE THERE IS FIRE.":eM$"A ROLLING STONE GATHERS NO MOSS.":M$"EXPERIENCE IS A HARD TEACHER.":M$"A POEM AS LOVELY AS A TREE"ɱM$"RED SKY AT NIGHT, SAILOR'S DELIGHT":M$"DON'T BITE OFF MORE TYEARS AGO"::aM$"WHEN IN THE COURSE OF HUMAN EVENTS":_fM$"BEAUTY IS ONLY SKIN DEEP.":kM$"CHILDREN OBEY YOUR PARENTS.":pM$"A WORD TO THE WISE IS SUFFICIENT.":uM$"A FOOL'S MOUTH IS HIS RUIN.": zM$"HE WHO LOVES PLEASURE SHALL B"UNDER THE SPREADING CHESTNUT TREE":THM$"HE WHO PLANTS A TREE PLANTS A HOPE.":MM$"BREATHES THERE A MAN WITH SOUL SO DEAD?":RM$"THERE IS NO PLACE LIKE HOME.":WM$"DISCRETION IS THE BETTER PART OF VALOR.": \M$"FOUR SCORE AND SEVEN OL TO DO MISCHIEF.":C*M$"SIMPLE PEOPLE BELIEVE POLITICIANS.":p/M$"A SOFT ANSWER TURNETH AWAY WRATH.":4M$"ONLY FOOLS REFUSE TO BE TAUGHT.":9M$"A NAGGING WIFE IS LIKE DRIPPING WATER.":>M$"OH BEAUTIFUL FOR SPACIOUS SKIES":%CM$.":2 M$"I'M DREAMING OF A WHITE CHRISTMAS.":bM$"DON'T BURN YOUR CANDLE AT BOTH ENDS.":M$"A PENNY SAVED IS A PENNY EARNED.":M$"AN EVIL MAN HAS A BOLD MOUTH.": M$"A WISE SON MAKES A GLAD FATHER.":%M$"IT IS A SPORT TO A FOM$"LAUGH AND THE WORLD LAUGHS WITH YOU.":`M$"FLOAT LIKE A BUTTERFLY, STING LIKE A BEE":M$"APPLE COMPUTERS HAVE NO WORMS.":M$"THE LION IS KING OF BEASTS.":M$"EARLY TO BED, EARLY TO RISE":M$"THE EARLY BIRD CATCHES THE WORMVES NINE.":=M$"A FOOL AND HIS MONEY ARE SOON PARTED.":iM$"ROSES ARE RED, VIOLETS ARE BLUE.":M$"SPARE THE ROD AND SPOIL THE CHILD.":M$"IF AT FIRST YOU DON'T SUCCEED TRY AGAIN.":M$"THE QUALITY OF MERCY IS NOT STRAINED.":,5,2418:15,2420:14,2419:385Q)9:17,2215:16,1716:14,22:15,1617:38539:17,2223:16,1722:24,22:15,1621:385=9:24,2517:25,2616:26,3115:14,31:385F9:24,2521:25,2622:26,3123:24,31:385 M$"A STITCH IN TIME SAS 'S'TO STOP; RETURN TO CONTINUE.";:16368,0fnI(16384):I128622:16368,0:936:I211128:l0:2,221:2,222:1,363:1,362:4,3435:4,3436:9:3,519:17,216:7,1216:7,1222:17,2113:18,2011:18,8:20,8:385 4:1(OU$,I,1)"-"I999I:21:1:" ";:I777300:21:5:" Y O U G O T I T ! ":600:5000:J13:I1100:X(16336):16336,0:I:Y12312:J:22:1:M$-XI11222:I:24:1:" ";:1:"PRES * * * ":II1L:(M$,II,1)A$459:II1IIL458:II1457:OU$(OU$,L1)A$:459OU$A$(OU$,2,L1):459OU$(OU$,II1)A$(OU$,LII)II:22:1:OU$:1:E1464:24:"MISTAKES: ";:I1E:(E$,I,1)" ";:II1L:99rI:I888375:IJ:4500wEE1:E$E$A$U|E1042,1055,1065,1075,1085,1094I150:X(16336):16336,0:I:E3395:E4:38022:1:OU$:E1300:24:1:"MISTAKES: ";:I1E:(E$,I,1)" ";:I:E6570:300d5:21:"* * * HITN116L L(M$):OU$"":I1L:A$"-":X$(M$,I,1):(X$)48(X$)90A$X$g OU$OU$A$:I:22:OU$ ,23:30:"GUESS ?"; /A$:I(16366)(16336)(16336):(A$)3Ā2(A$)48(A$)90303:23:30:" ";:I1L:JI:(M$,I,1)A$I92385,2390,2395,2400:(N81)2405,2410,2415,2420,2425,2430,2435,2440,2445,2450,2455,2460,2465,2470,2475,2480,2485,2490,2495,2500 (N101)2505,2510,2515,2520,2525,2530,2535,2540,2545,2550,2555,2560,2565,2570,2575,2580,2585,2590,2595,2600 NN1:N10,2155,2160,2165,2170,2175,2180,2185,2190,2195,2200 (N41)2205,2210,2215,2220,2225,2230,2235,2240,2245,2250,2255,2260,2265,2270,2275,2280,2285,2290,2295,2300 (N61)2305,2310,2315,2320,2325,2330,2335,2340,2345,2350,2355,2360,2365,2370,2375,2380,WHAT THE DASHES MEAN.":N5(111(1))W CC1::7:I039:0,39I:I:1030:258:2673 N2000,2005,2010,2015,2020,2025,2030,2035,2040,2045,2050,2055,2060,2065,2070,2075,2080,2085,2090,2095,2100:(N21)2105,2110,2115,2120,2125,2130,2135,2140,2145,215O 40 CHARACTERS LONG INCLUDING NUMBERS AND LETTERS."::I12111:I:"YOU CAN GUESS ONE CHARACTER AT A":"TIME. ON THE FIFTH MISTAKE YOU WILL BE * * * HUNG * * *."::I11666:I& "PRESS ANY KEY TO START. ";:16368,0:A$:"":936:21:1:"GUESS 8"|B' p@x"`p`@p" @f@"dO@ swpfx8"  @@" `"F&@ b@1 @f" @C p@ "@5X@` 2|>p? "@0 @" 80~"D&@bxc0s3"`@@`f@"`x@@8"d=@0p#@p?@"`~A" &@c"~AN@"@@ @3@" x@@"o@|`@#``@"A "0&pp@ 3"p` p@``@@@0"04X@"x@DIE: 140-200 PLOT DIEe: 1000-1005 HIRES MODE& SET COLOR, CENTER DIE ON SCREEN, PLOT 60 APART: 1010-1200 PLOT DOTS, TIME BETWEEN EACH DIE PLOT N: BY MARK ANDERSON MAY 1980 THIS WILL ":11:"BEGIN THE REROLL."01000021:10:"WHEN READY TO BEGIN,":11:"HIT THE SPACEBAR. ";:A$:A$" "5128: 2200P12:12:"HAPPY GAMBLING !":I13500:I::'I14500:I:: 100-DIMENSION: 130-PLOT SQUARE FOR 7:"TYPE IN ALL FIVE NUMBERS."R9:"****************************************"11:"THE NUMBERS WILL NOT SHOW ON THE SCREEN."13:"****************************************"%16:5:"WHEN DONE WITH YOUR SELECTION ":5:"TYPE NUMBER '9', AS11:"9) A '#' HIGH"D21:3:"THIS IS THE ORDER FROM HIGH TO LOW"22:5:"HIT THE SPACEBAR TO CONTINUE. ";:A$:A$" "51059362:9:"TO REROLL CERTAIN DIE,":3:"TYPE IN THE DIE NUMBER TO REROLL.":11:"TO REROLL ALL DIE,":936$3:11:"1) FIVE OF A KIND"D5:11:"2) FOUR OF A KIND"`7:11:"3) FULL HOUSE"9:11:"4) HIGH STRAIGHT"11:11:"5) LOW STRAIGHT"13:11:"6) THREE OF A KIND"15:11:"7) TWO PAIR"17:11:"8) ONE PAIR"19:COND AND THIRD ROLLS,"b7:14:"YOU MAY REROLL ANY OR ALL":7:16:"OF THE DIE ON THE SCREEN."5:22:"HIT THE SPACEBAR TO CONTINUE. ";:A$:A$" "508093613:7:"THE POSSIBLE COMBINATIONS":"":11:"YOU CAN ROLL ARE:":I12000:I:(Y/N) ";:A$:A$"Y"A$"N"50553A$"N"220094:"THE OBJECTIVE OF THIS GAME IS TO GET THE":8:6:"SAME FACE ON ALL FIVE DIE."3:8:"TO DO THIS, YOU HAVE TWO ADDITIONAL":4:10:"ROLLS AFTER THE PRELIMINARY ROLL.":5:12:"IN THE SE2222:I:936:1I8:"****************************************"17:11:"MARK V":6:13:"MAY BE MORE COMMONLY KNOWN AS ":14:15:"'POKER DICE' "18:"****************************************":10000:936"12:10:"INSTRUCTIONS ? J1100:J,I36:8,968,7617,8426,7626,96W68,9676,7685,96:72,8681,86128,96128,76140,76147,81140,86147,96:128,86140,86188,96188,76:204,76188,86204,96249,76257,96265,76:246,76268,76:252,96260,96I1E(4)E(5)Ė1:868:"YOU HAVE A ";E(5);" HIGH.":I15000:I::2000:3:22:"WELCOME TO THE WONDERFUL WORLD OF...":I12000:I:936::I12000:I:936:15:V70I15:H(I1)60H1,VH33,VH33,V31H1,V31H1,VND, IN ";E(3);"'S.":I15000:I:2000 E(1)E(2)E(2)E(3)E(3)E(4)E(4)E(5)Ė1:868:"YOU HAVE 1 PAIR, IN ";(E(1)(E(1)E(2)))(E(2)(E(2)E(3)))(E(3)(E(3)E(4)))(E(4)(E(4)E(5)));"'S.":I15000:I:2000E E(1)E(2)E(2)E(3)E(3)E(4)1:868:"YOU HAVE A LOW STRAIGHT.":I15000:I::2000 (E(1)E(2)E(2)E(3))(E(3)E(4)E(4)E(5))Ė1:868:"YOU HAVE 2 PAIR, IN ";E(2);"'S AND ";E(4);"'S.":I15000:I::2000& (E(1)E(3))(E(3)E(5))(E(2)E(4))Ė1:868:"YOU HAVE 3 OF A KI(4)E(5))(E(1)E(3)E(3)E(5))Ė1:868:"YOU HAVE A FULL HOUSE, IN ";E(1);"'S AND ";E(5);"'S.":I15000:I:2000 E(1)2E(2)3E(3)4E(4)5E(5)6Ė1:868:"YOU HAVE A HIGH STRAIGHT.":I15000:I::20008 E(1)1E(2)2E(3)3E(4)4E(5)5ĖLO:D(C)7:AA1:A627158 I15:D(I)E(I):I:1000 E(1)E(5)Ė1:868:"YOU HAVE 5 OF A KIND, IN ";E(1);"'S.":I15000:I::2000 (E(1)E(4))(E(2)E(5))Ė1:868:"YOU HAVE 4 OF A KIND, IN ";E(3);"'S.":I15000:I:2000s (E(1)E(2)E. 9 TO END ";: J$:J(J$):(J1J5)(J9)ĺ"":2510H J92600c D(J)((1)6)1:2510} ( 1000:AA1:A32510 FIGURE OUTCOME AND PRINT REORDER ARRAY AND PLACE IN E A1 LOD(1):C1:X25:D(X)LOLOD(X):CX X:E(A)? (Y/N) ";:A$:A$"Y"A$"N"20008 A$"N"ė:5200C 62450Z  RANDOM DICE ROLLy I15:D(I)((1)6)1:I  ` 1000: PRINT DICE REROLL (MAX 2 MORE) A1 21:I15:(I1)91:I;:I 1:23:956:"ENTER DIE TO REROLLH27,V24:! 62450::3:V707 I15:H(I1)60@ 130W D(I)1İ170:1200r 140:200:D(I)21200 D(I)3İ170:1200 160:180:D(I)41200 D(I)5İ170:1200 $150:190 J1100:J,I $ ::12:11::"PLAY AGAIN V24:I H17,V14H19,V14H19,V16H17,V16H17,V14H18,V15: H26,V5H28,V5H28,V7H26,V7H26,V5H27,V6: H26,V14H28,V14H28,V16H26,V16H26,V14H27,V15: H26,V23H28,V23H28,V25H26,V25H26,V23dD(6),E(5)|22(}5000:2200UH1,VH33,VH33,V30H1,V30H1,V:H7,V5H9,V5H9,V7H7,V7H7,V5H8,V6:H7,V14H9,V14H9,V16H7,V16H7,V14H8,V15: H7,V23H9,V23H9,V25H7,V25H7,V23H8,             @@ 0:ȡHe@ hhл`Ie@҈0  C iiLح) 0JJJJ 0 0`% $ B2 3 3 Hi&eh Li`$3  ɍ ` X̅0 `JOHN'S SUPER UTILITY PROGRAM L(OAD R(UN C(ATRIFY\  2m2R&QPNQmRJnPmPee2`8322 ` :` 3^څ6789 Q H Ȓ @^38JJJJi 0`6798 Q`Hɍ3h`` 6  H5/5 s r > a ` `$$(ɠ$I $4 ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START A$\ LENGTH L$\,D\I/O ERROR\VE gW'  `^ :F Y %^LǏLZ^[_\Z][`1''>>PRESS ANY KEY TO CONTINUE<<<";9040 :  SCOLL THE LEFT HALF OF THE SCREEN UP WHILE HOLDING THE RIGHT 1 (j" H4% = 20 H8% = 20.tZ~" WE WANT TO USE THE SECOND COPY TO ~"ROLL THE LEFT HALF DOWN. SO:" V1% = 1 V3% = 2" V2% = 23 V4% = 24" AND WE WANT TO USE THE THIRD COPY TO"TO MOVE ONLY THE LEFT HALF OF THEN$"SCREEN. THIS MEANS WE WOULD USE THE y."HORIZONTAL VARIABLES TO MOVE COLUMNS8"ONE THRU TWENTY.BL" H1% = 1 H5% = 1 V" H2% = 20 H6% = 20`" H3% = 1 H7% = NEVER BEEN DEFINED> "THEN THE DEFAULT VALUE WILL BE USED.l "CALLING THE UTILITY DOES NOT CHANGE THE "VALUES OF THE VARIABLES. 23 " >>>PRESS ANY KEY TO CONTINUE<<< 9040" NOW BACK TO OUR EXAMPLE. WE WANTED" STARTING LINE: " V2% V6% 24 FROM ENDING LINEf " V3% V7% 1 TO STARTING LINE " V4% V8% 24 TO ENDING LINE  " TO USE THE UTILITY, FIRST DEFINE THESEIN YOUR PROGRAM. THEN CALL THE UTILITY.IF ANY VARIABLE HASFAULT USE *\ " COPY COPY VALUEWf " H1% H5% 1 FROM STARTING COLp " H2% H6% 40 FROM ENDING COLUMNz " H3% H7% 1 TO STARTING COLUMN " H4% H8% 40 TO ENDING COLUMN  " V1% V5% 1 FROM HALF* "OF THE BOTTOM LINE TO THE TOP.2 23\ " >>>PRESS ANY KEY TO CONTINUE<<<f 9040l* 4 " SIXTEEN INTEGER VARIABLES ARE USED> "TO TELL THE UTILITY HOW TO REARRANGE THESCREEN. THESE VARIABLES ARE:H R "SECOND THIRD DE "HOLDING THE RIGHT HALF OF THE SCREEN~ "STILL. THE 1 TO 1 MOVEMENT OF THE FIRSTCOPY WOULD KEEP THE RIGHT HALF IN TACT. "THE SECOND COPY COULD BE USED TO ROLL "THE LEFT HALF OF THE SCREEN DOWN. AND "THE THIRD COPY COULD MOVE THE LEFTIN A SINGLE COPY. A " >>>PRESS ANY KEY TO CONTINUE<<<K 9040Q | " I WILL NOW EXPLAIN THE PURPOSE OF "THE THREE COPIES BY USING AN EXAMPLE. "LET'S SAY THAT YOU WANT TO SCROLL THE "LEFT HALF OF THE SCREEN DOWN WHILE(EN.=0 " 3) STEP 2 IS REPEATED WITH YET ANOTHER BLOCK.C: lD " NOT ONLY MAY THE BLOCK BE MOVEDN "DURRING COPIES 2 AND 3 BUT THE CAN ALSOX "BE FLIPPED LEFT-RIGHT AND/OR UP-DOWN.b l " THE TRANSFER BACK TO SCREEN ISv "DONE ACK TO THE SCREEN.> "THE TRANSFER TO THE BUFFER IS DONE INQ "THREE STEPS.W } " 1) THE WHOLE SCREEN IS COPIED " UNALTERTED TO A BUFFER.  " 2) A BLOCK OF THE SCREEN IS COPIED TO& " A DIFFRENT LOCATION ON THE SCRESUB<H1%3:H2%3:H3%3:H4%3:V1%3:V2%21:V3%4:V4%22vH5%3:H6%37:H7%4:H8%38:V5%22:V6%22:V7%22:V8%22SUB  : " THIS UTILITY WORKS BY TRANSFERING "THE SCREEN INTO A BUFFER AND THEN TRANS-FERING THE BUFFER B WRITTEN BY: STEPHEN B. SULLIVAN"CI(S$)11[38:21:(S$,I,1);e2200kwI122 2200H1%38:H2%38:H3%38:H4%38:V1%4:V2%22:V3%3:V4%21H5%38:H6%4:H7%37:H8%3:V5%3:V6%3:V7%3:V8%3GOOD LUCK FOLLOWING THIS."7I1(B$(1))12>1IJ17UKIJ1\1K0K(B$(1))Ė(K6):(B$(8J),K,1);SUBI6H1%H1%1:H3%H3%1:H5%H5%1:H7%H7%11S$"EUNITNOC OT YEK YNA SSERP *"5 VB$(7)"****************************"; `: jDEFINE INITIAL VALUES FOR THE VARIABLES WHICH ARE TO PASSED TO THE UTILITY tH1%1:H2%40:H3%1:H4%40:H5%1:H6%40:H7%1:H8%40:V1%24:V2%24:V3%1:V4%1:V5%1:V6%23:V7%2:V8%24 ~:CK MESSAGE B$(10)? B$(1)"****************************"h $B$(2)"* *" .B$(3)"* A UTILITY TO MOVE *" 8B$(4)"* *" BB$(5)"* SEGMENTS OF THE SCREEN *" LB$(6)"* GAIN. 5 "DO YOU WANT TO SEE THE INSTRUCTIONSM "AGAIN. (Y OR N) W 9040g A$"N"800y A$"Y"İ3000 720 : *PRINT CLOSEING MESSAGE 44000  : PRINT THE BLOCK MESSAGE ON THE SCREEN. : DEFINE THE BLO:B  WAIT A LITTLE BIT AND THEN SWAP THE NAME WITH THE MESSAGE.R I12000:q V1%9:V2%16:V3%17:V4%24 V5%17:V6%24:V7%9:V8%16 &SUB 09040 X: bPRINT INSTRUCTIONS l3000 : LOOP IF INTRUCTIONS SHOULD BE DESPLAYED ATHE BLOCK MESSAGE 1000! ,:S 6MARQUE NAME AND MESSAGE AROUND BLOCK MESSAGE] @2000c : SWAP BLOCK WITH MESSAGE H1%1:H2%40:H3%1:H4%40:H5%1:H6%40:H7%1:H8%40 V1%8:V2%14:V3%1:V4%7 V5%1:V6%7:V7%8:V8%14 SUB \ WRITTEN BY:- STEPHEN B. SULLIVAND 3909 DREW AVE S.a MINNEAPOLIS, MN. 55410~ PHONE (616) 920 - 8463d:nSUB35840xSUB LOAD THE UTILITYD$(4)D$;"BLOAD MOVE SCREEN BINARY A$8C00": PRINT         Ezָ((((PPPPȌȌ``gg``77z L" L"m ō ~ ~  08 Lx Lxm ōL0``8č8Mč*y``8`5I085LmLة '  v( vLijȥ ȱȱ`iikեlϩ` ~ ~  08)N*m+Jn)m)eeU`8VUU ڑ` :` ^6789 Q@ q . @^`6798 Q`H h``noVVi@iA)moo g p g) pmn/5 qs r ; qa ` `$$(ɠ$C q$W ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\I/O ERROR\@  UmU+&*Y Y P ,X B АX SET UP ?";A$$&(A$,1)"N"İ168000:2310L:"NUMBER OF TIMES ?";I2[DD$;"PR#1"hNI11I2sXMLK~bI02l(N$(N%(M),I))33ĺCC$;:N$(N%(M),I);:CD$:1920vN$(N%(M),I)I::MI1D$;"PR#0""LABELS IN AND PRINTER ON ?";:A$:6:D$;"PR#1"G"DANA LONN"a"1600 NOKOMIS COURT"}"MINNEAPOLIS MN 55417"::D$;"PR#0"23:"IS THAT OK (YES OR NO) ?";A$(A$,1)"N"1710 PRINT LABELS "PRINTERNTINUE";A$::1540ZA$F$(2980<"D$;"MON C,I,O"W,D$;"OPEN ";ZA$;",D";Dk6D$;"READ ";ZA$z@IN1400JN$(I,0):N$(I,1):N$(I,2):N%(I)IT^216,0hD$;"NOMON C,I,O"rNI1:N1N1150 SET UP LABELS%I2I21%I216ĺ(12):I20,MDCD$: NORMAL PRINTSD$;"PR#0"Yq READ IN DATA FILE:I20:N0Ą"START NEW FILE ?";A$:(A$,1)"Y"N0"FILE NAME (C/R FOR CATALOG) ?";F$ (F$)0ĺD$"CATALOG":"PRESS RETURN TO COz #p0Xβ ΧӠՠ  ŮӠ ԠҠ  ؠҠ ҠŠˠ֠ŠԠҠ±#ҠӠ îŠ! " ̠ӠŠŠŠ ԭӠŠΠ٠ðŠΠ٠ àӠ àҠ  РӮ ΧӠՠΠ:! ɭӠЮΠح! ӠР!ԠɭӠŠ!Ϡĩ  ͠ҠǠŠ  Š ˠҠ  Ӡ̠ԠҠӠ ŠĠӠӠ Ϡ ǠԠǮԠ ԠϭҠϠ͠ϭ̠Š٠ŠԠӧŠĠӠϮ͠͠Ϡĩ ŠĠϠҠӠͮĠ٠͠ƠȠҠӮ̠ӠҠŠΠϠͮӠҧϠԠϠĩϠӠήǠԠŠ͠ԠӠՠĠŠӠĠΠŠӮؠҠ ɧЧӠ͠Ԡ͠ҍԠ͠ҍ̠ЮԠ͠ҍӠԠ͠ҍԠ͠ҍԠ͠ҍɧЧӠ      "D216,0: (FT$(S),1)"B"(FT$(S),2,1)"B"CMD$"BLOAD":460B CMD$"LOAD"U D$;CMD$;T$(S)[ e 560n ER0 "OPEN PROG.LIST" "READ PROG.LIST" X C1X T$(C):FT$(C):DE$(C):SP(C) &:570 0768:ER1:"CLOSE PROG.LIST,1)"T"(FT$(S),2,1)"T"Ģ20:370[ h18:"'1' RUN THIS PROGRAM":"'2' LOAD THIS PROGRAM" r"'3' RETURN TO LIST":"'ANY OTHER KEY' .. NEXT ENTRY"; |16368,0:A$: A$"1"260 A$"2"440 A$"3"150 SS1:SX1150 3202 CXė: (S$,1)"D"2907 S(S$):S1S70200I SP(S)2200 (FT$(S),1)"B"(FT$(S),2,1)"B"CMD$"BRUN":280 CMD$"RUN" D$;CMD$;T$(S) "S((S$,2,2)) ,S1SX200 @ JFT$(S);" ";T$(S) T:DE$(S)" ^(FT$(S))2Ė4:"*"; 5:T$(C)- (37)172003 20:958:"'#' OF SELECTION TO RUN (* WILL NOT RUN)'C' TO CONTINUE LIST 'R' TO RESTART LIST 'D' + '#' FOR PROGRAM DESCRIPTION ? ";S$ S$"R"150 S$"C"9,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96a nD$"": CONTROL Dt x"NOMONI,C,O" T$(70),FT$(70),DE$(70),SP(70) 480 :ER1Ģ10::"NO PROGRAMS LISTED IN FILE AT THIS TIME"::: C1X C;".";:SP(C ***********************< * AUTHOR- JIM PFEIFFERX * NORTHWEST SUBURBANs( * APPLE USERS GROUP2 * (NSAUG) --PERMISSION< * GRANTED FOR FREEF * REPRODUCTION & USE.P ************************Z:J d768,104:76   (4);"BRUNMENU" ENU"  IE$"":E0:CC0195::936:16298,0::::8)"FAMOUS SAYINGS HANGMAN"::15)"COPYRIGHT 1980"::15)"BY MARK CROSS"::::I1888:I:"THIS IS A HANGMAN GAME WITH":"FAMOUS SAYINGS FOR YOU TO GUESS."::I12555:I "THE SAYINGS ARE UP T               ҠŠũԠӠŠ٠ˠΠϠӠԠԠŠŠȠ̮ӠĠŠԠŠөנԠԠҠӠŠǠŮҠӠҠ٠ ȠΠΠҮԠӠŠӠŠҠϠנŠԠŠϠΠĠ٠ӠŠĠŠŠӠĠϠԠŠĠƠŠӮҠŠˠ֠ŠŠƠҠŠҠ͠ϠŠŠӠƠɠƠ٠ˠ׮ŮǮԠԠԠŠȠҠӠԮԠŠɠŠӠԠŠŠӠĠϠӠŠӠȠӠҠή͠͠àӠ͠ϠŠĠ٠͠ĠΠŠӠԠĠŠΠĮ٠ˠ׮ŮàԠȠҠˮԠӠȠŠŠ͠ΠŠˠƠҠˠӮϠ̠͠٧ӠΠƠ͠ϠŠŠĠӠƠӮӠԠĠԠō͠ϠŠԠàŠǮŠ͠ӠנϠԠŠӠĠǠŠҠՠŮ٠̠Ġ͠ŠĠٮˠҠ͠ϠРՠŠŠ٠ŠҠȠή٠ĠՠΠ͠͠Ҡ͠͠Ԡ̠Ԡ٠Ҡ٠ŠĠĮ٠ΠҠ͠͠ԠϭҠԠҠĠΠΠŠΠϧ̠ˠĠԠĠŠԠȠŠԮΠ͠ΠΠ٠ŮԠΠŠĠϠŠӠϭ̠ՠΠ͠Ϡנ٠ŠƠ͠ɮԠ̠̠٠ΠĠĠƠԠӠϠԠȠΠŠĠϠ̠ԠԠӮ٠ΠΠΠ͠ԠҠ±ŠΠ٠ð ٠ŠҠŠΠ٧ԠҠŠ͠ϠŠŠ̠ӠΠӠҠ̠ԠӠĠӮ٠ΠΠ͠͠ӠҠǠŠΠàРӮŠΠ٠Ӡ͠ӠĠƠǠ٠ŠŠŮŠӠ̠ŠӠ٠ŠϠҠΠӮ٠ŠΠΠ͠٠٠ȠĠΠҠ͠͠ԠɭӠŠ ŠŠϠԠŠˠĠŠӠҠŠǠƠӠŮŠРӧРӮŠԮԠΠŠĠȠŧɭӠЮΠح РϠΠΠҠƠӠŮԠӠΠŠԠΠԠӠƠ٠ԠŠΠĩŠŠӠΠРӧϠԠԠҠήŠԠŠŠϠŠӠҠΠΠԠԮŠŠŠ͠ϠŠΠçŠͮ͠٠Š̠Π͠Š̩̠ԠŠϠŠĠӠϠȠ̠ӧŠĠ͠ħӠΠƠˠ٧Ӡ͠ϠנӠƠӠƠԠӮŠӠĠŠĠǠ̠ͮԠӠŠϠŠӠƠРϠӠĠԠ͠٠ҠРŮԠϠ̠ϠϠĠԠҠӠԠŠϠǠҠĠ̮٠ή Ӡ̠ԠԠ$B19:5:"1";AG$)L21:5:"2";AF$;V23:25:AD$;O`23:35:"";ZZ$`j23:1:AH$;tt(ZZ$)11170~ZZ$"1"720ZZ$"2"200:23:1:AC$;:1120**** PAGE 5 ****1:8:AA$3:5:"BUILD"10000 DIGIT.......POKE 894,X"M7:6:"THE DEFAULT VALUES FOR THE ABOVE"|9:6:"FIVE POKES ARE: 0, 0, 1, 240, AND"11:6:"240 RESPECTIVELY. ALLOWABLE VALUES"$13:6:"FOR X ARE 0 THROUGH 9 OR 240 FOR A".15:6:"SPACE."818:ABZ$z23:1:AH$;&(ZZ$)19407ZZ$"1"970HZZ$"2"480YZZ$"3"200n:23:1:AC$;:w880}**** PAGE 4 ****1:6:"100 DIGIT.........POKE 896,X"3:6:"1000 DIGIT........POKE 895,X"5:6:Y VALUE BY POKING BEFORE THE"= 11:6:"CALL 787 IS MADE."h*13:6:"UNITS DIGIT.......POKE 898,X"415:6:"TENS DIGIT........POKE 897,X">16:AB$H17:5:"1";AE$R19:5:"2";AG$\21:5:"3";AF$f23:25:AD$;p23:35:"";Z0**** PAGE 3 ****%+]1:" 3 - CALL 787 TO RESTART NUMBERING WITH"3:6:"THE LINE NUMBER WHICH WAS IGNORED"5:6:"WHEN THE LAST CONTROL-X WAS TYPED." 7:" 4 - THE RESTART LINE NUMBER MAY BE SET"9:6:"TO AN"D15:6:"BY 10."BN17:" 2 - EXIT BY TYPING A CONTROL-X."OX18:AB$cb19:5:"1";AE$wl21:5:"2";AF$v23:25:AD$;23:35:"";ZZ$23:1:AH$;(ZZ$)1690ZZ$"1"720ZZ$"2"190:23:1:AC$;:64:12:"INSTRUCTIONS"E 5:"THIS ROUTINE WILL AUTOMATICALLY NUMBER"t 7:"APPLESOFT LINES AS THEY ARE ENTERED." &9:" 1 - CALL 770 TO START NUMBERING WITH" 011:6:"LINE NUMBER 100. THE FOLLOWING":13:6:"LINE NUMBERS WILL BE INCREMENTED5:AD$; ^23:35:"";ZZ$, h23:1:AH$;? r(ZZ$)1410P |ZZ$"1"480b ZZ$"2"1200s ZZ$"3"440 :23:1:AC$;: 350  **** END PROGRAM ****    **** PAGE 2 ****   1:8:AA$ 3"IT WILL BUILD THIS ROUTINE FOR YOU USING"Z 13:"A METHOD DESCRIBED IN THE JUNE 1979"| "15:"ISSUE OF 'CALL APPLE'." l16:AB$ 617:5:"1 - INSTRUCTIONS" @19:5:"2 - BUILD AUTO NUMBER SUBROUTINE" J21:5:"3 - END PROGRAM" T23:2 **** PAGE 1 **** & 5 1:8:AA$g 3:"THIS PROGRAM GIVES THE INSTRUCTIONS FOR" 5:"USING THE APPLESOFT AUTO NUMBER SUB-" 7:"ROUTINE THAT APPEARED IN THE OCTOBER" 9:"1979 ISSUE OF 'CALL APPLE'. OPTIONALLY"+ 11:AB$"----------------------------------------"S AC$"INVALID ENTRY, RE-ENTER"g AD$"SELECTION" AE$" - NEXT PAGE OF INSTRUCTIONS" AF$" - RETURN TO MAIN MENU" AG$" - PREVIOUS PAGE OF INSTRUCTIONS" AH$" " F9dAPPLESOFT AUTO NUMBER BY DARYL HAMMOND 10-27-79eREFER TO 'CALL APPLE' OCTOBER 1979 PAGE 5, 'AUTO NUMBER' BY GERALD CAHILLfREFER TO 'CALL APPLE' JUNE 1979 PAGE 6, 'MONITOR ROUTINE' BY S.H. LAMn::xAA$"APPLESOFT AUTO NUMBER"0         ̧ҠԠ٠ԠԠԠӠҠȠҠΠĠЮҠӠˠҠΠŠ٠Ƞ̮ԠӠŠĠŠĠӠҠ٠Ϡٮ٠ҠǠŠҠҠӠĠ٠ˠٮǠŠ͠ϠŠǠҠҠҠӠӮϠ٠ĠήŠӠŠàҠàϠ͠Š٠ĠΠϠӠҠŠŠԮӠӠȠĠ٠ϠƠɭӠӮˠ٠ĠŠҠҠŠԠŠĠƠŠͮҠ SK I/O DESIRED, CREATE THESE MENU CHOICESIOFLAG2İ70:LN$(CU)LN$(CU)P$(N)".)"" LOAD FILE FROM DISK"P1$:70:LN$(CU)LN$(CU)P$(N1)".)"" SAVE FILE TO DISK"P1$70LN$(CU)LN$(CU)"PRINT"&N1MI0NUNUIC50:NU(N)NU:NFILE TO DISK' AND":"'LOAD FILE FROM DISK'";AN$J (AN$,1)"Y"IOFLAG2X CH(CH$)i CHCHIOFLAGu N1CH "ENTER MENU CHOICE # ";N MENU$(N) N N1CH 70 LN$(CU)LN$(CU)P$(N)".) "MENU$(N)P1$ N)**IF DI NEED A MENU?";AN$( @(AN$,1)"N"7400 J70 TLN$(CU)LN$(CU)"HOME:PRINT:"P$" ********** MENU **********"P1$":PRINT" ^IM(1)LN h"HOW MANY CHOICES ON THE MENU";CH$ rMI(CH$) |DI0410/ :"WILL THE CHOICES INCLUDE ":"'SAVE  DI2ī250 > "HOW LARGE SHOULD THE ARRAY BE?";ROWd LN$(CU)LN$(CU)"DIM DA$("(ROW) DI1LN$(CU)LN$(CU)")":310 LN$(CU)LN$(CU)","(COL)")" 70 "LN$(CU)LN$(CU)"NC="(COL) ,**CREATE A MENU 6"WILL THIS PROGRAMD" :2000I "WILL THIS PROGRAM STORE DATA IN A STRING ARRAY?";AN$_ (AN$,1)"N"310g 70m "WILL THE ARRAY HAVE 1 OR 2 DIMENSIONS?";AN$ DI(AN$) DI1DI2200 DI2ĺ:"HOW MANY ELEMENTS BY HOW MANY ELEMENTS":ROW,COL% P**ENTER LINE NUMBER PARAMETERS/ Z::V d"ENTER BEGINNING LINENUMBER";BLN$ n:"ENTER LINE NUMBER INCREMENT";IC$ xIC(IC$) LN(BLN$)IC **CREATE 'CLEAR' AND 'DIM' STATEMENTS 70 LN$(CU)LN$(CU)"HOME:D$=CHR$(4):REMCNTL-m0:"***** AUTOMATIC PROGRAM WRITER ******"<:5000f:"PRESS RETURN TO RUN PROGRAM";ANS$l zLN$(100)P$" PRINT "(34)" "(P1$(34)290< **INCREMENT LINE NUMBER COUNTERS FLNLNIC:CUCU1:LN$(CU)(LN)" ":     )&BY DARYL HAMMOND (612) 487-1002/0E:ST PAUL MN 55117AILIAR WITH THE"'5:"INSTRUCTIONS."420:AB$H21:5:"1";AF$Y23:25:AD$m23:35:"";ZZ$~23:1:AH$;(ZZ$)11780ZZ$"1"200:23:1:AC$;:1740PERMISSION GRANTED TO REPRODUCE FOR PERSONAL USEY$Y$X$"I1(Y$)4,511I,((Y$,I,1))128@6:72,0J@144\JZZ$"1"1640nKZZ$"2"1640{T796,173^844,173hr**** PAGE 6 ****|1:"THE APPLESOFT SUBROUTINE IS NOW READY."3:"BE SURE YOU ARE FAM3 68 60 C9 8D F0 02 68 60 8A"*Y$Y$X$9I1(Y$)U511I,((Y$,I,1))128a:72,0k144Y$"358:48 A2 03 FE 7E 03 BD 7E 03 C9 0A 30 08 A9 00 9D 7E 03 CA 10 EE 90 05 A9 01 9D 7E 03 68 AA 68 60 F0 F0 01 00 00 F0 F0 F0 01 00 00 F0" 8 A9 03 85 39 20 EA 03 68 60 48 8A C9 06 10 0A 68 91 28 BD 7E 03 18 69 B0"WY$Y$X$fI1(Y$)511I,((Y$,I,1))128:72,0144Y$"330:60 68 2C 00 C0 10 FB 91 28 AD 00 C0 2C 10 C0 48 C9 98 D0 0D A9 1B 85 38 A9 FD 85 39 20 EA 0Z$"3"1451pZZ$"4"1453.xZZ$"5"200C:23:1:AC$;:M1350Su**** BUILD SUBROUTINE ****{X$" N 1025G"1460X$" N D823G"1460JY$"302:48 8A 48 A2 05 BD 78 03 9D 7E 03 CA 10 F7 68 AA 68 48 A9 21 85 3, 15:5:"2 - ROM APPLESOFT AND DOS 3.2"Q(17:5:"3 - RAM APPLESOFT ONLY"v)19:5:"4 - ROM APPLESOFT ONLY"221:5:"5";AF$<23:25:AD$;F23:35:"";ZZ$P23:1:AH$;Z(ZZ$)11410dZZ$"1"1451nZZ$"2"1453 oZ AUTO NUMBER SUBROUTINE"I5:"THE SUBROUTINE IS LOCATED IN MEMORY AT"{7:"$302 THROUGH $383 (770 THROUGH 899) AND"9:"HAS A LENGTH OF $82 (130) BYTES. FOUR"11:"VERSIONS EXIST."12:AB$13:5:"1 - RAM APPLESOFT AND DOS 3.2")"VTAB23:PRINTTAB(22)"P1$"PRESS SPACE BAR"P1$";:GET Q$":70upLN$(CU)LN$(CU)"POKE34,0:REM NORMAL SCREEN":70{"THIS APPLESOFT VERSION OF DAVID BUSCH'S":"'TRS-80 PROGRAM WRITER' WAS ADAPTED BY""BILL DECOURSEY OF THE MINNI'APP'LES"4:VTAB 8":70B>LN$(CU)LN$(CU)"FOR X=1TO6:PRINT B$:NEXT X":70zHLN$(CU)LN$(CU)"VTAB10:HTAB INT(12-"(T1)")":70RLN$(CU)LN$(CU)"PRINT"P1$F$P1$:70\LN$(CU)LN$(CU)"NORMAL:POKE32,0:POKE33,40:POKE34,20:POKE35,23":70@fLN$(CU)LN$(CULN$(CU)LN$(CU)"FOR X1=33 TO 8 STEP -1:VTAB 7:PRINT TAB(X1)A$:VTAB14:PRINTTAB(X1)A$:NEXTX1"e 70*LN$(CU)LN$(CU)"FOR Y=8TO13:VTABY:PRINT TAB(33)A$:VTABY:PRINT TAB(8)A$:NEXT Y":70 4LN$(CU)LN$(CU)"INVERSE:POKE 32,8:POKE33,25:POKE34,7:POKE35,1LL THIS PROGRAM HAVE A TITLE?";AN$9(AN$,1)"N"2200A70LN$(CU)LN$(CU)"TEXT:HOME:A$="P1$"*"P1$":B$="P1$" "P1$:70"WHAT IS TITLE OF PROGRAM?" "NOTE: LIMIT OF 24 CHARS)?";F$T1((F$)2)]N1D$;"CLOSE"J:"TO SEE YOUR PROGRAM TYPE THE FOLLOWING:":n(93);"NEW "(93);"EXEC ";F$;" ":"THEN AFTER FILE LOADS TYPE:"::(93);"LIST " CREATE TITLE MODULE""WI$)" Z70(dLN$(CU)LN$(CU)"RETURN"Pn**SAVE FINISHED MODULES TO DISK **Xx:F$""Ą"ENTER THE NAME OF THIS PROGRAM ";F$F$F$".TEXT"D$(4)"ONE MOMENT PLEASE"D$;"OPEN";F$D$;"WRITE";F$N11CULN$(N1)TO 'GET' BY KEN SLINGSBYA "DO YOU WANT 'GET' SUBROUTINE";AN$X(AN$,1)"N"1400`70(LN$(CU)LN$(CU)" REM ** GET INPUT SUBROUTINE **"270<LN$(CU)LN$(CU)"GET A$ :IF A$="P1$P1$" GOTO "(LN)F70PLN$(CU)LN$(CU)"A=VAL(A"RETURN"&** ADD MISC. MODULES **X"DO YOU WANT A CLEAR SCREEN SUBROUTINE?";AN$o(AN$,1)"N"1290w70LN$(CU)LN$(CU)" REM ** CLEAR SCREEN SUBROUTINE **"70LN$(CU)LN$(CU)"HOME:PRINT:PRINT:RETURN" 'INKEY$' CONVERTED :70&`LN$(CU)LN$(CU)"PRINT DA$(N"NjDI2LN$(CU)LN$(CU)",COL)":1150foLN$(CU)LN$(CU)")"n~70LN$(CU)LN$(CU)"NEXT"DI2LN$(CU)LN$(CU)" COL,N"70LN$(CU)LN$(CU)"PRINT D$;"P1$"CLOSE"P1$70 LN$(CU)LN$(CU)70<LN$(CU)LN$(CU)"PRINT D$;"P1$"OPEN"P1$";F$"D70{$LN$(CU)LN$(CU)"PRINT D$;"P1$"WRITE "P1$";F$")70.LN$(CU)LN$(CU)"PRINT NF"870BLN$(CU)LN$(CU)"FOR N=1TONF"L70VDI2LN$(CU)LN$(CU)"FOR COL=1 TO NC"(CU)"RETURN"/** CREATE DISK OUTPUT MODULE770wMI0LN$(CU)LN$(CU)" REM** SAVE FILE TO DISK **":1020LNNU(N1):LN$(CU)(NU(N1))" REM** SAVE FILE TO DISK **"70LN$(CU)LN$(CU)"INPUT "P1$"ENTER FILE NAME :"P1$";F$"1 TO NC":70.zLN$(CU)LN$(CU)"INPUT DA$(N"UDI2LN$(CU)LN$(CU)",COL)":910mLN$(CU)LN$(CU)")"u70LN$(CU)LN$(CUU)"NEXT"DI2LN$(CU)LN$(CU)" COL,N"70LN$(CU)LN$(CU)"PRINT D$;"P1$"CLOSE"70 LN$(CU)LN$";F$"*70D4LN$(CU)LN$(CU)"PRINT D$;"P1$"OPEN "P1$";F$"L970>LN$(CU)LN$(CU)"PRINT D$;"P1$"READ "P1$";F$"C70HLN$(CU)LN$(CU)" INPUT NF"R70\LN$(CU)LN$(CU)"FOR N=1TONF"f70 pDI2LN$(CU)LN$(CU)"FOR COL=Y, I NEED A STRING ARRAY DEFINED TO BR";A$:10H**CREATE DISK MODULEMI0LN$(CU)LN$(CU)" REM**LOAD FILE FROM DISK":790 LNNU(N):LN$(CU)(NU(N))" REM**LOAD FILE FROM DISK"70 LN$(CU)LN$(CU)"INPUT "P1$"ENTER FILE NAME :"P1$70*LN$(CU)LN$(CU)"GOTO "(IM(1))[**INSERT REMARKS AT FUTURE MODULE LOCATIONSnN1MIIOFLAGv70LNNU(N):LN$(CU)(NU(N))" REM ** INSERT "MENU$(N)" SUBROUTINE HERE ""**"NIOFLAG2123070.DI0Mĺ"SORRU$NU$(NU)","DN1NNU$(NU$,((NU$)1))9X70vbLN$(CU)LN$(CU)"INPUT"P1$"ENTER CHOICE : "P1$";CH$"~l70vLN$(CU)LN$(CU)"CH=VAL(CH$): IF CH<1 OR CH> "(MI)" GOTO"((LN$(CU1)))70LN$(CU)LN$(CU)"ON CH GOSUB"NU$Y)"A"& T$(P2);5);M2;"/";D2;13)5 X1 51B O$(X);J XPe INCREMENT DATEtP281030P2P21P27P21D2D21D2F(M2)D21:M2M21:PG$"Y"M2131070$M21:Y2Y21.XY2:F(2)2881520 BF  CC1 X1 51' O$(X)"-"/* X>4O$(26)"!"F>Y0hHX((K(O23(O23)))25)26vRO$(X)"P"\YYXfX((K(O33(O33)))25)26pO$(X)"I"zYYXX((K(O28(O28)))25)26O$(X)"E"Y(YX)3O$(2000 1520 OOX) M235302 XY2< 1520F OOX_  PRINT CHART HEADERv A$"P"ĺD$;"PR#1" &3110  SET F(2) TO 29 FOR LEAP YRS XY2 1520 F(2)F(2)X  GENERATE THE BIO PLOT LOL C0OOL1);"BIRTHDATE:"; 6M1,D1,Y1, @Y199350; JY1Y11900H T25),Y1^ ^M2M1:D2D1:Y2Y1h h1360r rP1P2 |"STARTING DATE FOR CHART:"; M2,D2,Y2 Y299430 Y2Y21900 25),Y2 1360 "LENTH OF CHART IN DAYS:"; L RAM DATA INPUT SECTION H " BIO-RHYTHM PROGRAM FOR APPLE-2"N \ 1600:: "THIS PROGRAM WILL PLOT YOUR BIORHYTHM CYCLES."  "BIO-RHYTHM FOR (FULL NAME)";Z$ "ENTER DATES IN THIS FORMAT MM,DD,YYYY" " ,11F(12),J(2),Z$(20)H T$(1),T$(2),T$(3),T$(4),T$(5),T$(6),T$(7),T$(8),K "SUN","MON","TUE","WED","THU","FRI","SAT"," ",6.28318 F(1),F(2),F(3),F(4),F(5),F(6),F(7),F(8),F(9),F(10),F(11),F(12) 31,28,31,30,31,30,31,31,30,31,30,31 1600 ICH WILL YOU BE USING":; "MONITOR OR PRINTER (M/P)";A$K (A$"M"110` 2D$(4):L$(12){ < BIO PLOTTING PROGRAM F P REWRITTEN BY ED AVELAR 1/29/78 Z MODIFIED BY JOHN SCHOEPPNER 6/29/80 d FOR APPLE-2 nO$(51) xT$(8) " ************************C * *d * BIO-RHYTHM PROGRAM * * * ************************ :"THIS PROGRAM IS FORMATTED FOR THE IDS 440 PRINTER" "WH      4(1656MS)12723007 D$"PR#0":16368,0::1000Z D$"PR#0":"GOT IT!":300 ' PROGRAM USES IDEAS FROM HAYES MANUAL ' WRITTEN BY ALAN PETERMAN (612)-721-3295M,778-1213(  INDEX (PUBLIC),297-2617F  NC COMPUTERS,533-8862 b K2000: CLOCK CONSTANTs TI.1TI.1 CC0CC1:2000 LZ1KTI 2:" ESC TO STOP":TS(16384):16368,0:TS155ė:350 Z :D$"PR#"MS:Q$" ";PN$(CH,2) TERMINAL MODE JA$% TD$;"IN#0O ^"ANOTHER CALL (Y/N) ";:A$:A$"Y"Ĭb |:A$"N"370h p X 8 b MAXWELL'S BBS,922-3094 l MPLS PMS,929-6699 v LOKI,571-5965  ERIC'S,920-3975  CONFERENCE TREE,854-9691  HEATH TO END PROGRAM"2 :" CHOICE ?";CH:CH0ĀA CHNC160f CH0Ą"PHONE NUMBER?";PN$(CH,2) "TIME INTERVAL (MIN) ?";TI:CC0:TI0200 1000 ,D$;"IN#"MS 61784MS,0: LOWER CASE - FOR UPPER CASE DELETE LINE @1912MS,138: ZMS3: MICROMODEM SLOT1dQ$(17):D$(4)Fn:NC:PN$(NC,2)x"CBBS'S & OTHER SYSTEMS":"------ - ----- -------":}"0"5);"TO INPUT NUMBER"I1NCPN$(I,1),PN$(I,2)I;5);PN$(I,1);26);PN$(I,2): :5)"NEGATIVE NUMBER     e"CLUB. THE TRS-80 VERSION APPEARS ON":"PAGE 150 OF THE AUGUST 1981 ISSUE OF":"INTERFACE AGE."kdPFST(FSFS)(220)S r2:23:958:"SPACE BAR TO CONTINUE ";:A$:A$" "370:a |21:958m ZPZP1| ZP8ZP1 ZP1đ ZP1470 H027550 H150HH2 H250H250 7:H,0H,159:H B2:C3:16304,0H5(ZPDTDBRT 5 "MILES PER HR..............";MP; f ""FEET PER SEC..............";(FS.5)l , 6"REACTION DISTANCE.........";(RT.5) @ J"BRAKING DISTANCE..........";(DB.5) T ^"TOTAL DISTANCE............";(DT.5) hDT:958:"BETWEEN .01 AND 1.0 ";T$> T(T$):T0160Q T.01T1160a FSMP1.467n VVFSFSz RTFST 11:958:"YOUR BRAKES ARE (1) GOOD OR (2) BAD ? ";DB$:DB(DB$):DB1DB2220 DB1DBVV(220) DB2DBVV(217) OUR CAR ? ";MP$:MP(MP$):MP0110q xMP82ĺ:::"TOO BAD YOU GOT A TICKET FOR SPEEDING":Y12000:Y::110 MP0110 MP10Ė5:7:"NOT FAST ENOUGH, TRY AGAIN ":Q11500:Q:958:110 958:4:7:"WHAT IS YOUR REACTION TIME ") 7:9THE SPEED OF YOUR CAR": <7:14:"2) YOUR REACTION TIME"^ F7:16:"3) GOOD OR BAD BRAKES" K6:20:"AVERAGE REACTION IS .75" M P2:23:958:"SPACE BAR TO CONTINUE ";:A$:A$" "80 ZZP0 d:# n3:5:958:"WHAT IS THE SPEED OF YL9 ::2:2:"CAR STOPING SIMULATION, BY T.PETERSON "Q T140:3:"=";:TZ$" ":H521:H::Z$:H2:7:"THIS PROGRAM WILL SHOW YOUR REACTIONS"(10:9:"AND THE IMPORTANCE OF " 27:12:"1)  " 28);"A=OVERALL AVERAGE"% P 13);"DOWN";34);"CRITICAL";20);"UP" 13);"*************************!*************************"  13);"*************************!*************************" L$ I"BIORHYTHM CHART FOR ";Z$N SX 28);"BORN ON ";T$(P1);" ";M1;"/";D1;"/";Y1b 28);"BEGINNING ";T$(P2);" ";M2;"/";D2;"/";Y2l v 28);"P=PHYSICAL (23 DAYS)" 28);"E=EMOTIONAL (28 DAYS)" 28);"I=INTELLECTUAL (33 DAYS)RY29M2İ3100:2120#>30000HS2F:F0<OS2S1B F365YRD31(M1)((YR1)4)(3(((YR1)100)1)4)  F365YRD31(M1)(.4M2.3)(YR4)(3(((YR100)1))4)! & O(L1)ı+ I130 : ID 20); T::$^"SEE YOU NEXT TIME."*hHr ADAPTED FOR APPLE-II BYX| ED AVELARm (415) 538-2431 MODIFIED BY: JOHN C SCHOEPPNER (612) 455-8613MM1:DD1:YRY1M2İ3100:20203000S1F:F04MM2:DD2:YXPENDED IN PRIOR MONTHS J20-I1X1<J2J2F(I)CIIe CHECK X FOR LEAP YEARX400(X400)01560X100(X100)01580X4(X4)01580X1",X06@I163:"*";:I:"*":J"THANK YOU...."2"ANOTHER RUN";V$#<V$"Y"260-F1610DP FIND DAY OF WEEK\ZN1M212(.61M2)qdN2Y2(.61M2)nN3(13(N11)5)xN4(5N24)N5(N2100)N6(N2400)N7N3N4N5N6D21P2N77(N77)1 FIND DAYS EAL CORRESPONDS TO SENSITIVITY,"B"INTUITION AND CHEERFULNESS."x :"INTELLECTUAL IS RELATED TO MENTAL ALERTNESS,""COGNITIVE POWER AND JUDGEMENT ABILITY.":"ALL THREE CYCLES START AT ZERO AT THE MOMENT OF BIRTH."#L$(D$;"PR#0"VE A CONSTANT PERIOD IN THE HUMAN BODY"L"THERE ARE THREE (3) CYCLES..."c"23 DAY PHYSICAL"{"28 DAY EMOTIONAL""33 DAY INTELLECTUAL":"PHYSICAL IS ASSOCIATED WITH PHYSICAL VITALITY""ENDURANCE AND ENERGY LEVEL.":"EMOTION(2)F(2)X*LPG$"Y"İ3260:3110:PG$""1VO@`D$;"PR#0"Fjbt"WANT INSTRUCTIONS";Q$s~Q$"N"1320A$"P"ĺD$;"PR#1"::"THE BIORHYTHM THEORY....":"POSTULATES THAT THERE ARE CERTAIN METABOLIC CYCLES,"'"WHICH HAŠ΍Ӡ̍Š٠ΠΠƍԠŠōΠΠΠ̮΍ĠōŠΠΠˮ΍ȠŮϮӠΠȠ΍Šˠō;"$";((DOBCOB1.005)100)100P"***************************************"cPRT$"Y"ĺ" "}PRT$"Y"ĺDD$;"PR#0"PRT$"Y"ĺ"NOW DO YOU WANT PRINTED RESULTS (Y/N)?":Z$:PRT$"Y"Z$"Y"PRT$"Y"::380MT";30);"$";COvC"=======================================""BALANCE EXPECTED IN CHECKBOOK";30);"$";((DOBCO.005)100)100"BALANCE IN CHECKBOOK";30);"$";B1"***************************************"!" DIFFERENCE ";30)"TOTAL";30);"$";DOB[ !PRT$"Y"ĺ:"PRESS ANY KEY FOR OUTSANDING CHECKS";:Z$:::a &{ 0"CHECKS OUTSTANDING" :18);"CHK";30);"AMOUNT" DI1M2 N18);C1$(I);30);"$";C(I) XI b25);"------------"l" SUBTOTAL CHECKS OUA$   18);DA$# L "BALANCE FROM STATEMENT";30);"$";BR s "RECENT DEPOSITS NOT SHOWN" I1M1 30);"$";D(I) I 25);"-------------" " SUBTOTAL DEPOSITS";30);"$";DO  25);"=============" GET OTHER ADDS AND SUBTRACTS "[ @"SUCH AS AUTOMATIC WITHDRAWALS, CHECK CHARGES, ETC."f JM2I1l T ^"ENTER BALANCE SHOWN IN CHECKBOOK $";B1 r *** PRINT OF RESULTS *** | PRT$"Y"ĺDD$;"PR#1":395 "PRESS ANY KEY FOR BALANCE";:WHEN DONE." M1I1" I1M21 C1$(I)" "< C(I)0d "CK NBR. ";C1$(I):(C1$(I))0300 "CK AMOUNT $";C$(I):(C$(I))0300 C(I)(C$(I)) COCOC(I) "I ,"SUBTRACT SERVICE AND OTHER CHARGES FROM YOUR CHECKBOOK.":"DON'T FORER BALANCE FROM BANK STAT. $";Bc :"ENTER DEPOSITS NOT CREDITED ON STATEMENT(RETURN WHEN DONE)"o I1M1z D(I)0 "AMOUNT $ ";D$ (D$)0200 D(I)(D$) DODOD(I) I "ENTER CHECKS OUTSTANDING - CK NBR & AMT PRESS RETURN $ CHECKBOOK BALANCING PROGRAM G *** DATA INITIALIZATION *** Q(M120\2M2100<D(20),C1$(100),C(100),C$(100)F::5PDD$""Z:"ENTER DATE OF THE STATEMENT ";DA$d:"WILL YOU WANT RESULTS PRINTED (Y/N)? ";PRT$ n:"ENT ĤҤԠŠŠԠĤ΍ԠĤŠŠԠԍĤŠԠč "6"A$"7"A$"8"A$"9"590-A$"2"650E::"SAFE DRIVING"KT"BR DIST ";(DB.5) &DTRTDBA02:24:"TL DIST ";(DT.5);f:17:22:"(0) CHART,(1) GRAPH ";D17:23:"(5) ANOTHER,(2) END ";NA$:A$"0"Ĺ16303,0:590XA(A$):A0590bA$"1"Ĺ16304,0:590lA$"5"100vA$"3"A$"4"A$1)20DTDBRT6RX(RT.50.5):DX(DT.50.5)rB:1,HRX,H:1,H1RX,H1:C:RX,HDX,H:RX,H1DX,H11:21:"0";:5:" ";:7:"100";:14:"200";:21:"300";:25:" ";:29:"400";:36:"500"2:22:"RE DIST ";(RT.5)2:23:HALL"35:14:"WE SHALL PROCEED WITH THE TEST."gI13000:I:22:"THANK YOU FOR YOUR TIME ";A$xI12000:I~BAR(1)1:BAR(2)15:BAR(3)2: BAR(1)1:BAR(2)15:BAR(3)2:BAR(4)13: BAR(1)1:BAR(2)15:BAR(3)2:BAR(4)13:BAR(5)11LIEN I'VE EVER MET!"::1700`|RUT2Ė13:12:"ARE YOU SURE??: FOR I= 1 TO 1000: NEXT I: HOMEi2554:11:"WHAT IS/WAS YOUR FATHER'S NAME?"17:13:DAD$:5:10:"NOW THAT WE HAVE RECEIVED THE"5:12:"NECESSARY INFORMATION, WE SS"+V7:12:"DETECT A TRACE OF UGLINESS"UX7:14:"ABOUT THE STRUCTURE OF YOUR"Z7:16:"FACIAL SYSTEM!":I14000:I^:1700hSEX1RUT2Ė5:12:"SAY FELLA - YOU'RE KINDA CUTE!":I11000:I::1700rRUT1Ģ12:"YOU ARE THE CUTEST A"10:6:"WHAT IS YOUR AGE? ";AGEC,11:9:"WHAT IS YOUR SEX?"t115:12:"(1) MALE":15:14:"(2) FEMALE"620:16:SEX:SEX1SEX21580@:I1500:IJRUT((1)3)1TSEX1RUT11640U7:10:200:"REALLY? MY VISUAL CENSOR9:"LEADER OF THE KORPZONITES, HAS"P 4:11:"INSTRUCTED THAT WE MAINTAIN A"}4:13:"PERSONAL FILE OF EACH HUMANOID"4:15:"CONTACTED."17:18:A$;"!"6:19:"YOU ARE THE FIRST OF MANY!!!":255:I11000:I:I11000:I::#"RECEIVING OUR PH.D. AT THE VULCAN"U4:14:"INSTITUTE OF LOGIC, IT IS OUR TASK"4:16:"TO SEEK OUT AND STUDY THE COMPLEX "4:18:"NATURE OF THE HUMAN SPECIES."I14000:I4:7:"KING CAL Q. LE TOUR, THE NOTORIOUS"$4:JD5:15:"THE PROPER COLOR SEQUENCE FROM":5:17:"LEFT TO RIGHT.":255[GI11000:IcI:4:6:100:"WE KORPZONS ARE ON A FIVE YEAR"4:8:"MISSION -- TO BOLDLY GO WHERE NO"4:10:"COMPUTER HAS GONE BEFORE -- EARTH!!"$4:12:ABILITIES."228:16:"INSTRUCTIONS, SIR? (Y/N)"G332:16:B$:255U8B$"N"ıB:125:7:5:"BEFORE YOUR EYES YOU WILL SEE":5:9:"THREE RANDOMLY CHOSEN COLOR":5:11:"SPECIMENS. YOU ARE TO MAKE A"C5:13:"HYPOTHETICAL ASSUMPTION AS TO"2000:J:l 6:"<><><><><><><><><><><><><><><><><><><><>":18:"<><><><><><><><><><><><><><><><><><><><>"t $70 .5:8:"WE THE COMPUTER RACE FROM THE":5:10:"PLANET KORPZON, WOULD LIKE TO":5:12:"PUT YOU THROUGH A TEST OF YOUR":5:14:"HUMAN ************":15:"****************************************"T H$"KEITH MCCONNE"d S2771: 12:868:(S):H$:I110:I,S J$"LL PRESENTS..." T27201:868:T:12:J$:T I13000:I :I123:I)"COLOR BARS!!!":I:J11))160E 11:8:"INVALID NUMBER! REENTER! ":20:13:E:20:13:E_ 20:14:F:20:14:Fy 20:15:G:20:15:G ELİ6500:60 FMİ7000:60 GPİ7500:60 ADDADD1 8000 60 = 9:"***************************4000:PX%+ nI1100:I:::I11000:I x3:2:"NOW TELL ME, ";A$:3:4:"WHAT WAS THE ORDER OF COLORS FROM":3:6:"LEFT TO RIGHT? (GIVE THE NUMBERS)" HUE4500,4500,4500,5000,5500,6000 :(E0)(E(HUE1))(F0)(F(HUE1))(G0)(G(HUEȺ"YOU LIKE, ";A$;"?":17:14:"(3-6)":19:16:HUEC +3500:10000I -] 2HUE3HUE640 <11:12:"GET READY, ";A$;"!!":I13000:I AHUE2000,2000,2000,2500,3000,3500 F PYA6:ZA14:4000:LX% ZYA16:ZA24:4000:MX% dYA26:ZA34: :I1200:I:10000ADD0:NULL066:9:"TO AVOID ANY FUTURE HASSLES,":6:11:"OR YOUR BASIC HUMAN BING-BANG," 6:13:"WILL YOU PLEASE ENTER""6:16:"YOUR NAME? ";A$::15002 (:9:10:"HOW MANY COLORS WOULD":9:12:        ΠD$"PR#1":(9)"80N"69^"COMPARE: ";O$;" VRS ";N$<9hF9r1010N9|:g9:"COMPARE: ";PC$:q934,1{910009pY(222)9zD$"PR#0"9Y660809:10:(7);"*** ERROR ***":9"UNABLE TO FIND FILE '";:9X(218)(219)256"OPEN ";O$48D$;"RENAME ";N$;",";N$:D$"OPEN ";N$V8:12:18:"O.K.":N12200:\8z8OT$(O$,12):NT$(N$,12)8PC$OT$" VRS "NT$8"X(40((PC$)))28,R295500866:9588@10:11::"WORKING ON COMPARE":8J13:X:PC$9T16384)128527007Z(16384)128:Z2710000I7Z("S")R29:5320b7Z("P")R70:5320s7(7);:5260716368,076000: *** IF FILE NOT ON DISK ***7::10:4:"CHECKING FILE NAMES ON THIS DISK": 8D$;"RENAME ";O$;",";O$:D$0006IN$(27)10000*6(O$IN$:IN$""262:[6<"REVISED PROGRAM TEXT FILE NAME?":o6FX:L%30:300006PIN$(27)100006ZN$IN$:IN$""6d18:1:"OUTPUT COMPARISON LIST TO:"6n6xX:"S)CREEN"6X:"P)RINTER"616368,07(5 *** SET UP TO USE ***'5X53534,0:?5X:P1$K5X:P3$W5X:P2$c5X:P3$o5X:P1$u5}5X55D$(4)523:1::" PRESS TO RETURN TO MENU ":58:15 "ORIGINAL PROGRAM TEXT FILE NAME?":6X:L%30:30464 *** SUCK IN FROM NEW PROGRAM TEXT FILE ***O4 IN$"":D$"READ ";N$d4 768,IN$:NS$IN$r4 NS(NS$)x4 4 OUTPUT4P204P1P21:P2P2R4(J$,P1,R):P2(J$)40704P1P21:P2P2R411);(J$,P1,R)4P2(J$)40405:"END OF COMPARISON":23D$"CLOSE":D$"PR#0"I323:1:R70ī1240o3:"PRESS ANY KEY TO CONTINUE";:3216,0:R70ī100003116103 *** SUCK IN FROM OLD PROGRAM TEXT FILE ***3IN$"":D$"READ ";O$3768,IN$:OS$IN$3OS(OS$)010:10302B216,0:1190,2LX30001150L2V" ADDED: ";:J$NS$:4000V2`3010h2jNS$""ī11902t" ADDED: ";:J$NS$:4000:11202~"DELETED: ";:J$OS$:4000220102OS$""ī11902"DELETED: ";:J$OS$:4000:11602R70ĺ32010:30101OS$NS$102081OS$""X2000:1090Q1NS$""X3001:10901$OSNSOS$NS$ĺ"CHANGED: ";:J$OS$:4000:" TO: ";:J$NS$:4000:10201.OSNSĺ"DELETED: ";:J$OS$:4000:2010:1030 28OSNSĺ" ADDED: ";:J$NS$:4000:3[ 0 :'0(4)"BLOAD STRING INPUT"E0 *** COMPARE PROGRAM ***z0(*** INPUT ROUTINE FROM NIBBLE VOL2,NO2 ***02"CALL 768,IN$"0< USES ROUTINE0F10000: TO MENU0*** HERE WE GO!!! ***0216,0:1090: *** IF OUT OF DATA *** 1      "CORRECT!"::I11000:I::O':I16:BAR(I):J13:0,39(I1)7J:J,IZ'1:21'" RED, WHITE, BLUE, YELLOW, PINK, GREEN":"ADJUST THE TV AND THEN PRESS RETURN";:XA$:: I17:16:"PINK 5".19:16:"GREEN 6"H21:20:E:21:20:Eb22:20:F:22:20:F~23:20:G:23:20:G:d18:12:"NO!!":I11000:I::X17:12:"SORRY!":I11000:I::L17:12:"SORRY!":I11000:I::@16:12::ITE 2"13:16:"BLUE 3"715:16:"YELLOW 4"O17:16:"PINK 5"i19:20:E:19:20:E20:20:F:20:20:F21:20:G:21:20:G:p9:16:"RED 1"z11:16:"WHITE 2"13:16:"BLUE 3"15:16:"YELLOW 4"F:20:20:F(21:20:G:21:20:G:@11:16:"RED 1"X13:16:"WHITE 2"p15:16:"BLUE 3"17:16:"YELLOW 4"19:20:E:19:20:E20:20:F:20:20:F21:20:G:21:20:G:|9:16:"RED 1"11:16:"WH:B BAR(1)1:BAR(2)15:BAR(3)2:BAR(4)13:BAR(5)11:BAR(6)12:VX%((1)HUE)1gTBAR(X%):TCOLUMNYAZA:5,20COLUMN:COLUMN:13:16:"RED 1"15:16:"WHITE 2"17:16:"BLUE 3"19:20:E:19:20:E 20:20:fNIpN:10000I0u ********************** STRUCTURED INPUT ROUTINE I:u16368,0IDuCV(37):CH(36)INuN1L%:(95);:IXuCV1:CH1 JbuZ$(95)(ANY KEY TO CONTINUE";:%H:16368,0>H:(16384)12815080VH:15:1:958:10220xHN *** FOR HOLDS AND INPUT ***H N23:1::" TO CONTINUE, FOR MENU";:H*N16368,0H4N(16384)12820020H>NX(16384)128HRNX2720080I16368,0Gd-16384,128"Gn-100003G:15:1:958]G:"NOW THAT SOUNDS LIKE A VERY USEFUL"G:"ROUTINE...SOMEBODY SHOULD WRITE THAT"G:"PROGRAM AND INCLUDE IT AS PART OF"G:"THIS 'COMPARE' PROGRAM.":G:"HOW ABOUT YOU?";H:23:1::"PRESS LINES FOR EVALUATION...":HF(-"DON'T GET ANXIOUS IF NOTHING SEEMS TO"uF2-"BE HAPPENING. THERE WILL BE MESSAGES"F<-"ON THE SCREEN TO KEEP YOU INFORMED OF"FF-"PROGRESS AND COMPLETION."FP-23:1::"END OF INSTRUCTIONS...PRESS ANY KEY";:GZ-CARD IN"4E,"SLOT #1 IS ASSUMED. (IF YOU NEED TO"_E,"CHANGE THAT, SEE LINES 5460 & 1210.)jE,20000pE,E-"THE COMPARISON OF TWO RATHER LENGTHLY"E -"PROGRAMS MAY TAKE SEVERAL MINUTES WITH"E-"MANY ACCESSES TO THE DISK FOR MORE"F-"TEXT"THE COMPARISON LISTING CAN BE DIRECTED"WD,"EITHER TO THE SCREEN OR TO A PRINTER.":D,"IF USING THE SCREEN, THE SCROLLING MAY"D,"BE HALTED BY TYPING , AND"D,"RESUMED BY PRESSING ANY OTHER KEY.":E,"IF USING A PRINTER, A PARALLEL TO AVOID"2CL,"A LONG LISTING OF DIFFERENCES...."8CV,>C`,kCj,"THAT IS, 'COMPARE' WILL BE A WASTE OF"Ct,"TIME IF THE REVISED PROGRAM HAS BEEN"C~,"SUBSTANTIALLY RENUMBERED FROM THE LINE":"NUMBERS OF THE ORIGINAL VERSION."C,20000C,(D, NOT NECESSARILY THE DISK"CB,"WITH THE 'COMPARE' PROGRAM ON IT."NB,20000TB,B$,"THE 'COMPARE' PROGRAM IS BASED ON A"B.,"SIMPLE COMPARISON OF STRINGS. THE TWO"B8,"PROGRAMS BEING COMPARED SHOULD BE VERY" CB,"ALIKE IN THEIR LINE NUMBERING THAT WERE CREATED FOR"BA+"COMPARISON. THE COMPARISON LISTING"nA+"ASSUMES THAT THE ORIGINAL PROGRAM IS"A+"FIRST AND THE REVISION SECOND.":A+"BOTH TEXT FILES OF THE PROGRAMS THAT"A+"ARE TO BE COMPARED MUST BE ON THE SAME"B+"DISK, BUTORY. TYPE 'RUN 63999' AND NAME THE"Q@+"TEXT VERSION OF THE PROGRAM THAT WILL"@+"BE WRITTEN TO THE DISK. THEN RUN THIS"@+"'COMPARE' PROGRAM TO LIST DIFFERENCES."@+20000@+@+"YOU WILL BE PROMPTED FOR THE NAMES OF"A+"THE TEXT FILES?>+"OF A PROGRAM AND PRINT A LISTING OF THE"Y?H+"LINES THAT HAVE BEEN CHANGED, ADDED,"n?R+"OR DELETED.":?\+"EACH PROGRAM MUST FIRST BE CONVERTED TO"?f+"A TEXT FILE BY 'EXEC'ING THE 'CAPTURE'"?p+"FILE WHILE THE TARGET PROGRAM IS IN"$@z+"MEM1285020!><(Z("B")128110009>A(Z("C")12815000K>F((7);:10260e>**** INSTRUCTIONS ***t>*:5:958>+P6$"* INSTRUCTIONS *"> +5:X:P6$>+X:P3$> +X:P1$>*+34,9:>4+"THIS PROGRAM WILL COMPARE TWO VERSIONS"-REVIEW INSTRUCTIONS":A=((2X):"C. LIST VARIABLES & XREF.":f= ((2X):"Q. QUIT THIS PROGRAM";t=(16368,0=(Z(16384):Z12810270=((Z("Q")128Ĺ16368,0::10:5:"HAVE A ";::"COMPARE";::"-ATIVELY GOOD DAY!!":23:1: >2(Z("A")):P3$<'(X):P2$"<'(X):P3$0<'(X):P4$><'(X):P5$L<'(X):P3$Z<'(X):P7$h<'(X):P8$v<'(X):P9$<'(X):P3$<'(X):P1$<'15:X::"PRESS LETTER TO ENTER CHOICE: "::<'(2X):"A. COMPARE TWO PROGRAMS":=((2X):"B. *"1;8'P4$"* ORIGINALLY BY *"Z;B'P5$"* CHARLES BOODY *";L'P7$"* MODIFICATIONS BY *";V'P8$"* TOM EDWARDS *";`'P9$"* MAY, 1981 *";j'X(40(P1$))2;t'(X):P1$<~'(X:X5350ĺO$;::"'."1:X5360ĺN$;::"'."^:216,0::"TRY AGAIN.":N12500::5000:'*** MENU AND INSTRUCTIONS ***:'34,0::'P1$"******************************":$'P2$"* COMPARISON PROGRAM *";.'P3$"* ","BESTEHEN","EXIST"jf"ERFAHREN","FIND OUT","ERGREIFEN","SEIZE","ERHALTEN","RECEIVE","ERNST","SERIOUS"h "DAS GEDICHT","POEM","DIE GEFAHR","DANGER","GEFALLEN","PLEASE","DER GRABEN","DITCH","HALTEN","HOLD","HOLEN","BRING"_j"JENER","THAT","DIE KRRAM IS USED TO TEST":"GERMAN VOCABULARY KNOWLEDGE, ANY COLON":"FOLLOWING A VOWEL IN A GERMAN WORD":"INDICATES AN UMLAUT OVER THAT VOWEL." c23:"TYPE ANY CHARACTER TO RUN PROGRAM: ";:P$d"AUFGEHEN","RISE","AUFSTEHEN","RISE","AUSZIEHEN","TAKE OFFCAN BE EASILY MODIFIED":"TO BETTER SUIT YOUR NEEDS. SIMPLY":"ERASE THIS DATA, WHICH IS CURRENTLY" a"CONFINED WITHIN LINES 100 AND 500, AND":"SUPPLY YOUR OWN. ALL DATA WILL BE":"RANDOMLY MIXED EACH TIME THE PROGRAM":"IS RUN." b:"IF THIS PROGRWISE WOULD":"INEVITABLY OCCUR, THIS PROGRAM CLEVERLY":"MIXES ALL DATA EACH TIME IT IS RUN." ^:"TYPE ANY CHARACTER TO CONTINUE: ";:P$ _:8:3:"IN THE EVENT THAT YOU DO NOT SPEAK":"GERMAN OR DON'T CARE TO BE QUIZZED ON"d `"IT, THIS PROGRAM VER YOU DIDN'T":"CHOOSE. AFTER YOU HAVE DECIDED UPON AN":"ANSWER (REGARDLESS OF WHETHER YOU TAKE" \"THE TIME TO TYPE IT), SIMPLY PRESS ":"RETURN, AND THE CORRECT ANSWER WILL BE":"DISPLAYED. TO AVOID MEMORIZATION OF"^ ]"WORD PATTERNS WHICH OTHEULARY"4 U8:3:"THIS PROGRAM IS DESIGNED TO TEST" W9:"YOUR KNOWLEDGE OF GERMAN VOCABULARY.":"WHEN IT IS RUN, YOU WILL BE GIVEN THE":"CHOICE OF SEEING EITHER THE ENGLISH" Y"WORD OR ITS GERMAN EQUIVALENT AND WILL"d ["BE ASKED TO SUPPLY WHATE~8G$(700),E$(700)7 ********************R * *m * BY DAVID LAU *( * *2 * 9/07/81 *< * *F ********************HK P::11:"GERMAN VOCAB                     !! I8Mt_=gH?J QVQT_ɕ%[^ZZ\[]^Z_[ 0W Г J1  @)ȹ@)ȹ@) q P^ɠ 0   qL MW'WП < XX QLiLLs4     m K"6. TO INVERT THE PLOT (SWITCH WHITES":" AND BLACKS), BRUN INVERT AND":" GO TO STEP 2 ABOVE."s P9:4C>." 5 ("3. TURN ON PRINTER, ADJUST PAPER"; - 2"4. CALL 24576. REPEAT THE CALL FOR":" MORE COPIES. <6000G>" < A"5. IF DESIRED, THE DENSITY MAY BE":" CHANGED BY USING THE ALTERNATE":" POKE COMMAND AND CALL 24576." Ft 936:H "INSTRUCTIONS FOR EPSON HI-RES DUMP":15)"PROGRAM":"1. LOAD HI-RES PICTURE INTO PAGE 1"::"2. DETERMINE DENSITY OF THE PLOT:"" 480 OR 960 DOTS PER LINE." " FOR 480, POKE 9,75 <9:4B> OR":" FOR 960, POKE 9,76 (   N$,1,(IN$)1):30210KuX$;3Ku16368,0:30060HKu16368,0:30040ZKv16368,0::8):IN$""'Jdu(16384)27IN$(27):@Jlu(16384)12830052XJvuX$((16384)128)lJuX$(13)30210JuX$(8)30140Ju(IN$)030200JuX$;Z$;JuIN$(IN$,1,(IN$)1)Ju30190JuIN$IN$X$Ju(IN$)L%30170Ju30180KuIN$(I"DER HANDSHUH","GLOVE","DER HARZ","RESIN","HASSEN","HATE","DER HAUFEN","HEAP","HA:UFIG","FREQUENT(LY)"#"DAS HAUPT","HEAD","DER HAUPTMANN","CAPTAIN","DIE HAUSTU:R","FRONT DOOR","DIE HAUT","SKIN","DAS HEFT","NOTEBOOK","HEFTIG","VIOLENT","HEITER","SERENEDMIT","DIE GEWALT","POWER","GEWALTIG","POWERFUL","DAS GETREIDE","GRAIN","DER GIPFEL","PEAK","GLATT","SMOOTH""GRAUSAM","CRUEL","GREIFEN","GRASP","DAS GUT","ESTATE"f"DER HAHN","ROOSTER","DER HALT","HOLD","DER HANDEL","TRADE","HANDELN","DEAL WITH",NGEN","REACH","GELINGEN","SUCCEED","DAS GEMA:LDE","PAINTING","GERATEN","GET INTO","DAS GERICHT","DISH","GERING","SMALL","DER GESANG","SONG"l"DAS GESCHLECHT","SEX","DER GESELLE","COMRADE","DAS GESETZ","LAW","DAS GESPRA:CH","CONVERSATION","GESTEHEN","A"PROGRESS","FREILICH","INDEED","DER FRIEDE","PEACE""DAS GEBIET","AREA","DAS GEBIRGE","MOUNTAINS","DER GEBRAUCH","CUSTOM","DAS GEDA:CHTNIS","MEMORY","DIE GEGEND","AREA","DER GEGENSTAND","OBJECT","DIE GEGENWART","PRESENT" "GEHORCHEN","OBEY","GELAATION" ,"DAS FACH","SHELF - PROFESSION""DIE FAHNE","FLAG","FALTEN","FOLD","DAS FASS","BARREL","DIE FAUST","FIST","DIE FLA:CHE","SURFACE","DER FLU:GEL","PIANO - WING","FLU:STERN","WHISPER","FORDERN","DEMAND","WEICH","SOFT"3"DER FORTSCHRITT",TE","ERBLICKEN","NOTICE","ERFINDEN","INVENT" "ERHEBEN","RAISE","SICH ERHEBEN","RISE","SICH ERHOLEN","RECOVER","ERNA:HREN","FEED","ERNENNEN","APPOINT" ,"DIE ERNTE","HARVEST","ERRICHTEN","ERECT","ERTRINKEN","DROWN","EWIG","ETERNAL","DAS EXAMEN","EXAMINEST","DIE EICHE","OAK","DER EIMER","PAIL","DER EINFLUSS","INFLUENCE","EINIG","UNITED","EINTRETEN","START","EMPFINDEN","FEEL","EMPOR","UPWARD","ENTGEGEN","TOWARD","ENTHALTEN","CONTAIN","ENTLASSEN","DISMISS","ENTSCHLIESSEN","DECIDE","ENTSTEHEN","ORIGINAAL","MONUMENT","DENNOCH","NEVERTHELESS","DIE DICHTUNG","POEM","DAS DIENSTMA:DCHEN","MAID","DRINGEN","CROWD","DRUCKEN","PRINT"D"DRU:CKEN","PRESS","DULDEN","ENDURE","DURCHAUS","IN EVERY WAY","EBENFALLS","LIKEWISE","EBENSO","JUST THE SAME","EHRLICH","HONVE","DIE BEWEGUNG","MOVEMENT","BEWUNDERN","ADMIRE","BIEGEN","BEND","DIE BIRNE","PEAR""BLASS","PALE","DIE BRAUT","BRIDE","DER BRA:UTIGAM","GROOM","DER BRUNNEN","FOUNTAIN"}"DAS DACH","ROOF","DER DAMPFER","STEAMER","DARSTELLEN","PORTRAY","DAS DENKM"OCCUPY","BESCHLIESSEN","DECIDE","BESCHEIDEN","MODEST","BESINNEN","THINK OVER","BESITZEN","OWN","BESCHPRECHEN","DISCUSS"U"BESTIMMEN","DECIDE","BETEN","PRAY","BETRACHTEN","CONSIDER","BETTELN","BEG","BEWACHEN","GUARD","BEWAHREN","PRESERVE","BEWEGEN","MO~"DER BEGRIFF","CONCEPT","BEHANDELN","TREAT","BEHAUPTEN","MAINTAIN","DER BEIFALL","APPLAUSE","BEISSEN","BITE","BELOHNEN","REWARD","BENUTZEN","USE","BEOBACHTEN","OBSERVE","BEREITEN","PREPARE"x"BERICHTEN","REPORT","BERU:RHEN","TOUCH","BESCHA:FTIGEN",UG","EXCURSION","AUSSERDEM","BESIDES"|"A:USSERST","EXTREMELY","DIE BACKE","CHEEK","BACKEN","BAKE", "BANG","ANXIOUS","BEDAUERN","REGRET","BEDENKEN","CONSIDER","BEDEUTEND","SIGNIFICANT","BEEILEN","HURRY","DER BEFEHL","COMMAND","BEGREIFEN","UNDERSTAND"NDEN","UNITE","EMPFANGEN","RECEIVE","ANFASSEN","GRASP","ANSTRENGEN","STRAIN","ANWESEND","PRESENT","ARTIG","WELL BEHAVED"%z"AUFNEHMEN","RECEIVE","AUFHALTEN","DETAIN","AUFHEBEN","PICK UP","DER AUFSATZ","COMPOSITION","AUFSCHREIBEN","WRITE DOWN","DER AUSFL","GENERAL","ALLMA:HLICH","GRADUALLY"t "ANBIETEN","OFFER","DAS ANDENKEN","MEMORY","ANGEBEN","INDICATE","ANHALTEN","LAST","ANNEHMEN","ACCEPT","DER ANSPRUCH","CLAIM","DER AST","BRANCH; KNOT"v"AUSGEBEN","SPEND","DIE AUSNAHME","EXCEPTION"xx"VERBIETZEN", "TRANSLATE","VERSUCHEN","ATTEMPT","DER VETTER","COUSIN","DER WISCHER","ERASER"p"DER ZAHN","TOOTH","ABHOLEN","CALL FOR","ABLEGEN","TAKE OFF","ABSCHREIBEN","COPY","ABWESEND","ABSENT","ABWISCHEN","WIPE OFF"%r"ALLERLEI","ALL KINDS","ALLGEMEINAFT","STRENGTH","DIE KREIDE","CHALK","LOBEN","PRAISE","REICHEN","HAND OVER","REISSEN","TEAR UP"l"REITEN","RIDE","RETTEN","SAVE","DER SCHATTEN","SHADOW","SOGLEICH","IMMEDIATELY","STEHLEN","STEAL","DER STOCK","CANE"Wn"DIE TAFEL","BLACKBOARD","U:BERSAM","STRANGE","SEUFZEN","SIGH","DIE SICHT","SIGHT","SICHTBAR","VISIBLE","DER SIEG","VICTORY","DIE SILBE","SYLLABLE","SOWOHL","JUST AS"a/"DIE SPITZE","TOP","DAS SPRICHTWORT","PROVERB","DER SPRUCH","SAYING","SPU:REN","TO TRACK; SENSE","DER STAMM","STEM; D","GUILT; DEBT","SCHULDIG","GUILTY; OWING","DIE SCHULTER","SHOULDER","DIE SCHU:SSEL","BOWL; BASIN","SCHU:TTELN","SHAKE","SCHU:TZEN","TO PROTECT"-"DER SCHU:TZMANN","POLICEMAN"."DAS SCHWERT","SWORD","DIE SEELE","SOUL","DER SEGEN","BLESSING","SELTSJEST", "DER SCHIFFER","BOATMAN","DER SCHIRM","SCREEN", DIE SCHLACHT,"BATTLE","SCHLANK","SLENDER","SCHLAU","CUNNING","SCHLUCHZEN","SOB","SCHMEICHELN","FLATTER","SCHMU:CKEN","ADORN"- "DER SCHORNSTEIN","CHIMNEY","SCHRIFTLICH","IN WRITING","DIE SCHUL,"SHEEP","SCHAFFEN","DO; CREATE","DER SCHAFFNER","CONDUCTOR","DAS SCHALTJAHR","LEAP YEAR","S. WENDEN","TURN","ZULETZT","FINALLY","SCHA:TZEN","ESTIMATE; TREASURE","DAS SCHAUSPIEL","PLAY","DER SCHEIN","APPEARANCE; BILL","SCHELTEN","SCOLD","DER SCHERZ","E","DER REISENDE","TOURIST","REIZEN","IRRITATE; PROVOKE","RICHTEN","JUDGE","RIESIG","HUGE","DER RITTER","KNIGHT","RU:CKEN","MOVE"Y+"RUDERN","ROW","SA:CHLICH","FACTUAL; IMPARTIAL","DIE SAGE","LEGEND","SAMMELN","GATHER","SANFT","GENTLE; MILD","DAS SCHAF"CHTVOLL","SPLENDID","PREISEN","PRAISE","DAS PULT","DESK","DAS RAD","WHEEL; BIKE","DER RAND","EDGE","RASCH","RAPID","DER RAUM","SPACE",RAUSCHEN ,"RUSTLE","DIE RECHNUNG","BILL" *"DAS RECHT","LAW; RIGHT","REGEN","STIR; MOVE","REGIEREN","RULE","REIF","RIPIC","DAS OPFER","VICTIM","ORDNEN","ARRANGE","DIE OSTERN","EASTER","PASSEN","FIT","DIE PERLE","PEARL","PFEIFEN","WHISTLE","DER PFIRSICH","PEACH","DIE PFLAUME","PLUM"(PFLEGEN,TO NURSE; BE USED TO) "DIE PFLICHT","DUTY","PRA:CHTIG","MAGNIFICENT","PRA"DER NEBENFLUSS","TRIBUTARY","DER NEFFE","NEPHEW","NEULICH","RECENTLY","DIE NICHTE","NIECE","NIEDER","DOWN","NIEDRIG","LOW","NIRGENDS","NOWHERE","DIE NOT","NECESSITY","NU:TZLICH","USEFUL","OBERHALB","ABOVE"( "DAS OBST","FRUIT","O:FFENTLICH","PUBLER","GAY; AWAKE","DAS MUSTER","MODEL; PATTERN"&"MUTIG","COURAGEOUS","DIE MU:TZE","CAP","NACHDENKEN","REFLECT; MEDITATE","NACHSEHEN","LOOK AFTER","NA:CHTLICH","NOCTURNAL","NACHTS","AT NIGHT","DER NAGEL","NAIL","NAHEN","APPROACH","NA:HREN","APPROACH"'EN","REPORT","MENSCHLICH","HUMAN","DIE MESSE","MASS","MESSEN","MEASURE","DAS MESSER","KNIFE","DAS MITTEL","MEANS; REMEDY".&"DAS MITTELALTER","MIDDLE AGES","DIE MU:HLE","MILL","MU:NDLICH","ORAL","MU:NDEN","FLOW INTO","DIE MU:NDUNG","MOUTH (RIVER)","MUNT "DAS LOCH","HOLE","LOCKEN","TO ENTICE; LURE","DER LO:FFEL","SPOON","DIE GABEL","FORK","DER LOHN","REWARD; WAGE","DAS LOS","LOT","LO:SEN","BUY (A TICKET)","MA:CHTIG","POWERFUL"y%"MALERISCH","PICTURESQUE","DAS MA:RCHEN","TALE","MA:SSIG","MODERATE","MELD,"DER LAUF","COURSE"#"LAUSCHEN","LISTEN","DER LAUT","SOUND","LAUTEN","TO SOUND","LAUTER","NOTHING BUT","DAS LEDER","LEATHER","LEHNEN","LEAN","DER LEIB","BODY","DAS LEID","HARM","LEISTEN","ACHIEVE; PERFORM","LEITEN","LEAD","DIE LEITER","LADDER"$ E","DIE KOSTEN","EXPENSES","KRA:FTIG","STRONG; STURDY"#"KRIECHEN","CREEP","DIE KRONE","CROWN","KU:MMERN","WORRY","DER KU:NSTLER","ARTIST","DER KUPFER","COPPER","DIE KU:STE","COAST","LADEN","LOAD","DAS LAMM","LAMB","DER LA:RM","NOISE","DIE LAST","LOAD"REN","SWEEP","DIE KENNTNIS","KNOWLEDGE","DIE KETTE","CHAIN","DAS KLAVIER","PIANO"6""KLEBEN","STICK","DIE KLEIDUNG","CLOTHING","KLETTERN","CLIMB","DAS KLOSTER","MONASTERY","DER KNECHT","SERVANT","DER KNOPF","BUTTON","DAS KORN","GRAIN","DER KREIS","CIRCLHU:TTE","SHED","INDEM","WHILE","DER INHALT","CONTENTS","INZWISCHEN","IN THE MEANTIME","JENSEIT(S)","BEYOND","JUBELN","REJOICE"Q!"DER JU:NGLING","LAD","DER KAHN","BOAT","DER KAMM","COMB","KA:MMEN","TO COMB","DER KA:SE","CHEES