Sitenotice: 11/29/2018: The wiki is back. It turns out, some anti-virus product on my web server had an issue with the latest version of PHP. My server techs have resolved this issue, and things should be working again. During the investigation, I did restore to a backup from September. There is a chance that any changes done since then were lost, but I do not recall any edits. --OS-9 Al

8/30/2016: Massive re-work is being done on the InfoBox Templates. Read that page to keep up with the plan for that, and adding better keyword tags (categories) to all the pages. --OS-9 Al (talk) 15:28, 31 August 2016 (CDT)

Are you psychotic, psychic (Rainbow 1981-09)

From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Jump to: navigation, search
WELCOME
Looking for CoCo help? If you are trying to do something with your old Color Computer, read this quick reference. Want to contribute to this wiki? Be sure to read this first. This CoCo wiki project was started on October 29, 2004. --OS-9 Al

See Recent Changes. | About this site. | Join the E-Mail List, Facebook Group or Google+ | Contact me with updates/questions.

This page was last updated on 05/2/2019. Total Pages: 647. Total Files: 937.


Home / Publications / Rainbow / Rainbow 1981 / Rainbow 1981-09 - Are you psychotic, psychic (Rainbow 1981-09)


The following program (pat) is brought to you courtesy or JARB Software. It is psychic aptitude Test it format, and is a lot of fun to see how psychic you might be.

Note that by comparison to QUIZ, the program itself is pretty short --from lines 10 to 290, and a great deal of that is instruction.

You should also note that this one is more gee-whiz than is QUIZ. It employs the use of sounds and colors to a greater degree than does QUIZ. That certainly will make it more appealing to younger test-takers.

PAT is easily adaptable to other uses, particularly school review. It does require that the student go through from start to finish, but more than makes up for it by the colors and sounds.

For those of you who do not want to type in the program (and then debug the typos), PAT can be ordered from JARB Software, 1169 Florida St., Imperial Beach, CA 92032 for $14.93 Plus $1 for shipping. You'll set a Bonus though, a copy of JARB BIORHYTHM included on the same tape. Although JARB chief programmer Joe Bennett promises us a copy of JARB BIORHYTHN for a future issue of the RAINBOW, it’s a long program and he emphasizes the bargain in sending off for the tape.

The PAT listing:

1 '*****************************
2 '*   PSYCHIC APTITUDE TEST   *
3 '*            BY             *
4 '*      JARB SOFTWARE        *
5 '* (C) JARB SOFTWARE 1981 *
13 CLEAR1000:CLS:A=0:B=0
20 FORI=1TO100:CLSRND(B)
30 PRINT@229," PSYCNIC APTITUDE TEST ";:PRINT@270," BY ";:PRINT@297," JARB SOFTWARE ";
40 SOUND100+I,1:NEXTI
30 CLS0:PRINT@230, "(C) JARB SOFTWARE 1981";:FORI=1T023:SOUNDI*2,1:SOUNDI*3, 1:SOUNDI*10,1:NEXTI
60 CLS:PRINT@128,"INSTRUCTIONS:":PRINT" QUESTIONS WILL BE ASKED OF YOU.";:PRINT"ANSWER THESE AS HONESTLY AS YOU":PRINT"CAN WHEN ALL QUESTIONS HAVE BEEN";:PRINT"ANSWERED, YOU WILL RECEIVE YOUR":PRINT'FINAL SCORE AND EVALUATION."
70 PRINT" THAT'S ALL THERE IS TO IT. ";:PRINT"HAVEFUN, AND PRESS <ENTER> TO ";:PRINT"BEGIN THE TEST."
80 SOUND120,4:SOUND130,4:SOUND150,4:SOUND130,4:A$=INKEY$:IFA$=""THEN80ELSE99
90 SOUND80,2:CLSRND(8):SOUND90.2:CLSRND(B):SOUND100,2:CLSRND(B):SOUND110,12:CLS
100 A=A+1:READA$,B$,C$:IFA$="END"THEN190
110 CLS0:PRINT@0,"THIS IS QUESTION #"A
120 PRINT@64,A$+CHR$(63):PRINT:PRINTB$+"  ";C$
130 INPUT"PLERSE CHOOSE ONE NUMBER";8
140 IFB<=0ORB>=3THEN110
150 IFB=1THENGOSUB180ELSE17O
160 CLS:IFA=18THEN190ELSE170
170 CLS:GOTO90
180 IFB=1THENSC=SC+10:RETURN
190 IF A=18 THEN SC=INT((SC*10*11.1111+1)/100)
208 IFSC<=50THENAR=1110ELSEIFSC<=100THENAR=1208ELSEIFSC<=150THENAR=1305ELSElFSC>=151THENAR=1400
210 CLS:PRINTTAB(1)"Y0UR FINAL SCORE IS";SC;"POINTS"
220 PRINT
233 PRINTTAB(10)"0-30 POINTS":PRINT"MAY HAVE PSYCHIC POWERS WORK ON":PRINT"THEM TO INCREASE THEIR STRENGTH"
240 PRINTTAB(10)"31-100 POINTS":PRINT"PSYCHIC POWERS ARE EVIDENT,WORK":PRINT"TO BRING THEM TO FULL FLOWER."
230 PRINTTAB(10)"101-130 POINTS":PRINT"VERY HIGH INDICATION OF PSYCNIC":PRINT"PO WERS." 260 PRINTTAB(10)"131-200 POINTS":PRINT"SUPER HIGH PSYCHIC POWERS,BUT":PRINT"YOU KHEW THRT ALREADY, RIGNT?" 270 PRINT:PRINT"HOLD ENTER TO END";
280 POKEAR+1,143:FORI=0TO30:NEXT:POKEAR-I,95:FORI=0TO30:NEXT:POKEAR=1,143:FORI=0 TO30:NEXT:POKEAR,95:SOUND180,1:FORI=0TO30:NEXT:POKEAR,143:FORI=0TO30:NEXT:POKEAR+1,95:FORI=0TO30:NEXT:Z$=INKEY$:IFZ$=""THEN280
290 CLS:PRINT@233,"JARB SOFTWARE"
300 DATA "HAVE YOU EVER BEEN THINKING ABOUT SOMEONE, AND UNEXPECTEDLY MET TH EM","1. YES","2. NO"
310 DATA "WHILE GAMBLING, HAVE YOU EVER HAD WHAT YOU THOUGHT WAS A LUCKYNUNCH" ,"1. YES","2. NO"
320 DATA "DID YOU EVER SAY THE SAME THING AS A FRIEND, AT THE SAME TIME","1. YES ","2. NO"
330 DATA "HAVE YOU EVER HAD THE EXPERIENCEOF THINKING OF A TOPIC, OR EVENTAND HA VE IT CONTINUALLY COME UP IN CONVERSATION, THE NEWS, OR INREADING MATERIAL WITHIN A 24 HR.PERIOD","1. YES","2. NO"
340 DATA "HAVE YOU EVER SHIVERED FOR NO  APPARENT REASON AND THEN LATER  RECEIV ED BAD NEWS ABOUT AN EVENTTHAT TOOK PLACE AT THAT TIME","1. YES", "2. NO"
350 DATA "HAVE YOU EVER DREAMT ABOUT A    PERSON, PLACE, OR THING, ONLY TOENCOUN TER IT AT A LATER DATE","1. YES","2. NO"
360 DATA "HAVE YOU EVER ENCOUNTERED A     PERSON, PLACE, OR THING FOR THE FIRST TIME, AND YET FELT THAT   YOU HAD SEEN IT BEFORE","1. YES","2. NO" 
370 DATA "HAVE YOU EVER HAD A STRONG      THOUGHT POP INTO YOUR MIND,     APPARE NTLY WITHOUT REASON, ONLY TO HAVE IT REPEATED BY SOMEONE  DAYS OR WEEKS LATER SO THAT IT  SUDDENLY MAKES SENSE TO YOU","1. YES", "2. NO"
380 DATA "HAVE YOU EVER HAD A PREMONITION OF SOMETHIHG, NO MATTER NOW    TRIVIA L, THAT LATER PROVED TO BECORRECT","1. YES","2. NO"
390 DATA "HAVE YOU EVER BEEN ON SUCH A   WINNING STREAK WHILE GAMBLING  THAT Y OU WERE SURE YOU COULDN'T LOSE, AND YOU DIDN'T","1. YES","2. NO"
400 DATA "HAVE YOU EVER FELT THAT SOMEONE WAS STARING AT YOU, AND THEN   TURNED AROUND TO FIND THAT IT  WAS TRUE? OR DID YOU EVER TRY TOMENTALLY WILL SOMEONE TO LOOK UPOR TURN AROUND, AND THEY DID","1. YES", "2. NO"
410 DATA "HAVE YOU EVER BEEN SO INVOLVED IN YOUR OWN THOUGNTS THAT YOU LOST A LL CONTACT WITH THE WORLD, ONLY TO REALIZE AFTER SOME TIME THAT A FRIEND HAD BEEN TRYING   TO ATTRACT YOUR ATTENTION","1. YES","2. NO"
420 DATA "HAVE YOU EVER EXCHANGED GLANCES WITH A STRANGER AND EACH OF YOU KNEW E XACTLY WHAT THE OTHER WAS THINKING FIND FEELING","1. YES","2. NO"
430 DATA "DO YOU APPERR TO HAVE A 'GREEN  THUMB', IN THAT YOU CAN SEEM TO BE ABL E TO INFLUENCE THE GROWTN OF PLANTS WITH YOUR THOUGHTS","1. YES","2. NO"
440 DATA "DO YOU HAVE A WAY WITH ANIMALS","1. YES","2. NO"
450 DATA "ARE YOU AN EXTROVERT OR ARE YOU A INTROVERT","1. EXTROVERT","2. INTROV ERT"
460 DATA "DO YOU HOLD A BELIEF IN E.S.P DROTHER PYSCHIC PHENOMENA","1. YES","2. NO"
470 DATA "ARE YOU HAPPY AND SATISFIED WITHLIFE IN GENERAL","1. YES","2. NO"
480 DATA "END","END","END"

Links

See this article as it appeared in the magazine