ZXTape! 0Created with Ramsoft MakeTZXprog   37:7::7:"mchars"63232  1:236077\,246 L$="7 6: pq5atbatbefgatbsttefgatt4t 9; omnr5c12c12h ic12uvwh ic1 5 8 o][r5dy3dy3jkldy3112jkld 5  " (1:1:1: 2's$=" " $0:n3,n4;" ":n4=n4-1 H1:n3,n4;" ":0 R&cn=cn-1:r$=r$(̱(r$)-1) \ 520 %h$"a"h$"z"h$=((h$)-32 ) #0:n3,n4;h$:cn=cn+1 .cnDZi$1:n3,n4+1;" ":0 n4=n4+1:r$=r$+h$ cnDZi$520 n3,n4;" ":  p9=1 &z=g$1-1:g$(z)=" "z p8=z p9+ll>p81038 4f=p9:z=p9+llp9-1:g$(z)=" "f=z-p9:z=p9 z  Elp=1g$(p9p9+f):n3=n3+1:p9=p9+f+1:1020  En3,1;g$(p9p9+f):n3=n3+1:p9=p9+f+1:1020 #lp=1g$(p9p8):1090B n3,1;g$(p9p8) B 8700!:nb=1 j=1mx On1=1:n2=7:8300l :n3=1:g$=q$(j,3):1000 6g3=g3+1:19,25+(3-g3);g3 r$=:r$=""2030 'r$<"1"r$>"3"85004!:2030 1sk=0:r=r$:g1=(q$(j,1))-64@  r=3sk=0.5 I(r=1q$(j,2)="+")(r=2q$(j,2)="-")sk=1  c(g1)=c(g1)+sk %j * *g$=s$(tn,i,1):k$=s$(tn,i,2) &z=g$1-1:g$(z)"/"z g1=z &z=k$1-1:k$(z)"/"z g2=z y=g1+1̱g$:g$(y)" "y z=g2+1̱k$:k$(z)" "z $lp=15800:2560 cg1>1n3+1,1;g$(g1-1):n3+2,1;g$(g1+1y):2541 n3+1,1;g$(y) kg2>1n3+1,30-g2;k$(g2-1):n3+2,30-g2;k$(g2+1z):2560 n3+1,30-z;k$(z) Ple=s(tn,i,1):la=s(tn,i,2):ra=s(tn,i,3):re=s(tn,i,4) lerap=15-(c(i)-la)*16/(le-la):2620< 3p=30-(c(i)-re)*15/(ra-re):2620< (;c(i)30p=30 Fp<1p=1 K$lp=15850:2690 Pp>152670n Zp=15p=14 d;n3,1;(p+1);a$(17-p)+"":2690 n,n3,1;16;a$(p-13 )+""  Mn1=4:n2=7:8300l :l$="RESULTS OF":n1=5:8400 =z=t$(1,tn)1-1:t$(1,tn,z)=" "z g9=z =y=t$(2,tn)1-1:t$(2,tn,y)=" "y Dl$=t$(1,tn,z)+"/"+t$(2,tn,y):n1=6:8400 V8,1;"Name: "+n$:10 ,1;"Date: "+d$:n3=20:8000@ `0::8:1,1;t$(1,tn,g9):1,30-y;t$(2,tn,y) i=17 7n1=3:n2=21:0:8300l :8 /6:0,157:255,0 85:l$="AVERAGE":n1=3:8400 :9 'z=46:z,15;"":z 6n3=5:2500 :9 ,1;"Comments:" %la>rahi=la+2:lo=ra-2 %ra>lahi=ra+2:lo=la-2 &c(i)lo3142F 0'sc=1:le>rec(i)1g2>10,0;g$(g1-1);0,15;"|";0,(33!-g2);k$(g2-1):0,0;g$(g1+1y);0,15;"|";0,33!-z+g2;k$(g2+1z):5840 g1>10,0;g$(g1-1);0,15;"|";0,32 -z;k$(z):g$(g1+1);(15);"|":5840 g2>10,0;g$(y);0,15;"|";0,33!-g2;k$(g2-1):0,33!-z+g2;k$(g2+1z):5840 J0,0;g$(y);0,15;"|";0,32 -z;k$(z)  p>155870 p=15p=14 p; .z=116-p:"+";:z: :5890  15; !z=1p-14:"+";:z:  pn1=5:n2=20:8300l :5,1;"NAME OF FILE TO BE LOADED?":n3=7:n4=1:i$="51111111119":500 z\g$=r$:9 ,1;"ARE YOU SURE (Y/N)?":i$="39":n3=9 :n4=21:500 r$="N"6000p in1=5:n2=15:8300l :l$="LOAD TAPE AND":n1=5:8400 :n3=7:8000@ n1=5:n2=15:9 :8300l :8:l$="START TAPE AND":n1=5:8400 :n3=7:8000@:n1=5:n2=10 :0:8300l :8:0:7900:l$="LOADING RESULTS":n1=5:8400  g$z$() 2:n1=5:n2=12 :0:8300l :8:l$="STOP THE TAPE AND":n1=5:8400 :n3=7:8000@ 7z=z$(1)1-1:z$(1,z)=" "z Pn$=z$(1,z):d$=z$(2,8):tn=z$(2,9 ):y=1 Bz=17:c(z)=z$(3,yy+1):y=y+2:z 0:n1=5:n2=20:8300l :8:5,1;"DO YOU WANT COMMENTS":6,1;"ON RESULTS? (Y/N)":n3=6::n4=19:i$="39":500 r$="Y"3000  3500 h7900:5,1;"REVIEW RESULTS AGAIN (Y/N)":n3=5:n4=28:i$="39":500 r$="Y"6060 yn1=5:n2=8:8300l :5,1;"PRINT PROFILE (Y/N)":n3=5:n4=21:i$="39":500 r$="Y"5500|  dn1=5:n2=20:8300l :5,1;"NAME OF FILE TO BE SAVED?":n3=7:n4=1:i$="51111111119":500 n:z$(1)=n$:z$(2,10 )=d$+tn:y=2: x5z=17:g$=c(z):g$=1g$="0"+g$ )z$(3,y-1y)=g$:y=y+2 z n1=5:n2=8:8300l :5,8;"LOAD A TAPE AND":6,7;"ENSURE RECORDER IS":7,6;"CORRECTLY CONNECTED":8,11 ;"FOR SAVING":n3=20:8000@ mn1=5:n2=21:0:8300l :8:l$="SAVING RESULTS":n1=5:8400 :r$z$() n1=5:n2=8:8300l :l$="RESULTS SAVED":n1=5:8400 :dl=ds:8100:l$="STOP THE TAPE AND":n1=5:8400 :n3=7:8000@  Xn3=20:n1=5:n2=21:8300l :6,2;"The purpose of these three":" personality tests is to give":" you an insight into your" ba" own personality. The scores":" are suggestive and approxi-":" mate, rather than definitive" lM" and precise. We hope they":" will serve to amuse and":" stimulate you." v8000@:n2=18:8300l :5,2;"The first test deals with":" extraversion and introversion.":" The 7 characteristics which" " are covered in this test are:"+13 :9 ;"Activity"+13 ;9 ;"Sociability"+13 ;9 ;"Risk-taking" ~9 ;"Impulsiveness"+13 ;9 ;"Expressiveness";9 ;"Reflectiveness";9 ;"Responsibility":8000@ 8300l :5,2;"The second test measures":" emotional stability and":" adjustment incorporating":" the following characteristics:" 13 ;9 ;"Self-esteem";13 ;9 ;"Happiness";13 ;9 ;"Anxiety";13 ;9 ;"Obsessiveness";13 ;9 ;"Autonomy";13 ;9 ;"Hypochondriasis";13 ;9 ;"Guilt" 8000@:8300l :5,2;"The third test deals with":" tough-mindedness and covers":" the following areas:" 13 ;7;"Aggresiveness";13 ;7;"Assertiveness";13 ;7;"Ambitiousness";13 ;7;"Sensation-seeking";13 ;7;"Manipulation";13 ;7;"Dogmatism";13 ;7;"Masculinity":8000@  xi=18600! yn1=5:n2=21:0:8300l :8:n1=5:l$="START THE TAPE AND":8400 :n3=7:8000@ W0:8300l :8:0:7900:l$="LOADING QUESTIONS":8400 "qn"+(tn)+"-"+(i)+"a"q$() 4:n1=5:n2=21:0:8300l :8:n1=5:l$="STOP THE TAPE AND":8400 :n3=7:8000@  ;0::7:3,0;b$:8:9 .1,3;"KNOW YOUR OWN PERSONALITY" 6 @!n3,9 ;"PRESS  space " Jh$=:h$" "8010J  z=1dl:1:z  lz=n1n2:z,0;b$:z  &z=l$1-1:l$(z)=" "z l$=l$(z):g1=z 'g2=((32 -g1)/2-0.5) n1,g2;l$ !* !4&z=1nb:0.25~,12 :z ! !lt=08680! !tn>lt8680! !7n1=5:n2=21:0:8300l :8 !@5,7;"PLEASE REWIND TAPE":n3=20:8000@ !lt=tn ! !20::7:9 ,0;b$:0 "11 ,2;"PLEASE RESPOND":13 ,2;" 1  YES":15,2;" 2  NO":17,2;" 3  CAN'T DECIDE" "^196,13 :30,0:0,13 :-30,0:0,-13 "V "`12:2::g$="7170710000000000170717" "j6z=021:ڰg$(z+1):z,0;b$:z "t8:9 :3,6;"IVAN BERG SOFTWARE":10 ,9 ;"KNOW YOUR OWN":11 ,10 ;"PERSONALITY":18,12 ;" 1983" "~Ydl=ds*4:8100:n3=18:8000@:n1=6:n2=18:8300l "8,6;"BY ARRANGEMENT WITH":9 ,5;"PROFESSOR H J EYSENCK":10 ,6;"DOCTOR GLENN WILSON":11 ,14;"AND":12 ,7;"PENGUIN BOOKS LTD" ",n3=18:8000@:dl=ds:8100 " "nb=1:7900 "%5,2;"YOUR NAME PLEASE" "Ti$="5111111111111111119":n3=7:n4=2:500:n$=r$:z$(1)=n$ "`9 ,2;"TODAY'S DATE (DD/MM/YY)":i$="772772779":n3=11 :n4=2:500 "Jr$<885004!:n1=9 :n2=12 :8300l :8935" "d$=r$:d$(45)<1Űd$(45)>12 85004!:n1=9 :n2=11 :8300l :8935" "zd$(2)<1Űd$(2)>d(d$(45))85004!:n1=9 :n2=11 :8300l :8935" "#dl=ds:z$(2)=d$:8100 " "70:n1=5:n2=21:8300l :8 "n5,2;"OPTIONS":7,0;"  1  INTRODUCTION"''"  2  EXTRAVERSION/INTROVERSION"'' #F"  3  EMOTIONAL STABILITY"''"  4  TOUGH/TENDER MINDEDNESS"'' #+"  5  REVIEW RESULTS"''"  6  END" # P19,2;"ENTER CHOICE":i$="49":n3=19:n4=15:500 # #(23561 \,255:23562 \,255:lp=0:ll=30:mm=210:mx=70F:b$=" ":ds=502 #-(q$(mx,162):z$(3,18) #2ia(7,2):b(7,2):d(12 ):t$(2,3,13 ):p$(20,1) #$0:n3,n4;" ":n4=n4-1 H1:n3,n4;" ":0 R&cn=cn-1:r$=r$(̱(r$)-1) \ 520 %h$"a"h$"z"h$=((h$)-32 ) #0:n3,n4;h$:cn=cn+1 .cnDZi$1:n3,n4+1;" ":0 n4=n4+1:r$=r$+h$ cnDZi$520 n3,n4;" ":  p9=1 &z=g$1-1:g$(z)=" "z p8=z p9+ll>p81038 4f=p9:z=p9+llp9-1:g$(z)=" "f=z-p9:z=p9 z  Elp=1g$(p9p9+f):n3=n3+1:p9=p9+f+1:1020  En3,1;g$(p9p9+f):n3=n3+1:p9=p9+f+1:1020 #lp=1g$(p9p8):1090B n3,1;g$(p9p8) B 8700!:nb=1 j=1mx On1=1:n2=7:8300l :n3=1:g$=q$(j,3):1000 6g3=g3+1:19,25+(3-g3);g3 r$=:r$=""2030 'r$<"1"r$>"3"85004!:2030 1sk=0:r=r$:g1=(q$(j,1))-64@  r=3sk=0.5 I(r=1q$(j,2)="+")(r=2q$(j,2)="-")sk=1  c(g1)=c(g1)+sk %j * *g$=s$(tn,i,1):k$=s$(tn,i,2) &z=g$1-1:g$(z)"/"z g1=z &z=k$1-1:k$(z)"/"z g2=z y=g1+1̱g$:g$(y)" "y z=g2+1̱k$:k$(z)" "z $lp=15800:2560 cg1>1n3+1,1;g$(g1-1):n3+2,1;g$(g1+1y):2541 n3+1,1;g$(y) kg2>1n3+1,30-g2;k$(g2-1):n3+2,30-g2;k$(g2+1z):2560 n3+1,30-z;k$(z) Ple=s(tn,i,1):la=s(tn,i,2):ra=s(tn,i,3):re=s(tn,i,4) lerap=15-(c(i)-la)*16/(le-la):2620< 3p=30-(c(i)-re)*15/(ra-re):2620< (;c(i)30p=30 Fp<1p=1 K$lp=15850:2690 Pp>152670n Zp=15p=14 d;n3,1;(p+1);a$(17-p)+"":2690 n,n3,1;16;a$(p-13 )+""  Mn1=4:n2=7:8300l :l$="RESULTS OF":n1=5:8400 =z=t$(1,tn)1-1:t$(1,tn,z)=" "z g9=z =y=t$(2,tn)1-1:t$(2,tn,y)=" "y Dl$=t$(1,tn,z)+"/"+t$(2,tn,y):n1=6:8400 V8,1;"Name: "+n$:10 ,1;"Date: "+d$:n3=20:8000@ `0::8:1,1;t$(1,tn,g9):1,30-y;t$(2,tn,y) i=17 7n1=3:n2=21:0:8300l :8 /6:0,157:255,0 85:l$="AVERAGE":n1=3:8400 :9 'z=46:z,15;"":z 6n3=5:2500 :9 ,1;"Comments:" %la>rahi=la+2:lo=ra-2 %ra>lahi=ra+2:lo=la-2 &c(i)lo3142F 0'sc=1:le>rec(i)1g2>10,0;g$(g1-1);0,15;"|";0,(33!-g2);k$(g2-1):0,0;g$(g1+1y);0,15;"|";0,33!-z+g2;k$(g2+1z):5840 g1>10,0;g$(g1-1);0,15;"|";0,32 -z;k$(z):g$(g1+1);(15);"|":5840 g2>10,0;g$(y);0,15;"|";0,33!-g2;k$(g2-1):0,33!-z+g2;k$(g2+1z):5840 J0,0;g$(y);0,15;"|";0,32 -z;k$(z)  p>155870 p=15p=14 p; .z=116-p:"+";:z: :5890  15; !z=1p-14:"+";:z:  pn1=5:n2=20:8300l :5,1;"NAME OF FILE TO BE LOADED?":n3=7:n4=1:i$="51111111119":500 z\g$=r$:9 ,1;"ARE YOU SURE (Y/N)?":i$="39":n3=9 :n4=21:500 r$="N"6000p in1=5:n2=15:8300l :l$="LOAD TAPE AND":n1=5:8400 :n3=7:8000@ n1=5:n2=15:9 :8300l :8:l$="START TAPE AND":n1=5:8400 :n3=7:8000@:n1=5:n2=10 :0:8300l :8:0:7900:l$="LOADING RESULTS":n1=5:8400  g$z$() 2:n1=5:n2=12 :0:8300l :8:l$="STOP THE TAPE AND":n1=5:8400 :n3=7:8000@ 7z=z$(1)1-1:z$(1,z)=" "z Pn$=z$(1,z):d$=z$(2,8):tn=z$(2,9 ):y=1 Bz=17:c(z)=z$(3,yy+1):y=y+2:z 0:n1=5:n2=20:8300l :8:5,1;"DO YOU WANT COMMENTS":6,1;"ON RESULTS? (Y/N)":n3=6::n4=19:i$="39":500 r$="Y"3000  3500 h7900:5,1;"REVIEW RESULTS AGAIN (Y/N)":n3=5:n4=28:i$="39":500 r$="Y"6060 yn1=5:n2=8:8300l :5,1;"PRINT PROFILE (Y/N)":n3=5:n4=21:i$="39":500 r$="Y"5500|  dn1=5:n2=20:8300l :5,1;"NAME OF FILE TO BE SAVED?":n3=7:n4=1:i$="51111111119":500 n:z$(1)=n$:z$(2,10 )=d$+tn:y=2: x5z=17:g$=c(z):g$=1g$="0"+g$ )z$(3,y-1y)=g$:y=y+2 z n1=5:n2=8:8300l :5,8;"LOAD A TAPE AND":6,7;"ENSURE RECORDER IS":7,6;"CORRECTLY CONNECTED":8,11 ;"FOR SAVING":n3=20:8000@ mn1=5:n2=21:0:8300l :8:l$="SAVING RESULTS":n1=5:8400 :r$z$() n1=5:n2=8:8300l :l$="RESULTS SAVED":n1=5:8400 :dl=ds:8100:l$="STOP THE TAPE AND":n1=5:8400 :n3=7:8000@  Xn3=20:n1=5:n2=21:8300l :6,2;"The purpose of these three":" personality tests is to give":" you an insight into your" ba" own personality. The scores":" are suggestive and approxi-":" mate, rather than definitive" lM" and precise. We hope they":" will serve to amuse and":" stimulate you." v8000@:n2=18:8300l :5,2;"The first test deals with":" extraversion and introversion.":" The 7 characteristics which" " are covered in this test are:"+13 :9 ;"Activity"+13 ;9 ;"Sociability"+13 ;9 ;"Risk-taking" ~9 ;"Impulsiveness"+13 ;9 ;"Expressiveness";9 ;"Reflectiveness";9 ;"Responsibility":8000@ 8300l :5,2;"The second test measures":" emotional stability and":" adjustment incorporating":" the following characteristics:" 13 ;9 ;"Self-esteem";13 ;9 ;"Happiness";13 ;9 ;"Anxiety";13 ;9 ;"Obsessiveness";13 ;9 ;"Autonomy";13 ;9 ;"Hypochondriasis";13 ;9 ;"Guilt" 8000@:8300l :5,2;"The third test deals with":" tough-mindedness and covers":" the following areas:" 13 ;7;"Aggresiveness";13 ;7;"Assertiveness";13 ;7;"Ambitiousness";13 ;7;"Sensation-seeking";13 ;7;"Manipulation";13 ;7;"Dogmatism";13 ;7;"Masculinity":8000@  xi=18600! yn1=5:n2=21:0:8300l :8:n1=5:l$="START THE TAPE AND":8400 :n3=7:8000@ W0:8300l :8:0:7900:l$="LOADING QUESTIONS":8400 "qn"+(tn)+"-"+(i)+"a"q$() 4:n1=5:n2=21:0:8300l :8:n1=5:l$="STOP THE TAPE AND":8400 :n3=7:8000@  ;0::7:3,0;b$:8:9 .1,3;"KNOW YOUR OWN PERSONALITY" 6 @!n3,9 ;"PRESS  space " Jh$=:h$" "8010J  z=1dl:1:z  lz=n1n2:z,0;b$:z  &z=l$1-1:l$(z)=" "z l$=l$(z):g1=z 'g2=((32 -g1)/2-0.5) n1,g2;l$ !* !4&z=1nb:0.25~,12 :z ! !lt=08680! !tn>lt8680! !7n1=5:n2=21:0:8300l :8 !@5,7;"PLEASE REWIND TAPE":n3=20:8000@ !lt=tn ! !20::7:9 ,0;b$:0 "11 ,2;"PLEASE RESPOND":13 ,2;" 1  YES":15,2;" 2  NO":17,2;" 3  CAN'T DECIDE" "^196,13 :30,0:0,13 :-30,0:0,-13 "V "`12:2::g$="7170710000000000170717" "j6z=021:ڰg$(z+1):z,0;b$:z "t8:9 :3,6;"IVAN BERG SOFTWARE":10 ,9 ;"KNOW YOUR OWN":11 ,10 ;"PERSONALITY":18,12 ;" 1983" "~Ydl=ds*4:8100:n3=18:8000@:n1=6:n2=18:8300l "8,6;"BY ARRANGEMENT WITH":9 ,5;"PROFESSOR H J EYSENCK":10 ,6;"DOCTOR GLENN WILSON":11 ,14;"AND":12 ,7;"PENGUIN BOOKS LTD" ",n3=18:8000@:dl=ds:8100 " "nb=1:7900 "%5,2;"YOUR NAME PLEASE" "Ti$="5111111111111111119":n3=7:n4=2:500:n$=r$:z$(1)=n$ "`9 ,2;"TODAY'S DATE (DD/MM/YY)":i$="772772779":n3=11 :n4=2:500 "Jr$<885004!:n1=9 :n2=12 :8300l :8935" "d$=r$:d$(45)<1Űd$(45)>12 85004!:n1=9 :n2=11 :8300l :8935" "zd$(2)<1Űd$(2)>d(d$(45))85004!:n1=9 :n2=11 :8300l :8935" "#dl=ds:z$(2)=d$:8100 " "70:n1=5:n2=21:8300l :8 "n5,2;"OPTIONS":7,0;"  1  INTRODUCTION"''"  2  EXTRAVERSION/INTROVERSION"'' #F"  3  EMOTIONAL STABILITY"''"  4  TOUGH/TENDER MINDEDNESS"'' #+"  5  REVIEW RESULTS"''"  6  END" # P19,2;"ENTER CHOICE":i$="49":n3=19:n4=15:500 # #(23561 \,255:23562 \,255:lp=0:ll=30:mm=210:mx=70F:b$=" ":ds=502 #-(q$(mx,162):z$(3,18) #2ia(7,2):b(7,2):d(12 ):t$(2,3,13 ):p$(20,1) #