' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈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,&"_]` L/浍굺L  !"#$%&'()*+,-./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#0EB 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`   vLDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_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 iõ`  \ 濭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-(D 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볩쳢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䵍䵐`"L ŵ8ŵH ~(`F d ֠z# u`z#   űŲų Ӡ" Š Ų ӠӠ  ³ ñòóıIJ ij  ӠҠ ̠Ҳ  ±²Ϡ ՠ̠Ҡ ĠҠӠҴ  ̠ҠԠŠҠ T LIST":15491535X(222)5ĺD$;"CLOSE STUDENT LIST":D$;"APPEND STUDENT LIST"uD$;"WRITE STUDENT LIST"}N$ D$;"CLOSE STUDENT LIST" 5530"(3)6:J OPEN AND READ DATA FILE^:3r"TYPE THE NAME OF THE FILE Y043503690&1542BD$;"OPEN STUDENT LIST"_D$;"CLOSE STUDENT LIST"{D$;"OPEN STUDENT LIST"D$;"READ STUDENT LIST"Y$D$:OO1:O31ė:"DISK IS FULL":"PLEASE TELL YOUR TEACHER": Y$N$ĺD$;"CLOSE STUDEN:8)"*** ALPHABETICAL ORDER ***"t ::::"TYPE 'Y' FOR YES OR 'N' FOR NO."::"THEN PRESS THE 'RETURN' KEY." :::"DO YOU NEED DIRECTIONS";:R$ (R$,1)"Y"(R$,1)"N"ė:(7):"PLEASE FOLLOW THE DIRECTIONS.":1410(R$,1)"N"153) B K=SORT LOOP( V X=RND NUMBERA j D=REVERSE COUNTERT ~ Z=SORT LOOPh  J=SORT ARRAY~  X=DATA COUNTER :  INITIALIZE AND DIM : J(10) B$(10):C$(10):E$(10):G$(10):X$(10) : 2D$(4) F: Z# n : * USER INPUTS >:4 R R$=YES OR NOH f L$=1ST WORD\ z M$=2ND WORDp  O$=3RD WORD  P$=4TH WORD  Q$=ALL OF ABOVE :  OTHER VARIABLES :  BUZZ=NOISE LOOP  P=TIMING LOOP . Q=PEEK(49200SER SELECT FILE( & C=NUMBER CORRECT@ : WR=NUMBER WRONGT N V=% CORRECTZ b: v TRY=ATTEMPTS ON EACH  TX=TOTAL PROBLEMS :  NAME INPUT :  U$=FIRST NAME  S$=LAST NAME  N$=FIRST+LAST NAMESER'S SCORING FILE :4 " DATASET FORMAT (F$): 6:P J B$,C$,E$,G$,X$d ^ B$=1ST WORDx r C$=2ND WORD  E$=3RD WORD  G$=4TH WORD  X$=ABOVE IN ORDER :  DATASET FORMAT (N$) :  F$,C,WR,V  F$=U ********************7 * ALPHA ORDER *R2 * *mF * DON SANDBERG *Z * *n * DEC. 22, 1983 * ********************: D$=CTRL D: FILES USED: N$=U          :"PRESS ANY KEY TO CONTINUE.";:Z$+ 501 R D$;"RUN ALPHABETICAL ORDER"X t D$;"RUN CLASS READER4"z  pD$;"RUN WL DELETER" z XD$;"RUN CL DELETER2" b @D$;"RUN CLASS PRINTER" J (#::D:" >";:X$K X$(49)X$(57)ė:(7):"PLEASE FOLLOW DIRECTIONS.":80X X(X$)` D$f X1000,2000,3000,4000,5000,6000,7000,8000,9000  D$;"RUN WORD WRITER"  D$;"RUN STUDENT FILE READER"  D$;"CATALOG"#  n"3. CATALOG DISK."9 x"4. RUN ALPHABETICAL ORDER."e "5. VIEW ALL STUDENT FILES ON SCREEN." "6. DELETE A WORD FILE." "7. DELETE ALL STUDENT RECORDS." "8. PRINT ALL STUDENT FILES ON PRINTER." "9. QUIT." ::::"SELECT";: TEACHER MENU) DON SANDBERG= DEC. 26,1983O( INITIALIZE\2D$(4)b<|F13)"TEACHER'S MENU"P:::"SELECT BY TYPING 1,2,3,4,5,6,7,8, OR 9."Z::"1. CREATE A NEW WORD FILE."d"2. READ OR PRINT A STUDENT FILE."     (4);"RUN TITLE" RED THE 'SPACE BAR'.":"LET'S TRY AGAIN.":::3890FN$U$(32)S$L"TYPE 'Y' FOR YES AND 'N' FOR NO."::"THEN PRESS THE 'RETURN' KEY."::::((40(N$))2):N$:"::"IS YOUR NAME SPELLED CORRECTLY";:R$A 6(R$,1)NAME.":"THEN PRESS THE 'RETURN' KEY.":.FJZ"LAST NAME:";::"";S$n(S$)0ĺ:(7)::"PLEASE ENTER YOUR LAST NAME."::3890(S$,1)(65)(S$,1)(90)ĺ:(7)::"PLEASE TYPE LETTERS ONLY."::38902(S$,1)(32)ĺ(7)::"YOU PRESST NAME."::3710`(U$,1)(65)(U$,1)(90)ĺ:(7)::"PLEASE USE LETTERS ONLY.":::3710(U$,1)(32)ĺ(7)::"YOU PRESSED THE 'SPACE BAR'.":"LET'S TRY AGAIN.":::3710 U$"TEACHER"ĺD$;"RUN MENU"(11)(2:"NOW TYPE YOUR LAST T, ";U$;:"." 3590!CC14P11000:P::.:TB CREATE USER FILEZV:`j~"PLEASE TYPE YOUR FIRST NAME.""THEN PRESS THE 'RETURN' KEY."(8):"FIRST NAME:";::"";U$(U$)0ĺ:(7)::"PLEASE ENTER YOUR FIRSWR1   :( CORRECT RESPONSE. :@ L(5(1))1H :h* L3390,3430,3470,3510,3550> "GOOD JOB, ";U$;:"."R 3590f "WELL DONE!"z 3590 "YOU AMAZE ME!" 3590 "FANTASTIC, ";U$;:"." 3590  "THAT'S RIGHNSWER THE QUESTION.":::29109 (R$,1)"Y"ė::1290? ^ (R$,1)"N"ĺD$;"RUN HE2"d j : WRONG RESPONSE :& BUZZ18:Q(49200):BUZZ: N "INCORRECT, ";U$;:"."b :"LET'S TRY AGAIN."v  P12000:P WR Z V((C100)TX)$" 495096 SEND TO SCORECJ 4610^ "TYPE 'Y' FOR YES OR 'N' FOR NO.":::"WOULD YOU LIKE TO TRY AGAIN";:R$r (R$,1)"Y"(R$,1)"N"ė:(7):"PLEASE FOLLOW DIRECTIONS.":::2910 (R$)0ė:(7):"PLEASE A(32)ĺ(7):"YOU PRESSED THE 'SPACE BAR'.":"PLEASE TYPE THE WORD AGAIN.":2590^ TRYTRY1 Q$L$(32)M$(32)O$(32)P$ Q$X$(H(Z))TRY1İ3110:2130 Q$X$(H(Z))TRY2İ5070 Q$X$(H(Z))TRY1İ3330 Q$X$(H(Z))TRY2İ5270RD AGAIN.":2470 6 :"FOURTH WORD:";::"";P$i2 (P$)0ĺ(7):"PLEASE TYPE IN A WORD.":2590F (P$)8ĺ(7):"PLEASE TYPE ONLY 1 WORD AT A TIME.":2590Z (P$,1)(65)(P$,1)(90)ĺ(7):"PLEASE TYPE LETTERS ONLY.":2590Pn (P$,1))0ĺ(7):"PLEASE TYPE IN A WORD.":2470h (O$)8ĺ(7):"PLEASE TYPE ONLY 1 WORD AT A TIME.":2470 (O$,1)(65)(O$,1)(90)ĺ(7):"PLEASE TYPE LETTERS ONLY.":2470 (O$,1)(32)ĺ(7):"YOU PRESSED THE 'SPACE BAR'.":"PLEASE TYPE THE WOLEASE TYPE ONLY 1 WORD AT A TIME.":2350rj (M$,1)(65)(M$,1)(90)ĺ(7):"PLEASE TYPE LETTERS ONLY.":2350~ (M$,1)(32)ĺ(7):"YOU PRESSED THE 'SPACE BAR'.":"PLEASE TYPE THE WORD AGAIN.":2350  :"THIRD WORD: ";::"";O$) (O$,1)(90)ĺ(7):"PLEASE TYPE LETTERS ONLY.":2230 (L$,1)(32)ĺ(7):"YOU PRESSED THE 'SPACE BAR'.":"PLEASE TYPE THE WORD AGAIN.":2230 . :"SECOND WORD:";::"";M$B (M$)0ĺ(7):"PLEASE TYPE IN A WORD.":2350(V (M$)8ĺ(7):"PRRECT ORDER."z(5)NB$(H(Z));11);C$(H(Z));21);E$(H(Z));31);G$(H(Z))V:v:"FIRST WORD: ";::"";L$(L$)0ĺ(7):"PLEASE TYPE IN A WORD.":2230(L$)8ĺ(7):"PLEASE TYPE ONLY 1 WORD AT A TIME.":22302(L$,1)(65)(L$NYY1+bB$(Y),C$(Y),E$(Y),G$(Y),X$(Y)3vD$=1850C`(222)5ĺD$;"CLOSE";F$q(222)16Ħw: MAIN PROGRAM:*Z15:TXTX1>TRY0R f"PLEASE LOOK AT THE FOLLOWING LINE OF":"WORDS AND DECIDE THE CO1650u(F$,1)(48)(F$,1)(57)ė:(7)::"THAT IS NOT A PROPER FILE NAME.":::"PLEASE TRY AGAIN.":::1650(F$)2ė:(7):"THAT IS NOT A LEGAL FILE NAME.":"PLEASE REENTER.":::16501970&D$;"OPEN";F$:D$;"READ";F$OUR TEACHER":"TOLD YOU TO USE AND PRESS 'RETURN'."=::[:"FILE NAME:";::"";F$(F$)0ĺ(7)::"PLEASE FOLLOW DIRECTIONS.":1570(F$,1)(65)(F$,1)(70)ė:(7)::"THAT IS NOT A PROPER FILE NAME.":::"PLEASE TRY AGAIN.":::E 'RETURN' KEY."@:0J"FIRST WORD> ";B$6TN^"SECOND WORD> ";C$Thlr"THIRD WORD> ";E$r|"FOURTH WORD> ";G$A$(1)B$:A$(2)C$:A$(3)E$:A$(4)G$B13F0C14BA$(C1)A$(C)500T$A$(C)RY AGAIN.":280Q(G$)8ĺ(7):"PLEASE LIMIT WORD LENGTH TO 8 LETTERS.":280 (G$,1)(32)ė:(7):"YOU PRESS THE SPACE BAR AT THE END":"OF YOUR WORD. PLEASE REENTER."::280",6"TYPE 'Y' FOR YES AND 'N' FOR NO."::"THEN PRESS TH60k (E$,1)(32)ė:(7):"YOU PRESS THE SPACE BAR AT THE END":"OF YOUR WORD. PLEASE REENTER."::260q  :"4TH WORD:";::"";G$ (G$)0ĺ(7):"PLEASE ENTER SOMETHING.":280(G$,1)(65)(G$,1)(90)ĺ(7):"ENTRY ERROR. PLEASE TORD. PLEASE REENTER."::240" ? :"3RD WORD:";::"";E$r (E$)0ĺ(7):"PLEASE ENTER SOMETHING.":260 (E$,1)(65)(E$,1)(90)ĺ(7):"ENTRY ERROR. PLEASE TRY AGAIN.":260 (E$)8ĺ(7):"PLEASE LIMIT WORD LENGTH TO 8 LETTERS.":2(7):"PLEASE ENTER SOMETHING.":240q (C$,1)(65)(C$,1)(90)ĺ(7):"ENTRY ERROR. PLEASE TRY AGAIN.":240 (C$)8ĺ(7):"PLEASE LIMIT WORD LENGTH TO 8 LETTERS.":240 (C$,1)(32)ė:(7):"YOU PRESS THE SPACE BAR AT THE END":"OF YOUR WTRY ERROR. PLEASE TRY AGAIN.":220d (B$)8ĺ(7):"PLEASE LIMIT WORD LENGTH TO 8 LETTERS.":220 (B$,1)(32)ė:(7):"YOU PRESS THE SPACE BAR AT THE END":"OF YOUR WORD. PLEASE REENTER."::200 :"2ND WORD:";::"";C$# (C$)0ĺOUR WORDS."::"> PRESS 'RETURN' AFTER EACH WORD."d :"> PLEASE LIMIT WORD LENGTH TO 8 LETTERS."| :15)"DATASET ";Z : :"1ST WORD:";::"";B$ (B$)0ĺ(7):"PLEASE ENTER SOMETHING.":220" (B$,1)(65)(B$,1)(90)ĺ(7):"EN dA$(4)*n PROGRAM CREATES FILES Ix TO BE USED IN ALPHA OR.` BY D. SANDBERGs DEC.1,1983y: INITIALIZE::D$(4)20001000740X110ZZ12 "> YOU WILL BE TYPING IN F     11500:P&r&:,& RANDOMIZE DATA2&:>&K110I&J(K)KP&KZ&D11f&Z110p&&DD1&:X(D(1))1&NH(Z)J(X)&bJ(X)J(D)&vZ&((40(X$(X)))2):X$(H(Z)),%ZP15000:P2%n8%:R% CORRECT AND TRY=2X%:j%O(3(1))1r%:%O5370,5410,5450%"MUCH BETTER, ";U$;:"."%5470%""THAT'S MORE LIKE IT."%65470%J"YOU ARE CORRECT THIS TIME." &^P$. WRITE TO FILE$B:.$VD$;"APPEND";N$A$jD$;"WRITE";N$S$~F$:C:WR:V[$D$n$D$;"CLOSE";N$t$$ GIVE CORRECT ANSWER$:$BUZZ18:Q(49200):BUZZ$ :$"INCORRECT, ";U$;:"."$2%F:"THE CORRECT ORDER IS:"::*::(#>"NUMBER OF QUESTIONS >";TX.#RN#f"CORRECT ANSWERS >";CT#zu#"INCORRECT ANSWERS >";WR{##V((C100)TX)#"FINAL SCORE >";V;"%"#(23):(7)::"PRESS 'RETURN' TO CONTINUE.";::"";R$###:PUT IN ALPHABETICAL":" ORDER.":q""4. YOU JUST HAVE TO TYPE EACH WORD AND":" PRESS THE 'RETURN' KEY.":"(23):(8)::"PRESS 'RETURN' TO BEGIN.";::"";R$":":" SCORING MODULE":""((32(N$))2):N$;"'S SCORE"#TIONS ***"!::W!N"1. YOU WILL BEGIN BY TYPING YOUR FIRST":" AND LAST NAME.":!b"2. NEXT YOU WILL BE ASKED TO TYPE IN":" THE FILE NAME YOUR TEACHER TOLD YOU":" TO USE.":#"v"3. THE COMPUTER WILL THEN GIVE YOU A":" LIST OF WORDS TO "Y"(R$,1)"N"ė:"PLEASE FOLLOW DIRECTIONS.":(7):::4050Z J(R$,1)"N"ė:3690` ^ r"EXCUSE ME WHILE I OPEN YOUR FILE." D$"OPEN";N$ D$;"CLOSE";N$ P11000:P  :  INSTRUCTIONS MODULE : !&11)"*** DIRECTO CONTINUE.";::T$: HOLD FOR VIEWING:{D$(4):D$;"RUN MENU"vP12000:P::q(4);"CLOSE"l::"ALL FILES HAVE BEEN LISTED."bXY1İ1000:415`X32Ľ:X32:1000:160aX32Ľ:X16:1000:160 bXYY1İ1000:4155 l::"ALL FILES HAVE BEEN LISTED."G q(4);"CLOSE"\ vP12000:P::q {(4);"RUN MENU"w } :  HOLD FOR VIEWING : ::(7)::"PRESS 'RETURN' TO CONTINUE.";::"";T$ ::(7)::"PRESS 'RETURN' ;22);"NUMBER";32);"PERCENT"M 14);"CORRECT";22);"WRONG";32);"CORRECT"S g D$;"READ"N$(X)v F$,C,WR,V F$;14);C;22);WR;32);V D$ 430 X(222)5ĺD$;"CLOSE"N$(X) YX32ī620 Z: _X16Ľ:X16:1000:160 bXNT LIST" YY1 N$(Y)% D$. 190> (222)5ė[ D$;"CLOSE STUDENT LIST"a "g :  READ INDIVIDUAL FILES AND PRINT : 600 : XX1  D$;"OPEN"N$(X) N$(X);"'S FILE":: "FILE NAME";14);"NUMBER":"NO PRINTOUT WILL BE MADE."- :::::7 1000= :C :U INITIALIZE[ :h D$(4) N$(50):F$(50):C(50):WR(50):V(50) 225 : READ STUDENT LIST AND SET ARRAY : D$;"OPEN STUDENT LIST" D$;"READ STUDEjd READ FILES&n DON SANDBERG7x JAN.,1984=}M MESSAGES:w8)"*** CLASS FILE READER ***" :::" THIS PROGRAM WILL DISPLAY ALL OF":"THE STUDENT FILES ON THIS DISK."::"THE FILES WILL APPEAR ONLY ON THE":"SCREEN.": FILE OR EXITING THE PROGRAM."W(23):(7)::"PRESS 'RETURN' TO CONTINUE";::"";R$]c:| FILE LOCKED ERROR:(222)10ė:(7):Z0::F$;" IS AN EXISTING FILE.":::"PLEASE SELECT A DIFFERENT FILE NAME.":P12000:P:170DLL INPUT 10 GROUPS OF 4":"WORDS EACH."xt:"4. DO NOT ALPHABETIZE THESE WORDS. LET":"THE COMPUTER DO THIS FOR YOU."~:"5. FINALLY, THESE WORDS WILL STORED IN":"THE FILE NAME YOU CREATED AND YOU ":"WILL BE GIVEN THE OPTION OF CREATING":"ANOTHER.(R$,1)"N"ı87B(14)::"INSTRUCTIONS":?L:V"1. THIS PROGRAM ALLOWS YOU TO CREATE":"FILES THAT CAN BE USED IN THE":"ALPHABETICAL ORDER PROGRAM."`:"2. YOU WILL BE ASKED TO CREATE A FILE":"NAME FIRST."'j:"3. NEXT YOU WI"TYPE'Y' FOR YES AND 'N' FOR NO."G:"THEN PRESS THE 'RETURN' KEY."l:::"DO YOU NEED DIRECTIONS";tR$(R$)0ė:(7):"PLEASE FOLLOW DIRECTIONS."::::1010$(R$,1)"Y"(R$,1)"N"ė:(7):"PLEASE TYPE 'Y' OR 'N'."::::1010(65)(F$,1)(70)ĺ(7):"ENTRY ERROR. PLEASE MAKE YOUR FIRST ":"CHARACTER A LETTER A-F.":780(F$,1)(32)(F$)2ĺ(7):"DON'T PRESS SPACE BAR":"PLEASE REENTER.":780D$;"OPEN";F$ (14)::"WORD WRITER"::::! CREATE A FILE OF WORDS":"THAT WILL BE USED IN THE ALPHABETICAL":"ORDER PROGRAM.":::"PLEASE TYPE A FILE NAME AND PRESS":"THE 'RETURN' KEY.":: :"FILE NAME:";::"";F$(F$)0ĺ(7):"PLEASE ENTER SOMETHING.":780a(F$,1)' KEY.":::"WOULD YOU LIKE TO CREATE ANOTHER FILE";:R$(R$,1)"Y"(R$,1)"N"ĺ(7):::"PLEASE TYPE 'Y' OR 'N'."::700(R$,1)"Y"Ľ:150D$(R$,1)"N"ė:D$;"RUN MENU": OPEN FILEY"YOU ARE ABOUT TO(R$,1)"N"190@lX$A$(1)(32)A$(2)(32)A$(3)(32)A$(4)SvD$;"WRITE";F$kB$:C$:E$:G$:X$sD$zXD$;"CLOSE";F$"THE ";F$;" FILE IS COMPLETE.":::9"TYPE 'Y' FOR YES AND 'N' FOR NO."::"THEN PRESS THE 'RETURNA$(C)A$(C1)A$(C1)T$&F1-C:F0550ABGMl&:"ALPHABETIZED LIST"::w0B14:A$(B)DB:N"ARE THE ABOVE CORRECT";:R$X(R$,1)"Y"(R$,1)"N"ĺ(7)::"ANSWER THE QUESTION PLEASE"::590b500 X(222)5660B b:"UNUSUAL ERROR. PROGRAM TERMINATED."U D$;"CLOSE";N$u ::"THIS FILE IS CLOSED." D$;"PR#0" (23):(7)::"PRESS 'RETURN' TO CONTINUE.";::"";R$ :  ANOTHER FILE? : 2"TYPE 'Y' FOR YES OR D$;"OPEN";N$ * X1ĺD$;"PR#1"@ N$;"'S FILE"::| "FILE NAME";14);"NUMBER";22);"NUMBER";32);"PERCENT" 14);"CORRECT";22);"WRONG";32);"CORRECT" : D$;"READ";N$ F$,C,WR,V F$;14);C;22);WR;32);V D$ 1)(90)ė:(7):"ENTRY ERROR. PLEASE REENTER STUDENT'S":"NAME.":::410 (N$,1)(32)ė:(7):"YOU PRESSED THE 'SPACE BAR'.":"":"THE CORRECT FILE CANNOT BE LOCATED WITH":"THIS TYPE OF ERROR."::"PLEASE REENTER FIRST AND LAST NAME.":::410:% :"STUDENT'S NAME:";::"";N$y (N$,1)(65)(R$,1)(90)ė:(7):"ENTRY ERROR. PLEASE TRY AGAIN.":::400 (N$,1)(32)ė:(7):"YOU PRESSED THE SPACE BAR AFTER TYPING":"THE LAST NAME. PLEASE REENTER."::400K (N$,1)(65)(N$,."+ :::"DO YOU NEED DIRECTIONS";:R$z (R$,1)"Y"(R$,1)"N"ė:(7):"PLEASE FOLLOW THE DIRECTIONS."::235 (R$,1)"Y"İ1000 2000 600  "ENTER STUDENT'S FIRST AND LAST NAME."  "THEN PRESS 'RETURN'. : d STUDENT FILE READER2n BY DON SANDBERGGx DECEMBER,1983Y INITIALIZEfD$(4)l11)"STUDENT FILE READER": DO YOU NEED INSTRUCTIONS? "TYPE 'Y' FOR YES OR 'N' FOR NO."::"THEN PRESS ";::"RETURN";::"   Y AGAIN." &: 0150- X FILE LOCKED3 b l"THE ";R$;" FILE IS A PERMANENT FILE AND":"AND MAY NOT BE DELETED.":::150 F(M$,1)"Y"(M$,1)"N"ĺ(7)::"PLEASE FOLLOW THE DIRECTIONS.":::250_ ,(M$,1)"Y"140r ^D$;"RUN MENU"x   FILE NOT FOUND (222)6ĺ(7) (222)10ĺ(7):600  "THE ";R$;" FILE IS NOT ON THIS DISK." :"PLEASE TR(7)::"PLEASE ENTER FILE NAME.":::150> D$;"DELETE";R$D m "THE ";R$;" FILE HAS BEEN DELETED."w :: "TYPE 'Y' FOR YES OR 'N' FOR NO." "THEN PRESS THE 'RETURN' KEY." : "DO YOU WANT TO DELETE ANOTHER FILE";:M$J " CREATED WITH THE":"'WORD WRITER' PROGRAM."c (23):(8)::"PRESS 'RETURN' TO BEGIN.";::"";T$i "TYPE THE NAME OF THE FILE YOU WISH TO":"DELETE."::"THEN PRESS ";::"RETURN";::"." :::: :"FILE NAME";::"";R$* (R$)0ĺ% DELETE INDIVIDUAL WORD FILES9 DON SANDBERGP JANUARY 7, 1984V(:h2 INITIALIZEn<:zFD$(4)K500P:Zd8)"*** DELETE WORD FILES ***"n(8), x" THIS PROGRAM ALLOWS YOU TO DELETE":"THE WORD FILES YOU   "PLEASE MAKE SURE THE PRINTER IS ON."::P13000:P (23):8)"PRESS 'RETURN' TO BEGIN.";:H$ d"ALL FILES HAVE BEEN LISTED."Q qD$;"CLOSE"f vP12000:P:: {D$(4):D$;"RUN MENU"  :  TO HOLD FOR VIEWING : ::(7)::"PRESS 'RETURN' TO CONTINUE.";::T$  :  PRINTER MESSAGE : X (8):(3)::1İ1000:415B l::"ALL FILES HAVE BEEN LISTED"R qD$;"CLOSE"g vP12000:P::| {(4);"RUN MENU"  :  HOLD FOR VIEWING : ::(7)::"PRESS 'RETURN' TO CONTINUE.";::T$ `X32ė::X32:160 aXY415A l:d DELETE ALL FILES,n DON SANDBERG=x JAN.,1984C:U INITIALIZE[:hD$(4)N$(50):F$(50):C(50):WR(50):V(50)940225: READ STUDENT LIST AND SET ARRAY:D$;"OPEN STUDENT LIST" D$;"R 00:P (23):8)"PRESS 'RETURN' TO BEGIN.";:H$ d vP12000:P:: {D$(4):D$;"RUN MENU"  :  TO HOLD FOR VIEWING : ::(7)::"PRESS 'RETURN' TO CONTINUE.";::T$  :  PRINTER MESSAGE : X (8):(3)::"PLEASE MAKE SURE THE PRINTER IS ON."::P130:  PRINTER MESSAGE :& l (9):(3)::"PLEASE MAKE SURE THE PRINTER IS ON."::P13000:P (23):8)"PRESS 'RETURN' TO BEGIN.";:"";H$ `X32ė::X32:160 aXY415A l:"ALL FILES HAVE BEEN LISTED."Q qD$;"CLOSE"fė::X16:160& aX32ė::X32:1605 bXYī415[ l::"ALL FILES HAVE BEEN LISTED"k qD$;"CLOSE" vP12000:P:: {(4);"RUN MENU"  :  HOLD FOR VIEWING : ::(7)::"PRESS 'RETURN' TO CONTINUE.";::"";T$  BER";22);"NUMBER";32);"PERCENT"Q 14);"CORRECT";22);"WRONG";32);"CORRECT"W k D$;"READ"N$(X)z F$,C,WR,V F$;14);C;22);WR;32);V D$ 430 (R$,1)"N"İ1000 X(222)5ĺD$;"CLOSE"N$(X) Z: ]D$;"PR#0" _X16ST" YY1 N$(Y) D$) 1909 (222)5ėV D$;"CLOSE STUDENT LIST"\ "b :  READ INDIVIDUAL FILES AND PRINT : 600 : XX1 D$;"OPEN"N$(X) D$;"PR#1" N$(X);"'S FILE"::! "FILE NAME";14);"NUM :::: :::::( 10002 20008 :> :P INITIALIZEV :c D$(4) N$(50):F$(50):C(50):WR(50):V(50) 225 : READ STUDENT LIST AND SET ARRAY : D$;"OPEN STUDENT LIST" D$;"READ STUDENT LI;d PRINT ALL FILES,n DON SANDBERG=x JAN.,1984C}S MESSAGEY:~8)"*** CLASS FILE PRINTER ***": ::" THIS PROGRAM WILL READ ALL OF THE":"STUDENT FILES ON THIS DISK AND PROVIDE":"A PRINTOUT FOR THE TEACHER." ILE?  W "TYPE 'Y' FOR YES OR 'N' FOR NO."::"THEN PRESS ";::"RETURN";::"." (R$,1)"Y"(R$,1)"N"ė:(7):"PLEASE FOLLOW THE DIRECTIONS."::3020(THEN PRESS ";::"RETURN";::"."J:::"DO YOU WANT A PRINTOUT";:R$(R$,1)"Y"(R$,1)"N"ė:(7):"PLEASE FOLLOW THE DIRECTIONS."::2010(R$,1)"Y"ė:(10):(8)::"MAKE SURE PRINTER IS ON."::P13500:P:X1 ANOTHER FTER READING A FILE YOU WILL BE":" GIVEN THE CHANCE TO READ ANOTHER":" FILE OR TO RETURN TO THE MENU."L(23):(7)::"PRESS 'RETURN' TO CONTINUE.";::"";R$V CHECK IF PRINTOUT IS WANTED!"TYPE 'Y' FOR YES OR 'N' FOR NO."::"INSTRUCTIONS:6(14)::"INSTRUCTIONS":>:"1. FIRST, YOU WILL BE ASKED IF YOU WANT":" A PRINTOUT. ANSWER 'N' OR 'Y'."$."2. NEXT, YOU ONLY HAVE TO TYPE IN THE":" STUDENT'S NAME AND PRESS 'RETURN'."8kB"3. AF'N' FOR NO."::"THEN PRESS ";::"RETURN";::"."e::"WOULD YOU LIKE TO SEE ANOTHER FILE";:R$(R$,1)"Y"(R$,1)"N"ė:(7):"PLEASE FOLLOW THE DIRECTIONS."::700(R$,1)"Y"ī395(R$,1)"N"ė:D$;"RUN MENU"  Ġˠ΍ٍЍōčĠŠРٍˍōŠˠٍ̍Ѝō٠̠Рō׍Ǎ΍ٍ٠ΠǠ׍čЍˍԍĠРԠˍԍō΍΍ΠΠԠōҍ΍ԍύΠҠϠԍ΍ԍԍčԠԠΠčˍōٍԍŠˠ٠ԍčˍ΍΍ԠԠӠōȍԍӍčӠĠȠԍōӍˍ΍ˠӠŠ΍ō͍΍΍͠ŠΠ΍ҍōč΍ҠŠΠč̍ōҍōŠҠ̠ōԍȍˍӍȠӠˠԍҍҍ΍ҠΠҠōԍǍčŠԠĠǍ͍ƍԍōƠԠ͠ōԍӍōԍ̍ԍҍԠҠԠ̍΍ҍˍҍҠˠҠ΍ٍǍԍҍǠ٠Ԡҍō΍΍ڍŠΠΠڍ͍΍ٍōΠ٠Š͍ōٍōŠŠٍˍčǍǍǠˠǠčō΍čōŠΠŠčōˍōˍˠŠˠō΍΍ȍčĠȠΠ΍ЍЍРŠРٍԍӍӍԠӠ Ӎ͍čԍҍĠҠ͠ԍǍԍԍٍԠ٠ԠǍύōҍōŠҠŠύȍύōōŠŠϠȍȍԍōōŠŠȠԍЍύ΍ˍΠϠРˍˍԍύōˠŠϠԍˍȍԍԍԠˠȠԍٍō  OR YES OR 'N' FOR NO.":"THEN PRESS THE 'RETURN' KEY."::::"DO YOU WANT TO DELETE ALL STUDENT":"FILES";:R$ (R$,1)"Y"(R$,1)"N"ĺ(7)::::"PLEASE FOLLOW THE DIRECTIONS.":::980 (R$,1)"N"ė:D$;"RUN MENU"  dE BEEN DELETED."! qP12000:P' v: {D$;"RUN MENU"@ P  MESSAGEV :\  8)"*** CLASS FILE DELETER ***" ::::"WARNING": ::"THIS PROGRAM WILL DELETE ALL OF THE":"STUDENT RECORDS ON THIS DISK.o :::"TYPE 'Y' FEAD STUDENT LIST" YY1& N$(Y). D$E D$;"DELETE";N$(Y)^ :"DELETING ";N$(Y)o P11000:Px 190 (222)5ĺD$;"CLOSE STUDENT LIST" :  "DELETING THE STUDENT LIST" gD$;"DELETE STUDENT LIST" l:"ALL FILES HAVȍԍčōȠĠԠōԍȍ׍ōȠŠԠ׍ˍǍҍōŠǠˠҍȍԍ̍ˍȠˠԠ̍ȍҍ΍̠̍ȠΠҍ̍ӍōԠŠҠӍȍ̍ˍōˠ̠ȠōōԍӍٍ٠ӠԠōҍӍԍЍРԠӠҍԍ؍ԍōŠԠԠ؍ЍЍō׍ŠРР׍ȍōЍǍРȠŠǍˍčӍ̍ˠĠӠ̍΍ҍčōŠĠҠ΍΍̍ҍ΍̠ΠҠ΍ҍԍŠŠٍōōō΍ŠΠŠōōӍˍōˠӠŠōЍٍ Р ٍҍǍЍƍҠǠƠЍȍȍԍ̠̍ȠԠȍǍˍō͍ŠǠˠ͍čҍō׍ĠҠŠ׍ˍЍōԍŠРˠԍōԍō̍Š̠ŠԍԍٍōōԠԍЍō͍ŠР͠ԍԍō̍ōŠԠŠ̍Ǎˍԍ̍Ǡ̠ԠˍččԍԍĠĠԠԍٍōԍȍŠ٠Ԡȍ͍ҍȍō͠ŠҠȍōǍōˍˠŠǠōōōԍԠ Šōōōō̍ŠŠ̠ōԍˍ΍ȍȠΠˠԍ ٍ̠̍Š٠΍ύčȍЍȠРĠύٍԍԍčԠ٠Ġԍˍč̠̍ˠč΍ԍōٍΠ٠ԠōōˍԍЍԠŠˠЍԍՍōčĠԠŠՍЍύҍРҠύōčҍčҠŠĠčӍǍǍԍǠԠǠӍō΍  Ϡԍ̍čӍԍĠ̠ӠԍƍōȍύŠƠϠȍЍҍԍǍҠԠǠЍԍōҍԍŠԠҠԍˍԍԍԍԠԠԠˍٍǍԍ̍٠̠ǠԍƍԍčōԠŠƠč΍ԍȍԍԠȠԠ΍ȍōŠȠ ύōԍčŠĠǠҍٍԍǍԍԠԠ٠ǍǍҍٍ̍Ǡ̠٠ҍōō͍ōŠŠ͠ōӍō̍ҍŠҠӠ̍ԍō̍ԍԠԠ̠ōčōԍԍԠԠĠō΍̍ǍٍΠ٠̠Ǎԍȍԍ׍נԠԠȍԍύ΍ԍԠΠϠԍǍčҍ̍Ġ̠ŠԠǍԍōԍЍРԠŠԍččԍԍĠԠԠč΍ǍҍԍǠΠҠԍǍӍӍōӠӠŠǍō͍͍̍͠͠Šٍ̍ōčōĠŠŠٍԍԍ̍ԍԠԠԠ̍΍ҍōҍҠŠҠ΍ԍˍƍٍˠԠƠٍǍԍٍō٠ō͠ԍԍ͍ƍˍƠˠ͠ԍōǍˍȍˠȠŠǍƍԍˍōˠŠƠԍԍōٍƍŠƠ٠ԍōōčōŠĠŠǍčˍˍĠˠǠˍȍˍō΍ŠȠˠ΍ō΍ōˍŠˠΠōԍō׍ӍӠנԠōٍ͍ԍԍ٠Ԡ ǠΠčӍҍҍō̍ҠŠҠ̍̍ōӍÍŠ̠àӍ΍ōč΍ΠŠĠ΍ЍԍҍōŠРԠҍ΍čǍӍӠЍōԍԍԠРŠԍ΍ԍōҍŠҠԠ΍ԍō׍΍ԠΠŠ׍ԍҍōˍҠŠˠԍҍōٍӍҠŠ٠   ˍ΍Ѝˠ̠ΠЍҍ΍ˍҍҠΠˠҍˍōčōˠĠŠōԍōōԍŠԠŠԍōٍٍ٠ŠٍժժժժժժժժժժժժժժժժժժժՊ @c``0@ ՊժժժժժժժժժժժժժժժժժժժՊfgNcg`gNCs ՊHH| "B$"ՊxGf@30Lso`@`@ Պ`@0 `@0 `@0 ՊՊՊ`@0 `@0 `@0 ժժժժժժժժժժժժժժժժժժժՊՊ@@s@gA9pAss`ps``Պ2HH x I`cՊ@@``?x` ՊՊՊ@ ` ?`ՊՊՊpoLAf@L0`@0` Պ@@`@ 0 @@``Պ< ժժժժժժժժժժժժժժժժժժժՊ @s`p8@C ՊժժժժժժժժժժժժժժժժժժժՊ@c``@ Պ2HH D<"B$"Պ@f@30L1`{`@|x`@~Պ`@0 `@0 `@0 ՊՊp ``@Պl[a6X 6Cm0l[a6X 6Cm0l[a6X 6CmժժժժժժժժժժժժժժժժժժժՊ@Պ@@`@p0 @ 3``Պ`qR OGqpq  $caՊՊՊՊՊՊՊ0`LAf@8L0`@0` Պ@@`@ 0 `@`@Պ@@g`@xB@# $ <@ <qՊ @?`?~x|ՊժժժժժժժժժժժժժժժժժժժՊx@c``@ Պ`qR OG DDO <Պ@fA38 p0`{`@|x`|~ՊՊՊp@0@0Պx~@p|?`x~@p|?`x~@p|?ժժժժժժժժժժժժժժժժժժժՊ@Պ~@`@0 @ 3`@Պ@  ՊՊՊՊՊՊՊ0`Laf`90L80`@9p`Պ|`@f0 <<@``Պ@ x<B $ dc#@  Պ @`|x~|ՊժժժժժժժժժժժժժժժժժժժՊx?@c``X@lՊ@  $(D"           Ԡ͠ǍǍōˍԍˠԠǠō΍ԍōōΠŠԠō׍ҍō̍ҠŠנ̍ԍˍǍԍˠԠǠԍōӍōōӠŠŠōȍ΍ԍԍԠԠΠȍ؍ōԍԍԠŠؠԍԍٍҍˍˠԠ٠ҍōōԍԍŠԠŠԍ͍ȍǍԍȠժժժժժժժժժժժժժժժժժժժՊxx@c``X@lՊ`@D<|ՊՊ``  `00ՊՊx~f@30 0`{cqg~8|gG9LՊ~Os|gy?~Os|gy?~Os|gժժժժժժժժժժժժժժժժժժժՊՊՊՊ0@00Պp@xՊpO|sx0``@` ՊՊՊ0`L?x|g>`?~ ~a?`@aCop<ՊՊpO!$DDDO!$ $$$"@$" Պ0`L=~fp?| q7@`xՊ~~@`@ 0 @< 3`ՊժժժժժժժժժժժժժժժժժժժՊx@c``8@ ՊՊՊ@@ @ 0`Պp@ՊLf@30x 00`g9g`9`gA9LՊp<`x@p<`x@p<`xժժժժժժժժժժժժժժժժժժժՊՊժժժժժժժժժժժժժժժժժժժՊՊ`0` `Պ`aH|p1 p#`q1Պ@0``@` ՊՊՊ0` ``@`ՊՊ@FCxD<8BFc dc#@* qՊ0`L}f`9L80`ap`Պ@@`@ 0 @~Cs`ՊժժժժժժժժժժժժժժժժժժժՊ@c``0@ ՊՊՊfyaNcg`|a~p Պ`aHDDD| ,ՊLf@30| p0``@`@ Պx~@p|?`x~@p|?`x~@p|?ժժժժժժժժժժժժժժժժժժժՊՊժժժժժժժժժժժժժժժժժժժՊՊ@p@9`@Cos8ppC`ՊraO HqI $2Պ@pp8``8` ՊՊՊpp ` `a`ՊՊ@ @1Պ0`Laf@L0`@0`LՊ@A@`@ 0 @gxao8ՊժժժժժժժժժժժժժժժժժժժՊ @c``0@ ՊժժժժժժժժժժժժժժժժժժժՊfycNcg`~cq ՊraO$D$""B$2ՊpOf@30Lqo`@`@ Պl[a6X 6Cm0l[a6X 6Cm0l[a6X 6CmժժժժժժժժժժժժժժժժժժժՊՊ`@0 `@0 `@0 ժժժժժժժժժժժժժժժժժժժՊՊ@@q@G9`@cs<<pxc`ՊHHy I $bՊ@`?p`|p@ ՊՊՊ`? ` @`ՊՊ  @ ՊpoLAf@L0`@0` Պ@@@`@ 0 @@Cp@opՊE 9100,126,67,113,71,99,127,15,127,71,29,118,1,120,99,121,99,12710124,126,67,113,71,99,127,15,127,15,60,112,124,113,99,121,99,127 11148,124,67,99,99,99,127,15,127,15,62,120,126,113,99,89,99,111 12172,120,97,103,115,99,127,15,127,31,12,113,71,99,127,15,127,113,71,95,23,126,99,99,99,127w14092,31,112,113,71,99,126,15,127,99,3,79,51,124,99,115,99,12615116,63,96,113,71,3,126,15,127,99,3,111,59,124,3,120,3,126 16140,127,65,113,71,99,126,15,127,71,25,102,121,120,99,125,99,126,112,65,31,94,127,1,120,1,96 e 9996,96,127,103,115,99,103,12,115,120,99,63,15,127,99,115,99,103  11020,1,127,99,99,99,111,14,119,120,99,63,15,127,99,99,99,111 12044,3,126,113,71,99,127,15,127,113,71,31,7,126,99,99,99,127 313068,7,12003,115,31,62,124Zv 12809,96,96,97,7,62,0,24,0,12,0,6,0,31,112,15,124,31,112,64,15,24,0n{ 10783,125,127| 11807,124,127} 12831,124,12712940,3,80 13964,97,71 14988,112,79 16012,112,958972,112,95,15,120,1,96,0,4863,124^X 9737,113,113,117,15,127,120,63,124,31,126,15,127,99,95,31,126,71,95,103,15,63,124b 10761,113,113,115,15,127,120,59,124,29,126,14,63,103,95,31,126,71,95,119,15,63,124l 11785,113,113,115,15,127,120,57,124,28,62,14,31,79,111,31,126,15,1: 14729,113,49,118,15,127,64,63,124,31,126,15,120,99,127,31,126,71,95,95,99,63,124 D 15753,113,113,118,15,127,88,63,124,31,126,15,127,99,127,31,126,71,95,79,71,63,124 N 8713,113,113,116,15,127,120,63,124,31,126,15,127,99,127,31,126,71,95,15,64,681,113,17,119,15,127, 120,63,124,31 ,126,15,127, 99,95 ,31,126,71,95,63,113,63, 124 0 13705,113,49,119,15,127,88,63,124,31,126,15,123,99,127,31,126,71,95,31,99,63,124T 119,12,115,120,57,124,31,126,15,31,79,87,25,102,71,95,127,120,63,124  10633,113,65,119,14,119,120,59,124,31,126,15,63,103,79,29,110,71,95,127,120,63,124  11657,113,81,119,15,127,120,63,124,31,126,15,127,99,95,31,126,71,95,63,112,63,124 & 12LOCH,BYTE:H V& T11000:T< :(4);"RUN HE2"B ,l LOC8192LOC16384ĺ"BAD LOC:";LOC:r   12553,96,13577,113,14601,113,15625,113  8585,113,96,99,0,48,0,24,120,15,124,7,0,31,88,1,96,3,15,127,125,31,120D  9609,113,97,:BYTE:LOCH,BYTE:H V( V0128 ::LOC:400[ ::H016:BYTE:LOCH,BYTE:Hb V} 6:Q0279:Q,0Q,7: Q0191:270,Q279,Q: Q27901:Q,184Q,191: Q19101:0,Q8,Q: V08 LOC:400 ::H09:BYTE:  :49234,0:3:0,0:3082<2:Q7583:0,Q279,Q:Z6:Q92100:0,Q279,Q:eV03u::LOC:400(::BYTE:LOC,BYTE2V<V012F::LOC:400P::H021:BYTE:LOCH,BYTE:HZVdV06n::LOC:400 x::H01   Պx|f@300`{aag>8xg9LՊp<`x@p<`x@p<`xժժժժժժժժժժժժժժժժժժժՊՊՊՊՊՊxO~Gs|00``@`| ՊՊՊ0`Lx~g~p?~ q?`@qcox>Պ~|`@f0 8@``Պ@`GDD|B $`'$$>@$> Պ0`L|f?`?x ~a7?@pՊ~@@`@0 @ 3`Պ`@|p HELLO# LOADS PICTURE0D$(4)8(:V2:D$;"BLOAD AOIS,A$4000"^<R$fF:nKD$PD$;"RUN ALPHABETICAL ORDER"ZPP ",63,123,58,95,111,127A 13239,65,3,15,62,60,120,54,95,31,126r 14263,125,91,111,126,59,123,46,95,127,125 15287,125,59,111,111,55,127,46,95,119,123 16311,125,59,109,75,59,111,30,95,103,125 8287,120,113,4,40,28,32,60,15,21,1266,56,126,99,99,97,99,103[  13196,2,112,15,120,65,127,7,126,31,126,24,124,65,65,115,1,96 9143,64,1,7,56,20,32,30,2,28,122 10167,61,123,110,91,51,111,60,91,109,121 11191,61,123,110,111,55,127,58,95,119,123 12215,61,123,110,94