L HAPPY NEW YEAR% :: T$(R);(147)/ * 505C H"----------":[ R:::"----------"g \ (19)m fw  170  AT THE TIME  THE BROWN COW  LOOK AT THAT  IN THIS HOUSE  THIS IS MINE  SHE SAID NO  3)J3 J3(J3)  590% :: T$(R);(147)/ * 505C H"----------":[ R:::"----------"g \ (19)m fw  170  AT THE TIME  THE BROWN COW  LOOK AT THAT  IN THIS HOUSE  THIS IS MINE  SHE SAID NO   RP4 RP5 430  (B): 840=  K1 1500:K: J2 800M :: T$(R)V STIi  TISJ 490t  (B)  K1 500:K ::: "WHAT WAS THE PHRASE?"  "";R$  R$ "" "": 520  & R$ 170 R(TI)0 " "T" TACHISTOSCOPE "x" "~""THIS PROGRAM WILL HELP YOU IMPROVE YOUR,"READING SPEED.6@"I'LL BRIEFLY SHOW YOU A SHORT PHRASE, c"333 MAIN STREET, REDWOOD CITY CA 94063 (415)364-5600 EX4401" " PROGRAMS MAY BE COPIED FOR EDUCATIONAL USE & MAY NO THE BABY CRIED  TO THE STORE&  READING IS FUN9  HE GOES FASTM  IN ALL THINGS_  GREEN GRASSs  TWO BIRDS FLY  LATE LAST NIGHT  THEY ARE HOME $ ON THE PHONE . THROUGH A DOOR 8 WE CAN TRY B HAPPY NEW YEART$(R) 700 0"THAT'S RIGHT :JJ3/ D J1.2 J1.25 NX XP1P2:P2P3:P3P4:P4P5:P5R:{ b"THE NEXT ONE WILL BE SHOWN" l"FOR";J60;"SECONDS." v 400 "NO, THAT'S NOT IT. IT WAS :"'";T$(R);"'" JJ3  (J J"AND YOU TRY TO READ IT." TK ^"TYPE WHAT YOU SEE, AND I'LL TELL YOU IFc h"YOU WERE RIGHT."k nI0  K1 5: R$:: "PRESS ANY KEY WHEN YOU'RE READY."  R$: R$"" 420 R(C(1))1  RP1 RP2 RP3 430T BEM" SOLD. COPYRIGHT 1981 CUE,INC VxT.1gJT60:B147pL50| T$(L)C0 R$ R$"XXX" 250CC1 CL "TOO MANY DATA STATEMENTS":T$(C)R$ C20  ) SWAP (OLD ROM) JULY1980y EXCHANGE WORDS ON A LIST UNTIL THEY ARE ARRANGED ALPHABETICALLY 8K PET (OLD ROM - 2.0 VERSION) SOME SOUND BY JIM LEWIS ADAPTED FROM IDEA SUGGESTED IN CAL ٠ŠРϠ8 ."::=p"נ٠ӠϠՠԠ";Q$:(Q$)0880IuR(Q$)Rz110j SELECTING WORDS WD29: WD=NUMBER OF DATA WORDS X 1 R Y ((TI)WD)1 : YWD 3020 Z 1 Y: N$: Z: W$(X)N$ BIRD":) " BIRD CAT":S " APE DOG":: " , ՠ ̠" *"ϠР٠ϠӠΠŠ. " 4"̠ΠРŠϠӠ">"Šՠ ","ZEBRA") "GIRAFFE","EEL","CAMEL","LION","LYNX",BEAR,BAT,DINGOKX1R:16)W$(X)::X:"":REEM"":Q16:" ": Q"SWAP WORDS"MOVE WORD SIDEWAYS X110C$(X1)W$(X)D(X1)X X:X1& D(1)D(2)250f C$C$(1):D(3)D(1):C$(1)C$(2):D(1)D(2):C$(2)C$:D(2)D(3)p 5000z 6100 ***INSTRUCTIONS 59468,14 "ӠӠŠŠƠ. " "ŠՠԠƠ. ՠY1E2:"":Y%(6)" "C$(2)"":E2E21,2XE< MV WD BACK SIDWAYSQPX110gZY1D(1):"":Y~d5X)" ";C$(2)""nY1D(2):"":Yx26X)C$(1)" "X: PRINT""V$W$(D(1)): W$(D(1))W$(D(2) '"' (A(255)1 2 700e nR8: " Š 8 Ӡ."::880 sR3"ԠӠ 3 Ӡ."::880 x 3000 "ŠŠҠ." 4000 "" :"Ƞ59467,16:59466,15X15!Y025520:59464,Y::59409,52IY255020:59464,Y::59409,60:uY150 01:59464,100Y:59464,10Y:$59467,0:59466,0:59464,0."ԠϠ ?"3Y$:Y$""61954(Y$)89"":8L" PROGRAMS MAY BE COPIED FOR EDUCATIONAL USE & MAY NOT BE" SOLD. COPYRIGHT 1981 CUE,INC "" LINE 3005 CONTAINS VARIABLE,6#" WD, WHI% TACHISTOSCOPE C1978+A BY TOM RUGG ANDG FLASHES SHORT PHRASES ON SCREEN 7 REM FOR MEASURED LENGTH OF TIME DATA CAN BE CHANGED IN LINES 900-9999  16K PET + "CULATORS$ AND COMPUTERS MAGAZINE*x " ݠ SAN MATEO COUNTY  " OFFICE OF EDUCATION & " COMPUTER-USING EDUCATORS : :A(Y)13020 A(Y)1  X1 Z0:Q1R1:W$(Q)W$(Q1)ZZ1D Q:ZR13000M 130 "LLAMA","MOUSE","NEWT","OWL","PIKE","QUAIL","RAT","SNAKE","TERN" "ADDER","BIRD","CAT","DOG","EWE","GOAT","FOX","HAWK","JAY" "WOMBAT","YAKҠΠ̠Š"$H"ӠΠ̠."^R:"ŠҠŠĠ RETURN."{S"";J$:J$""850WJ1$((J$)):N2(J$)X((J$,N,1))90J1$J1$(((J$,N,1))128)\", "J$::f"ՠY1D(1):"":Y 15X)" "C$(1)""#Y1D(2):"":Y816X)C$(2)" "@ XI""n"MOVE WORD UP & DOWNE1D(1):E2D(2)X1((D(1)D(2)))Y1E1:"":Y 26)" "C$(1)"":E1E11"% "Π̠,РϠ.":P " " "  Š  ͠ " "   ": " CAT APE": " DOG ) :W$(D(2))V$ DD(1):D(1)D(2):D(2)D1pX1R:W$(X)" ";:X:" ":S***CHECK FOR CORRECT LISTING`T1R1}W$(T) W$(T1)T:6130145" OU GOT IT, "J$".""SOUND ROUTINEӠ̠ɠ?":D "FIRST WORD";C$(1)::"SECOND WORD";C$(2)` F1R:C$(1)W$(F)180 F:"ˠҠ.":145 F1R:C$(2)W$(F)190 F:"ˠҠ.":145 "":4000 X112 X1R 808"":59468,12:D(1)D(2):D(2)D1pX1R:W$(X)" ";:X:" ":S***CHECK FOR CORRECT LISTING`T1R1}W$(T) W$(T1)T:6130145" OU GOT IT, "J$".""SOUND ROUTINECH EQUALS THE NUMBER OF WORDS IN THE DATA LIST. \$"%" 3070 BEGINS LIST OF DATA WORDS&"MODIFY AS NEEDED. USE NUMBERS TOO FOR NUMERICAL ORDERING. ݠ SAN MATEO COUNTY y " OFFICE OF EDUCATION & " COMPUTER-USING EDUCATORS SOFTSWAP "  SOFTSWAP b" "333 MAIN STREET, REDWOOD CITY CA 94063 (415)364-5600 EX4401"  R,COMMENT,TOPIC,WEIRD,BORING,USEFUL,PRESS,FORGET,SIMPLEP READY,QUESTION,REPEAT,EXTEND,SOCIETY,INVENTIONq WATER,BRAKE,SAFETY,WORSHIP PLANE,SCIENCE,BATTERY OBSCURE,SUFFICE,PRISM,VISUAL,FACETIOUS,IMPROVE,CONTRARY,STUDY,REALM FRAU ) PET PIT PAT POT AUGUST1980v GIVES DEFINITION OF A WORD BEGINNING WITH PET,PIT,PAT,POT USER GUESSES WORD . 8K PET . BY AL & LINDA NIELSEN, ALBANY MIDDL % " & K" COMPUTER-USING EDUCATORS q" " SOFTSWAP " "333 MAIN STREET, REDWOOD CITY "CA 94063 (415)3 " INTRODUCTION5i" READ QUESTIONS & ANSWERSUnQ1: Q$(50),QA$(50),R(50)xxQ$(Q),QA$(Q):Q$(Q)"END"150QQ1120QQ1" RANDOMIZE QUESTIONS"W O R K I N G"X110R((TI)Q)1 $ VI VI 1$ VI 1100,1150,1200,1250,1300,1350,1400,1450,15008L "EQ ""RR ""_S ""lT ""yU ""V "[ " ` "j 1600~ " lZ$:Z$"N"Z$"Y"620! vZ$"Y" , "":? K$:K$""800E *U "GOOD! "[  "SORRY TRY AGAIN! REMEMBER, YOUR WORD " "BEGINS WITH PET-, PIT-, PAT-, OR POT-. "  59468,14: "  VI VI 1$ VI 1100,1150,1200,1250,1300,1350,1400,1450,15008L "EQ ""RR ""_S ""lT ""yU ""V "[ " ` "j 1600~ " WORDS." ""<  "RESS ANY KEY TO CONTINUE"P  K$:K$""3090c  "":59468,12i  o " QUESTION AND ANSWER  "" X". "Q$(Q):" ";A$ A$""4010 ACAC1 A$QA$(Q)AC3 20NCIL,THREAT  OVERTHROW,BELIEVE,SYMPHONY+ QUALITY,SHUFFLE,CELLOPHANEO MEMORY,BECOME,SWITCH,KEYBOARD FEATURE,PASSIVE,DISPLAY,SOCKET,BRIDGE,PLATINUM,THERMAL,HOBBY,SPECIAL MANUAL,CLOSE,DESTROY,PRIORITY,SCOPE  SHINE,SOLID,ENTERSCOUT OR GUIDE IS AMEMBER OF (6)",PATROL= AN AUTO FUEL (6),PETROL"A SMALL SEA-BIRD ASSOCIATED WITH STORMS (6)",PETREL AN UNDERSKIRT (9),PETTICOAT WORKER IN CLAY (6),POTTER"SOUND OF TINY FEET;ALD,CLERK,JUSTIFY,CHRISTEN,THUMB,THIMBLE,CLARITY,ALGEBRA,PHASEb THISTLE,LIBRARY,BRANCH,DRAFT,GNAT,SPOUSE,ANSWER,WHALE,EXCLAIM SPLIT,SHALE,CRAWL,TRAMP,COMMIT,VERIFY,SLIGHT,ANCHOR,PNEUMATIC,CRUTCH TRAFFIC,RIGHT,CORNER,IMPACT SURFACE,WRE SCHOOL, 1000 JACKSON ST= ALBANY, CA 94706 : PLEASE SHARE ANY EDUCATIONAL EXERCISES WITH US AT THE ADDRESS ABOVE. THANK YOU. " " SAN MATEO COUNTY  " OFFICE OF EDUCATION 64-5600 EX4401/"U"{" PROGRAMS MAY BE COPIED FOR " EDUCATIONAL USE & MAY NOT BE" SOLD. COPYRIGHT 1981 CUE,INC"d3000:Y1X1:R(Y)R180 Y R(X)R# XI ," ASK QUESTIONb 6X110:QR(X):4000i @X D"THAT WAS A CHALLENGE! I HAD TO USE" N"MY DICTIONARY. PERHAPS YOU HAD TO ALSO." b"WOULD YOU LIKE TO TRY IT AGAIN? (Y/N)~A BASEBALL PLAYER; ALSOA POURING VESSEL (7)",PITCHERN PEEVISHLY IMPATIENT (8),PETULANT['END,ENDa'$STORMS (6)",PETREL AN UNDERSKIRT (9),PETTICOAT WORKER IN CLAY (6),POTTER"SOUND OF TINY FEET;AL"$ " S, S, S, AND S"R ", , , AND ARE PREFIXES OF"n "WORDS TO BE GUESSED. " WILL GIVE YOU A PREFIX, A CLUE, AND "THE NUMBER OF LETTERS IN A WORD. "OU GUESS THE WORD. HERE ARE 10" 1600 "" 1600 ""' 1600> ""I 1600`F ""kP 1600x "" 1600 "" 1600 ""@ 00:Y12000::4010F A$QA$(Q)ACE"SORRY - THE ANSWER IS "QA$(Q):Y12000:g A$QA$(Q)1000:Y12000:r AC0: " DATA QUESTION, ANSWER  PART OF A FLOWER (5),PETAL  AN EARTHY VEGETABLE (6),POTATO"WHAT A TAIN,MOBILE,ASSEMBLE,SKILL,DELIVER,RACQUET,OBJECT# HANDLE,COMPLETE= BIORHYTHM,DEFAULTERU  *** FINISHED! ***z "ENTER DIFFICULTY FACTOR (1-5):"{90| IO} IO 1 IO 5 892 GP 95 *** DRAW VICTIM ***SO RAPID SPEECH (6)",PATTER) SMALL AND DAINTY (6),PETITEQ FARMER'S IMPLEMENT (9),PITCHFORKy A PIECE TO MEND A HOLE (5),PATCH "THROW A BALL;PUT UP A TENT (5)",PITCH  A FLOWER; ALSO A GIRL'S NAME (7),PETUNIA&"ITE,POWER,GUIDE PERMIT,EXCITE,VALLEY,CHEQUE0 MERGE,ROUTE,DAMAGE,CANOEO WEATHER,SAILING,PAVEMENTm THEATRE,CONSOLE,JOURNAL NUCLEUS,HORIZON,TRIGGER STOCK,STRUCTURE,BINARY BOUQUET,ELECTRIC,NOVELTY ENGINE,SELECT,PE % HANGMAN3 SEPTEMBER 1980+N DONATED TO CUE BY B.GODFREYr FROM TORONTO PET USERS GROUPx HANGMAN GAME WITH 14O WORDS AND 5 DIFFICULTY LEVELS WORDS CAN BE CHANGED IN DATA STATEMENTS 70 500T V1Y 350 ^ Ih V1 362%i 3706jK11000:K?k250vr"INCORRECT GUESS"sQQ11000:t" "wEE1|"";((ELE,FANATICISM,EXUBERANT,PROXIMITY=J$ DROMEDARY,PLATYPUS,DINOSAUR,DEMONIC,DELICATESSEN,INCUMBENT,DECANTERT$ CUSHION,BRETHREN,BOMBAST,DEMAGOGUERY,SERIF,AKIMBO,NOMENCLATURE^$ ABSOLUTE,APOCALYPSE,ABDOMEN SHED,HUE,ASYLUM,HORIZONTAL,HOIST,HIST I1 A B$(I)(A$,I,1) I# I1 A? "";(2I)16);""G Im "USED LETTERS: "; UL 1 ( 9IO) " "; UL " " "GUKANGAROO,ERADICATE,IODINE,IRIDESCENT,INTRIGUEK$ INTRANSIGENT,SATIATE,SOBRIETY,INFRARED,EGALITARIAN,EQUINOX,INFUSE$ INGOT,IGUANA,IMPETUOUS,IDLE,HYPOTENUSE,EQUILATERAL,HYGIENE,HYENA$ HYACINTH,HYPNOTIC,FAMISHED,HUE,ASYLUM,HORIZONTAL,HOIST,HIST WS$ "0" WS$ "6" 70 E 65. F WS ((WS$)1)20@ K WT 1 WSI P V$R U WTz Z "ENTER DIFFICULTY FACTOR (1-5)" [" 1 EASIEST":"":" 2":" " \" 3":"":" 4":" ":" 5 HARDEST" _ IOTTE,ONEROUS,OCELOT,OBLIQUE,OBELISK,NUISANCE,NOXIOUSV# NOCTURNAL,NEOLITHIC,NIHILISM,NEUTRAL,NEMESIS,MYSTIQUE,MYTHOLOGICAL# PRECOCIOUS,PREDATORY,MOSAIC,MOSQUE,METAMORPHOSIS,VERMIN,MODULUS# METAPHOR,MOCCASIN,MISANTHROPE,MERCHANDISE,MEDIEVAL,MA UU150:UU 1 U 2"". 3 10);""L 5 "";10);"INSTRUCTIONS"} 6 " " 7 "WHEN THE COMPUTER PRINTS GUESS A LETTER" 8 "TYPE IN A LETTER THAT YOU THINK IS IN" 9 "THE WORD REPRER,CULPABLE,PLAINTIFF,SOOTHE,SANCTION,FASCINATE,EXEMPLIFYNn# SCULPTURE,ETCH,ALUMNI,RENOWN,CERTIFICATE,BUOYANTmx# FEISTY,UMBILICAL,ERUDITE# PLACEBO,AMELIORATE,EMULATE,EXIGENCY,EVOKE,EXEMPLARY,EUPHORIC# QUINTESSENCE,JEOPARDY,LUSCIOUS,MAHOGA PROGRAMS MAY BE COPIED FOR EDUCATIONAL USE & MAY NOT BE" SOLD. COPYRIGHT 1981 CUE,INC "":C$(20)"";10);"" U1200: U "";10);"H"! U1200-799   PET 8K m " ݠ SAN MATEO COUNTY  " OFFICE OF EDUCATION & " COMPUTER-USING EDUCATORS SOFTSWA 1)2)16);Z$ 1000 E ( 9IO) 600( I11000:I2 250O"* YOU WIN! *" "NEW DIFFICULTY FACTOR (N/Y)?" Q$ Q$ "Y" 890 Q$ "N" 511 502 GP 95X"* YOU HANG *"Y Z "THE WORD WAS ";A$Q^"NEW DIFFICULTY FACTOR (N/Y)?"Z_ Q$o` Q$ "Y" 890a Q$ "N" 511b 607 NEXT,INTEREST,LYNX,LANGUAGE,ASYLUM,FREEZE,LIMIT,SCHOOL,RIDICULE COMPUTEESS A LETTER " V0 Z$!  Z$"" 250. I1 AC" Z$B$(I) 350V' Z$" " 350,PRINT "CORRECT GUESS "6"";(2I)16);B$(I): B$(I)" " 350< B$(I)" "@ MMMM1J MMAOGRAM"$ HINDRANCE,HIEROGLYPHICS,HEXAGON,HELIX,HARLEQUIN,HALOGEN,GYPSUMh,$ GOPHER,CLIQUE,CHORTLE,GOBLET,GNAW,PNEUMATIC,AGGRANDIZEMENT,AGNOSTIC6$ GEODESIC,GERIATRIC,GHOULISH,FRUSTRUM,FULCRUM,ISOSCELES,FABRICATE@$ FORENSIC,FOCUS,FLUENT,VOLATI$:IO(IO$):IO1IO595% a WS1 20:C$(WS):WS7 b GP 1 20O c RN ((1)20)1d d C$(RN)"0" 99 e A$C$(RN):C$(RN)"0" h "" i VI 0 j IT 1 IO k 1000 l IT n A (A$) AM0 E0:MM0:FI0 YONNAISE+# MALADROIT,MAGNOLIA,MICROCOSM,LYRICISM,LYMPH,LUDICROUS,LOZENGE,LOCUSTp# LOGARITHM,PALINDROME,LINGUISTICS,LIMERICK,LICORICE,LEMUR,LAPSE# LAMINATE,KIWI,KINETIC,SUPPLICANT,FEZ,KAZOO,CATHARSIS,INCANTATIONS# KATYDID,KHAKI,JUVENILE,ESENTED BY THE DASHES. YOU"@ : "WIN IF YOU FILL IN THE WORD BEFORE YOUR"o ; "MAN IS HANGED. YOU LOSE IF THE MAN IS" < "HANGED." = "ENTER WORD SET DESIRED (1-5)" ?"" @"DO NOT PRESS RETURN" A WS$ CNY,PHANTOM,PHARYNX,VAGARY@# WHISTLE,ZENITH,XENON,YEOMAN,WAXEN,RUDIMENT,RITUAL,RESONATE,PSYCHOSIS# PRELUDE,PORCUPINE,POMEGRANATE,PNEUMATIC,PISCES,PEWTER,PEONY# PEDAGOGUE,PALTRY,PARAMECIUM,PAPYRUS,OSMOSIS,OSCILLATE,ORIGAMI # OPULENT,OMELE0: U""";12);"A"!# U1200: U3$"";14);"N"E% U1200: UW&"";16);"G"i' U1200: U{("";18);"M") U1200: U*"";20);"A"+ U1200: U,"";22);"N"- U11000: U. U123/ 0 U12 P W" "333 MAIN STREET, REDWOOD CITY CA 94063 (415)364-5600 EX4401" A" FEELING YOU GET""DURING ";S$;"."="TYPE IN A FEELING USING FOUR WORDS."U8000: "";G$i G$"" 5020op: 5TH LINE OF POEMz"THE 5TH,AND LAST,LINE OF YOUR CINQUAIN"|"NEEDS ONE WORD THAT REFERS TO "S$" ) HANGMAN2 JULY1980A GOOD OL' HANGMANG 8K PET (WITHOUT LINES 1-25 AND LINES 60000+) BY RAYMOND TOY " " SAN MATEO COUNTY  QUAIN NEEDS TWO"! "WORDS THAT DESCRIBE ";S$;"."R "TYPE IN A DESCRIPTION USING TWO WORDS."m 8000: "";B$ B$"" 3020 : 3RD LINE OF POEM"THE 3RD LINE OF YOUR CINQUAIN NEEDS""THREE WORDS THAT DES REDWOOD CITY0"CA 94063 (415)364-5600 EX4401V"|"" PROGRAMS MAY BE COPIED FOR " EDUCATIONAL USE & MAY NOT BE" SOLD. COPYRIGHT 1981 CUE,INC"U1$'R0100(TI100(TI100)):R010039I(R11R0:R((1)N):R1:RN40U)U145b*X1U1q+C(X)R40x,X-C(U)R.X120:A$(X)"":B$(X)"":J$(X)"":X/I$"":K$"":J0:Q0:W0:Y0:Z00X1R1A$2X<L(A$ ":91 bJ1( cJ$(J)I$C dQQ2:""12Q)I$;N mX1La nA$(X)I$120w pB$(X)A$(X):YY1 rK$"#" xX }K$"#"140 WW1:"" "" W210,290,297,299,310,310,310,340,350,350,375 """36 Y$"N"500: " ":X1500:X:165M ***PICTORIALSa 10)""u 10)" " 10)" " 10)" :" 10)" " 10)"" 10)"" 10)""  """:T"":14)" "YW110^"":14)" ";;cW9Dh""QmW11Wrdw"";u|15)" : "15)" : "15)" "15)" "15)" "15)" "Z999428Z999"0X11000:X ""$X***INSTRUCTIONS-Z""B]14)"HANG MAN"og"THIS IS THE TRADITIONAL WORD GUESSING"l"GAME OF 'HANG MAN'. YOU ARE ALLOWED"q"10 INCORRECT GUESSES; ON THE 11TH"v"ERROR, YOU WILL BE HANGESS THE""APPROPRIATE ALPHABETIC KEYS. "G"DO NOT PRESS THE RETURN KEY.""WARNING THERE IS NO REPRIEVE FOR"" YOUR MISTAKES!""":1000C$:C$""735"":36"" "TYPE IN 1 WORD." 8000: "";K$* K$"" 60160DX SECOND TIMERMbTTIel TI T W 7020ov @PK0:(50003)PK1A525367PK,0:E 4TH LINE OF YOUR CINQUAIN NEEDS FOUR""WORDS THAT DESCRIBE A  & " OFFICE OF EDUCATION L " & r" COMPUTER-USING EDUCATORS " " SOFTSWAP " "333 MAIN STREET,CRIBE SOMETHING""THAT HAPPENS IN ";S$;"."K"TYPE IN A HAPPENING USING THREE WORDS."d 8000: "";D$x D$"" 4020~: 4TH LINE OF POEM"THE 4TH LINE OF YOUR CINQUAIN NEEDS FOUR""WORDS THAT DESCRIBE A '"":59468,12HA$(20),B$(20),J$(60),C(150) 14)"HANG MAN":" DO YOU WANT INSTRUCTIONS (Y/N)?"!Y$:Y$"Y"600"Y$"N"36#33$***INITIALIZE VARIABLES, SELECT WORD%:"":N&U) A"MY WORD IS: ";:X1L:" ";:X( FX1L< KA$(X)(A$,X,1)C PX^ Z"YOUR GUESSES: ";p [I$:I$""91z \JJ1 ]J199 ^J11J1 _J$(J1)I$98 `""24)"LETTER REPEATED":X1500:X a""24)" 91 ""12); X1L% B$(X)""1520 " ";9 155I B$(X);" ";P XV ` K$""m YL91 ""24)"ANOTHER WORD (Y/N)?" ""24)"YOU'VE GOT IT!"; X1500:X Y$:Y$"Y10)" " $10)"" %10)""' &10)""4 '10)""E (9)"":v )"  HANGMAN ":| + ,"":14)" " 1W11 6"":14)" "; ;W5 @""; EW6 J"" OW11"380"":X139:" ";:X2"MY WORD IS: ";""A$""k""24)"ANOTHER WORD (Y/N)?"""24)"YOU LOSE!";:X1500:XY$:Y$"Y"36Y$"N"500" ":X1500:X:45 ED. THE COMPUTER"#{"WILL INDICATE THE NUMBER OF LETTERS"S"IN THE UNKNOWN WORD BY PRINTING OUT THE"{"APPROPRIATE NUMBER OF SPACES:":" ":1000C$:C$""658"""TO ENTER YOUR GUESSES, PR":"PRESS ANY KEY TO CONTINUE":O@***INDICATE # OF WORDS ON NEXT LINEXJ215p(#***WORDS AVAILABLE2# HELP,COMPUTER,QUAY,PLAUSIBLE,FACILE,TUMULT,FLEXIBLE,TURPITUDE<# MENTALITY,AEROSOL,FLUID,TANGENTIAL,INTRODUCTORY,ANGSTROM,COROLLARYCF# GOVERNMENT,SYSTEMATIC,ADAMANT,PERSONIFICATION,ENVIRONMENT,YEASTP# AMENDMENT,CONGRATULATORY,TORSION,DWARF,JUGULAR,PERIPHERAL,BEASTZ# PARAPHERNALIA,ELONGATED,TEMPESTUOUS,GUARANTEE,DESIGNATE,QUALIFYd# PENTAMET PLETE THESE SENTENCES USING ALLER(PRESS RETURN TO CONTINUE)"= "RETURN"` "JE A LA PLAGE","VAIS" "TU A L'ECOLE","VAS" "ELLE A LA POSTE","VA" "NOUS A LA BANQUE","ALLONS" "VOUS A L'EGLISE","ALLE ( CINQUAIN JULY1980.V DIRECTS STUDENT IN CREATING POEMSc 8K PETi BY DOREAN BARNES  " ݠ SAN MATEO COUNTY " " OFFICE OF EDUCATION  d: " WRONG THE CORRECT ANSWER WAS "A$" .", i50I n:"CORRECT, TRES BIEN"R s 50 }"COMPLETE THESE SENTENCES USING ETRE (PRESS RETURN TO CONTINUE)"  "RETURN" "JE A LA PLAGE","SUIS" "TU A L'ECOLE","ES"  364-5600 EX4401Z" " PROGRAMS MAY BE COPIED FOR EDUCATIONAL USE & MAY NOT BE" SOLD. COPYRIGHT 1981 CUE,INC #8*":"RUN60000"o158,5:X623627:X,13::$AGE(ETRE)","SUIS"b^::"HOPE YOU ENJOYED THE QUIZ! IF YOU WISHh"TO TRY AGAIN, TYPE THE WORD 'RUN' AND PRESS THE RETURN KEY....."7 * SINALOA JR. HIGH SCHOOL *'e""f "6)" "_+"C I N Q U A I N "," "-" "." "2W100:7000 7 " WHAT'S A LA PLAGE(ETRE)","ETES"0@"JE A LA PLAGE(ETRE)","SUIS"b^::"HOPE YOU ENJOYED THE QUIZ! IF YOU WISHh"TO TRY AGAIN, TYPE THE WORD 'RUN' AND PRESS THE RETURN KEY....."7 * SINALOA JR. HIGH SCHOOL *'e""fNQUAIN:" n(20(S$)2))S$:3 x(20(B$)2))B$ :O (20(D$)2))D$ :m (20(G$)2))G$ : (20(K$)2))K$ : "WOULD YOU LIKE TO TRY ANOTHER CINQUAIN?" V$:V$""162 V$"Y" 59  YOU THINK YOU KNOW THESE VERBS! NOW TRY THIS.(PRESS RETURN)"8 "RETURN"a "JE A LA PLAGE(ETRE)","SUIS""JE A LA PLAGE(ALLER)","VAIS""TU A L'ECOLE(ALLER)", "VAS""IL A L'ECOLE(ETRE)","EST""ILS 0# "I'M GOING TO HELP YOU WRITE A CINQUAIN."4 W250: 7000: S  - CHOOSING A TITLE "WHAT'S YOUR FAVORITE SEASON?" " " " SUMMER" " AUTUMN" " Z" "ELLES A L'USINE","VONT"D "RAYMOND ET LEON A PARIS","VONT"v "MARIE ET JACQUELINE A NOVATO","VONT" "NOW LET'S SEE HOW YOU DO USING ''AVOIR'' (PRESS RETURN)" "RETURN" "J' DEUX SOEURS","AI" "TU & p" COMPUTER-USING EDUCATORS SOFTSWAP " "333 MAIN STREET, REDWOOD CITY CA 94063 (415)"ELLE A LA POSTE","EST": "NOUS A LA BANQUE","SOMMES"_ "VOUS A L'EGLISE","ETES" "ELLES A L'USINE","SONT" "RAYMOND ET LEON A PARIS","SONT" " MARIE ET JACQUELINE A NOVATO","SONT". "NOW COM" "J" "q!" "#"S E A S O N A L "%" "'" "(" 5"";S$;'W10: 70009"";S$IW10: 7000O"THAT'S THE FIRST LINE OF YOUR CINQUAIN."W300: 7000W10: 7000   : 2ND LINE OF POEM "THE 2ND LINE OF YOUR CIN YOUR NAME";N$ 8 N$"" 55: : 1000: INTRODUCING GAMEZ ; 2000: -CHOOSING A TITLEy < 3000: 2ND LINE OF POEM F 4000: 3RD LINE OF POEM P 5000: 4TH LINE OF POEM Z 6000: 5TH LINE OF POEM d""N$", HERE IS YOUR CI"ENTER NAME OF PROGRAM":"";N$g(N$)1763337@h"THE NAME IS TOO LONG.":63334pi826,(N$):X1(N$):826X,((N$,X,1)):lQ$(34):C$(147):H$(19):D$(17)m"SAVE"Q$"0:"N$ Q$",8":"GOTO63342":63343n"/0:MENU "GOOD BYE ";N$   INTRODUCING GAME5  "HI, ";N$ "."; c "DO YOU KNOW WHAT A CINQUAIN IS?"w A$:A$""1013}   A$"Y" 1040 "A CINQUAIN (SIN KWANE') IS A POEM THAT"  "HAS ONLY 5 LINES." W250: 700 A L'ECOLE(ETRE)","SONT"/""ILS A L'ECOLE(ALLER)","VONT"V'"IL A L'ECOLE(ALLER)","VA","NOUS A L'ECOLE(ALLER)","ALLONS"1"NOUS A L'ECOLE(ETRE)","SOMMES"6"VOUS A LA PLAGE(ALLER)","ALLEZ";"VOUS  WINTER"!  " SPRING"4 ""; S$O  S$"SUMMER" 2041j  S$"AUTUMN" 2041  S$"WINTER" 2041  S$"SPRING" 2041 "ENTER ONLY ONE OF THE WORDS ABOVE.":W150:7000: 2010  G1 TROIS TANTES","AS". "ELLE QUATRE CAHIERS","A"R "NOUS LE LIVRE","AVONS"v "IL QUATRE CAHIERS","A" "VOUS LE PAPIER","AVEZ" "ELLES LE CAMION","ONT" "ILS LE VELO","ONT")"OK! SO  " 290( " THEY LOST ";B$;" ";N$(Y);". "2 290^ " WE BOUGHT ";B$;" ";N$(Y);". "v " (B$,1)"A" 350 , ANSWER ROUTINE 6 " A OR AN";B$ @ B$"" (B$)0 "": 310 "", ""^ Z 140,150,160,170,180,190,200,210,220,230 " I SAW ";B$;" ";N$(Y);". " 290 " IT WAS ";B$;" ";N$(Y);". " 290 " SHE CAUGHT ";B$;" ";N$(Y);". " + FRENCH SENTENCES JULY 19801p FRENCH I DRILL ON VERBS ETRE, ALLER AND AVOIR.v 8K PET COMPUTER PROGRAMMING STUDENTS '77 * SINALOA JR. HIGH SCHOOL * 2045 VINEYARD RD,NOVATO,CA.9494 ";A$ > A$"" "": 60' AA$(A$,10)- Ft K "I WILL PRINT 10 SENTENCES. EACH SENTENCEWILL HAVE A BLANK "; L "LIKE THIS ." P "READ THE SENTENCE AND DECIDE IF" Q"A OR AN BELONGS IN THE BLANK." U "(Z$,1)"N" "": 620 535 10 NOUNS FOR DATA^ ELEPHANT,MOUSE,COMPUTER,HOUSE,UMBRELLA,ANTLER,ICICLE,OTTER,CARl BICYCLEr$INSTRUCTIONS AFTER SECOND MISSb "";A$;", YOU SEEM TO HAVE FORGOTTEN!"l "YOU USE A BEFORUE,INC /u USE OF A OR AN AS ARTICLE BEFORE A NOUN, ERRORS REPEATED AT END PROGRAM GIVES STUDENT SENTENCES. STUDENT MUST ENTER A OR AN BEFORE A NOUN" I0 9: N$(I): : READS NOUNS# I15000:+ 350YN(J):JJ1M>"FOR THE NEXT PROBLEM, PLEASE PRESS ANY KEY, GENTLY!"b? Z$:Z$"" 575lD 120X REPEAT INSTRUCTIONS AFTER SECOND MISSb "";A$;", YOU SEEM TO HAVE FORGOTTEN!"l "YOU USE A BEFORTY U " OFFICE OF EDUCATION & " COMPUTER-USING EDUCATORS SOFTSWAP " ?"333 "WHAT A GENIUS YOU ARE, "; 495- A$;", YOU ARE A WHIZ!"7 499\ "YOU'RE PRETTY GOOD AT THIS ";f 495o A$yTT1 "YOUR SCORE IS";S;"OUT OF";T" ";"" ((S1000.5)T)10;" PERCENT" K1 600A0 "333 MAIN STREET, REDWOOD CITY CA 94063 (415)364-5600 EX4401" '" PROGRAMS MAY BE COPIED F J "": 127T COMPARE ANSWER&^C$(N$(Y),1)\h C$"A" C$"E" C$"I" C$"O" C$"U" 390xr B$"A" SS1: 400| "OOPS! ":AA1 I11500: A1 387N(J)Y:SS1:KK1:JJ1: 125SS1: 499 290% " HE FOUND ";B$;" ";N$(Y);". "/ 290Z " THERE IS ";B$;" ";N$(Y);". "c 290 " HERE IS ";B$;" ";N$(Y);". " 290 " HE HAD ";B$;" ";N$(Y);". " 290 " SHE HAD "B$;" ";N$(Y);".  7 S " ݠ SAN MATEO COUNTY  " OFFICE OF EDUCATION & " COMPUTER-USING EDUCATORS SOFTSWAP =" A GOES BEFORE A CONSONANT: A TREE"G V "AN GOES BEFORE A VOWEL:";Z X " AN OCEAN"o Y24)"AN EAR " Z "DO YOU UNDERSTAND (Y OR N ) !";Z$ _ (Z$,1)"Y" 70 d PRINTS SENTENCES nYY1 xZ(9(1)1) }B$RE EACH SET OF QUESTIONS THERE IS A NEW SET OF RULES."6%:?(TTIS+ TIT250 43]0 ""c2i<t>NN1C N40 350P Q$RQ$U A$W "";R$X (R$,2)"" "": 50_ (R$,(A$)) A$ 110$ "": BORDER & TITLE$Y1F% " "w& " ";33);"֑֑֑֑"'" "( 13);"USING A OR AN"7"WHAT IS YOUR NAME";< "E A WORD STARTING WITH "#v "A CONSONANT: A HOUSE, A CAR."T "YOU USE AN BEFORE A WORD STARTING WITH" "A VOWEL, THAT IS, A,E,I,O, OR U." "EXAMPLES: AN ANT, AN ORANGE."K0 "DO YOU READ ME (Y/N) !";Z$  MAIN STREET, REDWOOD CITY CA 94063 (415)364-5600 EX4401" " PROGRAMS MAY BE COPIED FOR EDUCATIONAL USE & MAY NOT BE)" SOLD. COPYRIGHT 1981 C T10 550@! "FOR THE NEXT BRAIN-BOUNCING PROBLEM, PRESS ANY KEY (GENTLY)."X" Z$: Z$"" 546b# 100r& J0 560'T0:K0:S0( "THANK YOU, ";A$;". PLEASE GET THE ") "NEXT STUDENT, AND GO BACK TO YOUR SEAT."*OR EDUCATIONAL USE & MAY NOT BEu" SOLD. COPYRIGHT 1981 CUE,INC  *************FRENCH************** R$(10)""::" THIS IS A FRENCH QUIZ PROGRAM."::.#"BEFO B$"AN" SS1: 400 380 SCORE0 A1 A0: 499BZ(4(1)1)y "" Z 440,450,460,470,480 " WOW!"; 495 "**************SUPER!********"; 495 (A93)2450%S1.0072L.425H.725+9A11530XB(181.7S)A126666Sa600pA15560B(11.38.4S)A123030S&6000A18590:B(11.311.3S)A1230390SD600NB(2.3.4S)A986103SX 6.7,16.9,81,7,6,.4(110,0,13,0,100,15,8,0,364,11,1,76,124,7,10,1_118,4,0,15,80,1,.4,20.2,3.5,.07,.07,.8,157,21,7,0170,22,13,0,64,.1,0,17,269,5,17,27,55,.1,.06,14.22.5,.2,.03,.5,229,26,11,5,221,8,1.5,45,101,.2,11,.01&65,.2,6,2,16 1500MM1954,.1,.1,14,43,1.8,4,.1,88,1.2,.2,23,250,12,6,38l205,12,1,38,33,3,.3,5.3,185,26,8,0,145,23,5,064,2,.3,14,123,2,5.6,15,74,5,5,1.2,2,.4,.1,.0162,2,1,12,56,2,1,11,44,5,.3,8.2,100,.5,11,.1 342,5,9,60,108 2,.7,2,11,.1,.7,1,296,6,10,52,429,4,.8,1147b143,4,.5,39,162,3,.15,36,178,4.5,1.5,39nl260,30,14,0,235,9,22,0,60,2.7,2,8,74,1.8,1.8,14.6v65,3.3,1.4,11.5,103,9,5,7,154,7.5,6,16.546,6,.1,8,74,1.6,1,16.6,25,0,0,6.5,0,0,0,0,20,1,.3,4 27 RUN (Y/N)";T$ FT$"Y"160PT$"N"1380%Z1340+d9nX11410Px"CALORIES ";_X21430v"PROTEIN GM ";X31450"LIPID GM ";X41470"CARBOHYDRATE";Z1E30"ITEM NOT FOUND"d FIFO: HUNTINGTON>n FIT TO PET BY ANDY GAMBLE FEB80Up COLUMBIA COLLEGEur 1619 W10 AVE VANCOUVER BCx(147);" F.I.F.O."::"THIS PROGRAM DEMONSTRATES THE FIRST-IN-""FIRST-OUT (FIFO) METHOD OF INVENTORY"!X(2624E5(P(1)M(1))) LX01180 VG `"THIS DIET WOULD RESULT IN A WEIGHT"U jX01160d t"LOSS ";n ~1170} "GAIN "; "OF"((X(X).5)100).454"KILOGRAMS/DAY.""  "MEAL BREAKDOWN (Y/N)";E$ E$"Y"1220 1,"TOTAL" "X1S:Q(X)02805Q(X)W0370PQ(X),P(X),(Q(X)P(X))vT1T1(Q(X)P(X)):WWQ(X):Q(X)0:Q(X1)0400"::" REMAINING INVENTORY":T0,:"NUMBER","PRICE","TOTAL"6@X1S:Q(X)0350J(4)(M(1).754.05P(2))4.03! fM(4)08900 pM(4).001R z(147)" REPORT"::z 12)"PROVIDED RECOMMENDED STATE" 12)" " X14 1390 12)(P(X).5)23)(M(X).5)34); (1P(X)M(X)T";ZZ$ZZ$"Y"190B35,11.25,60,12,100,12.5,50,13,80,13.5,40,14.25H)vT1T1(Q(X)P(X)):WWQ(X):Q(X)0:Q(X1)0400"::" REMAINING INVENTORY":T0,:"NUMBER","PRICE","TOTAL"6@X1S:Q(X)0350JBBS1$bM(1)1.06(BL(.88(A9.5)))2lA18670LvM(2)(.056A1.9)La(A10)S0680|M(2)(.064A2.05)L680M(2)B.037M(3)M(1).258.93(147);"TYPICAL DAILY INTAKE: USE PLAN SHEET." :"TYPE6,8.6,9.5,11.9,87,8.5,.2,12.480253,11,10.7,29,82,3,1.5,15,49,1,.2,12,108,2.1,.5,27h:56,2,2,8,33,.2,.05,9,873,39,73,28,87,4,7,3D131,9,.5,23.6,327,9,17,35,410,4,18,60,58,.2,.05,14N236,12,8,28,195,22,13,0,54,2,1,10,98,2.4,.1,22.5 X14,.,0,.1,27,385,1.1,.4,8.3,20,.6,.1,4.5J44,1.8,.4,12,100,6,8,1,200,28,8,6,105,2.6,10.5,.6,96,7,8,1396,56.6,17.2,0,146,2,9,16,0,0,0,0,91,0,0,23,99,1,5,14132,4,2,32,129,2.7,.1,28.3,24.6,.5,.6,4.6,17,.5,.5,397,.7,10,.9,36,2,.3,8,136,2.1,|9,41,12,0,67,10,2.5,0,219,28,11,0,.8,0,0,.3B28,.5,.2,6.9,246,17.1,6.8,33.7,22,3,.1,3,123,8,4,13P-1,0,0,0V28,87,4,7,3D131,9,.5,23.6,327,9,17,35,410,4,18,60,58,.2,.05,14N236,12,8,28,195,22,13,0,54,2,1,10,98,2.4,.1,22.5 X14,.F,Q (F)(Q)01670'(F)(Q)(F)F214907FZ11610FZF1570OZ1U`"XZFy,F(1),F(2),F(3),F(4)6F(1)01480@XJZF1TX14^N(X,M1)N(X,M1)F(X)QhP(X)P(X)F(X)QrX|"EVALUATION THAT IS USED IN MANY ":"BUSINESSES.":::]" PRESS ANY KEY TO START"rZZ$:ZZ$""180(147);T10:T0X16:Q(X),P(X)::SX1290:"QUANTITY REMOVED";W::"SHIPPED OUT:":"NUMBER","PRICE"330 (147);11)"BREAKFAST LUNCH SUPPER OTHER"H 11)"ŠŠŠ"S X14] 1390l 12);:M1 (N(X,M).5)21); M2:(N(X,M).5)27); M3:(N(X,M).5)34); (N(X,4).5)  (X 2 <"ANOTHER Q(X),P(X),(Q(X)P(X))%TTT(Q(X)P(X))+^Nh:" TOTAL VALUE ="T::prW,P(X),WP(X):T1T1(WP(X))v|" SHIPPED VALUE ="T1:T0:Q(X)Q(X)W:210:"OUT OF INVENTORY"::"SHIPPED VALUE ="T1:"ANOTHER RUN (Y/N)).1980 "GOOD " 1070/ (1P(X)M(X)).251020< X2960J "FAIR "T 1070h M(X)P(X)1060u X2960 "EXCESS" 1070 $"DEFECT" .X 8A18S3:"THE FOLLOWING RESULT MAY BE UNREALISTIC FOR YOUR AGE: B A & AN NOV 1979#6 GLENN FISHERW 1517 HOLLY ST BERKELEY,CA]~ STUDENT CHOOSES A OR AN TO COMPLETE RANDOM SENTENCES PET 8K  " ݠ SAN MATEO COUN 0,0 WHEN FINISHED WITH A MEAL." - "BREAKFAST"> ""S "FOOD,QUANTITY"] 1500j "LUNCH"w "" 1500 "SUPPER" *"" 41500 >"SNACKS AND OTHER FOODS" H"" R1500 \M  BONDS 3.0 80/05/16# 9 ROBERT E. DRAKE? T 24 BURWELL ST.s BRANTFORD, ONT., N3T 4T6y  (519)-753-3776  "BONDS....A TEACHER'S UTILITY...R.E.DRAKE 144,49:"" "INSTRUCTIONS (Y/N)? 2d"BIG BINARY "_n" ..... R.E.DRAKE 80.02.14sx 14 MARCH 1980} RED1,0,0"DISPLAY BLANKS Y/N? ";:1,A$1(13)CH32:A$"Y"CH87"CLEAR DISPLAY WITH '999'"3:J.5SCSC33:II4:250"JSCSC1+T300_n" ..... R.E.DRAKE 80.02.14sx 14 MARCH 1980} RED1,0,0"DISPLAY BLANKS Y/N? ";:1,A$1(13)CH32:A$"Y"CH87"CLEAR DISPLAY WITH '999'" $d-----------------------------@n EASY HEX CONVERTERcx-----------------------------i  R.E.DRAKE 80/06/26 ----------------------------- H$ IS A STRING STORING THE HEX DIGITS A IS THE VA S DEFERRMENT GIVES THE USUAL( E"ONE PERIOD OFFSET.V F" IT SHOULD BE OBVIOUS THAT THIS PROG- G"RAMME WILL HANDLE ANY PRESENT VALUE H"QUESTION, ALONG WITH BONDS. I"" J"PLEASE FEEL FREE TO PASS THIS ALONG TO K"OTHERS, EN 0 AND 255 INTO HEXADECIMALF"SHOWING THE HI AND LOW ORDER NYBBLES.`H$"0123456789ABCDEF""YOUR NUMBER 0-255 ";A A0 A255 (A)A 240 ----------------------------- DISASSEMBLE THE GIVEN VALUE" ! 9"DEFERRMENT OR THE INTEREST RATE PERL :"PERIOD. THIS ROUTINE ALLOWS YOU TOz ;"ENTER THE STUDENT CALULATED VALUES FOR <"ANY AND ALL OF THESE AND CALCULATE A ="CORRECT PRESENT VALUE. BY CONTROLLING >"THE NUMBER OF PAYMENTS, ","LONYBBLE","HEX"%""A,B$,C$,D$=:I1 30:"-";:CI S 230Y _e  HERE'S THE EFFICIENT VERSION  VARIABLES ARE :A =INPUT VALUE D = INTERMEDIATE CALCULATION D$ = HEX DIGITS & HEX ": 16&"RUN":144,46:J'"";|("PRESENT VALUE INSTRUCTIONS... R.E.DRAKE ") C$* C$"/" 48+ I1 (C$):(C$,I,1);,J135:-.(13);/410I1 10:A$:1A$ &dDIET--A DIETARY EXAM SIMULATION7n HUNTINGTONax FIT TO PET FEB 80 BY GAMBLE & EMONDx COLUMBIA COLLEGE 1619 W10 AVE VANCOUVER BCF(5),M(5),N(5,5),P(5)(147)6)"DIETARY EXAMINATION PROGRAM"Z1X14  N"; 3,0,0:3,A$:3=A$"N" A$"Y" :"":12OA$"Y" 39Z(13)e1,0,0}"COUPON VALUE? $";1,V$(13)"RATE(DECIMAL)? ";1,R$(13)"# PDS TO FIRST COUPON? 1";1,N$(13)  "END WITH A NEGATIVE NUMBER.,I11200:=SC32980:I1F""`Y07:32940Y,114:|" ""NUMBER";NN999220N0 "RUN":"I)N:J128,NJ NNJ:SC,81:3206SC,CH@JJ2EARS OLD":T:"SEX (M/F)";#^S$7hS2:S$"F"S1GrS$"M"S0[|(S1)S0340:"APPROXIMATE WEIGHT IN KILOGRAMS";LL0390:"HEIGHT IN CENTIMETRES";HH0420:"ACTIVITY FROM 1 TO 5";A9  LUE INPUT* C,C$ ARE THE HIGH ORDER BYTEK B,B$ ARE THE LO ORDER BYTEm D$ IS THE ASSEMBLED HEX NO.-----------------------------"HEX DEMO...R.E. DRAKE"THIS LITTLE PROGRAM CONVERTS A NUMBER"BETWEy BUT LEAVE THE CREDITS INTACT.# L"9 M"ROBERT E.DRAKE\ N"PRESS ANY KEY TO CONTINUE."e O"/"ES, CALCULATE EACH COUPON B"SEQUENCE SEPARATELY AND THEN COMBINE. C"NOTE THAT HITTING 'RETURN' ON THE NUMBER D"OF PERIOD -----------------------------, ,6B(A16)9@CAB16LJB$(H$,B1,1)_TC$(H$,C1,1)l^D$B$C$rh r-----------------------------| PRINT OUT THE RESULTS----------------------------- ::" #","HINYBBLE A SINGLE SUM- ?"PRESENT VALUE CAN BE CALCULATED. FORY @"THE CASE OF A BOND WITH TWO OR THREE A"COUPON VALUES, CALCULATE EACH COUPON B"SEQUENCE SEPARATELY AND THEN COMBINE. C"NOTE THAT HITTING 'RETURN' ON THE NUMBER D"OF PERIODANSWER &  0 " :H$"0123456789ABCDEF"= D"YOUR NUMBER 0-255";Ae N A0 A255 (A)A 240 XD(A16):D$(H$,D1,1) bDAD16 :D$D$(H$,D1,1) l"ORIGINAL="A,"HEX ="D$ v"" 500::" #","HINYBBLE :A$""48 2"":3""D4" THIS ROUTINE WAS DESIGNED FROM A NEEDn5"TO CORRECT STUDENT WORK ON PRESENT6"VALUE CALCULATIONS WITH RESPECT TO BONDS7"THE PROBLEM WAS THAT A STUDENT WOULD8"MISCALCULATE THE COUPON VALUE OR THE P(X)0M14N(X,M)0%M,X2;M0l:"PLEASE INPUT THE FOLLOWING INFORMATION:"r""SUBJECT'S AGE IN YEARS";,A6(A45.5)44.5 290@A12340J:"DIET MAY BE INACCURATE FOR SUBJECTS LESS THAN 12 Y "#PERIODS? ";1,P$1  DV(V$):R(R$):P(P$):N(N$)y PV(V((1R)N))(1(1((1R)P)))(1(1(1R)))!:"PRESENT VALUE IS $";" ((PV.005)100)100#"MORE?"$A$:A$"Y"A$"N" 36%A$"Y"" & (C$"L"59468,14:10010&)C$: "INCORRECT COMMAND": '*NF((CO$,1))='*47NF58NFN((CO$,2)):CO$(CO$,3,255):R1C'*U'* POSITIONINGv'+"";:X1L:"";::T);:'. P SEQUENCES'.11010'.CM$"R"12100'.CM$"1"1220 "y" ";:CO$2'y" ":""CO$L2@WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW2AWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW2BWWWWWWWWWWWWWWWWWWWWWWWWW /JCM$"B"IB$;/JCM$"C"IC$;/J10010/ NG20010,20020,20030,20040,20050*0*NG$" O/ \   ̝"[0+NAG$"O    ̝"0,NBG$"\O/ ̤ "0-NEG$"    WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW 4HWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWD4IWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW|4JWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW4(WWWWWWWWWWWWWWWWWWWWWWWWWWWWW 15000::J$J$(0):18020-?""O$(X):Y15000::J$J$(X):18020.BFQ1:A$"":167,0:X0$.BX10XX1:I$:16920K."BI$:A$""I$(13)I$"*"16960z.,BI$"*"X1(A$):" ";::" ";:16910.6BI$;:A$A$I$:16930.@B167,1:.rBX1 WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW6WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW=6WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWu6WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW6qWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW N((CO$,5,1)):S((CO$,6,1))+7D$"U"D$"":LL5N,7D$"L"D$"":TT5N ,7D$"D"D$"":LL5N;,7D$"R"D$"":TT5NJ,7EG$EG$D$U,714231o,:M$((CM$))CA$:10010,CM$" WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW7WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW68WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWo8WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW84WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW S)50:Y)~1:Y$"Y"CA$:)110010)1CA$;:TT(CA$):10010*2 ERASE PROCEDURES!*2CM$"E"131004*2CM$"L"13200G*2CM$"C"13300Z*2CM$"R"13400k*,3"";:10010*3X32768L4032807T40:X,32::10010*3"";:EA$"":X0TL: WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW9WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW0:WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWh:WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW:9WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW 0'/CM$"D"12400'/CM$"V"12500'/CM$"2"12300(&/CM$"B"12600(0/CM$"C"127009(C/"MODIFIER INCORRECT":10010I(D/CA$:10010e(/"";:LL1:CA$:10010( 0"";:LL2:CA$:10010(p0X1(CA$):(CA$,X,1)"";::10010(0X1 WWWWWWWWWWWWWWWWWWWWWWWWWW2CWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW,3DWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWd3EWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW3FWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW3G  "03N1410004NG$"O":AG$"O":BG$" O ":EG$"  "1=N1410011\NGG5:G20070,20080,20090,20100,20110]1NG11G:G20130,20140,20150,20160,201701YR(CM$):R23100,23200,233001CM$"Q"16300,>L23:T0:11010:T)"TO CONTINUE PRESS THE BAR"->X0!->X10XX1:I$:161066->I$:I$""16110N->CO$"2324EL":10020`-?11010:16910t-?L23:T0:11010-?:X911:A$M$(X)16350-?-?""O$(0):X WWWWWWWWWWWWWWWWWW8hWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW9WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWP9WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW9QWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW9WWWWWWW EA$EA$" ":*3X124:L)EA$::10010+X4L2((CA$,1,2)):T2((CA$,3,2))&+b4EA$"":X0T2T:EA$EA$" "::I+l4"";:X1L:"";::XLL21^+v4T)EA$::10010l+6GRAPHICSx+7T);:+7T)G$:Y1(10S)50:::10010+7D$(CO$,4,1):WWWWWWWWWWWWWWW8hWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW9WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWP9WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW9QWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW9WWWWWWW (CA$):(CA$,X,1)"";::10010)81N((CA$,1,1)):S((CA$,2,1)):Y$(CA$,3,1))B1CA$(CA$,4,255)Y)L1EA$"":X1(CA$):EA$EA$""::X1(CA$):EA$EA$" "y)V1:X1(CA$):EA$EA$"":)`1X1N:CA$;)j1Y1(9S)100:Y)t1EA$;:Y1(10 RETURN)" P2(IF YOU MAKE A MISTAKE HIT THE * KEY)3M1PARL,O1TRES BIEN (VERY GOOD),J1Go M2PARLE,O2NOT QUITE. DROP BOTH LETTERS ON THE END.,J2FM0,O0LET'S SEE IT AGAIN,J0E,1118RQ***G,EE,0800PRWHAT IS THE STEM OF THE VERB TRAVAILLER? $'X$' DETERMINE POSITION$'CO$$'CO$"X":10010%'CO$"S"200: %$'R0:10910-%.'R1LN<%8'R0:10910I%B'R1TNy%L'C$(CO$,1):CM$(CO$,2,1):CA$(CO$,3,255)%t'FILTER%~'C$"P"12010%'C$"E"13010%'C$"G""JACQ "1900PR(TYPE YOUR ANSWER FOLLOWED BY RETURN)"92100PR(IF YOU MAKE A MISTAKE HIT THE * KEY)aM1PARL,O1TRES BIEN (VERY GOOD),J1GM2PARLER,O2YOU DIDN'T DROP THE ENDING.,J2FM3PARLE,O3NOT QUITE. DROP THE WHOLE ENDING.,J3FM4ER,O4NO. RR,EE,0400PRWHAT YOU JUST SAW WERE MANY DIFFERENT,D1'#P2SUBJECTS PLACED IN FRONT OF THE VERB,D1Z#P2AND DIFFERENT ENDINGS ADDED TO THE VERB.,D1|#P2WE'LL LEARN THEM LATER.,RR#**J,EE,1200PRFOR NOW DID YOU NOTICE THAT THE#"P2STEM PAR . THE STEM (THE FIRST PART),D1)P22. AND THE ENDING (THE LAST PART),RR,EEe0500PRTHE STEM,0504PB58YSTEM,D1,0509PR(THE FIRST PART)0510PB18YTHE,0514PB18YFIRST0520PB18YPART,0700PRIS SIMPLY THE FRENCH VERB"P2WITHOUT ITS ER",RR D1 1009ER1010,1016ER1016,1023ER1024,1031ER1031,D12!1007PRELLE,D1,1016PRE,D1,1022PRSHE,D1,1031PRS,D1f!1007ER1010,1016ER1016,1022ER1024,1031ER1031,D1!1007PRNOUS,D1,1016PRONS,D1,1023PRWE,D1!1007ER1010,1016ER1018,1023ER1024,D1!100 GO ON",J3E0M0,O0LET'S LOOK AT IT AGAIN,J0D,1219RQ?5**D,EE,0600PRWHAT LETTER IS MISSING^:"P2ON THE END OF SPEAK"?P2IN THE FOLLOWING EXAMPLE?,D1D1415PRHE SPEAK,"2000PRTYPE YOUR ANSWER FOLLOWED BY RETURN"FP2(IF YOU MAKE A MIS RTHAT DOESN'T CHANGE,0805PB58YDOESN'T CHANGE,D1"1000PRNO MATTER WHAT THE SUBJECT IScRR,EE,0200PRFOR EXAMPLE,P2THE STEM OF THE VERB PARLER IS,D11012PRPARL,D1,1026PRSPEAK,RR0202EL,0404EL,0200PRNOW KEEP YOUR EYES ON THESE LETTERS YSHE,D1"2009PRIT,",1113ER1115,D1,1114PB28YIT,D1Z"2013PRWHO,",1114ER1115,D1,1113PB28YWHO,D1,2018PROR A NAME.~1113ER1115,D1,1112PB28YPAUL,D11400ER2039,"1500PRBUT YOU KNOW THAT ALREADY, DON'T YOU?"!RR,EE,"0600PRWHAT ENDING DO YOU ,"P2OF THE VERB JOUER?"w"2000PRTYPE YOUR ANSWER FOLLOWED BY RETURN"GxP2(IF YOU MAKE A MISTAKE HIT THE * KEY)bzM1JOU,O1WAY TO GO,J1I|M2JO,O2NOT QUITE. LET'S LOOK AGAIN,J2H~M3ER,"O3THAT'S THE ENDING,NOT THE STEM",J3HO0LET'S /"2000PRTYPE YOUR ANSWER FOLLOWED BY RETURN"21P2(IF YOU MAKE A MISTAKE HIT THE * KEY)R4M1TRAVAILL,O1EXCELLENT,J1I>M2TRAVAIL,O2YOU DROPPED TOO MANY LETTERS,J2HHM3TRAVAILLE,O3REMEMBER TO DROP THE WHOLE ENDING,J3HRM0,O0LET'S SE UES B",8%'C$"M"15010%'C$"R"16010%'C$"J"15610 &'C$"C"23010&'C$"O"15510<&'C$"S"X11000::199S&'C$"*"FQ118010e&'C$"*"10010w&'C$"D"17010&'C$"I"19010&'C$"B"19110&(C$"U"59468,12:10010 THAT'S THE ENDING.,J4FM0,O0LET'S SEE IT AGAIN.,J0F,1112RQB**F,EE,0600PRTHE STEM OF A FRENCH VERBP2IS SIMPLY THE VERB WITHOUT ITS,"P2ER ON THE END",RREE,0600PRWHAT IS THE STEM OF PARLER?"1900PR(TYPE YOUR ANSWER FOLLOWED BY L DID NOT CHANGE?",D1 $$"2000PRTYPE YES OR NO FOLLOWED BY RETURN/$)M1YES,O1GOOD. LET'S GO ON.,J1KW$.M2NO,O2WELL LET'S SEE IT AGAIN,J2I$3M0,O0PLEASE BE CAREFUL. TYPE ONLY YES OR NO.,J0J,1616RQ$8**K,EE,1000PRONE MOMENT PLEASE...,G "1701PRFOR EXAMPLE:",D1,1518PRPARLER,1522PB57NER,1530PRTO SPEAK^1530PB27NTO,1719PRJOUER,1722PB57NER,1730PRTO PLAY,1730PB27NTO1914PRTRAVAILLER,1922PB57NER,1930PRTO WORK,1930PB27NTO,RREE,0600PRWHAT IS THE STEM,P2FOR THE VERB PARLER? 7PRVOUS,D1,1016PREZ,D1,1022PRYOU,D1"1007ER1010,1016ER1017,1022ER1024,D1="1008PRILS,D1,1016PRENT,D1,1021PRTHEY,D1f"1008ER1010,1016ER1018,1021ER1024,D1"1006PRELLES,D1,1016PRENT,D1,1021PRTHEY,D1"1006ER1010,1016ER1018,1021ER1024,D1" TAKE HIT THE * KEY)GM1S,"O1GOOD, LET'S GO ON",J1E6IM0,O0LET'S REVIEW,J0B,1423RQj**E,EE,1000PRFRENCH VERBS IN THE PRESENT TENSEP2ARE ALWAYS ONE WORD,D1,1211PB78YONE,D1"1400PRBUT THIS WORD IS MADE UP OF TWO PARTS:",D11705PR1 P2AND YOU'LL SEE THAT THEY DON'T CHANGE,RR 1009PRJE,D1,1016PRE,D1,1024PRI,D1? 1009ER1010,1016ER1016,1024ER1024l D1,1009PRTU,D1,1016PRES,D1,1022PRYOU,D1 1009ER1010,1016ER1017,1022ER1024,D1 1009PRIL,D1,1016PRE,D1,1023PRHE,D1,1031PRS, PUT ON SPEAK"&"P2WHEN THE SUBJECT IS HE?"G)"2000PRTYPE YOUR ANSWER FOLLOWED BY RETURN"t*P2(IF YOU MAKE A MISTAKE HIT THE * KEY)+M1S,"O1GOOD, LET'S GO ON",J1E-M2SPEAKS,"O2GOOD, LET'S GO ON",J2E.M3HE SPEAKS,"O3GOOD, LET'S  REVIEW ONCE AGAIN,J0H,1215RQ)**I,EE,0800PRWHAT IS THE STEM OF A FRENCH VERB,P1GOOD FOR?MD1,P2I'M GLAD YOU ASKED.,D1,RR0808EL,0909EL,1111EL,0400PRTHE STEM OF A FRENCH VERB,D1P2IS THE ONLY PART OF THE VERB,0607PB58YONLY,D10800P E IT AGAIN,J0H,1215RQ2\**H,EE,0800PRTHE STEM OF A FRENCH VERB,P2IS SIMPLY THE VERB WITHOUT ITSLf"P2ER ON THE END."kRR,"1510PRFOR EXAMPLE:",D1,1718PRPARLER,D1,1722PB58NER,1919PRJOUER,D1p1922PB58NERuRR,EE,0800PRNOW WHAT IS THE STEM ")100:"S"THE PROGRAM HAS BEEN LOADED WITHz"TWO WORDS. A STUDY OF THE WAY"THE WORDS ARE STORED IN DATA"STATEMENTS SHOULD MAKE IT CLEAR"HOW ALTERNATE WORDS CAN BE"BUILT I  "":"4 100:"X"THIS IS A TUTORIAL PROGRAM}"TO TEACH FRENCH 'ER' VERBS.("2"THERE ARE TWO PARTS. IF THE3"PROGRAMS ARE PLACED ON DISK,4"THE SECOND PART WILL LOAD AT5"   EE,L8"0604PRHIS PROGRAM HAS BEEN DEVELOPED"b"0806PRAT ALMORAL R. EC. CHOOL,"("1009PRORTH ANCOUVER, ..,2"1219PRBY<"1413PRACQUES ALECOT"F"1601PRWITH THE ASSISTANCE OF AROLD ROCHMANN"PD9,EE,UEE,06 IS YOUR NAME?),D5,1506PRJE M'APPELLE ..........f2323EL,2100PR(TYPE YOUR NAME AND HIT THE RETURN KEY)P2(IF YOU MAKE A MISTAKE HIT THE * KEY),1519IAEE,"0911PCBONJOUR ",BA,1203PRJE SUIS TON PROFESSEUR DE FRANCAIS."D1,2100PR(I AM YOUR  "1>"P1 "X@"P1 "B"P1 "D"P1 "F"P1 ",D9,D9^EE,0720PR" " `" THAT'S RIGHT. THIS LESSON"A w"P2DEALS WITH FRENCH REGULAR ER VERBS.",RRc z"0700PRAS YOU MIGHT EXPECT," |"0900PRAN ER VERB IS A VERB THAT ENDS IN" ~"2000PRTYPE YOUR ANSWER FOLLOWED BY RETURN" P2(IF YOU MAKE A MISTAKE HIT THE * KEp+. DAYLIGHT SAVINGS.""%."DAYLIGHT SAVINGS TIME (Y/N)"?. DS$: DS$"" 12030H/DS0\/ DS$"Y" DS1b/TYPE C IF IN CENTRAL U.S. TIME ZONE+:"TYPE M IF IN MOUNTAIN TIME +:"TYPE P IF IN PACIFIC TIME %+: **B,EE,0600PRVERBS IN FRENCH CAN BE DIVIDED INTOE "P13 GENERAL TIME GROUPS:",D1y 1015PRPAST,D1,1315PRPRESENT,D1,1615PRFUTURE,RR 1900PRWE ARE GOING TO EXAMINE THE PRESENT,P1TENSE ONLY.,D1 1315PB68YPRESENT,RR **C,EE,0600PRTO BETTER )";r""|8'NB'BN10000L'2*"ENTER TIME ZONE"`+:"TYPE E IF IN EASTERN U.S. TIME ZONE +:"TYPE C IF IN CENTRAL U.S. TIME ZONE+:"TYPE M IF IN MOUNTAIN TIME +:"TYPE P IF IN PACIFIC TIME %+: OUNP2IN FRONT OF IT.,D1,1115PB68YI8RR,1414EL,1616EL,1818EL,2020ELi"1400PRIF WE REPLACE THE I WITH YOU",D10407PB18NYOU,0508PB18NYOU,0609PB18NYOU,0710PB18NYOU,0811PB18NYOU0912PB18NYOU,1013PRYOU,1113PRYOU,1013PR I,1010EL-nNTO A PROGRAM, AND THE;"CUSTOMIZED PROGRAM STORED ONR"TAPE OR DISK.hd:" WILL HAVE TRY THAT AGAIN !"oQAD$(6)"NO..."RAD$(7)"ONCE MORE !"SAD$(8)"AGAIN PLEASE... "TAD$(9)"NEXT TIME YOU'LL GET IT ! "THE PROPER MOMENT ON COMMAND?6"FROM THE FIRST PROGRAM.I7"l8"IN ORDER TO ADAPT THIS TO9"TAPE OPERATION, DROP THE '8':"AT THE END OF LINE 10130;"<"d:"XT TIME YOU'LL GET IT ! " 15PRBONJOUR,D3,2300PR(HELLO),D3]2323EL,0910PRJE M'APPELLE PET,D1,2300PR(MY NAME IS PET),D32323EL,1208PRET JE PARLE FRANCAIS.,D3,2300PR(AND I SPEAK FRENCH),D32323EL,RR,0606EL,1212EL,1204PRET TOI COMMENT T'APPELLES-TU?,2300PR(AND WHAT FRENCH TEACHER),D1,RR.,EE,"0412PR "F."P1 "[0"P1 "s2"P1 "4"P1 "6"P1 "8"P1 ":"1404PR " <"P1 0808PR "5 b"P1 "V d"P1 "w f"P1 " h"P1 " j"P1 ֠֠ ֠֠" l"P1֠֠͠ ֠֠" rD9,D9,EE,"0200PRYES, Y) M1ER,O1GOOD,J1B/ M0,O0LET'S EXAMINE IT,J0A,0934RQl **A,EE,"0400PRAN ER VERB IS A VERB THAT ENDS IN ER" RR,0404EL,"0400PRAN ER VERB IS A VERB THAT ENDS IN" M1ER,O1GOOD,J1B M0,O0WATCH CLOSELY AS WE REVIEW,J0A,0434RQ" TCH CLOSELY TO SEE WHAT HAPPENS4"P2WHEN WE REPLACE YOU WITH HE.",RRu0414PB18NHE,0514PB18NHE,0614PB18NHE,0714PB18NHE,0814PB18NHE0914PB18NHE,1014PB18NHE,1113PR HE,1122PB78YS,1416EL1400PRYOU WILL NOTICE THAT WE HAVE TO"P2ADD UNDERSTAND THESE FRENCH VERBS2 P2LET'S LOOK AT AN ENGLISH VERB.Z RR,1114PRTO SPEAK,D1,0606EL,0808EL 1400PRTO USE THIS VERB IN CONVERSATION "P2WE MUST FIRST GET RID OF THE TO",D1,1114PB68NTO RR,1800PRAND THEN PUT A NOUN OR A PRON "IF NOT IN CONT. U.S., TYPE O FOR OTHER":)*+"IF OUTSIDE CONT. U.S.S4+:"ENTER NUMBER OF HOUR YOU MUST ADD>+:"TO LOCAL TIME TO EQUAL GREENWICH TIMEH+:"COUNT WEST FROM ENGLAND (I.E.R+:"GREENLAND=3 JAPAN=15)\+Nf+BN10000 0916PB18NI,0817PB18NI,0718PB18NI,0619PB18NI,0520PB18NI,0421PB18NIt0322PB39N*,0422PB19N.,0522PB19N.,0622PB19N.,0722PB19N.,0822PB19N.1600PRWE NOW HAVE A DIFFERENT MEANING,P2BUT IT'S STILL THE SAME VERBRR,1414EL,1616EL,1818EL,1400PRNOW WA AN S TO THE VERB TO MAKE IT RIGHT.",RRJ1416EL,"1400PRTHIS S IS A VERB ENDING",D1,1122PB48YSy1600PRAND IT MUST BE PUT ON THE END OF ANP2ENGLISH VERB WHEN THE SUBJECT IS,"P2HE,",D1,1114PB38YHE,D1 "2004PRSHE,",1114ER1115,D1,1113PB28** SCORE ***ES%(W1(W1M1))100J"T *** PRINT SCORE ***RY"SCORE = ";S%X^k ***DELAY ***~L111500:L1$CNTI1: *** PRINT TITLE ***L1%(40(T1$))2"":"";L1%)T1$ CITY$"SANTA CLARA"$DOWN91ACROSS1["PLEASE ENTER DATE"d 1,3 DM(12):CC$"" ::"MONTH DAY YEAR " ݠ " " D KEY INPUTS *** "":"TITLE";T1$I130,"":"";H"QUESTION ";I::A$(I)^A$(I)"END"1285d" ANSWER ";I::Z$(I)ICNTI1: *** PRINT TITLE ***L1%(40(T1$))2"":"";L1%)T1$ "7):LT$# 12000.11000E B$: B$"" 225[ B$"E" B50000q B$"C" B60000 B$"M" B70000 B$"P" B80000B$"O" 11050T(LT$)BDS10000:T240000TT240000BXB10000T$"000 GRAM."`"WHICH METHOD WOULD YOU LIKE?"&eW$:W$""11257jW$"2"1180Ut *** READ KEY INPUTS ***ay1250:j"""DATA STATEMENTS BEGIN AT 400 AND""END AT 499. THE FIRST STATEMENT""CONTAINS YOUR TITLE. ALL THE OT 30,31,31,30,31,30,31MM6Q114 (MM7)(MM5)Q12M (MM8)(MM4)Q13f (MM9)(MM3)Q14 (MM10)(MM2)Q15 (MM11)(MM1)Q16 (MM12)Q17 (Q0)"" ";'  Σ < " ݤ g " ˳ " "_ ϣ¥ "HON. '  (" ͤ " d" O n" Σ x" ͤ";"" "S.F.N.Y LONDONTOKYO "RIO LH2H019DS:H223H2H224: NEW YORK;H3H021:H323H3H324: RIOoH4H02:H423H4H424: JERUSALEM OR CAPETOWNH6H09:H623H6H624: TOKYOH7H010:H723H7H724: SYDNEYH8H06:H823H8H824: DACCAH9H0:H ,2):SS$(TI$,2)(p"";H1$;":";MM$;"";H2$;":";MM$B18);"";H9$;":";MM$_35);"";H6$;":";MM$;pHH$;":";MM$"";9);H3$;":";MM$;"";H4$;":";MM$;"";H7$;":";MM$;""   "Y2(H03)Y0 YY1(Y12 YY2;Y32 YY3L Y37 Y38XX239Yu (HHH0)(X239) 5500 (HHH0) (X20)(CC$,Q1)""TK$:5500X1X26095X10(CC$,Q1)X1)TK$:"";(C $" +"57):>DT$hd"PLEASE ENTER TIME"n::"HOURS MINUTES SECONDSx" ݠ" " " #L1%);(I1((T1$)):"";:I -!x ***READ DATA ****}T1$6I130SA$(I):A$(I)"END"1430^Z$(I)eIsCNTI1: ***WINNER OUTPUT***K1110" CORRECT "K1@ * 000"((T),2) TI$(T$,6)E,MM$(DT$,2):DD$(DT$,3,2):YY$(DT$,2)g6MM(MM$):DD(DD$):YY(YY$)u@MM1390JI112T DM(I)YI^ Y4(Y4) DM(2)29h I1MM1rJDJDDM(I)|IJDJDDD  31,28,31,30,31, HERS""SHOULD HAVE QUESTIONS & ANSWERS."?"FOLLOW THE FORMAT IN THIS PROGRAM TO"g"GET STARTED. HIT STOP AND THEN"}"LIST 400-499.""OTHERWISE...HIT ANY KEY TO RUN"W$:W$""12201400: READ DATA *** REA  " ͡COMMODORE WORLD CLOCK ";S " " " = SUN Σ"; " "; "  "  ϣ ' C 2"- - - - - - - -- - -- - - - --p <" F" Σ ͺ P" Z" CAPE TOWNSYDNEY? "JERUSALEMDACCAr |H0$(TI$,2):H0(H0$):H1H019:H10H1H123 H1H016DS:H123H1H124: SAN FRANCISCO HHH014:HH23HHHH24: HILO HXH0BXDS:HX0HXHX24: LOCA 923H9H924: LONDON*H1$(H1):H1$(H1$,2):HO$((H0),2)[H2$((H2),2):H3$((H3),2):H4$((H4),2)nHH$((HH),2)HX$((HX),2)H5$((H5),2):H6$((H6),2):H7$((H7),2)H8$((H8),2)H9$((H9),2)MM$(TI$,3 "";23);H4$;":";MM$;&"";H8$;":";MM$;""08000FBB(H00)(H03)[B(H00)(H03)t""; (H020)(B) "(OVER PACIFIC)": 6035" " (H020)(BB) " C$,Q1)X2);:#1,TK$:""(CC$,Q1)X2)"";%X ZZ150:ZZ0b"";:cX1X2DdHHH0N5500l@(CC$,DOWN1)ACROSS)"*"J"*";CITY$T"";HX$;":";MM$;":";SS$;"";" (";B$;^ DS "DT)";: 8050h"ST  *** TYPING DRILL ***2 *** R.A.FREEMANK *** PET USER NOTESg( *** SOFTWARE EXCHANGE* *** MONTGOMERYVILLE, PA 189362"GRAPHIC OR BUSINESS KEYBOARD ?"7G$:G$""55<G$"B"2000 KA$"AQZ!SWXDEC#FRV$GTB%P:)?LO; % *****************************+J MULTIPLE CHOICE TESTPl BY WALT WEINTZr#( 26 OCT 1979-2 ****************************7<A$(51),Z$(51),C$(5)AF *** INSTRUCTIONS ***K :"WHAT IS YOUR ANSWER";V"VX295L:"SORRY ... YOU SHOULD HAVE PICKED"\2000::T$tM1M11:1600:1620"2000:100'W1W11:1600,1500:1620:20006100 VOCABULARY TEST VEGETATE,PASSIVE LIFE MULCT,DEPRIVE ST,UNSELFISH REGARD FOR OTHERSB CHAUVINIST,EXTREME FERVOR FOR A GROUPd PHILOLOGY,LOVE OF KNOWLEDGE RATIONALIZE,JUSTIFY NOT TOO WORTHY ACT SUBLIMATE,TURN INTO HIGHER CHANNELS ASCETIC,SEVERELY SELF-DENYING  OBSEQUIOUS,FAWNI REMARKS"  VOCIFEROUSLY,LOUD-VOICED MANNERM  IDIOSYNCRASY,PECULIAR CHARACTERISTICi  TRUCULENT,OVERBEARING  ESOTERIC,KNOWN BY INITIATED FEW  DILETTANTE,DABBLER IN ARTS OR SCIENCES  END  ***RNDM # *** R(TI) X((R(R5)1)   ***RND PRINT OF ANS3 *X830,850,870,890,910W >"(1)...";Z$(M):"(2)...";Z$(D){ C"(3)...";Z$(E):"(4)...";Z$(F) H"(5)...";Z$(G): R"(1)...";Z$(D):"(2)...";Z$(M) W"(3)...";Z$(E):"(4)...";Z$(F) \"(5)...";Z$(G)::R1N $(A$,PR,1);& .G$:G$""1070K 8G$(A$,PR,1)900:500:1060T B800^ L" ";g VR,Tp `110 A$"AQZ!SWXDEC#FRV$GBT%;P/0LO.)KI,(JUM'HYN&":1101100bX(39(1)1)l(A$,X,1);vG$:G$""630 G$(A$ "MAJORITY THEY HAVE REVOLTED AND TAKEN OVER THE COUNTRY." 2450C "MONEY WAS LEFT OVER IN THE TREASURYn "WHICH YOU DID NOT SPEND. AS A RESULT "SOME OF YOUR COUNTRYMEN DIED OF HUNGER. "THE PUBLIC IS ENRAGED AND YOU HAVE BEEN40 800" ";R,L!110+,P0:56P4:?@P7:JJP11:UTP19:`^P23:khP27:vrP31:D15:59464,20:K1100::59464,0:D:X: V1100bX(39(1)1)l(A$,X,1);vG$:G$""630 G$(A$";Z$(G) "(5)...";Z$(M):0 *** PRINT INSTRUCTIONS ***6A"":d"MULTIPLE CHOICE TEST" "THIS PROGRAM READS UP TO 30 QUESTIONS""AND ANSWERS SUPPLIED BY YOU. IT THEN""ASKS YOU THE QUESTIONS IN RANDOM (KI,\JUM&HYN'"(n"TYPEING PRACTICE"Ws"FINGER DRILL - RIGHT OR LEFT HAND"xt"RANDOM FINGER DRILL - Fu"RANDOM KEYBOARD - AxH$:H$""120}H$"A"600:110H$"R"H4H$"L"H0H$"F"1000 :"FINGP1000UW10:M10Z3d *** PRINT TITLE ***=i1300V *** BEGIN TEST ***\e500 ***PRINT QUESTIONS ***:A$(X):T$Z$(X):MX**PRINT 4 QUESTIONS***600 ***PICK RIGHT ANS POSITION700:800 OF A POSSESSION UNJUSTLY1 EXPIATE,MAKE AMENDS FOR\ SCINTILLATE,SPARKLE WITH WIT & HUMOR DEPRECATE,DISAPPROVE OF SOMEONE'S ACTIONS EGOIST,INDIFFERENT TO OTHER'S FEELINGS STOIC,DIGNIFIED RESIGNATION WITHOUT PASSION ALTRUING & SERVILE'  ESTHETIC,ARTISTIC APPRECIATIONR  TACITURN,DISINCLINED TO CONVERSATIONx  PHLEGMATIC,EMOTIONALLY SLUGGISH  PANACEA,CURE FOR ALL EVILS  ANOMALY,IRREGULAR OR INCONSISTENT  IRASCIBLY,ANGRILY  ACRIMONIOUSLY,BITTERCNT)1) % X ***SELECT & PRINT 4 WRONG QUEST. Y500; ZXM601C ]DXL `500] bXMXD608e gEXn i500 lXMXEXD617 qFX v500 XMXDXEXF630 GX   ***RNDM # POSITION OF ANS R(TI) X(  f"(1)...";Z$(D):"(2)...";Z$(E)7 k"(3)...";Z$(M):"(4)...";Z$(F)M p"(5)...";Z$(G):q z"(1)...";Z$(D):"(2)...";Z$(E) "(3)...";Z$(F):"(4)...";Z$(M) "(5)...";Z$(G): "(1)...";Z$(D):"(2)...";Z$(E) "(3)...";Z$(F):"(4)... N OPERATE THIS PROGRAM IN THE""B"FOLLOWING TWO WAYS:"SG"(1) TYPE IN DATA WHILE THE COMPUTER"zL"ASKS YOU THE QUESTIONS."Q"(2) ADD YOUR QUESTIONS & ANSWERS"V"IN DATA STATEMENTS WITHIN THE"["PRO "FORCED TO EITHER RESIGN OR COMMIT SUICIDE. , "ONGRATULATIONS. YOU SURVIVED.Q "PRESS ANY KEY TO CONTINUE..";e I$:I$""3010m :$  "THE NUMBEROF FOREIGN WORKERS HAS "EXCEEDED THE NUMBER OF COUNTRYMEN. AS A,X,1)900:500:620800" ";+V:110c 59466,15:59467,16:59464,100:D150::59464,0:{:" ERROR "G$:T120:H1(8(1)1)H1300,310,320,330,340,350,360,370H14H18N8:1050H12N3:1050N4 ORDER""AND SUPPLIES (5) ANSWERS FOR YOU TO"I"CHOOSE FROM. YOUR GOAL SHOULD BE TO"t$"ANSWER AS MANY QUESTIONS CORRECTLY")"AS POSSIBLE. GOOD LUCK!!!"."HIT ANY KEY TO CONTINUE ..."3W$:W$""10758""="YOU CAER (1 FOR BABY UP TO 4 FOR INDEX) ?"0F:F0170=F4170lH1HF:H1300,310,320,330,340,350,360,370H14H18N8:230H12N3:230N4:L15:R1N(A$,PR,1);G$:G$""250G$(A$,PR,1)900:500:2 ILES."YOU HAVE";L1000;" SQ MILES."830(M(MM4)6M01170`"HOW MUCH TO SPEND FOR EDUCATION";M2oM201010M2M10702250:1010.M(MM2)8M01170BL20001170L"HOW MUCH TO SPEND TO COMBAT  M(ML2L0):L (LL2)+X9(44(2000L)):M20:M30:M40X"HOW MANY RALLODS TO DISTRIBUTE TO YOURm"COUNTRYMEN";M1{M10740 M1M8102250:740*M(MM1):M01170>"HOW MANY SQ MILES PLANTED";L3RL30830\L "HOTELS ARE LOOKING SHABBY DUE TO SMOG GRIT." M5(T0T1)*S9S184S2(2000L)2M3.44d>"YOU RECEIVED";X9;" RALLODS FROM TAXEStHS202170RS1(S1S22)\S1S02160fS1S0p2190zS1(S1S2)S0(S0S210)N  "THIS YEAR INDUSTRY WILL BUY LAND FOR"7 L0;"RALLODS/SQ MILE."` "LAND CURRENTLY COSTS";L1;" RALLODS} !"PER SQ MILE TO PLANT." &S10570 0:"POLLUTION LEVEL IS";S1;" UNITS." :3000 D"HOW MANY SQ MILES TO SELL F"TO INDUSTXT1S1100000bT111910lT11vT1T1T0C"YOU MADE";(T0T1);" RALLODS FROM TOURISTS.TMM(T0T1)k(T0T1)M52080|S1S92080" DECREASE BECAUSE ";T2(1)10 (T22)1 1990,2010,2030,2050,2070,2070ER PERSON IS THE, h"MAXIMUM USEFUL AMOUNT TO SPEND ON@ m"EDUCATION.":s |"YOUR GOAL: TO COMPLETE YOUR";N4;"YEAR TERM."} 3000 "" M(70000((1)1000)((1)1000)) P(500((1)10)((1)10)) L2000:W0:X20:E00:X10:E10:L31660rT0L3|T001680#"OF";L3;" SQ MILES PLANTED, "S"YOU HARVESTED";L3T0;" SQ MILES OF CROPS.bT001760rX221760" (DUE TO ";X201740.""INCREASED ";"POLLUTION LEVEL)":X2X21T1((39(1)YOUR$"TOURIST TRADE WILL INCREASE UNTILL"INDUSTRY OWNS 26 SQ MILES OF LANDR ~"INDUSTRY ALSO BRINGS POLLUTION, WHICH"IS MEASURED IN UNITS. POLLUTION MAY BE"COMBATTED BY SPENDING .44 RALLODS/UNIT ""OF POLLUTION. POLLUTION0PL10001390Z"NOT ENOUGH LAND TO SELL."d2270-nMMT0L0>xD02002300RPPD0:D1D1D0aD102410qD221460M5002520L201520T0(L2L2(1)2)W01500T0(T0.1W)T0;" WORKERS CAME TY BEEN IMPEACHED AND THROWN  "OUT OF OFFICE BUT YOU"- ((1)2.01)12350,2370,2390Y. "ALSO HAD YOUR LEFT EYE GOUGED OUT.":B "HAVE ALSO GAINED A VERY BAD REPUTATION.":V "HAVE ALSO BEEN DECLARED NATIONAL FINK.":j "OVER ONE THIRD  POLLUTION";M3`M301100jM3M1160!t2250+~11009M(MM3)A:aD00:E2M2P:D2(PM1100)s D20 1240}D0D2D2;" COUNTRYMEN DIED OF STARVATION.D3((S1100000)(.1.4(1))P)D301280D3;3P2890f"EACH COUNTRYMAN CAN ONLY PLANT 2+k"SQ MILES.4pyu0HzL3L1000920w"ONLY GOT";L1000;" SQ MILES OF FARMLAND.950M4(L3L1):M4M9902250"YOU CAN AFFORD";(ML1)"AND HAVE LABOR FOR";P2 ;" SQ M 5N51N504502570"ONLY GOT";M;"RALLODS LEFT!"e"YOU HAVE BEEN THROWN OUT OF OFFICE AND ARE NOW RESIDING IN PRISON!"kD0;"COUNTRYMEN DIED IN ONE YEAR!!" "DUE TO THIS EXTREME MISMANAGEMENT YOU "HAVE NOT ONLRY";L2 XL20580 bL2(L1000)680= l"THINK AGAIN,YOU'VE ONLY";L1000[ q"SQ MILES OF FARM LAND."j vX10580 "(FOREIGN INDUSTRY IS NOT INTERESTED IN "FOREST LAND BEAUSE OF THE GREATER "DEVELOPMENT COST) X11  580"FISH POPULATION HAS DWINDLED DUE TO WATER POLLUTION.":2080W"AIR POLLUTION IS KILLING GAME BIRD POPULATION.":2080"MINERAL BATHS ARE BEING RUINED BY WATER POLLUTION.":2080"UNPLEASANT SMOG ISDISCOURAGING SUN-BATHERS.":2080S90 S00:M50:S10 D1(P3)- L1(((1)5)10)B L0((1)1095)c :N5;"YEARS LEFT IN OFFICE" "YOU HAVE ";M;"RALLODS," ,P;"COUNTRYMEN," W0520 10);W;" FOREIGN WORKERS," " AND";L;" SQ MILES OF LAND."20)(1.25(E0E1)20))T1((39(1)20)(1.25(E0E1)20))F"MAKING"; (T1(L3T0));"RALLODS."bMM(T1(L3T0)):E0E1sE2101820}E210E1E2:T02000L0T022100:T0261870DT026NT0(T0500(.52.5(1))) WILL DECREASE( ,"TOURIST TRADE AND CROP YIELD.. 6_ J"YOU CAN INCREASE YOUR CROP YIELD THROUGH"; O"EDUCATION. THE VALUE OF CROPS IS T"DEPENDENT UPON THE AMOUNT OF MONEY ^"SPENT ON EDUCATION IN THE PAST THREE c"YEARS. 10 RALLODS PO THE ISLAND ANDWWT0)T0(((500P)10D33D25).75(1(1)))D(T0);" COUNTRYMEN ";ST001570c"CAME TO";m1580z""LEFT";," THE ISLAND."6PPT0@PW2480JT00:L20001680^T0((S1100000)L3)hT0OF THE POPULATION HASo "DIED SINCE YOU WERE ELECTED TO OFFICE.?t "THE PEOPLE(REMAINING) HATE YOUR GUTS."Q (1).52270s "YOU HAVE BEEN ASSASINATED."y  "THE NUMBEROF FOREIGN WORKERS HAS "EXCEEDED THE NUMBER OF COUNTRYMEN. AS A" COUNTRYMEN DIED FROM POLLUTION."D0D0D3#D001400. FD09t"YOU WERE FORCED TO SPEND";F;" RALLODS":"FOR FUNERAL EXPENSES."M(MF)(M014002"INSUFFICIENT RESOURCES FORCED SALE OF LAND."<T0((ML01)L0):LLT :A241:A12:SY63673:(62200)91A212:A12:SY63622k (62200)91 (0)7167A212:A11:SY63622P"ONE MOMENT PLEASE!"ZA,A1:634,5:SYd"VOICE SPELLING BY DON WHITEWOOD,OAKWOOD C.I.n:" 991 ST.CLAIR AVE.,TORONTO,O  "REFLEX TIME")2"";: 245,6:Sd"THIS PROGRAM TESTS YOUR REFLEXES BY"MEASURING YOUR REACTION TIME.WHENEVER","THE SCREEN IS CLEARED HIT ANY CHARACTER-""YOUR REACTION TIME IN SECONDS WILL BE" "DISPLAYED--WHEN THIS DISSA $"" 1500:"": 245,10:O" YOU SHOULD HAVE TYPED A CHARACTER WHEN";F" ";x" THE SCREEN WAS CLEARED "; I1 1000: I1 40:" ";:" (STAND BY FOR MO  A$(5)N58:N48<("DO YOU NEED INSTRUCTIONS?";P2A$: A$"" 50f< A$"N" : 400F:"CONGRATULATIONS! YOU HAVE BEEN MADEK"PREMIERE OF SETATS DETINU, A SMALLP"COMMUNIST ISLAND 30 BY 70 MILES LONG.Z"YOUR JOB IS TO  WAS '"; J15:(Y(J));:J "'":8202  G1 810\ "YOU GOT IT IN ONLY";G;"TRIES": 820 *"YOU GOT IT IN ONLY";G;"TRY." 4CO50 910 >"I DON'T HAVE ANY MORE WORDS..THANKS": "ANOTHER WORD? ";:1,Z$: R1:(Z$)BOARD,TYPEWRITER,FEMUR j'DECADE,PARTIAL,OOZE,EMULATE(t'FIREPLACE,CREATURE,FROZENF~'TONGUE,CLOTHING,ELEVATORh'DRAPERIES,HANGMAN,RELINQUISH'QUADRANGLE,TRIANGLE,LOCATION'INDICATE,BUFFOON,MUDDLE'SEQUENTIAL,ABDICATE,AARDVARK'RGG1:"YOUR WORD ? ";:1,Z$:V : (Z$)5"YOU MUST GUESS A 5-LETTER WORD!":560m DV0:H0:M0:J15 XZ((Z$,J,1)):Y((N$,J,1))1:Y64Y90 bZ65Z90"THAT'S NOT A WORD!":560 lZ65Z69Z73Z79Z85Z89VV1 v";"THE WORD WAS ";"";W$(W);"":7000)*"";"...ANOTHER WORD?"1/I$c4I$"Y""";" ":>I$"N""";"OK.....THANKS FOR THE GAME!";"":615H7215"";" ALREADY PICKED ";L$:7000:314VFTU,SJWFS,QSFTT,PUUFS,FWFOUX" XFBWF,FYUPM,NVTIZ,AFCSB,GJAAZ,UIJDL,ESVOL,GMPPE,UJHFS,GBLFS6 CPPUI,MZJOH,TRVBU,HBVAF,PXJOH,UISFF,TJHIU,BYMFT,HSVNQ,BSFOBJ RVBSU,DSFFQ,CFMDI,QSFTT,TQBSL,SBEBS,SVSBM,TNFMM,GSPXO,ESJGUN50 N$(N),Z(5),YND WHICH MAY BE SOLD9"TO FOREIGN INDUSTRY WHO IMPORT AND]"SUPPORT THEIR OWN WORKERS.":"CROPS COST BETWEEN 10 AND 15 RALLODS"PER SQ MILE TO PLANT, AND THEY BRING IN"BETWEEN 45 AND 65 RALLODS PER SQ MILE.":"INDUSTRY WILLNTARIO.0x"WANT INSTRUCTIONS";Z$:(Z$)78250^"TRY TO SPELL THE WORD WHICH YOU HEAR.""NOTE:THE TAPE MUST BE PLACED IN AN AUDIO RECORDER AND REM.";" CONNECTOR IN PLACE.....THEN PRESS PLAY.""IT WILL NOT BE REPEATED SO LISTENPPEARS HIT"3XAHER KEY (ANY KEY WILL DO) SO "X I1 7500::15)"GET READY"y I1 2500::"": 245,11 : 11)"(HIT ANY KEY NOW )":A$,A$,A$,A$,A$,A$,A$:1100 I1 (1)2000750: C$::"";LTTI: I1 500: C$: CRE INSTRUCTIONS) "4 I1 1000:C$: C$"" 1500?: 50H 50cT1TIT:"";: 245,11 I1 2500:C$: C$"" 1500: 226,17@ ((T1601000).5)1000:1000$ (1)2000750: C$::"";LTTI: I1 500: C$: C DECIDE THE COUNTRY'S FATE":Bx"THE MONEY SYSTEM IS RALLODS. EACHj}"COUNTRYMAN MUST HAVE AT LEAST 100"RALLODS/YEAR TO SURVIVE.":"YOUR COUNTRY'S INCOME COMES FROM FARM"PRODUCE, TOURISTS, AND TAXES. HALF YOUR"LAND IS FARM LA 78527  Z(J)Z:Y(J)Y:J M5790[ V0V5"COME ON..WHAT KIND OF A WORD IS THAT?":560n  J15:YY(J)  K15:YZ(K)HH1:Z(K)0:700  K  J ""19);H;"LETTERS RIGHT" G5560 "I'D BETTER TELL YOU.. WORD UTABAGA$AGISTRATE,MAHOGANY,ANSWER$' CASTLE,INTEREST,VACUUM,MOOSE;.'BASKET,AUTOMOBILE,CONSERVE`8'ANIMOSITY,FRUSTRATE,OGLE,SKIINGB'CIGARETTE,CREDENZA,CREDENTIALSL'HAMMOCK,SAILBOAT,BUILDING,DOOMV'TELEPHONE,RADIOLOGY,MIXTURE`'KEYZYMM1 Z(J)Z:Y(J)Y:J M5790[ V0V5"COME ON..WHAT KIND OF A WORD IS THAT?":560n  J15:YY(J)  K15:YZ(K)HH1:Z(K)0:700  K  J ""19);H;"LETTERS RIGHT" G5560 "I'D BETTER TELL YOU.. WORD0:' MAGISTRATE,MAHOGANY,ANSWER$' CASTLE,INTEREST,VACUUM,MOOSE;.'BASKET,AUTOMOBILE,CONSERVE`8'ANIMOSITY,FRUSTRATE,OGLE,SKIINGB'CIGARETTE,CREDENZA,CREDENTIALSL'HAMMOCK,SAILBOAT,BUILDING,DOOMV'TELEPHONE,RADIOLOGY,MIXTURE`'KEY(5): J1N:N$(J):J:1,0,1:G0:CO0O "I HAVE ONLY FIVE LETTER WORDS. ":R0560"IF YOU ARE READY FOR A WORD HIT ANY KEY.  X$: X$"" 525"ONE MOMENT PLEASE...LISTEN CAREFULLY."G0:COCO1:N$N$(CO):A,A1:634,5:SY 0 BUY LAND FROM 95 TO 105@"RALLODS PER SQ MILE, AND WILL PAY TAXESi"OF 44 RALLODS PER SQ MILE OF LAND.s3000"INDUSTRY BRINGS TOURIST TRADE. IT MUST"OWN AT LEAST 2 SQ MILES BEFORE YOU GET"ANY TOURIST TRADE, AND INCOME FROM ""CAREFULLY ..."A"YOU WILL BE TOLD THE NUMBER OF LETTERS"p"WHICH MATCH THE LETTERS YOU HAVE TYPED""IN CASE YOU MAKE A MISTAKE. BXBSF,IPCCZ,UZQFE,ESFBE,BXGVM,HPSHF,IBUDI,DJWJM,KPMMZ,LBZBL QSJOU,MFWFM,NJNJD,BOOFY,QJQFS,R  HANGMAN; (C) LARRY PHILLIPSW VANCOUVER B.C.r (604)325-6224x I BELIEVE IN FREE OR CHEAP SOFTWARE,JUST LEAVE THE CREDITS. MODIFIED BY G J FLYNN " TS YOU AN ARM":7000:3030:3070:3140:DR"THE OTHER ARM...":7000:3040:3070:3140:u\"OH NO! A FOOT!":7000:3010:3070:3140:f"HEY, DON'T HANG ME!!":7000:3020:3070:3140:p"A HAND--ONLY ONE LEFT":7000:3050:3070:3140:z FL1 7300 I FL1650 NN1, I1NLF L$(W$(W),I,1)740d LM$(I)L$ m FL1t I LG$(N)L$ FL11050 WRWR1 :"SORRY, THAT LETTER " "IS NOT IN THIS WORD": 3200WR80 GOES".7000:3070:3140:FL08I0NL'BLM$(I)""FL19GI:FL11150aL"":"GOT IT IN ";N1;"GUESSES!"mQNRNR1~VI11500:I`I021:X(9)Y(I),32:IjI019:X(11)Y(I),32:It2300:7200:600~3220:3140:FL149:W$(I):I DI049:WU%(I)0:I* NS10:S20:FL0E X I025:LG$(I)" ":IY ]WR0:NC0:3140x bW((1)50):WU%(W)1610 cNWNW1 dNW50620 g"YOU TRIED ";NW;"WORDS": h:"YOU GUESSED";NR;"OF THEM" i"AND HUNG THE POOR FELL / X(5)Y(25),118:X(6)Y(25),103:X(5)Y(31),117a*X(6)Y(31),101:X(8)Y(27),99:X(8)Y(29),994X(5)Y(27),81:X(5)Y(29),81:X(6)Y(28),87 >X(7)Y(27),74:X(7)Y(28),64:X(7)Y(29),75X(6 JX(24)Y(I),207:I4 TX(23)Y(26),233:X(23)Y(39),232W ^X(1)Y(35),95:X(1)Y(36),223z hX(2)Y(36),95:X(2)Y(37),223 rX(3)Y(37),95:X(3)Y(38),223 |X(4)Y(38),95:X(1)Y(28),66 X(2)Y(28),66:X(3)Y(28),66 X(24)Y(39),2:X(14)Y(I),102:I HI419:J2531:X(I)Y(J),32:J:I:u I2930:J1518:X(J)Y(I),102:J:I: X(18)Y(25),111:X(19)Y(25),226:X(19)Y(26),226 X(19)Y(27),226: I2931:X(19)Y(I)LTELY DRAWN AFTER":"TEN WRONG GUESSES.(AND WILL BE HUNG)":_:"HE IS DEPENDING ON YOU!"::"DO YOU WANT TO PLAY NOW?"I$:I$"Y"200I$"N"19991902000""X(1)Y(0),85X(5)Y(0),74X(1)Y(21),73"";:I2025:LG$(I);" ";:I:& "":I1NL:" ";LM$(I);:I:%: ^D I021:X(14)Y(I),32:X(16)Y(I),32:X(17)Y(I),32tI X(10)Y(I),32:I~N 3200X  I021:X(19)Y(I),32:I  ::::"GUESS THE WORD?":FL0:"";"16)"HANGMAN."6(:7)"DO YOU NEED INSTRUCTIONS?">2I$M<I$"Y"90]FI$"N"200eP50Z" I WILL THINK OF A WORD."d"THE DASHES () WILL SHOW YOU"i"HOW MANY LETTERS IT HAS.":n"IF YOU GUESS A LETTER CORRECTLY,""AAARGH! I'M HUNG!":7000:NHNH1:3060:3070:900F7100:7200:"";:I120:" ";:I:c"";:I120:" ";:I:"";:I120:" ";:I:"";:I120:" ";:I3140:2300:600:"THAT'S A GOOD ONE!"$"HERE'S WHERE IT 0,810,820,830,840,850,860,870,880,890650J "YOU GET A HEAD":7000:2050:3070:3140:|*"HERE'S THE BODY.":7000:2200:3070:3140:4"NOW HIS FIRST LEG":7000:2260:3070:3140:>"SECOND LEG!":7000:3000:3070:3140:H"THIS GE6501100"END"X(24),Y(39) J32768=I024:X(I)J:JJ40:ISI039:Y(I)I:IYwI2729:X(4)Y(I),99:I X(4)Y(26),78:X(7)Y(30),78 X(4)Y(30),77:X(7)Y(26),77OW";NH;"TIMES";"": j1 lWU%(W)1:NL(W$(W)):""I vI1NL:" ";:I:R {N1t I111:LM$(I)"":I "GUESS A LETTER? "; L$:FL0:L$"A"660 L$ L$"Z"660 I025 LG$(I)L$6898)Y(28),224  3I914:J2630LX(I)Y(J),224:J:IiX(9)Y(28),150:I1012X(I)Y(28),218:II2630:X(13)Y(I),226:II2627:J1518:X(J)Y(I),102:J:II263007 " LETTERS GUESSED" 3 ""I 2050:2200:2260_ 3000:3010:3020u 3030:3040:3050 3050 3060:10)"HANGMAN" I13000:I &10)" ":2300 0LG$(26),W$(50),WU%(50):LM$(12) :I0 ,226:X(18)Y(31),111:I:( I1013:X(I)Y(25),231:I:X(9)Y(25),233:Z I1013:X(I)Y(31),229:I:X(9)Y(31),223:p X(14)Y(25),81: X(14)Y(31),81: ""; I09:LG$(I);" ";:I: "";:I1019:" ";LG$(I);:I:  X(5)Y(21),75$I120:X(1)Y(I),649X(5)Y(I),64:IZX(4)Y(0),93:X(4)Y(21),93{X(3)Y(0),93:X(3)Y(21),93"X(2)Y(0),93:X(2)Y(21),93,I2639:X(0)Y(I),160:I6I024:X(I)Y(39),160:I@I2638:X(23)Y(I),20 I1NL I$:I$" "FL1:INL:3275 I$"A"3240$ I$"Z"3240? I$(W$(W),I,1)FL1L " ";I$;S IY bp600wXPS11000:PS:32995,43:32997,43:33075,85:33076,64:33077,737000:  ")s"I WILL PUT IT INTO THE WORD, AND GIVE"Wt"YOU A CHANCE TO GUESS THE WHOLE WORD.":v"IF YOU DON'T WANT TO GUESS THE WORD THENPRESS 'SPACE'.":x"IF YOU ARE WRONG, I WILL DRAW ANOTHER"}"PART OF THE MAN.": "THE MAN WILL BE COMPEA TW l PD02022AHANGMANCAPITALS AMORT'N TABLES SPEAK AND SPELL REFLEX TIMERKINGDRIVING TESTSPEED READ TYPING DRILLVOCAB 1FRENCH WORLD CLOCKMORSELETTER SEQUENCES  SYLLABLESuxy INTRO. JACQUES JACQUES A8JACQUES B7 BONDS BIG BINARY HEX DEMO DIETFIFO A OR ANASKBILINGUAL SPELLFRENCH SENTENCESFRENCH VERBSCINQUAINHANGMAN1!HANGMAN2HANGMAN3 HANGMAN4PET PIT PAT POT !SWAP NEW ROMSWAP OLD ROM TACHISTOSCOPE "SCRAMBLED WORD  1,0,1ASE$"WHAT IS THE NAME OF THE CAPITAL CITY OF"W A$(100),B$(100)g I1 100y A$(I),B$(I)#A$(I)"999"T0I1:42( I*""- 59468,142"TӠ̠͠ԠҠŠ74)" ƠĠ Q1960dNN1:CC1&iI(T0(1))1;j A$(I)"*" 105GkCOCO1^lF$A$(I):A$(I)"*"fmQ0onSE$o6)"";F$;"? ";s1,Z$:xB$(I)Z$200}Z$"N"130COT0900105"NOT CORRECT...TRY AGAIN":WW1QQ 375*"YOUR SCORE IS";C;" CORRECT ";W;"WRONG"Z"YOUR RATING IS" ;(C(CW)10000)100;"%""DO YOU WISH TO CONTINUE(Y OR N)? ";:1,C$: (C$,1)"Y" 500 (C$,1)"N" 830 402COT0900100, XAFGHANISTAN,KABU A,SAN JOSEG CUBA,HAVANA,CYPRUS,NICOSIA,CZECHOSLOVAKIA,PRAGUE,DENMARK,COPENHAGEN DOMINICAN REPUBLIC,SANTO DOMINGO,EQUADOR,QUITO,EGYPT,CAIRO EL SALVADOR,SAN SALVADOR,ETHIOPIA,ADDIS ABABA,FINLAND,HELSINKI FRANCE,PARIS,W.GERMANY,BONN,E.GERICA,KINGSTON,JAPAN,TOKYO,JORDAN,AMMANa KENYA,NAIROBI,LEBANON,BEIRUT,LIECHTENSTEIN,VADUZ,LUXEMBOURG,LUXEMBOURG MALTA,VALLETTA,MEXICO,MEXICO CITY,MOROCCO,RABAT,NETHERLANDS,AMSTERDAM NEW ZEALAND,WELLINGTON,NICARAGUA,MANAGUA,NIGERIA,LAGOS,NORWAON,URAGUAY,MONTEVIDEO,VENEZUELA,CARACAS,YUGOSLAVIA,BELGRADET "WELL, I GUESS YOU REALLY DIDN'T KNOW"j%"IT!!! (SHAME)"*"THE CORRECT ANSWER IS ";B$(I);"."/"NOW I WILL ASK YOU AGAIN!"1ZTI2Z600TI 8183"";4109>SE$"WHAT COUNTRY HAS AS IT'S CAPITAL "105H"YOU HAVE MANAGE TO EXHAUST MY TOTAL "t"BANK ON COUNTRIES AND THEIR CAPITALS""YOU TOTAL OVERALL AVERAGE IS:"10);(C(CW)10000)100;"%"'999,9998183"";4109>20000:21000:22000=D2$""o$B1$" "L" WHAT IS THE NOMINAL INTEREST RATE"`"PER ANNUM (%)";I$: I(I$)100t" WHAT IS THE NUMBER OF INTEREST""PERIODS PER(1(1E)(PK))1)EL+<N1X:25000:X$N1$BPN1L:25000:L$N1$Md22000"":32807,110I121:"":3280740I,93:"":33687,12510)"AMORTIZATIEBT ";0)"":33167,115`I112:4)""10)""10)"" :2)"0"25) L$0)"":33247,115OSL:CC0J(CC1)(CC10)INOSE N 6<"AҠȠŠ(ĠԠ)"~F"ŠŠΠŠŠ̠Ġ٠ "P""R" WĠՠŠϠԠȠŠ"U"ӠҠŠ? ";:1,Z$:V(Z$,1,3)"CAP"940Z1:Q2800 110R(4(1))*R13007R2301DR3302QR4303x"CORRECT..YOU'RE A GENIUS!":350,"RIGHT ON, BABY!":350-"ALL RIGHT!":350."YES SIR!":350/"YOU'RE TOO MUCH":350^XTIwX300TIL,ANGOLA,LUANDA,ALGERIA,ALGIERS,ARGENTINA,BUENOS AIRESr bAUSTRALIA,CANBERRA,AUSTRIA,VIENNA,BELGIUM,BRUSSELS,BOLIVIA,SUCRE lBRAZIL,BRASILIA,BULGARIA,SOFIA,BURMA,RANGOON,CAMBODIA,PHNOM PENH vCANADA,OTTAWA,CHILE,SANTIAGO,COLUMBIA,BOGOTA,COSTA RICMANY,BERLIN,GREECE,ATHENSP GUATEMALA,GUATEMALA CITY,GUYANA,GEORGETOWN,HAITI,PORT-AU-PRINCE HONDURAS,TEGUCIGALPA,HUNGARY,BUDAPEST,ICELAND,REYKJAVIK INDIA,NEW DELHI,IRAN,TEHRAN,IRAQ,BAGHDAD,IRELAND,DUBLIN ISRAEL,JERUSALEM,ITALY,ROME,JAMAY,OSLO@ PARAGUAY,ASUNCION,PERU,LIMA,POLAND,WARSAW,PORTUGAL,LISBON,SPAIN,MADRID SUDAN,KHARTOUM,SWEDEN,STOCKHOLM,SWITZERLAND,BERN,SYRIA,DAMASCUS THAILAND,BANGKOK,TURKEY,ANKARA,UGANDA,KAMPALA,USSR,MOSCOW USA,WASHINGTON D.C.' U.K.,LONDQ11010'"YOU HAVE EXHAUSTED MY COUNTRIES WOULD"U"YOU LIKE TO TRY TO GUESS THE COUNTRIES"{"FROM THEIR CAPITALS? ";:1,Y$:(Y$,1)"Y"Q1 I1 100 B$(I),A$(I)B$(I)"999"T0I1:990 I1IN:25000:IN$N1$ &PYXIN. 0N1PY:25000:PY$N1$; :NSOSPYT DN1NS:25000:NS$N1$n NN1J:27000: 1)N1$;| X 5)IN$; b16)PY$; l29)NS$ vNSX2000 JJ1 :INIuuuu u ANNUM";N$:N(N$)9" WHAT IS THE NUMBER OF PAYMENTS"U"PER ANNUM";P$:P(P$)r" WHAT IS THE AMOUNT""OF THE LOAN ($)";L$:L(L$)"HOW MANY YEARS ARE THERE TO""TO REPAY THE LOAN";K$:K(K$)E(1IN)(NP)1(X( ON TABLE"!, 8)"INSTALMENT OF ";X$Q@1)"PAID";P;"TIMES PER YEAR FOR";K;"YEARS"gJ1) PK;"PAY'TS"T"":33047,115h1)"PAY INTEREST PAYMENT OUTSTANDING"|1)"NO. ON DEBT ON PRINC. D '********************************E CALIFORNIA DRIVING TESTg WRITTEN BY: JAMES C. DOWNERz DATE 2/18/80 PROGRAM CAN BE USED FOR SIMILAR QUIZES. TWO LINES OF QUESTION AS DATA, + MARKS CORRECT ANSWER * MARKS A WRONG A (A$,1)"+"AI#X(A$):I;(A$,X1)*IUZ$:Z(Z$):ZAA1A11:"RIGHT":210Z1Z2Z3"NO SUCH NUMBER":190"WRONG";AX9300T TITIX9T 216(7)100, END6"END OF TEST": @"NUMBE " RIDDEN NEAR THE EDGE OF THE ROADWAY:"S"*IN THE OPPOSITE DIRECTION TO AUTO TRAVEL""+IN THE SAME DIRECTION ASAUTO TRAVEL""*IN EITHER DIRECTION, REGARDLESS OF AUTO TRAVEL" WHEN YOU COME TO A STOP SIGN YOU SHOULD",":" $"+STOP  E RIGHT CURB" `"*ANY LANE THAT IS OPEN"a j"YOU MAY GO THROUGH A RED LIGHT WITHOUT STOPPING IF YOU ARE" t" ORDERED TO DO SO BY A :" ~"*DOCTOR OR NURSE" "+TRAFFIC OFFICER OR FIREMAN ON DUTY" "*PROHIBITED AT ALL TIMES"* "DRIVINGTIME AS ANOTHER CAR COMING FROM"M " A CROSS STREET,YOU SHOULD YIELD THE RIGHT OF WAY TO:"j "*THE CAR ON YOUR LEFT" "+THE CAR ON YOUR RIGHT" "*NEITHER CAR" "IF YOU ARE GOING TO TURN, THE LAW REQUIRES THAT YOU GIVE A SIGNAL" " C"+USE BOTH ELECTRIC AND HAND-AND-ARM SIGNAL"DZ"*SOUND THE HORN INSTEAD OF SIGNALING"jd"YOU MAY NEVER ","MAKE A U-TURN"n"*ACROSS A DOUBLE LINE","+ON ABLIND CURVE","*ON A TWO-LANE HIGHWAY"x"WHEN YOU COME TO A CORNER WHERE THERE IS A FLASH1)N1$; N1IN:25000: 5)N1$;0 N1NS:25000:16)N1$;? 33)"NIL"S N1INNS:25000 X$N1$"":17)"LAST PAY'T:";N1$ 4000 OSNS J PKJ2080 4000 CCCC10 A$:A$""2980 D2$;:"DO YOU WANT TH22000:1100 h22000:(0): 6 NF1$""[ *NF2$" " 4NF3$" " >ND1$"" HN"";D1$;:8)F1$ RNS15:8)F2$:8)F3$: \N8)F2$:8)F1$:D1$""; fN15)]aN2(100N1.5)100:eN20N21N1$" $"((((N2),2))):26200deN210N1$" $"((N2),2):26200eN2100N1$" $" ((N2),2):26200eN21000N1$" $" ((N2),2):26200eN210000N1$" $" ((N2),2):26200e"0"fxiN110N1$" "((N1),2):27100=iN1100N1$" "((N1),2):27100PiN1$((N1),2)Vi|PN1 81274.6954 :N1$((N2),2)8Ǎ25000 ˙"N1:";N1:"N2:";N2:"R:";R:"N%:";N%:"NN%:";NN%:"N1$:";N1$$ ((N2),2):26200eNSWER / ********************************U[" CALIFORNIA DRIVING TEST"_\::]"PRESS ANY KEY TO START"^A$:A$""94dQ$,R$e""iQ$"99" 300nCC1xC;Q$;R$y:I13A$ R OF QUESTIONS";C6J"NUMBER RIGHT";A1;"NUMBER WRONG";CA1JTZCA1:Z5400p^"------ SORRY YOU FAILED-------"zh9999"********* YOU PASSED************"9999"EXCEPT WHERE SPECIAL BICYCLE LANES ARE PROVIDED, BICYCLES MUST BE""AT ALL TIMES"+ ."*SLOW DOWN AND STOP IF NECESSARY"R 8"*STOP, UNLESS NOTHING IS COMING" B"TO MAKE A LEFT TURN FROM A TWO-WAY STREET, YOU SHOULD START THE TURN: L":","+THE LANE CLOEST TO THE MIDDLE OF THE STREET" V"*THE LANE CLOSEST TO TH THROUGH PEDESTRIAN SAFETY ZONE MARKEDBY A RAISE BUTTON"A " OR MARKERS IS:"o "+PERMITTED IF THE ZONE IS NOT OCCUPIED" "*PERMITTED IF THERE IS A TRAFFIC LIGHT CONTROL" "*PROHIBITED AT ALL TIMES" "WHEN YOU REACH A CORNER AT THE SAME ONTINOUSLY:" "+DURING THE LAST 100 FEET"@ "*ONLY DURING THE LAST 50 FEET"c ("*ONLY WHILE MAKING THE TURN" 2"IF YOU ARE MAKING A TURN ON VERY BRIGHT AND SUNNY DAY, IT IS " <"CONSIDERED SAFEST TO:" F"*USE ELECTRIC SIGNAL ONLY"PING YELLOW LIGHT "."YOU MUST:","+SLOW DOWN AND CROSS CAREFULLY"h"*STOP BEFORE CROSSING ","*WAIT FOR THE GREEN LIGHT""UNDER THE 'BASIC SPEED LAW' YOU NEVER DRIVE"," FASTER THAN""*THE POSTED SPEED LIMIT","*THE FLOW OF TRAFFIC","+IT ISE TABLE TO CONTINUE?" A$:A$""3010. A$"Y"4000E 24000:0)"";B1$Y ""b"/B$o"f/Dd2;?33:?2"B$o"t/1$o"s@2$""AMORTIZATION" pN18)"TABLES" N* RS13000::b U"";:B1$" " VS024:B1$:3280740S,32: V"": ]C1$"    " ]"";:S110:1)C1$:  N2100000N1$" $" ((N2),2):26200;eN21000000N1$"$" ((N2),2):26200NeN1$((N2),2)}XfN2(N2)N1$N1$".00" :26300bfN210RN2(N210)10 :26220gfRN2lfN%10R :NN%100(R.005)f10N%NN%N1$N1$ *RESERVED FOR UNLOADING FREIGHT"Cl"WHEN A CURB IS PAINTED RED, IT"," MEANS:","*LIMITED TIME PARKING ONLY"v"+NO STOPPING OR PARKING","*RESERVED FOR UNLOADING FREIGHT""WHEN COMING TO A STOP AT A CORNER WHERE THERE IS A STOP SIGN YOU "" "*SPEED UP TO CLEAR TRAFFIC","+PULL TO RIGHT AND STOP"H"A PEDESTRIAN HAS THE RIGHT OF WAY AT", " A CORNER:""*ONLY WHEN CROSSWALK IS MARKED","+WHETHER OR NOT CROSSWALK IS MARKED""*ONLY WHEN TRAFFIC SIGNALS ARE WORKING""WHEN A  STRIAN CARRYING A WHITE" " CANE BECAUSE IT MEANS THAT HE IS:">"+BLIND","*CRIPPLED","*AN ELDERLYPERSON"n4"A SIGN WHICH READ 'WRONG WAY'"," MEANS :">"*A LANE TO USE WHEN YOU MIS THE PROPER TURN-OFF"H"*A LANE TO USE FOR REVERSIGN YOU ' *** INCREASE YOUR READING SPEED; MAX YODERAZ *** PET USER GROUPv SOFTWARE EXCHANGE PO BOX 516 MONTGOMERYVILLE, PA 18936$K$"^":N12% P$(20): V$(20)& N$(20): LW(40)4'"THIS * WATCH OUT FOR CORRECT PUNCTUATION!"/,:::46a-"PLEASE TYPE A NUMBER BETWEEN 1 & 40"."HOW FAST DO YOU WISH TO PLAY(1-40)";/ T: T40 T1 450SP(2.5T)1::2X$" " :C$"."3B$"THE ":Y$"A "4 I 1 N SAFE","WHEN ANOTHER CAR TRIES TO PASS YOU ON A TWO-LANE ROAD,"s" YOU SHOULD NEVER","+INCREASE YOUR SPEED","*MAINTAIN YOUR SPEED""*SLOW DOWN""IF YOU GET INTO A REAR WHEEL SKID,"," IT IS BEST TO:""*TURN YOUR STEERING WHEEL AWAYTO OPEN YOUR DOOR ON THE TRAFFIC"," SIDE:"H"+ONLY WHEN IT IS SAFE","*AT ALL TIMES WHILE PARKED"o""*TO LEAVE NOT TO ENTER YOUR CAR"@"YOU ARE REQUIRED TO MAKE A FINANCIAL REPORT AFTER AN ACCIDENT WHERE"J" DAMAGE TO ONE OF THE VEHICLES ISD FOR U-TURN &";|"+FOR THE BEGINNING OR ENDING LEFT TURNS","*FOR PASSING OR OVERTAKING"h"*FOR MAKING BOTH RIGHT AND LEFT TURNS""IF YOU REFUSE TO SUBMIT TO CHEMICAL TEST OF ALCOHOL IN YOUR BODY""AFTER YOU ARE ARRESTED FOR DRUNK DRIVINE A LEFT TURN","*ENTER A PRIVATE DRIVEWAY"."+OVERTAKE AND PASS A ANOTHER CAR"z"A FLASHING RED SIGNAL LIGHT AT A ROAD CROSSING MEANS THAT YOU SHOULD"":","+STOP,BEFORE CROSSING""*SLOW DOWN, BEFORE CROSSING","*WAIT FOR THE GREEN LIGHT" SOLDI WHITE LINE","+A BROKEN LINE","*A SOLID YELLOW LINE"]0"YOU MAY 'DOUBLE PARK'",":","+NOT AT ANY TIME","*WHEN MAKING A DELIVE:"*WHILE WAITING FOR A PASSENGER"D"YOU MAY 'DOUBLE PARK'",":","+NOT AT ANY TIME","*WHILE MAKING DELIVERYN"SHOULD STOP:","+IN BACK OF THE CROSSWALK","*AFTER CROSSING THE CROSSWALKH"*OUT FAR ENOUGH TO SEE CROSS TRAFFIC""WHEN HEARING A SIREN CLOSE BY,AND YOU ARE NOT IN INTERSECTION AT THE"" TIME, YOU SHOULD:","*DRIVE SLOWLY UNTIL IT HAS PASSED"SCHOOL BUS HAS STOPPED ON A HIGHWAY AHEAD OF YOU AND IS SHOWING7" A FLASHING RED LIGHT, YOU MUST:"q"+STOP UNTIL LIGHTS STOP FLASHING","*SLOW TO 10 MPH""*CHANGE LANES AND PASS CAUTIOUSLY""YOU MUST ALWAYS GIVE THE RIGHT OF WAY TO PEDENR DIRECTION"R"+STOP. YOU ARE GOING AGAINST TRAFFIC" 99,99' HING RED LIGHT, YOU MUST:"q"+STOP UNTIL LIGHTS STOP FLASHING","*SLOW TO 10 MPH""*CHANGE LANES AND PASS CAUTIOUSLY""YOU MUST ALWAYS GIVE THE RIGHT OF WAY TO PEDEPROGRAM IMPROVES YOUR READING SPEEDAND COMPREHENSION."}(:"ALTHOUGH SOME OF THE SENTENCES ARE NOT ENTIRELY GRAMMATICALLY";)" CORRECT, THE OBJECT IS TO BE ABLE TO COMPREHEND THEM CORRECTLY IN ";*" THE QUICKEST POSSIBLE TIME.";!+"***5 N$(I)6N$(I)N$(I)X$:'7 I 1 N38 P$(I)C9P$(I)P$(I)I:\;Z0:I 1 No<R1(2(1))1= R1 62,63>Q$B$:64?Q$Y$@ V$(I)AV$(I)V$(I)X$Q$BCR1(12(1))1DR2(12(1))1ER3(12(1) FROM THE SKID""*HOLD THE STEERING WHEEL STRAIGHT"L"+TURN YOUR STEERING WHEEL TOWARDS SKID""WHEN PASSING A SCHOOL WHILE CHILDREN ARE GOING TO SCHOOL"" THE SPEED LIMIT IS:""*35 MPH","*10 MPH","+25 MPH""YOU ARE PERMITTED  OVER $250"3T"+WHETHER OR NOT IT WAS YOUR FAULT","*ONLY IF IT WAS YOUR FAULT"T^"*ONLY IF YOUR NOT INSURED"h"A SPECIAL LANE IN THE MIDDLE OF THE TWO-WAY STREET, MARKED BY BROKEN"r" DOUBLE YELLOW LINES ON EACH SIDE OF THE LANE, MAY BE USEG, YOUR LICENSE WILL BE:"-"+SUSPENDED FOR 6 MONTHS","*PLACED ON PROBATION"W"*SUSPENDED UNTIL YOU TAKE THE TEST""WHEN THERE IS A SOLID DOUBLE LINE IN THE CENTER OF THE ROADWAY IT MEANS"" THAT YOU MAY NOT CROSS THE LINE TO:"*MAK "THE LAW SAYS THAT PASSENGER VEHICLE MAY"," NOT TOW:"d"*A SINGLE TRAILER","*ANOTHER PASSENGER VEHICLE","+MORE THAN ONE TRAILER""YOU MAYCROSS OVER A DOUBLE LINE ON THE ROAD TOPASS ANOTHER CAR IF"" THE LINE ON YOUR SIDE IS:"&"*A  *** FRENCH SPELLER ***7 *RON KNOX*=:tdE$(200),F$(200):I0 50:E$(I),F$(I)::59458,62nL$"CANADA ء ţ"xL1$"FRANCE * ŷ"B$"... ""d59468,14:"RENCH SPELLER-O YOU WANT INSTRUCTIONS"A$:A$"N"A$"Y"175(A$,1)"Y"5000"WHAT IS YOUR LEVEL OF DIFFICULTY";LD:LD3LD1190LD4LD:"":BP7:59468,12:P0:Q UT OF"QN"QUESTIONS RIGHT"?"YOUR RATING-"(PQN1000.5)10" %"q,"CARE TO PLAY AGAIN";A$:(A$,1)"N""":z6190C((0) 50):NM((0)2):NMA$F$(C):Q$E$(C):1020A$E$(C):Q$F$(C) 158,0:""(C$,22)15 ""20(AQ$)2)AQ$:15)"";# TI$"000000"H "";:U$:TI600LDU$""2010] TI600LD2100 (U$)31U$"["(U$)20(U$)132050 2010 (U$)132100 (U$)20X$""2010 (U$)20(X$)1X$"":" ";:2010 )1FR4(2(1))1G R4 72,73,HI$B$:746II$Y$XJA$I$N$(R1)V$(R2)P$(R3)C$kKL(A$):W1L5L"": I 1 1000:MA$NT 41(40LSP)O:PT1TIQ TIT1(41T)3 81R""S"WHAT DID I TELL YOU "- `"THE ^ INDICATES WRONG OR MISPLACED LET- TERS. "J aCOMP(LC100(L1)):99s bSCSC1: (SC).25(SC4) SPSP1~ c"" d"YOUR SPEED WAS "SPEED" WORDS PER MINUTE AT A COMPREHENSION OF "; eCOMP" %." f I 1 (L1):LW(I)0: TE,SHED,HOUSE,TRACTOR,TRUCK,CAR,THRASHER,COMBINE,PLOW,DISCx o JUMPED,STOMPED,RAMMED,RAN,WALKED,STOOD,LAY,PLAYED,CRUSHED,PUSHED,KISSED p TROMPLED q YEW,RAM,HEN,ROOSTER,FILLY,STALLION,MARE,BARROW,GILT,HORSE" %." f I 1 (L1):LW(I)0: ENCH":3050 AQ$AQ$"ENGLISH"- AQ$AQ$" FOR '"Q$"'"P ""20(AQ$)2)AQ$""k TH1500(0)750:TH YR14LD:PL((0)258):IY125:PL)LI$""  BPPL1BP9PL4000  YT110:YT:PL)EL$"":YT110:YT,IYRANCE.";"O ADVANCE THE SHIP YOU MUST ANSWER THE CORRECT -";i" TRANSLATION TO EACH QUESTION ASKED.""ƠYOU ARE TOO SLOW IN ANSWERING A QUESTION OR ANSWER ";"INCORRECTLY A STORM WILL DEVELOP AND LIGHTNING WILL TO CARRY,PORTER,TO TALK,PARLER,TO OPEN,OUVRIRbTO SNOW,NEIGER,TO EAT,MANGER,TO GET UP,SE LEVER,TO PLAY,JOUER,TO FINISHFINIR,TO DO,FAIRE,TO STUDY,ETUDIER,TO HAVE,AVOIR,TO TEACH,ENSEINERTO SLEEP,DORMIR,TO TELL,DIRE,TO BELIEVE,CROIRETO  "lRB$"...  ߒ ":EB$"   "O$"Ҥ"C$" "LI$"":EL$"     "%S$N0:NH0!QNQN1:1000:X$A$3000TBPBPBPLD:216,17::BP)EB$"":6)O$""{BP1)B$:YU1200:YU:BP27BPPP1:BP27205I11500:I:"CONGRATULATIONS! YOU MADE IT TO THE""WORLD OF FRENCH...":"YOU ANSWERED"P"O)(C$,30)9);3 (C$,34)5)(C$,37)3)(C$,39)2)(C$,39);a 3)(C$,37)6)(C$,34)9)(C$,30)"" L$,,,L1$""O$"":BP)B$ $AQ$"WHAT IS '"Q$"' IN " .NMAQ$AQ$"FRENCH?":1090 8AQ$AQ$"ENGLISH?" BX$"":216,8::(U$)20X$(X$,(X$)1):" ";:20105 *""U$;:X$X$U$:2010A 4" ":r ""(S$,21)15)(S$,29)9); (S$,33)5)(S$,36)3)(S$,38)2)(S$,38); 3)(S$,36)6)(S$,33)9)(S$,29) AQ$"'"A$"' IS ":NMAQ$AQ$"FRT D$ U"YOU SAID:" VD$""7 W A$D$ COMP100:98t X I1 L1:M$(A$,I,1):N$(D$,I,1): M$N$ LC LC1 Y M$N$ LWLW1:LW(I)I Z I ["THE STATEMENT WAS:" \A$ ] I 1 L1 ^ LW(I)I I1);K$"" _ II g"PUSH ANY KEY TO CONTINUE"D h"IF YOU PUSH THE 'F'KEY, I WILL SPEED UP!"Z i A$: A$"" 105q j A$"F" SPSP1 kL0:LC0:LR0:COMP0:T10: l67 m FOX,DOG,CHICKEN,COW,MULE,DONKEY,PIG,BOAR,SOW,BULL,DUCK,GANDER* nBARN,FENCE,GA CHANGE,CHANGER,TO BUY,ACHETER,TO CLOSE,FERMER^ONE,UN,TWO,DEUX,THREE,TROIS,FOUR,QUATRE,FIVE,CINQ,SIX,SIX,SEVEN,SEPTEIGHT,HUIT,NINE,NEUF,TEN,DIX,ELEVEN,ONZE,TWELVE,DOUZE,THIRTEEN,TREIZEFOURTEEN,QUATORZE,FIFTEEN,QUINZE,SIXTEEN,SEIZE,SEVENT  YR:205) NHNH1:NF112(0)9:XZ1100:XC14W PL)LI$:""BP)RB$"":XC:XC14 PL)EL$:""BP)B$"":XC,NF NH3205 "YOU SUNK YOUR SHIP!":300 "N THIS PROGRAM YOU ARE ON A SHIP EN ROUTE TO  STRIKE."+"FTER 3 HITS YOUR SHIP WILL SINK":"Ġ !"w"ӠŠΠŠĠԠŠ":" 1 TO 3 (1-EASY, 3-HARD)"}pTO BE,ETRE,TO GO,ALLER,TO LISTEN,ECOUTER,TO WORK,TRAVAILLER,TO RETURNzRENTRER,TO WATCH,REGARDER, )d"MORSE JIM BUTTERFIELD"5nM(255)_x 63,62,60,56,48,32,33,35,39,47,0,0,0 0,0,0,0,6,17,21,9,2,20,11,16,4 30,13,18,7,5,15,22,27,10,8,3,12,24 14,25,29,19M(32)1:J4890:M(J):JM159467:M259466:M359464 PIN CB2)"0"FOR THE TEST, KEY IN THE CHARACTER"U" YOU BELIEVE THAT PET SENT..."n "TEST OR SEND";Z$" (Z$)84E1:350,TI$"000000"6Z$:Z$""310@E0(Z$)M6"";:Z$(M6)JMM((Z$)):M0310TZ$;"";:M138 459468,14:"HIS PROGRAM WRITTEN BY"O". ROCHMANN"k"ALMORAL COOL""ORTH ANCOUVER, .."X15000::59468,12"MISTAKES IN YOUR ANSWER MAY BE" "ERASED BY PUSHING THE ASTERISK (*) d"TYPE IN YOUR ANSWERS, THEN HIT 'RETURN'KnA$(1)"SEQUENCES":A$(2)"*EQ*"wx"";:14000:15000}CF0140CF150,160"":"NO, I'M AFRAID THAT'S NOT RIGHT":"TRY AGAIN"16000:10 "THAT'S RIG16000N3N0N1SE$""RQ1N:20000:"":9Q)S$:T11000::~"THERE WERE "N" LETTERS THAT TIME"WHAT WERE THEY?"YOU SHOULD TYPE THEM IN"ONE AT A TIME, AND THEN HIT 'RETURN'""":14000 ,TO TRY SEQUENCING0 "TYPE IN A NUMBER, AND HIT 'RETURN'; 14000Q &N(R$):N10600Z 0235 X"I THINK THAT "N" IS TO MANY.":"PLEASE GIVE ANOTHER NUMBER" b16000:"":410  L6***************************** M6* EEN,DIX-SEPT4EIGHTEEN,DIX-HUIT,NINETEEN,DIX-NEUF,TWENTY,VINGT,THIRTY,TRENTE|FORTY,QUARANTE,FIFTY,CINQUANTE,SIXTY,SOIXANTE,SEVENTY,SOIXANTE-DIXEIGHTY,QUATRE-VINGTS,HUNDRED,CENTCAT,CHAT,DOG,CHIEN,WINDOW,FENETRE,WINTER,HIVER,SUMMER,ETE14010 6M1(R$):"";::"";* 6M1(R$):" ";:H 6M1(R$):"";::14000l :******************************r : : RESULTS IN A$(X) - STARTING : WITH X=1 BEING COMPARED TO : R$. * MAY BE USED BEFORE AND/ : OR AFTER PATTE1A$(A$(X),1,(A$(X))1):15600!:A$A$(X):15600F(L(216):216,20:"":"TO CONTINUE, PUSH 'RETURN'>I$:I$"+ VOL-UN-TAR-Y,TO DO SOMETHING,FREELYP TO-MOR-ROW,THE DAY AFTER,TODAYWZa1100g::THIS PROGRAM HAS BEEN PREPARED: THE PURE OF ASSISTING:STUDENTS IN THE RECOGNITI: USE OF SYLLABLES AS AN AID : ING. SEPTS3:P200: SPEED/PITCH/"INSTRUCTIONS";Z$A(Z$)78280d"THIS PROGRAM WILL EITHER--"" SEND MORSE FROM KEYBOARD INPUT; OR,"" TEST YOU ON MORSE RECOGNITION.""AN AUDIO AMPLIFIER MUST BE CONNECTED""TO YOUR PET (0-^E0M6((1)4348):M7M(M6):MM7:M72350XhTTI((M1)21)S:M1,16:M2,15:M3,PfrTTI370w|TTIS:M1,0TTI390M(M2):M1360TT2STTI420300dAUDIO AMPLIFIER MUST BE CONNECTED""TO YOUR PET (":X15000:2 "THE PURPOSE OF THIS PROGRAMS"IS TO GIVE YOU PRACTICE INp"REMEMBERING SEQUENCES.{(160002"THE PURPOSE OF THIS PROGRAM<"IS TO GIVE YOU PRACTICE INF"REMEMBERING....PZ"WHAT WAS THAT WORD?(HT, PRACTICING SEQUENCES":16000:200O:"CLOSE, BUT YOUR SPELLING IS WRONG"^16000:10"I AM NOW GOING TO FLASH SOME LETTERS"ONE AT A TIME":"YOU WILL TRY TO REMEMBER THEM""AND THEN TYPE THEM IN, ONE AT A TIME":R$SE$400% 6"I'M AFRAID THAT'S NOT RIGHT"A @"THE LETTERS WERE "SE$g J"YOU SHOULD TRY THIS AGAIN WITH T"FEWER LETTERS":16000:430 "" "THAT'S RIGHT!":16000 "YOU MAY NOW CHOSE HOW MANY LETTERS "YOU WOULD LIKE N6* INPUT ACCEPT SEQUENCE. O6*/ P6* RETURNS INPUT AS R$@ Q6* USES X$,Mc R6*****************************u 6R$"":" "; 6X$:X$""14005 6X$:X$""14010 6X$(13)R$""14000 6X$(13) 6X$"*"14050 6X$;:R$R$X$:),SPRINGPRINTEMPS,AUTUMN,AUTOMNEFERMER^ONE,UN,TWO,DEUX,THREE,TROIS,FOUR,QUATRE,FIVE,CINQ,SIX,SIX,SEVEN,SEPTEIGHT,HUIT,NINE,NEUF,TEN,DIX,ELEVEN,ONZE,TWELVE,DOUZE,THIRTEEN,TREIZEFOURTEEN,QUATORZE,FIFTEEN,QUINZE,SIXTEEN,SEIZE,SEVENTRN TO BE FOUND : FIRST MATCH RETURNS CF=X." :F :******************************S :X1:CF0b ::LF0:RF0r :A$(X)"" :(A$(X),1)"*"LF1 :(A$(X),1)"*"RF1 :LF1RF115500 :LF1A$(A$(X),2,(A$(X))1):15600 :RF"16010*>216,20:"":" ":216,L:""0>] NY((0)27):X1Y:S$:::SE$SE$S$:*NA,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z*"RF1 :LF1RF115500 :LF1A$(A$(X),2,(A$(X))1):15600 :RF EMBER 1980.:1:THIS PROGRAM HAS BEEN PLACEDO: IN THE PUBLIC DOMAINU:jL 20010: CREDIT~V 21010: TITLE` 22010: INSTRUCTIONSj30100!N:"N: CREDIT#N:*N"":59468,144N" HIS PROGRAM HAS BEEN PREPARE ";:A$"SYL":B$"LA":C$"BI":D$"CA":E$"TION"BRA$;:D30:21700\&R""B$;:D25:21700u0R""C$;:D21:21700:R""D$;:D17:21700DR""E$;:D13:21700NRS100:T3:26010XR"SYLLABICATION"bRX12000:l Y]: ]: R$ ]:" ]R$"":" ";8 ]X$:X$""24020N ]X$:X$""24030h ]X$(13)R$""24030~ ]X$(13)"";: ]X$"*"24100 ]X$;:R$R$X$:24030 $^"";:M1(R$):"";: .^M1(R$):" ";: 8^M1(R$):"";:  aA$A$(X):25600+ 8cA$(A$(X),2,(A$(X))1,):25600H cA$(A$(X),2,(A$(X))2)W dY1(R$)t d(R$,Y,(A$))A$CFX:z d dXX1:25010 e: e: PRODUCES NING LIGHTS e: Z SPEED: T TIMES e: eX1T e:Y3316833207:040 iE$E$(S$,X,1):X(S$)SS1:S$(S)E$3 iDS$DS$(S$,X,1); i:A `m:V am: CURS ITIINGm bm: L LINE CCOLUMNs cm: jm"";:X2L:::C);: 0u: 1u: MAIN SEQUENCE 2u: 3u:S$ 4u:DS$DESYLLABIZED S$ 5u:S$(1)S$(9) AIN0y: y: LEARN MEANING OF WDy:J"y"WE WILL NOW STUDY THE WORD":""DS$^,yT3:Z10:26010i6y32010Jy""EL$:"THE WORD":"MEANS "M$" "KW$Ty32010^y""EL$hy"LET'S SEE IF YOU REMEMBER 050yL12:C0:28010:E113:EL$::|3101031999%}:;}: PRESS INUEA}:x }"":X110:""::"TO CONTINUE, PRESS RETURN"}A$:A$""32020}A$:A$""32030(}""EL$::: INSTRUCTIS:"":X110:YPE IN THE FIRST SYLLABLE"AND THEN HIT 'RETURN'4 L16:C6:28010:24010VX16:EL$::L18:C0:28010wR$S$(1)36010:ST$:34100 37010:AD$*X12000::""EL$:340104X12000::""EL$:X11000:>Q2SCL18:C000:""EL$:1L20:C0:28010:"MAKE SURE YOU REMEMBER THE "S" SYLLABLES"<32010pʅ"WHAT ARE THE "S" SYLLABLES OF THE WORDԅ""DS$" ?"ޅ:Q1S:Q::腍33010L7:28010Q1S::5); 24010:R$S$ THE WD:ˆ"WE WILL NOW SEE IF YOU CAN SPELL THE)̈"WORD "DS$Jш33010:L8:C5:28010:24010\ֈR$DS$35100"":37010:AD$:X11000::"WE'LL DO THAT AGAINꈁX12000::""EL$:""EL$ :L8:C5:28010:EL$35025D BY":'HN" AROLD ROCHMANN":KRN" 3264 T. EORGES V.o\N" ORTH ANCOUVER, ..pN" 7 13@QX120EQ: ""P$;:Y110:RX15000::"":59468,12: R: R: TITLE R:-R"R TP33204332088TXPPD1:X1,(X):X,32:21750::>TNTT110::Z(UX120f-U""P$;~2U T1(P$):"";:DЄ:^ф: SYLLABICATI SECTId҄:}ڄ"":L10:C8:28010䄙"THE WORD "DS$:L12:C3:28010"IS SYLLABIZED LIKE THIS:L15:C6:28010:S$"T0:28010:X16:EL$::38010,HL18:C0:28010:"GIVE THE NEXT SYLLABLE"\RL16:V1Q:CC(S$(V1))::CCQ5:28010w\24010:R$S$(Q)34200f:::37010:AD$:X12000:p:""EL$:EL$:28010:EL$:34120:::36010:ST$:X11 (Q)3440037010:" "AD$:X12000:'$:""EL$:""5);:343154V:34500S`36010:" "ST$ :34390Ć"CONGRATULATIONS... YOU HAVE MASTERED"Ά"THE SYLLABICATION OF THE WORD":؆DS$::S$:32010솎:: SPELL "YES YOU SPELLED " DS$:"CORRECTLY>&"WE ARE GOING TO TRY THIS ONE MORE TIME":32010:""q0L10:C0:28010:"TYPE "DS$" HERE":X12000::L10:C5:28010:EL$:L10:C5:28010:24010DR$DS$35200N"":37010:AD$:"YOU WILL H ҌST$(5)"YES, YOU ARE RIGHT !"܌ST$(6)"THAT'S THE STUFF !"*ST$(7)"YES !!"DST$(8)"THAT'S RIGHT"^ST$(9)"GOOD FOR YOU"pB((1)91){ Z(O) 38010ST$ST$(B)::: S AD$:38010AD$(1)"SORRY - WR UAD$(0)"THAT'S NOT RIGHT... "ZB((TI)10)dAD$AD$(B):p:0q: SCREEN GANIZER6r:UzX224248:X,(X)128::@"C O N G R A T U L A T I O N S"A"YOU HAVE FINISHED....B"PLEASE SHOW THIS TO YOUR TEACHER.C <L**K,EE,0600PRNOW LET'S LEARN ABOUT THOSE THINGSVQP2THAT DO CHANGE.,RR|VEE,"0312PRSUBJECTS CHANGE:",D1[0800PRFOR INSTANCE IF WE WANT TO SAY,D1`"P2I DO SOMETHING, THEN WE PUT A JE",D1eP2IN FRONT OF THE FRENCH VERB,HE,D1,1419PR=,D1,1422PRELLE,D1Q1800PRLEARN THESE FRENCH WORDS BEFORE GOING ON,RR**L,EE,"0500PRWHAT IS THE FRENCH WORD FOR I?"0916PRI,0919PR=1700PRALWAYS WAIT FOR THE BLINKING SQUARE THEN,1700PB88YALWAYS"1900PRTYPE YOUR ANSWU MAKE A MISTAKE HIT THE * KEY).0914PRYOU,0919PR=PM1TU,O1PARFAIT (PERFECT),J1NwM0,O0PAS (NOT) CORRECT,J0P,0922RQ**N,EE,"0500PRWHAT IS THE FRENCH WORD FOR HE?"0915PRHE,0919PR=M1IL,O1BON (GOOD),J1O M0,O0PAS (NOT) COR6PRI,D1,0819PR=,D1,0822PRJE,D1; 1014PRYOU,D1,1019PR=,D1,1022PRTU,D1c 1215PRHE,D1,1219PR=,D1,1222PRIL,D1 1414PRSHE,D1,1419PR=,D1,1422PRELLE,RR EE,"0500PRWHAT IS THE FRENCH WORD FOR I?" 0916PRI,0919PR= "1900PRTYPE YOUR ANSWER D1 1014PRYOU,D1,1019PR=,D1,1022PRVOUS,D1\ 1022PB59YVOUS,1027PR?,D1,1029PR?,D1,1031PR?,D1,1033PR?,D1 1700PRNOW HOLD ON A SECOND!,P2WE JUST LEARNED THAT YOU = TU! RR,EE,0400PRI'M SO GLAD YOU NOTICED P2THIS LITTLE PROBLEM.,D1 ** 12EL,1515EL,1717EL,1919EL051214PRYOU,D1,1219PR=,D1,1222PRVOUS,D1{71500PRWHEN YOU'RE TALKING TO,1702PR1. A PERSON YOU'RE BEING FORMAL TO<D1,1805PRLIKE YOUR TEACHER OR YOUR PRINCIPAL>2002PR2. MORE THAN ONE PERSON,RRAEE,"0400PRWHAT IS THE FRENCH WORD FOR YOU"1FP2WHEN YOU'RE SPEAKING TO YOUR FRIEND?eH"2000PR(TYPE YOUR ANSWER FOLLOWED BY RETURN"IP2(IF YOU MAKE A MISTAKE HIT THE * KEY)KM1TU,O1TRES BIEN (VERY GOOD),J1SUM0,O0LET'S REVIEW IT,J0R,1015RQZ**S,EAVE TRY THAT AGAIN"S:X12000:X35010I"GOODWE WILL NOW LEARN ABOUT ANOTHER WORD":32010O`3501035900f:|: S ST$ AT ROM:ST$(1)"GOOD !"ST$(2)"GREAT !"ST$(3)"FINE !"ȌST$(4)"RIGHT !"ONG !"AD$(2)"TOO BAD !"AD$(3)"NOPE !"/AD$(4)"I'M AFRAID THAT'S NOT RIGHT !"\AD$(5)"YOU WILL HAVE TRY THAT AGAIN !"oQAD$(6)"NO..."RAD$(7)"ONCE MORE !"SAD$(8)"AGAIN PLEASE... "TAD$(9)"NEXT TIME YOU'LL GET IT ! "!"AD$(2)"TOO BAD !"AD$(3)"NOPE !"/AD$(4)"I'M AFRAID THAT'S NOT RIGHT !"\AD$(5)"YOU WILL HAVE TRY THAT AGAIN !"oQAD$(6)"NO..."RAD$(7)"ONCE MORE !"SAD$(8)"AGAIN PLEASE... "TAD$(9)"NEXT TIME YOU'LL GET IT ! "D13j"P2BECAUSE THE WORD I IN FRENCH IS JE",RRpo0814EL,0600PRLET'S LEARN ALL THE SUBJECTS IN FRENCH.,RRt0606EL,0816PRI,D1,0819PR=,D1,0822PRJE,D1y1014PRYOU,D1,1019PR=,D1,1022PRTU,D1~1215PRHE,D1,1219PR=,D1,1222PRIL,D11414PRSER FOLLOWED BY RETURN>P2(IF YOU MAKE A MISTAKE HIT THE * KEY)YM1JE,O1BON (GOOD),J1MM0,O0PAS (NOT) CORRECT,J0P,0922RQ**M,EE,"0500PRWHAT IS THE FRENCH WORD FOR YOU?""1900PRTYPE YOUR ANSWER FOLLOWED BY RETURN"P2(IF YORECT,J0P,0922RQ< **O,EE,"0500PRWHAT IS THE FRENCH WORD FOR SHE?"S 0914PRSHE,0919PR={ M1ELLE,O1TRES BIEN (VERY GOOD),J1Q M0,O0PAS (NOT) CORRECT,J0P,0922RQ **P,EE,0200PRHERE IS THE LIST AGAIN.,P2MEMORIZE IT BEFORE GOING ON. 081FOLLOWED BY RETURN3 P2(IF YOU MAKE A MISTAKE HIT THE * KEY)N M1JE,O1BON (GOOD),J1Mu M0,O0PAS (NOT) CORRECT,J0P,0922RQ **Q,EE,"0312PRSUBJECTS CHANGE:",0600PRHERE'S THE REST OF THE LIST D9,0606EL,0815PRWE,D1,0819PR=,D1,0822PRNOUS,R,EE,"0500PRYOU SEE, IN FRENCH YOU IS EITHER"^ #"P2TU OR VOUS DEPENDING",P2ON WHO YOU'RE TALKING TO.,D1 (1214PRYOU,D1,1219PR=,D1,1222PRTU,D1 -1500PRWHEN YOU'RE TALKING TO,1703PR1. ONE FRIEND /P22. ONE MEMBER OF YOUR FAMILY2RR,12 E,"0400PRWHAT IS THE FRENCH WORD FOR YOU"?_P2WHEN YOU'RE SPEAKING TO YOUR MOTHER?sa"2000PR(TYPE YOUR ANSWER FOLLOWED BY RETURN"bP2(IF YOU MAKE A MISTAKE HIT THE * KEY)dM1TU,O1EXCELLENT,J1TnM0,O0LET'S REVIEW IT,J0R,1015RQs* TO THE PRINCIPAL?M1VOUS,O1PARFAIT (PERFECT),J1VAM0,O0LET'S SEE IT AGAIN,J0R,1015RQv**V,EE,0300PRSO THAT WE CAN TELL THE DIFFERENCE"P2BETWEEN TU AND VOUS,",P2LET'S SAY1111PRYOU (1),D1,1119PR=,D1,1122PRTU,D11311PRYOU ( :"D1,0815PRWE,D1,0819PR=,D1,0822PRNOUS,D1>1011PRYOU (2),D1,1019PR=,D1,1022PRVOUS,D1i1213PRTHEY,D1,1219PR=,D1,1222PRILS,D11413PRTHEY,D1,1419PR=,D1,1422PRELLES,D11422PB19YELLES,1222PB19YILS,1422PB19YELLES,1222PB19YILS1422P 0804PR1. WHEN THEY ARE A GROUP OF BOYSE1004PR2. WHEN THEY ARE A GROUP OF BOYS,1107PRAND GIRLS,RRr 1413PRTHEY,D1,1419PR=,D1,1422PRELLES,D11704PR1. WHEN THEY ARE A GROUP OF GIRLS,RREE,"0400PRWHAT IS THE FRENCH WORD FOR THEY",1215RQ'**X,EE,"0400PRWHAT IS THE FRENCH WORD FOR THEY"T,P2WHEN YOU'RE SPEAKING ABOUT,"P2MARC, LOUISE AND MARIE?"o1M1ILS,O1EXCELLENT,J1Y3M2IL,O2YOU FORGOT THE S. IT'S ILS,J2X6M0,O0LET'S SEE IT AGAIN,J0W,1215RQ;**Y,EE,"0400PRL THE DIFFERENCEY"P2BETWEEN ILS AND ELLES,",P2LET'S SAYC^0910PRTHEY (M),D1,0919PR=,D1,0922PRILS,D1tc1110PRTHEY (F),D1,1119PR=,D1,1122PRELLES,D1h1400PRTHIS WILL BE EASY TO REMEMBER SINCEm"P2YOU USE ILS WHEN SPEAKING ABOUT"rD1,1019PR=,D1,1022PRVOUS,D11210PRTHEY (M),D1,1219PR=,D1,1222PRILS,D1K1410PRTHEY (F),D1,1419PR=,D1,1422PRELLES,D1{1900PRLEARN THESE WORDS BEFORE GOING ON,RR**BB,EE,"0500PRWHAT IS THE FRENCH WORD FOR WE?"0915PRWE ="1900UR ANSWER FOLLOWED BY RETURN"P2(IF YOU MAKE A MISTAKE HIT THE * KEY)3M1VOUS,O1PARFAIT,J1DDYM0,O0LET'S REVIEW IT,J0AA,0922RQ**DD,EE,"0500PRWHAT IS THE FRENCH WORD FOR THEY (M)?"0910PRTHEY (M) =M1ILS,O1EXCELLENT,J1EE J0AA,0922RQ **FF,EE,0400PRNOW THAT WE KNOW ALL THE SUBJECTSB P2LET'S LEARN ABOUT THE LAST THINGS,P2THAT CHANGE,RRk EE,"0308PRVERB ENDINGS CHANGE",D1 "0700PRFIRST WE TAKE AN ER VERB",D1 1718PRPARLER,RR "0900PRTHEN WE DROP THE ER",D1 1722PB58NER,RR!"1100PRTHEN IF THE SUBJECT IS JE",D1K!!1715PB58YJE,RR,"1300PRWE ADD THE VERB ENDING E",D1^!&1722PB58YE,RR!+EE,0400PRLET'S LOOK AT A DIFFERENT EXAMPLE,D1!0P2THIS TIME WITH THE ENGLISH,RR!5EE,"0308*T,EE,"0400PRWHAT IS THE FRENCH WORD FOR YOU"PxP2WHEN YOU'RE SPEAKING TO YOUR FRIENDS?,D1,0635PB58YSl}M1VOUS,O1TRES BIEN,J1UM0,O0LET'S REVIEW IT,J0R,1015RQ**U,EE,"0400PRWHAT IS THE FRENCH WORD FOR YOU"P2WHEN YOU'RE SPEAKING 2),D1,1319PR=,D1,1322PRVOUS,D1/1600PRTHIS WILL BE EASY TO REMEMBER SINCEa"P2WHEN SPEAKING TO 1 FRIEND YOU USE TU""P2WHEN SPEAKING TO 2 FRIENDS YOU USE VOUS",RREE,0600PRNOW BACK TO OUR LIST,RREE,"0312PRSUBJECTS CHANGEB19YELLES,1222PB19YILS11226PR?,1428PR?,1228PR?,1430PR?,1230PR?,1432PR?,1232PR?{1800PRNOW JUST A SECOND!,"P2HOW CAN THEY BE TWO WORDS IN FRENCH ?"RR,EE,0400PRTHERE IS A SIMPLE ANSWER,D1**W,EE,0513PRTHEY,D1,0519PR=,D1,0522PRILS,D1P2WHEN YOU'RE SPEAKING ABOUT,"P2PAUL, ROGER AND HENRI?"D"1900PRTYPE YOUR ANSWER FOLLOWED BY RETURNqP2(IF YOU MAKE A MISTAKE HIT THE * KEY)M1ILS,O1TRES BIEN,J1XM2IL,O2YOU FORGOT THE S. IT'S ILS,J2X"M0,O0LET'S SEE IT AGAIN,J0WWHAT IS THE FRENCH WORD FOR THEY"=@P2WHEN YOU'RE SPEAKING ABOUT,"P2ANNE, JACQUELINE AND MONIQUE?"XEM1ELLES,O1PARFAIT,J1ZJM2ELLE,O2YOU FORGOT THE S. IT'S ELLES,J2YOM0,O0LET'S SEE IT AGAIN,J0W,1215RQT**Z,EE,0200PRSO THAT WE CAN TEL"P1MALES OR ABOUT A MIXED GROUP (M)."Dw"P2YOU USE ELLES WHEN SPEAKING ABOUT","P1FEMALES (F).",RRj|EE,0400PRNOW BACK TO OUR LIST,D1**AA,EE,"0312PRSUBJECTS CHANGE:"0815PRWE,D1,0819PR=,D1,0822PRNOUS,D11011PRYOU (2),PRTYPE YOUR ANSWER FOLLOWED BY RETURN"#P2(IF YOU MAKE A MISTAKE HIT THE * KEY)@M1NOUS,O1TRES BIEN,J1CCfM0,O0LET'S REWIEW IT,J0AA,0922RQ**CC,EE,"0500PRWHAT IS THE FRENCH WORD FOR YOU (2)?"0911PRYOU (2) ="1900PRTYPE YOM2IL,O2NO. THAT MEANS HE,J2DDM0,O0LET'S REVIEW IT,J0AA,0922RQO**EE,EE,"0500PRWHAT IS THE FRENCH WORD FOR THEY (F)?"f0910PRTHEY (F) =M1ELLES,O1TRES BIEN,J1FFM2ELLE,O2NO. THAT MEANS SHE,J2EEM0,O0LET'S SEE IT AGAIN, PRVERB ENDINGS CHANGE",D1":"0600PRWE'LL USE THE SAME ER VERB AGAIN",D1'"?1718PRPARLER,D1>"D1915PRTO SPEAK,RRe"I"0800PRFIRST WE DROP THE ER",D1"N1722PB58NER,1915PB58NTO,RR"S"1000PRTHEN IF THE SUBJECT IS IL",D1"X1715PB58YIL kM0,O0I DIDN'T UNDERSTAND SO WE'LL GO BACK,J0FF,1318RQ#$l**GG,EE,"0308PRVERB ENDINGS CHANGE"Q$q0600PRHERE IS A LIST OF THE VERB ENDINGSu$vP2THAT GO WITH EACH SUBJECT,RR${0606EL,0808EL$0809PRJE ...E,D1,P2TU ...ES,D1,P2IL ...E,D1$ G SQUARE THEN,1713PB68YBLINKING&"1900PRTYPE YOUR ANSWER FOLLOWED BY RETURN";&P2(IF YOU MAKE A MISTAKE HIT THE * KEY)U&M1E,O1TRES BIEN,J1IIw&M0,O0PAS CORRECT,J0EE,0823RQ&**II,EE,"0400PRWHAT IS THE VERB ENDING FOR TU?",0816PRTU PA M0,O0PAS CORRECT,J0EE,0823RQ (**KK,EE,"0400PRWHAT IS THE VERB ENDING FOR ELLE?",0814PRELLE PARL:(M1E,O1TRES BIEN,J1LL\(M0,O0PAS CORRECT,J0EE,0823RQ(**LL,EE,"0400PRWHAT IS THE VERB ENDING FOR NOUS?",0814PRNOUS PARL(M1ONS,O1PARTHE VERB ENDING FOR ILS?",0815PRILS PARL) M1ENT,O1TRES BIEN,J1OO*M0,O0PAS CORRECT,J0PP,0823RQg***OO,EE,"0400PRWHAT IS THE VERB ENDING FOR ELLES?",0813PRELLES PARL*M1ENT,O1PARFAIT,J1QQ* M0,O0LET'S REVIEW IT,J0PP,0823RQ*%**PP,1421PRELLES ...ENT,RR ,CEE,"0400PRWHAT IS THE VERB ENDING FOR NOUS?",0814PRNOUS ...&,HM1ONS,O1TRES BIEN,J1MMF,MM0,O0INCORRECT,J0PP,0822RQ,R**QQ,EE,0400PRCONGRATULATIONS YOU NOW KNOW IT ALL!,D1,(#S,'X,' DETERMINE POSITION,'-'C$"J"15610-'C$"C"23010-'C$"O"15510-'C$"S"X11000::199.'C$"*"FQ118010'.'C$"*"100109.'C$"D"17010K.'C$"I"19010].'C$"B"19110z.(C$"U"59468,12:10010. (C$"L"59468,14:10010.)C$: "INCORRM$"2"12300/&/CM$"B"12600/0/CM$"C"12700/C/"MODIFIER INCORRECT":10010 0D/CA$:10010'0/"";:LL1:CA$:10010D0 0"";:LL2:CA$:10010m0p0X1(CA$):(CA$,X,1)"";::1001000X1(CA$):(CA$,X,1)"";::10010081N((CA$, A$;:TT(CA$):1001012 ERASE PROCEDURES12CM$"E"1310012CM$"L"13200 22CM$"C"1330022CM$"R"13400-2,3"";:10010Y23X32768L4032807T40:X,32::1001023"";:EA$"":X0TL:EA$EA$" ":23X124:L)EA$::100102X4L2((CA$,1,2)):T2((CA$,3,2))2b4EA$"":X0T2T:EA$EA$" ":: 3l4"";:X1L:"";::XLL21 3v4T)EA$::10010.36GRAPHICSF36G(CM$):G620000V36G1120060a3620120t37CM$(CO$,3,1)37CM$""142103(7CM$"E"14220327C,D1,1915PB58YHE,RR"]"1200PRWE ADD THE VERB ENDING E",D1#b1722PB58YE,1923PB58YS,RRZ#eEE,0600PRDO YOU WANT TO SEE THOSE,P2TWO EXAMPLES AGAIN?#g"1900PRTYPE YES OR NO FOLLOWED BY RETURN"#iM1YES,O1OK,J1FF#jM2NO,O2ALRIGHT,J2GG#1407PRELLE ...E,D1,0822PRNOUS ...ONS,D1,P2VOUS ...EZ,D1%%1223PRILS ...ENT,D1,1421PRELLES ...ENT,D1W%1800PRLEARN THESE ENDINGS BEFORE GOING ON,RR%**HH,EE,"0400PRWHAT IS THE VERB ENDING FOR JE?",0816PRJE PARL%1700PRWAIT FOR THE BLINKINRL&"1900PRTYPE YOUR ANSWER FOLLOWED BY RETURN'P2(IF YOU MAKE A MISTAKE HIT THE * KEY)4'M1ES,O1PARFAIT,J1JJV'M0,O0PAS CORRECT,J0EE,0823RQ'**JJ,EE,"0400PRWHAT IS THE VERB ENDING FOR IL?",0816PRIL PARL'M1E,O1EXCELLENT,J1KK'FAIT,J1MM(M2ON,O2YOU FORGOT THE S. IT'S ONS,J2LL)M0,O0INCORRECT. LET'S REVIEW,J0PP,0823RQb)**MM,EE,"0400PRWHAT IS THE VERB ENDING FOR VOUS?",0814PRVOUS PARL})M1EZ,O1EXCELLENT,J1NN)M0,O0NON,J0PP,0823RQ)**NN,EE,"0400PRWHAT IS EE,0400PRHERE IS THE LIST OF VERB ENDINGS AGAIN+*P2MEMORIZE IT BEFORE GOING ON,D1-+/EE,"0308PRVERB ENDINGS CHANGE"q+40809PRJE ...E,D1,P2TU ...ES,D1,P2IL ...E,D1,1407PRELLE ...E,D1+90822PRNOUS ...ONS,D1,P2VOUS ...EZ,D1,P2 ILS ...ENT,D1+>CO$,'CO$"X":10010,'CO$"S"200:,$'R0:10910,.'R1LN-8'R0:10910-B'R1TND-L'C$(CO$,1):CM$(CO$,2,1):CA$(CO$,3,255)P-t'FILTERb-~'C$"P"12010t-'C$"E"13010-'C$"G"14010-'C$"M"15010-'C$"R"16010ECT COMMAND":.*NF((CO$,1)).*47NF58NFN((CO$,2)):CO$(CO$,3,255):R1/*/* POSITIONING8/+"";:X1L:"";::T);:J/. P SEQUENCESU/.11010h/.CM$"R"12100{/.CM$"1"12200//CM$"D"12400//CM$"V"12500//C1,1)):S((CA$,2,1)):Y$(CA$,3,1)0B1CA$(CA$,4,255)1L1EA$"":X1(CA$):EA$EA$""::X1(CA$):EA$EA$" ";1V1:X1(CA$):EA$EA$"":L1`1X1N:CA$;b1j1Y1(9S)100:Y~1t1EA$;:Y1(10S)50:Y1~1:Y$"Y"CA$:111001011C $"A":142303<7CM$"M"142503711010:T)G$;:100103711010:T)EG$:1001047N((CO$,4,1)):S((CO$,5,1)):11010G47Z1N:EG$;:AG$;:X1(10S)50:h47EG$;:AG$;:X1(10S)50:47EG$;:BG$;:X1(10S)50:47EG$;:AG$;:X1 5N57D$"L"D$"":TT5N57D$"D"D$"":LL5N57D$"R"D$"":TT5N67EG$EG$D$ 6714231%6:M$((CM$))CA$:10010?6CM$"R"161006>CM$"Q"163006>L23:T0:11010:T)"T $J$(X):180207BFQ1:A$"":167,0:X07BX10XX1:I$:169208"BI$:A$""I$(13)I$"*"1696028,BI$"*"X1(A$):" ";::" ";:16910K86BI$;:A$A$I$:16930X8@B167,1:u8rBX1(CM$)500::100108ZFCA$J$100108dFCO$:CO$R(CM$):R23100,23200,233009X06>X10XX1:I$:161066>I$:I$""161107>CO$"2324EL":100207?11010:16910*7?L23:T0:11010J7?:X911:A$M$(X)16350P7?{7?""O$(0);:X15000::J$J$(0):180207?""O$(X);:Y12000::J"X":180208nF(CO$,1)"*"180208xF(CO$,3,255)J$FQ0:100108F180208BJ11010:16910 9LJCM$"A"IA$A$!9VJCM$"B"IB$A$59`JCM$"C"IC$A$@9jJ10010K9J11010^9JCM$"A"IA$;q9JCM$"B"IB$;9JCM$"C"IC$;9J100109YTSWAP 3" Y"333 MAIN STREET, REDWOOD CITY"CA 94063 (415)364-5600 EX4401""" PROGRAMS MAY BE COPIED FOR "  & @" COMPUTER-USING EDUCATORS f" " SOFTSWAP " "333 MAIN STREET, REDWOOD CITY"CA 94063 (415)364-5600 EX440**n:x::/ Y$(30),N$(30),V$(30),A(30);""\ "HI. WHAT'S YOUR NAME? ";l390:Y$IN$v::"PLEASE TYPE A NOUN, ";Y$;". ";X(3(2))1390:N$IN$:"THANKS. PLEASE TYPE A VERB. ";390:V$IN$" h"" :"":"HERE'S ANOTHER."! r: 240' |- N IN$" ":ZTTI:ZC2:ZD$(20)\ CR$(13)r Z3$:Z3$""450 ZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15 420 Z(Z3$):ZL(IN$):(Z127)32" ";:490 FL(Z127)64(Z127EDUCATIONAL USE & MAY NOT BE=" SOLD. COPYRIGHT 1981 CUE,INCc"io ------------------------------- DIFFERENT WORDS MAY BE USED BY CHANGING DATA STATEMENTS IN LINES 100 TO 160 FERENCE, QUOTIENT, PLUS2 GEOMETRIA, ALGEBRA, MATEMATICAV LINEA, ANGULO, SUMA, PRODUCTO| DIFERENCIA, COCIENTE, NUMERADOR "COMO SE LLAMA USTED?" 2000 N$A1$ "HELLO, ";N$ K0 "WE HAVE A LIST OF WORDS H SPANISH" @< J"ESCRIBA 'SPAN' PARA ESPANOL O 'ENG' PARA INGLES"G T 2000R YL$A1$[ ^""r h L$"SPAN" 1010x r~ |  I110  W$  W$  I  "WHEN YOU ARE READY, TYPE R"  2000 L$A1$ ""  E MORE TIME, PLEASE..." 520 ""> "SORRY, ONLY THREE TRIES...."::H KK1U Q$(K)W$x "NOW, LET'S DO THE NEXT WORD" X11500:X 770   "VERY GOOD!" X11500:X ""  I M10K  * "DO YOU WANT TO DO IT AGAIN (YES OR NO)?"# 2000/P$ A1$BP$"NO" 1690K""QZ100d1690jp|I110W$I$I110. W$8W$BILV"CUANDO LISTO,ESCRIBA 'L'"W2000YR$A400JJ1J31340!(:"UNA VEZ MAS, POR FAVOR"+21210g<:"QUE LASTIMA; LE PERMETIMOS SOLAMENTE TRES VECES..."mFwPKK1ZQ$(K)W$d"AHORA VAMOS A LA PROXIMA PALABRA"n1430x"MUY BIEN!"X11200:XUE USTED LAS ESCRIBA Y LAS PRACTIQUE!"">,"QUIERE USTED HACERLAS OTRA VEZ (SI O NO)"I6 2000T;P$A1$f@P$"NO"1690oJ""uT~^100 4000I11 20: A2$:I1A$: A$"" 2010A(A$): A13 2010A1$A$:- FRENCH VERBS 21JUL803t CONJUGATE CERTAIN FRENCH VERBS IN VARIOUS TENSESz 8K PET AUTHOR UNKNOWN--FROM CUE LIBRARY  " ݠ SAN MATEO C333 MAIN STREET, REDWOOD CITY CA 94063 (415)364-5600 EX4401" " PROGRAMS MAY BE COPIED FOR EDUCATIONAL USE & MAY NOT BE," SOLD. COPYRIGHT 198 -------------------------------"!+#""O%" BILINGUAL SPELLINGX(TTIl2 TIT150 50z<""ZK0:M0d"WHAT IS YOUR NAME?"in GEOMETRY, ALGEBRA,ARITHMETICx LINE, ANGLE, SUM, PRODUCT DIFzA$(1)C$(J) J'}"";20);A$(1);""6B$(1)"JE"AI16SC$(A$(2),1)C$"A"C$"E"C$"I"C$"O"C$"U" B$(1)"J'"B$(I);:"";A$:A$"""":140A$A$(I1)500IJA$"Q"170"NON ";AERE" "IN ENGLISH OR SPANISH FOR YOU"7 "TO STUDY AND SPELL"= M "HOLA, "N$w "AQUI TENEMOS UNA LISTA DE PALABRAS" "EN INGLES O ESPANOL PARA QUE" ""USTED ESTUDIE Y ESCRIBA" , 6"TYPE 'ENG' FOR ENGLISH OR 'SPAN' FOR I110 J0  % "FIRST YOU SEE IT".  W$4 = W$;P  X12000: Xc &""} 0"NOW YOU DON'T....." : D"TYPE THE WORD YOU SAW" N 2000 SB$A1$ X W$B$730 bJJ1 l J3 660 v "ON4"THAT'S ALL, ";N$;"; YOU DID ";M;" CORRECT" >RH"AND ";K;" INCORRECT. HOPE YOU COME AGAIN!"ZR:\"HERE ARE THE WORDS YOU MISSED:"fI1KpzQ$(I) I:"I HOPE YOU WRITE THEM DOWN AND PRACTICE THEM!":1$`I110jW$tI~I110 ""(J0G"PRIMERO USTED LA VE...."OW$U^W$;oX12000:X"""AHORA NO LA VE...""ESCRIBA LA PALABRA QUE VIO" 2000B$A1$ B$W$1"" IM10K0"ES TODO, ";N$;"; USTED HIZO ";M;"CORECTA"j"Y ";K;" INCORECTA. ESPERO QUE VENGA OTRA VEZ MAS!"r:"AQUI ESTAN LAS PALABRAS QUE ESTAN ESCRITO MALAS:"I1KQ$(I)I"ESPERO QA$;A$: A$"" 2016-A(A$):A20A1$(A1$,((A1$)1)):A$;:2016GA(A$): A13 2030jA1$ A1$ A$:A$; : 2016s A$y$ PALABRAS QUE ESTAN ESCRITO MALAS:"I1KQ$(I)I"ESPERO QOUNTY X " OFFICE OF EDUCATION & " COMPUTER-USING EDUCATORS SOFTSWAP " B" 1 CUE,INC NC$(20),A$(20),B$(20),ER$(20)W(""a-3000k21000u7400082000<PI17:B$(I):dJ1100iI17n A$(I)sA$(I)"FIN" "LECON TERMINEE":5000xI  $(I1) TTI ERER1B ER$(ER)B$(I)(" ",5(B$(I)))A$(I1)T TIT200520z " ":"" ;:140 "CHOISIR LES VERBES QUE VOUS VOULEZ FAIRE" J17:A$: J1100 I17:A$(I):A$(I)"FIN"MJ:1050  : j"";A$(1);"";* oA$:A$"C" A$(13)11352 qA$P tA$"C"C$(J)A$(1):1150a y" ";A$(1)h ~Jn w TTI TIT80 2005  "" 8);"" 8);"CONJUGAISON DES VERBES"   MPARFAIT, FUTUR ET PASSE COMPOSE." ""d  "PENDANT LE TEST. TAPER Q SI VOUS NE SAVEZ PAS LA REPONSE."m TTI  TIT500 4105  "";10);"ERREURS:";20);"LECON TERMINEE" ER119:10);ER$(ER): 'JE,TU,IL,NOUS,V MES,ETES,SONT3)'ETRE(IMPARFAIT),ETAIS,ETAIS,ETAIT,ETIONS,ETIEZ,ETAIENTi+'ETRE(FUTUR),SERAI,SERAS,SERA,SERONS,SEREZ,SERONT8'AIMER(PRESENT),AIME,AIMES,AIME,AIMONS,AIMEZ,AIMENT:' AIMER(IMPARFAIT),AIMAIS,AIMAIS,AIMAIT,AIMIONS,AIMIEZ,AIMAIENT)IS,FINIT,FINISSONS, FINISSEZ,FINISSENTUV'FINIR(IMPARFAIT),FINISSAIS,FINISSAIS,FINISSAIT,FINISSIONS,FINISSIEZfW'FINISSAIENT`'FINIR(FUTUR),FINIRAI,FINIRAS,FINIRA,FINIRONS,FINIREZ,FINIRONTj'FINIR(PASSE COMPOSE),AI FINI,AS FINI,A FINI,AVONS FIN) HANGMAN1 JULY1980y HANGMAN WITH 5 WORD CATEGORIES (GOOD GRAPHICS) WORD DATA LOCATED AT LINE 1051 GROUPED/20 WORDS PER CATEGORY 8K PET IF LINES 1-25 AND LINES  ," COMPUTER-USING EDUCATORS R" x" SOFTSWAP " "333 MAIN STREET, REDWOOD CITY"CA 94063 (415)364-5600 EX4401"""13)"*************"'13)"*"25)"*"@13)"* *"T13)"*"25)"*"h 13)"*"25)"*"!13)"*************"" 59468,14:" O YOU NEED INSTRUCTIONS?";# C$: C$"" 35% C$"Y" 110/ ("OUR BES PLEA-BARGAIN THE CHARGES DOWN TO UGLINESS, PROVIDED HE/SHE HAS";V A"ONE FRIEND. Ӡ??" F"O SAVE YOUR FRIEND'S LIFE, YOU MUST GUESS THE SECRET WORD/"; K"WORDS. ACH TIME UOU GUESS A LETTER, YOU HAVE A CHANCE ";+ P"TO GUESS THE WORD/WORDS, WITH NO PENALTY FOR A WRONG GUESS."f U"UT !!!! ACH TIME YOU GUESS AN "; Z" LETTER, YOUR FRIEND ADVANCES ONE STEP CLOSER TO" _ 10);"!!!! !!!! d"  YPE ANYTHING TO CONTINUE " iI A$(1) J= "";""G 2000y !"REPONDEZ: C POUR CHOISIR, ET" ." RETURN POUR REJETER." B L"" QJ17:A$: VJ1M1 `I17:A$(I)2000  2000  "" &  ""#  "".  4070C J1M3:"";:N J15} " "  "" J1M4:"";:  "CONJUGER LES VERBES SUIVANTS AU TEMPS INDIQUE: PRESENT, ";  "IOUS,ILS,3'DONNER(PRESENT),DONNE,DONNES,DONNE,DONNONS,DONNEZ,DONNENT}'DONNER(IMPARFAIT),DONNAIS,DONNAIS,DONNAIT,DONNIONS,DONNIEZ,DONNAIENT'DONNER(FUTUR),DONNERAI,DONNERAS,DONNERA,DONNERONS,DONNEREZ,DONNERONT$'ETRE(PRESENT),SUIS,ES,EST,SOM=' AIMER(FUTUR),AIMERAI,AIMERAS,AIMERA,AIMERONS,AIMEREZ,AIMERONTTB'AVOIR(PRESENT),AI,AS,A,AVONS,AVEZ,ONTE'AVOIR(IMPARFAIT),AVAIS,AVAIS,AVAIT,AVIONS,AVIEZ,AVAIENTG'AVOIR(FUTUR),AURAI,AURAS,AURA,AURONS,AUREZ,AURONT L'FINIR(PRESENT),FINIS,FIN:I,AVEZ FINIk'ONT FININFIN%NTIT2002005 AIMERONTTB'AVOIR(PRESENT),AI,AS,A,AVONS,AVEZ,ONTE'AVOIR(IMPARFAIT),AVAIS,AVAIS,AVAIT,AVIONS,AVIEZ,AVAIENTG'AVOIR(FUTUR),AURAI,AURAS,AURA,AURONS,AUREZ,AURONT L'FINIR(PRESENT),FINIS,FIN63333+ ARE REMOVED*****3.0 ROMSh AUTHOR UNKNOWN (CUE LIBRARY) ADAPTED BY HARRIET HUNGATEn " " SAN MATEO COUNTY  " OFFICE OF EDUCATION  " & 6"\" PROGRAMS MAY BE COPIED FOR " EDUCATIONAL USE & MAY NOT BE" SOLD. COPYRIGHT 1981 CUE,INC" HM$(8),TD$(6,4),PR$(17),C$(25)T FRIEND HAS BEEN ARRESTED AND CHARGED WITH ARSON, TRE";x -"ASON, ARMED ROB- BERY AND PUBLIC DRUNKENESS ... ...MURDER,"; 2" MAYHEM, IGNORANCE AND UGLINESS." 7"OWEVER, THE JUDGE, BEING A BENEVOLENT SORT, WILL LET YOUR FRIEND";6 <"  85h"": I1 20m I2(I2) "";1r"THAT'S NOT A LETTER!!"Bw J1 50:P| I: 310c I1 (LG$)} G$(LG$,I,1) 400 I: 430"" I1 20 I2(I2) "";"THAT LETTER WAS TRIED!!" C$: C$"" 105; n"HAT IS YOUR FIRST NAME?";:950:NM$(C$,9)R o" OKAY,"NM$"~ p"HEN YOU GUESS A CORRECT LETTER,YOU" q"WILL BE ASKED IF YOU WOULD LIKE TO TRY" r"TO GUESS THE ENTIRE WORD.YPE EITHER " s"YES OR NO A I1 20 I2(I2) "";"VERY GOOD,"NM$"!". J1 50::B PR$WD$ 565h"TRY FOR THE WORD? ";q950 (C$,1)"Y" 310"GUESS THE WORD(S) " 950:G$(C$,(WD$))  G$WD$ 565 "HOOSE ONE OF THE FOLLOWING CATEGORIES:"`CT$(1)"COMPUTERS":CT$(2)"SPORTS":CT$(3)"CARS":CT$(4)"NATIONS"xCT$(5)"POT POURRI" A1 5:A;". ";CT$(A):" OUR CHOICE, "NM$" ";:950:C(C$) C1 C6 175 "LEI" YOU WON! "B$; N" "B$;!X" "B$;/]"";Gb" "B$;_g" "B$;yl" YOU WON! "B$;q" "B$;v" "B$;{"";::"CARE FOR ANOTHER" ": 225 PR$(I)"-":PR$PR$"-":59468,12.MN$(NM$,1)Z (MN$)95 NM$((MN$)128)(NM$,2)sVP17:HP0:M0:""; I1 16:"";: I18::HM$(I);: I1 7" ";::"";"  "0 I1 2:VPVP1:"";  J2 VP:"";: VP1 "";.HP1)"";< J1 8T""HM$(J)"";j J:" ";: I I1 4:HPHP1:""; J2 VP:"";: VP1 "";HP)""; J1 8";LM$*6"GUESS A LETTER ";:950:G$C$" "D; (G$,2,1)" " 350P@""_E I1 20wJ I2(I2) "";O"ONLY ONE LETTER, ";NM$;""T J1 50:Y I: 310^G$(G$,1)c G$"A" G$"Z" 3 $HM$(J);:H"";:R I1 1000:\" "A$;(a"R "A$;9f"I۪"A$;Jk"Pݶ"A$;\p" ݒ"A$;nu" "A$;z" "A$;" "; I1 3000:"THE SECRET WORD WAS:"" "WD$ "BETTER LUCK NEXT TIME, ";NM$;"!!!"7"CARE TO WASTE ANOTHER FRIEND? ";=T I1 32: WD$:k C$: C$"" 935~ C$"Y" 150"THANKS FOR PLAYING!!!!":C$"": INPUT SUBROUTINE"";:C$ J1 50: I: 310" "2F0: I1 (WD$)V G$(WD$,I,1) PR$(I)G$:F1\l F0 650LG$LG$G$:PR$"" I1 (WD$)PR$PR$PR$(I):"";PR$" "CCORDING TO YOUR WISHES"7 t"AND FOLLOW THE INSTRUCTIONS ACCORDINGLY."` u"TYPE ANYTHING TO CONTINUE...."v vC$: C$"" 118 x I1 8: HM$(I): } I1 6: J1 4 TD$(I,J):: A$"":B$""59468,14:" "  I1 20% I2(I2) "";;!"SORRY,"NM$""N& J1 50::o+" "y0 3105"";: I1 10?" "B$;D" "B$;ASE TYPE THE APPROPRIATE NUMBER,"NM$:Z1999:: 150Q "  ET ME THINK OF A WORD...":TTTIq I0 (C1)20((1)20)} WD$: TITT120 200LM$"":PR$"":LG$""I1 (WD$) (WD$,I,1)" " PR$(I)" ":PR$PR$ CHANCE TO KILL A FRIEND"NM$"?" 925'" "6 I1 20N I2(I2) "";k"YOU BLEW IT "NM$"!"~ J1 50::LG$LG$G$:LM$LM$G$"": I1 10:"":18)LM$:MM1 M9 80"";34);" ˑ ";+  I1 23:" ";:D" ";: 33767,160d"SECRET WORD: ";CT$(C);"{ I1 8 :"" :18);"LETTERS MISSED""18);""'"";PR$, I1 17:"";:116) "HM$(J)"";:: M8 310 "";HP); I1 85" "HM$(I)"";:?  310W "";34);o% I1 6: J1 4*TD$(I,J)A$;:/"";:4"";34);9 I1 16:" ";> J3 8C AMPLE,QUININE# $ERRARI,RAMBLER5"" WORD DATA FOR CATEGORY 4}" THAILAND,AMERICA,FRANCE,SPAIN,ENGLAND,GERMANY,RUSSIA,ITALY,GREECE" EGYPT,RHODESIA,CHILE,CHINA,JAPAN,INDIA,CANADA,MEXICO,UGANDA" "" C1$: C1$"" 955 (C1$)13 975 C$"" 955" ":4 (C1$)20 990F C$"" 955gC1(C$): C11 C$"":986yC$(C$,C11)" ";:955C1$"";:C$C$C1$: 955" "," "" ߒ"  HANGMAN4 1978#B TRADITIONAL HANGMAN GAMEHU 8K PET[x COPYRIGHT HARRY J SAAL DISTRIBUTED BY C.U.E. WITH AUTHOR'S PERMISSION " " SAN MATEO COUNTY " " " WORD DATA FOR CATEGORY 1i CPU,CHIP,RAM,CORE,MEMORY,"DATA",TERMINAL,"FLOPPY DISC",CYCLES,LOOP$ INCREMENT,INPUT,LOGIC,OCTAL,SUBROUTINE,HEXADECIMAL,SUBSCRIPT) OUTPUT,PERIPHERAL,BYT REDWOOD CITY/"CA 94063 (415)364-5600 EX4401U"{"" PROGRAMS MAY BE COPIED FOR " EDUCATIONAL USE & MAY NOT BE" SOLD. COPYRIGHT 1981 CUE,INC"  WORD DATA FOR CATEGORY 36!8 "AUTO RACING",FENCING,ARCHERY,CYCLING,"MOUNTAIN CLIMBING"~!= PORSCHE,TOYOTA,VOLKSWAGEN,LINCOLN,PANTERA,LOTUS,TRIUMPH,CHEVROLET!B DODGE,BMW,EDSEL,DATSUN,CONVERTIBLE,CADILLAC,CAPRI,"DUNE BUGGY" ";H'"ݝݝݝݝݝݝ";N(2MM$" "FMS$"":ER0: I1 26:LE(I)1:IPWH(1(1)NO)Z I1 WH: WD$: I:LN(WD$)dAN$"":SW1 n I  YUGOSLAVIA,GUAM"#" WORD DATA FOR CATEGORY 5l# PIZZA,TENSION,MAGISTRATE,"TALK SHOW",SCIENTIST,MAHOGANY,THING,FAULT# DANGEROUS,EWES,SYLPH,QUAINT,LUG,BYE,MAIDEN,LAUGH,SPHINX# ERRONEOUSLY,EXA  AN$;""8 BL$"LETTERSLEFT : "e I1 26: LE(I)0 BL$BL$" ": 180y BL$BL$(I64) I:BL$::MS$:QQ11500::MM$ ER10 SW0 200 "PRESS RETURN TO BEGIN AGAIN"; C$: C$"" 196 37 "GUESS?";! C$: C$"" 2100 L(C$)64g L1 L26 MS$"ONLY GUESS LETTERS! ": 145 LE(L)0 MS$"YOU USED THAT ALREADY": 145 LE(L)0 Q1 LN: L((WD$,Q,1))64 255 MS$"GOOD!!! ! ":100 Q ERER1: 1000G  ER10 MS$"SORRY. HE'S DEAD!! ": 100r MS$"NO, THERE ARE NO "C$"'S ": 145 "";  SW0 ("",SW);  ER 1010,1020,1030,1040,1050,1060,1070,1080,1090,1100 " "" ""  ""  """ "Ƥ"8" "," "," "|" "," "," "," "," "," "," "," "," "" "," "," "," "," "," "," "," "," "," " % " OFFICE OF EDUCATION K " & q" COMPUTER-USING EDUCATORS " " SOFTSWAP " "333 MAIN STREET, E *" WORD DATA FOR CATEGORY 2a . BASEBALL,FOOTBALL,BASKETBALL,SOCCER,RUGBY,HOCKEY,SKIING,"WATER POLO" 3 VOLLEYBALL,BOXING,"TIDDLEY WINKS",CHESS,"JAI ALAI",SWIMMING,TRACK 7"   LE(26)7! FIND NO OF WORDS@"NO0j# WD$: WD$"**END**" NONO1: 35$X(TI): RANDOMIZE%"DO NOT PRESS":" RETURN "&"HANGMAN !G MUSTANG,JALOPY,FERRARI,RAMBLER5"" WORD DATA FOR CATEGORY 4}" THAILAND,AMERICA,FRANCE,SPAIN,ENGLAND,GERMANY,RUSSIA,ITALY,GREECE" EGYPT,RHODESIA,CHILE,CHINA,JAPAN,INDIA,CANADA,MEXICO,UGANDA" 1 LN:L((WD$,I,1))64@ x LE(L)1 ER10 AN$AN$".":SW0: 140X AN$AN$""(L64)` I SW1 ER10 MS$"YOU GOT IT!!!!! " ER10 145 SW1 3: ER0 10: 1000:: "";! ) SWAP (NEW ROM) JULY1980y EXCHANGE WORDS ON A LIST UNTIL THEY ARE ARRANGED ALPHABETICALLY 8K PET (NEW ROM - 3.0 VERSION) SOME SOUND BY JIM LEWIS ADAPTED FROM IDEA SUGGESTED IN CALCULAT! X1)W$(X)D(X1)X X:X1! D(1)D(2)250a C$C$(1):D(3)D(1):C$(1)C$(2):D(1)D(2):C$(2)C$:D(2)D(3)k 5000u 6100 ***INSTRUCTIONS 59468,14 "HIS IS THE GAME OF . WILL" "GIVE YOU A LIST OF WORDS. OU PUT THEM! " ";4SW);("NOO",SW+;: " ";:/ " ";:= " ";:M "";:\ " *";:m $"*";:} ." ";: 8" ";: B"";: L"";:  MAILBOX,ZEBRA,PEOPLE,ZIPPER  MITTENS,M! OFTSWAP ]" "333 MAIN STREET, REDWOOD CITY CA 94063 (415)364-5600 EX4401" !OWN,BASKET TIGER,DRESS,PUPPY,HIPPO1 DOWNTOWN,SHADOW,TRIANGLEV PRESIDENT,WORLD,VALLEY,HISTORYw SPIRIT,FEELING,PEACE,DREAM DANGER,PARTY,COUNTRY,TRACTOR RECORD,KITCHEN,HAMSTER,POINT JEWELRY,VILLAGE,TENNIS,GOLDEN !UALS THE NUMBER OF WORDS IN THE DATA LIST. W$"%" 3070 BEGINS LIST OF DATA WORDS&"MODIFY AS NEEDED. USE NUMBERS TOO FOR NUMERICAL ORDERING. 'FUSE ENOUGH,MACHINE,PRACTICE,FRIENDU ELBOW,BELLY,BRAIN,WORKER,LAWYER,STUDENT,DOCTOR,FARMER,POLICEMANv FIREMAN,COWBOY,RANCH,FIELD CALIFORNIA,AMERICA,GLOBE **END** CHEN,HAMSTER,POINT JEWELRY,VILLAGE,TENNIS,GOLDEN !SHALL SWAP?":? "ԠĠ";C$(1)::"ĠĠ";C$(2)[ F1R:C$(1)W$(F)180 F:"HECK YOUR SPELLING.":145 F1R:C$(2)W$(F)190 F:"HECK YOUR SPELLING.":145 "":4000 X112 X1R C$(! ":$ " ":N " "::{ "HEN IT IS YOUR TURN, YOU MAY TELL ME" *"TO SWAP ANY TWO WORDS IN THE LIST. " 4"WILL THEN SWAP THOSE TWO WORDS AND" >"GIVE YOU ANOTHER TU!RN UNTIL THE LIST"H"IS IN ALPHABETICAL ORDER."YR:"YPE YOUR NAME AND PRESS Β."vS"";J$:J$""850W(J$)90J1$((J$)128):J$J1$(J$,2)\"ELLO, "J$::f"OU MAY HAVE UP TO 8 WORDS."::p"O!ORS AND COMPUTERS MAGAZINE%s " ݠ SAN MATEO COUNTY  " OFFICE OF EDUCATION & " COMPUTER-USING EDUCATORS S!" "IN ALPHABETICAL ORDER, TOP TO BOTTOM.":K " "z "  F GIVE YOU  UT THEM IN " "  THESE WORDS  THIS ORDER ": " ": " !OUSE,ANIMAL,MONEY" MONKEY,FEATHER,TURTLE,FOOTBALLJ GARAGE,TURKEY,TOMATO,WAGON,SEESAWo BICYCLE,GEESE,BASEBALL,ROOSTER DOORWAY,KANGAROO,PAINTBOX SIDEWALK,JACKET,PEANUT,HORSE MOUNTAIN,NURSE,WITCH,RULER SPIDER,NEEDLE,CL!G" PROGRAMS MAY BE COPIED FOR EDUCATIONAL USE & MAY NOT BE" SOLD. COPYRIGHT 1981 CUE,INC "" LINE 3005 CONTAINS VARIABLE,1#" WD, WHICH EQ!SUNDAY,SECOND,DOLLAR,TEACHER& GUESS,BORROW,WRITE,COMPUTERG CHANGE,CORRECT,SUPPLY,SLOWe CAUSE,BOARD,TIGER,FAIRY STATE,COVER,TRACK,SPECIAL SOUND,DEVELOP,MONEY,READER IDEA,MAGAZINE,THANKS,STOVE SCHOOL,HUMOR,ENGLISH,CON!"" (A(255), 2 700` nR8: "OT MORE THAN 8 WORDS PLEASE."::880 sR3"OT LESS THAN 3 WORDS PLEASE."::880 x 3000 "ERE ARE YOUR WORDS." 4000 "" :"HICH WORDS "W MANY WORDS DO YOU WANT";Q$:(Q$)0880%uR(Q$).z110F SELECTING WORDSj WD29: WD=NUMBER OF DATA WORDSz X 1 R Y ((TI)WD)1 : YWD 3020 Z 1 Y: N$: Z: W$(X)N$: :A(Y)13020 A(Y)1 X" L","LION","LYNX",BEAR,BAT,DINGO'X1R:16)W$(X)::X:"":eREEM"":Q16:" ": Q"SWAP WORDS"MOVE WORD SIDEWAYS X110Y1D(1):"":Y15X)" "C$(" ) SCRAMBLED WORD JULY1980b UNSCRAMBLE LETTERS TO SPELL A GIVEN WORDhu 8K PET{ AUTHOR AND SOURCE UNKNOWN " ݠ SAN MATEO COUNTY = " OF" "C$(2)"":E2E212X!< MV WD BACK SIDWAYS-PX110CZY1D(1):"":YZd5X)" ";C$(2)""pnY1D(2):"":Yx26X)C$(1)" "X: PRINT""V$W$(D(1)): W$(D(1))W$(D(2)) :W$(D(2))V$DD(1):D(1)D(2):" TY CA 94063 (415)364-5600 EX4401u" " PROGRAMS MAY BE COPIED FOR EDUCATIONAL USE & MAY NOT BE" SOLD. COPYRIGHT 1981 CUE,INC Y025520:59464,Y::59409,52%Y255020:59464,Y::59409,60:QY150 01:59464,100Y:59464,10Y:p$59467,0:59466,0:59464,0." GAIN?"3Y$:Y$""61954(Y$)89"":8808"":59468,12:DD(1):D(1)D(2):" *! ***************************':-:S""8)""x 8)"A SCRAMBLED WORD GAME" B$(20),A(20)A$""B$""C$"" Z 1 20A(Z) 0" Z,A (30(TI)1)6 B1 "" N"ANOTHER WORD? (Y/N)";5 XQQ$:QQ$"Y"QQ$"N"600Q bQQ$"Y" "":240j "YOU ANSWERED:"t TWR X(RT100.5) Y(WT100.5)  X"% CORRECT "Y" % WRONG"    HOBBY,BUILT,DIVERT,FLOW"'S YOUR GUESS? "; 1060 :" C$IN$3 A$C$ 560=  530a 3100:WWWW1:WW33000 :445~ " THE ANSWER IS: "A$:  580 WW1:510 0"CORRECT!!": :RR1 D"SCORE: CORRECT"R" WRONG "W: I""  Z0:Q1R1:W$(Q)W$(Q1)ZZ1  Q:ZR13000) 130o "LLAMA","MOUSE","NEWT","OWL","PIKE","QUAIL","RAT","SNAKE","TERN" "ADDER","BIRD","CAT","DOG","EWE","GOAT","FOX","HAWK","JAY" "WOMBAT","YAK","ZEBRA" "GIRAFFE","EEL","CAME"E,ENAMEL,DAHLIA,OBJECT" > WINCE,CRESS,DRUG,INVERTB H SNORT,MOTIF,CHORUS,GENDERb R POUCH,EXACT,BUTTON,ORIOLE \ YOKLE,ARMOR,VANDAL,PICKET f LIMIT,GAUDY,SINGLE,DOUBLY p SOUSE,FUZZY,AFFRAY,ESTATE z CLEFT,STEED,OUTBID,WIDEST LIN"1)""Y1D(2):"":Y16X)C$(2)" " X%""J"MOVE WORD UP & DOWN^E1D(1):E2D(2)vX1((D(1)D(2)))Y1E1:"":Y 26)" "C$(1)"":E1E11Y1E2:"":Y(6)" "FICE OF EDUCATION & " COMPUTER-USING EDUCATORS SOFTSWAP " '"333 MAIN STREET, REDWOOD CI"D(2)D pX1R:W$(X)" ";:X:" ":/***CHECK FOR CORRECT LISTING<T1R1YW$(T) W$(T1)T:6130b145" OU GOT IT, "J$".""SOUND ROUTINE59467,16:59466,15X15"3d ***************************Un * *wx * SCRAMBLED WORD * * * * KID-PROOFED BY QJ * * JULY 17, 1980 * * #EAR,THYME,DISMAL,HELMET# CLOVE,HITCH,DUPLEX,ARTERYC WEDGE,TAFFY,QUAVER,BUTTERc ENACT,JOINT,THRUSH,WISDOM DOUBT,QUEEN,MARINA,BEHELD BEGIN,CANAL,GHOST,NIMBLE YIELD,ABYSS,EMPLOY,FASTEN ALBUM,TWINE,RANSOM,BEDECK I" A @ A$ JA$"END" : BB1" T B. ^C(A$); h E1 CN rD(C(TI)1)a | A(D)1 370u B$(E)(A$,D,1) B$B$B$(E) A(D)1  E  A$B$ 360 "UNSCRAMBLE: ";:2000: B$:WW0 "" "WHAT" ER  GRIMY,SMART,ENGINE,MUFFIN4  RUSTY,DESTROY,ICEBOX,DEBTORU  SCHOOL,HENNA,ARCADE,PURPLEu  RAINY,LAPEL,FROZEN,CIPHER  NUTTY,MAGIC,PASTRY,SOLACE  BOOTY,CLOUT,DROWSY,WINNOW * FELON,DICED,THROW,CLOUDY 4 DARING,BAFFLE,INVIT# Z:11001110 "";:X1(B$):"";::""C15) "";:X1(B$):" ";::""j15) "";:X1(B$):"";::""y16)""; XX1500: ""19)" ": 19)"SORRY!!";: XX1500:#GLOO,WHINE,GRIMLY,SOLID! LOUSY,APRON,BANGLE,ANKLETC FINISH,PREFER,IODINE,DABBLEs GUTTER,NICKLE,POISON,OUTING,MOBILE,RAMROD NERVE,CHIME,HYMNAL,FACTOR CHAIR,AWOKE,AROUSE,SIPHON ZIGZAG,DONKEY,SPENT,VANITY,FAMOUS,INFUSE#:ZL(IN$):(Z127)32" ";:11809~FL(Z127)64(Z127)91Z$((Z128)255)JZL2541110eIN$IN$Z$:Z$;ZD$;Z$;Z13IN$(IN$,2):CR$;:Z20ZL1IN$(IN$,ZL1):"";: 1110Z141Z$(20(ZL1)):Z2ZL:Z$;::" ":";:11809~FL(Z127)64(Z127)91Z$((Z128)255)JZL2541110eIN$IN$Z$:Z$;ZD$;Z$;Z13IN$(IN$,2):CR$;:Z20ZL1IN$(IN$,ZL1):"";: 1110Z141Z$(20(ZL1)):Z2ZL:Z$;:# END,END$9. CURSOR INPUT ROUTINE...PET USERS CLUB VOL 1,#6...QJ...9/1/79G8CR$(13)jB SET FL=1 FOR OLD STYLE PETS.LIN$" ":ZTTI:ZC2:ZD$(20)VZ$:Z$""1140`ZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15j1110 tZ(Z$)