\8P? =ݛ68(:\68W P PMM6M=8\>v>??U*T8888~~??||x?2 tea. Should you go? 1=Yes 2=No":2060  j 1970 t*="1"c=0:1580,:1170 ~*="2"c=1:1580,:1170  1140t c=3::1580, >n=120:s=(*20)-20:.05|L,s:n 019,0;a$;" - PC Rainbow says " 3sc=6m$="Excellent.You got them all right" /sc=5m$="Well done. Nearly all right." 3sc=4m$="Remember to say no to strangers." .sc=3m$="Always say no to strangers." 9sc=2M$="Ask your teacher about stranger danger" =SC<2m$="You should never ever speak to strangers." 719,0;m$;21,10 ;"Press ENTER" !0:PRIN=140( 19,0,  =" Grampian Police"'" Crime Prevention Department"  PRIN=6SC=6PRIN<6PRIN =2PRIN=3#0;2;7;1;"Please wait for prize print-out": (ATB=8*(PRIN>3):'TB;a$;" - PC Rainbow says:"'TB;m$ 2D'TB;A$;" Scored ";SC;"/6."'TB;" Say No to strangers " <:TB;" *"'TB;"* Program (C) 1986 Keith Pirie *"'TB;"* Grampian Police *"'TB;"* Adapted:1988 David Wornham *"'TB;"* Flexibase Software *"'TB;"*~*" F::::40( P Zc=3:1580, d[.2~L,25:"Hello. I am PC Rainbow. Please type your name then press ENTER.";a$ n].2~L,25:#0;"Hello ";a$;"."'"Try and answer some questions."'"Press ENTER." x 300,: 1:1:6: z$=" Say to strangers" j2060 :4,0;1;"+        ( " 820,9 ;7;0;" Press any key " ,#1;6;" 1986 Grampian Police"  c:""c=99c:  d:c,d:1480 c.32# =,14,.125},14,.125},14,.125},14,.25~,11 t.125},11 ,.125},11 ,.125},7,.125},7,.125},9 ,.73333,11 c.32# =,14,.125},14,.125},14,.125},14,.25~,11 r.125},11 ,.125},9 ,.125},7,.125},6,.125},4,.73333,2 q.125},4,.125},7,.25~,6,.125},6,.125},9 ,.25~,7 .125},7,.125},11 ,.125},9 ,.03{u\,9 ,.03{u\,9 ,.125},9 ,.125},12 ,.25~,11 c.32# =,14,.125},14,.125},14,.125},14,.25~,11 ".125},11 ,.125},11 ,.125},7,.125},7,.125},9 ,.25~,7,.25~,19,99c ,4:5:0: 6c=01 @n=2119-1 J&n,6;"":n Tn=1816-1 ^$n,9 ;"":n h#16,15;7;"" r#17,15;7;" " |#18,15;7;" " '15,10 ;"  " '14,10 ;" " <c=1c=313 ,10 ;" " 2c=013 ,10 ;" " (12 ,9 ;" " =c=1c=311 ,9 ;" " 3c=011 ,9 ;" " *10 ,8;"  " )9 ,8;" " )8,8;" " )7,8;" " @n=64-1:n,9 ;" ":n Kn=32-1:n,9 ;0;7;"" n %1,8;"" '0,7;"" &'4,9 ;" " 0$5,11 ;"" :"6,12 ;"" D c=3 Nc=0n=0-20-1:.05|L,n:n:#0;5;0;"PC Rainbow is very sad. You got it wrong ";a$;"."'"Press ENTER" Xc=1n=020:.05|L,n:n::#0;"PC Rainbow is happy. You got it right ";a$;"."'"Press ENTER":SC=SC+1 b]0,175:568,0:0,-24:-568,0:0,24 l#0,1;1;"SCORE" v2,3;SC  500:  Cn=09 :n,0;p;" ";n,28;p;" ":n Jn=10 21:n,0;p;" ":n  i0:480,175:168,0:0,-72H:-168,0:0,72H i0:44,,175:176,0:0,-76L:-176,0:0,76L   0,0;:vec=(23637U\+256*23638V\+9 ):z$:vec=23633Q\+256*23634R\:vec,244:vec+1,9 : k >;;!*Q\s#rOF(  *\K\ 88'0 :k\ ͈ ͈ ! ֥_ b>?K6\!;\ˆ &o))) y!(= :k\ ͈ ͈ ! >w$w$=  >w$w$= #C\"\ Y缧:ٰ"2":ڼ::"21","10";ٰ"9";"PRESS A KEY": ("23637"+"256"*"23638"+"6"): 'd1;"csud":1 'k:10 ,6;"Saving 'stranger'":d1;"stranger"9998':d1;"csud""a",152: ri )< |<EB5<<| Dx BDDD8BJDD Dx 3<B8@ 8D < 3~< <8DBBDDD<@@BDD~BDTDD@D BD D BxDD DTB@x D@ !~@DTDDx D@ ~BD@BD!B@DTDDD D(@ <D (@"B@DTDDx D@ @BDB<~~~ "33# <@T 00]\\\;_\:; _===\0` X![!`PP!!00 `uW K SRPHStrangers  1986 Keith Pirie Grampian Police WAdapted 1988 David Wornham Flexibase Software 1115/030688 prin=0::" Strangers - Printer Options"'''"1. No printer"''"2. Stay in 48K mode for"'" Sinclair/Alphacom 32 printer"'' "3. Change 128K to 48K mode for"'" Sinclair/Alphacom 32 printer"''"4. Full width printer, 48K/128K"''"5. Full width, Discovery drive"''"6. Full width printer 128K +3"'''1;"^";0;" press key":.1}L,30:.2~L,25:0:A$=:.2~L,20:A$="$"9999' A$<"1"A$>"6"10  prin=a$ -prin=3:"press G (GOTO) 40 ENTER": #prin=53;"t" c51:N=0::*7:1:7: d51:N=0::*7:1:7: e!c=7:m=0:N=0 g 167 ic;8,10 ;" ";9 ,9 ;"";21;"";10 ,8;"";22;"";11 ,7;"";23;"" k09 ,11 ;0;"";19;"" m110 ,11 ;0;"";19;"" o811 ,9 ;0;"";17;"" q-6;c;1;"" s4;0;"";1;2;"";c;1;" ";1;2;"";4;0;"" u4;0;" ";1;2;"";0;1;"";2;"";4;0;" " w4;0;" ";2;6;;"";0;7;1;"";7;0;1;0;"";0;7;1;"";0;2;6;"";4;0;" " y4;0;" ";0;2;6;"";0;7;1;"";7;0;1;0;"";0;7;1;"";0;2;6;"";4;0;" " {0:4;0;" ";c;0;"";1;1;"COP 123E";0;0;"";1;4;" " }Z0,:18,0;4;0;" " S1;5;0;6,15;1;" ";7,15;" " 19,0;0,, O=2:0:5 !7;20,15;" " 5O:18,7;"";18,22;"" *0;7;20,15;"" 5O:18,7;"";18,22;"" *0;7;19,15;" " 5O:19,7;"";19,22;"" *0;7;19,15;"" 5O:19,7;"";19,22;"" *0;7;18,15;" " ,O:20,7;"";22;"" *0;7;18,15;"" ,O:20,7;"";22;"" R=""N=0N=15:.3,36$:.3,33!:=""N I21,0;7;0; " Press any key for 'Stranger'" =""133 &0:6:6:0: 200 (*5+2) "" Flexibase Software" "  " #" " #" " #" " !"  " !"  "  \10 ,8;" Please wait ":23658j\,8:SC=0:1410:1370Z &5:7:1:1: P=3:1940 ]88X,24,10 :37%,0:144,24,10 :15,0 ^-10 ,25,1:-75K,0:-20,-25,1:15,0 ^96`,46.:20,20,-1:10 ,0:25,-20,-1 _114r,546,5:112p,557:110n,46.:10 ,0,-2 "8110n,557:-1,-2:1,0 ,z$=" This man wants YOU to get into his car Should you get in ? 1=YES 2=NO":2060  6"1970:320@:330J @{.2~L,30:.3,25:#0;3;4;0;1;1;" Press your choice number": J)="2"c=1:1580,:360h T)="1"c=0:1580,:360h ^ 330J h:p=6:1940 rSm=20:n=1640(:88X,n:2;-m,0:m=m-.5:n |9n=40(568:88X,n:1;-m,0:n 84T,62>,5 [80P,15:0,-10 :10 ,0:-5,5:0,5 An=47/524:85U,n:1;20,-10 :n Dm=5:n=824:140,n:3;-m,0:n Fm=10 :n=2440(:140,n:4;-m,0:n *20,16;6;3;"" '136,46.,5:320@ ̜0,0;:z$=" This lady offers YOU a sweet Should you take it ? 1=YES 2=NO":2060   1970 )="2"c=1:1580,:510 )="1"c=0:1580,:510  480 :p=7:1940 Dm=5:n=824:136,n:1;-m,0:n Fm=10 :n=2440(:136,n:4;-m,0:n *20,16;7;1;"" &132,46.,5 0Em=10 :n=32 568:88X,n:0;-m,0:n :@n=832 :88X,n:0;-m/2,0:n D84T,62>,5 N*20,11 ;0;7;"" X%80P,65A:15,0 bUn=80P90Z4:m=12:n+m,65A:0,2:m:n lUn=79O89Y4:m=12:n+m,67C:0,2:m:n vY80P,65A:0,4:10 ,0:0,-4:0,4 02,2:-15,-2:320@ z$=" PC Rainbow speaks to YOU. Should you speak to him 1=YES 2=NO":2060   1970 )="1"c=1:1580,:700 )="2"c=0:1580,:700  670 :p=2:1940 Dm=5:n=824:136,n:6;-m,0:n Fm=10 :n=2440(:136,n:1;-m,0:n *20,16;2;6;"" 132,46.,5 Em=10 :n=33!568:88X,n:5;-m,0:n @n=831:88X,n:0;-m/2,0:n 84T,62>,5  *20,11 ;0;2;"" l19,7;2;0;"";18,8;"";20,7;"";20,8;""  18,9 ;2;"" *<n=10 20:n,21;6;" ":n 44n=010 :n,28;6;" ":n >\n=12 15:n,22;1;" ";n,28;1;" ":n:320@ Hz$=" This man wants to take YOU to see his puppy. Should you go? 1=YES 2=NO":2060  R 1970 \)="1"c=0:1580,:890z f)="2"c=1:1580,:890z p 860\ z:p=4:1940 524,12 :20,80P:20,-80P:-20,80P:140,0:-20,-80P:20,80P:20,-80P K119w,92\:0,-60<:41),0:0,60< 139,61=,5  15,16;"" "16,15;"" 17,17;"" "18,16;" " /19,16;" ":320@ ԈZ$=" YOU are going to the swing park. Should you tell Mum? 1=YES 2=NO":2060   1970 *="1"c=1:1580,:1030 *="2"c=0:1580,:1030  1000 :p=3:1940 Sm=20:n=1640(:88X,n:0;-m,0:m=m-.5:n 9n=40(568:88X,n:6;-m,0:n $84T,62>,5 .[80P,15:0,-10 :10 ,0:-5,5:0,5 8Dm=5:n=824:140,n:2;-m,0:n BFm=10 :n=2440(:140,n:7;-m,0:n L*20,16;3;2;"" V'136,46.,5:320@ `Z$=" This lady wants to take YOU home for