pic48k x{ 28462.o 6:0: &5,12 ;1;"PICTURE" -z=10 20.5:.1}L,z:z +15,10 ;7;"Please Wait" 0:0,0;" " ""28474:o ""28500To A""23300[,250 K|21,9 ;1;5;"PRESS ANY KEY";19,9 ;"STOP THE TAPE";20,14;"then":4e4@ Mobjekt=28500To P.23561 \,255:23562 \,255 U236099\,502 Z 900 \0:7::10 ,1;"How many objects do you want to try ? 1 to 18":x$ x$=""900 h=1̱x$:t$=x$(hh) *(t$<480)(t$>579)900 h  amt=x$ %amt<1amt>18900 a$(20,11 )  5000 z=1amt a$(z) z  a=1amt a>amt5000 wrongs=0:guess=0 %v=28669o+(a-1)*512 (23675{\,v-256*(v/256) 23676|\,(v/256)  284684o,1 28463/o,0  284640o,175 *&0:5:4:0: /.k$(256):6;14,0;k$ 45:cnt=-1 6cj=16384@18400G32 :i=07:cnt=cnt+1:(j+i),(objekt+cnt):i:j 8j=22528X22752X32 :.1}L,0:i=07:cnt=cnt+1:(j+i),(objekt+cnt):i:j:objekt=objekt+576@ ><9 ,5;7;1;"What is this object ?" H*23450[:23450[:23450[ Iguess=guess+1 J0"The object is a ";i$:i$>9 2150f Ki$=""2122J R0:7 p.i$=a$(a,1̰a$(a,11 ))2270 @15,14;0;6;1;1;"WRONG" G6::7;"The object is not a":16-(i$)/2;i$ ii$(1)="a"i$(1)="e"i$(1)="i"i$(1)="o"i$(1)="u"17,26;"n" +:2;"Do you want to guess again ?" _7;"Enter ";3;1;"'yes'";0;0;" or ";3;1;"'no'" wrongs=wrongs+1 233506[ j$  j$="no"a :0:5:4:14,0;6;k$ 5:28474:o c=1̰a$(a,11 ) 13 ,10 +c;"-" c /wrongs=a$(a,11 )wrongs=wrongs-1  11 ,10 ;"This is a" $n=25:n1=7:6000p c=1wrongs 12 ,10 +c;a$(a,c) c  2110 E6:15,12 ;0;1;1;"WELL DONE" J:2;"You guessed the object was a":17-((i$)/2);i$ 13 ;"in ";guess;" try"; guess-1>0"s" %n=30:n1=17:6000p $z=13:23400h[:z  502 &q=15:23300[:q  5 x=1252 .28474:o 8x B$z=13:23500[:z La "kettle 6","lorry 5","bike 4","key 3","lamp 4","boat 4","triangle 8","train 5","mug 3","record 6","clock 5","pen 3" U"sun 3","bottle 6","wheel 5","boot 4","moon 4","scissors 8"  25: A10 ,1;"Do you want to try again ? yes or no" x$:x$=""5105 x$(1)="y"76L x$(1)="n":5110  5105 +23561 \,35#:23562 \,5 d14,0;"type LOAD """" and press ENTER , then press play on tape for next program" o  bjekToX18T8m kettle 6lorry 5bike 4key 3lamp 4boat 4triangle 8train 5mug 3record 6clock 5pen 3sun 3bottle 6wheel 5boot 4moon 4scissors 8 ronguesvo n DG 66(scroll :o!@@ # Mudg's48 .Tox.`0xp 0 00`3?0`?7??`8>~>?`p0>?`08?`88|p`((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((@`` c0((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((0̌@0 @B@0  @(B@@@(B@@P B0 @@@H B 00  @$B0L @$ d# @D ((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((?8?8?<?><<?><?8??8?((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((0 0 `` 0 0(((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((( @@``  0000  ``@@((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((ppppxxxx888<<<<<<?888?xxxppp((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((?<~`7<`7<0<``70<<50~<5 0~<c `7<8((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((|`((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((?~0?@?0??(|0 H0 ~BH??<????((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((  <<<< ? (B0BB@@@0 B @|@<  >@ @B@@@B 0B >~@@  = <0?  ((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((@? x?@ @@@0@@((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((@@  ??@((((((((((((((((((....(((......((......((......(((....((((((((((# A @@@@/' .....................(....////....////....////....////....////..@ '`#@a ''@@  @?@G'@?@@0@' ? '' !? '' @ O0? pG '' @Gp0? O ''? !(((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((( @0   `x 0`   ((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((???((((((((())))((())))(((()))((((()))((((())))(((())))((((())))(((  !H0@ @`F @@@1`@@@@` x ,0`@ @@@   08p@ @ `@&`` ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))sound [e:H\???B˧Cl:H\???B˧Cc2:H\???B˧C[:H\???B˧C:H\???B˧CO