ZXTape! 0Created with Ramsoft MakeTZXGOODQUESTS( 65290 N$="LAW-BREAKING" dPR$="?????????????????????????" sE:P3="300":P2="310":N0="0":N1="1":N2="2":N3="3":N7="7" "1000" ,X=X+N1 6X=X+N2:X$:Y="16"-(X$/N2) @BJ=N1̱X$:X,Y+J-1;I;" ":X,Y+J-1;I;P;X$(J):J: N1:N1:N1:  ٰ"6":N2 #J=N1̰"9":J*N2+N1,N3;R$;"?" J*N2+N2,N3;"?";R$ J X=N2:װ".4",X <I=N7:P=N0:P3:I=N0:P=N7:P3:P2:P3:P2:I=N7:P=N0:P3 7N1:N1;N1;N7;"15","16"-(N$/N2);"16"+(N$/N2) xN1:"20",N0;:"":"1400" d"GOOD QUESTIONS","written by:","Viv Neary & Martin Hodge","Program now loading:",N$,"MNL Software" #(:N1="1":'"WAIT 6 SECS" #2W"23658","0":#N1;"Q NEXT OTHER SAVE":"0":Q$=:Q$="q"*"M";N1;"GQPROG2" #<"GOODQUESTS"N1:"9000" &:Q$="PROG1Lawbr" &*"M";"1";Q$ʰ"9000" &*"M";"1";Q$:J Q p  <*[)))~#[[>{zy *[|&)))))X w#v> t\ t!H# # <@(#-# 9\\]h[Иg@t\#yJ X![!PP!!! {"\ M fO]x_$ K SR Pꋃ  IF YOU HAVE ARRIVED   HERE, THERE HAS BEEN   AN ERROR.   ---------------------  To re-enter program,   !press key G twice   (which prints GO TO g  at the bottom of the   screen) & then press   ENTER.  ꎌ 2 <51:7:0::"LIST FROM LINE:";N:N hLL ist=((32 -d$)/2) j$23296[,y:23299[,0 kNm=1̱d$:23297[,ST+M-1:23298[,D$(M):65295:M o,23297[,0:23298[,0: 2 BORD 3c4,171:247,0:0,-159:-247,0:0,159: : CLN ;Dln,0;bordcol;" ":5: ? CPAGE @9bordcol=1:bordcol:5:0::cln:bord TYN UINKEY W$yes=0:D$="y"yes=1: X D$="n" Y BEEP1:yn \ PQ2 ]5CLSCOL:CLSCOL:0,0;" Question ";s;":" _3,3;q$(s+1)(125});4;3;"(1) ";q$(s+1)(126~214);4;3;"(2) ";q$(s+1)(215303/);30;28 `0:5: iSCROLLUP j923297[,9 *CLSCOL:j=210-1 k+23296[,j:65340<:3:j: lSCROLLDN m523297[,40(:j=021:363k vOK wu.2~L,20:21,0;1;" OK? Press Y (yes) or N (no). ":INKEY:cln:D$="n"yes=0: yD$="y"yes=1: z BEEP1:ok  PRESS T#1;1,0;0;4;1;" Press any key ":INKEY:;:  BEEP1 &H=12:k=15 .01z# =,k+H:k .k=51-1:.02{# =,k+H:k H: PRESSABC Oy=0:d$=" Press key A,B or C ":#1;0;4;:ll+1 INKEY !D$<"a"D$>"c"BEEP1:430 VIEW=D$-"a"+1: VIEW=1,2 OR 3  DBLTX  st=0 D$:D$="#" $LL+1:Y=Y+2:465 DBLPRESS cy=0:d$=" Press any key to continue... ":#1;0;4;:ll:0::;:  TEXT D$:D$="#" ,y,1;d$;:2:y=y+1:text  BOXES P16,0;"EXTREME";25;"EXTREME";2;"(1)";27;"(2)" _Y=2285:6;18,Y;" ";19,Y;" ";20,Y;" ":Y   CHOOSE BOXES &|#1;0,0;6;0;"Press N to move left, M to move right, R when you have decided. " 0:choice=3+(<.5) :BRTBOX DINKEY N d$="r" S UNBRTBOX XNd$="m"choice<6choice=choice+1:.02{# =,-10 :570: ]ND$="n"choice1choice=choice-1:.02{# =,-10 :570: bBEEP1:570: k BRTBOX ley=choice*5-3:1;7;18,y;" ";19,y;" ";20,y;" ": pUNBRTBOX q\y=choice*5-3:6;18,y;" ";19,y;" ";20,y;" ": u INKEY x.23658j\,0:0:D$=:D$"" z@1,0:INKEY:D$="n"inkey:d$="o"inkey:d$="w" |  CLLINES vj=031:10 ,j;" ";11 ,j;" ";12 ,j;" ";13 ,j;" ";14,j;" ":j:y=10 :  INTRO <INTRO:"GOOD QUESTIONS.","By Viv Neary & Martin Hodge","#" S"Copyright M.Hodge 1987","All rights reserved","","This copy is the property of:" E$,F$ "#" pCPAGE:1,9 ;1;"STOP THE TAPE";0:BEEP:Y=3:LLTEXT2:y=8:LLTEXT2:PRESS PPAGE F" This program asks a series of","questions on topics related to",n$ ?" "," The computer keeps a score","and prints messages which" ""reflect the subject's answers." F" "," For details of the questions","and suggestions on how best to" F"use this program, please","consult the ""Good Questions""","Guide." "#" " This program is protected","against accidental pressing of","the BREAK key.",""," However, if at any time the","program should stop with an" ^"'Error Report' at the bottom","of the screen, just press","ENTER for instructions.","#"  6" If you have a printer","attached the messages and" @"results for each person will","be printed out automatically."  A" "," If you do not have a printer","the program will give the" *@"subject an opportunity to copy","down the messages and their" 4"responses.","#" >" ","NOTE:If you have a printer but","have not connected it,you must","switch the computer off before","connecting it and reloading","this program." @=" "," DO YOU HAVE A PRINTER"," CONNECTED? (PRESS Y or N)" C"#" H*PPAGE:PPAGE:CPAGE:Y=5:TEXT:YN RPRINTER=0:YES Wu18,1;"PLEASE CONFIRM THAT A PRINTER";19,3;"IS CONNECTED - Y CONFIRMS":YN:YES \PRINTER=1:PRINTERCHECK  BEEP =J=13:.2~L,0:.2~L,-8:J:  LLTEXT D$:D$="#" LL:Y=Y+3:LLTEXT  LLTEXT2 D$:D$="#" LL:Y=Y+2:LLTEXT2 PRINTERCHECK /CPAGE:940:y=4:TEXT:YN:YES "A short routine to check that","your printer is working","correctly is available."," ","Would you like to check the","printer ? (Y/N)","#" :;:Y=2:TEXT X" This program uses two types of","printer command."," "," One of these is the 'COPY'" S"command. The text you are now","reading should be printing out","at the moment." d" ","IF NOT YOU SHOULD TURN OFF THE","COMPUTER,RE-CONNECT THE PRINTER","AND RE-LOAD THIS PROGRAM." ;"(or ignore the printer and use","the Record Sheet).","#"  :PRESS :''" The other command used is the 'LPRINT' command. A short"'"message should now be printed if this command is working." _''"IF NOT YOU SHOULD TURN OFF THE COMPUTER, RE-CONNECT THE PRINTERAND RE-LOAD THIS PROGRAM." 6"(or ignore the printer and use the Record Sheet)." I''"LPRINT command working correctly"''"YOU CAN TEAR OFF THIS TEST"'''''  PRESS: KBREAKOFF LUERRSP=23613=\+256*23614>\:ERRSP,120x:ERRSP+1,255 V _ PPAGE `CPAGE:Y=3:TEXT:PRESS MAIN START |INTRO cpage 33210 :D$=N$:Y=3:LL:Y=8:TEXT "Please type in the date in" z"","the form 17/6/87 and press","","ENTER.","","(/ is obtained by pressing","","SYMBOL SHIFT and key V)","#" "Date ? ";t$ Vt$>818,1;1;"ENTRY TOO LONG:PLEASE RE-ENTER":3240 T$=""3240 )18,1;"Date: ";t$;31 ok 0yes18,9 ;" ":3240 pmessages=1 x(noq):t(nc) "p$(2,15):l(2) &cpage:3510 :y=8:LLTEXT ,"The program is now ready","to start.","#" press:4000 INSTRUCTIONS SUBROUTINE $cpage:3600:Y=2:TEXT " *** INSTRUCTIONS ***",""," This questionnaire consists","of "+noq+" questions.",""," Some of the questions may","seem funny, but to get a" <"worthwhile result, you must","answer them as honestly as" )p"you can.",""," If you don't think about","your answers and be truthful","it'll be a waste of your time.","#" .lpress:cpage:y=8:text:" Before you start you need to","know how this questionnaire","works.","#" 8npress:cpage:y=1:text:" The computer will ask you a","question like:",""," How are you today ?","#" Bpress:y=6:text L"It will then give you two","extremes of answers you might","make:",""," 1) I feel like death warmed","up",""," 2) I've never felt better in","my life.","#" jPRESS::;:Y=1:TEXT tm" How are you today ?",""," 1) I feel like death warmed","up",""," 2) I've never felt better in","my life." y<"",""," You DO NOT have to choose","one or the other.","#" ~PRESS:CLLINES:TEXT K" You should put yourself in","between them according to how","you feel." "#" BOXES:PRESS:CLLINES:TEXT v" The white square shows where","you are between the two","extremes."," You always start off near the","middle.","#" 9choice=3:brtbox:press:CLLINES:text:150 b" You can move the white square","by pressing N to move left and","M to move right.","#" ~#1;0,0;6;0;"Try pressing key N now";8;8;8;1;"___";0; ƨ#1;6;0;" to move the white square to EXTREME (1).":INKEY:d$"n";:#1;1;"I DID SAY KEY N IF YOU REMEMBER!":BEEP1:3780 Eunbrtbox:choice=choice-1:brtbox:choice13780 I;:Y=0:D$=" WELL DONE!! ":#1;0;4;:LL:BEEP  #1;0,0;6;0;"Now";8;8;8;1;"___";0;" try pressing key M to move the white square to EXTREME (2).":INKEY:d$"m";:#1;1;"I DID SAY KEY M IF YOU REMEMBER!":BEEP1:3790 Eunbrtbox:choice=choice+1:brtbox:choice63790 I;:Y=0:D$=" EXCELLENT!! ":#1;0;4;:LL:BEEP ;:CLLINES:TEXT " For each question you should:","A) Decide where you want to be.","B) Position the white square"," using N and M.","C) Then press key R (Ready).","#" press:cllines:dbltx ?" DO IT NOW FOR THE QUESTION"," GIVEN ABOVE...","#" CHOOSE ?:;:Y=2:D$="Thank you, "+P$(1)(L(1)):LL  j=1choice:d$:j r"like death warmed up","pretty awful?","just a bit rotten?","fairly good?","really fine?","on top of the world?" d$="So you feel "+d$ y=5:ll ("3880(:y=8:dbltx:yn 2b" Do you understand how this"," program works ?",""," Press Y (Yes) or N (No).","#" <yes Fcpage:y=7:D$="Ask someone to help you.":LL:100d:Y=10 :D$="Press a key to see the":LL:Y=12 :D$="instructions again.":LL P0:3600 TEST LOOP :j=12 $17,0;"Type in your "; j=11;"1st"; %j=21;1;"2nd"; /" name and then press the key marked ENTER." g$: ҁg$>1414,0;"The program can only accept up to 14 letters. Please re-enter.":.3,0:4020 g$=""4020 =g$(1)>90Zg$(1)=(g$(1)-32 )  p$(j)=g$  l(j)=g$ Aj=115,0;"Thank you,";P$(1)(̱g$);"." j CHECK NAME &4110:CPAGE:Y=8:LLTEXT e"Your name is:",P$(1)(L(1))+" "+P$(2)(L(2)),"IS THAT CORRECT ? (Y/N)","#" @YN:yes4007 E3600:INSTRUC. J hs=1noq r scrollup |pq2  scrolldn y=143  i(2) CHOOSE :I(1)=6-CHOICE:I(2)=5-I(1) ; &x(s)=i(1) 0it(w(s,1,1,1))=t(w(s,1,1,1))+i(1)*w(s,2,1,1) :it(w(s,1,2,1))=t(w(s,1,2,1))+i(2)*w(s,2,2,1) Dw(s,1,1,2)0t(w(s,1,1,2))=t(w(s,1,1,2))+i(1)*w(s,2,1,2) Nw(s,1,2,2)0t(w(s,1,2,2))=t(w(s,1,2,2))+i(2)*w(s,2,2,2) Xs bmessages7000X cpage /d$="THAT'S THE END OF THIS TEST.":y=10 ll d$="Thank you "+p$(1)  y=15 ll press PRINTER5435; PRINTOUT cpage 5100:Y=8:LLTEXT X"Would you like a print-out","of "+P$(1)(L(1))+"'s results ?","(Y/N)","#" yn yes5435; 2copy=1 Z 5445E d 5360 :" ANSWER BOXES CHOSEN:" :" Qu. Ext. Ext." " No. 1 2" " " j=1noq De$=" ":e$(11 -2*x(j))="":" ";j;7;e$ j נcopy0,175:0,-175:255,0:0,175:6,175:0,-169:243,0:0,169 copy::: copypress  "j=16:.1}L,j:j copy=0 cpage N1,1;"Checking print-out.";2,1;"" ]3,3;"As there is often a lack of";4,1;"clarity with the Sinclair" Z5,1;"printer, you can have the";6,1;"results displayed on the" "S7,1;"screen so that any errors can";8,1;"be rectified." ,L10 ,3;"Is the print-out adequate ?";12 ,13 ;"(Y/N)" 1yn 6yes6000p 7 5445E ;U"Would you like a display","of "+P$(1)(L(1))+"'s results?","(Y/N)","#" <&CPAGE:5435;:y=8:LLTEXT =yn >copy=0 @yes6000p EPRINT/DISPLAY G :copy H:" ";n$;" Date:";t$: J7" Name:"'" ";p$(1)(l(1));" ";p$(2) T :" CATEGORIES TOTALS" Y" " ^j=1nc h" ";c$(j);t(j) rj wcopy0,0:0,175:255,0:0,-175:6,0:0,169:243,0:0,-169 |copypress copy  5310 copy pANYONE ELSE zCPAGE 6020:y=9 :LLTEXT 4"Would you like to test","anyone else ? (Y/N)","#" YN:YES3500 dANYTHING ELSE cpage 6550:y=9 :LLTEXT @"Do you require anything else","from this program ? (Y/N)","#" yn yesg  9200# WMESSAGES X,5::;:7000X:Y=0:DBLTX ]H" This program has been finding","out about your attitude to:"," ","#" bRJ=1̺(NC/2):D$=(64@+J)+") "+A$(J):LL+1:Y=Y+2:J eJ=1:7400 gY=20:D$="FOR SOME THOUGHTS ON THESE":LL:Y=0:D$="DIFFERENT TOPICS, PRESS A KEY...":#1;5;0;:LL:0 l:; qJPRINTER"NAME:";P$(1)(L(1));" ";P$(2)'"DATE:";T$''N$ v;ST=0:TX=8000@:J=1̺(NC/2):;:TX D$:Y=0:LL+1 D$:Y=2:LL+1 D$=B$:Y=4:LL+1 jt(j*2-1)>m(j*2-1)*percent/100dg$=q$(noq+j+1)(96`):7100 dt(j*2)>m(j*2)*percent/100dg$=q$(noq+j+1)(101e196):7100 +g$=q$(noq+j+1)(201296() (k=02:y=7+k*2 /d$=g$(k*32 +1k*32 +32 ) ll:k 7jɺ(nc/2)J=J+1:7400:J=J-1 7130:y=14:dbltx z" What do you think of this ?"," A) Completely agree."," B) Not quite true, not far off."," C) Completely disagree.","#"  PRESSABC  1;1;7,0;10 ;9 ;8;7;6;;5;31;" ";VIEW*2+14,0;10 ;5;31;" " PRINTER7200  y#1;1;6;1;0,0;" COPY DOWN YOUR MESSAGE & RECORD YOUR ANSWER-THEN PRESS A KEY. " ""7195 =""7196 0:TX=TX+10 :TX=8040hTX=8000@ J:;:  +'"CATEGORY:"'A$(J)''"COMPUTER'S MESSAGE:" %DK=02:g$(k*32 +1k*32 +32 ):K: *!D$=P$(1)(L(1))+" " 4*VIEW=1D$=D$+"completely agrees." >&VIEW=2D$=D$+"partly agrees." H-VIEW=3D$=D$+"completely disagrees." R)'d$''"********************************"  :J::: 2CPAGE:Y=6:D$="Tear off your results":ll beep: REJIG A$ TO FIT TEXT OB$=A$(J):H=1̱B$:X=B$(H):X65AX90ZB$(H)=(X+32 ) X=46.B$(H)=":" H: @?"Your answers to the questions","suggest that in relation to" J?"Looking at your results it","would seem that in the area of" TD"From your answers is it fair to","say that when it comes down to" ^?"The way you answered the","questions seems to show that for" "_ GOTO G: "` :BREAKOFF "jG0,0;1;"RE-ENTRY POINTS";0,27;"PRESS" "~34,0;"Preparing for a test 1" "36,0;"In the middle of testing 2" "38,0;"Printing the results 3" "410 ,0;"Displaying the results 4" " 0 "="1"3200 "="2":4440X "="3"5090 "="4"5435; " 8910" # START # :*"M";1;"Sampleli" #E$="M":F$="H":90102# #'FINAL COPY START #(-J="23653"+"256"*"23654":Y=(*"256") #-" ""23552"-Y,J-"23500"+Y #2BREAKOFF=1100L:BREAKOFF #; VARS #< HH=60< #@WASH COLOUR #ACLSCOL=2 #FBORDCOL=1 #Gcopy=0 #Hll=105i #JLLTEXT=920 #KLLTEXT2=930 #Pbord=3073:ok=375w #Q?cpage=320@:PPAGE=1120`:ln=21:cln=315; #R6j=17:"a"+j,0:j:"a",255 #Vpress=400 #Wg=8800`" #Z(scrolldn=365m:scrollup=362j #[yn=341U:pq2=349] #\beep1=410 #]236099\,30 #d$PRESSABC=420:text=490 #e#BOXES=510:CHOOSE=540 #f%dbltx=460:dblpress=480 #g7INKEY=630v:BRTBOX=620l:UNBRTBOX=625q #hCLLINES=640 #i$0:0:0:0 #jINTRO=700 #kBEEP=900 #lPRINTERCHECK=940 #n9070n#:j=015:k:"b"+j,k:j:0,126~,66B,66B,66B,66B,126~,0,0,126~,126~,126~,126~,126~,126~,0 # 3000 #ENTER NAME #K"LINE ";(J)'">>";D$:D$>30'"LENGTH:";D$:410:9097# # #CASSETTE SAVE #W23658j\,0::"ENTER NAME AND ADDRESS IN 2"'"LINES (CHECKED FOR 30 CHARS):" #J=1:9097#:E$=D$ #J=2:9097#:F$=D$ # :E$'F$: #/#1;"OK?":630v:D$="n"9100# #O:'"SELECT"''" 1 LIFESKILLS"''" 2 LAWBREAKING"''" 3 SAMPLE" #*0:D$=:D$<"1"D$>"3"9150# #"9190#:J=1̰D$:D$:J #*"m";1;""+D$+"" #܎S=9120#:G=9000(#::"PRESS A KEY "'"GOTO G "'"TO RESAVE: STOP N O W & GOTO S":0:: #""Lifeskil","Lawbreak","Sampleli" $ END $1:1:: $+I=56:y=20:9300T$ $k=19 $I:k>63 $ )d$:ll:A=3280 :A=3280 :K $I: $T"REWIND THE TAPE","FOR NEXT TIME","--------","PROGRAM SWITCHING OFF","IN "+(45--7*I)+" SECONDS","","-----"," M.Hodge 1987","-----" &GFINAL SAVE &H:D$="GOODQBASIC" &R J=1 &W 9830f& &\ "M";J;D$ &f*"M";J;D$9100# &p *"M";J;D$: & SAVE &,:Q$="GQBASIC":"ENTER ";(Q$);" NUMBER:";N &J=132 &"M";J;Q$+(N-2) &**"M";J;Q$+N8970 #:*"M";J;Q$+N:J '*"M";1;"Lawbreak"  ESocial Services, The Granary,FScunthorpe, SOUTH HUMBERSIDE.DLawbreaklkde=MGood self-concept Bad self-concept Loner Groupie Considered Impulsive Anti-authority Pro-authority Throwaway 16 9 Lawbreakin67 What do you think of your- self? Choose the square which isclosest to how you really see yourself. I am attractive, intelligent and good-looking. I am ugly, repulsive and stupid. 1*0*2*0*1*0*1*0* How do you like to spend yourtime? Which square is closest to the truth? I like to be on my own all the time. I hate being on my own, I'd always rather be with a group of my mates. 3*0*4*0*1*0*1*0* At Christmas are you the sortof person who: Gets all your presents well beforehand. Leaves everything to the last minute and ends up rushing to the shops on Christmas Eve. 5*0*6*0*1*0*1*0* If you were in charge of the Country and were making up the law about shoplifting where would you choose between these: The first three times someone's caught they should getoff with a warning. They should have a hand chopped off the 1st time (after that the Court should get tough)9*0*9*0*1*0*1*0* What do you think of the Police? Choose the square closest to your point of view. I hate them all. They beat people up and tell lies to get you nicked. I like the Police. They do a difficult job and are O.K. if you're straight with them. 7*0*8*0*1*0*1*0* Are you the sort of person you would want as a friend? Choose a place between: No, I'm just not worth knowing. Yes, I can't imagine a nicer person. 2*0*1*0*1*0*1*0* When you have done things that got you into trouble were you in a group or on your own? I was always on my own. I was always with my friends. 3*0*4*0*2*0*2*0* You're at a disco and some ofyour mates look like getting in a fight with some strangers. What would you do? Not get involved because you know you may get nicked and be in bad trouble. Go over and support them without thinking what it might mean for you. 5*3*6*4*2*1*2*1* His Royal Highness, Charles, the Prince of Wales, is in your opinion.... (Choose a square) A complete idiot and raving ratbag. A very nice man who will make a first-rate king in due course. 9*0*9*0*1*0*1*0* What do you think about Magistrates and Judges? Choose a place between: Stupid old farts from another planet. Wise and experienced adults trying to do the best forpeople in trouble. 7*0*8*0*1*0*1*0* Think about the last year in your life and place yourself somewhere on the squares between: I've had a really good year and achieved a lot of things I'm proud of. It's been an awful year. I've made a total mess-up and failed at everything. 1*0*2*0*2*0*2*0* You're out with your friends and they decide to break into a kiosk to nick some fags. They ask you to be lookout. Would youWalk off and not be bothered even though they call you 'chicken'. Keep a lookout for your friends and not bother what might happen. 3*5*4*6*2*1*2*1* If you were going to a party that was a long way from home, would you... (Choose a square) Arrange a lift home or find out the time of the last bus home. Go to the party without bothering to think how you'd gethome. 5*0*6*0*1*0*1*0* There's too much sex and violence on T.V. Total nonsense, I'd like to see more of both. Absolutely right. I'm sick of it being rammed down my throat. 9*0*9*0*1*0*1*0* What do you think of Social Workers and Probation Officers? Choose the square closest to your viewpoint. Sympathetic,understandingpeople who do their best to helpyou. Bossy wimps, who just want people to do what they say. 8*0*7*0*1*0*1*0* What are the chances of you being in trouble with the law inthe next year? Choose between: Not the faintest chance. Absolute certainty. 9*0*9*0*1*0*1*0* You obviously think you're a wonderful person. Perhaps you should ask others if they agree. You seem to have a really low opinion of yourself. There must be things you'd like to change. You seem to quite like your- self. There are some character- istics you could improve though. You don't get on very well with people of your own age. If you agree, does it bother you? You care a lot what your matesthink about you. Are you gettinginto trouble trying to impress? You should ask yourself:'Am I making up my own mind or just going along with my mates?' You're the sort of person who plans ahead. What are you doing here and what about your future? You sometimes do stupid thingswithout stopping to think. This could get you into real trouble. You could avoid a lot of problems by thinking more care- fully before you do things. You seem to hate people who have authority over you. Perhapsthis gets you into trouble? You respect those in authorityand are quite happy to be told what to do by them. While you don't like being bossed around, you realise it's sometimes necessary to obey. 20 20 30 30 25 25 15 15 40  Good self-concept Bad self-concept Loner Groupie Considered Impulsive Anti-authority Pro-authority Throwaway #I  oercenC    0 (N N S W N Law-breaking.yHow you view yourself. Being influenced by friends. Looking ahead. People in authority. ZNg(#yg  t\23552\ 23500[ \t