1 REM Ins{nd av Kjell Svensson <5318>    1987-01-24 20.24.57 (DUMP)
10 ; CHR$(12%);
11 REM PERSONLIGHETSTEST
12 REM K[LLA TIDNINGEN MODERN MANAGER
14 REM NR : 1 1985
15 REM 
16 REM PROGRAM JONNY ISBERG <609> 08-293355
18 REM PROGRAMMET SKRIVET F\R : 
19 REM ABC80,40-TKN,KASSETT
20 REM *** CTYP.BAS ***
30 X$="1 2 3 4 5 6 7"
40 DIM S%(35%,7%),F$=120
100 ; TAB(13%)"*** C-TYP ***"
110 ; : ; TAB(6%)"PERSONLIGHETS OCH STRESSTEST"
120 ; STRING$(39%,61%)
130 ; TAB(10%)"BEST[M DIN C-PROFIL"
140 ; : ; TAB(4%)"BESVARA FR]GORNA MED EN SIFFRA"
150 ; TAB(4%)"1 = H]LLER INTE ALLS MED"
160 ; TAB(4%)"7 = H]LLER MED HELT OCH H]LLET"
170 ; STRING$(39%,95%)
180 FOR I%=1% TO 35% : FOR J%=1% TO 7%
190 READ S%(I%,J%) : NEXT J% : NEXT I%
200 FOR I%=1% TO 35%
210 ; CUR(11%,0%)STRING$(440%,32%)
220 ; CUR(11%,15%)"***"I%" ***" : ; 
230 READ F$ : ; F$
240 ; : ; X$
250 GET Q$ : IF ASC(Q$)<48% OR ASC(Q$)>55% THEN 250
255 Q%=VAL(Q$) : ; TAB((Q%-1%)*2%)CHR$(255)
260 S%=S%(I%,Q%) : IF S%=0% THEN ; S%" INGEN PO[NG"
270 T%=S% AND 3%
280 IF S% AND 64% THEN P%=P%+T% : ; T%" PANIK"
290 IF S% AND 32% THEN D%=D%+T% : ; T%" DR\NARE"
300 IF S% AND 28% THEN C%=C%+T% : ; T%" C-TYP"
310 IF S% AND 16% THEN C1%=C1%+T% : ; T%" KONTROLL"
320 IF S% AND 8% THEN C2%=C2%+T% : ; T%" SJ[LVF\RTROENDE"
330 IF S% AND 4% THEN C3%=C3%+T% : ; T%" ]TAGANDE"
340 GET \$
350 NEXT I%
360 ; CUR(6%,0%)STRING$(600%,32%)
370 ; CUR(6%,0%)"PANIK    "P%
380 ; "DR\NARE  "D%
390 ; "SUMMA P+D"P%+D%
400 ; CUR(6%,19%)C%TAB(24%)"C-TYP"
410 ; CUR(7%,19%)C1%TAB(24%)"KONTROLL"
420 ; CUR(8%,19%)C2%TAB(24%)"SJ[LVF\RTROENDE"
430 ; CUR(9%,19%)C3%TAB(24%)"]TAGANDE"
440 ; : ; "EN [KTA C-TYP HAR DUBBELT S] M]NGA      C-PO[NG SOM P OCH D TILLSAMMANS"
450 ; : ; "HAR DU M]NGA P-PO[NG [R DU I RISKSONEN  F\R STRESSJUKDOMAR"
460 ; : ; "DEN PERFEKTE  C-TYPEN  HAR  30 PO[NG I  VARJE C-KOLUMN SOM DOCK [R SYNNERLIGEN  S[LLSYNT"
470 ; : ; TAB(13%)"*** SLUT ***"
480 END 
599 REM 
600 REM PO[NG
601 DATA 34,34,33,26,26,65,67
602 DATA 34,33,21,22,65,66,67
603 DATA 34,34,33,10,10,65,67
604 DATA 35,34,33,0,6,65,67
605 DATA 66,26,26,33,34,35,35
606 DATA 35,35,34,33,6,5,66
607 DATA 35,34,33,5,6,65,66
608 DATA 35,35,34,33,26,26,66
609 DATA 0,10,9,0,0,0,0
610 DATA 66,65,10,9,33,34,35
611 DATA 35,34,33,5,6,65,67
612 DATA 67,66,65,18,17,0,33
613 DATA 66,25,26,0,33,34,35
614 DATA 0,0,9,10,0,0,0
615 DATA 35,35,34,33,6,5,66
616 DATA 67,65,26,0,33,34,35
617 DATA 33,22,21,65,66,67,67
618 DATA 35,34,33,0,6,65,66
619 DATA 34,34,34,33,5,6,65
620 DATA 35,34,33,0,6,65,67
621 DATA 35,34,33,5,6,65,67
622 DATA 35,34,33,9,10,9,66
623 DATA 66,26,26,33,34,35,35
624 DATA 67,67,66,65,18,0,33
625 DATA 9,10,9,0,0,0,0
626 DATA 34,33,17,18,65,66,67
627 DATA 35,34,33,5,6,65,67
628 DATA 0,0,9,10,0,0,0
629 DATA 35,35,34,33,6,65,67
630 DATA 35,34,33,21,22,65,67
631 DATA 35,35,34,33,0,6,6
632 DATA 66,25,26,0,33,34,35
633 DATA 67,66,65,17,18,33,34
634 DATA 35,35,34,33,10,10,66
635 DATA 0,17,18,0,0,0,0
699 REM 
700 REM FR]GOR
701 DATA "JAG KLARAR ALLT JAG F\RS\KER MEJ P]"
702 DATA "JAG HAR ST[NDIGT F\R MYCKET ATT G\RA"
703 DATA "JAG VILL PROVA P] ALLT"
704 DATA "JAG [R PRESTATIONSFIXERAD"
705 DATA "JAG TYCKER INTE OM ATT PROVA SAKER      JAG [R OS[KER P]"
706 DATA "JAG BLIR OFTA S] ENGAGERAD ATT JAG      TAPPAR BEGREPP OM TID"
707 DATA "JAG G\R VAD SOM HELST F\R ATT UPPN]     MINA M]L"
708 DATA "JAG S\KER UTMANINGAR"
709 DATA "JAG HAR SV]RT ATT REPA MEJ EFTER        ETT MISSLYCKANDE"
710 DATA "JAG ACCEPTERAR INTE OMEDELBART          NYA IDE'ER"
711 DATA "MITT ARBETE [R MITT LIV"
712 DATA "JAG [R NOGGRANN MED DETALJER"
713 DATA "JAG TAR INGA RISKER"
714 DATA "JAG TYCKER ATT JAG ALLTID M]STE BEVISA  F\R MEJ SJ[LV"
715 DATA "JAG VILL VARA B[ST I DET JAG G\R"
716 DATA "JAG TAR DET S[KRA F\RE DET OS[KRA"
717 DATA "JAG F\RBEREDER MEJ INTE TILLR[CKLIGT    INF\R VIKTIGA H[NDELSER"
718 DATA "JAG [R EN TUFF BILF\RARE"
719 DATA "JAG HAR EN DR\M"
720 DATA "JAG S[TTER M]LEN H\GRE [N JAG KAN N]"
721 DATA "JAG GAPAR OFTA \VER F\R STORT STYCKE"
722 DATA "JAG [R EN OBOTLIG OPTIMIST"
723 DATA "JAG TYCKER INTE OM ATT TA CHANSER"
724 DATA "JAG T[NKER NOGGRANNT INNAN JAG HANDLAR"
725 DATA "MISSLYCKAS JAG MED EN VIKTIG SAK TYCKER JAG INTE LIVET [R V[RT ATT LEVA"
726 DATA "JAG TYCKER JAG ALLTID J[KTAR"
727 DATA "JAG GER ALDRIG UPP"
728 DATA "JAG M]STE G\RA BRA IFR]N MEJ"
729 DATA "JAG TVINGAR MEJ SJ[LV TILL GR[NSEN      F\R MIN F\RM]GA"
730 DATA "MINA ]TAGANDEN GER MEJ V[LDIGT LITE     TID F\R AVKOPPLING"
731 DATA "JAG [LSKAR ARBETE"
732 DATA "JAG H]LLER MEJ ALLTID TILL REGLERNA"
733 DATA "JAG \VERV[GER NOGA VARJE M\JLIGHET      INNAN JAG TAR N[STA STEG"
734 DATA "DET FINNS EGENTLIGEN INGENTING          SOM JAG INTE KLARAR"
735 DATA "JAG FORTS[TTER OFTA MED N]GOT NYTT      INNAN JAG [R KLAR MED DET JAG           H]LLER P] MED"
736 DATA "SLUT"