' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 7777777 7777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`# '# DECOMPRESS SPEC-CIRCUM V# A((RD$,127,1))28:X3338:RD$(X)"0":# A31A(A32(A32))32:RD$(33)"1"#& A15A(A16(A16))16:RD$(34)"1"#0 A7A(A8(A8))8:RD$(35)"1"#: A3A(A4(A4))4:RD$(36)"1"$D A1" A$(RD$,125,1):3330@" RD$(29)A1$:RD$(28)A2$:RD$(27)A3$Z" A$(RD$,126,1):3330" RD$(32)A1$:RD$(31)A2$:RD$(30)A3$" X2732" RD$(X)"0"RD$(X)"N"" RD$(X)"1"RD$(X)"I"" RD$(X)"2"RD$(X)"M"" RD$(X)"3"RD$(X)"C"# )! RD$(8)((((A$)28)2)).! RD$(9)"F"Q!" (A$)2((A$)2)RD$(9)"M"W!, v!6 DECOMPRESS SHOT DATES !@ Y11!J X891172:YY1!T A$(RD$,X,2)!^ 3300!h A$"0000"A$""!r RD$(Y)A$!| ! ! DECOMPRESS EXEMPTION ESS ZIP  A$(RD$,62,2)& 3300@ RD$(5)A$(RD$,64,1)F _ DECOMPRESS BDAY r A$(RD$,85,2)| 3300 RD$(7)A$("00"(((RD$,87,1))28),2) RD$(7)"000000"RD$(7)"" DECOMPRESS GRADE & SEX ! A$(RD$,88,190 UNPACK RECORD # 2700- 27507 2810A( 2870K2 2960U< 3080_A 3210uF RD$(0)(RD$,1,3)P RD$(1)(RD$,4,20)Z RD$(2)(RD$,24,23)d RD$(3)(RD$,47,13)n RD$(4)(RD$,60,2)x RD$(6)(RD$,65,20) DECOMPR 8 4220B 'L RELEASE RECORD 3V FRFR1A` RD$(FM)Kj 4080Tt FMP^~ 4220d t SEARCH ~ 2220 4130 P1NIL PNILF0: 4180:N$(RD$,4,20) N$NA$F0: N$NA$F1: P1P:P((RD$,3)) 2445101930 HASH \HV%((GDSG)676(((NA$,1))65)26((NA$,2,1))65)HCjHV%HV%3p CREATE RECORD FRFR1ERR0FMNIL2340PFM:4180 FM(RD$) 4220 $ FTNRERR1:. PFT:FTFT1"ARE YOU SURE YOU WANT TO DELETE":FI$"1_1/$$11000":FT$"THIS STUDENT? 6":8005:FE$"N"2210n4A$(RD$,3)v>TPHP1NILP(A$):4030:2170RPP1\4180fRD$A$(RD$,4)p4080zPT:238010:1:CS" "NA$" DELETED."3) 02260:ERRı+DP1NILİ4030:>NTP:PP1:4180^XRD$(" "(T),3)(RD$,4)hb4080plPTvv 3. DELETE RECORDS :12:"DELETE A STUDENT"CO$(4)"":8100:(NA$,2)"Q "ı F0EM2:4560:1920^$10:1:E%11720FC(36099):I :E%0:((FE$,2))12((FE$,2))0E%1V ME%ı X1((FE$,2)):B%::((FE$,3,2))B%E%1 (FE$,3,2)"00"E%131,29,31,30,31,30,31,31,30,31,30,31 ADD ERR0&RD$(0)(" "(P), #11 01":FT$"73/33"136096:(36099)21715BFE$""1715[M0:1802:E%11640mFC(36099): MEASLES SHOT DATE ENTER SN26:14:FI$"1_0 #11 010103":FT$"73/83/33":36096(36099)21800FE$""1800 M1:1802:)":"nFI$"1_0 #11 11":FT$"6":FX$"YN":FE$RD$(X32):(SQ23):26:4470:RD$(X32)FE$"":FC2ĺC$:1550FE$""ĺG$:1550"SQSQ1,6SQ11620@8000:FE$"N"1500Th SHOT DATE ENTER ROUTINE rSN26:H|FI$"1_0FX$"NIMC":FE$RD$(32):4470:RD$(32)FE$"":FC21420N8000:FE$"N"1300m SPECIAL CIRCUMSTANCES }SQ1:X16SC$(X)""1580SQ1Ģ3:1:"ENTER SPECIAL CIRCUMSTANCES:":CS(SQ23):1:SQ". "(SC$(X)"....................",20::耲 ERROR ROUTINE -40192:216,0Q(222)16ĉ::"DISK ERROR.":::12:"ERROR NUMBER "(222)" IN "(218)(219)256"."::"PLEASE REPORT THIS TO MECC.":S TO QUESTIONS"::7:"ON THE SCHOOL IMMUNIZATION"::9:"LAW, CALL OR WRITE TO:"*N10:5:"MINNESOTA DEPARTMENT OF HEALTH"::11:"IMMUNIZATION UNIT"::8:"717 DELAWARE STREET S.W."::9:"MINNEAPOLIS, MN 55440"4N::13:"(612) 296-5237">N9000[3N$"ZIP CODE":FI$"1_0 #10 00":FT$"33333":FE$CO$(3):7000:CO$(3)FE$"":FC260403N$"GRADE":FI$"1_0 #10 00":FT$"33":FE$CO$(4):7000:CO$(4)FE$"":FC260503CO$(4)""60703(CO$(4))SG(CO$(4))EG6060F4:8:"CITY....: "COFI$"1_11$$11000":FT$"TO BE ENTERED AT THIS TIME? 6":8005:FE$"N"ı2N$"CITY":FI$"1_0 #11 11":FT$"4444444444444":FX$" .":FE$CO$(1):7000:CO$(1)FE$"":FC260303N$"STATE":FI$"1_0 #10 11":FT$"22":FE$CO$(2):7000:CO$(2)FE$"":FC2603G)676675)NH1600011::11:"PLEASE REMOVE YOUR ";::DR$(Z);::" DISKETTE,"::"AND INSERT YOUR ";::DR$(Z);::" DISKETTE."14510:1p::10:"DO YOU WISH TO ENTER A SINGLE GRADE,"::"CITY, STATE, OR ZIP FOR ALL STUDENTS "F2zS 0D$"OPEN HEADS,L4",D2$;0D$"OPEN MASTER,L128"D2$U0D$"READHEADS,R0":FMo0D$"READHEADS,R1":FT0D$"READHEADS,R2":FR0D$"OPEN SYS.INFO"D2$0D$"READ SYS.INFO"0<SG,EG0ZX16:SC$(X):0xD$"CLOSE SYS.INFO"1HC((EGSFILE SIZE LIMIT.";/K/ "STUDENT OF THAT NAME AND GRADE NOT FOUND";:z/*"THAT STUDENT AND GRADE ALREADY EXIST";:/4 DOS ERR MESSAGES /> USE ONERR GOSUB /H23:1:"DOS ERR #"ERR/R4510/\23:1:CL/f4:0 READ DATA FILE03."PRESS ";::"SPACE BAR";::" TO CONTINUE";b.Z01:ZC(16384):Z(ZC141)(ZC160):Z.16368,0:1:CL:23::. PROGRAM ERROR MESSAGES .23:1.EM4620,4640,4650.4510.23:1:CL.4:/ "YOU HAVE EXCEEDED THE AM ERROR":-2450:NA$"",-PNIL44202-&D-0P((RD$,3))U-:PNIL4450u-DHV%HV%1:HV%NH2ERR1:-N4130-X4410-b4180-l-v INPUT ROUTINE -36096-FC(36099)-- SPACE BAR ROUTINE .24:7:16368,$"READ MASTER,R"P ,^35600,RD$(,hD$.,rL,| UPDATE HEAD POINTERS d,D$"WRITE HEADS,R0"l,FM,D$"WRITE HEADS,R1",FT,D$"WRITE HEADS,R2",FR,D$,, TRAVERSE ,ERR0,NA$""4400 -GDSGGDEGĺ"PROGR$A$ ++)+ UPDATE HEAD HV% C+D$"WRITE HEADS,R"HV%J+PR+D$X+o+ UPDATE MASTER +D$"WRITE MASTER,R"P+RD$+D$++ READ HEAD HV% +"D$"READ HEADS,R"HV%+,P+6D$+@+J READ MASTER ,TD** NUMERIC 4 TO 2 I*(A$(((A$,1,2))28)(((A$,3,2))28)O*2Y*; c*<Z$A$m*F3870*PA$A$(((Z$,5,2))28)*Z*d COMPRESS MEASLES *nCM$""*xX1011*RD$(X)""RD$(X)"000000"*A$RD$(X):3900+CM$CMD$(28))4(RD$(27))28)P)CE$CE$((RD$(32))16(RD$(31))4(RD$(30))28)V)t) COMPRESS SPEC-CIRCUM )X3338)RD$(X)((RD$(X)"Y")))) CC$((RD$(33))32(RD$(34))16(RD$(35))8(RD$(36))4(RD$(37))2(RD$(38))28)(LA$RD$(X):A$""A$"0000"'(V38706(`CD$CD$A$<(jB(t^(~ COMPRESS EXEMPTION i(CE$""(X2732:RD$(X)"N"RD$(X)"0"(RD$(X)"I"RD$(X)"1"(RD$(X)"M"RD$(X)"2"(RD$(X)"C"RD$(X)"3"()CE$((RD$(29))16(R$RD$(5)' 3870+' CZ$A$(RD$(5),5,1)1' H' COMPRESS BDAY V' A$RD$(7)`' 3900k' CB$A$q' ' COMPRESS GRADE & SEX 'A0:RD$(9)"M"A1'CG$((RD$(8))2A28)'$'. COMPRESS SHOT DATES '8CD$""'BX1226 A3B(A4(A4))4:A2$((AB)4):AB6&* A3$(A)<&4 J&> PACK T&H 3490^&R 3540h&\ 3590r&f 3630|&p 3940&z 3710& 3800& RD$RD$(0)RD$(1)RD$(2)RD$(3)RD$(4)CZ$RD$(6)CB$CG$CD$CM$CE$CC$& & COMPRESS ZIP ' A8),2)$% RD$(Y)"000000"RD$(Y)""*% 0% H% NUMERIC 2 TO 4 % A$("00"(((A$,1,1))28),2)("00"(((A$,2,1))28),2)% % BIN 1 TO 3 % A(A$)28:A1$"0":A2$A1$:A3$A1$% A15B(A16(A16))16:A1$((AB)16):AB)& A(A2(A2))2:RD$(37)"1"1$N A1RD$(38)"1">$X X3338Y$b RD$(X)"1"RD$(X)"Y"t$l RD$(X)"0"RD$(X)"N"z$v $ $ DECOMPRESS MEASLES $ Y9$ X1191243$ YY1:A$(RD$,X,2)$ 3300% RD$(Y)A$("00"(((RD$,X2,1))2OMPRESS SPEC-CIRCUM D>A((RD$,127,1))28:X3338:RD$(X)"0":n>A31A(A32(A32))32:RD$(33)"1">A15A(A16(A16))16:RD$(34)"1"&>A7A(A8(A8))8:RD$(35)"1"0>A3A(A4(A4))4:RD$(36)"1" :>A1A(A2(A2))2:R16120-=RD$(29)A1$:RD$(28)A2$:RD$(27)A3$H=A$(RD$,126,1):16120p=RD$(32)A1$:RD$(31)A2$:RD$(30)A3$}=X2732=RD$(X)"0"RD$(X)"N"=RD$(X)"1"RD$(X)"I"=RD$(X)"2"RD$(X)"M"=RD$(X)"3"RD$(X)"C"=== DEC$)28)2))=RD$(9)"F"<=(A$)2((A$)2)RD$(9)"M"B"=a,= DECOMPRESS SHOT DATES j6=Y11@=X891172:YY1J=A$(RD$,X,2)T=16090^=A$"0000"A$""h=RD$(Y)A$r=|== DECOMPRESS EXEMPTION =A$(RD$,125,1):62,2)<16090*64470:FC28110X6NA$FE$"":RD$(1)NA$m6(NA$,2)"Q "ı6(NA$,1)" "(NA$,1)","81006X36(NA$,X,1)","(NA$,X1,1)" "81606XX1:X218100681457FI$"1_1)$$10022":FT$"G5@FI$"1_1:$$11000":FT$"IS THE ABOVE INFORMATION CORRECT? 6"t5EFX$"YN":FE$"":36844,14:36096:(36099)280055J23:1:CL:36844,98:5 GET KEY & SEARCH 5NA$"":GD054:20:"(LAST,FIRST)"6FI$"1_1&$$11 11":FT$"STUDENT NAME : 2$(1)::"STATE...: "CO$(2)::"ZIP CODE: "CO$(3)::"GRADE...: "CO$(4)^48000:FE$"N"6030d4W4X DEFAULT INPUT ROUTINE 4b:10:"ENTER "N$", PRESS RETURN IF NONE."4l12:3:N$": ";4v360964FC(36099)44? INFO CORRECT? >D (OTHER) &J: DO NOTHING FOR NOW8 IMMUNITY K:PRİ63000:k"IMMUNITY EXEMPTIONS:"::11090:ERRĺD$"PR#0":10150ZF0:ST$"IMMUNITY"X2932RD$(X)"I"ZFİ1840RD$(X)"I"ZFİ1830ZFĺ  10150*RD$(20)""X20:Y28:302041460cA$"POLIO - LAST DOSE BEFORE AGE 4.":3250u11090:ERRı10150X22181RD$(X)""Ă:1510(((DA$,2))((RD$(7),2))4)Y28:3020:X18:1510" @ UNIDENTIFIE3020:X12:1270$x POLIO v:16:"POLIO"::::"1. *LESS THAN 3 DOSES"::"2. *LAST DOSE BEFORE AGE 4"UC3:9100:A$"3"ıPRİ63000ST$"POLIO "A$:(A$)1450,1500A$"POLIO - LESS THAN 3 DOSES.":325011090:ERRıD"F9$,lZF$,ZN),vZL1ZN:ZC$(ZL):;,D$"CLOSE"F9$S,ZL1ZN:ZC$(ZL):h,SAMEZ0:20000n,D950)63100,63200,63300)+| COMM CARD ;+775:769,132A+Z+ DEFAULTS/SEARCH m+D$"PR#"(952)+(951)3(951)4ĺ(9)"132N"++D COMMANDS ON FILE +NF9$"PRINTER COMMANDS"+SSAMEZ1:20000+XD$"OPEN"F9$D1$,bD$"REAER8ĺ"I/O ERROR"::"PLEASE CHECK TO SEE IF":"1. A DISK DRIVE DOOR IS OPEN.":"2. A DISK DRIVE IS EMPTY.":17300:*"ERROR NUMBER "ER" IN LINE "LN:ER15ĺ:"PLEASE REPORT THIS ERROR TO MECC."*17300:* DIVERT OUTPUT TO PRINTER +"(M THE DATA FILE DISKETTE.":17300:)uER5ĺ"END OF DATA"::"THE DATA FILES ON THE DATA FILE DISKETTE":"MAY BE DAMAGED.":17300:)zER6ĺ"FILE NOT FOUND"::"PLEASE CHECK TO SEE IF THE TWO DISKETTES":"HAVE ACCIDENTLY BEEN REVERSED.":17300:w*YOUR ";::DR$(Z);::" DISKETTE."0(*N17300:J(H ERROR PROCESSING m(RER(222):LN(218)(219)256(\ER255Ĺ216,0:(fD$"PR#0":D$"CLOSE"::10:"PROBLEM: ";#)pER4ĺ"WRITE PROTECTED"::"PLEASE REMOVE THE WRITE-PROTECT STICKER":"FROEADS,R1":FT&'zDD$"READHEADS,R2":FR@'DD$"OPEN SYS.INFO"D2$W'DD$"READ SYS.INFO"b'DSG,EGw'DX16:SC$(X):'DD$"CLOSE SYS.INFO"'DHC((EGSG)676675)NH'D#( N::11:"PLEASE REMOVE YOUR ";::DR$(Z);::" DISKETTE,"::"AND INSERT E ALREADY EXIST";:-&*D DOS ERR MESSAGES F&4D USE ONERR GOSUB a&>D23:1:"DOS ERR #"ERRl&HD17300{&RD23:1:CL&WD4:&\D FILE INITIALIZATION &aDD$"OPEN HEADS,L4"D2$&bDD$"OPEN MASTER,L128"D2$&fDD$"READHEADS,R0":FM 'pDD$"READH368,0:1:CL:23::4%C PROGRAM ERROR MESSAGES ?%C23:1Y%CEM17410,17430,17440d%C17300s%C23:1:CL|%C4:%D"YOU HAVE EXCEEDED THE FILE SIZE LIMIT.";% D%D"STUDENT OF THAT NAME AND GRADE NOT FOUND";:& D"THAT STUDENT AND GRADERR1:$DC16920$NC17200)$XC16970/$bCF$lC INPUT ROUTINE Q$vC36096a$CFC(36099)g$C$C SPACE BAR ROUTINE $C24:7:16368,0$C"PRESS ";::"SPACE BAR";::" TO CONTINUE";$CZ01:ZC(16384):Z(ZC141)(ZC160):%C16#@B READ MASTER ,#JBD$"READ MASTER,R"P;#TB35600,RD$C#^BD$I#hB[#B TRAVERSE e#BERR0w#BNA$""17190#BGDSGGDEGĺ"PROGRAM ERROR":#B15230:NA$""#CPNIL17210#C#&CP((RD$,3))#0CPNIL17240$:CHV%HV%1:HV%NH24))4:A2$((AB)4):AB%" ?A3$(A)+"*?D"A UPDATE HEAD HV% ^"AD$"WRITE HEADS,R"HV%e"APm"AD$s"A"A UPDATE MASTER "AD$"WRITE MASTER,R"P"ARD$"AD$"B"B READ HEAD HV% "BD$"READ HEADS,R"HV%""BP",BD$"6B"000000"RD$(Y)""!>!>7!> NUMERIC 2 TO 4 x!>A$("00"(((A$,1,1))28),2)("00"(((A$,2,1))28),2)~!>!> BIN 1 TO 3 !?A(A$)28:A1$"0":A2$A1$:A3$A1$! ?A15B(A16(A16))16:A1$((AB)16):AB"?A3B(A4(AD$(37)"1" D>A1RD$(38)"1", N>X3338G X>RD$(X)"1"RD$(X)"Y"b b>RD$(X)"0"RD$(X)"N"h l>n v> > DECOMPRESS MEASLES >Y9 >X1191243 >YY1:A$(RD$,X,2) >16090 >RD$(Y)A$("00"(((RD$,X2,1))28),2)!>RD$(Y)$(29)A1$:RD$(28)A2$:RD$(27)A3$<)^)A$(RD$,126,1):10930d)h)RD$(32)A1$:RD$(31)A2$:RD$(30)A3$q)r)X2732)|)RD$(X)"0"RD$(X)"N"))RD$(X)"1"RD$(X)"I"))RD$(X)"2"RD$(X)"M"))RD$(X)"3"RD$(X)"C")))) *) DECOMPRESS SPEC((RD$(9)"F"0(((A$)2((A$)2)RD$(9)"M"6((U(( DECOMPRESS SHOT DATES ^((Y11t((X891172:YY1()A$(RD$,X,2)()10900()A$"0000"A$""(")RD$(Y)A$(,)(6)(@) DECOMPRESS EXEMPTION (J)A$(RD$,125,1):10930!)T)RD0900'Z(RD$(5)A$(RD$,64,1)$'d(='n( DECOMPRESS BDAY P'x(A$(RD$,85,2)['(10900'(RD$(7)A$("00"(((RD$,87,1))28),2)'(RD$(7)"000000"RD$(7)""'('( DECOMPRESS GRADE & SEX '(A$(RD$,88,1)'(RD$(8)((((A$)28)2)) 10350&'10410&'10470&&'105601&'10680<&'10810R&'RD$(0)(RD$,1,3)i&(RD$(1)(RD$,4,20)& (RD$(2)(RD$,24,23)&(RD$(3)(RD$,47,13)&(RD$(4)(RD$,60,2)&((RD$(6)(RD$,65,20)&2(&<( DECOMPRESS ZIP &F(A$(RD$,62,2)'P(15)26((NA$,2,1))65)HC(%$'HV%HV%3.%.'>%8' SEARCH I%B'10000T%L'10990_%V'P1NILt%`'PNILF0:D$:%j'11040:N$(RD$,4,20)%~'N$NA$F0:D$:%'N$NA$F1:%'P1P:P((RD$,3))%'10080%' UNPACK RECORD %'10300&'29000$7#36844,98:,$# WHICH NUMBER X$#:UC". RETURN TO SEARCH RECORDS MENU"$#FT$"WHICH NUMBER? 7":FI$"1_10$$100001"(UC):36844,14:FE$"":36096:(36099)29105$#36844,98:A$FE$"":$' HASH %'HV%((GDSG)676(((NA$,1))6ACE BAR ROUTINE &#24:7:16368,0X#"PRESS ";::"SPACE BAR";::" TO CONTINUE";#Z01:ZC(16384):Z(ZC141)(ZC160):#16368,0:1:868:23::#'# Y/N PROMPT $(#FI$"1_1"V$"$$11000":FX$"YN":36844,14:FE$"":36096:(36099)ME%ı9"|X1((FE$,2)):B%::((FE$,3,2))B%E%1S"(FE$,3,2)"00"E%1Y"" 31,29,31,30,31,30,31,31,30,31,30,31"::10:"PLEASE REMOVE YOUR ";::DR$(Z);::" DISKETTE,"::"AND INSERT YOUR ";::DR$(Z);::" DISKETTE."# SP16:SC$(X):%!D$"CLOSE SYS.INFO"?!D$"OPEN HEADS,L4"D2$Y!D$"READHEADS,R0":FMs!D$"READHEADS,R1":FT!D$"READHEADS,R2":FR!"D$"OPEN MASTER,L128"D2$!,HC((EGSG)676675)NH!6!h:E%0:((FE$,2))12((FE$,2))0E%1"r_0 )10 000103":FT$"73/83/33":FE$"":36096:(36099)24000o DA$(FE$,2)"/"(FE$,3,2)"/"(FE$,5,2)"" M1:4200:E%4000 V$"4":FT$"IS THIS CORRECT? 6":9000:FE$"N"4000 :D$"OPEN SYS.INFO"D2$ D$"READ SYS.INFO":SG,EG !X180 A$(RD$(Q),1,X1), XX1:YX:T1T (RD$(Q),X,1)" "X(RD$(Q))3240j XX1:TT1:3220 T$(RD$(Q),Y,T):RD$(Q)T$A$: PRINT SEARCH HEADER  ::A$65(A$))"DATE: "DA$::::= ::12:"ENTER TODAY'S DATE: ";:FI$"0 : MAILING LABEL % 3150I& RD$(6):"THE PARENT OF "RD$(1)U0 RD$(2)x: RD$(3);:16:RD$(4)" "RD$(5)D :N REVERSE PARENT AND STUDENT NAME X Q1:3170:Q6:3170:b X1l (RD$(Q),X,1)","X(RD$(Q))3200v XX1:3ı :RD$(1):"GRADE: "RD$(8):ST$:"BIRTHDATE: "(RD$(7),2)"/"(RD$(7),3,2)"/"(RD$(7),2):"DATE IMMUNIZED: ";:A$RD$(X) A$""ĺ"*** NOT IMMUNIZED":3060 (A$,2)"/"(A$,3,2)"/"(A$,2) ::LMİ3090 (PR)((36)20)İ4310ZFİ1840"RD$(X)"C"ZFİ1830(2ZFĺ<2130MLMZFİ3090W2130 ZB(30.44((RD$(X),2))((RD$(X),3,2))365.25((RD$(X),2))): ZC(30.44((RD$(X),2))365.25((RD$(X),2))): DISPLAY STUDENT  RD$(Y)"N"1840RD$(X)"M"ZFİ1830$.ZFĺ?LMZFİ3090I1930Of4 CONSCIENTIOUS y>:PRİ63000:H"CONSCIENTIOUS EXEMPTIONS:"::R11090:ERRĺD$"PR#0":\10150fZF0:ST$"CONSCIENTIOUS"pX2732zRD$(X)"C"LMZFİ309017304&ZF1:RD$(1);:22:RD$(8);W0A$EX$(X26):26:A$;:35:ST$]:nl MEDICAL v:PRİ63000:"MEDICAL EXEMPTIONS:"::11090:ERRĺD$"PR#0":10150ZF0:ST$"MEDICAL"X2732RD$(X)"M"ZFİMENT OF THE IMMUNIZATION LAW.":9015:27)"C E R T I F I C A T I O N":9015:" :"72)":"r" :"14)"I HEREBY CERTIFY THAT THE ABOVE INFORMATION"15)":":" :"9)"IS COMPLETE AND ACCURATE TO THE BEST OF MY KNOWLEDGE."10)":":" :"72)":":" :"7NCE WITH THE LAW":" OR HAVE TRANSFERRED TO THE SCHOOL WITHIN THE LAST 30 DAYS."^:" PLEASE INDICATE ON BACK IF NONCOMPLIANT STUDENTS ARE NEW TRANSFER":" STUDENTS, OR THE REASON FOR NONCOMPLIANCE, AND THE SCHOOL PLAN FOR"Zh" ENFORCE-------------:-------:---------------:-------:---------------:-------:"J" : "M$(4)" : "M$(9)" : "M$(5)" : "M$(10)" : "M$(6)" : "M$(11)" :":9015TT:" * THIS CATEGORY INCLUDES STUDENTS WHO ARE NOT IN COMPLIA"8)"RUBELLA"8)":"6" :------------------------:-----------------------:-----------------------:":" : UNIMMUNIZED :"7)":"15)":"7)":"15)":"7)":"G@" :OR < 11.5 MOS * : EXEMPT: UNIMMUNIZED * : EXEMPT: UNIMMUNIZED * : EXEMPT:":" :--------:---------:---------:---------:---------:---------:""" : "EN$" : "M$(0)" : "M$(1)" : "M$(7)" : "M$(2)" : "M$(3)" : "M$(8)" :":9015,:9015:" :"24)":"23)":"23)":":" :"8)"MEASLES"9)":"9)"MUMPS"9)":" : ENROLLMENT :DIPHTHERIA/TETANUS/PERTUSSIS :"12)"POLIO"12)":":" : :-----------------------------:-----------------------------:"9" :"12)": NONE * : PARTIAL : EXEMPT : NONE * : PARTIAL : EXEMPT :":" :------------:---- IN REPORT: "SG" - "EG19(((SG))((EG))))" TELEPHONE: "TN$:" PERSON COMPLETING REPORT:"PN$" TITLE: "PT$::9015:9015:7)"S T U D E N T S N O T C O M P L E T E L Y I M M U N I Z E D":9015:::9015:" :"12)":"29)":"29)":" COMMANDS ON FILE 02NF9$"PRINTER COMMANDS"D2SSAMEZ1:4300X2XD$"OPEN"F9$D1$i2bD$"READ"F9$u2lZF$,ZN2vZL1ZN:ZC$(ZL):2D$"CLOSE"F9$2ZL1ZN:ZC$(ZL):2SAMEZ0:43002:ER15ĺ:"PLEASE REPORT THIS ERROR TO MECC.":1zN4310:\1 DIVERT OUTPUT TO PRINTER z1"(950)63100,63200,633001| COMM CARD 1775:769,13211 DEFAULTS/SEARCH 1D$"PR#"(952)1(951)3(951)4ĺ(9)"132N"12DFOUND"::"PLEASE CHECK TO SEE IF THE TWO DISKETTES":"HAVE ACCIDENTLY BEEN REVERSED.":4310:0fNER8ĺ"I/O ERROR"::"PLEASE CHECK TO SEE IF":"1. A DISK DRIVE DOOR IS OPEN.":"2. A DISK DRIVE IS EMPTY.":4310:.1pN"ERROR NUMBER ";ER;" IN LINE ";LN"::10:"PROBLEM: ";/HNER4ĺ"WRITE PROTECTED"::"PLEASE REMOVE THE WRITE-PROTECT STICKER":"FROM THE DATA FILE DISKETTE.":4310:/RNER5ĺ"END OF DATA"::"THE DATA FILES ON THE DATA FILE DISKETTE":"MAY BE DAMAGED.":4310:^0\NER6ĺ"FILE NOT .z+10040:NA$""#.+PNIL11190).+;.+P((RD$,3))M.+PNIL11220m.+HV%HV%1:HV%NH2ERR1:x.+10990.+11180.+11040.+. N ERROR PROCESSING .*NER(222):LN(218)(219)256.4NER255Ĺ216,0:/>ND$;"PR#0":D$;"CLOSE(AB)4):AB-*A3$(A)-*6-* READ HEAD HV% O-*D$"READ HEADS,R"HV%V-+P^- +D$d-+y- + READ MASTER -*+D$"READ MASTER,R"P-4+35600,RD$->+D$-H+-R+ TRAVERSE -\+ERR0-f+NA$""11170.p+GDSGGDEGĺ"PROGRAM ERROR":$(Y)"" ,*,*+,* NUMERIC 2 TO 4 l,*A$("00"(((A$,1,1))28),2)("00"(((A$,2,1))28),2)r,*,* BIN 1 TO 3 ,*A(A$)28:A1$"0":A2$A1$:A3$A1$,*A15B(A16(A16))16:A1$((AB)16):AB -*A3B(A4(A4))4:A2$(+)A1RD$(38)"1" +*X3338;+*RD$(X)"1"RD$(X)"Y"V+*RD$(X)"0"RD$(X)"N"\+&*b+0*~+:* DECOMPRESS MEASLES +D*Y9+N*X1191243+X*YY1:A$(RD$,X,2)+b*10900+l*RD$(Y)A$("00"(((RD$,X2,1))28),2),v*RD$(Y)"000000"RD-CIRCUM 8*)A((RD$,127,1))28:X3338:RD$(X)"0":b*)A31A(A32(A32))32:RD$(33)"1"*)A15A(A16(A16))16:RD$(34)"1"*)A7A(A8(A8))8:RD$(35)"1"*)A3A(A4(A4))4:RD$(36)"1"*)A1A(A2(A2))2:RD$(37)"1"(RD$(24)""RD$(31)"N")#-+11020W-+X04:Y4X14X3:M%(X7)M%(X7)E%(Y)::b-+SF1:-,ZB(30.44((RD$(X),2))((RD$(X),3,2))365.25((RD$(X),2))):..::11:"PLEASE REMOVE YOUR ";::DR$(Z);::" DISKETTE,"::"AND INSERT YOUR ";22:RD$(X)""11190+,+M%(3)M%(3)1:X221,+B,+ MEASLES {,+X7:11500:BDZB:X10:11500:S1ZB:X11:11500:S2ZB,+RD$(10)""(S1BD351S2BD351)11210,+M%(4)M%(4)(RD$(29)"N"),+M%(5)M%(5)(RD$(23)""RD$(30)"N")-+M%(6)M%(6)(RD$(X32)):+u+ DTP b+z+M%(0)M%(0)(RD$(12)""RD$(27)"N"):RD$(12)""RD$(27)"N"11160++X1317:RD$(X)""11150++M%(1)M%(1)1:X17++++ POLIO ++M%(2)M%(2)(RD$(18)""RD$(28)"N"):RD$(18)""RD$(28)"N"11200,+X18XX2 **+:4*/+"B",7,2,12,8,1,0,13,13,14,14,16,15?*4+X05d*>+RD$(X27)"N"E%(X4)E%(X4)1*H+RD$(X27)"C"E%(X41)E%(X41)1*R+RD$(X27)"M"E%(X42)E%(X42)1*\+RD$(X27)"I"E%(X43)E%(X43)1*f+ +p+X16:SC%(X)SC%(X)IT APPROX. "((60(950FR)5)601)" MINUTES."D)*X016:S%(X)0:Z)+X023:E%(X)0:p)+X16:SC%(X)0:)+X011:M%(X)0:) +52120:ERR11240)+50340)+)+A$:A$"B"11036* +Q16:X1,X2:XX1X21:RD$(X10)""S%(X)S%(X)1::((FE$,2))12((FE$,2))0E%10('ME%ıb('X1((FE$,2)):B%::((FE$,3,2))B%E%1|('(FE$,3,2)"00"E%1('((31,29,31,30,31,30,31,31,30,31,30,31 (* DATA SUMMARY SEARCH .)*::10:10:"SEARCHING RECORDS."::"PLEASE WA''D$"CLOSE HEADS")''D$"OPENHEADS,L4"''::FI$"0_1/$)10 000103":FT$"ENTER TODAY'S DATE: 73/83/33":FE$"":36096:(36099)210140''DA$(FE$,2)"/"(FE$,3,2)"/"(FE$,5,2)""''M1:10200:E%10140''55000:FE$"N"10140''#(':E%0EN SYS.INFO"D2$&&.'D$"READ SYS.INFO"B&8'SG,EG:X16:SC$(X):Z&B'D$"CLOSE SYS.INFO"w&L'D$"OPEN MASTER,L128"D2$&Q'D$"OPEN HEADS,L4"D2$&V'D$"READ HEADS,R0":FM&`'D$"READ HEADS,R1":FT&j'D$"READ HEADS,R2":FR&~'HC((EGSG)676675)NH50FRSC%(X)%Z:9010*%dX112X:::%nD$"PR#0":R%(#X145:"-";:::j%2#X133:"-";:::%7#" ";:X174:"-";:::%<#36096%F#FC(36099)%P#%' RE-LOAD THINGS NEEDED %'FE$"":NI1:NH536:NR950:SP$" "&$'D$"OP(20);:15:": "E%(21);:21:": "E%(22);:27:": "E%(23);:33:":":9010$<X14:::"SPECIAL CIRCUMSTANCES:"::9010:" SPECIAL CIRCUMSTANCE YES NO":9010$FX16:SC$(X)""X6:5210 %PX". "(SC$(X)"...................",20)": "SC%(X):31:921:": "E%(10);:27:": ";E%(11);:33:":":9010#"MUMPS";:9:": "E%(12);:15:": "E%(13);:21:": "E%(14);:27:": "E%(15);:33:":":9010#("RUBELLA : "E%(16);:15:": "E%(17);:21:": "E%(18);:27:": "E%(19);:33:":":9010G$2"OTHER : "E%ONS:"::9010:" SHOT"SP$"N"SP$"C"SP$"M"SP$"I":9010""DTP";:9:": "E%(0);:15:": "E%(1);:21:": "E%(2);:27:": :":9010" "POLIO";:9:": "E%(4);:15:": "E%(5);:21:": "E%(6);:27:": :":90101#"MEASLES : "E%(8);:15:": "E%(9);:K!"MUMPS";:9:": "S%(13);:15:": : : : : :":9000!"RUBELLA : "S%(14);:15:": : : : : :":9000!"OTHER";:9:": "S%(15);:15:": "S%(16);:21:": : : : :":90005"X14:::"EXEMPTI": "S%(5);:33:": "S%(6);:39:": "S%(7);:36,44:":":9000 "POLIO";:9:": "S%(8);:15:": "S%(9);:21:": "S%(10);:27:": "S%(11);:33:": "S%(12);:39:": :":9000!"MEASLES : "S%(0);:15:": "S%(1);:21:": : : : :":9000PORT SFİ11000!60000h"HEALTH IMMUNIZATION DATA SUMMARY FORM. DATE: ";DA$::::"SHOT DATE TOTALS:"::9000:" SHOT"SP$"1"SP$"2"SP$"3"SP$"4"SP$"5"SP$"6":9000< "DTP";:9:": "S%(2);:15:": "S%(3);:21:": "S%(4);:27:2)":"K|" : ";:X141:(95);::" ";:X120:(95);::" :"" :"8)"SIGNATURE - PRINCIPAL OF SCHOOL"18)"DATE"11)":":9015:::36)"PAGE 2":62)"FORM ED-01552-02A":X14:::D$"PR#0":150 DATA SUMMARY RES ON FILE &=NF9$"PRINTER COMMANDS";=SSAMEZ1:12000O=XD$"OPEN"F9$D1$`=bD$"READ"F9$l=lZF$,ZN=vZL1ZN:ZC$(ZL):=D$"CLOSE"F9$=ZL1ZN:ZC$(ZL):=SAMEZ0:12000="PLEASE REPORT THIS ERROR TO MECC."1<30000:S< DIVERT OUTPUT TO PRINTER q<"(950)63100,63200,63300<| COMM CARD <775:769,132<< DEFAULTS/SEARCH Ʋ DECOMPRESS EXEMPCOMPRESS ZIP !1DA$(RD$,62,2),1NŰ51090F1XRD$(5)A$(RD$,64,1)L1bűe1lŲ DECOMPRESS BDAY x1vA$(RD$,85,2)1Ű510901RD$(7)A$("00"(((RD$,87,1))28),2)1ŭRD$(7)"000000"RD$(7)""1ű1Ų DECOMPRESS GRADE & SEX 2A$(R0IJ UNPACK RECORD "0İ50490-0İ5054080İ50600C0İ50660N0İ50750Y0İ50870d0İ51000z0RD$(0)(RD$,1,3)0RD$(1)(RD$,4,20)0RD$(2)(RD$,24,23)0RD$(3)(RD$,47,13)0RD$(4)(RD$,60,2)0&RD$(6)(RD$,65,20)00ű1:Ų DE((NA$,2,1))65)HC#/dHV%HV%3)/nñNZ01:ZC(16384):Z(ZC141)(ZC160):ZHN16368,0:1:868:23::R RESORT TO BACKUP MESSAGE R:4R9:"GRADE ADVANCE ABORTED"$&R::" I:FTBD$"READHEADS,R2":FR8BD$"OPEN SYS.INFO"D2$OBD$"READ SYS.INFO"ZBSG,EGpBX16:SC$(X):XBD$"CLOSE SYS.INFO"B216,0BHC((EGSG)676675)NHB0CFIXERR:216,0:CER1:60000:FE$"Y"17000DCHALT1:2000 N )",V"(VO)6"IZB956:SL(ZB):DR(ZB1):VO(ZB2)m"XD2$",S"(SL)",D"(DR)",V"(VO):D1$D2$SA1s"bԍųңǍύҤԍՍҤԍͱҤԍҍҤԍҍҤԍҍҤԍЍҤԍŠōҤԍԠҠӍҤ  _X_lfW_{_>fwooq?ow) "LN:5000:3000RF#"PLEASE REMOVE THE WRITE PROTECT LABEL.":5000:CC$"N"2100\P#1550wpOROUTINE24:7:16368,0N"PRESS ";::"SPACE BAR";::" TO CONTINUE";}Z01:ZC(16384):Z(ZC141)(ZC160):Z16368,0:1:868:20::(#ERROR RECOVERY2#ER(222):LN(218)(219)256<#:12:ER4ĺ"ERROR NUMBER "ER" IN LINE5,JK5):X((X$))&X0X127X0BL$"":K1L$(S$,K1)^R$"":LJR$(S$,LJ)pS$L$(X)R$LKLJ:4090JK5:868:L(S$):K1LC$(S$,K,1):A(C$):A32AA64:(A);:"K,:SPACE BAR 20  A32AA64:1  (A);::S$S$C$:2520A ( 16368,0:V END THE PROGRAMn D$"CLOSE"F$:950,0 D$"RUN MENU" SCAN FOR CHR$ L(S$):L74140 K1L6:(S$,K,5)"CHR$("4090 JK6L:(S$,J,1)")"4080X$(S$,KY"2092" 4D$"WRITE"F$:FT$:NUM/ >Q$(34)M HJ1NUM:Q$;CM$(J);Q$:JW R3000i STRING INPUT} S$"":16368,0 C$:A(C$):A132600 L(S$) A34(A8L0)2520 A82580 C$" "C$;:L1S$"":2520 S$(S$,L1):258:2500 S$""ĺ:2090. 4000:CM$(I)S$9 I:I9 *NUMI1:NUM0FT$"DEFAULTS":12:"RESETTING PRINTER OPTIONS TO DEFAULTS (SLOT SEARCH).":2100 ,20:868:"ARE THE ABOVE COMMANDS CORRECT? ";OK$ .OK$(OK$,1):OK$"N"2020 0OK$"SP(SP$):SP10SP3015207 D$"WRITE"F$:FT$:SPA 3000X SPECIAL INTERFACEk FT$"USER-SET" :4:"ENTER THE COMMANDS NECESSARY" "TO TURN ON YOUR PRINTER." :"(TO END, JUST PRESS 'RETURN'.)" I19 I8:" "I". ";:86:I01:10:868:"ARE YOU USING A COMMUNICATIONS CARD? ";CC$:I(CC$):Im CC$(CC$,1):CC$"N"2000 CC$"Y"1030 GET SPEED FOR COMM CARD FT$"COM-CARD" 14:"DO YOU WANT TO USE 10 OR 30 CHARACTERS" :"PER SECOND?";SP$  & SET PRINTER OPTIONS PROGRAM 2.1CLAST UPDATE: 5/6/82 RPBV(C) MECC 1982ad9000snD$(13)(4)xTI$"SET PRINTER OPTIONS"::11:TI$:34,3F$"PRINTER COMMANDS"DETERMINE TYPE OF PRINTER FILE950,3:D$"OPEN"F$N      1:20:CS:16:"COPYING"%5600O EF1:EFĺD$"VERIFYN,D"D1",S"S1",V"V1} 216,0:I1267:703I,(16383I):I:704715,(110)1:716,(112)1:718,S116:720,D1:717,SL16:719,DR707:(713)24200(713)14500"SAMEİ61040"VOY20:CS:"ARE THESE CORRECT? ";:SKI,3,A$:A$(A$,1):A$"Y"A$""A$"N"4060hA$""100yA$"N"4700S1SLD1DRV1VOSAME0D$"BLOAD COPY,A$4000"SAMEİ61020:409020:CS:10:"INSERT YOUR DISKETTES":20500SL(956):DR(957):VO(958):S1(953):D1(954):V1(955)^:11:"COPY DATA DISKETTE"5:"ORIGINAL DISKETTE:":7:" SLOT: "S1:" DRIVE: "D1:" VOLUME: "V113:"DESTINATION DISKETTE:":15:" SLOT: "SL:" DRIVE: "DR:" VOLUME: $"OPEN HEADS,L4":D$"WRITE HEADS,R0":1C D$"WRITE HEADS,R1":0` D$"WRITE HEADS,R2":950o D$"CLOSE" D1$D2$Z1:50040 100 36096 FC(36099)  COPY DATA DISKETTE D$"BSAVE DRIVE OPTIONS,A953,L6"D1$FL0>DISKETTE":1< :D$"INIT H,D"DR",S"SL",V"VO:D$"DELETE H"o D$"OPEN SYS.INFO":D$"WRITE SYS.INFO":SG:EG X16:SC$(X): D$"CLOSE" A$"":D$"OPEN HEADS":D$"WRITE HEADS":X160:A$A$"-1 "(13):X X19:A$;:X( D$"CLOSE":DRTING GRADE IS "SG::"THE ENDING GRADE IS "EG::"SPECIAL CASE DESCRIPTIONS:"::X16:SC$(X)""3210{ X". "SC$(X):X 20:1:958:"IS THIS INFORMATION CORRECT? ";:SKI,3,A$:A$(A$,1):A$"N"3070 A$"Y"3210  :12:10:"INITIALIZING 4:"ENTER THE ENDING GRADE: ";:CL:SKI,2,A$:EG(A$):EGSGEG0EG20A$"00"A$"99"3100t: X16:SC$(X)"":D 1:7:"ENTER SPECIAL CASE DESCRIPTIONS:"N X16:X27:1:X". ";:SKI,20,A$:SC$(X)A$b SC$(X)""X6l Xgv ::"THE STAD."h 15:5:"ARE YOU SURE THIS IS WHAT YOU WANT"::CS:"TO DO? ";:SKI,3,A$:A$(A$,1):A$"N"ī100z A$"Y"3050 D1$D2$Z0:50040  2:1:"ENTER THE STARTING GRADE: ";:CL:SKI,2,A$:SG(A$):SG0SG20A$"0"A$"99"3080] 1: INITIALIZE DATA DISKETTE B :8:"INITIALIZE DATA DISKETTE"d SL(956):DR(957):VO(958) 5:"THIS OPTION PREPARES THE DATA DISKETTE"::"FOR ENTERING STUDENT INFORMATION. ANY"::"INFORMATION ALREADY ON THE DISKETTE" :"WILL BE ERASEVO(955)Ģ21:CS:"THIS DISKETTE REQUIRES TWO DRIVES.":"PLEASE RE-ENTER YOUR OPTIONS.":20500:2030 W21:CS:"ARE THESE ENTRIES CORRECT (Y OR N)? ";:SKI,3,A$:A$(A$,1):A$"Y"A$"N"ĺ:2135 \A$"Y"Ĺ956,SL:957,DR:958,VO:100 f2010 TA DISKETTE:"::" SLOT: "(956):" DRIVE: "(957):" VOLUME: "(958)[ 20500:100y  SET DRIVE PARAMETERS SL(956):DR(957):VO(958) :10:"SET DRIVE PARAMETERS" 6:"DATA DISKETTE:" 10000e SSD0SL(953)DR(954)E OPTIONS,A953,L6,S"(953)",D"(954)",V"(955):D$"RUN HELLO"L d62000:55s  VIEW CURRENT DRIVE PARAMETERS :5:"VIEW CURRENT DRIVE PARAMETERS":5:"PROGRAM DISKETTE:"::" SLOT: "(953):" DRIVE: "(954):" VOLUME: "(955)K 13:"DA"p F1:18:CL:" WHICH NUMBER? ";:SKI,1,A$:(A$)1(A$)5Ģ21:" PLEASE ENTER A NUMBER FROM 1 TO 6":70 PJP(A$):JP1000,2000,3000,4000 U88 V"VERIFY COMM CARD ROUTINE,D1":90 X61020= Z:12:"RETURNING TO MENU.":D$"BSAVE DRIV4):CL868:CS9585 3DR$(0)"PROGRAM":DR$(1)"DATA"{ 7::10:"DISKETTE MAINTENANCE":5:6:"1. VIEW DRIVE SETTINGS  <:6:"2. CHANGE DRIVE SETTINGS"::6:"3. INITIALIZE DATA DISKETTE"::6:"4. COPY DATA DISKETTE"::6:"5. RETURN TO MAIN MENUt$ PROGRAM: DISKETTE MAINTENANCEJUPDATE: 01/28/83 MICHAEL BOUCHERcCOPYRIGHT 1982 MECC MODIFIED FROM SET DRIVE OPTIONS-SD=SINGLE DRIVE OPTION ./SD1:1:FE$""062000:DL11P(I)(I)(I1)256 2D$(4)(13)(              ,R2" >FR>D$!>216,0:4H?FIXERR:216,0SR?ER2:60000:FE$"Y"16000k\?21000:HALT1:2000hB READ SYSTEM STATUS mB17200oBrBD$"OPEN HEADS,L4"D2$|BD$"OPEN MASTER,L128"D2$BD$"READHEADS,R0":FMBD$"READHEADS,R1"00,RD$L;D$V;216,0:$X;ER57`;FIXERR:216,0Xj;60000:FE$"N"HALT1:2000|t;ER0,0,15100,15000,15150,15050~;> UPDATE HEAD POINTERS >16200>D$"WRITE HEADS,R0">FM>D$"WRITE HEADS,R1">FT>D$"WRITE HEADSR :15092(:D$"WRITE MASTER,R"P1:RD$9:D$F:216,0:V:ER6:15200m: READ HEAD HV% y;15142;D$"READ HEADS,R"HV%;P;D$$;216,0:&;ER3:15200.; READ MASTER 3;151928;D$"READ MASTER,R"PB;3561 .ERR0.FMNIL12080./PFM:15150</FM(RD$)G/16000M&/`0/FTNRERR9:q:/PFT:FTFT1|D/16000N/: WRITE HEADS HV% :15042:D$"WRITE HEADS,R"HV%:P:D$:216,0::ER4:15200: WRITE MASTE ' DECOMPRESS-GRADE&SEX 3'A$(RD$,88,1)Q$'RD$(8)((((A$)28)2))`.'RD$(9)"F"8'(A$)2((A$)2)RD$(9)"M"B'* COMPRESS-GRADE&SEX +A0:RD$(9)"M"A1 +CG$((RD$(8))2A28)+. CREATE RECORD .FRFR ADD zERR0*RD$(0)(" "(P),3)512000@ERRıUP1NILİ15000:iTP:PP1:15150RD$(" "(T),3)(RD$,4)15050PTX HASH bHV%((GDSG)676(((NA$,1))65)26((NA$,2,1))65)HClHV%HV%3v SEARCH 5005 50103FIXERR:216,0QER7:60000:FE$"Y"5000i21000:HALT1:2000s7000~15100P1NILPNILF0:15150:N$(RD$,4,20)N$NA$F0:N$NA$F1:P1P:P((RD$,3))5040p RD$RD$(0)(T$,4)15050&GAF GRADE ADVANCE COMPLETE uOFHALTĢ20:9:"GRADE ADVANCE COMPLETE"HALTİ20000SAMEZ1:50040:202021004D$"RUN MENU"D1$4FIXERR:216,0>Z1:50040H2020 EP0JGA0OF1"TRD$""2^PGA:15150Lc10:20:GA1" OF "OFbh(RD$,4)""1710mr10000|GD(RD$(8)):GDGD1:RD$(8)(GD)GDEG171011000T$(RD$,87)CG$(RD$,89)NA$(RD$,4,20)5000:216,06000R3":X160:A$A$"-1 "(13):X3 X19:A$;:XO D$"WRITE HEADS,R0":1j D$"WRITE HEADS,R1":0 D$"WRITE HEADS,R2":950 "D$"OPEN MASTER,L128"D2$ '216,0 ,FT0:FMNIL:FR950 610:1:868:" ADVANCING STUDENT"@ MAIN LOOP FE$"N"OF0:2000 2 13:"GRADE ADVANCE"W 10:1:" PREPARING DISKETTE..."q  INITIALIZE HEADS | 1506 1520 FIXERR:216,0 ER8:60000:FE$"Y"1500 21000:HALT1:2000 A$"":D$"OPEN HEADS,L4"D2$:D$"WRITE HEADS,D GRADE LEVEL "EG" WILL BE REMOVED"Q $:" FROM THE DISKETTE. CAUTION: DELETE" .:" STUDENTS WHO ARE NOT BEING PROMOTED" 8:" BEFORE RUNNING GRADE ADVANCE." B19:1:958:" WOULD YOU LIKE TO ADVANCE" GV$"8":FT$" STUDENTS NOW? 6":61000:4 17000 OFFT4  INFORMATION SCREEN : S 13:"GRADE ADVANCE" OFĢ10:1:"THERE ARE NO STUDENTS ON THIS DISKETTE":2000 ::" THIS PROGRAM ADVANCES EACH STUDENT" :" ONE GRADE. ALL STUDENTS ADVANCING"# :" BEYONFE$"":NIL1:NH536:DR$(0)"PROGRAM":DR$(1)"DATA"] ZB953:SL(ZB):DR(ZB1):VO(ZB2) D1$",S"(SL)",D"(DR)",V"(VO) ZB956:SL(ZB):DR(ZB1):VO(ZB2) D2$",S"(SL)",D"(DR)",V"(VO):D1$D2$SA1 SAMEZ0:50040  GAP - GRADE ADVANCE <PROGRAMMER: KENT CARLSON^ SCOTT A. ROLLINS~LAST UPDATED: 04/16/84 SARCOPYRIGHT (C) MECC 1984 2FIXERR37888<MIS36096:FE$"":FX$""dRD$(30)xNR9503 }D$(4)(13)(4):        z#???????   Ҡ !Ҡ,"Ҡ7РŠŠԠҠӠ Ӯנ Ӡ ٠͠ĠŠҠӠϠՠͱ4 Ҡ&ȠΠϠ ԠŠӠؠԹɠ*BBC AC~~|~~JU0GsBsB63Cwx{JUNGbgfF&Cfg^GsBs600p00CBnJ*NGbCsrpqBs^GsBcB6cCtwutJUNGAGsBsB63CCnJ*NAsBc600`CFJUOAs``wBfgC{9{{ J*B MBlLC8W0W8JUBBgBlgClk {|JbAAgs^Gs00{C3ACFJUNGbAx9BA^GsvC6ACFJ*NGbypfOO@@BO^GsBcB6f`CBwJUNGbAGO^GsBBCFB;FJ*NGbAEA^GsB`B0`Ca]a}}JUNGbApE|Ap^GsBgB0gC.5B;J*NGbE<^NGbgc`ddDg^GOD@CAAGA <B~BBBYCFJUNGby1IIDy^GQF@`Dp`@HB@@_BY_CFJ*NGbL FL^GOG|L|HBFACFJUB8ABAABBGlo`OCFJ*NGbG|A^GO~x`FBAQB oBlOCFJUNGbAE?A>^GP?D@B`ABpAB8ABAABBLBlOCFJ*NGbA0G>^GOaHBAQBBOB`OCFJUNGbCAC^GQ|0TAA ~~B@@oBLOCFJ*NGAGOC*BBB3CFJ*NGbCOA@CO^GJ`@UCUBUBUUUBUABUCUBOBfFCFJUNGbAAyAAyA^GN~C*B*B* FBC BBB CFJ*NGb |<OOOLL^GOCUBWBB@B`@CFJUNGb|xsgg``Bg^GOCC@B`ABpA捿ttmtt`BB0xXCFJ*B037B6ACFJUBBC3ACFJ*BA_BBC3ACFJUNA]??B/++*C*BB3?>CFJ*NGAGO?_WUUUBUABUCUBB>0CFJUNGTMIA\GJ??C*B*B***B*AB*t u@ )` t t t0H)?hJ t t t?Lt t&'&Ȅ``tt ttt`t)tJJ tttt .t .t ntt)     )? L`ijkl8`iiLȱȱȱ`  `ԤǠɤǠ̠٠ӮΠɤɤΠȠϠؤǠŤǠL 푈 8`$()` 8``$(H)?(h )`͚#ݚݢݪ8`` t t`@ `ݚ `8`  8`H h`L E ‘ [  L㏭  L,  Lȹ͠ 1 2LLʈʝhh` 8` 8` 8` 213.񌒍L7 ̒󌒍 ̒ ȱH hLOL׏%H$H$% "  L L h$h% "`g   L Lޥ F  Lޥ 1'8$% "8$( Lޅ$$% 8# Ƣ Lލ81 1 F  ޢ Lޥ  12_ L12345678A0 Z9F  뢒 LޥHH퍒멍ȑF       , hhߚHH`g ީ, 5 ɍ)" " ۠Hȱȱh)`kl8`iiLaȱPȱQȱR` `ΤԠĮ$%$ "h LF {U L81HpL` 8ɀ  Lޥ8e湥 HH L`   ߅ lݢ_ ی (  LH h ` 挩 挩 L{ڭ)`  LSK `饠@ LLL˹Ɂ <ȱ<L4 0#( 8<  8  `<#`<ȑ<<ȑ<Ƚȑ<Ƚ< <   `LH =<` 8Hmx 6*+(n*+c*ȩ*h`HH$hH,b (hHI  X $ i$h`l"#Ӎ΢CARD1Ĺ950,CARD6 D$"BLOAD COMM CARD ROUTINE": SLOT17:AD(SLOT192)256. CARD14[ (AD5)Z5(CARD)(AD7)Z7(CARD)190p ZK02:Z2(ZK)0 ZI02558:Z2(ZK)Z2(ZK)(ZWZI):: Z2(0)Z2(1)Z2(0)Z2(2)Z2(0)256195 CARD:SLOT:CARD0:SLOT0 951,CARD:952,SLOT T$"DEFAULTS"FT2:1450 nFT$"USER-SET"FT3K s950,FT:D$"CLOSE"F$:p }SP:D$"BLOAD COMM CARD ROUTINE" SP10Ĺ802,82:818,82: D$"CLOSE"F$:Z5(4),Z7(4),Z2(2) Z5(1)24:Z5(2)56:Z5(3)72:Z5(4)8 Z7(1)56:Z7(2)24:Z7(3)72:Z7(4)72ISINPUT"" <D$"BLOAD SIMPUT95-1"A AD$"BLOAD ONERRFIX,A$9400"^ FD$"BLOAD DRIVE OPTIONS"f K90x PD$"RUN MENU" U POKE PRINTER SPECS INTO MEMORY ZF$"PRINTER COMMANDS" _D$"OPEN"F$:D$"READ"F$:FT$ dFT$"COM-CARD"FT1:125 iF7 HELLO 3 LAST UPDATED: 04/20/84 SAR 1; M (1023)945Y1023,5l230,32:62450:16302,0:(4)"BRUNLOGO"(12)(21)#16368,0((16384)12840-32768:D$(4)(13)(4)2D$"BRUN SKI" 7D$"BLOAD M    NT RECORDS AND","PRINT A SUMMARY OF THE DATA FOUND","DURING THE SEARCH.",""c` GRADE ADVANCE,GAPj "ALLOWS THE USER TO ADVANCE STUDENTS BY","ONE GRADE AT THE END OF THE SCHOOL","YEAR. THIS OPTION REQUIRES A DUAL","DRIVE."Q N:3:8:"FOR ANSWERHE USER TO LIST THE STUDENT","RECORDS ON THE DATA DISKETTE.","",""\$ SEARCH RECORDS,SSR. "ALLOWS THE USER TO SEARCH THE STUDENT","RECORDS FOR SPECIFIC INFORMATION","PERTAINING TO SHOT DATA.",""8 PRINT REPORTS,PSRKB "WILL SEARCH THE STUDEE #,NAME LINE 1,NAME LINE 2,# OF PROGRAMSPHEALTH IMMUNIZATION,VERSION 1.1,5v ENTER/UPDATE/DELETE RECORDS,IM1 "ALLOWS THE USER TO ENTER, UPDATE, OR","DELETE STUDENT RECORDS ON THE DATA","DISKETTE.","" LIST RECORDS,LSRB "ALLOWS TN 55112":13:"(612) 481-3546"0y900:20000K SPACE BAR ROUTINE `24:7:16368,0"PRESS ";::"SPACE BAR";::" TO CONTINUE";Z01:ZC(16384):Z(ZC141)(ZC160):Z16368,0:1:868:23::)FIRST LINE OF DATA:DISKETTT. PAUL, MN 55112":13:"(612) 481-3527"5p900:fr4:1:"IF YOU HAVE ANY PROBLEMS USING MECC"t:"COURSEWARE WITH YOUR MICROCOMPUTER,"v:"WRITE OR CALL:"::::13:"MECC HELP LINE" x13:"3490 LEXINGTON AVENUE NORTH":13:"ST. PAUL, ML "3H4:1:"A MANUAL TO AID IN THE USE OF THIS"]M:"DISKETTE IS AVAILABLE FROM MECC."R11:" TITLE: ";DN$:D2$""Ė13:D2$\15:" DIRECT INQUIRIES TO:"*f:13:"MECC DISTRIBUTION CENTER":13:"3490 LEXINGTON AVENUE NORTH":13:"S @::21(DN$)2:DN$:11:"PROGRAM DESCRIPTIONS":34,4:_I1N:(37)21DLİ900:o MN$(I)" -"J1DL:DE$(I,J)""DE$(I,J)" "ĺ" "DE$(I,J) J::I:900*:4 SUPPORT BOOK INFO >IP$"":IS$"YES"IP$"INSTRUCTIONA WANT TO RUN ANOTHER"dlFI$"1_1/$$11000":FX$"YN":FT$"DISKETTE? 6":FE$"":36096:(36099)2620wvFE$"N"ĉ:::11:8:"INSERT THE NEW DISKETTE."900:CS(P(P(999))1)16:SLOT #CS1CS7CS6CS: DESCRIPTIONS2:"GETTING "MN$(A)"..."/CNĺD$"RUN"CN$(A)BD$"RUN"MN$(A)]& NOT ENOUGH MEMORY e010:"SORRY, THIS APPLE DOES NOT HAVE ENOUGH ":"MEMORY TO RUN THIS DISKETTE."::"(48K IS NEEDED.)"D900X END OPTION b::10:1:"DO YOU7PD:VV22VV22^ JFI$"1_19$$1000019":FT$"WHICH NUMBER? 7":FE$"":36096:(36099)2330n ^A((FE$)) hPRAN1ĺD$"RUN"X1$ jDRAN1PRĺD$"RUN"X2$ lAN2PDİ600 rAN1PDİ750:MENU0 |MENU  GET THE PROGRAM ::1N9):X1$"DISKETTE MAINTENANCE":N1". "X1$q DRĢVV2PR:9(N9PR):X2$"SET PRINTER OPTIONS":N1PR". "X2$ VV2PD:9(N9PD):N1PD". PROGRAM DESCRIPTION"SP$ "VV3PD:9(N8PD):N2PD". END" , RESPOND TO USER'S CHOICE  6VVVV(D2$""):21(DN$)2:DN$4 2:21(D2$)2:D2$S 5F5:6F35:"PROGRAMS:"i VV7F5:HH9F38 I1N:VV:HH(I10):I". "MN$(I) VVVV1:F3IC2VV7F5:HH21 I:VVVV2F2F3F6 VV:6F35:"OTHER OPTIONS:"+ PRĢVV2:9(FL1ĺD$"BSAVE DRIVE OPTIONS,A953,L6"\ xC2((N1)2):F2C2(N1)2:ODD # OF MENU ITEMS PDPRDR:F3N7PD:TWO COLUMNS F5N142PD:F6N182PD:FULL SCREEN (LIMIT VARIES 16-20) K48(978)157İ550 DISPLAY MENU  MENU11:1nP(I)(I)(I1)256% oDR120B pD$"BLOAD DRIVE OPTIONS"j qT(P(P(999))1)16:T(953)116 r(953)(956)Ĺ953,T:956,T:FL1 s953,T:FL1 tT(P(P(999))14):T(955)119 u(955)(958)Ĺ955,T:958,T:FL1 v955,T:FL1' w] MENU 2 LAST UPDATED: 07/13/84 SAR 1: E32768hDL4:CN1:PR1:DR1:K481:IS1zD$(13)(4)#36844,12(::0:1<DN$,D2$,N:MN$(N),CN$(N),DE$(N,DL)PI1N:MN$(I)ZCNćCN$(I)dJ1DL:DE$(I,J):J:I       :FX$"NIMC":FE$RD$(29):4470:RD$(29)FE$"":FC21330nFI$"1_1+<$11 11":FT$"6":FX$"NIMC":FE$RD$(30):4470:RD$(30)FE$"":FC21360FI$"1_1+B$11 11":FT$"6":FX$"NIMC":FE$RD$(31):4470:RD$(31)FE$"":FC213906FI$"1_1+H$11 11":FT$"6":M - MEDICAL EXEMPTION"::" C - CONSCIENTIOUS EXEMPTION"FI$"1_1+'$11 11":FT$"6":FX$"NMC":FE$RD$(27):4470:RD$(27)FE$"":FC213002FI$"1_1+-$11 11":FT$"6":FX$"NMC":FE$RD$(28):4470:RD$(28)FE$"":FC213007PFI$"1_1+4$11 11":FT$"6"21240SN1SN2:1250-SNSN1:1200>FE$""SN2QSN:FC21150h8000:FE$"N"870| EXEMPTIONS 7:CS:3:1:"ENTER EXEMPTIONS:": 12:"ENTER ONE OF THE FOLLOWING:"::" N - NO EXEMPTIONS"::" I - IMMUNITY"::" N2:1090.SNSN1:1040,8FE$""SN2>BSN:FC2950mVSN1:FE$RD$(23):H23:1640:RD$(23)FE$""|`FC21030~SN1:FE$RD$(24):H29:1640:RD$(24)FE$""FC21110SN12FE$RD$(SN24):H35:1640:RD$(SN24)FE$""FC80FE$""SN6SN'SN15VFE$RD$(SN17):H8:1640:RD$(SN17)FE$""fFC21000{SN1SN5:1010SNSN1:960FE$""SN5SN:FC2870SN12FE$RD$(SN9):1720:RD$(SN9)FE$""FC21080 $SN1SH SHOT DATES 6R2:CS::"ENTER SHOT DATES:":5e\" DTP POLIO MEASLES MUMPS RUBEL OTHER"a" ===== ===== ======== ===== ===== ====="fSN16pFE$RD$(SN11):H2:1640:RD$(SN11)FE$""zFC2920SN1ĺG$:880SNSN1:8470:RD$(5)FE$"":FC2680FI$"1_14$#11 110103":FT$"BIRTH DATE...: 73/83/33":FE$RD$(7):4470:M1:1802:RD$(7)FE$"":E%1760 FC2720 FI$"1_14?#11 11":FT$"SEX: 6":FX$"MF":FE$RD$(9):4470:RD$(9)FE$:FC2760>8000:FE$"N"560"":FC2560oFI$"1_10$#10 11":FT$"CITY.........: 4444444444444":FE$RD$(3):4470:RD$(3)FE$"":FC2600FI$"1_12$#10 11":FT$"STATE........: 11":FE$RD$(4):4470:RD$(4)FE$"":FC2640FI$"1_12:#10022":FT$"ZIP CODE: 33333":FE$RD$(5):4 INPUT SCREEN 1&9:20:"(LAST,FIRST)"0FI$"1_1+$#11 11":FT$"PARENT'S NAME: 11111111111111111111":FX$", ":FE$RD$(6):4470:RD$(6)FE$"":FC2ı XFI$"1_1.$#10 11":FT$"ADDRESS......: 44444444444444444444444":FE$RD$(2):4470:RD$(2)FE$D$(X)"N": Fİ2560> (OP$(1)"1")(F)EM3:4560:240e (OP$(1)"2")(F)EM2:4560:240n 540| FC2240 Fİ1810 ERREM1:4560:240 3390 4080 D$"CLOSE" D$"OPEN MASTER,L128" D$"OPEN HEADS,L4"240D$"RUN MENU"D1$% ENTER/UPDATE N ::13:OP$(1)"1"ĺ"ENTER RECORDS"p OP$(1)"2"ĺ"UPDATE RECORDS" 8100:(NA$,2)"Q "ı X138:RD$(X)"": RD$(1)NA$ RD$(8)(GD) RD$(3)CO$(1):RD$(4)CO$(2):RD$(5)CO$(3) X2738:R"< :"3 DELETE RECORDS"::"4 RETURN TO MAIN MENU":32,0 FI$"1_11($1000014":FT$"WHICH NUMBER? 7":FE$"":36844,14:36096:(36099)2200 OP$(1)FE$"":36844,98 (OP$(1))240,240,1920,220 150 D$"CLOSE" SAMEZ1:5300 5000# UPDATE A RECORD > ERR0:::20:"NOTE:" " THERE ARE "950FR" RECORDS ON THIS DISKETTE.":" SPACE FOR "FR" RECORDS REMAINS.":32,4 1:" ENTER/UPDATE/DELETE RECORDS" 4:"1 ENTER NEW RECORDS"::"2 UPDATE EXISTING RECORDSR$(0)"PROGRAM":DR$(1)"DATA":CS958:CL8688 NR950b ZB953:SL(ZB):DR(ZB1):VO(ZB2) D1$",S"(SL)",D"(DR)",V"(VO) ZB956:SL(ZB):DR(ZB1):VO(ZB2) D2$",S"(SL)",D"(DR)",V"(VO):D1$D2$SA1 SAMEZ0:53002 IM1 - RECORD EDITOR ;AUTHOR: TIMOTHY M. HEAPU KENT CARLSONs SCOTT A. ROLLINSLAST UPDATED: 05/25/84 SARCOPYRIGHT MECC - 1984 ~61000- RD$(40):D$(4)(13)(4):G$(7):FE$"":NI1:NH536:D                   $SQ1PLİ173004$PLāX116X:::D$"PR#0">$9005N' HEADER ['PLĉ:l'PLİ63000:'"GRADE : STUDENT NAME";:PLĺ" DTP POLIO MEASLES MUMPS RUBELLA OTHER";(':"------:--------------------";:PLĺ" ----- 3338:RD$(X)"Y"RD$(X)"YES";$RD$(X)"N"RD$(X)"NO"A$L$PLėZ$PLĺ::z$SQ1:X16:SC$(X)""9460$SQ1ĺ"SPECIAL CIRCUMSTANCES:":$PLĢ(X23):1$SQ". "(SC$(X)"....................",20)": "RD$(X32):SQSQ1$"h$RD$(X)"C"ĺ"CONSCIENTIOUS";7r$" EXEMPTION.":$5:" DTP POLIO MEASLES MUMPS RUBEL OTHER";:" ----- ----- -------- ----- ----- -----":$4:RD$(27);:10:RD$(28);:18:RD$(29);:25:RD$(30);:31:RD$(31);:37:RD$(32)$17300$X'$" "RD$(14)RD$(20)::" "RD$(15)RD$(21)::" "RD$(16)RD$(22)::" "RD$(17)d,$PLİ17300::9350r6$PLĺ::;$"EXEMPTIONS:":@$X2732:O$(X26)" ";:9290::9380J$RD$(X)"N"ĺ"NO";T$RD$(X)"I"ĺ"IMMUNITY";^$RD$(X)"M"ĺ"MEDICAL";A";#" OTHER"F#" ----- ----- -------- ----- -----";:PLĺ"--";V#" -----":a#11000$" "RD$(12)RD$(18)RD$(10)RD$(23);:PLĺ" ";$RD$(24);:PLĺ" ";$RD$(25);:PLĺ"$:" "RD$(13)RD$(19)RD$(11);:352PL:RD$(26);:#$PLĺLITY.........: "RD$(3)::"STATE........: "RD$(4)" ZIP CODE: "RD$(5):::"BIRTH DATE...: "(RD$(7),2)"/"(RD$(7),3,2)"/"(RD$(7),2)" SEX: "RD$(9)#PLİ17300:#PLĺ::#"SHOT DATES:"::#" DTP POLIO MEASLES MUMPS RUBEL";:PLĺ"L.: 33":FE$(GD):17260:GD(FE$):FC29010BF#GDEGGDSG9020cP#15230:FEM2:17350:9005nZ#15340yd#PLėn#PLİ63000x#"STUDENT NAME : "RD$(1)::"GRADE........: "RD$(8)::"PARENT'S NAME: "RD$(6)::"ADDRESS......: "RD$(2)#:"CLETE RECORD :(#::8:"LIST ONE COMPLETE RECORD":34,2L-#:NA$"":GD02#FI$"1_1&$$11 11":FT$"STUDENT NAME: 22222222222222222222":FX$" ,":FE$NA$:17260:NA$FE$"":RD$(1)NA$:(NA$,2)"Q "ı7#FC29010,<#FI$"1_1($$10022":FT$"GRADE......300:$(RD$(8))ELPLİ17300:E(RD$(8))ELPLĺD$"PR#0":P12000Z$1020x LIST RANGE OF GRADES NA$"AA":GDSG1000017110:ERRPLĺD$"PR#0":ERRPLİ17300:15340120005020 '# LIST ONE COMP)22005 EL((FE$)):(ELSL)(ELSG)(ELEG)220= :c OP5000,1000,9000:D$"PR#0":150x SAMEZ1:20000 D$"RUN MENU"D1$  LIST ALL RECORDS NA$"AA":GDSL 10000 17110:ERRPLĺD$"PR#0": 15340ERRPLİ176096:(36099)2175. Q$FE$"":PL(Q$"Y")G 36844,98:OP2235 FI$"1_1*$$10000":FT$"STARTING GRADE TO LIST? 33":36096:(36099)2200 SL((FE$)):(SLSG)(SLEG)200 FI$"1_1,$$10000":FT$"ENDING GRADE TO LIST? 33":36096:(36099PLETE RECORD"::" 4. RETURN TO MAIN MENU" FI$"1_10$$1000014":FT$" WHICH NUMBER? 7":FE$"":36844,14:36096:(36099)2160 OP(FE$):OP4260 :"DO YOU WANT TO LIST THESE RECORDS" FI$"1_1($$11000":FX$"YN":FT$"ON THE PRINTER? 6":3ZB):DR(ZB1):VO(ZB2)P D2$",S"(SL)",D"(DR)",V"(VO):D1$D2$SA1e SAMEZ0:20000p 17500+ ::12:"LIST STUDENT RECORDS":34,2:::" 1. LIST ALL RECORDS (NAME AND GRADE)"::" 2. LIST A RANGE OF RECORDS"::" 3. LIST ONE COM536:DR$(0)"PROGRAM":DR$(1)"DATA":CS958:CL868 }O$(1)"DTP :":O$(2)"POLIO :":O$(3)"MEASLES:":O$(4)"MUMPS :":O$(5)"RUBELLA:":O$(6)"OTHER :" ZB953:SL(ZB):DR(ZB1):VO(ZB2) D1$",S"(SL)",D"(DR)",V"(VO) ZB956:SL(o$% LSR - LIST STUDENT RECORDS BAUTHOR: TIMOTHY M. HEAP\ KENT CARLSONz SCOTT A. ROLLINSLAST UPDATED: 05/17/84 SARCOPYRIGHT MECC 1984 n:s610002 xRD$(40):D$(4)(13)(4):FE$"":NI1:NH               18XX1:RD$(X)""1235QX15(((DA$,2))((RD$(7),2))4)Y27:3020[1220A$"DTP-TD - 10 YEAR INTERVAL SINCE LAST DOSE.":325011090:ERRı10150 X17121:RD$(X)""Ă:1270 ((DA$,2))((RD$(X),2))10Y27:N 4 DOSES BEFORE AGE 6":3250/11090:ERRı:10150_X14:RD$(X)""Y27:3020:1160xX15:RD$(X)""11603010:X7:3000:ZCBD2191Y27:30201160A$"DTP-TD - 4TH DOSE BEFORE AGE 4.":325011090:ERRı10150X:17:"DTP-TD":::"1. * <4 DOSES OR <3 DOSES BEFORE AGE 6."::"2. * 4TH DOSE BEFORE AGE 4"::"3. 10 YEAR INTERVAL SINCE LAST DOSE"`UC4:9100:A$"4"ıjPRİ63000tST$"DTP "A$:(A$)1150,1210,1260~A$"DTP-TD - LESS THAN 3 OR LESS THAPRİ63000'ST$"MUMPS BY AGE "A$eA$"MUMPS - NOT AT ALL BY AGE "(A)".":AA365.25:3250RD$(0)DA$:X0:3000:DTZB11090:ERRı10150X7:3000RD$(23)""DTZB(A)X23:Y30:3020960L DTP - TD V$(7),2))12)X24:Y31:3020&R820,\; MUMPS }:17:"MUMPS":10:"AGE 6 SATISFIES STATE IMMUNIZATION LAW."FI$"1_1/$$10000":FT$"'NOT AT ALL' BY AGE: 33":FE$"":36844,14:36096:(36099)292036844,98:A((FE$)):A25920 ` (RD$(24)"")((RD$(9)"M")((RD$(9)"F")(((DA$,2))((RD$(7),2))12)))X24:Y31:3020i760o *A$"RUBELLA - NOT AT ALL (FEMALE 12 YEARS AND OLDER).":3250411090:ERRı>10150H(RD$(24)"")(RD$(9)"F")(((DA$,2))((RD::"1. *NOT AT ALL (F <=11 AND ALL M)"::"2. NOT AT ALL (F 12 AND OLDER)"eUC3:9100:A$"3"ıtPRİ63000ST$"RUBELLA "A$:(A$)750,810A$"RUBELLA - NOT AT ALL (FEMALE 11 AND YOUNGER AND ALL MALE).":325011090:ERRı10150D$(10)""RD$(11)""X10:Y29:3020-510]&A$"MEASLES - COMPLETED BEFORE 1968.":3250o011090:ERRız:10150DX11101:RD$(X)""600N(RD$(X),2)"68"Y29:3020SX10Xb560l RUBELLA L:16:"RUBELLA":MEASLES - COMPLETED BEFORE 11.5 MONTHS OF AGE.":3250G11090:ERRıR10150X7:3000:BDZB:X11:3000:S1ZB:X10:3000:ZBS1S1ZBS1(S1BD351)Y29:3020460A$"MEASLES - NOT AT ALL":325011090:ERRı10150$R1:4300 J:D$"RUN MENU"D1$/  MEASLES :16:"MEASLES":::"1. *COMPLETED BEFORE 11.5 MONTHS OF AGE"::"2. *NOT AT ALL"::"3. COMPLETED BEFORE 1968" UC4:9100:A$"4"ı PRİ63000 ST$"MEASLES "A$:(A$)450,500,5505A$"270P V$"-":FT$"DO YOU WANT MAILING LABELS? 6":9000:FE$"Y"LM1:PR1:290 V$"/":FT$"DO YOU WANT TO USE THE PRINTER? 6":9000:FE$"Y"PR1 "NA$"AA":GDSG:OP400,700,900,1100,1400,1600,1700,1900,2100 ,PRĺD$"PR#0" 6200 @SAMEZ] 4:"8. MEDICAL EXEMPTION":4:"9. CONSCIENTIOUS EXEMPTION":3:"10. RETURN TO MAIN MENU" FI$"1_13$$10000":FT$"WHICH NUMBER? 33":FE$"":36844,14:36096:(36099)2240 36844,98:OP(FE$):OP10240 OP10320 :PR0:LM0 OP7B2); D2$",S"(SL)",D"(DR)",V"(VO):D1$D2$SA1O SAMEZ0:4300Y 4000c ::} 13:"SEARCH RECORDS" 4:4:"1. MEASLES":4:"2. RUBELLA":4:"3. MUMPS":4:"4. DTP-TD":4:"5. POLIO":4:"6. OTHER":4:"7. IMMUNITY EXEMPTION":DR$(0)"PROGRAM":DR$(1)"DATA":CS958 EX$(1)"DTP":EX$(2)"POLIO":EX$(3)"MEASLES":EX$(4)"MUMPS":EX$(5)"RUBELLA":EX$(6)"OTHER" ZB953:SL(ZB):DR(ZB1):VO(ZB2) D1$",S"(SL)",D"(DR)",V"(VO) ZB956:SL(ZB):DR(ZB1):VO(Z*' SSR - SEARCH STUDENT RECORDS DAUTHOR: TIMOTHY M. HEAP^ KENT CARLSON| SCOTT A. ROLLINS LAST UPDATED: 05/24/84 SARCOPYRIGHT MECC - 1984 n20000' xRD$(40):D$(4)(13)(4):FE$"":NI1:NH536!! ! ! ! ! !!!!!!!!!          0)"1 COPY - SCHOOL FILE COPY"EX14:::37)"PAGE 1":X15::TX14::9015:26)"I D E N T I F I C A T I O N":9015:" DISTRICT NAME: "DI$" DISTRICT NUMBER: "DN$::" SCHOOL NAME: "SN$" COUNTY: "CN$:?" GRADES INCLUDED:" BY NOVEMBER 1, "Y1$". PLEASE COMPLETE ALL ITEMS OR THE REPORT WILL BE":" RETURNED FOR THE NECESSARY INFORMATION."::::" DISTRIBUTION: 1 COPY - STATE DEPARTMENT OF EDUCATION"::20)"1 COPY - MINNESOTA DEPARTMENT OF HEALTH"::2 IN THE SAME BUILDING."q:" RETAIN A COPY FOR THE SCHOOL RECORDS AND RETURN THE OTHER TWO COPIES TO:":25)"STATE DEPARTMENT OF EDUCATION":25)"PUPIL PERSONNEL SERVICES":25)"651 CAPITOL SQUARE":25)"550 CEDAR":25)"ST.PAUL,MN 55101":" FOR MEDICAL REASONS OR CONSCIENTIOUSLY HELD BELIEF.":" THE PRINCIPAL IS REQUESTED TO SUBMIT A REPORT USING FORM ED-01552-02 FOR":" EACH SCHOOL. DO NOT COMBINE REPORTS FOR ELEMENTARY AND SECONDARY SCHOOLS,":" EVEN IF THE SCHOOLS ARE, THE NUMBER":" WHO HAVE NOT COMMENCED OR COMPLETED A SCHEDULE FOR DIPHTHERIA, TETANUS,":" PERTUSSIS AND/OR POLIO, THE NUMBER NOT ADEQUATELY IMMUNIZED FOR MEASLES,":" MUMPS, OR RUBELLA AND THE NUMBER OF CHILDREN WHO HAVE RECEIVED AN EXEMPTION"::" MINNESOTA STATUTES 1980, SECTION 123.70, SUBDIVISION 8, REQUIRES THAT":" THE PRINCIPAL SUBMIT A SUMMARY IMMUNIZATION REPORT TO THE COMMISSIONER OF":" EDUCATION."[:" THIS REPORT IS TO INCLUDE THE NUMBER OF STUDENTS ENROLLEDM%(X)),3):P60000!dI13nX15:::62)"FORM ED-01552-02A":::::9015:" A N N U A L I M M U N I Z A T I O N S T A T U S R E P O R T"x:28)"SCHOOL TERM "Y1$" - "Y2$:9015::::" GENERAL INFORMATION AND INSTRUCTIONS:"44444444":FE$PT$:9020:PT$FE$"":FC21140FI$"1_13$-10 0029":FT$"TELEPHONE NUMBER: 733 733 3333":FE$TN$:9020:TN$FE$"":FC2115055000:FE$"N"1120TN$(TN$,3)" "(TN$,4,3)"-"(TN$,4)SFİ11000 X011:M$(X)(" "(1+'$10 11":FT$"44444444444444444444444444444444444":FE$SN$:9020:SN$FE$"":FC21120t1:10:"PERSON COMPLETING REPORT:":FI$"1_1/'$10 11":FT$"44444444444444444444444":FE$PN$:9020:PN$FE$"":FC21130-~FI$"1_11$$10 11":FT$"TITLE: 444444444FI$"1_11$$10 00":FT$"DISTRICT NUMBER: 3333":FE$DN$:9020:DN$FE$"":FC21070j B55000:FE$"N"1010 V:13:"STATUS REPORT" `FI$"1_1'$$10 11":FT$"COUNTY: 444444444444444":FE$CN$:9020:CN$FE$"":FC21120Xj1:6:"SCHOOL NAME: ":FI$"1_YEAR: 7333":FE$Y2$:9020:Y2$FE$"":FC21010 FI$"1_1+$$10 22":FT$"ENROLLMENT: 333":FE$EN$:9020:EN$FE$"":FC21020 .1:10:"DISTRICT NAME:":FI$"1_1/'$10 11":FT$"4444444444444444444444444444444444":FE$DI$:9020:DI$FE$"":FC21050Q 8SG:A1000,5000 A31502 SAMEZ1:12000G D$"RUN MENU"D1$_  MINNESOTA FORM :13:"STATUS REPORT":36844,98 FI$"1_1'$'10 0019":FT$"BEGINNING YEAR: 7333":FE$Y1$:9020:Y1$FE$"":FC21010/ FI$"1_1)$'10 0019":FT$"ENDING 10000 : 13:"PRINT REPORTS":::4:"1. MINNESOTA FORM ED-01552-01A"::4:"2. DATA SUMMARY REPORT"::4:"3. RETURN TO MAIN MENU" FI$"1_1/'$1000013":FT$"WHICH NUMBER? 7":FE$"":36844,14:36096:(36099)2170 A(FE$):NA$"AA":GD868:RD$(40),S%(16),E%(23),M%(11),M$(11)4 s61000^ ZB953:SL(ZB):DR(ZB1):VO(ZB2) D1$",S"(SL)",D"(DR)",V"(VO) ZB956:SL(ZB):DR(ZB1):VO(ZB2) D2$",S"(SL)",D"(DR)",V"(VO):D1$D2$SA1 SAMEZ0:12000 5  PRINT STUDENT RECORDS =AUTHOR: TIMOTHY M. HEAPW KENT CARLSONu SCOTT A. ROLLINSLAST UPDATED: 07/12/84 SAR 1COPYRIGHT MECC 1984 ( nD$(4)(13)(4):DR$(0)"PROGRAM":DR$(1)"DATA":SF0:CS958:CL"" " " " " """""""""