180 FOR N = 24 TO 1 STEP -1: VTAB (N): HTAB (1): PRINT " %& %& %& %& %& %& %& %& %& %& %& %& %& ": NEXT
200 FOR N = 24 TO 1 STEP -1: VTAB (N): HTAB (1): PRINT " "
210 NEXT
212 :
250 PRINT CHR$(12): VTAB (2): PRINT "The following patients are available for": VTAB (3): HTAB (15): PRINT "discussion": PRINT
260 HTAB (3): PRINT "1.) Petey M., age 6--fell from a swingand hurt his arm.": PRINT
270 HTAB (3): PRINT "2.) Mr. L., age 58--had a fainting ":: PRINT "spell. Now complains of nausea and":: PRINT "chest pain.": PRINT
280 HTAB (3): PRINT "3.) Mrs. H., age 26--has a sore throatand fever. Occasional dry cough.": PRINT
290 HTAB (3): PRINT "4.) Walter R., age 17--abdominal pain,fever, and vomiting.": PRINT
300 HTAB (2): PRINT : PRINT "<press patient's number (1-4) to select>"
305 PRINT " <press (Q) to return to Softdisk menu>": PRINT : PRINT " <press (R) to restart ER program>": GET A$
310 IF ASC(A$) = 49 THEN GOTO 420: REM PETEY
320 IF ASC(A$) = 51 THEN GOTO 500: REM MRS. H.
330 IF ASC(A$) = 50 THEN GOTO 350: REM MR. L.
340 IF ASC(A$) = 52 THEN GOTO 540: REM WALTER
342 IF A$ = "Q" OR A$ = "q" THEN GOTO 61060
343 IF A$ = "R" OR A$ = "r" THEN GOTO 62000
345 GOTO 250
350 PRINT CHR$(12): PRINT " Dizziness or fainting can be related": PRINT : PRINT "to heart disease. In Mr. L's case, it ": PRINT : PRINT "was related to a 'heart attack' ": PRINT : PRINT "(myocardial infarction--death of heart": PRINT
352 PRINT "tissue) with associated dysrhythmia": PRINT : PRINT "(abnormal rhythm), which interferes with": PRINT "normal stimulus to heart pumping action.": PRINT "This causes subsequent decreased flow of ": PRINT
353 VTAB (18): PRINT "blood and oxygen to the brain.": GOSUB 495
355 PRINT CHR$(12): PRINT " Sudden death with heart attacks is": PRINT : PRINT "usually due to ventricular dysrhythmias,": PRINT "like the frequent 'premature ventricular": PRINT "complexes' (seen on Mr. L's monitor), ": PRINT
357 PRINT "that, unless rapidly treated, can lead ": PRINT : PRINT "to fatal disruption in the heart's ": PRINT : PRINT "electrical-mechanical system.": PRINT : PRINT " Mr. L. has several cardiac risk fac-": PRINT
358 PRINT "tors identified: male sex, age, smoking": PRINT : PRINT "history, and elevated serum cholesterol.": GOSUB 495: GOTO 250
420 PRINT CHR$(12): PRINT " It's a common, but erroneous belief of": PRINT "many people that 'if it can move--it's ": PRINT : PRINT "not broken'. Petey's arm could have ": PRINT : PRINT "been broken in several places and yet": PRINT
422 PRINT "still have full movement, as long as the": PRINT "tendons are intact. In a real ER ": PRINT : PRINT "setting, careful attention is given to": PRINT : PRINT "insure that tendons are intact, liga-": PRINT
423 PRINT "ments are stable, and that blood supply": PRINT : PRINT "to the injured part has not been": PRINT : PRINT "impeded.": GOSUB 495
424 PRINT CHR$(12): PRINT " The 'point tenderness' of Petey's ": PRINT : PRINT "wrist raises the suspicion of fracture.": PRINT : PRINT " Petey's X-ray is that of a typical ": PRINT : PRINT "6 year-old, who is still growing. His": PRINT
425 PRINT "growth plates between bones are not yet": PRINT : PRINT "fused, giving the appearance of what": PRINT : PRINT "might--to the untrained eye--seem like": PRINT : PRINT "many fractures.": GOSUB 495: GOTO 250
495 VTAB (23): HTAB (13): PRINT "<press any key>": GET A$
496 RETURN
500 PRINT CHR$(12): PRINT " Mrs. H. represents what is referred to": PRINT "in the medical community as the ": PRINT : PRINT "'difficult patient'--one who is irri-": PRINT : PRINT "table, demanding, and manipulative.": PRINT
505 PRINT " No matter that another patient may be": PRINT : PRINT "near death's door--woe unto the unlucky": PRINT : PRINT "doctor that keeps her waiting...": PRINT : PRINT "but the true professional will avoid": PRINT
508 PRINT "a confrontation if he can, and go on to": PRINT : PRINT "attend to Mrs. H.'s medical problem.": GOSUB 495
510 PRINT CHR$(12): PRINT " Mrs. H. has the classic symptoms of": PRINT : PRINT "streptococcal pharyngitic (strep": PRINT : PRINT "throat): fever, enlarged anterioe cer-": PRINT : PRINT "cical lymph nodes, and swollen red, ": PRINT
511 PRINT "exudative (pus-covered) tonsils. Anti-": PRINT : PRINT "bitoics would be indicated in such a ": PRINT : PRINT "patient, if the doctor thought that ": PRINT : PRINT "strep throat was likely. If unsure, the"
512 PRINT "physician could await culture results": PRINT : PRINT "before initiating therapy, the object of": GOSUB 495
513 PRINT CHR$(12): PRINT "which is aimed at preventing rheumatic ": PRINT "heart disease caused by streptococcal ": PRINT "bacteria. The sore throat itself will "
514 PRINT "resolve with or without treatment, even ": PRINT "if strep is present.": GOSUB 495: GOTO 250
540 PRINT CHR$(12): PRINT " Despite Walter's evident appendicitis,": PRINT "it will be only after surgery that any ": PRINT "certainty can be made regarding the "
541 PRINT "diagnosis. He could just as easily have": PRINT "had a bad case of viral gastroenteritis.": PRINT
545 PRINT " No mention was made of lab tests or ": PRINT "X-rays, though you can bet that a ": PRINT "surgeon would expect to have them avail-": PRINT "able. A normal urine would help to ": GOSUB 495
560 PRINT CHR$(12): PRINT "rule out a urinary infection. An ele- ": PRINT "vated white blood count and certain ": PRINT "changes on abdominal X-rays may help ": PRINT "make the diagnosis, but it will be ": PRINT
570 VTAB (10): PRINT "only the surgeon's clinical judgment ": PRINT "that decides the issue: operate, or ": PRINT "wait-and-see.": GOSUB 495: GOTO 250
1500 END
61060 PRINT CHR$(12): VTAB (12): PRINT " RETURNING TO SOFTDISK": PRINT CHR$(4)"BYE": END
62000 PRINT CHR$(12): VTAB (12): PRINT " Hang on--en route to ER!": PRINT CHR$(4)"PR#0": PRINT CHR$(4)"RUN ER.INTRO": NEW
62040 REM ER COPYRIGHT 1988 BY HOWARD CLARKE
17999 TDISK--"
61030 GET A$
61040 IF A$ = "T" OR A$ = "t" THEN GOTO 62000
61050 IF A$ = "G" OR A$ = "g" THEN PRINT CHR$(12): VTAB (12): PRINT " STAND BY FOR GRAND ROUNDS": PRINT CHR$(4)"RUN E
(.txt)