IDENTIKIT l52999:10 ,0;"Loading time approx 4 mins":100d::"":0:0:14,0:"":14,0:"" '0:"IDENTIKIT"1:"logo" ;logo @l@88@88D888B@BDTD @0p`08p` 8<D<DT D8B@BDTD @0p`08p pp<D<DT D< < <8 (< <0p`8p888x>D DDDD<DD DD ::`p?p999999999999??8;;;;;;;;;;;;0 4`@@ 'x@@  ` 888888888888C"$p( @@?|??88888==88==8p p 0  0`8888<<<<<<<<8p 88889999999900 @@@@@@@0 0::::::::::::  >A   888888888?0@2 @  888888888 ``??::::::::: @@  ? ?  @@::::::::: ?p?8::  `p? @0999999999999.???????8;;;;;;;;;;;;<|?|?@ ::::::::::::??::::::::::::? @?::::::::>::??@ 999999999999???8;;;;;;;;;;;; p>@  `@` 0  +Hp^SHpȤ 888888888888?"$A"""============p ?  @ 8888<<<<<<<<?888899999999?@@@?::::::::::::>A  888888888 2  888888888 0<>???:::::::::@@  ?? @@:::::::::8ppppx8>?<<<<<<<<< @|@ r |0 @@888888888'H@ ? p  @@888888888 <:::::::::> B<@@999999999 !BD@ HH??????? @<<<<<<<<<::::::::::::`$@N' 888888888888??::::::::::::@@@@@@ @@ x@  ::::::::::::@9999999:999::888888888888?PQRSTUVW P Q R S T U V W@P@Q@R@S@T@U@V@W?@@@?::::::::::::@::::::::::::`$@N' RJ<|BB|DB<@<B<B0IDENTIKIT aDNDCcD7:0:7:  52999 9000(#:9500% *21,0;1;"please wait" a=60<:b=75K const=b/a n=-60<:n1=60< x=nn1.5 y=((a-x)*(a+x)) y1=(y*const)+90Z y2=(-y*const)+90Z  x+176,y1:x+176,y2 x "21,0;" " Z 7000X d 1500 n8,1;">" s i=8 x=""120x _=" "i,1;" ":i=i+2:i16.009ztj,0:i,1;">":240 $=13 1000:240 ="1"150 $="2"a$=:1000:240 $="3"a$=:1000:240 " "240 /i=8:.009ztj,0:i,1;">" ""240 120x :end of prog 2b=020:b,0;" ":b 521,0;" "  position=i 'a$="2"a$="":8000@:10808 'a$="3"a$="":85004!:10808 $subroutine=2000*(position=8)+3000 *(position=10 )+4000*(position=12 )+5000*(position=14)+6000p*(position=16) . subroutine =30,12 ;" ";1,12 ;" " B2b=020:b,0;" ":b L521,0;" " ` 1500 jposition,1;">" ~ i=position  .23675{\,156:23676|\,224 %8,0;" mouth" 10 ,0;" eyes" #12 ,0;" ears" 14,0;" nose" 16,0;" hair" %s=024:57000:s z21,0;1;"1";0;" features ";1;"2";0;" move ";1;"3";0;" save/load" "T0,1;"Press ";2;"SPACE";1,1;0;"for feature" ,R3,1;"Press ";2;"ENTER";4,1;0;"to choose" 6 mouth=58152( p=3194 udghigh=(mouth/256)  "udglow=mouth-(udghigh*256) )23675{\,udglow:23676|\,udghigh  1p,0;"";p+1,0;"" *mouth=mouth+108l 4p >%s=031:57000:s Jmouth=58152( W53295/ f 7500L zmouth=58152(*(i=4)+58260*(i=8)+58368*(i=12 )+58476l*(i=16)+58584*(i=20) udghigh=(mouth/256) "udglow=mouth-(udghigh*256) )23675{\,udglow:23676|\,udghigh 915,19;"";16,19;"" 53000 4smmouth=mouth+2890J :frmouth=mouth+3430f )23296[,udglow:23297[,udghigh $Budghigh=(smmouth/256):udglow=smmouth-(udghigh*256) .)23315[,udglow:23316[,udghigh 8Budghigh=(frmouth/256):udglow=frmouth-(udghigh*256) B)23317[,udglow:23318[,udghigh 0  e=17236 eye=58692D p=3194 :udghigh=(eye/256):udglow=eye-(udghigh*256) )23675{\,udglow:23676|\,udghigh Gp,0;"";p+1,0;"";p+2,0;"" eye=eye+108l p:eye=41540D %p=031:57000:p 3100 )p=3194:cnt=0 &k=02:j=47 G(22528X+(32 *(p+k))+j),(eye+cnt+96`):cnt=cnt+1 j:k eye=eye+108l:p 53325M & 7500L 0eye=58692D*(i=4)+58800*(i=8)+58908*(i=12 )+59016*(i=16)+59124*(i=20) 5Ue=17lefteye=eye:altlefteye=lefteye+3430f :point to alternate left eye 7;e=23righteye=eye:altrighteye=righteye+3430f D:udghigh=(eye/256):udglow=eye-(udghigh*256) N)23675{\,udglow:23676|\,udghigh X77,e;"";8,e;"";9 ,e;"" Y6(53031'*(e=17)+53062F*(e=23)) ]v0,0;" ";1,0;" ":r=321:r,2;" ":r b e:2 eyes Budghigh=(lefteye/256):udglow=lefteye-(udghigh*256) )23298[,udglow:23299[,udghigh Dudghigh=(righteye/256):udglow=righteye-(udghigh*256) )23300[,udglow:23301[,udghigh Hudghigh=(altlefteye/256):udglow=altlefteye-(udghigh*256) )23319[,udglow:23320[,udghigh Judghigh=(altrighteye/256 ):udglow=altrighteye-(udghigh*256) )23321[,udglow:23322[,udghigh  e=12 2917 7ear=59232`*(e=12 )+59637*(e=29) p=3194 :udghigh=(ear/256):udglow=ear-(udghigh*256) )23675{\,udglow:23676|\,udghigh Dp,0;"";p+1,0;"";p+2,0;"" ear=ear+81Q p %s=031:57000:s 6(53385*(e=12 )+53415*(e=29))  7500L )7ear=59232`*(e=12 )+59637*(e=29) ,ear=ear*(i=4)+(ear+81Q)*(i=8)+(ear+162)*(i=12 )+(ear+243)*(i=16)+(ear+324D)*(i=20) @udghigh=(ear/256) J udglow=ear-(udghigh*256) T)23675{\,udglow:23676|\,udghigh ^58,e;"";9 ,e;"";10 ,e;"" c:((53124*(e=12 )+(53155*(e=29)))) lLe=12 leftear=ear:altleftear=leftear+3430f :point to alt value n;e=29rightear=ear:altrightear=rightear+3430f rt0,0;" ";1,0;" ":r=321:r,2;" ":r |e Budghigh=(leftear/256):udglow=leftear-(udghigh*256) )23302[,udglow:23303[,udghigh Dudghigh=(rightear/256):udglow=rightear-(udghigh*256) )23304[,udglow:23305 [,udghigh Hudghigh=(altleftear/256):udglow=altleftear-(udghigh*256) )23323[,udglow:23324[,udghigh Judghigh=(altrightear/256):udglow=altrightear-(udghigh*256) )23325[,udglow:23326[,udghigh  nose=60042 p=3194 udghigh=(nose/256) !udglow=nose-(udghigh*256) )23675{\,udglow:23676|\,udghigh Gp,0;"";p+1,0;"";p+2,0;"" nose=nose+108l p %s=031:57000:s nose=60042 53355k 7500L:input nose=60042*(i=4)+60150*(i=8)+60258b*(i=12 )+60366*(i=16)+60474:*(i=20) <udghigh=(nose/256):udglow=nose-(udghigh*256) )23675{\,udglow:23676|\,udghigh  O11 ,20;"";12 ,20;"";13 ,20;"" 53093e F0altnose=nose+3430f :altnose=nose+constant x)23306 [,udglow:23307 [,udghigh Budghigh=(altnose/256):udglow=altnose-(udghigh*256) )23327[,udglow:23328 [,udghigh | hair=60582 p=3194 udghigh=(hair/256) !udglow=hair-(udghigh*256) )23675{\,udglow:23676|\,udghigh Dp,0;"";p+1,0;"";p+2,0;"" hair=hair+81Q p %s=031:57000:s hair=60582 8 7500L Lhair=60582*(i=4)+60663*(i=8)+60744H*(i=12 )+60825*(i=16)+60906*(i=20) `udghigh=(hair/256) j!udglow=hair-(udghigh*256) t)23675{\,udglow:23676|\,udghigh 0,20;"";1,19;"";2,17;"";3,17;"";4,16;"";5,15;"";5,25;""  0althair=hair+3029 :althair=hair+constant <)23308 [,udglow:23309 [,udghigh FBudghigh=(althair/256):udglow=althair-(udghigh*256) P)23329![,udglow:23330"[,udghigh d b 7030v l&m=5700057028:a:m,a:m v17,20,0,33!,0,64@,14,192,6,12 ,203,30,35#,16,251,25,13 ,32 ,245,17,1,0,33!,250,6,205,181,3,201  Qs0,0;2;"SPACE";0;" for feature";1,0;2;"ENTER";0;" to choose" V4,2;">" ` i=4 ~=""7550~ `=" "i,2;" ":i=i+4:i20.009ztj,0:i,2;">":7620 i>207590 =13 7800x " "7620 /i=4:.009ztj,0:i,2;">" ""7620  7550~ x ^ 9400$ |0,0;">"  i=0 =""8090 `=" "i,0;" ":i=i+3:i21.009ztj,0:i,0;">":8160 i>218140 =13 i,0;" ":8200 *(i=0)+8250: *(i=3)+8300l *(i=6)+8350 *(i=9 )+8400 *(i=12 )+8420 *(i=15)+8440 *(i=18)+8460 !*(i=21):i,0;">":8160 ="1"8190 " "8160 /i=0:.009ztj,0:i,0;">" ""8160  8090  "23316[=082499 q=13 423675{\,23296[:23676|\,23297[ Q15,19;"";16,19;"":53000:502 423675{\,23315[:23676|\,23316[ Q15,19;"";16,19;"":53000:502 q 9 >"23318[=08299k ?q=13 @423675{\,23296[:23676|\,23297[ AQ15,19;"";16,19;"":53000:502 D423675{\,23317[:23676|\,23318[ FQ15,19;"";16,19;"":53000:502 Hq k p"23320[=08349 qq=13 r423675{\,23298[:23676|\,23299[ sd7,17;"";8,17;"";9 ,17;"":53031':502 v423675{\,23319[:23676|\,23320[ xd7,17;"";8,17;"";9 ,17;"":53031':502 zq ~423675{\,23298[:23676|\,23299[ d7,17;"";8,17;"";9 ,17;"":53031':502  "23322[=08399 q=13 423675{\,23300[:23676|\,23301[ d7,23;"";8,23;"";9 ,23;"":53062F:502 423675{\,23321[:23676|\,23322[ d7,23;"";8,23;"";9 ,23;"":53062F:502 q 423675{\,23300[:23676|\,23301[ d7,23;"";8,23;"";9 ,23;"":53062F:502  "23324[=08419 q=13 423675{\,23302[:23676|\,23303[ b8,12 ;"";9 ,12 ;"";10 ,12 ;"":53124:502 423675{\,23323[:23676|\,23324[ b8,12 ;"";9 ,12 ;"";10 ,12 ;"":53124:502 q 423675{\,23302[:23676|\,23303[ b8,12 ;"";9 ,12 ;"";10 ,12 ;"":53124:502  "23326[=08439 q=13 423675{\,23304[:23676|\,23305 [ b8,29;"";9 ,29;"";10 ,29;"":53155:502 423675{\,23325[:23676|\,23326[ b8,29;"";9 ,29;"";10 ,29;"":53155:502 q 423675{\,23304[:23676|\,23305 [ b8,29;"";9 ,29;"";10 ,29;"":53155:502  "23328 [=08459 ! q=13 423675{\,23306 [:23676|\,23307 [ g11 ,20;"";12 ,20;"";13 ,20;"":53093e:502 !423675{\,23327[:23676|\,23328 [ !g11 ,20;"";12 ,20;"";13 ,20;"":53093e:502 !q !423675{\,23306 [:23676|\,23307 [ ! g11 ,20;"";12 ,20;"";13 ,20;"":53093e:502 !  !&21,17;" " !T8200 :8440 :8300l :8350 :8400 :8420 :8250: !*621,17;1;"1";0;" features" !3 !>36,0;" save";8,0;" load" !H%s=031:57000:s !M521,0;1;"1";0;" features" !R6,2;">" !\ i=6 !p=""8560p! !z_=" "i,2;" ":i=i+2:i8.009ztj,0:i,2;">":8630! !X=13 i,2;" ":8700!*(i=6)+8800`"*(i=8):8670! !="1"8670! !" "8630! !/i=6:.009ztj,0:i,2;">" !""8630! ! 8560p! ! "_6,2;" ";8,2;" ";21,0;" " "$4,1;"Put a blank";5,1;"tape into";6,1;"the";7,1;"cassette";8,1;"recorder";9 ,1;"and set";10 ,1;"to record." ")14,1;"Then press ";2;15,1;"ENTER";0;" twice";16,1;"to start";17,1;"recording." ".K=13 p=021:p,0;" ":p:87608" "3 8750." "8"face"16384@,6950& "=*20,1;"STOP TAPE":100d "B "`load "tV6,2;" ";8,2;" ";21,0;" " "2,1;"Put the";3,1;"cassette";4,1;"containing";5,1;"the face";6,1;"into the";7,1;"cassette";8,1;"recorder";9 ,1;"and set";10 ,1;"to play." "i15,1;"Then press";16,1;2;"ENTER ";0;17,1;"to load" "K=13 p=021:p,0;" ":p:8860" " 8850" ""face"16384@ ",20,1;"STOP TAPE":100d # #*7:0:7: #+0,6;2;"";1,6;"";2,6;"";0,24;"";1,24;"";2,24;"" #,X0,7;2;"";2,7;"" #-/1,7;1;"I D E N T I K I T" #.!57999=99c0 #/57999,99c #<4,0;"There are 3 sections to this program. The main section is ";2;" features";0;", where you can choose which features you want to appear on the face." #A12 ,0;"To make your selection in any ofthe 3 sections, press ";1;"SPACE";0;" to move the arrow to the next choice. When you reach the one you want, press ";1;"ENTER";0;" to select this." #CU21,0;2;1;"Press ENTER":i=130:i:0: #Fe2,0;"The only time you need to use other keys is when you move to another section." #H|6,0;"Here you will press ";1;"1";0;", ";1;"2";0;", or ";1;"3";0;" " #I@7,0;"depending on which section you are in." #JR10 ,0;"In section 2 you can make the eyes blink, ears wiggle etc." #K14,0;"If you want to save a face on toblank tape, or load one back, then select option 3 and follow instructions." #NJ21,0;1;"Press ENTER":i=130:i:0 #P 0 $"&7:7:0:0: $T $-23675{\,502:23676|\,225 $0,0;" smile" $3,0;" frown" $46,0;" blink";7,3;"eye" $59 ,0;" blink";10 ,3;"eye" $712 ,0;" wiggle";13 ,3;"ear" $715,0;" wiggle";16,3;"ear" $818,0;" wiggle";19,3;"nose" %21,3;"move all" % $s=08:57000:s %621,17;1;"1";0;" features" % %&Da$="":used in main loop and return sub to call move and save/load % C#