LEARNING48D2B?DAVC  1982 See booklet for notes  Use 50 not RUN 2:"Press number!"''"1 Table tester"'"2 Number guess"'"3 Word guess"'"4 Reflex timer"'"5 Hangperson"'"6 Train race"'"7 Bar chart"'"8 'LOGO'"'"9 Projectile"'"0 Graph" <a$:a$<"0"a$>"9"60< FAa=a$:(500a=0)+(a*1000a0):502 0scale=650:5:5:1: +"How many points?"'"0 to",a:a=0  x(a):y(a) u'"For each point ..."'" type x & ";2;"ENTER";1'" and y & ";2;"ENTER";1'' Jb=1a:4;"Point ";b;" x,y: ";:x(b),y(b):x(b);" ";y(b):b &.:b=1a:;b;" x=";x(b);" y=";y(b):b 0'"Are there any errors (y or n)? ";y$ :Vy$="y""Which point?",b:"Point ";b;" x,y: ";:x(b),y(b):x(b);" ";y(b):5600 Dy$"n"5600 Nscale X&0:2:6:0: bE21,0;"O";32 -mx;mx;0,0;my lx(1),y(1) vEb=1a-1:x(b+1)-x(b),1+y(b+1)-y(b):b 0:510 +mx=0:b=1a:x(b)>mxmx=x(b) b +my=0:b=1a:y(b)>mymy=y(b) b @b=1a:x(b)=x(b)*250/mx:y(b)=y(b)*170/my:b  1000:1300 s$(30):m$=""+s$+"" 1:1:6  v1:1,9 ;m$;1,14;"MENU";2,14;"====";1,21;m$:0 $''" 1. Show table and test."'''" 2. Test, no show."'''" 3. Test on tables 2 - 5."'''" 4. Test on tables 6 - 12."'''" 5. Test on tables 2 - 12." .a=1200:a 81''"Enter number of your choice...."'"or 0 to " B=""1090B Ll=-480:l=0 V!l<1l>51090B `Ff1=l=1:f2=l=2:f3=l=3:f4=l=4:f5=l=5 j;f1f2"Which table?",t:t<2t>12 1130j t:f11400x ~#score=0:q=110 s=1+(*12 ) f3t=2+(*4) f4t=6+(*7) f5t=2+(*11 ) 5''"Question ";q'"What is ";s;" times ";t;"?",:r:r $r=s*t,"Yes":score=score+1 r=s*t,"No" q @'''"Your SCORE is ";score:a=11000:a:1040 a$="a":1350F a$="b":1350F (a$="c":1350F < F"a=07:b:a$+a,b:a P ZQ255,170,170,170,170,170,128,193 dQ247,247,247,247,247,247,247,255 nQ255,247,231,231,231,231,231,231 x1a=112 :8;:a<10 " "; a;" times ";t;" is ";a*t:a  1:2:7 rec=100d:lim=99c |:1,9 ;"NUMBER GUESS";9 ;"============";10 ,0;"Please type your name + ENTER."'' n$ ''"Thank-you, ";n$;"."  "Level 1, 2, or 3? ";l !l<1l>32060   a=1200:a *:guess=0 4z=(*2):x=(l=1)*(1+(*lim))+(l=2)*(1+((*lim*10 ))/10 )+(l=3)*(-(z>.5)+(z.5))*(1+((*lim*10 ))/10 ) >5'"I am thinking of a number up to ";lim+1;"." H '"Please enter your guess...." Ry:y:guess=guess+1 \#y=x"RIGHT!!!":2180 fyx"Too high..." z 2120H '''"Got it in ";guess;"!" 3guess" :)d$(b)>x$(b)6,b+2;"<" D<d$(b)=x$(b)6,b+2;x$(b):check=check+1 N+b:200:12 ,0;c$;c$''c$ Xcheck34050  l=0 B:tb=1000:sum=0:4000+l*100d:4010 @a=110 ::''" TEST 1  "',"GO ";a  502 <''''''"Press ENTER key"'',"when the screen"',"blanks!" "rndel , t0=t(): 6tmeas @a: h;a=110 ::''" TEST 2 "',"GO ";a r 502 |:''''''"Press ENTER key"'',"when the sound"',"stops!" rndel  t0=t() tmeas a: Oa=110 :c=0::''" TEST 3  "',"GO ";a  502 [''''''"Press ENTER key"'',"when the screen"',"clears..."',"after the sound"',"stops!" -rndel:c=1:rndel:c=0:rndel:  t0=t() tmeas a: 0b=1(10 *(l=1)+10 *c)+(*25)*(1+(10 l=1))*(1+(10 c)):l>1c.01z# =,10 :b: b=""4450b l)t1=t():time=(t1-t0)/502+.2~L v*sum=sum+time:tm=sum/a:time90Zf=1: &a=1̱u$:g$=u$(a)f=1: (a:u$=u$+g$: Pa$="a":5300 Za$="b":5300 da$="c":5300 na$="d":5300 xa$="e":5300 a$="f":5300 a$="g":5300 a$="h":5300  "a=07:b:a$+a,b:a  .f=0:b=1l:g$=q$(b)5400 b:f5450J  4ok=ok+1:f=1:10 ,b+1;g$: J)no=no+1:5800+no*10 : I13 ,11 ,13 ,11 ,13 ,11 ,13 ,11 Q176,208,176,208,176,208,176,208 A0,0,1,3,3,3,7,7 O0,170,255,221,136,255,247,247 O0,128,192,224,224,224,240,240 &A7,7,3,1,1,1,0,0 0Q227,255,255,193,193,255,255,255 :O240,240,224,192,192,192,128,0 DB"STRENGTH","WEAKNESS","PROGRAM","HANGPERSON","SINCLAIR","BYEBYE" /c=2028:21,c;" ":c: 7c=201-1:c,24;" ":c: 7c=2320-1:1,c;" ":c: *c=210 :c,21;":":c: -c=1820:c,20;" ":c: Sc=1517:c,19;" ":c:14,19;" ": P1:11 ,20;"";20;"";21;" ":0: 817,4;"HANGED!";10 ,2;q$: z6000p:62008 0:7:0: _e$(32 ):a1=0:a2=0:6,29;"YOU";12 ,29;"ME" 5a$,b$:0,0;e$;0,0;a$;:d$ 3d$=b$a1=a1+3:a=a1:b=6:6150 4d$b$a2=a2+3:a=a2:b=12 :6150 %a1<23a2<236040 ,20,2;:a2>23"My"; a1>23"Your"; " train won." @z=1500:z:"ENTER to restart; 0 to";a$:a$="0"  6010z 1,b:b,a+4;"" (b+1,a;" ";a+3;"" z=1150:z $ 8a$="a":6300 Ba$="b":6300 La$="c":6300 Va$="d":6300 `a$="e":6300 ja$="f":6300 ta$="g":6300 ~ "a=07:b:a$+a,b:a  K0,255,65A,73I,77M,75K,127,127 F0,0,0,0,0,24,255,255 J0,28,28,28,28,28,254,254 L127,127,127,127,255,13 ,7,2 N255,255,255,255,255,155,14,4 M254,254,254,254,255,546,28,8 L16,168,84T,170,84T,120x,20,40( "What is the capital of France?","PARIS","What is the square of 9?","81","When was the battle of Hastings?","1066","Is a tortoise a mammal?","NO" "Which is the best micro?","SPECTRUM","Who wrote 'Hamlet'?","SHAKESPEARE","What is H2O?","WATER","How many cents in a dollar?","100" b7000X:7200  l5:5:0: v*"What is the title of the graph?",t$ K"How many values are there?"'"0 to",n$:7250R:flag7040 n=n$:n=0 Aa(n):b=1n:"Give value number ";b;" ";:a(b):a(b):b 502:1: !c=120:b=1n a(b)<21-c" "; a(b)<21-c""; b::c #0:d=1n:r$(d);:d 8d=120:d-1,n;r$((21-d)):d E1:2:5,2;t$:0:0:7020l  %a=07:b:"a"+a,b:a: *M170,85U,170,85U,170,85U,170,85U RLflag=0:a=1̱n$:n$(a)<480ůn$(a)>579flag=1 \a: r$(x$U)=x$(x$) J8000@:8150 T!p$(20,7):b=0 ^0:7:2: h'';1;" ENTER COMMAND NUMBER ";0;0;''''',"1 LOAD"''',"2 LIST"''',"3 RUN"''',"4 STOP"''"0 to finish" r=""8050r |0c=-480:c<0c>48050r rc=0:plot=8600!:move=8700!:turn=8800`":draw=8900":err=8250: :stop=8280X 8000@+c*100d 0:8030^ 6::0;"Load LOGO program!":n=120:2:10 ;n;:p$(n):1:" ";p$(n):p$(n,14)="stop"n=20 n: a$="a":8160 a$="b":8160 a$="c":8160 a$="d":8160 a$="e":8160  $a=07:b:a$+a,b:a: P255,255,255,191,63?,191,255,255 Q247,227,255,255,255,255,255,255 Q255,255,255,253,252,253,255,255 Q255,255,255,255,255,255,227,247 C0,0,0,24,24,0,0,0 1::7;"Your LOGO program:":6:n=120:10 ;n;" ";p$(n):p$(n,14)="stop"n=20 n: :>0:1:10 ,3;"MISTAKE in line ";n D0:0:8030^ X[2:21,0;"STOP met. Restart with ENTER...":502:0: l2:5:1:b=0::x=15:y=9 :plot:n=120:p$(n,14)="stop"n=21:8380 va$=p$(n,1) a$="m"move a$="t"turn a$="d"draw a$="w"move a$="s"stop )a$"m"a$"t"a$"d"a$"w"a$"s"err n: stop: !y,x;:.1}L,15 !Hu=0:r=0:d=0:l=0:b>270b=b-360h !b=0u=1:"" !b=90Zr=1:"" !b=180d=1:"" !b=270l=1:"" !3b0b90Zb180b270err ! 0: !s=p$(n,5) "a=1s:y,x;" " " uy=y-1:y=1a=s "!rx=x+1:x=30a=s "$!dy=y+1:y=20a=s ". lx=x-1:x=1a=s "8 plot:a "B "`s=p$(n,5) "jGflag=1:s=90Zs=180s=270flag=0:b=b+s "t flagerr "~plot " "s=p$(n,5) " a=1s:0:y,x;"" " uy=y-1:y=1a=s "!rx=x+1:x=30a=s "!dy=y+1:y=20a=s " lx=x-1:x=1a=s # plot:a # 1: #29000(#:9200# #<2:6: #Fmplace=9300T$:crash=9450$:a=(*5):b=25+(*5):c=1+*9 :d=0 #Pd=d+1:place #ZK1:1,1;"Angle ?":i$:9400$:flag9050Z# #d4ang=i$:1,7;ang:ang=ang*/180 #nB3,1;"Speed ?":i$:9400$:flag9070n# #xv=i$:3,7;v #Eflag=0:x=02524:x1=x+8*(a+1) #5y=8+x*ang-x^2/(v^2*ang^2) #$0:x1,y:.05|L,y/4 #;x1>250y>170y4ũ(x1+2,y)crash # flagx #:d<10 ƽ(x1-(b*8+4))>69040P# #Q1:d=10 10 ,12 ;1;"USELESS!":9170# #.10 ,11 ;1;"GOOD SHOT!" #0:'',d;" fired..." #:100d:'''"Have another go?":0:="n"Ŧ="N" #:9030F# #a$="a":9250"$ #a$="b":9250"$ $a$="c":9250"$ $a$="d":9250"$ $ $"$a=07:b:a$+a,b:a: $,J3,6,60<,40(,104h,60<,126~,255 $6K36$,90Z,165,90Z,60<,155,24,60< $@L24,36$,66B,153,153,66B,36$,127 $JM28,42*,85U,170,127,170,85U,255 $T!2:21,a;"";b;"" $^<e=1c:22-e,8;:f=1c:"";:f:e $h $)flag=0:i$=0flag=1 $Eflagi=1̱i$:i$(i)<480ůi$(i)>579flag=1 $i: $flag=1 $>x1<24821-y/8,x1/8-(y<8);"" $7h=16:.2~L,-40(:h:100d: % '."learning48"502:"learning48"502 eHpSavc82  calx;Œ0YnlacT$ras$^$^$la$nQ}v333#y333$# orXCOMPUTERlhecgI20 Б ( ((((((((2<F B100D100nde0meabrinT0 QSTRENGTHU Gu(ôSlSxim3333y"A2eicuesRqwertecNa