' +JJJJ ?\>m0M='+l> /+L   d]@ŵLҦ]]LF L}BBL]µL˵H̵Hõ˵ĵ̵ h̵h˵LoµĵL1L 鷎\I귭෍ᷩ췩緈JJJJx LйLmL巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌1Vɭ&Y&&Y& 꽌1\8`&&Jjｌ1ɖ'*&%&,E'з Hh`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"`````````````````````````````````````````````  !"#$%&'()*+,-./0123456789:;<=>?렮E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LLA@@&E&&A@@&AA)߅CBBH&E&&A@B& ChLQhBAȌy8zx8v{v I7H7@)*AL@m{@AAA,+i(ˢ3Z@[A@ /@v wm{@8/e@@eAA3]ͥ@\ƊiY?AyC@B@B|ACLT$VXZdflpx|~**7777(*3]67V<<8:=???@@##topmnU^_R ij^_lk 󅔆nmLY^^ȱ^ȱ^eȱ^e(ӊ0Цe^^Ӝu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /Q\I\b_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff Lꢩ f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`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-(0  Р@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8DH E𳈈췍Ȍ X0 · "LǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` i d ֠z# u`D$;"WRITE RECORDS, R";ZINFO4&D ZRES$:D$;"CLOSE"]&N D$;"OPEN LOOKUP":D$;"WRITE LOOKUP"n&X IMAX:ZVLD$~&] D$;"CLOSE"&b &l PACK STUDENT INFO&v ZSPAC$" "& ZRES$(FIRNAME$ZSPAC$,1,26)' ZRES$%(ZVLD$,I,1)"V"ī8170;%II1:IIMAXZINFO0:8190E%8140Q%ZINFOIW%p% SAVE STUDENT INFOz% 8300%& ZVLD$(ZVLD$,1,ZINFO1)"A"(ZVLD$,ZINFO1)%0 D$;"OPEN RECORDS, L256"%5 D$;"WRITE RECORDS, R0":("000"(ZINFO),3)&: 10$$ GET YEAR.$:"YEAR: ";YEARK$YEAR100YEARYEAR1900n$(YEAR1985)(YEAR9999)ī7970x$7990$"7910$6$ FIND SLOT FOR SCORE$ZINFO0$D$;"OPEN LOOKUP":D$;"READ LOOKUP"$IMAX:ZVLD$:D$;"CLOSE":8700:I1,#F MOVE CURSOR UP, CHANGE STUDENT INFO;#KC1ī7770P#P((37)3):CC2Z#U7780j#ZI18::Ir#_C5|#d7700#n#x GET DAY OF MONTH#3200:3900#7200::#"DATE: ";DAY#DAY1ī7870#DAY31ī7870#7890$78 MOVES CURSOR DOWN%"CC1:C6C18"((1):C1Ģ(4)@"-:e"2C7732,7734,7736,7738,7740,7742o"37790"4"FIRST NAME: ";:7790"6"LAST NAME: ";:7790"8"PERIOD: ";:7790":"MONTH: ";:7790"<"DATE: ";:7790">"YEAR: ";:7790#A!"! CORRECT STUDENT INFO7!7100:7400:C10\!C2C1:2200:(C1(RET$))ī7620!C1C2:(C1("N"))(C1("n"))ī7690!(C1("Y"))(C1("y"))ī7650!7620!7500!7610! ! MOVE CURSOR DOWN, CHANGE STUDENT INFO"  jC$ tC$RET$ī7560: y(C$(8))(C$(11))ī7526[ {(C$(21))(C$(10))ī7525e ~7530 C7571,7572,7573,7574,7575,7576 7590 7030:7590 7070:7590 3500:7590 3550:7590 7000:7800:7590!7000:7900:7590FO FOOTER 2$(1):(22):)40);40);39);:(22):(1)O.I140:"=";:I3"USE ARROW KEYS TO MOVE THE CURSOR TO THE";8"LINE YOU WANT TO CHANGE. PRESS 'RETURN'";BL GET INFO CORRECTION`7100:7450:C7e7700:7530f7750ER":7390#MNTH$"OCTOBER":7390>MNTH$"NOVEMBER":7390YMNTH$"DECEMBER":7390_{ CHANGE INFO FOOTER 1(1):(22)40);40);39);:(22):(1)I140:"-";:I"ANY CHANGES? 'Y'=YES, 'N'=NO ";  CHANGE IN352,7356,7360,7364+MNTH$"??????":7390EMNTH$"JANUARY":7390`MNTH$"FEBRUARY":7390xMNTH$"MARCH":7390MNTH$"APRIL":7390MNTH$"MAY":7390MNTH$"JUNE":7390MNTH$"JULY":7390MNTH$"AUGUST":7390 MNTH$"SEPTEMB700:YEAR;3  DISPLAY NAME, PERIOD, MONTHL*C6:7700:FIRNAME$;b47700:LASTNAME$;u>7700:PERIOD;H7700:7300:MNTH$;z GET NAME OF MONTH INPUT MNTH, OUTPUT MNTH$MNTH7320,7324,7328,7332,7336,7340,7344,7348,74000:FIRNAME$CHOICE$2 CHECK FOR TABOO WORDS8Q GET NEW LAST NAMEs40);:((37)2):CC1:77004000:LASTNAME$CHOICE$ CHECK FOR TABOO WORDS DISPLAY CHANGE STUDENT INFO320072007700:DAY; 7| INIT SOUND*D$;"BLOAD BEEP"@D$;"BLOAD BEEP2"_1013,76:1014,128:1015,3e|X PREPARE DISPLAY] FOR NEW DAY OR YEARb(1):40);l((37)1)qv GET NEW FIRST NAME{40);:((37)2):CC1:7700YOUR FULL NAME" (21):C$-H(13):40)3RG\ TABOO SCREENkf(FIRNAME$)0Ģ(10):(1):40)p(12):(1):40)z(13):"OK, NOW THAT YOU'VE GOT THAT OFF YOUR""CHEST, LET'S GET DOWN TO WORK."(21):C$(13):80)O$(8)"PUSSY"/ TEST FOR TABOO WORDSM(CHOICE$)2İ4600:4580yI1TBOO:CHOICE$TBOO$(I)İ4700:4580I:4590CHOICE$"" SHORT NAME(FIRNAME$)0Ģ(10):(1):40) (12):(1):40)(13):"PLEASE ENTER C1(RET$)ī40904070((C1);BCHOICE$CHOICE$(C1)L4015Rj0 INIT TABOO WORDS~:TBOO$(1)"SHIT"?TBOO$(2)"FUCK"DTBOO$(3)"SCREW"ITBOO$(4)"PISS"NTBOO$(5)"CUNT"STBOO$(6)"PRICK"XTBOO$(7)"DAMN" ]TBO START QUIZ FOOTER!$#(22):(1)A$$40);40);39);:(22):(1)V$$I140:"-";:I$$"PRESS 'RETURN' WHEN YOU'RE READY TO"$$"START. GOOD LUCK! ";$J$$T$ REPEAT TEST SCREEN$^$3200:$h$QM$"":9600::$r$"NUMBER CORRECT: ";S6RITE1ONS ON THIS"##"TEST.":(13)2##F2REP0ī9160a##"QUESTIONS THAT ARE ANSWERED INCORRECTLY"##"WILL BE REPEATED AT THE END OF THE TEST."##"TAKE A DEEP BREATH; RELAX; AND PRESS"##"'RETURN' WHEN YOU'RE READY TO BEGIN."##9200##$# ""THIS COMPLETES PART ONE OF THE TEST.":"PRESS 'RETURN' TO GO ON TO PART TWO."r""(22):(1):I140:"-";:I:~""2100:"""# START QUIZ SCREEN"#HEADER$(1)TITLE$:HEADER$(2)SUBTITLE$:3200 ##(7):(1):"OK. THERE ARE ";NUMQUES;" QUESTI!H!D$;"READ SYS-CONFIG"7!R!F1SOUND:F2REP:F3PRNUMK!\!D$:D$;"CLOSE"Q!!n!! SCREEN - READING QUIZ|!"3200::!""ONE MOMENT PLEASE ..."!"(22):(1):I140:"-";:I:!V"!`" TAKE A BREAK!j"3200::!t""TAKE A BREAK!"::P"~ D$;"READ RECORDS, R";ZINFO5 ZRES$:D$;"CLOSE"i !FIRNAME$(ZRES$,1,26):LASTNAME$(ZRES$,27,26) !PERIOD((ZRES$,53,1)):DAY((ZRES$,54,2)):MNTH((ZRES$,56,2)) !YEAR((ZRES$,58,4)) *! 4! GET SYS CONFIG!>!D$;"OPEN SYS-CONFIG"((SRITE(I)),1)7 S2RITE$S2RITE$((S2RITE(I)),1)> I] ZRES$ZRES$SRITE$S2RITE$ ZRES$ZRES$(" "(NUMQUES),2)  GET STUDENT INFO 8100 D$;"OPEN RECORDS, L256" D$;"READ RECORDS, R0":ZINFO$:ZINFO(ZINFO$) $,ZINFO1))0 D1$;"OPEN RECORDS, L256"K: D$;"WRITE RECORDS, R";ZINFObD ZRES$:D$;"CLOSE"N D$;"OPEN LOOKUP":D$;"WRITE LOOKUP"X IMAX:ZVLD$] D$;"CLOSE":D$b l PACK SCORE INFO SRITE$"":S2RITE$"" I150:SRITE$SRITE$(23)::"PRESS 'RETURN' TO CONTINUE. ";:21004O FIND SLOT FOR SCORE[ZINFO0qD$;"OPEN LOOKUP"D$;"READ LOOKUP"IMAXZVLD$D$;"CLOSE" STORE CORRECT RECORD 8300 & ZVLD$(ZVLD$,1,ZINFO1)"V"(ZVLDRIOD: ";:7790$:"MONTH: ";:77909<"DATE: ";:7790N>"YEAR: ";:7790TAF MOVE CURSOR UP, CHANGE STUDENT INFOKC1ī7770P((37)3):CC2U7780ZI18::I_C5d7700n@ SAVE STUDENT SCOREST8200.7700:PERIOD;H7700zL MOVE CURSOR DOWN, CHANGE STUDENT INFOe MOVES CURSOR DOWNxCC1:C6C1((1):C1Ģ(4)-:2C7732,7734,7736,7738,7740,7742377904"FIRST NAME: ";:77906"LAST NAME: ";:77908"PE*WANS$(3)"NO, THAT'S NOT IT"]4WANS$(4)"WRONG. MISTAKES LIKE THIS CAN CAUSE ACCIDENTS!">WANS$(5)"WRONG. TRY NOT TO MAKE MISTAKES LIKE THIS IN THE SHOP."f  DISPLAY NAME, PERIOD, MONTH*C6:7700:FIRNAME$;47700:LASTNAME$;> CORRECT ANSWER."9RANS$(5)"THAT'S THE RIGHT ANSWER."RRANS$(6)"TERRIFIC!"Xx  SET-UP INCORRECT ANSWERSWANS$(1)"THAT WAS THE WRONG ANSWER. TRY TO BE MORE CAREFUL THAN THIS WHEN YOU'RE IN THE SHOP." WANS$(2)"THAT'S INCORRECT" TO CONTINUE: ";:2100:%7| INIT SOUNDLD$;"BLOAD BEEP"bD$;"BLOAD BEEP2"1013,76:1014,128:1015,3 SETUP CORRECT ANSWERSRANS$(1)"CORRECT."RANS$(2)"GOOD!"RANS$(3)"RIGHT!"RANS$(4)"THAT'S THE52306I0TSENT$BELL$ANS$(Q,ANS(Q))ESC$:5264jTSENT$(QUEST$(Q),I)BELL$ANS$(Q,ANS(Q))ESC$II1:I(QUEST$(Q))ī5280(QUEST$(Q),I,1)"-"ī52705264TSENT$TSENT$(QUEST$(Q),I)1700(23):(1):"PRESS 'RETURN'ND:F2REP:F3PRNUM&(\!D$:D$;"CLOSE",(!H(! SCREEN - ONE MOMENTV("3200::s(""ONE MOMENT PLEASE ..."("(22):(1):I140:"-";:I:(V"((# FULL DISK SCREEN(2#:(<#"DISK IS FULL"(F#"CONSULT INSTRUCTOR"(# ZRES$(LASTNAME$ZSPAC$,1,26)>' ZRES$ZRES$((PERIOD),1)_' ZRES$ZRES$(" "(DAY),2)' ZRES$ZRES$(" "(MNTH),2)' ZRES$ZRES$((YEAR)ZSPAC$,4)' '4! GET SYS CONFIG'>!D$;"OPEN SYS-CONFIG"'H!D$;"READ SYS-CONFIG"(R!F1SOUVALID DATA FLAGS& zD$;"OPEN LOOKUP"< D$;"READ LOOKUP"N MRECS:ZVLD$b D$:D$;"CLOSE"h  X CLOSE THE PROGRAM D1$;"OPEN LOOKUP":D$;"WRITE LOOKUP" MRECS:ZVLD$ D1$;"CLOSE":D$    INIT SEARCH FIELDS!*LNA GET PRINTER SLOT#"~(23):(1)>"ENTER SLOT NUMBER: ";[C$:F3PRNUM(C$)("0")~(F3PRNUM0)(F3PRNUM7)ī3720(1):40)2900 DELETE THE CURRENT RECORD6ZVLD$(ZVLD$,1,ZREC1)"I"(ZVLD$,ZREC1)^ p GET 600:C$ ( PRINTER SLOT NUMBERNT1$"PRINTER CONFIGURATION":2500w$(9):"ENTER SLOT NUMBER: ";F3PRNUM;.(9):(20):CCHARS1:11003(CHOICE$)1ī36308F3PRNUM(CHOICE$)("0"):(F3PRNUM0)(F3PRNUM7)ī3630`2900jt0ī3450p F2REP0:3480&z F2REP10 29006 N CHECK DISK SPACEq T1$"DISK CAPACITY":2500:SP0 I1MRECS:(ZVLD$,I,1)"V"SPSP1 I (12):(1):"SPACE REMAINING FOR ";SP;" FILES." T9$"PRESS 'RETURN' TO CONTINUE ":2K":-I "4. PRINTER SLOT: ";::F3PRNUM::KN "5. RETURN TO MAIN MENU"zl T9$"PLEASE ENTER YOUR SELECTION. ":2600v  TOGGLE SOUND F1SOUND0ī3350 F1SOUND0:3380 F1SOUND14 2900> H TOGGLE TEST REPEAT\ F2REP00,3500,3600 3010 2 UTILITIES MENUQ& T1$"UTILITIES MENU":2500Y0 :: "1. SOUND: ";::F1SOUND1ĺ"YES":3135; "NO"? ::"2. REPEAT TEST OPTION: ";::F2REP1ĺ"YES":3140@ "NO"D ::"3. CHECK REMAINING SPACE ON DISSOUND:F2REP:F3PRNUM)" D$:D$;"CLOSE"/J FT SAVE SYS CONFIGa^ D1$;"OPEN SYS-CONFIG"|h D$;"WRITE SYS-CONFIG"r F1SOUND:F2REP:F3PRNUM| D$:D$;"CLOSE"  UTILITIES 2800 3100 2100 C5ī3090  C3300,34( MENU FOOTER,- REQUIRES FOOTER T9$;2 (20):(1)P< I140:"-";:IZF T9$;` x BLANK OUT FOOTER (20):(1) I13:40);:I 39);  GET SYS CONFIG D1$;"OPEN SYS-CONFIG" D$;"READ SYS-CONFIG" F160! ((Z$,56,2))MNTHī24903 YEAR0ī2470R ((Z$,58,4))YEARī2490Z C1` s MENU HEADER REQUIRES TITLE T1$ :I140:"-";:I (10):"INSTRUCTORS' PROGRAM" (((40(T1$))2)):T1$ I140:"=";:I  D$;"READ RECORDS, R";ZREC# Z$+ D$1V N` TEST RECORD FOR MATCHve RETURN C=1 FOR HIT, C=0 FOR MISS~j C0t (LNAME$)0ī2435~ (Z$,27,(LNAME$))LNAME$ī2490 PERIOD0ī2450 ((Z$,53,1))PERIODī2490 MNTH0ī24Ih*&"IF ANOTHER STUDENT WILL BE TAKING THE":"TEST, PRESS 'RETURN' TO PREPARE THE":"PROGRAM.":2100n*'IE THE":"PROGRAM.":2100*'R:I*)&"IF YOU HAVE A TEST SCORE FORM, "S) &"PLEASE COPY THIS INFORMATION ONTO"k)&"THE FORM NOW. ";q)>&)& FINAL SCREEN)&:I140:"=";:I)&(5):"THIS CONCLUDES THE TEST.")&(8):"GOOD LUCK, AND TAKE CARE."*&(20):I140:"-";:SRITE(I)0ī9635 (%(0)36ĺ0(%"#";I;",";g(%S6RITE1S6RITE1SRITE(I):S7RITE2S7RITE2S2RITE(I)t(%I:9690(%I1NUMQUES:S2RITE(I)0ī9670(%(0)36ĺ(%"#";I;",";(%I(%(% TEST RESULT FOOTER(%(20):(1))%I140:"-";ERS: ";:F2REP0S7RITE2S6RITE1S'g%S7RITE2::(18):(100S7RITE2NUMQUES);"%":]'l%9700c'v%{'% QUESTIONS MISSED'% INPUT PARAMETER QM$'%(1):"QUESTIONS MISSED";QM$;": ";'%QM$" TWICE"ī9650'%S6RITE10:S7RITE20(%I1NUMQUES:IONS":"THAT YOU MISSED.":E&$"PRESS 'RETURN' TO CONTINUE. ":2100M&$:h&% TEST RESULT DISPLAYr&0%3200&D%7200:(1)&N%"DATE: ";MNTH;"/";DAY;"/";YEAR&X%QM$"":(14):9600:(16)&Z%F2REP0QM$" TWICE":9600:(18) 'b%(1):"CORRECT ANSW,%w$16);::(100S6RITE1NUMQUES);"%"::I%|$S6RITENUMQUES.9ī9360%$"THAT'S A GOOD SCORE":"PRESS 'RETURN' TO CONTINUE. ";%$C0:2200:9390%$"REMEMBER, MISTAKES IN THE SHOP":" CAN CAUSE ACCIDENTS!":&$"NOW, LET'S REPEAT THE QUESTΠȠҠΠŠΠҠ٠ΠҠΠӠ̠ՠ٠ΠΠȠȠȠӠϠŠ0:"-";:I:#~"1700+#"D1$:D1$;"PR#0"1#"Q#" HEADER FOR PRINT RESULTSh#"D1$;"PR#";F3PRNUM#":10);"STUDENT SCORE REPORT"::##D1$:D1$;"PR#0"###(# TRANSFER FILES#2#YG$(240)#<##A#T1$" TRANSFER FILES "#C#T9$" "$BE"""INCLUDED.":@""SKIP FIELDS BY PRESSING 'RETURN'. "F"B]"! SEARCH COMPLETEDg""2500""(9):(1):"SEARCH COMPLETED""."T9$"PRESS 'RETURN' TO CONTINUE"RET$:2600:C$"V""`" PRINT QUIZ REPORT"j"D1$;"PR#";F3PRNUM #t":I14ME$"":PERIOD0:MNTH0::YEAR0$!z=! CLEAR SEARCH LINET!(12):27);:(12)Z!m! SEARCH MENU!(13):(1):"THE COMPUTER WILL FIND ONLY THE RECORDS"""WHICH MATCH THE FIELDS YOU ENTER. IF NO";:"FIELDS ARE ENTERED, ALL RECORDS WILL ŠŠΠΠ٠Π٠٠٠٠ΠΠΠˠà̠̠Ӡ͠ĠΠΠӠŠӠΠΠŠŠȠΠϠΠϠŠϠΠȠɠɠ٠ȠΠӠ̠ΠŠȠΠàŠȠɠɠҠz                                            z!#??     Ġ ԠîŠРвРРϠ"Ԡ$!Ҡ"ӠӭǠ 04/18/83 09:30H *******************************************z *** HELLO PROGRAM, SHOP SAFETY SERIES *** *** COPYRIGHT 1983, ARGYLE & WINGTIP *** ******************************************* 20010 1010: MAIN PRO  14228,120H VTAB 22: PRINT TAB( 9)"(C) COPYRIGHT 1983 ABRAXAS"N l  MAIN PROGRAM SEQUENCE t : D$(4):105: DRAW LOGO ON SCREEN 3:1 D$;"RUN ST_INFO":U180,86 880,84" 5103,840 7119,85> 9130,84M 10141,85f "COURSEWARE" NEXT t 180,121 1180,118 12103,120 13118,119 4134,119 7148,120 14164,120 15181,119 5198,119 4214,119GRAM SEQUENCE) d DRAW LOGO ON SCREEN 6 i1:0:3O nD$"BLOAD ABC.TABLE"d s232,0:233,96:y x "ABRAXAS" NEXT }180,51 280,49 3104,49 4120,49 5135,49 6151,50 5166,49 7182,50 "BASIC" NEXT ŠӭύԠڠԠź̍ԠźōĺȺź٠ӠĠҠԺɍ֍ (CHOICE$)CCHARSī40251C1("Z")C1C132d(C1(" "))((C1("A"))(C1("Z")))ī4060|C1(BACK$)ī4050(CHOICE$)0ī4070(CHOICE$)1CHOICE$"":4045CHOICE$(CHOICE$,(CHOICE$)1)(C1);:"_";:(C1);:4070MBER":" OCTOBER":" NOVEMBER":" DECEMBER">(3900D2X< PRINT FOOTERgF(22):(1)P40);40);39);:(22):(1)ZI140:"-";:Id"PRESS 'RETURN' TO CONTINUE: "; GET RESPONSE (CHOICE$)CHOICE$""2200:ICE1:CHOICECMAXCHOICE1%3710+@ DISPLAY MONTHJ3200x"USE THE ARROW KEYS TO SELECT THE MONTH"~" JANUARY":" FEBRUARY":" MARCH":" APRIL"" MAY":" JUNE":" JULY":" AUGUST"4" SEPTE CHOICE|CHOICE1/~(1):(CTABVCHOICE1)T"-->";:(14):"<--";:(24):(1)^2200y(1):(CTABVCHOICE1)4);:(14):4);C1(RET$)ī3790(C18)(C111)CHOICECHOICE1:CHOICE0CHOICECMAX(C121)(C110)CHOICECHOABV8:CMAX12:3700# MNTHCHOICE)@ DISPLAY PERIODSJ3200v$" USE THE ARROW KEYS TO SELECT YOUR")12);"CLASS OR PERIOD".3I18:8);I:I`3900jt SELECT BY ARROWSy REQUIRES CTABV, CMAXz OUTPUTS' ";?z (12):(1):"LAST NAME: __________________________<";i (13):4000:4500:(CHOICE$)0ī3450 LASTNAME$CHOICE$  GET CLASS PERIOD 3600 CTABV9:CMAX8:3700 PERIODCHOICE   GET MONTH 3800 CT 3900:(1):(7)F\ (7):"ENTER YOUR FIRST NAME AND PRESS 'RETURN'";Ta CCHARS26f (10):"FIRST NAME: __________________________<";p (13):4000:4500:(CHOICE$)0ī3430u FIRNAME$CHOICE$w (7):(1):"ENTER YOUR LAST NAME AND PRESS 'RETURNORMATION BEFORE THE";:"TEST BEGINS. IF YOU MAKE A MISTAKE," "YOU CAN USE THE LEFT-ARROW KEY TO ERASE.";::"YOU'LL ALSO BE ABLE TO MAKE CORRECTIONS" "AFTER ALL THE INFORMATION HAS BEEN ":"ENTERED."4 3900> H GET NAMER 3200W 7600l C$""v 4 HEADER .. STUDENT INFOK :I140:"-";:Iu 20((HEADER$(1))2));:HEADER$(1) 20((HEADER$(2))2));:HEADER$(2) I140:"=";:I   INITIAL SCREEN 3200::= "PLEASE ENTER SOME INF  GET CHAR C1 = 16384,128:C1(16384)128:16368,0C \  GET STUDENT INFOR ! :HEADER$(1)TITLE$:HEADER$(2)SUBTITLE$ & 3300:"";C$ + C$"SHOW MENU"ī3190 . 8100:ZINFO0İ9000:990 0 3400 : 3500:3550 D 7800:7900NEN QUEST & A"& {D$;"READ QUEST & A"= TITLE$:SUBTITLE$M D$;"CLOSE"S d  MAIN EXEC 1900:8500:4400:5500 :3100 C$""ĺD$;"RUN INSTR" 8700:8200 * 4 PRESS RETURN TO CONTINUE >16384,128:16368,0 ND TSENT$"  WILL NOT PRINT ""8 L11:L9(TSENT$)S L9L11TWIDTHī1760f L9TWIDTHL11 (TSENT$,L9,1)BLANK$1760 L9L91:1740 2700 L9(TSENT$)L1L91:L9(TSENT$):1730   l GET Q&A FROM DISK vD$;"OP   BLANK OUT AN AREA<  REQUIRES PARAMETERST  T1TABV, T2TABH,o  TWIDTH AND TLINES (T1TABV):(T2TABH) #I1TLINES (TWIDTH);:(T1TABVI):(T2TABH) 2I n  ARRANGE DISPLAY  REQUIRES TTAB, TWIDTH ATRL-D RET$(13):BLANK$" "/ D1$RET$D$T BACK$(8):ESC$(27):BELL$(7)~ QWIDTH22:QTABV3:ANTABH25:QLINES17 Q3TPMARGIN4:A3TPMARGIN3 AWIDTH40ANTABH:A1TABV6 A4TABV21  MAIN PROGRAM &2000 D$;"RUN QUIZIT"   PROGRAM ST_INFO5 BY ROBERT CARL COLEF( (C) 1986cd VARIABLE DECLARATIONSxQUEST$(50),ANS1$(50,5)}ANS(50),SRITE(50),S2RITE(50)HEADER$(2)RANS$(6):RMAX6WANS$(5):WMAX5TBOO$(8):TBOO8 D$(4): C          (11):(5)::I130:" ";:IGI17::(5):" ";:(34):" ";:Ii (19):(5):I130:" ";:I:P (ADD CORRECT ANS)Z(13):TTAB7:TWIDTH27dI0nII1:(QUEST$(Q),I,2)"--"II1:5260xI(QUEST$(Q))I(QUEST$(Q)):52600:"-";:I0d"PRESS 'RETURN' TO CONTINUE: ";6R SCREEN FOR INCORRECTZ:F1SOUND1į150,100:150,100:180,10TSENT$WANS$(WMAX(1)1):TWIDTH35:TTAB11700(9):"THE CORRECT ANSWER IS:" (BOX FOR CORRECT ANS)  & HEADER .. STUDENT INFO= :I140:"-";:Ig 20((HEADER$(1))2));:HEADER$(1) 20((HEADER$(2))2));:HEADER$(2) I140:"=";:I  < PRINT FOOTERF(22):(1)P40);40);39);:(22):(1) ZI148,0  GET CHAR C1 H16384,128:C1(16384)128:16368,0Nc INVERSE VIDEO~ FOR SUBROUTINE 1700 (TTAB):IL1L9 IL1L9 (TSENT$,I,1)BELL$Ğ:2750 (TSENT$,I,1)ESC$ĝ:2750 (TSENT$,I,1); II1NUMQUESQUEST$(I)(ANS(I)3J15BANS$(I,J)IJPI\ABREAKlD$;"CLOSE"r MAIN EXEC1900:8500:5500840011009500:8000:9900*4 PRESS RETURN TO CONTINUE>16384,128:1636L1L91:L9(TSENT$):1730 &? PRINT HEADER DATAM(2):(1)Z&:40);~0I1QLINES:(QWIDTH1):" ":I:40);:bl GET Q&A FROM DISKvD$;"OPEN QUEST & A"{D$;"READ QUEST & A"TITLE$:SUBTITLE$:NUMQUES S2RITE(Q)0+ ARRANGE DISPLAYT REQUIRES TTAB, TWIDTH AND TSENT$m WILL NOT PRINT ""L11:L9(TSENT$)L9L11TWIDTHī1760L9TWIDTHL11(TSENT$,L9,1)BLANK$1760L9L91:17402700L9(TSENT$)BER BETWEEN 1 AND 5";:1520!67@ CORRECT ANSWERpDF1SOUND1Ĺ768,1:769,171:770:768,1:769,191:770J(1):(23):RANS$(RMAX(1)1);TF9PASS1SRITE(Q)1^S2RITE(Q)1hr INCORRECT ANSWER|5000F9PASS1SRITE(Q)0(A4TABV):(1):"SELECT NUMBER AND PRESS 'RETURN'. ":C10bC2C1:2200:(A4TABV2):(1):39);~(36):(A4TABV):(C1);C1(BACK$)Ė(1):" ":1520C1(RET$)ī1525C1C2:(C1("1"))(C1("5"))Ģ(A4TABV2):(1):"PLEASE SELECT A NUMTH:TLINESQLINES. 1300:(QTABVA3TPMARGIN)O TTABANTAB2:TWIDTHAWIDTH2Z A15l (ANTABH):A; TSENT$ANS$(Q,A):TNUMA 1700 A   GET STUDENT RESPONSE T1TABVA4TABV:T2TABH1 TWIDTH40:TLINES24T1TABV:1300: BLANK OUT AN AREA/  REQUIRES PARAMETERSG  T1TABV, T2TABH,b  TWIDTH AND TLINESz (T1TABV):(T2TABH) #I1TLINES (TWIDTH);:(T1TABVI):(T2TABH) 2I n x DISPLAY ANSWER T1TABVQTABV:T2TABHANTAB TWIDTHAWIDF9PASS2:9300:1130 3  DISPLAY QUESTIONM T1TABVQTABV:T2TABH1m TWIDTHQWIDTH:TLINESQLINES 1300:(QTABQ3TPMARGIN) 4);::" QUESTION "; Q;" ": :: TSENT$QUEST$(Q) TWIDTHQWIDTH:TTAB1 1700    L RUN QUIZ' V9100:2100B `:5800:5900:F9PASS1S jQ1NUMQUESv o(F9PASS1)(SRITE(Q)1)ī1161 t1800:1200:1400 ~1500:C1("0")ANS(Q)İ1600:1160 1650 (QABREAK)(F9PASS1)İ8800 Q (F9PASS1)(F2REP1)RL-D RET$(13):BLANK$" ". D1$RET$D$S BACK$(8):ESC$(27):BELL$(7)} QWIDTH22:QTABV3:ANTABH25:QLINES17 Q3TPMARGIN4:A3TPMARGIN3 AWIDTH40ANTABH:A1TABV6 A4TABV21  MAIN PROGRAM &2000 D$;"RUN STARTUP" o" PROGRAM QUIZIT4 BY ROBERT CARL COLEE( (C) 1986bd VARIABLE DECLARATIONS~xQUEST$(50),ANS1$(50,5)}ANS(50),SRITE(50),S2RITE(50)HEADER$(2)RANS$(6):RMAX6WANS$(5):WMAX5TBOO$(8):TBOO8 D$(4): CT              PROGRAM AND SAVE CHANGES"IT9$"PLEASE ENTER YOUR SELECTION. ":2600O*i4 GET MENU SELECTIONq>C$HC(C$)("0")R(C1)(C5)ī2110 GET SCORE ZREC D$ D$;"READ RECORDS, R";ZREC Z$ D$V ` TEST:ZVLD$ZVLD$"I":I:T9(0)!> INSTRUCTOR'S MAIN MENUXT1$"MAIN MENU":2500`:"1. DISPLAY FILES (WITH DELETE OPTION)":"2. PRINT FILES":"3. SHOW UTILITIES MENU":"4. DELETE ALL RECORDS ON DISK": "5. EXIT THEDELETE RECORDS ON DISKq_v(10):"DELETE ";::"ALL RECORDS";::" ON THE DISK? (Y/N) "n:CCHARS11100:((CHOICE$,1)"Y")((CHOICE$,1)"y")ī1960((CHOICE$,1)"N")((CHOICE$,1)"n")ī1990BACK$;:1930ZVLD$"":I1MRECS 'Y'=YES, 'N'=NO"RET$:2600L!C$:(C$"N")(C$"n")İ2700:1300:1820v&2800:8900:D1$;"OPEN RECORDS, L256"+F0:ZREC1MRECS:(ZVLD$,ZREC,1)"V"ī18500FF1:2300:2400:C1İ8800:ZRECDD1$;"CLOSE RECORDS":8700bl :"QUESTIONS MISSED ONCE: ";:I1NUMQUES:(Z$,61I,1)"0"ĺI;",";PI::"QUESTIONS MISSED TWICE: ";:I1NUMQUES:(Z$,111I,1)"0"ĺI;",";I PRINT FILES T1$"PRINT FILES":2500:7400:7200:1300T9$"ANY CHANGES?BACK$;:16502 DISPLAY FILES SCREENF"RECORD #";F:f" LAST NAME: ";(Z$,27,26)"FIRST NAME: ";(Z$,1,26)" PERIOD: ";(Z$,53,1)" DATE: ";(Z$,56,2);"/";(Z$,54,2);"/";(Z$,58,4)NUMQUES((Z$,162,2))EETURNS ZZ=1 TO QUIT3JZZ0:2500:(5):(13):1700TT9$"PRESS 'RETURN' TO CONTINUE"RET$"PRESS 'D' TO DELETE"RET$"PRESS 'M' FOR MAIN MENU "Y2600rCCHARS1:1100:(CHOICE$)0ī1690|CHOICE$"M"ZZ1:1690CHOICE$"D"İ4100:1690 IF NON-NUMERIC, THEN RETURN C = -1= "" RETURNS C = 0ZC(CHOICE$):C0ī1590r(CHOICE$)0ī1590zI0II1:I(CHOICE$)ī1590((CHOICE$,I,1)" ")((CHOICE$,I,1)"0")ī1530,C16@ DISPLAY RECORD ZRECD R DISPLAY SEARCH FIELDS%(7):(1)?I15:40);:I:(7)Y"LAST NAME: ";LNAME$" PERIOD: ";:PERIOD0ĺPERIOD;:" MONTH: ";:MNTH0ĺMNTH;:" YEAR: ";:YEAR0ĺYEAR; CONVERT CHOICE$ TO NUMBER C%(12):CCHARS2:1100:1500:(C0)(C12)İ7300:1350D KC0MNTHC] L7300:MNTH0ĺMNTH P(10):(12):CCHARS4:1100:1500:(C0)İ7300:1360 UC0ī1380 ZC100CC1900 _C1985ī1360 dC0YEARC i7300:YEAR0ĺYEAR nx SEARCH FIELDS1 (4)::12);"SEARCH FIELDS":; (1400v 2(7):(12):CCHARS26:1100:CHOICE$""LNAME$CHOICE$ 77300:LNAME$ <(8):(12):CCHARS1:1100:1500:(C0)(C8)İ7300:1340 AC0PERIODC B7300:PERIOD0ĺPERIOD3 F(9):02(%(10):(1):"PLEASE INSERT THE PROGRAM DISK"<(%2600k(%(12):(1):"AND PRESS RETURN TO CONTINUE"(%(14):(1):YL$(%10 DTINUE"'$2600$'$(16):(1):YH$:'$D$;"OPEN LOOKUP"Q'$D$;"WRITE LOOKUP"b'$IMAX:ZVLD$y'$D$;"CLOSE LOOKUP"'$D$;"OPEN RECORDS,L256"'$ZREC1(YJ1)'$D$;"WRITE RECORDS"'%YG$(ZREC)'%ZREC'%D$;"CLOSE RECORDS"'%(%250PEN RECORDS,L256" &'$YJ19260)&)$YJ2<&,$ZREC1(YJ1)S&6$D$;"READ RECORDS"b&9$YG$(ZREC)l&J$ZREC&T$D$;"CLOSE RECORDS"&$ SAVE TO OTHER DISK&$&$2500&$::::"PLACE DESTINATION DISK IN DRIVE 1"'$:"AND PRESS 'RETURN' TO CONx#(17):(1):"PRESS 'RETURN' WHEN DONE";YK$J%# CHECK NUMBER OF RECORDSr%#D$;"OPEN LOOKUP":D$;"READ LOOKUP"%#IMAX:ZVLD$:D$;"CLOSE"%#YJ1240%#(ZVLD$,YJ,1)"V"9150%#YJ%# YJ IS NUMBER OF RECORDS +1%# GET RECORDS&"$D$;"OD#2500$F#::?$P#"PLEASE HAVE A FORMATTED DISKETTE READY"i$U#"TO BE USED AS THE DESTINATION DISK"$Z#(12):(1):"PLEASE INSERT THE SOURCE DISK NOW"$_#(14):(1):"THE SOURCE IS THE DISK WITH THE"$`#(15):(1):"FILES TO BE SAVED"$n#2600,%ŠǠΠˠĠӠ̠ˠ٠ΠƠŠˠԠΠ̠Ӡ͠Ġ٠̠Š̠ȠڠӠڠ                                                           ؠ҇ΠōϠӠćˠ̍ˠŠčŠčɯϠҍĠԠ٠ϠΠ͍Š۠ŠҠנŠŠҠŠ٠ҍξϠŠǠŠҍ̭þξϠٍ̠ҮŽĠՠŠϠŠҠٿԠŠˠĠӠԠΠˠĠӠ٠ϠՠԠǿ$:GRc*1DNSjwŠԿſΠԿſſԠӮӠþϠΠϠΠՠҠ٠Ҡ٠Ϡ΍٠ӮŠΠL   LϠ젃Š𠁠Ƞɠź̪ӯؠԉȠҠńϠ̠̠ΒȤŠ͠㠩υe h QQQQQ<JWdv&crK.М LHHH?!=>@AH IL=K>Lhhh`HHH ; ( L -hhh` : :  ,% f f4,$ ɀ@  RSQzmVVW` `DE]^ /].^ E̞`DE `HHH/.0+>0jj.9hhh`( 01 0㎓/%` f`RS`KȱL`KȭL`DERS ` ` I,`DE]ȹ]Ȍ  E`,0 /R.SDE$,/ ` f` : :   oOɃ  hhhhhh`+t+TPɍɬC+L,)  o : L f f`   t+L:,     `H jjH9mmL[mmhh`  # L# # 3,0ޭR S   ` .H h. ` % fɽQ ʎ`8`HH Uɽ"̦̦88hh` ȹHH`%) ` f `,%0 f `,% f ` f` `  f `hh" XL  ̅ $T+  # o? : L  hh` %)`ʽQ08`  `  ?,06 /,0&莤 ,0欧ȌP8``ȈQ`  UɽQ 莣Ȍ`8`  U$'   hhh`, `Hhݯ`h`# q  ` Y  # LK ` RRSS`R S8`RSDE  `iiiQLk RLk H m hLk S%RQrU o00Щ莢ɽదɬUɽ̢ʎ! o : Lm  ɛhhL%H% h% ` ` `HHH  hhh`HHH : 7 , ͭ) ; # ͭ  ; ` o ɱɸ" L; )  o ɱɳ# L_ )`  o ɱɸ" L ) o ɱɳ# L ) ##` L N D   , b Y L> b @   Lvم380` X L !   - `" X    i( ! o , и` X$i( " X ,        ŠԠ̮ŠנԠٮԍōԍˍԍΠŠנƠ٠ƠŠŠӠϠŠǠĮ٠ˠ٠ӠԠŠŠӠԠϠԍˍԠ̍ōōŠҠŠŠӠϠŠĠŠՠȠΠŠ׮ԠԠϠԧӠԠȠŠŠ̠ϠŠԮōŭƍŭҍŭȍŭȍŠŠĠŠ٠ΠŠӠĠǠŠŠŠԧӠĠ٠ĠĠҠŠԠӍŠ΍ŠōōȠƠԍˠȠŠŠՠŠ٠ӠΠŠנҠŠ٠̠ԭӮ̍ƮîîҍҍĠנҠٍéӍˮӠԠΠӠΠŠĠ׮Š٠ӠԠ٠ϠŠŠƠҠԠ٠ϠŠĠ׮׍ōٍԍ̍ˠΠƠŠŠŠՠŠԮϠ          êŦƥ堠ѥԀհť՞ŠÊĨȘƸ+QQàҠ蟠ՙ蠌â蠹鰠ѠMŠ𻩠éȰ堤ȠzȥŃ蠠栠Ϡ砠Ū𠠺蠉ʱ̠ŲŅӬƠŠ蠠ƠϠ堠𠁠Ʌ΁ӠčϠՠȠϠŠԠٿŠōȠĠՠſĠĠ٠ӍŠӍǍˠӍԠԠōŠΠˍˠӍ٠ӍԍĠΠ͠ԠŠҠƠŠǠӍӠ٠٠ϠŠčӠō$$$ 6666677??XX 9>>???'''$$$,,,---555>>>????XXXXXX06677??<<$$$$$ 6666677??<<??<<$$%%----..6677?? $$$$$''????>>#%%%%%%%%%%%:<<<<<<<<<<<$)..---%%%<<>>?? 1555566>>>???$$$$$$!XX 9>>???'''$$$,,,---55 X9>>?????'''$$$$$$$,,,-----558?'''$$$,,,---555666>>>???<<$$`] !De2??????<<<<$$$$$$$$$$$$,-------------..?????????????<<1666666666666 )------%$$$$$$$$$$$$#$$$$$$,,,,,,,555555566>?????? 16666366666666...---%%%$$$<<C$HC(C$)("0")R(C1)(C6)ī2110 GET SCORE ZREC D$"":I1MRECS:ZVLD$ZVLD$"I":I:T9(0)/L INSTRUCTOR'S MAIN MENUfT1$"MAIN MENU":2500n:"1. DISPLAY FILES (WITH DELETE OPTION)":"2. PRINT FILES":"3. SHOW UTILITIES MENU":"4. DELETE ALL RECORDS ON DISK":( b$l DELETE RECORDS ON DISK*qmv(10):"DELETE ";::"ALL RECORDS";::" ON THE DISK? (Y/N) "|:CCHARS11100:((CHOICE$,1)"Y")((CHOICE$,1)"y")ī1960((CHOICE$,1)"N")((CHOICE$,1)"n")ī1990BACK$;:1930)ZVLD$"ANY CHANGES? 'Y'=YES, 'N'=NO"RET$:2600Z!C$:(C$"N")(C$"n")İ2700:1300:1820&2800:8900:D1$;"OPEN RECORDS, L256"+F0:ZREC1MRECS:(ZVLD$,ZREC,1)"V"ī18500FF1:2300:2400:C1İ8800:ZRECDD1$;"CLOSE RECORDS":8700Z$,162,2))S:"QUESTIONS MISSED ONCE: ";:I1NUMQUES:(Z$,61I,1)"0"ĺI;",";^I::"QUESTIONS MISSED TWICE: ";:I1NUMQUES:(Z$,111I,1)"0"ĺI;",";I PRINT FILES T1$"PRINT FILES":2500:7400:7200:1300+T9$İ4100:1690BACK$;:1650$@ DISPLAY FILES SCREENT"RECORD #";F:t" LAST NAME: ";(Z$,27,26)"FIRST NAME: ";(Z$,1,26)" PERIOD: ";(Z$,53,1)" DATE: ";(Z$,56,2);"/";(Z$,54,2);"/";(Z$,58,4) NUMQUES(( ZREC!D RETURNS ZZ=1 TO QUITAJZZ0:2500:(5):(13):1700TT9$"PRESS 'RETURN' TO CONTINUE"RET$"PRESS 'D' TO DELETE"RET$"PRESS 'M' FOR MAIN MENU "Y2600rCCHARS1:1100:(CHOICE$)0ī1690|CHOICE$"M"ZZ1:1690 CHOICE$"D" NUMBER C3 IF NON-NUMERIC, THEN RETURN C = -1K "" RETURNS C = 0hC(CHOICE$):C0ī1590(CHOICE$)0ī1590I0II1:I(CHOICE$)ī1590((CHOICE$,I,1)" ")((CHOICE$,I,1)"0")ī1530,C16@ DISPLAY RECORDARn%x DISPLAY SEARCH FIELDS3(7):(1)MI15:40);:I:(7)g"LAST NAME: ";LNAME$" PERIOD: ";:PERIOD0ĺPERIOD;:" MONTH: ";:MNTH0ĺMNTH;:" YEAR: ";:YEAR0ĺYEAR;  CONVERT CHOICE$ TOIODA F(9):(12):CCHARS2:1100:1500:(C0)(C12)İ7300:1350R KC0MNTHCk L7300:MNTH0ĺMNTH P(10):(12):CCHARS4:1100:1500:(C0)İ7300:1360 UC0ī1380 ZC100CC1900 _C1985ī1360 dC0YEARCi7300:YEAR0ĺYE   GET SEARCH FIELDS? (4)::12);"SEARCH FIELDS":I (1400 2(7):(12):CCHARS26:1100:CHOICE$""LNAME$CHOICE$ 77300:LNAME$ <(8):(12):CCHARS1:1100:1500:(C0)(C8)İ7300:1340 AC0PERIODC B7300:PERIOD0ĺPER 'Y'=YES, 'N'=NO"RET$:2600= C$:(C$"N")(C$"n")ī1240S 2700:1300:1220q D1$;"OPEN RECORDS, L256" F0:ZREC1MRECS:(ZVLD$,ZREC,1)"V"ī1270 FF1:2300:2400:C1İ1600 ZZ1ī1280 ZREC:8700 D1$;"CLOSE RECORDS" 0)ī1180, y(CHOICE$)1CHOICE$"":1155P ~CHOICE$(CHOICE$,(CHOICE$)1)j BACK$;:" ";:BACK$;t 1180 CHOICE$CHOICE$C$ C$; 1120   DISPLAY FILES T1$"DISPLAY FILES":2500:7400:7200:1300 T9$"ANY CHANGES? 1010 .7000 B& L GET NAME= Q RETURNS CHOICE$ R VCHOICE$"":C$""i `C$:C$RET$ī1190 b(CHOICE$)CCHARSī1135 eC$"Z"C$((C$)32) j(C$" ")((C$"A")(C$"Z"))((C$"0")(C$"9"))ī1170 o(C$BACK$)((CHOICE$)Љ  PROGRAM -- INSTR4 BY ROBERT CARL COLED (C) 1986ZD$(4): CTRL-DiRET$(13)yD1$RET$D$BACK$(8)1000 MAIN LOGIC60002000:2100C5ī1070C69000C1200,1800,3000,1900 !! ! ! ! ! !!!!!!!!!