ZXTape! 0Created with Ramsoft MakeTZXlogo ~~ *********************  Mike Carrier 1/84  Hueber logo ********************* 2:2:7 :236099\,70F 40,0;" Sprachen lernen mit Computer" 1 6 2,0;" " 15 53,0;" "  15 44,0;" "  15 55,0;" "  15 56,0;" " 15 #57,0;" " % 15 (58,0;" " * 15 -6 9 ,0;" " / 502 212 ,6;7;"Ein Lernprogramm fuer";14,6;"Wirtschaftsenglisch";16,6;"von Michael Carrier" 4!18,15;7;"" 7=20,7;7;1;"Max Hueber Verlag" <\100d:21,0;4;1;" DO NOT STOP THE TAPE! ";0 A 100d F"" Ounit1 ?kdAk#copyright Michael Carrier Dec 82 *********************** hueber langsoft  Mike Carrier *********************** 236099\,70F 2:2  rf=18:0.2~L,10 :12 ,8;2;7;1;"STOP THE TAPE!";0:f 9000(# first entry to multitest  #q$(15,128):questions -score=0:count=0:fault=0 /a$(15,3,28):answer choices #r$(15):responses ()c$(15):correct answer-a,b, or c) d0:6:6 e5:2,4;"***WELCOME TO MULTITEST***" i)6,4;"UNIT 1 -- VERB FORMS" nr8,4;"There are 15 questions";9 ,4;"about verb forms in ";10 ,4;"this unit." xT13 ,4;"Choose a,b, or c ";14,4;"to answer the question." 9900& lq$(1)=" James Bradley ...... the boss of this company for 20 years, and doesn't want to retire." Zq$(2)=" He ...... the company when he was a young engineer in Scotland." Eq$(3)=" Bradley & Co ...... sports products since 1967." Vq$(4)=" They ...... to expand next year, if sales continue to be good." _q$(5)=" Last year's products ...... very successful, and everyone is very happy." Wq$(6)=" When Bradley retires at the age of 65, his son Edward ......" [q$(7)=" Under Edward, the management of the firm ...... very different." ^q$(8)=" People are saying that GBK Ltd ...... Bradley's company soon." Gq$(9 )="I don't think Edward .......... in selling the company." Hq$(10 )="If the company is sold, a lot of the staff .........." =q$(11 )=" John ...... for this company since 1950." Kq$(12 )=" He ...... in the same job since he joined the firm." ]q$(13 )=" His family ...... in the same house since he started work there." Pq$(14)=" John ...... to his 65th birthday, in 2 years from now." dq$(15)=" He and his wife ...... to go on a trip around the world when he's retired." 5:8,0;"Please wait a few seconds....." f=115 " 300,+f 'a=13:d$ (a$(f,a)=d$:a *d$:c$(f)=d$ ,f -"has been","is","was","a" .,"has started","started","was starting","b" /3"are making","have been making","were making","b" 0%"are planning","planned","will","a" 1#"have been","had been","were","c" 24"took over","will take over","would take over","b" 3"becomes","is","will be","c" 4'"bought","buys","is going to buy","c" 5:"is interested","is interesting","interests himself","a" 6("are leaving","leave","will leave","c" 7."has been working","is working","worked","a" 8"has been","is","was","a" 9'"are living","have lived","lived","b" :@"has looked forward","is looking forward","looked forward","b" ;#"are wanting","want","wanted","b" score=0:operation loop f=115 L:blank frame Q$1,0;"Question ";f S3,0;q$(f) V&7,2;"a ";a$(f,1) [&8,2;"b ";a$(f,2) `&9 ,2;"c ";a$(f,3) e 9800H& j"choose a letter";r$(f) lr$(f)=" "1130j o=posn=r$(f)-90Z:posn<7posn>9 1130j yr$(f)=c$(f)2500 ~r$(f)c$(f)2000  9900& f 914,0;" That's the end of MULTITEST." 515,0;" " (16,0;" Your score was " 517,0;" " k18,0;" ";18,3;score;" out of ";count;" attempts." 9900&:9200# ?posn,2;1;r$(f);0;" ";a$(f,posn-6) /14,2;"Sorry - that's not right!" count=count+1 !r$(f)="x":for comparison later  9700% y$"n"1100L  1205 right answer ?posn,2;1;r$(f);0;" ";a$(f,posn-6) count=count+1 y14,2;"Well done! That's correct!";16,2;"The answer is: ";18,5;a$(f,posn-6) 0score=score+1:line=25:9750& 1205:9000(# *********************** cloze test ***********************  236099\,70F word,gap,answer,line Fw$(101e,16):a$(20,16):l$(20,32 ) #d$(25):array of items done z$(1,32 ):dummy 'a(20):length of correct answer m$="":answer dummy match game=0:o=0 w(100d):length of word ===welcome menu & loop= 0U6:1:0::1,0;"**WELCOME TO THE READING TEXT**" :4,0;"In this exercise you will see"'"a text with gaps in it."'"You must complete the text"'"by writing the correct words. "'''"You get 2 points for each "'"correct answer." DP14,0;"You can choose the text and"'"the number of gaps yourself." 9900& X:4,0;"Which text would you like?"''"There are 2 texts in this unit." "text number?";f$ 'f$>502ůf$<4913220 f$>13220 game=f$-480 -8,0;"You've chosen text ";game 211 ,0;"How often do you want a gap?" 313 ,0;"After 5,6,7,8 or 9 words?" #"Choose a number from 5 to 9 ";o$ o$>13270 'o$>579ůo$<5353270 o=o$-480 n15,0;"You've chosen to have a gap";17,0;"every ";1;o;0;" words" 220,0;"Please wait a few seconds..." HREAD DATA M(game=14820:end=76L R(game=24840:end=89Y \d=1end:w$(d) f4g=115:w$(d,g)=" "w(d)=g-1:d hd>end3450z kg pd z4500:gapping print text <:1:0,0;1;"TEXT ";game;0  4600 tENTER ANSWERS score=0 j20,0;"--------------------------------";21,0;"Now try to find the words......"  "Which word? x=exit ";e$ e$>10 3500 e$>23800 %e$="x"line=3000 :9200# 'e$>58:ůe$<4913800 e$=13850  :e$(2)>58:ůe$(2)<48 03800  b=e$ Mb>end/o21,0;"There is no gap number ";b;"! ":3810 PVd$(b)="y"21,0;"You have already done that one!":75K:3800 ZO21,0;"ENTER word ";b;" z=answer h=help" db$:b$=""3940d ib$<58:3930Z nOb$>2021,0;"Your answer is too long! ":3500 }%b$="x"line=3000 :9200# b$="z"4300 db$="h"21,0;"The first letter is ";a$(b,1);"....... ":502:3930Z c21,0;" ";21,0;"Your word= ";b$:502 #b$=a$(b,1a(b))44000 Ma$(b,a(b))=","a$(b,a(b))="."a$(b,a(b))="?"m$=a$(b,1a(b)-1) b$=m$44000 v$(1,32 ):v$(1)=a$(b,1a(b)):v=v$(1,1):v<91[v>64@v=v+32 :v$(1,1)=v:b$=v$(1,1a(b))44000:3800 )b$a$(b,1a(b))b$m$4100  3800  4900$ ===wrong answer Vb$a$(b,1a(b))21,0;1;"Sorry-that's not right!";0 -0,18;"score = ";score;" " '-b$a$(b,1a(b))502:3930Z , h+:2,4;"LIST OF ANSWERS:" r: wGgame=0"You have to try a text first!":9900&:3100 |z=110 -4+z,0;z;" ";a$(z,1a(z)) z z=11 20 .z-6,16;z;" ";a$(z,1a(z)) z  9900&  3100 ===cheating=== 521,0;" " ~21,0;" ";21,0;"The answer is ";1;a$(b,1a(b));0 4450b:reinstate  3800 ====================== 0===correct answer=== 1k21,0;" ";21,0;"Well done! ";1;b$;0 :score=score+2 ?-0,18;"score = ";score;" " D4450b: N======================= b===reinstate=== g d$(b)="y" l w(b*o)=a(b) qw$(b*o)=a$(b) v 4600 !f=1̺(end/o):d$(f)"y" f:4900$ ===gapping===  num=1 f=0100do f=0f  f>end a$(num)=w$(f) 6w$(f)=32 +143+num+143+32  a(num)=w(f) w(f)=6 num=num+1 f  ====================== ===build lines===  x=1 f=120  len=0 len=04700\ space=32 -len *_space>w(x)l$(f)=l$(f,1len)+" "+w$(x,1w(x)):len=len+1+w(x):x=x+1 /Rx>end f,0;z$(1);f,0;l$(f);f+1,0;z$(1): 4space>w(x)4620  H5spacew(x)f,0;z$(1);f,0;l$(f) Mf R W======================= \1l$(f)=w$(x,1w(x)):len=w(x):x=x+1 p z====================== ===DATA=== "Transco,","one","of","the","biggest","oil","companies","in","America","is","looking","for","a","team","of","young","people","with","ambition","to","train","as","sales","executives.","Transco","are","opening","a","new","branch","in","this","area","and","need","new","people","fast." !"If","you","think","you","can","sell,","if","you","have","some","business","experience","and","if","you","have","energy","and","ideas,","then","let","us","know","more","about","you.","Apply,","with","details","of","your","experience","to","Management","Services","Limited","in","London." "We","are","pleased","to","inform","you","that","Mr.","Peter","Wright","has","been","a","very","hardworking","and","valuable","member","of","our","staff","for","almost","eight","years.","He","started","work","as","a","postroom","clerk","but","changed","after","one","year.","He","has","been","a","member","of","the","sales","staff","for","seven","years,","and","has","become","an","important","member","of","the","team.","His","ability","to","speak","French","has","been","very","useful","to","the","company","which","has","many","French","customers.","Mr.","Wright","has","always","been","polite,","well-organised","and","honest.","We","can","recommend","him","highly." "" "" "" $successful finish .G21,0;1;" You've finished the exercise!";0 8)9900&:line=3000 :9200#  ********************** :236099\,70F mazes segment ********************** copyright Mike Carrier  april 1984 :6:6:0 "q$(20,224):problems  a$(25,96`):options 2x=1:op1=1:op2=1:op3=1 J:2,6;1;7;"A BUSINESS MAZE";6;0 6,0;"This maze gives you a business"'"problem to solve."''"Read the situation at the top"'"of each page, and then choose"'"one of the three suggestions "'"given as possible answers."''"Decide what YOU would do, and"'"choose the number of that "'"possible answer." X:"If you want to EXIT at any time"'"type x and then press ENTER.":9900& q$(1)=" You are a personnel officer. One of your workers is always very rude to the manager. Now he has hit the manager in the face. What should you do?" bq$(2)=" That's a bit negative - and a bit weak! What will you do if he does it again?" q$(3)=" You're obviously a nice person. He might listen to you - but what can you do if he continues to be aggressive?" q$(4)=" Decisive action! You've got rid of the problem. But there are consequences. The man's union has said they will strike if you don't give him his job back." q$(5)=" That might work for a few days. However, it doesn't solve the problem. What will you do if it happens again?" gq$(6)=" You're defeated! You don't seem to be very decisive and dynamic!" q$(7)=" Rather a weak answer. Perhaps you should find another job - you haven't solved the problem." q$(8)=" Good tactics! This buys some extra time for you. When you get to the meeting, the union demands action or a strike starts on Monday." q$(9 )=" Strong management! The union has called the strike for tomorrow. Your boss is going crazy, and wants you to back down. What do you tell him?" Zq$(10 )=" The man agrees to sign, and the manager accepts his apology." q$(11 )=" You've let this problem carry on for too long. Your company does not need you any more - you're fired!" Dq$(12 )=" This is the response to your suggested solution" Ea$(1)="Do nothing, and hope the situation will calm down." ?a$(2)="Try to persuade the man to be less aggressive." )a$(3)="Sack the man immediately." %a$(4)="Resign from your job!" ]a$(5)="You want to keep your job - so you back down and give the man his job back." &a$(6)="Give him his job back." Ca$(22)="Arrange a meeting with the union representatives." Aa$(17)="Warn the union that you willnot accept violence." "a$(9 )="Think again......." @a$(25)="Leave the maze and find yourself a new job!" Na$(11 )="Call their bluff - tell them to go on strike if theywant." ]a$(12 )="Suggest a compromise - he can have his job back if he signs an apology." 9a$(13 )="Make more time - suggest a new meeting." -a$(14)="Send him home for a few days" ea$(15)="You make a deal with the union. The man must agree toapologise and behave better." 'a$(16)="Give him his job back." Ua$(19)="This is the end of the maze for you. Press ENTER to continue" _a$(20)="Well done! You've reached the end of the maze with success!" doperation loop-first page n>x=1:op1=1:op2=2:op3=3:6700, xGr$="1"x=2:op1=1:op2=14:op3=3:6700, }Fr$="2"x=3:op1=1:op2=4:op3=3:6700, Hr$="3"x=4:op1=6:op2=22:op3=17:6700, Gr$="4"x=6:op1=19:op2=0:op3=0:6700, Gr$="5"x=6:op1=19:op2=0:op3=0:6700, Gr$="6"x=7:op1=9 :op2=25:op3=0:6700, Hr$="9"x=4:op1=6:op2=22:op3=17:6700, Hr$="10"x=6:op1=19:op2=0:op3=0:6700, Hr$="11"x=9 :op1=5:op2=15:op3=0:6700, Ir$="12"x=10 :op1=20:op2=0:op3=0:6700, Ir$="13"x=11 :op1=19:op2=0:op3=0:6700, Ir$="14"x=5:op1=4:op2=22:op3=16:6700, Ir$="15"x=10 :op1=20:op2=0:op3=0:6700, Hr$="16"x=6:op1=25:op2=0:op3=0:6700, Hr$="17"x=9 :op1=5:op2=15:op3=0:6700, Hr$="18"x=20:op1=0:op2=0:op3=0:6700, !r$="19"9900&:9200# 2r$="20"9900&:line=5000:9200# Ir$="21"x=2:op1=34":op2=7:op3=26:6700, Jr$="22"x=8:op1=11 :op2=12 :op3=13 :6700, Ir$="23"x=2:op1=34":op2=7:op3=26:6700, Ir$="24"x=2:op1=34":op2=7:op3=26:6700, Hr$="25"x=6:op1=19:op2=0:op3=0:6700, , .57,0;"********************************" 1*0,0;1;7;q$(x) ;x=206900 @f8,2;"______________________________";12 ,2;"______________________________" Eop2013 ,2;"______________________________";17,2;"______________________________":op3018,2;"______________________________";21,2;"______________________________" JM16,104h:0,-32 :255,72H:0,32 TYop2016,64@:0,-32 :255,32 :0,32 YXop3016,24:0,-24:255,0:0,24 9 ,0;op1;9 ,3;a$(op1,128);10 ,3;a$(op1,29568);11 ,3;a$(op1,57984T) op2014,0;op2;14,3;a$(op2,128);15,3;a$(op2,29568);16,3;a$(op2,57984T) {op3019,0;op3;19,3;a$(op3,128);20,3;a$(op3,29568) Sop1=20op1=19 op1=25 9900&:line=5000:9200# (x=6line=5000:9200# $"Choose a number + ENTER ";r$ r$>26700, %r$="x"line=5000:9200# r$=""6850 'r$>579ůr$<4916850 %r$op1ưr$op2ưr$op36850 $6520x:analyse options chosen  end of maze )9900&:line=5000:9200# X********************** Y ]word quiz segment b********************** g0:6:6 lscore=0:count=0 define variables %q$(10 ,128):definitions %a$(10 ,20):answer words  r$(1,20):response  intro menu 0:1,4;"WELCOME TO WORD QUIZ" ˁ3,0;"This is a simple word quiz. "''"You will see an explanation of"'"a mystery word."''"You must write the word." s10 ,0;"Sometimes more than one answer"'"could be correct - but the"'"computer only knows one answer." 519,0;"There are 10 words in the quiz." @14,0;"Make sure you spell the"'"words correctly!"  9900&  data lines jq$(1)=" As well as a basic salary, a salesperson usually gets ...... on the goods (s)he sells." ^q$(2)=" A company must keep its prices ...... if it wants to sell its products." Aq$(3)=" A person applying for a job is called an ......" hq$(4)=" When you apply for a job you send a ...... from each of your earlier employers." xq$(5)=" The ...... order in a company tells you which people have more power and influence than others." mq$(6)=" When you want to help and advise colleagues you will ...... what they should do. " Nq$(7)=" Money coming into the company is known generally as ...... " dq$(8)=" To sell your products you need to put an ...... in newspapers, magazines or on TV." q$(9 )=" A salesman must learn to talk ...... about the product, with no hesitation or nervousness, to convince the customers." gq$(10 )=" We ...... Beaver Ltd for the goods they had ordered. They paid two weeks later." L answers V 7550~ `d=110 jd$:a$(d)=d$ td ~"commission","competitive","applicant","testimonial","pecking","recommend","earnings","advertisement","confidently","invoiced" @operation loop Jf=110 T":4,0;"WORD ";f c57,0;"********************************" d612 ,0;"********************************" f*8,0;2;7;q$(f) r 9800H& w'o$=" " |17,0;o$;18,0;o$;19,0;o$;20,0;"x=exit Now write the word.... ":r$(1):20,0;" " }%r$(1,1)=" "8060| ~fuzz=0 Ur$(1,1)<97ar$(1,1)=(r$(1,1)+32 )  9800H& Nr$(1,1)="x"r$(1,2)=" "line=7000X:9200# 3g=120:a$(f,g)=" "length=g-1 a$(f,g)=" "8100 g r$(1)=a$(f)8200 r$(1)a$(f)8300l *count=count+1:score=score+1 <0.2~L,15:0.2~L,15:0.2~L,15 14,4;"Well done! That's right! ";15,4;"The word is - ";17,13 ;7;2;a$(f,1length)  6 line=7000X:9750& & 8400 l\1,-15:14,4;"Sorry! That's not the word"'" I was looking for." qcount=count+1 v<j=1length:r$(1,j)=a$(f,j)fuzz=fuzz+1 xj zfuzz=08316| {r$(1,1)=a$(f,1)fuzz*100d/length60<17,4;"But it's nearly right!";18,4;"You got ";fuzz;" letters right -";19,4;"check your spelling" |^0,0;7;2;"SCORE = ";score;" out of ";count;" attempts":8600! f !:10 ,0;"This is the end of the Wordquiz.";14,0;"Your final score is ";2;7;score:9900& !4 9200# ! ===help=== !;9800H&:"a=answer h=help ENTER=repeat";y$ !T14,0;" " !T17,0;" " !419,0;" " !y$=""8060| !xy$="a"14,4;"The word is- ";7;2;a$(f,1length);0;6;" ":9900& !ey$="h"14,4;"The first letter is ";1;a$(f,1);0;"....":8060| !y$>1y$""8610! ! #(*********************** #)hueber utilities #************************ #+line=0 #,2:2:7 #:unit welcome menu #********************** #;4,6;1;"WELCOME TO UNIT 1";0 #*8,6;"In this unit you can:" #+12 ,6;"1...test your grammar" #(13 ,6;"2...do a word quiz" #/14,6;"3...do a reading exercise" #'15,6;"4...follow a maze" # 9800H& #59850z&:y$"1"y$"2"y$"3"y$"4"9150# #y$="1"20 #y$="2"7000X #y$="3"3000 #y$="4"5000 #*********************** # endpanel #*********************** #2:2:7 # #64,6;1;"THAT'S THE END!";0 #!8,6;"Now you can:" $012 ,6;"1...do this activity again" $ /13 ,6;"2...choose a new activity" $*14,6;"3...start a new unit" $*15,6;"4...stop the program" $ 9800H& $ 9850z& $")y$"1"y$"2"y$"3"y$"4"9245$ $,put if jumps here $1y$="1"line $2y$="2"9100# $3y$="3"9280@$ $6uy$="4":8,8;"Goodbye!":19,0;"You can start again by pressing"'"R and then ENTER" $;y$="4"j$:j$="r" $<y$="4"9275;$ $@new loading procedure $By$"3"9100# $D,:9800H&:"Are you sure? y/n ";y$ $Ey$"y"9200# $F^:8,0;"Which unit do you want to work"'"with?"'''"Give the number of the unit:" $I 9800H& $J"unit number? ";y$ $K y$=""9290J$ $Ly$>10 9290J$ $O'y$>579ůy$<4919290J$ $TD:8,0;"You have chosen Unit ";y$;''"Is this correct?" $Yu$="unit"+y$ $] 9800H& $^ "y/n?";y$ $cy$"y"9286F$ $h]:8,0;"Now start to play the tape";10 ,0;"and press ENTER" $my$:y$""9325m$ $r\17,0;1;"Loading ";u$;19,0;"DO NOT STOP THE TAPE";0 $wu$:9000(# %R0,0;7;2;"SCORE = ";score;" out of ";count;" attempts" %6:0 %+"ENTER=try again n=new questn";y$ %y$""y$"n"9700% % &R0,0;7;2;"SCORE = ";score;" out of ";count;" attempts" &6:0 &+"x=exit ENTER=next question ";y$ & y$"x"y$""9750& &%y$="x"9200# &* &M$0,0:255,0 &R &\ &z%"Choose a number + ENTER ";y$ & & 9800H& &""Press ENTER to continue";y$ &y$""9900& & , "cloze test  Mike Carrier 11/82 "cloze test  Mike Carrier 11/82 coroun As well as a basic salary, a salesperson usually gets ...... on the goods (s)he sells. A company must keep its prices ...... if it wants to sell its products. A person applying for a job is called an ...... When you apply for a job you send a ...... from each of your earlier employers. The ...... order in a company tells you which people have more power and influence than others. When you want to help and advise colleagues you will ...... what they should do. Money coming into the company is known generally as ...... To sell your products you need to put an ...... in newspapers, magazines or on TV. A salesman must learn to talk ...... about the product, with no hesitation or nervousness, to convince the customers. We ...... Beaver Ltd for the goods they had ordered. They paid two weeks later.  commission competitive applicant testimonial pecking recommend earnings advertisement confidently invoiced x `Dinvoiced JO uzinXYyunit2 hxb~h#copyright Michael Carrier Dec 82 ***********************  Mike Carrier 236099\,70F 2:2  rf=18:0.2~L,10 :12 ,8;2;7;1;"STOP THE TAPE!";0:f 9000(# first entry to multitest  #q$(15,128):questions -score=0:count=0:fault=0 /a$(15,3,28):answer choices #r$(15):responses ()c$(15):correct answer-a,b, or c) d0:6:6 e5:2,4;"***WELCOME TO MULTITEST***" iI5,4;"UNIT 2";6,4;"MATCHING WORDS AND PHRASES" nL8,4;"There are 15 questions";9 ,4;"in this unit." xT13 ,4;"Choose a,b, or c ";14,4;"to answer the question." 9900& Iq$(1)="A good sales letter must be able to ...... attention." Bq$(2)="There is a special 10% discount if you order....." Bq$(3)="We have great pleasure ..... you these samples." Eq$(4)="The price is ....... that of competitive products." 6q$(5)="We look forward ...... your order." Zq$(6)="This diary contains information ...... all the important countries." aq$(7)="This special offer price is a substantial reduction ...... our normal price." ]q$(8)="In ...... years sales of this product have always increased at Christmas." dq$(9 )="We have a policy ...... immediate refund if the product is not satisfactory." Lq$(10 )="I'd like to ...... the benefits of buying from our company." Pq$(11 )="Payment can be made ...... personal cheque or money order." _q$(12 )="Delivery is usually possible ...... 2 weeks after receipt of your order." Wq$(13 )="...... you get the products you want, mail the order form today." Pq$(14)="...... delivery abroad you have to add $25.00 per machine." 9q$(15)="What do you use this machine ...... ?" 5:8,0;"Please wait a few seconds....." f=115 " 300,+f 'a=13:d$ (a$(f,a)=d$:a *d$:c$(f)=d$ ,f -$"attract","create","stimulate","a" .5"at July 31st","by July 31st","until July 31st","b" /&"in sending","sending","to send","a" 00"similar with","similar like","similar to","c" 10"on receiving","to receive","to receiving","c" 2"about","of","over","a" 3"by","on","to","b" 4$"former","previous","the last","b" 5"about","of","to","b" 6'"point at","point out","point to","b" 7"by","on","with","a" 8"by","for","within","c" 9."Make sure","Making sure","To make sure","c" :"By","For","In order to","b" ;"for","towards","with","a" score=0:operation loop f=115 L:blank frame Q$1,0;"Question ";f S3,0;q$(f) V&7,2;"a ";a$(f,1) [&8,2;"b ";a$(f,2) `&9 ,2;"c ";a$(f,3) e 9800H& j"choose a letter";r$(f) lr$(f)=" "1130j o=posn=r$(f)-90Z:posn<7posn>9 1130j yr$(f)=c$(f)2500 ~r$(f)c$(f)2000  9900& f 914,0;" That's the end of MULTITEST." 515,0;" " (16,0;" Your score was " 517,0;" " l18,0;" ";18,3;score;" out of ";count;" attempts." 9900&:9200# ?posn,2;1;r$(f);0;" ";a$(f,posn-6) /14,2;"Sorry - that's not right!" count=count+1 !r$(f)="x":for comparison later  9700% y$"n"1100L  1205 right answer ?posn,2;1;r$(f);0;" ";a$(f,posn-6) count=count+1 y14,2;"Well done! That's correct!";16,2;"The answer is: ";18,5;a$(f,posn-6) 0score=score+1:line=25:9750& 1205:9000(# *********************** cloze test ***********************  236099\,70F word,gap,answer,line Fw$(101e,16):a$(20,16):l$(20,32 ) #d$(25):array of items done z$(1,32 ):dummy 'a(20):length of correct answer m$="":answer dummy match game=0:o=0 w(100d):length of word ===welcome menu & loop= 0U6:1:0::1,0;"**WELCOME TO THE READING TEXT**" :4,0;"In this exercise you will see"'"a text with gaps in it."'"You must complete the text,"'"by writing the correct word." DP12 ,0;"You can choose the text and"'"the number of gaps yourself." NC16,0;"You score 2 points for the "'"correct answer." 9900& X:4,0;"Which text would you like?"''"There are 2 texts in this unit." "text number?";f$ 'f$>502ůf$<4913220 f$>13220 game=f$-480 -8,0;"You've chosen text ";game 211 ,0;"How often do you want a gap?" 313 ,0;"After 5,6,7,8 or 9 words?" #"Choose a number from 5 to 9 ";o$ o$>13270 'o$>579ůo$<5353270 o=o$-480 n15,0;"You've chosen to have a gap";17,0;"every ";1;o;0;" words" 220,0;"Please wait a few seconds..." HREAD DATA M(game=14820:end=84T R(game=24840:end=94^ \d=1end:w$(d) f4g=115:w$(d,g)=" "w(d)=g-1:d hd>end3450z kg pd z4500:gapping print text <:1:0,0;1;"TEXT ";game;0  4600 tENTER ANSWERS score=0 j20,0;"--------------------------------";21,0;"Now try to find the words......"  "Which word? x=exit ";e$ e$>10 3500 e$>23800 %e$="x"line=3000 :9200# 'e$>58:ůe$<4913800 e$=13850  :e$(2)>58:ůe$(2)<48 03800  b=e$ Mb>end/o21,0;"There is no gap number ";b;"! ":3810 PVd$(b)="y"21,0;"You have already done that one!":75K:3800 ZO21,0;"ENTER word ";b;" z=answer h=help" db$:b$=""3940d ib$<58:3930Z nOb$>2021,0;"Your answer is too long! ":3500 }%b$="x"line=3000 :9200# b$="z"4300 db$="h"21,0;"The first letter is ";a$(b,1);"....... ":502:3930Z c21,0;" ";21,0;"Your word= ";b$:502 #b$=a$(b,1a(b))44000 Ma$(b,a(b))=","a$(b,a(b))="?"a$(b,a(b))="."m$=a$(b,1a(b)-1) b$=m$44000 v$(1,32 ):v$(1)=a$(b,1a(b)):v=v$(1,1):v<91[v>64@v=v+32 :v$(1,1)=v:b$=v$(1,1a(b))44000:3800 )b$a$(b,1a(b))b$m$4100  3800  4900$ ===wrong answer Vb$a$(b,1a(b))21,0;1;"Sorry-that's not right!";0 -0,18;"score = ";score;" " '-b$a$(b,1a(b))502:3930Z , h+:2,4;"LIST OF ANSWERS:" r: wGgame=0"You have to try a text first!":9900&:3100 |z=110 -4+z,0;z;" ";a$(z,1a(z)) z z=11 20 .z-6,16;z;" ";a$(z,1a(z)) z  9900&  3100 ===cheating=== 521,0;" " ~21,0;" ";21,0;"The answer is ";1;a$(b,1a(b));0 4450b:reinstate  3800 ====================== 0===correct answer=== 1k21,0;" ";21,0;"Well done! ";1;b$;0 :score=score+2 ?-0,18;"score = ";score;" " D4450b: N======================= b===reinstate=== g d$(b)="y" l w(b*o)=a(b) qw$(b*o)=a$(b) v 4600 !f=1̺(end/o):d$(f)"y" f:4900$ ===gapping===  num=1 f=0100do f=0f  f>end a$(num)=w$(f) 6w$(f)=32 +143+num+143+32  a(num)=w(f) w(f)=6 num=num+1 f  ====================== ===build lines===  x=1 f=120  len=0 len=04700\ space=32 -len *_space>w(x)l$(f)=l$(f,1len)+" "+w$(x,1w(x)):len=len+1+w(x):x=x+1 /Rx>end f,0;z$(1);f,0;l$(f);f+1,0;z$(1): 4space>w(x)4620  H5spacew(x)f,0;z$(1);f,0;l$(f) Mf R W======================= \1l$(f)=w$(x,1w(x)):len=w(x):x=x+1 p z====================== ===DATA=== u"This","month's","special","offer","is","only","available","to","mail","order","customers.","You","can't","buy","it","in","the","shops.","We","have","put","together","a","unique","selection","of","the","best","Scotch","whiskies","for","you","to","enjoy","at","home","or","send","as","a","gift","to","your","best","customers.","The","Scotch","comes","in","a","strong","wooden","box","containing","six","of","the","most","famous","names","from","the","world","of","whisky.","Six","very","old","whiskies","with","names","like","Chivas","Regal","and","Glenfiddich","will","bring","you","and","your","customers","great","enjoyment."  " "  "Dear","Sirs,","..........","..........","Thank","you","for","your","interest","in","our","new","range","of","photocopiers.","We","are","pleased","to","be","able","to","send","you","leaflets","which","give","you","more","information","about","the","new","models." "We","also","enclose","the","latest","price","list.","We","can","offer","you","a","special","discount","of","fifteen","per","cent","on","these","machines","if","you","order","before","the","end","of","the","month.","Our","delivery","time","is","usually","three","weeks","but","in","this","case","we","can","offer","the","smaller","model","in","only","one","week.","Please","let","us","know","if","you","need","further","information." "" "" $successful finish .G21,0;1;" You've finished the exercise!";0 8)9900&:line=3000 :9200#  ......password........ c$(5,5,15)  b$(5,15) v$(5,15) d$(5,5,15) a$(5,15) g=0:game number  c=0 b$(1)="furniture" c$(1,1)="chair" c$(1,2)="table" c$(1,3)="desk" c$(1,4)="bed" c$(1,5)="cooker" b$(2)="money" c$(2,1)="notes"  c$(2,2)="currency" c$(2,3)="bills" c$(2,4)="cheques" $c$(2,5)="credit-cards" b$(3)="fruit" c$(3,1)="oranges" c$(3,2)="lemons" c$(3,3)="apples" "c$(3,4)="grapefruit" c$(3,5)="bananas"  MAIN MENU c=0S=10 :6:6  " "::236099\,70F (0,9 ;2;"WELCOME TO" @x=35:y=720:x,y;5;" ":y:x 04,10 ;2;1;"PASSWORD" +0:10 ,4;"Now you can:" .13 ,4;"1...see the instructions" '15,4;"2...play the game" E9800H&:" choose a number ";i$:i$"1"i$"2"5049 i$=4915054 i$=5025066  5039  INSTRUCTIONS >:6:6:0,9 ;1;"INSTRUCTIONS" 22,0;"In this game you must guess a" #"secret word, the PASSWORD ." $:"You will see a word that gives" !"you ideas about the password." Đ:"When you see the idea word, you must try to find a word which you normally see or hear in the same situation as the idea word." Y:"For example,the idea FISH makes you think of the word FOOD or the word ANIMAL." ::"Then you write the PASSWORD you have thought of."  9900& :1,0;"GAMES";2,0;"There are 3 games in Password."'"You can play them in any order.";6,0;"SCORE";7,0;"You start with 10 points."'"You get 5 points for every"'"correct answer."''"You lose 1 point for every"'"wrong answer. " ɔ:"The top score is 25, if you play"'"each game once."'"It can be higher than 25 if you"'"play any game more than once."''"Good luck!":9900&  GAME OPERATION  :5 Jy=0296:p=16:1,y+p;p;" ":p:y  y=30 x=0186 x=185076 "p=16:x+p,y;p;" "  y=y-1 p x =x=15192:x,12 ;x-12 ;" ":x Vy=12 172:19,y;(y-10 y16);y-11 ;" ":y  6 :g<420,0;"last game was Game No. ";g H9800H&:"choose a game x=exit ";g$:g$>25066 620,0;" " g$=""5080 %g$="x"line=5000:9200# 'g$>579ůg$<4915080 Tg=g$:g>320,0;"There's no game with this number":5080 c>05107 b:502,150:150,0:0,-502:-150,0:0,502 &4,7;"Now, try to guess" @5,7;"the ";1;"hidden";0;" word" #6,7;"from the ideas" #7,7;"in these words"  f=1 y=301-1 -11 ,y;"ideas!ideas!ideas!ideas!" -12 ,y;"ideas!ideas!ideas!ideas!" 511 ,y-7;"ideas!ideas!ideas!ideas!" 512 ,y-7;"ideas!ideas!ideas!ideas!" -13 ,f;"ideas!ideas!ideas!ideas!" -14,f;"ideas!ideas!ideas!ideas!" 513 ,f+7;"ideas!ideas!ideas!ideas!" 514,f+7;"ideas!ideas!ideas!ideas!"  f=f+1 f=155105 y  150 : Game begins  6 ?:5,2;"ideas:";5,16;"your answers:" a$(5,15) P0,10 ;"GAME ";g:a=15:2,9 ;"IDEA No.";a 616,0;" " 618,0;" " 620,0;" "  c=c+1 F5,2;"ideas:";5,16;0;"your answers:"  k=1a '16,122z:215,0 f=115 ^k+7,1+f;c$(g,k,f);k+7,11 ;0;a+7,15;1;"*" .k=ak+7,1+f;1;c$(g,k,f) c$(g,k,f)=" "5124 f k+7,16;a$(k):k O5,16;1;"your answers:";5,2;0;"ideas:" a9800H&:20,0;"type in your answer x=exit":y$:y$>305109 Wa$(a)=y$:a+7,15;0;" ";5,16;0;"your answers:" 0a$(a,1)=""a$(a,1)=" "5125  8k5k+6,2;0;c$(g,k-1)  0a$(a,1)="x"line=5000:9200#  a+7,16;a$(a)  a$(a)=b$(g)5145  a$(a)b$(g)5140 _502:5,16;0;"your answers:";16,9 ;"Try again!"a5 a59900& a 16,0;" ":16,9 ;1;"Game over":502:16,9 ;0;"Game over";18,2;"The password was - ";b$(g) B20,0;" ";2;7;"SCORE = ";S 9900&:5066 20,0;" ";16,9 ;1;"Sorry!";18,4;0;"That's not the password." +0.25~,-15:0.5,-25 CS=S-1:20,9 ;7;2;"SCORE = ";S '16,9 ;0;"Sorry!": R5,16;0;"your answers:";16,9 ;1;"CORRECT!"  S=S+5 $b=14:0.25~,b:b :0.1}L,8:0.25~,5:0.5,4 I18,29;0;" ";16,9 ;0;"CORRECT!" f=115 (a+7,15+f;1;a$(a,f)  a$(a,f)=" "5154" !f "j20,0;" ";20,9 ;7;2;"SCORE = ";S # 3 $9900&:5066 c$(502,5,15) b$(502,15) X********************** Y ]word quiz segment b********************** g0:6:6 lscore=0:count=0 define variables %q$(10 ,128):definitions %a$(10 ,20):answer words  r$(1,20):response  intro menu 0:1,4;"WELCOME TO WORD QUIZ" ˁ3,0;"This is a simple word quiz. "''"You will see an explanation of"'"a mystery word."''"You must write the word." s10 ,0;"Sometimes more than one answer"'"could be correct - but the"'"computer only knows one answer." 519,0;"There are 10 words in the quiz." @14,0;"Make sure you spell the"'"words correctly!"  9900&  data lines Aq$(1)=" A manager is often given the title of ......" q$(2)=" A ....... contains information such as a list of names, a list of customers, or even telephone numbers." Zq$(3)=" Another word for 'think', 'believe' or 'work with numbers'." Wq$(4)=" Wage rises this year must not ...... 5%, or we will lose money." >q$(5)=" Business partners are often called ......" Dq$(6)=" Something sent inside a letter is called an ......" |q$(7)=" The boss asked for a ........ on each of the sales managers, describing their strengths and weaknesses." Oq$(8)=" A sales campaign is only ...... if it results in higher sales." iq$(9 )=" Half the goods are being sent today. The rest will come in a second ...... next week." |q$(10 )=" All company business calls must be made after 12.00, when the telephone ...... are lower." L answers V 7550~ `d=110 jd$:a$(d)=d$ td ~m"executive","directory","reckon","exceed","associates","enclosure","profile","effective","shipment","rates" @operation loop Jf=110 T":4,0;"WORD ";f c57,0;"********************************" d612 ,0;"********************************" f*8,0;2;7;q$(f) r 9800H& w'o$=" " |17,0;o$;18,0;o$;19,0;o$;20,0;"x=exit Now write the word.... ":r$(1):20,0;" " }%r$(1,1)=" "8060| ~fuzz=0 Ur$(1,1)<97ar$(1,1)=(r$(1,1)+32 )  9800H& Nr$(1,1)="x"r$(1,2)=" "line=7000X:9200# 3g=120:a$(f,g)=" "length=g-1 a$(f,g)=" "8100 g r$(1)=a$(f)8200 r$(1)a$(f)8300l *count=count+1:score=score+1 <0.2~L,15:0.2~L,15:0.2~L,15 14,4;"Well done! That's right! ";15,4;"The word is - ";17,13 ;7;2;a$(f,1length)  6 line=7000X:9750& & 8400 l\1,-15:14,4;"Sorry! That's not the word"'" I was looking for." qcount=count+1 v<j=1length:r$(1,j)=a$(f,j)fuzz=fuzz+1 xj zfuzz=08316| {r$(1,1)=a$(f,1)fuzz*100d/length60<17,4;"But it's nearly right!";18,4;"You got ";fuzz;" letters right -";19,4;"check your spelling" |^0,0;7;2;"SCORE = ";score;" out of ";count;" attempts":8600! f !:10 ,0;"That is the end of the Wordquiz.";14,0;"Your final score is ";2;7;score:9900& !4 9200# ! ===help=== !;9800H&:"a=answer h=help ENTER=repeat";y$ !U14,0;" " !U17,0;" " !419,0;" " !y$=""8060| !xy$="a"14,4;"The word is- ";7;2;a$(f,1length);0;6;" ":9900& !ey$="h"14,4;"The first letter is ";1;a$(f,1);0;"....":8060| !!y$>1y$""8610! ! #(*********************** #)hueber utilities #************************ #+line=0 #,2:2:7 #:unit welcome menu #********************** #;4,6;1;"WELCOME TO UNIT 2";0 #*8,6;"In this unit you can:" #+12 ,6;"1...test your grammar" #(13 ,6;"2...do a word quiz" #/14,6;"3...do a reading exercise" #'15,6;"4...play PASSWORD" # 9800H& #59850z&:y$"1"y$"2"y$"3"y$"4"9150# #y$="1"20 #y$="2"7000X #y$="3"3000 #y$="4"5000 #*********************** # endpanel #*********************** #2:2:7 # #64,6;1;"THAT'S THE END!";0 #!8,6;"Now you can:" $012 ,6;"1...do this activity again" $ /13 ,6;"2...choose a new activity" $*14,6;"3...start a new unit" $*15,6;"4...stop the program" $ 9800H& $ 9850z& $")y$"1"y$"2"y$"3"y$"4"9245$ $,put if jumps here $1y$="1"line $2y$="2"9100# $3y$="3"9280@$ $6uy$="4":8,8;"Goodbye!":19,0;"You can start again by pressing"'"R and then ENTER" $;y$="4"j$:j$="r" $<y$="4"9275;$ $@new loading procedure $By$"3"9100# $D,:9800H&:"Are you sure? y/n ";y$ $Ey$"y"9200# $F^:8,0;"Which unit do you want to work"'"with?"'''"Give the number of the unit:" $I 9800H& $J"unit number? ";y$ $Ky$=""9290J$ $Ly$>10 9290J$ $O'y$>579ůy$<4919290J$ $TD:8,0;"You have chosen Unit ";y$;''"Is this correct?" $Yu$="unit"+y$ $] 9800H& $^ "y/n?";y$ $cy$"y"9286F$ $h]:8,0;"Now start to play the tape";10 ,0;"and press ENTER" $my$:y$""9325m$ $r\17,0;1;"Loading ";u$;19,0;"DO NOT STOP THE TAPE";0 $wu$:9000(# %R0,0;7;2;"SCORE = ";score;" out of ";count;" attempts" %6:0 %+"ENTER=try again n=new questn";y$ %y$""y$"n"9700% % &R0,0;7;2;"SCORE = ";score;" out of ";count;" attempts" &6:0 &+"x=exit ENTER=next question ";y$ & y$"x"y$""9750& &%y$="x"9200# &* &M$0,0:255,0 &R &\ &z%"Choose a number + ENTER ";y$ & & 9800H& &""Press ENTER to continue";y$ &y$""9900& & , "cloze test  Mike Carrier 11/82 "cloze test  Mike Carrier 11/82 coroun A manager is often given the title of ...... A ....... contains information such as a list of names, a list of customers, or even telephone numbers. Another word for 'think', 'believe' or 'work with numbers'. Wage rises this year must not ...... 5%, or we will lose money. Business partners are often called ...... Something sent inside a letter is called an ...... The boss asked for a ........ on each of the sales managers, describing their strengths and weaknesses. A sales campaign is only ...... if it results in higher sales. Half the goods are being sent today. The rest will come in a second ...... next week. All company business calls must be made after 12.00, when the telephone ...... are lower.  executive directory reckon exceed associates enclosure profile effective shipment rates x `Drates JO uzinXYyuunit3 zj di=|j#copyright Michael Carrier Dec 82 *********************** hueber langsoft  Mike Carrier 236099\,70F 2:2  rf=18:0.2~L,10 :12 ,8;2;7;1;"STOP THE TAPE!";0:f 9000(# first entry to multitest  #q$(15,128):questions -score=0:count=0:fault=0 /a$(15,3,28):answer choices #r$(15):responses ()c$(15):correct answer-a,b, or c) d0:6:6 e5:2,4;"***WELCOME TO MULTITEST***" i75,4;"UNIT 3";6,4;"SYNONYMS" nL8,4;"There are 14 questions";9 ,4;"in this unit." xT13 ,4;"Choose a,b, or c ";14,4;"to answer the question." 9900& Gq$(1)="These drill grinders are completely outdated" Gq$(2)="But the dealers are pleased with the new model." Dq$(3)="Are the prospects good for this sort of product?" Lq$(4)="We feel we've already covered that part of the market." Rq$(5)="The potential market for home computers is still very large." Jq$(6)="DG Ltd is the sole distributor of our video products." `q$(7)="We shall be investing a considerable amount of money in the town." ^q$(8)="An important prerequisite of our deal is the agreement on discounts." Tq$(9 )="We can't commit ourselves to this deal without more research." ^q$(10 )="I think the company might be prepared to discuss a 10% discount." _q$(11 )="We will try hard to find the most appropriate terms for the agreement." ]q$(12 )="Many British companies are now taking the plunge across the Channel." iq$(13 )="The translation of sales literature is a familiar problem in business." nq$(14)="Most sales leaflets do not give an adequate description of the company and its products." 5:8,0;"Please wait a few seconds....." f=115 " 300,+f 'a=13:d$ (a$(f,a)=d$:a *d$:c$(f)=d$ ,f -,"modern","old-fashioned","fashionable","b" .."distributors","salespeople","customers","a" / "chances","sales","prices","a" 0'"finished with","visited","found","a" 1 "new","maximum","possible","c" 2"only","biggest","main","a" 3%"possible","guaranteed","large","c" 4$"factor","problem","condition","c" 5""convince","persuade","bind","c" 6 "able","pleased","willing","c" 7*"acceptable","reasonable","suitable","c" 8="losing money","making money","starting new businesses","c" 9%"local","terrible","well-known","c" :'"acceptable","precise","suitable","a" ; "","","","" score=0:operation loop f=114 L:blank frame Q$1,0;"Question ";f S3,0;q$(f) V&7,2;"a ";a$(f,1) [&8,2;"b ";a$(f,2) `&9 ,2;"c ";a$(f,3) e 9800H& j"choose a letter";r$(f) lr$(f)=" "1130j o=posn=r$(f)-90Z:posn<7posn>9 1130j yr$(f)=c$(f)2500 ~r$(f)c$(f)2000  9900& f 914,0;" That's the end of MULTITEST." 515,0;" " (16,0;" Your score was " 517,0;" " l18,0;" ";18,3;score;" out of ";count;" attempts." 9900&:9200# ?posn,2;1;r$(f);0;" ";a$(f,posn-6) /14,2;"Sorry - that's not right!" count=count+1 !r$(f)="x":for comparison later  9700% y$"n"1100L  1205 right answer ?posn,2;1;r$(f);0;" ";a$(f,posn-6) count=count+1 y14,2;"Well done! That's correct!";16,2;"The answer is: ";18,5;a$(f,posn-6) 0score=score+1:line=25:9750& 1205:9000(# *********************** cloze test ***********************  236099\,70F word,gap,answer,line Fw$(101e,16):a$(20,16):l$(20,32 ) #d$(25):array of items done z$(1,32 ):dummy 'a(20):length of correct answer m$="":answer dummy match game=0:o=0 w(100d):length of word ===welcome menu & loop= 0U6:1:0::1,0;"**WELCOME TO THE READING TEXT**" :4,0;"In this exercise you will see"'"a text with gaps in it."'"You must complete the text,"'"by writing the correct word." DP12 ,0;"You can choose the text and"'"the number of gaps yourself." NC16,0;"You score 2 points for the "'"correct answer." 9900& X:4,0;"Which text would you like?"''"There are 2 texts in this unit." "text number?";f$ 'f$>502ůf$<4913220 f$>13220 game=f$-480 -8,0;"You've chosen text ";game 211 ,0;"How often do you want a gap?" 313 ,0;"After 5,6,7,8 or 9 words?" #"Choose a number from 5 to 9 ";o$ o$>13270 'o$>579ůo$<5353270 o=o$-480 n15,0;"You've chosen to have a gap";17,0;"every ";1;o;0;" words" 220,0;"Please wait a few seconds..." HREAD DATA M(game=14820:end=86V R(game=24840:end=83S \d=1end:w$(d) f4g=115:w$(d,g)=" "w(d)=g-1:d hd>end3450z kg pd z4500:gapping print text <:1:0,0;1;"TEXT ";game;0  4600 tENTER ANSWERS score=0 j20,0;"--------------------------------";21,0;"Now try to find the words......"  "Which word? x=exit ";e$ e$>10 3500 e$>23800 %e$="x"line=3000 :9200# 'e$>58:ůe$<4913800 e$=13850  :e$(2)>58:ůe$(2)<48 03800  b=e$ Mb>end/o21,0;"There is no gap number ";b;"! ":3810 PVd$(b)="y"21,0;"You have already done that one!":75K:3800 ZO21,0;"ENTER word ";b;" z=answer h=help" db$:b$=""3940d ib$<58:3930Z nOb$>2021,0;"Your answer is too long! ":3500 }%b$="x"line=3000 :9200# b$="z"4300 db$="h"21,0;"The first letter is ";a$(b,1);"....... ":502:3930Z c21,0;" ";21,0;"Your word= ";b$:502 #b$=a$(b,1a(b))44000 Ma$(b,a(b))=","a$(b,a(b))="."a$(b,a(b))="?"m$=a$(b,1a(b)-1) b$=m$44000 v$(1,32 ):v$(1)=a$(b,1a(b)):v=v$(1,1):v<91[v>64@v=v+32 :v$(1,1)=v:b$=v$(1,1a(b))44000:3800 )b$a$(b,1a(b))b$m$4100  3800  4900$ ===wrong answer Vb$a$(b,1a(b))21,0;1;"Sorry-that's not right!";0 -0,18;"score = ";score;" " '-b$a$(b,1a(b))502:3930Z , h+:2,4;"LIST OF ANSWERS:" r: wGgame=0"You have to try a text first!":9900&:3100 |z=110 -4+z,0;z;" ";a$(z,1a(z)) z z=11 20 .z-6,16;z;" ";a$(z,1a(z)) z  9900&  3100 ===cheating=== 521,0;" " ~21,0;" ";21,0;"The answer is ";1;a$(b,1a(b));0 4450b:reinstate  3800 ====================== 0===correct answer=== 1k21,0;" ";21,0;"Well done! ";1;b$;0 :score=score+2 ?-0,18;"score = ";score;" " D4450b: N======================= b===reinstate=== g d$(b)="y" l w(b*o)=a(b) qw$(b*o)=a$(b) v 4600 !f=1̺(end/o):d$(f)"y" f:4900$ ===gapping===  num=1 f=0100do f=0f  f>end a$(num)=w$(f) 6w$(f)=32 +143+num+143+32  a(num)=w(f) w(f)=6 num=num+1 f  ====================== ===build lines===  x=1 f=120  len=0 len=04700\ space=32 -len *_space>w(x)l$(f)=l$(f,1len)+" "+w$(x,1w(x)):len=len+1+w(x):x=x+1 /Rx>end f,0;z$(1);f,0;l$(f);f+1,0;z$(1): 4space>w(x)4620  H5spacew(x)f,0;z$(1);f,0;l$(f) Mf R W======================= \1l$(f)=w$(x,1w(x)):len=w(x):x=x+1 p z====================== ===DATA=== l"The","distribution","system","that","GTZ","are","offering","seems","quite","good.","They","have","good","contacts","with","shops","all","over","the","country","and","they","are","interested","in","taking","all","our","products.","They","want","to","be","sole","distributors","in","Britain","and","will","produce","all","the","sales","literature","in","English." &"The","problem","is","the","discount.","They","want","a","minimum","30%","discount,","which","is","more","than","we","give","our","other","dealers.","The","only","answer","is","a","sales","guarantee.","If","they","can","give","us","the","guarantee,","we","can","give","them","the","discount." v"One","of","the","major","problems","that","British","companies","have","is","the","export","market.","A","large","number","of","companies","send","exports","to","Europe,","but","they","have","not","yet","solved","the","language","problem.","Their","managers","and","executives","normally","speak","only","English","and","they","expect","Europeans","to","learn","English." -"This","means","that","their","sales","literature","is","written","only","in","English","and","none","of","their","staff","can","translate","it","into","French,","German,","or","Italian.","Some","companies","use","translation","services,","but","then","the","company","cannot","check","the","texts!" "" "" $successful finish .G21,0;1;" You've finished the exercise!";0 8)9900&:line=3000 :9200#  ......password........ c$(5,5,15)  b$(5,15) v$(5,15) d$(5,5,15) a$(5,15) g=0:game number Te(3):e(1)=7:e(2)=8:e(3)=10 :c=0 b$(1)="clothes"  c$(1,1)="trousers" c$(1,2)="shirt" c$(1,3)="dress" c$(1,4)="jeans" c$(1,5)="socks" b$(2)="building" c$(2,1)="house" c$(2,2)="office"  c$(2,3)="hospital" c$(2,4)="church" c$(2,5)="factory" b$(3)="stationery" c$(3,1)="paper" c$(3,2)="pens" c$(3,3)="forms" !c$(3,4)="envelopes" c$(3,5)="pencils"  MAIN MENU c=0S=10 :6:6  " "::236099\,70F (0,9 ;2;"WELCOME TO" @x=35:y=720:x,y;5;" ":y:x 04,10 ;2;1;"PASSWORD" +0:10 ,4;"Now you can:" .13 ,4;"1...see the instructions" '15,4;"2...play the game" E9800H&:" choose a number ";i$:i$"1"i$"2"5049 i$=4915054 i$=5025066  5039  INSTRUCTIONS >:6:6:0,9 ;1;"INSTRUCTIONS" 22,0;"In this game you must guess a" #"secret word, the PASSWORD ." $:"You will see a word that gives" !"you ideas about the password." Đ:"When you see the idea word, you must try to find a word which you normally see or hear in the same situation as the idea word." Y:"For example,the idea FISH makes you think of the word FOOD or the word ANIMAL." ::"Then you write the PASSWORD you have thought of."  9900& C:4,0;"GAMES";5,0;"There are 3 games in Password."'"You can play them in any order.";9 ,0;"SCORE";10 ,0;"You start with 10 points."'"You get 5 points for every"'"correct answer."''"You lose 1 point for every"'"wrong answer."''"The top score is 25. "''"Good luck!"  9900&  GAME OPERATION  :5 Jy=0296:p=16:1,y+p;p;" ":p:y  y=30 x=0186 x=185076 "p=16:x+p,y;p;" "  y=y-1 p x =x=15192:x,12 ;x-12 ;" ":x Vy=12 172:19,y;(y-10 y16);y-11 ;" ":y  6 :g<420,0;"last game was Game No. ";g H9800H&:"choose a game x=exit ";g$:g$>25066 620,0;" " g$=""5080 %g$="x"line=5000:9200# 'g$>579ůg$<4915080 Tg=g$:g>320,0;"There's no game with this number":5080 c>05107 b:502,150:150,0:0,-502:-150,0:0,502 &4,7;"Now, try to guess" @5,7;"the ";1;"hidden";0;" word" #6,7;"from the ideas" #7,7;"in these words"  f=1 y=301-1 -11 ,y;"ideas!ideas!ideas!ideas!" -12 ,y;"ideas!ideas!ideas!ideas!" 511 ,y-7;"ideas!ideas!ideas!ideas!" 512 ,y-7;"ideas!ideas!ideas!ideas!" -13 ,f;"ideas!ideas!ideas!ideas!" -14,f;"ideas!ideas!ideas!ideas!" 513 ,f+7;"ideas!ideas!ideas!ideas!" 514,f+7;"ideas!ideas!ideas!ideas!"  f=f+1 f=155105 y  150 : Game begins  6 ?:5,2;"ideas:";5,16;"your answers:" a$(5,15) P0,10 ;"GAME ";g:a=15:2,9 ;"IDEA No.";a 616,0;" " 618,0;" " 620,0;" "  c=c+1 F5,2;"ideas:";5,16;0;"your answers:"  k=1a '16,122z:215,0 f=115 ^k+7,1+f;c$(g,k,f);k+7,11 ;0;a+7,15;1;"*" .k=ak+7,1+f;1;c$(g,k,f) c$(g,k,f)=" "5124 f k+7,16;a$(k):k O5,16;1;"your answers:";5,2;0;"ideas:" a9800H&:20,0;"type in your answer x=exit":y$:y$>305109 Wa$(a)=y$:a+7,15;0;" ";5,16;0;"your answers:" 0a$(a,1)=""a$(a,1)=" "5125  8k5k+6,2;0;c$(g,k-1)  0a$(a,1)="x"line=5000:9200#  a+7,16;a$(a)  a$(a)=b$(g)5145  a$(a)b$(g)5140 _502:5,16;0;"your answers:";16,9 ;"Try again!"a5 a59900& a 16,0;" ":16,9 ;1;"Game over":502:16,9 ;0;"Game over";18,2;"The password was - ";b$(g) B20,0;" ";2;7;"SCORE = ";S 18,0;" ";18,0;" The password was ";2;7;b$(g,1e(g));6;0:9900&:5066 20,0;" ";16,9 ;1;"Sorry!";18,4;0;"That's not the password." +0.25~,-15:0.5,-25 CS=S-1:20,9 ;7;2;"SCORE = ";S '16,9 ;0;"Sorry!": R5,16;0;"your answers:";16,9 ;1;"CORRECT!"  S=S+5 $b=14:0.25~,b:b :0.1}L,8:0.25~,5:0.5,4 I18,29;0;" ";16,9 ;0;"CORRECT!" f=115 (a+7,15+f;1;a$(a,f)  a$(a,f)=" "5154" !f "j20,0;" ";20,9 ;7;2;"SCORE = ";S # 3 $9900&:5066 c$(502,5,15) b$(502,15) X********************** Y ]word quiz segment b********************** g0:6:6 lscore=0:count=0 define variables %q$(10 ,128):definitions %a$(10 ,20):answer words  r$(1,20):response  intro menu 0:1,4;"WELCOME TO WORD QUIZ" ˁ3,0;"This is a simple word quiz. "''"You will see an explanation of"'"a mystery word."''"You must write the word." s10 ,0;"Sometimes more than one answer"'"could be correct - but the"'"computer only knows one answer." 519,0;"There are 10 words in the quiz." @14,0;"Make sure you spell the"'"words correctly!"  9900&  data lines q$(1)=" Before you invest your money, make sure no-one else can sell the product. You want exclusive or ...... rights to sell this." <q$(2)=" The opposite of 'normal' or 'ordinary'." Yq$(3)=" The company that makes a product is the ...... of that product." q$(4)=" A small increase in sales is not enough. We need a ...... increase next year to keep the business going." >q$(5)=" Every machine we sell has a 2 year ......" lq$(6)=" If there are 2 million people who could buy a product, the ...... sales are 2 million." q$(7)=" What we need for foreign markets is a good agent or ...... in the country, who can push our products." q$(8)=" The union negotiations were successful. In return for a 4% increase, the unions made several ...... on productivity." q$(9 )=" Most of our marketing information seems to be out-of-date. We need more ..... data, not last year's figures." q$(10 )=" Along with this letter I am sending you a leaflet and a ...... of our latest training books for word-processing." L answers V 7550~ `d=110 jd$:a$(d)=d$ td ~v"sole","special","manufacturer","considerable","guarantee","potential","distributor","concessions","recent","sample" @operation loop Jf=110 T":4,0;"WORD ";f c57,0;"********************************" d612 ,0;"********************************" f*8,0;2;7;q$(f) r 9800H& w'o$=" " |17,0;o$;18,0;o$;19,0;o$;20,0;"x=exit Now write the word.... ":r$(1):20,0;" " }%r$(1,1)=" "8060| ~fuzz=0 Ur$(1,1)<97ar$(1,1)=(r$(1,1)+32 )  9800H& Nr$(1,1)="x"r$(1,2)=" "line=7000X:9200# 3g=120:a$(f,g)=" "length=g-1 a$(f,g)=" "8100 g r$(1)=a$(f)8200 r$(1)a$(f)8300l *count=count+1:score=score+1 <0.2~L,15:0.2~L,15:0.2~L,15 14,4;"Well done! That's right! ";15,4;"The word is - ";17,13 ;7;2;a$(f,1length)  6 line=7000X:9750& & 8400 l\1,-15:14,4;"Sorry! That's not the word"'" I was looking for." qcount=count+1 v<j=1length:r$(1,j)=a$(f,j)fuzz=fuzz+1 xj zfuzz=08316| {r$(1,1)=a$(f,1)fuzz*100d/length60<17,4;"But it's nearly right!";18,4;"You got ";fuzz;" letters right -";19,4;"check your spelling" |^0,0;7;2;"SCORE = ";score;" out of ";count;" attempts":8600! f !:10 ,0;"That is the end of the Wordquiz.";14,0;"Your final score is ";2;7;score:9900& !4 9200# ! ===help=== !;9800H&:"a=answer h=help ENTER=repeat";y$ !U14,0;" " !U17,0;" " !419,0;" " !y$=""8060| !xy$="a"14,4;"The word is- ";7;2;a$(f,1length);0;6;" ":9900& !ey$="h"14,4;"The first letter is ";1;a$(f,1);0;"....":8060| !!y$>1y$""8610! ! #(*********************** #)hueber utilities #************************ #+line=0 #,2:2:7 #:unit welcome menu #********************** #;4,6;1;"WELCOME TO UNIT 3";0 #*8,6;"In this unit you can:" #+12 ,6;"1...test your grammar" #(13 ,6;"2...do a word quiz" #/14,6;"3...do a reading exercise" #'15,6;"4...play PASSWORD" # 9800H& #59850z&:y$"1"y$"2"y$"3"y$"4"9150# #y$="1"20 #y$="2"7000X #y$="3"3000 #y$="4"5000 #*********************** # endpanel #*********************** #2:2:7 # #64,6;1;"THAT'S THE END!";0 #!8,6;"Now you can:" $012 ,6;"1...do this activity again" $ /13 ,6;"2...choose a new activity" $*14,6;"3...start a new unit" $*15,6;"4...stop the program" $ 9800H& $ 9850z& $")y$"1"y$"2"y$"3"y$"4"9245$ $,put if jumps here $1y$="1"line $2y$="2"9100# $3y$="3"9280@$ $6uy$="4":8,8;"Goodbye!":19,0;"You can start again by pressing"'"R and then ENTER" $;y$="4"j$:j$="r" $<y$="4"9275;$ $@new loading procedure $By$"3"9100# $D,:9800H&:"Are you sure? y/n ";y$ $Ey$"y"9200# $F^:8,0;"Which unit do you want to work"'"with?"'''"Give the number of the unit:" $I 9800H& $J"unit number? ";y$ $Ky$=""9290J$ $Ly$>10 9290J$ $O'y$>579ůy$<4919290J$ $TD:8,0;"You have chosen Unit ";y$;''"Is this correct?" $Yu$="unit"+y$ $] 9800H& $^ "y/n?";y$ $cy$"y"9286F$ $h]:8,0;"Now start to play the tape";10 ,0;"and press ENTER" $my$:y$""9325m$ $r\17,0;1;"Loading ";u$;19,0;"DO NOT STOP THE TAPE";0 $wu$:9000(# %R0,0;7;2;"SCORE = ";score;" out of ";count;" attempts" %6:0 %+"ENTER=try again n=new questn";y$ %y$""y$"n"9700% % &R0,0;7;2;"SCORE = ";score;" out of ";count;" attempts" &6:0 &+"x=exit ENTER=next question ";y$ & y$"x"y$""9750& &%y$="x"9200# &* &M$0,0:255,0 &R &\ &z%"Choose a number + ENTER ";y$ & & 9800H& &""Press ENTER to continue";y$ &y$""9900& & , "cloze test  Mike Carrier 11/82 "cloze test  Mike Carrier 11/82 coroun Before you invest your money, make sure no-one else can sell the product. You want exclusive or ...... rights to sell this. The opposite of 'normal' or 'ordinary'. The company that makes a product is the ...... of that product. A small increase in sales is not enough. We need a ...... increase next year to keep the business going. Every machine we sell has a 2 year ...... If there are 2 million people who could buy a product, the ...... sales are 2 million. What we need for foreign markets is a good agent or ...... in the country, who can push our products. The union negotiations were successful. In return for a 4% increase, the unions made several ...... on productivity. Most of our marketing information seems to be out-of-date. We need more ..... data, not last year's figures. Along with this letter I am sending you a leaflet and a ...... of our latest training books for word-processing.  sole special manufacturer considerable guarantee potential distributor concessions recent sample x `Dsample JO uzinXY yunit4 [#copyright Michael Carrier Dec 82 *********************** hueber langsoft  Mike Carrier *********************** 236099\,70F 2:2  rf=18:0.2~L,10 :12 ,8;2;7;1;"STOP THE TAPE!";0:f 9000(# first entry to multitest  #q$(15,128):questions -score=0:count=0:fault=0 /a$(15,3,28):answer choices #r$(15):responses ()c$(15):correct answer-a,b, or c) d0:6:6 e5:2,4;"***WELCOME TO MULTITEST***" i)6,4;"UNIT 4 -- VERB FORMS" nr8,4;"There are 15 questions";9 ,4;"about verb forms in ";10 ,4;"this unit." xT13 ,4;"Choose a,b, or c ";14,4;"to answer the question." 9900& Nq$(1)=" This year's sales ...... much better than the last 2 years." Hq$(2)=" Last year's figures ...... 20% lower than this year's." gq$(3)=" Our report shows that exports ...... faster than home sales in the last few years." gq$(4 )=" The Sales Manager says he ...... such good overseas sales as this year's." hq$(5)=" Our overseas marketing work ...... a big difference to our sales so far this year." >q$(6)=" In 1984 profits ...... despite higher sales." Vq$(7)=" Profits fell because we ...... a lot on investment in that year." kq$(8)=" When he took over our new managing director ...... that we needed more investment." Zq$(9 )=" Looking at this year's sales, it seems he ...... right to say that." Uq$(10 )=" If you need further information please do not hesitate ...... us." 9q$(11 )=" We look forward ...... your letter." Fq$(12 )=" It is not allowed ...... in the company canteen." Cq$(13 )=" Most employees enjoy ...... for this company." eq$(14)=" Management has a lot of new ideas on how ...... the working conditions." ]q$(15)=" As long as they continue ...... the salaries, I'll be happy here." 5:8,0;"Please wait a few seconds....." f=115 " 300,+f 'a=13:d$ (a$(f,a)=d$:a *d$:c$(f)=d$ ,f -$"are being","have been","were","b" .#"had been","have been","were","c" /."increase","increasing","have increased","c" 0:"didn't ever see","has never seen","is never seeing","b" 1$"has made","made","was making","a" 2("fell","have fallen","were fallen","a" 3)"are spending","have spent","spent","c" 4,"decided","has decided","was deciding","a" 5"is","has been","was","c" 6/"contacting","to contact","in contacting","b" 7-"to receive","to receiving","receiving","b" 8'"smoking","to smoke","to smoking","b" 9&"to work","to working","working","c" :("improving","improve","to improve","c" ;4"increasing","to increasing","with increasing","a" score=0:operation loop f=115 L:blank frame Q$1,0;"Question ";f S3,0;q$(f) V&7,2;"a ";a$(f,1) [&8,2;"b ";a$(f,2) `&9 ,2;"c ";a$(f,3) e 9800H& j"choose a letter";r$(f) lr$(f)=" "1130j o=posn=r$(f)-90Z:posn<7posn>9 1130j yr$(f)=c$(f)2500 ~r$(f)c$(f)2000  9900& f 914,0;" That's the end of MULTITEST." 515,0;" " (16,0;" Your score was " 517,0;" " 717,3;score;" out of ";count;" attempts." 518,0;" " 9900&:9200# ?posn,2;1;r$(f);0;" ";a$(f,posn-6) /14,2;"Sorry - that's not right!" count=count+1 !r$(f)="x":for comparison later  9700% y$"n"1100L  1205 right answer ?posn,2;1;r$(f);0;" ";a$(f,posn-6) count=count+1 y14,2;"Well done! That's correct!";16,2;"The answer is: ";18,5;a$(f,posn-6) 0score=score+1:line=25:9750& 1205:9000(# *********************** cloze test ***********************  236099\,70F word,gap,answer,line Fw$(100d,16):a$(20,16):l$(20,32 ) #d$(25):array of items done z$(1,32 ):dummy 'a(20):length of correct answer m$="":answer dummy match game=0:o=0 w(100d):length of word ===welcome menu & loop= 0U6:1:0::1,0;"**WELCOME TO THE READING TEXT**" :4,0;"In this exercise you will see"'"a text with gaps in it."'"You must complete the text,"'"by writing the correct word." DP12 ,0;"You can choose the text and"'"the number of gaps yourself." NC16,0;"You score 2 points for the "'"correct answer." 9900& X:4,0;"Which text would you like?"''"There are 2 texts in this unit." "text number?";f$ 'f$>502ůf$<4913220 f$>13220 game=f$-480 -8,0;"You've chosen text ";game 211 ,0;"How often do you want a gap?" 313 ,0;"After 5,6,7,8 or 9 words?" #"Choose a number from 5 to 9 ";o$ o$>13270 'o$>579ůo$<5353270 o=o$-480 n15,0;"You've chosen to have a gap";17,0;"every ";1;o;0;" words" 220,0;"Please wait a few seconds..." HREAD DATA M(game=14820:end=96` R(game=24840:end=91[ \d=1end:w$(d) f4g=116:w$(d,g)=" "w(d)=g-1:d hd>end3450z kg pd z4500:gapping print text <:1:0,0;1;"TEXT ";game;0  4600 tENTER ANSWERS score=0 j20,0;"--------------------------------";21,0;"Now try to find the words......"  "Which word? x=exit ";e$ e$>10 3500 e$>23800 %e$="x"line=3000 :9200# 'e$>58:ůe$<4913800 e$=13850  :e$(2)>58:ůe$(2)<48 03800  b=e$ Mb>end/o21,0;"There is no gap number ";b;"! ":3810 PVd$(b)="y"21,0;"You have already done that one!":75K:3800 ZO21,0;"ENTER word ";b;" z=answer h=help" db$:b$=""3940d ib$<58:3930Z nOb$>2021,0;"Your answer is too long! ":3500 }%b$="x"line=3000 :9200# b$="z"4300 db$="h"21,0;"The first letter is ";a$(b,1);"....... ":502:3930Z c21,0;" ";21,0;"Your word= ";b$:502 #b$=a$(b,1a(b))44000 Ma$(b,a(b))=","a$(b,a(b))="."a$(b,a(b))="?"m$=a$(b,1a(b)-1) b$=m$44000 v$(1,32 ):v$(1)=a$(b,1a(b)):v=v$(1,1):v<91[v>64@v=v+32 :v$(1,1)=v:b$=v$(1,1a(b))44000:3800 )b$a$(b,1a(b))b$m$4100  3800  4900$ ===wrong answer Vb$a$(b,1a(b))21,0;1;"Sorry-that's not right!";0 -0,18;"score = ";score;" " '-b$a$(b,1a(b))502:3930Z , h+:2,4;"LIST OF ANSWERS:" r: wGgame=0"You have to try a text first!":9900&:3100 |z=110 -4+z,0;z;" ";a$(z,1a(z)) z z=11 20 .z-6,16;z;" ";a$(z,1a(z)) z  9900&  3100 ===cheating=== 521,0;" " ~21,0;" ";21,0;"The answer is ";1;a$(b,1a(b));0 4450b:reinstate  3800 ====================== 0===correct answer=== 1k21,0;" ";21,0;"Well done! ";1;b$;0 :score=score+2 ?-0,18;"score = ";score;" " D4450b: N======================= b===reinstate=== g d$(b)="y" l w(b*o)=a(b) qw$(b*o)=a$(b) v 4600 !f=1̺(end/o):d$(f)"y" f:4900$ ===gapping===  num=1 f=0100do f=0f  f>end a$(num)=w$(f) 6w$(f)=32 +143+num+143+32  a(num)=w(f) w(f)=6 num=num+1 f  ====================== ===build lines===  x=1 f=120  len=0 len=04700\ space=32 -len *_space>w(x)l$(f)=l$(f,1len)+" "+w$(x,1w(x)):len=len+1+w(x):x=x+1 /Rx>end f,0;z$(1);f,0;l$(f);f+1,0;z$(1): 4space>w(x)4620  H5spacew(x)f,0;z$(1);f,0;l$(f) Mf R W======================= \1l$(f)=w$(x,1w(x)):len=w(x):x=x+1 p z====================== ===DATA=== Ԭ"In","the","modern","business","world","it","is","important","to","have","fast","and","efficient","communications.","Sending","documents","by","post","is","very","slow","and","you","can't","be","certain","that","the","letters","will","arrive.","The","telephone","is","faster","but","doesn't","give","you","a","written","record","of","what","you","said.","Many","companies","use","telex,","especially","for","short","messages." &"But","the","quickest","way","to","send","a","long","document","is","to","use","a","fax","machine","which","will","send","a","copy","of","your","document","in","a","few","seconds.","It","will","send","pictures","as","well","as","text,","and","it's","cheaper","than","using","the","telephone." "Most","companies","now","have","computers","for","administration","but","there","is","something","else","they","can","use","their","machine","for.","Electronic","mail","is","a","computer","message","or","telex","system","which","you","can","use","to","communicate","with","anyone","in","the","world.","All","you","need","is","a","computer,","a","telephone","connection","and","the","number","of","the","electronic","mail","service."  "You","dial","the","number,","in","your","own","country","and","write","the","message","on","your","computer.","Your","client","rings","his","mail","service","every","hour","or","every","day,","to","collect","his","messages.","He","can","reply","by","computer","too." "" "" $successful finish .G21,0;1;" You've finished the exercise!";0 8)9900&:line=3000 :9200#  ********************** :236099\,70F mazes segment ********************** copyright Mike Carrier  april 1984 :6:6:0 q$(1,224)  a$(480,96`):options 2x=1:op1=1:op2=1:op3=1 J:2,6;1;7;"A BUSINESS MAZE";6;0 6,0;"This maze gives you a business"'"problem to solve."''"Read the situation at the top"'"of each page, and then choose"'"one of the three suggestions "'"given as possible answers."''"Decide what YOU would do, and"'"choose the number of that "'"possible answer." S:"If you want to EXIT at any time"'"type x and press ENTER.":9900& +++++statements+++++ " Looking through the files you see that Systol Plastics haven't paid their bills for more than 2 months. They owe you `46,000." l" That's an acceptable decision today, but how long are you prepared to wait for them to pay?"  k" What sort of letter will you write? What will you tell the company to do about the overdue bill?" " Good - your legal friends will be able to help. But your lawyer will need detailed information and instructions. What will you tell him to do about this problem?" " So far you've wasted 1 month trying to get this bill paid. You are beginning to lose your patience. What do you want to do now?" (" Now you've been involved in this problem for 2 months. All you've received from Systol is a short letter explaining that they've had difficulties, and they hope to pay soon. What are you going to do now?" 2" This is becoming absurd. 3 months have passed. Nothing has happened. They have not paid any of the bills. What are you going to do next?" <" That's a very serious step to take. After all, Systol may be waiting for customers to pay their bills, too. At the end of 7 days there is still no money, just a promise to pay as soon as possible. Should you....." FO" That's a fair suggestion. But within 7 days there's no reply. What next?" P" The letter is written in a very legal way, and is sent off to Systol. After 3 days you get a long letter describing all the little problems that Barnes, the manager, has had. But no money. And now?" Z" That costs you `100 in legal fees, but there is no result. There are 3 things you can do:" d" The court sets a date for the hearing, and you have to pay legal fees of `500 now. The court hearing is 2 months from now. What should you do in the meantime?" x" You speak to Mr. Barnes of Systol. He is very emotional, and tells you about his problems. Systol paid over `70,000 to one supplier, who went bankrupt. He needs to sell his stock of components." " When you arrive, Mr. Barnes tells you his story. His accounts manager has left the country with over `50,000 of Systol's money. Because of his troubles, his wife has left him. What can you say?" u" You receive a telephone call from Mr. Barnes, who thanks you for your trust in him. Nothing happens." " You've threatened Systol with serious action. You can't stop now. Barnes calls you and asks for help, but you have no choice. You must go ahead. Only one possibility:" " That's a very interesting idea. You've reduced the debt by half, and got some useful components at 50% of the usual price. Well done!" " You have a wonderful, funny evening. Barnes and your sister get on very well. He invites her to have dinner with him. What should you do?" j" This must be the last time that you wait for a serious answer. No reply at the end of this time." \" She tells you to leave her alone. She is old enough to choose her own friends." ]" She is very angry. 'I can do what I want' she says. She doesn't like him anyway." s" The other creditors tell you that they have also lost large amounts of money. As a group, you decide to:" }" Your lawyer explains that it could take 2-3 months for the case to come to court. He offers you 2 choices:" " After 2 months of waiting, you have had to pay `2300 interest on money you borrowed to replace the `46,000. Now you are in court. What compensation do you want to ask for?" " You've started the necessary procedure. Barnes calls you and begs you to think of his home and his family. He wants you to stop. What do you tell him?" " The court has decided to award you the sum of `48,300. This is to pay off the bill and compensate you for the interest you have had to pay." " The court has decided to award you the sum of `46,000. The court decided that you should not get compensation, as this was a normal business risk." " The court has decided to award you the sum of `22,700. Systol did not have enough money to pay all the creditors in full." " That seems to be the end of the case. You have got a financial solution. Barnes has lost his company. No doubt he will soon start a new company...." "" Well, really. After all this time and trouble, your decision shows a certain weakness. You must be hard on people like Barnes. You've had your last chance to get your money back." ,c" Back to serious business now. You only have 2 possible ways to continue - choose the best." |++++choices+++++ ^a$(1)="Wait for a few days-they've been very good customers over the last 2 years." Ba$(2)="Write to the company and ask what has happened." Ga$(3)="Get your secretary to call your lawyer's office today." a$(4)=" For 1 month" a$(5)=" For 2 months" a$(6)=" For 3 months" Ma$(7)=" Pay up in 7 days or my lawyers will be writing to you." aa$(8)=" Please tell me what the problem is, so we can work out a solution together." Da$(9 )="Threaten court action if it's not paid in 7 days." 'a$(10 )="Send a warning letter." 9a$(11 )="Start court proceedings immediately." #a$(12 )="wait 1 more month." )a$(13 )="Contact your lawyer now." 5a$(14)="Write to give him a warning." 9a$(15)="Telephone the manager of the company." Da$(16)="Arrange a personal visit to talk to the manager." &*a$(17)="Give him seven more days." 0Oa$(18)="Try to contact his creditors and find out what he owes them." :7a$(19)="Get your lawyer to contact the court." D_a$(20)="Threaten him - you will make him bankrupt if he doesn't pay in 1 week." NFa$(21)="Nothing-you have other customers to worry about." XRa$(22)="Talk to the other creditors about trying to make Systol bankrupt." b=a$(23)="You believe him - give him seven more days." lPa$(24)="Offer to buy some of his stock from him, at discount prices." vFa$(25)="Threaten legal action within the next few days." =a$(26)="You believe him - give him another 30 days." Ga$(27)="Invite him to dinner, to meet your divorced sister." ,a$(28)="Go ahead with legal action." &a$(29)="wait another 30 days." @a$(30)="Go to the lawyer and start legal action." *a$(31)="You give him 7 more days." 5a$(32 )="You tell her she mustn't see him." `a$(33!)="You talk to your sister about the risks of being involved with this man." 7a$(34")="Leave her to make her own decisions." ^a$(35#)="Get together for a meeting and start legal action to make Barnes bankrupt." Ma$(36$)="Warn him that this is his last chance - 48 hours to pay." a$(37%)="Continue." 8a$(38&)="Start an action for bankruptcy." 'a$(39')="the amount of the debt"  'a$(40()="the debt plus interest" 9a$(41))="the debt, interest, and compensation"  4a$(42*)="Call it off. Stop the legal action." *7a$(43+)="Be firm - continue with the procedure." 4Ia$(44,)="That's the end of the maze. Press ENTER to continue." doperation loop-first page i)a=(*30):a<276505i n>x=1:op1=1:op2=2:op3=3:6700, xFr$="1"x=2:op1=4:op2=5:op3=6:6700, }Fr$="2"x=3:op1=7:op2=8:op3=0:6700, Hr$="3"x=4:op1=9 :op2=10 :op3=11 :6700, Ir$="4"x=5:op1=12 :op2=13 :op3=14:6700, Ir$="5"x=6:op1=13 :op2=15:op3=16:6700, Ir$="6"x=7:op1=13 :op2=15:op3=16:6700, Ir$="7"x=8:op1=13 :op2=15:op3=17:6700, Ir$="8"x=9 :op1=13 :op2=15:op3=16:6700, Ir$="9"x=10 :op1=19:op2=18:op3=0:6700, Kr$="10"x=11 :op1=19:op2=20:op3=18:6700, Jr$="11"x=12 :op1=21:op2=22:op3=0:6700, Jr$="12"x=6:op1=13 :op2=16:op3=15:6700, Ir$="13"x=4:op1=9 :op2=10 :op3=11 :6700, Gr$="14"x=3:op1=7:op2=8:op3=0:6700, Kr$="15"x=14:op1=23:op2=24:op3=25:6700, Kr$="16"x=15:op1=26:op2=25:op3=27:6700, Kr$="17"x=16:op1=13 :op2=16:op3=15:6700, Jr$="18"x=23:op1=35#:op2=36$:op3=0:6700, Jr$="19"x=24:op1=37%:op2=38&:op3=0:6700, Jr$="20"x=10 :op1=19:op2=18:op3=0:6700, Kr$="21"x=25:op1=39':op2=40(:op3=41):6700, Jr$="22"x=23:op1=35#:op2=36$:op3=0:6700, Jr$="23"x=16:op1=13 :op2=16:op3=0:6700, Jr$="24"x=18:op1=29:op2=30:op3=0:6700, Ir$="25"x=17:op1=28:op2=0:op3=0:6700, Jr$="26"x=20:op1=19:op2=22:op3=0:6700, Kr$="27"x=19:op1=31:op2=33!:op3=32 :6700, Jr$="28"x=26:op1=42*:op2=43+:op3=0:6700, =r$="29"x=16:op1=13 :op2=16:6700,  Jr$="30"x=24:op1=37%:op2=38&:op3=0:6700, Jr$="31"x=20:op1=19:op2=22:op3=0:6700, Ir$="32"x=21:op1=34":op2=0:op3=0:6700, Ir$="33"x=22:op1=34":op2=0:op3=0:6700, Jr$="34"x=32 :op1=19:op2=22:op3=0:6700, "Jr$="35"x=26:op1=42*:op2=43+:op3=0:6700, #Ir$="36"x=20:op1=19:op2=0:op3=0:6700, $Ir$="37"x=12 :op1=21:op2=0:op3=0:6700, %Jr$="38"x=26:op1=42*:op2=43+:op3=0:6700, &Br$="39"x=a:op1=44,:op2=0:op3=0:6700, 'Br$="40"x=a:op1=44,:op2=0:op3=0:6700, (Br$="41"x=a:op1=44,:op2=0:op3=0:6700, )Ir$="42"x=31:op1=44,:op2=0:op3=0:6700, *Ir$="43"x=30:op1=44,:op2=0:op3=0:6700, +2r$="44"9900&:line=5000:9200# ,7:7,0;"********************************" c7:7,0;"********************************" h+r=5100+(x*10 ):r:q$(1) m00,0;1;7;q$(1) wf8,2;"______________________________";12 ,2;"______________________________" |op2013 ,2;"______________________________";17,2;"______________________________":op3018,2;"______________________________";21,2;"______________________________" M16,104h:0,-32 :255,72H:0,32 Yop2016,64@:0,-32 :255,32 :0,32 Xop3016,24:0,-24:255,0:0,24 9 ,0;op1;9 ,3;a$(op1,128);10 ,3;a$(op1,29568);11 ,3;a$(op1,57984T) op2014,0;op2;14,3;a$(op2,128);15,3;a$(op2,29568);16,3;a$(op2,57984T) {op3019,0;op3;19,3;a$(op3,128);20,3;a$(op3,29568) 8op1=44 ,9900&:line=5000:9200# $"Choose a number + ENTER ";r$ r$>26700, %r$="x"line=5000:9200# r$=""6850 'r$>579ůr$<4916850 %r$op1ưr$op2ưr$op36850 $6520x:analyse options chosen  end of maze )9900&:line=5000:9200# X********************** Y ]word quiz segment b********************** g0:6:6 lscore=0:count=0 define variables %q$(10 ,128):definitions %a$(10 ,20):answer words  r$(1,20):response  intro menu 0:1,4;"WELCOME TO WORD QUIZ" ˁ3,0;"This is a simple word quiz. "''"You will see an explanation of"'"a mystery word."''"You must write the word." s10 ,0;"Sometimes more than one answer"'"could be correct - but the"'"computer only knows one answer." 514,0;"There are 10 words in the quiz." 616,0;"Make sure the spelling is right!"  9900&  data lines p q$(1)=" As letters are very slow, it is better to send international messages by telegram or ......" b q$(2)=" When you pay this invoice, please tick this box if you require a ......"  q$(3)=" One of my colleagues had so many ...... that the bank closed his account and took his credit cards away." m q$(4)=" Please don't use ...... like 'Xmas' for 'Christmas' when you write business letters." l q$(5)=" Before you buy something in large quantities you ask the company to ...... a price."  q$(6)=" In most companies you have to get permission to get a day off. You must ask your boss to ...... your holidays." x q$(7)=" KT Ltd regrets that because of the company's debts it has stopped trading and gone into ......" h q$(8)=" Please check this ...... I think they've charged us too much for the shipping." e q$(9 )=" In a negotiation, you can get an ...... by sitting with your back to the window." o q$(10 )=" When you call the USA, remember that different cities are in different time ......" L answers V 7550~ `d=110 jd$:a$(d)=d$ td ~j "telex","receipt","debts","abbreviations","quote","approve","liquidation","invoice","advantage","zones" @operation loop Jf=110 T":4,0;"WORD ";f c57,0;"********************************" d612 ,0;"********************************" f*8,0;2;7;q$(f) r 9800H& w'o$=" " |17,0;o$;18,0;o$;19,0;o$;20,0;"x=exit Now write the word.... ":r$(1):20,0;" " }%r$(1,1)=" "8060| ~fuzz=0 Ur$(1,1)<97ar$(1,1)=(r$(1,1)+32 )  9800H& Nr$(1,1)="x"r$(1,2)=" "line=7000X:9200# 3g=120:a$(f,g)=" "length=g-1 a$(f,g)=" "8100 g r$(1)=a$(f)8200 r$(1)a$(f)8300l *count=count+1:score=score+1 <0.2~L,15:0.2~L,15:0.2~L,15 14,4;"Well done! That's right! ";15,4;"The word is - ";17,13 ;7;2;a$(f,1length)  6 line=7000X:9750& & 8400 l\1,-15:14,4;"Sorry! That's not the word"'" I was looking for." qcount=count+1 v<j=1length:r$(1,j)=a$(f,j)fuzz=fuzz+1 xj zfuzz=08316| {r$(1,1)=a$(f,1)fuzz*100d/length80P17,4;"But it's nearly right!";18,4;"You got ";fuzz;" letters right -";19,4;"check your spelling" |^0,0;7;2;"SCORE = ";score;" out of ";count;" attempts":8600! f !:10 ,0;"That is the end of the Wordquiz.";14,0;"Your final score is ";2;7;score:9900& !4 9200# ! ===help=== !/"a=answer h=help ENTER=repeat";y$ !514,0;" " !515,0;" " !517,0;" " !518,0;" " !519,0;" " !y$=""8060| !xy$="a"14,4;"The word is- ";7;2;a$(f,1length);0;6;" ":9900& !ey$="h"14,4;"The first letter is ";1;a$(f,1);0;"....":8060| ! #(*********************** #)hueber utilities #************************ #+line=0 #,2:2:7 #:unit welcome menu #********************** #;4,6;1;"WELCOME TO UNIT 4";0 #*8,6;"In this unit you can:" #+12 ,6;"1...test your grammar" #(13 ,6;"2...do a word quiz" #/14,6;"3...do a reading exercise" #'15,6;"4...follow a maze" # 9800H& #59850z&:y$"1"y$"2"y$"3"y$"4"9150# #y$="1"20 #y$="2"7000X #y$="3"3000 #y$="4"5000 #*********************** # endpanel #*********************** #2:2:7 # #64,6;1;"THAT'S THE END!";0 #!8,6;"Now you can:" $012 ,6;"1...do this activity again" $ /13 ,6;"2...choose a new activity" $*14,6;"3...start a new unit" $*15,6;"4...stop the program" $ 9800H& $ 9850z& $")y$"1"y$"2"y$"3"y$"4"9245$ $,put if jumps here $1y$="1"line $2y$="2"9100# $3y$="3"9280@$ $6uy$="4":8,8;"Goodbye!":19,0;"You can start again by pressing"'"R and then ENTER" $;y$="4"j$:j$="r" $<y$="4"9275;$ $@new loading procedure $By$"3"9100# $D,:9800H&:"Are you sure? y/n ";y$ $Ey$="n"9200# $F^:8,0;"Which unit do you want to work"'"with?"'''"Give the number of the unit:" $I 9800H& $J"unit number? ";y$ $K y$=""9290J$ $Ly$>10 9290J$ $O'y$>579ůy$<4919290J$ $TD:8,0;"You have chosen Unit ";y$;''"Is this correct?" $Yu$="unit"+y$ $] 9800H& $^ "y/n?";y$ $cy$="n"9286F$ $h]:8,0;"Now start to play the tape";10 ,0;"and press ENTER" $my$:y$""9335w$ $r\17,0;1;"Loading ";u$;19,0;"DO NOT STOP THE TAPE";0 $wu$:9000(# %R0,0;7;2;"SCORE = ";score;" out of ";count;" attempts" %6:0 %+"ENTER=try again n=new questn";y$ %y$""y$"n"9700% % &R0,0;7;2;"SCORE = ";score;" out of ";count;" attempts" &6:0 &+"x=exit ENTER=next question ";y$ & y$"x"y$""9750& &%y$="x"9200# &* &M$0,0:255,0 &R &\ &z%"Choose a number + ENTER ";y$ & & 9800H& &""Press ENTER to continue";y$ &y$""9900& & , "cloze test  Mike Carrier 11/82 "cloze test  Mike Carrier 11/82 coroun As letters are very slow, it is better to send international messages by telegram or ...... When you pay this invoice, please tick this box if you require a ...... One of my colleagues had so many ...... that the bank closed his account and took his credit cards away. Please don't use ...... like 'Xmas' for 'Christmas' when you write business letters. Before you buy something in large quantities you ask the company to ...... a price. In most companies you have to get permission to get a day off. You must ask your boss to ...... your holidays. KT Ltd regrets that because of the company's debts it has stopped trading and gone into ...... Please check this ...... I think they've charged us too much for the shipping. In a negotiation, you can get an ...... by sitting with your back to the window. When you call the USA, remember that different cities are in different time ......  telex receipt debts abbreviations quote approve liquidation invoice advantage zones x `Dzones JO uzinXYyunit5 bjcdj#copyright Michael Carrier Dec 82 *********************** hueber langsoft  Mike Carrier 236099\,70F 2:2  rf=18:0.2~L,10 :12 ,8;2;7;1;"STOP THE TAPE!";0:f 9000(# first entry to multitest  #q$(15,128):questions -score=0:count=0:fault=0 /a$(15,3,28):answer choices #r$(15):responses ()c$(15):correct answer-a,b, or c) d0:6:6 e5:2,4;"***WELCOME TO MULTITEST***" i5,4;"UNIT 5" nL8,4;"There are 15 questions";9 ,4;"in this unit." xT13 ,4;"Choose a,b, or c ";14,4;"to answer the question." 9900& iq$(1)=" To catch Christmas sales, the new product ...... be ready not later than 1st November." _q$(2)=" If we decide on the designs now, we ...... have samples ready by July." lq$(3)=" We can start TV advertisements in September, but we ...... pay for them until October." eq$(4)=" Before we do anything, we ...... get more market research on what people want." cq$(5)=" You can give up your job if you want to, but I think you ...... stay for a while. " `q$(6)=" I've accepted the boss's decision on this, but I ...... agree with it. " ?q$(7)=" ...... you mind typing this letter for me?" Xq$(8)=" Should I come to the sales conference? No, you ...... bother." eq$(9 )=" I don't think you should go out in New York at night - it ...... be dangerous." Xq$(10 )=" I can't come to dinner next week - I ...... have to go to Paris." mq$(11 )=" For this job we need someone who can type, ...... foreign languages aren't necessary." Qq$(12 )=" It's a very interesting job, ...... it's only a junior post." mq$(13 )=" The salary is rather low, however, ...... the current economic situation is poor." [q$(14)=" We would hope to make it more attractive ...... business improves." eq$(15)=" There have been no redundancies yet, ...... we've lost a lot of money this year." 5:8,0;"Please wait a few seconds....." f=115 " 300,+f 'a=13:d$ (a$(f,a)=d$:a *d$:c$(f)=d$ ,f -! "could","must","shouldn't","b" . "could","must","need to","a" /, "don't have to","mustn't","shouldn't","a" 0" "could","mustn't","need to","c" 1 "must","need to","should","c" 2, "don't have to","mustn't","shouldn't","a" 3 "Could","Should","Would","c" 4% "couldn't","mustn't","needn't","c" 5 "might","must","should","a" 6 "may","must","should","a" 7 "because","but","since","b" 8 "although","even","since","a" 9$ "even though","since","while","b" : "until","when","while","b" ;# "although","because","since","a" score=0:operation loop f=115 L:blank frame Q$1,0;"Question ";f S3,0;q$(f) V&7,2;"a ";a$(f,1) [&8,2;"b ";a$(f,2) `&9 ,2;"c ";a$(f,3) e 9800H& j"choose a letter";r$(f) lr$(f)=" "1130j o=posn=r$(f)-90Z:posn<7posn>9 1130j yr$(f)=c$(f)2500 ~r$(f)c$(f)2000  9900& f 914,0;" That's the end of MULTITEST." 515,0;" " (16,0;" Your score was " 517,0;" " l18,0;" ";18,3;score;" out of ";count;" attempts." 9900&:9200# ?posn,2;1;r$(f);0;" ";a$(f,posn-6) /14,2;"Sorry - that's not right!" count=count+1 !r$(f)="x":for comparison later  9700% y$"n"1100L  1205 right answer ?posn,2;1;r$(f);0;" ";a$(f,posn-6) count=count+1 y14,2;"Well done! That's correct!";16,2;"The answer is: ";18,5;a$(f,posn-6) 0score=score+1:line=25:9750& 1205:9000(# *********************** cloze test ***********************  236099\,70F word,gap,answer,line Fw$(101e,16):a$(20,16):l$(20,32 ) #d$(25):array of items done z$(1,32 ):dummy 'a(20):length of correct answer m$="":answer dummy match game=0:o=0 w(100d):length of word ===welcome menu & loop= 0U6:1:0::1,0;"**WELCOME TO THE READING TEXT**" :4,0;"In this exercise you will see"'"a text with gaps in it."'"You must complete the text,"'"by writing the correct word." DP12 ,0;"You can choose the text and"'"the number of gaps yourself." NC16,0;"You score 2 points for the "'"correct answer." 9900& X:4,0;"Which text would you like?"''"There are 2 texts in this unit." "text number?";f$ 'f$>502ůf$<4913220 f$>13220 game=f$-480 -8,0;"You've chosen text ";game 211 ,0;"How often do you want a gap?" 313 ,0;"After 5,6,7,8 or 9 words?" #"Choose a number from 5 to 9 ";o$ o$>13270 'o$>579ůo$<5353270 o=o$-480 n15,0;"You've chosen to have a gap";17,0;"every ";1;o;0;" words" 220,0;"Please wait a few seconds..." HREAD DATA M(game=14820:end=82R R(game=24840:end=95_ \d=1end:w$(d) f4g=115:w$(d,g)=" "w(d)=g-1:d hd>end3450z kg pd z4500:gapping print text <:1:0,0;1;"TEXT ";game;0  4600 tENTER ANSWERS score=0 j20,0;"--------------------------------";21,0;"Now try to find the words......"  "Which word? x=exit ";e$ e$>10 3500 e$>23800 %e$="x"line=3000 :9200# 'e$>58:ůe$<4913800 e$=13850  :e$(2)>58:ůe$(2)<48 03800  b=e$ Mb>end/o21,0;"There is no gap number ";b;"! ":3810 PVd$(b)="y"21,0;"You have already done that one!":75K:3800 ZO21,0;"ENTER word ";b;" z=answer h=help" db$:b$=""3940d ib$<58:3930Z nOb$>2021,0;"Your answer is too long! ":3500 }%b$="x"line=3000 :9200# b$="z"4300 db$="h"21,0;"The first letter is ";a$(b,1);"....... ":502:3930Z c21,0;" ";21,0;"Your word= ";b$:502 #b$=a$(b,1a(b))44000 Ma$(b,a(b))=","a$(b,a(b))="?"a$(b,a(b))="."m$=a$(b,1a(b)-1) b$=m$44000 v$(1,32 ):v$(1)=a$(b,1a(b)):v=v$(1,1):v<91[v>64@v=v+32 :v$(1,1)=v:b$=v$(1,1a(b))44000:3800 )b$a$(b,1a(b))b$m$4100  3800  4900$ ===wrong answer Vb$a$(b,1a(b))21,0;1;"Sorry-that's not right!";0 -0,18;"score = ";score;" " '-b$a$(b,1a(b))502:3930Z , h+:2,4;"LIST OF ANSWERS:" r: wGgame=0"You have to try a text first!":9900&:3100 |z=110 -4+z,0;z;" ";a$(z,1a(z)) z z=11 20 .z-6,16;z;" ";a$(z,1a(z)) z  9900&  3100 ===cheating=== 521,0;" " ~21,0;" ";21,0;"The answer is ";1;a$(b,1a(b));0 4450b:reinstate  3800 ====================== 0===correct answer=== 1k21,0;" ";21,0;"Well done! ";1;b$;0 :score=score+2 ?-0,18;"score = ";score;" " D4450b: N======================= b===reinstate=== g d$(b)="y" l w(b*o)=a(b) qw$(b*o)=a$(b) v 4600 !f=1̺(end/o):d$(f)"y" f:4900$ ===gapping===  num=1 f=0100do f=0f  f>end a$(num)=w$(f) 6w$(f)=32 +143+num+143+32  a(num)=w(f) w(f)=6 num=num+1 f  ====================== ===build lines===  x=1 f=120  len=0 len=04700\ space=32 -len *_space>w(x)l$(f)=l$(f,1len)+" "+w$(x,1w(x)):len=len+1+w(x):x=x+1 /Rx>end f,0;z$(1);f,0;l$(f);f+1,0;z$(1): 4space>w(x)4620  H5spacew(x)f,0;z$(1);f,0;l$(f) Mf R W======================= \1l$(f)=w$(x,1w(x)):len=w(x):x=x+1 p z====================== ===DATA=== Ա"The","reason","for","the","popularity","of","the","container","is","clear.","Containers","are","a","quicker,","cheaper","and","simpler","form","of","freight","transport.","They","are","quicker","because","the","freight","is","only","packed","and","unpacked","at","the","beginning","and","end","of","the","journey.","The","transfer","from","lorry","to","ship","to","train","to","lorry","now","takes","only","minutes","not","hours." "They","are","cheaper,","because","they","save","expensive","dock","loading","time.","They","can","also","be","moved","by","machine","and","so","they","reduce","the","amount","spent","on","wages." ^"For","many","companies","the","big","cities","are","becoming","too","expensive.","The","costs","of","staff,","premises","and","transport","are","increasing","rapidly,","and","so","many","firms","are","moving","to","smaller","towns.","The","company","can","save","money","because","the","rents","and","wages","are","lower","than","in","the","city." x"The","towns","are","close","to","the","major","roads","and","railways","and","so","transport","is","often","quicker","and","cheaper.","The","quality","of","life","is","also","different.","The","new","towns","are","close","to","the","countryside,","the","houses","are","modern","and","not","expensive,","and","there","are","safe","places","for","the","children","to","play." "" "" $successful finish .G21,0;1;" You've finished the exercise!";0 8)9900&:line=3000 :9200#  ......password........ c$(5,5,15)  b$(5,15) v$(5,15) d$(5,5,15) a$(5,15) g=0:game number  c=0 b$(1)="transport" c$(1,1)="bus" c$(1,2)="train" c$(1,3)="car" c$(1,4)="bicycle" c$(1,5)="plane" b$(2)="communication" c$(2,1)="telex" c$(2,2)="letter" c$(2,3)="message" c$(2,4)="note"  c$(2,5)="telegram" b$(3)="boss" c$(3,1)="manager"  c$(3,2)="director" !c$(3,3)="executive"  c$(3,4)="chairman" !c$(3,5)="president"  MAIN MENU c=0S=10 :6:6  " "::236099\,70F (0,9 ;2;"WELCOME TO" @x=35:y=720:x,y;5;" ":y:x 04,10 ;2;1;"PASSWORD" +0:10 ,4;"Now you can:" .13 ,4;"1...see the instructions" '15,4;"2...play the game" E9800H&:" choose a number ";i$:i$"1"i$"2"5049 i$=4915054 i$=5025066  5039  INSTRUCTIONS >:6:6:0,9 ;1;"INSTRUCTIONS" 22,0;"In this game you must guess a" ""secret word, the PASSWORD." $:"You will see a word that gives" !"you ideas about the password." Đ:"When you see the idea word, you must try to find a word which you normally see or hear in the same situation as the idea word." Y:"For example,the idea FISH makes you think of the word FOOD or the word ANIMAL." ::"Then you write the PASSWORD you have thought of."  9900& :1,0;"GAMES";2,0;"There are 3 games in Password."'"You can play them in any order.";6,0;"SCORE";7,0;"You start with 10 points."'"You get 5 points for every"'"correct answer."''"You lose 1 point for every"'"wrong answer. " ɔ:"The top score is 25, if you play"'"each game once."'"It can be higher than 25 if you"'"play any game more than once."''"Good luck!":9900&  GAME OPERATION  :5 Jy=0296:p=16:1,y+p;p;" ":p:y  y=30 x=0186 x=185076 "p=16:x+p,y;p;" "  y=y-1 p x =x=15192:x,12 ;x-12 ;" ":x Vy=12 172:19,y;(y-10 y16);y-11 ;" ":y  6 :g<420,0;"last game was Game No. ";g H9800H&:"choose a game x=exit ";g$:g$>25066 620,0;" " g$=""5080 %g$="x"line=5000:9200# 'g$>579ůg$<4915080 Tg=g$:g>320,0;"There's no game with this number":5080 c>05107 b:502,150:150,0:0,-502:-150,0:0,502 &4,7;"Now, try to guess" @5,7;"the ";1;"hidden";0;" word" #6,7;"from the ideas" #7,7;"in these words"  f=1 y=301-1 -11 ,y;"ideas!ideas!ideas!ideas!" -12 ,y;"ideas!ideas!ideas!ideas!" 511 ,y-7;"ideas!ideas!ideas!ideas!" 512 ,y-7;"ideas!ideas!ideas!ideas!" -13 ,f;"ideas!ideas!ideas!ideas!" -14,f;"ideas!ideas!ideas!ideas!" 513 ,f+7;"ideas!ideas!ideas!ideas!" 514,f+7;"ideas!ideas!ideas!ideas!"  f=f+1 f=155105 y  150 : Game begins  6 ?:5,2;"ideas:";5,16;"your answers:" a$(5,15) P0,10 ;"GAME ";g:a=15:2,9 ;"IDEA No.";a 616,0;" " 618,0;" " 620,0;" "  c=c+1 F5,2;"ideas:";5,16;0;"your answers:"  k=1a '16,122z:215,0 f=115 ^k+7,1+f;c$(g,k,f);k+7,11 ;0;a+7,15;1;"*" .k=ak+7,1+f;1;c$(g,k,f) c$(g,k,f)=" "5124 f k+7,16;a$(k):k O5,16;1;"your answers:";5,2;0;"ideas:" a9800H&:20,0;"type in your answer x=exit":y$:y$>305109 Wa$(a)=y$:a+7,15;0;" ";5,16;0;"your answers:" 0a$(a,1)=""a$(a,1)=" "5125  8k5k+6,2;0;c$(g,k-1)  0a$(a,1)="x"line=5000:9200#  a+7,16;a$(a)  a$(a)=b$(g)5145  a$(a)b$(g)5140 _502:5,16;0;"your answers:";16,9 ;"Try again!"a5 a59900& a 16,0;" ";16,9 ;"GAME OVER";18,2;"The password was - ";b$(g) B20,0;" ";2;7;"SCORE = ";S 9900&:5066 20,0;" ";16,9 ;1;"Sorry!";18,4;0;"That's not the password." +0.25~,-15:0.5,-25 CS=S-1:20,9 ;7;2;"SCORE = ";S '16,9 ;0;"Sorry!": R5,16;0;"your answers:";16,9 ;1;"CORRECT!"  S=S+5 $b=14:0.25~,b:b :0.1}L,8:0.25~,5:0.5,4 I18,29;0;" ";16,9 ;0;"CORRECT!" f=115 (a+7,15+f;1;a$(a,f)  a$(a,f)=" "5154" !f "j20,0;" ";20,9 ;7;2;"SCORE = ";S # 3 $9900&:5066 c$(502,5,15) b$(502,15) X********************** Y ]word quiz segment b********************** g0:6:6 lscore=0:count=0 define variables %q$(10 ,128):definitions %a$(10 ,20):answer words  r$(1,20):response  intro menu 0:1,4;"WELCOME TO WORD QUIZ" ˁ3,0;"This is a simple word quiz. "''"You will see an explanation of"'"a mystery word."''"You must write the word." s10 ,0;"Sometimes more than one answer"'"could be correct - but the"'"computer only knows one answer." 514,0;"There are 10 words in the quiz." @16,0;"Make sure you spell the"'"words correctly!"  9900&  data lines bq$(1)=" We are returning the goods sent on the 14th June as they were damaged in ......" mq$(2)=" One of our biggest costs is the amount of ...... we use, over 5000 litres of oil a month. " q$(3)=" Have we got a FAX machine? I need to send some ...... papers to New York. The president needs them in an hour." q$(4)=" How can we explain to the customers that our equipment is more expensive because it is more ...... than other models?" =q$(5)=" Another word for goods sent from A to B." q$(6)=" The sales manager says he needs new ...... for many of his shops. Most of them are too small, and in quiet streets. " eq$(7)=" All our freight is now sent in full ...... loads, which saves both time and money." jq$(8)=" The chairman believes that the ...... reason for the loss last year was poor management." q$(9 )=" As our factory creates a lot of noise and dirty air, we have to build it away from the main ...... centres." jq$(10 )=" Our business is to ...... drilling equipment and sell it, not to look for oil." L answers V 7550~ `d=110 jd$:a$(d)=d$ td ~s"transit","fuel","urgent","sophisticated","freight","premises","container","principal","population","manufacture" @operation loop Jf=110 T":4,0;"WORD ";f c57,0;"********************************" d612 ,0;"********************************" f*8,0;2;7;q$(f) r 9800H& w'o$=" " |17,0;o$;18,0;o$;19,0;o$;20,0;"x=exit Now write the word.... ":r$(1):20,0;" " }%r$(1,1)=" "8060| ~fuzz=0 Ur$(1,1)<97ar$(1,1)=(r$(1,1)+32 )  9800H& Nr$(1,1)="x"r$(1,2)=" "line=7000X:9200# 3g=120:a$(f,g)=" "length=g-1 a$(f,g)=" "8100 g r$(1)=a$(f)8200 r$(1)a$(f)8300l *count=count+1:score=score+1 <0.2~L,15:0.2~L,15:0.2~L,15 14,4;"Well done! That's right! ";15,4;"The word is - ";17,13 ;7;2;a$(f,1length)  6 line=7000X:9750& & 8400 l\1,-15:14,4;"Sorry! That's not the word"'" I was looking for." qcount=count+1 v<j=1length:r$(1,j)=a$(f,j)fuzz=fuzz+1 xj zfuzz=08316| {r$(1,1)=a$(f,1)fuzz*100d/length60<17,4;"But it's nearly right!";18,4;"You got ";fuzz;" letters right -";19,4;"check your spelling" |^0,0;7;2;"SCORE = ";score;" out of ";count;" attempts":8600! f !:10 ,0;"That is the end of Wordquiz.";14,0;"Your final score is ";2;7;score:9900& !4 9200# ! ===help=== !;9800H&:"a=answer h=help ENTER=repeat";y$ !U14,0;" " !U17,0;" " !419,0;" " !y$=""8060| !xy$="a"14,4;"The word is- ";7;2;a$(f,1length);0;6;" ":9900& !ey$="h"14,4;"The first letter is ";1;a$(f,1);0;"....":8060| !!y$>1y$""8610! ! #(*********************** #)hueber utilities #************************ #+line=0 #,2:2:7 #:unit welcome menu #********************** #;4,6;1;"WELCOME TO UNIT 5";0 #*8,6;"In this unit you can:" #+12 ,6;"1...test your grammar" #(13 ,6;"2...do a word quiz" #/14,6;"3...do a reading exercise" #'15,6;"4...play PASSWORD" # 9800H& #59850z&:y$"1"y$"2"y$"3"y$"4"9150# #y$="1"20 #y$="2"7000X #y$="3"3000 #y$="4"5000 #*********************** # endpanel #*********************** #2:2:7 # #64,6;1;"THAT'S THE END!";0 #!8,6;"Now you can:" $012 ,6;"1...do this activity again" $ /13 ,6;"2...choose a new activity" $*14,6;"3...start a new unit" $*15,6;"4...stop the program" $ 9800H& $ 9850z& $")y$"1"y$"2"y$"3"y$"4"9245$ $,put if jumps here $1y$="1"line $2y$="2"9100# $3y$="3"9280@$ $6uy$="4":8,8;"Goodbye!":19,0;"You can start again by pressing"'"R and then ENTER" $;y$="4"j$:j$="r" $<y$="4"9275;$ $@new loading procedure $By$"3"9100# $D,:9800H&:"Are you sure? y/n ";y$ $Ey$"y"9200# $F^:8,0;"Which unit do you want to work"'"with?"'''"Give the number of the unit:" $I 9800H& $J"unit number? ";y$ $Ky$=""9290J$ $Ly$>10 9290J$ $O'y$>579ůy$<4919290J$ $TD:8,0;"You have chosen Unit ";y$;''"Is this correct?" $Yu$="unit"+y$ $] 9800H& $^ "y/n?";y$ $cy$"y"9286F$ $h]:8,0;"Now start to play the tape";10 ,0;"and press ENTER" $my$:y$""9325m$ $r\17,0;1;"Loading ";u$;19,0;"DO NOT STOP THE TAPE";0 $wu$:9000(# %R0,0;7;2;"SCORE = ";score;" out of ";count;" attempts" %6:0 %+"ENTER=try again n=new questn";y$ %y$""y$"n"9700% % &R0,0;7;2;"SCORE = ";score;" out of ";count;" attempts" &6:0 &+"x=exit ENTER=next question ";y$ & y$"x"y$""9750& &%y$="x"9200# &* &M$0,0:255,0 &R &\ &z%"Choose a number + ENTER ";y$ & & 9800H& &""Press ENTER to continue";y$ &y$""9900& & , "cloze test  Mike Carrier 11/82 "cloze test  Mike Carrier 11/82 coroun We are returning the goods sent on the 14th June as they were damaged in ...... One of our biggest costs is the amount of ...... we use, over 5000 litres of oil a month. Have we got a FAX machine? I need to send some ...... papers to New York. The president needs them in an hour. How can we explain to the customers that our equipment is more expensive because it is more ...... than other models? Another word for goods sent from A to B. The sales manager says he needs new ...... for many of his shops. Most of them are too small, and in quiet streets. All our freight is now sent in full ...... loads, which saves both time and money. The chairman believes that the ...... reason for the loss last year was poor management. As our factory creates a lot of noise and dirty air, we have to build it away from the main ...... centres. Our business is to ...... drilling equipment and sell it, not to look for oil.  transit fuel urgent sophisticated freight premises container principal population manufacture x `D manufacture JO uzinXYyBunit6 j;d j#copyright Michael Carrier Dec 82 *********************** hueber langsoft  Mike Carrier 236099\,70F 2:2  s f=18:0.2~L,10 :12 ,8;2;7;1;"STOP THE TAPE!";0:f 9000(# first entry to multitest  #q$(15,128):questions -score=0:count=0:fault=0 /a$(15,3,28):answer choices #r$(15):responses ()c$(15):correct answer-a,b, or c) d0:6:6 e5:2,4;"***WELCOME TO MULTITEST***" iI5,4;"UNIT 6";6,4;"COMPARISONS AND VERB FORMS" nL8,4;"There are 15 questions";9 ,4;"in this unit." xT13 ,4;"Choose a,b, or c ";14,4;"to answer the question." 9900& [q$(1)=" This company's employees earn ...... employees in other companies." [q$(2)=" Most employees have ...... holidays than in other companies." ^q$(3)=" The meals in our company restaurant are ...... than in other places." Eq$(4)=" Weekly working hours are ...... in other industries." Iq$(5)=" Our workers are ...... any workers in this country." Mq$(6)=" The time lost by sickness is ...... the national average." @q$(7)=" Productivity is now ...... in previous years." Yq$(8)=" In general, people feel they are treated ...... by this company." [q$(9 )=" This is a warning to people ...... business with limited companies." gq$(10 )=" At this moment we suggest ..... no action against the people who owe you money. " Pq$(11 )=" Our board would prefer ...... the advice of our consultants." Zq$(12 )=" They tried to reduce their costs ...... the number of workers." eq$(13 )=" The workers were not prepared ...... part in discussions about cutting jobs." cq$(14)=" Further to our order, we look forward ...... the goods as soon as possible." Zq$(15)=" We would like ...... for the problems you have had with our product." 5:8,0;"Please wait a few seconds....." f=115 " 300,+f 'a=13:d$ (a$(f,a)=d$:a *d$:c$(f)=d$ ,f -)"higher than","more as","more than","c" .!"long","longer","more long","b" /8"least expensive","less expensive","not expensive","b" 0*"as short","short as","shorter than","c" 1A"as hard-working as","hard-working as","so hard-working as","a" 2-"least than","less than","littler than","b" 3?"more greater than","much greater as","much greater than","c" 4!"better","good","more well","a" 5"do","doing","to do","b" 6"take","taking","to take","b" 7)"follow","to follow","to following","b" 8%"by cut","by cutting","cutting","b" 9$"taking","to take","to taking","b" :-"receiving","to receive","to receiving","c" ;."apologising","apologise","to apologise","c" score=0:operation loop f=115 L:blank frame Q$1,0;"Question ";f S3,0;q$(f) V&7,2;"a ";a$(f,1) [&8,2;"b ";a$(f,2) `&9 ,2;"c ";a$(f,3) e 9800H& j"choose a letter";r$(f) lr$(f)=" "1130j o=posn=r$(f)-90Z:posn<7posn>9 1130j yr$(f)=c$(f)2500 ~r$(f)c$(f)2000  9900& f 914,0;" That's the end of MULTITEST." 515,0;" " (16,0;" Your score was " 517,0;" " l18,0;" ";18,3;score;" out of ";count;" attempts." 9900&:9200# ?posn,2;1;r$(f);0;" ";a$(f,posn-6) /14,2;"Sorry - that's not right!" count=count+1 !r$(f)="x":for comparison later  9700% y$"n"1100L  1205 right answer ?posn,2;1;r$(f);0;" ";a$(f,posn-6) count=count+1 y14,2;"Well done! That's correct!";16,2;"The answer is: ";18,5;a$(f,posn-6) 0score=score+1:line=25:9750& 1205:9000(# *********************** cloze test ***********************  236099\,70F word,gap,answer,line Fw$(101e,16):a$(20,16):l$(20,32 ) #d$(25):array of items done z$(1,32 ):dummy 'a(20):length of correct answer m$="":answer dummy match game=0:o=0 w(100d):length of word ===welcome menu & loop= 0U6:1:0::1,0;"**WELCOME TO THE READING TEXT**" :4,0;"In this exercise you will see"'"a text with gaps in it."'"You must complete the text,"'"by writing the correct word." DP12 ,0;"You can choose the text and"'"the number of gaps yourself." NC16,0;"You score 2 points for the "'"correct answer." 9900& X:4,0;"Which text would you like?"''"There are 2 texts in this unit." "text number?";f$ 'f$>502ůf$<4913220 f$>13220 game=f$-480 -8,0;"You've chosen text ";game 211 ,0;"How often do you want a gap?" 313 ,0;"After 5,6,7,8 or 9 words?" #"Choose a number from 5 to 9 ";o$ o$>13270 'o$>579ůo$<5353270 o=o$-480 n15,0;"You've chosen to have a gap";17,0;"every ";1;o;0;" words" 220,0;"Please wait a few seconds..." HREAD DATA M(game=14820:end=91[ R(game=24840:end=90Z \d=1end:w$(d) f4g=115:w$(d,g)=" "w(d)=g-1:d hd>end3450z kg pd z4500:gapping print text <:1:0,0;1;"TEXT ";game;0  4600 tENTER ANSWERS score=0 j20,0;"--------------------------------";21,0;"Now try to find the words......"  "Which word? x=exit ";e$ e$>10 3500 e$>23800 %e$="x"line=3000 :9200# 'e$>58:ůe$<4913800 e$=13850  :e$(2)>58:ůe$(2)<48 03800  b=e$ Mb>end/o21,0;"There is no gap number ";b;"! ":3810 PVd$(b)="y"21,0;"You have already done that one!":75K:3800 ZO21,0;"ENTER word ";b;" z=answer h=help" db$:b$=""3940d ib$<58:3930Z nOb$>2021,0;"Your answer is too long! ":3500 }%b$="x"line=3000 :9200# b$="z"4300 db$="h"21,0;"The first letter is ";a$(b,1);"....... ":502:3930Z c21,0;" ";21,0;"Your word= ";b$:502 #b$=a$(b,1a(b))44000 Ma$(b,a(b))=","a$(b,a(b))="?"a$(b,a(b))="."m$=a$(b,1a(b)-1) b$=m$44000 v$(1,32 ):v$(1)=a$(b,1a(b)):v=v$(1,1):v<91[v>64@v=v+32 :v$(1,1)=v:b$=v$(1,1a(b))44000:3800 )b$a$(b,1a(b))b$m$4100  3800  4900$ ===wrong answer Vb$a$(b,1a(b))21,0;1;"Sorry-that's not right!";0 -0,18;"score = ";score;" " '-b$a$(b,1a(b))502:3930Z , h+:2,4;"LIST OF ANSWERS:" r: wGgame=0"You have to try a text first!":9900&:3100 |z=110 -4+z,0;z;" ";a$(z,1a(z)) z z=11 20 .z-6,16;z;" ";a$(z,1a(z)) z  9900&  3100 ===cheating=== 521,0;" " ~21,0;" ";21,0;"The answer is ";1;a$(b,1a(b));0 4450b:reinstate  3800 ====================== 0===correct answer=== 1k21,0;" ";21,0;"Well done! ";1;b$;0 :score=score+2 ?-0,18;"score = ";score;" " D4450b: N======================= b===reinstate=== g d$(b)="y" l w(b*o)=a(b) qw$(b*o)=a$(b) v 4600 !f=1̺(end/o):d$(f)"y" f:4900$ ===gapping===  num=1 f=0100do f=0f  f>end a$(num)=w$(f) 6w$(f)=32 +143+num+143+32  a(num)=w(f) w(f)=6 num=num+1 f  ====================== ===build lines===  x=1 f=120  len=0 len=04700\ space=32 -len *_space>w(x)l$(f)=l$(f,1len)+" "+w$(x,1w(x)):len=len+1+w(x):x=x+1 /Rx>end f,0;z$(1);f,0;l$(f);f+1,0;z$(1): 4space>w(x)4620  H5spacew(x)f,0;z$(1);f,0;l$(f) Mf R W======================= \1l$(f)=w$(x,1w(x)):len=w(x):x=x+1 p z====================== ===DATA===  "The","amount","of","goods","bought","by","mail","order","has","continued","to","increase","over","the","last","few","years.","Why","is","this?","Now","that","most","people","have","a","car","and","every","town","has","big","shopping","centres,","it","seems","strange","that","shopping","from","home","is","still","popular.","One","reason","is","comfort.","It","is","more","comfortable","to","sit","on","the","sofa","at","home,","looking","at","a","catalogue,","than","to","walk","through","the","crowded","streets."  "Another","reason","is","the","specialised","nature","of","modern","products.","Many","small","specialised","companies","cannot","afford","to","have","a","national","distribution","system." [ "Credit","has","become","much","more","acceptable","these","days.","People","who","would","not","like","to","borrow","money","from","a","bank","have","nothing","against","using","a","credit","card","like","Visa.","It","is","so","easy","to","walk","into","a","store,","buy","what","you","want,","and","hand","over","your","piece","of","plastic." > "It","is","not","surprising","that","many","people","lose","control","of","their","money","and","get","into","debt.","But","most","shops","feel","that","credit","cards","help","their","sales,","even","though","they","have","to","pay","four","or","five","percent","commission","to","the","credit","card","companies." "" "" $successful finish .G21,0;1;" You've finished the exercise!";0 8)9900&:line=3000 :9200#  ......password........ c$(5,5,15)  b$(5,15) v$(5,15) d$(5,5,15) a$(5,15) g=0:game number  c=0 b$(1)="employee" c$(1,1)="worker" c$(1,2)="manager" c$(1,3)="clerk" "c$(1,4)="technician" #c$(1,5)="salesperson" b$(2)="department" c$(2,1)="sales"  c$(2,2)="accounts" !c$(2,3)="personnel" "c$(2,4)="purchasing" !c$(2,5)="marketing" b$(3)="alcohol" c$(3,1)="beer" c$(3,2)="wine" c$(3,3)="whisky" c$(3,4)="rum" !c$(3,5)="cocktails"  MAIN MENU c=0S=10 :6:6  " "::236099\,70F (0,9 ;2;"WELCOME TO" @x=35:y=720:x,y;5;" ":y:x 04,10 ;2;1;"PASSWORD" +0:10 ,4;"Now you can:" .13 ,4;"1...see the instructions" '15,4;"2...play the game" E9800H&:" choose a number ";i$:i$"1"i$"2"5049 i$=4915054 i$=5025066  5039  INSTRUCTIONS >:6:6:0,9 ;1;"INSTRUCTIONS" 22,0;"In this game you must guess a" ""secret word, the PASSWORD." $:"You will see a word that gives" !"you ideas about the password." Đ:"When you see the idea word, you must try to find a word which you normally see or hear in the same situation as the idea word." Y:"For example,the idea FISH makes you think of the word FOOD or the word ANIMAL." ::"Then you write the PASSWORD you have thought of."  9900& :1,0;"GAMES";2,0;"There are 3 games in Password."'"You can play them in any order.";6,0;"SCORE";7,0;"You start with 10 points."'"You get 5 points for every"'"correct answer."''"You lose 1 point for every"'"wrong answer. " ɔ:"The top score is 25, if you play"'"each game once."'"It can be higher than 25 if you"'"play any game more than once."''"Good luck!":9900&  GAME OPERATION  :5 Jy=0296:p=16:1,y+p;p;" ":p:y  y=30 x=0186 x=185076 "p=16:x+p,y;p;" "  y=y-1 p x =x=15192:x,12 ;x-12 ;" ":x Vy=12 172:19,y;(y-10 y16);y-11 ;" ":y  6 :g<420,0;"last game was Game No. ";g H9800H&:"choose a game x=exit ";g$:g$>25066 620,0;" " g$=""5080 %g$="x"line=5000:9200# 'g$>579ůg$<4915080 Tg=g$:g>320,0;"There's no game with this number":5080 c>05107 b:502,150:150,0:0,-502:-150,0:0,502 &4,7;"Now, try to guess" @5,7;"the ";1;"hidden";0;" word" #6,7;"from the ideas" #7,7;"in these words"  f=1 y=301-1 -11 ,y;"ideas!ideas!ideas!ideas!" -12 ,y;"ideas!ideas!ideas!ideas!" 511 ,y-7;"ideas!ideas!ideas!ideas!" 512 ,y-7;"ideas!ideas!ideas!ideas!" -13 ,f;"ideas!ideas!ideas!ideas!" -14,f;"ideas!ideas!ideas!ideas!" 513 ,f+7;"ideas!ideas!ideas!ideas!" 514,f+7;"ideas!ideas!ideas!ideas!"  f=f+1 f=155105 y  150 : Game begins  6 ?:5,2;"ideas:";5,16;"your answers:" a$(5,15) P0,10 ;"GAME ";g:a=15:2,9 ;"IDEA No.";a 616,0;" " 618,0;" " 620,0;" "  c=c+1 F5,2;"ideas:";5,16;0;"your answers:"  k=1a '16,122z:215,0 f=115 ^k+7,1+f;c$(g,k,f);k+7,11 ;0;a+7,15;1;"*" .k=ak+7,1+f;1;c$(g,k,f) c$(g,k,f)=" "5124 f k+7,16;a$(k):k O5,16;1;"your answers:";5,2;0;"ideas:" a9800H&:20,0;"type in your answer x=exit":y$:y$>305109 Wa$(a)=y$:a+7,15;0;" ";5,16;0;"your answers:" 0a$(a,1)=""a$(a,1)=" "5125  8k5k+6,2;0;c$(g,k-1)  0a$(a,1)="x"line=5000:9200#  a+7,16;a$(a)  a$(a)=b$(g)5145  a$(a)b$(g)5140 _502:5,16;0;"your answers:";16,9 ;"Try again!"a5 a59900& a 16,0;" ":16,9 ;1;"Game over":502:16,9 ;0;"Game over";18,2;"The password was - ";b$(g) B20,0;" ";2;7;"SCORE = ";S 9900&:5066 20,0;" ";16,9 ;1;"Sorry!";18,4;0;"That's not the password." +0.25~,-15:0.5,-25 CS=S-1:20,9 ;7;2;"SCORE = ";S '16,9 ;0;"Sorry!": R5,16;0;"your answers:";16,9 ;1;"CORRECT!"  S=S+5 $b=14:0.25~,b:b :0.1}L,8:0.25~,5:0.5,4 I18,29;0;" ";16,9 ;0;"CORRECT!" f=115 (a+7,15+f;1;a$(a,f)  a$(a,f)=" "5154" !f "j20,0;" ";20,9 ;7;2;"SCORE = ";S # 3 $9900&:5066 c$(502,5,15) b$(502,15) X********************** Y ]word quiz segment b********************** g0:6:6 lscore=0:count=0 define variables %q$(10 ,128):definitions %a$(10 ,20):answer words  r$(1,20):response  intro menu 0:1,4;"WELCOME TO WORD QUIZ" ˁ3,0;"This is a simple word quiz. "''"You will see an explanation of"'"a mystery word."''"You must write the word." s10 ,0;"Sometimes more than one answer"'"could be correct - but the"'"computer only knows one answer." 514,0;"There are 10 words in the quiz." @16,0;"Make sure you spell the"'"words correctly!"  9900&  data lines nq$(1)=" Packing and shipping charges are always added to the ...... that is sent to the customer." q$(2)=" You can send money from your bank account to someone else's account by sending a ...... through the bank." lq$(3)=" To make addresses easy to read, the name of the town or city should be written in ......" Hq$(4)=" Money from other countries is known as foreign ......" gq$(5)=" If you lose traveller's cheques the company should replace them as ...... as possible." zq$(6)=" When you use a credit card, you get a small piece of paper, or ...... with the details of the purchase." oq$(7)=" When you pay someone by cheque, the person or company receiving the money is called the ......" nq$(8)=" These goods are of ...... quality - please replace them with better quality products." q$(9 )=" If you send letters by ...... post, you can prove when they were sent, and you get some compensation if they are lost." Fq$(10 )=" The person who writes a cheque is called the ......" L answers V 7550~ `d=110 jd$:a$(d)=d$ td ~i"bill","remittance","capitals","currency","promptly","voucher","payee","inferior","registered","drawer" @operation loop Jf=110 T":4,0;"WORD ";f c57,0;"********************************" d612 ,0;"********************************" f*8,0;2;7;q$(f) r 9800H& w'o$=" " |17,0;o$;18,0;o$;19,0;o$;20,0;"x=exit Now write the word.... ":r$(1):20,0;" " }%r$(1,1)=" "8060| ~fuzz=0 Ur$(1,1)<97ar$(1,1)=(r$(1,1)+32 )  9800H& Nr$(1,1)="x"r$(1,2)=" "line=7000X:9200# 3g=120:a$(f,g)=" "length=g-1 a$(f,g)=" "8100 g r$(1)=a$(f)8200 r$(1)a$(f)8300l *count=count+1:score=score+1 <0.2~L,15:0.2~L,15:0.2~L,15 14,4;"Well done! That's right! ";15,4;"The word is - ";17,13 ;7;2;a$(f,1length)  6 line=7000X:9750& & 8400 l\1,-15:14,4;"Sorry! That's not the word"'" I was looking for." qcount=count+1 v<j=1length:r$(1,j)=a$(f,j)fuzz=fuzz+1 xj zfuzz=08316| {r$(1,1)=a$(f,1)fuzz*100d/length60<17,4;"But it's nearly right!";18,4;"You got ";fuzz;" letters right -";19,4;"check your spelling" |^0,0;7;2;"SCORE = ";score;" out of ";count;" attempts":8600! f !:10 ,0;"That is the end of Wordquiz.";14,0;"Your final score is ";2;7;score:9900& !4 9200# ! ===help=== !;9800H&:"a=answer h=help ENTER=repeat";y$ !U14,0;" " !U17,0;" " !419,0;" " !y$=""8060| !xy$="a"14,4;"The word is- ";7;2;a$(f,1length);0;6;" ":9900& !ey$="h"14,4;"The first letter is ";1;a$(f,1);0;"....":8060| !!y$>1y$""8610! ! #(*********************** #)hueber utilities #************************ #+line=0 #,2:2:7 #:unit welcome menu #********************** #;4,6;1;"WELCOME TO UNIT 6";0 #*8,6;"In this unit you can:" #+12 ,6;"1...test your grammar" #(13 ,6;"2...do a word quiz" #/14,6;"3...do a reading exercise" #'15,6;"4...play PASSWORD" # 9800H& #59850z&:y$"1"y$"2"y$"3"y$"4"9150# #y$="1"20 #y$="2"7000X #y$="3"3000 #y$="4"5000 #*********************** # endpanel #*********************** #2:2:7 # #64,6;1;"THAT'S THE END!";0 #!8,6;"Now you can:" $012 ,6;"1...do this activity again" $ /13 ,6;"2...choose a new activity" $*14,6;"3...start a new unit" $*15,6;"4...stop the program" $ 9800H& $ 9850z& $")y$"1"y$"2"y$"3"y$"4"9245$ $,put if jumps here $1y$="1"line $2y$="2"9100# $3y$="3"9280@$ $6uy$="4":8,8;"Goodbye!":19,0;"You can start again by pressing"'"R and then ENTER" $;y$="4"j$:j$="r" $<y$="4"9275;$ $@new loading procedure $By$"3"9100# $D,:9800H&:"Are you sure? y/n ";y$ $Ey$"y"9200# $F^:8,0;"Which unit do you want to work"'"with?"'''"Give the number of the unit:" $I 9800H& $J"unit number? ";y$ $Ky$=""9290J$ $Ly$>10 9290J$ $O'y$>579ůy$<4919290J$ $TD:8,0;"You have chosen Unit ";y$;''"Is this correct?" $Yu$="unit"+y$ $] 9800H& $^ "y/n?";y$ $cy$"y"9286F$ $h]:8,0;"Now start to play the tape";10 ,0;"and press ENTER" $my$:y$""9325m$ $r\17,0;1;"Loading ";u$;19,0;"DO NOT STOP THE TAPE";0 $wu$:9000(# %R0,0;7;2;"SCORE = ";score;" out of ";count;" attempts" %6:0 %+"ENTER=try again n=new questn";y$ %y$""y$"n"9700% % &R0,0;7;2;"SCORE = ";score;" out of ";count;" attempts" &6:0 &+"x=exit ENTER=next question ";y$ & y$"x"y$""9750& &%y$="x"9200# &* &M$0,0:255,0 &R &\ &z%"Choose a number + ENTER ";y$ & & 9800H& &""Press ENTER to continue";y$ &y$""9900& & , "cloze test  Mike Carrier 11/82 "cloze test  Mike Carrier 11/82 coroun Packing and shipping charges are always added to the ...... that is sent to the customer. You can send money from your bank account to someone else's account by sending a ...... through the bank. To make addresses easy to read, the name of the town or city should be written in ...... Money from other countries is known as foreign ...... If you lose traveller's cheques the company should replace them as ...... as possible. When you use a credit card, you get a small piece of paper, or ...... with the details of the purchase. When you pay someone by cheque, the person or company receiving the money is called the ...... These goods are of ...... quality - please replace them with better quality products. If you send letters by ...... post, you can prove when they were sent, and you get some compensation if they are lost. The person who writes a cheque is called the ......  bill remittance capitals currency promptly voucher payee inferior registered drawer x `Ddrawer JO uzinXYy;unit7 W惨Y#copyright Michael Carrier Dec 82 *********************** hueber langsoft  Mike Carrier 236099\,70F 2:2  rf=18:0.2~L,10 :12 ,8;2;7;1;"STOP THE TAPE!";0:f 9000(# first entry to multitest  #q$(15,128):questions -score=0:count=0:fault=0 /a$(15,3,28):answer choices #r$(15):responses ()c$(15):correct answer-a,b, or c) d0:6:6 e5:2,4;"***WELCOME TO MULTITEST***" iA6,4;"UNIT 7 -- VERBS, ADVERBS "'" & ADJECTIVES" n9 ,4;"There are 15 questions";10 ,4;"about passives, adverbs";11 ,4;"& adjectives in this unit." xT13 ,4;"Choose a,b, or c ";14,4;"to answer the question." 9900& Z q$(1)=" The report ...... by the secretary I spoke to this morning." Z q$(2)=" The letter ...... dictated by the managing director yesterday morning." @ q$(3)=" Last week's invoices ...... out yesterday." ; q$(4)=" The sales reports ...... by tomorrow." @ q$(5)=" I don't think the offices ..... yet this week." = q$(6)=" I've told you before that this bill ......" I q$(7)=" Please confirm that the repairs ...... within 24 hours." F q$(8)=" This work is very important - it ...... by Friday." O q$(9 )=" We are not ...... with the way you have run this department." 9 q$(10 )=" It could have been run much ......" > q$(11 )=" The sales figures so far have been ......" C q$(12 )=" The number of customer visits has grown ......" K q$(13 )=" The growth in sales has been ...... than we expected." @ q$(14)=" This year compares badly with ...... years." = q$(15)=" Our strategy is ...... not the right one." 5:8,0;"Please wait a few seconds....." f=115 " 300,+f 'a=13:d$ (a$(f,a)=d$:a *d$:c$(f)=d$ ,f --"has been typed","has typed","is typed","a" ."has been","is","was","c" /1"have been sent","were sending","were sent","c" 07"are finished","will finished","will be finished","c" 1<"are cleaned","have been cleaned","have been cleaning","b" 2/"has been paid","has paid","is been paid","a" 3,"can be done","can been done","can do","a" 47"must finish","must be finish","must be finished","c" 5!"happier","happily","happy","c" 67"efficiently","more efficient","more efficiently","c" 7C"disappointingly","much disappointing","really disappointing","c" 8("really slow","slow","very slowly","c" 9F"considerable small","considerably small","considerably smaller","c" :-"more previous","previous","previously","b" ;-"apparent","apparently","more apparent","b" score=0:operation loop f=115 L:blank frame Q$1,0;"Question ";f S3,0;q$(f) V&7,2;"a ";a$(f,1) [&8,2;"b ";a$(f,2) `&9 ,2;"c ";a$(f,3) e 9800H& j"choose a letter";r$(f) lr$(f)=" "1130j o=posn=r$(f)-90Z:posn<7posn>9 1130j yr$(f)=c$(f)2500 ~r$(f)c$(f)2000  9900& f 914,0;" That's the end of MULTITEST." 515,0;" " (16,0;" Your score was " 6 17,0;" " 717,3;score;" out of ";count;" attempts." 518,0;" " 9900&:9200# ?posn,2;1;r$(f);0;" ";a$(f,posn-6) /14,2;"Sorry - that's not right!" count=count+1 !r$(f)="x":for comparison later  9700% y$"n"1100L  1205 right answer ?posn,2;1;r$(f);0;" ";a$(f,posn-6) count=count+1 y14,2;"Well done! That's correct!";16,2;"The answer is: ";18,5;a$(f,posn-6) 0score=score+1:line=25:9750& 1205:9000(# *********************** cloze test ***********************  236099\,70F word,gap,answer,line Fw$(101e,16):a$(20,16):l$(20,32 ) #d$(25):array of items done z$(1,32 ):dummy 'a(20):length of correct answer m$="":answer dummy match game=0:o=0 w(102f):length of word ===welcome menu & loop= 0U6:1:0::1,0;"**WELCOME TO THE READING TEXT**" :4,0;"In this exercise you will see"'"a text with gaps in it."'"You must complete the text,"'"by writing the correct word." DP12 ,0;"You can choose the text and"'"the number of gaps yourself." NC16,0;"You score 2 points for the "'"correct answer." 9900& X:4,0;"Which text would you like?"''"There are 2 texts in this unit." "text number?";f$ 'f$>502ůf$<4913220 f$>13220 game=f$-480 -8,0;"You've chosen text ";game 211 ,0;"How often do you want a gap?" 313 ,0;"After 5,6,7,8 or 9 words?" #"Choose a number from 5 to 9 ";o$ o$>13270 'o$>579ůo$<5353270 o=o$-480 n15,0;"You've chosen to have a gap";17,0;"every ";1;o;0;" words" 220,0;"Please wait a few seconds..." HREAD DATA M(game=14820:end=99c R(game=24840:end=90Z \d=1end:w$(d) f4g=115:w$(d,g)=" "w(d)=g-1:d h d>end 3450z kg pd z4500:gapping print text <:1:0,0;1;"TEXT ";game;0  4600 tENTER ANSWERS score=0 j20,0;"--------------------------------";21,0;"Now try to find the words......"  "Which word? x=exit ";e$ e$>10 3500 e$>23800 %e$="x"line=3000 :9200# 'e$>58:ůe$<4913800 e$=13850  :e$(2)>58:ůe$(2)<48 03800  b=e$ Mb>end/o21,0;"There is no gap number ";b;"! ":3810 PVd$(b)="y"21,0;"You have already done that one!":75K:3800 ZO21,0;"ENTER word ";b;" z=answer h=help" db$:b$=""3940d ib$<58:3930Z nOb$>2021,0;"Your answer is too long! ":3500 }%b$="x"line=3000 :9200# b$="z"4300 db$="h"21,0;"The first letter is ";a$(b,1);"....... ":502:3930Z c21,0;" ";21,0;"Your word= ";b$:502 #b$=a$(b,1a(b))44000 Ma$(b,a(b))=","a$(b,a(b))="."a$(b,a(b))="?"m$=a$(b,1a(b)-1) b$=m$44000 v$(1,32 ):v$(1)=a$(b,1a(b)):v=v$(1,1):v<91[v>64@v=v+32 :v$(1,1)=v:b$=v$(1,1a(b))44000:3800 )b$a$(b,1a(b))b$m$4100  3800  4900$ ===wrong answer Vb$a$(b,1a(b))21,0;1;"Sorry-that's not right!";0 -0,18;"score = ";score;" " '-b$a$(b,1a(b))502:3930Z , h+:2,4;"LIST OF ANSWERS:" r: wGgame=0"You have to try a text first!":9900&:3100 |z=110 -4+z,0;z;" ";a$(z,1a(z)) z z=11 20 .z-6,16;z;" ";a$(z,1a(z)) z  9900&  3100 ===cheating=== 521,0;" " ~21,0;" ";21,0;"The answer is ";1;a$(b,1a(b));0 4450b:reinstate  3800 ====================== 0===correct answer=== 1k21,0;" ";21,0;"Well done! ";1;b$;0 :score=score+2 ?-0,18;"score = ";score;" " D4450b: N======================= b===reinstate=== g d$(b)="y" l w(b*o)=a(b) qw$(b*o)=a$(b) v 4600 !f=1̺(end/o):d$(f)"y" f:4900$ ===gapping===  num=1 f=0100do f=0f  f>end a$(num)=w$(f) 6w$(f)=32 +143+num+143+32  a(num)=w(f) w(f)=6 num=num+1 f  ====================== ===build lines===  x=1 f=120  len=0 len=04700\ space=32 -len *_space>w(x)l$(f)=l$(f,1len)+" "+w$(x,1w(x)):len=len+1+w(x):x=x+1 /Rx>end f,0;z$(1);f,0;l$(f);f+1,0;z$(1): 4space>w(x)4620  H5spacew(x)f,0;z$(1);f,0;l$(f) Mf R W======================= \1l$(f)=w$(x,1w(x)):len=w(x):x=x+1 p z====================== ===DATA=== ԏ"There","are","several","ways","to","react","to","poor","service","or","bad","products.","The","first","method","is","to","do","nothing.","This","is","popular","in","Britain,","where","people","don't","like","to","complain.","The","second","method","is","to","telephone","the","company","and","shout","at","somebody.","This","makes","you","feel","better,","but","it","is","not","very","effective." K"The","third","method","is","to","write","an","angry","letter.","This","will","have","some","effect,","if","only","an","angry","letter","in","return.","But","the","best","way","to","get","action","is","to","write","a","polite,","firm","letter","explaining","the","facts","and","suggesting","a","way","to","solve","the","problem." c"Dear","Sirs,","..........","..........","I","am","writing","to","complain","about","the","poor","service","I","received","when","I","stayed","at","your","hotel","last","week.","When","I","arrived,","the","receptionist","couldn't","find","my","reservation.","She","was","very","unhelpful,","and","suggested","I","had","forgotten","to","book","a","room." Z"After","unpacking,","I","wanted","to","have","dinner.","Although","it","was","only","ten","o'clock,","the","restaurant","had","closed,","and","I","had","to","eat","sandwiches","in","the","bar.","This","is","very","disappointing","in","a","hotel","of","your","standard.","I","feel","your","high","prices","suggest","better","quality","service." "" "" $successful finish .G21,0;1;" You've finished the exercise!";0 8)9900&:line=3000 :9200#  ********************** :236099\,70F mazes segment ********************** copyright Mike Carrier  april 1984 :6:6:0 q$(1,224)  a$(524,96`):options 2x=1:op1=1:op2=1:op3=1 J:2,6;1;7;"A BUSINESS MAZE";6;0 6,0;"This maze gives you a business"'"problem to solve."''"Read the situation at the top"'"of each page, and then choose"'"one of the three suggestions "'"given as possible answers."''"Decide what YOU would do, and"'"choose the number of that "'"possible answer." S:"If you want to EXIT at any time"'"type x and press ENTER.":9900& +++++statements+++++ " You are Production Manager in a small factory. Productivity has fallen below the minimum level which your company will accept. You must decide how to increase productivity and efficiency." " That might be the cause of the problem. If the output per worker is too low, and the fault lies with the workers and not the system, what can you do to increase it?"  " You may have a good point there though it is your job to make sure the machines are kept working properly. How can you increase productivity with these old machines?" " There may be some truth in your criticism - these are common problems in British industry. What practical action can you suggest?" " That's positive action but there are some disadvantages. The workers complain to their union and the union organiser asks you to give the men their jobs back. What should you do?" (" This is accepted. Within 1 month there is a 13% increase in production per man. After 3 months, though, when workers have enough money for their holidays, productivity returns to its previous level." 2v" A meeting is planned for this afternoon at 2.30. What do you want to suggest to them? What's your plan?" <" That's very good! Management ask you for a detailed plan (which takes you all weekend) and then decides there can be no more investment until you've proved you can increase productivity without it." F" Your service engineers tell you that this is not economical. These machines are quite old, and will wear out in 6 months or so. It would be better to replace them." P" The engineers are not happy about this, because of the age of the machines. It increases output, but there are now more breakdowns than before. This causes more frustration and lost production." Z" Senior management don't like your attitude. Why can't you manage your department properly like everyone else? They suggest you resign." dK" That's a very nice phrase, but what do you mean in concrete terms?" x" Although you do what your staff want, they don't respect you for it. Management think you are very weak. The Divisional Director calls and says you're fired." " You offer a compromise, by negotiating a productivity agreement that will guarantee everybody's job IF production goes up by 15%." J" You can hold this position for a certain time - but for how long?" " This is an acceptable offer, but it has the same result as before. After a certain period of increased output, productivity falls again." " This makes the better workers angry, because you are stopping them from getting a bonus. They are planning to go on strike, and you will lose the respect of your best staff." " There is some interest in starting this new system. The workers ask you for more information, but are basically in favour of the idea. " " The union representatives refuse to discuss this suggestion. They promise there will be a strike if any there are any redundancies." Y" The management absolutely refuses to spend any money in this financial year." Ȃ" Now you have to prove that you can improve productivity without extra investment. How do you think you can do this?" Q" This gives you a few months extra time, but doesn't solve the problem." y" A good firm answer. But at the end of 2 months the machines break down again. What do you suggest?" n" The engineers are getting angry. You can't expect to use those machines much longer, they say." " A very brave action. The senior directors, and some of the members of the Board come to see you. What can you say? There is really only one possibility." " But life nevers stays peaceful for very long. You find that giving bonuses to everybody, when output is high, is not the best way to increase productivity." " It doesn't do any good at all. The finance director doesn't think your problem is as bad as you describe, and he doesn't believe that you need the money." " You've won! Management gives in and agrees to invest in new machinery. With the new machines your department increases its productivity by over 23% in only 2 months. Congratulations!" "" You've lost! They've decided to sack you and find someone else for the job, someone who is not so difficult. Bad luck!" ," That seems a very careful decision, but it's wasting time. You must be more decisive and dynamic if you want to be successful in business." 6" Well done! You've found an acceptable solution to the problem. That's the end of the maze." @)" That's the end of the maze for you!" |++++choices+++++ a$(1)="" >a$(2)="It's the workers fault- they are all lazy." Da$(3)="It's the fault of the old machines in the factory." `a$(4)="It's the management's fault.They haven't invested enough in new machinery." Ba$(5)="Sack some of the older, slower and lazier men." 4a$(6)="Offer bonuses for higher output. " <a$(7)="Talk to the union representatives." ba$(8)="You think it's impossible. You've got to ask senior management for more money." =a$(9 )="Have the machines checked over immediately." Ya$(10 )="Modify the machines so they will run faster and help to increase output." Ja$(11 )="Suggest there should be changes in senior management." Za$(12 )="Suggest there should be more flexibility in the use of the workforce." a$(13 )="" =a$(14)="You agree to give the men their jobs back." Va$(15)="You make a compromise and offer an agreement on productivity." 2a$(16)="You refuse to talk about this." &Wa$(17)="Offer higher bonuses if the output is kept at a higher average level." 0aa$(18)="Stop all bonuses being paid unless output stays at a high level all the time." :ba$(19)="Suggest a new system of piecework, so each worker gets an individual bonus." D]a$(20)="Explain there will be more automation in the factory with a loss of jobs." N"a$(21)="Give up your job!" X^a$(22)="Make a compromise, and ask for only 50% of the investment this year." bfa$(23)="Accept this, but ask for a time limit of 6 months,when they must discuss investment." lEa$(24)="Service them, but insist that it's the last time." vFa$(25)="Request money to replace them as soon as possible." 6a$(26)="Service the machines and continue." fa$(27)="Close the department, send everybody home, then call the Chairman and explain why." -a$(28)="Call in the engineers again." ,a$(29)="Refuse to give up your job." Ba$(30)="Everyone accepts this - production increases." a$(31)="" a$(32 )="1 month" a$(33!)="2 months" -a$(34")="Meet the union people again." ;a$(35#)="Return to the old agreement about bonuses." )a$(36$)="Try that decision again!" 4a$(37%)="Meet the union to discuss things." Ca$(38&)="Report back to your boss about your suggestion." ca$(39')="Arrange a meeting with the union for next month, so you can discuss this idea."  [a$(40()="Negotiate the rates for piecework, and start the system in 2 weeks." Ea$(41))="Give in, and agree there will be no loss of jobs."  ;a$(42*)="Sack some of the workforce to cut costs." *@a$(43+)="Offer to pay the workers a productivity bonus." 4Ia$(44,)="That's the end of the maze. Press ENTER to continue." >a$(45-)="" Ha$(46.)="" RWa$(47/)="Send an urgent telex to Head Office asking for some extra finance." \a$(480)="" fea$(491)="Write an angry report describing the situation, and send it to the Chairman." pa$(502)="" z'a$(513)="Support me or sack me!" a$(524)="" doperation loop-first page i:a=30+(*2) n>x=1:op1=2:op2=4:op3=3:6700, }Fr$="2"x=2:op1=5:op2=6:op3=7:6700, Gr$="3"x=3:op1=8:op2=10 :op3=9 :6700, Hr$="4"x=4:op1=8:op2=12 :op3=11 :6700, Ir$="5"x=5:op1=14:op2=15:op3=16:6700, Hr$="6"x=6:op1=17:op2=18:op3=0:6700, Hr$="7"x=7:op1=20:op2=19:op3=6:6700, Ir$="8"x=8:op1=23:op2=22:op3=21:6700, Ir$="9"x=9 :op1=24:op2=25:op3=26:6700, Kr$="10"x=10 :op1=25:op2=27:op3=28:6700, Jr$="11"x=11 :op1=21:op2=29:op3=0:6700, Jr$="12"x=12 :op1=19:op2=20:op3=0:6700, r$="13"6850 Ir$="14"x=14:op1=44,:op2=0:op3=0:6700, Ir$="15"x=15:op1=30:op2=0:op3=0:6700, Jr$="16"x=16:op1=32 :op2=33!:op3=0:6700, Jr$="17"x=17:op1=17:op2=18:op3=0:6700, Kr$="18"x=18:op1=35#:op2=19:op3=37%:6700, Kr$="19"x=19:op1=40(:op2=39':op3=38&:6700, Jr$="20"x=20:op1=19:op2=41):op3=0:6700, Ir$="21"x=34":op1=44,:op2=0:op3=0:6700, Kr$="22"x=21:op1=12 :op2=10 :op3=42*:6700, Kr$="23"x=22:op1=10 :op2=12 :op3=42*:6700, Jr$="24"x=24:op1=27:op2=47/:op3=0:6700, Jr$="25"x=21:op1=491:op2=42*:op3=0:6700, Kr$="26"x=23:op1=10 :op2=24:op3=25:6700, Ir$="27"x=27:op1=513:op2=0:op3=0:6700, Kr$="28"x=26:op1=24:op2=491:op3=25:6700, Jr$="29"x=22:op1=43+:op2=42*:op3=0:6700,  Kr$="30"x=28:op1=19:op2=20:op3=42*:6700,  Gr$="31"x=0:op1=0:op2=0:op3=0:6700,  Kr$="32"x=16:op1=32 :op2=33!:op3=34":6700,  Kr$="33"x=16:op1=34":op2=32 :op3=33!:6700,  Ir$="34"x=7:op1=19:op2=20:op3=6:6700, Ir$="35"x=14:op1=44,:op2=0:op3=0:6700, Kr$="36"x=19:op1=40(:op2=39':op3=38&:6700, Ir$="37"x=7:op1=20:op2=19:op3=0:6700, Ir$="38"x=32 :op1=36$:op2=0:op3=0:6700, Ir$="39"x=32 :op1=36$:op2=0:op3=0:6700, Ir$="40"x=33!:op1=44,:op2=0:op3=0:6700, Ir$="41"x=14:op1=44,:op2=0:op3=0:6700, Jr$="42"x=5:op1=14:op2=15:op3=16:6700, Ir$="43"x=6:op1=17:op2=18:op3=0:6700, 2r$="44"9900&:line=5000:9200# Gr$="45"x=0:op1=0:op2=0:op3=0:6700, Gr$="46"x=0:op1=0:op2=0:op3=0:6700, Kr$="47"x=21:op1=12 :op2=10 :op3=42*:6700, Gr$="48"x=0:op1=0:op2=0:op3=0:6700, Jr$="49"x=29:op1=27:op2=21:op3=0:6700, Gr$="50"x=0:op1=0:op2=0:op3=0:6700, Br$="51"x=a:op1=44,:op2=0:op3=0:6700, Ir$="52"x=34":op1=44,:op2=0:op3=0:6700, ,7:7,0;"********************************" c7:7,0;"********************************" p+r=5100+(x*10 ):r:q$(1) r00,0;1;7;q$(1) wf8,2;"______________________________";12 ,2;"______________________________" |op2013 ,2;"______________________________";17,2;"______________________________":op3018,2;"______________________________";21,2;"______________________________" M16,104h:0,-32 :255,72H:0,32 Yop2016,64@:0,-32 :255,32 :0,32 Xop3016,24:0,-24:255,0:0,24 9 ,0;op1;9 ,3;a$(op1,128);10 ,3;a$(op1,29568);11 ,3;a$(op1,57984T) op2014,0;op2;14,3;a$(op2,128);15,3;a$(op2,29568);16,3;a$(op2,57984T) {op3019,0;op3;19,3;a$(op3,128);20,3;a$(op3,29568) 8op1=44 ,9900&:line=5000:9200# $"Choose a number + ENTER ";r$ r$>26700, %r$="x"line=5000:9200# r$=""6850 'r$>579ůr$<4916850 %r$op1ưr$op2ưr$op36850 $6520x:analyse options chosen  end of maze )9900&:line=5000:9200# X********************** Y ]word quiz segment b********************** g0:6:6 lscore=0:count=0 define variables %q$(10 ,128):definitions %a$(10 ,20):answer words  r$(1,20):response  intro menu 0:1,4;"WELCOME TO WORD QUIZ" ˁ3,0;"This is a simple word quiz. "''"You will see an explanation of"'"a mystery word."''"You must write the word." s10 ,0;"Sometimes more than one answer"'"could be correct - but the"'"computer only knows one answer." 514,0;"There are 10 words in the quiz." 616,0;"Make sure the spelling is right!"  9900&  data lines _q$(1)=" The goods were dispatched in two ......, which arrived on the same day. " kq$(2)=" I didn't post the book and the letter together, I sent the book under separate ......" [q$(3)=" The average profit ...... for booksellers is 30% of the price of a book." Vq$(4)=" The invoice should always ..... any goods sent through the post." Xq$(5)=" A polite letter of complaint is often more ...... than an angry letter." yq$(6)=" An alternative to purchasing new equipment is to ...... it in return for a monthly payment." q$(7)=" If a customer refuses to pay for goods he has received, the seller can try to ...... the goods and then sell them again." mq$(8)=" It's the job of the sales department to ...... orders to the customer's satisfaction." nq$(9 )=" You shouldn't ...... time chatting over coffee - this work must be finished by 5pm." ]q$(10 )=" They took no notice of our letters - they ...... our complaints." L answers V 7550~ `d=110 jd$:a$(d)=d$ td ~g"consignments","cover","margin","accompany","effective","lease","reclaim","execute","waste","ignored" @operation loop Jf=110 T":4,0;"WORD ";f c57,0;"********************************" d612 ,0;"********************************" f*8,0;2;7;q$(f) r 9800H& w'o$=" " |17,0;o$;18,0;o$;19,0;o$;20,0;"x=exit Now write the word.... ":r$(1):20,0;" " }%r$(1,1)=" "8060| ~fuzz=0 Ur$(1,1)<97ar$(1,1)=(r$(1,1)+32 )  9800H& Nr$(1,1)="x"r$(1,2)=" "line=7000X:9200# 3g=120:a$(f,g)=" "length=g-1 a$(f,g)=" "8100 g r$(1)=a$(f)8200 r$(1)a$(f)8300l *count=count+1:score=score+1 <0.2~L,15:0.2~L,15:0.2~L,15 14,4;"Well done! That's right! ";15,4;"The word is - ";17,13 ;7;2;a$(f,1length)  6 line=7000X:9750& & 8400 l\1,-15:14,4;"Sorry! That's not the word"'" I was looking for." qcount=count+1 v<j=1length:r$(1,j)=a$(f,j)fuzz=fuzz+1 xj zfuzz=08316| {r$(1,1)=a$(f,1)fuzz*100d/length80P17,4;"But it's nearly right!";18,4;"You got ";fuzz;" letters right -";19,4;"check your spelling" |^0,0;7;2;"SCORE = ";score;" out of ";count;" attempts":8600! f !:10 ,0;"That is the end of Wordquiz.";14,0;"Your final score is ";2;7;score:9900& !4 9200# ! ===help=== !/"a=answer h=help ENTER=repeat";y$ !i14,0;" ";15,0;" " !i16,0;" ";17,0;" " !i18,0;" ";19,0;" " !y$=""8060| !xy$="a"14,4;"The word is- ";7;2;a$(f,1length);0;6;" ":9900& !ey$="h"14,4;"The first letter is ";1;a$(f,1);0;"....":8060| ! #(*********************** #)hueber utilities #************************ #+line=0 #,2:2:7 #:unit welcome menu #********************** #;4,6;1;"WELCOME TO UNIT 7";0 #*8,6;"In this unit you can:" #+12 ,6;"1...test your grammar" #(13 ,6;"2...do a word quiz" #/14,6;"3...do a reading exercise" #'15,6;"4...follow a maze" # 9800H& #59850z&:y$"1"y$"2"y$"3"y$"4"9150# #y$="1"20 #y$="2"7000X #y$="3"3000 #y$="4"5000 #*********************** # endpanel #*********************** #2:2:7 # #64,6;1;"THAT'S THE END!";0 #!8,6;"Now you can:" $012 ,6;"1...do this activity again" $ /13 ,6;"2...choose a new activity" $*14,6;"3...start a new unit" $*15,6;"4...stop the program" $ 9800H& $ 9850z& $")y$"1"y$"2"y$"3"y$"4"9245$ $,put if jumps here $1y$="1"line $2y$="2"9100# $3y$="3"9280@$ $6uy$="4":8,8;"Goodbye!":19,0;"You can start again by pressing"'"R and then ENTER" $;y$="4"j$:j$="r" $<y$="4"9275;$ $@new loading procedure $By$"3"9100# $D,:9800H&:"Are you sure? y/n ";y$ $Ey$="n"9200# $F^:8,0;"Which unit do you want to work"'"with?"'''"Give the number of the unit:" $I 9800H& $J"unit number? ";y$ $K y$=""9290J$ $Ly$>10 9290J$ $O'y$>579ůy$<4919290J$ $TD:8,0;"You have chosen Unit ";y$;''"Is this correct?" $Yu$="unit"+y$ $] 9800H& $^ "y/n?";y$ $cy$="n"9286F$ $h]:8,0;"Now start to play the tape";10 ,0;"and press ENTER" $my$:y$""9335w$ $r\17,0;1;"Loading ";u$;19,0;"DO NOT STOP THE TAPE";0 $wu$:9000(# %R0,0;7;2;"SCORE = ";score;" out of ";count;" attempts" %6:0 %+"ENTER=try again n=new questn";y$ %y$""y$"n"9700% % &R0,0;7;2;"SCORE = ";score;" out of ";count;" attempts" &6:0 &+"x=exit ENTER=next question ";y$ & y$"x"y$""9750& &%y$="x"9200# &* &M$0,0:255,0 &R &\ &z%"Choose a number + ENTER ";y$ & & 9800H& &""Press ENTER to continue";y$ &y$""9900& & , "cloze test  Mike Carrier 11/82 "cloze test  Mike Carrier 11/82 coroun The goods were dispatched in two ......, which arrived on the same day. I didn't post the book and the letter together, I sent the book under separate ...... The average profit ...... for booksellers is 30% of the price of a book. The invoice should always ..... any goods sent through the post. A polite letter of complaint is often more ...... than an angry letter. An alternative to purchasing new equipment is to ...... it in return for a monthly payment. If a customer refuses to pay for goods he has received, the seller can try to ...... the goods and then sell them again. It's the job of the sales department to ...... orders to the customer's satisfaction. You shouldn't ...... time chatting over coffee - this work must be finished by 5pm. They took no notice of our letters - they ...... our complaints.  consignments cover margin accompany effective lease reclaim execute waste ignored x `Dignored JO uzinXYyunit8 JjcLj#copyright Michael Carrier Dec 82 *********************** hueber langsoft  Mike Carrier 236099\,70F 2:2  rf=18:0.2~L,10 :12 ,8;2;7;1;"STOP THE TAPE!";0:f 9000(# first entry to multitest  #q$(15,128):questions -score=0:count=0:fault=0 /a$(15,3,28):answer choices #r$(15):responses ()c$(15):correct answer-a,b, or c) d0:6:6 e5:2,4;"***WELCOME TO MULTITEST***" i5,4;"UNIT 8" nL8,4;"There are 15 questions";9 ,4;"in this unit." xT13 ,4;"Choose a,b, or c ";14,4;"to answer the question." 9900& Mq$(1)=" Smith has finally been made ...... Divisional Director." Fq$(2)=" He's been trying to get this post ...... 10 years." ?q$(3)=" I remember he was turned ...... the last time." Wq$(4)=" When it happened to me, I felt like the company had thrown me ......" ?q$(5)=" Like Smith, I felt like giving ...... my job." `q$(6)=" But with his new success he seems to have got ...... all these problems." :q$(7)=" Now he's keen to get ...... the new job. " {q$(8)=" We haven't received any statements from BNK Ltd. They ...... to put us on the computer. " hq$(9 )=" We will have to pay the bills at some time, so we ...... get in touch with them now." [q$(10 )=" If we ...... contact BNK, they could claim we were avoiding payment. " gq$(11 )=" They didn't send us a statement last quarter - so we ...... the outstanding invoices." kq$(12 )=" Even after ...... these outstanding debts, our cashflow is looking quite healthy." ҁq$(13 )=" We would have had similar problems to BNK if we ...... introduced the computerised invoice system." nq$(14)=" In the future we must make sure that our system ...... us when statements have not arrived." gq$(15)=" BNK's failure to invoice us correctly this month ...... a useful lesson for us." 5:8,0;"Please wait a few seconds....." f=115 " 300,+f 'a=13:d$ (a$(f,a)=d$:a *d$:c$(f)=d$ ,f -"-","into","to","a" ."during","for","since","b" /"away","down","over","b" 0"off","out","up","b" 1"away","in","up","c" 2"around","over","through","b" 3!"up to","on with","through","b" 4>"must be forgotten","must have forgotten","mustn't have","b" 50"had better","ought better","would better","a" 6""didn't","hadn't","wouldn't","a" 7>"mustn't have paid","needn't have paid","needn't to pay","b" 8'"have paid","paying","the paying","b" 9'"didn't","hadn't","wouldn't have","b" :&"tells","will tell","would tell","a" ;-"has been","is being","would have been","a" score=0:operation loop f=115 L:blank frame Q$1,0;"Question ";f S3,0;q$(f) V&7,2;"a ";a$(f,1) [&8,2;"b ";a$(f,2) `&9 ,2;"c ";a$(f,3) e 9800H& j"choose a letter";r$(f) lr$(f)=" "1130j o=posn=r$(f)-90Z:posn<7posn>9 1130j yr$(f)=c$(f)2500 ~r$(f)c$(f)2000  9900& f 914,0;" That's the end of MULTITEST." 515,0;" " (16,0;" Your score was " 517,0;" " l18,0;" ";18,3;score;" out of ";count;" attempts." 9900&:9200# ?posn,2;1;r$(f);0;" ";a$(f,posn-6) /14,4;"Sorry - that's not right!" count=count+1 !r$(f)="x":for comparison later  9700% y$"n"1100L  1205 right answer ?posn,2;1;r$(f);0;" ";a$(f,posn-6) count=count+1 y14,2;"Well done! That's correct!";16,2;"The answer is: ";18,5;a$(f,posn-6) 0score=score+1:line=25:9750& 1205:9000(# *********************** cloze test ***********************  236099\,70F word,gap,answer,line Fw$(101e,16):a$(20,16):l$(20,32 ) #d$(25):array of items done z$(1,32 ):dummy 'a(20):length of correct answer m$="":answer dummy match game=0:o=0 w(100d):length of word ===welcome menu & loop= 0U6:1:0::1,0;"**WELCOME TO THE READING TEXT**" :4,0;"In this exercise you will see"'"a text with gaps in it."'"You must complete the text,"'"by writing the correct word." DP12 ,0;"You can choose the text and"'"the number of gaps yourself." NC16,0;"You score 2 points for the "'"correct answer." 9900& X:4,0;"Which text would you like?"''"There are 2 texts in this unit." "text number?";f$ 'f$>502ůf$<4913220 f$>13220 game=f$-480 -8,0;"You've chosen text ";game 211 ,0;"How often do you want a gap?" 313 ,0;"After 5,6,7,8 or 9 words?" #"Choose a number from 5 to 9 ";o$ o$>13270 'o$>579ůo$<5353270 o=o$-480 n15,0;"You've chosen to have a gap";17,0;"every ";1;o;0;" words" 220,0;"Please wait a few seconds..." HREAD DATA M(game=14820:end=87W R(game=24840:end=99c \d=1end:w$(d) f4g=115:w$(d,g)=" "w(d)=g-1:d hd>end3450z kg pd z4500:gapping print text <:1:0,0;1;"TEXT ";game;0  4600 tENTER ANSWERS score=0 j20,0;"--------------------------------";21,0;"Now try to find the words......"  "Which word? x=exit ";e$ e$>10 3500 e$>23800 %e$="x"line=3000 :9200# 'e$>58:ůe$<4913800 e$=13850  :e$(2)>58:ůe$(2)<48 03800  b=e$ Mb>end/o21,0;"There is no gap number ";b;"! ":3810 PVd$(b)="y"21,0;"You have already done that one!":75K:3800 ZO21,0;"ENTER word ";b;" z=answer h=help" db$:b$=""3940d ib$<58:3930Z nOb$>2021,0;"Your answer is too long! ":3500 }%b$="x"line=3000 :9200# b$="z"4300 db$="h"21,0;"The first letter is ";a$(b,1);"....... ":502:3930Z c21,0;" ";21,0;"Your word= ";b$:502 #b$=a$(b,1a(b))44000 Ma$(b,a(b))=","a$(b,a(b))="?"a$(b,a(b))="."m$=a$(b,1a(b)-1) b$=m$44000 v$(1,32 ):v$(1)=a$(b,1a(b)):v=v$(1,1):v<91[v>64@v=v+32 :v$(1,1)=v:b$=v$(1,1a(b))44000:3800 )b$a$(b,1a(b))b$m$4100  3800  4900$ ===wrong answer Vb$a$(b,1a(b))21,0;1;"Sorry-that's not right!";0 -0,18;"score = ";score;" " '-b$a$(b,1a(b))502:3930Z , h+:2,4;"LIST OF ANSWERS:" r: wGgame=0"You have to try a text first!":9900&:3100 |z=110 -4+z,0;z;" ";a$(z,1a(z)) z z=11 20 .z-6,16;z;" ";a$(z,1a(z)) z  9900&  3100 ===cheating=== 521,0;" " ~21,0;" ";21,0;"The answer is ";1;a$(b,1a(b));0 4450b:reinstate  3800 ====================== 0===correct answer=== 1k21,0;" ";21,0;"Well done! ";1;b$;0 :score=score+2 ?-0,18;"score = ";score;" " D4450b: N======================= b===reinstate=== g d$(b)="y" l w(b*o)=a(b) qw$(b*o)=a$(b) v 4600 !f=1̺(end/o):d$(f)"y" f:4900$ ===gapping===  num=1 f=0100do f=0f  f>end a$(num)=w$(f) 6w$(f)=32 +143+num+143+32  a(num)=w(f) w(f)=6 num=num+1 f  ====================== ===build lines===  x=1 f=120  len=0 len=04700\ space=32 -len *_space>w(x)l$(f)=l$(f,1len)+" "+w$(x,1w(x)):len=len+1+w(x):x=x+1 /Rx>end f,0;z$(1);f,0;l$(f);f+1,0;z$(1): 4space>w(x)4620  H5spacew(x)f,0;z$(1);f,0;l$(f) Mf R W======================= \1l$(f)=w$(x,1w(x)):len=w(x):x=x+1 p z====================== ===DATA=== "Dear","Sir,","..........","..........","We","are","writing","as","we","are","extremely","concerned","at","the","level","of","your","outstanding","account","with","us.","We","have","sent","several","reminders","over","the","last","few","months,","but","have","continued","to","supply","you","with","new","orders.","We","have","now","reached","the","point","where","it","is","not","possible","for","us","to","send","you","any","more","goods","until","the","account","is","settled","in","full." ޛ"We","hope","you","will","understand","our","position,","and","hope","that","we","can","get","back","to","normal","business","as","soon","as","possible." w"A","most","unusual","way","to","pay","your","debts","is","to","write","about","them.","A","British","Member","of","Parliament,","Jeffrey","Archer,","invested","about","half","a","million","pounds","in","a","new","company.","He","borrowed","a","lot","of","the","money,","because","he","was","certain","the","company's","shares","would","rise","in","value.","They","didn't." d"The","company","went","bankrupt,","and","he","owed","the","bank","half","a","million","pounds.","He","left","Parliament","and","started","to","write.","He","wrote","about","a","man","who","had","lost","all","his","money","and","wanted","to","get","it","back.","The","book","was","an","international","bestseller,","and","paid","off","all","his","debts." "" $successful finish .G21,0;1;" You've finished the exercise!";0 8)9900&:line=3000 :9200#  ......password........ c$(5,5,15)  b$(5,15) v$(5,15) d$(5,5,15) a$(5,15) g=0:game number  c=0 b$(1)="credit" c$(1,1)="loan" !c$(1,2)="overdraft" c$(1,3)="debt" c$(1,4)="finance" #c$(1,5)="credit-card" b$(2)="currency" c$(2,1)="mark" c$(2,2)="pound" c$(2,3)="dollar" c$(2,4)="yen" c$(2,5)="franc" b$(3)="machine" c$(3,1)="car"  c$(3,2)="computer" c$(3,3)="drill" c$(3,4)="copier" c$(3,5)="telex"  MAIN MENU c=0S=10 :6:6  " "::236099\,70F (0,9 ;2;"WELCOME TO" @x=35:y=720:x,y;5;" ":y:x 04,10 ;2;1;"PASSWORD" +0:10 ,4;"Now you can:" .13 ,4;"1...see the instructions" '15,4;"2...play the game" E9800H&:" choose a number ";i$:i$"1"i$"2"5049 i$=4915054 i$=5025066  5039  INSTRUCTIONS >:6:6:0,9 ;1;"INSTRUCTIONS" 22,0;"In this game you must guess a" ""secret word, the PASSWORD." $:"You will see a word that gives" !"you ideas about the password." Đ:"When you see the idea word, you must try to find a word which you normally see or hear in the same situation as the idea word." Y:"For example,the idea FISH makes you think of the word FOOD or the word ANIMAL." ::"Then you write the PASSWORD you have thought of."  9900& :1,0;"GAMES";2,0;"There are 3 games in Password."'"You can play them in any order.";6,0;"SCORE";7,0;"You start with 10 points."'"You get 5 points for every"'"correct answer."''"You lose 1 point for every"'"wrong answer. " ɔ:"The top score is 25, if you play"'"each game once."'"It can be higher than 25 if you"'"play any game more than once."''"Good luck!":9900&  GAME OPERATION  :5 Jy=0296:p=16:1,y+p;p;" ":p:y  y=30 x=0186 x=185076 "p=16:x+p,y;p;" "  y=y-1 p x =x=15192:x,12 ;x-12 ;" ":x Vy=12 172:19,y;(y-10 y16);y-11 ;" ":y  6 :g<420,0;"last game was Game No. ";g H9800H&:"choose a game x=exit ";g$:g$>25066 620,0;" " g$=""5080 %g$="x"line=5000:9200# 'g$>579ůg$<4915080 Tg=g$:g>320,0;"There's no game with this number":5080 c>05107 b:502,150:150,0:0,-502:-150,0:0,502 &4,7;"Now, try to guess" @5,7;"the ";1;"hidden";0;" word" #6,7;"from the ideas" #7,7;"in these words"  f=1 y=301-1 -11 ,y;"ideas!ideas!ideas!ideas!" -12 ,y;"ideas!ideas!ideas!ideas!" 511 ,y-7;"ideas!ideas!ideas!ideas!" 512 ,y-7;"ideas!ideas!ideas!ideas!" -13 ,f;"ideas!ideas!ideas!ideas!" -14,f;"ideas!ideas!ideas!ideas!" 513 ,f+7;"ideas!ideas!ideas!ideas!" 514,f+7;"ideas!ideas!ideas!ideas!"  f=f+1 f=155105 y  150 : Game begins  6 ?:5,2;"ideas:";5,16;"your answers:" a$(5,15) P0,10 ;"GAME ";g:a=15:2,9 ;"IDEA No.";a 616,0;" " 618,0;" " 620,0;" "  c=c+1 F5,2;"ideas:";5,16;0;"your answers:"  k=1a '16,122z:215,0 f=115 ^k+7,1+f;c$(g,k,f);k+7,11 ;0;a+7,15;1;"*" .k=ak+7,1+f;1;c$(g,k,f) c$(g,k,f)=" "5124 f k+7,16;a$(k):k O5,16;1;"your answers:";5,2;0;"ideas:" a9800H&:20,0;"type in your answer x=exit":y$:y$>305109 Wa$(a)=y$:a+7,15;0;" ";5,16;0;"your answers:" 0a$(a,1)=""a$(a,1)=" "5125  8k5k+6,2;0;c$(g,k-1)  0a$(a,1)="x"line=5000:9200#  a+7,16;a$(a)  a$(a)=b$(g)5145  a$(a)b$(g)5140 _502:5,16;0;"your answers:";16,9 ;"Try again!"a5 a59900& a 16,0;" ":16,9 ;1;"Game over":502:16,9 ;0;"Game over";18,2;"The password was - ";b$(g) B20,0;" ";2;7;"SCORE = ";S 9900&:5066 20,0;" ";16,9 ;1;"Sorry!";18,4;0;"That's not the password." +0.25~,-15:0.5,-25 CS=S-1:20,9 ;7;2;"SCORE = ";S '16,9 ;0;"Sorry!": R5,16;0;"your answers:";16,9 ;1;"CORRECT!"  S=S+5 $b=14:0.25~,b:b :0.1}L,8:0.25~,5:0.5,4 I18,29;0;" ";16,9 ;0;"CORRECT!" f=115 (a+7,15+f;1;a$(a,f)  a$(a,f)=" "5154" !f "j20,0;" ";20,9 ;7;2;"SCORE = ";S # 3 $9900&:5066 c$(502,5,15) b$(502,15) X********************** Y ]word quiz segment b********************** g0:6:6 lscore=0:count=0 define variables %q$(10 ,128):definitions %a$(10 ,20):answer words  r$(1,20):response  intro menu 0:1,4;"WELCOME TO WORD QUIZ" ˁ3,0;"This is a simple word quiz. "''"You will see an explanation of"'"a mystery word."''"You must write the word." s10 ,0;"Sometimes more than one answer"'"could be correct - but the"'"computer only knows one answer." 514,0;"There are 10 words in the quiz." @16,0;"Make sure you spell the"'"words correctly!"  9900&  data lines fq$(1)=" If customers don't pay their bills, we send them a ...... at the end of the month." mq$(2)=" It is better to use telex for important messages, as letters often go ...... in the post." iq$(3)=" It is more polite to ask for an invoice to be ...... rather than use the word 'pay'." :q$(4)=" A ...... is someone you owe money to." jq$(5)=" A company or person whose debts are greater than their ...... can be declared bankrupt." q$(6)=" In bankruptcy cases, the financial affairs are sorted out by the ...... who is appointed by the court." q$(7)=" We are very ...... to use debt-collectors, but if you do not pay within 7 days we shall have to do so." cq$(8)=" Your account is now 3 months ...... and we must ask for immediate payment." \q$(9 )=" There is a direct ...... between loss of employment and bankruptcy." q$(10 )=" The job of a trustee in a bankruptcy is to ...... the rest of the debtors' property to the creditors." L answers V 7550~ `d=110 jd$:a$(d)=d$ td ~h"reminder","astray","settled","creditor","assets","receiver","reluctant","overdue","link","distribute" @operation loop Jf=110 T":4,0;"WORD ";f c57,0;"********************************" d612 ,0;"********************************" f*8,0;2;7;q$(f) r 9800H& w'o$=" " |17,0;o$;18,0;o$;19,0;o$;20,0;"x=exit Now write the word.... ":r$(1):20,0;" " }%r$(1,1)=" "8060| ~fuzz=0 Ur$(1,1)<97ar$(1,1)=(r$(1,1)+32 )  9800H& Nr$(1,1)="x"r$(1,2)=" "line=7000X:9200# 3g=120:a$(f,g)=" "length=g-1 a$(f,g)=" "8100 g r$(1)=a$(f)8200 r$(1)a$(f)8300l *count=count+1:score=score+1 <0.2~L,15:0.2~L,15:0.2~L,15 14,4;"Well done! That's right! ";15,4;"The word is - ";17,13 ;7;2;a$(f,1length)  6 line=7000X:9750& & 8400 l\1,-15:14,4;"Sorry! That's not the word"'" I was looking for." qcount=count+1 v<j=1length:r$(1,j)=a$(f,j)fuzz=fuzz+1 xj zfuzz=08316| {r$(1,1)=a$(f,1)fuzz*100d/length60<17,4;"But it's nearly right!";18,4;"You got ";fuzz;" letters right -";19,4;"check your spelling" |^0,0;7;2;"SCORE = ";score;" out of ";count;" attempts":8600! f !:10 ,0;"That is the end of Wordquiz.";14,0;"Your final score is ";2;7;score:9900& !4 9200# ! ===help=== !;9800H&:"a=answer h=help ENTER=repeat";y$ !U14,0;" " !U17,0;" " !419,0;" " !y$=""8060| !xy$="a"14,4;"The word is- ";7;2;a$(f,1length);0;6;" ":9900& !ey$="h"14,4;"The first letter is ";1;a$(f,1);0;"....":8060| !!y$>1y$""8610! ! #(*********************** #)hueber utilities #************************ #+line=0 #,2:2:7 #:unit welcome menu #********************** #;4,6;1;"WELCOME TO UNIT 8";0 #*8,6;"In this unit you can:" #+12 ,6;"1...test your grammar" #(13 ,6;"2...do a word quiz" #/14,6;"3...do a reading exercise" #'15,6;"4...play PASSWORD" # 9800H& #59850z&:y$"1"y$"2"y$"3"y$"4"9150# #y$="1"20 #y$="2"7000X #y$="3"3000 #y$="4"5000 #*********************** # endpanel #*********************** #2:2:7 # #64,6;1;"THAT'S THE END!";0 #!8,6;"Now you can:" $012 ,6;"1...do this activity again" $ /13 ,6;"2...choose a new activity" $*14,6;"3...start a new unit" $*15,6;"4...stop the program" $ 9800H& $ 9850z& $")y$"1"y$"2"y$"3"y$"4"9245$ $,put if jumps here $1y$="1"line $2y$="2"9100# $3y$="3"9280@$ $6uy$="4":8,8;"Goodbye!":19,0;"You can start again by pressing"'"R and then ENTER" $;y$="4"j$:j$="r" $<y$="4"9275;$ $@new loading procedure $By$"3"9100# $D,:9800H&:"Are you sure? y/n ";y$ $Ey$"y"9200# $F^:8,0;"Which unit do you want to work"'"with?"'''"Give the number of the unit:" $I 9800H& $J"unit number? ";y$ $Ky$=""9290J$ $Ly$>10 9290J$ $O'y$>579ůy$<4919290J$ $TD:8,0;"You have chosen Unit ";y$;''"Is this correct?" $Yu$="unit"+y$ $] 9800H& $^ "y/n?";y$ $cy$"y"9286F$ $h]:8,0;"Now start to play the tape";10 ,0;"and press ENTER" $my$:y$""9325m$ $r\17,0;1;"Loading ";u$;19,0;"DO NOT STOP THE TAPE";0 $wu$:9000(# %R0,0;7;2;"SCORE = ";score;" out of ";count;" attempts" %6:0 %+"ENTER=try again n=new questn";y$ %y$""y$"n"9700% % &R0,0;7;2;"SCORE = ";score;" out of ";count;" attempts" &6:0 &+"x=exit ENTER=next question ";y$ & y$"x"y$""9750& &%y$="x"9200# &* &M$0,0:255,0 &R &\ &z%"Choose a number + ENTER ";y$ & & 9800H& &""Press ENTER to continue";y$ &y$""9900& & , "cloze test  Mike Carrier 11/82 "cloze test  Mike Carrier 11/82 coroun If customers don't pay their bills, we send them a ...... at the end of the month. It is better to use telex for important messages, as letters often go ...... in the post. It is more polite to ask for an invoice to be ...... rather than use the word 'pay'. A ...... is someone you owe money to. A company or person whose debts are greater than their ...... can be declared bankrupt. In bankruptcy cases, the financial affairs are sorted out by the ...... who is appointed by the court. We are very ...... to use debt-collectors, but if you do not pay within 7 days we shall have to do so. Your account is now 3 months ...... and we must ask for immediate payment. There is a direct ...... between loss of employment and bankruptcy. The job of a trustee in a bankruptcy is to ...... the rest of the debtors' property to the creditors.  reminder astray settled creditor assets receiver reluctant overdue link distribute x `D distribute JO uzinXYyunit9 jTd'j#copyright Michael Carrier Dec 82 *********************** hueber langsoft  Mike Carrier 236099\,70F 2:2  rf=18:0.2~L,10 :12 ,8;2;7;1;"STOP THE TAPE!";0:f 9000(# first entry to multitest  #q$(15,128):questions -score=0:count=0:fault=0 /a$(15,3,28):answer choices #r$(15):responses ()c$(15):correct answer-a,b, or c) d0:6:6 e5:2,4;"***WELCOME TO MULTITEST***" i5,4;"UNIT 9" nL8,4;"There are 15 questions";9 ,4;"in this unit." xT13 ,4;"Choose a,b, or c ";14,4;"to answer the question." 9900& Pq$(1)=" Many jobs in the future will be done by machines ...... people." Pq$(2)=" There will never again be a time ...... everyone has a job." dq$(3)=" There is agreement ...... experts that people will have a lot more free time." Lq$(4)=" Many people will need to be re-trained ...... new jobs." [q$(5)=" There has been enormous growth in the use of computers ...... the 1980s." Iq$(6)=" Offices in the future will not look ...... modern ones." nq$(7)=" In fact ...... the year 2000 there may be no offices at all - people will work from home." Eq$(8)=" I first met Davies when he ...... in marketing." ^q$(9 )=" I think he ...... for the company for 20 years by the time he left." cq$(10 )=" We ......lunch with the chairman when the stock market crash took place." Lq$(11 )=" After hearing the news, we ...... back to the office." Xq$(12 )=" The company's shares, which ...... at `3.89, were now at `1.28." 0q$(13 )=" Everybody ...... very shocked." Bq$(14)=" The chairman immediately ...... a board meeting." pq$(15)=" 'The atmosphere on the stock exchange ...... good recently, but this is a shock,' he said." 5:8,0;"Please wait a few seconds....." f=115 " 300,+f 'a=13:d$ (a$(f,a)=d$:a *d$:c$(f)=d$ ,f -("because of","instead of","rather","b" ."when","which","while","a" /"among","around","under","a" 0"by","for","to","b" 1"during","for","since","a" 2"as","for","like","c" 3"by","until","while","a" 43"has been working","has worked","was working","c" 59"had been working","has been working","was working","a" 6#"had","had had","were having","c" 7%"have run","ran","were running","b" 8)"had stood","stood","were standing","a" 9""has been","was","was being","b" :)"called","has called","was calling","a" ;,"has not been","had not been","wasn't","a" score=0:operation loop f=115 L:blank frame Q$1,0;"Question ";f S3,0;q$(f) V&7,2;"a ";a$(f,1) [&8,2;"b ";a$(f,2) `&9 ,2;"c ";a$(f,3) e 9800H& j"choose a letter";r$(f) lr$(f)=" "1130j o=posn=r$(f)-90Z:posn<7posn>9 1130j yr$(f)=c$(f)2500 ~r$(f)c$(f)2000  9900& f 914,0;" That's the end of MULTITEST." 515,0;" " (16,0;" Your score was " 517,0;" " l18,0;" ";18,3;score;" out of ";count;" attempts." 9900&:9200# ?posn,2;1;r$(f);0;" ";a$(f,posn-6) /14,4;"Sorry - that's not right!" count=count+1 !r$(f)="x":for comparison later  9700% y$"n"1100L  1205 right answer ?posn,2;1;r$(f);0;" ";a$(f,posn-6) count=count+1 y14,2;"Well done! That's correct!";16,2;"The answer is: ";18,5;a$(f,posn-6) 0score=score+1:line=25:9750& 1205:9000(# *********************** cloze test ***********************  236099\,70F word,gap,answer,line Fw$(101e,16):a$(20,16):l$(20,32 ) #d$(25):array of items done z$(1,32 ):dummy 'a(20):length of correct answer m$="":answer dummy match game=0:o=0 w(100d):length of word ===welcome menu & loop= 0U6:1:0::1,0;"**WELCOME TO THE READING TEXT**" :4,0;"In this exercise you will see"'"a text with gaps in it."'"You must complete the text,"'"by writing the correct word." DP12 ,0;"You can choose the text and"'"the number of gaps yourself." NC16,0;"You score 2 points for the "'"correct answer." 9900& X:4,0;"Which text would you like?"''"There are 2 texts in this unit." "text number?";f$ 'f$>502ůf$<4913220 f$>13220 game=f$-480 -8,0;"You've chosen text ";game 211 ,0;"How often do you want a gap?" 313 ,0;"After 5,6,7,8 or 9 words?" #"Choose a number from 5 to 9 ";o$ o$>13270 'o$>579ůo$<5353270 o=o$-480 n15,0;"You've chosen to have a gap";17,0;"every ";1;o;0;" words" 220,0;"Please wait a few seconds..." HREAD DATA M(game=14820:end=82R R(game=24840:end=95_ \d=1end:w$(d) f4g=115:w$(d,g)=" "w(d)=g-1:d hd>end3450z kg pd z4500:gapping print text <:1:0,0;1;"TEXT ";game;0  4600 tENTER ANSWERS score=0 j20,0;"--------------------------------";21,0;"Now try to find the words......"  "Which word? x=exit ";e$ e$>10 3500 e$>23800 %e$="x"line=3000 :9200# 'e$>58:ůe$<4913800 e$=13850  :e$(2)>58:ůe$(2)<48 03800  b=e$ Mb>end/o21,0;"There is no gap number ";b;"! ":3810 PVd$(b)="y"21,0;"You have already done that one!":75K:3800 ZO21,0;"ENTER word ";b;" z=answer h=help" db$:b$=""3940d ib$<58:3930Z nOb$>2021,0;"Your answer is too long! ":3500 }%b$="x"line=3000 :9200# b$="z"4300 db$="h"21,0;"The first letter is ";a$(b,1);"....... ":502:3930Z c21,0;" ";21,0;"Your word= ";b$:502 #b$=a$(b,1a(b))44000 Ma$(b,a(b))=","a$(b,a(b))="."a$(b,a(b))="?"m$=a$(b,1a(b)-1) b$=m$44000 v$(1,32 ):v$(1)=a$(b,1a(b)):v=v$(1,1):v<91[v>64@v=v+32 :v$(1,1)=v:b$=v$(1,1̱b$)44000:3800 )b$a$(b,1a(b))b$m$4100  3800  4900$ ===wrong answer Vb$a$(b,1a(b))21,0;1;"Sorry-that's not right!";0 -0,18;"score = ";score;" " '-b$a$(b,1a(b))502:3930Z , h+:2,4;"LIST OF ANSWERS:" r: wGgame=0"You have to try a text first!":9900&:3100 |z=110 -4+z,0;z;" ";a$(z,1a(z)) z z=11 20 .z-6,16;z;" ";a$(z,1a(z)) z  9900&  3100 ===cheating=== 521,0;" " ~21,0;" ";21,0;"The answer is ";1;a$(b,1a(b));0 4450b:reinstate  3800 ====================== 0===correct answer=== 1k21,0;" ";21,0;"Well done! ";1;b$;0 :score=score+2 ?-0,18;"score = ";score;" " D4450b: N======================= b===reinstate=== g d$(b)="y" l w(b*o)=a(b) qw$(b*o)=a$(b) v 4600 !f=1̺(end/o):d$(f)"y" f:4900$ ===gapping===  num=1 f=0100do f=0f  f>end a$(num)=w$(f) 6w$(f)=32 +143+num+143+32  a(num)=w(f) w(f)=6 num=num+1 f  ====================== ===build lines===  x=1 f=120  len=0 len=04700\ space=32 -len *_space>w(x)l$(f)=l$(f,1len)+" "+w$(x,1w(x)):len=len+1+w(x):x=x+1 /Rx>end f,0;z$(1);f,0;l$(f);f+1,0;z$(1): 4space>w(x)4620  H5spacew(x)f,0;z$(1);f,0;l$(f) Mf R W======================= \1l$(f)=w$(x,1w(x)):len=w(x):x=x+1 p z====================== ===DATA=== y"Many","office","workers","are","afraid","of","computers,","because","they","think","the","machines","will","take","their","jobs","away.","Sometimes","this","must","happen,","but","in","many","cases","the","introduction","of","computers","into","an","office","will","make","the","work","less","mechanical","and","more","interesting.","New","jobs","can","also","be","created." h"Each","office","must","have","someone","who","understands","the","computer","and","can","train","people","to","use","it.","After","training,","there","will","be","new","specialists","who","can","use","a","wordprocessor,","a","database","or","a","financial","planning","program.","People","who","are","happy","to","change","will","not","lose","their","jobs." "Many","companies","in","America","are","experimenting","with","a","new","style","of","office","work.","To","reduce","both","office","costs,","like","rent","and","heating,","and","staff","costs,","like","pensions","and","sick","pay","some","staff","are","encouraged","to","leave","their","jobs","and","work","at","home.","The","company","loans","them","a","computer","and","gives","them","an","independent","contract." ?"They","carry","out","the","same","job","functions","but","send","their","completed","work","into","the","office","through","a","computer.","The","company","saves","money,","the","staff","save","travelling","time","and","see","their","children","more","often.","Could","this","be","the","company","of","the","future?" "" "" $successful finish .G21,0;1;" You've finished the exercise!";0 8)9900&:line=3000 :9200#  ......password........ c$(5,5,15)  b$(5,15) v$(5,15) d$(5,5,15) a$(5,15) g=0:game number  c=0 b$(1)="entertainment" c$(1,1)="disco" "c$(1,2)="television" c$(1,3)="concert" c$(1,4)="theatre" c$(1,5)="cinema" b$(2)="occupation" #c$(2,1)="telephonist" !c$(2,2)="secretary" c$(2,3)="clerk"  c$(2,4)="retailer" "c$(2,5)="accountant" b$(3)="credit-card" "c$(3,1)="MasterCard" #c$(3,2)="Diners'Club"  c$(3,3)="Eurocard" c$(3,4)="Visa" c$(3,5)="AMEX"  MAIN MENU c=0S=10 :6:6  " "::236099\,70F (0,9 ;2;"WELCOME TO" @x=35:y=720:x,y;5;" ":y:x 04,10 ;2;1;"PASSWORD" +0:10 ,4;"Now you can:" .13 ,4;"1...see the instructions" '15,4;"2...play the game" E9800H&:" choose a number ";i$:i$"1"i$"2"5049 i$=4915054 i$=5025066  5039  INSTRUCTIONS >:6:6:0,9 ;1;"INSTRUCTIONS" 22,0;"In this game you must guess a" ""secret word, the PASSWORD." $:"You will see a word that gives" !"you ideas about the password." Đ:"When you see the idea word, you must try to find a word which you normally see or hear in the same situation as the idea word." Y:"For example,the idea FISH makes you think of the word FOOD or the word ANIMAL." ::"Then you write the PASSWORD you have thought of."  9900& :1,0;"GAMES";2,0;"There are 3 games in Password."'"You can play them in any order.";6,0;"SCORE";7,0;"You start with 10 points."'"You get 5 points for every"'"correct answer."''"You lose 1 point for every"'"wrong answer. " ɔ:"The top score is 25, if you play"'"each game once."'"It can be higher than 25 if you"'"play any game more than once."''"Good luck!":9900&  GAME OPERATION  :5 Jy=0296:p=16:1,y+p;p;" ":p:y  y=30 x=0186 x=185076 "p=16:x+p,y;p;" "  y=y-1 p x =x=15192:x,12 ;x-12 ;" ":x Vy=12 172:19,y;(y-10 y16);y-11 ;" ":y  6 :g<420,0;"last game was Game No. ";g H9800H&:"choose a game x=exit ";g$:g$>25066 620,0;" " g$=""5080 %g$="x"line=5000:9200# 'g$>579ůg$<4915080 Tg=g$:g>320,0;"There's no game with this number":5080 c>05107 b:502,150:150,0:0,-502:-150,0:0,502 &4,7;"Now, try to guess" @5,7;"the ";1;"hidden";0;" word" #6,7;"from the ideas" #7,7;"in these words"  f=1 y=301-1 -11 ,y;"ideas!ideas!ideas!ideas!" -12 ,y;"ideas!ideas!ideas!ideas!" 511 ,y-7;"ideas!ideas!ideas!ideas!" 512 ,y-7;"ideas!ideas!ideas!ideas!" -13 ,f;"ideas!ideas!ideas!ideas!" -14,f;"ideas!ideas!ideas!ideas!" 513 ,f+7;"ideas!ideas!ideas!ideas!" 514,f+7;"ideas!ideas!ideas!ideas!"  f=f+1 f=155105 y  150 : Game begins  6 ?:5,2;"ideas:";5,16;"your answers:" a$(5,15) P0,10 ;"GAME ";g:a=15:2,9 ;"IDEA No.";a 616,0;" " 618,0;" " 620,0;" "  c=c+1 F5,2;"ideas:";5,16;0;"your answers:"  k=1a '16,122z:215,0 f=115 ^k+7,1+f;c$(g,k,f);k+7,11 ;0;a+7,15;1;"*" .k=ak+7,1+f;1;c$(g,k,f) c$(g,k,f)=" "5124 f k+7,16;a$(k):k O5,16;1;"your answers:";5,2;0;"ideas:" a9800H&:20,0;"type in your answer x=exit":y$:y$>305109 Wa$(a)=y$:a+7,15;0;" ";5,16;0;"your answers:" 0a$(a,1)=""a$(a,1)=" "5125  8k5k+6,2;0;c$(g,k-1)  0a$(a,1)="x"line=5000:9200#  a+7,16;a$(a)  a$(a)=b$(g)5145  a$(a)b$(g)5140 _502:5,16;0;"your answers:";16,9 ;"Try again!"a5 a59900& a 16,0;" ":16,9 ;1;"Game over":502:16,9 ;0;"Game over";18,2;"The password was - ";b$(g) B20,0;" ";2;7;"SCORE = ";S 9900&:5066 20,0;" ";16,9 ;1;"Sorry!";18,4;0;"That's not the password." +0.25~,-15:0.5,-25 CS=S-1:20,9 ;7;2;"SCORE = ";S '16,9 ;0;"Sorry!": R5,16;0;"your answers:";16,9 ;1;"CORRECT!"  S=S+5 $b=14:0.25~,b:b :0.1}L,8:0.25~,5:0.5,4 I18,29;0;" ";16,9 ;0;"CORRECT!" f=115 (a+7,15+f;1;a$(a,f)  a$(a,f)=" "5154" !f "j20,0;" ";20,9 ;7;2;"SCORE = ";S # 3 $9900&:5066 c$(502,5,15) b$(502,15) X********************** Y ]word quiz segment b********************** g0:6:6 lscore=0:count=0 define variables %q$(10 ,128):definitions %a$(10 ,20):answer words  r$(1,20):response  intro menu 0:1,4;"WELCOME TO WORD QUIZ" ˁ3,0;"This is a simple word quiz. "''"You will see an explanation of"'"a mystery word."''"You must write the word." s10 ,0;"Sometimes more than one answer"'"could be correct - but the"'"computer only knows one answer." 514,0;"There are 10 words in the quiz." @16,0;"Make sure you spell the"'"words correctly!"  9900&  data lines q$(1)=" We're pleased with the speed of the new ...... system for letters of credit. It has cut the amount of clerical work." {q$(2)=" It is unfortunate many office workers will be made ...... when computer systems are installed." q$(3)=" Before photocopying was so cheap, most offices made ...... copies of all correspondence and documents." cq$(4)=" If an employee has a computer on his desk, then his desk can be called a ......" _q$(5)=" Most wordprocessors use their own internal ...... to check your spelling." lq$(6)=" Using a wordprocessor, you can make corrections and ...... to a letter much more quickly." q$(7)=" The ...... of money from banks and companies is now possible for young computer experts. This sort of crime is growing." Lq$(8)=" A period of low business activity is called a ......" hq$(9 )=" Experts say that the ...... for clerical workers looks quite negative in the future." q$(10 )=" This is because many office workers are expensive and ...... - a wordprocessing system is more efficient." L answers V 7550~ `d=110 jd$:a$(d)=d$ td ~"automated","redundant","carbon","workstation","dictionary","alterations","embezzlement","recession","outlook","unproductive" @operation loop Jf=110 T":4,0;"WORD ";f c57,0;"********************************" d612 ,0;"********************************" f*8,0;2;7;q$(f) r 9800H& w'o$=" " |17,0;o$;18,0;o$;19,0;o$;20,0;"x=exit Now write the word.... ":r$(1):20,0;" " }%r$(1,1)=" "8060| ~fuzz=0 Ur$(1,1)<97ar$(1,1)=(r$(1,1)+32 )  9800H& Nr$(1,1)="x"r$(1,2)=" "line=7000X:9200# 3g=120:a$(f,g)=" "length=g-1 a$(f,g)=" "8100 g r$(1)=a$(f)8200 r$(1)a$(f)8300l *count=count+1:score=score+1 <0.2~L,15:0.2~L,15:0.2~L,15 14,4;"Well done! That's right! ";15,4;"The word is - ";17,13 ;7;2;a$(f,1length)  6 line=7000X:9750& & 8400 l\1,-15:14,4;"Sorry! That's not the word"'" I was looking for." qcount=count+1 v<j=1length:r$(1,j)=a$(f,j)fuzz=fuzz+1 xj zfuzz=08316| {r$(1,1)=a$(f,1)fuzz*100d/length60<17,4;"But it's nearly right!";18,4;"You got ";fuzz;" letters right -";19,4;"check your spelling" |^0,0;7;2;"SCORE = ";score;" out of ";count;" attempts":8600! f !:10 ,0;"That is the end of Wordquiz.";14,0;"Your final score is ";2;7;score:9900& !4 9200# ! ===help=== !;9800H&:"a=answer h=help ENTER=repeat";y$ !U14,0;" " !U17,0;" " !419,0;" " !y$=""8060| !xy$="a"14,4;"The word is- ";7;2;a$(f,1length);0;6;" ":9900& !ey$="h"14,4;"The first letter is ";1;a$(f,1);0;"....":8060| !!y$>1y$""8610! ! #(*********************** #)hueber utilities #************************ #+line=0 #,2:2:7 #:unit welcome menu #********************** #;4,6;1;"WELCOME TO UNIT 9";0 #*8,6;"In this unit you can:" #+12 ,6;"1...test your grammar" #(13 ,6;"2...do a word quiz" #/14,6;"3...do a reading exercise" #'15,6;"4...play PASSWORD" # 9800H& #59850z&:y$"1"y$"2"y$"3"y$"4"9150# #y$="1"20 #y$="2"7000X #y$="3"3000 #y$="4"5000 #*********************** # endpanel #*********************** #2:2:7 # #64,6;1;"THAT'S THE END!";0 #!8,6;"Now you can:" $012 ,6;"1...do this activity again" $ /13 ,6;"2...choose a new activity" $*14,6;"3...start a new unit" $*15,6;"4...stop the program" $ 9800H& $ 9850z& $")y$"1"y$"2"y$"3"y$"4"9245$ $,put if jumps here $1y$="1"line $2y$="2"9100# $3y$="3"9280@$ $6uy$="4":8,8;"Goodbye!":19,0;"You can start again by pressing"'"R and then ENTER" $;y$="4"j$:j$="r" $<y$="4"9275;$ $@new loading procedure $By$"3"9100# $D,:9800H&:"Are you sure? y/n ";y$ $Ey$"y"9200# $F^:8,0;"Which unit do you want to work"'"with?"'''"Give the number of the unit:" $I 9800H& $J"unit number? ";y$ $Ky$=""9290J$ $Ly$>10 9290J$ $O'y$>579ůy$<4919290J$ $TD:8,0;"You have chosen Unit ";y$;''"Is this correct?" $Yu$="unit"+y$ $] 9800H& $^ "y/n?";y$ $cy$"y"9286F$ $h]:8,0;"Now start to play the tape";10 ,0;"and press ENTER" $my$:y$""9325m$ $r\17,0;1;"Loading ";u$;19,0;"DO NOT STOP THE TAPE";0 $wu$:9000(# %R0,0;7;2;"SCORE = ";score;" out of ";count;" attempts" %6:0 %+"ENTER=try again n=new questn";y$ %y$""y$"n"9700% % &R0,0;7;2;"SCORE = ";score;" out of ";count;" attempts" &6:0 &+"x=exit ENTER=next question ";y$ & y$"x"y$""9750& &%y$="x"9200# &* &M$0,0:255,0 &R &\ &z%"Choose a number + ENTER ";y$ & & 9800H& &""Press ENTER to continue";y$ &y$""9900& & , "cloze test  Mike Carrier 11/82 "cloze test  Mike Carrier 11/82 coroun We're pleased with the speed of the new ...... system for letters of credit. It has cut the amount of clerical work. It is unfortunate many office workers will be made ...... when computer systems are installed. Before photocopying was so cheap, most offices made ...... copies of all correspondence and documents. If an employee has a computer on his desk, then his desk can be called a ...... Most wordprocessors use their own internal ...... to check your spelling. Using a wordprocessor, you can make corrections and ...... to a letter much more quickly. The ...... of money from banks and companies is now possible for young computer experts. This sort of crime is growing. A period of low business activity is called a ...... Experts say that the ...... for clerical workers looks quite negative in the future. This is because many office workers are expensive and ...... - a wordprocessing system is more efficient.  automated redundant carbon workstation dictionary alterations embezzlement recession outlook unproductive x `D unproductive JO uzinXYyunit10 p#copyright Michael Carrier Dec 82 *********************** hueber langsoft  Mike Carrier *********************** 236099\,70F 2:2  rf=18:0.2~L,10 :12 ,8;2;7;1;"STOP THE TAPE!";0:f 9000(# first entry to multitest  #q$(15,128):questions -score=0:count=0:fault=0 /a$(15,3,28):answer choices #r$(15):responses ()c$(15):correct answer-a,b, or c) d0:6:6 e5:2,4;"***WELCOME TO MULTITEST***" i*6,4;"UNIT 10 -- VERB FORMS" nr8,4;"There are 15 questions";9 ,4;"about verb forms in ";10 ,4;"this unit." xT13 ,4;"Choose a,b, or c ";14,4;"to answer the question." }f17,4;"In questions 1-6 you must"'" finish the passive forms of"'" the sentences." 9900& q$(1)=" They've sent me a few reports to read. ...... a few reports." q$(2)=" Alaska supplies a lot of America's oil. A lot of America's oil ......" q$(3)=" The Russians sold Alaska in 1867 for $7.2 million. Alaska ...... for $7.2 million." ~q$(4)=" Nobody knew that there was oil under the surface. It was ......" q$(5)=" America must have invested lots of money in the oil industry. A lot of money ......" {q$(6)=" The government has developed Alaska very successfully. Alaska .... very successfully developed." oq$(7)=" Managers realise that an investment in any new industry ...... a long time to pay off." aq$(8)=" In the past it was easier to find an investment that ...... in a few months." jq$(9 )=" The banks also know that many new businesses ...... high risk projects when they start." Nq$(10 )=" If I ...... a lot of money, I'd invest it in my own company." `q$(11 )=" The company wouldn't fire me unless I ...... something really stupid." \q$(12 )=" That's why it's important ..... investment decisions very carefully." Cq$(13 )=" I'm a great believer ...... things carefully." Oq$(14)=" Any good manager should avoid ...... decisions too quickly." qq$(15)=" Not even the most experienced businessman can claim ..... the best solution to every problem." 5:8,0;"Please wait a few seconds....." f=115 " 300,+f 'a=13:d$ (a$(f,a)=d$:a *d$:c$(f)=d$ ,f -="I've been sent","It has been sent","They've been sent","a" .M"has been supplied by Alaska","is supplied by Alaska","supplies Alaska","b" /*"has been sold","is sold","was sold","c" 0U"not known there was no oil","known there was no oil","not known there was oil","c" 1A"must be invested","must have been invested","was invested","b" 2&"had been","has been","is being","b" 3$"is taking","took","will take","c" 44"is repaid","will be repaid","would be repaid","c" 5*"are going to be","have been","were","a" 6"had","have","would have","a" 7 "did","will do","would do","a" 8"take","taking","to take","c" 9+"in planning","on planning","to plan","a" :"make","making","to make","b" ; "know","knowing","to know","c" score=0:operation loop f=115 L:blank frame Q$1,0;"Question ";f S3,0;q$(f) V&8,2;"a ";a$(f,1) [&9 ,2;"b ";a$(f,2) `'10 ,2;"c ";a$(f,3) e 9800H& j"choose a letter";r$(f) l+r$(f)"a"r$(f)"b"r$(f)"c"1130j or$(f)="a"posn=8 qr$(f)="b"posn=9 tr$(f)="c"posn=10 yr$(f)=c$(f)2500 ~r$(f)c$(f)2000  9900& f 914,0;" That's the end of MULTITEST." 515,0;" " (16,0;" Your score was " i17,0;" ";18,0;" " 717,3;score;" out of ";count;" attempts." 9900&:9200# ?posn,2;1;r$(f);0;" ";a$(f,posn-7) /14,2;"Sorry - that's not right!" count=count+1 !r$(f)="x":for comparison later  9700% y$"n"1100L  1205 right answer ?posn,2;1;r$(f);0;" ";a$(f,posn-7) count=count+1 y14,2;"Well done! That's correct!";16,2;"The answer is: ";18,5;a$(f,posn-7) 0score=score+1:line=25:9750& 1205:9000(# *********************** cloze test ***********************  236099\,70F word,gap,answer,line Fw$(101e,16):a$(20,16):l$(20,32 ) #d$(25):array of items done z$(1,32 ):dummy 'a(20):length of correct answer m$="":answer dummy match game=0:o=0 w(100d):length of word ===welcome menu & loop= 0U6:1:0::1,0;"**WELCOME TO THE READING TEXT**" :4,0;"In this exercise you will see"'"a text with gaps in it."'"You must complete the text,"'"by writing the correct word." DP12 ,0;"You can choose the text and"'"the number of gaps yourself." NC16,0;"You score 2 points for the "'"correct answer." 9900& X:4,0;"Which text would you like?"''"There are 2 texts in this unit." "text number?";f$ 'f$>502ůf$<4913220 f$>13220 game=f$-480 -8,0;"You've chosen text ";game 211 ,0;"How often do you want a gap?" 313 ,0;"After 5,6,7,8 or 9 words?" #"Choose a number from 5 to 9 ";o$ o$>13270 'o$>579ůo$<5353270 o=o$-480 n15,0;"You've chosen to have a gap";17,0;"every ";1;o;0;" words" 220,0;"Please wait a few seconds..." HREAD DATA M(game=14820:end=79O R(game=24840:end=94^ \d=1end:w$(d) f4g=115:w$(d,g)=" "w(d)=g-1:d hd>end3450z kg pd z4500:gapping print text <:1:0,0;1;"TEXT ";game;0  4600 tENTER ANSWERS score=0 j20,0;"--------------------------------";21,0;"Now try to find the words......"  "Which word? x=exit ";e$ e$>10 3500 e$>23800 %e$="x"line=3000 :9200# 'e$>58:ůe$<4913800 e$=13850  :e$(2)>58:ůe$(2)<48 03800  b=e$ Mb>end/o21,0;"There is no gap number ";b;"! ":3810 PVd$(b)="y"21,0;"You have already done that one!":75K:3800 ZO21,0;"ENTER word ";b;" z=answer h=help" db$:b$=""3940d ib$<58:3930Z nOb$>2021,0;"Your answer is too long! ":3500 }%b$="x"line=3000 :9200# b$="z"4300 db$="h"21,0;"The first letter is ";a$(b,1);"....... ":502:3930Z c21,0;" ";21,0;"Your word= ";b$:502 #b$=a$(b,1a(b))44000 Ma$(b,a(b))=","a$(b,a(b))="."a$(b,a(b))="?"m$=a$(b,1a(b)-1) b$=m$44000  v$(1,32 ):v$(1)=a$(b,1a(b)):v=v$(1,1):v<91 [v>64@v=v+32 :v$(1,1)=v:b$=v$(1,1a(b))44000:3800 )b$a$(b,1a(b))b$m$4100  3800  4900$ ===wrong answer Vb$a$(b,1a(b))21,0;1;"Sorry-that's not right!";0 -0,18;"score = ";score;" " '-b$a$(b,1a(b))502:3930Z , h+:2,4;"LIST OF ANSWERS:" r: wGgame=0"You have to try a text first!":9900&:3100 |z=110 -4+z,0;z;" ";a$(z,1a(z)) z z=11 20 .z-6,16;z;" ";a$(z,1a(z)) z  9900&  3100 ===cheating=== 521,0;" " ~21,0;" ";21,0;"The answer is ";1;a$(b,1a(b));0 4450b:reinstate  3800 ====================== 0===correct answer=== 1k21,0;" ";21,0;"Well done! ";1;b$;0 :score=score+2 ?-0,18;"score = ";score;" " D4450b: N======================= b===reinstate=== g d$(b)="y" l w(b*o)=a(b) qw$(b*o)=a$(b) v 4600 !f=1̺(end/o):d$(f)"y" f:4900$ ===gapping===  num=1 f=0100do f=0f  f>end a$(num)=w$(f) 6w$(f)=32 +143+num+143+32  a(num)=w(f) w(f)=6 num=num+1 f  ====================== ===build lines===  x=1 f=120  len=0 len=04700\ space=32 -len *_space>w(x)l$(f)=l$(f,1len)+" "+w$(x,1w(x)):len=len+1+w(x):x=x+1 /Rx>end f,0;z$(1);f,0;l$(f);f+1,0;z$(1): 4space>w(x)4620  H5spacew(x)f,0;z$(1);f,0;l$(f) Mf R W======================= \1l$(f)=w$(x,1w(x)):len=w(x):x=x+1 p z====================== ===DATA=== ԇ"Experts","believe","there","are","several","types","of","unemployment,","each","with","different","causes.","Seasonal","unemployment","changes","with","the","time","of","year.","In","the","farming","and","building","industries,","bad","weather","can","create","unemployment.","In","June,","unemployment","always","rises","when","young","people","leave","school","and","look","for","work." '"Cyclical","unemployment","is","another","word","for","recession,","which","is","usually","caused","by","international","problems.","This","is","less","easy","to","control","than","technological","unemployment,","which","can","often","be","reduced","by","training","people","for","new","jobs." ]"The","worst","thing","about","business","travel","is","that","it","is","not","travel.","It","is","work.","You","get","paid","for","it,","so","you","can't","enjoy","it.","A","business","trip","may","take","you","to","an","interesting","place,","but","it's","unlikely","that","you","will","have","time","to","find","out","why","it's","interesting." `"You","will","only","see","the","airport,","the","hotel,","the","conference","room","and","the","restaurant.","If","you","are","lucky,","and","can","get","some","free","time,","you","should","look","at","the","city","and","country","around","you.","The","businessman","who","understands","the","country","will","understand","his","customer","better." "" "" $successful finish .G21,0;1;" You've finished the exercise!";0 8)9900&:line=3000 :9200#  ********************** :236099\,70F mazes segment ********************** copyright Mike Carrier  april 1984 :6:6:0 q$(1,224)  a$(524,96`):options 2x=1:op1=1:op2=1:op3=1 J:2,6;1;7;"A BUSINESS MAZE";6;0 6,0;"This maze gives you a business"'"problem to solve."''"Read the situation at the top"'"of each page, and then choose"'"one of the three suggestions "'"given as possible answers."''"Decide what YOU would do, and"'"choose the number of that "'"possible answer." S:"If you want to EXIT at any time"'"type x and press ENTER.":9900& +++++statements+++++ " You are the Sales Manager of a company selling home computers. You have just launched a new model, and your boss wants you to get a 25% market share by the end of the first year. What will you do first?" _" How many home computers do you think the market can take?"  " She wants to know how many you plan to sell, and which social groups you are selling to. She also needs to know your advertising budget." " He tells you that the total market for home computers in this country is 900,000 units a year. " " You need to get more detailed information before you make decisions like this. You should:" (" Just by chance you chose the right figure! But you should really get more information before you start to take decisions." 2" He explains that the major competitors are computers made by Commodore, Sinclair and Atari. What do you need to know about your competitors?" <_" He asks what you want to know about the computer market." F" The prices of the competing computers: Commodore -- `199 Sinclair -- `125 Atari -- `179. What price do you think your computer should be?" P" The international sales are: Sinclair -- 200,000 per year Commodore -- 180,000 Atari -- 150,000 in its first year. What do you estimate for your sales?" Z" Mainly people from the B and C social groups. Which group will you aim at?" d" The main interests are in games wordprocessing and business accounts systems. What is your system designed for?" nt" That seems an acceptable price. Now set your sales target for the first year." x" You don't need to know that to sell the computers! The Marketing Manager can tell you about more important things which will affect your sales." " No - your colleagues feel that is too optimistic. You need to be more realistic about prices and sales forecasts." " No - your colleagues feel that is too pessimistic. You should set higher prices and expect better sales." " OK, that seems to be a good target. Now, how are you going to make sure that you meet these targets?" " This helps you decide how to plan your advertising. Now you need to talk to the Marketing Manager about your competition in the market." " That's been a very profitable market, but you can succeed only if you have a lot of games software already prepared for your machine. That will take too long and cost too much. There are better strategies." " OK, now you must set your sales targets and discuss prices. You need to talk to the Marketing Manager about the other products available." " You could advertise in many different media. Which medium do you think you should concentrate on at first?" m" How much discount do you think you should give to your dealers?" " It seems a sensible idea, but unfortunately it doesn't pay off. Sales are very low after the 2 months of the campaign. Perhaps there are better strategies." " There is a good response. The specialist computer magazines also write good reports about your machine (because you paid for so much advertising). But after the 4 months of the campaign, sales drop. You can:" " This is so expensive that you can buy only 5 advertisements in one week, instead of 4 months in 10 different magazines." " At this level of profit, all the dealers you speak to refuse to stock your machine." " That's a fair discount, but of course there is a lot of competition in this market. Only 50% of the dealers agree to sell your machine. Your colleagues say you should.." " All the major computer dealers are very keen to sell your machine now, so you must get the advertising campaign under way." " The TV ads increase sales by 10%, but after a couple of months sales are poor again. You are still a long way from the market share your boss wants to achieve." " This increases your sales by 20%, and your market share is only 3% below your target. What next?" "" A bad risk - customers are suspicious of prices which are too low. Sales don't increase much, and your expenditure on TV ads is causing cashflow problems. The board decides to abandon the computer division." ," The special pack means your profits are lower, but you've succeeded in increasing sales so that you now have the market share you want. Well done!" 6" Your price cut was just enough to attract sales without making customers or dealers nervous about the machine or the company. You've succeeded in reaching the market share target. Well done!" @" That was a disastrous decision. The market wasn't ready for a new model, even at a low price and sales of the old model have dropped by 75%. The board decides to fire you and abandon the new model." J|" This gives you an extra market share of 1%. You should reconsider. " T" Your company wants a cheap computer for the large home market. You can make money from low price, high volume computers. Business computers need to be more complex and expensive, with very low sales at high prices." |++++choices+++++ %a=0:dummy statement variable ;a$(2)="Set your sales target for the first year." 4a$(3)="Talk to the Advertising Manager." 4a$(4)="Talk to the Marketing Manager." #a$(5)="About 150,000 units" %a$(6)="About 1 million units" >a$(7)="Don't know - talk to the Marketing Manager." ;a$(8)="You think you should spend around `50,000." <a$(9 )="You think you should spend around `250,000." 6a$(10 )="Ask his advice on competing products." 6a$(11 )="Ask him about his market research." -a$(12 )="What prices do they sell at?" 2a$(13 )="How many do they sell per year?" &a$(14)="What colour are they?" @a$(15)="Which social groups spend money on computers?" 7a$(16)="Why do people buy home computers?" &'a$(17)="How do computers work?" 0a$(18)="`200" :a$(19)="`250" Da$(20)="`150" Na$(21)="100,000" Xa$(22)="250,000" ba$(23)="65,000" l+a$(24)="Social class A - the rich." vFa$(25)="Social class B - the middle classes and professionals" ;a$(26)="Social class C/D - the working class." )a$(27)="Games and entertainment." Ra$(28)="Personal computing -writing letters, doing the family accounts." *a$(29)="Small business computing." Sa$(30)="Through well-planned and attractive advertising campaigns." ^a$(31)="Through a large and very well-trained network of specialised dealers. " %a$(32 )="Estimate your sales." a$(33!)="Try again!" a$(34")="Try again!" 'a$(35#)="Newspaper advertising." &a$(36$)="Magazine advertising." (a$(37%)="Television advertising." a$(38&)="20%" a$(39')="30%"  a$(40()="40%" Fa$(41))="Take some time to reconsider that decision."  Qa$(42*)="Take a financial risk and pay for TV advertising for 2 weeks." *>a$(43+)="Reduce the price by `25 to stimulate demand." 4Ia$(44,)="That's the end of the maze. Press ENTER to continue." >>a$(45-)="Think carefully about this and decide again." H-a$(46.)="Now organise the advertising" R(a$(47/)="Lower the price by `75." \`a$(480)="Sell the computer in a special package with a printer and disc drive." f+a$(491)="Spend more on advertising." p'a$(502)="Drop the price by `30." zYa$(513)="Introduce a new, better model of the computer, with more power." a$(524)="Try again!" doperation loop-first page n>x=1:op1=2:op2=3:op3=4:6700, xr$="1"6850 }Fr$="2"x=2:op1=5:op2=6:op3=7:6700, Fr$="3"x=3:op1=8:op2=9 :op3=7:6700, Hr$="4"x=4:op1=10 :op2=11 :op3=0:6700, Fr$="5"x=5:op1=3:op2=4:op3=0:6700, Fr$="6"x=6:op1=3:op2=4:op3=0:6700, Hr$="7"x=4:op1=10 :op2=11 :op3=0:6700, Fr$="8"x=5:op1=4:op2=0:op3=0:6700, Fr$="9"x=6:op1=4:op2=0:op3=0:6700, Jr$="10"x=7:op1=12 :op2=13 :op3=14:6700, Jr$="11"x=8:op1=15:op2=16:op3=17:6700, Jr$="12"x=9 :op1=18:op2=19:op3=20:6700, Kr$="13"x=10 :op1=21:op2=22:op3=23:6700, Jr$="14"x=14:op1=11 :op2=10 :op3=0:6700, Kr$="15"x=11 :op1=26:op2=24:op3=25:6700, Kr$="16"x=12 :op1=27:op2=28:op3=29:6700, Jr$="17"x=14:op1=10 :op2=11 :op3=0:6700, Ir$="18"x=13 :op1=32 :op2=0:op3=0:6700, Nr$="19"a=x:x=15:op1=33!:op2=0:op3=0:6700, Nr$="20"a=x:x=16:op1=33!:op2=0:op3=0:6700, Jr$="21"x=17:op1=30:op2=31:op3=0:6700, Nr$="22"a=x:x=15:op1=33!:op2=0:op3=0:6700, Nr$="23"a=x:x=16:op1=33!:op2=0:op3=0:6700, Ir$="24"x=18:op1=10 :op2=0:op3=0:6700, Ir$="25"x=18:op1=10 :op2=0:op3=0:6700, Ir$="26"x=18:op1=10 :op2=0:op3=0:6700, Ir$="27"x=19:op1=34":op2=0:op3=0:6700, Ir$="28"x=20:op1=10 :op2=0:op3=0:6700, Ir$="29"x=36$:op1=34":op2=0:op3=0:6700,  Kr$="30"x=21:op1=35#:op2=36$:op3=37%:6700, Kr$="31"x=22:op1=38&:op2=39':op3=40(:6700, Kr$="32"x=10 :op1=21:op2=22:op3=23:6700, Tr$="33"a=9 x=9 :op1=18:op2=19:op3=20:6700, Vr$="33"a=10 x=10 :op1=21:op2=22:op3=23:6700, Kr$="34"x=12 :op1=27:op2=28:op3=29:6700, Ir$="35"x=23:op1=41):op2=0:op3=0:6700, Jr$="36"x=24:op1=42*:op2=43+:op3=0:6700, Ir$="37"x=25:op1=41):op2=0:op3=0:6700, Ir$="38"x=26:op1=45-:op2=0:op3=0:6700, Ir$="39"x=27:op1=45-:op2=0:op3=0:6700, Ir$="40"x=28:op1=46.:op2=0:op3=0:6700, Kr$="41"x=21:op1=35#:op2=36$:op3=37%:6700, Jr$="42"x=29:op1=47/:op2=480:op3=0:6700, Kr$="43"x=30:op1=491:op2=513:op3=502:6700, 2r$="44"9900&:line=5000:9200# Kr$="45"x=22:op1=38&:op2=39':op3=40(:6700, Kr$="46"x=21:op1=35#:op2=36$:op3=37%:6700, Ir$="47"x=31:op1=44,:op2=0:op3=0:6700,  Ir$="48"x=32 :op1=44,:op2=0:op3=0:6700, !Ir$="49"x=35#:op1=524:op2=0:op3=0:6700, "Ir$="50"x=33!:op1=44,:op2=0:op3=0:6700, #Ir$="51"x=34":op1=44,:op2=0:op3=0:6700, $Jr$="52"x=30:op1=502:op2=513:op3=0:6700, ,7:7,0;"********************************" h+r=5100+(x*10 ):r:q$(1) m00,0;1;7;q$(1) wf8,2;"______________________________";12 ,2;"______________________________" |op2013 ,2;"______________________________";17,2;"______________________________":op3018,2;"______________________________";21,2;"______________________________" M16,104h:0,-32 :255,72H:0,32 Yop2016,64@:0,-32 :255,32 :0,32 Xop3016,24:0,-24:255,0:0,24 9 ,0;op1;9 ,3;a$(op1,128);10 ,3;a$(op1,29568);11 ,3;a$(op1,57984T) op2014,0;op2;14,3;a$(op2,128);15,3;a$(op2,29568);16,3;a$(op2,57984T) {op3019,0;op3;19,3;a$(op3,128);20,3;a$(op3,29568) 8op1=44 ,9900&:line=5000:9200# $"Choose a number + ENTER ";r$ r$>26700, %r$="x"line=5000:9200# r$=""6850 'r$>579ůr$<4916850 %r$op1ưr$op2ưr$op36850 $6520x:analyse options chosen  end of maze )9900&:line=5000:9200# X********************** Y ]word quiz segment b********************** g0:6:6 lscore=0:count=0 define variables %q$(10 ,128):definitions %a$(10 ,20):answer words  r$(1,20):response  intro menu 0:1,4;"WELCOME TO WORD QUIZ" ˁ3,0;"This is a simple word quiz. "''"You will see an explanation of"'"a mystery word."''"You must write the word." s10 ,0;"Sometimes more than one answer"'"could be correct - but the"'"computer only knows one answer." 514,0;"There are 10 words in the quiz." 616,0;"Make sure the spelling is right!"  9900&  data lines Zq$(1)=" Please make an ...... for me to see the sales director on Thursday." dq$(2)=" A travel plan, listing all the places and times on the trip, is called an ......" gq$(3)=" Griffiths deserves more ...... for the work he has done in promoting the company." Xq$(4)=" Coal and oil are now the biggest mineral ...... in Alaska." nq$(5)=" The huge cost of building a new city was the ...... factor in the vote to stop the project." wq$(6)=" The Alaskan pipeline finally received ...... in 1973, when the government said it could go ahead." uq$(7)=" To make sure there are no technological failures, we must ...... the pipeline 24 hours a day." Kq$(8)=" Out in Prudhoe Bay the ...... of men to women is 7 to 1." pq$(9 )=" To make good profits an oil company must have its own ..... of oil, as well as a refinery. " gq$(10 )=" The pipeline was delayed by the court ...... brought by the environmental groups." L answers V 7550~ `d=110 jd$:a$(d)=d$ td ~v"appointment","itinerary","recognition","resources","decisive","approval","monitor","ratio","reserves","proceedings" @operation loop Jf=110 T":4,0;"WORD ";f c57,0;"********************************" d612 ,0;"********************************" f*8,0;2;7;q$(f) r 9800H& w'o$=" " |17,0;o$;18,0;o$;19,0;o$;20,0;"x=exit Now write the word.... ":r$(1):20,0;" " }%r$(1,1)=" "8060| ~fuzz=0 Ur$(1,1)<97ar$(1,1)=(r$(1,1)+32 )  9800H& Nr$(1,1)="x"r$(1,2)=" "line=7000X:9200# 3g=120:a$(f,g)=" "length=g-1 a$(f,g)=" "8100 g r$(1)=a$(f)8200 r$(1)a$(f)8300l *count=count+1:score=score+1 <0.2~L,15:0.2~L,15:0.2~L,15 14,4;"Well done! That's right! ";15,4;"The word is - ";17,13 ;7;2;a$(f,1length)  6 line=7000X:9750& & 8400 l\1,-15:14,4;"Sorry! That's not the word"'" I was looking for." qcount=count+1 v<j=1length:r$(1,j)=a$(f,j)fuzz=fuzz+1 xj zfuzz=08316| {r$(1,1)=a$(f,1)fuzz*100d/length80P17,4;"But it's nearly right!";18,4;"You got ";fuzz;" letters right -";19,4;"check your spelling" |^0,0;7;2;"SCORE = ";score;" out of ";count;" attempts":8600! f !:10 ,0;"That is the end of Wordquiz.";14,0;"Your final score is ";2;7;score:9900& !4 9200# ! ===help=== !/"a=answer h=help ENTER=repeat";y$ !i14,0;" ";15,0;" " !i16,0;" ";17,0;" " !i18,0;" ";19,0;" " !y$=""8060| !xy$="a"14,4;"The word is- ";7;2;a$(f,1length);0;6;" ":9900& !ey$="h"14,4;"The first letter is ";1;a$(f,1);0;"....":8060| ! #(*********************** #)hueber utilities #************************ #+line=0 #,2:2:7 #:unit welcome menu #********************** #<4,6;1;"WELCOME TO UNIT 10";0 #*8,6;"In this unit you can:" #+12 ,6;"1...test your grammar" #(13 ,6;"2...do a word quiz" #/14,6;"3...do a reading exercise" #'15,6;"4...follow a maze" # 9800H& #59850z&:y$"1"y$"2"y$"3"y$"4"9150# #y$="1"20 #y$="2"7000X #y$="3"3000 #y$="4"5000 #*********************** # endpanel #*********************** #2:2:7 # #64,6;1;"THAT'S THE END!";0 #!8,6;"Now you can:" $012 ,6;"1...do this activity again" $ /13 ,6;"2...choose a new activity" $*14,6;"3...start a new unit" $*15,6;"4...stop the program" $ 9800H& $ 9850z& $")y$"1"y$"2"y$"3"y$"4"9245$ $,put if jumps here $1y$="1"line $2y$="2"9100# $3y$="3"9280@$ $6uy$="4":8,8;"Goodbye!":19,0;"You can start again by pressing"'"R and then ENTER" $;y$="4"j$:j$="r" $<y$="4"9275;$ $@new loading procedure $By$"3"9100# $D,:9800H&:"Are you sure? y/n ";y$ $Ey$="n"9200# $F^:8,0;"Which unit do you want to work"'"with?"'''"Give the number of the unit:" $I 9800H& $J"unit number? ";y$ $K y$=""9290J$ $Ly$>10 9290J$ $O'y$>579ůy$<4919290J$ $TD:8,0;"You have chosen Unit ";y$;''"Is this correct?" $Yu$="unit"+y$ $] 9800H& $^ "y/n?";y$ $cy$="n"9286F$ $h]:8,0;"Now start to play the tape";10 ,0;"and press ENTER" $my$:y$""9335w$ $r\17,0;1;"Loading ";u$;19,0;"DO NOT STOP THE TAPE";0 $wu$:9000(# %R0,0;7;2;"SCORE = ";score;" out of ";count;" attempts" %6:0 %+"ENTER=try again n=new questn";y$ %y$""y$"n"9700% % &R0,0;7;2;"SCORE = ";score;" out of ";count;" attempts" &6:0 &+"x=exit ENTER=next question ";y$ & y$"x"y$""9750& &%y$="x"9200# &* &M$0,0:255,0 &R &\ &z%"Choose a number + ENTER ";y$ & & 9800H& &""Press ENTER to continue";y$ &y$""9900& & , "cloze test  Mike Carrier 11/82 "cloze test  Mike Carrier 11/82 coroun Please make an ...... for me to see the sales director on Thursday. A travel plan, listing all the places and times on the trip, is called an ...... Griffiths deserves more ...... for the work he has done in promoting the company. Coal and oil are now the biggest mineral ...... in Alaska. The huge cost of building a new city was the ...... factor in the vote to stop the project. The Alaskan pipeline finally received ...... in 1973, when the government said it could go ahead. To make sure there are no technological failures, we must ...... the pipeline 24 hours a day. Out in Prudhoe Bay the ...... of men to women is 7 to 1. To make good profits an oil company must have its own ..... of oil, as well as a refinery. The pipeline was delayed by the court ...... brought by the environmental groups.  appointment itinerary recognition resources decisive approval monitor ratio reserves proceedings x `D proceedings JO uzinXYyY