2IMGCdrP@@@ 8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8RTHREE ' 1@(ORDERINGf -THERMOMETER.1 -THERMOMETER.27 .SCRAMBLED.WORD -APPLE.CAPTURE&m$MENU7pk ' $TRAP4 L! .FAMILY.FINANCED L!k &,LASER.SEARCHM'L7 $J1.5f-@*ESTIMATIONk L; 'LEARNITt -SYNONYM.DRILL{)&GERMAN;L *CALCULATOR l)MATH.DICE ](MIDPOINT ,'RUNTIME /TOM.S.MATH.DRIL&ROOT.6h/ROOTS...PREFIXE k 3STARTUP  &PRODOS }<  ,BASIC.SYSTEM(  ʮ &ROOT.1)&ROOT.2,&ROOT.3/&ROOT.42&ROOT.55&ROOT.78m&ROOT.8;(CRAPS.II> L ,PLACE.VALUESH ^,VOWEL.SEARCHS"(FIZZ.BINf"L6 .DECISION.MAKERy x.HOME.MORTGAGES L1 /COMMODITY.MARKE L /CHEMISTRY.DRILL +FOOD.VALUES.METRIC.KITCHEN /ANNUITY.PRINCIPL )BLACKJACK./COMPOUND.INTEREN .BUDGET.MONTHLY2!!k /DOS.INSTRUCTIONL*LAF.ISLAND+,SHOPLIST.3.1%MENU2k ( TITLE)ORDER,w 6000:5&(42(A$))2:A$:8C0:RR0:XX0@N6H:V TURN1N^:jRRRR1pw9"TYPE ANY LETTER. ";:A$(A$)65(A$)90ī14010"TYPE ANY OTHER LETTER. ";:B$ (B$)65(B$)90B$A$ī190  11A "AND ANOTHER LETTER-- ";:C$G o (C$)65(C$)90C$A$C$B$ī230u } 12 " AND ANOTHER --";:D$  "(D$)65(D$)90D$A$D$B$D$C$270 , 69 @"THE LETTERS YOU SELECTED ARE: " BWWC ECC1 J6 T8)A$5)B$5)C$5)D$< ^B hx r"NOW PUT THESE LETTERS IN ALPHABETICAL ORDER." |17 " WHICH SHOULD BE FIRST? ";:L$: (L$A$)(L$B$)(L$C$)(L$D$)ī380 18 " WHICH SHOULD BE SECOND? ";:M$:7 (M$A$)(M$B$)(M$C$)(M$D$)ī398? 19h " THIRD? ";:N$: (N$A$)(N$B$)(N$C$)(N$D$)ī408 20 " FOURTH? ";:O$: (O$A$)(O$B$)(O$C$)(O$D$)ī418 L$M$M$N$N$O$ī470 0 :"NOT QUITE!":J WWWW1:WWCXXXX1S 380w :23:34:"RIGHT!":""; X11500: NCī590  9 :"GOOD!!";::" NOW GET READY TO DO IT AGAIN." 22:1200 TURN N8 SC X:"SET NOW COMPLETE.";::" I'LL HAVE YOUR SCORE IN A SECOND."S bX13500:Y _ f 5 "GOOD SHOW! YOUR SCORE WAS ";((RRXX)RR100);"%" 5 "CORRECT ON YOUR FIRST TRY." 8 X12500:*$"NOW WHY DON'T YOU TRY IT AGAIN AND SEE HOW MUCH BETTER YOU CAN DO."2.21<81200DB90" PRESS TO CONTINUE":" PRESS TO QUIT."(16384)1553000(16384)1601210 ::16368,0:16298,0:10:10:"* * * THE END * * *" (4)"RUN MENU" I OFTEN PRINT THE ALPHABET ON A STRIP OF PAPER AND LAY IT ON THE COMPUTER TO HELP FIRST TIME USERS.p::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::=q4:A$"ADVANTAGE COMPUTING'S":3::A$"PUBLIC DOMAIN SOFTWARE":3::A$"ORDERING":3r11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"u49152,128:K(49152)128:49168,0:K48K526005vA((K)):A3ızA6100,6050,0,6030+FL0:6000?(4)"RUN MENU"32,2:33,33:34,10:35,22::"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT."49152,128:K(49152)128:49168,0:K80K816055K81ı*FL1:(4)"PR#1":6100:FL0:(4)"PR#0":::"IN THIS PROGRAM, YOU ENTER ANY FOUR":"LETTERS FROM THE KEYBOARD. AFTERWARDS,":"YOU ARE PROMPTED TO PUT THEM IN"ALPHABETICAL ORDER. "!:"PARENTS/TEACHERS: THIS IS GREAT FOR":"THE YOUNG ONES JUST LEARNING THEIR":"ABC'S."+FLı_23:A$"PRESS A KEY"::3::49152,128:49168,0e1000:10'(42(A$))2:A$:: THERMOMETER 2RPRACTICE READING AeA THERMOMETER(BY LUCIEN T. HALL, JR. 2:2:" THERMOMETER 1"::" PREPARED BY LUCIEN T. HALL, JR."::" RICHMOND PUBLIC SCHOOLS"' <16:"PLEASE TYPE IN YOUR NAME :";N$:N$""60 F:" HI, "N$"!":"THIS PROGRAM WILL HELP YOU LEARN TO READ A THERMOMETER. IF YOU ARE":"READY TO BEGIN, PRESS RETURN....";ZZ$ PC0' Z24::7:200,159240,159240,140230,140230,0210,0210,140200,140200,159:205,130210,130:200,120210,120 d205,110210,110:200,100210,100:205,90210,90:200,80210,80:205,70210,70:200,60210,60:205,50210,50 n200,40210,40:205,30210,30:200,20210,20:205,10210,10:181,120178,120:184,123184,117185,117185,123{ x189,123195,123195,117189,117189,123:189,103195,103195,97189,97189,103:184,83184,77185,77185,83 189,83195,83195,77189,77189,83:179,57185,57185,60179,60179,63185,63( 189,63195,63195,57189,57189,63:179,37185,37185,40181,40185,40184,43179,43 189,43195,43195,37189,37189,43:179,17179,20185,20185,17185,23:189,23195,23195,17189,17189,23:2 Y159 YY1:Y141180:201,Y239,Y:170 T10((13(1))1):C3T90180:TB141# TBTB1:TBT200:211,TB229,TB:1907 CT(T100)(2)u :"WHAT IS THE TEMPERATURE? =>";TE:TECT240:TECT230 :N$", YOUR NUMBER IS TOO LARGE.":"READ THE THERMOMETER AGAIN.":210 :N$", YOUR NUMBER IS TOO SMALL.":"READ THE THERMOMETER AGAIN.":210+:"VERY GOOD, "N$".":CC1{:"DO YOU WISH ANOTHER EXAMPLE? (Y/N) ";CC$:CC$"Y"260:CC$"N"270:250:90:::(4)"RUN MENU" "*****************,* MODIFIED BY *6* TOM McCORD *@* EDUCATIONAL *J* MEDIA *0T* SERVICES *G^*****************::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::4:A$"ADVANTAGE COMPUTING'S":5::A$"PUBLIC DOMAIN SOFTWARE":5::A$"THERMOMETER 1":5s11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"49152,128:K(49152)128:49168,0:K48K521005A((K)):A3ıA1100,1050,0,1030FL0:1000(4)"RUN MENU"r32,2:33,33:34,10:35,22::"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT."49152,128:K(49152)128:49168,0:K80K811055$K81ı)FL1:(4)"PR#1":1100:(4)"PR#0":\L::"THIS PROGRAM WILL TEACH YOU HOW TO READ":"A THERMOMETER AS SHOWN ON THE SCREEN.":"GOOD LUCK AND DON'T FREEZE!!"fNFLıQ23::A$"PRESS A KEY":5::49152,128:49168,0:1000:10'(42(A$))2:A$:; THERMOMETER 2QPRACTICE READINGdA THERMOMETER(BY LUCIEN T. HALL, JR. 2:2:" THERMOMETER 2"::"PREPARED BY LUCIEN T. HALL, JR."::" RICHMOND PUBLIC SCHOOLS"% <16:"PLEASE TYPE IN YOUR NAME :";N$:N$""60 F:"HI, "N$"!"::"THIS PROGRAM WILL HELP YOU LEARN TO":"READ A THERMOMETER. IF YOU ARE":"READY TO BEGIN, PRESS RETURN. ";ZZ$ PC0 Z24::7:200,159240,159240,140230,140230,0210,0210,140200,140200,159:YS1405 dYSYS4:205,YS210,YS:YS8110:100@ nYS140l xYSYS20:200,YS210,YS:YS40130:120 181,120178,120:184,123184,117185,117185,123:189,123195,123195,117189,117189,1237 189,103195,103195,97189,97189,103:184,83184,77185,77185,83:189,83195,83195,77189,77189,83 179,57185,57185,60179,60179,63185,63:189,63195,63195,57189,57189,63 179,37185,37185,40181,40185,40184,43179,43:189,43195,43195,37189,37189,439 179,17179,20185,20185,17185,23:189,23195,23195,17189,17189,23:2:Y159` YY1:Y141190:201,Y239,Y:180 T4((34(1))1):C3T90190:TB141 TBTB1:TBT210:211,TB229,TB:200 CT(T100)(2) :"WHAT IS THE TEMPERATURE? =>";TE:TECT250:TECT240S :N$", YOUR NUMBER IS TOO LARGE.":"READ THE THERMOMETER AGAIN.":220 :N$", YOUR NUMBER IS TOO SMALL.":"READ THE THERMOMETER AGAIN.":220 :"VERY GOOD, "N$".":CC1:"DO YOU WISH ANOTHER EXAMPLE? (Y/N) ";CC$:CC$"Y"270:CC$"N"280:260:904::12:(4)"RUN MENU";" R,*****************i6* MODIFIED BY *@* TOM McCORD *J* EDUCATIONAL *T* MEDIA *^* SERVICES *h*****************.::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::4:A$"ADVANTAGE COMPUTING'S":5::A$"PUBLIC DOMAIN SOFTWARE":5::A$"THERMOMETER 2":511:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"?49152,128:K(49152)128:49168,0:K48K521005TA((K)):A3ılA1100,1050,0,1030{FL0:1000(4)"RUN MENU"32,2:33,33:34,10:35,22::"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT."@49152,128:K(49152)128:49168,0:K80K811055L$K81ıu)FL1:(4)"PR#1":1100:(4)"PR#0":L::"IN THIS PROGRAM, YOU WILL LEARN HOW TO":"READ A THERMOMETER AS SHOWN ON THE":"SCREEN. GOOD LUCK AND DON'T FREEZE!!"NFLı6Q23::A$"PRESS A KEY":5::49152,128:49168,0:1000:10'(42(A$))2:A$:H SCRAMBLED WORD 7/1980 ~ UNSCRAMBLE LETTERS TO SPELL A GIVEN WORD. AUTHOR UNKNOWN BUT IT WAS KID PROOFED ON 7/17/80 BY QJ ( ADAPTED TO THE APPLE FROM THE PET BY KEITH ROLLIN 2:k <:::255:::::8)"SCRAMBLED WORD GAME"::::34,5:B$(20),A(20): FA$"":B$"":C$"":Z120:A(Z)0:Z:A((1)301):B1A:A$ PA$"END"Į:BB1 ZB:C(A$) dE1C! nD((1)C1):A(D)1110:B$(E) !"#$(A$,D,1):B$B$B$(E):A(D)1:EY xA$B$100:10:" UNSCRAMBLE: "B$;:CV(37):520 14:"WHAT'S YOUR GUESS? ";:430:::C$EE$:A$C$170:160 560:WWWW1:WW3İ550:130 " THE ANSWER IS: ";::A$:::WW0:180 WW1:140 "CORRECT!!"::RR1[ :"SCORE: CORRECT "R" WRONG "W:23:"ANOTHER WORD? (Y OR N) ==>"; QQ$:QQ$""190:QQ$"Y"ė:3:70 QQ$"N"190::::"YOU ANSWERED: ":TWR:X(RT100.5) Y(WT100.5):::X"% CORRECT "Y"% WRONG"::H "IS THERE ANYONE ELSE WAITING TO PLAY?":"(Y FOR YES OR N FOR NO)=>";h QQ$:QQ$""230:QQ$"Y"Ĭ QQ$"N"230:::8:"* * * T H E E N D * * * (4)"RUN MENU"  HOBBY,BUILT,DIVERT,FLOWER, GRIMY,SMART,ENGINE,MUFFIN-  RUSTY,DESTROY,ICEBOX,DEBTOR, SCHOOL,HENNA,ARCADE,PURPLEk  RAINY,LAPEL,FROZEN,CIPHER, NUTTY,MAGIC,PASTRY,SOLACE " BOOTY,CLOUT,DROWSY,WINDOW, FELON,DICED,THROW,CLOUDY , DARING,BAFFLE,INVITE,ENAMEL,DAHLIA,OBJECT 6 WINCE,CREST,DRUG,INVERT , SNORE,MOTIF,CHORUS,GENDER ^@ POUCH,EXACT,BUTTON,ORIOLE, YOKEL,ARMOR,VANDAL,PICKETJ LIMIT,GAUDY,SINGLE,DOUBLY, MOUSE,FUZZY,AFFRAY,ESTATE T CLEFT,STEED,OUTBID,WIDEST, LINEAR,THYME,DISMAL,HELMET^ CLOVE,HITCH,DUPLEX,ARTERY, WEDGE,TAFFY,QUAVER,BUTTERWh ENACT,JOINT,THRUSH,WISDOM, DOUBT,QUEEN,MARINA,BEHELDr BEGIN,CANAL,GHOST,NIMBLE, YIELD,ABYSS,EMPLOY,FASTEN| ALBUM,TWINE,RANSOM,BEDECK, IGLOO,WHINE,GRIMLY,SOLID LOUSY,APRON,BANGLE,ANKLET, FINISH,PREFER,IODINE,DABBLEB GUTTER,NICKEL,POISON,OUTING,MOBILE,RAMROD  NERVE,CHIME,HYMNAL,FACTOR, CHAIR,AWOKE,AROUSE,SIPHON ZIGZAG,DONKEY,SPENT,VANITY,FAMOUS,INFUSE, END,END CURSOR INPUT ROUTINEEE$"":CV(37)1:CH(36)1CG$:AA(G$):AA13(EE$)255510:AA8EE$EE$(AA):(AA);:460k(EE$)0460:(EE$)1EE$"":490EE$(EE$,(EE$)1)CV((EE$)40)24CVCV1:490CV:CH:EE$;:958:460(13);:CV:17:"/";:A1(B$)2:"-";::(92);OCV1:16:"<";:16(B$)1:">";:CV2:17:(92);:A1(B$)2:"-";:Z"/":~&XX1500:XX:14:19:958::019:"SORRY!!";:XX1500:XX:19:868::: D ****************N * MODIFIED BY *X * TOM McCORD *b * EDUCATIONAL *(l * MEDIA *?v * SERVICES *V ****************::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::4:A$"ADVANTAGE COMPUTING'S":5::A$"PUBLIC DOMAIN SOFTWARE":5::A$"SCRAMBLED WORD":511:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"49152,128:K(49152)128:49168,0:K48K521005A((K)):A3ıA1100,1050,0,1030FL0:1000 (4)"RUN MENU"32,2:33,33:34,10:35,22::"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT."49152,128:K(49152)128:49168,0:K80K811055$K81ı)FL1:(4)"PR#1":1100:(4)"PR#0":ZL::"IN THIS PROGRAM, YOU WILL BE GIVE A":"WORD AND ASKED TO UNSCRAMBLE IT, IT'S":"THAT SIMPLE!!!"dNFLıQ23::A$"PRESS A KEY":5:49152,128:49168,0::8 APPLE CAPTURE, WILLIAM J. RYAN, SOFTSIDE,JAN1982\CHANGED DISTANCE FORMULA 1950  USE HIMEM TO GUARD PAGE 2,2008522000:10(42(A$))2:A$: 20000:"DO YOU WANT INSTRUCTIONS?";:A$A$"Y"İ10000(2400$ 2LR(1)1:LC(1)1:LR(2)10:LC(2)8:2600N <P1:RLR(P):CLC(P):1800:1200:2100x FP2:RLR(P):CLC(P):1800:1200:2100 PRLR(P):CLC(P):1800 ZP1P2:110 dP1 n2300 x2200 RLR(P):CLC(P):1800 B1200 CL0:1700 RRI:C%'()*+,-./012@ABCI$ LR(P)R:LC(P)C:1800:1200- 120M A46CICI1:RIRI1:2270] 1900:2000k DS0330~ ZZ((1)21) (1).1ZZ3:250 CL3:RLR(P):CLC(P):1800:1600 ZZ260,310,320 NDS:1800:CL0:1300 Z11000:Z RLR(P):CLC(P):1800. "CL3:1600:1100:12006 ,90K 6RTDR:1400:270Z @2500:270l JSC(P)SC(P)1v T1500 ^2100 hSC(P)15510 rRLR(P):CLC(P) |1800 0 X0XX2 Y0YY2 Z12000:Z Z022:ZX,YZX,Y22:Z0 RLR(1):CLC(1):1800:CL3:1600:1100[ RLR(2):CLC(2):1800:CL3:1600:1100d NPP LR(1)1:LC(1)1:LR(2)10:LC(2)8 R1:C1:1800:P1:1200 R10:C8:1800:P2:1200 2600:PNP:90 Z12000:Z ::5:10::"THE WINNER IS" P1A$"BLUE"- P21A$"RED"C &:15:A$::3200W 05:"SCORE --";h :P1ĺSC(1);y DP2ĺSC(2); N" TO ";:R1ĺSC(2) XP2ĺSC(1) b::3100 l:"PLAY AGAIN (Y/N)?":A$:A$"Y"40 v:(4)"RUN MENU"K DRAW APPLE TREEL15tX3,Y2X7,Y2:X2,Y3X8,Y3T~Z48:X1,YZX9,YZ:ZiX3,Y9X7,Y9s27000:Z46:XZ,Y10XZ,Y17:ZX3,Y16X7,Y16:X2,Y17X8,Y17 DRAW WORM(P1)32:XPXPXP18,Y1:XP19,Y2LXP18,Y2XP18,Y4:XP17,Y3XP17,Y16:XP16,Y4XP16,Y10}XP18,Y9XP18,Y15:XP19,Y12XP19,Y13XP13,Y11XP14,Y12:XP12,Y11XP17,Y16:XP11,Y11XP16,Y16XP11,Y12XP15,Y16:XP11,Y13XP12,Y14  NUMBERCL0<Z17:QS(N,Z):Q01395ZFQ1360,1365,1370,1375,1380,1385,1390PX3,Y3X15,Y3:X4,Y4X14,Y4:1395UX3,Y4X3,Y9:X4,Y5X4,Y9:1395ZX15,Y4X15,Y9:X14,Y5X14,Y10:1395_X5,Y9X14,Y9:X5,Y10X14,Y10:1395DdX3,Y10X4,Y15:X4,Y9X4,Y14:1395viX14,Y9X14,Y14:X15,Y9X15,Y15:1395nX4,Y14X14,Y14:X3,Y15X15,Y15:1395sZu2900wx1:(RT1)8:01X9,Y92900DDRAW APPLE%0:Z020:XZ,YXZ,Y20:Z4X0XX2CY0YY21:X14,Y:X13,Y1X15,Y1:X12,Y2X15,Y2:X12,Y3X15,Y3X11,Y4X14,Y4:X11,Y5X13,Y5:X11,Y6X12,Y6:X4,Y6X7,Y6:X16,Y6X20,Y6:X17,Y5X19,Y59X2,Y7X9,Y7:X15,Y7X21,Y7:X1,Y8X21,Y8"5:X,Y9X20,Y9:X,Y10X20,Y10:X,Y11X20,Y11:X,Y12X19,Y12,2:X1,Y13X20,Y13:X1,Y14X20,Y14:X1,Y15X20,Y15:X2,Y16X21,Y16 66:X2,Y17X21,Y17:X3,Y18X20,Y18:X4,Y19X19,Y19t;X5,Y20X9,Y20:X13,Y20X18,Y20:X6,Y21X8,Y21:X14,Y21X17,Y21=RP20:3000?@CL: DRAW WHITE SQUAREhZ020:XZ2791660rXZ,YXZ,Y20|ZSET HALF SQUARE TO WHITE3&ZX10X18:Z,YZ,Y18:Z,FX(R1)24:Y(C1)24L0mkCALCULATE DISTANCE TO APPLElRD(LR(P)LR(0))CD(LC(P)LC(0))DSRDDSCDDSCDGET DIRECTION TO APPLEDR0LR(0)LR(P)LC(0)LC(P)DR1#LR(0)LR(P)LC(0)LC(P)DR2ELR(0)LR(P)LC(0)LC(P)DR3gLR(0)LR(P)LC(0)LC(P)DR4LR(0)LR(P)LC(0)LC(P)DR5 LR(0)LR(P)LC(0)LC(P)DR6LR(0)LR(P)LC(0)LC(P)DR7LR(0)LR(P)LC(0)LC(P)DR8* 3PLOT PLAYER SCORE4N0!RP1C2.\P2C8EfR11:N(SC(P)10)Ok1800qpCL0:1600:CL(P1)32:1300uR12:1800zNSC(P)N10:CL0:1600CL(P1)32:1300Q1500:QGET PLAYER MOVEB0RILR(P):CILC(P):R1LR(1(P2)):C1LC(1(P2))5A$:A(A$):A132295MA73CICI1:2270mA79CICI1:RIRI1:2270A76RIRI1:2270A46CICI1:RIRI1:2270A44CICI1:2270A77CICI1:RIRI1:2270A74RIRI1:2270A85CICI1:RIRI1:22700Z130:Q(16336):Z:2230JRI10RI1ZRI1RI10iCI8CI1xCI1CI8RIR1CIC12266B1:HIGHLIGHT PLAYER SCOREP22370$ R11.5:C1:CL2:1800:1600) C7:CL0:1800:1600 . 2382+B R11.5:C7:CL5:1800:1600DL C1:CL0:1800:1600NN 3100TV j_ INITIALIZE BOARD` :3:0,0:62454 0 Z240279:Z,0Z,191:Z Z2123724:Q02:ZQ,0ZQ,191:Q,Z Z2118924:Q02:0,ZQ239,ZQ:Q,Z R110:C18:1800:1100:C,R3 SC(1)0:SC(2)09 K MAKE IT RAIN[ 1800:1700 0:X15,Y15X17,Y15:X14,Y16X18,Y16:X15,Y17X17,Y17 6 Z160 XA((1)19):YA((1)14) XXA,YYAXXA1,YYA 768,(1)5040:769,((1)53):770  Z&# ?' PICK APPLE LOCATIONV( LR(0)((1)101)lP LC(0)((1)81)r  TREE-PLANTING SOUND 768,150:769,7:770 768,255:769,9:770  WORM SOUND Z20010020 768,Z:769,5:770" Z , S CLUE SOUND2T 768,75:769,6:7708| I APPLE SOUNDU Z1RPn 768,193:769,8:770 768,156:769,8:770 768,128:769,8:770 768,97:769,8:770 Z  NEW TURN SOUND Z17D 768,110:769,10:770N 768,130:769,10:770 X Z&b 8 WINNER SOUNDA RP5M Q130y (((1)51))2700,2800,2900,3000,3100 Q ' INSTRUCTIONS'::"THE OBJECT OF THE GAME IS TO FINE 15":"APPLES IN THE ORCHARD."-'"THE APPLE. THE FIRST PLAYER TO SCORE":"15 POINTS IS THE WINNER.":B'" I WILL PLANT AN ORCHARD OF 80 TREES":"10 ROWS BY 8 COLUMNS. EACH PLAYER WILL":"HAVE A WORM. ONE PLAY WILL BE RED.":"AND THE OTHER BLUE."> L'" WHEN YOUR COLOR IS LIT YOU MAY MOVE":"YOUR WORM TO ANY TREE USING THE ":"'U I O J L M , .' KEYS. WHEN YOU THINK" V'"YOU HAVE FOUND THE APPLE, PRESS":"'RETURN'. IF IT IS THE APPLE YOU GET A":"POINT. IF NOT YOU WILL BE GIVEN 1 OF 3":"POSSIBLE CLUES."N!`':"1. DIRECTION-GENERAL DIRECTION TO APPLE":"2. DISTANCE-MINIMUM DISTANCE TO APPLE":"3. RAIN-THIS IS NOT THE RIGHT TREE":!j'"FIRST PLAYER TO PICK 15 APPLES IS THE":"WINNER"!o'FL1ı!t'A$!'!NINITIALIZATION! N::7:13:"APPLE CAPTURE"::19:"BY"::15:"BILL RYAN":"RNZ1200 3000 TRAP'STEVE ULLMAN58/1/72 Z(::280::12:G6:D0:E0:N100210:"INSTRUCTIONS? (Y/N) ";:Z$:Z$"N"ĺ:130<Z$"Y"ĺ:"WHAT!!(Y OR N)?";:70F:4:4)"I AM THINKING OF A NUMBER":8:"BETWEEN 1 AND "N P:"ON EACH GUESS, YOU ARE TO ENTER TWON Z"NUMBERS (A,B), TRYING TO TRAP MY NUMBER} d:"I WILL TELL YOU IF YOU HAVE TRAPPED MY n"NUMBER, OR IF MY NUMBER IS LARGER OR":"SMALLER THAN YOUR TRAP x:"TO GUESS A SINGLE NUMBER ENTER IT TWICE"::+ :"YO35:;<=>?U GET "G" GUESSES TO GET MY NUMBER.":400L X(N(1))1:D0:E0:Q1G :2:"PREVIOUS GUESS WAS "D","E" ":34,4::420:DEXD230 DE170:220 DXXE200:XD190::"MY NUMBER IS LARGER THAN YOUR TRAP "NUMBERS.":400:210C :"MY NUMBER IS SMALLER THAN YOUR TRAP":"NUMBERS.":400:210m :"YOU HAVE TRAPPED MY NUMBER.":400 Q::2::::"SORRY, THAT'S "G" GUESSES. NUMBER WAS "X".":240 RD:DE:ER: ::13)"YOU GOT IT !!! :15)"TRY AQ4:Z18A$(Z),B$(Z)' :1(1000D2--CENTER A$--\7(42(A$))2:A$:s<--SCREEN BORDER--A:1:2:X239:"3";::2:2:"3";:39:"3":X222:X:1:"3";:40:"3":F22:2:"3";:39:"3";:23:2:X239:"3";::: 60 X1Z:A$(X):) X1Z:B$(X)::  ORDERINGP  THERMOMETER 1f  THERMOMETER 2|  APPLE CAPTURE  TOM'S MATH DRILL  TRAP  SCRAMBLED WORD  CALCULATOR  ESTIMATION  FAMILY FINANCE  GERMA689N  LEARNIT%  MATH DICE:  SHOPLIST 3.1P  SYNONYM DRILLa  MIDPOINTt  LASER SEARCH  MENU2 :A$"THE APPLE BEST 100 - V2.0":3:50: X1Z:A$A$(X):XQ:50: C1 :A$A$(C):A$A$" ":A$" "A$:CQ:50:! 49152,128:K(49152)128. 49168,0k K10K21ĝ:A$A$(C):A$A$" ":A$" "A$:CQ:50:CC1x CZC1 K10K211033 K8K11ĝ:A$A$(C):A$A$" ":A$" "A$:CQ:50:CC1 K131050 C1CZ 1033 :(4)"RUN "B$(C)  ORDERING/  THERMOMETER.1F  THERMOMETER.2]  APPLE.CAPTUREv  TOM.S.MATH.DRIL  TRAP  SCRAMBLED.WORD  CALCULATOR  ESTIMATION  FAMILY.FINANCE  GERMAN  LEARNIT  MATH.DICE#  SHOPLIST.3.1:  SYNONYM.DRILLL  MIDPOINTc  LASER.SEARCHo  MENU2GAIN? (Y/N)?";6 A$:A$"Y"140:A$"N"250:270R 20(CT$)2:CT$:"": :10:10:"* * * THE END * * * "::(4)"RUN MENU" 3:CT$"* T R A P *":260:CT$"BY STEVE ULLMAN":260 "CT$"MODIFIED BY G. LARSEN":260:CT$"DECEMBER 1978":2605 ,:CT$"GUESS THE APPLE'S SECRET NUMBER.":260 621:" PRESS THE 'ESC' TO END":"< PRESS THE SPACE BAR TO CONTINUE...> @(16384)155310:(16384)160310:16368,0::936: JT GIVEN TO APPLE CORE OF SAN FRANCISCO FOR USE OF MEMBERS DEC. 1978 !^;h LAST MOD. JULY 1979ArP| ' TRAP 'V23:" PRESS TO CONTINUE...":6:"OR KEY TO END PROGRAM";Z$:(Z$)27310:(Z$)13410:B$"":5:"GUESS NUMBER "Q": ";<IN$:(IN$)13B$""430:(IN$)13460:(IN$)8550:IN$","450g(IN$)48(IN$)57430: NON-NUMBERB$B$IN$:IN$;:430CO0:I1(B$):(B$,I,1)","CO1I&CO0B$""::"WHOOPS! YOU FORGOT THE COMMA. PLEASE PRESS AND THEN ENTER YOUR NUM- BERS AGAIN. ":4007CO0ė:420sD(B$):K(B$):I1K:B1$(B$,I,1):B1$","COI:520zIKCO1530:E$(B$,(KCO)):E(E$):5809B$"":E$""::"I'M SORRY, BUT YOU FORGOT THE LAST NUM- BER. PLEASE PRESS RETURN AND THEN RE- ENTER YOUR NUMBERS. ";:IN$::(IN$)13530D:420a&K(B$):K1B$"":570r0B$(B$,K1):(36)16430:((36)):868:430(DDEė:"I'M SORRY, BUT THE FIRST NUMBER MUST BE SMALLER THAN THE SECOND. "::"YOU WILL NEED TO ENTER YOUR NUMBERS AGAIN.":400::420LND1D100600:E1E100600:X:"REMEMBER, MY NUMBER IS BETWEEN 1 AND 100. PLEASE RE-ENTER YOUR NUMBERS.":400::420b l ****************v * MODIFIED BY * * TOM McCORD * * EDUCATIONAL *& * MEDIA *= * SERVICES *T ****************Z` f~(42(A$))2:A$:::"THE COMPUTER WILL PICK A NUMBER, AND":"YOU MUST TRY TO GUESS WHAT IT IS."::"YOU WILL BE ASKED TO ENTER 2 NUMBERS,""AND THE COMPUTER WILL THEN TELL YOU IF":"YOU HAVE 'TRAPPED' ITS NUMBER,":"OR IF THE 'MYSTERY NUMBER IS HIGHER OR":"LOWER THAN YOUR GUESS."FLı23::A$"PRESS A KEY":1000::49152,128:49168,0: :(4)"RUN MENU" ::49168,0Q SP$" "::X139:SP$;:::X222:X:1:SP$;:39:SP$::23:X139:SP$;:: 4:A$"ADVANTAGE COMPUTING'S":1000:6:A$"PUBLIC DOMAIN SOFTWARE":1000:8:A$"TRAP":1000, 11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"I 23:39:A:A1A43020d A2000,3050,3035,2500s FL03000 FLFLFL:10 FL1: 32,2:33,33:34,11:35,22: 11:"MAKE SURE YOUR PRINTER IS READY, AND":"PRESS 'P' TO PRINT, OR":"PRESS 'Q' TO QUIT"Z 49152,128:(49152)128("P")(49152)128("Q")Ĺ49168,0:3060u (49152)128("Q")ı}:(4)"PR#1":FL1:2000:FL0:(4)"PR#0":0:Z%"\NZ09:Q17:S(Z,Q):Q,ZC"fNZ2457624613:Q:Z,Q:ZV"pN232,0:233,96i"qNSOUND ROUTINE"rN770,173:771,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3:779,240:780,9:781,202)#tN782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96:791,0:792,05#uN4163I#yNSC(1)0:SC(2)0Q#zN:o#RDATA FOR NUMBER SEGMENTS#R1,2,3,5,6,7,0# R3,6,0,0,0,0,0# R1,3,4,5,7,0,0# R1,3,4,6,7,0,0# R2,4,3,6,0,0,0# R1,2,4,6,7,0,0#R1,2,4,5,6,7,0 $R1,3,6,0,0,0,0$R1,2,3,4,5,6,7/$R1,2,3,4,6,7,0A$/R ARROW SHAPE$0R1,0,4,0,63,63,63,46,45,45,45,45,53,62,62,62,62,37,37,37,37,37,37,39,39,39,39,39,47,46,46,46,46,46,63,63,63,0%U::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::d%U4:A$"ADVANTAGE COMPUTING'S":5::A$"PUBLIC DOMAIN SOFTWARE":5::A$"APPLE CAPTURE":5%U11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"&U49152,128:K(49152)128:49168,0:K48K5222005,&UA((K)):A3ı:&UA1FL1U&UA10000,22050,0,22030g&VFL0::22000{&V(4)"RUN MENU"&"V32,2:33,33:34,10:35,22::"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT."-''V49152,128:K(49152)128:49168,0:K80K81220559',VK81ık'1VFL1:(4)"PR#1":10000::FL1:(4)"PR#0":2000:40'(42(A$))2:A$:P 24:868:EF0:: ERASE ERROR MSGmQ1(Q$):QQ$(Q$,Q,1)QQ$"+"QQ$"-"QQ$"."27(QQ$)48(QQ$)57Ģ24:G$;"PLEASE ENTER A NUMBER";:EF1:Q:" 24:G$;"NUMBER OUT OF RANGE - PLEASE REENTER";:: PRINT ERROR MSG5 (::255:1400; 2^ <"F A M I L Y F I N A N C E"x F:" 0) END PROGRAM" P:" 1) LOAD FILE FROM DISK" Z:" 2) SAVE FILE TO DISK" d:" 3) ENTER BUDGET DATA" n:" 4) DISPLAY BUDGET DATA"* xCEFGHIJKabcd14::"ENTER FUNCTION NUMBER (0-4): ";Q$2 {10D }20:EF1120P N(Q$)] N0170s N1N4İ30:120 N230,330,400,700 50 :CHĺ(4)"RUN MENU" "THE DATA CURRENTLY IN MEMORY HAS":"BEEN CHANGED, BUT NOT SAVED.": "DO YOU WISH TO SAVE IT? (Y/N) ";Q$0 Q$"Y"330F Q$"N"ĺG$:190N :] :CH280 "THE DATA IN CURRENTLY IN MEMORY HAS":"BEEN CHANGED, BUT NOT SAVED.": "DO YOU WISH TO SAVE IT? (Y/N) ";Q$ Q$"Y"330 Q$"N"ĺG$:250 "ENTER YEAR: ";F$) F$"BUDGET FILE."F$B "BL$"BLOAD "F$",A"Q ,A%(0,0,0)o 6D$;BL$;(936)256(937)u @{ J T"ENTER YEAR: ";F$ YF$"BUDGET FILE."F$ ^BS$"BSAVE "F$",A":L$",L" hLN3218132 rA%(0,0,0) |D$;BS$;(936)256(937);L$;LN CH0 & D 1:"ENTER MONTH (1-12):"` 2:"ENTER DAY (1-31):"p I19:I3 I;") ";A$(I):I I1017:I93:20 I;") ";A$(I):I 17:"TO RETURN TO MAIN MENU:":"ENTER 0 IN EVERY FIELD"20:"ENTER CATEGORY (1-17):",21:"ENTER AMOUNT:"Y23:"('0' RETURNS TO NEXT HIGHER ENTRY)1:21:868:(95);(95):1:21:"";Q$1020:EF1490M(Q$)M0ıM1M12İ30:4902:19:868:(95);(95):2:19:"";Q$ 10 20:EF1520D(Q$),D0490CD1D31İ30:520q&20:24:868:(95);(95):20:24:"";Q$y)10+20:EF1550-C(Q$)0C0520:C1C17İ30:550D21:15:I16:(95);:I:21:15:"";Q$G10I20:EF1580KN(Q$)NN0610DXN1N1N:21:27:"TOTAL = ";N1;:580WbN1N1.5:N%N1rlA%(D,C,M)A%(D,C,M)N%vA%(0,C,M)A%(0,C,M)N%C1670A%(D,0,M)A%(D,0,M)N%A%(0,0,M)A%(0,0,M)N%N10: CLEAR TOTALCH1: SET DATA CHANGED FLAG550,:" 0) RETURN"B:" 1) MONTHLY"W:" 2) YEARLY"8:1:"ENTER DISPLAY TYPE (0-2): ";Q$1020:EF1730N(Q$)N0ıN0N2İ30:730N770,1040700 2:1:"ENTER MONTH (1-12) OR '0' TO RETURN: ";Q$&10820:EF1780DM(Q$)OM0ıf M1M12İ30:780s*:M$(M)4I117:I2:A$(I):I>21:"TOTL"H1:HT36:L5RHT:"TOTL"\I117:F$(A%(0,I,M))fI2:HT:" ":I2:1370pI2zF$(A%(0,0,M)):21:HT:" ":21:1370>D1:L4PHT1:JDD5\HTHT5{1:HT1:" ":1:HT1:JI117:F$(A%(J,I,M))I2:HT:" ":I2:1370IF$(A%(J,0,M)):21:HT:" ":21:1370J(23:1:"ENTER DAY (1-31) OR '0' TO RETURN: ";Q$010B20:EF1990ND(Q$)YD0ıpD1D31İ30:990D26D26910"COMPUTING YEARLY TOTALS..."$M112.C1178Y%(M,C)A%(0,C,M)BY%(0,C)Y%(0,C)Y%(M,C)LC11130$VY%(M,0)Y%(M,0)Y%(M,C)@`Y%(0,0)Y%(0,0)Y%(M,C)GjCNtMTyo~C117:C2:A$(C):C21:"TOTL"HT35:L6:1:HT1:"TOTL"C117F$(Y%(0,C)):C2:HT:" "C2:1370:CF$(Y%(0,0)):21:1370M1HT0:L5'IMM3:HTHT7;1:HT1:M$(I)GC117kF$(Y%(I,C)):C2:HT:" "}C2:1370:C F$(Y%(I,0)):21:HT:" "21:1370I(23:1:"ENTER MONTH (1-12) OR '0' TO RETURN: ";Q$+10-20:EF11320/M(Q$)2M0ı6<M1M12İ30:1320CFM9M9MP1230^ZF$"0"1390tdHTL(F$):F$:nHTL1:".":xA%(31,17,12),A$(17),M$(12),Y%(12,17)}I117:A$(I):I"INCM","MORT","FOOD","CAR""MED","CLTH","HOBY"," 300033,40% SQ(8,8,8)>ZE(32,4),BALL(10,2)S<ZSCR%0:PSCR%99md30000:READS SQ DATAi20000: TITLEn30120:READS ENTRY DATAp"DO YOU WANT INSTRUCTIONS ";:ANS$q(ANS$,1)"Y"İ40000x21000,-AAAA1 .33,40 /AA 034! 1S$""4 2LIN10S$" "A 3S$;LIN;M @S2$" "x ALOUT32ĺS2$;"HIT":ZSCR%ZSCR%1:325 BLINLOUTĺS2$;"REFL":ZSCR%ZSCR%1:325 CLOUT10S2$" " DS2$;LOUT;" ":ZSCR%ZSCR%2 EAA16AA1 F24 G"SCORE="LNOPQRSTUVWXYZ[\]^_`;ZSCR%:Z1500:Z I+ S FIND STARTa TXZE(CIN,1):YZE(CIN,2):DXZE(CIN,3):DYZE(CIN,4)g ]} ^DX0XLIM0:356 `YLIM0:DX0XLIM1:DIR3:360 bXLIM8:DIR1:360 dXLIM0:DY0YLIM1:DIR2:360 fYLIM8:DIR4 h  CHECK ENTRY SQ(X,Y,1)1LOUT99:426/ DX0ī4088 418K X1XL0:412r XLX1:SQ(XL,Y,1)1LOUTLIN:426 X8XH0:426 XHX1:SQ(XH,Y,1)1LOUTLIN:426 426 Y1422 YLY1:SQ(X,YL,1)1LOUTLIN:426 Y8426 YHY1:SQ(X,YH,1)1LOUTLIN:426# 7  LOOP FOR ALL I XXDX:YYDY\ DIR1X8517o DIR2Y1532 DIR3X1552 DIR4Y8572 SQ(X,Y,1)1LOUT99:574 DIR510,520,540,560 Y1513 SQ(X,Y1,1)1513( XX1:YY1:CIN33X:DIR4:DX0:DY1:503: RIGHT 5 Y8516M SQ(X,Y1,1)1516 XX1:YY1:CIN8X:DIR2:DX0:DY1:503: LEFT X8500 LOUT25CIN:574  LEFT X1526 SQ(X1,Y,1)1526  XX1:YY1:CINY:DX1:DY0:DIR1:503: DOWN X8530.SQ(X1,Y,1)1530dXX1:YY1:CIN25Y:DIR3:DX1:DY0:503: UP qY1500LOUT41CIN:574 UPY1546SQ(X,Y1,1)1546 XX1:YY1:CIN33X:DX0:DY1:DIR4:503: RIGHT "Y8550#SQ(X,Y1,1)1550H$XX1:YY1:CIN8X:DX0:DY1:DIR2:503: LEFT U&X1500j(LOUT25CIN:574v0 RIGHT2X15663SQ(X1,Y,1)15664XX1:YY1:CINY:DX1:DY0:DIR1:503: DOWN 6X85707SQ(X1,Y,1)1570)8XX1:YY1:CIN25Y:DX1:DY0:DIR3:503: UP 6:Y8500F<LOUT41CIN]>: FROM CHECK ALLu(42(A$))2:A$::(4)"RUN MENU" ::49168,0 SP$" "::X139:SP$;:::X222:X:1:SP$;:39:SP$::23:X139:SP$;::Y 4:A$"ADVANTAGE COMPUTING'S":1000:6:A$"PUBLIC DOMAIN SOFTWARE":1000:8:A$"LASER SEARCH":1000 11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU" 23:39:A:A1A43020  A60000,3050,3035,2000 FL03000. FLFLFL:89 FL1:Z 32,2:33,33:34,11:35,22: 11:"MAKE SURE YOUR PRINTER IS READY, AND"::"PRESS 'P' TO PRINT, OR"::"PRESS 'Q' TO QUIT" 49152,128:(49152)128("Q")(49152)128("P")Ĺ49168,0:3060! (49152)128("Q")ı) :J (4)"PR#1":PF1:60000:PF0^ :(4)"PR#0":du N33,40:34,0"N24:7:" ";#NPSCR%99ĺ" PREVIOUS LOW = ";PSCR%)N*N5::" L A S E R S E A R C H ":,N43NNN1:5:" 1 2 3 4 5 6 7 8 "'NA18FN2A0:2::B321A:CA8QNS$" "dNC10S$S$S$NB;" ";::" ";::S$;CNN2A1:5:" ":NAN33,40N18:5N"24 23 22 21 20 19 18 17 "OAA1%OAA:34:"IN OUT"7O34,19:35,23=$OHLO33,31NTOl\O20:"ENTRY # OF LASER ";z^O" ";LIN$`OLIN$"TRY"ī20500bOLIN$"GUESS"İ20700:20400dOLIN(LIN$):CINLINlOLOUT0tOLIN32LIN1ĺ"INVALID ENTRY : 1-32 ONLY":NUL11000:NUL:203001|O340: FIND STARTHO402: CHECK ENTRY\OLOUT0ī20388tO350: FIND X,YLIMSO500: CHECK ALL OTHERO300: PRINT LIN,LOUTO20316OO33,40O21OX1BH% O"BALL #";X;":";BALL(X,1);",";BALL(X,2);" ";OX3X6ĺ"OX5OZZ12000:ZZ;OTO"ANOTHER GAME ";AN$|O(ANS$,1)"Y"İ30000:20000:21007OO::(4)"RUN MENU"OP ENTER GUESSESPP:20 P"ENTER Y COORD(ROW) OR 'RETURN' ";X$#PX$""ī20605*(P"ENTER X COORD(COL) OR 'RETURN' ";Y$<-PY$""ī20605R2PXG(X$):YG(Y$)g7PXG1XG820595|(Q24:"SCORE=";ZSCR%;" ";U)QPSCR%99ĺ:20800}*Q" PREVIOUS LOW = ";PSCR%;" ",QPSCR%ZSCR%ī20810-Q22.QXU%(1)51:YU%(1)51/QC1$(XU%)", "C2$(YU%)","1QNN%1:208202Q"YOU BEAT THE PREVIOUS LOW SCORE!!!!! ".3QNN%3:2082084Q::H@QPSCR%ZSCR%NJQiTQNUL11000NN%:NUL:|R20000: TITLERSTART GAME R"HOW MANY BALLS (1-9) ";NB%RNB%1NB%9ĺ"WRONG NUMBER OF BALLS, STUPID!!":21000RBH%0R33,40:34,0:R201001R30030: PICKS HIDING PLACES<R20300U0uA18:B18:C14j:u READ SQ(A,B,C)z