' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#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 ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 ˆʎõĵ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- (  Ϡ@跻~!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볩쳢8 DH E𳈈췍Ȍ X0 · JLǵ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 ~(` d ֠z# u` DIRECTION OF WORD/ WORD PLACEMENTH 450-CHECK IF WORD e LOCATION CONFLICTS WITH AN ALREADY ENTERED WORD  510-PLACE WORD IN  SEARCH  1000-OBTAIN SEARCH AND * SYSTEM PARAMETERS4l NORMAL-v 100-CHECK THAT INITIALF ROW AND COLUMNa WON'T FORCE WORDu OFF ARRAY 300-UPDATE ROW AND COLUMN FOR ENTRY NEXT LETTER 400-DETERMINE STARTING  ROW AND COLUMN AND WL-LENGTH OF LONGEST0 WORD IN SEARCHK X-INDICATOR OF WHICHe DIRECTION WORD IS BEING ENTERED INTO ARRAYD **********************N * LINE DOCUMENTATION *X **********************b 10-RESET SWITCHES TO PRINTER INTERFACE,T PW-WIDTH OF PRINTER:^ LINEVh Q-NUMBER OF WORDS IN er SEARCHx| R-ROW NUMBER RS-ROW NUMBER SAVER SL-WORD SEARCH LENGTH SW-WORD SEARCH WIDTH TL-TOTAL NUMBER OF  LETTERS IN WORDSN WORD SEARCH3 MS-MAXIMUM SIZE OFO EITHER WORD SEARCHb DIMENSION| N$(*)-ARRAY HOLDING ROWS OF WORD" SEARCH ANSWER, PC-PERCENT OF SEARCH6 TO BE WORDS@ PS-SLOT NUMBER OFJ D$;"CATALOG",9999:Q$#,D, --FINAL STATISTICS k,:F$:3:" FINAL STATISTICS "s,:,"GRADE";15);"NUMBER","------------------------"," A";15);H(15):," B";15);H(16):," C";15);H(17):-" DOPY FILE";Q$+2180C+"ANOTHER COPY OF SAME FILE ?(Y/N) ";Q$T+Q$"Y"4010v+"ANOTHER COURSE ? (Y/N) ";Q$+Q$"Y"3950+F$SA$++r --LIST CATALOG ROUTINE +|:+"WANT TO SEE CATALOG Y/N? ";:Q$+Q$"Y"4280+,PY DATA FILES <*Z:F$:6::"--- COPY DATA FILE MODE"::G*dSA$F$e*n"ENTER COURSE -- ";F$*:"INSERT DISKETTE":*4210*"PRESS RETURN TO READ FILE ";Q$*1850*:6:"INSERT DISKETTE"*4210 +"PRESS RETURN TO START C6335504) "W";:FG0SG(II,1):FG64FG71ĺ(FG);<) :c) FGH(1)H(15)H(15)1:"A":3600) FGH(2)H(16)H(16)1:"B":3600) FGH(3)H(17)H(17)1:"C":3600) FGH(4)H(18)H(18)1:"D":3600)"F":H(19)H(19)1)*P --COM$(I)NZ$NM$(I)NA$NZ$NM$(I)4(f :NA$NZ$3450d(k NA$NZ$:NM$(NK(J));:SG(NK(J),1)63ĺWD$;n(p ::(z NA$:NA$:"TWO NAME THE SAME":Q$:I170::( --LETTER GRADE CONVER- SION SUBROUTINE ( :20);"FINAL GRADE : ";) FG "DO YOU WANT TO PRINT HISTOGRAM Y/N? ";:Q$?' Q$"Y"İ6000H' ::N' m' --NAME SORT SUBROUTINE '* :F$:6::"SORTING":'4 NA$"A":NM$(0)" "'9 I170:NK(I)I:'> J0KK:NZ$"ZZ"'H I1KK'R NM$(I)NA$NK(J)I:II1KK (\ N::0&l PHP:XC0&q A$:)&v I1HIA& XCXC1:XC16XC1I& XC[& PP40H(I)MGs& PP40PPHJ:3300& PP0PP0& J1HJ:39,PPP:PP1:& & "MAGNIFICATION FACTOR = ";MG;:" NEW FACTOR? ";MG$:MG(MG$)& MG0MG203170-'F D C B A"<% I15:J20I:H(I)H(J):F% 3165e% --HISTOGRAM SUBROUTINE y% HI20:HJ2:HP0% A$" 10 20 30 40 50 60 70 80 90"% I120:H(I)HH(I):%] SM0:I1HI:SMH(I)SMH(I)%^ :MG(35SM)&b :20)1SZSZX(J):2960-$ TSTSSG(II,J)X(J)3$ L$ FG(TS(100SZ).5)\$ SG(II,0)FG|$ J(FG5.99):HH(J)HH(J)1$ ::$ NM$(II);20);"AVERAGE : ";:FG0ĺFG$ SG(II,0)FG:$ --HISTOGRAM SUB A-F $ HI5:HJ7:HP3% A$" --"::$#, " A GRADE --";H(1):@#6 " B GRADE --";H(2):\#@ " C GRADE --";H(3):x#J " D GRADE --";H(4):~#T #^ -FINAL GRADE SUBROUTINE #h TS0:SZ0#m SG(II,1)63FGSG(II,1):SG(II,0)0::::NM$(II)::#r J1ZZ$| SG(II,JG64ĺ"-";SG$" :2822'" Q1ZZX" Q;10);SU$(Q);30);:SG(II,Q)1ĺSG(II,Q)p" SG(II,Q)1ĺ"N/A"w" Q" PQ12830" P005::P0" " --LETTER GRADE STANDARD SUBROUTINE #" :F$:6:6);"-- LETTER GRADE STANDARDS (Y/N)?";Q$:Q$"N"ī1780)1800:220031800=2030l SUBROUTINE TO COMPUTE STANDARD DEVIATION| GG1:XX1" LIST SCORE ";X$:X(X$):X0XU1810X(G)X:X01880&GG10TTX:DDX2DNN1N1810$X CO CONTINUE";:,8' ORIGINALLY THIS PROGRAMQ8' IS FROM OCTOBER 1981 MAGAZINEx8$' PAGE 166 OF 'CREATIVE COMPUTING'8.' BY DR. W. TEOH, PURDUE UNIVERSITYN TO GO ON"::7$2630e7$::"ENTER W GRADE 0 OR A-F ";Q$:(Q$,1)"W"Q$(Q$,1):Q$"W"Q$"0"t7$(Q$)0ı7$Q$"0"Q$(64)7$(Q$)64(Q$)70ı7$SW27$Q(Q$):Q63Q71SG(II,1)0Q:I2ZZ:SG(II,I)1::9400 8'"HIT ANY KEY TOAKNK(J)I:SG(I,0);5);NM$(I):SG(I,0)SG(I,0)101:II1KKd6#SG(I,0)AZSG(I,0)AKAZSG(I,0)u6#:AZ0J706#AKAZ:J:56006#"HIT ANY KEY TO CONTINUE";:Q$:6$ --STUDENT WITHDRAWAL 7$:F$:6:"---STUDENT WITHDRAWAL MODE":":JJ045K#SG(I,1)63SG(I,1)71SG(I,0)0::9072@5P#J1ZZ^5Z#SG(I,J)1JJJJ1:9070z5d#SG(I,0)SG(I,0)SG(I,J)5n#:SG(I,0)((SG(I,0)(ZZJJ)).5):5o# --SORT ON SG(0,KK) 5p#:57005s#AK1015x#J0KK:AZ1015#I1KK=6#SG(I,0))63Ă:80504TJJ1:4Y(SU$(JJ),1)"."JJJJ1:8025q4^JJJ1ZZ:(SU$(J),1)"."SG(I,J)SG(I,JJ)JJJw4c4hSG(I,JJ)1:4rSX4:4(# SORT ON GRADE AVERAGE 42#:"ONE MOMENT PLEASE"47#"COMPUTING AVERAGES"4<#I1KK5F#SG(I,0)0 REMOVE LOW SCORE 3C:F$:6y3F:"LOW TEST SCORE WILL BE REPLACED WITH -1 THIS REMOVES THE GRADE FROM THE AVERAGE"3G:"SHOULD I UPDATE DISK FIRST? Y/N ";:Q$3HQ$"Y"İ21803I::"I'M DOING IT I'M DOING IT"3JK1KK:INK(K) 4OSG(I,1INT 2CO$" ":621052"PRINTER SLOT ?";SLOT$L2D$;"PR#";(SLOT$)Z21785,132b2:n2I039z2J0392S%J,I)2CH$(CO$,S%1,1)2CH$;2J:2I22A$28D$;"PR#0":2BCO$" %&?* STOP WHEN ENOUGHOH 1160-INITIALIZE ARRAYSjR 1220-ENTER EACH WORD\ IN ARRAYSf 1290-FILL BLANKS WITHp RANDOM LETTERSz 1380-PRINT SEARCH 1440-PRINT WORDS IN SEARCH P$"81":'v Z.39P$"80":5' Z.53P$"79":K' Z.69P$"78":a' Z.72P$"77":w' Z.77P$"76":' Z.86P$"75":' Z.96P$"74":' Z1.05P$"73":' Z1.10P$"72":' Z1.15P$"71":' Z1.25P$"70":& Z1.14P$"92":.& Z1.02P$"91":E& Z0.92P$"90":\& Z0.82P$"89":r&& Z.77P$"88":&0 Z.71P$"87":&: Z.66P$"86":&D Z.53P$"85":&N Z.39P$"84":&X Z.25P$"83":&b Z0P$"82": 'l Z.26% Y77L$"C-":'% Y74L$"D+"::% Y72L$"D":N% Y69L$"D-":`% Y0L$"F":v% Z2.3P$"99":% Z1.82P$"98":% Z1.71P$"97":% Z1.59P$"96":% Z1.48P$"95":% Z1.37P$"94":& Z1.25P$"93":ADESb$1 YOU WANT TO CHANGE THE CONVERSION OF PERCENTS TO LETTER GRADES.v$6 Y97L$"A+":$@ Y94L$"A":$J Y92L$"A-":$T Y90L$"B+":$^ Y87L$"B":$h Y85L$"B-":$r Y82L$"C+":$| Y80L$"C": OR MINUS NUMBER, E.G. +4)";AD$1# AD(AD$);# 2490# ::" WOULD YOU LIKE TO ENTER EACH SCORE SEPARATELY FOR THE SCORE(Y/N)?":Q$:Q$"N"ī2830# Q$"N"ī2850# 2030# 2810#" $, SUBROUTINE TO CONVERT PERCENTS TO LETTER GR%" ADJUSTING NATURAL PERCENT" ::" WOULD YOU LIKE TO ADJUST THE NATURAL PERCENT GRADE(Y/N)?":Q$:Q$"N"ī2840## ::" HOW MANY PERCENTAGE POINTS WOULD YOU LIKE TO ADD TO EACH SCORE IN THE NATURAL PERCENT COLUMN? (ENTER PLUS SCORES AGAIN(Y/N)?":Q$:Q$"N"ī2300?! 2740\! PR$"Y"COUNTER0:2680u! AN$:COUNTER0:2680! DISPLAY OF STANDARD DEVIATION AND MEAN AT END OF SCORES DISPLAY! "STANDARD DEVIATION IS ";S" "THE MEAN IS ";M860:" ";L$ F 2655J P Y;:9:Y(100(1((UY)U))):Y;:2860:" ";L$; Z 18:YAD;:YYAD:2860:" ";L$;:3000:27:P$;:Y(P$):2860:" ";L$ _ PR$"Y"2680 d COUNTERCOUNTER1 n COUNTER20ī2720 x W5! 0::" WOULD YOU LIKE TO SEE THETED STANDARD":" PERCENT PERCENT CURVE":"======================================="g COUNTER0r W1N} YX(W) X(W)02690 Z(YM)S( AD0ī26402 Y;:9:Y(100(1((UY)U))):Y;:2860:" ";L$; < 3000:19:P$;:Y(P$):2==================="- :" ";NAME$4 0D 3380:::\ DISPLAY OF SCORESm AD0ī2540 "SCORE NATURAL STANDARD ":" PERCENT CURVE PERCENT ":"=======================================" 2550Y "SCORE NATURAL ADJUS(X(W)))8 X(W1)X(W)ĺ"<*>";:YX(W):W?B W1YX(W):2440HL :1SV YX(W)e` X(W)0ī2460~j X(W1)X(W)7ī2440t CHX(W1)Y:CH10ī2440~ GA1CH1:X(W1)GA;:5:"!":1:GA Y;:5:"! <*>"; W 1:"====================(E)2280BX(W)!X(W)X(E),X(E)B3E:W::" WOULD YOU LIKE THE FREQUENCY OF EACH SCORE GRAPHED (Y/N)?":Q$:Q$"N"ī2490 3380: GRAPHING ROUTING  "======================================="$ W1N1. X(W)0z CONVERTINT Z SCORES TO PERCENT SCORES. Z IS THE MEASURE OF THE STANDARD DEVIATIONS ABOVE OR BELOW THE MEAN1800:1320 RANKING SUBROUTINE:::" ";::" NOW SORTING ":W1N1EW1NX(W)X;:Y(100(1((UY)U))):Y;:2860:" ";L$:4AD0ī2120}>" THE ADJUSTED PERCENT SCORE IS ";:YYAD:Y;:2860:" ";L$HZ(YZM)SR" Z SCORE IS ";Z\3000f" THE STANDARD CURVE SCORE IS ";:34:P$;:Y(P$):2860:" ";L$p206 IS ";D::0L SUBROUTINE TO DISPLAY INDIVIDUAL SCORES:"ENTER '-1' TO RETURN TO MAIN PART OF PROGRAM" :"---------------PRINT SCORE ";Y$:Y(Y$)Y1Ċ0:2300 YZY**" THE NATURAL PERCENT SCORE IS "MPUTE MEAN, VARIANCE, STND DEVIATION.bMTN<lVDNM2GvS(V)[ PRINT RESULTSe3380" NUMBER OF SCORES ";N" MEAN OF SCORE ";M" VARIANCE IS ";V" STNDRD DEVIATION ";S" T VALUE IS ";T" D VALUE" WHAT IS THE N VALUE? ";N$:N(N$)Q" WHAT IS THE T VALUE? ";T$:T(T$)|" WHAT IS THE D VALUE? ";D$:D(D$)" WHAT IS THE MEAN VALUE? ";M$:M(M$)18002030" WOULD YOU LIKE ALL THE SCORES RANKED WITH THEIR VALUESD DEVIATION AND NOT RAW SCORESt|" HAS THE MEAN AND STANDARD DEVIATION BE COMPUTED (Y/N)?";Q$:Q$"N"ī1700" WHAT IS THE VALUE OF THE MEAN? ";M$:M(M$)" WHAT IS THE VALUE OF THE STANDARD DEVIATION ? ";S$:S(S$)2030&";NAME$:" IF YOU WISH TO ADD TO THESE YOU MAY ENTER -1 WHEN FINISHED. YOU MAY ALSO SAVE THIS IN A NEW FILE.":1320h" ENTER ADJUSTMENT TO NATURAL PERCENT IF NONE AT THIS TIME, ENTER '0' ";AD$:AD(AD$)r WORKING ONLY WITH STANDARD$;"OPEN";NAME$;",L4" GG1<D$;"READ";NAME$;",R";GJNAME$(G)i(NAME$(G))0GG1:1620~X(G)(NAME$(G))"SCORE ";X(G)XX(G)"X0ī1620,TTX6DDX2@NN1J1500TMTN:VDNM2:S(V){^D$;"CLOSE ";X$:X(X$) PGG1:X(G)X/ZX0ī1390MdTTX:DDX2:NN1:1350hnD$;"OPEN";NAME$;",L4"uxG1N1GN1X(G)1D$;"WRITE";NAME$;",R";GX(G)GD$;"CLOSE";NAME$1880:2200 OPENING OLD FILEG0 OF THE FILE ? ";NAME$:1470(" WOULD YOU LIKE TO RECORD THIS DATA ON DISK FOR LATER USE (Y/N)?";Q$:Q$"N"QU0:17602 WRITING FILE<" WHAT WILL BE THE NAME FOR THIS RECORD ON DISK? ";NAME$:QU1F" LIST SCORE POSSIBLE SCORE ? ";U$:U(U$)v" IS THIS THE FIRST ENTRY OF RAW SCORES (Y/N)? ";Q$:Q$"Y"ī1320 " DO YOU WISH TO ENTER DATA FROM THE DISK (Y/N)?";Q$:Q$"N"ī1640:D$;"CATALOG"::)" WHAT IS THE NAME PRESERVE FLEXIBILITY AT EVERY POINT. PERHAPS IT WILL HELP YOU TAKE THE DRUDGERY OUT OF GRADING ASSIGNMENTS AND TESTS.":" <<>>";Q$:1260 INITIAL QUESTIONS:X(100):AD0$" WHAT IS THE HIGHEST E MEAN IS HIGH.":"IF YOU WOULD LIKE TO DEVELOP YOUR OWN CURVE, ANSWER 'NO' AT THE END OF THE RANKING WHEN ASKED IF YOU WISH TO SEE THE RANKING AGAIN, AND THE COMPUTER WILL ALLOW YOU TO ADJUST THE CURVE"::"THIS PROGRAM HAS TRIED TOENEFICIAL ONLY IF THERE IS A WIDE SPREAD OR VARIANCE IN THE SCORES. IN OTHER CASES IT IS MORE BENEFICIAL TO GRADE BY NATURAL OR ADJUSTED (CURVE) PERCENT.""THIS IS ESPECIALLY THE CASE WHEN STUDENTS HAVE DONE WELL ON A TEST AND THPLEASE ENTER -1. "  :"THIS PROGRAM WILL GIVE YOU THE NATURAL PERCENT (THE PERCENT OF NUMBER CORRECT WITHOUT ANY CURVE) AND THE NORMAL CURVE PERCENT AND SCORE." :" <<>>";Q$ :: "GRADING BY STANDARD CURVE IS BSTED AND CONTINUE WITH THE REST OF THE RAW SCORES AT A LATER TIME." ~"YOU ARE ALSO ABLE TO SAVE YOUR SCORES ON DISK. YOU MAY ADD TO THEM AT A LATER TIME IF YOU WISH."  :"WHEN YOU ARE FINISHED ENTERING THE LIST OF RAW SCORES, ī1260 ` INSTRUCTIONS} j::"THIS PROGRAM IS TO HELP SIMPLIFY GRADING FOR TEACHERS. IT HAS SEVERAL OPTIONS."F t:"THE TEACHER MAY ENTER ALL THE RAW SCORES AT ONE TIME OR ENTER SOME OF THEM, AND THEN WRITE DOWN THE VARIABLES LI C U R V E R O U T I N E "n .::::" BY GERALD GONDERINGER" 8::"--------------------------------------" BGG11000: LD$(4):NAME$(70) V23:" DO YOU NEED INSTRUCTIONS (Y/N)?";Q$:Q$"N"! CURVE ROUTINE PROGRAM2 WRITTEN BYO GERALD GONDERINGERf ST. BONIFACE ELGIN NE. 68636 **APPLESOFT BASIC**C $:::"--------------------------------------             :I02000:I:1120>:"CLASS OR INDIVIDUAL? (C/I) ";:QQ$H5700\K1KK:INK(K)lPQ1ĺ::III:T$NM$(I)QQ$"I"12602630PQ1İ55002750"-------------------------------------"2910::3530 Q$"1):j:F$:66o"CODE"10)"TEST"30)"WEIGHT":ptI1ZZ:I5)SU$(I)30)X(I):::"HIT IF OK"~J5)SU$(J)30);:Q$:(Q$)0X(J)(Q$)SSSSX(J)9999:Q$SS01200:::"WEIGHTS MUST ADD UP TO 100": III2750*PQ1QQ$"C"1060D9999:Q$:(Q$)27ıWQ$"ZZZ"K70]$c.8 --FINAL GRADE ROUTINE =I1520:H(I)0:HH(I)0:L:F$:6:"--- FINAL GRADE MODE"::V2840`SS100eJ1ZZ:IJZZ:X(I)SS(ZZJ --LIST GRADE MODE ?:F$:6:"---LIST GRADE MODE"::i"CLASS OR INDIVIDUAL? (C/I) ";:QQ${QQ$"C"1015:F$:6:2630PQ1İ5500II0İ27509999:Q$:(Q$)27ı9705700K1KK:INK(K)PQ1İ5500"ENTER CODE -- ";C3:F$;" ";SU$(C):6=2630FCT0S :F$:6n"NAME";15);NM$(II): "TEST NAME";15);SU$(C):*"GRADE";15);SG(II,C):4:>CT0750HCTCT1R"ENTER CORRECT GRADE ";SG(II,C):SW2f780U$(ZZ):6:"NAME";20)"GRADE"::=NNM$(I);20);:SG(I,ZZ)_XSG(I,ZZ)1SG(I,ZZ)101620b:::"GRADE NOT BETWEEN 0 AND 100"::Q$:580l:SW2: --CHANGE GRADE ROUTINE :F$:6:"--- CHANGE GRADE MODE ":::2570::DE MODE":::h&ZZZZ1:"TEST ENDING WITH '.' WILL NOT BE DROPPEDBY REMOVAL OF LOW SCORE ROUTINE.":0"ENTER TEST NAME -- ";SU$(ZZ)5(SU$(ZZ))0ı6I0KK:SG(I,ZZ)0::K1KK:INK(K)?SG(I,1)63SG(I,ZZ)1:620!D:F$;" ";S-NAME CHANGE ROUTINE >:F$:6::"--- NAME CHANGE MODE":]:" TO GO ON"::g2630o:"NEW NAME IS ";Q$(Q$)0ıQ$"A"465SW2:NM$(II)Q$465 --ENTER GRADE ROUTINE :F$:6:"--- ENTER GRA0ZZ:SG(KK,I)0: SW2:245?r --DELETE STUDENT ROUTINE:F$:6:"---DELETE STUDENT MODE":" TO GO ON"::2630KIIKK:NM$(K)NM$(K1):I0ZZ:SG(K,I)SG(K1,I)::K0KK:NK(K)K:KKKK1SW2390 -:6:"INITIAL ENTRY OF CLASS LIST"0 KK0:240N --ADD STUDENT ROUTINE s :F$:6:"---ADD STUDENT MODE" " TO GO ON":: " NAME --- ";Q$ (Q$)0Q$"ZZZ"ı Q$"A"230 KKKK1:NK(KK)KK NM$(KK)Q$ I:"ENTER CHOICE: ";:Q$:Q$;:998:(Q$)13Č998R Q(Q$)64:Q1Q26135 Q230,160,460,370,520,1080,920,160,160,160,4910,1670,690,160,9000,160,1800,4500,3360,1330,160,160,9400,8000,160,160 60 :135 --INITIALIZATION " :F$ES"/ Z" HANGE NAMES "24)"EST AVERAGE"[ _" ITHDRAWALS"24)"OUT LOW GRADE"u d24)"INAL GRADES" i24)"ENAME TEST" n"SORT FILES"24)"ILL TEST": s" TUDENT NAMES" x" N TEST AVERAGE"23)"UIT/UPDATE DISK"5 20 1200, <:9)"TEST GRADING PROGRAM"H >TB20(F$)2:TB)F$:Y APQ0İ5600 F"CHANGE NAME FILE"23)"GRADE ROUTINES": K" IST NAMES"24)"RADES LIST" P" DD NAMES"24)"NTER GRADES" U" ELETE NAMES"24)"ODIFY GRADW1: D$"CATALOG" :' PQ0G 6);"GRADES PROGRAM":::^ #"COURSE: ";F$m )(F$)0Āv *47 -1850:216,0:60 /(222)5KK0ĺD$"DELETE"F$ 0216,0::"NO ";F$;" FILE"::"DO YOU WANT TO START ONE Y/N?";:A$:A$"Y"ĺ:0"************************** w MODIFIED BY HARVEY P NELSON 13 OCT 1981 ************************** NM$(70),SU$(20),SG(70,20),H(20),HH(20),X(20),NK(70)NW$" (WITHDRAWN)":WD$" (W)" D$(4):S                   CT".";6);CA$(CT) N936. XC(CT)C(CT)1I bCW$(CT,C(CT))W$(CT,W)R l360p v"LIST WHICH CATEGORY ";N N1NN1ĺ(7);:680 C(N)0710 ::"NO WORDS IN THIS CATEGORY"  :"PRESS ANY KEY TO CONTINUE"; A$ 390 A$"L"630 A(A$)# 9361 ACT500Q "SORRY, THAT IS INCORRECT.s "THE CORRECT CHOICE IS: ";CT| 510 "THAT IS CORRECT." CT:1  CT".";6);CA$(CT) 24:"PRESS ANY KEY TO CONTINUE"; & 0A$ :CT:1 D "X1N1 ,X' 6X;".";6);CA$(X). @X6 J21e T"---------------------------------------"p ^34,21 hCT((8)N1)1 rW((8)17)1 |W$(CT,W)""W$(CT,W)"X"370  22 W$(CT,W): "WHAT CATEGORY IS THIS FROM ";A$ NS (Y/N) ===>";AN$) (AN$,1)"Y"40001 16\ "HOW MANY POSSIBLE CATEGORIES DO YOU"t :"WANT (2-20)";N1 N12N120N1(N1)ĺ(7):30 X1N1 CA$(X) N0 NN1 W$(X,N) W$(X,N)"X"270 230 X 936 3# CA$(27),W$(27,20),CW$(27,30)6C(27),CC$(30)>:X(A$"SAT / PSAT":3000^2<A$"VERBAL PREPARATION":3000F:PA$"SYNONYMS TEST":3000ZdA$"PROGRAMMED BY LARRY SELTZER"n3000xI116014 "INSTRUCTIO              TIME ON A NEW DISK. ('1'END7'=':]':::::::::::::::::::::::::::f'ENDl'&:'':::::::::::::::::::::::::::'(:'+:::::::::::::::::::::::::::N TO RUN. IT WILL WIPE OUT H&ALL THE FILES YOU HAVE WRITTEN. N&z&YOU SHOULD ONLY RUN THE RESET ROUTINE &WHEN YOU A) WANT TO CLEAR YOUR &ARTICLES FROM THE DISK OR B) YOU ARE &RUNNING THE SQUEEZER PROGRAM FOR THE "'FIRST %F%PRESSING THE RESET CHOICE KEY (#4 IN p%THE PROGRAM AS OPPOSED TO THE RESET %KEY ON THE UPPER RIGHT CORNER OF THE %KEYBOARD WHICH YOU DO NOT WANT TO %PRESS - PLEASE!) WILL CAUSE A SPECIAL &INIT SECTIOUTINE 3$(AT LINE XXXXX) CALLED 'FLAGON'. 9$d$NOW WHEN YOUR BEAST COMES ACROSS THE $'SET' FLAG IT KNOWS THAT IT MUST NOT $REINIT THE HEADER FILE - LEST ALL YOUR $HARD-TYPED ARTICLES BE LOST !!! (SOB! %SOB!) ROUTINES AND SET UP THE HEADER TEXT T#FILE. Z##HAVING SET UP HEADER THE PROGRAM GOES #ON TO CHANGE THE 'SET' FLAG TO 1. IT #DOES THIS BY ACTUALLY MODIFYING THE $PROGRAM VIA THE EXEC FILE SUBRO:::::::::::"@:."A*** EDIT AN ARTICLE ***4"B:T"C:::::::::::::::::::::::::::"WHEN YOU FIRST RUN THE CIDER SQUEEZER "A FLAG CALLED 'SET' IS SET TO 0. THE "MACHINE READS THIS FLAG AND KNOWS THAT "IT MUST RUN THE INITIALIZATION '#PRINTER 3)> :" TURN PRINTER ON (Y/N)??";:PR$;)H :q)R PR$"N"ĺ:" THE PRINTER IS ";::" OFF ":::)\ PR$"N"Ċ0:)f :" THE PRINTER IS ";::" ON ":)p DLAY11000:)z 1) ( Z1.37P$"69":-( Z1.48P$"68":D( Z1.59P$"67":[( Z1.71P$"66":r( Z1.82P$"65":( Z2.06P$"64":( Z2.06P$"63":(* SUBROUTINE TO TURN ON/ OFF THE PRINTER )4 SUBROUTINE TO TURN ON/ OFF THE \*U+U*/U*U?U*UժC~p+g/U*Uz`cX*uߪW*u׺oު`U*pժծu+U*U*ߪݪ8U`תժU*U*UU*ת?ժ*U*/U*Uتծ՚8U:`ժW*U*U*U*ת}@0U*U:ppU*`W*U~ת?U*UժW* Վ0pW*U.]*U*U*ժCo|fqN.U~ժUjU*UպUժ~x?/U~תՆժߪժ3pժպ`*p_?.U*Ճժժժ`U*U:ժ՚000\*UW*U*/U*UU*UcCp+*U*Uj~`#???#3 #? ???3 3??c\*uժݪU*UU*u֪ߚ`U*ժծu*U*U*֪8Uߪg`U*U*UzU*?pժ+U*/U*Uߪ8U:ժW*U*U*U*תa}ߪpU*U0?`U*xU*UU*U*Uת?U*= ժՎ00U*U>W*U*U*ժ|?nF@/U֪UjU*U?Uzo@pu0?3 ?33?c??3?3 ??/UժתժՎժ3ժ՚p*`? 0 33c???3? ?333\?.U*ժժժժGW*Uzժպ0p03X*U*U*/U*U/U*u0??3@U*8U*U{תU*U*UժնU*u ժ՞?00U*U:W*U*U*ժՆx|W@+U~ժU:U*Uժ׺Uժc?x0????3 ??33?c???3??;????c/UתՆժ3՚p*?? 0? 33w????;????3??;??3|3/U*ժՃժժժͫժW*Ujxժպ003X**U*/U*U/U*u8U~?p+U*U*U*p00#+ ##+ +#k\*Uժp/U*UU*U֪s0U*=3ժծu*U*U*ת?`u9?ުU*U*U?Uj3`ժ+U*/U*Uߪ,U:ժ|g8U*U*U*U*ժժpYz0?03Wz8U*uժU*U*UU*u ժ՚p=00U*U:W*U*U*ժ՞pxW@+UڪU:U*Uժ?U~*?^0333? 3;?c3 ?03 30c+UժתՃժ3Վp*0 00 ?;k3 333;3333?|3+U*ժժժժ_*Ujժպ0x?3\zת*U*/U*Uպ0U?x*U*U*U*תp;????!)??!!) )#w^*U_?/U*U?U*Uժ_?|383W:0 ??k3? 33?3?3?x?+UjժՇժժժժ/Uj?pUպ`0p|3xժ*U*/U*Uߪ0U~?\*U*U*U*תp;!!?)! !!!))!wV*Uժ+/U*UU*UGqxx8U*U;?+U.]*U*U*תy`g:?pתU*U*U?Uz???`ժ+UzW*U*ߪ?.U*}ժժժ?^~W?`ժ՚0~0?pU*U:W*U*U*ժ|U:|*UڪU:U*UժU~_*?@׎03333 373k3 333 3cx*uժתܪܪת3?pߪp\*@k3003 37c33 3337333333p?+UzժժժWj?pժպ~00|?xժ*U*/U*Uتվ՚0Uo^*U*U*U*תp3 !!)!!!!!))! c^*U_*/U*U?U*Uժ`| SOPHISTICATED,URBANE,SUAVE,COSMOPOLITAN,POLISHED,REFINED,XH QUARRELSOME7R CHOLERIC,IRASCIBLE,BLIB,CIRCUMLOCUTORY,EXPATIATE,XB"SHORT, PRECICE; TO THE POINT" TERSE,PITHY,SUCCINCT,CONCISE,LACONIC,EPIGRAMMATIC,TACITURN,SENTENTIOUS,APHORISTIC,CURT,X  HAPPYSANGUINE,BLITHE,EXULTANT,JOCUND,FELICITY,JUBILANT,BEATIFIC,CONVIVIAL,X  ----"34,213906 "SLOW, LAZY, LIFELESS" SLUGGISH,LETHARGIC,LACKADAISACAL,LANGUID,COMATOSE,TORPID,PHLEGMATIC,LISTLESS,X "REPETITIVE; OVERLY WORDY; TALKATIVE" PROLIX,TAUTOLOGIC,VERBOSE,BOLUBLE,LOQUACIOUS,REDUNDANT,GARRULOUS,G$(N,J)CW$(N,I):CW$(N,I)G$%HI:J+R7\:936GfCA$(N)::Mp[zH1C(N)iCW$(N,H)pH:"PRESS ANY KEY TO CONTINUE";A$936X1N1XX;".";6);CA$(X)X"-----------------------------------";U$ U$"Y"Į:270( U$"N"450K :10:12:"B Y E K I D S !!"] "RUN HELLO"ZYOU WANT TO NAME YOUR QUIZ ";:Q$-I1203["ENTER QUESTION #";I;" ";:T$(1,I)fJ25l$"ENTER ANSWER #";J1;" ";:T$(J,I).J8B"ENTER THE NUMBER CORRESPONDING TO THE CORRECT ANSWER ";LT$(6,I)(VT$(6,I)"1"΂If*p4:10:"YOU FINAL SCORE IS "7z:18:PA::ZP8000ĺF$(1):960sP6000ĺF$(2):960P4000ĺF$(3):960P3000ĺF$(4):960F$(5)23::"HIT ANY KEY TO CONTINUE":XX$:230!"WHAT DO ſ٠ĮҠΠҮԠĮ٠ҠԠŮՠŠԠŠǠšԠŮčҠΠōōҠŠӍϠĠŠàΠŠŧ̠čŠӍΠ΍Π̍סՠĠŠĠԧӠԡŠՠΠӠڠM)ė:10:13:"C O R R E C T":430X :10:7:"NOT CORRECT--TRY AGAIN":X11000:X:e 10:290 23:12:"(PUSH 'ESC' TO QUIT)" 24:8:"(PUSH ANY KEY TO CONTINUE)":Q$ Q$(27)450 S :10:"DO YOU WANT ANOTHER QUIZ ? (Y OR N) # 64:10:"Q U E S T I O N # ";SA @5:10:"- - - - - - - -"L J10:3W TA$(S)r ^15:13:"A N S W E R" h16:13:"- - - - - -" r19:3 |"-----> ";B$(S) W$B$(M)ė:10:A$(M):13:"THE CORRECT ANSWER IS : ";B$(M):430" W$B$( OF TEST FILE?----->TEST.";Z$= }Z$""ė:"CATALOG"::120C [ D$;"OPEN TEST.";Z$s D$;"READ TEST.";Z$z I A$(I):B$(I) R$(I) J1I :10 A$(J):B$(J) J D$;"CLOSE TEST.";Z$ NI J0 S1I " *< P *********************************B U Z10:" THIS PROGRAM WILL ALLOW YOU TO EDIT A PREVIOUSLY ENTERED TEST" _:"PRESS ANY KEY TO CONTINUE ";:Z$ d:10 nD$(4): CTRL D s"PRESS RETURN FOR CATALOG" x"NAME^) *********************************Q * *t * EDIT TEST ( * BY ALBERT LAST *2 * 8-15-80 *< * SAN ANDREAS, CA * F *       D$;"OPEN QUIZ:";Q$,t D$;"DELETE QUIZ:";Q$D~ D$;"OPEN QUIZ:";Q$] D$;"WRITE QUIZ:";Q$i I120t J16 T$(J,I) J I N15 F$(N) N D$;"CLOSE QUIZ:";Q$ J I N15 F$(N) N D$;"CTION #";I2320*J250J5:J1;") ";T$(J,I)QJW f P$T$(1,I) (P$)40ĺP$;:2370$ K3911. (P$,K,1)" "ĺ(P$,K):P$(P$,(P$)K):23308 KB (P$,1)"?"2390L " ?"V ` D$(4)j :"HIT ANY KEY TO CONTINUE";:XX$* 2406*D$(4)P/D$;"VERIFY QUIZ:";Q$h4D$;"OPEN QUIZ:";Q$>D$;"READ QUIZ:";Q$HI120RJ16\T$(J,I)fJpIzK15F$(K)KD$;"CLOSE QUIZ:";Q$7 "QUEST$(6,I) a"TYPE IN THE CORRECT ANSWERS NUMBER OR TO KEEP CORRECT ANSWER";:B$qB$""2030B$"1"B$"2"B$"3"B$"4"20201930T$(6,I)B$I5:"YOUR EDITED QUIZ IS NOW BEING SAVED." 2400!24:ETURN> TO KEEP QUESTION";:B$0&B$""1850?0T$(1,I)B$J:J25PDgNJ1;") ";T$(J,I)mXb"TYPE IN ANSWER #";J1;" OR TO KEEP ANSWER.";:B$lB$""1920vT$(J,I)B$J222010:"ANSWER - ";THE MENU";:XX$240I"WHAT QUIZ DO YOU WANT TO EDIT ";:Q$S2090_I120eo2220u10:"ANSWER - ";T$(6,I)2:"IS QUESTION #";I;" OK";:V$(V$,1)"Y"20302320 "TYPE IN QUESTION OR AND . ANY QUIZMAKING OR EDITING WILL NOT BE SAVED THOUGH."24::"HIT ANY KEY TO RETURN TO E QUIZZES ARE MULTIPLE CHOICE, YOU WILL USE THE '1','2','3' OR '4' KEYS TO MAKE YOU CHOICE."^:"THE QUIZZES ARE TIMED AND IF YOU CHOOSE THE WRONG ANSWER SOME TIME WILL BE TAKENAWAY."Qh:"IF YOU HAVE NOT MADE YOUR OWN QUIZZES THEN YOU CAN TAKEIONS ON PAPER BEFORE TYPING THEM IN.",:"IF YOU MAKE A MINOR MISTAKE IN THE MAKING OF A QUIZ, DON'T WORRY. FINISH MAKING IT, THEN USE THE EDIT FEATURE."624::"HIT ANY KEY TO CONTINUE";:XX$@J13:"INSTRUCTIONS":O:_T"THIZ NOT ON DISK, THE PROGRAM RETURNS TO THE MENU."":"WHEN IN THE QUIZ MAKER MODE BE CAREFUL YOU DO NOT REPEAT A NAME ALREADY ON DISK. THIS WILL REPLACE THE FIRST QUIZ WITH THE ONE YOU ARE CREATING. YOU "%'"SHOULD ALSO WRITE DOWN THE QUEST3:"QUIZ MACHINE WILL ALLOW YOU TO TAKE, MAKE OR EDIT A QUIZ CONSISTING OF 20 QUESTIONS. IT ALSO LETS YOU TAKE A CATALOG TO CHECK WHAT QUIZZES ARE ON DISK."4:"WHEN CHOOSING A QUIZ TO TAKE OR EDIT, IF YOU INPUT A NAME OF A QU<N15FPF$(N) ZNFd23:"IS THE ABOVE CORRECT ";:X$\n(X$,1)"Y"1410fx1250l11:5:"YOUR QUIZ IS NOW BEING SAVED!"240024::"HIT ANY KEY TO CONTINUE"::Z$24013::" INSTRUCTIONS "CORRECT ";:X$$(X$,1)"Y"1200.10205I@N15KR$(N)RN{ EXCELLENT,VERY GOOD,GOOD,FAIR,POORN15"ENTER THE RESPONSE FOR "; N1ĺ"AN ";:1310"A ";R$(N);" SCORE";:F$(N)(N2T$(6,I)"2"T$(6,I)"3"T$(6,I)"4"1130`11:" ":11:1090jt2220~10:"ANSWER - ";T$(6,I)23:"IS THE ABOVE ϠӠҠԍĠ΍Ԡ٠ϠŠŠ΍čԠӠŠ̠ΠҠҍȲ LOSE QUIZ:";Q$ EJ  I+ N156 F$(N)= NV D$;"CLOSE QUIZ:";Q$\ EĠҠȠǍ    Ġ 5EMҠL Šō?FِLÈϚΠ ăκ f ٢  ٦Τ ȹɀI ȄȹH h3 oLP O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @G>W']5Kgvq7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTܙݙᙯ` ??<<<<<<<0UUUUUUUUWB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ăܪȱ L[ĨP?xO_ڹo  ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_o$0 8 P# o ΅ڥυ e epݕ` 4LˎL$ `  rPՆϦ ` ΅υȩ ` Τ PڵxۥΑȥL`hh$ F`` ͏%ֈ`ʤZA^ܙ ݙ0  m7; xx ԅբ H 0  $ ( x$0  xx 0$FԨֹ)U h)װ H 듥֐ι L؆l`w0P`fLPεϵxϱHȱ΅hΈ` J  P` Y $0`  'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄӠȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0X~")XȔ) F*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0hޤȄ h󰩠ɩch cɰ$0 $` dq  u  mʥ` ȹ0 L uߙ`` ӎ$0LL*iS 00)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05  o ` l3 ΃3` 4J G 4&(JJJJ) ` ӏ F٩ $  ΃Ȣ ii)ɰL ̥͐Eʑ˥ʥ˰ਈ$ u~`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOwh(VP`΅h(OM ׁL6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ džة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ Px+L 4P 䏕xL# 48` PxL PeHxeH˰iکeۅȱhڙ=i?BC , LʩM˩I6bVcWdXeYfZg[h\i]j^k_L L3L`) #L $  `  v mL;ʅ˅LM  m         ύٍȠōz #     "ĠȠ ΠĠŠŤ!Ф ԮŤԮΠ Ť ϠŮҠ#ӠAӠҠԠҠ ڠŠԠҠD  (768)0Āj ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..."p ,90 "*"; 36,16(PT$)2) PT$;4 36,31= "*"C Z J132:"*";:J:` z ::" GOOD BYE!": X C.E.WALKER b 1 SEPT 81 l TO PRINT LABELS 3 1/2 IN. WIDE  BY 15/16 IN. HIGH ROW MANY LABLES TO PRINT ?"< " ENTER '0' TO QUIT. ";NO%L NO%0ī500 :"BE SURE PRINTER IS READY & HIT RETURN. ";G$ (4);"PR#1" ,I1NO% 6480 @LN210 JPT$LN$(LN) T400 ^LN h480 r |I (4);"PR#0":20(LN$(10)2::3:108<"B I G LABLE WRITER"hF10:"ENTER UP TO 9 LINES, 30 SPACES EACH!"nd{nLN210x"FOR LINE # ";LN1;:". TEXT? ";LN$(LN)(LN$(LN))30ĺ(7):" TOO LONG--3O CHARACTERS MAX!":120LN :"----H ";:"WHICH? ";A " ";X$:X((X$,2,4)):Y$(A$(B(X)),2,2)V (X$,1)"C"275e XJ1210 (X$,1)"L"İ510:290 (X$,1)"R"İ610:290 (X$,1)"E"ī1010 (X$,1)"S"ī710 (X$,1)"U"İ800:290 (X$,1)"K"İ850:290" ";N;6);(A$(J),7,31):200D (A$(J),2);" ";N;6);(A$(J),7,14)Y JJ1:NN1:170w " PRINT COMMAND BLOCK 32,0:34,20:33,40:936 "[R] RUN [L] LOAD [S] SPACE":"[C] CATALOG [U] UNLOCK [K] LOCK":"[D] DELETE [E] EXIT 1014)16(1015)151į- PRINT CATALOG 5 J1S QQ0A$(0)B$" "r :"CATALOG OF PROGRAMS": (A$(J),7,15)" "ī210 N19N54İ360 N37İ410:Z$"Y"210 X$(A$(J),2,1) B(N)J N19ĺ(A$(J),2)ZZ:LOC OF DOS HOOKSI ZZ(107)(108)2568: LOC OF START OF ARRAYS g _(209),(Z):(210),(Z1) d GET CATALOG INTO STRING iQ,0:Q1,3:Q2,18:Q3,3 n:936 sD$;"CATALOG" xD$;"PR#0":D$;"IN#0":936:33,40:34,0:936 (QQ(977)185:QQ0A$(0)C$" "9 2QQ0A$(0)C$" "W 7D$(4):D$;"NOMON I,O,C"` <15 A3010:STORE ROUTINE TO MASK CTRLS,INV,FLASH AND COMPLETE CATALOG FD$;"NOMON I,O,C" KZZ3037 PQQ(977)185:QQ0ZZ3220 UQ(977)(978)256&R$"DISK # A90 - TEACHERS AIDES"0 5000i:A$(85):B(60):N1: DEFINE ARRAY TO HOLD CATALOGC$" "B$" "I8511:A$(I)B$C$:#I0:R0("TEST WHICH DOS. MODIFY ARRAY ACCORDINGLY.! -          P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f# ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq   ʤ   Y YoܹݾЇ`TP@xL"` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUW PڵxۥΑȥL"`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo   `w0P`fLPεϵxϱHȱ΅hΈ` J  P`  Y $0`  $0 8 P# o ΅ڥυ e epݕ` 4LL#$ `   J$ rPՆϦ ` ΅υȩ ` Τȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe  eѕxh$0 xx ԅբ H 0   $ ( x$0  xx 0$FԨֹ)U h)װ H #֐ι LlޤȄ h󰩠ɩch cɰ$0 J$$` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄӠȆȘHJI@hL"`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ)! Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0h ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` J$ȹ0 LJ$ uߙ`` $0LL*iS 00)h(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) `  F٩ $  J$ Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q#3ؕxQεy NvNδPPPL#"Q8yڅ`Sε{ϵQڵyxȔPMuHOw L3LJ$`) #LJ$ $  %$`  v mL;ʅ˅LM  mdžة * * *     %$% 0LH΢QPHΪ0h$0 )?i J$ h](Њ 7< =j> ? | h8LLlicik*JJJJj*hL<<:=; 8/ S:;8?8>0`:80H8q::L }m Рڍ͍č$(X2,X1)(W$(K),1,1)1930+I1L0LL$(X2(I1)Q0,X1)"."1770wL$(X2(I1)Q0,X1)(W$(K),I,1)1200~IT0I1L01L$(X2IQ0,X1)(W$(K),I1,1)IL$(X2,X1)(W$(K),1,1)&19300I1L0:L$(X2,X1(I ****** ENTRY OF WORD IN THE PUZZLE ******:TD11840H^D01740ThI1L0}rL$(X2(I1)Q0,X1(I1)Q)"."1670|L$(X2(I1)Q0,X1(I1)Q)(W$(K),I,1)1200IT0I1L01L$(X2IQ0,X1IQ)(W$(K),I1,1)ILC0CR0RD11480*R0RL09D01500EC0CL0TD11530`R0RL0lC0CL0|C0C1550P00R0R1570P0"Z1((Y)R0100.01)100PL0,Z2((Y)C0100.01)100P0L06X1(Z1)@X2(Z2),JP1P01Q1- (Y).513105Q1?Q01R((Y).51340[2Q01c<D2rFQ11370zPP0ZQ011390dP00n(Y).751410xD1(Y).251430D0 ****** RANDOM SELECTION OF START POINT ******" "; jIt~J'COUNT1ı<FF$"Y"ĺ(12);HCOUNT1Ny ****** WORD BREAKDOWN ROUTINE ******L0(W$(K)) ****** RANDOM SELECTION OF DIRECTION ******TT1FLAG0T1001260FLAG12210:800:"TURN PRINTER ON":6D$;"PR#1":(27)"E"::1100@1950FLV$1100}. ****** TERMINATION POINT ******8(27)"F";:(12):D$;"PR#0":D$;"RUN HELLO"=B ****** PUZZLE PRINT ROUTINE ******LJ1RVI1C`L$(I,J)C0 "ENTER WORD # "KC "";: *****CTRL-G FOR BELL***** [ W$(K):SE$"N"980m "ENTER CLUE" "___________________________________["; 1:"";CL$(K) (CL$(K))0(CL$(K))35940 1170 KK1 KN910::12:130)"T" A$(21)"U"$ A$(22)"V"3 A$(23)"W"B A$(24)"X"Q A$(25)"Y"` A$(26)"Z"h Y1x L$(I,J)"." *JJ1 4JR800 >II1:JJJ HIC800 RJJR1:III \FLAG1900 fCC1900 p2290 z800 FLAG0:T0:C &A$(3)"C" 0A$(4)"D") :A$(5)"E"7 DA$(6)"F"E NA$(7)"G"S XA$(8)"H"a bA$(9)"I"p lA$(10)"J" vA$(11)"K" A$(12)"L" A$(13)"M" A$(14)"N" A$(15)"O" A$(16)"P" A$(17)"Q" A$(18)"R" A$(19)"S" A$(2UMNS IN THE WORD GAME" C# O "ENTER THE NUMBER IF ROWS IN THE GAME"V R\  "ENTER THE NUMBER OF WORDS TO FIND" N  ******DATA INITIATION****** CL$(40) L$(80,80) W$(N) A$(26) A$(1)"A" A$(2)"B" 12)"T O Z";% 26:"B I T"+ "J ,12)"B R Y I S G W J O P"P 6o @12)"G J R I M X Q Z S C"y JXX1 TH11000::X3ī100 ^:2390 h rK1:J1:I1:JJ1 |"ENTER TITLE OF PUZZLE ";T$  "ENTER THE NUMBER OF COL ZD$(4)d:n110x18:"W O R D"815K18:"G A M E"S15cH11000:j712)"S T D J W B O V S P"12)"R B X V S Z B L E G"12)"H U Q";26:"G T V"12)"H P L A S Q I W L N"       SCHER *# * = MARCH 3, 1980 *X * r (415) 933-4435 * * ******************* $(*)+!h"0 H $(*0 ~)J(  08 j( Ɉɕɛɍ 9 % " H H` L  -r. 8i$L[i i  208013)" P G E 2.HBhi T ii / X v SELECT 1.0 (BY MAC)  1 x ."# R ()(>( H hɛL} Ɉ%ɍZɕi p б0ߥᰧ8#H  )"Y"2460` :"WOULD YOU LIKE THE SOLUTION TO BE PRINTED ON A SEPARATE SHEET? (Y OR N)";FF$t (FF$,1)"N"ı (FF$,1)"Y"2482 RING THE CLUE.";B~ " (EXAMPLE) THE HIDDEN WORD IS ";::"FIG "; :"THE CLUE COULD BE ";::"(QUOTATION MARK) ADAM'S FIRST CLOTHES. GEN. 3:7" : "WOULD YOU LIKE TO USE CLUES IN YOUR PUZZLE? (Y OR N)";SE$ (SE$,1)"N"2482  (SE$,1 EITHER ONE OF TWO PUZZLES. THE FIRST VERSION WILL PRINT THE WORDS THAT ARE TO BE LOCATED IN THE PUZZLE. THE SECOND VERSION WILL PRINT ONLY CLUES TO EACH WORD."t 5)"IF YOUR CLUE CONTAINS A COMMA, OR A COLON, BE SURE TO USE A QUOTATION MARK BEFORE ENTEE IN THE ORIGINAL PROGRAM BY DAVID E. FAHNESTOCK, KD4KO."` 5)"ONE OF THE IMPROVEMENTS GIVES YOU THE ABILITY TO ENLARGE THE SIZE OF YOUR PUZZLE IN THE EVENT THAT IT CANNOT CONTAIN THE NUMBER OF WORDS SPECIFIED."j 5)"YOU HAVE THE CHOICE OF CREATING1$ JJ1:III:CC1:J16. :"WORD # "K" WAS "W$(K)G8 :SE$"N"ıdB "CLUE # "K" WAS "CL$(K)jL 9V 5::"WORD GAME";::" WAS TYPED FROM THE BOOK, BASIC COMPUTER PROGRAMS FOR THE HOME BY CHARLES D. STERNBERG. VARIOUS IMPROVEMENTS HAVE BEEN MAD"":*****CTRL-G FOR FIVE BELLS*****N"THE PUZZLE CONTAINS "R" ROWS"n"INCREASE THE ROWS TO?";R1}R1R2270RR1I1:JJJ"THE PUZZLE CONTAINS "C" COLUMNS" "INCREASE THE COLUMNS TO?";C1 C1C2340 CC2120>36,I:II40!HNUNU13RSE$"Y"2160O\NU5NU0:I15::2170Yf2170opNU2NU0:I40:vzK| CENTERING ROUTINE35(C$)2:(14)C$:*Z1(26(1))1"L$(I,J)A$(Z1))J0IY******PRINT THE WORDS TO FIND******p::2:C$T$:2190vSE$"N"NU0:I15:2070 NU0:I40K1N SE$"N"ĺ"("K") "W$(K);:2100*"("K") "CL$(K);4SE$"N"Ĺ36,I:II15:1)Q)"."18708DL$(X2,X1(I1)Q)(W$(K),I,1)1200?NIGXT0UbI1L01vlL$(X2,X1IQ)(W$(K),I1,1)}vIL$(X2,X1)(W$(K),1,1) ****** FILL OF REMAINING POSITIONS ******I1CJ1RL$(I,J)"."2000LOG"::140# D$;"OPEN TEST.";N$< D$;"WRITE TEST.";N$E I1R J1I1d A$(J):B$(J)k J D$;"CLOSE TEST.";N$ :"ANOTHER ? (Y/N) ";:Z$ Z$"N"ĺ:"RUN HELLO" :11:50IESS ANY KEY TO CONTINUE ";:A$J ZII1::10:"PRINT QUESTION #";I;". ";U dA$(I)g iA$(I)""133m n x"WHAT IS THE ANSWER ? ";B$(I) 90 :10 "PRESS RETURN FOR CATALOG" "WHAT FILE NAME?--------->TEST.";N$ N$""ĺD$;"CATA  :10%A$(300):B$(300):I0:D$(4): CTRL D@(2"THIS PROGRAM LETS YOU WRITE TEXT AS":"EITHER QUESTIONS/ANSWERS OR PLAIN TEXT.":"DO NOT EXCEED 239 CHARACTERS."<P"(WHEN FINISHED PRESS RETURN":"KEY TO SAVE FILE)" U:"PR  OR L> m CANNOT RESTORE FILE L> m FORMAT ERROR   0LTL LbLȱ"퐏 ӥ  8     ҥ `ȱ`hhL  + s RETURN  ɍ`` > 1 L HH   ^ hhH h`    m F$pؠ HhL5#R8=$0pI1`I1 m DISK ERR   ɛ=ɍ ee   Z *   LU  L H8     4 h    4  LQ8*i8e` m INSERT SOURCEL m INSERT TARGET s PRESS  (&Hɠ)?(h`  i  HhH h` p SELECT FILE, FOR A NEW DIRECTORY` p SELECT COMMAND, FOR ANOTHER FILL $ v RETURN OR ESC `"@Ȅȱ  Z m TARGETL| $ v SLOT= DRIVE $JJJJ $( ɍIH h $ ɍI ȑ` (Ȅ$ ɛ L ! ɛ !` $$)? @( ɍɛ)Ɉ&ɕ $  L H8H   G  !% "L "0 1 z L m ANOTHER DIRECTORY ?$ ɍ L m SOURCE   ɍ ɛ ܩhi ȥJJJJLUJKi ԅl(h)JL G ! | G ɠ?2i@ 2 (᩠Lɩ8@A H@Ah@AAd  A LL$* i` .Qt >: ($   ) L m ERROR hhL ` s VOLUME | $$A⩰ v FILEө$ P v FREE SECTOR` % L s Rĩ s Wҩ  s T=$ S=` s SEPTEMBER 1980`$L[($Hi i ()?` RUN BRUN LOAD BLOAD EXEC LOCKUNLOCK COPYRENAMEVERIFYDELETERESTORREMOVE hhH hHHL ,,,` ,L L   .L %$ $$ U$"Y"Į:270% U$"N"450H :10:12:"B Y E K I D S !!"Z "RUN HELLO":10:13:"C O R R E C T":430U :10:7:"NOT CORRECT--TRY AGAIN":X11000:X:b 10:290 23:12:"(PUSH 'ESC' TO QUIT)" 24:8:"(PUSH ANY KEY TO CONTINUE)":Q$ Q$(27)450 S :10:"DO YOU WANT ANOTHER QUIZ ? (Y OR N) ";U# 64:10:"Q U E S T I O N # ";SA @5:10:"- - - - - - - -"L J10:3W TA$(M)r ^15:13:"A N S W E R" h16:13:"- - - - - -" r19:3 |"-----> ";W$ W$B$(M)ė:10:A$(M):13:"THE CORRECT ANSWER IS : ";B$(M):430 W$B$(M)->TEST.";Z$+ }Z$""ė:"CATALOG"::1201 I D$;"OPEN TEST.";Z$a D$;"READ TEST.";Z$h Iz A$(I):B$(I) R$(I) J1I :10 A$(J):B$(J) J D$;"CLOSE TEST.";Z$ NI J0 S1I M(I(1)1) " *A P *********************************G U Z10:" THIS PROGRAM WILL RANDOMLY QUIZ YOU ON THE PREVIOUSLY ENTERED TEST.":Q12000:Q d:10 nD$(4): CTRL D s"PRESS RETURN FOR CATALOG" x"NAME OF TEST FILE?----[) *********************************Q * *y * RETRIEVE TEST *( * BY ALBERT LAST *2 * 8-15-80 *< * SAN ANDREAS, CA * F *      4 0-4ȊȱҠ!@` p INSUFFICIENT SPACE s ANOTHER TARGET ?$hh LT L"ȱ& 01`߿߿8<@DHLPTX\`dhlptx|  @!ϥL  m REPLACE EXISTING FILE ? $ L> m RENAME TARGET FILE ? $ hhLT@ m RENAME $ ɛLL# 0uȊ 4 0S4Ȋ RMICHAEL, CA 95608Gò;Gò 'GRADE MAINTENANCE PROGRAM"AGÀCӍӍ218,819:66663218,821:6666=100:aP$"EDUCATIONAL MEDIA SERVICES"zQ$"COMPUTER CENTER"21:(20(P$)2):P$22:(20(Q$)2):Q$23:(20(R$)2):R$255T11500:T:15 Q110:Q:E:666611,4F:6666+11,4G:6666=4,35H:6666O4,35I:6666b29,36E:6666t4,20J:666629,36F:666629,36G:666635,18K:6666uEE1:FF1:GG1:HH1:II1:JJ1:KK1AA122,1220:66662,227,3,32,217,3,160,13,177,28,240,3,76,45,255,160,56,177,76,162,7,10,144,8,238,115,3,208,3,238,116,3,202,16,242,200,192,196,144,233,96,21,1,0,234 :936L1E4:F18:G35:H16:I24:J29:K36AA02AAL11,4E:66664,356 FREE SPACE POKER 7 I790886:XX:I,XX:I=  169,0,141,115,3,141,116,3,32,227,3,132,28,133,29,169,0,160,3,145,28,160,5,145,28,169,17,136,145,28,165,76,160,8,145,28,165,77,200,145,28,160,12,169,1,145,28,169,0  200,145,28,3(A4.03));::"% USED":!2103 F$"UNLOCK":CRF$"LOCK":UF$"DELETE":b END t936::21: CATALOG FILTER POKER  I768788:PP:I,PP:I 56,72,132,208,160,0,145,209,230,209,208,2,230,210,104,164,208,96,169,160,9RUN":F$"BRUN":&F$"EXEC":,@ FREE SPACE Z33,40:34,0:1:868w:" COUNTING "790:216,0A(883)(884)256K(A.256.5):1:" ";A;::" FREE SECTORS = ";::K;:"K LEFT.";::" ";(1000:34,1:33,20:936:$ LOAD A(Y$)201(Y$)193550T(Y$)194560g(Y$)212570p580&F$"LOAD":0F$"BLOAD"::F$"EXEC":DX RUN b(Y$)201(Y$)193640l(Y$)194650v(Y$)212660F$" FOR COL#2 3h33,19:32,21:34,1:936:33,21:M DISPLAY 3RD COL? k32,0:34,20:33,40:936"DO YOU WANT TO LOAD OR RUN ANY OF THESE PROGRAMS BEFORE DISPLAYING THE REST OF THE CATALOG ";Z$Z$"Y"ıZ$"N"43032,R ASSIGNMENT NUMBER ";A;" IS ";G(N,A)E":"WHAT IS THE NEW GRADE";Q,G(N,A)k6D$;"OPEN G%";A;",L4"@D$;"WRITE G%";A;",R";NJG(N,A)TD$;"CLOSE G%";A^:"DO YOU WANT TO CHANGE ANOTHER GRADE";hC$mC$"Y"C$"YES"ī5000rAD$;"OPEN G%";A;",L4":D$;"READ G%";A;",R";NFG(N,A)[D$;"CLOSE G%";AtD$;"OPEN NAME$,L25"D$;"READ NAME$,R";NNAME$(N) D$;"CLOSE NAME$":"THE CURRENT GRADE FOR ROSTER NUMBER ";N:NAME$(N)%"FOPD$;"WRITE NAME$,R";N%ZNAME$(N);nD$;"CLOSE NAME$"hx:"DO YOU WISH TO CHANGE ANOTHER NAME";pC$C$"Y"C$"YES"5000510011000:"WHAT ROSTER NUMBER DO YOU WANT";N:"WHAT ASSIGNMENT NUMBER DO YOU WANT";R DO YOU WISH? ";N1D$;"OPEN NAME$,L25"J D$;"READ NAME$,R";NXNAME$(N)nD$;"CLOSE NAME$"("NAME NUMBER ";N;" IS NOW ";NAME$(N)2"WHAT IS THE NEW NAME ";<NAME$(N)ANAME$(N)"AVAILABLE"İ7000FD$;"OPEN NAME$,L25"U WANT TO CHANGE",:" 1. STUDENT NAME"F" 2. STUDENT GRADE"b" 3. ASSIGNMENT NAME"" 4. MAX POSSIBLE SCORE"" 5. RETURN TO MAIN MENU":"WHAT DO YOU WISH, MASTER"CC5100,5300,5500,5700,60"WHAT ROSTER NUMBET%,R";AW(A)(D$;"CLOSE ASSWT%"311000H D$;"OPEN L%,L4"^ D$;"WRITE L%,R2"e Ax$ D$;"CLOSE L%". 110003 8 "ANOTHER SET OF MARKS ";B C$L C$"Y"C$"YES"60V 12000` 201011000"WHAT DO YOpI zD$;"OPEN G%";A;",L4",I1LNHD$;"WRITE G%";A;",R";ITG(I,A)[IpD$;"CLOSE G%";AD$;"OPEN ASSNAME$,L25"D$;"WRITE ASSNAME$,R";AASSNAME$(A)D$;"CLOSE ASSNAME$"D$;"OPEN ASSWT%,L4"D$;"WRITE ASSW ASSIGNMENT NAME""ASSNAME$(A)X "WHAT IS THE MAX. POSSIBLE SCORE FOR THIS WORK?"b*W(A)m411000>:"AFTER THE ROSTER NUMBER AND NAME, YOU"H"ARE TO ENTER THE SCORE FOR THAT STUDENT"RI1LN\I;5)NAME$(I);" ";f" ";G(I,A)ZD$;"OPEN L%,L4"*dD$;"WRITE L%,R1"2nLNExD$;"CLOSE L%"KS60s11000:12000:13000:14000y"THE LAST ASSIGNMENT NUMBER WAS: ";LA"WHAT IS THIS ASSIGNMENT NUMBER"A11000 "WHAT IS THE* "HAVE EXHAUSTED THE NAMES, THEN TYPE"6 "LAST"B I150J I;X NAME$(I)t NAME$(I)"LAST"LNI1 NAME$(I)"LAST"I50 I D$;"OPEN NAME$,L25" (I1LN 2D$;"WRITE NAME$,R";I <NAME$(I) FI PD$;"CLOSE NAME$"ISH TO CONTINUE. IF YOU "H :"ENTER 'NO', YOU WILL GO BACK TO THE "{ :"MAIN MENU. ENTER 'YES' TO CONTINUE.";:C$ C$"Y"C$"YES"1209 40 11000: "AS EACH NUMBER APPEARS, ENTER THE" "CORRESPONDING ROSTER NAME. WHEN YOU" ENTER CLASS SET OF MARKS"9 t" 3. RETURN TO MENU"N ~:"PICK ONE:";Cd C1200,2000,1000 :3:13);::"*** CAUTION ***" : :"IF YOU CONTINUE, YOU WILL WRITE OVER" :"ALL NAMES NOW ON THE DISK. ARE YOU " :"SURE YOU W 2. CHANGE EXISTING DATA."= " 3. ADD ADDITIONAL NAMES."^ " 4. RETURN TO MAIN MENU" :"WHAT IS YOUR PLEASURE ";C $C1100,5000,6000,62 L11000 V:"WHICH OF THE FOLLOWING DO YOU WISH?" `:" 1. ENTER CLASS ROSTER." j" 2.OPTIONS:" KQ06 P:"1. ENTER/EDIT GRADE FILES"S Z"2. GENERATE REPORTS"s d"3. QUIT GRADES PROGRAM" n:"WHAT IS YOUR PLEASURE ";C xC1000,20010,32999  11000 :"NEXT CHOICE:"  " 1. ENTER NEW DATA." " > 50000" "";"NOMONI,O,C"-D$""CD$;"MAXFILES 10"OT%(50)zNAME$(50),G(50,50),W(50),ASSNAME$(50)#AVG(50)$M(50)%MA(50)&X(50)'ASSTAVG(50)(210000<11000>A F"YOU HAVE THREE INITIAL                     ASS AVERAGES BY STUDENT."D&pN" 3. CLASS AVERAGES BY ASSIGNMENT."r&zN" 4. RANKED CLASS AVERAGES BY STUDENT"&|N" 5. ALL INDIVIDUAL STUDENT FILES."&}N&N" 6. RETURN TO BASIC MENU"&N" 7. PRINTER ON"&N" 8. PRINTER OFF"'N" 9ED WITH PRINTER USEAGE!%:JQ1ı>%=J:"RETURN TO CONTINUE."F%BJC$L%LJR%VJd%*N12000:13000v%4N14000:16000%>N17000:18000%HN11000%RN:"THE DISPLAY OF DATA IS IN FOUR FORMATS."%WN9%\N" 1. INDIVIDUAL STUDENT FILE."&fN" 2. CLBASSNAME$(I)$BI.$BD$;"CLOSE ASSNAME$"4$BQ$PF GET ASSIGNMENT WEIGHTSj$ZFD$;"OPEN ASSWT%,L4"v$dFI1LA$nFD$;"READ ASSWT%,R";I$xFW(I)$FI$FD$;"CLOSE ASSWT%"$F%8J SUBROUTINE TO DISPLAY 13 LINES OF OUTPUT FOR CRT USE, DELET>N1LN##>D$;"READ G%";A;",R";N/#>G(N,A)6#>NK#>D$;"CLOSE G%";AR#>A^#>N1LNg#>T%0s#>A1LA#>T%(N)G(N,A)T%(N)#>A#>N#>#hB GET ASSIGNMENT NAMES#rBD$;"OPEN ASSNAME$,L25"#|BI1LA#BD$;"READ ASSNAME$,R";I$GES ":M0":W0:T0#":I1LA7":G(N,I)0MM1D":WWW(I)S":TTG(N,I)Z":Ii":W015074":AVG(N)((TW)100)":AVG(N)015075":AVG(N)0":M(N)M":"> SUBROUTINE TO GET ALL GRADES">A1LA">D$;"OPEN G%";A;",L4"#OPEN L%,L4" !2D$;"READ L%,R1"(!2LN;!2D$;"CLOSE L%"A!2h!6 SUB ROUTINE TO READ ROSTER NAMES!6D$;"OPEN NAME$,L25"!6I1LN!6D$;"READ NAME$ ,R";I!6NAME$(I)!6I!6D$;"CLOSE NAME$"!6": SUBROUTINE TO SORT WEIGHTED AVERA"LAST ASSIGNMENT NAME IS:";ASSNAME$(LA). >+] . SUBROUTINE TO GET LAST ASSIGNMENT NUMBER .:::12::"READING FILES": .D$;"OPEN L%,L4" .D$;"READ L%,R2" .LA .D$;"CLOSE L%" / 2 SUBROUTINE TO GET LAST ROSTER NUMBER !2D$;"=PERIOD"`' CLASSPOOP$(2)=CLASS$7j'P$CLASSPOOP$(1)Pt'CLASS$CLASSPOOP$(2)V~'~* SUBROUTINE TO PRINT PAGE HEADINGS*+"PERIOD ";P$; +40(CLASS$))CLASS$+Q0ı +"DATE OF RUN: ";TIME$*+"INCLUDES ASSIGNMENTS TO #";LA( 4+%";A;",R";N0'D$;"CLOSE G%";A.A4:'p' SUBROUTINE TO GET CLASS DATA FOR SHEET HEADINGS'D$;"OPEN CLASSPOOP$,L25"'I12.'D$;"READ CLASSPOOP$,R";I8'CLASSPOOP$(I)B'IL'D$;"CLOSE CLASSPOOP$"V' CLASSPOOP$(1)L4"D$;"WRITE L%,R2"!LA4D$;"CLOSE L%"@JBLNLI1LAe D$;"OPEN G%";I;",L4D$;"WRITE G%";I;",R";J"1"ID$;"CLOSE G%"$J)40X11000b12000lA1LAvD$;"OPEN G%";A;",L4" D$;"WRITE GI)NAME$(I)"LAST"LNI18NAME$(I)"LAST"I50?IXD$;"OPEN NAME$,L25"dIBLN~D$;"WRITE NAME$,R";INAME$(I)ID$;"CLOSE NAME$"D$;"OPEN L%,L4"D$;"WRITE L%,R1"LND;"CLOSE L%"D$;"OPEN L%,zD$;"OPEN L%,L4"/D$;"READ L%,R1"7LNJD$;"CLOSE L%"U12000aBLN17:"ENTER THE ADDITIONAL NAMES NOW.":"AFTER YOU HAVE ENTERED THE LAST NAME,":"JUST TYPE LAST"IB50I;". NAME: ";:NAME$(E NEW MAX POSSIBLE SCORE?"$W(A)=D$;"OPEN ASSWT%,L4"XD$;"WRITE ASSWT%,R";AbW(A)yD$;"CLOSE ASSWT%":"DO YOU WISH TO CHANGE ANOTHER MAX SCORE?"C$C$"Y"C$"YES"50005700p ROUTINE TO ADD ADDITIONAL NAMES"WHAT ASSIGNMENT DO YOU WANT TO CHANGE".SGX"THE MAX SCORE ON";NbAglD$;"OPEN ASSWT%,L4"vD$;"READ ASSWT%,R";AW(A)D$;"CLOSE ASSWT%":"THE CURRENT MAX SCORE FOR ASSIGNMENT""NUMBER ";A;" IS ";W(A):"WHAT IS THT IS THE NEW ASSIGNMENT NAME";/ASSNAME$(A)KD$;"OPEN ASSNAME$,L25"hD$;"WRITE ASSNAME$,R";AyASSNAME$(A)D$;"CLOSE ASSNAME$":"DO YOU WISH TO CHANGE ANOTHER NAME?";C$&C$"Y"C$"YES"500005500D11000(N:5300|11000@:"WHAT ASSIGNMENT DO YOU WANT TO CHANGE";GAcD$;"OPEN ASSNAME$,L25"D$;"READ ASSNAME$,R";AASSNAME$(A)D$;"CLOSE ASSNAME$":"THE CURRENT NAME FOR ASSIGNMENT NUMBER ";A"IS ";ASSNAME$(A):"WHA SPACE BAR TO START COPYING>"T6}"PRESS ANY OTHER KEY TO RETURN TO GRADES PROGRAM"\6}A$p6}A$(32)32150{6}200406}D$"": CONTROL D6}D$;"RUN COPYA"6瀺:"RUN HELLO"6耲 PRINTER ON61:""6" 80N"6""6 7Є TURN PR">5Z}:"WHEN ASKED FOR THE 'SLOT NUMBER' REPLY WITH A <6>"5d}:"WHEN ASKED FOR A 'DRIVE NUMBER', REPLY WITH A <1> FOR BOTH IF USING A SINGLE DRIVE, OR <1> AND <2> IF USING A DUAL DISK DRIVE"5x}:::"LAST CHANCE TO STOP COPYING"6}""Ebí(16384)155ĺ:"RUN HELLO"Edí(16384)160ī50016EÁB13:(7);::EòEò GIVEN TO APPLE COREEò OF SAN FRANCISCO FORFò AINTENANCE PROGRAM **"LDVð50100:8:4)"FROM CREATIVE COMPUTING MAGAZINE"qDXð50100:10:13)"SEPTEMBER 1979"DZð50100:12:13)"BY: JIM HUNTER"D\ð50100:14:6)"MODIFIED BY: JACK L. ESPINAL"D]ú6)"IMPROVED BY STEVE VACZOVSKY"E^ú6)"*REALLY 85CA13(A13)İ19000"CA-C15000PC"AVERAGE TO DATE IS :";AVG(N)VC]CNmCQ1İ34000C:"DO YOU WANT TO SEE THEM AGAIN";CC$CC$"Y"C$"YES"20040C:40050C24100CPò TITLE PAGECR×DTâ6:5)"** GRADE M ASSIGNMENT"HBr"--- ------- ----------":TBsN1LNyBt"ROSTER NUMBER:";N;2);NAME$(N)BwA1LAB|A;7((A)))G(N,A)"/"W(A);20((W(A))));ASSNAME$(A)BG(N,A)140090B20(ASSNAME$(A)))"MISSING"C400\K13(K13)İ19000AfRIAp:"DO YOU WANT TO SEE THEM AGAIN";:C$eAzC$"Y"C$"YES"ī39120pA20040A@ PRINT ALL STUDENT FILES.AE"CLASS-PERIOD :";BS$AJQ1İ33000AO11000AT"NUMBER OF STUDENTS : ";NAhBm"NO. RESULTS "STUDENT";27);"CURRENT";35);"TOTAL"Z@"RANKING NAME";27);"AVERAGE";35);" PTS "k@:RLN11{@K(RLN)1@ K;@10)NAME$(X(R));@ M(X(R))1ī39250@*" ";@4I1M(X(R))@>"*";@HI@R32)AVG(X(R));" ";T%(X(R))A0040&?X ROUTINE FOR RANKED AVERAGES2?bN1LN=?l15000D?vNP?H1LNX?P1d?B1LN}?AVG(H)AVG(B)PP1?AVG(H)AVG(B)HBPP1?B?X(P)H?ƘH?И11000?ژ:"********* RANKED AVERAGES *********"%@䘺:"CLASS";12);jA13(A13)İ19000>tA%>~T0->W09>I1LAQ>TTASSTAVG(I)W(I)^>WWW(I)e>I>CAVG(T(W100)100)>ĕ:"WEIGHTED CLASS AVERAGE TO DATE IS: ";CAVG>Ε:"DO YOU WANT TO SEE THEM AGAIN";:C$>ؕC$"Y"C$"YES"ī38140?╫2A =11000==:"********** ASSIGNMENT SUMMARY *********"n=:"ASSIGNMENT NUMBER CLASS"="NO WT NAME MISSING AVG."=$=.A1LA=8A;=B4)W(A);=L9)ASSNAME$(A);=V27)MA(A);=`36)ASSTAVG(A)>Y ASSIGNMENT/;" ";:M(I)137140L;J1M(I)V;"*";];Jm;36)AVG(I);I13(I13)İ19000;(I;2:"DO YOU WANT TO SEE THEN AGAIN";:C$;:NI:11000x::"*********** CLASS SUMMARY ***********"~::"ROSTER STUDENT CURRENT":Đ"NUMBER NAME AVERAGE":ΐ:ؐI1LN:␺I;;䐭NAME$((A13)İ190009|A 915000I9:"THE AVERAGE TO DATE IS: ";AVG(N)p9:"DO YOU WANT TO SEE THEM AGAIN"x9C$9C$"Y"C$"YES"ī361309:"CHECK ANOTHER ";:C$:C$"Y"C$"YES"ī200409361109 ROUTINE TO SHOW AVERAGES BY STUDENT NUMBER: ";N8;88@12);"ASSIGNMENT";33);"STUDENT"[8J"NO. WT. NAME";36);"MARK"a8Tm8^A1LAu8hA;8j7((A)))W(A);6((W(A))));ASSNAME$(A);8rG(N,A)1362168t33)"MISSING"8v362188x36((W(A)1)))G(N,A)9zA13INTER OFF7ڄ""7䄺" I"#70)7J7 REM ROUTINE FOR CRT OUTPUT7C36100,37000,38000,39000,40000,60,31000,31100,320107 INDV MARKS7110007:"WHAT ROSTER NUMBER DO YOU WANT TO SEE";:N7"110007,:NAME$(N); 8623)"ROSTER٠ԠĠˠŠΠԠōŠΠ΍ŠŠ΍ȠϠӠΠӠҮΧĠ΍Š΍ŠӍΠōԠҠĠŠӠŠŠԍ̍٠ҠٍԍԠŠٍōϠӠΠçˠčΠ΍ƍŠ΍ԠӠŠ͠ǠŠӠ٠̍ԠŠčŠŠנٍ٠΍ҠҍōҮύҍ̍ĠΠĠӠĠĠĠŠΠԠ֠ӍԠӠōҍŠōŠӍĠӠĠŠĠΠԠ͠ΠƠ٠ˍԍϠӠ̠ҠϮ̠΍٠ӍӠ΍àӍȠŠĠԠҠŠŠӍŠǍ٠ŠȍҠ΍΍ԠנĠΠΠԠӠĠō͠ȠӍ΍ӠčϠĠŠĠӠӧΠҠԠōˠ΍ˠ΍ҠՍ٠ӍԠӠΧӠӠōčӍ΍ٍŠӠ٠٧ōύΠύנΠōӍנ٠ӠϠՠĠϠԠΠРΠҍϠӠŠҠΠŠҠǧӍٍٍٍҠΠŠĠԠҍ΍ˠȠƠŠӠΠΠ٠ĠҠԠōӍˠЍٍ΍٠ΠĠ٠ŠΧϠĠӠĠ͍ĠԠҍȍٍ̠ϠĠԧӠҍǠӍN FRANCISCO FOR%& USE OF MEMBERS+(B* LAST MOD. APR 80H,^4 JACK L ESPINALp6 PO BOX 2128 CARMICHAEL, CA 95608>C 'GRADE MAINTENANCE INITIALIZATION"B PROGRAM WILL BE"> :"LOADED AND RUN AUTOMATICALLY IN THE"m :"FUTURE YOU NEED TO ONLY USE THE GRADE" :"MAINTENANCE PROGRAM." 23:"HIT ANY KEY TO CONTINUE." A C XB13:(7);::  " GIVEN TO APPLE CORE$ OF SA84)155ĺ:"RUN HELLO"0 (16384)160ī416` :"THIS PROGRAM INITIALIZES YOUR DISK FOR" :"ONE CLASS PERIOD. IT WILL OVERWRITE " :"ANY GRADES ALREADY ON THE DISK." :"AFTER THIS PROGRAM HAS BEEN RUN, THE" :"GRADE MAINTENANCE600:8:4)"FROM CREATIVE COMPUTING MAGIZINE"R 600:10:13)"SEPTEMBER 1979"u 600:12:13)"BY: JIM HUNTER" 600:14:6)"MODIFIED BY: JACK L. ESPINAL" 21:"PRESS THE 'ESC' TO END" 23:"" (163D$;"WRITE ASSWT%,R";I 03 "D$;"CLOSE ASSWT%"L ,D$;"OPEN NAME$,L25"X 6I150r @D$;"WRITE NAME$,R";I| J" " TI ^D$;"CLOSE NAME$" cD$;"RUN GRADES 1.7"  TITLE PAGE  6:2)"* GRADE MAINTENANCE INITIALIZATION *"/ SE CLASSPOOP$"* D$;"OPEN ASSNAME$,L25"6 I150S D$;"WRITE ASSNAME$,R";I] " "d I} D$;"CLOSE ASSNAME$" D$;"OPEN L%,L4" I12 D$;"WRITE L%,R";I 0 I D$;"CLOSE L%" D$;"OPEN ASSWT%,L4" I150  400 D$""+"";"NOMONI,O,C"1S("WHAT IS THE PERIOD NUMBER?"[2P$z<"WHAT IS THE CLASS NAME?"FCLASS$PD$;"OPEN CLASSPOOP$,L25"ZD$;"WRITE CLASSPOOP$,R1"dP$nD$;"WRITECLASSPOOP$,R2"xCLASS$ D$;"CLO     ōԠΠōčŠӧՠԠŠĠ̠ĠҠԍՠŠŠԠҠ٠ҠٍՠĠĠŠӠΠŠ΍٠ŮՠԠŠҠΡɠčŠō٠ȍ٠ڍŠ΍ԠΠĠ٠ΠٍԠōԠčҠčԠčϠӠ̠ϧϠō٠ՍϠӍϠԠŮՠĠǠŠŠȍΠӍȠΠĠԠĠĠ٠ΠōˍˍҍҍȠҠҠԠĠɍΠӍΠ΍Š΍ŠҍϠΠϠŠРӠӠӠԠč٠΍ŠΠǍŠӠŠҠӠĠϠŠčύ׍̍ӠӍϠӠŠĠҠԠӠӠΠ΍Π΍ŠҠ΍ȠˠϠŠΠĠؠ٠΍٠ˍ٠č͍ŠōȠ͠ӠΠŠԠ̠ӍȠƍ͠ǍϠΠŠΧӠΠЍӍŠӍϠӠŠŠҧŠȍՠǍŠɠύΠ΍Ƞ͠ĠŠҠŠЩ٠ҍŠōÍϠōϠӠҮҧŠٍŠ΍٠ȍˠϧàō٠ӍΠ̍Ԡ͠ӠŠ٠ŧΠϠӍӍȠӍӠӍȠ͠Ġ̠͠ҠԠӠϠҠȍӠӠӍנˠӍΠԠŠΠŠ͠ҍ͠ҍ ΍Π̍ȠԠĠàΠŠΠŠҠӍŠٍĠǍŠǍӠ٠ǍϠΠŠΧӠΠЍΠǍȠ̠͠ӠҠΠҠ̍Ӡ٠ӍŠӍӍĠӍȠ͠ΠŠĠӍנˠӍӠӠӍȠӍӍϠĠ   `饠 " XX200 560. 5:15:"RIGHT"= (7);(7)] 15:"YOU GET ";X;" POINTS"g PPXp 840 3:5:" " 5:12:"YOUR TIME RAN OUT" 6:15:"ANSWER - ";T$(6,I) *O1100 4X(16336) >O HM13500 RM\0A$"" :A(16384)& DA1276400 NXX1> XX0780P b3:5:" "] l3:5:Xf v560 16368,0:A$(A128) A$"1"A$"2"A$"3"A$"4"670 560 T$(6,I)A$730 5:15:"WRONG" L150:Y(16336):L 5:15:" "% :"ARE QUIZZES ON THIS DISK":R "ENTER THE QUIZ YOU WANT TO TAKE ";:Q$\ 2090 22:"PRESS ANY KEY AND THE QUIZ WILL BEGIN.";:X$ I120 16368,0  X500  5:"TIME";:30:"POINTS" 5:X;:30:P &2220 "CHOOSE ONE";:E" JE6E1240C TE450,990,1690,360,1510,420L ^240R hh r:(4);"CATALOG"n | "PRESS ANY KEY TO CONTINUE ";:E$  240  11:16:"FIAT LUX" :"RUN HELLO"  "SPORTS AND ENTERTAINMENT 240$ T$(6,20),F$(5),R$(5)* O 2:11::" * QUIZ MACHINE * ":l 6:12:"1) QUIZ TAKER" 8:12:"2) QUIZ MAKER" 10:12:"3) EDIT" "12:12:"4) CATALOG" ,14:12:"5) INSTRUCTIONS" 616:12:"6) QUIT" @19:7: -( QUIZ MACHINE32H< BYNFiP SAMUEL CHIANGoZudn WITHx  ASSISTANCE FROM ANTHONY CHIANG                ;" DISK AND PRESS RETURN";:" ";DK$-9363CPRESS RETURN";:" ";DK$X936^DK$t936z16368,0:K141340:KK176:KLKH330:NKDO16368,0:K141340]PKK176:KLKH330eQNKT20:N;" ":^:22:"DEFAULT = ";:((41)256(40)14),96:hMSSSırMDSDıw:(DK$,1)"D"ĺ#|"INSERT ";DK$16368,0::"DO YOU WISH TO MAKE ANOTHER COPY?";I$:(I$)0300U '(I$,1)"Y"160k ,(I$,1)"N"290s 1: 6:350:N;::1:I$;" SLOT: ";:L1:H7:330:A,N16: @350:N;::4:" DRIVE: ";:L1:H2:330:+JK(16384):K128330:"DUPLICATE":360: GET DUP DISKC 8:24::"WRITING";::" "\ 710: WRITE A HUNKr 8:24:" " (713)2190 (222)255ij 18::"****** UNABLE TO WRITE ******":290 18::"****** UNABLE TO READ ******"@ "19:: ERROR!+ 5:24:" ":(713)1290F FT255: NOT FIRST RDn DK$"DUPLICATE":360: GET DUP DISKx 275 8:24::"FORMATTING": "INIT XXX,S";SS;",D";SD;",V";(714):FT1 8:24:" " 216,0:222,0 256 DK$ "2 704:717,SS16:718,MS16:719,SD:720,MDG 17:34,16:936T :222,0 "-- PRESS 'RETURN' KEY TO BEGIN COPY --";:" ";I$ DK$" ORIGINAL":360: GET ORIG DISK 5:24::"READING": 707: READ A HUNK (713)2280:ON PROGRAM"::% Z704:CS(718)16A d715,(110)1:BUFSTART[ n716,(112)1:BUFEND I$" ORIGINAL":NCS:A718:310:MSN:N(720):320:MDN:A717 I$"DUPLICATE":NMS:310:SSN:N3MD:320:SDN FT0 5:24:" ":8:24:" 4% ************************C* DISK COPY *a* COPYRIGHT 1980 BY *(* APPLE COMPUTER INC. *2* *<************************F"BLOAD COPY.OBJ0": A$2C0 P:" APPLE DISKETTE DUPLICATI!Ӡ٠ҮŠӮz];]ԠĮ٠ҠӠŮ]]ħQ@qa@ aұ@G`.?$r%cPaҲ@`$  a@ c*Y"4a(ŠŬ)E@>cHcRc\a(Π)f]tp]ΠϠŠŠƠΠϠҠŠƠVWYM6Xa@ ba@F lRұ@ va@F RҲ@a@ aұ@GPaҲ@c q UVWa@ a@F Rұ@q a@F RҲ@q`$  a@F RԲ@E(٠)FR@a@ a@Fa@ a@ q `$ o  a(ҠŠ)FR@a@ a@Fa@a@qY &M60o:a(ŠӠ)Dca(ŠˠȠ)NUJa@To*^a(ԠϠՠԠϠ̠Ӡſ)hR@r]РϠԠΠӠ wq |UVW M6o a(Ҡ)Eұ@E(٠)FR@a@ a@Fa@a@qo a(Ҡ)EҲ@o "a(ҠҠƠР)ToS(ԠϠĠӿ)&@`;@r%q`@*#r9()%q`@*#r9()%qa@ a@F aұ@ "a@F ,aҲ@ 6a@F@b Ba@F DbŬ)@p(ŠŬ)@p(ΠŬ̶)@p()3Nұ@"<rCҲ@"<rC@"<rC@"rN@"<ro.a(ҠŠƠԠРŠө) Rұ@o!a(ҠŠƠĠ) RӠŠŠҠϠŮ)^`.?6@r$c``.?6@r$Zbd6?eM6[Ncd6?eM6o P a(ŠĠ)Q]ĠĠda(Πìɬ)M6(nN@"rC@"rC@"rC@"rx@p(Ġ\P,J@p(ӠǠνٽ)\PL\ZN_d6P]ԇ҇ŮRP;@rTa@ Va()X[0Y]ņŮ Zoa(ӠçϠ)1\oa(Ӡ)\P)>@p(ԠΠŠ)\P.@c@p(ΠƠԠ)\P"B@p(ԠƠӠ)\P.Dc@p(ΠƠĠ)\P"F@p(ԠƠӠ)\P.Hc@p(ҠƠӠΠŠ)Ơ)c-&a(ӠŠĠϠΠŠ)c+(a(ƠҠŬŠ)c+*a(ΠӠƠӠź)c/,a(ĠŠĠӠ)c.]0]2]4]6]8]:\Z)<@p(ŠԠҠ٠͠)\Pc-@p(ΠӠˠĠ)\P\Z2oa(ŠԠӠԠƠ)c. a(ӠĠ٠ӠҠ)c0"a(ƠӠǠڠή)c-$a(Ӡ̠ŠĠɃ N@"(r M6o @p(Ġ)\P @p(٠Š)\P%@p()\P%@p(άήʮ)\P@p()\P,@p(ĠӠԠӠ)\P.@p(ˠϠŠRAL COUNTER( L-LENGTH OF WORD BEINGD ENTERED INTO SEARCH\ LT-RANDOM LETTER n SELECTOR M$(*)-ARRAY HOLDING  ROWS OF WORD SEARCH M(*,*)-NUMBER ARRAY  SHOWING USED SPACES I A-GENERAL COUNTER2 A$-WORD BEING ENTEREDG( INTO SEARCH^2 A$(*)-WORD ARRAYv< B-GENERAL COUNTERF C-COLUMN NUMBERP C$-CONTINUE STRINGZ CONTROLLERd CS-COLUMN NUMBER SAVERn D$-DISC CONTROL SYMBOL x G-GENE:10:"PRINTS A WORD SEARCH"H22:"SPACE TO CONTINUE...'ESC' TO END"X23:20:A$A$(27)ė:20:12:"*** THE END ***"::"RUN HELLO"A$(32)ı5060 ****************** * VARIABLES USED * ****************** 21A$N$(A):N$(A)"")Y1(A$)GN$(A)N$(A)(A$,Y,1)" "NYlN$(A)(N$(A),(N$(A))1)|N$(A)::AD$;"PR#0"20:"ANOTHER ?":5050:10054:14:"WORD SEARCH"6:19:"BY"8:14:"MIKE FISCHER"145)21:"WORDS":(PW5)21:"-----":=A1Q:A$(A),:AE:0:"ALIGN PAPER TO TOP OF FORM TO PRINT OUT THE ANSWER KEY & THEN PRESS RETURN ";:PP$A1PW:"*";:A(PW6)21:"ANSWER":A1PW:"*";:A:A1SL:(PWSW2)D$;"PR#";PS^x(PW11)21:"WORD SEARCH":(PW11)21:"---- ------":"*** ";TI$;" ***":jA1SLA$M$(A):M$(A)""Y1(A$)M$(A)M$(A)(A$,Y,1)" "YM$(A)(M$(A),(M$(A))1)(PWSW2)21:M$(A):A':(PWC1SW(LT(26(1))65/2M(R,C)01370X<C2M$(R)(LT)(M$(R),SW1):1370FCSWM$(R)(M$(R),SW1)(LT):1370PM$(R)(M$(R),C1)(LT)(M$(R),SWC)ZC:Rd:16368,0:"TURN ON PRINTER.":"PRESS ANY KEY WHEN READY.":C$ nQQ1:1100D~"THAT'S ENOUGH WORDS.":"PLEASE WAIT WHILE I WORK."PB1SL\C1SWiM(B,C)0}M$(B)M$(B)"."CBGWL11B1Q(A$(B))G1270A$A$(B)400BG R1SLN$(R)M$(R)!D:"TITLE OF PUZZLE: ";TI$:KG"TYPE IN WORDS - TYPE 'END' TO STOP"eL"ENTER WORD: ";A$(Q)QA$(Q)"END"QQ1:1150V(A$(Q))MSĺ"WORD MUST HAVE ";MS;" OR FEWER LETTERS.":1100`(A$(Q))WLWL(A$(Q))jTLTL(A$(Q)) tPCTLNS MUST BE AT LEAST 10 AND ":"WIDTH MUST BE LESS THAN ";(PW2)1:1010p $M(SL,SW):M$(SL):A$(MS2):N$(SL) ."WHAT PERCENT OF THE LETTERS OF THE":"SEARCH SHOULD BE WORDS? ";PC:PC25ĺ"NO MORE THAN 25%":1070 8PCSWSLPC100BQ1:TL0:WL07 :D$(13)(4):"MAXIMUM PRINTER WIDTH IS: ";PW= } "HOW MANY LETTERS WIDE SHOULD THE SEARCH BE? (MAX.35) ";SW "HOW MANY LETTERS LONG SHOULD THE SEARCH BE? (MAX.20) ";SL MSSW:SLMSMSSL SW9SL9SWPW21060H "DIMENSIO30,340,350,360,370 A' RRS:CCS2 A1L^ C2M$(R)(A$,A,1)(M$(R),SW1):550 CSWM$(R)(M$(R),SW1)(A$,A,1):550 M$(R)(M$(R),C1)(A$,A,1)(M$(R),SWC) &M(R,C)((A$,A,1)):X300,310,320,330,340,350,360,370 0A :1: ^RR1: hCC1:( rCC1:: X(8(1)1)F L(A$)Y R(SL(1)1)l C(SW(1)1) X100,130,160,190,220,240,260,280 RSR:CSC A1L M(R,C)0480 ((A$,A,1))M(R,C)480 AL:A:400 X300,310,320,3 RLSL400 CL1400& 4505 RL1400E CLSW400N 450^ RLSL400g 450v RL1400 450 CLSW400 450 CL1400 "450 ,RR1:CC1: 6RR1:CC1: @RR1:CC1: JRR1:CC1: TRR 16298,0::5000A:"PRINTER SLOT NUMBER IS: ";PS(PS7PS1PS(PS)ĺ"PRINT SLOT MUST BE A WHOLE NUMBER":"BETWEEN 1 AND 7.":X11000:X:3021000dRLSL400nCLSW400x450RL1400CL1400450"" " " " " """""""""