Notes

Disk info for 033_JHA_Nurses.dsk:

File Name: 033_JHA_Nurses/033_JHA_Nurses.dsk
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 93696
Used Space (bytes): 49664
Physical Size (KB): 140
Free Space (KB): 91
Used Space (KB): 48
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 366
Used Sectors: 194
Tracks On Disk: 35
Sectors On Disk: 16

Disk directory for 033_JHA_Nurses.dsk:

033_JHA_Nurses/033_JHA_Nurses.dsk DISK VOLUME #254
A 004 HELLO
A 009 TELEPHONE LIST
T 009 PERSONAL
A 006 SORT
A 016 PERSONAL FILE
A 057 J.H.A. NURSES I
A 029 MOD II SCHEDULING
DOS 3.3 format; 93,696 bytes free; 49,664 bytes used.

Text found in 033_JHA_Nurses.dsk/HELLO.bas:

100 D$ = "": PRINT D$;"NOMONI,O,C"
102 HOME : VTAB 8: HTAB 17: PRINT "J.H.A.": PRINT : HTAB 17: PRINT "NURSES": PRINT : HTAB 15: PRINT "SCHEDULING": GOSUB 200:
106 HOME : VTAB 4: HTAB 9: PRINT "* OPTIONS AVAILABLE *": GOSUB 202
108 VTAB 8: HTAB 8: PRINT "1 - PERSONAL FILE": HTAB 8: PRINT "2 - TELEPHONE LIST": HTAB 8: PRINT "3 - SCHEDULING": HTAB 8: PRINT "4 - END PROGRAM"
110 VTAB 16: PRINT " MAKE SELECTION BY NUMBER: ";: GET A$: PRINT
112 IF A$ < >"1" THEN IF A$ < >"2" THEN IF A$ < >"3" THEN IF A$ < >"4" THEN 110
114 A = VAL(A$): ON A GOTO 120,130,140,160
120 PRINT D$;"RUN PERSONAL FILE"
130 PRINT D$;"RUN TELEPHONE LIST"
140 PRINT D$;"RUN MOD II SCHEDULING"
150 PRINT D$;"RUN CONSIDERATIONS"
160 HOME : VTAB 12: HTAB 8: PRINT "I HOPE THIS HAS BEEN HELPFUL.": VTAB 1: END
200 FOR X = 1 TO 2500: NEXT : RETURN
202 FOR X = 1 TO 39: PRINT "=";: NEXT X: PRINT : RETURN

Text found in 033_JHA_Nurses.dsk/J.H.A. NURSES I.bas:

50 D$ = "": REM CTRL D
60 PRINT D$;"NOMONI,O,C"
70 DIM N$(70,8),T$(14):R = 0:H = 0:A = 0:T = 0:B = 0:N = 0:G = 0:P = 0
75 DIM W$(100,8),S$(100,8)
80 HOME : VTAB 4: HTAB 4: PRINT "J.H.A NURSES SCHEDULING PROGRAM": FOR I = 1 TO 39: HTAB I: PRINT "=";: NEXT I: PRINT : PRINT
90 PRINT TAB( 5)"THIS PROGRAM IS DESIGNED TO AID IN ": PRINT "THE DAILY SCHEDULING OF NURSES AND THE": PRINT "HELP.": PRINT : PRINT TAB( 5)"A COMPLETE LISTING OF WORKING HOURS": PRINT "AND HELP IS NECESSARY TO MAKE THIS WORK"
95 PRINT : PRINT TAB( 5)"FIRST LET US LOOK AT THE OPTIONS "
97 GOSUB 9000
100 HOME : PRINT : PRINT TAB( 13)"** OPTIONS **": FOR I = 1 TO 40: HTAB I: PRINT "=";: NEXT I: PRINT
110 HTAB 10: PRINT "1 - DAILY SCHEDULE": PRINT : HTAB 10: PRINT "2 - PERSONAL RECORDS": PRINT : HTAB 10: PRINT "3 - CHANGE PERSONAL RECORDS"
120 PRINT : HTAB 10: PRINT "4 - ADD TO PERSONAL": PRINT : HTAB 10: PRINT "5 - DELETE PERSONAL": PRINT : HTAB 10: PRINT "6 - SCHEDULE LISTING"
130 PRINT : HTAB 10: PRINT "7 - WEEKLY SCHEDULE": PRINT : HTAB 10: PRINT "8 - TELEPHONE LIST"
135 PRINT : HTAB 10: PRINT "9 - QUIT"
140 VTAB 23: CALL -958: PRINT "SELECT BY NUMBER -> ";: GET A$: PRINT A$:A = VAL(A$): IF A <1 OR A >9 THEN 100
150 ON A GOTO 1000,2000,3000,4000,5000,5990,7000,3200,11000
1000 HOME : VTAB 5: PRINT TAB( 11)"SELECTION LISTING": PRINT : PRINT : PRINT TAB( 6)"1 - PRINT 14 DAY SCHEDULE": PRINT
1005 PRINT TAB( 6)"2 - DISPLAY ONE DAY ON VIDEO": VTAB 22: CALL -958: PRINT "SELECT ONE BY NUMBER -> ";: GET A$:G = VAL(A$)
1007 IF G <1 OR G >2 THEN GOTO 1005
1010 IF G = 1 THEN PR# 1: GOTO 1020
1020 FOR N = 1 TO 7: READ T$(N): NEXT N: RESTORE : FOR N = 8 TO 14: READ T$(N): NEXT N: RESTORE
1030 N = 1
1050 IF N >14 AND G = 1 THEN G = 0: PR# 0: GOTO 100
1060 HOME :Q = LEN(T$(N)): VTAB 2: HTAB (40 -Q)/2: PRINT T$(N): FOR I = 1 TO 40: HTAB I: PRINT "=";: NEXT I:
1070 VTAB 4:I = 0:J = 0: FOR X = 1 TO 15
1090 IF X = 1 OR X = 2 OR X = 3 OR X = 4 THEN I = 2:A = 0: GOTO 1190
1110 IF X = 5 OR X = 6 OR X = 7 THEN I = 3:A = 0: GOTO 1190
1130 IF X = 8 OR X = 9 OR X = 10 THEN I = 4:A = 0: GOTO 1190
1150 IF X = 11 OR X = 12 OR X = 13 THEN I = 5:A = 0: GOTO 1190
1170 IF X = 14 OR X = 15 THEN I = 6: GOTO 1190
1190 PRINT : IF I = 2 THEN PRINT I;"ND FL ";: GOTO 1290
1210 IF I = 3 THEN PRINT I;"RD FL ";: GOTO 1290
1230 IF I = 4 THEN PRINT I;"TH FL ";: GOTO 1290
1250 IF I = 5 THEN PRINT I;"TH FL ";: GOTO 1290
1270 IF I = 6 THEN PRINT "ANNEX ";: GOTO 1290
1290 IF S >R THEN RESTORE : GOTO 1460
1300 J = S:D = INT( VAL( LEFT$(N$(J,7),2)))
1301 IF D = 1 THEN IF N = 1 OR N = 5 OR N = 9 OR N = 14 THEN S = S +1: GOTO 1290
1302 IF D = 2 THEN IF N = 1 OR N = 6 OR N = 10 OR N = 14 THEN S = S +1: GOTO 1290
1303 IF D = 3 THEN IF N = 3 OR N = 7 OR N = 8 OR N = 13 THEN S = S +1: GOTO 1290
1304 IF D = 4 THEN IF N = 2 OR N = 7 OR N = 8 OR N = 12 THEN S = S +1: GOTO 1290
1305 IF D = 5 THEN IF N = 5 OR N = 6 OR N = 12 OR N = 13 THEN S = S +1: GOTO 1290
1306 IF D = 6 THEN IF N = 6 OR N = 7 OR N = 13 OR N = 14 THEN S = S +1: GOTO 1290
1307 IF D = 7 THEN IF N = 4 OR N = 7 OR N = 8 OR N = 12 THEN S = S +1: GOTO 1290
1308 IF D = 8 THEN IF N = 1 OR N = 6 OR N = 11 OR N = 14 THEN S = S +1: GOTO 1290
1309 IF D = 9 THEN IF N = 3 OR N = 5 OR N = 7 OR N = 8 OR N = 10 OR N = 12 THEN S = S +1: GOTO 1290
1310 IF D = 10 THEN IF N = 1 OR N = 4 OR N = 9 OR N = 14 THEN S = S +1: GOTO 1290
1311 IF D = 11 THEN IF N = 1 OR N = 3 OR N = 8 OR N = 10 THEN S = S +1: GOTO 1290
1312 IF D = 12 THEN IF N = 1 OR N = 3 OR N = 10 OR N = 14 THEN S = S +1: GOTO 1290
1313 IF D = 13 THEN IF N = 2 OR N = 7 OR N = 8 OR N = 11 THEN S = S +1: GOTO 1290
1314 IF D = 14 THEN IF N = 1 OR N = 5 OR N = 12 OR N = 14 THEN S = S +1: GOTO 1290
1315 IF D = 15 THEN IF N = 5 OR N = 7 OR N = 8 OR N = 12 THEN S = S +1: GOTO 1290
1316 IF D = 16 THEN IF N = 3 OR N = 7 OR N = 8 OR N = 12 THEN S = S +1: GOTO 1290
1317 IF D = 17 THEN IF N = 1 OR N = 6 OR N = 11 OR N = 14 THEN S = S +1: GOTO 1290
1318 IF D = 18 THEN IF N = 1 OR N = 3 OR N = 4 OR N = 6 OR N = 10 OR N = 11 OR N = 13 OR N = 14 THEN S = S +1: GOTO 1290
1355 L = VAL( LEFT$(N$(J,8),1)): IF L < >I THEN S = S +1: GOTO 1290
1360 GOSUB 6500: IF Z = 1 THEN Z = 0: GOTO 1290
1365 IF A = 1 THEN HTAB 23
1370 PRINT LEFT$(N$(J,2),1) +".";N$(J,1);" ";:A = A +1
1380 IF A <2 THEN S = S +1: GOTO 1290
1390 IF X <15 AND A = >2 THEN A = 0:OD = 0:RN = 0:LP = 0:AD = 0:S = S +1: NEXT X
1410 S = S +1: IF S = R THEN 1450
1430 GOTO 1290
1450 OD = 0:RN = 0:LP = 0:AD = 0: NEXT X
1460 IF G = 1 THEN N = N +1: PRINT : PRINT :S = 1: GOTO 1050
1470 PRINT : VTAB 22: CALL -958: PRINT "WOULD YOU LIKE ANOTHER DAY? ";: INPUT A$: IF LEFT$(A$,1) = "Y" THEN N = N +1
1475 IF LEFT$(A$,1) < >"Y" THEN GOTO 1490
1480 IF N < = 14 THEN S = 1: GOTO 1050
1490 GOTO 100
2000 HOME : VTAB 4: HTAB 11: PRINT "SELECTION LISTING": PRINT : PRINT
2010 HTAB 8: PRINT "1 - SELECT ONE EMPLOYEE": PRINT : HTAB 8: PRINT "2 - SCAN ALL EMPLOYEES ": PRINT : HTAB 8: PRINT "3 - RETURN TO OPTIONS"
2020 VTAB 22: CALL -958: PRINT "SELECT BY NUMBER -> ";: GET A$: PRINT A$:A = VAL(A$): IF A <1 OR A >3 THEN 2020
2030 ON A GOTO 2050,2100,100
2050 INPUT "GIVE ME THE NAME -> ";M$: FOR H = 1 TO R: IF M$ = N$(H,2) +" " +N$(H,1) THEN 2110
2060 NEXT H:M = M +1: IF M >5 THEN M = 0: GOTO 8050
2070 GOTO 2110
2100 FOR H = 1 TO R: FOR I = 1 TO 40: HTAB I: PRINT "-";: NEXT I: PRINT
2110 HOME : PRINT : PRINT "PERSONAL RECORD FOR: ";N$(H,2) +" " +N$(H,1): FOR I = 1 TO 40: HTAB I: PRINT "-";: NEXT I: PRINT : PRINT
2120 HTAB 2: PRINT "STREET & NO. - ";N$(H,3): PRINT : PRINT : HTAB 2: PRINT "CITY & STATE: - ";N$(H,4): PRINT : PRINT : HTAB 2: PRINT "TELEPHONE NO.: - ";N$(H,5): PRINT : PRINT : HTAB 2: PRINT "QUALIFICATIONS: - ";N$(H,6)
2130 PRINT : PRINT : HTAB 2: PRINT "CONSIDERATIONS - ";N$(H,7): PRINT : PRINT : HTAB 2: PRINT "FLOOR ASSIGNMENT- ";N$(H,8)
2133 IF P = 1 THEN P = 0: RETURN
2135 IF B = 1 THEN RETURN
2137 VTAB 23: CALL -958: PRINT " TO RETURN TO MENU TYPE '1' OR "
2140 VTAB 24: CALL -958: PRINT TAB( 8)"TO CONTINUE HIT ANY KEY ";: GET A$: IF A = 1 THEN GOTO 100
2145 IF A$ = "1" THEN 100
2150 NEXT H: GOTO 100
3000 M = 0
3010 PRINT : VTAB 23: INPUT "GIVE ME THE NAME -> ";V$: FOR Q = 1 TO R: IF V$ = N$(Q,2) +" " +N$(Q,1) THEN 3040
3020 NEXT Q:M = M +1: IF M >2 THEN GOSUB 8050
3030 GOTO 3010
3040 H = Q:B = 1: GOSUB 2110:B = 0:C = 4
3050 VTAB C: HTAB 6: PRINT "CHANGE TO -> ";: IF B = 1 THEN RETURN
3055 INPUT "FIRST NAME: ";N$(H,2):C = 5:B = 1: GOSUB 3050:B = 0
3057 INPUT "LAST NAME: ";N$(H,1):C = 7:B = 1: GOSUB 3050:B = 0
3060 INPUT N$(H,3):C = 10:B = 1: GOSUB 3050:B = 0
3070 INPUT N$(H,4):C = 13:B = 1: GOSUB 3050:B = 0
3080 INPUT N$(H,5):C = 16:B = 1: GOSUB 3050:B = 0
3090 INPUT N$(H,6):C = 19:B = 1: GOSUB 3050:B = 0
3100 INPUT N$(H,7):C = 22:B = 1: GOSUB 3050:B = 0
3105 IF N$(H,7) = "S" THEN P = 1: GOSUB 6000:P = 0: HOME :C = 19:P = 1: GOSUB 2110:P = 0:B = 1: GOSUB 3050:B = 0: GOTO 3100
3110 INPUT N$(H,8)
3120 VTAB 23: CALL -958: INPUT "ARE THESE NEW RECORDS OK? ";Y$: IF LEFT$(Y$,1) = "Y" THEN GOSUB 4300: GOTO 100
3130 GOTO 3040
3200 S = 1:PN = 1:II = 0
3210 HOME : VTAB 1: HTAB 9: PRINT "TELEPHONE LIST PAGE ";PN: FOR I = 1 TO 39: HTAB I: PRINT "=";: NEXT I: PRINT
3230 FOR II = S TO S +17
3240 LN = LEN(N$(II,2) +" " +N$(II,1)):LA = LEN(N$(II,5))
3250 PRINT N$(II,2) +" " +N$(II,1);
3260 FOR W = LN TO (39 -LA): HTAB W: PRINT ".";: NEXT W: PRINT N$(II,5)
3270 IF II = R THEN 3330
3280 IF II = 54 THEN PN = 4:S = 55: GOTO 3320
3290 IF II = 36 THEN PN = 3:S = 37: GOTO 3320
3300 IF II = 18 THEN PN = 2:S = 19: GOTO 3320
3310 NEXT II
3315 IF SW = 1 THEN GOTO 3210
3320 VTAB 23: PRINT "FOR THE NEXT PAGE HIT ANY KEY.";: GET A$: GOTO 3210
3330 VTAB 22: PRINT "FOR A PRINTED COPY OF THIS TYPE 'PRINT'
3340 VTAB 23: INPUT "HIT 'RETURN' TO RETURN. ";A$
3350 IF A$ = "PRINT" THEN SW = 1: PRINT D$;"PR#1": GOTO 3200
3360 SW = 0: PRINT D$;"PR#0": GOTO 100
4000 H = R
4010 HOME : VTAB 2: HTAB 10: PRINT "PERSONAL INFORMATION": FOR I = 1 TO 39: HTAB I: PRINT "=";: NEXT I
4020 H = H +1: PRINT : PRINT : PRINT "LAST NAME ";: INPUT "-> ";N$(H,1)
4040 PRINT : PRINT "FIRST NAME AND INITIAL";: INPUT "-> ";N$(H,2)
4060 PRINT : PRINT "ADDRESS: ": PRINT : PRINT "NUMBER & STREET ";: INPUT N$(H,3): PRINT : PRINT "CITY (TOWN) & STATE ";: INPUT N$(H,4): PRINT : PRINT "TELEPHONE NO. ";: INPUT N$(H,5)
4080 PRINT : PRINT "QUALIFICATIONS ";: INPUT N$(H,6)
4083 PRINT "TO CHECK CONSIDERATION LISTING TYPE 'S'"
4085 PRINT "CONSIDERATIONS ";: INPUT N$(H,7)
4090 IF N$(H,7) = "S" THEN GOSUB 6000: GOTO 4085
4100 PRINT : PRINT "FLOOR ASSIGNMENT ";: INPUT N$(H,8): GOTO 4120
4120 VTAB 23: PRINT "CHECK THE STATEMENTS ABOVE FOR ACCURACY": INPUT "ARE THEY O.K? (Y OR N) -> ";X$
4130 IF X$ < >"Y" THEN IF X$ < >"N" THEN GOTO 4120
4160 IF LEFT$(X$,1) = "Y" THEN R = H: GOTO 4300
4180 IF X$ < >"Y" THEN H = H -1: HOME : VTAB 12: HTAB 12: PRINT "** TRY AGAIN! **": FOR PAUSE = 1 TO 1500: NEXT PAUSE: HOME : GOTO 4020
4300 REM SORT BY FLOORS
4305 CC = 1:XX = 0:KX = 0:SS = 0
4310 FOR NN = 1 TO R: IF LEFT$(N$(NN,8),1) = "2" THEN GOSUB 4500
4320 NEXT NN: GOSUB 4600
4330 CC = XX +1: FOR NN = 1 TO R: IF LEFT$(N$(NN,8),1) = "3" THEN GOSUB 4500
4340 NEXT NN: GOSUB 4600
4350 CC = XX +1: FOR NN = 1 TO R: IF LEFT$(N$(NN,8),1) = "4" THEN GOSUB 4500
4360 NEXT NN: GOSUB 4600: PRINT N$(NN,1): FOR I = 1 TO 1000: NEXT I
4370 CC = XX +1: FOR NN = 1 TO R: IF LEFT$(N$(NN,8),1) = "5" THEN GOSUB 4500
4380 NEXT NN: GOSUB 4600
4390 CC = XX +1: FOR NN = 1 TO R: IF LEFT$(N$(NN,8),1) = "A" THEN GOSUB 4500
4400 NEXT NN: GOSUB 4600
4410 FOR BX = 1 TO XX: FOR NX = 1 TO 8:N$(BX,NX) = W$(BX,NX): NEXT NX,BX
4420 GOSUB 9980: GOTO 100
4500 XX = XX +1: FOR NX = 1 TO 8
4510 W$(XX,NX) = N$(NN,NX): NEXT NX: RETURN
4600 REM SORT RANKS
4610 FOR BK = CC TO XX: IF LEFT$(W$(BK,6),1) = "R" THEN GOSUB 4700
4620 NEXT BK: VTAB 21: HTAB 30: PRINT CC;" ";XX
4630 FOR BK = CC TO XX: IF LEFT$(W$(BK,6),1) = "L" THEN GOSUB 4700
4640 NEXT BK
4650 FOR BK = CC TO XX: IF LEFT$(W$(BK,6),1) = "A" THEN GOSUB 4700
4660 NEXT BK
4670 FOR BK = CC TO XX: IF LEFT$(W$(BK,6),1) = "O" THEN GOSUB 4700
4680 NEXT BK: FOR SS = CC TO XX: FOR MM = 1 TO 8:W$(SS,MM) = S$(SS,MM): NEXT MM,SS: RETURN
4700 KX = KX +1: FOR MM = 1 TO 8:S$(KX,MM) = W$(BK,MM): NEXT MM: RETURN
5000 P = 1: GOSUB 2050:P = 0: VTAB 22: CALL -958: INPUT "ARE YOU SURE YOU WANT THIS REMOVED? ";A$: IF LEFT$(A$,1) < >"Y" THEN A$ = " ": GOTO 100
5010 FOR X = 1 TO 8:N$(H,X) = " ": NEXT X
5020 D = 0:E = 0
5030 D = D +1
5040 E = E +1
5050 IF E >R THEN E = E -1: GOTO 5090
5060 IF N$(E,1) = " " AND N$(E,2) = " " THEN 5040
5070 FOR X = 1 TO 8:N$(D,X) = N$(E,X): NEXT X
5080 GOTO 5030
5090 E = E -1:R = E: GOSUB 9980
5110 GOTO 100
5990 P = 1: GOSUB 6000:P = 0: GOTO 100
6000 HOME : VTAB 1: HTAB 8: PRINT "CONSIDERATION LISTING #1": FOR I = 1 TO 39: HTAB I: PRINT "=";: NEXT I: PRINT
6010 PRINT TAB( 5)"--------- DAYS OFF ---------"
6011 PRINT : PRINT "1 - SUNDAY, THURSDAY, MONDAY, SATURDAY"
6012 PRINT : PRINT "2 - SUNDAY, FRIDAY, TUESDAY, SATURDAY"
6013 PRINT : PRINT "3 - TUESDAY, SATURDAY, SUNDAY, FRIDAY"
6014 PRINT : PRINT "4 - MONDAY, SATURDAY, SUNDAY, THURSDAY"
6015 PRINT : PRINT "5 - THURSDAY, FRIDAY, THURSDAY, FRIDAY"
6016 PRINT : PRINT "6 - FRIDAY, SATURDAY, FRIDAY, SATURDAY"
6017 PRINT : PRINT "7 - WEDNESDAY,SATURDAY, SUNDAY, THURSDAY"
6018 PRINT "8 - SUNDAY, FRIDAY, WEDNESDAY, SATURDAY"
6020 VTAB 23: HTAB 8: PRINT "FOR PAGE 2 HIT ANY KEY.";: GET N$: HOME : VTAB 1: HTAB 8: PRINT "CONSIDERATION LISTING #2": FOR I = 1 TO 39: HTAB I: PRINT "=";: NEXT I: PRINT
6021 PRINT : PRINT "9 - TUESDAY, THURSDAY, SATURDAY, SUNDAY TUESDAY, THURSDAY"
6022 PRINT : PRINT "10 - SUNDAY, WEDNESDAY, MONDAY,SATURDAY"
6023 PRINT : PRINT "11 - SUNDAY, TUESDAY, SUNDAY, TUESDAY"
6024 PRINT : PRINT "12 - SUNDAY, TUESDAY, TUESDAY, SATURDAY"
6025 PRINT : PRINT "13 - MONDAY, SATURDAY,SUNDAY, WEDNESDAY"
6026 PRINT : PRINT "14 - SUNDAY,THURSDAY, THURSDAY,SATURDAY"
6027 PRINT : PRINT "15 - THURSDAY,SATURDAY,SUNDAY, THURSDAY"
6028 PRINT : PRINT "16 - TUESDAY, SATURDAY, SUNDAY,THURSDAY"
6029 VTAB 23: HTAB 8: PRINT "FOR PAGE 3 HIT ANY KEY.";: GET N$: HOME : VTAB 1: HTAB 8: PRINT "CONSIDERATION LISTING #3": FOR I = 1 TO 39: HTAB I: PRINT "=";: NEXT I: PRINT
6030 PRINT : PRINT "17 - SUNDAY, FRIDAY,WEDNESDAY, SATURDAY"
6031 PRINT : PRINT "18 - SUNDAY, TUESDAY,WEDNESDAY,THURSDAY, TUESDAY,WEDNESDAY, FRIDAY, SATURDAY"
6100 VTAB 23: CALL -958: PRINT "WOULD YOU LIKE TO RETURN? ";: GET A$: IF P = 1 AND LEFT$(A$,1) = "Y" THEN RETURN
6110 IF LEFT$(A$,1) = "Y" THEN HOME : VTAB 10: GOTO 4085
6120 GOTO 100
6500 IF LEFT$(N$(J,6),1) = "R" AND RN = 0 THEN RN = RN +1: RETURN
6510 IF LEFT$(N$(J,6),1) = "R" AND RN = 1 THEN S = S +1:Z = 1: RETURN
6520 IF LEFT$(N$(J,6),1) = "L" AND LP < = 2 THEN LP = LP +1: RETURN
6530 IF LEFT$(N$(J,6),1) = "L" AND LP >2 THEN S = S +1:Z = 1: RETURN
6540 IF LEFT$(N$(J,6),1) = "A" AND AD < = 4 THEN AD = AD +1: RETURN
6550 IF LEFT$(N$(J,6),1) = "A" AND AD >4 THEN S = S +1:Z = 1: RETURN
6560 IF LEFT$(N$(J,6),1) = "O" AND OD < = 3 THEN OD = OD +1: RETURN
6570 IF LEFT$(N$(J,6),1) = "O" AND OD >3 THEN S = S +1:Z = 1: RETURN
6580 RESTORE : RETURN
7000 HOME : VTAB 5: PRINT TAB( 11)"SELECTION LISTING": PRINT : PRINT TAB( 6)"1 - PRINT SCHEDULE OF FLOORS": PRINT
7020 PRINT TAB( 6)"2 - DISPLAY A FLOOR ON VIDEO": VTAB 22: CALL -958: PRINT "SELECT ONE BY NUMBER -> ";: GET G$
7030 G = VAL(G$)
7040 IF G$ < >"1" THEN IF G$ < >"2" THEN 7020
7060 IF G = 1 THEN GOTO 8160
7070 FR$ = "2":SW = 0:J = 1
7080 HOME : PRINT " NAME SUN MON TUE WED THU FRI SAT"
7100 IF J >R THEN GOTO 7600
7110 FL$ = LEFT$(N$(J,8),1)
7120 IF FL$ < >FR$ THEN GOTO 7500
7130 IF FL$ = FR$ AND SW = 1 THEN 7180
7140 IF FR$ = "ANNEX" THEN 7160
7150 HTAB 14: PRINT N$(J,8) +" FLOOR": GOTO 7180
7160 HTAB 18: PRINT "ANNEX"
7180 J$ = LEFT$(N$(J,2),1) +"." +N$(J,1):LG = LEN(J$): IF LG >11 THEN PRINT LEFT$(J$,11);: GOTO 7240
7200 IF LG <11 THEN PRINT J$;: HTAB 12: GOTO 7240
7220 PRINT J$;:
7240 OF$ = " OFF":O$ = " ON "
7250 IF CH = 1 THEN I = 0: RESTORE : FOR X = 8 TO 15: GOTO 7290
7260 I = 0: FOR X = 1 TO 8
7280 IF X >7 THEN J = J +1:SW = 1: PRINT : GOTO 7100
7290 IF X >14 THEN J = J +1:SW = 1: PRINT : GOTO 7100
7300 D = INT( VAL( LEFT$(N$(J,7),2)))
7301 IF D = 1 THEN IF X = 1 OR X = 5 OR X = 9 OR X = 14 THEN PRINT OF$;: NEXT X
7302 IF D = 2 THEN IF X = 1 OR X = 6 OR X = 10 OR X = 14 THEN PRINT OF$;: NEXT X
7303 IF D = 3 THEN IF X = 3 OR X = 7 OR X = 8 OR X = 13 THEN PRINT OF$;: NEXT X
7304 IF D = 4 THEN IF X = 2 OR X = 7 OR X = 8 OR X = 12 THEN PRINT OF$;: NEXT X
7305 IF D = 5 THEN IF X = 5 OR X = 6 OR X = 12 OR X = 13 THEN PRINT OF$;: NEXT X
7306 IF D = 6 THEN IF X = 6 OR X = 7 OR X = 13 OR X = 14 THEN PRINT OF$;: NEXT X
7307 IF D = 7 THEN IF X = 4 OR X = 7 OR X = 8 OR X = 12 THEN PRINT OF$;: NEXT X
7308 IF D = 8 THEN IF X = 1 OR X = 6 OR X = 11 OR X = 14 THEN PRINT OF$;: NEXT X
7309 IF D = 9 THEN IF X = 3 OR X = 5 OR X = 7 OR X = 8 OR X = 10 OR X = 12 THEN PRINT OF$;: NEXT X
7310 IF D = 10 THEN IF X = 1 OR X = 4 OR X = 9 OR X = 14 THEN PRINT OF$;: NEXT X
7311 IF D = 11 THEN IF X = 1 OR X = 3 OR X = 8 OR X = 10 THEN PRINT OF$;: NEXT X
7312 IF D = 12 THEN IF X = 1 OR X = 3 OR X = 10 OR X = 14 THEN PRINT OF$;: NEXT X
7313 IF D = 13 THEN IF X = 2 OR X = 7 OR X = 8 OR X = 11 THEN PRINT OF$;: NEXT X
7314 IF D = 14 THEN IF X = 1 OR X = 5 OR X = 12 OR X = 14 THEN PRINT OF$;: NEXT X
7315 IF D = 15 THEN IF X = 5 OR X = 7 OR X = 8 OR X = 12 THEN PRINT OF$;: NEXT X
7316 IF D = 16 THEN IF X = 3 OR X = 7 OR X = 8 OR X = 12 THEN PRINT OF$;: NEXT X
7317 IF D = 17 THEN IF X = 1 OR X = 6 OR X = 11 OR X = 14 THEN PRINT OF$;: NEXT X
7318 IF D = 18 THEN IF X = 1 OR X = 3 OR X = 4 OR X = 6 OR X = 10 OR X = 11 OR X = 13 OR X = 14 THEN PRINT OF$;: NEXT X
7319 IF D = 19 THEN IF X = 1 OR X = 2 OR X = 3 OR X = 4 OR X = 5 OR X = 9 OR X = 10 OR X = 11 OR X = 12 OR X = 13 OR X = 14 THEN PRINT OF$;: NEXT X
7320 IF D = 20 THEN IF X = 1 OR X = 2 OR X = 2 OR X = 4 OR X = 5 OR X = 6 OR X = 8 OR X = 9 OR X = 10 OR X = 11 OR X = 12 OR X = 13 THEN PRINT OF$;: NEXT X
7321 IF D = 21 THEN IF X = 2 OR X = 3 OR X = 4 OR X = 5 OR X = 6 OR X = 9 OR X = 10 OR X = 11 OR X = 12 OR X = 13 THEN PRINT OF$;: NEXT X
7322 IF D = 22 THEN IF X = 4 OR X = 7 OR X = 8 OR X = 13 THEN PRINT OF$;: NEXT X
7324 IF D = 24 THEN IF X = 1 OR X = 4 OR X = 5 OR X = 6 OR X = 8 OR X = 10 OR X = 12 OR X = 13 THEN PRINT OF$;: NEXT X
7325 IF D = 25 THEN IF X = 1 OR X = 4 OR X = 5 OR X = 6 OR X = 11 OR X = 13 OR X = 14 THEN PRINT OF$;: NEXT X
7326 IF D = 26 THEN IF X = 1 OR X = 2 OR X = 4 OR X = 6 OR X = 9 OR X = 11 OR X = 13 OR X = 14 THEN PRINT OF$;: NEXT X
7327 IF D = 27 THEN IF X = 3 OR X = 5 OR X = 10 OR X = 12 THEN PRINT OF$;: NEXT X
7480 PRINT O$;: NEXT X
7500 REM NEW FLOOR
7520 PRINT : VTAB 22: CALL -958: PRINT "FOR THE NEXT FLOOR HIT 'SPACE BAR'";: GET A$: IF A$ = CHR$(32) THEN FR$ = FL$:SW = 0: POKE -16368,0: GOTO 7080
7600 PRINT : VTAB 22: CALL -958: PRINT "WOULD YOU LIKE THE NEXT WEEK";: GET A$: PRINT A$: IF LEFT$(A$,1) = "Y" AND CH = 1 THEN CH = 0: POKE -16368,0: GOTO 7060
7620 IF LEFT$(A$,1) = "Y" AND CH = 0 THEN CH = 1: POKE -16368,0: GOTO 7060
7650 IF LEFT$(A$,1) = "N" AND G = 2 THEN PRINT "WOULD YOU LIKE THIS PRINTED? ";: GET A$: PRINT A$: IF LEFT$(A$,1) = "Y" THEN PR# 1:G = 1: POKE -16368,0: GOTO 7070
7740 PR# 0: GOTO 100
8000 DATA SUNDAY,MONDAY,TUESDAY,WEDNESDAY,THURSDAY,FRIDAY,SATURDAY
8050 VTAB 23: CALL -958: PRINT "PLEASE CHECK PRESONAL RECORDS FOR COR-": PRINT "RECT NAME!!!": FOR I = 1 TO 3000: NEXT I: GOTO 100
8063 IF D = 4 THEN IF X = 21 OR X = 57 THEN DA$ = OF$: RETURN
8160 REM PRINT SCHEDULE
8170 HOME : VTAB 5: HTAB 2: PRINT "WOULD YOU LIKE THE WEEK ON WHICH,": PRINT : HTAB 5: PRINT "DIANE LAMPKIN HAS:": PRINT : PRINT : HTAB 10: PRINT "1 - SUNDAYS OFF": PRINT : HTAB 10: PRINT "2 - SUNDAYS ON"
8180 PRINT : HTAB 10: PRINT "3 - RETURN":
8190 VTAB 20: PRINT "SELECT BY NUMBER (1,2 OR 3)-> ";: GET Q: IF Q = 2 THEN GOTO 8500
8200 PR# 1
8210 POKE -12527,0: POKE -12526,81
8220 VTAB 2: HTAB 36: PRINT "NURSES SCHEDULE"
8230 FOR I = 1 TO 79: POKE 36,I: PRINT "*";: NEXT I: PRINT
8240 OF$ = "OFF":O$ = " ON"
8250 FOR J = 1 TO R: IF LEFT$(N$(J,8),1) = Y$ THEN GOTO 8270
8260 GOSUB 8700
8270 PRINT LEFT$(N$(J,2),1) +". " +N$(J,1);
8280 D = VAL( LEFT$(N$(J,7),2))
8290 FOR X = 21 TO 75 STEP 9: POKE 36,X: GOSUB 8400: PRINT DA$;: NEXT X: PRINT
8300 NEXT J: GOTO 100
8400 IF D = 1 THEN IF X = 21 OR X = 57 THEN DA$ = OF$: RETURN
8401 IF D = 2 THEN IF X = 21 OR X = 66 THEN DA$ = OF$: RETURN
8402 IF D = 3 THEN IF X = 39 OR X = 75 THEN DA$ = OF$: RETURN
8403 IF D = 4 THEN IF X = 30 OR X = 75 THEN DA$ = OF$: RETURN
8404 IF D = 5 THEN IF X = 57 OR X = 66 THEN DA$ = OF$: RETURN
8405 IF D = 6 THEN IF X = 66 OR X = 75 THEN DA$ = OF$: RETURN
8406 IF D = 7 THEN IF X = 48 OR X = 75 THEN DA$ = OF$: RETURN
8407 IF D = 8 THEN IF X = 21 OR X = 66 THEN DA$ = OF$: RETURN
8408 IF D = 9 THEN IF X = 39 OR X = 57 OR X = 75 THEN DA$ = OF$: RETURN
8409 IF D = 10 THEN IF X = 21 OR X = 48 THEN DA$ = OF$: RETURN
8410 IF D = 11 THEN IF X = 21 OR X = 39 THEN DA$ = OF$: RETURN
8411 IF D = 12 THEN IF X = 21 OR X = 39 THEN DA$ = OF$: RETURN
8412 IF D = 13 THEN IF X = 30 OR X = 75 THEN DA$ = OF$: RETURN
8413 IF D = 14 THEN IF X = 21 OR X = 57 THEN DA$ = OF$: RETURN
8414 IF D = 15 THEN IF X = 57 OR X = 75 THEN DA$ = OF$: RETURN
8415 IF D = 16 THEN IF X = 39 OR X = 75 THEN DA$ = OF$: RETURN
8416 IF D = 17 THEN IF X = 21 OR X = 66 THEN DA$ = OF$: RETURN
8417 IF D = 18 THEN IF X = 21 OR X = 39 OR X = 48 OR X = 66 THEN DA$ = OF$: RETURN
8418 IF D = 19 THEN IF X = 21 OR X = 30 OR X = 39 OR X = 48 OR X = 57 THEN DA$ = OF$: RETURN
8419 IF D = 20 THEN IF X = 21 OR X = 30 OR X = 39 OR X = 48 OR X = 57 OR X = 66 THEN DA$ = OF$: RETURN
8420 IF D = 21 THEN IF X = 30 OR X = 39 OR X = 48 OR X = 57 OR X = 66 THEN DA$ = OF$: RETURN
8421 IF D = 22 THEN IF X = 48 OR X = 75 THEN DA$ = OF$: RETURN
8422 IF D = 23 THEN IF X = 21 OR X = 57 THEN DA$ = OF$: RETURN
8423 IF D = 24 THEN IF X = 21 OR X = 39 OR X = 57 OR X = 66 OR X = 75 THEN DA$ = OF$: RETURN
8424 IF D = 25 THEN IF X = 21 OR X = 48 OR X = 57 OR X = 66 THEN DA$ = OF$: RETURN
8425 IF D = 26 THEN IF X = 21 OR X = 30 OR X = 48 OR X = 66 THEN DA$ = OF$: RETURN
8426 IF D = 27 THEN IF X = 39 OR X = 57 THEN DA$ = OF$: RETURN
8427 IF D = 28 THEN IF X = 30 OR X = 75 THEN DA$ = OF$: RETURN
8428 IF D = 29 THEN IF X = 39 OR X = 57 OR X = 66 OR X = 75 THEN DA$ = OF$: RETURN
8490 DA$ = O$: RETURN
8500 PR# 1
8510 POKE -12527,0: POKE -12526,81
8520 VTAB 2: HTAB 36: PRINT "NURSES SCHEDULE"
8530 FOR I = 1 TO 79: POKE 36,I: PRINT "*";: NEXT I: PRINT
8540 OF$ = "OFF":O$ = " ON"
8550 FOR J = 1 TO R: IF LEFT$(N$(J,8),1) = Y$ THEN GOTO 8570
8560 GOSUB 8700
8570 PRINT LEFT$(N$(J,2),1) +". " +N$(J,1);
8580 D = VAL( LEFT$(N$(J,7),2))
8590 FOR X = 21 TO 75 STEP 9: POKE 36,X: GOSUB 8600: PRINT DA$;: NEXT X: PRINT
8595 NEXT J: GOTO 8990
8600 IF D = 1 THEN IF X = 30 OR X = 75 THEN DA$ = OF$: RETURN
8601 IF D = 2 THEN IF X = 39 OR X = 75 THEN DA$ = OF$: RETURN
8602 IF D = 3 THEN IF X = 21 OR X = 66 THEN DA$ = OF$: RETURN
8603 IF D = 4 THEN IF X = 21 OR X = 56 THEN DA$ = OF$: RETURN
8604 IF D = 5 THEN IF X = 57 OR X = 66 THEN DA$ = OF$: RETURN
8605 IF D = 6 THEN IF X = 66 OR X = 75 THEN DA$ = OF$: RETURN
8606 IF D = 7 THEN IF X = 21 OR X = 57 THEN DA$ = OF$: RETURN
8607 IF D = 8 THEN IF X = 48 OR X = 75 THEN DA$ = OF$: RETURN
8608 IF D = 9 THEN IF X = 21 OR X = 39 OR X = 57 THEN DA$ = OF$: RETURN
8609 IF D = 10 THEN IF X = 30 OR X = 75 THEN DA$ = OF$: RETURN
8610 IF D = 11 THEN IF X = 21 OR X = 39 THEN DA$ = OF$: RETURN
8611 IF D = 12 THEN IF X = 39 OR X = 75 THEN DA$ = OF$: RETURN
8612 IF D = 13 THEN IF X = 21 OR X = 48 THEN DA$ = OF$: RETURN
8613 IF D = 14 THEN IF X = 57 OR X = 75 THEN DA$ = OF$: RETURN
8614 IF D = 15 THEN IF X = 21 OR X = 57 THEN DA$ = OF$: RETURN
8615 IF D = 16 THEN IF X = 21 OR X = 57 THEN DA$ = OF$: RETURN
8616 IF D = 17 THEN IF X = 48 OR X = 75 THEN DA$ = OF$: RETURN
8617 IF D = 18 THEN IF X = 39 OR X = 48 OR X = 66 OR X = 75 THEN DA$ = OF$: RETURN
8618 IF D = 19 THEN IF X = 30 OR X = 39 OR X = 48 OR X = 57 OR X = 66 OR X = 75 THEN DA$ = OF$: RETURN
8619 IF D = 20 THEN IF X = 21 OR X = 30 OR X = 39 OR X = 48 OR X = 57 OR X = 66 THEN DA$ = OF$: RETURN
8620 IF D = 21 THEN IF X = 30 OR X = 39 OR X = 48 OR X = 57 OR X = 66 THEN DA$ = OF$: RETURN
8621 IF D = 22 THEN IF X = 21 OR X = 66 THEN DA$ = OF$: RETURN
8623 IF D = 24 THEN IF X = 21 OR X = 39 OR X = 57 OR X = 75 THEN DA$ = OF$: RETURN
8624 IF D = 25 THEN IF X = 48 OR X = 66 OR X = 75 THEN DA$ = OF$: RETURN
8625 IF D = 26 THEN IF X = 30 OR X = 48 OR X = 66 OR X = 75 THEN DA$ = OF$: RETURN
8626 IF D = 27 THEN IF X = 39 OR X = 57 THEN DA$ = OF$: RETURN
8627 IF D = 28 THEN IF X = 21 OR X = 66 THEN DA$ = OF$: RETURN
8628 IF D = 29 THEN IF X = 39 OR X = 57 OR X = 66 OR X = 75 THEN DA$ = OF$: RETURN
8690 DA$ = O$: RETURN
8700 PRINT : POKE 36,38: PRINT N$(J,8);" FLOOR":Y$ = LEFT$(N$(J,8),1)
8705 FOR I = 1 TO 79: POKE 36,I: PRINT "-";: NEXT I: PRINT
8710 FOR I = 1 TO 7: READ A$(I): NEXT I: RESTORE
8715 POKE 36,6: PRINT "NAME";:
8720 FOR I = 21 TO 75 STEP 9:K = K +1: POKE 36,I: PRINT A$(K);: NEXT I:K = 0: PRINT : RETURN
8900 DATA SUN,MON,TUE,WED,THUR,FRI,SAT
8990 PR# 0: HOME : PRINT "THE END": END
8999 D$ = ""
9000 PRINT D$;"OPEN HELP,L800"
9010 PRINT D$;"READ HELP,R0"
9020 INPUT R
9030 FOR F = 1 TO R
9040 PRINT D$;"READ HELP,R";F
9050 FOR X = 1 TO 8
9060 INPUT N$(F,X)
9070 NEXT X
9075 NEXT F
9080 PRINT D$;"CLOSE"
9090 RETURN
9980 PRINT D$;"OPEN HELP,L800"
9990 PRINT D$;"DELETE HELP"
10000 PRINT D$;"OPEN HELP,L800"
10000 REM CHANGE LINES 8400,8499 AND 8600,8699 FOR DAYS OFF
10010 PRINT D$;"WRITE HELP,R0"
10020 PRINT R
10030 FOR F = 1 TO R
10040 PRINT D$;"WRITE HELP,R";F
10050 FOR X = 1 TO 8
10060 PRINT N$(F,X)
10070 NEXT X
10075 NEXT F
10080 PRINT D$;"CLOSE HELP"
10090 RETURN
11000 HOME : VTAB 12: HTAB 11: PRINT "HOPE THIS HELPED!!": END
15000 P = 1: GOSUB 2050:P = 0: VTAB 22: CALL -958: INPUT "ARE YOU SURE YOU WANT THIS REMOVED? ";A$: IF LEFT$(A$,1) < >"Y" THEN A$ = " ": GOTO 100
30000 VTAB 23: PRINT "THERE IS AN ERROR IN LINE #"; PEEK(218) + PEEK(219) *256: PRINT "ERROR #"; PEEK(222)

Text found in 033_JHA_Nurses.dsk/MOD II SCHEDULING.bas:

100 D$ = ""
102 PRINT D$;"NOMONI,O,C"
104 DIM N$(80,9)
106 HOME : VTAB 12: HTAB 15: INVERSE : PRINT " SCHEDULING ": NORMAL
107 VTAB 16: HTAB 9: FLASH : PRINT " LOADING STAFF RECORDS ": NORMAL
108 GOSUB 1900
110 HOME : VTAB 5: PRINT TAB( 11)"SELECTION LISTING": PRINT : PRINT TAB( 6)"1 - PRINT SCHEDULE OF FLOORS": PRINT
112 PRINT TAB( 6)"2 - DISPLAY A FLOOR ON VIDEO": PRINT : PRINT TAB( 6)"3 - RETURN TO HEADING"
113 PRINT : PRINT TAB( 6)"4 - CHECK CONSIDERATIONS"
114 VTAB 20: PRINT " SELECT ON BY NUMBER: ";: GET G$: PRINT
116 IF G$ = "1" THEN 282
118 IF G$ = "3" THEN PRINT D$;"RUN HELLO"
119 IF G$ = "4" THEN GOTO 1200
120 IF G$ < >"1" THEN IF G$ < >"2" THEN IF G$ < >"4" THEN 114
150 HOME
152 FR$ = "2":SW = 0:J = 1
154 IF J >R THEN PRINT : PR# 0: GOTO 268
156 FL$ = LEFT$(N$(J,8),1)
158 IF FL$ < >FR$ THEN GOTO 264
160 IF FR$ = FL$ AND SW = 1 THEN 170
162 IF FR$ = "ANNEX" THEN 166
164 HTAB 14: PRINT N$(J,8) +" FLOOR": GOTO 168
166 HTAB 18: PRINT "ANNEX"
168 PRINT " NAME SUN MON TUE WED THU FRI SAT": PRINT
170 J$ = LEFT$(N$(J,2),1) +"." +N$(J,1):LG = LEN(J$): IF LG >11 THEN PRINT LEFT$(J$,11);: GOTO 174
172 PRINT J$;:
174 REM VIDEO SCHEDULE
176 IF CH = 1 THEN I = 0: RESTORE : FOR X = 39 TO 69 STEP 5: GOTO 180
178 I = 0: FOR X = 4 TO 34 STEP 5
180 D = INT( VAL( LEFT$(N$(J,9),2)))
182 IF CH = 1 THEN H = ((.8 *X) -18.2): HTAB H: GOTO 186
184 H = ((.8 *X) +9.8): HTAB H
186 GOSUB 1001
188 PRINT DO$;: NEXT X: PRINT :J = J +1:SW = 1: GOTO 154
190 PRINT : PR# 0: GOTO 110
264 REM NEW FLOOR
266 PRINT : VTAB 22: CALL -958: PRINT "FOR THE NEXT FLOOR HIT 'SPACE BAR'";: GET A$: IF A$ = CHR$(32) THEN FR$ = FL$:SW = 0: POKE -16368,0: HOME : GOTO 154
268 PRINT : VTAB 22: CALL -958: PRINT "WOULD YOU LIKE THE NEXT WEEK";: GET A$: PRINT A$: IF LEFT$(A$,1) = "Y" AND CH = 1 THEN CH = 0: POKE -16368,0: GOTO 150
270 IF LEFT$(A$,1) = "Y" AND CH = 0 THEN CH = 1: POKE -16368,0: GOTO 150
276 GOTO 110
278 DATA SUNDAY,MONDAY,TUESDAY,WEDN'DAY,THURSDAY,FRIDAY,SATURDAY
280 VTAB 23: CALL -958: PRINT "PLEASE CHECK PERSONAL RECORDS FOR COR-": PRINT "RECT NAME!!!": FOR I = 1 TO 3000: NEXT I: GOTO 110
282 REM PRINT SCHEDULE
284 HOME : VTAB 5: HTAB 2: PRINT "WOULD YOU LIKE: ": PRINT : PRINT : HTAB 10: PRINT "1 - PAY WEEK": PRINT : HTAB 10: PRINT "2 - NON-PAY WEEK"
286 PRINT : HTAB 10: PRINT "3 - RETURN":
288 VTAB 20: PRINT "SELECT BY NUMBER (1,2 OR 3)-> ";: GET Q: IF Q = 2 THEN GOTO 314
290 IF Q = 3 THEN 110
292 HOME : VTAB 12: HTAB 10: FLASH : PRINT "PRINTING SCHEDULE 1": NORMAL : PR# 1
294 PRINT : POKE -12527,0: POKE -12526,81
296 VTAB 2: HTAB 31: PRINT "NURSES SCHEDULE 1"
298 FOR I = 1 TO 79: POKE 36,I: PRINT "*";: NEXT I: PRINT
300 FOR J = 1 TO R: IF LEFT$(N$(J,8),1) = Y$ THEN 304
302 GOSUB 344
304 PRINT LEFT$(N$(J,2),1) +". " +N$(J,1);
306 D = VAL( LEFT$(N$(J,9),2))
308 FOR X = 4 TO 34 STEP 5: POKE 36,((1.8 *X) +9.8): GOSUB 1001: PRINT DO$;: NEXT : PRINT
310 NEXT J: PRINT : PR# 0: GOTO 110
312 REM SCHEDULE 2
314 HOME : VTAB 12: HTAB 10: FLASH : PRINT "PRINTING SCHEDULE 2": NORMAL : PR# 1
316 PRINT : POKE -12527,0: POKE -12526,81
318 VTAB 2: HTAB 31: PRINT "NURSES SCHEDULE 2"
320 FOR I = 1 TO 79: POKE 36,I: PRINT "*";: NEXT I: PRINT
322 FOR J = 1 TO R: IF LEFT$(N$(J,8),1) = Y$ THEN GOTO 326
324 GOSUB 344
326 PRINT LEFT$(N$(J,2),1) +". " +N$(J,1);
328 D = VAL( LEFT$(N$(J,9),2))
330 FOR X = 39 TO 69 STEP 5: POKE 36,((1.8 *X) -53.2): GOSUB 1001: PRINT DO$;: NEXT X: PRINT
332 NEXT J: PRINT : PR# 0: GOTO 110
344 PRINT : POKE 36,35: PRINT N$(J,8);" FLOOR":Y$ = LEFT$(N$(J,8),1)
346 FOR I = 1 TO 79: POKE 36,I: PRINT "-";: NEXT I: PRINT
348 FOR I = 1 TO 7: READ A$(I): NEXT I: RESTORE
350 POKE 36,6: PRINT "NAME";:
352 FOR I = 15 TO 69 STEP 9:K = K +1: POKE 36,I: PRINT A$(K);: NEXT I:K = 0: PRINT : RETURN
354 DATA SUN,MON,TUE,WED,THUR,FRI,SAT
1000 REM DAYS OFF DATA
1001 IF D = 1 THEN IF X = 4 OR X = 24 OR X = 44 OR X = 69 THEN DO$ = "OFF": RETURN
1002 IF D = 2 THEN IF X = 4 OR X = 29 OR X = 49 OR X = 69 THEN DO$ = "OFF": RETURN
1003 IF D = 3 THEN IF X = 14 OR X = 34 OR X = 39 OR X = 64 THEN DO$ = "OFF": RETURN
1004 IF D = 4 THEN IF X = 9 OR X = 34 OR X = 39 OR X = 59 THEN DO$ = "OFF": RETURN
1005 IF D = 5 THEN IF X = 24 OR X = 29 OR X = 59 OR X = 64 THEN DO$ = "OFF": RETURN
1006 IF D = 6 THEN IF X = 29 OR X = 34 OR X = 64 OR X = 69 THEN DO$ = "OFF": RETURN
1007 IF D = 7 THEN IF X = 19 OR X = 34 OR X = 39 OR X = 59 THEN DO$ = "OFF": RETURN
1008 IF D = 8 THEN IF X = 4 OR X = 29 OR X = 54 OR X = 69 THEN DO$ = "OFF": RETURN
1009 IF D = 9 THEN IF X = 14 OR X = 24 OR X = 34 OR X = 39 OR X = 49 OR X = 59 THEN DO$ = "OFF": RETURN
1010 IF D = 10 THEN IF X = 4 OR X = 19 OR X = 44 OR X = 69 THEN DO$ = "OFF": RETURN
1011 IF D = 11 THEN IF X = 4 OR X = 14 OR X = 39 OR X = 49 THEN DO$ = "OFF": RETURN
1012 IF D = 12 THEN IF X = 4 OR X = 14 OR X = 49 OR X = 69 THEN DO$ = "OFF": RETURN
1013 IF D = 13 THEN IF X = 9 OR X = 34 OR X = 39 OR X = 54 THEN DO$ = "OFF": RETURN
1014 IF D = 14 THEN IF X = 4 OR X = 24 OR X = 59 OR X = 69 THEN DO$ = "OFF": RETURN
1015 IF D = 15 THEN IF X = 24 OR X = 34 OR X = 39 OR X = 59 THEN DO$ = "OFF": RETURN
1016 IF D = 16 THEN IF X = 14 OR X = 34 OR X = 39 OR X = 59 THEN DO$ = "OFF": RETURN
1017 IF D = 17 THEN RETURN
1018 IF D = 18 THEN IF X = 4 OR X = 14 OR X = 19 OR X = 29 OR X = 49 OR X = 54 OR X = 64 OR X = 69 THEN DO$ = "OFF": RETURN
1019 IF D = 19 THEN IF X = 4 OR X = 9 OR X = 14 OR X = 19 OR X = 24 OR X = 44 OR X = 49 OR X = 54 OR X = 59 OR X = 64 OR X = 69 THEN DO$ = "OFF": RETURN
1020 IF D = 20 THEN IF X = 4 OR X = 9 OR X = 19 OR X = 24 OR X = 29 OR X = 39 OR X = 44 OR X = 49 OR X = 54 OR X = 59 OR X = 64 THEN DO$ = "OFF": RETURN
1021 IF D = 21 THEN IF X = 9 OR X = 14 OR X = 19 OR X = 24 OR X = 29 OR X = 44 OR X = 49 OR X = 54 OR X = 59 OR X = 64 THEN DO$ = "OFF": RETURN
1022 IF D = 23 THEN RETURN
1023 IF D = 22 THEN IF X = 19 OR X = 34 OR X = 39 OR X = 64 THEN DO$ = "OFF": RETURN
1024 IF D = 24 THEN IF X = 4 OR X = 14 OR X = 24 OR X = 29 OR X = 39 OR X = 49 OR X = 59 OR X = 69 THEN DO$ = "OFF": RETURN
1025 IF D = 25 THEN IF X = 4 OR X = 19 OR X = 24 OR X = 29 OR X = 54 OR X = 64 OR X = 69 THEN DO$ = "OFF": RETURN
1026 IF D = 26 THEN IF X = 4 OR X = 9 OR X = 19 OR X = 29 OR X = 44 OR X = 54 OR X = 64 OR X = 69 THEN DO$ = "OFF": RETURN
1027 IF D = 27 THEN IF X = 14 OR X = 24 OR X = 49 OR X = 59 THEN DO$ = "OFF": RETURN
1028 IF D = 28 THEN IF X = 9 OR X = 14 OR X = 19 OR X = 24 OR X = 29 OR X = 34 OR X = 39 OR X = 44 OR X = 49 OR X = 54 OR X = 59 OR X = 64 OR X = 69 THEN DO$ = "OFF": RETURN
1029 IF D = 29 THEN IF X = 14 OR X = 19 OR X = 24 OR X = 44 OR X = 54 OR X = 59 THEN DO$ = "OFF": RETURN
1030 IF D = 30 THEN IF X = 9 OR X = 19 OR X = 24 OR X = 34 OR X = 44 OR X = 49 OR X = 64 THEN DO$ = "OFF": RETURN
1099 IF D = 99 THEN IF X = 4 OR X = 9 OR X = 14 OR X = 19 OR X = 24 OR X = 29 OR X = 34 OR X = 39 OR X = 44 OR X = 49 OR X = 54 OR X = 59 OR X = 64 OR X = 69 THEN DO$ = "LOA": RETURN
1100 DO$ = " ON": RETURN
1200 HOME : VTAB 12: HTAB 12: INVERSE :: PRINT " CONSIDERATIONS ": NORMAL : FOR X = 1 TO 2000: NEXT
1204 SW = 0
1206 HOME : VTAB 2: HTAB 11: PRINT "FUNCTIONS AVAILABLE": GOSUB 1504: PRINT : PRINT
1208 HTAB 8: PRINT "1 - SEARCH BY NUMBER": HTAB 8: PRINT "2 - SEARCH BY NAME": HTAB 8: PRINT "3 - CHANGE A PERSONAL NUMBER": HTAB 8: PRINT "4 - CHART OF 'OFF' DAYS": HTAB 8: PRINT "5 - RETURN TO MAIN HEADING"
1210 HTAB 8: PRINT "6 - MAKE A NEW SCHEDULE"
1212 VTAB 20: PRINT " SELECT FUNCTION BY NUMBER: ";: GET A$: PRINT
1214 IF A$ < >"1" THEN IF A$ < >"2" THEN IF A$ < >"3" THEN IF A$ < >"4" THEN IF A$ < >"5" THEN IF A$ < >"6" THEN 1212
1216 A = VAL(A$): ON A GOTO 1300,1220,1308,1400,2002,1800
1220 REM SEARCH PERSONAL
1222 HOME : VTAB 10: PRINT "WHAT NAME ARE YOU LOOKING FOR: ": PRINT : HTAB 5: INPUT N$
1224 FOR H = 1 TO R: IF N$ = N$(H,2) +" " +N$(H,1) THEN GOTO 1228
1226 NEXT H: GOTO 1508
1228 GOSUB 1600: GOSUB 1506: GOTO 1206
1300 HOME : VTAB 8: PRINT "WHAT 'CONSIDERATION' NUMBER DO YOU WANT": PRINT : HTAB 8: INPUT D
1302 HOME : VTAB 2: PRINT "FOR NUMBER: ";D: GOSUB 1602: GOSUB 1506: GOTO 1206
1308 HOME : VTAB 10: PRINT "WHAT NAME ARE GOING TO CHANGE: ": PRINT : HTAB 5: INPUT N$
1310 FOR H = 1 TO R: IF N$ = N$(H,2) +" " +N$(H,1) THEN GOTO 1314
1312 NEXT H: GOTO 1508
1314 GOSUB 1600: VTAB 21: PRINT " NOW: ";D;" CHANGE TO: ";: INPUT N$(H,9)
1316 GOSUB 1600: VTAB 21: PRINT " IS THIS CORRECT: ";: GET A$: PRINT : IF A$ = "Y" THEN HTAB 13: FLASH : PRINT " CHANGING FILE ": NORMAL : GOSUB 1916: GOTO 1206
1318 GOTO 1206
1400 HOME : VTAB 12: HTAB 12: FLASH : PRINT " PRINTING CHART ": NORMAL : PR# 1: PRINT
1402 PRINT "#'S SUN MON TUES WED THUR FRI SAT SUN MON TUES WED THUR FRI SAT"
1404 D = 1
1406 GOSUB 1500: PRINT " "D;: FOR X = 4 TO 74 STEP 5: POKE 36,X: PRINT "!";: POKE 36,(X +2): GOSUB 1001: PRINT DO$;: NEXT X: PRINT :D = D +1
1408 IF D >30 THEN GOSUB 1500: PRINT : POKE 36,36: PRINT "END": PR# 0: GOTO 1206
1410 GOTO 1406
1500 FOR J = 1 TO 79: PRINT "-";: NEXT : PRINT : RETURN
1502 VTAB 21: PRINT " TO CONTINUE PRESS ANY KEY";: GET A$: PRINT : RETURN
1504 FOR X = 1 TO 39: PRINT "-";: NEXT : PRINT : RETURN
1506 VTAB 20: PRINT " PRESS ANY KEY TO CONTINUE ";: GET A$: PRINT : GOTO 1206
1508 PRINT : INVERSE : PRINT " NO LISTING AVAILABLE ": NORMAL : FOR X = 1 TO 2500: NEXT X: GOTO 1206
1600 HOME : VTAB 2: PRINT N$(H,2) +" " +N$(H,1);"'S DAYS OFF:":D = VAL(N$(H,9)): PRINT " CONSIDERATION: ";D
1602 VTAB 7: HTAB 15: PRINT "FIRST WEEK": PRINT
1604 PRINT " SUN MON TUE WED THR FRI SAT "
1606 FOR X = 4 TO 34 STEP 5: HTAB X: GOSUB 1001: PRINT DO$;: NEXT X: PRINT : PRINT
1608 PRINT :: HTAB 15: PRINT "SECOND WEEK": PRINT : PRINT " SUN MON TUE WED THR FRI SAT "
1610 FOR Y = 4 TO 34 STEP 5:X = Y +35: HTAB Y: GOSUB 1001: PRINT DO$;: NEXT Y: PRINT : PRINT
1612 RETURN
1700 PRINT D$;"RUN HELLO"
1800 DIM A$(14)
1802 HOME : VTAB 2: PRINT " SCHEDULE MAKER "
1804 PRINT : PRINT " PRESS RETURN TO UPGRADE DAYS."
1806 PRINT " TYPE 'OFF' FOR DAYS OFF."
1808 VTAB 8: PRINT " SUN MON TUE WED THU FRI SAT"
1810 VTAB 14: PRINT " SUN MON TUE WED THU FRI SAT"
1812 X = 1:T = 10
1814 FOR Y = 1 TO 14
1816 VTAB T: HTAB X: INPUT A$(Y)
1818 X = X +6: IF X >37 THEN GOTO 1822
1820 NEXT Y: GOTO 1824
1822 X = 1:T = 16: GOTO 1820
1824 REM
1826 HOME : VTAB 22: PRINT " IS THIS THE RIGHT SCHEDULE? "
1828 VTAB 8: PRINT " SUN MON TUE WED THU FRI SAT"
1830 VTAB 14: PRINT " SUN MON TUE WED THU FRI SAT"
1832 X = 2:T = 10: SPEED= 100
1834 FOR Y = 1 TO 14
1836 VTAB T: HTAB X: PRINT A$(Y)
1838 X = X +6: IF X >38 THEN 1842
1840 NEXT Y: GOTO 1844
1842 X = 2:T = 16: GOTO 1840
1844 SPEED= 255
1846 VTAB 22: HTAB 32: INPUT A$: IF LEFT$(A$,1) = "Y" THEN 1850
1848 GOTO 1802
1850 HOME : LIST 1000,2000: FOR X = 1 TO 8: PRINT : NEXT :: PRINT
1852 V$ = " THEN DO$="OFF":RETURN"
1854 INPUT "NEW CONSIDERATION NO.: ";D:SW = 0
1856 W$ = " THEN IF "
1858 Y$ = "IF D = " + STR$(D) +W$
1860 X$ = " X= "
1862 Z$ = " OR "
1864 FOR Y = 1 TO 14
1866 IF A$(Y) = "" THEN 1874
1868 IF SW = 1 THEN 1872
1870 SE$ = Y$ +X$ + STR$((Y *5) -1):SW = 1: GOTO 1874
1872 SE$ = SE$ +Z$ +X$ + STR$((Y *5) -1)
1874 NEXT Y
1876 PRINT : PRINT : PRINT SE$ +V$
1878 END
1900 PRINT D$;"OPEN PERSONAL,L800"
1902 PRINT D$;"READ PERSONAL"
1904 INPUT R
1906 FOR F = 1 TO R: FOR X = 1 TO 9
1908 INPUT N$(F,X)
1910 NEXT X,F
1912 PRINT D$;"CLOSE PERSONAL"
1914 RETURN
1916 PRINT D$;"OPEN PERSONAL,L800"
1918 PRINT D$;"DELETE PERSONAL"
1920 PRINT D$;"OPEN PERSONAL,L800"
1922 PRINT D$;"WRITE PERSONAL"
1924 PRINT R
1926 FOR F = 1 TO R: FOR X = 1 TO 9
1928 PRINT N$(F,X)
1930 NEXT X,F
1932 PRINT D$;"CLOSE PERSONAL"
1934 RETURN

Text found in 033_JHA_Nurses.dsk/PERSONAL FILE.bas:

100 D$ = CHR$(4)
102 PRINT D$;"NOMONI,O,C"
104 HOME : VTAB 12: HTAB 12: INVERSE : PRINT " PERSONAL FILE ": NORMAL : PRINT
106 R = 0:H = 0: DIM N$(80,9)
108 ONERR GOTO 112
110 GOSUB 5000
112 HOME : VTAB 4: HTAB 11: PRINT "SELECTION LISTING": PRINT : PRINT : PRINT
114 PRINT : HTAB 5: PRINT "1 - COMPLETE EMPLOYEE LISTING": HTAB 5: PRINT "2 - ADD AN EMPLOYEE TO LISTING": HTAB 5: PRINT "3 - CHANGE AN EMPLOYEE RECORD": HTAB 5: PRINT "4 - DELETE AN EMPLOYEE RECORD"
116 HTAB 5: PRINT "5 - FILE CHANGES & RETURN TO HEADING"
118 VTAB 22: CALL -958: PRINT "SELECT BY NUMBER -> ";: GET A$: PRINT A$:A = VAL(A$): IF A <1 OR A >5 THEN 118
120 ON A GOTO 122,140,148,158,300
122 HOME : VTAB 5: HTAB 12: PRINT "EMPLOYEE LISTING": GOSUB 212
124 VTAB 10: HTAB 8: PRINT "1-RUN COMPLETE LISTING": HTAB 8: PRINT "2-SEARCH FOR ONE EMPLOYEE": HTAB 8: PRINT "3-RETURN TO THE BEGINNING"
126 VTAB 16: HTAB 9: PRINT "SELECT BY NUMBER: ";: GET ANS$: IF ANS$ < >"1" THEN IF ANS$ < >"2" THEN IF ANS$ < >"3" THEN 126
128 A = VAL(ANS$): ON A GOTO 136,130,112
130 GOSUB 202
132 FOR H = 1 TO R: IF N$ = N$(H,2) +" " +N$(H,1) THEN HOME : VTAB 4: GOSUB 210: GOSUB 212: VTAB 8: GOTO 134
133 NEXT H: GOSUB 200: GOTO 112
134 GOSUB 250: GOSUB 204: GOTO 112
136 FOR H = 1 TO R: HOME : VTAB 2: PRINT "ENTRY #";H: VTAB 4: GOSUB 212: GOSUB 210: VTAB 8
138 GOSUB 250: GOSUB 204: NEXT H: GOTO 112
140 HOME :R = R +1:H = R: VTAB 2: HTAB 6: PRINT "EMPLOYEE ADDITION PROGRAM": GOSUB 212: PRINT : GOSUB 268
142 HOME : VTAB 2: PRINT "RECORD FOR: ";N$(H,2) +" " +N$(H,1): GOSUB 212: PRINT : GOSUB 250
144 GOSUB 208: IF LEFT$(ANS$,1) = "Y" THEN GOTO 112
146 R = R -1: VTAB 16: PRINT " LET'S TRY AGAIN.": FOR X = 1 TO 2500: NEXT X: GOTO 140
148 HOME : VTAB 5: GOSUB 202: FOR H = 1 TO R: IF N$ = N$(H,2) +" " +N$(H,1) THEN HOME : PRINT " CHANGE RECORD ROUTINE ": GOSUB 212: VTAB 4: GOSUB 250: GOTO 152
150 NEXT H: GOSUB 200: GOTO 112
152 VTAB 13: GOSUB 268: HOME : VTAB 4: GOSUB 210: GOSUB 212: VTAB 8
154 GOSUB 250: GOSUB 208: IF LEFT$(ANS$,1) = "Y" THEN GOTO
156 VTAB 21: PRINT " LET'S TRY AGAIN.": FOR X = 1 TO 2500: NEXT X: GOTO 148
158 HOME : HTAB 4: PRINT "EMPLOYEE RECORD DELETION PROGRAM": GOSUB 212
160 PRINT : HTAB 8: PRINT "EMPLOYEE TO BE DELETED: ": PRINT : HTAB 8: INPUT "-> ";N$
162 PRINT : PRINT : HTAB 14: FLASH : PRINT " SEARCHING ": NORMAL
164 FOR B = 1 TO 2000: NEXT B
166 FOR H = 1 TO R: IF N$ = N$(H,2) +" " +N$(H,1) THEN 170
168 NEXT : PRINT : PRINT " NO EMPLOYEE LISTED BY THAT NAME!! ": HTAB 10: PRINT "PLEASE CHECK SPELLING.": FOR X = 1 TO 3000: NEXT : GOTO 112
170 HOME : VTAB 2: HTAB 12: PRINT "DELETION PROGRAM": GOSUB 212: GOSUB 210: PRINT
172 FOR S = 1 TO 9: HTAB 8: PRINT N$(H,S): NEXT
174 VTAB 18: PRINT "IS THIS THE ENTRY TO BE DELETED? ";: INPUT ANS$: IF LEFT$(ANS$,1) < >"Y" THEN 112
176 N = 1: FOR I = 1 TO R: IF I = H THEN 180
178 FOR S = 1 TO 9:N$(N,S) = N$(I,S): NEXT S:N = N +1: GOTO 180
180 NEXT I:R = R -1: VTAB 20: HTAB 13: FLASH : PRINT "DELETING FILE": NORMAL
182 GOSUB 5020: GOTO 112
200 VTAB 18: PRINT " NO FILE LISTED FOR: ";N$: HTAB 10: PRINT " PLEASE CHECK SPELLING.": FOR X = 1 TO 3000: NEXT X: RETURN
202 HOME : VTAB 2: HTAB 11: PRINT "NAME FINDING ROUTINE": GOSUB 212: PRINT : PRINT "NAME THE EMPLOYEE YOU WISH TO FIND: ": PRINT : HTAB 5: INPUT "";N$: RETURN
204 VTAB 20: PRINT " PRESS "1" TO RETURN TO MENU OR, PRESS ANY OTHER KEY TO CONTINUE ";: GET ANS$: IF ANS$ = "1" THEN 112
206 RETURN
208 VTAB 18: HTAB 11: INPUT "IS THIS CORRECT? ";ANS$: RETURN
210 PRINT "RECORD FOR: ";N$(H,2) +" " +N$(H,1): RETURN
212 FOR X = 1 TO 39: PRINT "-";: NEXT X: PRINT : RETURN
250 PRINT "NAME: ";N$(H,2) +" " +N$(H,1)
252 PRINT "NO.& STREET: ";N$(H,3)
254 PRINT "CITY & STATE: ";N$(H,4)
256 PRINT "ZIP CODE: ";N$(H,5)
258 PRINT "TELEPHONE: ";N$(H,6)
260 PRINT "QUALIFICATIONS: ";N$(H,7)
262 PRINT "ASSIGNED FLOOR: ";N$(H,8)
264 PRINT "CONSIDERATIONS: ";N$(H,9)
266 RETURN
268 INPUT "LAST NAME: ";N$(S,1): IF N$(S,1) = "" THEN N$(S,1) = N$(H,1): VTAB 13: HTAB 17: PRINT N$(S,1)
270 INPUT "FIRST NAME: ";N$(S,2): IF N$(S,2) = "" THEN N$(S,2) = N$(H,2): VTAB 14: HTAB 17: PRINT N$(S,2)
272 INPUT "NO.& STREET: ";N$(S,3): IF N$(S,3) = "" THEN N$(S,3) = N$(H,3): VTAB 15: HTAB 17: PRINT N$(S,3)
274 INPUT "CITY & STATE: ";N$(S,4): IF N$(S,4) = "" THEN N$(S,4) = N$(H,4): VTAB 16: HTAB 17: PRINT N$(S,4)
276 INPUT "ZIP CODE: ";N$(S,5): IF N$(S,5) = "" THEN N$(S,5) = N$(H,5): VTAB 17: HTAB 17: PRINT N$(S,5)
278 INPUT "TELEPHONE: ";N$(S,6): IF N$(S,6) = "" THEN N$(S,6) = N$(H,6): VTAB 18: HTAB 17: PRINT N$(S,6)
280 INPUT "QUALIFICATIONS: ";N$(S,7): IF N$(S,7) = "" THEN N$(S,7) = N$(H,7): VTAB 19: HTAB 17: PRINT N$(S,7)
282 INPUT "ASSIGNED FLOOR: ";N$(S,8): IF N$(S,8) = "" THEN N$(S,8) = N$(H,8): VTAB 20: HTAB 17: PRINT N$(S,8)
284 INPUT "CONSIDERATIONS: ";N$(S,9): IF N$(S,9) = "" THEN N$(S,9) = N$(H,9): VTAB 21: HTAB 17: PRINT N$(S,9)
286 FOR X = 1 TO 9:N$(H,X) = N$(S,X): NEXT
288 RETURN
300 GOSUB 5020: PRINT D$;"RUN SORT"
5000 PRINT D$;"OPEN PERSONAL,L800"
5002 PRINT D$;"READ PERSONAL"
5004 INPUT R
5006 FOR F = 1 TO R: FOR X = 1 TO 9
5008 INPUT N$(F,X)
5010 NEXT X,F
5012 PRINT D$;"CLOSE PERSONAL"
5014 RETURN
5020 PRINT D$;"OPEN PERSONAL,L800"
5022 PRINT D$;"DELETE PERSONAL"
5024 PRINT D$;"OPEN PERSONAL,L800"
5026 PRINT D$;"WRITE PERSONAL"
5028 PRINT R
5030 FOR F = 1 TO R: FOR X = 1 TO 9
5032 PRINT N$(F,X)
5034 NEXT X,F
5036 PRINT D$;"CLOSE PERSONAL"
5038 RETURN

Text found in 033_JHA_Nurses.dsk/PERSONAL.txt:

27
PECZYNSKI
LINDA
101 OAKLAWN AVE.
CRANSTON R.I.
NONE
NONE
R.N.
2ND
99
KNIGHT
DAN
1 JOSEPH ST.
PROVIDENCE R.I.
UNKNOWN
273-1282
L.P.N.
2ND
4
AQUINO
EVA
50 CRARY STREET
PROVIDENCE R.I.
UNKNOWN
751-2428
AIDE
2ND
4
DI MAIO
BARBARA
614 RIVER AVE.
PROVIDENCE R.I.
UNKNOWN
274-4191
AIDE
2ND
15
LEYFMAN
MARIA
84 LUBEC ST.
NORTH PROVIDENCE R.I.
UNKNOWN
751-8207
AIDE
2ND
10
ROLLINS
MARY
1720 CHALKSTONE AVE.
PROVIDENCE R.I.
UKNOWN
UNLISTED
AIDE
2ND
6
COSTA
ROSALING
50 BELMONT ST.
PAWTUCKET R.I.
UNKNOWN
726-3380
AIDE
2ND
21
HUGHES
ELIZABETH
8 EIGHTH ST.
PROVIDENCE R.I.
UNKNOWN
751-5513
AIDE
2ND
24
CHIAVONE
RALPH
17 KENYON ST.
PROVIDENCE R.I.
UNKNOWN
861-7554
ORDERLY
2ND
30
HARRIS
HERBERT
41 WHITMARSH STREET
PROVIDENCE R.I.
UNKNOWN
272-7867
ORDERLY
2ND
8
DEROSIER
THOMAS
57 CURTIS STREET
PROVIDENCE R.I.
UNKNOWN
272-5562
ORDERLY
2ND
15
HARRISON
DENNIS
316 WEST AVE.
PAWTUCKET R.I.
UNKNOWN
UNKNOWN
ORDERLY
2ND
8
LEMON
TED
45 EAST MANNING ST.
PROVIDENCE R.I.
UNKNOWN
751-4529
ORDERLY
2ND
29
HAWKINS
ELIZABETH
363 FERNWOOD ST.
PAWTUCKET R.I.
UNKNOWN
724-3299
R.N.
3RD
2
STETTERS
SALLY
191 HARRISON ST.
PAWTUCKET R.I.
UNKNOWN
724-0279
L.P.N.
3RD
1
GRANT
BERTHA
53 WM.ELLEY PLACE
PROVIDENCE R.I.
UNKNOWN
274-9128
AIDE
3RD
11
HOLT
ANN
68 PITMAN ST.
PROVIDENCE R.I.
UNKNOWN
751-8131
AIDE
3RD
28
VINCENT
CINDY
WEST AVE.
PAWTUCKET R.I.
UNKNOWN
274-6758
AIDE
3RD
3
MARCOUX
M.
61 COLE STREET
PAWTUCKET R.I.
UNKNOWN
728-2342
AIDE
3RD
2
CHAFFEE
DARLENE
40 AMSTERDAM ST.
PROVIDENCE R.I.
02909
421-0109
AIDE
3RD
3
MITCHELL
DARLENE
363 PROSPECT ST.
PAWTUCKET R.I.
02860
724-6806
AIDE
3RD
1
CUSTODIO
VIRGINIA
26 MURIL AVE.
N. PROVIDENCE R.I.
UNKNOWN
231-3953
AIDE
3RD
21
BARNES
ANNA
169 WHITMARSH ST.
PROVIDENCE R.I.
UNKNOWN
461-1183
AIDE
3RD
8
JOHNSON
PRISCILLA
49 POWHATAN ST.
PROVIDENCE R.I.
UNKNOWN
NONE
AIDE
3RD
21
BURNHAM
A.
35 CHURCH ST.
PROVIDENCE R.I.
UNKNOWN
438-8177
AIDE
3RD
21
SARGENT
FRED
41 EIGHTH ST.
PROVIDENCE R.I.
UNKNOWN
272-1825
ORDERLY
3RD
4
FINIZIA
ANN
17 KNOWLTON ST.
RIVERSIDE R.I.
UNKNOWN
433-0097
R.N.
4TH
16

Text found in 033_JHA_Nurses.dsk/SORT.bas:

100 D$ = CHR$(4): PRINT D$;"NOMONI,O,C"
102 DIM W$(80,9),N$(80,9),S$(80,9)
110 HOME : VTAB 12: HTAB 9: FLASH : PRINT " SORTING PERSONAL FILE ": NORMAL : GOSUB 220
120 REM SORT BY FLOORS
122 CC = 1:XX = 0:KX = 0:SS = 0
124 FOR NN = 1 TO R: IF LEFT$(N$(NN,8),1) = "2" THEN GOSUB 148
126 NEXT NN: GOSUB 152
128 CC = XX +1: FOR NN = 1 TO R: IF LEFT$(N$(NN,8),1) = "3" THEN GOSUB 148
130 NEXT NN: GOSUB 152
132 CC = XX +1: FOR NN = 1 TO R: IF LEFT$(N$(NN,8),1) = "4" THEN GOSUB 148
134 NEXT NN: GOSUB 152: PRINT N$(NN,1): FOR I = 1 TO 1000: NEXT I
136 CC = XX +1: FOR NN = 1 TO R: IF LEFT$(N$(NN,8),1) = "5" THEN GOSUB 148
138 NEXT NN: GOSUB 152
140 CC = XX +1: FOR NN = 1 TO R: IF LEFT$(N$(NN,8),1) = "A" THEN GOSUB 148
142 NEXT NN: GOSUB 152
144 FOR BX = 1 TO XX: FOR NX = 1 TO 9:N$(BX,NX) = W$(BX,NX): NEXT NX,BX
146 GOSUB 200: PRINT D$;"RUN HELLO"
148 XX = XX +1: FOR NX = 1 TO 9
150 W$(XX,NX) = N$(NN,NX): NEXT NX: RETURN
152 REM SORT RANKS
154 FOR BK = CC TO XX: IF LEFT$(W$(BK,7),1) = "R" THEN GOSUB 170
156 NEXT BK: VTAB 21: HTAB 30: PRINT CC;" ";XX
158 FOR BK = CC TO XX: IF LEFT$(W$(BK,7),1) = "L" THEN GOSUB 170
160 NEXT BK
162 FOR BK = CC TO XX: IF LEFT$(W$(BK,7),1) = "A" THEN GOSUB 170
164 NEXT BK
166 FOR BK = CC TO XX: IF LEFT$(W$(BK,7),1) = "O" THEN GOSUB 170
168 NEXT BK: FOR SS = CC TO XX: FOR MM = 1 TO 8:W$(SS,MM) = S$(SS,MM): NEXT MM,SS: RETURN
170 KX = KX +1: FOR MM = 1 TO 9:S$(KX,MM) = W$(BK,MM): NEXT MM: RETURN
200 PRINT D$;"OPEN PERSONAL,L800"
202 PRINT D$;"DELETE PERSONAL"
204 PRINT D$;"OPEN PERSONAL,L800"
206 PRINT D$;"WRITE PERSONAL"
208 PRINT R
210 FOR F = 1 TO R: FOR X = 1 TO 9
212 PRINT N$(F,X)
214 NEXT X,F
216 PRINT D$;"CLOSE PERSONAL"
218 RETURN
220 PRINT D$;"OPEN PERSONAL,L800"
222 PRINT D$;"READ PERSONAL"
224 INPUT R
226 FOR F = 1 TO R: FOR X = 1 TO 9
228 INPUT N$(F,X)
230 NEXT X,F
232 PRINT D$;"CLOSE PERSONAL"
234 RETURN

Text found in 033_JHA_Nurses.dsk/TELEPHONE LIST.bas:

100 HOME : VTAB 12: HTAB 13: INVERSE : PRINT " TELEPHONE LIST ": NORMAL
102 DIM N$(80,9)
104 D$ = CHR$(4): PRINT D$;"NOMONI,C,O": GOSUB 5000
106 HOME : VTAB 5: HTAB 10: PRINT "TELEPHONE LIST MENU": GOSUB 500: PRINT : PRINT
108 HTAB 8: PRINT "1 - ENTIRE LIST": HTAB 8: PRINT "2 - SELECT ONE NUMBER": HTAB 8: PRINT "3 - CHANGE A NUMBER": HTAB 8: PRINT "4 - RETURN TO HEADING"
110 VTAB 16: PRINT " SELECT BY NUMBER: ";: GET ANS$: IF ANS$ < >"1" THEN IF ANS$ < >"2" THEN IF ANS$ < >"3" THEN IF ANS$ < >"4" THEN 110
112 A = VAL(ANS$): ON A GOTO 170,260,270,600
170 HOME : VTAB 5: HTAB 10: PRINT "ENTIRE TELEPHONE LIST": GOSUB 500: PRINT : PRINT
172 HTAB 4: PRINT "1 - PRINT NUMBERS ON THE SCREEN": HTAB 4: PRINT "2 - PRINT NUMBERS ON THE PRINTER"
174 VTAB 16: PRINT " SELECT BY NUMBER: ";: GET ANS$: IF ANS$ < >"1" THEN IF ANS$ < >"2" THEN 174
176 A = VAL(ANS$): ON A GOTO 200,250
200 HOME : HTAB 16: PRINT "LISTING": GOSUB 500:C = 1: PRINT
202 GOSUB 400: GOTO 106
250 HOME : VTAB 12: HTAB 13: FLASH : PRINT "PRINTING LIST": NORMAL
252 PRINT : PR# 1: GOSUB 400: PR# 0: GOTO 106
260 HOME : VTAB 2: HTAB 8: PRINT "TELEPHONE NUMBER SELECT": GOSUB 500: PRINT : PRINT
262 GOSUB 350: GOSUB 504: IF ANS$ = "Y" THEN 106
264 PRINT : PRINT " TRY AGAIN!!": FOR X = 1 TO 3000: NEXT X: GOTO 106
270 HOME : VTAB 2: HTAB 8: PRINT "TELEPHONE NUMBER CHANGE": GOSUB 500: PRINT : PRINT : GOSUB 350
272 VTAB 14: HTAB 14: INPUT "CHANGE TO: ";N$(S,6): IF N$(S,6) = "" THEN N$(S,6) = N$(H,6): VTAB 14: HTAB 25: PRINT N$(S,6)
274 N$(H,6) = N$(S,6): GOSUB 504: IF ANS$ < >"Y" THEN 106
276 GOSUB 5020: GOTO 106
350 HTAB 3: PRINT "EMPLOYEE NAME: ";: INPUT "-> ";N$: PRINT : PRINT : HTAB 14: FLASH : PRINT "SEARCHING": NORMAL : FOR X = 1 TO 1500: NEXT X
352 FOR H = 1 TO R: IF N$ = N$(H,2) +" " +N$(H,1) THEN 356
354 NEXT : PRINT : PRINT " NO EMPLOYEE LISTED BY THAT NAME. PLEASE CHECK SPELLING.": FOR X = 1 TO 3000: NEXT X: GOTO 106
356 VTAB 12: PRINT N$(H,2) +" " +N$(H,1);: HTAB 25: PRINT N$(H,6)
358 RETURN
400 FOR H = C TO C +15: IF H >R THEN PRINT : PR# 0: GOSUB 502: RETURN
402 PRINT N$(H,2) +" " +N$(H,1);: HTAB 25: PRINT N$(H,6)
404 NEXT H: GOSUB 502
406 C = C +16: GOTO 202
500 FOR X = 1 TO 39: PRINT "-";: NEXT X: PRINT : RETURN
502 VTAB 21: HTAB 6: PRINT "PRESS ANY KEY TO CONTINUE: ";: GET ANS$: RETURN
504 VTAB 21: HTAB 10: PRINT "IS THIS CORRECT? ";: GET ANS$: RETURN
600 PRINT : PRINT D$;"RUN HELLO"
610 END
5000 PRINT D$;"OPEN PERSONAL,L800"
5002 PRINT D$;"READ PERSONAL"
5004 INPUT R
5006 FOR F = 1 TO R: FOR X = 1 TO 9
5008 INPUT N$(F,X)
5010 NEXT X,F
5012 PRINT D$;"CLOSE PERSONAL"
5014 RETURN
5020 PRINT D$;"OPEN PERSONAL,L800"
5022 PRINT D$;"DELETE PERSONAL"
5024 PRINT D$;"OPEN PERSONAL,L800"
5026 PRINT D$;"WRITE PERSONAL"
5028 PRINT R
5030 FOR F = 1 TO R: FOR X = 1 TO 9
5032 PRINT N$(F,X)
5034 NEXT X,F
5036 PRINT D$;"CLOSE PERSONAL"
5038 RETURN