1 REM Ins{nd av H}kan Nordell <5323>    1986-01-06 02.21.21
10 ! ****************************************
11 ! ********* PROGRAM: ANATOMI.BAS *********
15 ! ****************************************
30 ! *** H]KAN NORDELL NORRT[LJE Mnr:5323 ***
50 ! ****** UTRUSTNING ABC 802 ABC 821 ******
70 ! ************ NOVEMBER 1984 *************
90 ! ****************************************
91 ! 
92 ! Detta programm tillkom d} min sambo h|ll p} 
93 ! att l{sa till undersk|terska. F|r att hon
94 ! sj{lv skulle kunna f|rh|ra sig p} fackord
95 ! s} gjorde jag detta simpla program. Man kan
96 ! byta ut sjukhustermerna i DATA-satserna mot
97 ! n}got som passar f|r tillf{llet, tex. tyska 
98 ! eller franska glosor. Mycket n|je ?!!
100 ! 
103 ! Speciellt tack till Gunnar Faith-Ell och Bo Kullmar som hj{lpte mig
104 ! med |verf|ringen till MONITOREN.
105 ! 
106 ! Mindre justeringar av Bo Kullar, 860106, bl a p}slag av caps lock
107 ! 
108 EXTEND : FLOAT 
110 WIDTH 40 : OUT 34,136 ! Caps lock till
115 DIM I(646)
120 ; CHR$(12) : ; CUR(11,3) 'Programkonstrukt|r: H]KAN NORDELL' : FOR I=0 TO 4000 : NEXT I 
130 ! 
170 ! 
190 ! ************* MENY *********************
210 ! 
230 ; CHR$(12)
250 RESTORE 410
270 FOR I=0 TO 7
290   ; CUR(I,0) GWHT;
310 NEXT I 
330 FOR I=1 TO 646
350   READ A,B
351   B=B+5
370   TXPOINT A,B
390 NEXT I 
410 DATA 1,52,1,53,1,54,1,55,1,59,1,60,2,51,2,52,2,53,2,54,2,55,2,56,2,59,2,60,2,61,3,51,3,52,3,53,3,54,3,55,3,56,3,57,3,59,3,60,3,61,3,62
430 DATA 4,51,4,52,4,56,4,57,4,61,4,62
450 DATA 5,51,5,52,5,56,5,57,5,61,5,62,6,52,6,53,6,56,6,57,6,58,6,60,6,61,6,62
470 DATA 7,51,7,52,7,53,7,54,7,55,7,56,7,57,7,58,7,59,7,60,7,61,7,62,8,51,8,52,8,53,8,54,8,55,8,56,8,57,8,58,8,59,8,60,8,61
490 DATA 9,51,9,52,9,53,11,51,11,52,11,53,11,54,11,55,11,56,11,57,11,58,11,59,11,60,11,61,11,62
510 DATA 12,51,12,52,12,53,12,54,12,55,12,56,12,57,12,58,12,59,12,60,12,61
530 DATA 12,62,13,51,13,52,13,53,13,54,13,55,13,56,13,57,13,58,13,59,13,60,13,61,13,62,14,60,14,61,15,61,15,62,16,61,16,62
550 DATA 17,51,17,52,17,53,17,54,17,55,17,56,17,57,17,57,17,58,17,59,17,60,17,61,17,62,18,51,18,52,18,53,18,54,18,55,18,56,18,57,18,58,18,59,18,60,18,61
570 DATA 20,52,20,53,20,54,20,55,20,59,20,60,21,51,21,52,21,53,21,54,21,55,21,56,21,59,21,60,21,61
590 DATA 22,51,22,52,22,53,22,54,22,55,22,56,22,57,22,59,22,60,22,61,22,62
610 DATA 23,51,23,52,23,56,23,57,23,61,23,62
630 DATA 24,51,24,52,24,56,24,57,24,61,24,62,25,52,25,53,25,56,25,57,25,58,25,60,25,61,25,62
650 DATA 26,51,26,52,26,53,26,54,26,55,26,56,26,57,26,58,26,59,26,60,26,61,26,62,27,51,27,52,27,53,27,54,27,55,27,56,27,57,27,58,27,59,27,60,27,61
670 DATA 28,51,28,52,28,53
690 DATA 30,60,30,61,30,62,31,60,31,61,31,62,32,52,32,53,32,54,32,55,32,56,32,57,32,58,32,59,32,60,32,61,32,62,32,63,32,64,32,65,32,66
710 DATA 33,51,33,52,33,53,33,54,33,55,33,56,33,57,33,58,33,59,33,60,33,61,33,62,33,63,33,64,33,65,33,66
730 DATA 34,51,34,52,34,53,34,54,34,55,34,56,34,57,34,58,34,59,34,60,34,61,34,62,34,63,34,64,34,65,34,66
750 DATA 35,51,35,52,35,53,35,60,35,61,35,62,36,51,36,52,36,53,36,60,36,61,36,62,38,54,38,55,38,56,38,57,38,58,38,59
770 DATA 39,53,39,54,39,55,39,56,39,57,39,58,39,59,39,60
790 DATA 40,52,40,53,40,54,40,55,40,56,40,57,40,58,40,59,40,60,40,61,41,51,41,52,41,53,41,60,41,61,41,62,42,51,42,52,42,61,42,62
810 DATA 43,51,43,52,43,53,43,60,43,61,43,62,44,52,44,53,44,54,44,55,44,56,44,57,44,58,44,59,44,60,44,61,45,53,45,54,45,55,45,56,45,57,45,58,45,59,45,60
830 DATA 46,54,46,55,46,56,46,57,46,58,46,59,48,51,48,52,48,53,48,54,48,55,48,56,48,57,48,58,48,59,48,60,48,61,48,62,49,51,49,52,49,53,49,54,49,55,49,56
850 DATA 49,57,49,58,49,59,49,60,49,61,49,62,50,51,50,52,50,53,50,54,50,55,50,56,50,57,50,58,50,59,50,60,50,61,50,62,51,60,51,61,52,61,52,62,53,61,53,62
870 DATA 54,51,54,52,54,53,54,54,54,55,54,56,54,57,54,58,54,59,54,60,54,61,54,62,55,51,55,52,55,53,55,54,55,55,55,56,55,57,55,58,55,59,55,60,55,61
890 DATA 56,60,56,61,57,61,57,62,58,61,58,62,59,51,59,52,59,53,59,54,59,55,59,56,59,57,59,58,59,59,59,60,59,61,59,62,60,51,60,52,60,53,60,54,60,55,60,56
910 DATA 60,57,60,58,60,59,60,60,60,61,62,51,62,52,62,53,62,54,62,55,62,56,62,57,62,58,62,59,62,60,62,61,62,62,62,64,62,65,62,66,63,51,63,52,63,53,63,54
930 DATA 63,55,63,56,63,57,63,58,63,59,63,60,63,61,63,62,63,64,63,65,63,66,64,51,64,52,64,53,64,54,64,55,64,56,64,57,64,58,64,59,64,60,64,61,64,62
950 DATA 64,64,64,65,64,66
970 DATA 1,49,2,49,3,49,4,49,5,49,6,49,7,49,8,49,9,49,10,49,11,49,12,49,13,49,14,49,15,49,16,49,17,49,18,49,19,49,20,49,21,49,21,49,22,49,23,49,24,49
990 DATA 25,49,26,49,27,49,28,49,29,49,30,49,31,49,32,49,33,49,34,49,35,49,36,49,37,49,38,49,39,49,40,49,41,49,42,49,43,49,44,49,45,49,46,49,47,49
1010 DATA 48,49,49,49,50,49,51,49,52,49,53,49,54,49,55,49,56,49,57,49,58,49,59,49,60,49,61,49,62,49,63,49,64,49
1030 DATA 66,62,67,62,68,62,69,62,70,62,71,62,72,62,73,62,74,62,75,62,76,62,77,62,77,61,77,60,77,59,77,58,77,57,77,56,77,55,77,54,77,53,77,52,77,51,77,50
1050 DATA 77,49,77,48,77,47,76,47,75,47,74,47,73,47,72,47,71,47,70,47,69,47,68,47,67,47,66,47,65,47,64,47,63,47,62,47,61,47,60,47,59,47,58,47,57,47,56,47
1051 DATA 55,47,54,47,53,47,52,47,51,47,50,47,49,47,48,47,47,47,46,47,45,47,44,47,43,47,42,47,41,47,40,47,39,47,38,47,37,47,36,47,35,47,34,47,33,47,32,47
1052 DATA 31,47,30,47,29,47,28,47,27,47,26,47,25,47,24,47,23,47,22,47,21,47,20,47,19,47,18,47,17,47,16,47,15,47,14,47,13,47,12,47,11,47,10,47,9,47,8,47
1053 DATA 7,47,6,47,5,47,4,47,3,47,2,47,1,47
1230 ; CUR(8,3) ' R\RELSEAPPARATEN.............. 1.'
1250 ; CUR(9,3) ' CIRKULATIONSAPPARATEN......... 2.'
1270 ; CUR(10,3) ' UTS\NDRINGSAPPARATEN.......... 3.'
1290 ; CUR(11,3) ' MATSPJ[LKNINGSAPPARATEN....... 4.'
1295 ; CUR(12,3) ' NERVSYSTEMET OCH SINNESORGAN.. 5.'
1300 ; CUR(13,3) ' ANDNINGSAPPARATEN............. 6.'
1305 ; CUR(14,3) ' ALLM[NT....................... 7.'
1310 ; CUR(15,3) ' ORD FR]N SVENSKA TILL LATIN... 8.'
1330 ; CUR(16,3) ' ORD FR]N LATIN TILL SVENSKA... 9.'
1350 ; CUR(17,3) ' MINNESUTSKRIFT P] PRINTER.... 10.'
1370 ; CUR(18,3) ' AVSLUTA PROGRAMK\RNINGEN..... 11.'
1390 ; CUR(21,1) 'F\R ATT AVBRYTA PROGRAMK\RNING, TRYCK'
1410 ; CUR(22,1) '           PF1 (CTRL+1)                                          ';
1430 ; CUR(23,27) 'V[LJ NR:';
1450 ON ERROR GOTO 2630
1470 INPUT P$
1490 GOTO 1530
1510 ! *************** VAL. BER[KNING **************
1530 F$='ET'
1550 G$='EN'
1570 H$='N'
1590 I$='T'
1610 IF P$='1' THEN M=43 : RESTORE 10003 : G=1 : GOTO 1870
1650 IF P$='2' THEN M=21 : RESTORE 20003 : S=2 : GOTO 1870
1690 IF P$='3' THEN M=13 : RESTORE 30003 : T=3 : GOTO 1870
1730 IF P$='4' THEN M=28 : RESTORE 40003 : U=4 : GOTO 1870
1731 IF P$='5' THEN M=13 : RESTORE 45003 : A%=5 : GOTO 1870
1732 IF P$='6' THEN M=8 : RESTORE 50003 : B%=6 : GOTO 1870
1735 IF P$='7' THEN M=66 : RESTORE 55003 : C%=7 : GOTO 1870
1770 IF P$='8' THEN GOTO 4510
1790 IF P$='9' THEN GOTO 4630
1810 IF P$='10' THEN RESTORE 10003 : GOTO 4150
1850 IF P$='11' THEN GOTO 2730 ELSE GOTO 2270
1855 ! ***************** ING]NGSFR]GA ***************************
1870 ; CHR$(12) : ; CUR(5,0) '* VILL NI FR]GORNA SKALL VARA P] ' : ; CUR(7,2) 'LATIN' : ; CUR(9,0) '  ELLER P] SVENSKA  '; : ON ERROR GOTO 2450
1875 INPUT Q$ : GOSUB 3071
1955 IF Q$='LATIN' GOTO 1957
1956 IF Q$='SVENSKA' THEN GOTO 1957 ELSE GOTO 1870
1957 ; CHR$(12) : ; CUR(11,7) '* ANTAL FR]GOR *'
1958 FOR K=1 TO M : ; CUR(11,27) K : FOR L=1 TO 80 : NEXT L 
1959 NEXT K : FOR L=1 TO 3000 : NEXT L 
1965 ; CHR$(12) : ; CUR(5,5) 'NU SKALL NI V[LJA ING]NGSFR]GA !'
1970 ; CUR(10,5) 'VILKET TAL '; : ON ERROR GOTO 2490 : INPUT N
1990 FOR I=1 TO M : IF I>=N THEN GOTO 2010 ELSE GOTO 2190
2010   ; CHR$(12) : READ A$,B$
2011   IF Q$='SVENSKA' ; '***   ' B$ '   ***'
2012   IF Q$='LATIN' ; '***   ' A$ '   ***'
2030   FOR J=1 TO 2 : ; : ; : ON ERROR GOTO 2450 : INPUT C$; : GOSUB 2950
2040     IF Q$='SVENSKA' GOTO 2145
2050     IF C$=B$+F$ THEN P=P+1 AND Q=O+P : GOTO 2170
2070     IF C$=B$+G$ THEN P=P+1 AND Q=O+P : GOTO 2170
2090     IF C$=B$+H$ THEN P=P+1 AND Q=O+P : GOTO 2170
2110     IF C$=B$+I$ THEN P=P+1 AND Q=O+P : GOTO 2170
2130     IF C$=B$ THEN P=P+1 : Q=O+P : GOTO 2170
2140     GOTO 2150
2145     IF C$=A$ THEN P=P+1 : Q=O+P : GOTO 2170
2150   ; : ; : ; '  FEL !' : ; : NEXT J : IF Q$='LATIN' GOTO 2250 ELSE 2251
2170   ; : ; : ; '  R[TT, BRA !!' : GOTO 2370
2190   READ A$,B$
2210 IF N>M GOTO 2490 ELSE NEXT I 
2230 GOTO 2810
2250 ; : ; '  ' B$ : O=O+1 : Q=O+P : ; : ; : ; '  L[S P] I BOKEN !!!' : GOTO 2370
2251 ; : ; '  ' A$ : O=O+1 : Q=O+P : ; : ; : ; '  L[S P] I BOKEN !!!' : GOTO 2370
2270 ; CHR$(12)
2290 ; 'FEL SIFFRA, MELLAN 1-11 VAR DET !!!!!!!'
2310 FOR L=1 TO 2500
2330 NEXT L 
2350 GOTO 230
2370 FOR L=1 TO 4000 : NEXT L : GOTO 2210
2390 ! 
2410 ! *************** FELHANTERING *****************
2430 ! 
2450 IF ERRCODE=53 THEN GOTO 2650
2470 ; 'FEL !' : FOR N=1 TO 3000 : NEXT N : GOTO 2650
2490 ; CHR$(12) : ; CUR(10,7) 'F\R STORT TAL, H\GST  ' M : FOR L=1 TO 3000 : NEXT L : GOTO 1965
2510 OUT 34,8 ! Caps lock fr}n
2520 END 
2530 ! 
2550 ! ****** SUBRUTIN. AVBRUTET-AVSLUTA-FR]GOR SLUT ************
2570 ! 
2590 ; CHR$(12) : ; CUR(3,3) '*** ORD\VERS[TTNING AVBRUTEN ***' : FOR L=1 TO 2000 : NEXT L : GOTO 230
2610 ; CHR$(12) : ; CUR(3,4) '**** INTRODUKTION AVBRUTEN ****' : FOR L=1 TO 2000 : NEXT L : GOTO 130
2630 ; CHR$(12) : ; CUR(3,4) '**** MENY AVBRUTEN ****' : FOR L=1 TO 2000 : NEXT L : GOTO 130
2650 ; CHR$(12) : ; CUR(3,4) '**** KUNSKAPSPROV AVBRUTET ****'
2670 ; : ; : ; : ; TAB(6) '* ANTAL ST[LLDA FR]GOR * ' Q
2690 ; CUR(11,5) '* R[TT * ' P : ; CUR(11,22) '* FEL * ' O
2691 Q%=Q : P%=P : O%=O
2692 Q=0 : P=0 : O=0
2693 ; : ; : ; : ; : ; 
2695 IF G=1 THEN V%=V%+I-1 : GOTO 2710
2697 IF S=2 THEN X%=X%+I-1 : GOTO 2711
2698 IF T=3 THEN Y%=Y%+I-1 : GOTO 2712
2699 IF U=4 THEN Z%=Z%+I-1 : GOTO 2713
2700 IF A%=5 THEN D%=D%+I-1 : GOTO 2714
2701 IF B%=6 THEN E%=E%+I-1 : GOTO 2715
2702 IF C%=7 THEN F%=F%+I-1 : GOTO 2716
2710 ; : ; : ; : ; TAB(3) ' * MENYVAL 1. UTG]NGSFR]GA NR * ' V% : GOTO 2728
2711 ; : ; : ; : ; TAB(3) ' * MENYVAL 2. UTG]NGSFR]GA NR * ' X% : GOTO 2728
2712 ; : ; : ; : ; TAB(3) ' * MENYVAL 3. UTG]NGSFR]GA NR * ' Y% : GOTO 2728
2713 ; : ; : ; : ; TAB(3) ' * MENYVAL 4. UTG]NGSFR]GA NR * ' Z% : GOTO 2728
2714 ; : ; : ; : ; TAB(3) ' * MENYVAL 5. UTG]NGSFR]GA NR * ' D% : GOTO 2728
2715 ; : ; : ; : ; TAB(3) ' * MENYVAL 6. UTG]NGSFR]GA NR * ' E% : GOTO 2728
2716 ; : ; : ; : ; TAB(3) ' * MENYVAL 7. UTG]NGSFR]GA NR * ' F% : GOTO 2728
2728 G=0 : S=0 : T=0 : U=0 : A%=0 : B%=0 : C%=0
2729 FOR L=1 TO 15000 : NEXT L : GOTO 230
2730 ; CHR$(12) : ; CUR(0,4) '**** KUNSKAPSPROV AVSLUTAT ****'
2740 ; : ; : ; TAB(7) '* ANTAL ST[LLDA FR]GOR * ' Q%
2750 ; CUR(5,6) '* R[TT * ' P% : ; CUR(5,23) '* FEL * ' O%
2770 ; : ; : ; TAB(3) ' * MENYVAL 1. UTG]NGSFR]GA NR * ' V%
2771 ; : ; TAB(3) ' * MENYVAL 2. UTG]NGSFR]GA NR * ' X%
2772 ; : ; TAB(3) ' * MENYVAL 3. UTG]NGSFR]GA NR * ' Y%
2773 ; : ; TAB(3) ' * MENYVAL 4. UTG]NGSFR]GA NR * ' Z%
2774 ; : ; TAB(3) ' * MENYVAL 5. UTG]NGSFR]GA NR * ' D%
2775 ; : ; TAB(3) ' * MENYVAL 6. UTG]NGSFR]GA NR * ' E%
2776 ; : ; TAB(3) ' * MENYVAL 7. UTG]NGSFR]GA NR * ' F%
2790 ; : GOTO 2510
2810 FOR N=N TO 5000 : NEXT N : ; CHR$(12) : ; CUR(3,2);'********* SLUT P] FR]GOR *********'
2830 ; : ; : ; : ; TAB(6) '* ANTAL ST[LLDA FR]GOR * ' Q
2850 ; : ; : ; : ; TAB(6) '* R[TT * ' P '   * FEL * ' O
2870 FOR L=1 TO 15000 : NEXT L : GOTO 230
2890 ! 
2910 ! ********* KONVERTERINGSRUTIN ************
2930 ! 
2950 FOR R=1 TO LEN(C$)
2970   E$=MID$(C$,R,1)
2990   Kod=ASCII(E$)
3010   IF Kod>95 THEN Kod=Kod-32
3030   MID$(C$,R,1)=CHR$(Kod)
3050 NEXT R 
3070 RETURN 
3071 FOR R=1 TO LEN(Q$)
3072   E$=MID$(Q$,R,1)
3073   Kod=ASCII(E$)
3074   IF Kod>95 THEN Kod=Kod-32
3075   MID$(Q$,R,1)=CHR$(Kod)
3076 NEXT R 
3077 RETURN 
3090 ! 
3110 ! ************* \VERS[TTNING SVENSKA - LATIN - SVENSKA **************
3130 ! 
3150 ; : ; '          * * *' : IF F=0 GOTO 3190
3170 ; #F,'           * * *' : ; #F,
3190 ; : RESTORE 10003 : ON ERROR GOTO 2590 : INPUT 'SVENSKA ? 'C$
3210 IF F=0 GOTO 3270
3230 ; #F,'SVENSKA ? ';
3250 ; #F,C$
3270 GOSUB 2950
3290 FOR K=1 TO 100000 : READ A$,B$
3310   F$='ET'
3330   G$='EN'
3350   H$='N'
3370   I$='T'
3390   IF C$=B$+F$ THEN GOTO 3510
3410   IF C$=B$+G$ THEN GOTO 3510
3430   IF C$=B$+H$ THEN GOTO 3510
3450   IF C$=B$+I$ THEN GOTO 3510
3470   IF C$=B$ THEN GOTO 3510
3490 ON ERROR GOTO 3970 : NEXT K 
3510 ; : ; 'LATIN     ';A$ : IF F=0 GOTO 3550
3530 ; #F, : ; #F,'LATIN     ' A$ : ; #F,
3550 GOTO 3150
3570 ; : ; '          * * *' : ; : IF F=0 GOTO 3610
3590 ; #F, : ; #F,'           * * *'
3610 RESTORE 10003 : ON ERROR GOTO 2590 : INPUT 'LATIN ?   'C$
3630 IF F=0 GOTO 3670
3650 ; #F, : ; #F,'LATIN ?   ' C$
3670 GOSUB 2950
3690 FOR L=1 TO 100000 : READ A$,B$
3710   F$='ET'
3730   G$='EN'
3750   H$='N'
3770   H$='N'
3790   IF C$=A$+F$ THEN GOTO 3910
3810   IF C$=A$+G$ THEN GOTO 3910
3830   IF C$=A$+H$ THEN GOTO 3910
3850   IF C$=A$+I$ THEN GOTO 3910
3870   IF C$=A$ THEN GOTO 3910
3890 ON ERROR GOTO 4030 : NEXT L 
3910 ; : ; 'SVENSKA   ';B$ : IF F=0 GOTO 3950
3930 ; #F, : ; #F,'SVENSKA   ' B$
3950 GOTO 3570
3970 ; : ; 'DETTA ORD FINNS INTE I MITT MINNE' : IF F=0 GOTO 4010
3990 ; #F, : ; #F; : ; #F,'DETTA ORD FINNS INTE I MITT MINNE' : ; #F,
4010 ; 'F\RS\K MED EN ANNAN STAVNING, ELLER ETT NYTT ORD' : FOR R=1 TO 4000 : NEXT R : GOTO 3150
4030 ; : ; 'DETTA ORD FINNS INTE I MITT MINNE' : IF F=0 GOTO 4070
4050 ; #F, : ; #F,'DETTA ORD FINNS INTE I MITT MINNE'
4070 ; 'F\RS\K MED EN ANNAN STAVNING, ELLER ETT NYTT ORD' : FOR S=1 TO 4000 : NEXT S : GOTO 3570
4090 ! 
4110 ! ************ UTSKRIFT. PRINTER ****************
4130 ! 
4150 F=FNPrinter
4170 ; #F, : ; #F, : ; #F, : ; #F,' *** UTSKRIFT AV DATAMINNE ************************************************'
4190 ; #F, : ; #F, : ; #F,'             ***' TAB(46) '***' : ; #F,
4210 FOR K=1 TO 100000 : READ A$,B$,R$,S$
4230   ; #F,'LATIN       ' A$ TAB(46) '' R$ : ; #F,
4250   ; #F,'SVENSKA     ' B$ TAB(46) '' S$ : ; #F,
4270   ; #F,'             ***' TAB(46) '***' : ; #F,
4290 NEXT K : GOTO 230
4310 ! 
4330 ! ************** PRINTER.DEF *********************
4350 ! 
4370 DEF FNPrinter
4390   OPEN 'PR:VSA' AS FILE 1
4410   RETURN 1
4430 FNEND 
4450 ! 
4470 ! *************** PRINTERUTSKRIFT (J/N) *********************
4490 ! 
4510 ; CHR$(12) : ; CUR(10,6) '\NSKAS UTSKRIFT'
4530 ; CUR(11,6) 'P] PRINTER  (J/N)  ';
4550 ON ERROR GOTO 2610 : INPUT N$ : IF N$<>'N' THEN F=FNPrinter ELSE F=0
4570 ; #F, : ; #F, : ; #F,' *** PROGRAM:ANATOMI.DOC **************************************************' : ; #F, : ; #F,
4590 ; #F,'DATAPROGRAM I ANATOMI, V]RD ]K 2' : ; #F, : ; #F, : ; #F,
4610 ; CHR$(12) : GOTO 3150
4630 ; CHR$(12) : ; CUR(10,6) '\NSKAS UTSKRIFT'
4650 ; CUR(11,6) 'P] PRINTER  (J/N)  ';
4670 ON ERROR GOTO 2610 : INPUT N$ : IF N$<>'N' THEN F=FNPrinter ELSE F=0
4690 ; #F, : ; #F, : ; #F,' *** PROGRAM:ANATOMI.DOC **************************************************' : ; #F, : ; #F,
4710 ; #F,'DATAPROGRAM I ANATOMI, V]RD ]K 2' : ; #F, : ; #F, : ; #F,
4730 ; CHR$(12) : GOTO 3570
9998 ! 
9999 ! *********** A N A D A T A . D O C *************
10000 ! 
10001 ! ************** R\RELSE *****************
10002 ! 
10003 DATA OS FRONTALE,PANNBEN,OS STERNUM,BR\STBEN, THORAX,BR\STKORG,KOLLUM,HALS,TIBIA,SKENBEN,PATELLA,KN[SK]L,OS ILLIUM,TARMBEN,OS COXA,H\FTBEN
10004 DATA KOSTA,REVBEN,SKAPULA,SKULDERBLAD,KLAVIKULA,NYCKELBEN,HUMERUS,\VERARMSBEN,RADIUS,STR]LBEN,OS PUBIS,BLYGDBEN,OS ICSHIS,SITTBEN,FIBULA,VADBEN
10005 DATA ULNA,ARMB]GSBEN,KARPALBEN,HANDLOVSBEN,METAKARPALBEN,MELLANHANDSBEN,FALANGER,FINGRARNAS BEN,TALUS,SPR]NGBEN,TARSALBEN,FOTLED,CALKANEUS,H[LBEN
10006 DATA CERVIKALKOTOR,HALSKOTOR,THORAKALKOTOR,BR\STKOTOR,LUMBALKOTOR,L[NDKOTOR,OS SAKRUM,KORSBEN,ARKUS,REVBENSB]GE,FEMUR,L]RBEN,KAPUT,HUVUD,TONUS,SP[NNING
10007 DATA DIAFRAGMA,MELLANG[RDE,M BICEPS BRACHII,TV]H\VDADE ARMMUSKELN,M GLUTEUS MAXIMUS,S[TESMUSKEL,M QUADRICEPS FEMORIS,FYRH\VDADE L]RMUSKELN
10008 DATA M TRICEPS SURAE,TREH\VDADE VADMUSKELN,M TRICEPS BRACHII,TREH\VDADE ARMMUSKELN,OSTEOPOROS,SKELETTSK\RHET,FRAKTUR,BENBROTT,ATROFI,F\RTVINING
10009 DATA OSTEOSYNTES,FIXERING,KALLUS,NYBILDAD BENV[VNAD,REUMATOID ARTRIT,LEDG]NGSREUMATISM
20000 ! 
20001 ! **************** CIRKULATION ***************
20002 ! 
20003 DATA A FEMORALIS,L]RBENSART[R,COR,HJ[RTA,PERIKARDIUM,HJ[RTS[CK,MYOKARDIUM,HJ[RTATS MUSKELV[GG,ENDOKARDIUM,HJ[RTATS INNERHINNA,TROMBOS,BLODPROPP
20004 DATA AORTA,STORA KROPPSPULS]DERN,A.CAROTIS,NYCKELBENSART[R,A.RADIALIS,STR]LBENSART[R,FIBRINOGEN,PLASMAPROTEIN,A TIBIALIS,FR[MRE SKENBENSART[R
20005 DATA A ULLNARIS,ARMB]GSART[R,A BROCHALIS,\VERARMSART[R,A AXILLARIS,ARMH]LSART[R,A CAROTIS,NYCKELBENSART[R,A SUBCLAVIA,HALSART[R
20006 DATA ARTERIOSKLEROS,]DERF\RKALKNING,KOAGULERA,LEVRA SIG,EMBOLI,L\SRYCKT TROMBOS,INFARKT,TILLT[PPNING,ANGINA PEKTORIS,K[RLKRAMP
30000 ! 
30001 ! **************** UTS\NDRING ****************
30002 ! 
30003 DATA URETER,URINLEDARE,REN,NJURE,URETRA,URINR\R,PROSTATA,BL]SHALSK\RTEL,VESIKA URIUARIA,URINBL]SA,GLOMERULUS,K[RLNYSTAN,TUBULUS,NJURKANAL
30004 DATA NEFRON,URINBILDANDE ENHET,URININKONTINENS,SV]RIGHET ATT H]LLA URIN,KATETER,R\RFORMAT INSTRUMENT,KATETER A DEMEURE,KVARLIGGANDE KATETER
30005 DATA CYSTIT,BL]SKATARR,ALBUMINURI,[GGVITA I URINEN
40000 ! 
40001 ! **************** MATSPJ[LKNING *************
40002 ! 
40003 DATA PYLORES,NEDRE MAGMUNNEN,ESOFAGUS,MATSTRUPE,VENTRIKULUS,MAGS[CK,KARDIA,\VRE MAGMUNNEN,DUODENUM,TOLVFINGERTARM,KOLON,TJOCKTARM
40004 DATA HEPAR,LEVER,PANKREAS,BUKSPOTTSK\RTEL,APPENDIX,BLINDTARMSBIHANG,FECES,AVF\RING
40005 DATA ANUS,[NDTARMS\PPNING,PERITONEUM,BUKHINNA,MESENTERIUM,TARMK[X,OBSTIPATION,F\RSTOPPNING,KARIES,TANDR\TA
40006 DATA GINGIVIT,TANDK\TTSINFLAMMATION,PARODONTIT,TANDLOSSNING,STOMATIT,INFLAMMATION I MUNSLEMHINNAN,CANDIDOS,TORSK,ULCUS,MAGS]R,GASTRIT,MAGKATARR
40007 DATA KOLIT,TJOCKTARMSINFLAMMATION,STOMI,\PPNING MUN,KUTAN STOMI,\PPNING I HUDEN,KOLELITIASIS,GALLSTEN,APPENDICIT,BLINDTARMSINFLAMMATION
40008 DATA AFAGI,OF\RM]GA ATT SV[LJA,ABDOMEN,BUK
45000 ! 
45001 ! ***************** NERVSYSTEMET OCH SINNESORGANEN *********************
45002 ! 
45003 DATA DENDRITER,IN]TLEDANDE UTSKOTT,AXON,UT]TLEDANDE UTSKOTT,SYNAPS,KONTAKTST[LLE,ENCEFALON,HJ[RNA,CEREBRUM,STORHJ[RNA,CEREBELLUM,LILLHJ[RNA
45004 DATA CORTEX CEREBRI,HJ[RNBARK,MEDULLA SPINALIS,RYGGM[RGEN,CEREBAL,SKADA I CEREBRUM,HEMIPLEGI,HALVSIDIG F\RLAMNING
45005 DATA AFASI,SV]RIGHET ATT TALA ELLER F\RST]
45006 DATA AMNESI,F\RLUST AV MINNET,ANACUSIS,D\VHET
50000 ! 
50001 ! ***************** ANDNINGSAPPARATEN ****************************
50002 ! 
50003 DATA ALVEOLER,LUNGBL]SOR,LARYNX,STRUPHUVUD,TRAKEA,LUFTSTRUPE,PULMONES,LUNGOR,PLEURA,LUNGS[CK,TORAX,BR\STKORG,SPUTUM,UPPHOSTNING
50004 DATA PNEUMONI,LUNGINFLAMMATION
55000 ! 
55001 ! **************** ALLM[NT *********************************
55002 ! 
55003 DATA HEMATOM,BL\DNING UNDER HUDEN,REPOSITION,]TERF\RANDE,NEKROS,V[VNADSD\D,HYPERPLASI,V[VNADS\KNING,RESORBERA,SUGA UPP,PROKTOS,BAKDEL
55004 DATA DIVERTIKLAR,FICKBILDNING,ULCER\S,S]RIG,TONSILL,MANDEL,MIKRO,LITEN,MAKRO,STOR
55005 DATA ANATOMI,L[RAN OM KROPPENS BYGGNAD,CYTOLOGI,CELL[RA,DESKRIPTIV,BESKRIVANDE,TOPOGRAFI,L[GESBESKRIVNING,FYSIOLOGI,L[RAN OM KROPPENS FUNKTIONER
55006 DATA PATOLOGI,L[RAN OM HUR SJUKDOM UPPST]R OCH YTTRAR SIG,DISPOSITION,MOTTAGLIGHET,ALLERGI,\VERK[NSLIGHETSREAKTION,RESISTENS,MOTST]NDSKRAFT
55007 DATA TRAUMA,V]LD,STRESS,REAKTION P] P]FRESTNING,PSYKE,SJ[L,SOMA,KROPP,DIAGNOS,SJUKDOMSBEST[MNING,ANAMNES,SJUKDOMS F\RHISTORIA,PERKUTERA,KNACKA
55008 DATA AUSKULTERA,LYSSNA,INSPEKTERA,IAKTTA,ANALYS,UPPDELNING I BEST]NDSDELAR,PUNKTION,INSTICK MED KANYL I H]LIGHET ELLER ORGAN,KANYL,SPRUTSPETS
55009 DATA ENDOSKOPI,BETRAKTA,TERAPI,BEHANDLING,CAUSA,ORSAK,NUCLEUS,K[RNA,ACID,SYRA,CYTO,CELL,MEMBRAN,TUNN HINNA,ARTEGEN,SPECIFIK F\R EN VISS ART
55010 DATA NITROGEN,KV[VE,O**2,OXYGEN,CILIER,FLIMMERH]R,FAGOCYT,[TCELL,ANTIKROPPAR,MOTKROPPAR-SKYDDS[MNE,IMMUN,OEMOTTAGLIG
55011 DATA ABORTERA,MISSFALL,ABUSUS,MISSBRUK,ACCIDENTELL,TILLF[LLIG,ACUMINATUS,SPETSIG,ADENIT,K\RTELINFLAMMATION,ADOLESCENS,UNGDOMS]R
55012 DATA ADULT,VUXEN,AEROFAGI,LUFTSLUKANDE,AFEBRIL,FEBERFRI,AGRAFF,S]RKL[MMA,AKME,H\JDPUNKT,AKNE,FINNE,ALBUMIN,[GGVITA,ALBUS,VIT
55013 DATA ALGOR MORTIS,D\DSKYLA,AMARA,BITTER[MNEN,AMBUSTIO,BR[NNSKADA,AMOTIO,BORTTAGANDE,AMYLACEA,ST[RKELSE[MMNEN,AMYLUM,ST[RKELSE
55014 DATA ANA,LIKA DELAR