X! 1,N(22),30!(!X FALLING SCALE0!b 7D!l X22 2 1T!v 1,N(X),12[!Xk! 1,N(1),30q!!@ ARRIVIAL OF THE ALIENS!J 7!T X1000 200 50!^ Y X X100 10!h 1,Y,1!r Y!| J120: J! X RTURE OF THE ALIENS8" CHOOSE A NUMBER (1 - 9) ";B A$a A$ "0" A$ "9" 250j A$ (A$) 1000,2000,3000,4000,5000,6000,7000,8000,9000"100 TELEPONE RINGING7 Q15M130$1,864,2.1,1!"(# DEPARTURE OF THE ALIENS "2# 70"<# 3,950,700C"F#J1 1000: Z"P# X600 1000 8f"Z# 1,X,5"d# J1 100.4(1000X):J"n#X"x#  X200 0 2 1,X,1  X  p RISING SCALE z X1 21  1,N(X),10022,18BZ1150:$VP11000:+`Q1jB POLICE CARI7TQ15hX450800 3s1,X,1{ XX800 300 3 1,X,1X Q* BIRDS 7 N140 Q970(25(0)) RQ15(15(0)) XQR2 1,X,1 X3  J1 (200(0)2);  NA  L  PIPSY N1 5g  1,900,8y J11200: J  N   LOW MOAN  X200 0 2 1,X,1  X  p RISING SCALE z X1 21  1,N(X),10  0,4:4,3%"MAKE A SOUND"X:"GIVE THE VALUES FOR THE SOUND PARAMETERS"p(:"VOICE (1-3)";V2"FREQUENCY (0-65535)";F<"DURATION (60 JIFFIES = 1 SECOND)";DF:"OTHER PARAMETERS Y/N";A$P A$"N" 140Z"DIRECTION (0-2)";DR"d"MINIMUM (0-65535)";M@n"STEP VALUE (0-32767)";SXx"WAVEFORM (0-3)";W W2 "PULSE WIDTH (0 -2047)";PV,F,D,DR,M,S,W,P: CREATE SOUND:"REPEAT Y/N";B$ B$"Y" 140 10QUIZ9 # SAVE"0:SOUND DEMO",8:REM +4I COPYRIGHT (C) ANDREW COLIN 1984j169,262,345,383,453,516,571(596,643,685,704,739,770,7982810,834,854,864,881,897,911,917< N(22)FJ122: N(J):Jd""n" PLUS/4 C16 SOUND DEMONSTRATION"+x" ========== ===== ============="1M" 1. TELEPHONE RINGING]" 2. SIRENu" 3. BIRDS SINGING" 4. SONAR SCAN" 5. LOW GROAN" 6. RISING SCALE" 7. FALLING SCALE" 8. ARRIVAL OF THE ALIENS" 9. DEPAOODY ALLEN MOVIES WAS NOT FILMED IN BLACK & WHITE ?,2000('5045,A) MANHATTAN,1?'5046,B) BANANAS,2T'5047,C) ZELIG,3'5048,WHICH MOVIE DID NOT TAKE PLACE IN PHILADELPHIA ?,2000'5049,A) TRADING PLACES,1'5050,B) CHU CHU &  0,15:4,14,1,X60 0 4E2,75,90, X, X,,,,45M Xa X 2 60 4z3,75,90, X, X,,,,45* X2X60 0 4<0,75,90, X, X,,,,45F XP X 0 60 4Z3,75,90, X, X,,,,45d XnX60 0 45069,A) JAKE LAMOTTA,1*5070,B) RUPERT PUPKIN,2+5071,C) SONNY CORLEONE,3i+5072,WHAT FRATERNITY DID JOHN BELUSHI BELONG TO IN ANIMAL HOUSE ?,3000+5073,A) PHI OMEGA,1+5074,B) ZBT,2+5075,C) DELTA HOUSE,3+5076,WHO WON AN OS S THE ID NUMBER FOR THE FEDERATIONSTARSHIP ENTERPRISE?,20000$5025,A) AIR FORCE ONE,1H$5026,B) NCC 1701,2`$5027,C) FSS 1902,3$5028,WHO PLAYED THE GREEN HORNET'S VALET KATO ON TV ?,3000$5029,A) ANN B DAVIS,1$5030,B) BURT WARD,2   0,21,1+P9:Q7:DX32:DY249( M%(P,Q)E2X0:Y0l< J0 P: K0 Q:M%(J,K)0: K,JuF1,1PM%(X,Y)1ZXAX:YAYd J1 10nXXA:YAYx 1 ((0)4) 130,150,170,190 XP XX1: 210 220  X THE PHILLY FLASH,2'5051,C) ROCKY,3<(5052,WHICH OF THE FOLLOWING WAS NOT A DIRTY HARRY MOVIE ?,3000Y(5053,A) SUDDEN IMPACT,1u(5054,B) MAGNUM FORCE,2(5055,C) TIGHTROPE,3(5056,WHAT WAS THE FIRST JAMES BOND MOVIE ?,3000(5057,x0,75,90, X, X,,,,45 X3 X 0 60 4L1,75,90, X, X,,,,45T XgX60 0 40,75,90, X, X,,,,45 X X 2 60 40,75,90, X, X,,,,45 XQUIZ5 QUIZ5/4 CAR FOR THE YEAR OF LIVING DANGEROUSLY ?,3000,5077,A) MEL GIBSON,1/,5078,B) SIGOURNEY WEAVER,2I,5079,C) LINDA HUNT,3*5067,C) MOTEL CALIFORNIA,3*5068,WHICH OF THE FOLLOWING WAS NOT A CHARAC-TER PORTRAYED BY ROBERT DENIRO ?,3000*$5031,C) BRUCE LEE,37%5032,WHO PLAYED DENNIS (THE MENACE) MITCHELL ON THAT TV SHOW ?,1500P%5033,A) JAY NORTH,1h%5034,B) TONY DOW,2%5035,C) MASON REESE,3%5036,ON THE SERIES THE MUNSTERS WHAT WAS THE NAME OF THE DRAGON ?,2000%0 XX1: 210220. YQ YY1: 2108 220P Y0 YY1: 210Z 220p M%(X,Y)0 240x J 2601,8DXX,8DYY 8DXXA,8DYYA 80 X1 P1: Y1 Q1 M%(X1,Y)0 80 M%(X,Y1)0 80A) THUNDERBALL,1(5058,B) GOLDFINGER,2)5059,C) DR. NO,3_)5060,WHICH KING ARTHUR MOVIE DID NOT FEATURE A MAGICIAN NAMED MERLIN ?,2000x)5061,A) EXCALIBUR,1)5062,B) MONTY PYTHON & THE HOLY GRAIL,2)5063,C) THE SWORD AND THE STONE,35037,A) PUFF,1%5038,B) SPOT,2 &5039,C) CECIL,3U&5040,WHICH LEAD ACTOR NEVER CO-STARRED WITH A LIVE APE ?,3000s&5041,A) CLINT EASTWOOD,1&5042,B) RONALD REAGAN,2&5043,C) CLIFF ROBERTSON,3'5044,WHICH OF THE FOLLOWING W" M%(X,Y1)0 80), M%(X1,Y)0 8036 Y,XL@1,8,8,8DXP,8DYQjJ1,8:1,4DXP2,4DYQ2zT1,7:1,9,9^1,3:1,8DX(P1),8DY(Q1)h1,4:1,9,8DY(Q1)r1,6:1,8DX(P1),9|L1 1000: L:50 X*5064,WHAT MOTEL WAS FEATURED IN ALFRED HITCHCOCK'S PSYCHO ?,15003*5065,A) BATES MOTEL,1N*5066,B) ROACH MOTEL,2n*5067,C) MOTEL CALIFORNIA,3*5068,WHICH OF THE FOLLOWING WAS NOT A CHARAC-TER PORTRAYED BY ROBERT DENIRO ?,3000*)**********************************Q* INITIALIZE *y**********************************TC0:TW0:MCO:MW0:SC0:SW0:CC0:CW0:UC0:UW0*********************************** MAIN MENU 4,3,2:1,3,2:0,2,7," TELEVISION"4""<Y1K T1 10V 4000^ Tx*********************************y* TV SUBTOTAL *z*********************************|" TELEVISION""" *********** A1$ A1$"A" 1560F"WRONG ANSWER, THE CORRECT ANSWER IS : A"PWW1Z1590k"CORRECT !"u"CC16QQ12500:QQ@""J""Tl********************************* SUBROUTINE TO CHECK  "r C0 P0: 635!vP(C10)100/{MCC:MWWV "YOUR PERCENTAGE IS ###.##%";P\pQQ12500: QQ{ 20Z********************************[*** EXIT AND FINAL TOTALS *\******************************** ECT !" CC1  QQ12500: QQ "" ><********************************d* SUBROUTINE TO READ AND LIST ** QUESTIONS AND ANSWERS ********************************* Q,Q$,A QLN 4000 "QUESTI *' **********************************0 ""H 1,"GOTO170"(13)` 2,"GOTO444"(13)v 3,"GOTO7"(13) 4,"GOTO7"(13) 5,"GOTO7"(13) 6,"GOTO1374"(13) 7,"GOTO7"(13) 8,"GOTO7"(13)C0:W0"" HO PLAYED THE JOKER ON THE BATMAN SERIES ?,1500.!5005,A) CESAR ROMERO,1N!5006,B) BURGESS MEREDITH,2k!5007,C) FRANK GORSHIN,3!5008,WHAT WAS THE NAME OF THE DOG ON THE BRADY BUNCH ?,3000!5009,A) PRINCE,1!5010,B) ALICE,% "IN THIS SECTION YOU HAVE ANSWERED ##";C-""V "CORRECTLY AND ## INCORRECTLY";Wl C0 P0: 415}P(C10)100TCC:TWW"" "YOUR PERCENTAGE IS ###.##%";P QQ12500: QQ 20**** ** FOR ANSWER "B" *7********************************B A2$Y A2$"B" 2060"WRONG ANSWER, THE CORRECT ANSWER IS : B"WW1 2090 "CORRECT !"CC1* QQ12500:QQ4"" *****^""_" YOUR FINAL SCORE""`GTMCTC/aGWMWTWOb" ---- ----- -----"Wc""rd"QUESTIONS ANSWERED "ze""f " CORRECTLY :####";GTh " INCORRECTLY :####";GWi GT0 GP0: 1390jGPON NO. ##";Y"":""YY1  Q$""!LNLN1/ B1 3? Q,Q$(B),DS " ";Q$(B)_LNLN1g""o B A1500 1500 A2000 2000 A3000 3000******************************* " TRIVIA QUIZ":" ==========="B#""`(" CATEGORIES"h-""2" F1: TELEVISION"<" F2: MOVIES"FPRINT" F3: SPORTS"PPRINT" F4: COMICS"UPRINT" 2!5011,C) TIGER,3?"5012,NAME THE WESTERN SERIES THAT HELPED MAKEJAMES GARNER FAMOUS ?,2000c"5013,A) WANTED DEAD OR ALIVE,1{"5014,B) MAVERICK,2"5015,C) RAWHIDE,3"5016,ON THE SERIES GILLIGAN'S ISLAND WHAT WAS THE SKIPPER'S FULL N****************************6*** MOVIES ROUTINE *\********************************e""yLN5040:C0:W04,7,3:1,7,7:0,15,2" MOVIES""Y1 T1 10 4000 TX**************************************' * SUBROUTINE TO CHECK *M * FOR ANSWER "C" *s ********************************~ A3$ A3$"C" 3060 "WRONG ANSWER, THE CORRECT ANSWER IS : C" WW1 3090 "CORR(GT(GWGT))100n""<p "YOU ANSWERED ###.##% CORRECTLY ";GPPr QQ12500:QQ]x"" : ********************************* SUBROUTINE TO CHECK ** FOR ANSWER "A" *********************** DATA/ QUESTIONS AND ANSWERS *& *******************************V 5000,WHAT ROLE DID RALPH WAITE PLAY ?,1500 5001,A) JOHN WALTON ON THE WALTONS,1 5002,B) GEORGE APPLE ON APPLE'S WAY,2 5003,C) LARRY TAIT ON BEWITCHED,3!5004,W F5: MUSIC "!W" F6: EXIT")Z""7d""cn"PRESS THE APPROPRIATE FUNCTION KEY":*********************************** TV ROUTINE ************************************""LN5000:C0:W0 AME ?,2000"5017,A) ROY HINKLEY,1#5018,B) JONAS GRUMBY,27#5019,C) GINGER GRANT,3#5020,ON THE BEVERLY HILLBILLIES WHAT WAS GRANNY'S FIRST NAME ?,1500#5021,A) DAISY,1#5022,B) PEARL,2#5023,C) ANNIE MAY,3$5024,WHAT I**********************/Y* MOVIES SUBTOTAL *VZ*********************************v]" MOVIES"~b""g "IN THIS SECTION YOU HAVE ANSWERED ##";Cj""l "CORRECTLY AND ## INCORRECTLY ";Wp""q"   "":5,2:0,7:4,7B" THIS IS A QUIZ"J(""q2" THERE ARE 10 QUESTIONS"y<""F" HIT ANY KEY WHEN"P" YOU ARE READY TO CONTINUE"Z K$d Q1 10n"":CC2xFC((0)15 Z'',0",82' C),"CHAR1,''QUIZ'',0",836' D),"TEXT 1,20,10,''QUIZ'',0",84t' A,THE PRIMARY FUNCTION OF SSHAPE AND GSHAPE IS TO,9' A),HOLD AND REPRODUCE COMPLEX SHAPES,91' B),DESIGN AND SAVE SHAPES,92' C),STORE AND LOAD VARIABLES,93 + @B,THE GRAPHIC COMMAND CAN BE FOLLOWED BY,1L JA),ONLY THREE PARAMETERS,11n TB),UP TO THREE PARAMETERS,12 ^C),OVER THREE PARAMETERS,13 hD),AT LEAST FIVE PARAMETERS,14 rA,CHOOSING THE SPLIT SCREEN OPTION PROVIDES LINES,2#! VARIABLES,93( D),TO ENLARGE OR SHRINK SHAPES,94x(! B,"COMMANDS LIKE BOX, CIRCLE, AND PAINT, PARAMETERS WILL DEFAULT IF REPLACED BY",10( ! A),OTHER COMMANDS,101(! B),COMMAS,102( ! C),PARENTHESIS,103(*! D),NOTHING CAN REPLACE THE NEE OUTINE",44P$ D,"TO CHANGE THE BACKGROUND, FOREGROUND ANDBORDER YOU WOULD USE WHICH COMMAND",5`$ A),TINT,51q$ B),ALTER,52$& C),PAINT,53$0 D),COLOR,54%: C,"TO ENABLE YOU TO PICK ANY SPOT ON THE SCREEN AND DRAW A LINE FROM ONE POINT TO A 1): FCCC 120"BC((0)151)85,CC:4,BC:0,FCER$,Q$,NX NQ 160e Q$:""t A 1 4W$,A$,C W$ A$:"" A "ENTER THE LETTER FOR YOUR ANSWER" U$ U$R$ 5000 U$R$ 6000 ( D),TO ENLARGE OR SHRINK SHAPES,94k(! B,"COMMANDS LIKE BOX, CIRCLE, AND PAINT, PARAMETERS WILL DEFAULT IF REPLACED BY",10( ! A),OTHER COMMANDS,101(! B),COMMAS,102( ! C),PARENTHESIS,103(*! D),NOTHING CAN REPLACE THE NEEDED DATA,104 |A),AT THE BOTTOM OF THE SCREEN FOR TEXT,21P!B),AT THE TOP OF THE SCREEN FOR TEXT,22!C),AT THE TOP AND BOTTOM OF THE SCREEN FOR TEXT,23!D),ANY WHERE ON THE SCREEN THAT YOU DECIDE,24!C,RESOLUTION CAN BE DEFINED AS,3"A),THEDED DATA,104',0",82' C),"CHAR1,''QUIZ'',0",83C' D),"TEXT 1,20,10,''QUIZ'',0",84' A,THE PRIMARY FUNCTION OF SSHAPE AND GSHAPE IS TO,9' A),HOLD AND REPRODUCE COMPLEX SHAPES,91' B),DESIGN AND SAVE SHAPES,92' C),STORE AND LOAD NOTHER, WHICH COMMANDS WOULD YOU USE",6+%D A),DRAW & RUN,61C%N B),PLOT & DRAW ,62\%X C),LOCATE & DRAW,63u%b D),LOCATE & PLOT,64%l D,ONE MAJOR DIFFERENCE BETWEEN MULTICOLOR MODE AND HIGH RESOLUTION MODE IS,7%v A),NUMBER OF COMMANDS,71 & B   3  Q""":5,2:0,7:4,7*"""I," TOTAL SCORE":""o6" ANSWERS CORRECT :"GA:""@" ANSWERS INCORRECT :"WA:""E GA0 TP0: 340JTP(GA10)100T"YOUR PERCENTAGE IS"TP"%"Y TP89 ',0",82' C),"CHAR1,''QUIZ'',0",836' D),"TEXT 1,20,10,''QUIZ'',0",84t' A,THE PRIMARY FUNCTION OF SSHAPE AND GSHAPE IS TO,9' A),HOLD AND REPRODUCE COMPLEX SHAPES,91' B),DESIGN AND SAVE SHAPES,92' C),STORE AND LOAD VARIABLES,93  BRIGHTNESS OF PICTURE ELEMENTS,31E"B),CONCENTRATION OF SCREEN COORDINATES,32"C),THE NUMBER OF PIXELS THE SCREEN IS DIVIDED INTO,34"D),GRAPHIC DRAWING COORDINATES,34(#B,"ONE WAY TO INSURE THAT ANY STRING VARI- ABLES EXISTING IN A PRO ),NUMBER OF TIMES YOU USE THEM,72<& C),NUMBER OF PROGRAMS WRITTEN FOR THEM,73Y& D),NUMBER OF PIXELS ,74& B,WHICH OF THE FOLLOWING COMMANDS ALLOWS YOU TO PUT TEXT INTO A GRAPHIC SCREEN,8& A),"TEXT 1,''QUIZ'',1",81& B),"CHAR1,20,10,''QUI  " VERY GOOD !"=^"WOULD YOU LIKE TO TRY AGAIN (Y/N)"Gh K$]r K$"Y" : 10s| K$"N" 350~"":" CORRECT !"GAGA1p" SORRY, INCORRECT "z" THE CORRECT ANSWER WAS "R$WAWA1 GRAM ARE NOT DES-TROYED BY GRAPHIC1,1 COMMAND IS TO",4e#A),"PUT GRAPHIC1,1 AT THE END OF THE PROGRAM",41#B),"PUT GRAPHIC1,1 AT THE BEGINNING OF THE PROGRAM",42#C),"PUT THE VARIABLES IN A TABLE",43#D),"PUT THE VARIABLES IN A SUBR "D),VAL,34<"C,WHICH OF THE FOLLOWING IS A VALID GETKEY COMMAND,4V"A),"GETKEY N,P,G",41y"B),GETKEY N$ AND P$ AND G$,42"C),"GETKEY N$,P$,Q$",43"D),GETKEY N$ + P$ + Q$,44" C,HOW MANY DEFINABLE FUNCTION KEYS DOES YOUR COMPUTER ,14,20 GI0,2,2,45,45PGN***** DEFINE SPRITE COORDINATES IN F$ AND SAVE AS SPRITE 1 ******{GXF$,12,14,33,38:F$,1:1,1,5,1,0,0,0Gb***** CLEAR THE SCREEN *****Gl1,7Gv1,10,12,33,30,,1G0,2,2,45,45G0,3,3 H***** PLACE FISH Sw101&! B),RESET THE COMPUTER,102-& ! C),STOP THE PROGRAM,103_&*! D),"TYPE KEY NUMBER,''NEW DEFINITION''",104,73v$ D),),74$ D,WHAT'S THE LIMIT FOR THE NUMBER OF FUNC-TIONS FOR A SINGLE FUNCTION KEY,8$ A),THERE IS NO LIMIT,81$ B),T 1): FCCC 120#BC((0)151)?1,CC,7:4,BC,3:0,FC,3LR$,Q$,N_ NQ 160l Q$:""{ A 1 4W$,A$,C W$ A$:"" A "ENTER THE LETTER FOR YOUR ANSWER":U$ U$R$ 5000 U$R$ 6000 " VERY GOOD !"?^"WOULD YOU LIKE TO TRY AGAIN (Y/N)":K$Ur K$"Y" : 10k| K$"N" 350v"":" CORRECT !"GAGA1p" SORRY, INCORRECT "z" THE CORRECT ANSWER WAS "R$WAWA1 @  WAWA1 : @B,THE GRAPHIC COMMAND CAN BE FOLLOWED BY,1[ JA),ONLY THREE PARAMETERS,11} TB),UP TO THREE PARAMETERS,12 ^C),OVER THREE PARAMETERS,13 hD),AT LEAST FIVE PARAMETERS,14!rA,CHOOSING THE SPLIT SCREEN OPTION PROV HAVE,5# A),6,51# B),4,52 #& C),8,53.#0 D),10,54g#: B,WHAT IS THE CORRECT SYNTAX FOR THE KEY COMMAND,6#D A),"KEY ''DEFINITION,NUMBER''",61#N B),"KEY NUMBER,''DEFINITION''",62#X C),"KEY ''OLD DEFINITION'' TO ''NEW DEFI- NITION''",PRITE ON THE SCREEN *****#H1,150,150:1,270#2HH***** MOVE BUBBLE SPRITES *****]H7,1,15,1,0,0,0vH7,90,100:7,360#3H8,1,6,1,0,0,0H8,260,100:8,360#1H2,1:1,2 IN BODY AND DRAW EYES *****FD1,19,21:0,15,20,1,1:0 ISTING IN A PROGRAM ARE NOT DES-TROYED BY GRAPHIC1,1 COMMAND IS TO",4o#A),"PUT GRAPHIC1,1 AT THE END OF THE PRO- GRAM",41#B),"PUT GRAPHIC1,1 AT THE BEGINNING OF THE PROGRAM",42#C),"PUT THE VARIABLES IN A TABLE",43$D),"PUT THE VARIABLES   E1 400: E Q6"":1,1,7:0,2,3:4,2,3>"""]," TOTAL SCORE":""6" ANSWERS CORRECT :"GA:""@" ANSWERS INCORRECT :"WA:""E GA0 TP0: 340JTP(GA10)100T"YOUR PERCENTAGE I C,HOW DOES GETKEY SHORTEN PROGRAMS ?,1O JA),GETKEY CANNOT ACCEPT THE NULL STRING,11 TB),GETKEY ELIMINATES ALL INPUT STATEMENTS,12 ^C),GETKEY ACCEPTS THE NULL STRING,13 hD),NONE OF THE ABOVE,14!rA,HOW MANY CHARACTERS CAN GETKEY ASSIGN IDES LINES,22!|A),AT THE BOTTOM OF THE SCREEN FOR TEXT,21_!B),AT THE TOP OF THE SCREEN FOR TEXT,22!C),AT THE TOP AND BOTTOM OF THE SCREEN FOR TEXT,23!D),ANY WHERE ON THE SCREEN THAT YOU DECIDE,24!C,RESOLUTION CAN BE DEFINED A 63$b D) ,"KEY NUMBER ,DEFINITION",649$l C,13 IS THE CHR$ VALUE FOR,7H$v A),'' ,71W$ B),TAB,72i$ C),RETURN,73v$ D),),74$ D,WHAT'S THE LIMIT FOR THE NUMBER OF FUNC-TIONS FOR A SINGLE FUNCTION KEY,8$ A),THERE IS NO LIMIT,81$ B),T NDS,71& B),NUMBER OF TIMES YOU USE THEM,72I& C),NUMBER OF PROGRAMS WRITTEN FOR THEM,73f& D),NUMBER OF PIXELS ,74& B,WHICH OF THE FOLLOWING COMMANDS ALLOWS YOU TO PUT TEXT INTO A GRAPHIC SCREEN,8& A),"TEXT 1,''QUIZ'',1",81' B),"CHAR  IN A SUBROUTINE",44Z$ D,"TO CHANGE THE BACKGROUND, FOREGROUND ANDBORDER YOU WOULD USE WHICH COMMAND",5j$ A),TINT,51{$ B),ALTER,52$& C),CH/COLOR,53$0 D),COLOR,54"%: C,"TO ENABLE YOU TO PICK ANY SPOT ON THE SCREEN AND DRAW A LINE FROM O S"TP"%"(Y TP89 " VERY GOOD !"V^"WOULD YOU LIKE TO TRY AGAIN (Y/N)":K$lr K$"Y" : 10| K$"N" 350"":" CORRECT !"GAGA1p" SORRY, INCORRECT "z" THE CORRECT ANSWER WAS "R$ TO A VARIABLE,2!|A),1,21!B),2,22_!C),"ANY NUMBER, UP TO THE LIMIT OF THE PROGRAM LINE",23l!D),4,24!D,WHAT FUNCTION WOULD YOU USE TO TRANSLATE STRINGS RECEIVED BY GETKEY INTO NUMBERS,3!A),ABS,31!B),RND,32!C),INT,33 S,3%"A),THE BRIGHTNESS OF PICTURE ELEMENTS,31T"B),CONCENTRATION OF SCREEN COORDINATES,32"C),THE NUMBER OF PIXELS THE SCREEN IS DIVIDED INTO,34"D),GRAPHIC DRAWING COORDINATES,347#B,"ONE WAY TO INSURE THAT ANY STRING VARI- ABLES EX WO,82% C),FOUR,83&% D),THE PROGRAM LINE LENGTH,84M% B,WHAT IS THE CHR$ VALUE FOR '',9[% A),13,91i% B),34,92w% C),57,93% D),45,94%! B,THE EASIEST WAY TO RESTORE A FUNCTION KEY'S ORIGINAL DEFINITION IS TO,10% ! A),TYPE NEW , 1,20,10,''QUIZ'',0",82' C),"CHAR1,''QUIZ'',0",83C' D),"TEXT 1,20,10,''QUIZ'',0",84' A,THE PRIMARY FUNCTION OF SSHAPE AND GSHAPE IS TO,9' A),HOLD AND REPRODUCE COMPLEX SHAPES,91' B),DESIGN AND SAVE SHAPES,92' C),STORE AND LOAD NE POINT TO ANOTHER, WHICH COMMANDS WOULD YOU USE",68%D A),DRAW & RUN,61P%N B),PLOT & DRAW ,62i%X C),LOCATE & DRAW,63%b D),LOCATE & PLOT,64%l D,ONE MAJOR DIFFERENCE BETWEEN MULTICOLOR MODE AND HIGH RESOLUTION MODE IS,7%v A),NUMBER OF COMMA FOLLOWING IS NOT A SCREEN EDITING FUNCTION,2>!|A),DELETING A WORD,21Y!B),ENABLING A BELL,22v!C),FLASHING A CURSOR,23!D),REDEFINING A CURSOR,24!B,USING ONLY A SMALL PORTION OF THE SCREEN TO DISPLAY A PROGRAM IS CALLED,3!A),BOXIN   "":5,2:0,7:4,7B" THIS IS A QUIZ"J(""q2" THERE ARE 10 QUESTIONS"y<""F" HIT ANY KEY WHEN"P" YOU ARE READY TO CONTINUE"Z K$d Q1 10n"":CC2xFC((0)15 W MANY WINDOWS CAN BE ACTIVE AT ONE TIME,8C% A),AS MANY AS YOU HAVE SPECIFIED,81a% B),NO MORE THAN THREE,82u% C),ONLY ONE,83% D),NO FEWER THAN THREE,84% A,THE FIRST FOUR PARAMETERS OF THE WINDOW COMMAND DETERMINE,9& A),COORDINATES EY SHORTEN PROGRAMS ?,1? JA),GETKEY CANNOT ACCEPT THE NULL STRING,11q TB),GETKEY ELIMINATES ALL INPUT STATEMENTS,12 ^C),GETKEY ACCEPTS THE NULL STRING,13 hD),NONE OF THE ABOVE,14 rA,HOW MANY CHARACTERS CAN GETKEY ASSIGN TO A VARIABLE,2 6,51# B),4,52#& C),8,53#0 D),10,54W#: B,WHAT IS THE CORRECT SYNTAX FOR THE KEY COMMAND,6~#D A),"KEY ''DEFINITION,NUMBER''",61#N B),"KEY NUMBER,''DEFINITION''",62#X C),"KEY ''OLD DEFINITION'' TO ''NEW DEFI- NITION''",63$b D) ,"KEYgET THE COMPUTER,102& ! C),STOP THE PROGRAM,103O&*! D),"TYPE KEY NUMBER,''NEW DEFINITION''",104,73f$ D),),74$ D,WHAT'S THE LIMIT FOR THE NUMBER OF FUNC-TIONS FOR A SINGLE FUNCTION KEY,8$ A),THERE IS NO LIMIT,81$ B),TWO,82$ C),FO G,31 "B),WINDOWING,32""C),SCROLLING,335"D),VIEWING,34x"C,WHICH COMMAND WILL ALLOW YOU TO SET THE TOP WINDOW CORNER,4"A),ESC W,41"B),ESC B,42"C),ESC T,43"D),ESC C,44" C,TO CANCEL A WINDOW YOU MUST,5" A),HIT RETU 1): FCCC 120"BC((0)151)85,CC:4,BC:0,FCER$,Q$,NX NQ 160e Q$:""t A 1 4W$,A$,C W$ A$:"" A "ENTER THE LETTER FOR YOUR ANSWER" U$ U$R$ 5000 U$R$ 6000 OF THE TOP LEFT AND BOTTOMRIGHT CORNERS,91O& B),TOP RIGHT AND BOTTOM LEFT CORNER COOR-DINATES,92{& C),INTERSECTION OF THE FOUR CORNERS,93& D),POINTS THAT DEFINE FOUR CORNERS,94&! B,WINDOWS CAN NOT OVERLAP,10& ! A),TRUE,101&! B),FALSE !|A),1,21!B),2,22O!C),"ANY NUMBER, UP TO THE LIMIT OF THE PROGRAM LINE",23\!D),4,24!D,WHAT FUNCTION WOULD YOU USE TO TRANSLATE STRINGS RECEIVED BY GETKEY INTO NUMBERS,3!A),ABS,31!B),RND,32!C),INT,33!D),VAL,34,  NUMBER ,DEFINITION",64)$l C,13 IS THE CHR$ VALUE FOR,78$v A),'' ,71G$ B),TAB,72Y$ C),RETURN,73f$ D),),74$ D,WHAT'S THE LIMIT FOR THE NUMBER OF FUNC-TIONS FOR A SINGLE FUNCTION KEY,8$ A),THERE IS NO LIMIT,81$ B),TWO,82$ C),FO   "":%0,2,3:1,1,3:4,2,3H" THIS IS A QUIZ"P(""w2" THERE ARE 10 QUESTIONS"<""F" PRESS ANY KEY WHEN"P" YOU ARE READY TO CONTINUE":Z$d Q1 10n"":CC2xFC((0)1 RN TWICE,51# B),HIT RUN STOP,523#& C),HIT CLR/HOME TWICE,53L#0 D),HIT ESC AND C,54#: A,THE WINDOW COMMAND CAN HAVE UP TO FIVE PARAMETERS,6#D A),TRUE,61#N B),FALSE,62#X " "," ",63#b " "," ",649$l D,"IN THE WINDOW COMMAND   3  Q""":5,2:0,7:4,7*"""I," TOTAL SCORE":""o6" ANSWERS CORRECT :"GA:""@" ANSWERS INCORRECT :"WA:""JTP(GA10)100T"YOUR PERCENTAGE IS"TP"%"Y TP89 " VERY GOOD -,102' !" "," " ,103'*!" "," ",104C% A),AS MANY AS YOU HAVE SPECIFIED,81a% B),NO MORE THAN THREE,82u% C),ONLY ONE,83% D),NO FEWER THAN THREE,84% A,THE FIRST FOUR PARAMETERS OF THE WINDOW COMMAND DETERMINE,9& A),COORDINATES "C,WHICH OF THE FOLLOWING IS A VALID GETKEY COMMAND,4F"A),"GETKEY N,P,G",41i"B),GETKEY N$ AND P$ AND G$,42"C),"GETKEY N$,P$,Q$",43"D),GETKEY N$ + P$ + Q$,44" C,HOW MANY DEFINABLE FUNCTION KEYS DOES YOUR COMPUTER HAVE,5" A), UR,83% D),THE PROGRAM LINE LENGTH,84=% B,WHAT IS THE CHR$ VALUE FOR '',9K% A),13,91Y% B),34,92g% C),57,93u% D),45,94%! B,THE EASIEST WAY TO RESTORE A FUNCTION KEY'S ORIGINAL DEFINITION IS TO,10% ! A),TYPE NEW ,101%! B),RES 51): FCCC 120$BC((0)151)@1,CC,7:4,BC,3:0,FC,3MR$,Q$,N` NQ 160m Q$:""| A 1 4W$,A$,C W$ A$:"" A "ENTER THE LETTER FOR YOUR ANSWER":U$ U$R$ 5000 U$R$ 600  WINDOW10,10,20,20,1, WHICH PARAMETER CLEARS THE SCREEN",7e$v A),"THE FIRST 10 (FIRST PARAMETER)",71$ B),"THE SECOND 20 (FOURTH PARAMETER)",72$ C),"THE FIRST 20 (THIRD PARAMETER)",73$ D),"THE 1 (FIFTH PARAMETER)",74% C,HO !"%^"WOULD YOU LIKE TO TRY AGAIN (Y/N)"/h K$Er K$"Y" : 10[| K$"N" 350f"":" CORRECT !"GAGA1p" SORRY, INCORRECT "z" THE CORRECT ANSWER WAS "R$WAWA1 @C,HOW DOES GETK 0  EI 300: E Q7"":1,2,7:0,1,3:4,1,3?"""^," TOTAL SCORE":""6" ANSWERS CORRECT :"GA:""@" ANSWERS INCORRECT :"WA:""JTP(GA10)100T"YOUR PERCENTAGE IS"TP"%"Y TP89   "":5,2:0,7:4,7B" THIS IS A QUIZ"J(""q2" THERE ARE 10 QUESTIONS"y<""F" HIT ANY KEY WHEN"P" YOU ARE READY TO CONTINUE"Z K$d Q1 10n"":CC2xFC((0)15 " "P"9" "]"> X117"H" "" "" ""R X"\" ""f" ON WITH WHAT OTHER KEY WILL TYPING V, W, AND Z ALLOW YOU TO SCROLL UP, SCROLL DOWN AND CLEAR ALL TABS",1q JA),CTRL,11 TB),TAB,12 ^C),ESC,13 hD),RUN/STOP,14 rA,WHICH OF THE FOLLOWING IS NOT A SCREEN EDITING FUNCTION,2!|A),DELETINGP"  "%&"  THE END.GOODBYE ! "-& 28&"",6,34,17O$""u$"  "$X18$"  ""  "" "$ X$"  "$""$$5,5 E SCREEN",7'$v A),"THE FIRST 10 (FIRST PARAMETER)",71U$ B),"THE SECOND 20 (FOURTH PARAMETER)",72$ C),"THE FIRST 20 (THIRD PARAMETER)",73$ D),"THE 1 (FIFTH PARAMETER)",74$ C,HOW MANY WINDOWS CAN BE ACTIVE AT ONE TIME,8% A),AS MANY A   "":%1,1,3:0,2,3:4,2,3H" THIS IS A QUIZ"P(""w2" THERE ARE 10 QUESTIONS"7" SOME QUESTIONS APPLY ONLY TO THE C128"<""F" PRESS ANY KEY WHEN"P" YOU ARE READY TO CONTINUE": 1): FCCC 120"BC((0)151)85,CC:4,BC:0,FCER$,Q$,NX NQ 160e Q$:""t A 1 4W$,A$,C W$ A$:"" A "ENTER THE LETTER FOR YOUR ANSWER" U$ U$R$ 5000 U$R$ 6000  AMOUNT DUE """46 " $###.## ";A100P@" "uJ G15 "TANK IS FULL":310}T A^ 6h ""r" "X1 7 " ""  A WORD,21!B),ENABLING A BELL,228!C),FLASHING A CURSOR,23W!D),REDEFINING A CURSOR,24!B,USING ONLY A SMALL PORTION OF THE SCREEN TO DISPLAY A PROGRAM IS CALLED,3!A),BOXING,31!B),WINDOWING,32!C),SCROLLING,33!D),VIEWING YOUR PERCENTAGE IS"TP"%"?Y TP89 " VERY GOOD !"m^"WOULD YOU LIKE TO TRY AGAIN (Y/N)":K$r K$"Y" : 10| K$"N" 350"":" CORRECT !"GAGA1p" SORRY, INCORRECT " z" THE S YOU HAVE SPECIFIED,81#% B),NO MORE THAN THREE,827% C),ONLY ONE,83V% D),NO FEWER THAN THREE,84% A,THE FIRST FOUR PARAMETERS OF THE WINDOW COMMAND DETERMINE,9% A),COORDINATES OF THE TOP LEFT AND BOTTOMRIGHT CORNERS,91& B),TOP RIGHT A Z$d Q1 10n"":CC2>xFC((0)151): FCCC 120RBC((0)151)n1,CC,7:4,BC,3:0,FC,3{R$,Q$,N NQ 160 Q$:"" A 1 4W$,A$,C W$ A$:"" A"ENTER THE LETTER FOR YOUR ANSWER":   3  Q""":5,2:0,7:4,7*"""I," TOTAL SCORE":""o6" ANSWERS CORRECT :"GA:""@" ANSWERS INCORRECT :"WA:""JTP(GA10)100T"YOUR PERCENTAGE IS"TP"%"Y TP89 " VERY GOOD $" "%$""-$ 17$5,15G$6,6,34,17O$""u$"  "$X18$"  ""  "" "$ X$"  "$""$$5,5 ,34:"C,WHICH COMMAND WILL ALLOW YOU TO SET THE TOP WINDOW CORNER,4K"A),ESC W,41\"B),ESC B,42m"C),ESC T,43~"D),ESC C,44" C,TO CANCEL A WINDOW YOU MUST,5" A),HIT RETURN TWICE,51" B),HIT RUN STOP,52"& C),HIT CLR/HOME TWICE CORRECT ANSWER WAS "R$ WAWA1!  @C,"IN CONJUNCTION WITH WHAT OTHER KEY WILL TYPING V, W, AND Z ALLOW YOU TO SCROLL UP, SCROLL DOWN AND CLEAR ALL TABS",1 JA),CTRL,11 TB),TAB,12 ^C),ESC,13 hD),RUN/STOP,14#!rA,WHICH OF THE ND BOTTOM LEFT CORNER COOR-DINATES,92=& C),INTERSECTION OF THE FOUR CORNERS,93h& D),POINTS THAT DEFINE FOUR CORNERS,94&! B,WINDOWS CAN NOT OVERLAP,10& ! A),TRUE,101&! B),FALSE,102& !" "," " ,103&*!" "," ",104% A),AS MANY A U$ U$R$ 5000* U$R$ 6000?  E 1 400: EG Qe"":1,1,7:0,2,3:4,2,3m"""," TOTAL SCORE":""6" ANSWERS CORRECT :"GA:""@" ANSWERS INCORRECT :"WA:""JTP(GA10)100T" !"%^"WOULD YOU LIKE TO TRY AGAIN (Y/N)"/h K$Er K$"Y" : 10[| K$"N" 350f"":" CORRECT !"GAGA1p" SORRY, INCORRECT "z" THE CORRECT ANSWER WAS "R$WAWA1a @C,"IN CONJUNCTIS "" " XA " "G $ """rGA(P100) " GALLONS : ##.## ";G" """" PRICE PER GALLON """" " $##.## ";P,""" ,53#0 D),HIT ESC AND C,54J#: A,THE WINDOW COMMAND CAN HAVE UP TO FIVE PARAMETERS,6Z#D A),TRUE,61k#N B),FALSE,62{#X " "," ",63#b " "," ",64#l D,"IN THE WINDOW COMMAND WINDOW10,10,20,20,1, WHICH PARAMETER CLEARS TH   ""0,2:4,2) 1,1,10,102(5,1E2" "X<" WINDOWS "eAX1 4~F" "" "" "K XP" "U""Z34,05,39,22_ 1:5,6d" "nX1 12x" "" "" "} X EN"*"YOU ARE READY TO "*"CONTINUE"*& C$#*l""9*v2,05,20,23:""L*"EXERCISE #3"h*"10 PRINT ''TEST #1''"x*"20 PRINT"*"30 X=1:Y=10"*"40 FORZ=X-Y"*"50 PRINT''TESTING''"*"60 NEXT Z"*5,11*"WRITE A " "" "" "" "" "" "" "" "" "' ""/  18 5,5H 4,4,16,10^ " "k X1 2 &" "" "" " 0 X :" " D"" N 1 X5,5,15,9 b" MORE " l" WINDOWS" v""   ""2,2,19,201#" WINDOW ONE "?( J1 8m2"' '":"' '"u< JF"'''''''''''''''''"P21,2,38,20Z" WINDOW TWO "d J1 8n"' '":"' '"x J $" "%$""-$ 17$5,15G$6,6,34,17O$""u$"  "$X18$"  ""  "" "$ X$"  "$""$$5,5 6""2,2,19,201#" WINDOW ONE "?( J1 8m2"' '":"' '"u< JF"'''''''''''''''''"P21,2,38,20Z" WINDOW TWO "d J1 8n"' '":"' '"x J " """ 1, X1 108" "X@ XJ""X 1:5,11j5,2,35,20,1" "X116" "" "" " X" PROGRAM TO " +"TO DEBUG THIS EXER-"%+"CISE USING TRAP,RE-"D+"SUME, AND THE HELP KEY."]+"WHEN YOU ARE DONE"v+"PRESS ANY KEY FOR"+"SOLUTION"+  C$+""+ 22,05,39,23+*5,15+4"THE SOLUTION"+>"5 TRAP 100"+C  1!5,10!20,1,30,22)!" "8! X1 16R!" "" "" "Z! Xn!" "x!""!23,3,26,17!M$" "! X1 20!M$M$"*"! M$! X! ""! 1! 5,6!*1,1,39,22"4  "":4,1:0,1:5,11*1,2,38,1141000>(""M22,3,36,9U<""uF" PRICING WINDOW"{PZ"REGULAR ECONOMY SUPER";T$[ T$"R" P1.10: 94\ T$"E" P1.15: 94]P1.30^ "PRICE IS $ ,5$) 1%.8,8,32,15%3""2%8"  "@%B X1 4j%L" "" "" "" "r%V X%["  "%`""%e 1%j5,11%t10,10,30,13%y""%~"  "& #.##";P_"PER GALLON">d"HOW MUCH DO YOU WANT TO SPEND";MFnA0NxG0aA1 (M100)s10,11,30,24|5,2"Ϸ"A1 (M100)10,11,30,245,2"Ϸ"""" GAS PUMP  " "" 1!7,4,33,18,15006""">, 1H65,15[@2,15,37,22,1J" "T X15^" "" "" "h Xr" "10 PRINT ''TEST #1''",H"20 PRINT",R"30 X=1:Y=10".,\"40 FORZ=X-Y"I,f"50 PRINT''TESTING''"Z,p"60 NEXT Z"q,z"100 LIST 10-100","110 PRINT''ERR$(ER)''","120 HELP","130 RESUME NEXT",5,6,"PRESS ANY KEY WHEN", " "P"9" "]"> X117"H" "" "" ""R X"\" ""f" "'''''''''''''''''" 2'""3Y1 3C2,2,19,20N"":[ T118u"*****************": 1 T21,2,38,20"":B$"*" X112"" : B$B$B$"**": 1 X" Y:"",""P"  "%&"  THE END.GOODBYE ! "-& 28&"",6,34,17O$""u$"  "$X18$"  ""  "" "$ X$"  "$""$$5,5  """$""" WINDOW """A""b""" """rGA(P100) " GALLONS : ##.## ";G" """" PRICE PER GALLON """" " $##.## ";P,"""  " |"" 1"4,17,35,20. X13L" H E L L O ! !"T 1\ Xf""n 130,3,39,125,8 X1 4" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" " X w"YOU ARE READY TO"-"CONTINUE.":""- C$- 10#- ""K- "H A V E A G O O D D A Y !"Q- DONE"v+"PRESS ANY KEY FOR"+"SOLUTION"+  C$+""+ 22,05,39,23+*5,15+4"THE SOLUTION"+>"5 TRAP 100"+C  "#p""#z 1#5,8)#4,4,36,19T#" "#" "# X111#" "" "" "# X#" "  ""4,2:0,1:5,11=" PROGRAM DEBUGGING"\" ------- ---------"d(""l2""4" E) EXERCISE6""8"":" I) INFORMATION<"">""@" X) EXIT"A"":"":""B"PLEASE  THE HELP KEY"0#"WILL LIGHT UP THE ERROR WITHIN THE LINE."8#""|# " HIT ANY KEY WHEN YOU ARE":" TO CONTINUE#% C$#* 10#""#" PROGRAM DEBUGGING EXERCISE"#" ------- --------- --------"##B),THE RIGHT-MOST DIGITS ARE DROPPED,42D#C),THE NUMBER IS ROUNDED OFF,43o#D),THE NUMBER APPEARS AS ASTERISKS,44# A,YOU CAN MAKE NUMBERS APPEAR IN SCIENTI- FIC NOTATION,5# A),BY USING ^^^^ IN THE PRINT USING FOR- MAT,51%$ B),BY IN HIT ANY KEY WHEN YOU ARE":" TO CONTINUE>  C$G ""v "THE TRAP AND RESUME STATEMENTS ARE BEST" "USED AS A SUBROUTINE WHICH INTERCEPTS" "AND PRINTS ERROR CONDITIONS, AND THEN" "RESUMES EXECUTION." ""! G''-###.##'';A$",83+' D),"PRINT USING #### '' DOLLARS'';34",84V' C,PUDEF IS USED WITH PRINT USING TO,9}' A),REPLACE THE ORIGINAL FORMAT,91' B),CHANGE THE TYPE OF VARIABLE,92' C),REDEFINE CHARACTERS IN THE FORMAT,93' D),CHANGE THE DAT &x""&""'"" '""'2,05,20,23-'"EXERCISE #2"C'"100 GOSUB 2000"R'"2000 X=0l'"2010 DO UNTIL X=51"'"2020 PRINT X'"2030 PRINT''''"'"2040 X=X+2"'"2050 LOOP"'"2060 IF X= 52 THEN RETURN"'"2070 GOT ENTER YOUR CHOICE (E/I)"!C C$6F C$"I" 500LP C$"E" 1000bU C$"X" 3000mZ 10x"""THIS PROGRAM IS DESIGNED TO SHOW YOU""HOW TO DEBUG PROGRAMS USING TRAP, TRON ""TROFF AND THE HELP KEY. THE EXERCI ""#""$"" $$""$.2,05,20,230$3"EXERCISE #1"8$4""G$8"10 I=II"]$="20 FOR J=1-10 "m$B"30 I=I+J"~$L"40 NEXT I"$~"":""$5,6$"WRITE A PROGRAM TO "$"TO DEBUG THIS EXER-"$"CISE USING TRAP AND"$"RESPUTTING NUMBERS LARGER THAN THE FORMAT WILL ALLOW,52U$& C),BY USING E IN THE PRINT USING FORMAT,53$0 D),YOU CANNOT MAKE NUMBERS APPEAR IN SCI-ENTIFIC NOTATION,54$: D,WHAT IS MEANT BY FLOATING DOLLAR SIGN,6$D A),THE $ SIGN CAN BE MOVED WITH TH"TRON AND TROFF ARE BEST USED FOR TRA-"I!"CING LOGIC ERRORS. TRON WILL PRINT"x!"EACH PROGRAM LINE NUMBER AS IT EXECUTES"!"AND TROFF WILL TURN THE TRACE OFF,"!"WHICH ALLOWS YOU TO FOLLOW THE LOGIC."!"THIS IS ESPECIALLY USEFUL FOR A TO BE USED,94<(! B,THE FOUR CHARACTERS THAT CAN BE REDEFIN-ED WITH PUDEF ARE,10S( ! A),''#>=+'' ,101k(! B),"'' ,.$''",102( ! C),''****'',103(*! D),NOT IN ANY SPECIAL ORDER,10481& B),"PRINT USING ####*'';230",82& C),"PRINT USINO 2010"'"5,11(,"WRITE A PROGRAM TO "/(6"TO DEBUG THIS EXER-"J(@"CISE USING TRON AND"X(J"TROFF "q(T"WHEN YOU ARE DONE"(^"PRESS ANY KEY FOR"(h"SOLUTION"(r C$(|""(22,05,39,23(5,15("THE SOLUTION":""(SES"/"WILL CONTAIN BAD PROGRAMS WHICH YOU ARE"\"TO DEBUG USING THE GIVEN INFORMATION.""WHEN YOU ARE DEBUGGING, YOUR FIRST STEP""SHOULD BE TO TRAP THE ERRORS AND THE "&"LINES IN WHICH THEY OCCURED. THIS IS "0"DONE WITH THE UME" %"WHEN YOU ARE DONE"$%"PRESS ANY KEY FOR"8%"THE SOLUTION"B% C$L%""^%22,05,39,23h%5,15|%"SOLUTION":""%"05 TRAP 100"%"10 I=II"%"20 FOR J=1-10 "%"30 I=I+J"% "40 NEXT K"%"100 PRINT''ERRORE CUR- SOR,61I%N B),THE $ SIGN IS USED ONLY WITH NUMBERS FEATURING TWO DECIMAL PLACES,62%X C),THE $ SIGN IS REPLACED WITH OTHER SYM-BOLS,63%b D),THE $ SIGN MOVES TO ALWAYS BE NEXT TO THE LEFT-MOST DIGIT,64&l C,WHICH SYMBOL CANNOT BE INCLUDED DEBUGGING",""PROGRAM PORTIONS OR SUBROUTINES WITHIN"B""LONG PROGRAMS."J"""u""THE HELP KEY SHOULD BE INCORPORATED"""AFTER YOU HAVE USED THE TRAP AND RESUME"""OR TRON AND TROFF TO FIGURE WHICH PART "# "OF THE LINE IS IN ERROR.   "":%1,1,3:0,2,3:4,2,3H" THIS IS A QUIZ"P(""w2" THERE ARE 10 QUESTIONS"<""F" PRESS ANY KEY WHEN"P" YOU ARE READY TO CONTINUE":Z$d Q1 10n"":CC2xFC((0)15 "100 GOSUB 2000")"2000 TRON)"2005 X=01)"2010 DO UNTIL X=51"D)"2020 PRINT XZ)"2030 PRINT''''"l)"2040 X=X+2"})"2050 LOOP")"2060 TROFF")"2065 IF X=52 THEN RETURN")"2070 GOTO2000")5,6)"PRESS ANY KEY WHTRAP AND RESUME OR WITH"8:"THE TRON AND TROFF STATEMENTS."B?""pD"YOUR NEXT STEP WOULD BE TO INCORPORATE"N"THE HELP KEY. THIS STATEMENT WILL SHOW"X"YOU WHAT PART OF THE PROGRAM LINE IS"b"CAUSING THE PROBLEM."l""4 v"  IN LINE''EL "&#"105 PRINT''ERR$(ER)''".&("110 RESUME NEXT"6&2""?&75,6Y&<"PRESS ANY KEY WHEN"q&A"YOU ARE READY TO"&F"CONTINUE"&P C$&Z""&d" PROGRAM DEBUGGING EXERCISE"&n" ------- --------- --------"IN A PRINT USING FORMAT,7&v A), + ,71&& B), > ,725& C), < ,73D& D), = ,74~& A,WHICH OF THE FOLLOWING WILL NOT PRODUCE AN ERROR,8& A),"PRINT USING''THIS COSTS $####.##'';D",81& B),"PRINT USING ####*'';230",82& C),"PRINT USIN@.@***** SET COLORS AND GRAPHIC MODE *****7@ 0,7E@4,7:1,7N@1,1u@(***** DRAW FISH TANK BOTTOM *****@21,13:1,0,144320,147@3N1200@4X(319(0)):Y(146((0)39))@5C(1(15(0)))@61,C@71,X,Y@8 N&AF***** DR00,67000 F C$(6),Y$(4),P$(6,4)9PJ1 6: C$(J): JSZ K1 4: Y$(K): Kad J1 6on K1 4}x P$(K,J) J K"THIS PROGRAM OUTPUTS THE VALUE OF THE""AVERAGE FAMILY HOME IN THE ""FOLLOWING AMERICAN CITIEC N$(400):CN$(500): SA$(700): A2$(700): C$(250): S$(100)Q Z$(100)` E1 20i(""<" ADDRESS FILE"P" ------- ----"d"ENTRY'S NAME"x N$(E):""}"IS THERE A COMPANY NAME (Y/N)?"~ WC$ E TANK CASTLE *****DT1,101,1012D^1,105,99:1,167,85JDh1,101,70:1,190,99bDr1,194,70:1,194,59zD|1,174,59:1,199,59D1,193,147D1,199,55:1,99,59:1,116,59:1,121,59D1,100,47:1,109,47D1,118,47:1,178,47D1,187,47:1,740YY1  X$(E) ,""=@"ENTER THE CITY";CT$(E)ET""bh"ENTER THE STATE";S$(E)|"ENTER THE ZIP CODE"; Z$(E)"DO YOU WANT TO CONTINUE (Y/N) ?" C$ C$"N" 500 C$"Y" 400 E""Y1 !"%^"WOULD YOU LIKE TO TRY AGAIN (Y/N)"/h K$Er K$"Y" : 10[| K$"N" 350f"":" CORRECT !"GAGA1p" SORRY, INCORRECT "z" THE CORRECT ANSWER WAS "R$WAWA1* @A,WHAT ARE THE  AW A BRIDGE BY DRAWING TWO CIRCLES *****/AK1,6KAP1,280,160,30,30,270,90gAZ1,255,160,30,30,270,90~Ad1,250,160225,160An1,310,160285,160Ax1,280,130250,130A1,245,157A1,250,144:1,290,159A1,285,141:1,265,131B***** D S:"1"ATLANTA,DENVER,LOS ANGELES,NEW YORK,"T"PHILADELPHIA AND WASHINGTON"Zo"IN THE YEARS:""1950,1960,1970,1980""WHAT CITY";P$ J16 (P$,1)(C$(J),1) 270 J"WHAT YEAR";D$ K1 4 " WC$"N" CN$(E) "": 136"""= "ENTER COMPANY NAME"J CN$(E)R""n"ENTER STREET ADDRESS"{ SA$(E)"""DO YOU NEED ANOTHER LINE FOR THE STREET ADDRESS (Y/N) ?" AL$ AL$"N" A2$(E)"": 300"""196,47E1,10$E***** DRAW SEAWEED *****-E 2cE1,50,14435,100:1,50,14455,110:1,50,14465,90lE 1E***** SET COLOR FOR THE SPRITE *****E1,15E***** DRAW FISH SPRITE BY COMMANDS *****E1,2,2,45,45E1,5 F1,19,21): FCCC 120"BC((0)151)85,CC:4,BC:0,FCER$,Q$,NX NQ 160e Q$:""t A 1 4W$,A$,C W$ A$:"" A "ENTER THE LETTER FOR YOUR ANSWER" U$ U$R$ 5000 U$R$ 6000HASH MARKS (#) FOR IN A PRINT USING STATEMENT,1l JA),TO CREATE A FORMAT FOR PRINTING NUM- BERS AND LETTERS,11 TB),TO SEPARATE VARIABLES FROM THE COMMAND,12 ^C),TO SKIP SPACES BETWEEN PRINTOUTS,13 hD),TO SPACE NUMBERS ONLY,14!rD,WHIRAW A TANK CASTLE *****B1,13B1,100,100,195,149NB1,148,85,55,30,,,,120dB1,100,50,117,100zB1,195,50,178,100B1,95,50,122,60B1,200,50,173,60B1,147,80,7,5B1,147,80 147,75B1,147,80 154,80B1,147,80 147,85 D$Y$(K) 310, Kc6"THE VALUE OF THE AVERAGE HOME IN ";C$(J)" IN THE YEAR ";D$" WAS ";P$(J,K)@"ANOTHER VALUE (Y/N)";A$J A$"N" 350O A$"Y" 230T 320^"END OF HOME-COST COMPARISON"h"FOLLOWING AMERICAN CITIEENTER STREET ADDRESS";A2$(E) ,""=@"ENTER THE CITY";CT$(E)ET""bh"ENTER THE STATE";S$(E)|"ENTER THE ZIP CODE"; Z$(E)"DO YOU WANT TO CONTINUE (Y/N) ?" C$ C$"N" 500 C$"Y" 400 E""Y1 1,7,3: **FISH BODY**>F1,26,1932,1729,2032,2326,21: **FISH TAIL**^F***** DRAW FISH FINS *****wF1,18,2424,3022,24F&1,16,1822,1321,18F01,14,2418,2716,24F:***** FILL IN BODY AND DRAW EYES *****FD1,19,21:0,15,20,1,1:0  3  Q""":5,2:0,7:4,7*"""I," TOTAL SCORE":""o6" ANSWERS CORRECT :"GA:""@" ANSWERS INCORRECT :"WA:""JTP(GA10)100T"YOUR PERCENTAGE IS"TP"%"Y TP89 " VERY GOOD CH OF THE FOLLOWING IS CORRECT,2?!|A),"PRINT USING , ''####'' , A$",21f!B),"PRINT USING ''####'' , A$",22!C),"PRINT USING #### , A$",23!D),"PRINT USING ''####'' ; A$",24!"C,"WITH THE FORMAT DEFINED IN PRINT USING ''######'';A,WHICH OF THE FOLLOWING WILL PRINT OUT UNAFFECTED",36"A),"2984.98",31G"B), 0275,32Y"C),"1459",33n"D),"5735093",34"D,"IF A NUMBER IS TOO LARGE TO FIT INTO THE PRINT USING FORMAT, WHAT HAPPENS",4"A),THE LEFT-MOST DIGITS ARE ELIMINATED,41C1,147,80 140,80(C"1,132,145,162,125DC'1,147,125,15,15,270,90[C(0,133,125161,125C,1,99,46,5,5,,,,120:1,108,46,5,5,,,,120C61,117,46,5,5,,,,120:1,177,46,5,5,,,,120C@1,186,46,5,5,,,,120:1,195,46,5,5,,,,120 DJ***** PAINT TH X1 E""$0 "RECORD NO. ";X,D""9l ,N$(X)G ,CN$(X)U ,SA$(X)c ,A2$(X)q ,CT$(X)~ ,S$(X) ,Z$(X) Y1 720"HIT ANY KEY WHEN YOU ARE READY TO""CONTINUE" F$""Y0 k102% ! C),SIGNIFY A BEND IN THE PROGRAM STRUC- TURE,103Q*! D),LENGTHEN THEN AND ELSE CLAUSES,104 D),DO UNTIL CLAUSES,84 A,THE ELSE CLAUSE IS EXECUTED,9 A),WHEN THE IF CLAUSE IS FALSE,91 B),WHEN THE IF CLAUSE IS TRUE,92 C),  0,4:5,1A"THIS IS A QUIZ.THERE ARE 10 QUESTIONS.": 3IJ0R(0,4[2 Q$r< Q$"END" 120F"";Q$:A$H B$P A$B$ JJ1: 1000Z A$ B$ 2000d 40x"YOU GOT ";J;" OUT OF 10 CORRECT""THAT'S  WHAT IS 64 IN ROMAN NUMERALS,LXIVQ WHAT PRIMARY COLOR HAS THE SHORTEST NAME,RED{ WHAT ANIMAL CAN RUN FASTEST,CHEETAH WHAT DO CARCINOGENS CAUSE,CANCER HOW MANY FEET IN A MILE, 5280 WHAT DO DATES GROW ON,PALM TREES WHAT'S @@4,1:0,1@ 4,1 @ 1A@*******BASIC HOUSE*********U@3,20,90,50,120@#2,20,9035,6050,90:3,25,85,1:2,40,100,1@(******HOUSE SIDES*********@- 1@22,35,60 80,78@72,50,9090,94@<3,50,12090,109@F2,50,9090,94-   "":5,2:0,7:4,7B" THIS IS A QUIZ"J(""q2" THERE ARE 10 QUESTIONS"y<""F" HIT ANY KEY WHEN"P" YOU ARE READY TO CONTINUE"Z K$d Q1 10n"":CC2xFC((0)15@ @Z1@ 3,1 @S80:T50.@ Q1 9E@ Q3 X10: X5U@# Q8 X3e@( Q9 X2u@- Z0 W1@. Z0 W2@2 W,80,100,S,T@< W,80,100@ASSX:TTX@CZ(Z)@F Q@PA$:0@0,80,100@2,80,100,40,10ADO UNTIL A>10,63b D),DO UNTIL A<10,64Yl D,A ROUTINE FEATURING DO AND LOOP WITHOUT WHILE OR UNTIL,7yv A),DOESN'T RUN PROPERLY,71 B),PRODUCES A DO WITHOUT WHILE ERROR,72 C),ONLY RUNS ONCE,73 D),RUNS INDEFINITELY,74 A,THE ELSE 0,69C2,42,7485,85$C2,44,7987,897C2,47,8489,92DC 1:1,6gC*******HORIZON***************C1,160,10090,95:1,20,891,851,150160,150160,100C4,7:0,7: 1C2,90,50,10,10C2,90,50C2,75,30,15,15:2,75,30 D2,95@@4,1,3:0,1,3%@2,2,7:3,3,2.@ 4,1O@*******BASIC HOUSE*********c@3,20,90,50,120@#2,20,9035,6050,90:3,25,85,1:2,40,100,1@(******HOUSE SIDES*********@22,35,60 80,78@72,50,9090,94@<3,50,12090,109AF2,50,909AP3,80,7890,9490,109:3,65,80,1:2,65,115,1NAU******HOUSE WINDOWS********VAZ 1lA_3,55,98,70,106,1Ad3,75,99,86,105,1An3,62,10662,98As3,55,10270,102Ax3,80,9980,104A}3,75,10286,102A 1A*********DOOR*************2,105,38,120:3,33,110 B2,36,112AB*******MORE WINDOWS********UB3,23,95,29,103iB3,41,95,47,103}B3,26,9526,103B3,23,9929,99B3,44,9544,103B3,41,9947,99B********ROOFING*************B2,83,8240,69B2,42,74";J10100 "PERCENT"."CARE TO TRY AGAIN";C$4H C$"Y" 20^"OKAY, BYE THEN"dw RIGHT ANSWER S1 2:0,5: 1:O,3: 1: S WRONG ANSWER0,1: 1 WHAT IS A GROUP OF GEESE CALLED, GAGGLE WHEN THE PROGRAM REACHES THE LINE CON-TAINING IT,93K D),WHEN THE THEN CLAUSE IS FINISHED,94! D,THE PRIMARY FUNCTION OF BEGIN/BEND IS TO,10 ! A),GIVE YOU GREATER CONTROL OVER YOUR COMPUTER,101! B),TELL YOU WHERE TO BEGIN A SUBROUTINE, A LOVE APPLE,TOMATO6 WHAT'S THE LARGEST PLANET,JUPITERr WHAT VITAMIN COMPLEX INCLUDES NIACIN AND RIBOFLAVIN,B| END 2:0,5: 1:O,3: 1: S WRONG ANSWER0,1: 1 WHAT IS A GROUP OF GEESE CALLED, GAGGLE ,35,10,10:2,95,35(D2,140,35,15,10:2,140,35FD2,118,25,12,12:2,118,25OD1,8iD1,20,10,5,5:1,19,11D"1,6:3,62,10662,98DA$:ޜ:,99B3,44,9544,103B3,41,9947,99B********ROOFING*************B 1B2,83,824*B3,32,105,38,120:3,33,110*B2,36,112KB*******MORE WINDOWS********_B3,23,95,29,103sB3,41,95,47,103B3,26,9526,103B3,23,9929,99B3,44,9544,103B3,41,9947,99B********ROOFING*************B 1B2,83,824D2,140,35,15,10:2,140,352D2,118,25,12,12:2,118,25=D1,8,6WD1,20,10,5,5:1,19,11qDA$:0:1,1,1:0,2,7wDLB3,23,9929,99B3,44,9544,103B3,41,9947,99B********ROOFING*************B2,83,8240,69B2,42,74H ATLANTA, DENVER, LOS ANGELES, NEW YORK, PHILADELPHIA, WASHINGTONb 1950,1960,1970,198014000,15000,27000,24000,23000,25000(17000,18000,32000,25000,26000,27000227000,30000,45000,39000,41000,43000<45000,50000,56000,60000,650 CLAUSE GOES WITH,8" A),CONDITIONAL STATEMENTS,819 B),DELAY LOOPS,82U C),DO WHILE CLAUSES,83q D),DO UNTIL CLAUSES,84 A,THE ELSE CLAUSE IS EXECUTED,9 A),WHEN THE IF CLAUSE IS FALSE,91 B),WHEN THE IF CLAUSE IS TRUE,92 C), 0,943AP3,80,7890,9490,109:3,65,80,1:2,65,115,1TAU******HOUSE WINDOWS********jA_3,55,98,70,106,1Ad3,75,99,86,105,1An3,62,10662,98As3,55,10270,102Ax3,80,9980,104A}3,75,10286,102A*********DOOR**************B3,385,85C2,44,7987,89%C2,47,8489,920C1,6,4SC*******HORIZON***************C1,160,10090,95:1,20,891,851,150160,150160,100C4,7,3:0,7,3C2,90,50,10,10C2,90,50C2,75,30,15,15:2,75,30C2,95,35,10,10:2,95,35  X1X16""%4,X/(XX152?<X1HF0,XRPXX1XZd X16:" CHANGING COLORS"n5,XxXX1LOAD ADDRESS REL.FILE.DEMOSEQ.FILE.DEMO  "":5,2:0,7:4,7B" THIS IS A QUIZ"J(""q2" THERE ARE 10 QUESTIONS"y<""F" HIT ANY KEY WHEN"P" YOU ARE READY TO CONTINUE"Z K$d Q1 10n"":CC2xFC((0)1552#& C),PRESS THE RUN/STOP KEY,534#0 D),USE THE ESCAPE KEY,54l#: C,WHICH DO LINE CAN MAKE A PROGRAM COUNT TO TEN,6#D A),DO WHILE A=10,61#N B),DO WHILE A>9,62#X C),DO UNTIL A>10,63#b D),DO UNTIL A<10,64$l D,A ROUTINE FEATURING DO AN CAN BE USED TO,12 JA),DELAY A PROGRAM BEFORE IT RUNS,11c TB),REPEAT A COMMAND LATER IN THE PROGRAM,12 ^C),RUN A SUBROUTINE OUT OF SEQUENCE,13 hD),SLOW DOWN PROGRAM EXECUTION,14!rB,WHAT ADVANCED C128 COMMAND WOULD HAVE THE SAME EFFECT !HEN THEN AND ELSE CLAUSES,104 D),DO UNTIL CLAUSES,84L% A,THE ELSE CLAUSE IS EXECUTED,9s% A),WHEN THE IF CLAUSE IS FALSE,91% B),WHEN THE IF CLAUSE IS TRUE,92% C),WHEN THE PROGRAM REACHES THE LINE CON-TAINING IT,93& D),WHEN THE THEN   "":%1,1,3:0,2,3:4,2,3H" THIS IS A QUIZ"P(""w2" THERE ARE 10 QUESTIONS"7" SOME QUESTIONS APPLY TO THE C128 ONLY"<""F" HIT ANY KEY WHEN"P" YOU ARE READY TO CONTINUE":":U$(Q) U$(Q)R$ 50006 U$(Q)R$ 6000K  E 1 400: ES Qq"":1,2,7:0,1,3:4,1,3y"""," TOTAL SCORE":""6" ANSWERS CORRECT :"GA:""@" ANSWERS INCORRECT :"WA:""JTP(GA10)100$ 1): FCCC 120"BC((0)151)85,CC:4,BC:0,FCER$,Q$,NX NQ 160e Q$:""t A 1 4W$,A$,C W$ A$:"" A "ENTER THE LETTER FOR YOUR ANSWER" U$ U$R$ 5000 U$R$ 6000D LOOP WITHOUT WHILE OR UNTIL,7/$v A),DOESN'T RUN PROPERLY,71\$ B),PRODUCES A DO WITHOUT WHILE ERROR,72v$ C),ONLY RUNS ONCE,73$ D),RUNS INDEFINITELY,74$ A,THE ELSE CLAUSE GOES WITH,8$ A),CONDITIONAL STATEMENTS,81$ B),DELAY LOOPS,8AS AN EMPTY FOR NEXT LOOP,2$!|A),WAIT,215!B),SLEEP,22C!C),DO,23T!D),DELAY,24!B,THE DELAY CREATED BY SLEEP 60 IS EQUAL TO,3!A), ONE SECOND,31!B), ONE MINUTE,32!C),ONE HOUR,33!D),ONE FULL LOOP,34!"A,WHICH COM "z" THE CORRECT ANSWER WAS "R$'WAWA1-R@D,A DELAY LOOP CAN BE USED TO,1|JA),DELAY A PROGRAM BEFORE IT RUNS,11TB),REPEAT A COMMAND LATER IN THE PROGRAM,12^C),RUN A SUBROUTINE OUT OF SEQUENCE,13hD),SLOW DOWN PROGRAM EX ECUTION,14^rB,WHAT ADVANCED C128 COMMAND WOULD HAVE THE SAME EFFECT AS AN EMPTY FOR NEXT LOOP,2n|A),WAIT,21B),SLEEP,22C),DO,23D),DELAY,24B,THE DELAY CREATED BY SLEEP 60 IS EQUAL TO,3A), ONE SECOND,31B), ONE MINUTE,32C),ONE HOUR,33-D),ONE FULL LOOP,34kA,WHICH COMMAND DOES NOT BELONG IN A LINE FEATURING DO,4{A),NEXT,41B),WHILE,42C),UNTIL,43D),LOOP,44 C,WHAT IS THE BEST WAY TO HALT EXECUTION OF A PROGRAM STUCK IN  3  Q""":5,2:0,7:4,7*"""I," TOTAL SCORE":""o6" ANSWERS CORRECT :"GA:""@" ANSWERS INCORRECT :"WA:""JTP(GA10)100T"YOUR PERCENTAGE IS"TP"%"Y TP89 " VERY GOOD 2 % C),DO WHILE CLAUSES,83'% D),DO UNTIL CLAUSES,84L% A,THE ELSE CLAUSE IS EXECUTED,9s% A),WHEN THE IF CLAUSE IS FALSE,91% B),WHEN THE IF CLAUSE IS TRUE,92% C),WHEN THE PROGRAM REACHES THE LINE CON-TAINING IT,93& D),WHEN THE THEN MAND DOES NOT BELONG IN A LINE FEATURING DO,41"A),NEXT,41B"B),WHILE,42S"C),UNTIL,43c"D),LOOP,44" C,WHAT IS THE BEST WAY TO HALT EXECUTION OF A PROGRAM STUCK IN A LOOP,5" A),RESET THE COMPUTER,51" B),WAIT UNTIL IT IS FINISHED, Z$d Q1 10n"":CC1@xFC((0)151): FCCC 120TBC((0)151)p1,CC,7:4,BC,3:0,FC,3}R$,Q$,N NQ 160 Q$:"" A 1 4W$,A$,C W$ A$:"" A "ENTER THE LETTER FOR YOUR ANSWER T"YOUR PERCENTAGE IS"TP"%"KY TP89 " VERY GOOD !"y^"WOULD YOU LIKE TO TRY AGAIN (Y/N)":K$r K$"Y" : 10| K$"N" 350"":" CORRECT !"GAGA1p" SORRY, INCORRECT  A LOOP,5 A),RESET THE COMPUTER,51> B),WAIT UNTIL IT IS FINISHED,52`& C),PRESS THE RUN/STOP KEY,53~0 D),USE THE ESCAPE KEY,54: C,WHICH DO LINE CAN MAKE A PROGRAM COUNT TO TEN,6D A),DO WHILE A=10,61N B),DO WHILE A>9,62X C),!"%^"WOULD YOU LIKE TO TRY AGAIN (Y/N)"/h K$Er K$"Y" : 10[| K$"N" 350f"":" CORRECT !"GAGA1p" SORRY, INCORRECT "z" THE CORRECT ANSWER WAS "R$WAWA1 @D,A DELAY LOOP CLAUSE IS FINISHED,945&! D,THE PRIMARY FUNCTION OF BEGIN/BEND IS TO,10q& ! A),GIVE YOU GREATER CONTROL OVER YOUR COMPUTER,101&! B),TELL YOU WHERE TO BEGIN A SUBROUTINE,102& ! C),SIGNIFY A BEND IN THE PROGRAM STRUC- TURE,103'*! D),LENGTA}} h    hy BASIC DEMOS012ACOLORCHANGEQUIZ1 QUIZ1/4 BOXINGCALORIE COUNTERBANK STATEMENTMAILING LISTMAILING LIST/4RUGRATRUGANSWERQUIZ2 QUIZ2/4 REAL ESTATEDEBUG EXERCISETRACEEX EDITQUIZ EDITQUIZ/4 WINDOW DEMO  WINDOW DEMO2GASPUMPHOROSCOPE3 QUIZ4 QUIZ4/4 QUIZ5 QUIZ5/4  TRIVIA7 TRIVIA/47TRIVIA/16COLORPLUSCOLORPLUS/4RUGTRIANGLES OCTAGONPAINTDEMOHOUSE DRAWINGHOUSE DRAWING/4SWIRLSSCALESSCALES/4 QUIZ9QUIZ9/4MAKESOUNDDEMO SOUNDSWANSONGFISH TANK TROPICAL GASPUMP2WF1939RUGANSWER F *****SET VARIABLES FOR BOXERS NAMES,HANDICAP,SCORING AND ROUNDb "NAME OF CHAMPION";A1$"NAME OF CHALLENGER"; B1$"HANDICAP (+1 FOR "A1$" ADVANTAGE, -1 FOR "B1$", 0 FOR EVEN)"( HA2"SCORING IS ON THE 10-POINT MUST SYSTEM"   :AA$""( X1L***** SET UP MENU SCREEN *****U""u(" CALORIE COUNTER"2" ------- -------"<""F" FOOD TYPE"P" - - - - -"Z" [ ]BEVERAGES"_"" URSOR, DETERMINE IT'S POSTION AND CATEGORY *****Z" MOVE THE CURSOR TO YOUR SELECTION,"|" THEN HIT RETURN"5,1A1$(13)A1$:A1$"" 220A1$"" X7  AA$AA$"":XX1:220:A1$" SERVING CALORIES"9 ," - - - - - - - - - - - - -"A 6""l @" ALE 12 OUNCES 150" J" BEER 12 OUNCES 150" T" BEER,LITE 12 OUNCES 105" ^" BRANDY 1.5 OUNCES 73"!h"  MILK,WHOLE 8 OUNCES 150"A"" ORANGE JUICE 8 OUNCES 120"l"" SODA,COLA 12 OUNCES 145""" SODA DIET 12 OUNCES 1""" WHISKEY 1.5 OUNCES 105""" WINE,DRY 3.5 OUNCES 85"""" SERVING SIZE CALORIES"9$l" - - - - - - - - - - - - - - - -"d$v" BACON 2 STRIPS 85"$" CEREAL,DRY 6 OUNCES 70"$" EGG MCMUFFIN 1 352"$" ENGLISH MUFFIN 1 186"$"*******FFTSGGTP=" CHAMPION CURRENTLY=";FG^*******JUDGE FOR TKO*******z FG20 GF20 225A$ HH*******FINAL SCORING******* "FINAL POINT TOTALS";A1$;F,B1$;G*******DECISION *********** 2 LINKS 120"2&" WAFFLES 1 210":&""e&"PRESS RETURN WHEN YOU ARE READY TO "y& "CONTINUE ";G$&&  X2 1&%***** PRINT OUT CATEGORY 3 INFORMATION *****&* X3 :&4""&>"  CHEESE ""(" CHILI WITH 6 OUNCES 259"2(" BEANS"_(" CLUB SANDWICH 10 OUNCES 670"(" GRILLED CHEESE 1 SANDWICH 350"(" BURGER,ROLL 4 OUNCES 418"(" HAM SANDWICH 1 SANDWICH 350" )" HAM & CHEESE 1 SANDWICH 458"@)" HOT DOG,ROLL 1 291"m)" PIZZA 1 SLICE 145")" ROAST BEEF 1 SANDWICH 429")"")"PRESS RETURN WHEN YOU ARE READY TO")" CONTINUE";G$)) X3 1'***** PRINT OUT CATEGORY 4 INFORMATION ****6*$ X4 ?*.""G*8""g*B" DINNER FOODS"*G" ------------"*L" FOOD TYPE SERVING SIZE CALORIES"*V" - - - - - - - - - - - - - - d" [ ]BREAKFAST FOODS"'i""Gn" [ ]LUNCH FOODS"Os""px" [ ]DINNER FOODS"x}""" [ ]DESSERTS"""" [ ]SNACKS AND CANDY"""" [ ]EXIT"",***** MOVE C<,A1$,B1$F HH1 15*P"ROUND ";HHKX ********ROUND SCORING*****`ZTS(10(0))HAmdTP10TSi******JUDGE FOR TKO *******n TSHA10 TPHA10 235x TS10 TP10 235" " TS,TP *******TOTAL SCORE" X1  AA$(AA$,((AA$)2))):XX11:T AA$" ": I1100:: AA$" "Z***** PRINT OUT CATEGORY 1 INFORMATION *****X1 :""" BEVERAGES"" ---------" "" BEVERAGE  COCOA 8 OUNCES 245"A!r" CHAMPAGNE 3.5 OUNCES 85"j!" COFFEE,TEA 8 OUNCES 2"!" LEMONADE 8 OUNCES 105"!" MARTINI,DRY 2.5 OUNCES 140"!" MILK,SKIM 8 OUNCES 120""" #"PRESS RETURN WHEN YOU ARE READY TO"3#!" CONTINUE";G$:e#&***** PRINT OUT CATEGORY 2 INFORMATION *****u#0 X1 1#: X2 :#?""#D" BREAKFAST FOODS"#N" --------- -----"#X"" $b" FOOD TYPE  (WITH BUTTER)"+%" FRIED EGG 1 115"V%" OATMEAL 2/3 CUP 87"%" OMLET,CHEESE 6 OUNCES 340"%" PANCAKES 3 180"%" ROLL,BUTTERED 1 260"&" SAUSAGE  LUNCH FOODS"'H" ----- -----"!'R""Q'\" FOOD ITEM SERVING SIZE CALORIES"'f" - - - - - - - - - - - - - - - "'p" BOLOGNA 1 SANDWICH 313"'z" BURGER,ROLL 4 OUNCES 518"'" AND FG "DRAW": 240J FG "THE WINNER IS ";A1$: "THE WINNER IS ";B1$S240 FG A1$" WINS ON A TKO": B1$" WINS ON A TKO" 240 TSTP A1$" KNOCKS OUT "B1$: B1$" KNOCKS OUT "A1$TP *******TOTAL SCORE - -"+`" BEEF POT PIE 8 OUNCES 560">+j" BEEF STEAK 3 OUNCES 330"j+t" BEEF STROGANOFF 8 OUNCES 500"+~" BLUEFISH 3 OUNCES 135"+" BURRITO,BEEF 6.5 OUNCES 466"+" CHICKEN POT PIE 8 OU "" X14" BANK STATEMENT"V" ---- ---------"^(""2"ENTER BEGINNING BALANCE";BB7WWBB<""F"IS THIS TRANSACTION A WITHDRAWAL(W) OR A DEPOSIT(D)";T$K"ARE YOU SURE";K$: K$"Y" 80M70 8 OUNCES 430"-" CHEESE"3-" PORK CHOP 2.7 OUNCES 305"_-" POT ROAST 2.5 OUNCES 140"-" SPAGHETTI WITH 8 OUNCES 260"-" SAUCE"- ""-"PRESS RETURN WHEN YOU ARE READY TO "-"CONTINUx" BANANA SPLIT 1 540"0/" BROWNIE 1 95"]/" CHEESECAKE 5.7 OUNCES 400"/" CHOCOLATE CAKE 1 SLICE 250"/" COFFEE CAKE 1 SLICE 230"/" COOKIES 4 IT 1 SLICE 345"1" PIE,PECAN 1 SLICE 495"L1" PIE,PUMPKIN 1 SLICE 275"y1"" PUDDING, 8 OUNCES 385"1," CHOCOLATE"16" SHERBERT 8 OUNCES 270"1@""1J"PRESS RETUR -- -------"/" DEPOSITS WITHDRAWALS"Y" - - - - - - - - - - -"g" Y1 Xz, TA(Y)0 6 " $###,###.##-";TA(Y)@J TA(Y)0 T " $###,###.##";TA(Y)^h Y"3" - - - - - - - - - - - -".3" CANDY,HARD 1 OUNCE 110"Z3" CARAMEL 1 OUNCE 115"3" CHOCOLATE BAR 1 OUNCE 145"3" FRENCH FRIES 10 135"3" FUDGE 1 OU #P"ENTER TRANSACTION AMOUNT";TA(X)+Z""MdT$"W" TA(X)1TA(X):120snT$"D" "ENTER D OR W";T$:100xBBBBTA(X)"""DO YOU WISH TO ENTER ANOTHER TRANSACTION (Y/N)";A$ A$"Y" """ BANK STAT" BUTTERED"5&" POPCORN, 8 OUNCES 25"50" UNBUTTERED"I5:" POTATO CHIPS 1 OUNCE 150"u5D" PRETZELS 1 OUNCE 110"5N" SUGAR 1 TBSP. 45"5X""5b"PRESS RETURN WHEN YOU ARE REA)**********************************Q* INITIALIZE *y**********************************TC0:TW0:MCO:MW0:SC0:SW0:CC0:CW0:UC0:UW0*********************************** MAIN MENU NCES 535"," FRIED CHICKEN 1 WING 151"F," FISH & CHIPS 7 OUNCES 370"r," FISH STICKS 4 180"," FRIED SHRIMP 3 OUNCES 190"," LAMB CHOP 3.1 OUNCES 360"," MACARONI &Sr""- | " ENDING BALANCE : #$###,###.##";BBG " ------ -------" A$"N" 140l""" BANK STATEMENT"" ---- ---------"""  " BEGINNING BALANCE : #$###,###.##";WW " -------E";G$-(-2X4 1(.7***** PRINT OUT CATEGORY 5 INFORMATION ****7.< X5 @.F""].P" DESSERTS"z.Z" --------".d" DESSERT SERVING SIZE CALORIES".n" - - - - - - - - - - - - - - -"/EMENT"%" ---- ---------"/XX16L A$"Y" 70c A$"N" 140l""" BANK STATEMENT"" ---- ---------"""  " BEGINNING BALANCE : #$###,###.##";WW " ------- 200"0" DANISH PASTRY 1 275">0" DONUT,FILLED 1 225"k0" DONUT,PLAIN 1 100"0" ICE CREAM 8 OUNCES 270"0" JELLO 8 OUNCES 140"0" PIE,FRUN WHEN YOU ARE READY TO "2T"CONTINUE";G$2^2h X5 1I2m***** PRINT OUT CATEGORY 6 INFORMATION *****X2r X6 a2|""2" SNACKS AND CANDY"2" ----------------"2" SNACK SERVING CALORIESNCE 115" 4" MARSHMALLOWS 1 25"54" NUTS,DRY 1 OUNCE 160"G4" ROASTED"s4" NUTS,MIXED 1 OUNCE 180"4" ONION RINGS 1 PORTION 300"4" POPCORN, 8 OUNCES 85"4@C@ N$(400):CN$(500): SA$(700): A2$(700): C$(250): S$(100)Q@ Z$(100)`@ E1 20i@(""@<" ADDRESS FILE"@P" ------- ----"@d"ENTRY'S NAME"@x N$(E):""@}"IS THERE A COMPANY NAME (Y/N)?"@~ WC$ AHDY TO "5l"CONTINUE";G$55 X6 16p X6 "":,DRY 1 OUNCE 160"G4" ROASTED"s4" NUTS,MIXED 1 OUNCE 180"4" ONION RINGS 1 PORTION 300"4" POPCORN, 8 OUNCES 85"4  "":%1,1,3:0,2,3:4,2,3H" THIS IS A QUIZ"P(""w2" THERE ARE 10 QUESTIONS"<""F" PRESS ANY KEY WHEN"P" YOU ARE READY TO CONTINUE":Z$d Q1 10n"":CC2xFC((0)>TINUE"D F$D""DY0 D*DYY12D XY";CT$(E)JBT""gBh"ENTER THE STATE";S$(E)B|"ENTER THE ZIP CODE"; Z$(E)B"DO YOU WANT TO CONTINUE (Y/N) ?"B C$B C$"N" 500B C$"Y" 400B EB""BARE ELIMINATED,410#B),THE RIGHT-MOST DIGITS ARE DROPPED,42U#C),THE NUMBER IS ROUNDED OFF,43#D),THE NUMBER APPEARS AS ASTERISKS,44# A,YOU CAN MAKE NUMBERS APPEAR IN SCIENTI- FIC NOTATION,5# A),BY USING ^^^^ IN THE PRINT USING FOR- MAT WC$"Y" A""/A "ENTER COMPANY NAME" ,72F& C), < ,73U& D), = ,74& A,WHICH OF THE FOLLOWING WILL NOT PRODUCE AN ERROR,8& A),"PRINT USING''THIS COSTS $####.##'';D",81& B),"PRINT USING ####*'';230",82' 151): FCCC 120%BC((0)151)A1,CC,7:4,BC,3:0,FC,3NR$,Q$,Na NQ 160n Q$:""} A 1 4W$,A$,C W$ A$:"" A "ENTER THE LETTER FOR YOUR ANSWER":U$ U$R$ 5000 U$R$ 60 *' **********************************0 ""H 1,"GOTO170"(13)` 2,"GOTO444"(13)x 3,"GOTO659"(13) 4,"GOTO899"(13) 5,"GOTO1139"(13) 6,"GOTO1374"(13) 7,"GOTO7"(13) 8,"GOTO7"(13)C0:W0,516$ B),BY INPUTTING NUMBERS LARGER THAN THE FORMAT WILL ALLOW,52f$& C),BY USING E IN THE PRINT USING FORMAT,53$0 D),YOU CANNOT MAKE NUMBERS APPEAR IN SCI-ENTIFIC NOTATION,54$: D,WHAT IS MEANT BY FLOATING DOLLAR SIGN,6 %D A),THE $ SIGN CANT ADDRESS";A2$(E)B A2$""%B,""BB@"ENTER THE CITY";CT$(E)JBT""gBh"ENTER THE STATE";S$(E)B|"ENTER THE ZIP CODE"; Z$(E)B"DO YOU WANT TO CONTINUE (Y/N) ?"B C$B C$"N" 500B C$"Y" 400B EB""BNLY,14'!rD,WHICH OF THE FOLLOWING IS CORRECT,2P!|A),"PRINT USING , ''####'' , A$",21w!B),"PRINT USING ''####'' , A$",22!C),"PRINT USING #### , A$",23!D),"PRINT USING ''####'' ; A$",242"C,"WITH THE FORMAT DEFINED IN PRINT USING '' C),"PRINT USING''-###.##'';A$",83;' D),"PRINT USING #### ''DOLLARS'';34",84f' C,PUDEF IS USED WITH PRINT USING TO,9' A),REPLACE THE ORIGINAL FORMAT,91' B),CHANGE THE TYPE OF VARIABLE,92' C),REDEFINE CHARACTERS IN THE FORMAT,93( D00  E1 800: E Q8"":1,2,7:0,1,3:4,1,3@"""_," TOTAL SCORE":""6" ANSWERS CORRECT :"GA:""@" ANSWERS INCORRECT :"WA:""JTP(GA10)100T"YOUR PERCENTAGE IS"TP"%"Y TP89 """" TRIVIA QUIZ"A" ==========="I#""g(" CATEGORIES"o-""2" F1: TELEVISION"<" F2: MOVIES"F" F3: SPORTS"P" F4: COMICS"U" F5: MU BE MOVED WITH THE CUR- SOR,61Z%N B),THE $ SIGN IS USED ONLY WITH NUMBERS FEATURING TWO DECIMAL PLACES,62%X C),THE $ SIGN IS REPLACED WITH OTHER SYM-BOLS,63%b D),THE $ SIGN MOVES TO ALWAYS BE NEXT TO THE LEFT-MOST DIGIT,64&l C,WHICH SYMBOL CAY1 C X1 EC""9C0 X1E "RECORD NO. ";X,:580OC: "RECORD NO. ";XWCD""dCl ,N$(X)rC ,CN$(X)C ,SA$(X)C ,A2$(X)C ,CT$(X)C ,S$(X)C ,Z$(X)C Y2 C"HIT ANY KEY WHEN YOU ARE READY TO"C"CON######'';A,WHICH OF THE FOLLOWING WILL PRINT OUT UNAFFECTED",3G"A),"2984.98",31X"B), 0275,32j"C),"1459",33"D),"5735093",34"D,"IF A NUMBER IS TOO LARGE TO FIT INTO THE PRINT USING FORMAT, WHAT HAPPENS",4#A),THE LEFT-MOST DIGITS ),CHANGE THE DATA TO BE USED,94L(! B,THE FOUR CHARACTERS THAT CAN BE REDEFIN-ED WITH PUDEF ARE,10c( ! A),''#>=+'' ,101{(! B),"'' ,.$''",102( ! C),''****'',103(*! D),NOT IN ANY SPECIAL ORDER,104,81& B),"PRINT USING ####*'';230",82'" VERY GOOD !"@^"WOULD YOU LIKE TO TRY AGAIN (Y/N)":K$Vr K$"Y" : 10l| K$"N" 350w"":" CORRECT !"GAGA1p" SORRY, INCORRECT "z" THE CORRECT ANSWER WAS "R$WAWA1; @ *"*** MOVIES ROUTINE *A"********************************J"""^"LN5040:C0:W0r"4,7:5,7:0,15"" MOVIES""""Y1" T1 10" 4000" T"X*********************************#Y*  "":4,15:0,7:5,15<" TRACING EXAMPLE"]" ------- -------"k(""2" CHOOSE A NUMBER FROM 1 TO 5"< NP N1 150Z N2 420d N3 710n N4 930x N5 1170 }  K$"N" 10 360""H"MATHEMATICAL FUNCTIONS SUBROUTINE"q"------------ --------- ----------"y"""ENTER A NUMBER FROM 1-50";N N50 470 N1 470"""THE SQUARE OF " N" = ";NN""   PRESS S""  A$" A$"B" 780&" XTI?"*" TIMING STARTED"I"4 A$\"> A$"S" 820l"HT(TIX)60"R" ELLAPSED TIME :""\" "T;"SECONDS""p"""z" PRESS ANY KEY WHEN YOU""" ARE READY TO CONTINU%8"THE NUMBER WAS : " N:1110%B"RIGHT !"%%V""M%`"WOULD YOU LIKE TO TRY AGAIN (Y/N)W%j K$q%t K$"Y" "": 985%~ K$"N" 10%1110%""%""%"T H E E N D " WHAT IT WAS":""#"PRESS A KEY WHEN YOU ARE RSIC "W" F6: EXIT"!Z""/d""[n"PRESS THE APPROPRIATE FUNCTION KEY":*********************************** TV ROUTINE ************************************""LN5000:C0:W04,3:5$vP(C10)100${MCC:MWW5$ "YOUR PERCENTAGE IS ###.##%";P;$C$ 5N$ 20t$********************************$* SPORTS ROUTINE *$********************************$""$LN5080:C0:W0$4,1:5,2:0 N5 50 N1 500"PLEASE REENTER"9""^" COIN TOSSING SUBROUTINE"f"""PRESS ANY KEY TO TOSS YOUR COIN" C$" WAIT FOR THE TOSS"" ---- --- --- ----""" S1 50ST(02(0))"THE SQUARE ROOT OF ";N" =";N.5 ""F "THE HEXADECIMAL FOR "N" = "(N)N ""k &"THE LOG OF "N" = "(N)s 0"" :"THE SINE OF "N" = "(N) D"" N"THE COSINE OF "N" = "(N) X"" b"THE TANGENT OF "N" = "(N) l"" "" !E"" K$# 10#""1#" SPEED SUBROUTINE"R#" ----- ----------"Z#""#"A 7 SEVEN DIGIT NUMBER WILL FLASH ACROSS"#"THE SCREEN YOU WILL HAVE TWO CHANCES TO GUESS WHAT IT WAS":""#"PRESS A KEY WHEN YOU ARE RS SECTION YOU HAVE ANSWERED ##";C!""H! "CORRECTLY AND ## INCORRECTLY";W^! C0 P0: 415o!P(C10)100}!TCC:TWW!""! "YOUR PERCENTAGE IS ###.##%";P!! 5! 20!******************************* MOVIES SUBTOTAL *5#Z*********************************U#]" MOVIES"]#b""#g "IN THIS SECTION YOU HAVE ANSWERED ##";C#j""#l "CORRECTLY AND ## INCORRECTLY ";W#p""#q""#r C0 P0: 635A"THIS IS A QUIZ.THERE ARE 10 QUESTIONS.": N 1 1000: NIJ0T(0,3,3]2 Q$t< Q$"END" 120F"";Q$:A$H B$P A$B$ JJ1: 1000Z A$ B$ 2000d 40n"YOU GOT ";J"OUT OF 10 CORRECT"x"YOU G  T0 320'"" TAILS"A," -----"K6 350e@" HEADS"J" -----"^""h" DO YOU WISH TO TOSS"r" THE COIN AGAIN (Y/N) "| K$ K$"Y" "":220"DO WISH TO ENTER "'!"ANOTHER NUMBER (Y/N)"1! K$F! K$"Y" 420Y! K$"N" 10c! 650t!"":X0:T0!" STOPWATCH SUBROUTINE"!""!" TO START THE STOPWATCH"!" PRESS THE B KEY"!" TO STOP IT,EADY": K$:""$N((1)9999999)"$" ";N+$ 1G$" "n$"ENTER THE NUMBER YOU SAW";UN$ UN N 1090$"WRONG !$"YOU HAVE ONE MORE GUESS"$ UN2$$ UN2 N 1090$."SORRY, WRONG AGAIN"OT ";J"OUT OF 10 CORRECT":"THAT'S ";J10100 "PERCENT"V"CARE TO TRY AGAIN";C$\p C$"Y" 20"OKAY, BYE THEN" RIGHT ANSWER S1 2:0,5: N1500:N:N1500:N:O,3 N1500: N: S WRONG ANS ,3:0,2 " TELEVISION"& "". Y1= T1 10H 4000P Tw x********************************* y* TV SUBTOTAL * z********************************* |" TELEVISION" ""! "IN THIWER 0,1,3% N1 500: N:0,3,3+Y WHAT IS A GROUP OF GEESE CALLED, GAGGLE WHAT IS 64 IN ROMAN NUMERALS,LXIV WHAT PRIMARY COLOR HAS THE SHORTEST NAME,RED WHAT ANIMAL CAN RUN FASTEST,CHEETAH WHAT DO CARCINOGENS C  "":4,1:0,1:5,11*1,2,38,1141000>(""M22,3,36,9U<""uF" PRICING WINDOW"{PZ"REGULAR ECONOMY SUPER";T$[ T$"R" P1.10: 94\ T$"E" P1.15: 94]P1.30^ "PRICE IS $  ""4,1:0,1:5,11?" WHAT'S YOUR SIGN"`" ------ ---- ----"m(""2" PLEASE ENTER THE MONTH"<" OF YOUR CHOICE (IN NUMBERS)"F MKM1 M12 50P"PLEASE ENTER THE DAY"ZDAUSE,CANCER) HOW MANY FEET IN A MILE, 5280P WHAT DO DATES GROW ON,PALM TREESq WHAT'S A LOVE APPLE,TOMATO WHAT'S THE LARGEST PLANET,JUPITER WHAT VITAMIN COMPLEX INCLUDES NIACIN AND RIBOFLAVIN,B END WRONG ANS h D1 D30 804r D22 R3500:F7:C2:390G|R4000:F2:C5N] M7 u D1 D31 80 D23 R4000:F2:C5:440R4500:F6:C2 M8  D1 D31 80 D23 R4500:F6:C2:490""" """'GA(P100)H " GALLONS : ##.## ";Gd" """" PRICE PER GALLON """" " $##.## ";P,""" AMOUNT DUE """6 " $###.## ";A100@"  DATE "M"/"D"""" R2,D$'" R2R 10407" R2R C" L16L"$ D$X". R2,D$`"8 L"V" ""j13020"L18" D$" R2,D$" L""""13040" L1 8" D$"( R2,D$$ """'GA(P100)H " GALLONS : ##.## ";Gd" """" PRICE PER GALLON """" " $##.## ";P,""" AMOUNT DUE """6 " $###.## ";A100@"  d M1 #n D1 D31 80Dx D21 R1000:F2:C7:140XR1500:F1:C12_n M2  D1 D30 80 D20 R1500:F1:C12:190R2000:F15:C7 M3  D1 D31 80  D20 R2020,13,39,23:14000% 3"": 1"%321,14,37,22:B%3******WINDOW COLOR********^%6" "k%6 X1 8%6" "" "" "%6 X%6" "%6%:******DATA WINDOW ONE*********%:1000,"SIGN- R5000:F16:C12 #  M9 ;  D1 D30 80^  D23 R5000:F16:C12:540r R5500:F9:C10y  & M10  0 D1 D31 80 : D23 R5500:F9:C10:590 DR6000:F3:C1 N X M11 !b D1000,"TIONSHIPS SLOWLY"';1000," BUT THEY ARE"3';1000," LOYAL AND"J';1000," DEVOTED"n';******DATA WINDOW THREE*******'$;1000,"COMPATIBLE SIGNS"'.;1000," CAPRICORN"'8;1000," CANCER"'B;1000," TAURUS"'L;1000,"GENERAL PH"2 L#_""#d13060# L1 8&# D$1#R2,D$9# L@#F#g#""#" PRESS ANY KEY WHEN YOU"#" ARE READY TO CONTINUE"# K$#10#2******WINDOW ONE********#21,2,2#.##";P_"PER GALLON">d"HOW MUCH DO YOU WANT TO SPEND";MFnA0NxG0aA1 (M100)s10,11,30,24|5,2"Ϸ"""" GAS PUMP """""" WINDOW """""00:F15:C7:240 R2500:F11:C3'6 M4 N D1 D30 80p D20 R2500:F11:C3:290R3000:F8:C5", M5 6 D1 D31 80@ D21 R3000:F8:C5:340JR3500:F7:C2T^ M6  CAPRICORN &:1000," THE GOAT"&:1000,1&:1000," RULING STAR-G&:1000," SATURNR&:1000,v&:******DATA WINDOW TWO*********&:1000,"CAPRICORNS ARE"&:1000,"HARD AND PERSI-"&:1000," TANT WORKERS"&:1000,"THEY ENTER RELA-"':1 D30 80&!l D22 R6000:F3:C1:6409!vR6500:F5:C2@!P! M12 h! D1 D31 80! D22 R6500:F5:C2:690!R1000:F2:C7!!"":0,F:4,F:5,C!"DOWNLOADING INFORMATION ....."!13000! " YSICAL" (V;1000,"FEATURES- OVAL"$(`;1000," FACE, SLIM,"?(j;1000,"AND BROWN HAIR"c(o;******DATA WINDOW FOUR********z(t;1000," FAMOUS"(~;1000," CAPRICORNS"(;1000," "(;1000,"EMPEROR AUGUSTUS"(;1000," GLADSTONE"(;1000," J0,12:14000 $2"": 1$22,3,18,11:9$2******WINDOW TWO********Q$220,2,39,12:14000_$2"": 1r$221,3,37,11:$2******WINDOW THREE******$21,13,20,23:14000$2"": 1$22,14,18,22:$2******WINDOW FOUR*******%3 "*J G15 "TANK IS FULL":3502T A:^ 6Fh ""Lr|" "X1 7" "" "" "X" "RIANS"+<1500,"",<1500,"CHARLES DICKENS"),<1500,"FREDERICK THE">,<1500," GREAT"[,<1500,"HAROLD MACMILLAN"v,<1500,"YEHUDI MENUHIN",<1500,,<******DATA WINDOW ONE*********,=2000," SIGN-PISCES",=2000," THE FISH","=23000,"AND THICK HAIR"6o@******DATA WINDOW FOUR********"6t@3000,"FAMOUS TAUREANS"/6~@3000,""K6@3000,"OLIVER CROMWELL"e6@3000," SHAKESPEARE"~6@3000," KARL MARX"6@3000," BALZAC"6@3000,""6@3000,""6@******DATA WINDOW ONOAN OF ARC" );1000," ELVIS PRESLEY");1000,""=);******DATA WINDOW ONE*********X);1500," SIGN-AQUARIUS"r);1500," WATER BEARER"});1500,);1500,"RULING STARS -");1500," SATURN AND");1500," URANUS")<******DATA WINDOW TWO* OTTO VON"2R?2500," BISMARCK"3\?2500,"THOMAS JEFFERSON"/3f?2500,"CHARLIE CHAPLIN"I3p?2500," ADLOF HILTER"W3z?2500," "{3?******DATA WINDOW ONE*********3?3000," SIGN- TAURUS"3?3000," THE BULL"3?3000,3?3000,"RULING STA EINSTEIN"/:>2000," HAROLD WILSON"!0?>******DATA WINDOW ONE*********;0D>2500," SIGN- ARIES"S0N>2500," THE RAM"`0X>2500,""{0b>2500," RULING STAR -"0l>2500," MARS"0v>2500,""0>******DATA WINDOW TWO*********0>2500,"ARIANS A ARIES"8A3500,"GENERAL PHYSICAL"9A3500,"FEATURES- GOOD "#9A3500,"VISION, BRIGHT":9A3500,"EYES, TALL"^9A******DATA WINDOW FOUR********y9A3500,"FAMOUS GEMINIS"9A3500,""9A3500," JOHN KENNEDY"9A3500," QUEEN VICTORIA"9A3 000,,,=2000,"RULING STARS-"-6=2000," JUPITER)-@=2000," NEPTUNE"M-O=******DATA WINDOW TWO*********i-T=2000,"THEY ARE SENSI-"-^=2000,"TIVE,INTELLIGENT"-h=2000," AND CREATIVE"-r=2000,"THEY FALL EASILY"-|=2000,"IN LOVE AND ARE" E*********6@3500," SIGN - GEMINI" 7@3500," THE TWINS"7@3500,07@3500," RULING STAR -"G7@3500," MERCURY"R7@3500,v7A******DATA WINDOW TWO*********7A3500,"GEMENIS ARE RE-"7A3500," SOURCEFUL AND"7(A3500," GOOD AT MANY"*********<1500," AQUARIANS ARE""*<1500,"INNOVATORS AND"<*(<1500," LOVE CHANGE"W*2<1500," THEY ALSO ARE"r*<<1500,"ALTRUISTIC AND"*F<1500," LIKE TO HELP"*P<1500,"THEIR FELLOWMAN"*Z<1500,""*_<******DATA WINDOW THREE********d<150R -"3?3000," VENUS"3?3000,4?******DATA WINDOW TWO*********24?3000," TAUREANS ARE"K4?3000,"DOWN TO EARTHe4?3000," AND PRATICAL"4?3000,"THEY ARE ALSO"4?3000," AFFECTIONATE"4@3000,"AND PASSIONATE"4@3000,"THEY ALSO LOVERE CON-"0>2500,"FIDENT, STRONG,"1>2500,"AND FORCEFUL".1>2500,"THEY MAKE GOOD"E1>2500," LEADERS"_1>2500,"THEY ARE ALSO"x1>2500," PASSIONATE "1>2500," IN LOVE"1>******DATA WINDOW THREE*******1>2500,"COMPATIBLE SIGNS"1>500," LAWRENCE"9A3500," OLIVIER":A3500," GEORGE V." :A3500,1:A******DATA WINDOW ONE*********L:B4000," SIGN- CANCER"e:B4000," THE CRAB"p:B4000,:"B4000," RULING STAR-":,B4000," MOON":6B4000,:OB******DATA WIND-=2000,"VERY INTENSE ".=2000,"THEY ARE ALSO"%.=2000," PASSIVE"I.=******DATA WINDOW THREE*******f.=2000,"COMPATIBLE SIGNS"}.=2000," TAURUS".=2000,"".=2000,"GENERAL PHYSICAL".=2000,"FEATURES- ROUND".=2000,"FACE, CORPU72A3500," ACTIVITIES"72500," LIBRA"2?2500," LEO"-2 ?2500,"GENERAL PHYSICAL"H2?2500,"FEATURES- DARK"e2 ?2500,"EYES,WELL BUILT,"}2*?2500,"SWEET VOICE"2/?******DATA WINDOW FOUR********24?2500,"FAMOUS ARIANS"2>?2500,2H?2500,"OW TWO*********:TB4000,"CANCERIAN ARE";^B4000,"TYPICALLY HARD"!;hB4000,"ON THE OUTSIDE"=;rB4000,"AND SOFT ON THE"Y;|B4000,"INSIDE,THEY ARE"s;B4000,"SLOW TO ENTER";B4000,"RELATIONSHIPS";B4000,"BUT ARE LOYAL";B******DATA WINDOW TLENT.=2000,"OR PLUMP, LIGHT"/=2000,"BROWN HAIR"5/=******DATA WINDOW FOUR********Q/=2000,"FAMOUS PISCES -"m/=2000,"(ALOT OF POETS,"/>2000,"ARTISITS, MUSIC-"/>2000,"IANS, NOVELISTS)"/>2000,"/&>2000," CHOPIN"/0>2000," " SIGN-SCORPIO"GG6000," THE SCORPION"GG6000,G"G6000," RULING STARS-" H,G6000," PLUTO""H6G6000," MARS"FHOG******DATA WINDOW TWO*********aHTG6000," SCORPIONS ARE"{H^G6000," FORCEFUL AND"HhG6000," AMBITIOUS"HrG6000,"THEY A VENUS"DE5500,DF******DATA WINDOW TWO*********EF5500,"LIBRANS ARE FOND"EF5500,"OF JUSTICE HAR-":E(F5500,"MONY AND BEAUTY"UE2F5500,"THEY WORK WELL"oEC4500,"DOMINEERING BUT"?C4500,"VERY PASSIONATE"$?C******DATA WINDOW THREE*******A?C4500,"COMPATIBLE SIGNS"X?C4500," ARIES"o?C4500," LIBRA"?D4500," LEO"? D4500,"GENERAL PHYSICAL"?D4500,"FEATURES- L HREE*******;B4000,"COMPATIBLE SIGNS"D4500,""V@HD4500," PRINCESS"m@RD4500," MARGARET"@\D4500," MUSSOLINI"@fD4500," NAPOLEON"@pD4500,""@zD4500,""4000,"FAMOUS CANCERS"vC4500,&>C******DATA WINDOW TWO*********C>C4500,"LEOS ARE FRIEND-"^>C4500," LY, OUTGOING"y>C4500," THEY ALSO ARE">C4500," GOOD LEADERS">C4500,"IN A RELATION-">C4500,"HREE*******LH6500,"COMPATIBLE SIGNS"LH6500," GEMINI"LH6500," AQUARIUS"MI6500,"GENERAL PHYSICAL".M I6500,"FEATURES- TALL,"KMI6500,"WELL BUILT,LIGHT"gM I6500," HAIR, AND OVAL"}M*I6500," FACE"M/I******DATA WINDOW FOUR***@)@**********************************Q@* INITIALIZE *y@**********************************@TC0:TW0:MCO:MW0:SC0:SW0:CC0:CW0:UC0:UW0@**********************************@* MAIN MENU SIC "CW" F6: EXIT"!CZ""/Cd""[Cn"PRESS THE APPROPRIATE FUNCTION KEY":C********************************C*** TV ROUTINE ***C*********************************C""CLN5000:C0:W0D4,3,2:********************.F*** MOVIES ROUTINE *TF********************************]F""qFLN5040:C0:W0F4,7,3:1,7,7:0,15,2F" MOVIESF""FY1F T1 10F 4000F TGX******************* ILN5080:C