My Apple ][ came with a BONE TUMOR DIAGNOSIS program written in Applesoft on the contributed software floppies from Apple, "COPYRIGHT 1978 APPLE COMPUTER, INC." You might consider it Apple's earliest AI Powered Health App! You can run it in an emulator here:
https://archive.org/details/a2_Biology_19xx_
Text found in Biology_19xx__.do/BONE TUMOR DIAGNOSIS.bas:
0 TEXT : GOTO 2000
19 DIM PB(9,19)
20 FOR I = 1 TO 9: FOR J = 0 TO 18: READ PB(I,J): NEXT : NEXT
25 DATA 15,20,35,45,20,80,99,1,100,20,40,60,1,0,15 ,35,50,0,0
26 DATA 5,75,20,5,20,80,100,50,75,0,90,10,0 ,30,50,35,15,0,0
27 DATA 3,50,35,15,30,70,30,20,100,25,85,15,0 ,2,85,15,1,0,0
28 DATA 17,25,25,50,35,65,40,1,85,65,20,80,5,65,15,20,25,25,15
29 DATA 10,20,20,60,5,95,55,0 ,90,65,20,80,25,2,0 ,10,40,30,20
30 DATA 25,65,25,10,10,90,30,05,95,75,15,85,98,05,0, 0,10,30,60
31 DATA 5,20,35,45,0,100,30,1,100,50,25,75,100,5,15,25,55,5,0
32 DATA 15,70,25,5,35,65,20,5,85,90,15,85,0,0,0,5,10,20,65
33 DATA 5,10,25,65,20,80,50,1,85,80,15,85,0,0,0,0,20,30,50
49 FOR I = 1 TO 10: READ Z$(I): NEXT I
50 DATA I-A,I-B,I-C,II,III,"95-100%","40-95%","25-60%","15-35%","4-15%"
55 IF NOT Q THEN NEW
60 DATA GIANT CELL TUMOR,CHONDROBLASTOMA,CHONDROMYXOID FIBROMA,CHONDROSARCOMA
62 DATA FIBROSARCOMA,OSTEOSARCOMA,PAROSTEAL SARCOMA ,EWING'S TUMOR,RETICULUM CELL
70 FOR I = 1 TO 9: READ DIAGNOSIS$(I): NEXT
80 FOR I = 1 TO 9:PB(I,19) = 1: NEXT
90 HOME : PRINT " THIS PROGRAM USES A PRIOR PROBABILITY"
92 PRINT "MATRIX PUBLISHED BY G.S.LODWICK M.D. IN"
94 PRINT "THE RADIOLOGIC CLINICS OF NORTH AMERICA"
96 PRINT "IN 1963."
98 PRINT : PRINT "THE PROBABILITY OF THE DIAGNOSIS IS"
99 PRINT "CALCULATED USING BAYES' RULE FOR THE"
100 PRINT "PROBABILITY OF CAUSES"
102 PRINT : PRINT "NINE DIAGNOSES ARE CONSIDERED"
105 FOR I = 1 TO 9: PRINT I; TAB( 4);DIAGNOSIS$(I): NEXT
106 PRINT : PRINT "THIS PROGRAM MAY NOT GIVE THE CORRECT DIAGNOSIS. FINAL DIAGNOSIS CAN BE OBTAINED ONLY BY BIOPSY"
110 PRINT " HIT ANY KEY TO CONTINUE";: POKE -16368,0: GET A$
[...]
2000 HOME : VTAB 5: PRINT " COPYRIGHT 1978 APPLE COMPUTER, INC."
2010 FOR K = 1 TO 2500: NEXT K
2050 VTAB 12
2060 PRINT "THIS PROGRAM IS FOR PHYSICIANS ONLY!"
2065 PRINT : PRINT
2070 PRINT "IT IS DESIGNED TO BE USED AS A SINGLE"
2080 PRINT "TOOL WHICH, ALONG WITH MANY, MANY":Q = 1
2090 PRINT "OTHERS, CAN LEAD A QUALIFIED PHYSICIAN"
2100 PRINT "TO A PROPER DIAGNOSIS."
2105 PRINT
2110 PRINT "ANY USE BY A NON-QUALIFIED PERSON TO"
2120 PRINT "DIAGNOSE ANY CONDITION WOULD BE"
2130 PRINT "GROSSLY MIS-LEADING AND DANGEROUS."
2150 FOR K = 1 TO 18000: NEXT K
2160 GOTO 19
3000 REM BASED ON A PROGRAM BY JEFFREY DACH M.D.
3010 REM 909 ROSCOE CHICAGO,ILL.60657
3020 REM COPYRIGHT 1978 APPLE COMPUTER, INC.