ormulary hysical ools enu";`60: GET KEYeA$"M"A$"B"A$"N"A$"F"A$"P"A$"T"X(0):80:11810359=GB THIS PRINTS TOP AND BOTTOM LINE OF SCREENMGwLQ101:1015:CS$;".";PN;" ";TL$;" "MFG0Q2401:1015:28);"Press for options";28);NQFG0Q2401:1015:28);"Press for options";28);R103)1C0:Q(VT100)(PSC):1015:" ";:R$"":1035$(A$(8)A$(127))(R$)0CC1:Q(VT100)(PSC):1015:" ";:R$(R$,(R$)1):1035)A$(13)(R$)LNİ80:1035+A$(13)ı,A$(21)A$(10)A$(11)İ80:1035.A$;:R$R$A$:CCT100)(PSC):1015:60: GET KEY5RT$"13"1040X
A$(13)A$(27)İ80:1035kA$(27)1114qA$(13)(R$)0İ80:1035PNNP11081A$(27)1114(A$(8)A$(127))(R$)0Č808:10351(A$(8)A$(127))(R$ve 1"&" and press .":P --- PRINT ERROR MESSAGE WITH OPTIONY680:" Press enu to make another selection.": -- BASIC CURSOR RELOCATERXY%Q:40R$"":X(0):C0 Q(VT100)(PSC):1015:LN);!Q(VU":BP64:DR1:240:680+60:KY%13660880:662W ---- PRINT ERROR MESSAGEb170:X$"":E1XY%823:40:"A disk error has occurred.":X$"To try again, "XY%1001:190:" "X$"Insert diskette with CASE STUDY "(CS$,12)" in disk dri258#
E0ĺ(4)"BLOAD"F$AD$DR$5
216,0:E0ıD
E6E2:T
E13E3:^
E1:
----- SET NORMAL VIDEO MODE
FT%1ĝ:
(14);:
! ----- SET INVERSE VIDEO MODE
"FT%1Ğ:
$(15);:
--- GO TO MENUF$"MEN0E0:43602,0:2581E0ĺ(4)"RUN"F$DR$J216,0:BP0Ĺ104,BOYE6E2:cE1:| ---- ONERR HANDLERE(222): ---- ROUTINE TO BLOAD A FILEDR$"":DR0DR$",D"(DR)AD$"":AD0AD$",A"(AD)
E0:43602,0:11::FT%1:XY%101:40:; -- TURN ON 80 COLUMN SCREENh:30::43602,0:(4)"PR#3":FT%0:30: PRINT THE INSTRUCTIONS PROMPT IN INVERSE40:290:" > ";:280: --- RUN F$AD0:260:E3ıBP0BO(104):104,BP:BP256,<49152,128:KY%(49152)128:49168,0:KY%96KY%123KY%KY%32Q
=A$(KY%):f
O -- ERROR BEEP
PLN%10:PD%100:808:
Y -- PRINT 56-COLUMN FORMAT
Z40:S$:
iPN$"PN"((PN),LB):
-- TURN ON 56 COLUMN SCREEN30:(21);:80:TY%12032} NM%0:DL%1:KY%0:PM%0:SS%0:SR%0:SC%0:VW%0:LN%10:PD%100:MK$"":NM$"":XY%0:FT%0:P0800:P1801:LB1 FLG0:3000 FT%0ĺ(12);: : ' -- CURSOR LOCATION FOR APPLE AND FLEX TEXT (37888: ; -- GET A KEYA
hW!LC$(10,2),TA$(10),FLAG(10)/51,6::r---------------------------------------------------------------------------- MAR 19, 1985 2:27 PM (VER 2.0 4-10-86) -------------------------------------------------------------
PG%
6000}KY1:FG0'~PNTEMP1:105:GA$"B"PN1İ80:KY0:1105hA$"B"PNNPİ30:100:2173A$"B"PN16CNNC:NC6:T3:1212:1800:2149:NCCN:CN0A$"B"PN12İ1795A$"B"PNPN2:105::A$"N"PNNPİ80:KY0:1105
1215:1670oKY1:FG0+pPNTEMP1:105EqPNNP1PN0Į:30:_rPN15İ30:100:2173sPN11CNNC:NC6:1795:2149:NCCN:CN0:1141t1795uyFG1İ1795:RT$""zTEMPPN:TEMP$PN$:FG1:PN1İ1795{PNNPİ30:100:2173|A$"M"A$"B"A$"N"A$"F"A$"P"A$"T"X(0):80:1105\fPN1A$"P"İ80:1105ehKY1viA$"T"2600jA$"M"İ30:2527kA$"P"A$"F"1152lFG1PNTEMP:105mA$"P"1145
nTEMPPN:TEMP$PN$:PN1:PN$"PN1":FG1:KY0:0Q2401:1015:28);"Press for options";28);?R1030ZFG1İ80:1030: FG IS SET TO 1 WHEN IN F OR P ROUTINE[Q2401:1015:" **ack a page ext page ormulary **

**hysical ools enu";`60: GET KEYAe,A$(21)A$(10)A$(11)İ80:1035?.A$;:R$R$A$:CC1I81035O9U=B THIS PRINTS TOP AND BOTTOM LINE OF SCREENGLQ101:1015:CS$;".";PN;" ";TL$;" "MFG0Q2401:1015:28);"Press for options";28);N5QFG8)A$(127))(R$)0Č808:1035o(A$(8)A$(127))(R$)1C0:Q(VT100)(PSC):1015:" ";:R$"":1035$(A$(8)A$(127))(R$)0CC1:Q(VT100)(PSC):1015:" ";:R$(R$,(R$)1):1035)A$(13)(R$)LNİ80:1035+A$(13)ı'R$"":X(0):C05 Q(VT100)(PSC):1015:LN);_Q(VT100)(PSC):1015:60: GET KEYsRT$"13"1040
A$(13)A$(27)İ80:1035A$(27)1114A$(13)(R$)0İ80:1035PNNP11081A$(27)1114 (A$(" "X$"Insert diskette with CASE STUDY "(CS$,12)" in disk drive 1"d" and press .": --- PRINT ERROR MESSAGE WITH OPTION680:" Press enu to make another selection.": -- BASIC CURSOR RELOCATERXY%Q:40"FT%1Ğ:$(15);:2 --- GO TO MENUUF$"MENU":BP64:DR1:240:680i60:KY%13660v80:662 ---- PRINT ERROR MESSAGE170:X$"":E1XY%823:40:"A disk error has occurred.":X$"To try again, "CXY%1001:190:DR$",D"(DR).
AD$"":AD0AD$",A"(AD)E
E0:43602,0:258c
E0ĺ(4)"BLOAD"F$AD$DR$u
216,0:E0ı
E6E2:
E13E3:
E1:
----- SET NORMAL VIDEO MODE
FT%1ĝ:
(14);:! ----- SET INVERSE VIDEO MODEUN F$AD0:260:E3ıABP0BO(104):104,BP:BP256,0XE0:43602,0:258qE0ĺ(4)"RUN"F$DR$216,0:BP0Ĺ104,BOE6E2:E1: ---- ONERR HANDLERE(222): ---- ROUTINE TO BLOAD A FILE
DR$"":DR0(PN),LB):. -- TURN ON 56 COLUMN SCREENY30:(21);:811::FT%1:XY%101:40:| -- TURN ON 80 COLUMN SCREEN:30::43602,0:(4)"PR#3":FT%0:30: PRINT THE INSTRUCTIONS PROMPT IN INVERSE40:290:" > ";:280: --- R<49152,128:KY%(49152)128:49168,0:KY%96KY%123KY%KY%32Q
=A$(KY%):f
O -- ERROR BEEP
PLN%10:PD%100:808:
Y -- PRINT 56-COLUMN FORMAT
Z40:S$:
c DRAW LINE ON SCREEN
dI321:QI10021:1015:"|";::iPN$"PN"(
PG%0:TY%12032 NM%0:DL%1:KY%0:PM%0:SS%0:SR%0:SC%0:VW%0:LN%10:PD%100:MK$"":NM$"":XY%0:FT%0:P0800:P1801:LB1 3000 FT%0ĺ(12);: : ' -- CURSOR LOCATION FOR APPLE AND FLEX TEXT (37888: ; -- GET A KEYA
dg!LC$(10,2),TA$(10),FLAG(10)/51,6::t------------------------------------------------------------------------- MARCH 19, 1985 2:34 PM (VER 2.0 4-10-86) ---- ---------------------------------------------------------------
NC:LC$(I,1),LC$(I,2)::1795:A$"B"(PN7PN3)FF1WA$"B"PNPN2:105::xA$"N"PNNPİ80:KY0:1105A$"N"ıHT23:WD55:E21:PL1Q(T100)((PL1)100)HT:39:(M$)WDāI1(M$):J((M$,I,1)):(J32(J95E20));::PN1PN5GG:170::FG1:TEMPPN:TEMP$PN$:1795:RT$"":1145hwTEMPPN:TEMP$PN$:FG1:PNNPİ1795ry6000zKY1:FG0{PNTEMP1:105:|A$"B"PN1İ80:KY0:1105}A$"B"PNNPİ1795~A$"B"PN5GG:170:::CS$,TL$,NP,NC:I1"T"İ170:2600%kA$"M"İ170:2527?lA$"P"A$"F"1148VmFG1PNTEMP:105hnA$"P"1142oTEMPPN:TEMP$PN$:PN1:PN$"PN1":FG1:KY0:1215:1670pKY1:FG0qPNTEMP1:105rPNNP1PN0Į:tPN5PN4PN11795u@vls enu":90\FT%0Q2401:39:" ****ack a page ext page ormulary **

**hysical ools enu";`60eA$"M"A$"B"A$"N"A$"F"A$"P"A$"T"X(0):80:1105fPN1A$"P"İ80:1105hKY1iA$FG0FT%1Q2301:39:55);:Q2401:39:16);:XY%2417:S$"Press for options":90:15);:mS1030ZFG1İ80:1030[FT%1XY%2301:S$" ****ack a page ext page ormulary":90:XY%2401:S$" **

**hysical oo*,A$(21)A$(10)A$(11)İ80:1035B.A$;:R$R$A$:CC1L81035R9zLQ101:39:CS$;".";PN;" ";TL$;" "MFG0Q2401:39:28);"Press for options";28);NQFG0FT%0Q2401:39:28);"Press for options";28);cR(A$(8)A$(127))(R$)0Č808:1035t(A$(8)A$(127))(R$)1C0:Q(VT100)(PSC):39:" ";:R$"":1035$(A$(8)A$(127))(R$)0CC1:Q(VT100)(PSC):39:" ";:R$(R$,(R$)1):1035)A$(13)(R$)LNİ80:1035+A$(13)ıS53,F:SS53::'R$"":X(0):C0H Q(VT100)(PSC):39:LN);fQ(VT100)(PSC):39:60zRT$"13"1040
A$(13)A$(27)İ80:1035A$(27)1114A$(13)(R$)0İ80:1035PNNP11081A$(27)1114'S8,FS11,F2S13,FS16,FS18,F1S18,F15S20,FS24,FS30,F10S32,F11S34,F8S41,FS44,Fu5SS44:{6S50:F150:I133S,FS5,FS8,F12S15,F7S18,F4S25,FS29,FS35,F10S37,F11S39,F8S46,F"W
XY%1001:190:" "X$"Insert diskette with CASE STUDY "(CS$,12)" in disk drive 1"x
" and press .":
680
:" Press enu to make another selection.":
I17:TA$(I)""::
1000
S120:F140
I13hS,FıE6E2:!E13E3:+E1::FT%1ĝ:H(14);:W"FT%1Ğ:e$(15);:F$"MENU":BP64:DR1:240:68060:KY%1366080:662170:
X$"":E1XY%823:40:"A disk error has occurred.":X$"To try again, :BP256,0!E0:43602,0:258:E0ĺ(4)"RUN"F$DR$S216,0:BP0Ĺ104,BObE6E2:lE1:{E(222):DR$"":DR0DR$",D"(DR)AD$"":AD0AD$",A"(AD)E0:43602,0:258
E0ĺ(4)"BLOAD"F$AD$DR$216,0:E0KY%32
=A$(KY%):0
PLN%10:PD%100:808:?
Z40:S$;:Z
iPN$"PN"((PN),LB):
30:(21);:811::FT%1:XY%101:40:
:30::43602,0:(4)"PR#3":FT%0:30:
40:290:" > ";:280:
AD0:260:E3ı
BP0BO(104):104,BPPD%100:MK$"":NM$"":XY%0:FT%0:P0800:P1801:LB1 WW$"You need to enter a Number from ":ZZ$" Enter " 3000 FT%0ĺ(12);: : 'XY%Q (37888:
<49152,128:KY%(49152)128:49168,0:KY%96KY%123KY%$MLC$(10,2),TA$(7),FLAG(7)-51,6::q ------- CASE 7 ------- MAY 13, 1985 9:00 AM ------ ------------------------- (VER 2.0 4-10-86) ------4
PG%0:TY%12032:NM%0:DL%1:KY%0:PM%0:SS%0:SR%0:SC%0:VW%0:LN%10:
)100:9XY%(C8)(501100C)(C7)(541100(C7)):MXY%401C100:XY%(C10)(401100C)(C9)(441100(C9)):XY%501C100: ----- Print the instructions prompt in inverse40:290:" > ";:280: ----- Discreen30:PG%P1:304:120:C1NC:M$(C)""İ460B:J o ----- Highlight the choice Cw P1464,472,474,476,478,478,478,47840::(" "(C),2)"."::C10XY%401100C100(C6)100(C7):XY%541(C10isplay the lab summary 430:PG%13S:304ES9100,9200XY%2401:480:" Press **~~ for the other summary page, to return to CASE 14.";110:KY$"S"S(S2)2(S1):420KY%13İ80:430 -- Restore the question s480:" Press enu ~~

~~hysical ab summary ~~*nstructions";:110T~KY$"M"660eKY$"P"400vKY$"L"420KY$"I"50080:120: ----- Display the Physical PG%2:30:304:100:440: ----- D:E1:(14);:("(15);:/) W* ----- Machine language interface^+ ,260:RC%E:: -- Load text file0XP:: Print a page of texty z ----- Process the escape key{ |XY%1701:40:4);C}XY%2401:6E2:E1:* -- ONERR handler9E(222):^ ----- Routine to BLOAD a file~DR$"":DR0DR$",D"(DR)AD$"":AD0AD$",A"(AD)E0:43602,0:258
E0ĺD$"BLOAD"F$AD$DR$216,0:E0ıE6E2:E13E3,1)" "II1:2023(A$,I1,1)" "II1:204b40:(A$,I):XY%XY%100:A$(A$,I1):200v ----- RUN F$AD0:260:E3ıBP0BO(104):104,BP:BP256,0E0:43602,0:258E0ĺD$"RUN"F$DR$216,0:BP0Ĺ104,BOES%0:SR%0:SC%0:VW%0:LN%0:PD%0@MK$"":NM$"":XY%0:FT%0W49168,0:D$(4):s ----- Define offsets~XP768P0800:P1801:P2802:P4804: ----- Print string to width WD at location XY%IWD:(A$)WDİ40:A$:(A$,I3KY%KY%32:KY$(KY%):*rKY$(KY%):Qw ----- Print the options promptnxXY%2401:40:EO$40);::30::43602,0:D$"PR#3":FT%0:30: ----- Define variables 37888:51,6::PG%0:TX%12032:NM%0:DL%0:KY%0:PM%0"S
O ----- Error beep3
PLN%10:PD%100:808:\
c ----- Wait for a carriage return
d110:KY%27PG%2PG%10İ380:
fKY%13İ80:100
h
m ----- Get a key in KY% and KY$
n49152,128:KY%(49152)128:49168,0pKY%96KY%12; ----- Line input routine/<Z$"":UL$;R>110:KY%13KY%27ĺBK$" ";:r@(Z$)0(KY%8KY%127)62BKY%8KY%12778FKY$"0"KY$"9"İ80:62J(Z$)262LBK$KY$UL$;:Z$Z$KY$:62
NZ$(Z$,1,(Z$)1):BK$" "BK$BK$UL$;:62 **s ******************************************************{ L$(75),M$(20),R$(20),SC%(20):40000 ----- Clear the screen(12);:' ----- Locate the cursor(37888: ** Copyright 1985 **w
** Cardinal Health Systems, Inc. **
** **
** Written by Dale Carlson **4 ** ** **{ ** Version 1.0 ** ** March 17, 1985 (VER 2.0 4-18-86) ** ** **8
*