LBTS%3P t11  9311040  A "R 1040 INCOME TAX PROGRAM, BEN MENDELSOHN VERSION 1A 4/26/1974NddH H0Ho(!j9THIS PROGRAM DOES YOUR INCOME TAX ACCORDING TO FORM 1040.2$j?TO USE THIS PROGRAM YOU MUST HAVE THE 1040 FORM AND INSTRUCTION<"jvXH"PH VX\R vX\vL `@ Xf j TAXES p Pz XhH h0jfvN L L  Zj INTEREST EXPENSE  j HOME MORTGAGEfP  j OTHER (TOTAL)fT vP X T  P j CONTRIBUTIONS   X\ h h0j$f.vR l l  8ZBj CASUALTY OR THEFT LOSS L V Xp t `h0jjtf~Zvx p "t  Vx  Vx dvx | d v| x v| x vT @ x "| j MISCELLANEOUS DEDUCTIONS  XB H h0 jfvV J J  (Z2 XL V <wZ X X  FZPR END I.D.Z V`N dV @@.Ynw\ X #Z xw^ @]w` \ #^ V @@.Y!j:TAXABLE INCOME, FOLLOW INSTRUCTIONS AFTER LINE 48 ON FORM. jENTER TAX NOW ghj*FIND YOUR TAX ON TABLES 1-12 AND ENTER NOWgh j CREDITS  t Xb j h0jgwpl l !Z"wxh#p, 6 Xn x @h0JjTg^w@ z z !hwD x!@ rZ|  X| @h0jgwAA!Zwxh#pwD x!@  XH T h0jgwX X !ZR BALANCE DUE OR REFUND&WP +X 0WP 1X :w` X #P D%j8YOU HAVE OVERPAID ON YOUR TAXES. THE AMOUNT OVERPAID IS` Nj"HOW MUCH SHOULD BE REFUNDED TO YOUXgd bjHOW MUCH CREDIT TO 1974 TAXlgh vw\ P #X lj5TEAR HERE --------- FORM 1040 1973#j=------------------------------------------------------------- j FILING STATUS4jTOTAL EXEMPTIONS@ X`Ah0 j0 H 3AX,52A,7D.DDZ$j@ -------------------------------------------------------------V @@.Y 6j, SCHEDULE A 1973 #j=-------------------------------------------------------------  X@Z *h04 j0>ZHd4WAGES,SALARIES,TIPS, AND OTHER EMPLOYEE COMPENSATIONRd9 DIVIDENDS10ALESS EXCLUSION\,d10BBALANCE10C3GROSS AMOUNT RECIEVED, IF DIFFERENT FROM DIVIDENDS)f-d10DINTEREST INCOME110INCOME OTHER THAN WAGES, DIVIDENDS, AND INTERESTpd12TOTAL13ADJUSTMENTS TO INCOMEz!d144SUBTRACT LINE 14 FROM LINE 13(ADJUSTED GROSS INCOME)d15TAX16 TOTAL CREDITS"d17 INCOME TAX18 OTHER TAXES19TOTAL20d!TOTAL FEDERAL INCOME TAX WITHHELDd21A1973 ESTIMATED TAX PAYMENTS21BdAMOUNT PAID WITH FORM 486821COTHER PAYMENTSd21DTOTAL22BALANCE DUE IRS"d23AMOUNT OVERPAID24AMOUNT TO BE REFUNDED TO YOUd25&AMOUNT TO BE CREDITED TO YOUR 1974 TAXd26TOTAL NUMBER OF DEPENDANTS271dBUSINESS INCOME OR LOSS288NET GAIN OF LOSS FROM SALE OR EXCHANGE OF CAPITAL ASSETS'd29?NET GAIN OR LOSS FROM SUPPLEMENTAL SCHEDULE OF GAINS AND LOSSES+d30GPENSIONS,ANNUITIES,RENTS,ROYALITIES,PARTNERSHIPS,ESTATES OR TRUSTS,ETC.d31FARM INCOME OR LOSS32 d$FULLY TAXABLE PENSIONS AND ANNUITIES33 d!50% OF CAPITAL GAIN DISTRIBUTUONS34 dSTATE INCOME TAX REFUNDS35ALIMONY RECEIVED $d36OTHER37TOTAL38 .dSICK PAY39MOVING EXPENSE 8d40EMPLOYEE BUSINESS EXPENSE41 B d7PAYMENTS AS A SELF-EMPLOYED PERSON TO A RETIREMENT PLAN Ld42TOTAL ADJUSTMENTS43 VdADJUSTED GROSS INCOME44 45A OR 45B45 `'dSUBTRACT LINE 45 FROM 4446#MULTIPLY TOTAL NUMBER OF EXEMPTIONS jd47TAXABLE INCOME48 tdRETIREMENT INCOME CREDIT49INVESTMENT CREDIT ~d50FOREIGN TAX CREDIT51 d8CREDIT FOR CONTRIBUTIONS TO CANDIDATES FOR PUBLIC OFFICE !d52WORK INCENTIVE CREDIT53 TOTAL CREDITS54 ,dSELF-EMPLOYMENT TAX551TAX FROM RECOMPUTING PRIOR-YEAR INVESTMENT CREDIT "d565TAX FROM RECOMPUTING PRIOR-YEAR WORK INCENTIVE CREDIT &d57=MINIMUM TAX. BESURE TO CHECK SQUARE IF FORM 4625 IS ATTACHED %d58;SOCIAL SERCURITY TAX ON TIP INCOME NOT REPORTED TO EMPLOYER d590UNCOLLECTED EMPLOYEE SOCIAL SECURITY TAX ON TIPS d60TOTAL61 )dEXCESS FICA TAX WITHHELD62'CREDIT FOR FEDERAL TAX ON SPECIAL FUELS d63*CREDIT FROM A REGULATED INVESTMENT COMPANY d64TOTAL65 d0ONE HALF OF INSURANCE PREMIUMS FOR MEDICAL CARE. !d1MEDICINE AND DRUGS21% OF LINE 15 FORM 1040 d3SUBTRACT LINE 3 FROM LINE 24 d#ENTER BALANCE OF INSURANCE PREMIUMS d5DOCTORS, DENTISIS, ETC.6A (d HOSPITALS6BOTHERS (TOTAL ONLY) 2d6CTOTAL(LINES 4,5,6A,B,C)7 <&dENTER 3% OF LINE 15 FORM 10408SUBTRACT LINE 8 FROM LINE 7 Fd9TOTAL (ADD LINES 1 AND 9)10 PdSTATE AND LOCAL INCOME11 REAL ESTATE Zd12/STATE AND LOCAL GASOLINE (SEE SALES TAX TABLES) dd13$GENERAL SALES (SEE SALES TAX TABLES) nd14PERSONAL PROPERTY15 xdOTHERS (TOTAL ONLY)16TOTAL d17 HOME MORTGAGE18OTHERS (TOTAL ONLY) d19TOTAL20 d.CASH CONTRIBUTIONS FOR WHICH YOU HAVE RECIEPTS  d21A%OTHER CASH CONTRIBUTIONS (TOTAL ONLY) d21B-OTHER THAN CASH (SEE INSTRUCTIONS ON PAGE 12) d22CARRYOVER FROM PRIOR YEARS23 dTOTAL CONTRIBUTIONS24 d#LOSS BEFORE INSURANCE REIMBURSEMENT d25INSURANCE REIMBURSEMENT26 d/SUBTRACT LINE 26 FROM LINE 25. ENTER DIFFERENCE27 (dENTER $100 OR AMOUNT ON LINE 2728CASUALITY OR THEFT LOSS29 d ALIMONY PAID (d30 UNION DUES31.EXPENSES FOR CHILD AND DEPENDENT CARE SERVICES 'd32OTHER33TOTAL34 TOTAL MEDICAL AND DENTAL-LINE 10 d35TOTAL TAXES-LINE 1736 "dTOTAL INTEREST-LINE 2037TOTAL CONTRIBUTIONS-LINE 24 "d38 CAUSALTY OR THEFT LOSSES-LINE 29 ,%d39TOTAL MISCELLANEOUS-LINE 3440TOTAL DEDUCTIONS41 6#j= BE SURE TO CHECK ALL BOXES AND INCLUDE REQUIRED FORMS WHEN @j6SENDING YOUR TAXES TO THE IRS. DO NOT SEND IN THIS J"j;COMPUTER PRINTOUT. RECOPY IT ONTO A REGULAR 1040 TAX FORM. T` 1040A   R 1040A TAX FORM, BY LES VOGEL, MARCH 18, 1974RNH H(R2jSHORT FORM, 1040A, 19747n<jFj2YOU SHOULD HAVE THE SHORT FORM IN FRONT OF YOU ANDPj0INSTRUCTIONS FOR PREPARING YOUR 1973 INCOME TAX.Z j7ROUND ALL FIGURES TO WHOLE-DOLLAR AMOUNTS, IF POSSIBLE.djn j FILING STATUSxj(1=SINGLE , 2=MARRIED FILING JOINT RETURN"j<3=MARRIED FILING SEPERATELY , 4=UNMARRIED HEAD OF HOUSE HOLD j 5=WIDOW (ER) j WHICH ONEf`V`P6`@xj6IN THE NEXT SEVEN QUESTIONS, INPUT A NUMBER AFTER EACH jQUESTION MARK:j Y@ph4 j f4[v@@ @ `vHp"@vXP H P" VX|,v`XL6v``}@ V``TJv``}TvhX"`^vp@]hvxh"pr| vxXjTAXABLE INCOME=x jWHAT IS YOUR TAXfD j+...TAX PERCENTAGE (ZERO IF A TABLE IS USED)fH j#...EXCESS (ZERO IF A TABLE IS USED)$vD D  x"L $H dj%INPUT HALF THE MONEY YOU GAVE TO HELPj!PAY CAMPAIGN EXPENSES FOR PERSONSj%RUNNING FOR PUBLIC OFFICE UP TO 12.50fP vT D "P  Y@`h4 j f4&[0vd X  \  ` :/`D R ===== OUTPUT =====N Y@X Xi b j F l[v Y@@i  V*j F  LEAVE BLANK j F [/@b`BOXES CHECKED. SEE PAGE 3,6A,6B@DEPENDENT CHILDREN@OTHER DEPENDENTS$P9WAGES, TIPS AND OTHER EMPLOYEE COMP. (SEE PAGE 3, LINE 9)pTOTAL DIVIDENDS@TOTAL EXCLUSIONS PINTERESTX FEDERAL INCOME TAX WITHHELD \ !EXCESS FICA WITHHELD (SEE PAGE 4)*` 1973 ESTIMATED TAX4`1-5 FILING STATUS>`6 NO. OF BOXESH@6C NO. OF CHILDRENR@ 6D NO. OF OTHER DEPENDENTS\@!7 TOTAL EXEMPTIONS CLAIMEDfP9 WAGES, SALARIES, TIPSpp10A DIVIDENDSz@10B LESS EXCLUSIONH10C BALANCEP11 INTEREST INCOMEX12 ADJUSTED GROSS INCOME`13 15% OF LINE 12h14 LINE 12 - LINE 13p15 LINE 7 * 750x16 TAXABLE INCOME D  17 TAXP $18 CONTRIBUTIONS TO CANDIDATEST 19 INCOME TAXX 20A TAX WITHHELD\ 20B EXCESS F.I.C.A.` 20C 1973 EST. TAX PAYMENTSd 21 20A + 20B + 20CT d 22 BALANCE DUE IRSd T 23 AMOUNT OVERPAID$`H1DIGIT[ 9GK  w$1DIGITs1.A007 R LINES 1-5 AFM MOD 2 R STEVE MUNZEL,AUTHOR. PROGRAM FOR ONE DIGIT MULTIPLICATION.OHj3HI!! MY NAME IS 1DIGIT. BUT, YOU CAN CALL ME '1'.(jWHAT IS YOUR FIRST NAME2g< j5TRY TO SOLVE THESE ONE DIGIT MULTIPLICATION PROBLEMS,FvPwtZ X@dd X@Pnv4xwPwPjWHAT ISX?x j W0@6v44!WV1%TjjTHAT'S NOT WHAT I GOT,. . . TRY IT AGAIN!j kX=x j W0@6v44!"W,V1%T6jTHE CORRECT ANSWER WAS%@wtt@JTw`@^W@hW@r+j6THAT ANSWER REALLY RINGS TRUE!! % IS RIGHT, !!|'j"YOU'RE F*A*N*T*A*S*T*I*C, !! THE CORRECT ANSWER WAS,%k%)SURE SOUNDS RIGHT TO ME, !!w4jTHAT TOOK YOU JUST  SECOND(S)!!v@jZj#k#, YOUR TOTAL NUMBER RIGHT IS NOW...YOU GOT tWRONG.jI HAVE GIVEN YOUPPROBLEMS, SO FAR. . . !j!YOUR TOTAL PER CENT RIGHT IS NOW,d&Pjj#WANT TO TRY 5 MORE?? 1=YES 0=NO fVN&Z0jTHAT'S ENOUGH FOR ME!!!: jSEE YA' LATER,DXNjO.K.,, THEN YOU ARE NOW. . . X`H$23MTCHZ ^ R *** 23 MATCHES R *** PEOPLE'S COMPUTER COMPANY, MENLO PARK, CAZNHdR *** PRINT THE INSTRUCTIONSnjxj#WE START WITH A PILE OF 23 MATCHES.jj*WE TAKE TURNS. ON EACH TURN WE CAN REMOVEj!1, 2, OR 3 MATCHES FROM THE PILE.j-THE ONE WHO HAS TO TAKE THE LAST MATCH LOSES.j jYOU GO FIRST. j"MAY THE BEST COMPUTER (HA HA) WIN.R *** INITIALIZE THE NUMBER OF MATCHESvԞ\ jjTHERE ARE NOW 23 MATCHES., R *** THE HUMAN MOVES6jHOW MANY DO YOU TAKE@fJR *** CHECK IF H = 1, 2, OR 3Tv^V@6` hR *** ADJUST # MATCHES LEFTrv"|R *** CHECK IF THE HUMAN LOSTVRR *** THE COMPUTER MOVESV԰@pR *** TRY TO LEAVE 4K + 1 MATCHESw$Ԣ@Ԧ@R *** IF R=1 THEN THERE IS NO 'GOOD' MOVE&W$@N0R *** THE WINNING MOVE IS (R+3) MOD 4:v4$`@$`@DbNR *** MAKE A RANDOM MOVEXv4`@bR *** THE COMPUTER MOVESl jI TOOK4vR *** ADJUST # MATCHES LEFT AND PRINT ITv"4j. . . THERE ARE NOWMATCHES.j, R *** THE HUMAN CHEATED*j.YOU CHEATED, BUT I'LL GIVE YOU ANOTHER CHANCE.4,R R *** THE COMPUTER WON\jI WON! BETTER LUCK NEXT TIME.fp R *** THE HUMAN WONzjO.K. SO YOU WON (LUCKY) . . . R *** PLAY AGAIN?j%DO YOU WANT TO PLAY AGAIN (YES OR NO)fV@@0Y`$2DIGITZ &#R STEVE MUNZEL, AUTHOR. PROGRAM FOR TWO DIGIT MULTIPLICATION. 4/74OH!j9HELLO, THERE!! I'M 2DIGIT. JUST CALL ME '2', FOR SHORT!jWHAT IS YOUR FIRST NAMEg j6TRY TO SOLVE THESE TWO DIGIT MULTIPLICATION PROBLEMS, vwt X@d X@P v4 wP wdWP jWHAT ISX? Z j W0@v44!WV1%"jTHAT'S NOT WHAT I GOT,. . . TRY IT AGAIN!j kX=Z j W0@v44!WV1%"jTHE CORRECT ANSWER WAS% wtt@!,"w@@#W@&$!k%, YOU'RE F*A*N*T*A*S*T*I*C!!!% IS RIGHT!!!%)&!jHOW DO YOU DO IT, ??%WAS CORRECT!!')("jR*I*G*H*T*O!!!  THE ANSWER WAS INDEED,%!!!)w4*j THAT TOOK YOUSECOND(S) TO DO CORRECTLY!+v@,Z-#k#, YOUR TOTAL NUMBER RIGHT IS NOW...YOU GOT tWRONG..jI HAVE GIVEN YOUPPROBLEMS, SO FAR. . . /!j!YOUR TOTAL PER CENT RIGHT IS NOW,d&P0j#WANT TO TRY 5 MORE?? 1=YES O=NO1f2V73Z4jTHAT'S ENOUGH FOR ME!!!5 jSEE YA' LATER,687jO.K.,, THEN YOU ARE NOW. . . 8`r3DPLOTU 9KS jj#j%v&V0.65%& jUSE file abandoned.&v.06& ^&H R &Mv&RV0"%&WV0@%&\jMissing or illegal string.&a%]&f^&kv}&pvt&u vsot t"&zVs0t"%& Vs s .%& vss &vts &%&vs"& vs &v[&^' j Fatal error, unable to continue.@'`@ Dummy line 0@``@p@`@ Dummy line 0@`pP y line 0@`ABACUS 0RN-d!TYPE THE NUMBER OF OPTION DESIRED(dTHEN INPUT APPROPRIATE VALUES2dTO QUIT HIT THE BREAK KEY.< dABACUS 0PTIONS:Fd1)A+B=CPd2)A-B=CZd3)A*B=Cdd4)A/B=Cnd(5)A^B=C; 'A' TO THE 'B' POWER EQUALS 'C'xd+6)A^(1/B)=C; 'A' TO THE 'B' ROOT EQUALS 'C'} d 7)SQR(A)=C d8)100*(A/B)=C%d9)A/B=C/D; SOLVE FOR 'C'd10)A/B=C/D; SOLVE FOR 'D'hj `j j YOUR CHOICEg4lX`}4hZjj"jA=,f1W4pJ6jB=@f$J]4^rT^jC= $h^rjC="$|^jC=$$^jC=&$^jC=($^ jC=(@&$^jC=}@}^ jC%=&$d^jD=fD jC=&$$D^jC=&f40jD=$&$4:^D`ABAGEL! 9LdR GUESS A THREE LETTER WORDn Op p  R PRINT INSTRUCTIONSj0ALL THE WORDS I KNOW HAVE THREE LETTERS IN THEM.j1I WILL THINK OF A WORD, AND YOU TRY TO GUESS IT -j6EACH TIME, JUST TYPE A THREE LETTER WORD (OF YOUR OWN)jAND SEE WHAT I SAY.jj3'BAGELS' MEANS NONE OF YOUR LETTERS ARE IN MY WORD. j7BUT FOR EACH LETTER THAT IS IN MY WORD TOO, I WILL SAY,j0'FERMI' IF IT'S IN THE RIGHT POSITION, OR 'PICO'j IF IT'S IN A DIFFERENT POSITION.j j7BUT I WON'T TELL YOU WHICH LETTERS I MEAN - YOU HAVE TOj"USE YOUR HEAD TO FIGURE THAT OUT !R***AUTOMATIC FINK MODULE***,R READ THE WORD TO BE GUESSED.l0h2M$䤿@3X@}$4ip5Z6ipJWp@@1p@@.TWp@@1p``.^Wp@@1p``.hjrjO.K. I HAVE A WORD.|j R INPUT A GUESSjjWHAT IS YOUR GUESSfp p`jMY WORD HAS THREE LETTERS.Vp@@0p@@Vp@@0p``Vp@@0p``XjNO TWO LETTERS ARE THE SAME.XR COMPARE GUESS WITH COMPUTER'S WORDbLdlMv X@` X@` Vp=pV0jPICO M@jFERMI Ldd@ZZ Vd! jBAGELS jVd`  j R HUMAN HAS GUESSED THE WORD*j4jYOU GOT IT! MY WORD IS p>jH, R HERE ARE THE WORDS^ "dPOTAPTWINRUNLIPPETARTCUP"dPUNCATMAPLAPOUTDOTAREFOR"dANDBUTTUBCRYLETWEDLEDIRK"dSKYCUETENNETSAWWASCUTTHE"dFARYOUHIMHERERGALPINKPEN"dPINDIGDEWAMPWHYSUNSONOPT'`ABASE M b R-ABASE-A NUMBER GUESSING GAME USING DIFFERENT BASESR-PETER KATZ, 10/5/73, RAVENSWOOD N (vĞ@2#R THE NUMBER OF GUESSES CAN BE CHANGED BY CHANGING 'L' IN LINE 40<j4THIS IS A NUMBER GUESSING GAME USING DIFFERENT BASESFj4YOU TELL THE COMPUTER WHAT BASE YOU WISH TO PLAY IN.Pj.THE COMPUTER WILL SELECT A NUMBER IN YOUR BASEZj AND YOU TRY TO GUESS THE NUMBER.dj5THE COMPUTER WILL TELL YOU IF YOUR GUESS IS TOO HIGH,njTOO LOW, OR IN THE WRONG BASE.xjYOU WILL HAVE  TRIES TO GUESS THE NUMBER.jj WHAT BASE DO YOU WISH TO PLAY INgWX5@5j"PLEASE TRY A BASE BETWEEN 2 AND 10R THE COMPUTER PICKS THE NUMBERwd@wv@W-(v@v@Vv$@"v$%(,V+J6v$$@@"Jv$$@Tv$%(^w$P(hw!rw"|vT!w@lX4@}hDZ4vt@vdD j+O.K. I HAVE A NUMBER IN MIND BETWEEN 1 AND  BASE P ---- GUESS #tg W*D7@ w$wH&W$@ 0W0T:vtt@D Vt0Ġ@N"R THE COMPUTER FINDS OUT IF YOUR NUMBER IS TOO HIGH OR TOO LOWXW*TvbPTOO LOW. GUESS #tlvPTOO HIGH. GUESS #tVt@jRIGHT!! IT TOOK YOU t GUESSES.jDO YOU WANT TO PLAY AGAIN g @@W @@0Njj WOW!! YOU GOT IT IN 1 GUESS!!vdTj*YOU LOSE, BUCKWHEAT! THE NUMBER IN BASE  WAS  j#THERE IS NO SUCH NUMBER IN BASE  . TRY AGAIN. j I SAID A NUMBER BETWEEN 1 AND  . TRY AGAIN.*4R THIS SUBROUTINE FINDS OUT IF THE NUMBER IS ACCEPTABLE> R IN THE GIVEN BASEHv@R WP(p\v@fRpv@zVwtfff(%hیWt? wP(%tpW?w$@^R THIS SUBROUTINE CHANGES THE NUMBER INTO A STRING v 1234567890v w4@v` VdP(.v@$v@.wDfff($dhی8 vddP(%DBWDtL v 44DDVV`w44@j$tv 44PP~V^C%*OKdzeHyd`ACCES !J ' v$ACCESSr1.A007R PROGRAM CONTINUES HERE /@%HP2000F AND HP2000/ACCESS DIFFERENCES#/@x HP2000Fd  HP2000/ACCESS-/@ TO LOG ONx  HELLO-...d RETURN, LINEFEED,(d THEN 'HELLO-...'2,/@TO DELETE CHARACTER(S)x '_'d  CONTROL-H<,/@TO EXECUTE A PROGRAMx ---d  EXECUTE-...Ad (COMBINATION OFBd 'GET-...', 'RUN'Cd  & 'SCRATCH')F+/@TO STOP A PROGRAMx  CONTROL-Cd BREAKPx BREAKd BREAKZ*/@TO OPEN A FILEx OPEN-...d  CREATE-...d-/@TO REMOVE A FILE ORx KILL-...d  PURGE-...njPROGRAMx,/@LEGAL CHARACTERS FORx ANYd  LETTERS A-ZjFILE & PROGRAM NAMESd  NUMBERS 0-9&/@7FOR OTHER DIFFERENCES AND INCREASED CAPABILITIES OF THE j8HP2000/ACCESS, CONSULT THE HP2000/ACCESS BASIC REFERENCE"j;MANUAL, OR TYPE EXE-$INFORM WHEN THIS PROGRAM FINISHES.#/@2FOR INFORMATION ABOUT COMMONLY USED PROGRAMS, TYPEd  EXE-$INDEXjWHEN THIS PROGRAM FINISHES.`2ACEYDU5 9PN wRRej*ACEY-DUCEY IS PLAYED IN THE FOLLING MANNERfj-THE DEALER (COMPUTOR) DEALS TWO CARDS FACE UPgj2YOU HAVE THE OPTION TO BET OR NOT TO BET DEPENDINGhj2ON WHETHER OR NOT YOU FEEL THE NEXT CARD WILL HAVEij#A VALUE BETWEEN THE FIRST TWO CARDSjj%IF YOU DO NOT HAVE TO BET, INPUT A 0.ljYOU WILL GET SEVEN HANDS.njvdwdjYOU HAVEDOLLARSWpjw jHERE ARE YOUR NEXT TWO CARDSvp@V@"Vp,v$p@6V$@,@V$p,JV>$TVX^VXhV`|VhVpjjJACKjQUEENjKINGjACEV$X&V$X:V$`NV$hbV$pv&j$0:jJACKDNjQUEENXbjKINGlvjACEj jWHAT IS YOUR BETfw@VԮ j CHICKEN...jVAj#SORRY,MY FREIND BUT YOU BET TO MUCHWjYOU HAVEDOLLARS TO BETv4p@V4@V4pV4X*V4X> V4`RV4hf V4pz*j44>jJACKHRjQUEEN\fjKINGpzjACEV4*V4*$ j YOU WIN... jSORRY , YOU LOSEw"WjjYOU BLEW WHAT YOU HADO0R prog del for carnvl 11/23/74jAND YOU STARTED OFF WITH $100.jhope you had fun!!8`ACMPF ^ LKJ$zxcLKJ$XCz zxclkjCzxlKJ$ ZCkjhCzxLKJ$ zxckljhzxcZcxkjhzckLJHLKJgDCALKJgADC ADLKJHALKJ;\AFDHJDAF AFDKJHAFDADKJHDAFADLKJADCKJHASDhLKJ$ aes2iljhad afdkjhdafhjafdlkj ealkj;4afd afdlkj;4adfACURCY  R PROGRAM WRITTEN BY ALEX ATHAS 2/10/77. ADAPTED FROMR PROGRAM USED AT LOS MADANOS JR COLLEGE, BY JUDY SOKOLR FOR EDP RESOURCE CENTER, SFUSD.(R REV. 2/28/77; CRAIG SAUNDERS2 R*REV.3/5/77;CRS;<#R: REV. 5/23/77 BY MIKE SCHWEIZER; PACKED FILES & CHANGED NAMES,FR: ALSO REVISED FILE SELECTION ROUTINE LINES 890, 900.P'R MOVED FILES ( ACCUR1 THRU ACCUR9 ) TO A100 . ALAN DE MARTINO 22-DEC-1978Zp*dN P`dH 0H@nQ/@@x v`6ALPHA BALHANDOUBLELEFTY NUMBERPATRNSREACH ROWS TRANSP wD@WD@ WDX jGOOD MORNING,  jGOOD AFTERNOON,  jGOOD EVENING, jWHAT IS YOUR NAME f%j1 DO YOU HAVE A LIST OF AVAILABLE TYPING DRILLS,  (YES/NO) f@@V0Y0V0N,jPLEASE TYPE 'YES' OR 'NO'...L",,6j @ X@D Ji0T 0x h^jhk0rZ|&dD(1) ALPHA SENTENCES TO GIVE YOU PRACTICE IN USING ALL THE LETTERSd OF THE ALPHABET.%dB(2) BALHAN BALANCED-HAND WORDS AND SENTENCES TO HELP YOU DEVELOPd* RHYTHM USING ALTERNATE HANDS."d<(3) DOUBLE A DRILL TO HELP YOU ELIMINATE DOUBLE LETTERd PROBLEMS.#d>(4) LEFTY ONE-HANDED WORD AND SENTENCE DRILL TO STRENGTHENd% YOUR RIGHT OR LEFT HAND.#d=(5) NUMBER A DRILL IN BUILDING YOUR CONFIDENCE IN REACHINGd FOR NUMBERS.$d?(6) PATRNS A WORD COMBINATION DRILL OF WORD PATTERNS COMMONLYd( USED IN TYPING ASSIGNMENTS.&dC(7) REACH PRACTICE YOUR REACHING TECHNIQUES. A DRILL TO PRACTICE!d9 REACHING UP AND DOWN AS WELL AS SIDE TO SIDE$d?(8) ROWS PRACTICE FOR HOME, FIRST, AND THIRD ROW KEYS ONLY.&dC(9) TRANSP PRACTICE TO CORRECT FOR TRANSPOSITION ERRORS. (LETTERSd- THAT ARE COMMONLY TURNED AROUND)&j 0j:$j>WHICH DRILL WOULD YOU LIKE TO DO (TYPE IN NUMBER OF DRILL 1-9)DfDNvDDX VD4DPvbj%PLEASE TYPE A NUMBER BETWEEN 1 AND 9.l0vjjDO YOU NEED INSTRUCTIONS, L f@@jV0Nzj, COPY THE SENTENCE PRINTED BY THE COMPUTER.jj(WHEN THE SYMBOL * APPEARS, START TYPING.j%jAHIT THE 'RETURN' KEY IMMEDIATELY AFTER YOU COMPLETE THE SENTENCE.j$j@IF YOU TYPE THE SENTENCE CORRECTLY, THE TIME IT TOOK YOU AND THEj'WORDS PER MINUTE (WPM) WILL BE PRINTED.j jTO CORRECT AN ERROR:j #j= BEFORE YOU HIT THE 'RETURN' KEY, ENTER 'CTRL H' FOR EACH*j$ CHARACTER YOU WANT ERASED.4j1 ENTER 'CTRL X' TO ERASE AN ENTIRE LINE.>jH"jjj*tv~x  j VVTjSORRY, TIME'S UP. TRY AGAIN. LT@M$$@ jSORRY, TIME'S UP.V0 VT j$SORRY, I FOUND AN ERROR! TRY AGAIN:vT@` jSORRY, I FOUND AN ERROR! wtt@(wDD 2v$Z&<v44 $Fw66@PU/`nZ j VERY GOOD!dnjYOU'RE DOING GREAT, !xjBRAVO! j TERRIFIC!jCORRECT! j YOU GOT IT , !j jTIME= SECONDSj$ H "WPM=",DDD[4j'WOULD YOU LIKE TO CONTINUE THIS DRILL, fV@@0Yj#WOULD YOU LIKE TO TRY ANOTHER DRILL"f,V@@0Y06j@ j THANK YOU FOR DRILLING WITH ME, ! I'M HERE TO SERVE Jj2YOU, SO PLEASE CALL AGAIN. PRACTICE MAKES PERFECT!T j RESULTS:^j DRILL  : `D`PD`hjPERFECT SENTENCES:trjAVERAGE WPM : 4't@|` AD  9T2@SDASDFAL;JKSDAFL;JKSDAFJKL;11111 0000000000EEEL;JKSDASDFAL;JKSDAFL;JKSDAFJKL;11111 0000000000EEE@ADD1 7 ^ R STEVE MUNZEL,AUTHOR. PROGRAM FOR ONE DIGIT ADDITION. 4/74OH$j?GLAD YOU CALLED!! I'M ADD1. BETTER KNOWN TO YOU AS JUST 'ADD'!!jWHAT IS YOUR FIRST NAMEg j1TRY TO ANSWER THESE ONE DIGIT ADDITION PROBLEMS, !!!j:IF YOU GET THE PROBLEM RIGHT, I'LL RING MY BELL FOR YOU!!!v wt X@d X@P v$ wPwPjjWHAT IS+?x jv$$!W W0@#V1!&jTHAT'S NOT WHAT I GOT,. . . TRY IT AGAIN!jv$$! k+=x W! W0@#v$$! !j "V1!&#j THE ANSWER TOPLUSIS...!$wtt@%0&w`@'W@=(W@?)j!THAT REALLY MAKES ME R*I*N*G!!! IS RIGHT!!*w$+W@.,j$THAT TOOK YOU ONE SECOND, VERY GOOD!-/.j THAT TOOK YOUSECONDS!/v@0Z1j2j3#k#, YOUR TOTAL NUMBER RIGHT IS NOW...YOU GOT tWRONG.4jI HAVE GIVEN YOUPPROBLEMS, SO FAR. . . 5j6j!WANT TO TRY 5 MORE?? 1=YES O=NO7f8VA9Z:jTHAT'S ENOUGH FOR ME!!!; jSEE YA' LATER,<B="jYOU ARE VERY S*M*A*R*T!!  ! WAS CORRECT!!>*?"k", THAT IS EXACTLLY R*I*G*H*T!!+IS!!!@*AjO.K., , THEN YOU ARE NOW. . . B`@ADDRES !R *** HP BASIC PROGRAM LIBRARY ******************************RR ADDRES: ADDRESS LABELSR R 36231 REV AR!R *** CONTRIBUTED PROGRAM ***********************************R R j+**** ADDRES PRINTS ADDRESSES ON LABELS*****j* TYPE 0 (ZERO) TO TERMINATE A QUESTIONj ( pACOMPF,DUMMY2OP <#j=RESTART-0,NEW ADDRESS-1,PRINT OUT ADDRESSES-2,ERASE ADDRESS-3F h@@PfZTn^:dbn V`@xh@nj6TO ENTER NEW NAMES AND ADDRESSES, ANSWER THE QUESTIONSjNAMEfV.0j@`< jCOMPANYf jADDRESSg jTOWNg@jSTATEg0 jZIP CODE"g,"NH H0H@HPH`HHH6NH H0H@HHH@ j@ @0J jENTER NEW PERSONT^ R: LABEL PRINTOUThl| h@@ V`@ h@ @0 V`@& h@` 0@P vd$$v4@wtP jtjt`k t k@, 0 t0, @ Pj jTHERE ARE NO MORE NAMES<d      &h 0@P`0:j-TYPE THE NAME OF THE PERSON YOU WANT TO ERASED h@@Nv4XfbV00<l h@@v V`@v44@ h@ @0V0 X@ V0 ZvV@0@"jTHERE IS NO SUCH NAME:$jDO YOU WANT TO ERASE     @ 0 gP WP0YES  h@@ j@@* X@|4@4p>ZH h@` 0@PR V`@\pfRp h@ @0z j@ @0^j@` h@@ h@@ V`@ h@` 0@PFV0`: j@` 0@Pj@`:`FADMPRO6 9 NH H0H@HPH`HpH Oqj PLEASE TYPE IN YOUR NAME fwt4(j O.K. % DO YOU WANT DIRECTIONS YES NO *f 2V 0NO7j8j/THE PURPOSE OF THIS PROGRAM IS TO CONSIDER SOME9j/OF THE CONCEPTS AND MIS-CONCEPTS THAT MANY STU-:j.DENTS HAVE ABOUT COLLEGE ADMISSION PROCEDURES.;j/TO COMPLETE THIS PROGRAM RESPOND TO EACH OF THE<j-FOLLOWING STATEMENTS WITH A YES OR NO. AFTER=j,COMPLETING THIS PROGRAM, REVIEW YOUR ANSWERS>j+WITH YOUR COUNSELOR. THIS WILL HELP YOU IN?j3ELIMINATING ANY MISUNDERSTANDING THAT YOU MAY HAVE.j X@xh 0@j 0fPV@0Pwtt@jWRONGv44@jCORRECTZj YOU GOT 4 CORRECT AND t WRONGjjjjjj,d,A DEFINITE PLAN OF ACTION IS BENEFICAL WHILE SELECTING A COLLEGE TO ATTEND.dYES0d,ADMISSIONS OFFICERS ARE OF LITTLE ASSISTANCE' TO STUDENTS IN THE ADMISSIONS PROCESS. dNO'd(IF POSSIBLE, A STUDENT MAY WISH TO APPLY TO MORE THAN ONE COLLEGE.dYES&+d)PARENTS CAN BE VERY HELPFUL IN COMPLETING THE COLLEGE ADMISSIONS PROCESS.'dYES0)d"BEFORE YOU ARE ADMITTED, A COLLEGE$ WILL CHECK YOUR HIGH SCHOOL RECORD.1dYES:*d(COLLEGE CATALOGS DO NOT INCLUDE SPECIFIC ADMISSION PROCEDURES TO FOLLOW.;dNOD.d'STUDENTS ATTENDING A SCHOOL USUALLY ARE' AWARE OF PROPER ADMISSIONS PROCEDURES.EdYESN-d$A VISIT TO THE CAMPUS OF THE COLLEGE* YOU WISH TO ATTEND IS USUALLY BENEFICIAL.OdYESX*d!IT IS BEST TO COMPLETE ADMISSIONS% PROCEDURES EARLY IN THE SENIOR YEAR.YdYESb+d&YOUR COUNSELOR HAS CURRENT INFORMATION# ABOUT ADMISSIONS FOR MOST SCHOOLS.cdYESl/d MOST COLLEGES HAVE DEADLINES FOR2 RECEIVING AND PROCESSING ADMISSIONS APPLICATIONS.mdYESv&d$COMPLETING A HEALTH RECORD IS A PART OF THE ADMISSIONS PROCESS.wdYES-d%MOST SCHOOLS REQUIRE A NON-REFUNDABLE' DEPOSIT TO ACCOMPANY EACH APPLICATION.dYES-d#THE ADMISSIONS PROCESS IS COMPLETED) WHEN THE STUDENT STARTS TO ATTEND CLASS.dNO%dYOU MUST RE-APPLY FOR ADMISSION EACH YEAR YOU ARE AT COLLEGE.dNO$j?BE SURE TO CHECK OVER YOUR RESPONSES WITH YOUR COUNSELOR. THIS#j>WALL HELP TO ELIMINATE ANY MISUNDERSTANDING THAT YOU MAY HAVE.j'` ADRILL! _wxR ***DRILL IN BASIC ALGEBRAIC OPERATIONS*** R AUTHOR:TIM AARONSON DATE: 10/5/71 O@0 0 w0 0123456789 w4@ v4TtdNevH@@fvg&nv$H@@o @0 +pv$q&xj0 = vD4" $Xԯd @dNvH@@v$H@@v $& @0 -v&j0 = vD4"$Xԯd @,N-vP@6v$P@;v<&= @0 X>v$?&@j0 = JTvD4"$$^XhԯK@,NvP@v$H@@v$$& @0 /v$&j0 = vD4"Xԯd@ R ENTER SUBROUTINEw4cw@uT4 ֏TAwTvTTT^&R SUBPROGRAM TO CONVERT NUMBER TO STRING'v0 (wDP@)wT"D@P@*WD@,+wDX,V2- v0@@(-.v0``0DD/v0@@0TT0 v0PP)1^2v0``0DD3v0@@0TT4^NR SUBPROGRAM TO GENERATE PLUS/MINUS COEFFICIENTSOv@@@@Pv@@@@Q^XR SCORERbVDlwtt@vjX^v44@jC^ R FINAL BOOKKEEPINGjv4&jYOU GOT 0 CORRECT AND vt&j0 WRONGjv4tԯd , jDO YOU WANT MOREg@W@@@0Yj$j@......................................................LATER, MAN ` ALKIE  q R WISH TO THANK J. LEUNG FOR WRITING THIS PROGRAM *******R REVISED MAR 22 77 BY KEVIN BAKER MCATEER*******w(NH2j) ARE YOU AN ALCOHOLIC?<jF"jHjR!j:YOU HAVE ANSWERED YES TO TWO OF THE QUESTIONS, THE CHANCES\jARE THAT YOU ARE AN ALCOHOLIC.fpjz!j:YOU HAVE ANSWERED YES TO THREE OR MORE, YOU ARE CONSIDEREDj.AN ALCOHOLIC BY THIS TEST! WHAT DO YOU THINK?jjFOR MORE INFORMATION CALL:j jFOR HELP CALL:j.NATIONAL COUNCIL ON ALCOHOLISM 563-5400j.ALCOHOLICS ANONYMOUS 982-4473bj2 1. DO YOU LOSE TIME FROM SCHOOL DUE TO DRINKING?j12. DO YOU DRINK TO BUILD UP YOUR SELF CONFIDENCE?j53. DO YOU DRINK FOR ANY REASON THAT YOU CAN THINK OF?$j 4. DO YOU DRINK ALONE?.8!j: 5. IS DRINKING AFFECTING YOUR REPUTATION-OR DO YOU CARE?BL j7 6. DO YOU DRINK TO ESCAPE FROM STUDY OR HOME WORRIES?V`j/7. DO YOU FEEL GUILTY OR BUMMED AFTER DRINKING?jtj2 8. DOES IT BOTHER YOU IF SOMEONE SAYS THAT MAYBE~j YOU DRINK TOO MUCH?"j; 9. DO YOU HAVE TO TAKE A DRINK WHEN YOU GO OUT ON A DATE? j8 10. DO YOU MAKE OUT (IN GENERAL) BETTER WHEN YOU DRINK?j011. DO YOU EVER GET INTO FINANCIAL TROUBLES OVER jBUYING LIQUOR?j012. DO YOU FEEL A SENSE OF POWER WHEN YOU DRINK? j813. HAVE YOU LOST FRIENDS SINCE YOU'VE STARTED DRINKING?j314. HAVE YOU STARTED HANGING OUT WITH A CROWD WHERE jSTUFF IS EASY TO GET?j+15. DO YOUR FRIENDS DRINK LESS THAN YOU DO?(2j)16. DO YOU DRINK TILL THE BOTTLE IS DONE?<Fj417. HAVE YOU EVER HAD A COMPLETE LOSS OF MEMORY FROMP j DRINKING?Zdj318. HAVE YOU EVER BEEN TO A HOSPITAL OR BEEN BUSTEDnjDUE TO DRUNK DRIVING?xj419. DO YOU TURN OFF TO ANY STUDIES OR LECTURES ABOUT j DRINKING?j020. DO YOU THINK YOU HAVE A PROBLEM WITH LIQUOR?`dALPHA _ 9#R **** HP BASIC PROGRAM LIBRARY *******************************RR ALPHA: ALPHANUMERIC SORTRR 36292 REV A 6/73R#R **** CONTRIBUTED PROGRAM ************************************ R: DAVID BROWN PROGRAMMERR: ALPHABETIZES STRINGS BY CONVERSIONR: TO PSEUDO EBCDIC CODER: MODIFIED TO ACCEPT 75 WORDS BY E POPE, 5/18/76(NK>>0>2$w0> !#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^<nFj)HOW MANY WORDS DO YOU WISH TO ALPHABETIZEKj (LIMIT: 75 WORDS, 60 CHARACTERS)PfZjPUT EACH WORD ON A LINE.dX@|nfx Xd@ Y@0 Vdd/0vd[ZdZj w@Y@|V@71, XԞ@0V6,, V0"w"Z,[6 Y@0@ V^J k0T[^ v@hjrY@|| V@[`dAMAZE u _yOrNbN j DO YOU NEED INSTRUCTIONS f@@V0Y.V0Njj PLEASE TYPE YES OR NO$.j. THIS PROGRAM WILL PRINT OUT FOR YOU A MAZE!8j3ALL YOU ARE REQUIRED TO DO IS INPUT THE DIMENSIONS.Bj6YOU MAY HAVE A MAZE UP TO 20 BY 20 UNITS. BUT NOTHINGL jBEYOND THAT . Vj5 EACH MAZE IS DEFFERENT, AND HAS ONLY ONE WAY THROUGH`jIT. jostocuRvR~j WHAT ARE YOUR DIMENSIONSfdVP 45dP 5ddj SORRY--TRY AGAINj V@5d@j!MEANINGLESS DIMENSIONS, TRY AGAIN j ww$@X@|V1 j:--(j: (Z2j:<v4@F wr@4Pv44@Zw$dw4@nxW$.W4/dw$4@w$@w44@w$$@ Wr$4x W$@: Wr$@4: W4@|Wr$4@|W$0" Wr$@4"w`@U B"W4/dJ,W@h6w@@TJ Wr$4@hTw`@^U hw@@rU|W$0 Wr$@4W4/dW@w@ Wr$4@w`@U B w@@U BW4/dW@0w@ Wr$4@0w@@&U 0: W4@ D Wr$4@ NW$0X Wr$@4bW4/dlW@vw@ Wr$4@w`@U B w@@U BW4/dW@w@ Wr$4@w@@U  W$0p Wr$@4p W4/dH*W@f4w@>RH Wr$4@fRw@@\U B f BpW4/dzW@w@ Wr$4@  d wr$@44v44@ wb$@4@w$$@ V40%d@ nw wr$4@4 v44@  wb$4@@ w44@ $ V40%d@ n .w 8 B wr$@44 Lv44@ V Wb$4 t ` wb$4` j ~ t wb$4@ ~w$$@ V40%d@ n w : W@ wr$4@4 v44@ Wb$4 wb$4`  wb$4@ w44@ V40%d@ n  w@  Wb$4 <  wb$4` (w 2 d < wb$4@ Fw Pw$4@ Z dx nX@}d xjI X@| Wb@ j   j I Z j X@| Wb Wb@ j:    j:-- Z j: Z "j" DO YOU WANT ANOTHER MAZE , f@@ 6V0Yj ;V0N h JjA YES OR NO WILL DO JUST FINE T , h`>ANDRO  m R ANDRO: ANDROGYNOUS PERSONALITY QUIZ; R PROGRAMMED BY MR. WILLIAM K. CHAR III, JANUARY 22, 1975;R WOODROW WILSON EDP RESOURCE CENTER, SAN FRANCISCO.(R2N#<RFjHELLO, WHAT IS YOUR NAMEPfZjd"j5 THIS PROGRAM WILL TEST HOW ANDROGYNOUS YOU ARE, .n!j9PLEASE THINK CAREFULLY ABOUT EACH OF THE TWENTY QUESTIONSxj4WHICH FOLLOW AND ANSWER EACH WITH A 1, 2, 3, OR 4 --jj 1 = USUALLY NOT;j 2 = OCCASIONALLY;j 3 = QUITE OFTEN;j 4 = FREQUENTLY.jj===== X@@vj X@Ph jHOW  ARE YOUfv䞯 V@6@" v ,Z6j# YOUR TOTAL FOR THIS SECTION IS@ZJjT!j9 THE FIRST TEN QUESTIONS DESCRIBE QUALITIES WHICH ARE^ j7GENERALLY ASSOCIATED WITH MEN; THE SECOND TEN QUESTIONSh!j9DEAL WITH WOMEN AN ANDROGYNOUS PERSON IS ONE WHO STRIKESr j7A BALANCE BETWEEN BOTH QUALITIES. SINCE THE DIFFERENCE|֏@"@P!j:BETWEEN YOUR SCORES IS LESS THAN 10, YOU CAN BE CLASSIFIEDjAS ANDROGYNOUS, .b"jAR  9 p*Oܔ(wSYS2D BBS01F.A002@&L<vN F h@@4TPjRjTj4VkTd`ARCUST# _ J@-$Jv(!R PROTOTYPE OF CUST. FILE FOR INVOICE SYSTEM....1/28/82...REA-R ARCUSTxp*,*&NH H0H@HPH`HpHHH&NHHHДHHHHH H"O0H@HPH`HpHHHH OДHܔHR- *** MASTER CONTROL FOR CUSTOMER RECORD MAINTAINCE ***jCUSTOMER RECORD FILE MAINTAINCEj ================================ /@MENUj----j j#1 : ADD CUSTOMERj#2 : DELETE CUSTOMERj#3 : LIST CUSTOMERSj#4 : SEARCH CUSTOMER" j#5 : CHANGE RECORD,j/=menu6 j /E=back-jump@V@v@j jCOMMAND g UB <R- *** ROUTINE TO ADD CUSTOMERS *** V`@. h@@ V`@ h@@ j Customer # : fV0/&V0/E0 jCompany Name : :f DV 0/EN jBilling Address : XF0bV00/E0l j City, St. : vF@ j Zip Code : FP PP jContact Name : F`W@0/EjPhone# (xxxxxxxxxx) : Fp pP W00/E jProducts used : vFjCredit History : vF j Comments : vFV4 w$@*4vd@>v@H w$d @Rh@$ 0@P`p\V-fV+pV1z X@}$~@h@j@@Zj@$ 0@P`p j@@@v$Vd.Hzvd$ V"d@Hw$$@ V"d@zvdd@H j FILE FULL$.v8BR- *** ROUTINE TO DELETE A CUSTOMER RECORD ****L jDELETE CUSTOMERVj` j CUSTOMER # : jgtW0/ V`@v@ V`@h@ 0@P`pV1v@ j8FIND NO RECORDS OF THIS DESCRIPTION; PLEASE CHECK INPUT.Lj2j3j 4j05j@P<jFj1 IS THIS THE RECORD YOU WANTED TO DELETE (Y OR N)PgZW0NLdj@n j FILE DELETEDx R***DECREMENT*** h@@dwdd@ j@@dv@ V`@ R-***REPACK***h@ 0@P`p V`@j@@ 0@P`pv@jNO RECORDS IN THIS FILEL j@@`LR *** LIST ROUTINE ***j* DO YOU WANT THE OUTPUT ON THE LINEPRINTER"F,V@@0YJ6w@J?$ASCBOBT 5FILE-ASCBOB,LP0^rhj2THE LP IS BUSY... BREAK IF YOU DON'T WANT TO WAIT!r DASCBOB@$|W$@W$`hjASSIGNMENT OF LP FAILED!!$w@jWAIT....FILE IS BEING PRINTED!!R- *** ROUTINE TO LIST INVENTORY ***j / *****************************j / * CRISIS COMPUTER CORP *j . * CUSTOMER *j / * LIST *j / *****************************j  j /` v@WDMYTPNpj @& j /`0v@:j  Dj  Nj l V`@vh@ 0@P`pv@h@ j P  j  P  j 0P  j @P  j PP  j `P  j pP  j P  j P  j P j v@l .j  END OF REPORT 8j Bv@ LV@@.Y Vj  `D$@$ j?$ASCBOB tW$ ~j!ASCII FILE 'ASCBOB' NOT PURGED. $  R *** ROUTINE TO SEARCH FOR A CUSTOMER RECORD *** j/THIS ROUTINE WILL SEARCH FOR A CUSTOMER RECORD. j jSearch by (#/N) :  G W@@0N j Customer # :   jCompany Name :  g W0/ v@ V`@ d h@ 0@P`p W0N V1  V 1 v@  j j j0 (j@ 2jP <j` Fjp Gj Hj Ij P/` Rjthis one ? (y/n) :  SG TW0N Z djNO FIND...PLEASE CHECK INPUT n 2 R***FILE MAINTAINCE***<jCustomer Record MaintainceFjP j Customer # : ZgdW0/nv@x V`@h@ 0@P`pV1v@xW0NPW0/7}?`$ DELETE & REENTER TO CHANGE CUST # j#1 :  j#2 : 0j#3 : @j#4 : Pj#5 : `j#6 : pj#7 : j#8 : j#9 : jj4WHICH NUMBER ARE YOU GOING TO CHANGE (N=NEW#,/=MENU)g^W0NPhW0/m U&Nvrj*WRONG INPUT,CHECK SPELLING IN THE HEADING.|jWHAT IS THE NEW COMPANY NAMEF jWHAT IS THE NEW ADDRESS F0jWHAT IS THE NEW CITY/STATE FpjWHAT IS THE NEW ZIPCODE FPjWHAT IS THE NEW CONTACT NAME F`jWHAT IS THE NEW PHONE # Fp&jWHAT IS THE NEW PRODUCT 0FDNjWHAT IS THE NEW CREDIT XFlvjWHAT IS THE NEW COMMENTS Fj@ 0@P`pj)YOUR NEW CUSTOMER RECORD LOOKS LIKE THIS:jj vv6"6wv'6dj@66v@0/`j SO THERE!!!jTHERE AIN'T NO SECH CUSTOMER #  <fbp v@WDMYTPNzvN @!H w@MDYWTPN w 0123456789 v@@pw&$v@ X@VZ j/FORMAT EXCEEDS CAPACITY. FORMAT TERMINATED ANDjRETURNED TO CALLING PROGRAM.!H X@p V1@.ZjINVALID FORMAT CODE = . FORMAT TERMINATEDj AND RETURNED TO CALLING PROGRAM.$!H. TBx8BVNVL Vv@`jXĞ@|th~Zv@@ v@!*dJANUARYFEBRUARYMARCHAPRILdMAYJUNEJULYAUGUSTd SEPTEMBEROCTOBERNOVEMBERDECEMBERVN v$DV@@.Y v@ v@, !*R TWO DIGIT NUMBER TO STRING ROUTINEv@( vF$P2 VP4FP<VFZFv@F@F@Pv@ZvG$$PPdv@G@G@n^x v$`v@ v@@19v@!*v@+wD@[@``@@QpwDp$DD`XĞ@}DhZdSUNDAYMONDAYTUESDAY WEDNESDAYdTHURSDAYFRIDAYSATURDAYv@" v@,V`T6v@p :0 PM@v`J^Tv@p :0 AM^v$hv@r|v@ v$v`!*v@t v@PPORT #vPv$!*VN   w$P@ Ԥd D !> R COMPUTE MONTH AND DAY NUMBERS &vĞ 0vN@ : w` D Y4@@ N WD!4@ l X WD!4@ v b[4 lvĞ@ v w@|  Y4@` i6 w46 [4 #v ZxKZjyD@LS[@ vD@ XԞ@` VDA! Z w@ vԞ@ vDD[@!! ! V԰@! ! vDD#Ԣ@! ^!*v@!4 v@ !>Z!H^!R`ASI      c g k o sw{dRXGo0 GAN G!"#$E% &G'(O)q*N+ ,G-./q0P1B2B3456P7C8A9:;A?@A BSC DGEFG(HOI J;KLMBNUONPGQRSTEURVFWXYZI[ \G]^_d`Ia bGcdefOg hGijk9lOm1nGop qrOs2tFuvwxOy3zF{|}~O4E@j?ʕ7ފASKU . & R *** ASKUS VERSION 2.2 *** R *** WRITTEN BY ERIC R. CLUFF -- SMUHSD NOVEMBER, 1982 ***N@ddHH(N       H2VN< vF v ZASK.A001P v ASCR00.A001Zp*,*,*,*d D@LnVxjAssign Error assigning . CodebR *** DETERMINE IF TROLL ***4 TIMEo A0A1X0X1Q3 @@ V @@<M001j M001 NOT PEMITTED TO USE $ASKUS.`vP` x@ > V`6SjPurge Error purging . Code`<PV|jCreate Error creating . Code"`, D@L6V@R *** PRINT INTRO AND ID-PROMPTS ***JVT/@>>> Send Mode <<<^$h/@*** Askus 2.2 ***r/@ Info (Y/N) ? |F v  V @@<Y$R *** PRINT INFORMATION ***j"j< This program is designed to allow you to leave comments,#j=suggestions, or requests for the system manager. You will be$j?prompted for your name, and a message subject (optional). Your$j@account number, port number, date and time will be automatically%jAsent. Usually, the system operator reads the messages daily, and'jEwill send you a response that will be displayed next time you log on.$j@Any person caught sending obscene or disruptive messages will bejharshly dealt with.V@"/@.Please input your name (Up to 20 characters): F   P }&j+Please limit your name to *20* characters.0 j Your Name: :FD   N/@(Input message subject (return if none): XF b  P lj-Please limit the subject to *20* characters.v j Subject: 2/@CInput your message a line at a time -- when done enter a blank line/@ h@@vj:F X@_| _pV vZ j@v@VP ~ j20 lines maximum -- That's it. *4R *** CHECK TO SEE IF THIS IS FIRST LINE ***>?@O@@ HR *** write end of text mark to scratch file ***R j@[$TERM\R *** SET UP ID-STRING (B$) ***f!v7 00000000000p v@P  z vT P  vR X  @@`|Z \ &@|^ @d @Pb @|d @Pf |h Pj vl n  x@ 8@V R *** READ MASTER FILE TO END *** h@@ V`@ h@ R *** WRITE ID-STRING TO MASTER FILE ***j@R *** READ TEXT FROM TEXT SCRATCH FILE ***$ h@@. V`@ p8h@BR *** WRITE TEXT TO MASTER FILE *** Lj@V J`j@`jV@ t:@~ jAnother (Y/N) ? F v  v@V @@0YR *** CLOSE FILES, TERMINATE PROGRAM***V@ D$@D$@>V jPurge Error purging . CodeV@ ` D@L R( j*** Askus 2.2 ***2 D@L<vF8@PV 7Z V`@ odh@n V0[$TERM dx Ov@ OV /@There are no messages./@ vThere are 00 active messages.6|X P` /@j:@ v/@j>vF h@@v" vo-, vo,6V@@0// A@oKLDTA@@H\  J jEh??/@T ^oCBHS``XMh jEh??/@r |R *** SEND A MESSAGE FROM PRIVLEDGED MODE ***v@R *** ***R *** PRINT DIRECTORY OF MESSAGES *** R *** ***8@V  V`@h@  V0[$TERM h@ ^v@V@ y&(/@ No. Name?D Subject?p Acct Date0"j<--- -------------------- -------------------- ---- --------: X@x D v NZXv@b 6|@`l 6Z \ |v 6^ b |v`d @P vl \ T P v` f R X  &| p | x | x | | x | x |  v00/00/00v[@$@@pvp$` X@`hv @8@@V@bv"Z 6|@ P@6|@ PP 6|p P@* vj x 4j>^H?@O@@RvThe Message File is 000% full.\vO@x df6|T d P\ p/@/@zv /@There are no messages./@ R *** ***R *** READ A MESSAGE ***R *** ***v8@Vc V`@$h@ h@@ V4 jRead which message? F   $6| . 8 6@| B V`@ Lh@ Vv@ `V0 jh@ t V0[$TERM ~ v@ V< h@ 6Z \ | 6^ b | v@ 0 &| p | x | x | | x | x | v00/00/00 v[@$@@p vp$` X@` h v @8@@ V@ v" (Z 26|@ P@ <6|@ PP F 6|p@ Pv0#0 From: Date: Z 6|@` dv`| @P  n vR `  x /@ v" Subject: vxD T P  j v( Acct: XXXX Port: 00 Time: 00:00 v`xR X  vd h l n  vH J d f  vN P h j  j/@ h@ V0[$TERM j  O@@?@$ V@ j/@Message not found./@ " ,/@There are no messages./@ 6 @ R *** STOP *** JD$@ T` ^R *** *** hR *** KEEP A MESSAGE *** rR *** *** |8@ V V`@ h@ h@@ V4 jSave which message? F  6|  6@| j Output File:  F o.o$o* v   & D@H 0VS :j Assign error. Reenter output Filename:  D N @@ Xv@ bh@ lV0 vh@ V0[$TERM] q j@ h@ V0[$TERM j@  j@[$TERM` D$@  ?@O@@ /@Message not found./@  /@There are no messages./@  R *** *** R *** ZAP A MESSAGE *** *R *** *** 4 v/ >8@ HVH R V`@ \h@ f h@@ p V4 zjZap which message? F v  V0ALLh 6|}  V@0ALLh 6@|} vP` x@  > V`6 jPurge Error purging . Code `<x V/jCreate Error creating . Code$`. D`L8VZBjAssign Error assigning . CodeL`Vv@`V0jh@tj`~ V0[$TERMgv@V0gh@ V0[$TERM V`@h@j` h@@ h`@ V``h`j@(2j@`<D$@F D@LPD$`Z>dV5njPurge Error purging . Codex`vMessage #00 Zapped.6|P PX/@/@  j8*** WARNING This will initialize the ENTIRE file! *** j OKAY? (Y/N -- The Default is no)FvV@@<Y  X@x  j@`ZD$@ D@L ?@O@@",/@There are no messages./@6 @/@Message not found./@JD$`T>^ h`rR *** CHAIN TO ANOTHER PROGRAM ***| r@/@Chain Failed./@  R *** LOGOFF ***4bye R *** HELP ***'/@-The following commands are available for use./@j-[D]irectory - prints a directory of messages.j1[A]dd - adds a messae from privileged mode.j[L]ist - blists a message.j3[T]ransfer - appends a messge to a specified file.j [K]ill - deletes a message.jj)//[B]ye - logs account off of system.j,//[C]hain - chains to a specified program.j//[S]top - ends program.j*//[H]elp - displays these instructions./@& 0`: R *** ERROR TRAP ***D#jAn Error has Occured. Errorin line@Nj&Contact system operator for repair.X`4 8<0@D@H`NRVZ^0b@fdij$4HGFhw,bASWRK  ASSUME _8 !R FALSE ASSUMPTIONS, WRITTEN BY EUGENE J. MUSCAT, PROGRAMMEDR BY WILLIAM K. CHAR, 3 JAN 1974.R( NH H2R3 @X64 jGOOD MORNING, 5<6 @`97 jGOOD AFTERNOON, 8<9 jGOOD EVENING, <jWOULD YOU LIKE THE RULESFfPV@@0NZjdj6TO PLAY ASSUMPTION YOU MUST FOLLOW THESE SIMPLE RULES:njx j 1. BE HONEST!j!j9 2. ACT QUICKLY AND DECISIVELY (YOU HAVE ONLY A LIMITEDj2 AMOUNT OF TIME TO ANSWER EACH QUESTION).jj& 3. YOU MUST VISUALIZE THE SITUATION.j!j: PLEASE BE AWARE THAT YOU WILL NOT DERIVE A SCORE FROM!j:ASSUMPTION. HOPEFULLY, YOU MAY OBTAIN AN ENLIGHTENED VIEW j8OF YOURSELF. THIS VIEW MAY GRATIFY, DISTURB OR CONFOUNDj5YOU. THE HOPE IS THAT YOU WILL IDENTIFY SOME OF YOUR!j:ASSUMPTIONS (IF ANY) AND RECOGNIZE THE EFFECT THEY HAVE ONjYOU AS A DECISION MAKER.j rhV@J"j, j YOUR REASON: 6$@jJjT j ASSUMPTION^jhrh|V@@0$jj j ANSWER: P$ jV @@0AV @@0Bj,WARNING: YOU ARE TAKING TOO LONG TO ANSWER.j* YOU ARE NOT FOLLOWING THE GAME RULES.jj@jjHOW DO YOU THINK YOU DID?&b0@:!d: YOUR NAME IS ART THOMPSON; YOU ARE AN EX-G.I. WORKINGD"d;IN A LARGE CITY AS A STORE DETECTIVE. YOU HAVE BEEN ON THEN!d:JOB SEVERAL WEEKS AND HAVE BEEN TRYING TO DO YOUR BEST. AX!d9RECENT STRING OF INCIDENTS HAVE PUT YOUR JOB IN JEOPARDY.b!d9THE MOST SERIOUS OF THESE WAS A CASE OF FALSE ARREST JUSTl d8YESTERDAY. MR. CARRIGAN, YOUR SUPERVISOR, HAS GIVEN YOUvd6ONE MORE CHANCE. YOU ARE CURRENTLY WORKING THE SECOND d8FLOOR. YOU ARE CALLED TO THE HOUSE PHONE: CARRIGAN HAS d8SOMEONE IN CUSTODY ON THE FIRST FLOOR. HE HAS SPOTTED Ad5KNOWN SHOPLIFTER TAKING THE ELEVATOR UP. CARRIGAN ISd3COUNTING ON YOU TO FOLLOW THIS MAN. THE SUSPECT IS d8DESCRIBED AS WEARING A GREY SUIT AND CARRYING AN ATTACHEdCASE.!d: YOU CAN SEE THE ELEVATOR DOOR OPENING AND THE SUSPECT!d9COMES INTO YOUR VIEW. SUDDENLY, A DILEMA! THERE ARE TWOd6MEN; BOTH FIT THE DESCRIPTION; ONE IS ORIENTAL AND THE d7OTHER IS NEGRO; YOU HAVE TEN SECONDS TO DECIDE WHICH TOdFOLLOW.d d A. ORIENTAL d B. NEGRO "d;$ YOU MADE THE WRONG CHOICE. THE MAN YOU FOLLOWED MADE d8A PURCHASE AND LEFT THE STORE. WHEN YOU RETURNED TO THE d8SECOND FLOOR, CARRIGAN HAD RECEIVED A REPORT OF THEFT IN* d8YOUR AREA. HE BLAMES YOU FOR MAKING A MISTAKE. JUSTIFY4d*YOUR CHOICE TO HIM IF YOU FEEL YOU SHOULD.>d* WHAT ASSUMPTIONS WERE OPERATING HERE?H@R"d; YOU ARE TOM RIVAS, AN OFFICE SUPPLIES SALES REPRESENT-\ d8ATIVE ASSIGNED TO SMALL MEDICAL OFFICES. COMPETITION INf"d;THIS AREA IS VERY KEEN. SINCE PRODUCT LINES AND PRICES AREp"dH j7THIS SECTION WILL DETERMINE THE ACTUAL INTEREST YOU PAYRj&WHEN YOU PURCHASE SOMETHING ON CREDIT.\jfj)WHAT IS THE CASH PRICE OF THE ARTICLE ($)pf4zj DOWN PAYMENT ($)fD"j9 NUMBER OF PAYMENTS EXCLUDING THE DOWN PAYMENTfj( NUMBER OF PAYMENTS PER MONTHg4j" AMOUNT PER PAYMENT ($)g$jL$$$ DL$"4 L&4` MDd&$$jjMDd%D@dj THE RATE OF INTEREST CHARGED WASD PERCENT.$. j8THIS SECTION CALCULATES THE BALANCE OF A SAVINGS ACCOUNT8j%IN WHICH DEPOSITS ARE MADE REGULARLY.BjLj4WHAT IS THE AMOUNT DEPOSITED PER INTEREST PERIOD ($)Vf`j-HOW OFTEN IS THE INTEREST COMPOUNDED (MONTHS)jf$tj%WHAT IS THE RATE OF INTEREST PAID (%)~f4j+FOR HOW LONG WILL YOU DEPOSIT MONEY (YEARS)fDLdLT4d&`&$Lt`&$$D@MFMFF@ WF0t@ LdT$  djjLdd$d@d j"THE BALANCE OF YOUR ACCOUNT AFTER DYEARS WILL BE $djj(j2j*****<jF j5WOULD YOU LIKE TO RUN THE PROGRAM AGAIN (1-YES, 0-NO)PgZWd`BANNERU /=!R *** HP BASIC PROGRAM LIBRARY ******************************RR PLOTWD: WORD PLOTTERR R 36228 REV AR!R *** CONTRIBUTED PROGRAM ***********************************R R NH H0H$v0>ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890.-+*/:;,\^!#$%()[]=<>?' &@j& PRINTABLE CHARACTERS ARE: 0( j INPUT WORD2f<j FV.ZPv0Z XD@Pd @n(v F xw@ X@P X$@0 V00$$Z$blX4@|$@P DhZ4 oP X4P@~@w4Ԧ@Ԧ@ vԞԦ@Z4 X4@P W4," v ,w@6Z4@w@JZTj @^ZDh XrvX|j Zj GO AGAINf  V 0YES( pD | D D x D x D x &x@ @ @ xx D D D x | @ Dp @ | | @ p @ @ p@ \ D pD D | D D | @@@2| | @@P p D H p H D @ @ @ @ | AD l T D D D d T L D pD D D px D x @ @ pGD D L xx D x H D x@ p@x | @@@@D D D D 2pD D D P@D D T l D D P@PD MD P@@@| @@@| @`@@| pD @@| | @`@x GH H | @@| @ x @x @@X d p| @@@@pD p&D ppL h@@xL T d x V``| @@| @@T p| pT @@@@@ `Y``@`@`@ @@@@@pT @@pp@@P| &PP| P xP pPx d h @XL @@@@@@@@@@`@@0S@``@@@`pp@@@@@@@@@@pD `@:>pp@| pT l X xD`BASE O <R BASE, PROGRAMED BY ZONTAR MOUSENH$1IL$0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZn n3j BASEg$ j NUMBER.f8j =L@L$@BX@|L X@H V V0t`Zjt L1@~Z X@wX$|"L1@1@P%$1'1' L11'ZL1@P L1@ X$@IV1$Z$Z Xw@~@VZ b X@~@j@@(Z2'`BASEBL{ L$R BASBAL ........ PLAYS BASEBALL N2Oa2L@(j2 Y@c<MF[Pj+THIS PROGRAM PLAYS BASEBALL, COMPUTER STYLEZjDETAILS?.....1-YES, 0-NOdgnW@xj$THE VISITING TEAM WILL BE THE GIANTSj%A GROUNDER TO THE SHORTSTOP..........j2THERE ARE THREE TYPES OF GAMES THAT CAN BE PLAYED:j# 1) YOU CAN PLAY FOR BOTH TEAMSj5 2) YOU CAN BE THE VISITORS AND PLAY THE COMPUTERj, 3) YOU CAN LET THE COMPUTER PLAY ITSELFjENTER THE OPTION THAT YOU WANTL$-.4;DTdfgtvwƞL$4DNTdtg}W}` T$T 0j"PLEASE USE THE PRE-DEFINED OPTIONSU},Th",66j,YOU WILL BE ENTERING INTEGERS FOR BOTH TEAMS@j GOOD LUCKJ|Tj YOU WILL BE PLAYING THE COMPUTER^|hjTHE COMPUTER WILL PLAY ITSELFrj3DON'T SIT BACK YET, YOU WILL HAVE TO DO SOME WORK !|jj&..........AT BAT, THE GIANTS..........M@jjENTER AN INTEGER FROM 1 TO 9gY@}%M[W@WHj5THE VALUE THAT YOU ENTERED IS NOT WITHIN THE BOUNDARY j TRY AGAINjENTER AN INTEGER FROM 1 TO 9f$&V$@l0V$Hl: W"$PXDL@NU}>XL@bU}>lj5THE VALUE THAT YOU ENTERED IS NOT WITHIN THE BOUNDARYv j TRY AGAINjENTER AN INTEGER FROM 1 TO 999f4V4@V4Nj5THE VALUE THAT YOU ENTERED IS NOT WITHIN THE BOUNDARY j TRY AGAINLDTdt$4DTdtL@ T$XjU} > T 4  jENTER AN INTEGER FROM 1 TO 999*UR4U>>Me@H\Rg\W@fW|pM@zL4X@f4V4@V4|M@j5THE VALUE THAT YOU ENTERED IS NOT WITHIN THE BOUNDARY j TRY AGAINW04 W*4TLM Wd j.$M@.U6<" v 8UX< vB UT 6  LWh j`tjM@tU  6"~UX  v UT 00 L$$ V$d L$@TT$ @vT$Xv06    T$T 0T$   "" T$T " 0VĬ@ j2A GROUNDER TO SHORT..........OVER TO FIRST IN TIME .L;;@(V;P<2F<L;@FVİ@dPVİ@dZdWt@xnxj%A GROUNDER TO THE SHORTSTOP..........j+HE STEPS ON SECOND..........THROWS TO FIRST j.......DOUBLE PLAYLĞ@ .Vİ@@Wt@"j-A LINE DRIVE TO THE FIRST BASEMAN............#j=HE STEPS ON FIRST....AND DOUBLES UP THE RUNNER....DOUBLE PLAYLĞ@ .j+A FLY BALL TO LEFT........TAKEN FOR THE OUT .j(A GROUNDER THROUGH THE HOLE....A BASEHIT "j4A FOUL POPUP BEHIND THE PLATE.....THE CATCHER HAS IT, .6Vİ@J@JWN@^TWt@h^hjA GROUNDER BACK TO THE PITCHERrj%THE THROW TO SECOND.....OVER TO FIRST| j......DOUBLE PLAYLĞ@ .Wt@Pj.A GROUNDER TO SECOND.....OVER TO FIRST IN TIME .V@Wt@j3A SLOW ROLLER TO THIRD.......THE THROW.....IN TIME  .jOUT ON CALL STRIKE THREETLff@ .Lgg@& .0j,A FLY BALL TO CENTER.......TAKEN FOR THE OUT: .DWt`N .Xj)A GROUNDER TO THE FIRST BASEMAN..........bjHE STEPS ON THE BAG FOR THE OUTl .vj#A LINEDRIVE INTO LEFT FOR A BASEHIT j"A GROUNDER UP THE MIDDLE FOR A HIT j)A SOFT FLY BALL OVER SECOND.....A BASEHIT j& A WALK..........JUST AS GOOD AS A HITTLvv@ Lww@ !j9A LONG DRIVE TO DEEP LEFTCENTER.....IT'S GONE FOR A HOMERWt`  r j.....A GRAND SLAMMER..... r Wt@4*4Vİ@H>Hj0A LONG DRIVE TO DEEP LEFT......IT'S OFF THE WALLR!j9THE RUNNER GOES INTO THIRD STANDING UP...A THREE BASE HIT\MDD@fMTtpMt@zMN@ Xj3A GROUNDER TO SHORT.....THE THROW IS IN THE DIRT...j3THE RUNNER IS SAFE .......AN ERROR ON THE SHORTSTOP j-A LONG DRIVE TO RIGHT............BYE BYE BABYWt` rjIT'S A GRAND SLAMMER rj+A LINE DRIVE INTO CENTERFIELD FOR A BASEHIT j.A GROUNDER TO THE THIRD BASEMAN...............j HE BOBBLES THE BALL.....AN ERROR L-@ L.. - L- $ .LĠ@ 8j AWAY BVİ` V L VV@ `VH t j tV- ~V1 LĞ T LTD L. L. MN jD RUNS ** T HITS **  ERRORS M D M$$ T M VH L@ MaD LDTTDt L@ VH 2 ( Z 2V F < Z FLƞ@ P Zj dj$..........AT BAT, THE METS.......... nL@ x LD Ld. L.N MN jt RUNS **  HITS ** d ERRORS L t L M44 d VH  L@ Lt VH    V-  LtdDTt j INNINGS COMPLETED "j( RUNS HITS ERRORS ,j GIANTS *  * $ * 4 6j+******************************************* @j METS *  *  *  Jj Tj&..........AT BAT, THE GIANTS.......... ^L@ h rMDD@ | D MDD@ WN@   MN  0 L@ Mtt  L Wt`   Wt@  j j THERE ARE t MEN ON BASE Wt` &  &Mt` 0MT@ : X DMTt@ NMt XT b bLDD!T lVD@ v j jDRUNS ARE IN SO FAR THIS INNING MT  Ltt!T VH  VH  Vt@  j jtRUNS ARE IN SO FAR THIS INNING MT  V t+ R  V t+ *  *L t 4M44 . >L! H RL t \M44 . fLHt pLƞ@ zL!D  jFINAL SCORE IN  INNINGS j RUNS HITS ERRORS j GIANTS *  * $ * 4 j!********************************* j METS *  *  *  j !jTHE METS PITCHING STRUCK OUT f GIANTS AND WALKED v j !jTHE GIANTS PITCHING STRUCK OUT g METS AND WALKED w j  jj#THE FINAL SCORE WILL BE SHOWN BELOWj j5 1 2 3 4 5 6 7 8$j 9.3j *a@*a@*a`*a@*aP*a`8j*ap*a@*aHBjLj RUNS HITS ERRORSVj $4` j8********************************************************jj" METSt j5 1 2 3 4 5 6 7 8~j 93j *@*@*`*@*P*`j*p*@*Hjj RUNS HITS ERRORSj j!jTHE METS PITCHING STRUCK OUT f GIANTS AND WALKED vj!jTHE GIANTS PITCHING STRUCK OUT g METS AND WALKED wjj!A BUNT....THE RUNNER BEATS IT OUT  M@W\ (2(M@2U6<<<fFPWt@dZrdj,A SWING AND A MISS.....WITH THE RUNNER GOINGnj1THE THROW BY THE CATCHER.....IN TIME, HE GETS HIMxjA STRIKEOUT DOUBLE PLAYTLff@LĞ@ .Lgg@LĞ@ .WN@Wt@Vİ@J j8A GROUNDER TO THIRD.....OVER TO SECOND FOR THE FORCE OUT .Vİ@ .j!THE RUNNER ON THIRD IS TAGGING UPj!THE THROW FROM THE OUTFIELD......"j&THE SLIDE...OUT!.....A BEAUTIFUL THROW,LĞ@6 .@Vİ@TJT j7A FLY BALL DOWN THE RIGHTFIELD LINE.........IT DROPS IN^ j8THE RUNNER IS TRYING FOR SECOND.........................hj-THE THROW INTO SECOND.....GETS HIM.......OUT!rMDD@| .W0V+jV-Dj2THE GIANTS HAVE BEEN THOROUGHLY BEATEN BY THE METSjj5IF YOU WANT TO TAKE ANOTHER CRACK AT IT TYPE 1-ELSE 0gW@bL@L@jjTHIS IS THE START OF GAMEj&j!AGAIN THE GIANTS LOST TO THE METS0j:DjNjTHE GIANTS BEAT THE METS????Xb`rBATNUMM _5 R ***** BATNUM ***** DEMONSTRATION PROGRAM *****R ***** VERSION 1 ***** 7/31/69 *****R PLAYS BATTLE OF THE NUMBERS(j+THIS PROGRAM PLAYS 'THE BATTLE OF NUMBERS.'2j< j INSTUCTIONSFNHPfZV@@0Ndj2THE GAME IS PLAYED WITH A PILE OF OBJECTS, SOME OFnj5WHICH ARE REMOVED ALTERNATELY BY YOU AND THE MACHINE.xj5YOU MUST SPECIFY WHETHER WINNING IS DEFINED AS TAKINGj5OR NOT TAKING THE LAST OBJECT, THE ORIGINAL NUMBER OFj4OBJECTS IN THE PILE, WHO GOES FIRST, AND THE MINIMUMj5AND MAXIMUM NUMBER OF OBJECTS WHICH CAN BE REMOVED ATj0ONE TIME. TYPING '0' FOR YOUR MOVE WILL CAUSE Aj4FORFEIT, AND TYPING '0' FOR THE PILE SIZE WILL CAUSEjTHE TERMINATION OF THE GAME.jENTER PILE SIZE: fV V䰯V@j4ENTER WIN OPTION - 1 TO TAKE LAST, 2 TO AVOID LAST: fV԰@,V԰@,",jENTER MIN AND MAX: 6f$@V*$,JV@,T Vh^,h V$$|r,|j3ENTER START OPTION - 1 MACHINE FIRST, 2 YOU FIRST: g4W4@W4@|L4 $W4@Wt@Wt@MV԰@M@V԰@DV*l&Mt@0j MACHINE TAKES AND LOSES:^DV*$lNMt@Xj MACHINE TAKESAND WINSb^l M"4&4vW>MW@$M$L#j MACHINE TAKES AND LEAVESMt^ j YOUR MOVE: gW jMACHINE WINS BY FORFEITMt@^ W H W>>*W0z4H>W@$\HjILLEGAL MOVE, REENTER IT: R\L#fVzpzV԰@jYOU LOSEMt@^jYOU WINMt@^VL!HMt^`BATTLE{ b$R **** HP BASIC PROGRAM LIBRARY *********************************RR BATTLE: BATTLESHIP GAMER R 36236 REV AR$R **** CONTRIBUTED PROGRAM **************************************R R R -- BATTLE WRITTEN BY RAY WESTERGARD 10/70R COPYRIGHT 1971 BY THE REGENTS OF THE UNIV. OF CALIF.R PRODUCED AT THE LAWRENCE HALL OF SCIENCE, BERKELEY(Nb!12nc< X@`Fv@"P X@@Zv`@dv$`@nvD@@x Vb$ZvԞTDT&v!@$v!@!`pX@|VԪ@ V!`Vb!@v!@!@vԞ@w!@8!@8!`W@ZVb@Z v!@@Z"vb$H@$",X@|6vb!@b$@ZJTv@^v!@$hv@`!@!`rX@||VԪ@V@6!@Vb@!@(Vb@!4b@!0b!@v@@v!@!@vԞ@w@:@:`w!@:!@:!` W`7`ZVb@@ZVb@4b@0b@Z v@@ v!@@Z&v@0v@`p:X@|DVԪ@N V`vXVb@$vbv@@lvvԞ@w@8@8`W@ZVb@$Z v@@Zvb$H@$"X@|vb@$b$Zv@v!@$v@`pv!@!` X@|VԪ@f V`6!@\*Vb@!@\4(Vb@!4b@!0b!@\>v@@Hv!@!@R\vԞ@fw@8@8`pw!@:!@:!`z W@7`ZVb@@ZVb@4b@0b@Z v@@ v!@@Zvb$H@$"X@|vb@!@b$ZZZjj5THE FOLLOWING CODE OF THE BAD GUYS' FLEET DISPOSITIONj#HAS BEEN CAPTURED BUT NOT DE-CODED:jnc$nj.j8j DE-CODE IT AND USE IT IF YOU CANBj'BUT KEEP THE DE-CODING METHOD A SECRET.LjVn`nßjv1@1@@tv1`1@@~v1P1`w4 j START GAMEgW@7`W5pjINVALID INPUT. TRY AGAIN.w$p#v4 Vb$4 w44@jSPLASH! TRY AGAIN. V1b$4@< j7THERE USED TO BE A SHIP AT THAT POINT, BUT YOU SUNK IT.jSPLASH! TRY AGAIN.(w44@2< V$4Fv@P v$4b$4ZjA DIRECT HIT ON SHIP NUMBERb$4dv1b$41b$4@n V1b$4@x j TRY AGAIN.j*YOU HAVE ALREADY PUT A HOLE IN SHIP NUMBERb$4 jAT THAT POINT.jSPLASH! TRY AGAIN.w44@-vb$4@@@b$4@@@@j+AND YOU SUNK IT. HURRAH FOR THE GOOD GUYS.jSO FAR THE BAD GUYS HAVE LOST"j@DESTROYER(S), @CRUISER(S), AND j`AIRCRAFT CARRIER(S).<j YOUR CURRENT SPLASH/HIT RATIO IS4&V@ @ ``jj.YOU HAVE TOTALLY WIPED OUT THE BAD GUYS' FLEETj WITH A FINAL SPLASH/HIT RATIO OF4&" W4&6,j+CONGRATULATIONS -- A DIRECT HIT EVERY TIME.6j@j*******************JjT2^`<BBS1  5 J  &J P P PPPPPPPJPPPPPP(JPP# PP P-J! " # $% .J&/N'2 v/7 v()<v HZ4 TIMd ן`@Pn R *** BBS1 ***x p*,*,*,*,*,*,*4*PAU-5D BBS04F.A002@+L ן`@PV+ j STAND BY...D BBS04F.A002@+L ן`@PV+jCRISIS TIMESHARE BBSjv  oSAT : oSUN :t,V,H @p@H  V,L @p@H   :jPORT , NOT ALLOWED 8:00 AM TO 6:00 PM.",v-*6v@vJjTVNP^R * LOG ON *hD$`rV @@.A000 |vSYSOPv"1 j Please log onvj: v/V @@.A000 F V0 j:x V0@Pv "**********************************v "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX j @@h @@V@@0? P  ` o, Ry& v.o,0 v".@: v@.@D6|- NV-@PX6-|b lvvv"P P TV@P0SYSOPP ן`@PVNPjHello , is the spelling correct ?FvV@@0N ן`@P R * CK FILE STATUS *D BBS05F.A002P/L hP@$D$P V0NEW Rv)@pVNPz4*ECH-ON ן`@P h@@ V`@  ן`@PR * FN/LN/CTY-ST/CODE/USER/EX-NOV * h@  ! V @@0! q v0O@ v1?@V0 V0   qV0"  j Invalid code $ R * ADD NEW USER *. ן`@P8jCant find a record of B|LVNPM V. BBS KILLER 3OPVjEnter city,state :`v(@jFtv~P P 3VNPj"Enter a personal code or type '?'  4*ECH-OFFFhV0g ן`@PV@@0?g @  X2@V22|  V22@ V22[  Z2 (j#Must be exactly 4 characters long.( c2jUpper case A-Z only.< cFj,Type the code again to make sure it is O.K. PF Z ן`@PdhnV 0 xj&Sorry it does not match ... try againh cjO.K. don't forget the code.j.Are you an expert with this system (Y/N or ?) 4*ECH-ONFvV@@0?V0V@@0NV@@0Y vXv@vNv"jWait...$D BBS04F.A002@+H% ן`@P&V+,VNP6 ן`@P@ h@@J @`Th@ ^V 0h h@     rv |] R * 5 ITEMS ALLOWED * V`@D BBS01F.A002@3$L ן`@PV3`3V3 h@@V(@j@@@`V0"V0 j@@@@`6@| v`}@|@P!v80000 New user *00000+ &vB F @`0 v@`: v@`MLDj@ `Nv 0000Xv!b6@|l6|-vv v@V!@@.Xv@#V!@@0M V!`0Lr- BBS02P.A002ZV-3r- BBS06P.A002ZV-3v@r- BBS07P.A002nV-3j*Sorry the BBS is down... call back later. s R ** LOG OFF ** jErrorin line@* j Code # 0014V @@0A000>4*BYEHRb\D BBS02F.A002`4LfV4pv ++++++z h`@ V`` ן`@Ph` V 0 h` ן`@P V``V@@0+jjR j4 time you log in. Typing an 'N' or hitting will j6 keep command prompts in their original configuration. j $ .j 8j6Type a four letter code that will be your password and B j8 protection code. The code must be upper case characters Lj4 A-Z only, and must be exactly four characters long. Vj( *** REMEMBER YOUR CODE !! *** `j j c th@ ~V @@.! h@     j already exists. D$@  R *** PORT LOCK SUB *** t, D BBSF32.A002`5L j`,@` j`,@ ` j`,@` D$` 6,| v# BBSFXX.A002 V,P  v#P`  ( v# BBSF0X.A002 2 v#`` < D#P/J FV/p P X2@d Z jP2` dZ2 n jP@` s V0 DAVE PACKARD xv%ONQ* | }v%HIDE* jP@%`  v R ** UPDATE LOG FILE ** h@@ V`@< v0O@ v1?@ h@  V @@0!s h@    v V0  )  @@@6 ) "h@0 , @@1P6 6v  @ h@@ J6| T v  @P ^v  @* h v  @ rv  |`}@| @P v  @+ v  @ B@ DRAT.A000p7 hp@ @pN ( jp ` D$p R ** GREETINGS ** D ZCATF.B200@8L ן`@P V8G X2@| @` h@ v82 Z2 D$@  v9@ 68| V9` &V9H  0 : j Good morning  D N jGood afternoon  X b j Good evening  l v.o  vv  6 @o  @|: v; v;;": 6;| V V.@ j@. jYou are user # , and caller # @ jLast on  Po *@ j@@Letters currently on file. #jLast message at that time was #@o @ o *@ 6 |< V<@ j ) - New message entered since last log on.  j " Messages added since last log on. * 4j >jYou are user # , and caller # @ HjLast on  Po *@ Rj@@Letters currently on file. \#jLast message at that time was #@o @ fo *@ p6 |< zV<@ j % - Message entered since last log on.  j " Messages added since last log on. ^ R ** EXPERT PREAMBLE V.@ j@.  j 6| jUser -  , caller - @ j@@ - Letters on file. j@@ - Last entered.j@o @ - Last read.6 |<V<@P$j @@ - New messages added..g8j @@ - New messages added.Bo *@LV R ** ERROR MESSAGES **`j"Illegal format, type '?' for helpj t jToo many chr's~ R **** CALENDAR STARTS HERE ****VNP,| x [yL[jzDL@S[|,| v ZxKZjyD@LS[@| v= v>@ v.@ v?`v0123456789000000000000000v - - : AMv >V>d =K v@ D PM V>hv >`G( vPX2v =<GF vhpPV?@?@?Zdnh@n X2@pxV.*'2<V2p v.."'hv??@cv 2@G v@@ v ."'2@G v@Pv ?G vp@^Z2", R NUMBER-TO-STRING6 vA P@v@@A@A@JvA "APTv@@A@A@^^h R *** PORT CHECK ***mNB r|R C$ = DATE -- B$ = DAYj . - ^nC nC| $CLB@B`BHBXx  LB@t L $JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC L  0123456789 L)`V)@)@2 LB@p  LD@ XE@`VD@BEVLDD"BEZE& LFDP0L  :VF{D L  F@F@N LFD"FP@X L @ FFb L ` lL @ `$E@`$Ev L p  LF)PL @ F@F@ LF)"FP@ L H FFL SUNMONTUEWEDTHUFRISATLF@ ))@@LFFFppL  `$F@`$F`^`f4TDVVn j0f@bP^`ZpVRNHD@0<@8`4.*&"  .)6D*&(+'$47Dw,BBS1T  <K Kf4TDVV&JP P0P@PPP`PpPPPJPPP0P@P`P(KДPҔPӔ#Ԕ ՔPPP-K֔ ڔ ۔ ܔޔ .Kߔ/N2 w/7 vfD.<vVHZ5TIMd ן`@n R *** BBS1 ***x p*,*,*,*,*,*,*5PAU-5D BBS04F.A002@)L ן`@W) j STAND BY...D BBS04F.A002@)L ן`@W)hjCRISIS TIMESHARE BBSkwҟ  oSAT, oSUN,t WH @p@H WL @p@H ,jPORT  NOT ALLOWED 8:00 AM TO 6:00 PM.">,v66w@vJjTVN^R * LOG ON *hD$`rW@@.A000|wSYSOPw1 j Please log onvj: w/W@@.A000G0 W00j:x4 V40@v "**********************************v"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX j@@h @@WҔ@@0?\ P t `` o,&V& vDo,0 wD@: wҔ@D@D7|6lNV6@X66|blwҟvw`P P^WҔ@P0SYSOP ן`@VNjHello , is the spelling correct ?FvV@@0N  ן`@ R * CK FILE STATUS *D BBS05F.A002P*L hP@D$P W`0NEWLRw@pVNz5ECH-ON ן`@ h@@ V`@$ ן`@R * FN/LN/CTY-ST/CODE/USER/EX-NOV * h@ @0V @@0! wO@ w?@V1W0W@1 j Invalid code$ R * ADD NEW USER *. ן`@8jCant find a record of B4LVNM W. BBS KILLERVOVjEnter city,state :`w.@jF`tv``~`P `PVVNj"Enter a personal code or type '?'  5ECH-OFFGhW0 . ן`@WՔ@@0? . @ X@V`|  W@2W[2 ZFj#Must be exactly 4 characters long.(2jUpper case A-Z only.<Fj,Type the code again to make sure it is O.K. PF Z ן`@dhnV 1xj&Sorry it does not match ... try againhjO.K. don't forget the code.j.Are you an expert with this system (Y/N or ?) 5ECH-ONFPvPPVP@@0?VP0VP@@0NVP@@0YvPXvf@"vPNvf"jWait...$D BBS04F.A002@)H% ן`@&W)$,VN6 ן`@@ h@@J @`Th@^V1 th h@rv|J R * 5 ITEMS ALLOWED * V`@lD BBS01F.A002@&L ן`@W&`W& h@@4TW.@j@@Ԡ@4T`W@1lW0lj@@Ԡ@4T@`7T@|0v`}@|@P!v80000 New user *00000+ &vB F @`0 vPP@`: vP@`MLDj@`0P`Nv00000XwPb7T@}l7|6vwwD@W֔@@.Xvf@ W֔@@0M W֔`0Lr6 BBS02P.A002ZV6r6 BBS06P.A002ZV6wV@r6 BBS07P.A002nV6j*Sorry the BBS is down... call back later. * R ** LOG OFF ** jErrorin line@* j Code # 0014W@@0A000R>5BYEH>Rb\D BBS02F.A002`(LfW(\pv0++++++z h`@ V``  ן`@h` V 00h`@ ן`@ V`` V@@@0+ j@jR j4 time you log in. Typing an 'N' or hitting will j6 keep command prompts in their original configuration. j $ .j 8j6Type a four letter code that will be your password and B j8 protection code. The code must be upper case characters Lj4 A-Z only, and must be exactly four characters long. Vj( *** REMEMBER YOUR CODE !! *** `j j th@ ~V@@.! h@ r k already exists. D$@  R *** PORT LOCK SUB *** t  D BBSF32.A002`+L j`@` j`@ ` j`@` D$` 7}@ w BBSFXX.A002 WP (  w۔P`@  < ( w BBSF0X.A002 2 w۔``@ < EۄP*J FW* P X@d Z jP` dZ n jP@` s W0 DAVE PACKARD } xwONQ* | }wHIDE* jP@`  w@ R ** UPDATE LOG FILE ** h@@ V`@ wO@ w?@ h@ 0 V0@@0!  h@0000 v@0 W0  "   @@@  "h@ , @@P 6v  @ h@@4T J64| T v0@P ^v  @* h v00@ rv  |`}@| @P v  @+ v00@ B@0 DRAT.A000p hp@ @pN . jp0` D$p R ** GREETINGS ** D ZCATF.B200@'L ן`@ W' X@| @`  h@ w' Z D$@  v$@ 7'| V$` : &V$H  N 0 b : j Good morning  D l N jGood afternoon  X l b j Good evening  l vDo  vv0@ 60@o0 @} w4 w# 7| Vf VD@ 4 kҔ@D jYou are user # , and caller # Ԡ@ jLast on 0Po0*@ j@@Letters currently on file. #jLast message at that time was #@@o@ @ o0*@ 6| V@ j) - New message entered since last log on.  j" Messages added since last log on. * 4k >jYou are user # , and caller # Ԡ@ HjLast on 0Po0*@ Rj@@Letters currently on file. \#jLast message at that time was #@@o@ @ fo0*@ p6| zV@ j% - Message entered since last log on.  j" Messages added since last log on. ^ R ** EXPERT PREAMBLE VD@ kҔ@D  k 64|p jUser -  , caller - Ԡ@ j@@ - Letters on file. jp@@ - Last entered.j@@o@ @ - Last read.6|V@8$j@@ - New messages added..B8j@@ - New messages added.Bo0*@ L V R ** ERROR MESjSAGES **`j"Illegal format, type '?' for helpjt jToo many chr's~R **** CALENDAR STARTS HERE ****VN,| x [yL[jzDL@S[|,| v ZxKZjyD@LS[@| w4 v@ vD@ w`vp0123456789000000000000000w - - : AMwVd!4K w@ D PM Vhw`,( wPX2w4<,F whpPW@@Zdnhn X@pxVD*Vp vDD"hw@w@, w@@ wD"@, w@Pw, wp@^Z"d, R NUMBER-TO-STRING6 v䞯P@v@@p@@Jv"PTv@@p@@^^h R *** PORT CHECK ***mO r|R C$ = DATE -- B$ = DAYj . - ^o o| %M@`HXx  M@t L $JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC L 0123456789 M`W@@ M@p  M@ Y@`WA&M#[& MP0L0 :WND L0@@N M#P@X L0@b L0` lL0@ `%@`%v L0p  MPL0@@@ M#P@ L0HL SUNMONTUEWEDTHUFRISATM@!@@MppL  `%@`%`^`jBBSRENc _9 NpB4 h@@ h@( Y@}27}<B@F h@Z[c`BINAY0 JU R * BINARY FILE STORAGE AND CONVERSION *R * WRITTEN BY ALAN DE MARTINO * R * MARCH 21,1979 *(R2 v/<p*,*,*,*,*F&NPPPP P PPN P P PZj TASK COMMANDSdj ---------------njxj/E - BACK STEPS QUERYj*/D - TO DUPLICATE DIRECTLY FROM PR0 TO PP0j /P - PUNCHES TAPE FROM DISC FILEj1/R - READS TAPE FROM PR0 AND STORES ON DISC FILE.j/S - STOPS PROGRAM EXECUTIONj/V - VERIFY TO DISC FILE j/I - INVENTORYjR *** PROGRAM FEATURE SELECTION ***jTASK >F V @@0/EV @@0/D !V @@0/RV @@0/P-V @@0/S rV @@0/V "V 0/I ,V 0|6j@j // UNRECOGNIZED TASK //JjT@^R ** SUBROUTINE TO READ FROM PR AND STORE ON DISC FILE **hRr DBINFILPJ|VD~ V`P hP@#vv@ jP@` hP@ @P} vOP v?P6|jHOW MANY FEET IS INPUT TAPE f6|V@_<V3D@ j Enter part # &F 0 j Rev code :F D h@@Nj@  XjP  bjDescription (//) endslF vv  V @@0// j@ ` jP ` j@` jP` jP/*/` h@@S j File exists| jProgram in use.bD@ DPR@Vo *j2CANNOT ACCESS PHOTO READER. NOTIFY SYSTEM OPERATOR4 r>jLoad tape, press returnH h@@RF\ X@f j@B pVNzF@j@ V`@ZjjFile too smallD$@>hP@P_jEOTD$@D$@ R ** PUNCH FROM DISC FILE TO PP0 **$j READY SYSTEM PUNCH PRESS RETURN .8jBj"NAME OF FILE TO BE OUTPUT TO PUNCHLV @@0/EAVf `D @jVt h@@~ j Punching # h@@ j NO SUCH FILE` DPP@ X@ V`@h@ j@B Z X@K j@Z D$@D$@A(j2jDUPLICATION PROGRAM<jF!j7PLACE TAPE IN READER , READY PUNCH , THEN PRESS RETURN PFZjd DPR@n DPP@x X@ j@B VN F@ j@B ZD$@D$@AR ** VERIFICATION PROG **jj#NAME OF BINARY FILE TO VERIFY TAPE j *FV@@0/ED@V X"v,v*6v$d@ h@@JjVerify - press return TF^ h@@h j Verify # r DPR@| mj// INVALID FILE //j  h@@ X@VN  V`@ ` V`@ w j@B F@R NULL ERROR DETECTION GOES HERE..SEE LINE 900h@V0 vV. Zj&TAPE DOES NOT COMPARE WITH DISC FILE.&jReload tape, press return0F:DjNjXjEND OF TAPE NO ERRORS DETECTEDbjlj.WISH TO READ IN ANOTHER COPY OF THE SAME TAPE vj*V@@0Y jEND OF DISC FILE... NO ERRORS. %j END OF TAPE... NO ERRORS.jR ** BINARY TAPE INVENTORY **p*,*,*,* DBINFIL@L R ** NAME SEARCH **jEnter diagnostic to be found F V0 h@@ V`@ d*h@4 oV > V`@ dHh@R V0/*/ \ f R ** Print info **p j # - z X@P V`@ dh@ V0/*/ j- Z  j End of file `L P0T@XP\``pdhlrvz*$$& uB w,VBIFIL0 <@1/*/BIOSIN _:? N OДP 5TIMWД@@0B000jB000 -- NOT ALLOWEDbR COPYRIGHT 1971 BY THE REGENTS OF THE UNIV. OF CALIF.R PRODUCED AT THE LAWRENCE HALL OF SCIENCE, BERKELEY(jTHIS IS A BIORHYTHM CHART2N $0H  < v 0123456789FnhPQt ϗ@@ZQ?4p4'4'dz dPߗp$ppnvSATSUNMONTUEWEDTHUFRIxv $JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECjDO YOU KNOW WHAT BIORHYTHM ISf0V0@@0Y%jB THE BIORHYTHM THEORY POSTULATES THAT THERE ARE CERTAIN META-$j?BOLIC RHYTHMS THAT HAVE A CONSTANT CYCLE TIME IN THE HUMAN BODYjAND ARE KNOWN AS INNER CLOCKS.#j= TWO PHYSICIANS, ONE A CONTEMPORARY OF FREUD, CONCURRENTLY$j@DESCRIBED A 23-DAY CYCLE THAT CORRELATED WITH PHYSICAL VITALITY,"j v0@ HvTDR\VD@fv00@ `$Ԣ@`$pvTzj0 Y0@H v0 [ Y@` wP%H  w?4[ v0x x Iv0@@P"W@/@7@/`7@/`v0@@*`W@/@$v0``C.$W@/`B.v0@@*8`Bv0@@SLW@1`Vv0``C` YxHj V00 ~t@0~[jw44@vDD@ VD,@vD@vԠ@VԬhvԞ@w@ v@wv00@  Y@~@vTP)PTP(@@ W @F(w@2v00@<FF[Pv00@ Z^d j IMPROPER MONTHnx j IMPROPER DAYTj* PLOT STARTING DATE EARLIER THEN BIRTHDAY&| p | x | x | | x | x | `BIOSUM S R "BIOSUM" : ADAPTED FROM LAWRENCE HALL OF SCIENCE'S BIOSIN R REVISED BY JOHN J. STEFANI, 400 MANSELL ST., SF/CA. 94134OH5@@TIMW@@0B000jB000 -- NOT ALLOWEDbj4** NOTE ** THERE IS A 50 CENT SUR-CHARGE PER CHART(j DO YOU WANT TO CONTINUE 2 j (YES OR NO)<NFfP V0YESdZ rd5MES-$ .50 BIOSUMnN $HДH Hx Nє HP@ϖddP/$ϖ$@$@P?4ϖ4d4dPODp$DpDp&P_TT'T'%T"'T"'%PodJ X $_d@Ptt "?tt /tvThuFriSatSunMonTueWedv $JanFebMarAprMayJunJulAugSepOctNovDec v 0123456789v@vŞwdnh&| p | x | x | | x | x | R" R INTRODUCTION,R6 jBIORHYTHM ANALYSIS@jJjDO YOU KNOW WHAT BIORHYTHM ISTg^W@@0YhW@@<NJrj|j3 THE BIORHYTHM THEORY POSTULATES THAT THERE AREj4CERTAIN METABOLIC RHYTHMS THAT HAVE A CONSTANT CYCLEj6TIME IS THE HUMAN BODY, AND ARE KNOWN AS INNER CLOCKS.jj1 TWO PHYSICIANS, ONE A CONTEMPORARY OF FREUD,j5CONCURRENTLY DESCRIBED A 23-DAY CYCLE THAT CORRELATEDj6PHYSICAL VITALITY, ENDURANCE, AND ENERGY; AND A 28-DAYj6CYCLE THAT CORRESPONDES TO SENSITIVITY, INTUITION, AND j8CHEERFULNESS. A THIRD CYCLE WAS OBSERVED BY A PROFESSORj3AND OTHERS IN THE 1920'S AND 1930'S AND IS A 33-DAY j8COGNITIVE, OR INTELLECTUAL CYCLE THAT RELATES TO MENTAL,jALLERTNESS, AND JUDGEMENT.jj1 ALL THREE CYCLES START UP FROM BIRTH, OR THEj5BEGINNING OF INDEPENDENT LIFE. THE DAYS ON WHICH THEj4MEDIAN (0) LINE IS CROSSED ARE CALLED CRITICAL DAYS, j7ESPECIALLY FOR THE PHYSICAL AND SENSITIVITY CYCLES, AND&j6ARE DAYS WHEN ACCIDENTS ARE MOST LIKELY TO OCCUR. THE0j4HIGH (+) PERIODS IN THE VARIOUS CYCLES ARE THE TIMES: j7WHEN YOU SHOULD HAVE THE MOST ENERGY, BE MOST CAREFULL,Dj4OUTGOING, AND MENTALLY ALERT. THE LOW (-) TIMES ARENj3REGARDED AS THE RECUPERATIVE PERIODS. ALTHOUGH ALLXj5CYCLES ARE SAID TO START FROM ZERO (0) AT THE TIME OFbj5BIRTH, BIORHYTHM HAS NOTHING TO DO WITH ASTROLOGY. Alj6TOKYO TAXI COMPANY HAS REPORTED A 60% CUT IN ACCIDENTSvj6BY GIVING DRIVERS AN 'EXTRA-CAREFUL-TODAY' REMINDER ON jCRITICAL DAYS.j jGRAPH SYMBOLS:jj : : MEDIAN LINE (0 LINE)j# P : PHYSICAL CYCLE (23-DAY)j# S : SENSITIVITY CYCLE (28-DAY)j# I : INTELLECTUAL CYCLE (33-DAY)j, * : TWO OR MORE CYCLES AT THE SAME POINTjjDO YOU KNOW ABOUT BIOSUMgW@@0YW@@<N j!j9 BIOSUM IS A MODIFIED VERSION OF BIORHYTHM, AND NEEDS j6TWO PEOPLE (OR YOURSELF TWICE) TO USE. THE SUM OF THE*j5TWO PERSONS BIORHYTHMS IS CALCULATED AS AN INDICATION4 j8OF THEIR COMPATABILITY. THE AMPLITUDE OF EACH BIORHYTHM> j8GIVES THE OVERALL COMPATABILITY FOR THAT CYCLE WHERE ASH j7THE VALUE AT ANY DAY GIVES THEIR COMPATABILITY FOR THATRjDAY.\jfjLARGE AMPLITUDE: COMPATABLEpjSMALL AMPLITUDE: CONFLICT!zjj"60% OR GREATER IS CONSIDERED GOOD.RR FIND NAMES AND BIRTH DATESRjjENTER FIRST PERSONS NAMEfjjSECOND PERSONS NAMEfjjENTER 'S BIRTHDATE (MM,DD,YYYY)fD vє@VԬ@6Ԫ`6Լ n VD@6D* $WuB.jENTER ALL FOUR DIGITS OF YEAR8Bv@LjVjENTER 'S BIRTHDATE (MM,DD,YYYY)`fFj vє@tV֬@6֪`6ּ n~ VF@6F* Wu jENTER ALL FOUR DIGITS OF YEARVv@jj PLOT STARTING DATE (MM,DD,YYYY)fF vє@V֬@6֪`6ּ n VF@6F* Wu jENTER ALL FOUR DIGITS OF YEAR vє@ W=P(V<P2w4F"D<V@FP w4"D@ZvԠ@dVԬhnvԞ@xw@ vє@W=V0w44 Zw44 FV@v4vDFjjHOW MANY PLOT DAYSfMvNM@jR COMPATABILITY CALCULATION"w\ \ %,wp p %6wBB%@jPOSITION PAPER, PRESS RETURNJD0Tj=====^jh`BIOSUM CHART FOR  & rj|wdwdwdjPERCENT COMPATABILITY BY CYCLEj j Physical:  jꆯ@ j Sensitivity:  jꆯ@ j Intellectual:  jꆯ@H 3D,"%"j w!!` j@H$ 17X,"TOTAL COMPATABILITY:",X,3D,"%"j&h (-) (0) (+)0j:vŠhDY@|NNVŬx X /ŢA=====b/@h (-) (0) (+)ljvvŞ@ R-PRINT ROUTINEw VDD>vwV֪@v֠`w@v֢@!vTOS33$֢fff D! @Af @w@``$T@ w@ vTD  VD@4w@ `$Ԣ@`$ vT* 4k> Y@HH w R[\ Y@`f wP%H p wo4z[ wJ J :w@@P"W@/@7@/`7@/`w@@* W@/@w``Iw@@SW@/`w@@* w``I W@/`  w``*  Y`H $ W0* ` . W0: ` 8 W0P ` B W0S ` L W0I ` V t ` W0  t j@ t[ ~j w44@ vDD@ VD,@ vD@ vԠ@ VԬh vԞ@ w@ vє@ vŠ@ [  h w w@  Y@~@ vTP)PTP(@@ ( W @ F 2w@ <w@ F[ Pw@ Z^ d R-DATE VALIDITY CHECK n j IMPROPER MONTH x j IMPROPER DAY TV j* PLOT STARTING DATE EARLIER THEN BIRTHDAY  R PUTS YOUNGEST FIRST W+ W- V* V, VF*D VF,D  V@ wD w wD "wD ,v 6vD @wDF JvFD TvDD ^ h /ŢA===== r`BIRDAY{ &*#R **** HP BASIC PROGRAM LIBRARY *******************************RR BIRDAY: BIRTHDAY PROBABILITYRR 36653 REV A 10/73R#R **** CONTRIBUTED PROGRAM ************************************d R BJDCVHS030573-A-e j INSTRUCTIONSf f@@gV@@0Nuhjij+THIS PROGRAM DOES TWO (2) THINGS. THEY ARE:j @,1- COMPUTES HOW MANY PEOPLE MUST BE PRESENTk @, IN A GROUP TO HAVE A X% PROBABILITY THATl@* THEIR BIRTHDAYS FALL ON THE SAME DATE.m$@32- COMPUTES AND PRINTS THE PROBABILITY AND PERCENTn@) OF N PEOPLE HAVING THE SAME BIRTHDAY.ojpR ******************************qR * BLAKE DISCHER *rR * CHIPPEWA VALLEY HIGH SCH. *sR * MT. CLEMENS, MI. 48043 *tR ******************************ujWHICH FUNCTION DO YOU WANTvfuwTu{xVu|yjTYPE 1, 2 OR 999 [STOP]zv{ jPERCENT DESIRED|g} Y6@d~w7[#6w8@ Y9[@}7~@w88%9[@[9w}$@#8}d w@@W1W-H6"IT TAKES A GROUP OF APPROXIMATLEY ",3D," PEOPLE FOR " j6@ju[6H'"IT TAKES A GROUP OF ",3D," PEOPLE FOR"H'"THERE TO EXIST A ",2D,"% PROBABILITY."j6jujNUMBER OF PEOPLE IN GROUPg6w7[#6w8@ Y9[@}7~@w88%9[@[9H "PROBABILITY IS: ",S1D.5DH"THERE IS A ",3D.D,"% CHANCE."j}$@#8}j}$@#8}du`BLJACK{ L7 PX$X  O 14A4A1!O!(R--P(I,J)=JTH CARD IN HAND I,Q(I)=TOTAL OF HAND I,2R--C IS THE DECK BEING DEALT FROM, D IS THE DISCARD PILE,<R--T(I)=TOTAL FOR PLAYER I, S(I)=TOTAL THIS HAND FORFR--PLAYER I, B(I)=BET FOR HAND I.PR--R(I)=LENGTH OF P(I,*)ZdR--SUBROUTINE TO GET A CARD. RESULT IS PUT IN X.nV4f x j RESHUFFLING XDD@~@L44@L14ADZD X6h |4~@L7$6"4@ 4L817L1716L168Z6M14L44@^,R--SUBROUTINE TO EVALUATE HAND I. TOTAL IS PUT INTO6R--Q(I). TOTALS HAVE THE FOLLOWING MEANING:@ R-- 2-10...HARD 2-10J R-- 11-21...SOFT 11-21T R-- 22-32...HARD 11-21^ R-- 33+....BUSTEDhMr Y@}!|M[M^R-SUBROUTINE TO ADD CARD X TO TOTAL Q.MPM!WXNW@:&MX0^: MX$XD^NM T 5T XWB lbM@l^R--CARD PRINTING SUBROUTINE.N@'j@`%@`%j ^R--ALTERNATIVE PRINTING ROUTINE.j @`%@`%j  ^ R--SUBROUTINE TO PLAY OUT A HAND.*R--NO SPLITTING OR BLACKJACKS ALLOWED.4vP>Hv`RT\df v!!@p j RECEIVED AzL]^(^d j RECEIVED ALWjHIT>LR--SUBROUTINE TO ADD A CARD TO ROW I.V w!!@` w!jwt~wW j ...BUSTED^R--SUBROUTINE TO DISCARD ROW I.W!^vDD@ vAD! w!!@R--PRINTS TOTAL OF HAND I.j(jTOTAL IS2^xR--SUBROUTINE TO READ REPLY.N f@@ X@|@ V0Z jTYPE @@ OR @ PLEASE v@@^R--PROGRAM STARTS HERE. R--INITIALIZEv@'N A 2 3 4 5 6 7N 8 9 10 J Q K vH,S,D,/, X@hX@$`@$LA"Z,Z6LDh @L4j JjDO YOU WANT INSTRUCTIONST f@@^V0Nh!j:THIS IS THE GAME OF 21. AS MANY AS 7 PLAYERS MAY PLAY THErj4GAME. ON EACH DEAL, BETS WILL BE ASKED FOR, AND THE|!j9PLAYERS' BETS SHOULD BE TYPED IN. THE CARDS WILL THEN BE!j9DEALT, AND EACH PLAYER IN TURN PLAYS HIS HAND. THE FIRST!j9RESPONSE SHOULD BE EITHER 'D', INDICATING THAT THE PLAYER"j;IS DOUBLING DOWN, 'S', INDICATING THAT HE IS STANDING, 'H',!j9INDICATING THAT HE WANTS ANOTHER CARD, OR '/', INDICATING#j=THAT HE WANTS TO SPLIT HIS CARDS. AFTER THE INITIAL RESPONSE"j R--TEST FOR INSURANCE.H WF@@R j ANY INSURANCE\ f@@fV<Yp jINSURANCE BETSzngX@|W7*!@pZX@|w1$`$F@P@ZR--TEST FOR DEALER BLACKJACK."WF@9F@@7F@;F@P +j DEALER HAS A@`%F@@`%F@ IN THE HOLE  j FOR BLACKJACKX@|F,Z  D R--NO DEALER BLACKJACK. WF@@5F@P . $jNO DEALER BLACKJACK . R--NOW PLAY THE HANDS. 8X@| B jPLAYER Lvp V `T j ( jR--PLAYER WANTS TO STAND. t, ~ WT  j BLACKJACK w11`$! v!   T (  T R--PLAYER WANTS TO DOUBLE DOWN. , \  T R--PLAYER WANTS TO BE HIT. , v`   T (R--PLAYER WANTS TO SPLIT. 2W@P1@P P <jSPLITTING NOT ALLOWED F B P R--PLAY OUT SPLIT ZL F dM!@ nM@@ xL!! d jFIRST HAND RECEIVES A  w@ , j d jSECOND HAND RECEIVES A v  w@ , j v"F  W@@ T R--NOW PLAY THE TWO HANDS. "jHAND*F@ , 6v F @V0 " Jv"F TZ ^, hR--TEST FOR PLAYING DEALER'S HAND. rX@| |W!7! F Z j DEALER HAD A wF@  j CONCEALED.  D *j DEALER HAS A@`%F@@`%F@ CONCEALED  vF jFOR A TOTAL OF V@  : jDRAWS d  L W4D  w @ &W D 0j ---TOTAL IS :j D R--TALLY THE RESULTS. NO XwLOSES PUSHES WINS bX@| lw11 !"F vw11 ! F F"F jPLAYER k1`p1``  W1 j   1 wAA!1 jTOTAL=A  wAFAF#1 v F  v"F Z jDEALER'S TOT AL=AF   *` BMT  =l R ** SOLVE * BMT VERSION * RANDY WONG * 2/9/72 ** R ** REVISED: 7/10/72 * T.AARONSON * A = 240 TIME FACTOR **R ** REVISED: 10/4/77 * P.VIXIE * MULTI-FILE READ **( R ** REVISED: 11/1/77 * P.VIXIE * DESCRIPTION PAGENATION **-!R ** REVISED: 11/10/77 *J.ROBINSON DELETE LINES 650 AND 670./%R ** REVISED: 4/5/78 BY DAVID BARRADAS TO TAKE LOWER CASE CHARACTERS.2&N  0  ۔   0 <w$tD5dFvxPp*Zj#HAVE YOU USED THE BMT SERIES BEFOREdf iv  nV @@0YxV @@0Nj#PLEASE TYPE IN A "YES" OR A "NO". Z R ** INSTRUCTIONS **j6 WELCOME! THE BMT MATH SERIES IS BASED ON THE BASIC!j:MATH TEST THAT THE S.F. HIGH SCHOOLS USE TO TEST STUDENTS. j7LESSONS RANGE FROM 1 TO 38 AND EACH CONTAINS 5 PROBLEMSj) WOULD YOU LIKE A DESCRIPTION OF A LESSONgwW@@0NW@@0YjPLEASE ANSWER "YES" OR "NO". j% LIST WHAT LESSON [1-38, 0 FOR ALL ] fh R ** ASSIGN FILE **"j! WHAT LESSON DO YOU WANT [1-38] ,f6Vİ4ĬN 4ĪT@j(THAT LESSON IS UNAVAILABLE. TRY ANOTHER.J"T w BMT000.A100^VĪH|h 6}۔``r| 6}۔P`Eۄ@V@@ R ** STARTS HERE ** h@@ w023456789 @`zh@v@V@@0*V@@0@V@@0%j wV@@0!XV@@.#l& Y@@0V``10D:[Dv@NlXwd@bv`lj*vt$0jl V00STOPzwDD@ V$0@V0.*w$$@w@.w@ w@jYOU TOOK TOO LONG,  >*wtt@4w@>V5@fHjWRONG,  ; TRY AGAINRv5@\lf.pzR ** RESULT PRINT-OUT ** W$7Dj HERE ARE YOUR RESULTS, : jCORRECT:$ j INCORRECT:t j TIMED OUTS: jNO. OF ATTEMPTS:DjRIGHT/ATTEMPTS RATIO}%$'Dj DO YOU WANT TO TRY AGAIN, fvV@@0Yb W<@j@W@j@$.R ** ADJECTIVE SUB-ROUTINE **8v5BWd@LvT`@VW@t`vTT`j#d RIGHT ON!CORRECTYEPMUY BIENO.K.CLEVER!t(dNOPENO!NO!NO!NO!NO!NO WAYWRONGNO ES CORRECTOYECH!~lY@|Ti [W@k  -- THE ANSWER IS 6$| j   (TIME-  SECONDS)^R ** DATA FOR ONE-LINE DESCRIPTIONS **d.BMT001 ROW ADDITION OF NUMBERS UP TO 4 DIGITSd*BMT002 ROW SUBTRACTION OF 3-DIGIT NUMBERSd3BMT003 ROW SUBTRACTION; 3-DIGIT NUMBERS WITH ZEROS d-BMT004 ROW MULTIPLICATION OF 3-DIGIT NUMBERSd3BMT005 ROW MULTIPLICATION OF 4 AND 2 DIGIT NUMBERSd6BMT006 ROW MULTIPLICATION OF A 2 AND A 4 DIGIT NUMBER(dBMT007 DIVISION: NO REMAINDERS2 d7BMT009 DIVISION: WRITE REMAINDERS AS REDUCED FRACTIONS<dBMT009 DIVISION: NO REMAINDERSF!d9BMT010 ADDITION OF FRACTIONS WITH DIFFERENT DENOMINATORSP$d@BMT011 HARDER ADDITION OF FRACTIONS WITH DIFFERENT DENOMINATORSZd!BMT012 ADDITION OF MIXED NUMBERSd&dDBMT013 SUBTRACTION OF FRACTIONS; FIND THE LOWEST COMMON DENOMINATORnd3BMT014 SUBTRACTION OF MIXED NUMBERS WITH BORROWINGxd*BMT015 MULTIPLICATION OF SIMPLE FRACTIONS&dDBMT016 HARDER MULTIPLICATION OF FRACTIONS; ANSWER IS A MIXED NUMBER$d?BMT017 COLUMN MULTIPLICATION OF WHOLE NUMBERS BY MIXED NUMBERSd$BMT018 DIVISION OF SIMPLE FRACTIONSd!BMT019 DIVISION OF MIXED NUMBERSd#BM(T020 COLUMN ADDITION OF DECIMALSd BMT021 ROW ADDITION OF DECIMALSd&BMT022 COLUMN SUBTRACTION OF DECIMALSd+BMT023 MORE COLUMN SUBTRACTION OF DECIMALSd&BMT024 ROW MULTIPLICATION OF DECIMALSd)BMT025 COLUMN MULTIPLICATION OF DECIMALSdBMT026 DIVISION OF DECIMALSd6BMT027 DIVISION OF WHOLE NUMBERS WITH DECIMAL ANSWERSd-BMT028 DIVISION OF DECIAMLS BY WHOLE NUMBERSd2BMT029 MORE DIVISION OF DECIMALS BY WHOLE NUMBERSd'BMT030 FINDING THE PERCENT OF A NUMBERd-BMT031 FINDING THE BASE IN A PERCENT PROBLEM"d-BMT032 FINDING THE RATE IN A PERCENT PROBLEM, d7BMT033 FINDING FRACTIONAL PERCENTS OF AMOUNTS OF MONEY6d2BMT034 MORE FINDING THE RATE IN A PERCENT PROBLEM@!d9BMT035 FINDING THE BASE IN A PERCENT PROBLEM USING MONEYJdBMT036 FINDING PERCENTAGEST!d9BMT037 FINDING THE RATE OF A PERCENT PROBLEM USING MONEY^d-BMT038 FINDING PERCENTAGES GREATER THAN 100%hR ** DATA PRINT-OUT **r|VİY@|i [j   DO YOU WANT  @`fV@@0YTV@@0N jYES OR NO PLEASE /`=/` Xƞ@L i k Z/X =/`&`(BSPAE  J  &J P P PPPPPPPJPPPPPP(JPP# PP P-J! " # $% .J&2 v/7 v'(<v HZ4 TIMd ן`@wn R *** BBS1 ***x p*,*,*,*,*,*,*jCrisis Timeshare BBSjOffice (408) 727-1679D BBS04F.A100@)L ן`@wV)cjv*+vvjVNwR * LOG ON *D$`V @@.A000vSYSOP"v"1,V @@0A000 6 j Please log on@vJj:T v/^FhV@@0?r P | ` o, = v,o, v",@ v@,@6|* vV*@w6*| vv"P PV@P0SYSOPw ן`@wVNwjHello , is the spelling correct ?&F0v:V@@0ND ן`@wN R * CK FILE STATUS *XD BBS05F.A100P-Lb hP@$lD$Pv V0NEW OV(@ V @@.A000 j: 4+ECH-OFFF h V 0 v(@4+ECH-ONVNw4+ECH-ON ן`@w h@@ V`@ # ן`@w R * FN/LN/CTY-ST/CODE/USER/EX-NOV ** h@  ! 4V @@0! > v.O@H v/?@RV0 \V0  f pV0" z  j Invalid code R * ADD NEW USER * ן`@wjCant find a record of VNwjEnter city,state :v'@FvP P UVNwj"Enter a personal code or type '?'  4+ECH-OFFF$h.V08 ן`@wBV@@0?L @ _VV@@ y`V@[ yjV@[ ytV@@ y~V`@ yV`[ yV@@ yV@[ y j#Must be exactly 4 characters long. jUpper case A-Z only. j,Type the code again to make sure it is O.K. F  ן`@whV 0  j&Sorry it does not match ... try againh (jO.K. don't forget the code.2j.Are you an expert with this system (Y/N or ?) <4+ECH-ONFFPvZV@@0?@dV0@nV@@0N kxV@@0Y [vXv@ wvNvjWait...VNw ן`@w h@@ @` h@ V 0( h@     v   R * 5 ITEMS ALLOWED *" V`@,D BBS01F.A100@0$L6 ן`@w@V0`OJV0 T h@@^V'@@hj@@@`rV0"|V0 v'j@@@@`6@| v`}@|@P!v80000 New user *00000+ vB F @` v@` v@`MLj@'` `v 00006@|6|*v v@V!@@.X&v@0^:V!@@0M9Dr* BBS02P.A100ZNV*OXr* BBS06P.A100ZbV*Olj*Sorry the BBS is down... call back later.v j@@` R ** LOG OFF **jErrorin line@ j Code # 001V @@0A0004+BYEbD BBS02F.A100`1LV1v ++++++ h`@ V`` ן`@wh`  V 0   h`* ן`@w4 V``>V@@0+HjR \jf"j;Typing a 'Y' for yes will shorten all command prompts everypj4 time you log in. Typing an 'N' or hitting willzj6 keep command prompts in their original configuration.j jj6Type a four letter code that will be your password and j8 protection code. The code must be upper case charactersj4 A-Z only, and must be exactly four characters long.j( *** REMEMBER YOUR CODE !! ***j h@ V @@.!L h@     j already exists.  R *** PORT LOCK SUB *** $t2 .D BBSF32.A100`3L 8 j`2@` B j`2@ ` L j`2@` VD$` `62| j v# BBSFXX.A100 tV2P ~ v#P`  v# BBSF0X.A100 v#`` D#P-J V- X4@d jP4` Z4 jP@` v%ONQ* jP@%` 4 v R ** UPDATE LOG FILE **  h@@  V`@. ( v.O@ 2 v/?@ <h@  FV @@0! P h@    Zv dV0  nK x @@@5 K h@. @@/P5 v  h@@ 6| v  @P v  @* v  @ v  `}@| @P v  @+ v  @ B@  R ** GREETINGS **  v6@ "V6`V ,V6H f 6w @ j Good morning  J T jGood afternoon  ^ h j Good evening  r v,o  |v  6 @o  @|7 v8 v88"7 68| V V,@o j@, jYou are user # , and caller # @ jLast on  Po *@ #jLast message at that time was #@o @ o *@ 6 |9 V9@U j ) - New message entered since last log on.  j " Messages added since last log on. & 0j :jYou are user # , and caller # @ DjLast on  Po *@ N#jLast message at that time was #@o @ Xo *@ b6 |9 lV9@ vj % - Message entered since last log on.  j " Messages added since last log on. ^ R ** EXPERT PREAMBLE V,@6 j@, 9 j 6| jUser -  , caller - @ j@@ - Last entered. j@o @ - Last read. 6 |9 V9@ j @@ - New message added.  j @@ - New messages added. *o *@ 4 > R ** ERROR MESSAGES ** Hj"Illegal format, type '?' for help R \ jToo many chr's f pR **** CALENDAR STARTS HERE **** zVNw ,| x [yL[jzDL@S[| ,| v ZxKZjyD@LS[@| v: v;@ v,@ v<` v0123456789000000000000000 v - - : AM v ; V;d :K v@ D PM V;h v ;` vPXv :$. vhp8V<@<@BJLnh>V X4@p`V,*=4jV4pNt v,,"=h~v<<@v 4@ v@@ v ,"=4@ v@Pv < vp@^Z4  R NUMBER-TO-STRING v? P(v@@?@?@2v? "?P<v@@?@?@F^P`f4TDVVn j0f@bP^`ZpVRNHD@0<@8`4.*&" .)6D*&(+$4b>w,BUTTONZ b@ R *** BUTTON, BUTTON, WHO'S GOT THE BUTTON ? ***R *** WRITTEN BY DAVE KAUFMAN * AUGUST 1973 ***R *** PEOPLE'S COMPUTER COMPANY ***(R *** 1919 MENALTO AVENUE, MENLO PARK, CA. 94025 ***dR FNM COMPUTES X MODULO 7nR FNN COMPUTES THE NEXT ONE TO GET THE BUTTONx#Pߗp @ @@Pߗϖ@j&WANT THE RULES ? (1 MEANS YES, 0 NO) gWR *** GAME STARTS HERE ***R B THE ONE WITH THE BUTTONv$p@jj,R *** GUESSING STARTS HERE ***6 R G PLAYER'S GUESS@jWHO DO YOU GUESS HAS ITJftTVt'^Vt0$hVt0$@6t0$@r Vt4t@|j*SILLY - THERE'S NO ONE HERE BY THAT NUMBER jTRY AGAIN ... @ R *** PLAYER'S GUESS HASN'T GOT IT NOR DOES HIS NEIGHBOR *** jt : 'WHO, ME?'jjjWHOEVER HAS IT, KEEPS IT,"R *** PLAYER'S GUESS DOESN'T HAVE IT, BUT HIS NEIGHBOR DOES ***jt: 'MY NEIGHBOR HAS IT'jjj!... BUT WHOEVER HAS IT, PASSES ITv$$, R *** A WINNER ! ***jt!: 'RIGHT YOU ARE - LUCKY !!!'jjj1DO YOU WANT TO PLAY AGAIN ? (1 MEANS YES, 0 NO) &g0W@:b R *** THE INTRO ***jjj%BUTTON, BUTTON, WHO'S GOT THE BUTTON?jj$j%SEVEN FRIENDS ARE SITTING IN A CIRCLE.jAND YOU'RE IN THE CENTER8jBjLj 1Vj` j 7 2jjt j YOU'RE~ j 6 IT 3j j 5 4jjj0SOMEONE HAS THE BUTTON AND YOU HAVE TO GUESS WHOj j8AFTER YOU GUESS, HE CAN PASS THE BUTTON (IF HE WANTS TO)j-BUT ONLY TO SOMEONE NEXT TO HIM IN THE CIRCLEjj"IF YOU WANT TO STOP, TYPE 0 (ZERO)j jGOOD LUCK!!!^'`CALCO  = R SIMPLE CALCULATION, REVISED BY LES VOGEL III, MAY 6, 1974RN0H( @XF2 jGOOD MORNING, <nF @pdP jGOOD AFTERNOON, Znd jGOOD EVENING, nj5THIS PROGRAM PERMITS SIMPLE CALCULATIONS WITHOUT YOURxj'HAVING TO KNOW ANY PROGRAMING LANGUAGE.jDO YOU WANT INSTRUCTIONSf0V0@@0Nhj!j9THIS PROGRAM WILL ADD OR MULTIPLY TWO OR MORE NUMBERS AND j7WILL ALSO SUBTRACT OR DIVIDE NUMBERS, RAISE A NUMBER TO"jjHV0@@0YR\jf"j9WHAT IS THE NUMERATOR--THE NUMBER YOU WANT TO DIVIDE INTOpfz$j=NOW WHAT IS THE DENOMINATOR--THE NUMBER YOU WANT TO DIVIDE BYf$V$jjTHE RESULT OF THE DIVISION IS&$jjDO YOU WANT TO DIVIDE AGAINf0V0@@0Y\jj*SORRY. THE COMPUTER CAN'T DIVIDE BY ZERO.jj/WHAT IS THE NUMBER YOU WANT TO RAISE TO A POWERfj3NOW WHAT IS THE POWER TO WHICH YOU WANT TO RAISE IT$f$. V$4$@V8jB j THE RESULT IS($LV!j9OF COURSE, YOU KNOW THAT RAISING A NUMBER TO A FRACTIONAL`j)POWER IS EQUIVALENT TO EXTRACTING A ROOT.jVtj~V j8FURTHERMORE, THE NUMBER WHOSE ROOT YOU ARE EXTRACTING IS j8NEGATIVE. THIS CALCULATION THEREFORE INVOLVES IMAGINARY#j=NUMBERS, A TOPIC WITH WHICH THIS PROGRAM CANNOT DEAL. SORRY.jj.DO YOU WANT TO RAISE ANOTHER NUMBER TO A POWERf0jV0@@0Yjj1WHAT IS THE NUMBER WHOSE ROOT YOU WANT TO EXTRACTfVx #j>NOW TYPE IN THE ROOT YOU ARE EXTRACTING--FOR EXAMPLE, TYPE '2'j.FOR SQUARE ROOT, '3' FOR CUBE ROOT, AND SO ON. j WHAT IS IT(f$2V$P<j%THE RESULT OF EXTRACTING THIS ROOT IS(@&$FP"j;EXTRACTING A ZERO ROOT IS NOT REALLY POSSIBLE. AS THE ROOTZj0APPROACHES ZERO, THE RESULT APPROACHES INFINITY.djnxj!j9EXTRACTING A ROOT OF A NEGATIVE NUMBER INVOLVES IMAGINARY!j:NUMBERS, A TOPIC BEYOND THE RANGE OF THIS PROGRAM. SORRY."j#?V H#@V H#AV p#B#CjUNACCEPTABLE DATA -- TRY AGAIN.#D#EL #F#GL @#HL @#I*#JL @#KL #LV @#ML #NL`@#OV@@o#PL @#QV `o#RL@#Su#TL#U L   P#VLpp#WL #XV @#YL #ZV *#[jOLD STYLE CALENDAR: #\L@#]#^V @#_L #`Ldd#aL`@@d#bV@@8#cV #dVdd8#eL @#fV `8#gL@#h>#iL#j L   #kLpp#lL #mV @h#nL #oV *#pV#qjNEW STYLE CALENDAR: #r#s#tj#ENTER MONTH NUMBER, DATE, AND YEAR.#uj#vf  #wVp#xj&IS THERE ANOTHER DATE YOU WANT TO KNOW#yf#zV0NO#{j#| j ENTER DATE: #}L#~L@#f  #p#T@ (2=I#jFRIDAY#^#jSATURDAY#^#jSUNDAY#^#jMONDAY#^#jTUESDAY#^# j WEDNESDAY#^#jTHURSDAY#^&&```@@`@P`P&&| p | x | x | | x | x | '`Qtva^bcD v  >}CALNDR{ #R **** HP BASIC PROGRAM LIBRARY *******************************RR CALNDR: PRINTS A CALENDARRR 36288 REV A 6/73R#R **** CONTRIBUTED PROGRAM ************************************R ** CALENDAR DEMONSTRATION **R ** WRITTEN BY STEVE HTDPHCK **(OHH H! R* HДH0H&NP`HHPHH@H0HHHNHpHHHPH@HR * SETS OUTPUT STRING TO SPACES$ M@H . M@H 8L6B L 0123456789LR * READS LAST DAY OF MONTHV X@``h!jZt&| p | x | x | | x | x | ~jLp S M T W T F S R * INPUT DATA SECTIONj CALENDAR FOR WHAT YEARfL V0END V0STOP V0AID&M X@ X@P V0Z F MP @Z(<2 W7F<ZFj! ENTRY IGNORED, INVALID YEAR.PZWb&dW@\ @&nj ANY PARTICULAR MONTH (Y OR N)xf  V 0END V 0STOPV @@0YV @@0N|j( ANSWER 'Y' OR 'YES'.....'N' OR 'NO'n j WHAT MONTHf0 V00STOP V00ENDn V0.AIDj2 ENTER '1' FOR JANUARY, '2' FOR FEBRUARY, ETC.L& X@0 X@P" V00@,Z6h@ L&&P @JZTV&6&`6&&h^|hj" ENTRY IGNORED, INVALID MONTH.r|V @@0Nj   R * SPACE COUNTERM Y8@P V0880 M@[8L #0L j H pH R * PAGE SEPERATORWbD&j0 ENTER A YEAR AFTER 1581 AND BEFORE 8388608.0:R * HEADINGSDjN\ CALENDAR FOR THE YEAR XjbL@ljvjj R * TAB VALUESL$PL4| LDn R * K0= NO OF GROUPS OF 3 MONTHS PRINTEDL@TR * PRINTS MONTH HEADINGS$4`D $4PDP $4@D0  $4D@ j*jpd pd p4TH 6 @ @>R * CHECKS FOR LEAP YEARSHLpRLĞ\'LĞKd]db@fLddpVzV@@W@@ Yd}dW1[W6@M$[ L!@t M$[@ LԞ[@$b LԢԦpp R * ROUTINE TO DETERMINE PROPER DATES L $Vp 8 .Lp 8 B B Y4@` L YD@|@ V LRD4 `[D j YD|!4 @ t LRD4D"@ ~[D YD!4 T LRD4 [D L !4!4pp Vp Lp [4 M Mt Yd@` YT@T Mtt@ LtRTd [T [d V @@0N @ ( YP 2L@ <L F Yd@p PL` ZL` dLdp%T $&T  n LP xL$"P V L0@@@@ L0@@$@$@ VP  L0 L0  L L0@@ L0 [d H  [ j j " > ,R 6R @ YP JM$@ TM4 ^ YT@ hYd@p%pp% rM$$` |M44` R * TO RIGHT JUSTIFY OUTPUT DATE LdT %T V LP  L$"P L0@@@@ L0@@$@$@ V000 VP   L0 M$40  &  M$$  L0@@ M$40 &[d 0[T :R * TO PLACE INTO STRING FOR OUTPUT D Xt@T N Mtttt XZt b Xt@@ lMT tT t vZt XtX T Mt@t@tt Zt Xt@@ M\ t\ t Zt XtV ~ Mt@t@tt Zt k [ j Y@^  L~ [ M@ W@ > *L@ 4v >j H j MORE (Y OR N) Rf0 \l fV0@@0Y$ pV0@@0N z V00END V00STOP j( ANSWER 'Y' OR 'YES'.....'N' OR 'NO'  H  H R * TO DETERMINE WHAT MONTH T& .BVj~ ^ L0 ^ L0` ^ L0 ^L0^L0P$^.L0P8^BL0L^VL0@`^jL00t^~L0^L0^L0@^R * DETERMINES IF CENTURY YEARMLW@@00M6^ W00M6 ^M6@^(`2j< L JANUARY F L` FEBRUARY P L MARCH Z M APRIL d LP MAY n MP JUNE x L JULY  M@ AUGUST  M0 SEPTEMBER L OCTOBER  L NOVEMBER  L@ DECEMBER ^bj^` CANNONZ A^ NH0     M0 0123456789 L ( LTT<j WHAT IS YOUR NAMEFfK ן` fP V0AL ROBBxZ V0 MIKE FULLERxd V0 PETE ROWExnxLT@!j9 THIS PROGRAM UTILIZES THE HP-7200A GRAPHIC PLOTTER. j/INSERT A PIECE OF PLAIN PAPER INTO THE PLOTTER,j4TURN IT ON, DEPRESS **CHART HOLD** AND **TTY MUTE**,j.AND SET THE **GRAPH LIMITS** ON THE PLOTTER. jHEIGHT OF PAPERff ן` f jLENGTH OF PAPERfg ן` fLdf&g j READYf ן` f V 0YES,V 0NOj PLEASE TYPE YES OR NO j HURRY UP ",j HERE'S YOUR TARGET: 6jPLTL@ j 9000 850^J j 9000 1350T j 9200 1350^^j9200 850h j 8950 1300^r j 9250 1300| j 8950 1250^ j 9250 1250 j 8950 1200^ j 9250 1200jPLTTLW@j HERE'S YOUR CANNON WHEEL: jPLTLX@dPl"M$KM$M$d$!!Z&d$K(jPLTT*jPLTL0 d$K: d$KDjPLTTNjPLTLX MK@bd$!!ld$##vjPLTTjPLTLd$!#d$#!jPLTTL4d j ANGLE OF FIREj(BETWEEN -90 AND +90 DEGREES)g ן` f W>Z5Z MdZV41L4j AND HERE'S YOUR CANNON:  jjPLTL d$KK*d$dd4Md$dd>MddHkRMd$dd\Mddfkpd$ddzd$KKjPLTTjVTMedj, YOU HAVE EXACTLY 400 GRAMS OF GUN POWDER jHOW MUCH GUN POWDERj(BETWEEN 0 AND 1000 GRAMS)ge ן` f We5e}j FIRE MddMddjPLTL$MD@.MDD@8 L!e%DBL!e%DP%D@L Vd$N4NjVMDDfff`8j d$t Vd$E~VT`W@jPLTT X$@P jZ$MTM@W@FjPLTLGZG` G|`HDj@jPLTT(j0 YOU JUST RIPPED OFF THE P.G.&E. POWER POLE!! 2 j GOOD SHOW <PFj& YOU RIPPED OFF ANOTHER POWER POLE! Pj+ CARE FOR ANOTHER LOCATION FOR YOUR CANNONZf _ ן` fd V 0YESnV 0NOxjPLEASE TYPE YES OR NOZ Vd$Ip Vd4MX.jPLTTjMTT@L@WT@jYOU LOST YOUR CANNON BALL jYOU LOST ANOTHER CANNON BALL WT`^jCARE FOR ANOTHER GO AT ITf  ן` f V 0YES@"V 0NO,jPLEASE ANSWER YES OR NO6@LJL}T^MThj6 WOULD YOU LIKE P.G.&E. TO BUILD A BIGGER POWER POLE?rj% TRY ANOTHER LOCATION FOR YOU CANNON|L@L}V@ L}V@X@e#Lp@}Z&VP&M@^&L@@}0Mt: X@|@D V.XNMt@XZbWt@vl&vL^M>PjPLTLLHMfffMfffL jMhMK33LHIT= j MP B Mo33 j M* B4Mp> jHMhRMI\LMISS=f jp LPz VMq = jL VMr jjPLTTbMYD@}D@fff L!e%L!e%P%@ Vd$ĬE . VԪT` .  Vd$ĪHD . VԬj@ . $M@ .[ 8^ B L0@@ L^ V L0@@ `^ jMS@% tM}% ~ j^ ^ r*A1H L: L L L@ V0  x h0 V00 h @  h89 L@  V8.@ < (L 2 < MG8%>! F MI9%>! P b Z @ dL nl xV0H M"P%>  M x %> V0:  ^ #dAP x P x x Px /dBx P x P x x x x x dCP x P x /dDx x x P d P Px /dEP x P x x x P x )dFx P x x x P x )dGP x P x P x P x )dHx x P x P x P )dIPx P P x Px x x dJPP P x ")dKx P P x Px P ,dLx P 6#dMx P P x P @dNx P P x J)dOP P P x x P P x T#dPx P x P x x ^)dQP P P x P x P h/dRx P x P x x P x P r)dSP P x x x P x |dTP P x x P x )dUx PPx P PP x dVx P P x #dWx PP x x P x #dXx P P x #dYx P x P P x P x dZx P x P #d0x P x P #d1P P x P P )d2x P x P x P x P )d3x P x P x P x P d4P x x x x x )d5P x x x P x P )d6P x x P P x x d7x P x P P P /d8P x x x P x P x )d9P P x x x P x &#d.PPPP 0)d,PPPPP :#d+Px F x P PP d Dd-x P x NAd?x P x P x Px PPPPPDxxPPP X#d=P P P P P P Yd]P P x x b MG}@ lMGdP%X vMGPd%P%o MG}%d%P%Ep L@@0 L@@0 L``0 L@@0 MI}@ MIdP%X MIPd%P%o MI}%d%P%Ep L``0 Lpp0 L@@0 LHH0 V@ * WGN7IN > j ^ *j^ 4 \ >jPLTT HjDATAGIGREATER THAN 9999 9999 RjPLTL \^ fR p`DCAVES 5 =NH vF@ R *** CAVES1 ***!R *** PROGRAM MAKES A SET OF LINKED ROOMS FOR YOU TO EXPLORE(R *** PROGRAMMER - DAVID KAUFMAN2vt@<vw@FjWELCOME TO THE CAVESPjZjIS THIS YOUR FIRST VISITdfi ן`#(nV@@0YsRxjj!HOW HARD SHOULD I MAKE THE CAVES?j 1=USUAL, 2=HARDER, 3=!!! ft ן`#( vtt`wfLw$@RR X@@P X@|t@ZZwt$@"Vw@,j6jDO YOU WANT AN INTRODUCTION@fE ן`#(JV@@0NORTj^j- IMAGINE YOURSELF AN EXPLORER OF THE FAMOUShj*DUZZLEDORF CAVES. YOU'VE BEEN UNDERGROUNDrj*FOR DAYS, TRIPPING THROUGH THE CAVERNS AND|j)TUNNELS. UNFORTUNATELY, YOU'RE LOST, ANDjYOUR FOOD HAS RUN OUT.jj* THERE IS ONLY ONE PATH OUT. SEE IF YOU j CAN FIND IT.jj, WHEN I TYPE A '?', YOU GIVE ME THE NUMBERj+OF THE CAVERN YOU WANT TO GO TO. LIKE THIS:j jWHERE NEXT? 7jj2ADVICE: MAKE A MAP AS YOU GO - IN THE HARDER CAVESj5 YOU SOMETIMES HAVE TO GO BACK AND TRY ANOTHERj WAY. GOOD LUCK!vF@wf@L&wN0j:jYOU'RE IN CAVERN #DvFNNwfpX X@`bLlj#FvVF1tZV@wf@Lj#wwf`LjARE WHERE YOU CAN GO j WHERE NEXTfF ן`#(VF0VF= wf@ L0 wf`*L4WgR> j ILLEGAL MOVEHRV1t\vFNfwfppLzVFN0jDEADENDwf@LjjP!!! SUNLIGHT !!!jP!!! FRESH AIR !!!jP... REPORTERS ...jjjWELL, AT LEAST YOU'RE OUTVt@Lj$j"CONGRATULATIONS, INTREPID EXPLORER.j&OF THE FEARSOME CAVES. IF YOU WANT TO8j*EXPLORE AGAIN, YOU CAN CHOOSE A HARDER SETBj)OF CAVES OR ANOTHER ONE JUST AS DIFFICULTLjVjAGAIN`fjV0YoV@@0ntvww@~Vt`RgWvtt@'PR *** ADD DAUGHTERS TO CURRENT NODEZwf@d X@`nW$d xvF$Lw$$@Z^R *** CREATE DAUGHTERS, AND RETURNPwf@L^R *** PICK A DAUGHTER NODE AT RANDOM AND GO DOWNwfpX@`@LVFNZwf`"L,vFN6wfp@LJVFNrTwf@^Lhr^R *** TREE SUBROUTINES BEGIN ***R SACRED NAMES: N(127),P(385),L(99),N9,P1,P2,P3,P4,P5,P9,R L1,FND,FNN,FNUR ARGUMENT: V1,V2,N1,D1R N1 IS NAME OF CURRENT NODE (FOR TOP NODE, N1=1)R D1 IS NAME OF DAUGHTER NODER NODE NAMES CAN BE ANY NUMBER EXCEPT 9999R R V1= 0 INITIALIZE TREE; MAKE #1 THE CURRENT NODER 1 ADD D1 AS NEXT DAUGHTER TO CURRENT NODER 2 CUT D1 OFF FROM CURRENT NODE (BUT LEAVE IT AND R ALL BELOW IT)R 3 PRUNE D1 (AND ALL BELOW IT) FROM TREER 4 GO UP FROM N1 TO MOTHER NODE (UNLESS AT TOP)R 5 GO UP FROM N1 THE WAY YOU CAME (UNLESS AT TOP)R 6 GO DOWN TO D1 FROM CURRENT NODE (IF LEGAL)R 7 RETURN WITH NEXT DAUGHTER NODE (AFTER D1) IN D1 R IF NO MORE, D1=9999 R IF D1 ISN'T A DAUGHTER OF CURRENT NODE, RETURN WITHR FIRST DAUGHTER NODER 8 RESET CURRENT NODE TO D1, WHEREVER IT IS IN TREER R V2= 2 INSTRUCTION CARRIED OUT, BUT D1 IS A NEW NODE NAMER 1 INSTRUCTION CARRIED OUTR -1 CANNOT MOVE UP (OR DOWN) BECAUSE ON TOP (BOTTOM)R -2 MORE THAN 127 NODESR -3 TOO MANY CONNECTIONSR -4 D1 IS NOT A NODE NAME8Nc:Q@<P@@LR ***ENTRY POINT FOR TREE SUBROUTINESQwg@V]f@ex@  l[v`^e R *** V1=0 ***f R *** INITIALIZE TREEj v@@k Y@lvNm[ov@t Y@`y w@~[ w@ w w`@w@w@w@vƞ@^ R *** V1=1 ***R *** ADD D1 AS THE NEXT DAUGHTER TO CURRENT NODE WVwg@^wg@vFwvww Vw W1Wwg`^ w!ww w@ W w!@^ R *** V1=2 ***!R *** CUT D1 OFF FROM CURRENT NODE (BUT LEAVE IT & ALL BELOW) Wg<ww w W1&"Wd<$& W=6( w#@6 w   #8w:w<^x R *** V1=3 ***yR *** PRUNE D1 AND ALL BELOW ITz |Wg~R * ADD TO FREE LISTS ALL N AND P ENTRIES IN SUBTREE VvNwv wvNwWw  V N W R DROP DOWN TO DAUGHTERw   # @w v Nw v R MOVE TO NEXT DAUGHTERw W w w w ww R GO UP TO MOTHER NODEwwvwWR * DELETE ALL REFERENCES TO PRUNED NODES Y@ VNR LOOK AT ALL DAUGHTERSww wW VNw   " www [^ R *** V1=4 ***R *** GO UP FROM N1 TO ITS MOTHER NODE (UNLESS AT TOP) WwvFw vƢ@@^wg@^@ R *** V1=5 ***AR *** GO UP THE WAY YOU CAME (UNLESS AT TOP)EVƪ@TJwg@O^TvƢ@U VNJVwYw[vF^^ R *** V1=6 ***R *** GO DOWN TO D1 FROM CURRENT NODE (IF LEGAL) WgwwW W1wg@^vwvƠ@^  R *** V1=7 *** "R *** RETURN WITH NEXT DAUGHTER NODE IN D1 (IF NO MORE, D1=9999) V S  w !w &W 5 + W1 : 0 ! 5w :w ?W S Aw DvF I^ SvFN X^ l R *** V1=8 *** m R **: RESET TO NODE D1 v Wg w vƞ@ ^ R *** FIND POINTER FOR D1 VFN W@7 V0F! VF@6F VF j ILLEGAL MOVEHRV1t\vFNfwfppLzVFN0jDEADENDwf@LjjP!!! SUNLIGHT !!!jP!!! FRESH AIR !!!jP... REPORTERS ...jjjWELL, AT LEAST YOU'RE OUTVt@Lj$j"CONGRATULATIONS, INTREPID EXPLORER.j&OF THE FEARSOME CAVES. IF YOU WANT TO8j*EXPLORE AGAIN, YOU CAN CHOOSE A HARDER SETBj)OF CAVES OR ANOTHER ONE JUST AS DIFFICULTLjVjAGAIN (1=YES, 0=NO)`gjWtvww@~Vt`jHARDERgWvtt@bPR *** ADD DAUGHTERS TO CURRENT NODEZwf@d X@`nW$d xvF$Lw$$@Z^R *** CREATE DAUGHTERS, AND RETURNPwf@L^R *** PICK A DAUGHTER NODE AT RANDOM AND GO DOWNwfpX@`@LVFNZwf`"L,vFN6wfp@LJVFNrTwf@^Lhr^R *** TREE SUBROUTINES BEGIN ***R SACRED NAMES: N(127),P(385),L(99),N9,P1,P2,P3,P4,P5,P9,R L1,FND,FNN,FNUR ARGUMENT: V1,V2,N1,D1R N1 IS NAME OF CURRENT NODE (FOR TOP NODE, N1=1)R D1 IS NAME OF DAUGHTER NODER NODE NAMES CAN BE ANY NUMBER EXCEPT 9999R R V1= 0 INITIALIZE TREE; MAKE #1 THE CURRENT NODER 1 ADD D1 AS NEXT DAUGHTER TO CURRENT NODER 2 CUT D1 OFF FROM CURRENT NODE (BUT LEAVE IT AND R ALL BELOW IT)R 3 PRUNE D1 (AND ALL BELOW IT) FROM TREER 4 GO UP FROM N1 TO MOTHER NODE (UNLESS AT TOP)R 5 GO UP FROM N1 THE WAY YOU CAME (UNLESS AT TOP)R 6 GO DOWN TO D1 FROM CURRENT NODE (IF LEGAL)R 7 RETURN WITH NEXT DAUGHTER NODE (AFTER D1) IN D1 R IF NO MORE, D1=9999 R IF D1 ISN'T A DAUGHTER OF CURRENT NODE, RETURN WITHR FIRST DAUGHTER NODER 8 RESET CURRENT NODE TO D1, WHEREVER IT IS IN TREER R V2= 2 INSTRUCTION CARRIED OUT, BUT D1 IS A NEW NODE NAMER 1 INSTRUCTION CARRIED OUTR -1 CANNOT MOVE UP (OR DOWN) BECAUSE ON TOP (BOTTOM)R -2 MORE THAN 127 NODESR -3 TOO MANY CONNECTIONSR -4 D1 IS NOT A NODE NAME8Nc:Q@<P@@LR ***ENTRY POINT FOR TREE SUBROUTINESQwg@V]f@ex@  l[v`^e R *** V1=0 ***f R *** INITIALIZE TREEj v@@k Y@lvNm[ov@t Y@`y w@~[ w@ w w`@w@w@w@vƞ@^ R *** V1=1 ***R *** ADD D1 AS THE NEXT DAUGHTER TO CURRENT NODE WVwg@^wg@vFwvww Vw W1Wwg`^ w!ww w@ W w!@^ R *** V1=2 ***!R *** CUT D1 OFF FROM CURRENT NODE (BUT LEAVE IT & ALL BELOW) Wg<ww w W1&"Wd<$& W=6( w#@6 w   #8w:w<^x R *** V1=3 ***yR *** PRUNE D1 AND ALL BELOW ITz |Wg~R * ADD TO FREE LISTS ALL N AND P ENTRIES IN SUBTREE VvNwv wvNwWw  V N W R DROP DOWN TO DAUGHTERw   # @w v Nw v R MOVE TO NEXT DAUGHTERw W w w w ww R GO UP TO MOTHER NODEwwvwWR * DELETE ALL REFERENCES TO PRUNED NODES Y@ VNR LOOK AT ALL DAUGHTERSww wW VNw   " www [^ R *** V1=4 ***R *** GO UP FROM N1 TO ITS MOTHER NODE (UNLESS AT TOP) WwvF w vƢ@@^wg@^@ R *** V1=5 ***AR *** GO UP THE WAY YOU CAME (UNLESS AT TOP)EVƪ@TJwg@O^TvƢ@U VNJVwYw[vF^^ R *** V1=6 ***R *** GO DOWN TO D1 FROM CURRENT NODE (IF LEGAL) WgwwW W1wg@^vwvƠ@^  R *** V1=7 *** "R *** RETURN WITH NEXT DAUGHTER NODE IN D1 (IF NO MORE, D1=9999) V S  w !w &W 5 + W1 : 0 ! 5w :w ?W S Aw DvF I^ SvFN X^ l R *** V1=8 *** m R **: RESET TO NODE D1 v Wg w vƞ@ ^ R *** FIND POINTER FOR D1 VFN W@7 V0F! VF@6F VFjYOU'RE IN CAVERN #HWt@RvFN\wfpfLpVFNzj#FfV@wf@Lj#wwf`LjARE WHERE YOU CAN GO j WHERE NEXTfFVF0VF=$wf@L4$wf`.L8WgVB j ILLEGAL MOVELVV1t`vFNjwfptL~VFN4jDEADENDwf@LjjP!!! SUNLIGHT !!!jP!!! FRESH AIR !!!jP... REPORTERS ...jj jWELL, AT LEAST YOU'RE OUTjj%THIS SET OF CAVES AGAIN (1=YES, 0=NO)(g2W@<j(DO YOU WANT TO MAKE ANOTHER SET OF CAVESFgPW@ZbR *** TREE SUBROUTINES BEGIN ***R SACRED NAMES: N(127),P(385),L(99),N9,P1,P2,P3,P4,P5,P9,R L1,FND,FNN,FNUR ARGUMENT: V1,V2,N1,D1R N1 IS NAME OF CURRENT NODE (FOR TOP NODE, N1=1)R D1 IS NAME OF DAUGHTER NODER NODE NAMES CAN BE ANY NUMBER EXCEPT 9999R R V1= 0 INITIALIZE TREE; MAKE #1 THE CURRENT NODER 1 ADD D1 AS NEXT DAUGHTER TO CURRENT NODER 2 CUT D1 OFF FROM CURRENT NODE (BUT LEAVE IT AND R ALL BELOW IT)R 3 PRUNE D1 (AND ALL BELOW IT) FROM TREER 4 GO UP FROM N1 TO MOTHER NODE (UNLESS AT TOP)R 5 GO UP FROM N1 THE WAY YOU CAME (UNLESS AT TOP)R 6 GO DOWN TO D1 FROM CURRENT NODE (IF LEGAL)R 7 RETURN WITH NEXT DAUGHTER NODE (AFTER D1) IN D1 R IF NO MORE, D1=9999 R IF D1 ISN'T A DAUGHTER OF CURRENT NODE, RETURN WITHR FIRST DAUGHTER NODER 8 RESET CURRENT NODE TO D1, WHEREVER IT IS IN TREER R V2= 2 INSTRUCTION CARRIED OUT, BUT D1 IS A NEW NODE NAMER 1 INSTRUCTION CARRIED OUTR -1 CANNOT MOVE UP (OR DOWN) BECAUSE ON TOP (BOTTOM)R -2 MORE THAN 127 NODESR -3 TOO MANY CONNECTIONSR -4 D1 IS NOT A NODE NAME8Nc:Q@<P@@LR ***ENTRY POINT FOR TREE SUBROUTINESQwg@V]f@ex@  l[v`^e R *** V1=0 ***f R *** INITIALIZE TREEj v@@k Y@lvNm[ov@t Y@`y w@~[ w@ w w`@w@w@w@vƞ@^ R *** V1=1 ***R *** ADD D1 AS THE NEXT DAUGHTER TO CURRENT NODE WVwg@^wg@vFwvww Vw W1Wwg`^ w!ww w@ W w!@^ R *** V1=2 ***!R *** CUT D1 OFF FROM CURRENT NODE (BUT LEAVE IT & ALL BELOW) Wg<ww w W1&"Wd<$& W=6( w#@6 w   #8w:w<^x R *** V1=3 ***yR *** PRUNE D1 AND ALL BELOW ITz |Wg~R * ADD TO FREE LISTS ALL N AND P ENTRIES IN SUBTREE VvNwv wvNwWw  V N W R DROP DOWN TO DAUGHTERw   # @w v Nw v R MOVE TO NEXT DAUGHTERw W w w w ww R GO UP TO MOTHER NODEwwvwWR * DELETE ALL REFERENCES TO PRUNED NODES Y@ VNR LOOK AT ALL DAUGHTERSww wW VNw   " www [^ R *** V1=4 ***R *** GO UP FROM N1 TO ITS MOTHER NODE (UNLESS AT TOP) WwvFw vƢ@@^wg@^@ R *** V1=5 ***AR *** GO UP THE WAY YOU CAME (UNLESS AT TOP)EVƪ@TJwg@O^TvƢ@U VNJVwYw[vF^^ R *** V1=6 ***R *** GO DOWN TO D1 FROM CURRENT NODE (IF LEGAL) WgwwW W1wg@^vwvƠ@^  R *** V1=7 *** "R *** RETURN WITH NEXT DAUGHTER NODE IN D1 (IF NO MORE, D1=9999) V S  w !w &W 5 + W1 : 0 ! 5w :w ?W S Aw DvF I^ SvFN X^ l R *** V1=8 *** m R **: RESET TO NODE D1 v Wg w vƞ@ ^ R *** FIND POINTER FOR D1 VFN W@7 V0F! VF@6F VF!j9PRINTED. I CAN ONLY SIMULATED 5000 OFFSPRING PER MINUTE.HjPLEASE WAIT ACCORDINGLY.RR\R K0=DOMINATE K1=RECESSIVE K2=CARRIERfRpvzX@| v/ v$!/V0$v@v@Vv@vv@v@VBjjw$j-.w$8B `LwV`jjZtj~j=HYBRIDS= =jjAGAIN (YES OR NO)gW@@0YbR ===== PRINT SUBROUTINE =====Ujj jHYBRID^ `CHARS { &.d NH Hfj*ENTER: 1=72 CHARS; 2=118 CHARS 3=132 CHARShfiTnnnjfn#v?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]xv@ v z V@v  @x @@Tj  @`H 60A,12Aj  @t H 60A,58A j   ` H 60A,60A,12Av@Vz x`CHASE { LD#R **** HP BASIC PROGRAM LIBRARY ******************************RR CHASE: PURSUIT OF A TARGETRR 36683 REV A -- 10/73R%R **** CONTRIBUTED PROGRAM **************************************** jj***********************j* PURSUIT OF A TARGET *(j***********************2j< jPROGRAM -- CHASEFjPNHZjDO YOU WISH INSTRUCTIONSdfn V.YES6xj5THE OBJECT OF THE GAME IS TO TRACK DOWN AND INTERCEPTj-A RANDOMLY MOVING TARGED (LIKE A RABBIT HUNT)jj3FIRST YOU MUST CHOOSE A LEVEL OF DIFFICULTY ( 0-9 )"j V4,6 L46 Z*MNN@40>jHjRj*******\j* POW *fj*******pjzjjjDO YOU WISH ANOTHER GO AT ITf V0YESb j AGAIN -- @` CHOMP u _GdR *** THE GAME OF CHOMP *** COPYRIGHT PCC 1973 ***njx!j9THIS IS THE GAME OF CHOMP (SCIENTIFIC AMERICAN, JAN 1973)jWANT THE RULES (1=YES, 0=NO!)g$W$Tvd@w$Pv4pj-CHOMP IS FOR 1 OR MORE PLAYERS (HUMANS ONLY).jj.HERE'S HOW A BOARD LOOKS (THIS ONE IS 5 BY 7):jj5THE BOARD IS A BIG COOKIE - R ROWS HIGH AND C COLUMNS j7WIDE. YOU INPUT R AND C AT THE START. IN THE UPPER LEFT j8CORNER OF THE COOKIE IS A POISON SQUARE (P). THE ONE WHO!j9CHOMPS THE POISON SQUARE LOSES. TO TAKE A CHOMP, TYPE THEj3ROW AND COLUMN OF ONE OF THE SQUARES ON THE COOKIE." j8ALL OF THE SQUARES BELOW AND TO THE RIGHT OF THAT SQUARE,j1(INCLUDING THAT SQUARE, TOO) DISAPPEAR -- CHOMP!!6 j8NO FAIR CHOMPING SQUARES THAT HAVE ALREADY BEEN CHOMPED,@!j:OR THAT ARE OUTSIDE THE ORIGINAL DIMENSIONS OF THE COOKIE.JjT j HERE WE GO...^N  hvdr X@Pt X@Pw LyZ{Z|j jHOW MANY PLAYERSgv j HOW MANY ROWSg$W$Hj#TOO MANY ROWS (9 IS MAXIMUM). NOW,  jHOW MANY COLUMNSf4V4Hj&TOO MANY COLUMNS (9 IS MAXIMUM). NOW, jX@}$&X@|40 v@:ZDZNv@@@X R PRINT THE BOARDbjlp1 2 3 4 5 6 7 8 9vX@}$ jpX@|4 V0@ Vj* jP ZjZjVd^R GET CHOMPS FOR EACH PLAYER IN TURN L@ M'% W4*w4 jPLAYER >j!COORDINATES OF CHOMP (ROW,COLUMN)Hg&6RW&@\W&+$fV6@pV6*4z V&6 V&60@j/NO FAIR. YOU'RE TRYING TO CHOMP ON EMPTY SPACE!4X&}$X6|4 vZZbR END OF GAME DETElCTED IN LINE 900jYOU LOSE, PLAYER jjAGAIN (1=YES; 0=NO!)g$W$@T$`lCINV #4 t J-Jv(R *** REV 1.3 19-FEB-80 ***2#R- *** WRITTEN BY BOB ANDERSON FOR CRISIS COMPUTER CORP. 7/79 ***< R ***REVISED 8/79,BAF R***REVISED3/80,BA***P R *** MOD ***ZR *** ALAN DE MARTINO ***d"R***REVISED 08/11/80 SYSDAT SUBROUTINE ADDED TO LIST+BACKLINE***n R FILE REQUEST ADDEDs#R***REVISED 5/21/81 =>DATE CHANGED TO PO # & PO# SEARCH ADDED, BAtR***REVISED 1/7/82 =>STATUS SEARCH ADDED.xp*,* NNNN      NN NN N R- *** MASTER CONTROL FOR PROGRAM FUNCTIONS. ***j2THIS PROGRAM WILL LIST AND MAINTAIN THE INVENTORY.jjPLEASE SELECT THE FUNCTION #j,1-ADD NEW ITEM 2-DELETE ITEMj,3-LIST FILE 4-SEARCH/INV#j+5-SEARCH/MODEL 6-SEARCH/MFG"j.7-SEARCH/PO# 8-SEARCH/STATUS,j,9-TOTALS 10-FILE MAINT.6j.11-NEW INV. FILE 12-END OPERATION@V@J/@NAME OF INVENTORY FILE :T^ V0@lhD@rV`V|/@j$TYPE 000 TO BACK LINE 1 INSTRUCTION./@v@j jCOMMAND fT =d/V# R- *** ROUTINE TO ADD ITEMS TO INVENTORY AND ALPHA SORT.*** V`@ h@@ V`@ h@@jMANUFACTURER (7) MENU=/fV0/& V00000 j MODEL (7):fD V0000 NjC.C.C. INVENTORY NUMBER (7)Xfb V0000El jCOST (7,NO DEC.)vfV[jSELL PRICE (7,NO DEC.)fVz j P.O. NUMBER f V0000 j STATUS (2)jN=NEWjD=DEMOjB=BROKENjU=USED jC=CUSTOMER OWNEDf V0000V v@*|4v@>v@H v @Rh@   \V, fV* pV0 z X @|~@h@    j@ @   Z j@ j@@@vV.!Nv V"@!v@ V"@Nv@! j FILE FULL$.v8BR- *** ROUTINE TO DELETE AN INVENTORY ITEM ***Lj!THIS ROUTINE WILL DELETE A RECORDVj`jINPUT MANUFACTURER,(/=MENU)jf tV 0/~jINPUT INVENTORY # f  V 0000  V`@ v!@ V`@ h@!V.  V0  v!!@ ` j8FIND NO RECORDS OF THIS DESCRIPTION; PLEASE CHECK INPUT. j j;jv""(v#"&d2j "#<jFj1 IS THIS THE RECORD YOU WANTED TO DELETE (Y OR N)Pf$ZV$0N dj@!n j FILE DELETEDx R***DECREMENT*** h@@%v%%@ j@@%v!!@ V`@  R-***REPACK***h@! V`@ j@!@v!!@ CjNO RECORDS IN THIS FILE  j@!@` j* DO YOU WANT THE OUTPUT ON THE LINEPRINTER"F,V@@0Y 6v&@ _J>ASCBOBT 4FILE-ASCBOB,LP0^ hj2THE LP IS BUSY... BREAK IF YOU DON'T WANT TO WAIT!r DASCBOB@|V@ EV` jASSIGNMENT OF LP FAILED!!v&@jWAIT....FILE IS BEING PRINTED!!R- *** ROUTINE TO LIST INVENTORY ***j&/ *****************************j&/ * CRISIS COMPUTER CORP *j&/ * INVENTORY *j&/ * ON-HAND *j&/ *****************************j&j&FILE BEING LISTED IS  j&/` vWDMYTPNIj&& j&/`0v'@:j&Dj&;Nj&Xvb v()*+l V`@ Gvh@'V0 V. v""v#"&dH7 7A,2X,7A,2X,7A,2X,7D,2X,7D,2X,7D,2X,S3D.2D,2X,8A,2X,2Aj& "#vv(( v)) v** v++ v''@ kv,+"* j& ` j& *, v-,&+d*j& 4 j& +->j& Hv+*RV0* Q\j&fj&;pj&z v*  j&/@v.)"(H7" --------- -------"H"SUBTOTALS=",15X,9D,9X,9D#H?" ------- ------"H"TOTALS=",18X,9D,9X,9Dj& ` j& (.V.%v/.&)dj&  H34X,9D,11X,SDD.DD  j& )/  j&/@ $j&2STATUS = N-NEW,D-DEMO,B-BROKEN,U-USED,C-CUST.OWNED .j& END OF REPORT 8j& Bv@ LV@@.Y Vj& `D$@ j>ASCBOB tV ~j!ASCII FILE 'ASCBOB' NOT PURGED.   R ***ROUTINE TO SEARCH FOR A INVENTORY #*** "j;THIS ROUTINE WILL SEARCH FOR AND DISPLAY A INVENTORY NUMBER j jINVENTORY #,(/=MENU) f V0/ v!@ V`@ h@! V0 v!!@  )HL"MANUF MODEL INV# COST SELL G/P % P.O.# ST" )HK"======= ======= ======= ======= ======= ======= ===== ======== ==" v"" (v#"&d 2j <j; Fj "# P/` Z djNO FIND...PLEASE CHECK INPUT n x R ***SEARCH/MODEL*** j+THIS ROUTINE WILL SEARCH BY MODEL AND LIST. j jMODEL,(/=MENU) f V0/ v!@ v*+,- j j; V`@ h@! L V@0@o v!!@   V`@ "h@! ,V@0@o 6v!!@ @= Jv"" Tv#"&d ^j "# hv!!@ rV* |v* v+ v," v-# V*0 v**  v++  = v,+"* v-,&+d j ` j *, j j +- j v*+ j END OF REPORT & 0jNO SUCH MODEL,TRY AGAIN : D R****SEARCH/MFG**** Nj)THIS ROUTINE WILL SEARCH BY MFG AND PRINT Xv@ bj l j MFG. (/=MENU) vf V0/ v jLINEPRINTER? (CR=NO) F V@@0Y v&  >ASCBOB 4FILE-ASCBOB,LP0  j1THE LP IS BUSY...BREAK IF YOU DON'T WANT TO WAIT! DASCBOB@ V@ V` jASSIGNMENT OF LP FAILED!!! v&@ j!WAIT.....FILE IS BEING PRINTED!!! *R 4j&. ///***LISTING BY MANUFACTURER***/// >j&/` Printing of  H vWDMYTPN RI \ j&/@ f v*+,- pv!@ z j&/@ j&; V`@ h@! L V@0@ v!!@ y V`@8 h@! V@0@ v!!@  v""vv#"&dj& "#$v!!@.V**8v*Bv+Lv,"Vv-#`V*04jv** tv++ ~v,+"*v-,&+dj& ` j& *,j&  j& +-j&v0*v1+v*+j& END OF REPORTj& D$@ #jNO SUCH MANUF, TRY AGAIND$@(#2 R***FILE MAINTAINCE***<"j jPO# (/=MENU)HFRV0/\vfjLINEPRINTER? (CR=NO)pFzV@@0Yv&0>ASCBOB 4FILE-ASCBOB,LP0j1THE LP IS BUSY...BREAK IF YOU DON'T WANT TO WAIT! DASCBOB@V@V`jASSIGNMENT OF LP FAILED!!!v&@j!WAIT.....FILE IS BEING PRINTED!!!Rj&0 ///***LISTING BY PURCH. ORDER #***///j&/` Printing of  vWDMYTPN$I. j&/@8 v*+,-Bv!@L j&/@Vj&;` V`@jh@!tL~V@0@ v!!@ V`@_h@!V@0@ v!!@v""vv#"&dj& "#v!!@V*Q v*v+v,"(v-#2V*0[<v** Fv++ PZv,+"*dv-,&+dnj& `x j& *,j&  j& +-j&v0*v1+v*+j& END OF REPORTj& D$@IjNO SUCH PO #, TRY AGAIND$@I R***FILE MAINTAINCE***"jHjWHAT IS THE NEW STRf \v fj@!pj(YOUR NEW INVENTORY ITEM LOOKS LIKE THIS:zjjj;v""v#"&dj "#/`j SO THERE!!!j"THERE AIN'T NO SECH INV#,TRY AGAIN8 R****SEARCH/STATUSBj,THIS ROUTINE WILL SEARCH BY STATUS AND PRINTLv@V/@STATUS? (/=MENU)`vjFtV0/~vjLINEPRINTER? (=NO) FV@@0Yv&i>ASCBOB 4FILE-ASCBOB,LP0j1THE LP IS BUSY...BREAK IF YOU DON'T WANT TO WAIT! DASCBOB@V@JV`jASSIGNMENT OF THE LP FAILED!!! v&@j*...PLEASE WAIT..THE FILE IS BEING PRINTED!R(j&/ ///*** LISTING BY STATUS ***\\\2j&/` STATUS= < vWDMYTPNFIP j&/@Z v*+,-dv!@n j&/@xj&; V`@ h@!LV@0@Lv!!@ V`@h@!V@0@Lv!!@v""vv#"&dj& "#v!!@V*v*v+v,"v-#"V*0,v** 6v++ @Jv,+"*Tv-,&+d^j& `h j& *,rj& | j& +-j&v0*v1+v*+j&* END OF REPORTj& D$@oj NO SUCH STATUS! TRY AGAIN !D$@obX R***TOTALS***bj.THESE ARE THE TOTALS FOR THE INVENTORY ON HANDl/@v v%()v@ V`@h@v(( v)) v%%@v@kjTOTAL ITEMS IN INVENTORY =%jjTOTAL COST VALUE OF INVENTORY=$(jjTOTAL SELL VALUE OF INVENTORY=$)v")"( v#"&)dj j"TOTAL G/P OF INVENTORY AS VALUED=$"*j4j"TOTAL G/P% OF INVENTORY AS VALUED=#%>/`HRj!SER # IS IN USE. PLEASE RECHECK.\ fbp vWDMYTPNzv3' # vMDYWTPN v 0123456789 v@pv4v X @V'Z j/FORMAT EXCEEDS CAPACITY. FORMAT TERMINATED ANDjRETURNED TO CALLING PROGRAM.# X!@p V  0!! Z!jINVALID FORMAT CODE =   . FORMAT TERMINATEDj AND RETURNED TO CALLING PROGRAM.$#. T! - !^!""~"8BV3 9L"Vv''@` njX@|5th~Zv''@ v''@#dJANUARYFEBRUARYMARCHAPRILdMAYJUNEJULYAUGUSTd SEPTEMBEROCTOBERNOVEMBERDECEMBERV3 "v67 V @ @.Y v''@ v'', #R TWO DIGIT NUMBER TO STRING ROUTINEv''@( v86P2 V!P48!6<V8!=Fv''8@8@Pv''@Zv966PPdv''9@9@n^x v6`v''@ v''@19v''@ #v''@+v:@[@``@@Qpv:p$::`!X@|:hZdSUNDAYMONDAYTUESDAY WEDNESDAYdTHURSDAYFRIDAYSATURDAY Qv''@" v@,V`"A6v''p :0 PM@v`J"PTv''p :0 AM^v6hv''@r |v''@ v6 v''`#v''@t;v''PPORT #v''Pv6; #V3"" v<P@ 5d 7 # R COMPUTE MONTH AND DAY NUMBERS &v 0v3@ : v<` D X=@@ N V<D =@# X V<D =@# bZ= lv@ v v@| #> X=@` h v=  Z= #v ZxKZjyD@LS[@ v7@ X5@` V7@5# Z5 v<<@ v5@ v77[@!#! V5@#! v77"5@! ^!*v''@!4 v'' !>Z !H^!R`@$0 @ $(P,p0P4:@FLPT Z0^b66dTvd7788xw9B9tN&$DFGD4#w,BCINV % = J-JJJv(R *** REV 1.3 19-FEB-80 ***2#R- *** WRITTEN BY BOB ANDERSON FOR CRISIS COMPUTER CORP. 7/79 ***< R ***REVISED 8/79,BAF R***REVISED3/80,BA***K$R***revised to serial file structure and broken to 2 slaves (sera &LR***serb by bob anderson, 7/81.P R *** MOD ***ZR *** ALAN DE MARTINO ***dRn R FILE REQUEST ADDEDs#R***REVISED 5/21/81 =>DATE CHANGED TO PO # & PO# SEARCH ADDED, BAxp*,*,* NNNN      NN NN N R- *** MASTER CONTROL FOR PROGRAM FUNCTIONS. ***j2THIS PROGRAM WILL LIST AND MAINTAIN THE INVENTORY.jjPLEASE SELECT THE FUNCTION #j,1-ADD NEW ITEM 2-DELETE ITEMj,3-LIST FILE 4-SEARCH/INV#j+5-SEARCH/MODEL 6-SEARCH/MFG"j'7-SEARCH/PO# 8-TOTALS,j39-FILE MAINT. 10-NEW INVENTORY FILE1j 11-SORT BY INV #6j 12-END OPERATION@V@J/@NAME OF INVENTORY FILE :T^ V0@~hD@rV`h|/@j$TYPE 000 TO BACK LINE 1 INSTRUCTION./@j jCOMMAND fT$Cbh r*SERAujChain failed; Error #  r*seraAPjChain failed: Error #  r*SERAP jChain failed: error #   r*serbkjChain failed: Error #  r*serbsjchain failed: Error #  & r*serb@( jChain failed: # *0 r*SERBW2jChain failed: Error # 4: r*SERBo@<jChain failed: Error # >D r*SERBLhFjChain failed: Error # HX r*SERAeZjChain failed: Error # \`@$0Z@"(,0P4p8P<BHNTX\ b0fj w,ZCIVIL2 _L R - CIVIL WAR SIMULATIONR-ORIGINAL PROGRAM BY L. CRAM,L. GOODIE, D. HIBBARDR - MODIFIED BY GERRY PAUL--7/18/73R - REVISED BY ROGER HESS--10/24/73#R- OF TIES, MINNEAPOLIS(N0 2O1<R UNION INFO ON LIKELY CONFEDERATE STRATEGYFni3Pd d d d ZjdjDO YOU WANT INSTRUCTIONSngx W0YESW0NOr j YES OR NO -- nj jTHIS IS A CIVIL WAR SIMULATION.j0TO PLAY, TYPE A RESPONSE WHEN THE COMPUTER ASKS. j8REMEMBER THAT ALL FACTORS ARE INTERRELATED AND THAT YOUR!j:RESPONSES COULD CHANGE HISTORY. FACTS AND FIGURES USED ARE"jH R\ fp z   h067MT R INFLATION CALC LP #t@ LP t"@ R - MONEY AVAILABLE+LA@d$d"}$@ &#&&@@LA@d$d"}@ V <YES+LA@d$d"}$@ '#&'@@ R - MEN AVAILABLE$Lڞ$@ #F&ؠ@.L۞$@ #G&٠@8 LfP$֦`Bj LjTHIS IS THE BATTLE OF 0VW0NO~`T $Bj2j TXPnt j0 INSTANT REPLAY~jj  CONFEDERACY UNIONjMEN  jMONEY$A@$A@j INFLATION x% % R - ONLY IN PRINTOUT IS CONFED INFLATION = I1+15%R - IF TWO GENERALS, INPUT CONFED. FIRSTX@|D V <YESV@jCONFEDERATE GENERAL---j!HOW MUCH DO YOU WISH TO SPEND FOR j - FOOD......fd VdPW&2jNO PREVIOUS ENTRIES(2j'ASSUME YOU WANT TO KEEP SAME ALLOCATONS<jFPLadZ j - SALARIES..dfnL@x V j - AMMUNITIONf!L@ V!njVa  !@AjTHINK AGAIN! YOU HAVE ONLY $AjNEGATIVE VALUES NOT ALLOWED.TZ V <YESV@ jUNION GENERAL---ZY@|D V <YEST"U,@, j CONFEDERATE 6T@ j UNION J R - FIND MORALETL@$a@ @&f@@^VP|h jMORALE IS HIGHr|VP jMORALE IS FAIR jMORALE IS POOR V <YESL[L@L@jCONFEDERATE GENERAL---R - ACTUAL OFF/DEF BATTLE SITUATIONVԮ`jYOU ARE ON THE OFFENSIVE0VԼ@&jYOU ARE ON THE DEFENSIVE0&j BOTH SIDES ARE ON THE OFFENSIVE 0j: R - CHOOSE STRATEGIESD V <YESvN X@@XTbbjCONFEDERATE STRATEGY lv jYOUR STRATEGY g֏``jSTRATEGY NOT ALLOWED.v V 0YESWP  &zV@M jUNION STRATEGY ZMM WPR : SIMULATED LOSSES-NORTH #L;@$7P$@@&@$#@*L;;$Q P$צ`&!@@4L;;$@@&@>R - IF LOSS > MEN PRESENT, RESCALE LOSSESHLWd&R ֯; W,\ L;h$ۦP f LWp$;hpMW@zR - CALCULATE SIMULATED LOSSESjj  CONFEDERACYUNION#L:@$6P$@@&@$#@#L::$@@&$Q f&!@@@LTd&V:d&,$@ #F&ؠ@L:h$֦P $@ #F&ؠ@ LTp$:hMT@VD@  j CASUALTIES:;j DESERTIONSTWj  V <YES j%COMPARED TO THE ACTUAL CASUALTIES AT 0 !j CONFEDERATE:d$:&6@% OF THE ORIGINAL $!j UNION: d$;&7@% OF THE ORIGINAL .j 8 R - 1 WHO ONE B WT@5W@ LWT@ t VWW@ `V: T0; W jV: T,; W t jTHE UNION WINS 0 ~ ( jTHE CONFEDERACY WINS 0  d jBATTLE OUTCOME UNRESOLVED Muu@ V  x L;D $7$6&:P  LWP$  jYOUR CASUALTIES WERE d$:&6@% OF jTHE ACTUAL CASUALTIES AT 0 j R - FIND WHO WON WT@  V: TD $7$6&:P P$ F  j YOU LOSE 0 (V 2LĠ@ < x F jYOU WIN 0 PR - CUMULATIVE BATTLE FACTORS WHICH ALTER HISTORICAL ZR RESOURCES AVAILABLE.IF A REPLAY DON'T UPDATE. dV nMtt@ xMFF : T MGG ; W M 6 M 7 M a@ @ !@ M a@ @ !@ M&& $d"P M'' $d"P L L  MTW j--------------- l  R------FINISH OFF jTHE CONFEDERACY HAS SURRENDERED  , "jTHE UNION HAS SURRENDERED. ,/P 6 jTHE CONFEDERACY  @jHAS WON t BATTLES AND LOST JWP | TWP h ^ Wt@7P | hjTHE CONFEDERACY HAS WON THE WAR r |jTHE UNION HAS WON THE WAR j W&  jFOR THE t !u" BATTLES FOUGHT (EXCLUDING RERUNS) j    j CONFEDERACY UNION jHISTORICAL LOSSES@@ jSIMULATED LOSSESF@G@ j 'j % OF ORIGINALd$F'@d$G'@ V 0YES  j j0UNION INTELLIGENCE SUGGESTS THAT THE SOUTH USED j2STRATEGIES 1, 2, 3, 4 IN THE FOLLOWING PERCENTAGES k1@1@1`1@ R--------------------------------- b &R - UNION STRATEGY IS COMPUTER CHOSEN 0jUNION STRATEGY IS  :V l Dg N W5P X j7ENTER 1 , 2 ,3 , OR 4 (USUALLY PREVIOUS UNION STRATEGY) b D lM5 v M$d@ X@@ M55!1 R - IF ACTUAL STRATEGY INFO IS IN PROGRAM DATA STATEMENTS R THEN R-100 IS EXTRA WEIGHT GIVEN TO THAT STATEGY. W$-5 Z R - IF ACTUAL STRAT. IN,THEN HERE IS Y2= HIST. STRAT. M k ^ R LEARN PRESENT STRATEGY, START FORGETTING OLD ONES #R - PRESENT STRATEGY OF SOUTH GAINS 3*S, OTHERS LOSE S PROBABILITY R POINTS, UNLESS A STRATEGY FALLS BELOW 5% M4` M5  X@@ W1P > * M11#4 4M55!4 >Z H M11!5 R^ \ R - HISTORICAL DATA...CAN ADD MORE (STRAT.,ETC) BY INSERTING fR DATA STATEMENTS AFTER APPRO. INFO, AND ADJUSTING READ pdBULL RUNFPHDzT@ zdSHILOHN W Se` d SEVEN DAYS\"pN"P{` dSECOND BULL RUNix { N m`@ dANTIETAMN a N ]` dFREDERICKSBURGI>"u0"Tb@ d MURFREESBOROJ8 W U]@ dCHANCELLORSVILLE}W"eC-@ d VICKSBURGa D\"]J8@ d GETTYSBURGF"S"N Y` d CHICKAMAUGA@t"u0 FP}@ d CHATTANOOGAHD u0 G Z@ d SPOTSYLVANIAy kl"E;FP@ dATLANTA~ a"Bhs@ "j;JULY 21, 1861 GEN. BEAUREGARD COMMANDING THE SOUTH MET THE "jTHROUGHOUT THE BATTLE AND FORCED GEN. MCCLELLAN AND THE UNION VjFORCES AWAY FROM RICHMOND.`~j"j;AUG. 29-30, 1862. THE COMBINED CONFEDERATE FORCES UNDER LEEt j8AND JACKSON DROVE THE UNION FORCES BACK INTO WASHINGTON.~~"j;SEPT 17,1862 THE SOUTH FAILED TO INCORPORATE MARYLAND INTO jTHE CONFEDERACY.~"j;DEC 13,1862 THE CONFEDERACY UNDER LEE SUCCESSFULLY REPULSEDj+AN ATTACK BY THE UNION UNDER GEN. BURNSIDE.~!j:DEC 31,1862 THE SOUTH UNDER GEN. BRAGG WON A CLOSE BATTLE~!j:MAY 1-6, 1863 THE SOUTH HAD A COSTLY VICTORY AND LOST ONEj3OF THEIR OUTSTANDING GENERALS, 'STONEWALL' JACKSON.~!j9JULY 4, 1863 VICKSBURG WAS A COSTLY DEFEAT FOR THE SOUTHj4BECAUSE IT GAVE THE UNION ACCESS TO THE MISSISSIPPI. ~"j X#(R ** CALENDAR DEMONSTRATION **#)R ** WRITTEN BY STEVE HTDPHCK **#*R#+(OHH H! R* HДH0H#,NHpHHHPH@H#-&NP`HHPHH@H0HHH#.R * SETS OUTPUT STRING TO SPACES#/ M@H #0 M@H #1L6#2 L 0123456789#3R * READ LAST DAY OF MONTH#4 X@`#5h!#6Z#7&| p | x | x | | x | x | #8j#9Lp S M T W T F S#: R * INPUT DATA SECTION#;jCALENDAR FOR WHAT YEAR#<f#=v#> V0END$Y#? V0STOP$Y#@ V0AID#~#AM#B X@#C X@P#D V0#G#EZ#F#L#G MP @#HZ#I$L#J W7#L#K#N#Lj" ENTRY IGNORED. INVALID YEAR.#M#;#NWb#~#OW@\ @#~#PjANY PARTICULAR MONTH (Y OR N)#Qf #R V 0END#;#S V 0STOP#~#TV @@0Y#X#UV @@0N#k#Vj( ANSWER 'Y' OR 'YES'.....'N' OR 'NO'#W#P#X j WHAT MONTH#Yf0#Z V00STOP$Y#[ V00END#P#\ V0.AID#_#]j1 ENTER '1' FOR JANUARY, '2' FOR FEBRUARY, ETC.#^#X#_v&#` X@0#a X@P#b V00#e#cZ#d#i#e v&&P @#fZ#gV&6&`6&&#i#h#k#ij! ENTRY IGNORED, IVALID MONTH.#j#X#kV @@0N#z#l j ===== #m$%#n R * SPACE COUNTER#ow#p Y8@P#q V0880 #s#r#u#sw@#t[8#uL #0L #vj#w H p#x##y R * PAGE SEPERATOR#zR#{j#|$Z#}Wb##~j0 ENTER A YEAR AFTER 1581 AND BEFORE 8388608.##;#R * HEADINGS#j#\ CALENDAR FOR THE YEAR #j#j#v@#j#j#j# R * TAB VALUES#v$P#v4| #vDn #R * K0= NO OF GROUPS OF 3 MONTHS PRINTED#v@#T#####R * PRINT MONTH HEADINGS#$4`D###$4PDP###$4@D0###$4D@#j#jpd pd p#T#####R * CHECKS FOR LEAP YEARS#vp#vĞ#'vĞKd]db@#vdd#V##V@@####W@@#### Yd}d#W1##[#$@#W6@##w$[# v!@t ###w$[@# vԞ[@$b #vԢԦpp#R * ROUTINE TO DETERMINE PROPER DATES#v #Vp##vp### Y4@`# YD@|@# vRD4#[D# YD|!4 @# vRD4D"@#[D# YD!4 T # vRD4#[D#v !4!4pp#Vp##vp#[4#wt# Yd@`# YT@T #wtt@# vtRTd#[T#[d#V @@0N## YP#v@#v# Yd@p#v`#v`#vdp%T $&T # vP#v$"P#V##v0@@@@#v0@@$@$@#VP####v0 #v0### v # v0@@ #v0#[d# H #[#j#j#$#R#R# YP#w$@#w4# YT@#Yd@p%pp%#w$$`#w44`#R * TO RIGHT JUSTIFY OUPUT DATE# vdT %T#V## vP#v$"P#v0@@@@#v0@@$@$@#V000##VP####v0 #w$40### w$$ # v0@@ #wP$40#[d#[T$R * TO PLACE INTO STRING FOR OUTPUT$ Xt@T $ wtttt$Zt$ Xt@@$wT tT t $Zt$ XtX T $wt@t@tt$ Zt$ Xt@@$ w\ t\ t $ Zt$ XtV ~ $wt@t@tt$Zt$k$[$j$ Y@^$ v~$[$w@$W@$$v@$#$j ===== $ j MORE (Y OR N)$f0$l$V0@@0Y#/$V0@@0N$Y$ V00END$Y$! V00STOP$Y$"j( ANSWER 'Y' OR 'YES'.....'N' OR 'NO'$#$$$R * TO DETERMINE WHAT MONTH$%T&$'$)$+$-$/$1$3$5$7$9$;$=$&^$'v0$(^$)v0`$*^$+v0$,^$-v0$.^$/v0P$0^$1v0P$2^$3v0$4^$5v0@$6^$7v00$8^$9v0$:^$;v0$<^$=v0@$>^$?R * DETERMINES IF CENTURY YEAR$@w$Av$BW@@00$E$Cw6$D^$E W00$H$Fw6$G^$Hw6@$I^$Jb$Kj$L v JANUARY $M v` FEBRUARY $N v MARCH $O w APRIL $P vP MAY $Q wP JUNE $R v JULY $S w@ AUGUST $T w0 SEPTEMBER$U v OCTOBER $V v NOVEMBER $W v@ DECEMBER $X^$Yb$Z j ===== $[^$\`PCLOC S.  J HHR: CLOCK Written by David Shayer 12/6/79R: Modified by Brad Zaller 7/12/80(&| p | x | x | | x | x | 2v*DAY MON 00, 1900 00:00:00 AM 0000/000<(v@[@``@@pFvp$`PvSunMonTueWedThuFriSatZv@``@`d v@n X@`xh#v @8`@`@V@xv"Zv$JanFebMarAprMayJunJulAugSepOctNovDecv`@`@`6|X"HX`|@ D v @"`$@`6 |X " HX |d "Hd @|p "@Hp  vx x A x$@X$@d|H "@HL &@|T "@H"@cT VN"R: Try to chain back to the program specified in,R: Q$ at line specified by L6r @R: Chain to line L failed - Try to chain withoutJ R: a line number Tr ^R: Illegal or no program specified in Q$. PrinthR: the date string at the terminal and exit.rj|`@FDD$')w,CLOCKS =-#R **** HP BASIC PROGRAM LIBRARY *******************************RR CLOCKS: CLOCKSRR 36657 REV A 10/73R#R **** CONTRIBUTED PROGRAM ************************************R - CLOCKSR - PEOPLES COMPUTER CENTER , MENLO PARK , CA.R - CONCEPT : BOB ALBRECHT$R - PROGRAMER : RAY COOP8R - THANKS TO PETE SESSIONS AND GREG YOBLR - **************** 3/5/73**************************`jDO YOU WANT INSTRUCTIONSt g@@W0NTR *************INTRO.*******j !j:I'M THINKING OF A TIME BETWEEN 0:01 (1 MIN.AFTER MIDNIGHT) j8AND 12:00 NOON. YOUR JOB IS TO TRY TO GUESS THE TIME I'M j THINKING OF .jj4AFTER YOU ENTER YOUR GUESS ,A SET OF CODE WORDS WILL(j,TELL YOU HOW FAR YOUR GUESS IS FROM MY TIME.<jP j CODE WORDS :dj MEGA - HOURS CORRECT.xj KILO - MINUTES CORRECT.j+ HECTO - HOURS OFF BY AT MOST + OR - 2.j* DECA - MIN. OFF BY AT MOST + OR - 2.j+ DECI - HOURS OFF BY AT MOST + OR - 5.j* CENTI - MIN. OFF BY AT MOST + OR - 5.j+ MILLI - MIN. OFF BY AT MOST + OR - 10.j+ MICRO - MIN. OFF BY AT MOST + OR - 20.j, BLA - COMPLETELY OFF IN HOURS OR MIN.j,j FORMAT : HH:MM OR H:MM ONLY.@j TvFZ@h vDFx |vTF"Dx  VD`4T@TjO.K. I HAVE THOUGHT OF A TIME.NnO@ w$ԞN0HO0 w@ 0123456789DN@ XR ***************INPUT*********lVԪwDhwDD YOUR GUESSf0w$$@vԠ@ R ***************PARSER************ L@4L@Hv@\ V0p V00  V00: v@0v@v@\ @@ 8 v0@@0 v0@@ $v@0 8 X@@ Lw@ ` X@P t W/@ v@ Z Z R *************CONVERTED INPUT TIME********* vP$@ @ vP$` @ R **************CODE WORDS******** R **************HOURS************* (V0D40T <V0D  Pvd"D dVd` xVd` jBLA   , jDECI   , jHECTO  , jMEGA  R ***************MINUTES********* ,V0T l @vt"T TVt` D hVt`  |VtX VtT  j BLA  X j MICRO X j MILLI X  j CENTI 0X D j DECA  XX l j KILO  X R ****************HUMAN ELEMENT********* j2************** YOU GOT IT!!!!!!! W$@ W$P H W$P jFINALLY, AFTER$ GUESSES YOU GOT IT!  \ j $(GUESSES THAT'S ABOUT PAR FOR THE COURSE. 4 \ Hk$ GUESSES: AREN'T WE GETTING GOOD! \j%TRY TO BETTER YOUR SCORE NEXT TIME .. p j3INCREDIBLE , YOU GOT IT IN O N E GUESS , THAT'S A jPERFECT SCORE. j WE WOULD LIKE TO TELL YOU THAT: j THE WORLD IS PROUD OF YOU. j" YOUR COUNTRY IS PROUD OF YOU. j DYMAX IS PROUD OF YOU. j& AND MOST OF ALL I'M PROUD OF YOU.j $ j ONE MORE TIME8gLW0YT`j t j SEE YOU LATER`COBOL " _b $j?COBOL: HP COBOL SIMULATOR, HP 36845. CALLING NAMES OF PROGRAMS#j=ARE: COMON, COIDEV, CODDV, CODBG, COPDV1, COSORT, XCORUN, AND j COSC4(FILE).(`CODBG T  J` m JДH^ Ktp@u Jє K J0H@  K41($mnU K   R COBOL, HP 36845B, 6/74 pCOSCRNHV^d R ERROR PRINTINGpj*x T^ j ERROR CODE^j)USE OF ELEMENTARY OR EDITED ITEMS ILLEGALj#CAN ONLY ACCEPT DISPLAY-TYPE FIELDSj%NON-NUMERIC FIELD ACCESSED AS NUMERICjILLEGAL TYPE OF MOVE SPECIFIEDjACCESS BEYOND FILE LIMITSj-SUBSCRIPT OUT OF BOUNDS--ACCESS OUT OF MEMORY R NO ERROR EXIT r$XCORUNP  j AT LINE r$COMONP R DEBUGGER???'`CODDV ' = J`  JH Ktp@u JєR COBOL, HP 36845B, 6/74 p*,*,*D`@ D$COSC4@ h@@0@p h@P6nh@26P D$COSCR@( D$COSCR`* V`@X4 N@ p6 L@ 0123456789<OHДH>O@O`HFO2(IN0HP Na qR V`@Z h`@^%`j`TALLY`aMN#&b M@ixcM@d h@@n X@|͢@xh@Z j@P` L]vwxncMw niP @,M4@.#(0#2Mx@6V]@ Yf}u@Ygf@ x}f@ p~@ Wpgg< [g Mpf@ pg%V֯a"`(Mf@@@@}}`[fr$COPDV1L^hL^pj**UNEXPECTED END OF FILE REACHED AFTER LINEr XR ENTER HERE IF WE RUN OUT OF COSCRb j7*THE SCRATCH FILE 'COSCR' IS NOT LONG ENOUGH TO COMPILEl!j9 YOUR PROGRAM. TYPE 'KIL-COSCR' FOLLOWED BY 'OPE-COSCR,N'v j8 WHERE N IS A GREATER NUMBER OF LINKS THAN ARE CURRENTLYj) AVAILABLE. THEN GET COMON AND TRY AGAIN. r$COMONNPբզ@@P/բզ@@P?բզPPPOբզ``P_բզz(z(R MAIN TABLE DRIVEN ROUTINEW=L W24@XW24P0P$#$ M424`. W4<d8L W24PjN L^24PV`tjT24P@$ttt M424@~. R LEVEL ROUTINE :M>j@P`Lefghijklmnuq@q@q`Wd zWWA> j@P!efghԤ` jklmn`j@Ԥ` uq@q@q```M@ W1*.j@P!`,j@`4> lHM@Rh@P!efghijklmSh@uq@q@q``V VԤ` >[XLԞ@`ZL"Ԥ`[ Lnn:Ԥ` "i\WA>]W@ >^Li_W@f` :bLefghijklmnuq@q@q`fMtzWMM@L^@M@#L@x  Wx7@ LԞw`Lww``#VW=@W@`0PIC j W@`0VAL  W0USAGE  W0BLANK  $W@@0JUST F & W0OCCURS .W@@0SYNC x 0W,A 2W0\ 8 W0 REDEFINES :W= B ;M@ <M@ => >L@ ?MxP @Mv A^ BL^H D L# VV L ` aL^P b c L jR PICTURE t# ~W0IS t M  R USAGE # W0IS Le@ W@@0COMP Le W@@0DISP Le@ W0INDEX  a R VALUE # W0IS M`   R BLANK WHEN ZERO # ( W0WHEN  *Lf@ 2 W0ZERO < a FR JUSTIFIED P# ZLg@ d W0RIGHT n xR SYNC # Lh@ W0LEFT Lh W0RIGHT  a R REDEFINES # % L@@}} % LԞ@` L"Ԥ`  R OCCURS  L^x  #  W= a Luu@ Vu` a "Lqu ,# 6 W0TIMES , @ W<INDEXED J# TW0BY J ZW,A ^ j`` hLޢ@ rMf& t M@] |M@  R PICTURE SCAN MX9A(SVPB0Z,.*+-CD$ M M    lk X@} M X@H W1  Z L^p  ^  L@ &VH : 0 T p :TH B DV/ @(@  N M @ XL bW  lM  @ vL   Z W7  W @ Ll l ^ M` M@  D M @ M@ W @  U@ M@  U@ M@  M L L@  X@P W0@ H *Z 4 W0) \ >  H LP @ R \M @ f b pLk@ zM@  M @ Ll  z M@ Lll# @ L! M   z M@  M@ L!  M @ Ll  Lk@ V< L`L  M @ VH  L! M   W@@<R $M@.L@8 BW@@0B$L  R ERROR MESSAGESLlj*ԯ^@P@T^,@Th| T^Pj'SECTION' MISSING OR MISSPELLEDLl@$jEND OF PARAGRAPH EXPECTEDLl@"$,jILLEGAL FILE NAME IN FD.Ll@6$@j ILLEGAL CLAUSE IN FD DESCRIPTIONBLl`J$Tj"ILLEGAL PARAGRAPH IN DATA DIVISIONVLl@XM^$hj 'DIVISION' MISSING OR MISSPELLEDjLl@r$|jILLEGAL PICTURE CONSTRUCTION$j$ILLEGAL LEVEL NUMBER OR CONSTRUCTION$j"ILLEGAL CLAUSE IN DATA DESCRIPTION$j"ILLEGAL SYNTAX IN DATA DESCRIPTION$jILLEGAL NUMERIC CONSTANT$jRECORD TOO LONG FOR FILE$j ACTUAL KEY ' ' NOT DEFINED$j ACTUAL KEY '' MUST BE COMPUTATIONAL$j#CAN'T SUBSCRIPT LEVEL 1 OR 77 ITEMS $$j AT LINE CHR&L]@. Tl@8Vj8#BLW0\V#XL`W0\bW0,dW0;fW0.j#l`^ R CHECK FOR MATCH M524@M=@ԯ5@P@U5 (2<FU5PPZdnx U5P  W0FILE" W0SECTION"W0." W0\" W0FD" W0BLOCK" ( W0CONTAINS"*2M3 Y@4 Y@P5 W0@86[78 MP!@9[:"<W0TO">F W0RECORD"H W0RECORDS"I W0MODE"JP W0 CHARACTERS"RZ W0DATA"\dW0IS"f W0ARE"ln W0DATAo W0LABELp W0BLOCKq W0RECORDr W0 RECORDINGv"x W0LABEL"y W0 RECORDING"z W0STANDARD"W0F" W0OMITTED"W0,"W0;" W0 PROCEDURE" W0DIVISION"W0."W0\"W0WORKING-STORAGE"W077"W001"M="^ R DATA FOR PICTURETHT@ \HS&an$`(h(P`\(@{(@S&p_(`{O(@Sр&px\(P}(P{T(pc_(po(@mr$&XR GENERATORSb M524@lT5@P@vv U5%V&zMv :MwԤ` Mx^L^`^La`^La@^LaP^VԤ` ?w aPLԞw aP` Lw aP"Ԥ` :Wv Xp Mv a@Z% ^RLvf&zp LaPaP:nr VaPHztL^`vx LaPHz VapLapwMxx@MvMvM@!LR SAVE VARIABLE IN CORE ARRAYV Ma" "lP }!P f@ g@ k` M@ڤ} jM@tV@~MX֞@}@M֢֢@``M ע@@(`#W`M@MZM@V@MM@^@ R M2=CHRVAL(M$(M1))JL؞@ T V@0|^Lئ@hL rT| V00Lئ@L"T^ R M$--> MEMORY X֞@@T  Lפ@@L՞@ &L פ@@L՞` &  L ע@ LԠ@ L՞@ &Z 0^ : R SYNC MEMORY DVհ@ b NL՞@ XLԠ@ b^ lR GET LENGTH nLn pVh@ t r : tLԤ` vVi! Ve@!  Ln W@!H Le W@ MP Mln L Lk@ V0FILLER! j`` Vu !Muz( q@N  q@d q` M@ WH& L ! L!L@!> !HLݞ!JVn`!M!LLݞ@!M Ve7x!P!NLޢ@"!P Te@!T!f"t!TL؞!U!W!VL!WL@!XMp!\ !fL`!p Ln``$!zM`! !Lޢ@!Mlڞ`!L@!L!M@!Ln! !Li!Lv@!Xw@|u!Lvv$qw!Zw!Mln&v!LP!M`! ! Wv5@R!Vi!!V@!!Lv@!Xw@|u!Lvv$qw!Zw!Lwv!W`<!!Lnn$v! LԠn`!L On!V`!!Lբ`!LԠ@!^!W`@@0'"!W`@@*A"k!W`@@<0``"" T@""""t"t"L`@`@" ,n"B"$ 0n"X". LД@n"8"X"B X@|n"L L "VZ"XX@|v"`"bZ"j^"k X@P"lW`@@0p@`@"o"mZ"n"t"oL"pX@|n"qLpP P "rZ"s"X"tL^P"~"^" T@""t"""L`"""$"MjjP("l#f" MiiP("l#f" Mjj _iz("Miijz("Mj_j"M"V`""M"LԠ@ "Vݰ@""Lj"#"Li" L@j"##V@"j#L# Xn@~@#V`# #L?jP(@## # L?iP(p# LD P%g$k# Ln"@n"@0#Mg#Z#Lvw#"#Lvv@#Vv##V`"#Lޢ@"#"#( R READ NEXT LINE#2h@#<L͠@#FL@#PL#ZL#d^# R GET NEXT WORD --> X$#L@# V< ##L@#V@##L#V>$# V0'$6#V00``$6#L@# V< ## M@#W<.$#V<$##(#V@`0 $$M\$L@$R$^$#($"V@`0 #$,$$6L@$JV0#$T V<$6$^#$ R SCAN CONSTANT$L@$ Mefghij$W`@@0+$$W`@@<-$$Mg@$L@$X`$ X@P% W`0@%X%Z% W`<.%:%&Mh@%0%%:L^X%D%N^%X MjjP @%bMiiPjz(%lMj_j%vMee@%Mff!h%Z%^% R RESET FILES 3,4% V``%%h`%%%^% R FIND X$ AS SYMBOL% h`@% V``& &h`& V=&&^& L&*^&z R READ DATA-->F&| X@P& La @&Z&^&j&j*DATA DIVISION TOO LARGE&v]@&'`COIDEV _c J` JH Ktp@u JєR COBOL, HP 36845B, 6/74 p*,*,* D$COSC4@ h@@0D`@ V`@, DCOSCR`oL͞ nӟ"L՞@$M@%o&Lޞ}( h@@*L2 OH2d4Na H0H< V`@,Fjdi6n ni26PpL]urMtx#(z#M4@V]@6r$CODDV,j**UNEXPECTED END OF FILE REACHED AFTER LINE6sR MAIN TABLE DRIVEN ROUTINEW=L W24@X#$ M424`. W4<d8L W24PjV`tjT24P@$ttt M424@~. R ERROR MESSAGESLlmn M524Pj*W5@ U5"6J^U5@rj/PROGRAM MUST START WITH IDENTIFICATION DIVISIONLn@0j 'DIVISION' MISSING OR MISSPELLEDLm@0jEND OF PARAGRAPH EXPECTEDLl@0j'PROGRAM-ID' CLAUSE MISSING0" jPERIOD MISSING,06j,ILLEGAL PARAGRAPH IN IDENTIFICATION DIVISION@0JjCONFIGURATION SECTION MISSINGT0^jWRONG SOURCE OR OBJECT COMPUTER`Lm@h0rj#ILLEGAL OBJECT COMPUTER DESCRIPTIONtLl@|0jILLEGAL SPECIAL-NAMES CLAUSELl@0j'SECTION' MISSING OR MISSPELLEDLm@0jILLEGAL FILE-CONTROL CLAUSELl@0jILLEGAL FILE NAMELm@0j!ILLEGAL ACCESS OR PROCESSING MODELm@0j'IS' MISSING OR MISSPELLED0j)ILLEGAL PARAGRAPH IN ENVIRONMENT DIVISIONLl@00j AT LINECHR2L]@:VnND r$COMONPNVmbX#bVllW0\v#l^ R LOOK-FOR ROUTINES M>24@M=@ԯ>@P@U> (2<FU>PPZdnxU>P U>x ",6@JT^hrU>P | U>d W0IDENTIFICATION  W0DIVISION W0\  W0 PROGRAM-ID  W0. W<\  ( W0AUTHOR* 2 W0 INSTALLATION4 < W0 DATE-WRITTEN> F W0SECURITYH P W0REMARKSR Z W0 ENVIRONMENT\ dW0 CONFIGURATIONf n W0SECTIONp xW0SOURCE-COMPUTERz  W0HEWEY W0HP2000C W0OBJECT-COMPUTER  W0MEMORY  W0SIZE  W@,:  W0WORDS  W0 CHARACTERS  W0MODULES W0 SEGMENT-LIMIT W0IS W0ARE W0 SPECIAL-NAMES  W0 INPUT-OUTPUT  W0 FILE-CONTROL  W0SELECT  W0OPTIONAL W>A " W0ASSIGN$ ,W0TO. 6W@@0'8 @ W0FORB J W0MULTIPLEL T W0REELV ^ W0UNIT` h W0RESERVEj rW0NOt | W0 ALTERNATE~  W0AREA W0AREAS  W0 FILE-LIMIT W0 FILE-LIMITS  W0THRU  W0ACCESS  W0MODE  W0 SEQUENTIAL  W0RANDOM  W0 PROCESSING  W0ACTUAL  W0KEY  W0 I-O-CONTROL W0,W0; W0AND  W0DATA  M=^oR TABLE DATApZq@@@r@``@s`@@`t@PP@uP``Pv`@pw``xp`Hy@`PzH`X{P``|X`h}`p``~@xx@`@ @ `hX T xH T PL L P@ P P @`T T `D X F P\ \ P@ ` ` @j d D H h | L l l P p D HT ` t X ` x \ ` D H` @ D Hd B D HP ` D H`F F `h H T PJ R `L L d N N P`T P j J J `T J Pl V Xp\ \ XpZ Z X`D D ``^ ^ `p ` V`Vb Pd d Pt `f | `x @h h | @j | `@ l | `B n n D `p p hF r r H t x J @x v L @x | `j ~ z Ppd | `pV~ N @DP BAP B| `R CCT x x V EId F| `P G| `X H| `P x | `Z JM\ OO^ x L` Px x pb NR\ PPd KKxd QQx^ x x pd S| `f TTd UUx| @x | `h WX`XX`l Y\ @ @ZZ@``XR GENERATORSb M524@l U5  naPMuu@ Mvu@ x La@d ^ La`@^L^Mpv MpvvP@p@ EpvvP@V`!j*CAN'T OPEN FILE pvvP AT LINE CHRL]@D@^j *FEATURE NOT IMPLEMENTED AT LINECHR^ La@@^ j`` X@@MaM@Z^ Mpv`vx*^#( R READ NEXT LINE#2h@#<L͠@#FL@#PL#Z^# R GET NEXT WORD--.X$# V< ##L@#V@##L#V>$# V0'$6#V00``$6#L@# V< ## M@#W<.$#V<$##(#V@`0 $$M\$R$^$#($"V@`0 #$,$$6L@$JV*#4$T V<$6$VL@$^#'`4COLLEG  R COLLEG: COLLEGE QUIZES, ENHANCED BY MR. WILLIAM K. CHAR, R DECEMBER 2, 1974.RNH HHd @X-# jGOOD MORNING, (A- @h<2 jGOOD AFTERNOON, 7A< jGOOD EVENING, AjWHAT'S YOUR FIRST NAMEFfKjDO YOU NEED THE INSTRUCTIONS, PfUV@@0NZj_!j9 $COLLEG IS A SIMPLE QUIZ WHICH CONTAINS QUESTIONS INdjTHE FOLLOWING CATEGORIES:ijnj 1. GENERAL COLLEGE OPINIONS;sj# 2. COLLEGE ADMISSIONS PROCEDURES;xj) 3. COLLEGE ADMISSIONS REQUIREMENTS; AND}j 4. FINANCIAL ASSISTANCE.jj0 PLEASE ANSWER 'Y' OR 'N' TO EACH STATEMENT.j0QUESTIONS ANSWERED INCORRECTLY WILL BE REPEATED.jj=====jj-IN WHICH CATEGORY WOULD YOU LIKE TO BE TESTEDj (1-4, 5 TO STOP)f V@6@vh V 0$ENDV @@<$v@jj THERE ARE QUESTIONS IN THIS CATEGORY.nvTR (ADVANCE MISTAKE POINTERS)X@|V6d v@ZX@| V`4dhZR (CHECK IF ANY QUESTIONS REMAIN)X@| VY"Z'R (CHECK IF ANY MISTAKES OUTSTANDING)",X@|1V4d6Z;j@j* YOU HAVE COMPLETED THIS SECTION WITH EjFDDTJjERRORS.OTR (RANDOMLY SELECT QUESTION)Yv䤿@^VYcR ===== READ AND PRINT QUESTION =====hmX@|rh wV @@<$r|Zjj @h V @@0?j j fV@@0 @@j WRONG; THE ANSWER IS ' @@'v@vTT@j RIGHT!vdR ===== END OF JOB =====j j1 I THANK YOU FOR SPENDING SOME TIME WITH ME, . j7TAKE THIS OUTPUT WITH YOU AND SEE YOUR COUNSELOR IF YOUjHAVE ANY QUESTIONS.bR ===== RESTORE DATA TO CORRECT TEST =====T ^^  ^^"d;$LESS THAN HALF THE PEOPLE WHO ENTER COLLEGE RECEIVE A 'BA' dDEGREE.?Y d7$A COLLEGE DEGREE IS A GUARANTEE FOR A GOOD PAYING JOB.d?N"d;$STUDENTS WHO ATTEND TWO-YEAR COLLEGES ARE USUALLY NOT GOOD d STUDENTS.?N$d6$YOUR PERSONAL VALUES WILL BE AFFECTED BY YOUR COLLEGE. d EXPERIENCE.?Y8"d<$TO BE EDUCATED TO THE LIMIT OF YOUR ABILITY YOU MUST ATTENDB dCOLLEGE.?NL d8$MOST COLLEGES HAVE FEW COMMON COURSES THAT ALL STUDENTSV d MUST TAKE.?Y`#d=$COLLEGE SELECTION SHOULD BE BASED ONLY ON FINANCIAL FACTORS.jd?Nt"d;$SUCCESS IN COLLEGE IS LARGELY DEPENDENT UPON THE STUDENT'S~dSELF-DIRECTION.?Y"d;$MOST STUDENTS ENTER COLLEGE KNOWING WHAT THEY WILL DO AS A dCAREER.?Y!d:$GENERALLY, COLLEGE TEACHERS ARE BETTER TEACHERS THAN HIGHdSCHOOL TEACHERS.?N!d:$YOUR TEACHERS ARE PROBABLY THE BEST JUDGE OF YOUR ABILITYdTO DO COLLEGE WORK.?N d7$SINCE COLLEGES ARE SO SIMILAR, SELECTION IS NOT A VERYdSERIOUS DECISION.?N#d=$FEW PEOPLE CONTINUE THEIR EDUCATION AFTER HIGH SCHOOL UNLESSdTHEY GO TO COLLEGE.?N!d9$THE MAIN PURPOSE FOR ATTENDING COLLEGE IS TO ACQUIRE JOB dSKILLS.?Y!d9$MOST STUDENTS KNOW IF THEY ARE GOING TO COLLEGE BY THEIR d9TH-GRADE YEAR.?N`d$END d8$A DEFINITE PLAN OF ACTION IS BENEFICIAL WHILE SELECTINGdA COLLEGE TO ATTEND.?Y!d9$ADMISSIONS OFFICERS ARE OF LITTLE ASSISTANCE TO STUDENTSdIN THE ADMISSIONS PROCESS.?N!d:$IF POSSIBLE, A STUDENT MAY WISH TO APPLY TO MORE THAN ONE dCOLLEGE.?Y "d<$PARENTS CAN BE HELPFUL IN COMPLETING THE COLLEGE ADMISSIONS dPROCESS.?Y d8$BEFORE YOU ARE ADMITTED, A COLLEGE WILL CHECK YOUR HIGH*dSCHOOL RECORD.?Y4 d8$COLLEGE CATALOGS INCLUDE SPECIFIC ADMISSIONS PROCEDURES> d TO FOLLOW.?YH d7$STUDENTS ATTENDING COLLEGE ARE USUALLY AWARE OF PROPERRdADMISSIONS PROCEDURES.?Y\"d;$A VISIT TO THE CAMPUS OF THE COLLEGE YOU WISH TO ATTEND ISfdUSUALLY BENEFICIAL.?Yp!d:$IT IS BEST TO COMPLETE ADMISSIONS PROCEDURES EARLY IN THEz d SENIOR YEAR.?Y d8$YOUR COUNSELOR HAS CURRENT INFORMATION ABOUT ADMISSIONSdFOR MOST SCHOOLS.?Y!d:$MOST COLLEGES HAVE DEADLINES FOR RECEIVING AND PROCESSINGdADMISSIONS APPLICATIONS.?Y d7$COMPLETING A HEALTH RECORD IS A PART OF THE ADMISSIONS dPROCESS.?Y"d;$MOST SCHOOLS REQUIRE A NON-REFUNDABLE DEPOSIT TO ACCOMPANYdEACH APPLICATION.?Yd6$THE ADMISSIONS PROCESS IS COMPLETED WHEN YOU START TOd ATTEND CLASS.?Nd5$YOU MUST RE-APPLY FOR ADMISSION EACH YEAR YOU ARE IN dCOLLEGE.?Nd$END "d;$THE A.C.T. TEST IS REQUIRED OF ALL STUDENTS PLANNING TO GO d TO COLLEGE.?N !d:$ALL STUDENTS MUST HAVE AT LEAST A 2.5 GRADE POINT AVERAGE dTO BE ADMITTED TO COLLEGE.?N "d<$ALL STUDENTS MUST HAVE A HIGH SCHOOL DIPLOMA TO BE ADMITTED d TO COLLEGE.?N !d:$MOST COLLEGES REQUIRE THREE YEARS OF SCIENCE AND MATH FOR dA STUDENT SEEKING ADMISSION.?N !d:$A STUDENT MUST TAKE THREE YEARS OF HIGH SCHOOL ENGLISH TO dBE ADMITTED TO COLLEGE.?N d4$A FOREIGN LANGUAGE IS REQUIRED FOR ADMISSION TO THE &dMAJORITY OF COLLEGES.?N 0d5$HIGH SCHOOL SCORES ON COLLEGE ADMISSIONS TESTS ARE A :d#NECESSITY FOR ADMISSION TO COLLEGE.?N D!d9$A STUDENT MUST STATE HIS MAJOR AREA OF STUDY AT THE TIME NdHE IS ADMITTED.?N X"d;$THE GREATEST SINGLE DETERMINER FOR ADMISSION TO COLLEGE IS bdHIGH SCHOOL ACHIEVEMENT.?Y l!d3$ALL COLLEGES HAVE THE SAME ADMISSION REQUIREMENTS.?N v d8$IT IS EASIER TO BE ADMITTED TO PRIVATE COLLEGES THAN TO dPUBLIC COLLEGES.?N d8$COLLEGES EXPECT STUDENTS TO KNOW HOW TO USE THE LIBRARY dPRIOR TO ADMISSION.?N d8$PRIOR TO ADMISSION, A STUDENT MUST VISIT THE CAMPUS AND dMEET THE DEAN.?N d8$A PERSON MAY BE ADMITTED TO COLLEGE ONLY IF HE PLANS TO dATTEND FULL-TIME.?N d5$A PERSON CAN ONLY ENTER COLLEGE IMMEDIATELY AFTER HE dGRADUATES FROM HIGH SCHOOL.?N d$ENDd3$ALL STUDENTS WHO ARE ADMITTED TO COLLEGE ARE GIVENdFINANCIAL AID.?N d8$FINANCIAL AID IS GRANTED ONLY ON THE BASIS OF FINANCIAL dNEED.?Nd-$MOST HIGH SCHOOLS HAVE SCHOLARSHIP FUNDS FORdTHEIR GRADUATING SENIORS.?Y"d;$THE AVERAGE TOTAL COST FOR ONE YEAR AT A FOUR YEAR COLLEGEdIS OVER $2000.?Y d8$MOST STUDENTS SHOULD HAVE THEIR PARENTS FILE A PARENTS'dFINANCIAL STATEMENT.?Y!d:$A STUDENT'S PARENTS MUST FILE A PARENTS' FINANCIAL STATE-dMENT EACH YEAR.?Yd,$A SCHOLARSHIP IS AN OUTRIGHT GIFT OF MONEY.?Y" d2$ALL FINANCIAL AID FUNDS RECEIVED MUST BE REPAYED.?N,d5$MOST FAMILIES TEND TO UNDERESTIMATE THEIR ABILITY TO6dCONTRIBUTE MONETARY AID.?Y@"d<$THE FEDERAL GOVERNMENT IS THE PRIMARY SUPPLIER OF FINANCIALJdAID TO STUDENTS.?YT!d:$A STUDENT IS LIMITED IN THE TOTAL AMOUNT OF FINANCIAL AID^dHE MAY RECEIVE.?Yhd6$THERE ARE SEVERAL WAYS THAT A STUDENT MAY FINANCE HISrdCOLLEGE EDUCATION.?Y|d6$FINANCIAL PLANNING IS OF LESS IMPORTANCE THAN COLLEGE d SELECTION.?N!d9$MOST COLLEGES HAVE A DEADLINE FOR APPLYING FOR FINANCIAL dAID.?Yd$END'`COLOP  =< #R COLOP (FORMALLY 'GENOPN'), HELPS ONE CONSIDER GENERAL OPINIONSR ABOUT A COLLEGE EDUCATION.R(NH H0H@HPH`HpH2Oq<j PLEASE TYPE IN YOUR NAME FfPwt4Zj O.K. % DO YOU WANT DIRECTIONS YES NO df nV 0NOxj j7 THE PURPOSE OF THIS PROGRAM IS TO CONSIDER SOME OF THEj1GENERAL OPINIONS THAT PEOPLE HAVE ABOUT A COLLEGEj4EDUCATION. TO COMPLETE THIS PROGRAM RESPOND TO EACHj4OF THE FOLLOWING STATEMENTS WITH A YES OR NO. AFTERj6COMPLETING THIS PROGRAM, REVIEW YOUR ANSWERS WITH YOURj-COUNSELOR. THIS WILL HELP IN ELIMINATING ANYj#MISUNDERSTANDING THAT YOU MAY HAVE.j X@xh 0@j 0fPV@0P"wtt@jWRONG6"v44@,jCORRECT6Z@j YOU GOT 4 CORRECT AND t WRONGJjTj^jhjrj|j'd+LESS THAN HALF THE PEOPLE WHO ENTER COLLEGE RECEIVE A`BA' DEGREE.dYES&d%A COLLEGE DEGREE IS A GUARANTEE FOR A GOOD PAYING JOB FOR LIFE.dNO'd%STUDENTS WHO ATTEND 2-YR COLLEGES ARE USUALLY NOT GOOD STUDENTS.dNO)d)YOUR PERSONAL VALUES WILL NOT BE AFFECTED BY YOUR COLLEGE EXPERIENCE.dNO)d$TO BE EDUCATED TO THE LIMIT OF YOUR ! ABILITY YOU MUST ATTEND COLLEGE.dNO'd*MOST COLLEGES HAVE FEW COMMON COURSES THAT ALL STUDENTS MUST TAKE.dYES%d)COLLEGE SELECTION SHOULD BE BASED ONLY ON FINANCIAL FACTORS.dNO,d'SUCCESS IN COLLEGE IS LARGELY DEPENDENT# UPON THE STUDENT'S SELF-DIRECTION.dYES&'d(MOST STUDENTS ENTER COLLEGE KNOWING WHAT THEY WILL DO AS A CAREER.0dNO:+d&GENERALLY, COLLEGE TEACHERS ARE BETTER$ TEACHERS THAN HIGH SCHOOL TEACHERS.DdNON-d)YOUR TEACHERS ARE PROBABLY THE BEST JUDGE$ OF YOUR ABILITY TO DO COLLEGE WORK.XdNOb/d(BECAUSE COLLEGES ARE SO SIMILAR, COLLEGE* SELECTION IS NOT A VERY SERIOUS DECISION.ldNOv/d%UNLESS THEY GO TO COLLEGE, FEW PEOPLE, CONTINUE THEIR EDUCATION AFTER HIGH SCHOOL.dNO'd)THE MAIN PURPOSE FOR ATTENDING COLLEGE IS TO ACQUIRE JOB SKILLS.dYES+d#MOST STUDENTS KNOW IF THEY'RE GOING& TO COLLEGE BY THEIR NINTH GRADE YEAR.dNO&jCBE SURE TO GO OVER THE RESULTS OF THIS PROGRAM WITH YOUR COUNSELOR.j`COMON " J`Htp@uJє0H  M M@LR COBOL, HP 36845A, 6/74 p*,*,*nӟonN H@L@ DCOSCR@OH V2!V@'" j7YOU HAVE NOT OPENED A FILE NAMED 'COSCR' BEFORE RUNNING$j3 THE COBOL SYSTEM. PLEASE TYPE 'OPE-COSCR,20' AND%j AND THEN TYPE 'RUN' AGAIN.&b' j7FILE 'COSCR' IS CURRENTLY BEING USED UNDER THIS NUMBER.(j5 PLEASE USE ANOTHER USER NUMBER OR TRY AGAIN LATER.)j THANK YOU*b2 D$COSC4@4 h@@06D@<L> @@P@ h@@B V<@PD @@PFh@@HL@JQP j@@`Q#RW@_TL`@UD`@VVZWL@X_Z jCURRENT FILE--`_ Lde,`Vda%djCOMONfjlj n tx V<@j\ j*TIMEOUT-DELETEDL,,@V,`n"j;*YOU HAVE NOT TYPED ANYTHING FOR OVER 20 MINUTES. GOOD BYE.(L,LVlV0@60` V0@V@@*9V@@,0V j@@`L j@`L@l V<@4 h@@ V`@ Mh@L,L X@pV* XHV0@@Z"LP$ Z"L,L-L@". L 8L@@ V< EBL@DV,@EVPHFL@GJHL@J V< LL@TV0^V@@< ` V@<hb L@@drh M@jL@@@"@rL@|TL@V@J L@ V>A V0'NV00``NV@0;  V@0) V@0** V@@<  V,0 V*9L L,V@M& L 0L@@@"@:L@<L@>V@<** @L@DN X@|@X V0vbZvLwV@@0 x M@zL@@ |L@@@"~L@LL j@`L@ L@*L4V0lV@`0RUNV@`0IGNV@`0LISFV@`0SCRV@`0RENrV@`0PUNV@`0XPUV@`0SOR $V@`0DELN.V@`0GET0V@`0BYE(2V@`0EXI(4V@`0PRI 8V@`0CSA9V@`0CLE (:V@`0STO(>V@`0COM@V@`0SAV .Bj *???Lljj *ILLEGAL FORMAT IN COMMANDtl~j *COULDN'T GET FILEl j *NO FILE PRESENTlj *PROGRAM MUST BE COMPILEDlj *PROGRAM PRECOMPILEDlj *CAN'T MODIFY READ-ONLY PROGRAMl @ (V@@<-j L`P V`<COSCRjj2 COSCR IS A COMPILER SCRATCH FILE, AND CANNOT BEj3USED FOR A USER PROGRAM. YOU MUST EXIT FROM COMON,"j;OPEN ANOTHER FILE TO BE USED FOR YOUR PROGRAM, THEN REENTERjCOMON AND GET THAT FILE.lD`@VV` DXXX@L@~L h@@ @@h@ V0@ tL@ @  h@ V@L@L@h@V@L@V`<@$ L@"l$L@% j@@`&l(j)V2*#(2j<bFL@G#(HjJj`LjN V0`P h@@R%S V!@ZT L!@_^6Z V`@\L'p dh@f V,!@dh V*!@dn#x&Hy k@`zT||j ~jL''@V'dV&dL't j djTlL@#(j PjlL` V0@ V0@ j@@` j@@`Llr V0@s V0`t V0@u#(v%xL| h@@ V!@ L!@_^6 V!@ L!@P V!@ L!@d h@@ V`@h@ V,!` V*!@L!@L!@!@ !@ j@` h@@ h@@ V`@:h@& j@`0:L< j@@`DV%`lF#(HlN j@@`OLP V0`R V0@T#(X%b V!@vl L!@!@vV%@j h@@ V`@ @@h@ V,!@ V@!@ j@`LV@\#(M$COMONLĞPL DCOSCR@L% V`@4 L&@ j@&` L&&@*4r$COIDEV\ h@@@fh@pup nh@L@L͞jj`jL D$COSC4@ h@@0 r$XCORUNR COMPILEV@lL@R CSAVEVVHl j`@@VlLf@Lg` h@@@X D` $l .R SAVE 8 BVl LLf@ VLg` X h@@ `X j  t R GET CSAVED FILE uj *WARNING: RUN-ONLY PROGRAM vL@ xL` ~h@pu nh@ j@@@`pu nj@ j@` l (R CLEAR 2L 4L@ <L` FL@ P j@@` ZD@ dl R SORT V0@ V0` L@ L LIGN #( l l R DEBUG  V0` : #( &L` (L 0 :j CAN'T DEBUG COMPILED FILE Dl R PRINT  Vl h`@ j `@ h` j  j D` lX R COPY#F1 TO #F2l fvvhfxjgzlhfjgljg`^R OPEN FILE$TV*  M@E`Vj *COULDN'T OPEN FILE^ j% *INCORRECT FORMAT--NO NAME SPECIFIEDLH^@R ENTRY FROM SUCCESSFUL/RUN/COMPJM@T V@6@VV`^L@h DCOSCR@rj@@@`tj@pu| nj@j@`V@L@L͞j*SUCCESSFUL COMPILATIONL@#( R SORT ROUTINE#2 V0@6#x#<V#FM$COMON#PLĞF#Zr$COSORT#dL,#fD`@#h DCOSCR@#i##n#x^#R NUMBER ROUTINE (N-Z$)#L#Mn000000# X@`#LP(`"#M@@#L"P(`"#Z#^#R INITIALIZE# L 0123456789$ DCOSCR@$S^$T R FIND START OF LIST$VL$^X@|$h V0-$$rZ$|L@$^$ R GET # TO N0$L@$L$V*%$ V0P$$ XH$V0@@$$Z$%$L@$L@$%$LP %L@%L@%V@$%V@%%L@%^%R GET B(10) FROM COMMAND% n!P%&L%&%0$T%:V*%%D$%XL%%@%ZV%Pj%bL!%%lV*%%v V0,%D%j% V!%<@%%L!%%L&@%L%%@%^%R RESTART%D`@%j&L& &HR-DELETE BLANKS PRECEDING PERIODS AND COMMAS&Rw|@&\V||@0 . &&fV||@0 , &&p&& v||@&w||@& W|@&\& V|0.&& V|0,&&^& v|@|&^'`nCOMP   R ** SOLVE * COMP VERSION * R.WONG * 02/09/77 **R ** EDP RESOURCE CENTER, 400 MANSELL ST. S.F. CA 94134R ** FOR THE H.P. 2000 ACCESS SYSTEM.( R ** REVISED: 7/10/72 * T.AARONSON * A = 240 TIME FACTOR **2R ** REVISED: 10/4/77 * P.VIXIE * MULTI-FILE READ **< R ** REVISED: 12/11/77* P.VIXIE * DESCRIPTION PAGINATION **FR ** REVISED: 12/11/77* P.VIXIE * COMP ADAPTATION **PR ** REVISED: 1/13/78 * P.VIXIE * MORE COMP ADAPTATION **Z"R ** REVISED: 1/17/78 * P.VIXIE * STILL MORE COMP ADAPTATION **dNH  0H H۔  n O H0 xw$tD5dvxp*j'HAVE YOU USED THE 'COMP' SERIES BEFORE f V @@0YV @@0Nj#PLEASE TYPE IN A "YES" OR A "NO".  R ** INSTRUCTIONS **j j7 THE 'COMP' SERIES IS A SET OF NINE LESSONS IN READING j7COMPREHENSION. EACH LESSON HAS A SHORT PARAGRAPH, AND j2THEN SOME QUESTIONS TO ANSWER ABOUT WHAT YOU READ.j) WOULD YOU LIKE A DESCRIPTION OF A LESSONgW@@0Nr"W@@0Y@,jPLEASE ANSWER "YES" OR "NO". 6@j# LIST WHAT LESSON [1-9, 0 FOR ALL] JfTVľ4H4İ^j)THAT LESSON IS UNAVAILABLE. TRY ANOTHER.h@r R ** ASSIGN FILE **|j% WHAT LESSON DO YOU WANT TO DO [1-9] fVľ4H4İj(THAT LESSON IS UNAVAILABLE. TRY ANOTHER.| w COMP00.A100VĪH 6}۔`` 6}۔P`Eۄ@V@ R ** STARTS HERE ** h@@$4 w023456789 @`h@&v@0V@@0*l:V@@0@8DV@@0%VNj XwblV@@0!vV@@.# Y@@V``10[v@wd@v`j*t$0j V00STOPwDD@ V$0@HV0.p w$$@*w@4t>Hw@Rw@\jYOU TOOK TOO LONG, fpwtt@zw@V5@jWRONG,  ; TRY AGAINv5@tR ** RESULT PRINT-OUT ** W$7Dj HERE ARE YOUR RESULTS, : jCORRECT:$ j INCORRECT:t j TIMED OUTS: jNO. OF ATTEMPTS:DjRIGHT/ATTEMPTS RATIO}%$'Dj DO YOU WANT TO TRY AGAIN, f$V@@0Y@.b8 W<@Bj@LVW@`j@jtR ** ADJECTIVE SUB-ROUTINE **~v5Wd@(vT`@W@vTT`#d RIGHT ON!CORRECTYEPMUY BIENO.K.CLEVER!(dNOPENO!NO!NO!NO!NO!NO WAYWRONGNO ES CORRECTOYECH!lY@|Ti [W@ k  -- THE ANSWER IS  6$| j   (TIME-  SECONDS)^(R ** DATA FOR ONE-LINE DESCRIPTIONS **2"dCOMP05 FIGURE OUT WHAT A WORD MEANS WHEN YOU'VE NEVER SEEN ITd#d=COMP06 SEE HOW WELL YOU CAN SEE WHAT WORDS PEOPLE USE TO GETnd WHAT THEY WANTx#d=COMP07 TELL WHAT WORDS SOMEONE USES TO MAKE YOU DO SOMETHINGd2COMP08 TELL WHEN ONE THING IS LIKE SOMETHING ELSEd'COMP09 TELL WHEN SOMETHING MAKES SENSER ** DATA PRINT-OUT **2Vİ,V`vĠ@Y@|i [Vİ`r j # P DO YOU WANT TO DO # P`fV@@0YV@@0N jYES OR NO PLEASE ",j 6 Xƞ@P@i Jk TZ^j hrr j # P|i j  P DO YOU WANT TO DO #06`@CONTRL A Kr$TIMER`@COPDV1  _tk J`  JH Ktp@u Jє KR COBOL, HP 36845B, 6/74N0HДH`HH N@  NpqO2ZM@\odp*,*nD`@p h@@v V`@#wL\VxLzn D$COSC4@"h@0@pq@q@q`q@qP h@P 5X@}5 h@6789:M2@6 :@} 7` aM2@8@d!9@Z DCOSCR@ j@P` X@|͢@h@Z#(M4,V\@.L͞@X@} M@ W@Z r$COMON} h@Ph@`eWe< j*'`'--L^d r MW=LM524@a` W5:W5 L5 %L>%M424@d@$ W4<@8:W5@;Lh < Mee@=%> ֯e@Au?L^p @ALL^24@}NL^^^d d @PV^jV`tj T^@$tttM424@24@dd@~$Lv % LW%L"WKMe䢯KK%V@ ( V>AV@0. * L^@ *L| 4%HL@R#\f#pli4W4GW=L@ W@L^` W@7@0@ M@4)p b }lD [`@@CO@C SAP Xt ` z iHJGW= T L^@  f ( R START NEW PARAGRAPH *L 2# 4 W0END <$ F We<@ d PMe@ Z j@e` d M@ nL~ p% Me M@@ M@ Vp<SECTION  L^h  L@ # V@0. H L^P   V< END OF PROGRAM .  < L~ % L@ % L % L@ % LZ % Lv % , TR NOTE VMe@ X W@ h ^Me@ h# r# |W<. h V@7e@  h D$COSC4@ h@@X]@|^h@Z]j*Д@ AT LINE CHR DCOSCR@L\@VД@@0PVД@@0I^##W<.^##^M>24@24@}}ԯ>@P@U> (2<FU>PPZdnxU>P U>x ",6@JT^hrU>P |U>~ blvU>FU>P  *4>HU>Zpz^LM=^V`0ACCEPT tL V,A#$T We-u@5>@ We-u@Z%V`0ADD V V0'p V00``p V,AV@0TO LVp0ROUNDED ~ (V@0ON L*2V@0SIZE `4<VP0ERROR j>FV`0GIVING tHPVP0ALTER jRZVp0PROCEED ~\d V,Ae#f$g We<@khMe@i j@e`kLf l%mnVp0DISPLAY ~pxV`0DIVIDE tzV@0INTO `V@0BY LVP0ENTER jVp0EXAMINE ~V@0 TALLYING VP0UNTIL jVP0FIRST jV`0ALL VVp0LEADING ~VH0 REPLACING V@0EXIT `V@0GO LVH0 DEPENDING V@0IF LV@0NEXT `V@0 SENTENCE "V@0ELSE `$,V@0MOVE `.6V@0 MULTIPLY 8@V@0NOTE `BJV@0. L#NTVp0PERFORM ~V^V@0THRU ``hVP0TIMES jjrVp0VARYING ~t|VP0AFTER j~Vp0COMPUTE ~V@0FROM `V@0STOP `V`0RUN VV@0 SUBTRACT V@0IS LV`0ARE VV`0NOT VV@0= B bVP0CLOSE jdlLm#n$TpWeq We+u@rLh s%uvV@0REEL `xV@0UNIT `V@0OPEN `VP0INPUT jV`0OUTPUT tV`0I-O VV@0READ `V`0RECORD tVP0WRITE jV`0BEFORE tVP0AFTER jVH0 ADVANCING  lWeWjWi`8VP0LINES jV@0LINE `Vp0INVALID ~ V`0KEY VV@0AT L V`0END V"*V@0SEEK `,4V@0WITH `6>V@0NO L@HV`0REWIND tJp V0'rqV<0``dr :sLd tMeu%v M@Ԥ` wxMN  "@PyzVP0READY j|VP0RESET jVP0TRACE jXVP0UNTIL j V,0 V@9 V0+ V0- V<.V@@0  lWe8 V0'V<0`` :Me Le@%B8L@:BL@DLL`NVL@X`LPbjL`ltLpv~L@LHLPLXM@@ "@}M@B# M=@^ZLdMe@xMe@ X@PV`0p@`@ZUeLd %L%MK( M@qM@#UefXLV@LVM@ LWjV`<NOT VVxM@M@ V,AV@<THEN LP#VW> TV@xV@0IS zV`0NOT Vp0GREATER  V@0LESS VP0EQUAL 8 Vp0NUMERIC V*VP0 ALPHABETIC 4x>#@#H$TR We0@\%fLW@pzL`#M@M@L@L@ M@@M@LWV#V@<THAN LP#V@<TO L`#LP$ M@@.8L`B M@`LVL@` M@PjM@t#~xLX M@`jVW M@W0+ W0- W0* W0/  V@0** W0) FW0. xVV@V@0( < V0'Z V<.V@@< f V,0 V@9f V0+ V<-V@@< fV00``ZLXp LXr LXt  LXv  LXn L@LXx L@W,X( &(M@*MX,LW.L@0#2<M@>MP@,F WPPHNFP WPRM@SL@T#UVV@xVZ M@Ԥ` [Me\Ld ]%^_MN  "@P`M@@ "@}aM@bL@c#dLW@ef lhL@jcxLj %VV@LV`W@ WPWP4V`^ Wj@7j@ W<ZEROL@ L0fLMe`L^T L^X L^\  R SAVE OPERATOR WP" Mz #"L$%& V`6V`,(Lqx*Lxx@+%,M@0^@MJ Xמ@@T V01h^Zh^LL@V@L^l  V<^@T  Lפ@@L՞@L פ@@L՞`  L ע@ LԠ@ L՞@ & :Vհ@ b NL՞@ XLԠ@ b^ lMm v Meghijl xMf@ V0+ V<- Mf@ L@ Yk@P V0@kk! [k V<.! Ml@ L@ V<  Lޢ@ Wi` Lޢ@ Wm@ Me Ld % MI>& jP }!iP M@i} ޤ`@ M@ Me@ Lg%f Wi`! Lh%f! Lޠ@g%f!^! MggP!k@!MhhPgz(!Mgggz(z(!Mii@! Mjj!l!* #(V#n#2h@#<L͠@#FL@#PL#RV@@< #Z#TLP#Z^#nL END OF PROGRAM . #pL@#rVP#<#tj"*UNEXPECTED END OF FILE AFTER LINE#v#L@##(#V>##V@0, ##^#L@####(###R GET WORD#L#L@$ V< #$ M@$L@$"^$T h@@$h V`@$$rh@`e$|W`=$r$^$Me@$^$ h@P$$h% We%x%&Ld %0%%NLd %P%%RL%T%%VLe@%X%%YLyV%ZLV@%[LWj%\Lxq@d%]Lq@q@"xd%^%bLVy%d^%xLq@*eN %yLq@e"q@N d%zLq`eedd%{%N% L`@%L K(`"@%L@%VK%%L^t %%%^%%%Le%%'`*COC4  b2? !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^ 0123456789SPACZEROHIGHLOW-QUOT 0^ '@ | @Q |v# Q v$@ % v& v'h   ^ v* v'`   @ ^ v/  @ ^ v  @ &^R ERRORSjNUMBERS NOT WITHIN PROPER RANGE j TRY AGAINj fAj2YOUR SEEM TO HAVE THE CARDS IN THE WRONG DIRECTIONj" OR YOU HIT THE CR KEY BY MISTAKEjPVARIABLE OR LITERAL EXPECTED=PVARIABLE EXPECTEDI'ERROR' MISSING OR MISSPELLED,PUNDECIPHERABLE SYNTAX IN PROCEDURE DIVISIONPPARAGRAPH NAME EXPECTEDI'TO' MISSING OR MISSPELLED'I'GIVING' MISSING OR MISSPELLEDI'BY' MISSING OR MISSPELLEDPLITERAL EXPECTEDI'FIRST' MISSING OR MISSPELLEDI'ON' MISSING OR MISSPELLEDRPFILENAME EXPECTED0PTYPE OF FILE TO BE OPENED MISSING OR MISSPELLEDI'REWIND' MISSING OR MISSPELLEDDPINTEGER EXPECTEDCI'FROM' MISSING OR MISSPELLED Y BY MISTAKEjI'UNTIL' MISSING OR MISSPELLEDI'TIMES' MISSING OR MISSPELLED P'=' EXPECTEDEXEND OF SENTENCE EXPECTEDX$PUNDEFINED OR UNSUBSCRIPTED VARIABLEIUNDEFINED OPERATORSPILLEGAL EXPRESSION'XPARAGRAPH OF ILLEGAL TYPEXPARAGRAPH NAME UNDEFINEDLXSECTIONING ILLEGALEXILLEGAL LITERAL(XVARIABLE MUST BE ASSOCIATED WITH A FILEXPROGRAM TOO LARGEED0PTYPE OF FILE TO BE OPENED MISSING OR MISSPELLEDI'REWIND' MISSING OR MISSPELLEDDPINTEGER EXPECTEDCI'FROM' MISSING OR MISSPELLED Y BY MISTAKEjI'UNTIL' MISSING OR MISSPELLEDI'TIMES' MISSING OR MISSPELLED P'=' EXPECTEDEXEND OF SENTENCE EXPECTEDX$PUNDEFINED OR UNSUBSCRIPTED VARIABLEIUNDEFINED OPERATORSPILLEGAL EXPRESSION'XPARAGRAPH OF ILLEGAL TYPEXPARAGRAPH NAME UNDEFINEDLXSECTIONING ILLEGALEXILLEGAL LITERAL(XVARIABLE MUST BE ASSOCIATED WITH A FILEXPROGRAM TOO LARGEED0PTYPE OF FILE TO BE OPENED MISSING OR MISSPELLEDI'REWIND' MISSING OR MISSPELLEDDPINTEGER EXPECTEDCI'FROM' MISSING OR MISSPELLED Y BY MISTAKEjI'UNTIL' MISSING OR MISSPELLEDI'TIMES' MISSING OR MISSPELLED P'=' EXPECTEDEXEND OF SENTENCE EXPECTEDX$PUNDEFINED OR UNSUBSCRIPTED VARIABLEIUNDEFINED OPERATORSPILLEGAL EXPRESSION'XPARAGRAPH OF ILLEGAL TYPEXPARAGRAPH NAME UNDEFINEDLXSECTIONING ILLEGALEXILLEGAL LITERAL(XVARIABLE MUST BE ASSOCIATED WITH A FILEXPROGRAM TOO LARGEED0PTYPE OF FILE TO BE OPENED MISSING OR MISSPELLEDI'REWIND' MISSING OR MISSPELLEDDPINTEGER EXPECTEDCI'FROM' MISSING OR MISSPELLED Y BY MISTAKEjI'UNTIL' MISSING OR MISSPELLEDI'TIMES' MISSING OR MISSPELLED P'=' EXPECTEDEXEND OF SENTENCE EXPECTEDX$PUNDEFINED OR UNSUBSCRIPTED VARIABLEIUNDEFINED OPERATORSPILLEGAL EXPRESSION'XPARAGRAPH OF ILLEGAL TYPEXPARAGRAPH NAME UNDEFINEDLXSECTIONING ILLEGALEXILLEGAL LITERAL(XVARIABLE MUST BE ASSOCIATED WITH A FILEXPROGRAM TOO LARGEED0PTYPE OF FILE TO BE OPENED MISSING OR MISSPELLEDI'REWIND' MISSING OR MISSPELLEDDPINTEGER EXPECTEDCI'FROM' MISSING OR MISSPELLED Y BY MISTAKEjI'UNTIL' MISSING OR MISSPELLEDI'TIMES' MISSING OR MISSPELLED P'=' EXPECTEDEXEND OF SENTENCE EXPECTEDX$PUNDEFINED OR UNSUBSCRIPTED VARIABLEIUNDEFINED OPERATORSPILLEGAL EXPRESSION'XPARAGRAPH OF ILLEGAL TYPEXPARAGRAPH NAME UNDEFINEDLXSECTIONING ILLEGALEXILLEGAL LITERAL(XVARIABLE MUST BE ASSOCIATED WITH A FILEXPROGRAM TOO LARGEED0PTYPE OF FILE TO BE OPENED MISSING OR MISSPELLEDI'REWIND' MISSING OR MISSPELLEDDPINTEGER EXPECTEDCI'FROM' MISSING OR MISSPELLED Y BY MISTAKEjI'UNTIL' MISSING OR MISSPELLEDI'TIMES' MISSING OR MISSPELLED P'=' EXPECTEDEXEND OF SENTENCE EXPECTEDX$PUNDEFINED OR UNSUBSCRIPTED VARIABLEIUNDEFINED OPERATORSPILLEGAL EXPRESSION'XPARAGRAPH OF ILLEGAL TYPEXPARAGRAPH NAME UNDEFINEDLXSECTIONING ILLEGALEXILLEGAL LITERAL(XVARIABLE MUST BE ASSOCIATED WITH A FILEXPROGRAM TOO LARGEED0PTYPE OF FILE TO BE OPENED MISSING OR MISSPELLEDI'REWIND' MISSING OR MISSPELLEDDPINTEGER EXPECTEDCI'FROM' MISSING OR MISSPELLED Y BY MISTAKEjI'UNTIL' MISSING OR MISSPELLEDI'TIMES' MISSING OR MISSPELLED P'=' EXPECTEDEXEND OF SENTENCE EXPECTEDX$PUNDEFINED OR UNSUBSCRIPTED VARIABLEIUNDEFINED OPERATORSPILLEGAL EXPRESSION'XPARAGRAPH OF ILLEGAL TYPEXPARAGRAPH NAME UNDEFINEDLXSECTIONING ILLEGALEXILLEGAL LITERAL(XVARIABLE MUST BE ASSOCIATED WITH A FILEXPROGRAM TOO LARGEED0PTYPE OF FILE TO BE OPENED MISSING OR MISSPELLEDI'REWIND' MISSING OR MISSPELLEDDPINTEGER EXPECTEDCI'FROM' MISSING OR MISSPELLED Y BY MISTAKEjP @@B @``@@@@@PPP p@```H pp`@ppHH@P`@HX`@``@P@`hX```@`xP P@ `@hD D pH `@H L L pH `xT d PX `@h\ \ @ `` D ``@Ph | pl l @Px `@L J B @Px `@X``T `@ `@@@@`@X D `P@F F @T H H @@@J J L L P PP N N `@@\ H p  `@hD D pH `@H L L pH `xT d PX `@h\ \ @ `` D ``@Ph | p l @Px `@L J B @Px `@X``T `@ `@@@@`@X D `P@F F @T H H @@@J J L L P PP N N `@@\ H p  `@hD D pH `@H L L pH `xT d PX `@h\ \ @ `` D ``@Ph | p l @Px `@L J B @Px `@X``T `@ `@@@@`@X D `P@F F @T H H @@@J J L L P PP N N `@@\ H p  `@hD D pH `@H L L pH `xT d PX `@h\ \ @ `` D ``@Ph | p l @Px `@L J B @Px `@X``T `@ `@@@@`@X D `P@F F @T H H @@@J J L L P PP N N `@@\ H p  `@hD D pH `@H L L pH `xT d PX `@h\ \ @ `` D ``@Ph | p l @Px `@L J B @Px `@X``T `@ `@@@@`@X D `P@F F @T H H @@@J J L L P PP N N `@@\ H p  `@hD D pH `@H L L pH `xT d PX `@h\ \ @ `` D ``@Ph | p l @Px `@L J B @Px `@X``T `@ `@@@@`@X D `P@F F @T H H @@@J J L L P PP N N `@@\ H p  `@hD D pH `@H L L pH `xT d PX `@h\ \ @ `` D ``@Ph | p l @Px `@L J B @Px `@X``T `@ `@@@@`@X D `P@F F @T H H @@@J J L L P PP N N `@@\ H p  `@hD D pH `@H L L pH `xT d PX `@h\ \ @ `` D ``@Ph | p l @Px `@L J B @Px `@X``T `@ `@@@@`@X D `P@F F @T H H @@@J J L L P PP N N `@@\ H p  `@hD D pH `@H L L pH `xT d PX `@h\ \ @ `` D ``@Ph | p l @Px `@L J B @Px `@X``T `@ `@@@@`@X D `P@F F @T H H @@@J J L L P PP N N `@@\ H p  `@hD D pH `@H L L pH `xT d PX `@h\ \ @ `` D ``@Ph | pF`@@@`@@@`@PPP@@`@`ppp@@@@HH@`PP@X`h@hPPpp``@x@ P@@ @ `h@PpH @@L @@@L xT @@X @@ \ p @@` h Pd `@@`@@@l @Pd pD h @L x @@| @P @ P T @B L X D D Pc@F Hd @H D J J @c@H\ D N ` D @d R @\ T Z c@V HD X X @c@H` T \ T @^ ^ X T @h l d P@f f `h@j Ph@h j p l p@n n X@@@B r @@t @Pv v `@@x @@@x D | @@~ @D \ \ @X AZ B[@H\ D@@E@@@EFV \ PF @@\ I^@] I@ PA@Q`B@DRC@DDD TEWUFWVGWhA@X`U@YYVZEWEEpH \A`]`I@^^R@__SJ a@@b@KdcLdgM@eeN@fxO@PhQ@T jA@k`I@J mh@nPL oph@pPaqr_@P s{@@t@V @uu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| COCR ' =TALLY@WS-DET`PpHWS-PRINTXTALLY@WS-DET`PpHWS-PRINTXTALLY@WS-DET`PpHWS-PRINTXTALLY@WS-DET`PpHWS-PRINTXTALLY@WS-DET`PpHWS-PRINTXTALLY@WS-DET`WS-XXP@P`WS-PRINTpTALLY@WS-DET`WS-XXP@P`WS-PRINTp@@@X``T `@ `@@@@`@X D `P@F F @T H H @@@J J L L P PP N N `@@\ H p  `@hD D pH `@H L L pH `xT d PX `@h\ \ @ `` D ``@Ph | pWS-PRINT@@``T `@ `@@@@`@X D `P@F F @T H H @@@J J L L P PP N N `@@\ H p  `@hD D pH `@H L L pH `xT d PX `@h\ \ @ `` D ``@Ph | p``T `@ `@@@@`@X D `P@F F @T H H @@@J J L L P PP N N `@@\ H p  `@hD D pH `@H L L pH `xT d PX `@h\ \ @ `` D ``@Ph | p``T `@ `@@@@`@X D `P@F F @T H H @@@J J L L P PP N N `@@\ H p  `@hD D pH `@H L L pH `xT d PX `@h\ \ @ `` D ``@Ph | p``T `@ `@@@@`@X D `P@F F @T H H @@@J J L L P PP N N `@@\ H p  `@hD D pH `@H L L pH `xT d PX `@h\ \ @ `` D ``@Ph | pJCOSORT; _g K JH p*,COSCRE@ V`@ N”М H0H@HPH`HpH( Lʞ@2 L”@@_^6< L”@@d R SET UP LOOPn V`@x h@@z j@@h@ Lɞ@ L”@@Vİ VĜ@, VĜ@0L LĜ@V 0LȠ@ LȜ@ Lɜ@ LȜ@,V 0"LȠ@LȜ@Ĝ@ Lɜ@ LȜ@,"Lɜ@Ĝ@$,LǠ@6Vǰ@T@j@ JTLʠ@^j@`j@ hLǞ@r R REVERSE LINKED LISTLĞ@ LĜ@ Vȼ LĞVȰX LȜ@ LȜ@&L(L0X R CREAT NEW FILEb h@@lj@vLɞ Vİ6Īz(HLȞĢ@`@V0L h@ 0@P`pLĢ@"Ȣ@` T* j@Ĝ@ 4 j@Ĝ@04 j@Ĝ@@4 j@Ĝ@P 4 j@Ĝ@` 4* j@Ĝ@p4 LĜ@>Vļ@Hj@`sR ENTER IF SCRATCH FILE TOO SMALLj3THE SCRATCH FILE 'COSCR' IS NOT LONG ENOUGH TO SORTj2 YOUR FILE. PLEASE TYPE 'KIL-COSCR' FOLLOWED BYj5 'OPE-COSCR,N' WHERE N IS A GREATER NUMBER THAN THE j8 CURRENT SIZE OF COSCR. AFTER THIS, TYPE 'RUN' AGAIN,"j AND AFTER GETTING YOUR FILE ` TYPE 'SORT' AND THEN j CONTINUE NORMALLY. r$COMONN'`J4CPUUSE" K  w$CPUUSE R LINES 1-5 AFM MOD 2 R***PROGRAM WRITTEN BY REYNOLD SCHWEICKHARDT***R***PROGRAM DETERIMES HOW MANY CYCLES CAN BE***R***MADE IN ONE MINUTE AND BY COMPARING THIS***(R***AGAINST SOLE USE DETERIMES % OF CPU USE.***- j7PROGRAM WILL TAKE SEVERAL MINUTES TO DETERMINE CPU USE.2 w7 w<W17F X@z(P WdZZdjNUMBER OF CYCLES THIS MINUTE: ij% OF CPU FREE=E djn`4CRASH { &/ #R *** CRASH - A MODIFIED VERSION OF LANDER (A CONTRIBUTED PROGRAM) R *** MODIFIED BY PEOPLE'S COMPUTER COMPANY, MENLO PARK, CAdNHjj$DO YOU WANT INSTRUCTIONS (YES OR NO) f@@jV@@0N,"j;CONGRATULATIONS! YOU ARE AT THE CONTROLS OF A SPACE MODULE.1#j=THE OBJECT IS TO LAND ON THE SURFACE WITH AS SMALL A VELOCITY6 j AS POSSIBLE.;j@#j>YOU START AT A GIVEN HEIGHT ABOVE THE SURFACE WITH YOUR MODULEEjMOVING TOWARD THE SURFACE.JjOj5YOU CHOOSE THE AMOUNT OF FUEL TO BE BURNED DURING THET jNEXT ONE SECOND.Yj^!j: IF YOU BURN ZERO, YOUR SPEED INCREASES DUE TO GRAVITY.cjh$j@ IF YOU BURN EXACTLY THE AMOUNT REQUIRED TO OVERCOME GRAVITY,mj# YOUR VELOCITY REMAINS CONSTANT.rjw$j? IF YOU BURN MORE, YOUR SPEED DECREASES BUT BURNING TOO MUCH|%jA MAY BEGIN TO MOVE YOU UPWARD (YOUR VELOCITY BECOMES POSITIVE)j$j?THERE IS MORE THAN ENOUGH FUEL, BUT BE CAREFUL NOT TO WASTE IT!j$j@YOU MAY TRY TO LAND ON THE MOON, ON THE EARTH, OR ON PERSEPHONE.j2LANDING ON THE MOON IS EASIEST, SO TRY THAT FIRST."j;PERSEPHONE IS AN UNKNOWN PLANET SO YOU WILL HAVE TO SPECIFY"j;ALL THE INITIAL CONDITIONS (HEIGHT, VELOCITY, MAXIMUM BURN,jAND BURN TO CANCEL GRAVITY.)jjGOOD LUCK AND HAPPY LANDINGS!RMejjj$LOCATION: MOON, EARTH, OR PERSEPHONEfjLV@@0M$L@V@@0E$V@@0Pj THAT LOCATION IS NOT RECOGNIZED.$ LtPl $. LԞx x $3WL8 M}]$B Mded d$Lj&INITIAL CONDITIONS: STANDARD OR RANDOMVf`V@@.Sj M}]$t Mdd d$yM$d dPdMd$P PPWd%d@$"t%MMed "Ld$d@@$t%&"tB\@PjjINITIAL HEIGHT: FEETjINITIAL VELOCITY: dFEET/SECjTOTAL FUEL SUPPLY: dUNITSjMAXIMUM BURN:  UNITS/SECj#AMOUNT OF BURN TO CANCEL GRAVITY: t UNITS/SEC(j2j<jTIMEHEIGHTVELOCITYFUELBURNFjMD@MDD@ kDdd f$L&$V&@  j  MAX BURN IS BURN  MNM@*V&>4MNd&&>L$"tH M$d%d@$%\W$fVp MMd$&zWdMM'dVM5M@7N@ M!d @Mdd Ldd"&WhیMDD@ F WM5MAN (  kD!N OUT OF FUEL Ld& M!d%N %N@@ $Mdd %N .Lt 8MMdd%d@$%&t B WM@#N LM!d$@#N $@#N@@ V Mdd $@#N `MDD@ jkDd tMMdd@@$%&t ~WM@ ( M!d @ Mdd   ` MDD!N (Ldd"&%M 2MDD!M <Mdd %M FkDdd Pj Zj Wd,@ ԯP@ j"YOU ARE NOW A QUALIFIED ASTRONAUT.  jAS GENTLE AS A KITTEN'S PURR!!  j&A BUTTERFLY COULDN'T HAVE DONE BETTER!  jAS SOFT AS A SNOWFLAKE!  j"MR. SPOCK WOULD BE PROUD OF YOU!!!  Wd,P T ԯ@@    " j,A BIT ROUGH, BUT YOU ARE STILL IN ONE PIECE!  !j8IF YOU HAD BEEN DRIVING A 1970 LTD, THAT WOULD HAVE COST  j YOU $500!  j&ANY FASTER AND YOU WOULD HAVE BOUNCED!  "j'YOU HAD BETTER CHECK YOU LANDING GEAR!! ' T Wd,P ^ԯP@ h r | hj#IS YOUR MEDICAL INSURANCE PAID UP?? m rj1YOU GOT DOWN, BUT YOU WILL NEVER BE AN ASTRONAUT! w |j&NEIL ARMSTRONG DID IT THE FIRST TIME!!  j&THE BEST LAID SCHEMES OF MICE AND MEN, j OFT' GO ASTRAY.  j3HAVE YOU EVER THOUGHT OF A DIFFERENT LINE OF WORK??  ԯ`@ j"YOUR NEXT OF KIN WILL BE NOTIFIED.  j&YOU JUST CREAMED A 29 MEGABUCK LANDER!  j4AREN'T YOU GLAD THIS IS ONLY A COMPUTER SIMULATION!! R *** SET UP INITIAL CONDITONS FOR 'PERSEPHONE'jjINITIAL HEIGHT (FEET)gj.INITIAL VELOCITY (FEET/SEC) (USUALLY NEGATIVE)gdjTOTAL FUEL SUPPLY (UNITS)fdjMAXIMUM BURN (UNITS/SEC)fj,AMOUNT OF BURN TO CANCEL GRAVITY (UNITS/SEC)ft('`DANGLEM = R *** THE DANGLING STRING ***R *** WRITTEN BY DAVE KAUFMAN, AUGUST 1973 ***R *** COPYRIGHT, PEOPLE'S COMPUTER CENTER ***(R *** 1921 MENALTO AVE., MENLO PARK, CA. ***2R G IS THE # OF THIS GAME<vt@Fj%WELCOME TO ... THE DANGLING STRINGPjZjHOW MANY STARS DO YOU WANTdg4n w44@xj jHOW WILDVt@j? j 4=VERY WILD j 3=PRETTY WILD j 2=A LITTLE WILDj 1=A TINY BIT WILDgt wttWtwt@Wt@wt@ R GET FIRST POSITIONj"jWHERE WILL THE STRING START,Vt@^6j?@j1 10 20 30JjI I I ITj^gh wrw@@ | *R FIND THE FIRST DISPLACEMENTvDϖ@ #@R NOW LOOP FOR EACH STARX@}4vDDϖ@ #@ WtDvDtD R FIND NEXT POINTw DWw@ *Zj jTHAT'S ALL, FOLKS!j&vtt@0jHERE WE GO AGAIN ...:PD`DATA  _#R **** HP BASIC PROGRAM LIBRARY *******************************RR DATA: DUMPS FILE TO DATA STATEMENTSRR 36287 REV A 6/73R#R **** CONTRIBUTED PROGRAM ************************************p*,$CHARSN  0 @P`HpHL'P@ P d } N  a"~h@pv#, D v  #,A, A,A vP#, D. DF v@ DATA x v0pb t  vppp vpF F  X@H@ vpp@@rZjFILEf`D`@:V`ljFILE NOT ACCESSIBLEjSS,If$44jpfj`jpvDTI @ .t .h@d `֏dz(6ddC Tdd@ \ThH@JV vTTh ( jF#,SD.5DEd Z vd d \T H@JV vTT  "v``0 TjFd  vd d vP``0 vd N Xt@p vP V  Zt vP``0tt H\T  tH@JV zvTT t  jFPd vP``  vP`` Bth@` v``\T H@JV Vx <vDn j`@t v``x  v``@ v``@6v``@ h v``vTTt vTT vt`P@0v PP0ttbvt@"t@Pv ``0ttVD v `@ *jF `\ v `@A,jF ` v P` $Vv$v``0VBDj jF$PvD@jF#,8A@vT@v$$ 4^Jj,|^VBDj jpD`DATE   R **** CALENDAR STARTS HERE **** VN ,| x [yL[jzDL@S[| ,| v ZxKZjyD@LS[@| w4 v@ vD@ w` vp0123456789000000000000000 w - - : AM w Vd!4K 4  w@ D PM Vh 4 *w` 4B > wPX Hw4 RB \ whp fW@@. p znh X@p VD*$ Vp vDD"h w@   w@ B w@@ wD"@ B w@P wB wp@^$Z. 8 zB R NUMBER-TO-STRINGL v䞯PVv@@p@@`v"Pjv@@p@@t^~`dDATER  = &Rjb&HR ***** SUBROUTINE DATER *****&IR&J"R RETURNS THE CURRENT DATE AND DAY OF THE WEEK IN ALPHA FORMAT&KR OUTPUT PARAMETERS: N$, DATE&LR M$, DAY OF WEEK&MR&NNД$   &OR&P R *** ENTRY 9810 ***&QR&Ro&S o| %&TM@`HXx &U M@t &WL$JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC&Y M 0123456789&\R&] M`&^W@@&a&_ M@p &a M@&f Y@`&gWA&p&hM#&k[&nR&p MP&qL &rW&u&s L@@&u M#P@&v L@&w L` &xL@Д`%@`%&y Lp &z MP&{L@@@&| M#P@&} LH&R&LSUNMONTUEWEDTHUFRISAT&M@!@@&Mpp&LД`%@`%`&^&R&R ***** END DATER *****'`dDCZOC 7 _1#R **** HP BASIC PROGRAM LIBRARY *******************************RR DCZOC: DECIMAL-TO-OCTAL CONVERTERRR 36747 REV A 10/73R#R **** CONTRIBUTED PROGRAM ************************************j"j" jDECIMAL "g#W$@# #(#jOCTAL #"#(R ********** DECIMAL-TO-OCTAL **********#2M#<M#FM#P W$/$6#ZM@#dM @#n ֯$#x M@#M P# ֯$# M@#M d# ֯$# M@#M }# ֯$# M@#M N "# ֯$# M@#M a($M$ W7@$"$M$"^$6jERROR - NUMBER OUT OF RANGE$@b$J`DEACON  NH H0H "R: FILE MOVED TO A001 AND LINE BELOW CHANGED 5/26/77 SCHWEIZERpDEACOF.A100vD( @XF2 jGOOD MORNING, <nF @xdP jGOOD AFTERNOON, Znd jGOOD EVENING, n"j< HEY THERE, I'M DEACON--THE MAN/MACHINE WITH THE DRUG INFO.xj WHAT'S YOUR NAME? t4DT0 h@@j& TYPE IN THE TERM YOU WANT EXPLAINED 0 ? t4DT jj X@} V`@h@V@@0*v V0*END V@0 Zj ..."h@, V0ENDT6j@jJ"Tj ANYTHING ELSE 0 (YES/NO)? ^t4DT hV @@0Nr VT,|j& TYPE IN THE TERM YOU WANT EXPLAINED 0 ? j SEE YOU AROUNDj ...j3 SORRY MAN...I'M FRESH OUT OF INFO ON THAT ONE.T`DECAY + =k R RADIOACTIVE DECAY SIMULATION, REVISED 1/9/73 BYR RON HIPSCHMAN, EXPORATORIUM, PALACE OF FINE ARTSR( NH H2R<j%ENTER YOUR FIRST AND LAST NAME PLEASEFfG @XJH jGOOD MORNING, IPJ @xMK jGOOD AFTERNOON, LPM jGOOD EVENING, P jRULES??ZV @@0NJdjnj( ---THE NEW CLEA CASINO---xj!j: MR. A. TOM MICK, GENERAL MANAGER OF THE NEW CLEA CASINO,"j;HAS, AT TIME T-0, DISCOVERED 100,000 RADIOACTIVE PLAYING#j>CHIPS AT HIS TABLE. THEIR HALF-LIFE IS 10 MINUTES. EACH CHIP"jXv4@bljHOW MANY CHIPS LEFT vftjACTUAL NUMBER LEFT IS DV@*V@wfffwfffwfffwDP$$ ֏D"tA$D  w#@Wd >jTOO BAD, YOU LOST. TRY AGAIN. w %@ z(#@ Wa$R*jYOU WON. TRY AGAIN.4>%jAIT SEEMS THAT YOU JUST CAN'T GET THE HANG OF IT. SAVE YOUR BREAD.HRj/YOU CAN BREAK THE HOUSE IF YOU TRY A LONG SHOT.\fj6OOOOPS... SORRY PAL, THE LAST CHIP JUST DISINTEGRATED.pjTHE HOUSE IS CLOSED.zj%YOU BROKE THE HOUSE. YOU NEEDED ONLY wz1@(V$PjTHE MINIMUM NUMBER OF GUESSES. j$GUESSES. jCONGRADULATIONS.j3YOU MUST KNOW A LOT ABOUT RADIOACTIVITY AND THINGS.jTHANKS FOR PLAYING.j#j>--------------------------------------------------------------jj. CHECK NO.$ Djj& DATE:  j-------------19--$j.j8j PAY TO THE ORDER OF Bj $LjVj`j4THE NEW CLEA CASINO A. TOM MICKj j8 GENERAL MANAGERtj~#j>--------------------------------------------------------------jj DON'T SPEND IT ALL IN ONE PLACE.`*DECIDE _ &N`a Ҕ  a   j O0H(wY2j"DO YOU NEED INSTRUCTIONS (YES/NO)?<FFV@@.YdPwZndw@nWxj0 I CAN HELP YOU MAKE DECISIONS BY CHOOSING THEj5BEST POSSIBILITY FOR YOU OUT OF SEVERAL ALTERNATIVES.!j:ALL I NEED TO DO IS ORGANIZE INFORMATION YOU ALREADY HAVE.j- WHICH OF THESE BEST DESCRIBES THE TYPE OFjDECISION YOU HAVE TO MAKE? j,1 - CHOOSE AN ITEM FROM SEVERAL ALTERNATIVES j72 - CHOOSE A COURSE OF ACTION FROM SEVERAL ALTERNATIVESj( WHICH TYPE (1 OR 2) DO YOU HAVE TO MAKEf4 V4@64@jV4@j# WHAT TYPE OF ITEM IS IT THAT YOUjNEED TO DECIDE UPONg0" w0COURSE OF ACTION"VC@,j HOW MANY 0'S ARE YOU CONSIDERING6h@j# I WILL NOW NEED A LIST OF EACH 0Jj5THAT YOU ARE CONSIDERING. PLEASE INPUT THEM ONE AT ATj0TIME. THE ORDER IS OF NO PARTICULAR IMPORTANCE.^j% FIRST, HOW MANY ARE THERE ALTOGETHERhfr Vž@4P|^j vD& VD$vDD@X@|6|j NUMBER  PLEASE >FV0 @DjMAX. CHAR. LENGTH =Dv8Dv@D$"D@&v@@ @0v@@ D@@:ZDj, O.K. THIS IS THE LIST UNDER CONSIDERATION NX@|XjP@@bZljvV /,j1 NOW, HOW MANY DIFFERENT FACTORS ARE IMPORTANTjTO YOU IN CHOOSING AAEIOU X@Ph_0@@0ZjNj 0fe Ve@4eP   j* I NEED A LIST OF EACH OF THESE FACTORS* vD&e4 VD$eR>vDD@H4RX@|e\6|fj FACTOR NUMBER  >pFzV0 @DjMAX. CHAR. LENGTH =D\v8Dv`D$"D@v@` @v``` D@@ZVCj FACTORSj1 NOW LOOK AT THE FOLLOWING LIST OF FACTORS YOUj4HAVE PROVIDED AND DECIDE WHICH IS THE MOST IMPORTANTjX@|ejP``@$Z.j/ WHICH FACTOR (BY NUMBER) IS MOST IMPORTANT?8j*(INPUT '0' IF YOU WISH TO CHANGE THE LIST)BfgLVgV Vg@6g*e.`Wjj4 O.K. SUPPOSE WE HAVE A SCALE OF IMPORTANCE THATt"j RANGES FROM 0 TO 10. LET'S SAY `g`g@~!j:HAS A VALUE OF 10 SINCE IT IS AT THE TOP OF THE SCALE. ONj6THIS SCALE, WHAT VALUE WOULD EACH OF THE OTHER FACTORSjHAVE (DECIMAL NUMBERS ARE OK)? X@|eV0gj``@ > $ajVNVa4aPj% YOUR INPUT IS NO GOOD. TRY AGAIN ZvagP v4X@|ev44 a(Z2X@|e< vaa&4FZPWZj NOW CONSIDER HOW EACH 0dj3RATES WITH RESPECT TO EACH OF THE FACTORS. WE WILLnj3CONSIDER EACH FACTOR SEPARATELY AND THEN RATE EACH xk0 IN TERMS OF THAT FACTOR ONLY. $jLET'S CONSIDER @@@@ TO HAVE Aj-VALUE OF 10 ON EACH SCALE. THEN EVERY OTHER 0j.WILL BE GIVEN A NUMBER HIGHER OR LOWER THAN 10j*ACCORDING TO HOW MUCH BETTER OR WORSE THAN%j@@@@ YOU THINK IT IS./@X@|ej j CONSIDERING ``@ ONLY, AND&j ASSUMING @@@@ HAS A VALUE OF 10,j3WHAT VALUE WOULD YOU GIVE TO EACH OF THE FOLLOWING:jX@|j@@ > $jVN@" VT,j+ C'MON. NO NEGATIVE NUMBERS. TRY AGAIN.6@j WHAT WAS THAT?!? TRY AGAIN.JTZ^jh vҔ@PrZ|X@|ev4X@|v44 ZX@| v&4ZZX@|waX@|ewaa $aZZ X@Pw&Z0v4Ţ@:X@|DX@|4NvX v@b Wa+al w@vwZZv6@v7@ v4d'a6X@| wa4%aZ/@ vDa6#a7%j& WELL, YOUR BEST CHOICE SEEMS TO BE 6@6@VDP VDP 4DP*jBY A GOOD-SIZED MARGIN. 4jBUT IT'S PRETTY CLOSE! 4* jBY A FAIR MARGIN.4WR>"j HERE'S THE FINAL LIST WITH 6@6@Hj3GIVEN A VALUE OF 100 AND THE OTHERS SET ACCORDINGLYR/@RATING0\X@|fv4pka44@4@zZ`j' THE NUMBER MUST BE BETWEEN 2 AND 10.^j IS THIS CORRECT (Y OR N)f v @@^`DECMUL_  !R DECIMAL PLACEMENT PROGRAM WRITTEN BY MIKE BOBADILLA AT THE R EDP RESOURCE CENTER DEC 1976 (HP 2000F)!R REVISED 3/1/77 BY JESUS RODRIGUEZ BY REQUEST OF JUDY SOKOLNH H0H(j WHAT IS YOUR FIRST AND LAST NAME2f PjZ%jBHI THERE! THIS IS A PROGRAM THAT WILL TEST YOU ON THE PLACEMENTd"j;OF THE DECIMAL POINT. YOU WILL BE GIVEN A PROBLEM WITH THEn$j?ANSWER WITHOUT THE DECIMAL POINT. YOU ARE TO RETYPE THE ANSWERx j,WITH THE DECIMAL POINT IN THE CORRECT PLACE./@j-DO YOU WANT FURTHER INSTRUCTIONS AND EXAMPLESfV@@0N,&/@8THE COMPUTER WILL TYPE OUT A MULTIPLICATION PROBLEM WITH!j9THE CORRECT ANSWER BUT WITHOUT THE DECIMAL POINT. YOU ARE$j4TO RETYPE THE ANSWER WITH THE CORRECT DECIMAL POINT./@jHERE ARE SOME EXAMPLES:j?pCOMPUTER TYPES?`YOU TYPEj?P2.34 X .34 = 7956 ? .7956?P.159 X 3.21 = 51039 ? .51039?P2.45 X 36.9 = 90405 ? 90.405/@j5WHEN THE COMPUTER TYPES '?', YOU TYPE IN YOUR ANSWER jWITH THE CORRECT DECIMAL POINT./@ j8THE COMPUTER WILL TIME YOU. PLEASE TYPE IN THE TIME YOU!j:WOULD LIKE TO TAKE ON EACH PROBLEM (THE PROBLEMS TAKE TIME!j:TO STUDY SO GIVE YOURSELF PLENTY OF TIME. ABOUT 30 SECONDS"j/FOR THE FIRST TIME AND LESS AS YOU GET BETTER.),&/@7HOW MANY SECONDS WOULD YOU LIKE TO TAKE ON EACH PROBLEM6ft;Vtx =<@=j(PLEASE SELECT A NUMBER BETWEEN 5 AND 30.?6@jJ v6t4Tv66@^V6h hw@@r U||||vd d vDd v$j@d vD$$vT@@ TT:bv}v$$dvdDa"v}v$$PvdDN  vdv$$d&vdDN 0>:vdDv$$PNvdD}X\bv}lv$$PvvdDN zvPv$$PvdDdvdv$$}vdDa"vPv$$}vdDN j $D H$ #,5X,.3D," X ",D.2D," = ",6D," ? " j*$D*H$ #,5X,.3D," X ",2D.D," = ",6D," ? "4>jH$DHH% #,5X,D.2D," X ",D.2D," = ",6D," ? "R\jf$DfH% #,5X,D.2D," X ",2D.D," = ",6D," ? "pzj$DH$ #,5X,.3D," X ",2D.D," = ",6D," ? "j$DH% #,5X,2D.D," X ",2D.D," = ",6D," ? "j$DH$ #,5X,D.2D," X ",.3D," = ",6D," ? "j$DH$ #,5X,2D.D," X ",.3D," = ",6D," ? "v-tt V6,v-@LvV@.v" tv $j.v 8V0dBjLvVv``v jwtt@oV$@tjX~Tj TTv44@jCTl /`?P DECIMAL PLACEMENT DRILL/@jDRILL TAKEN BY ?Pjvd j4t/@!H; #,"YOU GOT ",DD," RIGHT AND ",DD," WRONG AND YOU AVERAGED"jjH X,2D.2D," SECONDS PER PROBLEM" jV4d <$j4YOU GOT ALL OF THEM RIGHT!!!!!!/@(j'YOU GOT 100% RIGHT!!!!!/@2<v44@FjP4PH "YOU GOT ",DD,"% RIGHT"ZjdV4YnV4OxV4EV4v j TOO BAD!!!! YOU GOT AN Fj HEY!!!?PYOU GOT AN A!!!jNOT BAD! YOU GOT A B!!j$OOPS! YOU GOT A C! TRY HARDER!!#j=OH-OH! YOU GOT A D! YOU CAN DO BETTER THAN THAT!!/@%WOULD YOU LIKE TO TAKE THE TEST AGAINfV@@L0Y,/@'OKAY. GOOD LUCK AND TAKE IT EASY!!`LDIET U  FK  w$DIET s1.A007 R LINES 1-5 AFM MOD 2dR DIET - A DIETARY EXAMINATION SIMULATIONnR COPYRIGHT 1974, STATE UNIVERSITY OF NEW YORKxR DEVELOPED AND PROGRAMMED BY J. FRIEDLAND, M. WEISNERR LATEST REVISION: AUGUST 23, 1974NaєxDIETARY EXAMINATION PROGRAMM@ Y@@M XԞ@@ LZ[jLԞjjjSUBJECT'S AGE IN YEARSf"֏[ Y ,V`@6j3DIET MAY BE INACCURATE FOR SUBJECTS YOUNGER THAN 12@jSEX: 1=MALE, 2=FEMALEJg4TM44@^V4@%4@hjAPPROXIMATE WEIGHT IN POUNDSrf|LĤs33Vh jHEIGHT IN INCHESfLQGVjACTIVITY FROM 1 TO 5f֏`@M6u$Ĩl$\R FIGURE BMR BASED ON SEX AND AGEVXL$H l%4$O B%4NVx&L$ZffC33%4$Lx %4N&VH D0L$ZffZff%4$La%4:NDL$Ifff%4${@g%4NL$$%6XLє@C $$ $fff@$@bVH lLє@r!$y$v֯P%4Lє@A7$A$ Lє@$KƨLє`є@@Gpjj%TYPICAL DAILY INTAKE, USE PLAN SHEET.j"TYPE 0,0 WHEN FINISHED WITH A MEALj j BREAKFAST j ========= j FOOD,QUANTITYPjLUNCHj===== PjSUPPER j======*P4jSNACKS AND OTHER FOODS>j======================HPRLє@є@`@%@@z\ Vє@pf Lє@A7pjREPORTzj PROVIDED RECOMMENDEDSTATEj ======== ================ Y@@@@ ֏@#&fffjGOOD$֏@#&@W@jFAIR$ V+W@jEXCESS$ j DEFICIENCY$[% VH #4`/&Mkz$@"є@'W/(j)j#THIS DIET WOULD RESULT IN A WEIGHT *W-+jLOSS,.-jGAIN.j OF@d POUNDS/DAY./j8jMEAL BREAKDOWN (1=YES, 0=NO)BgLW@Vj  BREAKFASTLUNCHSUPPEROTHER`j  =========================j Y@@t~ XԞ@`@ Z@@[jjANOTHER RUN (1=YES, 0=NO)gW@bW@jCALORIES  W@ j PROTEIN GM.   W`j LIPID GM.  W@2(j CARBOHYDRATE  2^<MdeF jITEM NOT FOUNDPfdZ֏ddddX s33fff`d`@@dp @`iS33TL`p@@Tt>cq33 D I@H@ [\ c@Pp^2B@@@ @Vfffffq33 bff @LID @@`h2aYPs33H @L@DC33k33C Qp`fffr2nhdx@[X@L|pP@|2v@xP@fffP pGGfffNT p2UX h@fffD C@PD l n fffzHq2PfffzH@rh XPn@`Z efffXQ&Afff`@SDL_33WDfffc332~XUt R``xb @fff`lC33@l 2p @@@B ffffffHm N Ip W@p`2AH@^ff QHD F f@H x t ffffffp2v`@p aX hl @@PbLfffZ 2pfffY@XfffY@J`Ph k@@fffr&G@@N Q`LH YH`N 2Ax puHX x Vff@@Js33s33t&AiY\gHPpMx`B >\ `fff@Jfff@Bff d hP @L@2ER `CPPmp XfffL2p @fffnff{Dff lCff X `fff`{@@h`tDIVID17 _R STEVE MUNZEL, AUTHOR. PROGRAM FOR ONE DIGIT DIVISION.OHv$w$ j8HELLO, THERE! SO YOU WANT SOME DIVISION PRACTICE, HUH?!j"WELL, YOU CAME TO THE RIGHT PLACE!jWHAT IS YOR NAME g j#TRY TO ANSWER THESE EASY PROBLEMS,  X@P X@P v4 wdwPWv%jjWHAT IS DIVIDED BY? x jv44! W0@#WV1&jjTHAT'S NOT WHAT I GOT,  . . . TRY IT AGAIN!!jjHOW MANY TIMES DOESGO INTO? x jv44! W0@#!W"V1&#j DIVIDED BYIS, .$v$$@%1&wt`@'w$$@(Wt@,)Wt@.*"jYOU'RE R*I*G*H*T, !!WAS THE ANSWER I GOT, TOO!+0,!jTHAT'S G*R*E*A*T, !!IS COMPLETELY CORRECT!!-0.k!, YOU'RE T*E*R*R*I*F*I*C!! IS RIGHT!!!/w40jTHAT TOOK YOU JUSTSECOND(S) TO GET CORRECT!!!1Z2j3k ,YOU NOW HAVE$PROBLEMS RIGHT AND$WRONG!4jI HAVE GIVEN YOU PPROBLEMS SO FAR. . . 5 j YOUR TOTAL PER CENT RIGHT IS NOW$d&P6j7j(WANT TO TRY FIVE MORE?? 1=YES 0=NO 8f49V4<:Z;jI'VE HAD ENOUGH FOR AWHILE. . .<jSEE YA' LATER, ! NOW WE ARE . . . =`DRAG { LJk#R **** HP BASIC PROGRAM LIBRARY *******************************RR DRAG: SIMULATES A DRAG RACERR 36601 REV B 10/73R#R **** CONTRIBUTED PROGRAM ************************************ *NQq1є1!OjWELCOME TO THE DRAG STRIP.(jWOULD YOU LIKE INSTRUCTIONS2f<V0NOnF j8YOU MAY RACE AGAINST ONE OF YOUR FRIENDS OR YOU MAY RACEPj6AGAINST MY DRAGSTER. YOU WILL BE ASKED TO DESIGN YOURZ!j9OWN MACHINE, SPECIFYING HORSEPOWER, REAR END RATIO (X:1),dj/TIRE WIDTH IN INCHES AND TIRE DIAMETER IN FEET.njDO YOU WANT TO RACE AGAINST MExfV0NO jI WILL HAVE CAR#1. w@K vQ@^ff wq@X vA@|" j DESIGN CAR#1: j HORSEPOWER=g@ jREAR END RATIO=fQ@ j TIRE WIDTH=gq@ jTIRE DIAMETER=fA@" j DESIGN CAR#2:, j HORSEPOWER=6g@@ jREAR END RATIO=JfQ@T j TIRE WIDTH=^gq@h jTIRE DIAMETER=rfA@|jjGO!v}vfffv@vNv}Avfffv@vNw@@w1@1@w@@R:M IS MASS X@@v % %q$A $A@@ff  R:C IS DRAG FROM WIND&v1$(@` %q$A0R:B IS tHE MAX ACCELERATION WITHOUT BURNING:#v!xp %q$A&q`$A@DR:Y IS THE SCALE FACTOR FOR RPM VS POWERNwvffl"h%XZbjljvjELAPSEDxCAR#1N CAR#2j2TIME SPEED DISTANCE SPEED DISTANCEj0(SEC) (MPH) (FT) (MPH) (FT)j YDd@ YF@d@ X@@R:R IS RPMw$x %1*$Q&d$A R:L0 IS ENGINE TORQUE%vU $d ˒$$'m$$'`R:L1 IS TORQUE FROM FRICTION v$%$ R:L2 IS REAR AXEL TORQUE vQ$" R F IS FORCE ON ROAD FROM TIRES vd@$&A R:TEST FOR BURN* Vd*$!p4 R:A=ACCELERATION> W\HjCAR#STOPS BURNING RUBBERRw@\vd"1%1@&fpv!"1%1@&z R:S=SPEED IN FT/SEC w11 Q R:x=DISTANCE IN FTw!1QZ R:TEST FOR FINISHW@R@5@R@W@+@8wH@R@'1@ wDD!Fd#H w@R@w@@#1@%H#kD1@pR@1@pR@ P WINNERjjDO YOU WANT TO TRY AGAINf$ V0YESn.b8wH@R@'1@B wDD!Fd#HL w@R@Vw@@#1@%H`#kD1@pR@1@pR@j PWINNERtj~[F&kD@1@pR@1@pR@[Db`*DRILL   R MATH DRILL, BY WILLIAM K. CHAR, FEBRUARY 22, 1974RNH 0 (v ASMD2v0+-X/< v 0123456789FjPj*WANT TO ADD, SUBTRACT, MULTIPLY OR DIVIDE Zfd X@@nV@@0 xV@@00ZPjj%WHICH LEVEL (1, 2, 3, OR 4 FOR HELP) f V4@j jSAMPLE PROBLEMS:jj&LEVEL 1 2 3j(TYPE 3+7 12+5 23+47j j5HOW MANY SECONDS DO YOU NEED FOR EACH PROBLEM (3-20) gD WD`7DP "l,X@|@` 6h&'@ZJv4tFTj^ X@Phv@ rv$&@ '|TwvD $w $vDwvD$$w$$vDR@! 0w$R j  = &uD$T0 /:W$NDVD0TvNwtt@XwFF!DbjXlvv44@wFF!$jCZw4RjjYOU GOT  CORRECT AND wtR k WRONG IN wFRk SECONDS OF SUPERMATH.j jDO YOU WANT MOREf V@@0Y<*j4j.........LATER, MAN.>bHR ===== NUMBER-TO-STRING CONVERSION (X) =====R XԞ@~@\wԠ@P(fw#Ԡ@P(p vԠ@@zw`"Ԝ`"Zw@W@@.0w@W@@.0w` w`^JH@H@ZPH@ZPZPH@H@PPH@ZPZPJPPP P`ZPHPH@ZPH@H@ZP`DRIVE  > R WALT GIBSON DRIVER EDUCATION PROGRAMRR FILES ARE IN A100 ALAN DE MARTINO 12-10-1978pDRIVE1.A100,DRIVE2.A100(&N= =0=P=`=p==P 2N$@==<NbFncP vvw&fZvƞ@dvd@nj/DO YOU WANT TO USE THIS PROGRAM IN ANY LANGUAGExjOTHER THAN ENGLISHfV@@0Nj2WE PRESENLY HAVE QUESTIONS IN ENGLISH AND SPANISH.j)IN WHAT LANGUAGE DO YOU WANT THIS PROGRAMfV@`0SPAV@`0ENGjj-THESE QUESTIONS ARE SIMILIAR TO THE QUESTIONSjON YOUR ACTUAL DRIVER'S TEST@jj6ESTA PRUEBA DE EDUCACION PARA CHOFERES TIENE PREGUNTAS!j:EN INGLES Y ESPANOL. ESTAS PREGUNTAS SON SEMEJANTES A LAS j7DEL EXAMEN REAL. SI VD QUIERE CAMBIAR LA IDIOMA EN QUE"j6ESTA CONTESTANDO, APENAS TIENE QUE IMPRIMIR 'INGLES' O,"j;'ESPANOL' CUANDO SE PIDE LA RESPUESTA Y LA IDIOMA CAMBIARA.6T@vdƞ@J^Tvdƞ@^j hvd @rT||Vd  Vb@@hTfz vb@@v@Vd  Vb@@h vb@@v@w$h@$h@$ Y@@&j 0 h@P`p: h@ 0@DNN R-OUTPUT ROUTINEXv@b XĞ@@l TdvvvvTwP w@@>w`>wp>w>T*w w@@>w  >w0 >*w@4>>VĪ@RHw`RYz \ W0#f W0:p W0&z W0+[Vz 7| 4Ī@kz  k@v@V@$T jA)P jB)P jC)PV@B$ k@.~8VB k@ Lv@V`v@jw@tR~v`w@ZR-THIS IS THE CORRECTION AND FINE ROUTINEw&@vvv@TjWHAT IS YOUR ANSWERj"QUE ES SU RESPUESTA ESTA PREGUNTA?fPVP@@1@@ VP0ENGLISH" VP0INGLES" VP0SPANISHT VP0ESPANOLT(VP0A2VP0B<VP0CFTnPPj+SU RESPUESTA NO ESTA ESCRITA CORRECTAMENTE.Zj(POR FAVOR ESCRIBA OTRA VEZ SU RESPUESTA.dnj$YOUR ANSWER IS NOT WRITTEN PROPERLY!x jPLEASE RETYPE IT.T jTHAT WAS RIGHT!W&@vww@jESA FUE LA RESPUESTA CORRECTAW&@vww@TjOTRA PREGUNTA (SI OR NO)jANOTHER QUESTION (YES OR NO) fPVP@@0NR"vƞ@, Td6666vdd@@vvv@JNTvƞ@^ Tdhhhhhvdd@rvvv@|Nw&&@T j THAT'S WRONG.jSU RESPUESTA FUE EQUIVOCADA.W&`W&`NW@@0AW@@0BW@@0CW@@0D0w'@TDw'@TDw'`&TD0w'@:TDDU'NTXlXjTHE CORRECT ANSWER WAS @@bljLA RESPUESTA CORRECTA FUE@@vj3YOU HAVE JUST BEEN FINED $15 FOR THE WRONG RESPONSEvffxj3YOU HAVE JUST BEEN FINED $20 FOR THE WRONG RESPONSEvffP j3YOU HAVE JUST BEEN FINED $25 FOR THE WRONG RESPONSEvffd j3YOU HAVE JUST BEEN FINED $50 FOR THE WRONG RESPONSEvffd U'*>!j:VD ACABA DE SER MULTADO DE $15Z POR LA RESPUESTA EQUIVOCADA !j:VD ACABA DE SER MULTADO DE $20 POR LA RESPUESTA EQUIVOCADA *!j:VD ACABA DE SER MULTADO DE $25 POR LA RESPUESTA EQUIVOCADA4>!j:VD ACABA DE SER MULTADO DE $50 POR LA RESPUESTA EQUIVOCADAHR[\hfj*THAT'S ALL THE QUESTIONS I HAVE AT PRESENTpzj+ESTAS SON TODAS LAS PREGUNTAS QUE HAY AHORAT j/ON THIS DRIVER EDUCATION QUIZ YOU HAVE ANSWEREDjwCORRECT OUT OF vPOSSIBLEVf!jYOU HAVE BEEN FINED f DOLLARS BECAUSE OF WRONG ANSWERSj5AND WILL BE NOTIFIED OF YOUR COURT APPEARNCE BY MAIL. j8I HOPE YOU HAVE LEARNED SOMETHING FROM THIS QUIZ BECAUSEj6THESE QUESTIONS ARE SIMILIAR TO THE ONES YOU WILL FINDjON YOUR ACTUAL DRIVER'S TEST.j3REMEMBER TO DRIVE SAFELY AND STUDY THE VEHICLE CODEj)MANUAL BEFORE GOING FOR YOUR EXAMINATION.  j7THIS IS THE COMPUTER WISHING YOU GOOD LUCK ON YOUR EXAM  j2EN ESTTAS PRUEBA DE EDUCACION PARA CHOFERES, VD HA $j CONTESTADOw CORRECTAS DEv POSSIBLES .Vf V 8j*LA MULTA POR LAS RESPUESTAS EQUIVOCADAS ESf Bj(DOLARES Y TIENE QUE PAGAR ANTES DE SALIR L j7LE NOTIFICARD DE SU APARENCIA ANTES LA CORTE POR CORREO Vj4SE ESPERA QUE VD HAYA APRENDIDO ALGO DE ESTA PRUEBA. `#j=PORQUE ESTAS PREGUNTAS SON SEMEJANTES A LAS DE LA PRUEBA REAL jj5RECUERDA MANEJAR BIEN Y ESTUDIE EL LIBRO QUE SE LLAMA tj0'VEHICLE CODE MANUAL' ANTES DE IR PARA SU EXAMEN ~ j7ENTONCES DICE LA COMPUTADORA QUE TENGA MUY BUENA SUERTA j EN SU EXAMEN.  `ZDROS ( _ #R **** HP TIME-SHARED BASIC PROGRAM LIBRARY **********************RR DROS: GENETIC CHARACTERISTICS(R2R 36300 (A833) REV A -- 10/71<RF%R **** CONTRIBUTED PROGRAM *****************************************PR-DROS--COPYRIGHT 1970--POLYTECHNIC INSTITUTE OF BROOKLYNZ"R THIS PROGRAM DEVELOPED BY R. COOPERMAN--JOHN GLENN HIGH SCHOOLdR REVISED BY C.LOSIK 7-9-70nL4xR C IS THE RUN COUNTER, ALL INPUTS ARE TEMPORARYL$R WE ASSIGN EACH GENE A "WEIGHT",R AND COMBINE THE WEIGHTS TO GIVE RESULTS !#j=THIS PROGRAM IS DESIGNED TO GIVE THE GENETIC RESULTANT TRAITS#j=OF OFFSPRING WHOSE PARENTAGE WAS DISCUSSED IN PROGRAM 'GAMGN'jjARE YOU READY? HERE WE GO.jj.FOR THE SPERM CELL, WHAT IS 'A'? (TYPE 1 OR 2)gW@MPMPj WHAT IS 'B'g"W@@,Md6J@Md Jj WHAT IS 'C'Tgt^Wt@|hMtr|Mt}j WHAT IS 'D'gj,FOR THE EGG CELL, WHAT IS 'A'? (TYPE 1 OR 2)fVİ@LĞPLĞPj WHAT IS 'B'fV԰@LԞdLԞd j WHAT IS 'C'f&V@D0L:NDL}Nj WHAT IS 'D'XfbMDt lM4 vM$ L44@WD|j5DEVELOPING EMBRYO HAS DIED DUE TO LETHAL GENE ACTION.W$L jOFFSPRING HAS VESTIGIAL WINGSjOFFSPRING HAS NORMAL WINGSW4c jAND IS WHITE EYED jAND IS RED EYED.jV4@  "j< LET'S TRY THIS SEVERAL TIMES AND SEE THE RESULTS WE GETj#OVER SEVERAL TRIALS. KEEP A RECORD. j0SHALL WE TRY AGAIN? IF YES TYPE 1, IF NO TYPE 0.*f4V@>VRH Rj1 I HOPE THAT I HAVE BEEN OF SOME HELP TO YOU<,\jAND THAT4 RUNS PROVIDE ENOUGH INFORMATION.f`<S ? FdBBS1 10 COM Y1,F1,A,M,C,U,T,U1,Q,E1F20 COM A$[80],B$[80],C$[80],D$[80],E$[80],F$[80],G$[80],H$[80],I$[80]130 COM J$[80],K$[80],L$[80],S$[80],T$[80],V$[80]?40 COM A1$[80],C1$[80],D1$[35],E1$[12],F1$[80],H0$[80],S1$[80].45 COM G1$[10],K1$[10],L1$[12],M1$[6],O1$[10]46 COM P1$[4] 47 DIM A[14]K48 REM******************************HI!**********************************!:V @@.,6 @ |9",v ::6V @ j Scan 50 Y1=BRK(0)55 F1=T=R9=Z1=060 E1=990 SYSTEM S1$,"TIM"100 IF SYS(3)=1 THEN 2070110 REM *** BBS1 ***120 FILES *,*,*,*,*,*,*145 SYSTEM X,"PAU-5"#150 ASSIGN "BBS04F.A002",4,R4, NR 160 IF SYS(3)=1 THEN 2070170 IF R4=0 THEN 180174 PRINT "STAND BY..."#175 ASSIGN "BBS04F.A002",4,R4, NR 176 IF SYS(3)=1 THEN 2070177 IF R4#0 THEN 175180 GOSUB 3720:V @@.,6 @ |9",v ::6V @ j Scan190 GOSUB 4200!195 PRINT "CRISIS TIMESHARE BBS"200 PRINT H0$210 C1$=UPS$(B$)220 IF POS(C1$,"SAT") THEN 300230 IF POS(C1$,"SUN") THEN 300 240 ENTER #P0250 IF P=18 AND TIM(1)>7 AND TIM(1)<18 THEN 2800260 IF P=19 AND TIM(1)>7 AND TIM(1)<18 THEN 280 270 GOTO 3007280 PRINT "PORT ";P;" NOT ALLOWED 8:00 AM TO 6:00 PM."290 GOTO 2110 300 C1=X=0 310 C1$="":V @@.,6 @ |9",v ::6V @ j Scan 320 I$="" 330 PRINT 340 IF ERROR THEN 2070350 REM * LOG ON *360 ASSIGN *,3 370 IF S1$[1,4]#"A000" THEN 410380 C1$="SYSOP" 390 K1$="1"410 PRINT "Please log on" 420 I$=""430 PRINT ":";440 Y1=BRK(0) 444 IF S1$[1,4]#"A000" THEN 450445 LINPUT S$446 IF S$='26'1'17 THEN 730447 PRINT ":";450 ENTER 120,C,C1$460 IF C=-256 THEN 2070,470 B$="**********************************"6 @ |9",v ::6V @ j Scan,480 A$="XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"5490 PRINT A$[1,LEN(C1$)+1];CHR$(13);B$[1,LEN(C1$)+1]500 IF C1$[1,1]="?" THEN 2140510 IF LEN(C1$)>20 THEN 3700520 IF LEN(C1$)<6 THEN 3680530 IF POS(C1$,",") THEN 550540 GOTO 3670550 D=POS(C1$,",")560 K1$=C1$[D+1,LEN(C1$)]570 C1$=C1$[1,D-1]580 CONVERT C1$ TO C1,620590 IF C1=1 THEN 2070600 CONVERT C1 TO I$*******************************"6 @ |9",v ::6V @ j Scan 610 GOTO 720620 C1$=UPS$(C1$)630 V$=UPS$(K1$)*640 IF LEN(C1$)>20 OR LEN(C1$)<5 THEN 350"650 IF C1$[1,5]="SYSOP" THEN 2070660 IF SYS(3)=1 THEN 2070670 IF ERROR THEN 20706680 PRINT "Hello ";C1$;", is the spelling correct ?";690 LINPUT J$700 J$=UPS$(J$)710 IF J$[1,1]="N" THEN 10720 IF SYS(3)=1 THEN 2070730 REM * CK FILE STATUS *'740 ASSIGN "BBS05F.A002",5,R5,'25, NR ***********"6 @ |9",v ::6V @ j Scan750 READ #5,1;M1$760 ASSIGN *,5770 IF V$="NEW" THEN 1100 850 Z1=1880 IF ERROR THEN 2070890 SYSTEM X,"ECH-ON"900 IF SYS(3)=1 THEN 2070910 READ #4,1920 IF END #4 THEN 1060930 IF SYS(3)=1 THEN 2070*940 REM * FN/LN/CTY-ST/CODE/USER/EX-NOV * 950 READ #4;A$,B$,T$,F1$,G1$,C$960 IF B$[1,1]="!" THEN 920970 X1=REC(4)980 X2=ITM(4)990 IF I$=F1$ THEN 10205,R5,'25, NR ***********"6 @ |9",v ::6V @ j Scan1000 IF C1$=A$ THEN 10201010 GOTO 9201020 IF T$=K1$ THEN 16901030 GOTO 10401040 PRINT "Invalid code"'71050 GOTO 4101060 REM * ADD NEW USER *1070 IF SYS(3)=1 THEN 2070(1080 PRINT "Cant find a record of ";C1$1090 GOTO 21001100 IF ERROR THEN 2070#1101 IF C1$#"BBS KILLER" THEN 11101103 GOTO 2070!1110 PRINT "Enter city,state :"; 1120 R9=1HEN 10205,R5,'25, NR ***********"6 @ |9",v ::6V @ j Scan1130 LINPUT F$1140 F$=UPS$(F$)*1150 IF LEN(F$)>20 OR LEN(F$)<5 THEN 11101160 IF ERROR THEN 207011170 PRINT "Enter a personal code or type '?' ";1180 SYSTEM X,"ECH-OFF"1190 LINPUT F1$1200 PRINT CHR$(13)1210 IF F1$="" THEN 23501220 IF SYS(3)=1 THEN 20701230 IF F1$[1,1]="?" THEN 23501240 IF LEN(F1$)#4 THEN 13101250 FOR I=1 TO LEN(F1$)#1260 IF F$[I,I]=CHR$(31) THEN 1290*****"6 @ |9",v ::6V @ j Scan$1270 IF F1$[I,I]CHR$(91) THEN 1330 1290 NEXT I1300 GOTO 135021310 PRINT "Must be exactly 4 characters long."'71320 GOTO 1160"1330 PRINT "Upper case A-Z only."1340 GOTO 1160;1350 PRINT "Type the code again to make sure it is O.K. ";1360 LINPUT B$1370 IF SYS(3)=1 THEN 20701380 PRINT CHR$(13)1390 IF B$=F1$ THEN 1430I,I]=CHR$(31) THEN 1290*****"6 @ |9",v ::6V @ j Scan51400 PRINT "Sorry it does not match ... try again"'71410 PRINT CHR$(13)1420 GOTO 1160)1430 PRINT "O.K. don't forget the code."=1440 PRINT "Are you an expert with this system (Y/N or ?) ";1450 SYSTEM X,"ECH-ON"1460 LINPUT E$1470 E$=UPS$(E$)1480 IF E$[1,1]="?" THEN 22901490 IF E$="" THEN 22901500 IF E$[1,1]="N" THEN 15501510 IF E$[1,1]="Y" THEN 1520I,I]=CHR$(31) THEN 1290*****"6 @ |9",v ::6V @ j Scan 1520 E$="X" 1530 F1=11540 GOTO 1570 1550 E$="N" 1560 F1=01570 PRINT "Wait..."$1572 ASSIGN "BBS04F.A002",4,R4, RR 1573 IF SYS(3)=1 THEN 20701574 IF R4#0 THEN 15721580 IF ERROR THEN 20701590 IF SYS(3)=1 THEN 20701600 READ #4,11610 IF TYP(4)=3 THEN 16901620 READ #4;A$1630 IF A$=C1$ THEN 24201640 READ #4;A$,A$,A$,A$,A$ 1650 A$=""1660 GOTO 161031) THEN 1290*****"6 @ |9",v ::6V @ j Scan1670 REM * 5 ITEMS ALLOWED *1680 IF END #1 THEN 1900(1690 ASSIGN "BBS01F.A002",1,R1,M1$, NR 1700 IF SYS(3)=1 THEN 20701710 IF R1=6 THEN 20501720 IF R1#0 THEN 16901730 READ #1,1;A,M,C,U1740 IF R9=1 THEN 1780 1750 PRINT #1,1;A,M+1,C,U, END 1760 IF T$=K1$ THEN 19001770 IF C1$=A$ THEN 1900"1780 PRINT #1,1;A,M+1,C,U+1, END 1790 CONVERT U+1 TO C$ GOTO 161031) THEN 1290*****"6 @ |9",v ::6V @ j Scan 1800 L$=""+1810 CONVERT TIM(3)*1000+TIM(2) TO L$[1,5]C1820 I$="0000 New user *00000+ "1830 I$[33,35]=L$[1,3]1840 E$=E$[1,3]1850 E$[2,3]="ML"(1860 PRINT #4;C1$,F$,F1$,C$,E$,I$, END 1870 C$="0000" 1880 G1$=E$1890 CONVERT U+1 TO F1$1900 CONVERT C1$ TO C1,1920 1910 C1$=A$ 1920 T=11930 IF G1$[1,1]#"X" THEN 1950 1940 F1=161031) THEN 1290*****"6 @ |9",v ::6V @ j Scan1950 GOSUB 24801960 IF G1$[2,2]="M" THEN 20001970 IF G1$[3]="L" THEN 20201980 CHAIN C1,"BBS02P.A002",901990 IF C1#0 THEN 20502000 CHAIN C1,"BBS06P.A002",902010 IF C1#0 THEN 2050 2020 U1=1 2030 CHAIN C1,"BBS07P.A002",1102040 IF C1#0 THEN 205092050 PRINT "Sorry the BBS is down... call back later."'72060 GOTO 20902070 REM ** LOG OFF **+2080 PRINT "Error";SYS(0);"in line";SYS(1)6 @ |9",v ::6V @ j Scan2090 PRINT "Code # 001""2100 IF S1$[1,4]="A000" THEN 21302110 SYSTEM X,"BYE"2120 GOTO 2110 2130 STOP $2140 ASSIGN "BBS02F.A002",3,R3, NR 2150 IF R3#0 THEN 21402160 C$="++++++"2170 READ #3,12180 IF END #3 THEN 102190 IF SYS(3)=1 THEN 20702200 READ #3;B$2210 IF B$=C$ THEN 22302220 GOTO 21802230 READ #3;D$2240 IF SYS(3)=1 THEN 20702250 IF END #3 THEN 10 line";SYS(1)6 @ |9",v ::6V @ j Scan2260 IF D$[1,1]="+" THEN 102270 PRINT D$2280 GOTO 2230 2290 PRINT 2300 REMB2310 PRINT " time you log in. Typing an 'N' or hitting will"D2320 PRINT " keep command prompts in their original configuration." 2330 PRINT 2340 GOTO 1440 2350 PRINT D2360 PRINT "Type a four letter code that will be your password and"F2370 PRINT " protection code. The code must be upper case characters";SYS(1)6 @ |9",v ::6V @ j ScanB2380 PRINT " A-Z only, and must be exactly four characters long."62390 PRINT " *** REMEMBER YOUR CODE !! ***" 2400 PRINT 2410 GOTO 11602420 READ #4;A$2430 IF A$[1,1]#"!" THEN 24602440 READ #4;A$,A$,A$,A$2450 GOTO 1650$2460 PRINT C1$;" already exists."'72465 ASSIGN *,42470 GOTO 4102480 REM *** PORT LOCK SUB ***2490 ENTER #P$2500 ASSIGN "BBSF32.A002",6,R6, NR s";SYS(1)6 @ |9",v ::6V @ j Scan2510 PRINT #6,P+1; END 2520 PRINT #6,P+32; END 2530 PRINT #6,P+64; END 2540 ASSIGN *,62550 CONVERT P TO T$2560 L1$="BBSFXX.A002"2570 IF P<10 THEN 26002580 L1$[5,6]=T$2590 GOTO 26202600 L1$="BBSF0X.A002"2610 L1$[6,6]=T$2620 ASSIGN L1$,5,R5, WR 2630 IF R5#0 THEN 25502640 FOR I=1 TO 252650 PRINT #5,I; END 2660 NEXT I2670 PRINT #5,1;C1$, END ,R6, NR s";SYS(1)6 @ |9",v ::6V @ j Scan%2675 IF C1$="DAVE PACKARD" THEN 2685"2676 IF C1$="TOM PIPER" THEN 26852680 O1$="ONQ*"2684 GOTO 26902685 O1$="HIDE*"2690 PRINT #5,2;O1$, END 2700 GOTO 2720 2710 T$=B$2720 REM ** UPDATE LOG FILE **2730 READ #4,12740 IF END #4 THEN 29802750 X1=REC(4)2760 X2=ITM(4)2770 READ #4;B$,C$2780 IF C$[1,1]="!" THEN 28302790 READ #4;C$,C$,C$,C$;C1$, END ,R6, NR s";SYS(1)6 @ |9",v ::6V @ j Scan 2800 D$=C$2810 IF C1$=B$ THEN 28502820 GOTO 27402830 ADVANCE #4;4,A42840 GOTO 27402850 READ #4,X12860 ADVANCE #4;X2+5,A4 2870 B$=H0$2880 READ #1,1;A,M,C,U2890 CONVERT C TO A$2900 C$=A$[1,5]2910 B$[LEN(B$)+1]="*"2920 C$[LEN(C$)+1]=B$ 2930 B$=""+2940 CONVERT TIM(3)*1000+TIM(2) TO B$[1,5]2950 B$[LEN(B$)+1]="+"2960 C$[LEN(C$)+1]=B$;C1$, END ,R6, NR s";SYS(1)6 @ |9",v ::6V @ j Scan2970 UPDATE #4;C$2971 ASSIGN "RAT.A000",7,Z92972 READ #7,12973 ADVANCE #7;5000,R92974 PRINT #7;C1$,C$, END 2975 ASSIGN *,72980 REM ** GREETINGS **#2990 ASSIGN "ZCATF.B200",2,R2, NR 3000 IF SYS(3)=1 THEN 20703010 IF R2#0 THEN 29903020 FOR I=1 TO 9993030 IF TYP(2)=3 THEN 30803040 READ #2;L$ 3050 R2=I 3060 NEXT I3070 ASSIGN *,23080 B=TIM(1), END ,R6, NR s";SYS(1)6 @ |9",v ::6V @ j Scan3090 CONVERT R2 TO L$3100 IF B<12 THEN 31303110 IF B<18 THEN 31503120 GOTO 31703130 PRINT "Good morning ";3140 GOTO 31803150 PRINT "Good afternoon ";3160 GOTO 31803170 PRINT "Good evening ";3180 D=POS(C1$," ") 3190 C$=D$'3200 CONVERT C$[1,POS(C$," ")-1] TO P1 3210 P2=C3220 P2=P2-P13230 CONVERT P2 TO A$3240 IF F1#0 THEN 35003250 IF D<4 THEN 3380,R6, NR s";SYS(1)6 @ |9",v ::6V @ j Scan3260 PRINT C1$[1,D]73270 PRINT "You are user # ";F1$;", and caller # ";M+1*3280 PRINT "Last on ";C$[5,POS(C$,"*")-1]03290 PRINT L$[1,4];"Letters currently on file."A3300 PRINT "Last message at that time was #";D$[1,POS(D$," ")-1] 3310 IF POS(C$,"*")<1 THEN 34903320 CONVERT A$ TO A13330 IF A1#1 THEN 3360:3340 PRINT A$;" - New message entered since last log on." D<4 THEN 3380,R6, NR s";SYS(1)6 @ |9",v ::6V @ j Scan3350 GOTO 349033360 PRINT A$;" Messages added since last log on."3370 GOTO 34903380 PRINT C1$73390 PRINT "You are user # ";F1$;", and caller # ";M+1*3400 PRINT "Last on ";C$[5,POS(C$,"*")-1]03410 PRINT L$[1,4];"Letters currently on file."A3420 PRINT "Last message at that time was #";D$[1,POS(D$," ")-1] 3430 IF POS(C$,"*")<1 THEN 34903440 CONVERT A$ TO A1 D<4 THEN 3380,R6, NR s";SYS(1)6 @ |9",v ::6V @ j Scan3450 IF A1#1 THEN 348063460 PRINT A$;" - Message entered since last log on."3470 GOTO 349033480 PRINT A$;" Messages added since last log on." 3490 RETURN 3500 REM ** EXPERT PREAMBLE3510 IF D<4 THEN 35403520 PRINT C1$[1,D]3530 GOTO 35503540 PRINT C1$3550 CONVERT C TO G$+3560 PRINT "User - ";F1$;", caller - ";M+1)3570 PRINT L$[1,4];" - Letters on file."3380,R6, NR s";SYS(1)6 @ |9",v ::6V @ j Scan&3580 PRINT G$[1,4];" - Last entered."/3590 PRINT D$[1,POS(D$," ")-1];" - Last read."3600 CONVERT A$ TO A13610 IF A1#1 THEN 3640,3620 PRINT A$[1,4];" - New messages added."3630 GOTO 3650,3640 PRINT A$[1,4];" - New messages added." 3650 IF POS(C$,"*")<1 THEN 34903660 GOTO 34903670 REM ** ERROR MESSAGES **13680 PRINT "Illegal format, type '?' for help"'7 file."3380,R6, NR s";SYS(1)6 @ |9",v ::6V @ j Scan3690 GOTO 4103700 PRINT "Too many chr's"'73710 GOTO 410(3720 REM **** CALENDAR STARTS HERE ****3730 IF ERROR THEN 2070=3740 DATA 0,31,60,91,121,152,182,213,244,274,305,335,366,999=3750 DATA 0,31,59,90,120,151,181,212,243,273,304,334,365,9993760 S=TIM(0)3770 H=TIM(1)3780 D=TIM(2)3790 Y=TIM(3)$3800 G$="0123456789000000000000000"3810 H0$=" - - : AM"3380,R6, NR s";SYS(1)6 @ |9",v ::6V @ j Scan 3820 Q=H!3830 IF (H*100+S)<1200 THEN 38703840 H0$[16,17]="PM"3850 IF H<13 THEN 3870 3860 Q=H-123870 GOSUB 41403880 H0$[10,11]=H$ 3890 Q=S3900 GOSUB 41403910 H0$[13,14]=H$3920 IF Y/4=INT(Y/4) THEN 41203930 RESTORE 37503940 MAT READ A3950 FOR I=1 TO 143960 IF D>A[I] THEN 41103970 IF I<14 THEN 40103980 D=D-A[13] 3990 Y=Y+1: AM"3380,R6, NR s";SYS(1)6 @ |9",v ::6V @ j Scan4000 GOTO 3820 4010 Q=I-14020 GOSUB 41404030 H0$[1,2]=H$4040 Q=D-A[I-1]4050 GOSUB 41404060 H0$[4,5]=H$ 4070 Q=Y4080 GOSUB 41404090 H0$[7,8]=H$ 4100 RETURN 4110 NEXT I4120 RESTORE 37404130 GOTO 39404140 REM NUMBER-TO-STRING4150 N=INT(Q/10)4160 H$[1,1]=G$[N+1,N+1]4170 N=Q-N*104180 H$[2,2]=G$[N+1,N+1] 4190 RETURN 4200 REM *** PORT CHECK ***s";SYS(1)6 @ |9",v ::6V @ j Scan4205 DIM Z[12]4210 GOSUB 42504220 REM C$ = DATE -- B$ = DAY4230 PRINT B$;". - "; 4240 RETURN 4250 MAT Z=CON4260 MAT Z=(31)*Z!4270 LET Z[4]=Z[6]=Z[9]=Z[11]=304280 LET Z[2]=2934290 LET B$="JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC"4300 LET A$="0123456789"4310 LET Z1=TIM(3)!4320 IF Z1/4=INT(Z1/4) THEN 43404330 LET Z[2]=284340 LET Z8=TIM(2)REM *** PORT CHECK ***s";SYS(1)6 @ |9",v ::6V @ j Scan4350 FOR Z2=1 TO 124360 IF Z8 <= Z[Z2] THEN 43904370 LET Z8=Z8-Z[Z2] 4380 NEXT Z24390 LET Z3=INT(Z8/10)4400 LET C$=" "4410 IF Z3=0 THEN 44304420 LET C$=A$[Z3+1,Z3+1]4430 LET Z3=Z8-Z3*10+14440 LET C$[2]=A$[Z3,Z3]4450 LET C$[3]=" "4460 LET C$[4]=B$[3*Z2-2,3*Z2]4470 LET C$[7]=" "4480 LET Z3=INT(Z1/10)4490 LET C$[8]=A$[Z3+1,Z3+1]4500 LET Z3=Z1-Z3*10+1s";SYS(1)6 @ |9",v ::6V @ j Scan4510 LET C$[9]=A$[Z3,Z3]$4520 LET B$="SUNMONTUEWEDTHUFRISAT"$4530 LET Z3=TIM(2)+Z1+INT((Z1-1)/4)4540 LET Z3=Z3-INT(Z3/7)*74550 LET B$=B$[3*Z3+1,3*Z3+3] 4560 RETURN 4570 END 30 LET Z3=Z8-Z3*10+14440 LET C$[2]=A$[Z3,Z3]4450 LET C$[3]=" "4460 LET C$[4]=B$[3*Z2-2,3*Z2]4470 LET C$[7]=" "4480 LET Z3=INT(Z1/10)4490 LET C$[8]=A$[Z3+1,Z3+1]4500 LET Z3=Z1-Z3*10+1s";SYS(1)6 @ |9",v ::6V @ j Scan9591 PRINT LIN(3)9601 GOTO 70009998 CHAIN R,"MMAIL.A000",100 9999 ENDnts of";Z0$;" in a 2 up "J9551 PRINT "lable format. in the absence of lables it will also include"I9561 PRINT "the phone # and cust. code. It will selectivly print out "F9571 PRINT "from/to a start/stop zip code and will also select by a "B9581 PRINT "particular cust. code. Follow the prompts carefully."y ZIP code ";LEN(L1$)e on the form."& v.00&6w"y}|& v"7730 PRINT #1,J7740 GOTO 7710D7750 PRINT "Add clearing complete!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"7760 ASSIGN *,1,R7770 ASSIGN *,2,R7780 ASSIGN *,3,R7790 PURGE R,"SCR01F"7800 H1=BRK(1)7810 GOTO 7850B7820 PRINT "Fatal error---Reload old master and add from tape!!!"A7830 PRINT C1;" moved to ";Q;" in";Z0$;"or";Z0$;"is to short!"'7 7840 STOP7850 GOTO 530READ #1,Jted file checks...Move to master.(";Z0$;")"& v.00&6w"y}|& v"87860 PRINT LIN(3)"No Sort possible...Add file empty!"'77870 GOTO 530*7880 REM ** CONTACT SEARCH BEGINS HERE **7890 PRINT LIN(2)67900 PRINT "Search section: System file or Add file>" 7905 H=17910 PRINT "0=menu"7920 PRINT "?=instructions")7930 PRINT LIN(3)"Search system file ?";7940 LINPUT P$7950 P$=UPS$(P$)7960 IF P$="0" THEN 5307970 IF P$#"?" THEN 8010 #1,Jted file checks...Move to master.(";Z0$;")"& v.00&6w"y}|& v"7990 GOTO 88218000 GOTO 79308010 IF P$[1,1]="Y" THEN 80308020 GOTO 84808030 ASSIGN Z0$,1,R8040 IF R=3 THEN 80608050 GOTO 8080*8060 PRINT LIN(2)"System file not found."8070 GOTO 530B8080 PRINT "Do you want to locate by company or person ( C/P ) ";8090 ENTER 255,X,P$8100 P$=UPS$(P$)8110 IF X=-256 THEN 80908120 IF P$="0" THEN 5308130 IF P$="/E" THEN 7930ted file checks...Move to master.(";Z0$;")"& v.00&6w"y}|& v" 8140 PRINT8150 IF X=-256 THEN 80908160 READ #1,18170 IF P$[1,1]="C" THEN 81908180 GOTO 8210#8190 PRINT LIN(1)"Enter company ";8200 GOTO 8220#8210 PRINT "Enter person's name ";8220 LINPUT L$8230 L$=UPS$(L$)8240 IF L$="/E" THEN 80808250 PRINT LIN(4)8260 IF END #1 THEN 8440"8270 READ #1;N$,I$,R$,T$,K$,G$,H$$8280 IF N$[1,3]='25'25'25 THEN 8260HEN 7930ted file checks...Move to master.(";Z0$;")"& v.00&6w"y}|& v"8290 IF P$="C" THEN 83308300 LET F=LEN(L$)"8310 IF N$[1,F]=L$[1,F] THEN 83608320 GOTO 83508330 LET F=LEN(L$)"8340 IF I$[1,F]=L$[1,F] THEN 83608350 GOTO 82608360 PRINT LIN(2);N$8370 PRINT I$8380 PRINT R$8390 PRINT T$8400 PRINT K$ 8410 PRINT18420 PRINT "(";G$[1,3];") ";G$[4,6];"-";G$[7,10]8425 PRINT H$8430 GOTO 8260/8440 PRINT LIN(2)"No more names or not found."..Move to master.(";Z0$;")"& v.00&6w"y}|& v"8450 GOTO 78808460 IF L9=3 THEN 85808470 GOTO 53038480 PRINT LIN(2)"You will search the 'add' file."8490 ASSIGN Z1$,1,R8500 IF R#3 THEN 8530 8510 PRINT Z1$;"1 not found!!!"8520 GOTO 530E8530 PRINT LIN(2)"Do you want to search by company or person.(C/P)";8540 LINPUT P$8550 P$=UPS$(P$)8560 IF P$="0" THEN 5308570 IF P$[1,1]="C" THEN 85908580 GOTO 8610ames or not found."..Move to master.(";Z0$;")"& v.00&6w"y}|& v"'8590 PRINT LIN(2)"Enter company name";8600 GOTO 8620(8610 PRINT LIN(2)"Enter persons name ";8620 LINPUT L$8630 L$=UPS$(L$)8640 IF L$="0" THEN 5308650 IF L$="/E" THEN 85308660 IF END #1 THEN 8440 8670 J=1 8680 J=J+1$8690 READ #1,J;N$,I$,R$,T$,K$,G$,H$$8700 IF N$[1,3]='25'25'25 THEN 86808710 F=LEN(L$)8720 IF P$="C" THEN 8750"8730 IF N$[1,F]=L$[1,F] THEN 8770t found."..Move to master.(";Z0$;")"& v.00&6w"y}|& v"8740 GOTO 8680"8750 IF I$[1,F]=L$[1,F] THEN 87708760 GOTO 86808770 PRINT LIN(2);N$8780 PRINT I$8790 PRINT R$8800 PRINT K$78810 PRINT LIN(1)"(";G$[1,3];") ";G$[4,6];"-";G$[7,10]8815 PRINT H$8820 GOTO 8680M8821 PRINT "The search function will find an entry in the master or the add"K8822 PRINT "files either by the contact name or by the company name. It " THEN 8770t found."..Move to master.(";Z0$;")"& v.00&6w"y}|& v"Q8823 PRINT "will also search by a partial input. eg: SAM will find all examples"08824 PRINT "of SAM regardless of what follows."8825 PRINT LIN(3)8826 GOTO 7880#8830 REM *** COUNT STARTS HERE ***8840 PRINT "Count section.." 8845 H=18850 PRINT "0=menu"8860 PRINT "/E=backstep"8870 PRINT "?=instructions"8880 PRINT LIN(2)"8890 PRINT "File to be counted ";" THEN 8770t found."..Move to master.(";Z0$;")"& v.00&6w"y}|& v"8900 INPUT B$8910 B$=UPS$(B$)8920 IF B$="0" THEN 5308930 IF B$#"?" THEN 89708950 GOTO 93318960 GOTO 88908970 ASSIGN B$,1,R8980 IF R=3 THEN 8890 8990 A=09000 IF B$=Z1$ THEN 92009010 IF B$=Z1$ THEN 92009020 IMAGE"Entries = ",4DX9030 IMAGE"Deletes = ",4dx9040 IMAGE" -------"9050 IMAGE"Valid = ",4dx9060 IF END #1 THEN 9130" THEN 8770t found."..Move to master.(";Z0$;")"& v.00&6w"y}|& v"9070 READ #1,19080 FOR I=1 TO 32767"9090 READ #1;N$,I$,R$,T$,K$,G$,H$$9100 IF N$[1,3]#'25'25'25 THEN 9120 9110 A=A+1 9120 NEXT I9130 PRINT USING 9020;I-19140 PRINT USING 9030;A9150 PRINT USING 90409160 PRINT USING 9050;(I-1)-A9170 PRINT LIN(3)9180 ASSIGN *,1,R9190 GOTO 88309200 IF END #1 THEN 93209210 READ #1,1;I 9220 I=I+1 9230 A=0 THEN 8770t found."..Move to master.(";Z0$;")"& v.00&6w"y}|& v"9240 IF END #1 THEN 9310 9250 J=1 9260 J=J+19270 READ #1,J;N$$9280 IF N$[1,3]#'25'25'25 THEN 9260 9290 A=A+19300 GOTO 92609310 GOTO 9130 9320 I=19330 GOTO 9130Q9331 PRINT "This function will count the entrys in the master or the add files."I9332 PRINT "The master file is named";Z0$;" & the add file is named";Z1$L9333 PRINT "The count will show all entrys on file and how many have been "ster.(";Z0$;")"& v.00&6w"y}|& v"39334 PRINT "marked for deletion on the next sort."9335 PRINT LIN(3)9336 GOTO 8830%9340 REM ** MISC AND SUNDRY MSSGS **9350 PRINT LIN(2),9360 PRINT "********** ERROR ***********"'7 9370 RETURN9380 SYSTEM X,"BYE" 9390 ENDe master or the add files."I9332 PRINT "The master file is named";Z0$;" & the add file is named";Z1$L9333 PRINT "The count will show all entrys on file and how many have been "ster.(";Z0$;")"& v.00&6w"y}|& v" 9390 END "The master file is named";Z0$;" & the add file is named";Z1$L9333 PRINT "The count will show all entrys on file and how many have been "39334 PRINT "marked for deletion on the next sort."9335 PRINT LIN(3)9336 GOTO 8830%9340 REM ** MISC AND SUNDRY MSSGS **9350 PRINT LIN(2),9360 PRINT "********** ERROR ***********"'7 9370 RETURN 9380 SYSTEM X,"BYE"count the entrys in the master or the add files."!!##!!!%(V]0"#%,jFile  is not available for wr 7210 PRINT 57220 PRINT "TOTAL G/P% OF INVENTORY AS VALUED="P1"%"7230 PRINT LIN(3)7240 GOTO 250/7250 PRINT "SER # IS IN USE. PLEASE RECHECK."7260 GOTO 520 7270 STOP 7280 D$="WDMYTPN" 7290 D9=K=07300 IF LEN(D$)=0 THEN 85207310 T$="MDYWTPN"7320 A1$="0123456789"7330 H$=D$[1,7] 7340 R1=R 7350 D$=""7360 FOR I=1 TO LEN(H$)7370 IF K<45 THEN 741060;M$,D$,I$,C1,S1,G1,P1,T$,S$ ------" ADDED, BAp=7380 PRINT "FORMAT EXCEEDS CAPACITY. FORMAT TERMINATED AND"*7390 PRINT "RETURNED TO CALLING PROGRAM."7400 GOTO 85207410 FOR J=1 TO 7"7420 IF H$[I,I]=T$[J,J] THEN 7470 7430 NEXT JC7440 PRINT "INVALID FORMAT CODE = ";H$[I,I];". FORMAT TERMINATED".7450 PRINT "AND RETURNED TO CALLING PROGRAM."7460 GOTO 852027470 GOTO J OF 7490,7620,7800,7860,7960,8110,81807480 GOTO 7440$,C1,S1,G1,P1,T$,S$ ------" ADDED, BAp7490 IF D9#0 THEN 75107500 GOSUB 8220 7510 K=K+17520 RESTORE 75907530 FOR L=1 TO M 7540 READ M$ 7550 NEXT L7560 D$[K,K+LEN(M$)-1]=M$7570 K=K+LEN(M$)-17580 GOTO 8490/7590 DATA "JANUARY","FEBRUARY","MARCH","APRIL"'7600 DATA "MAY","JUNE","JULY","AUGUST"67610 DATA "SEPTEMBER","OCTOBER","NOVEMBER","DECEMBER"7620 IF D9#0 THEN 76407630 GOSUB 8220 GOTO 7440$,C1,S1,G1,P1,T$,S$ ------" ADDED, BAp 7640 B=D7650 GOSUB 7700"7660 IF H$[I+1,I+1]#"Y" THEN 7690 7670 K=K+17680 D$[K,K]=","7690 GOTO 8490,7700 REM TWO DIGIT NUMBER TO STRING ROUTINE 7710 K=K+17720 D1=INT(B/10)7730 IF J=5 AND D1=0 THEN 77607740 IF D1=0 THEN 77707750 D$[K,K]=A1$[D1+1,D1+1] 7760 K=K+17770 D2=B-INT(B/10)*107780 D$[K,K]=A1$[D2+1,D2+1] 7790 RETURN 7800 B=TIM(3)GOTO 7440$,C1,S1,G1,P1,T$,S$ ------" ADDED, BAp 7810 K=K+17820 D$[K,K+1]="19" 7830 K=K+17840 GOSUB 77007850 GOTO 8490 7860 K=K+137870 T=(TIM(2)+365*TIM(3)+INT((TIM(3)-1)/4+.01))/77880 T=INT(7*(T-INT(T))+1.5)7890 RESTORE 79307900 FOR L=1 TO T 7910 READ M$ 7920 NEXT L27930 DATA "SUNDAY","MONDAY","TUESDAY","WEDNESDAY")7940 DATA "THURSDAY","FRIDAY","SATURDAY"7950 GOTO 7560 7960 K=K+17970 H=TIM(1)$,C1,S1,G1,P1,T$,S$ ------" ADDED, BAp7980 IF H <= 12 THEN 80207990 D$[K,K+7]=" :0 PM" 8000 H=H-128010 GOTO 80308020 D$[K,K+7]=" :0 AM" 8030 B=H 8040 K=K-18050 GOSUB 7700 8060 K=K+18070 B=TIM(0)8080 GOSUB 7700 8090 K=K+38100 GOTO 8490 8110 K=K+18120 ENTER #P8130 D$[K,K+5]="PORT #" 8140 K=K+5 8150 B=P8160 GOSUB 77008170 GOTO 84908180 IF D9#0 THEN 82008190 GOSUB 8220$,C1,S1,G1,P1,T$,S$ ------" ADDED, BAp8200 R=Y*10^4+M*100+D8210 GOTO 8510(8220 REM COMPUTE MONTH AND DAY NUMBERS 8230 L=0 8240 D9=18250 Y=TIM(3)8260 FOR S=1 TO 88270 IF Y=68+S*4 THEN 83008280 IF Y<68+S*4 THEN 8310 8290 NEXT S 8300 L=1 8310 Q[1]=318320 RESTORE 83708330 FOR S=2 TO 12 8340 READ S18350 Q[S]=S1+L 8360 NEXT S48370 DATA 59,90,120,151,181,212,243,273,304,334,365GOSUB 8220$,C1,S1,G1,P1,T$,S$ ------" ADDED, BAp8380 D=TIM(2)8390 FOR M=1 TO 128400 IF D <= Q[M] THEN 8460 8410 NEXT M 8420 Y=Y+1 8430 M=1 8440 D=D-3658450 GOTO 84808460 IF M=1 THEN 84808470 D=D-Q[M-1] 8480 RETURN 8490 K=K+18500 D$[K,K]=" " 8510 NEXT I 8520 RETURN 8530 END S=2 TO 12 8340 READ S18350 Q[S]=S1+L 8360 NEXT S48370 DATA 59,90,120,151,181,212,243,273,304,334,365GOSUB 8220$,C1,S1,G1,P1,T$,S$ ------" ADDED, BAp6 ACCUR9 205/80 FP 00009 0079336 ACT01F 267/81 MU 00030 0079426 AD 264/81 00012 0065516 AD01F 260/81 FL 00050 0065016 AD1 264/81 00013 006563? ASC1 064/81 AL 00010 007972 0063? ASCBOB 260/81 AL LP0 0066 00001 000229 6 AX 264/81 00001 0079826 BASE1 106/81 FP 00005 0079836 BASE2 106/81 FP 00006 0079886 BASE3 106/81 FP 00006 0079946 BASEHR 106/81 FP 00007 0080006 BASESC 106/81 FP 00002 0080076 BECKY 148/81 00002 008009 LP0 0066 00001 000229 6 BLK 264/81 00001 0019576 BMT001 227/81 FP 00007 0080116 BMT002 227/81 FP 00001 0080186 BMT003 227/81 FP 00001 0080196 BMT004 227/81 FP 00001 0080206 BMT005 210/80 FP 00001 0080216 BMT006 335/78 FP 00001 008022 LP0 0066 00001 000229 6 BMT007 335/78 FP 00001 0080236 BMT008 335/78 FP 00002 0080246 BMT009 335/78 FP 00001 0080266 BMT010 335/78 FP 00001 0080276 BMT011 335/78 FP 00001 0080286 BMT012 347/80 FP 00001 0080296 BMT013 335/78 FP 00001 008030 LP0 0066 00001 000229 6 BMT014 335/78 FP 00001 0080316 BMT015 335/78 FP 00001 0080326 BMT016 335/78 FP 00001 0080336 BMT017 128/81 FP 00001 0080346 BMT018 335/78 FP 00001 0080356 BMT019 335/78 FP 00001 0080366 BMT020 335/78 FP 00001 008037 LP0 0066 00001 000229 6 BMT021 335/78 FP 00001 0080386 BMT022 154/80 FP 00001 0080396 BMT023 335/78 FP 00001 0080406 BMT024 335/78 FP 00001 0080416 BMT025 359/78 FP 00002 0080426 BMT026 335/78 FP 00001 0080446 BMT027 335/78 FP 00001 008045 LP0 0066 00001 000229 6 BMT028 335/78 FP 00001 0080466 BMT029 335/78 FP 00001 0080476 BMT030 227/81 FP 00001 0080486 BMT031 335/78 FP 00001 0080496 BMT032 335/78 FP 00001 0080506 BMT033 335/78 FP 00001 0080516 BMT034 335/78 FP 00001 008052 LP0 0066 00001 000229 6 BMT035 335/78 FP 00001 0080536 BMT036 227/81 FP 00001 0080546 BMT037 227/81 FP 00001 0080556 BMT038 227/81 FP 00001 0080566 C1 264/81 L 00024 0080576 C2 141/81 00029 0080816 CARSTR 344/78 FP 00002 008110 LP0 0066 00001 000229 6 CINV 267/81 L 00029 0081126 CINV1 251/81 CL 00005 0081416 CINVCF 201/81 FL 00010 0081466 CLNDR 265/81 U 00011 0081566 CMANGR 224/80 CP 00019 0081676 COMP01 330/80 FP 00003 0081866 COMP02 225/80 FP 00002 008189 LP0 0066 00001 000229 6 COMP03 225/80 FP 00005 0081916 COMP04 225/80 FP 00004 0081966 COMP05 225/80 FP 00005 0082006 COMP06 225/80 FP 00005 0082056 COMP07 335/78 FP 00005 0082106 COMP08 225/80 FP 00003 0082156 COMP09 225/80 FP 00002 008218 LP0 0066 00001 000229 6 COSCR 343/78 F 00020 0082216 DATE 264/81 00005 0082416 DEACOF 357/80 FP 00033 0082466 DRIVE1 203/81 FP 00025 0082796 DRIVE2 203/81 FP 00025 008304? DS 264/81 AP 00100 014905 0063? DS1 264/81 AL 00050 008329 0063 00001 000229 6 ENG001 355/80 FP 00003 0083796 ENG002 363/78 FP 00004 0083826 ENG003 335/78 FP 00004 0083866 ENG004 335/78 FP 00004 0083906 ENG005 335/78 FP 00003 0083946 ENG006 335/78 FP 00003 0083976 ENG007 335/78 FP 00003 008400 008329 0063 00001 000229 6 ENG008 335/78 FP 00004 0084036 ENG009 335/78 FP 00004 0084076 ENG010 335/78 FP 00004 0084116 ENG011 335/78 FP 00003 0084156 ENG012 335/78 FP 00004 0084186 ENG013 335/78 FP 00004 0084226 ENG014 335/78 FP 00004 008426 008329 0063 00001 000229 6 ENG015 335/78 FP 00004 0084306 ENG016 335/78 FP 00004 0084346 ENG017 335/78 FP 00004 0084386 ENG018 335/78 FP 00004 0084426 ENG019 335/78 FP 00005 0084466 ENG020 335/78 FP 00004 0084516 ENG021 335/78 FP 00003 008455 008329 0063 00001 000229 6 ENG022 364/78 FP 00003 0084586 ENG023 038/79 FP 00004 0084616 ENG024 335/78 FP 00003 0084656 ENG025 335/78 FP 00004 0084686 ENG026 335/78 FP 00004 0084726 ENG027 335/78 FP 00004 0084766 ENG028 335/78 FP 00003 008480 008329 0063 00001 000229 6 ENG029 335/78 FP 00003 0084836 ENG030 335/78 FP 00004 0084866 ENG031 335/78 FP 00002 0084906 ENG032 335/78 FP 00004 0084926 ENG033 356/78 FP 00004 0084966 ENG034 335/78 FP 00004 0085006 ENG035 335/78 FP 00002 008504 008329 0063 00001 000229 6 ENG036 335/78 FP 00006 0085066 ENG037 335/78 FP 00004 0085126 ENG038 335/78 FP 00004 0085166 ENG039 335/78 FP 00004 0085206 ENG040 105/81 FP 00003 0085246 ENG041 335/78 FP 00004 0085276 ENG042 335/78 FP 00004 008531 008329 0063 00001 000229 6 ENG043 335/78 FP 00003 0085356 ENG044 335/78 FP 00004 0085386 ENG045 335/78 FP 00004 0085426 FILEX 203/81 L 00029 0085466 FWAM2 290/80 CP 00020 0085756 FWAM3 290/80 CP 00007 0085956 HANGFL 335/78 FU 00003 008602 008329 0063 00001 000229 6 HELPF 167/81 FP 00050 008605? HPI01F 139/81 FL 00300 008655 01286 IF1 267/81 FU 00128 008955? IF2 267/81 FU 00070 009083 0128? IF3 267/81 FU 00070 009153 0128? IF4 267/81 FU 00070 009223 01286 IFL 254/81 FU 00250 006742 6 INFO 266/81 FP 00065 0095436 INV 254/81 FL 00100 0096086 INV1 195/81 FL 00100 0097086 INVALN 175/81 FU 00200 0098086 INVFL2 254/81 MU 00500 0100086 IRV 335/80 L 00008 0105086 IRV1 280/80 L 00010 010516 254/81 FU 00250 006742 6 JUNGFL 105/81 FP 00017 0105266 LP 260/81 AL LP 6 MAIL 267/81 CL 00004 0052006 MAIL2 267/81 FL 00010 0105466 MALER 264/81 00021 0105566 MALFIX 267/81 CL 00030 0051506 MALOUT 252/81 CL 00023 010602 254/81 FU 00250 006742 6 MASFIL 162/81 FL 00001 0106296 MBX01F 267/81 FU 00030 010630? MNFL01 085/81 ML 00033 010660 02556 MONMAR 264/81 L 00004 0051856 MT 132/81 AL MT 6 MX 163/81 00029 015005? MXASC 166/81 AL LP0 0066 00250 006742 6 OEFIL 203/81 FL 00050 0106936 OM 203/81 00008 0107436 OMAIL 202/81 00027 0107516 OP 202/81 L 00005 0107786 OX 218/81 L 00006 0107836 PIC 251/81 FP 00014 0107896 PRESRT 364/80 00028 010803 LP0 0066 00250 006742 6 S1 264/81 00007 0019406 SA 142/81 00024 0108326 SAADD 201/81 00005 0108566 SALIST 148/81 00004 0108616 SAMAST 201/81 00001 0108656 SER 167/81 00030 0150346 SER1 152/81 00006 003886 LP0 0066 00250 006742 6 SERA 251/81 CL 00022 0108666 SERB 229/81 CL 00022 0108886 SORTER 191/81 00004 0109106 STOCK1 257/81 L 00019 0109146 STOCK2 139/81 00025 0109336 SWAP 203/81 FL 00002 0109586 TEST 203/81 FL 00010 010960 LP0 0066 00250 006742 6 TREK0 105/81 CP 00022 0109706 TREK1 105/81 CP 00017 0109926 TREK2 105/81 CP 00018 0110096 TREK3 105/81 CP 00018 0110276 TREK4 105/81 CP 00024 0110456 W1 259/81 F 00200 0150646 W2 212/81 FL 00200 011069 LP0 0066 00250 006742 6 ZASE1 267/81 FL 00700 0112696 ZMEMR1 361/78 FU 00002 0119696 ZMEMR2 357/78 FU 00001 0119716 ZMEMR3 357/78 FU 00008 0119726 ZMEMR4 357/78 FU 00012 0119806 ZMEMR5 357/78 FU 00012 0119926 ZMEMR6 357/78 FU 00012 012004 LP0 0066 00250 006742 6 ZYSE1 267/81 FL 00050 0120166A101 CAPEQ 079/81 FL 00050 0120666 CDC 152/81 FL 00500 0121166 GAME 239/81 00001 0126166 IFL 267/81 FL 00500 0126176 IFL1 167/81 FL 00280 0131176 LP 264/81 AL LP LP0 0066 00250 006742 6 S1 266/81 00005 0133976 TST 127/81 00001 0134026A102 A1 045/80 FU 00010 0134036 ADEA 254/80 00002 0134136 ADLAB2 139/81 00005 0134156 ADLAB3 139/81 U 00005 0134206 ADSORT 139/81 00002 013425 LP0 0066 00250 006742 6 ADZIP 139/81 00006 0134276 ADZIP2 156/80 U 00007 0134336 ALLFIL 140/81 FL 00010 0134406 ALLINV 140/81 00015 0134506 ALLSER 176/80 00014 0134656 ALSORT 253/80 U 00003 0134796 APEINV 049/80 U 00005 013482 LP0 0066 00250 006742 6 BOB4 238/80 U 00008 0134876 BOB5 080/80 00016 0134956 CINV1 318/80 U 00021 0135116 DEAADD 310/80 00002 0135326 DUMMY 135/81 FL 00010 0135346 END 161/80 FL 00003 0135446 FILE 135/81 FL 00010 013547 LP0 0066 00250 006742 6 FILEX 317/80 U 00029 0135576 GUESS 303/80 U 00003 0135866 HP 297/80 00025 0135896 HP1 301/80 U 00025 0136146 HP2 304/80 00025 0136396 HPI01F 301/80 FL 00020 0136646 HPI02F 301/80 FL 00010 013684 LP0 0066 00250 006742 6 IRV 238/80 U 00008 0136946 IRV1 251/80 U 00010 013702? LP 140/81 AL LP0 00666 MAILX 251/80 U 00016 0137126 NAMES 253/80 FL 00010 0137286 NUSORT 133/80 U 00003 0137386 OEFIL 344/80 FL 00010 013741 0066 00250 006742 6 PRESRT 317/80 U 00028 0137516 RECUR 251/80 00001 0137796 SORT 304/80 00002 0137806 SORTER 317/80 U 00004 0137826 SPSORT 253/80 00003 0137866 STOCK1 291/80 U 00019 0137896 SYSDAT 347/80 00005 013808 013741 0066 00250 006742 6A103 DEALR 128/81 FL 00020 0138136 DICK 128/81 00001 0138336A105 LIZ 247/81 00001 0138346 OEASC 097/81 AL LP1 6A107 BINARY 259/81 C 00009 0138356 BINFIL 259/81 FL 00150 013844? DS 259/81 AU 00020 013994 0063 0066 00250 006742 ? DS1 259/81 AL 00020 016609 00636 FLIPLN 257/81 U 00004 0140146 LP 161/81 AU LP 6 PHONE 257/81 00008 0095266 PHONE1 257/81 FL 00075 0140186 PR 161/81 AU PR 6 W1 264/81 FU 00050 014093 0066 00250 006742 6B102 10401 255/81 00001 0141436 1040AD 263/81 00014 0052046 1040AF 260/81 FL 00001 0045146 1040AP 266/81 FL 00003 0141506 1040IC 255/81 00001 0141626 1040R 263/81 FL 00003 0141636 1040S 248/81 FL 00005 005180 014093 0066 00250 006742 6 1040TB 245/81 00001 0141666 1040TC 246/81 00001 0141676 12ADD 250/81 00002 0052826 A1 255/81 00001 0141686 ABC 260/81 00001 0025406 ACODE 194/81 00001 0141696 ADD 250/81 00003 014170 014093 0066 00250 006742 6 ADDADJ 255/81 00001 0141736 ADDCON 267/81 00001 001939? ASCII 261/81 AL 00002 005284 00636 ASCIN 261/81 00001 0047666 BEGEND 210/81 00002 0141756 BSORT 204/81 00002 0141776 CHECK1 255/81 00001 001363 0066 00250 006742 6 CHECKR 267/81 00004 0052936 CHECKS 255/81 00004 0141796 CWTDI0 171/81 00001 0141836 CWTDI1 072/81 00001 0141846 CWTTA 072/81 00002 0141856 CWTTB 072/81 00003 0141876 CWTTC 072/81 00002 014190 001363 0066 00250 006742 6 CWTTCP 155/81 00001 0141926 CWTTE 072/81 00002 0141936 CWTTXW 155/81 00001 0141956 DATAIN 190/81 00002 0141966 DEPRN 138/81 00002 0141986 EIC 169/81 00002 0142006 ENAMT 181/81 00001 014202 001363 0066 00250 006742 6 ENTAMT 181/81 00002 0142036 ENTERD 174/81 00002 0142056 ENTEXT 212/81 00003 0142076 ENTYPE 176/81 00002 0142106 FICACP 012/81 00001 0142126 FORMAT 260/81 00003 0052976 FWTCMP 012/81 00001 014213 001363 0066 00250 006742 6 FWTDI0 058/81 00001 0142146 FWTDI1 058/81 00001 0142156 FWTTXW 012/81 00001 0142166 FWTWH0 012/81 00002 0142176 INAMD 174/81 FL 00002 0142196 INCK 193/81 00001 0142216 INDR81 132/81 FL 00002 014231 001363 0066 00250 006742 6 INT365 122/81 00005 0142336 INTMON 182/81 00001 0142386 INTXFL 246/81 00001 0019496 ITMDED 162/81 00003 0142396 JH1 190/81 FL 00003 0142426 LDBMR 182/81 FL 00005 0142456 MEAS 263/81 00001 005112 001363 0066 00250 006742 S ? >2HELLOS 10 Y=BRK(0)720 REM ** FILES USED IN THIS PROGRAM ARE AS FOLLOWS **730 REM ** BIL01F.A001 -- CRZYFL.A001 -- FREEFL.A001 **740 REM ** LOGFL.A001 -- NEWS1.A000 -- AUTOBL.A001 **50 REM ** LOGMON.A000 **60 FILES *,*,*,*,*,*,*170 REM *** ENTER PORT # AND CHECK ACCOUNT # **** 80 ENTER #P 90 Y=BRK(0)100 A=M=C=U=1110 IF SYS(3)=1 THEN 530120 DIM A[14]L1h-ZSEL2_<ZSEL3_KZSELA__ ZSELB_iZSG130 DIM A$[80],B$[80],C$[80],D$[80],E$[80],F$[80],G$[80],H$[80],J$[80]>140 DIM J1$[10],K1$[80],T$[80],T1$[80],U$[80],U1$[80],V1$[80]150 DIM N$[25],Q$[2]160 SYSTEM A$,"TIM" 170 Y=BRK(0)180 IF SYS(3)=1 THEN 530190 IF ERROR THEN 530#200 ASSIGN "LOGMON.A000",1,R1, NR 210 IF R1#0 THEN 200220 PRINT #1,1;A$[1,4];P230 ASSIGN *,1240 IF A$[1,4]="A000" THEN 360h-ZSEL2_<ZSEL3_KZSELA__ ZSELB_iZS250 IF SYS(3)=1 THEN 530260 IF A$[1,4]#"B200" THEN 550'270 ASSIGN "BBS10F.A100",1,R1,'25, NR 280 PRINT #1,1;A,M,C,U; END 290 Y=BRK(0)300 IF SYS(3)=1 THEN 530310 CHAIN K,"$BBS1"320 IF K=0 THEN 5600330 PRINT "BBS DOWN, CALL BACK LATER PLEASE."'7 340 GOTO 530(350 REM **** CHECK A000'S PASSWORD ****360 PRINT "Pswd :";370 SYSTEM X,"ECH-OFF"380 ENTER 10,X,B$-ZSEL2_<ZSEL3_KZSELA__ ZSELB_iZS390 IF X=-256 THEN 500 400 PRINT 410 SYSTEM X,"ECH-ON"420 IF B$="SYSMGR" THEN 450 430 GOTO 470440 PRINT LIN(5) 450 GOTO 600 460 GOTO 670*470 PRINT "INVALID... SESSION TERMINATED"&480 SYSTEM X,"MES-SECURITY VIOLATION" 490 GOTO 530 500 PRINT *510 PRINT "TIMED OUT... SESSION ABOARTED"&520 SYSTEM X,"MES-SECURITY VIOLATION"530 SYSTEM X,"BYE" 540 GOTO 530-ZSEL2_<ZSEL3_KZSELA__ ZSELB_iZS(550 REM **** CHECK FOR HOBBY SHARE ****560 IF A$[1,2]="B1" THEN 1270.570 REM **** CHECK FOR FREE ACCOUNT B000 ****580 GOSUB 2470+590 REM *** PASSWORD FOR A1XX ACCOUNTS ***600 IF A$[1,2]="B0" THEN 740610 IF A$[1,4]="A000" THEN 680620 PRINT "Password ";630 SYSTEM X,"ECH-OFF"640 ENTER 255,R6,B$ 650 PRINT 660 IF B$#"12966" THEN 530670 REM*** CHECK FOR MAIL ***-ZSEL2_<ZSEL3_KZSELA__ ZSELB_iZS680 GOSUB 2760+690 PRINT LIN(2);TAB(32);"CRISIS COMPUTER"#700 PRINT TAB(35);"ACCT #";A$[1,4]710 SYSTEM X,"ECH-ON" 720 PRINT 730 PRINT TAB(10);T1$ 740 PRINT !750 IF A$[1,2] <> "B0" THEN 16205760 REM **** CHECK FOR VALAD B000 USER PASSWORD ****770 F=0 780 PRINT 790 PRINT "WAIT ..." 800 PRINT "810 ASSIGN "FREEFL.A001",1,R, RR 820 IF R=6 THEN 810R MAIL ***-ZSEL2_<ZSEL3_KZSELA__ ZSELB_iZS!830 ASSIGN "LOGFL.A001",2,Y, RR 840 IF Y=6 THEN 830#850 ASSIGN "CRZYFL.A001",3,R2, RR 860 IF R2=6 THEN 850870 FOR K=1 TO 32767880 IF TYP(3)=3 THEN 910890 READ #3,K 900 NEXT K 910 Y=BRK(0)920 READ #2,1930 FOR I=1 TO 2000940 IF END #2 THEN 970950 READ #2;F$ 960 NEXT I970 IF F>2 THEN 1140 980 F=F+1$990 PRINT "TYPE YOUR NAME PLEASE ";R MAIL ***-ZSEL2_<ZSEL3_KZSELA__ ZSELB_iZS1000 ENTER 255,X,E$ 1010 PRINT 1020 READ #1,1 1030 D1=01040 FOR M=1 TO 200$1050 IF TYP(1)=3 AND D1=1 THEN 12101060 IF END #1 THEN 11101070 READ #1;D$,J$=1080 REM *** SEE IF PASSWORD AGREES WITH FREEFL IN A001 ****1090 IF D$=E$ THEN 1240 1100 NEXT M1110 IF F>1 THEN 11401120 PRINT "Try again..."1130 GOTO 910 1140 PRINT "NAME NOT CURRENT"'71150 IF E$="" THEN 1170ZSEL2_<ZSEL3_KZSELA__ ZSELB_iZS1160 GOTO 11901170 E$="< CARRAGE RETURN >"<1180 REM **** PRINT UNKNOWN PASSWORD IN CRZYFL IN A001 ****1190 PRINT #3;E$1200 GOTO 1230+1210 PRINT "DEMONSTRATION TIME ELAPSED."'71220 GOTO 24401230 SYSTEM X,"BYE"1240 CONVERT J$ TO J01250 IF TIM(2)>J0+1 THEN 12101260 GOTO 1550F1270 REM **** CHECK BIL01F IN A001 TO SEE IF CUSTOMER IS CURRENT **** 1280 D1=1"" THEN 1170ZSEL2_<ZSEL3_KZSELA__ ZSELB_iZS1290 DIM A1$[72],B1$[72]$1300 ASSIGN "BIL01F.A001",4,R7, RR 1310 IF R7=6 THEN 13001320 READ #4,11330 SYSTEM A$,"TIM"1340 IF END #4 THEN 15301350 READ #4;A1$,B1$#1360 IF A$[1,4]=A1$[1,4] THEN 13801370 GOTO 13401380 CONVERT B1$ TO Q,12301390 Z=TIM(2)-Q1400 IF Z>15 THEN 15001410 IF Z>7 THEN 14401420 IF Z>1 THEN 14701430 GOTO 1530E1440 PRINT " *** YOUR ACCOUNT IS PAST DUE";Z-4;"DAYS. ***"'7ZSELA__ ZSELB_iZS1450 SYSTEM X,"PAU-5"1460 GOTO 1530)1470 PRINT "BILLS MAILED";Z;"DAYS A GO."1480 SYSTEM X,"PAU-5"1490 GOTO 1530D1500 PRINT "Your account has been suspended call CRISIS TIMESHARE"1510 SYSTEM X,"BYE"1520 GOTO 10401530 B1=BRK(0)1540 GOSUB 24701550 GOSUB 2760-1560 PRINT LIN(2);TAB(30);"CRISIS TIMESHARE"%1570 PRINT TAB(33);"ACCT # ";A$[1,4]1580 PRINT TAB(10);T1$* YOUR ACCOUNT IS PAST DUE";Z-4;"DAYS. ***"'7ZSELA__ ZSELB_iZS!1590 IF A$[1,4]="B000" THEN 1600 1600 PRINT @1610 REM **** ADD NOTES ETC TO HELLO STATEMENT FROM $NEWS1 ****1620 ASSIGN "$NEWS1",4,R1630 IF R=6 THEN 16201640 READ #4;J1$1650 FOR I=1 TO 101660 READ #4;K1$1670 IF K1$="++" THEN 17001680 PRINT K1$ 1690 NEXT I1700 PRINT TAB(34);"EXE-$NEWS"1710 ASSIGN *,4"1720 PRINT TAB(30);"UPDATED ";J1$1730 GOTO 1790);T1$* YOUR ACCOUNT IS PAST DUE";Z-4;"DAYS. ***"'7ZSELA__ ZSELB_iZS 1740 PRINT 1750 PRINT 1760 PRINT 1770 PRINT "READY"'7 1780 STOP (1790 REM **** CALENDAR STARTS HERE ****=1800 DATA 0,31,60,91,121,152,182,213,244,274,305,335,366,999=1810 DATA 0,31,59,90,120,151,181,212,243,273,304,334,365,9991820 LET S=TIM(0)1830 LET H=TIM(1)1840 LET D=TIM(2)1850 LET Y=TIM(3)(1860 LET N$="0123456789000000000000000"*1870 LET D$=" - - : AM PORT # "OUNT IS PAST DUE";Z-4;"DAYS. ***"'7ZSELA__ ZSELB_iZS1880 ENTER #P 1890 LET Q=P1900 GOSUB 23801910 LET D$[26,27]=Q$ 1920 LET Q=H!1930 IF (H*100+S)<1201 THEN 19701940 LET D$[16,17]="PM"1950 IF H<13 THEN 19701960 LET Q=H-121970 GOSUB 23801980 LET D$[10,11]=Q$ 1990 LET Q=S2000 GOSUB 23802010 LET D$[13,14]=Q$2020 IF Y/4=INT(Y/4) THEN 23602030 RESTORE 18102040 MAT READ A2050 FOR I=1 TO 14 : AM PORT # "OUNT IS PAST DUE";Z-4;"DAYS. ***"'7ZSELA__ ZSELB_iZS2060 IF D>A[I] THEN 23502070 IF I<14 THEN 21102080 LET D=D-A[13]2090 LET Y=Y+12100 GOTO 18802110 LET Q=I-12120 GOSUB 23802130 LET D$[1,2]=Q$2140 LET Q=D-A[I-1]2150 GOSUB 23802160 LET D$[4,5]=Q$ 2170 LET Q=Y2180 GOSUB 23802190 LET D$[7,8]=Q$2200 PRINT TAB(27);D$52210 REM *** STUFF ACCOUNT & TIME IN REPFL1.A001 ***#2220 ASSIGN "REPFL1.A001",7,R, RR ORT # "OUNT IS PAST DUE";Z-4;"DAYS. ***"'7ZSELA__ ZSELB_iZS2230 IF R=6 THEN 22202240 IF END #7 THEN 22902250 IF TYP(7)=3 THEN 22802260 READ #7;U1$2270 GOTO 22502280 PRINT #7;A$[1,5];D$2290 IF A$[1,2]="B0" THEN 23102300 GOTO 23402310 PRINT #2;E$,D$2320 ASSIGN *,22330 ASSIGN *,12340 GOTO 1740 2350 NEXT I2360 RESTORE 18002370 GOTO 20402380 REM NUMBER-TO-STRING2390 LET N=INT(Q/10)2400 LET Q$[1,1]=N$[N+1,N+1] "OUNT IS PAST DUE";Z-4;"DAYS. ***"'7ZSELA__ ZSELB_iZS2410 LET N=Q-N*102420 LET Q$[2,2]=N$[N+1,N+1] 2430 RETURN +2440 PRINT #2;E$;" **** NO TIME LEFT ****"2450 PRINT #2; END 2460 SYSTEM X,"BYE",2470 REM **** AUTO BILLING STARTS HERE **** 2480 RETURN !2490 REM *** NOT WORKING YET ***2500 DIM L1$[80],M1$[80]2510 ASSIGN *,12520 PRINT "LOGGING ..."$2530 ASSIGN "AUTOBL.A001",1,R6, RR 2540 IF R6=6 THEN 2530,1]=N$[N+1,N+1] "OUNT IS PAST DUE";Z-4;"DAYS. ***"'7ZSELA__ ZSELB_iZS2550 READ #1,12560 SYSTEM L1$,"TIM"B2570 REM ** L1$(1,4) = ACCOUNT # -- L1$(35,38) = ACCRUED TIME **!2580 REM *** VERIFY ACCOUNT ****2590 FOR T=1 TO 10002600 IF END #1 THEN 26702610 READ #1;M1$2620 J1=REC(1)"2630 REM **** FIND ACCOUNT # ****$2640 IF M1$[1,4]=L1$[1,4] THEN 2660 2650 NEXT T+2660 REM *** STUFF DATA INTO RECORD J1 ***%2670 PRINT #1,J1;L1$[1,4],L1$[35,38] "OUNT IS PAST DUE";Z-4;"DAYS. ***"'7ZSELA__ ZSELB_iZS 2680 REM 2690 REM 2700 REM 2710 REM 2720 REM 2730 REM2740 ASSIGN *,1 2750 RETURN !2760 REM *** MAIL CHECK FILE ***2770 PRINT "WAIT..." 2780 PRINT 2790 SYSTEM U$[1,4],"TIM"2800 GOSUB 29602810 IF END #5 THEN 2920 2820 X=0 2830 X=X+12840 READ #5,X2850 IF TYP(5)=3 THEN 28302860 READ #5;T$2870 IF T$#U$ THEN 28302880 ASSIGN *,5$[1,4],L1$[35,38] "OUNT IS PAST DUE";Z-4;"DAYS. ***"'7ZSELA__ ZSELB_iZS2890 REM *** INIT T1$ ***;2900 T1$=" < You have mail... EXE-$MAILBX >"2910 GOTO 29502920 ASSIGN *,52930 REM *** INIT T1$ ***22940 T1$=" [ No mail today ]" 2950 REM#2960 ASSIGN "MBX01F.A100",5,R, RR 2970 IF R=6 THEN 2960 2980 RETURN $2990 REM*** CHECK FOR BREAK KEY ***3000 Y=BRK(0)3010 IF SYS(3)=1 THEN 530 3020 RETURN 4],L1$[35,38] "OUNT IS PAST DUE";Z-4;"DAYS. ***"'7ZSELA__ ZSELB_iZS 3030 END * INIT T1$ ***;2900 T1$=" < You have mail... EXE-$MAILBX >"2910 GOTO 29502920 ASSIGN *,52930 REM *** INIT T1$ ***22940 T1$=" [ No mail today ]" 2950 REM#2960 ASSIGN "MBX01F.A100",5,R, RR 2970 IF R=6 THEN 2960 2980 RETURN $2990 REM*** CHECK FOR BREAK KEY ***3000 Y=BRK(0)3010 IF SYS(3)=1 THEN 530 3020 RETURN 4],L1$[35,38] "OUNT IS PAST DUE";Z-4;"DAYS. ***"'7ZSELA__ ZSELB_iZSDU  _JDDDDSJSDJDD S;SKDKDKD DSKKSKSKSD12345 0000000000DDDDDJSJDDDDSJSDJDD S;SKDKDKD DSKKSKSKSD12345 0000000000DDDDUMY    DDJSJDDDDJSJSDJDDl S;SKDKDKD  DSKKSKSKSD12345j 0000000000DDDLLKJ$zxcLKJ$XCz zxclkjCzxlKJ$; ZCkjhCzxLKJ$ zxckljhzxcZcxkjhzckLJHLKJgDCALKJgADCj#Must be exactly 4 characters long. j,Type the code again to make sure it is O.K. F  ן`@hV 0 j&Sorry it does not match ... try againh jO.K. don't forget the code. j.Are you an expert with this system (Y/N or ?) 4*ECH-ONED000n >D.STARTADD PURPOSEtAThe ADD command is used to enter text into the WORK file from ab"terminal or from a specified file.FORMAT( ADD[D] [line number][BY increment]8 [Q] [FROM filename [(file range)][,UNNUMBERED]] ADD#i.PAUSE DESCRIPTIONrAThe ADD command adds text to the WORK file from the terminal oraAfrom any file you specify. The command adds text between exis-eAting lines in the WORK file if a specific line number is decla-OIONS?Ep@x Ared, or to the end of the WORK file if line number is not speci- fied.eAIf the line number parameter is absent from the ADD command and(Athe WORK file is empty, text begins at the line specified by themASET FROM=line number command. Left and right bounds are deter-2mined by the SET LBOUND and SET RBOUND commands.AADD begins adding lines at the specified line number and incre-bAments by the value of SET INCREMENT (default is increment of one)mr is decla-OIONS?Ep@x Aunless the optional BY increment parameter is specified. For Aexample, if you want line numbers to be temporarily incrementedm.by 10, then specify BY 10 in your ADD command..PAUSEPROMPT AND POINTERAWhen EDITOR is ready to accept a new line of text, it promptswith a colon (:).T >ADD 66 66 :New text 67 :Additional texts 68 ://BREAK  >.PAUSEAWhen AUTOMARGIN is ON, the colon may be followed by text from the decla-OIONS?Ep@x Aprevious line if the length of that line exceeded RBOUND. In :such a case you begin typing after that text is displayed. >ADD 100t: 100 :First line of text runs over into second line; 101 :second line. You begin typing ... ^--RBOUND, 102 ://BREAKAWhen AUTOMARGIN is OFF, text exceeding RBOUND is discarded andi must be reentered on a new line.AText is entered one line at a time, in response to the colone from the decla-OIONS?Ep@x Aprompt. Following the addition of text, the pointer is position- +ed at column LBOUND of the last line added.t.PAUSE BREAK KEY APressing the BREAK key at any time after an ADD command has beeni!entered terminates the operation.bAAll text typed before the BREAK key is pressed is entered into Athe WORK file before the command is terminated. If no text waseAentered before the BREAK key was pressed, the line number remainssunused.e.PAUSE LIMITATIONSla-OIONS?Ep@x AThe ADD command adds entire lines of text to the WORK file in Afull compliance with the limits established by the LBOUND andRBOUND parameters..PAUSEADD#AADD# permits you to add lines, one at a time, in any order thatbAappeals to you. EDITOR issues a number sign prompt rather thantAthe usual colon. You must enter an absolute number followed by aaAblank or a colon before entering the text of the line. Blanksn@which follow the initial blanks are preserved as leading blanks. >ADD# #53 Here is line 53.t #42:Text of line 42.  #//BREAKn >APressing the BREAK key or typing //BREAK terminates the # prompt-Uing..PAUSE ADD FROM filename [(file range)]AThe FROM filename parameter causes numbered lines of text to bem1added to the WORK file from the file you specify. AWhen the entire file is to be added, simply supply the file name. AIf only a select group of lines within the file is to be added,llanks are preserved as leading blanks.=specify them as the file range (first and last line numbers). 5ADD line number FROM filename (file range),UNNUMBEREDiAWhen a line number is specified with FROM filename, the parameter "UNNUMBERED must also be specified..END.STARTREPLACEePURPOSEtAThe REPLACE command is used to replace lines of text in the WORKhfile.eFORMAT REPLACE[D] [line rangelist]8 [Q] [FROM filename [(file range)][,UNNUMBERED] REPLACE#a.PAUSE DESCRIPTIONsd as leading blanks.AThe REPLACE command replaces lines of text that were previouslyAentered into the WORK file. You specify the number of the lineaAto be replaced, then enter the new text for that line. Replace-BAment text may be entered from your terminal or directed to theAWORK file from another file.AYou may specify a single line or a range of lines to be replaced,DAdepending on your needs. Replacement occurs only within theNlimits of LBOUND and RBOUND..PAUSEPROMPT AND POINTER blanks.AWhen EDITOR is ready to receive a line of replacement text, itAprompts with a colon (:). If the DISPLAY option is ON, the cur-aArent contents of the line are displayed before the prompt. InB9response you enter the replacement text and press return.dAThe new text entirely replaces the text between LBOUND and RBOUNDnAof the line specified. Pressing RETURN without entering replace-RAment text deletes the content of the line between LBOUND and..PAUSEPROMPT AND POINTER blanks.ARBOUND, but does not delete the line number or any text outsidethe boundaries, if any.:AFollowing the replacement operation, the pointer is positioned at Acolumn LBOUND in the following line if any exist, otherwise it isp1positioned at column RBOUND of the replaced line.t.PAUSE BREAK KEYtAPressing the BREAK key in response to the colon prompt terminatesRAthe replacement of the current line and any following lines in a Aline rangelist. The line being prompted for is not replaced;.Apreceding lines which have already been replaced are not re-Astored. When the BREAK key is pressed after text has been en-tAtered, that line is the last to be replaced in the line range-flist.i.PAUSEREPLACE#AAppending a number sign (REPLACE#) to the command indicates that Ayou want to supply the line numbers of the lines to be replaced.iAThe # permits you to replace lines, one at a time, in any order Athat appeals to you. EDITOR prompts with a # for the number andled;.Atext of each line to be replaced. The original content of the;line is not displayed regardless of the setting of DISPLAY.n For example: >REPLACE#e$ #75 This is the replacement text #//BREAK >E.PAUSE%REPLACE FROM filename [(file range)] AText for replacement lines may originate from a file. When the Aentire file is to be used as a replacement, simply specify the Afile name, and the numbered lines in the file will replace linesi a # for the number andled;.$with those numbers in the WORK file.AIf only a selected group of lines within the file is to be usedh0for replacement, specify them as the file range..PAUSE;REPLACE line rangelist,FROM filename(file range),UNNUMBEREDPAWhen a line rangelist is specified with FROM filename the para-lAmeter UNNUMBERED must also be specified. A line rangelist maybAnot be specified when numbered lines are in the FROM file. ThemAfile supplying the replacement text may contain more lines thanned;.Athe line rangelist specifies, but must contain at least that manyoAlines or the message FULL RANGE NOT REPLACED is issued. If DIS-tAPLAY is OFF, the message line number WAS THE LAST LINE REPLACEDe is displayed.N.END.STARTINSERTPURPOSE AThe INSERT command is used to insert character strings within Alines or entire lines of text into the WORK file at a specificu position.sFORMAT0 INSERT[D] [character position][BY increment] [Q].PAUSE DESCRIPTION;.AThe INSERT command inserts character strings into an existingoAline of text. You specify the line and column position where thetAinsertion is to be made, then enter the text to be inserted. TheeAINSERT command adds text to the WORK file, it does not replace ormdelete existing text. .PAUSEPROMPT AND POINTERAWhen EDITOR is ready to receive an insertion, it prompts with a Acolon. If DISPLAY is ON, the current contents of the line torent] [Q].PAUSE DESCRIPTION;.Areceive the inserted text is displayed with its line number be-oAfore the prompt is issued. In response you enter the text to betAinserted and press the BREAK key followed by return. If DISPLAYe(is OFF the line number is not displayed.AAfter an insertion is made, the pointer is positioned one columnDAbeyond the end of the inserted text. If the insertion ends insAcolumn RBOUND, the pointer is positioned to column LBOUND of thehline torent] [Q].PAUSE DESCRIPTION;.Afollowing line. When this occurs in the last line the pointero-remains at column RBOUND in the current line.e.PAUSE BREAK KEYtAAn insertion operation must be terminated by the BREAK key or by(A//BREAK. The following conventions let you control the placementaAof inserted text and the remainder of the line in which theeinsertion is made.A~Pressing the BREAK key informs EDITOR that this is the last lineoA to be inserted, and that any remaining text is be appended toTN;.A this line. Existing text to the right of the insert is not af-oA fected by the insert; is placed at the end of the insert on thetA same line if there is room, or on a new line below the insert,bA assuming there is not text beyond RBOUND and AUTOMARGIN is ON.n To illustrate:e >INSERT 12r 12 short line. :this is a  12 this is a short line..PAUSEA~Pressing return causes EDITOR to place text originally to the xt is be appended toTN;.A right of the insert column on a new line. Text to the left ofo0 the insert column is unchanged. To illustrate: >INSERT 15A 15 short line. :this is a n 15 this is a 16 ://BREAK 16 short line. >.PAUSE LIMITATIONS>AAn insertion must always be made in an existing line. Use the =ADD command to add lines between existing lines if necessary.DAINSERT respects the setting of LBOUND and RBOUND at all times.;.AOnly text within these boundaries is available for specificationoAas a character position. Text beyond these boundaries is not1Aavailable for insertion; nor can a multiline insert begin in a +line which has text to the right of RBOUND. AWhen AUTOMARGIN=ON and text is inserted in a line that containssAno text to the right of RBOUND, new line numbers are automati-aAcally supplied to contain text which exceeds the limits of onehsetting of LBOUND and RBOUND at all times.;.Aline. Thus if insertion text consists of more characters thanoAare allowed on one line, EDITOR creates new lines as necessary1"to accomodate the additional text..PAUSEANew line numbers are determined by the SET INCREMENT value if theDABY increment parameter is not used. The insert operation is ter-aAminated and the error message: INSERT WILL NOT REPLACE OR INTER-aALEAVE LINES is issued if an existing line is encountered when incrementing to form new lines.D all times.;.AWhen AUTOMARGIN=OFF, text is not automatically carried to theoAnext line and a carrige return must be entered before the insert1Atext reaches RBOUND. If you attempt to extend text beyond RBOUNDdAin this case, EDITOR issues the message RBOUND VIOLATED, TEXTrABEYOND RBOUND DISCARDED, and you must re-enter the discarded text Aon a new line. New line prompts are automatically supplied untiluAyou terminate the insert operation with //BREAK or the BREAK key.n.END.STARTMODIFYPURPOSE.AThe MODIFY command is used to modify lines of text interactively.oFORMAT MODIFY[D] line rangelistn [Q] MODIFY#.PAUSE DESCRIPTIONuAThe MODIFY command enables you to change specific portions of thehAWORK file text interactively. You specify the line or range ofyAlines to be modified, then identify the character to be modified,p#and the type of changes to be made.A;MODIFY enables you to specify three types of modifications:y.END.STARTMODIFYPURPOSE.AD Deletes the character directly above it. A consecutive str-oA ing of characters can be deleted by typing D below each A character or below the first and last characters in the str-  ing to be deleted.oAI Inserts the characters typed following the I before the $ character directly above the I.AR Replaces characters starting with the character directlye7 above the R with characters typed following the R.c.PAUSE.END.STARTMODIFYPURPOSE.AOnly one modification (D, I or R) may be used per line, with twooAexceptions: the final D in a specification may be replaced by an AI followed by text to be inserted, and a greater than sign may Afollow a single D to indicate that the rest of the line is to beldeleted. For example: >MODIFY 23:25 23 This is line 23. % : r in total.e$ 23 This is line 23 in total.+ : d icompleteP$ 23 This is line 23 complete. :o 24 This is line 24.  ://BREAK.PAUSEPROMPT AND POINTERAOnce you have specified the line or range of lines to be modi-eAfied, EDITOR displays the accessible portion of the line andtAprompts with a colon. Use the space bar to position the cursorOAor print head directly below the character to be modified, then %specify the modification (D, I or R).3AAfter a modification has been made, the pointer is positioned oneTs is line 23 complete.column beyond the modification. .PAUSE BREAK KEYAThe BREAK key may be used in three ways: to signal completion offAa modification, to cancel all modifications made in a line, or tolAterminate a MODIFY command. To signal completion, press thenABREAK key after entering the modification but before pressingeAreturn; the line is accepted without further display. The nexta3line of a range is then presented for modification.athe pointer is positioned oneTs is line 23 complete.APressing the BREAK key in response to a colon prompt after one or Amore modifications have been made to a line, causes the line toaAbe redisplayed in its original form and you may specify the modi- Afications you prefer. This application of the BREAK key allowsyyou to correct a mistake.fATo terminate the MODIFY command and return to the > prompt, pressrAthe BREAK key followed immediately by return before any modifica-oAtions have been made. EDITOR then ignores any remaining linestA(if a rangelist was specified) and returns the > prompt. Lines !already modified remain modified. .PAUSE LIMITATIONS AOnly the space bar may be used to advance the cursor or printhAhead. Cursor-right and the other cursor control keys should not be used.AMODIFY adheres to the limitations imposed by LBOUND and RBOUND.uAOnly text between these boundaries is available for modification.e.PAUSEMODIFY#iAAppending a number sign (#) to the MODIFY command instructs EDIT-istAOR to prompt with a number sign. You in turn enter the number of Athe line to be modified. This permits you to specify lines fort6modification in any sequence you prefer. For example: >MODIFY#s #126d 126 This is line 126.s : inumber$ 126 This is line number 126. : #//BREAK  >AYou must enter the number of an existing line followed by return.dAPressing the BREAK key or entering //BREAK terminates the #prompts..PAUSE.END.STARTCHANGEPURPOSEeAThe CHANGE command is used to alter specific portions of the WORKffile.sFORMAT; CHANGE[D] {string } TO [//ASK] stringO) [Q] {start column[:]stop column}e [/]  [IN line rangelist].PAUSE DESCRIPTION AThe CHANGE command enables you to change all occurrences of spe-aAcific portions of the text in the WORK file. To use CHANGE, younspecify:K terminates the #=~the old text to be changed either as a string of charactersN= (string) or as a specific position in a line (start columne :stop column)=~the new text (string) to be used in place of the old text =~the line or group of lines (line rangelist) in which the  change is to be madel.PAUSE8You may make changes to certain text occurrences such as$ >CHANGE @will@ TO "shall" IN 109or to the contents of certain positions in a line such asE% >CHANGE 5:10 TO "******" IN 12.5*Changes may be specified for a single line) >CHANGE "CHAPTER" TO "SECTION" IN 23cor in groups of lines such asl4 >CHANGE "CHAPTER" TO "SECTION" IN 23:95,110:125.PAUSEAYou may also use the CHANGE command to change one specific por-iAtion of text rather than all occurrences of such text. The al-cAteration of one portion of text is called a directed change be-OAcause you direct EDITOR to that portion of text to be changed by positioning the pointer.TO "******" IN 12.5AThe FIND command (paragraph 8-50) must be used to position theE.pointer for a directed change. To illustrate: >FIND 10(13)N 10 A B C D E F H H I ^(13) >CHANGE "H" TO "G"o 10 A B C D E F G H IAA directed change changes only the first occurrence found beyondaAthe current location of the pointer. In the example above, FINDs!10 would produce the same result.n.PAUSEPROMPT AND POINTERtioning the pointer.TO "******" IN 12.5ASince you specify the type and place of the change operation inEAthe context of the command itself, CHANGE does not issue its own3prompt. AAfter each change operation, the pointer is positioned to theE:column immediately following the last character of string..PAUSE BREAK KEYtAYou may press the BREAK key to terminate the operation of thetACHANGE command at any time. Lines changed before the BREAK keynis pressed are not restored..PAUSE LIMITATIONS.TO "******" IN 12.5AThe CHANGE command effects text only within the limits set byEALBOUND and RBOUND. If the anticipated result of any change vio-3Alates RBOUND, the warning message: RBOUND VIOLATED, NO CHANGESn#MADE IN LINE line number is issued.o.PAUSECHANGED and CHANGEQrAWhen CHANGED is specified, every changed line is displayed immed- Aiately following the operation. The display includes only textgAbetween and including LBOUND and RBOUND. Changed lines are notITIONS.TO "******" IN 12.5"displayed if CHANGEQ is specified..PAUSE)CHANGE start column:stop column TO stringDAThis form of the CHANGE command is a directed change. The FINDaAcommand must be used to set the pointer to the desired line. TheuAcontents of start column:stop column are replaced by string andpAthe length of the line is adjusted as necessary. Start and stoptAcolumn specifications must not violate LBOUND and RBOUND parame-lters.B.PAUSECHANGE start column TO stringIONS.TO "******" IN 12.5AThis form of the command is a directed insertion rather than atAreplacement. String is inserted in the line of text beginning ineAthe column specified as start column. The original contents oftAstart column to RBOUND are adjusted to the right to make room forpAstring. FIND must be used to position the pointer to the desiredsline.S.PAUSECHANGE...TO //ASK stringAThe optional //ASK string parameter may only be used from a USEN start column TO stringIONS.TO "******" IN 12.5Afile; it may not be entered directly from the terminal as part oftthe CHANGE command.gAThe string which follows //ASK is issued as a prompt to the per-aAson at the terminal. The text which that person enters in re-D4sponse to the prompt becomes the replacement string..PAUSE...IN line rangelistAWhen IN line rangelist is specified, all occurrences of string orgAstart column:stop column are replaced by TO string in the line orS start column TO stringIONS.TO "******" IN 12.5Agroup of lines specified. The use of a start column only causestAthe string to be inserted at the start column in all lines encom-apassed by the line rangelist.a.END.STARTDELETEPURPOSE AThe DELETE command is used to delete ranges of text, includinge!entire lines, from the WORK file.eFORMAT! DELETE[D] character rangelistl [Q]  DELETE#t.PAUSE DESCRIPTIONaAThe DELETE command deletes text from the WORK file. You may spe-ONS.TO "******" IN 12.5Acify a portion of a line, an entire line, a range of lines, ortAALL which indicates that the entire content of the WORK file isato be deleted..PAUSEPROMPT AND POINTERAWith the exception of DELETE#, the DELETE command does not issue Aits own prompt, all parameters are specified as part of the com-Tmand. ADELETE positions the pointer one column beyond the deleted text.E.PAUSE BREAK KEYhAYou may terminate an active DELETE command at any time by pres-.TO "******" IN 12.5Asing the BREAK key. However, any text deleted prior to the re-t'ception of BREAK is irretrievably lost.t.PAUSE LIMITATIONS AWORK file contents removed with a DELETE command are not recover-nable.EAThe DELETE command ignores LBOUND and RBOUND limits when deletingtAtext. When a range of text begins in one line and ends in anoth-tAer, both the content and line numbers of intervening lines arehAdeleted. When an entire line is deleted, the line number is alsosTO "******" IN 12.5removed from the WORK file.v.PAUSEDELETED and DELETEQ AWhen DELETED is specified, EDITOR displays the text of linesNAwhich are deleted entirely from the WORK file. When only a partvAof a line is deleted, an asterisk precedes text remaining in that Aline is Nothing is displayed when ALL is specified as the range.eADELETEQ turns off the display option; instead, a message indi-n"cates the number of lines deleted..PAUSEDELETE#tthe line number is alsosTO "******" IN 12.5AWhen # is appended to the DELETE command, no rangelist is permit-nAted. Instead of a rangelist, you must enter the number of thecAlines to be deleted one by one. EDITOR prompts you with a numberaAsign prompt for the line number of the next line to be deleted;eAonly entire lines can be deleted in this manner and nothing isEAdisplayed regardless of the setting of DISPLAY. Use the BREAKe4key or //BREAK to discontinue prompts for deletions..PAUSEDELETE character rangelistIN 12.5AYou may specify any range of text for deletion. When only partnAof a line is deleted, the remaining text in the line is compres-cAsed, regardless of RBOUND and LBOUND settings, and the effecteda line is displayed. For example: >LIST 705.12 0 705.12 The point is, however, how it is gone >DELETE @how@, 705.12*The point is, however, it is goneAWhen a range of text encompasses entire lines, the content andr?the line numbers of those lines are deleted from the WORK file...END.STARTRENUMBERPURPOSE AThe RENUMBER command is used to renumber a range of lines in the  WORK file.FORMAT: RENUMBER[D] line range [TO line number] [BY increment] [Q].PAUSE DESCRIPTIONoAThe RENUMBER command enables you to change the numbers assigned Ato some or all of the lines in the WORK file. You specify a sin-iAgle range of lines to be renumbered (line range), then optionallye=you specify the renumber options that you want EDITOR to use:Wfile..A~renumber lines according to SET FROM and SET INCREMENT values byd# omitting the TO and BY parameters. A~renumber lines starting with the line number specified as TO  line number.A~renumber lines according to the interval specified as BY incre-y ment..PAUSEPROMPT AND POINTERARENUMBER does not issue its own prompt as all necessary informa-A+tion is included in the command parameters.gAFollowing the renumbering operation, the pointer is positioned atETOR to use:Wfile..Acolumn LBOUND of the line following the last renumbered line. IfdAthe last line in the WORK file is renumbered the pointer is posi-w%tioned in column RBOUND of that line. .PAUSE BREAK KEYA@The operation of the RENUMBER command may not be terminated dur-@ing its execution. Pressing the BREAK key after the command hasbeen entered has no effect.i.PAUSE LIMITATIONSlAThe RENUMBER command will not interleave or move lines of text.o the pointer is positioned atETOR to use:Wfile..AThe only function that it will perform is the renumbering ofdlines..PAUSERENUMBERD and RENUMBERQbAWhen DISPLAY=ON or RENUMBERD is specified, both the old and newPAline numbers are displayed for each line renumbered. An arrowe4(=>) separates the two line numbers. To illustrate: >RENUMBERD 53:55 BY .1e 53 => 53e 53.01 => 53.1N 53.04 => 53.2aAWhen the range ALL is specified, the new line numbers are notioned atETOR to use:Wfile..Adisplayed regardless of the setting of DISPLAY. RENUMBERQ isdAused to disable the display facility. When Q is appended to theN?command, nothing is displayed during the renumbering operation. .END.STARTMOVEPURPOSErAThe MOVE command moves text from one location to another in the WORK file.FORMAT8 MOVE[D] character range TO line number [BY increment] [Q].PAUSE DESCRIPTIONnAThe MOVE command enables you to remove text from one location in use:Wfile..Athe WORK file and place it in another. The repositioned text isdArenumbered according to the current value of SET INCREMENT unlessNAyou specify BY increment parameter. When using the MOVE command,Ayou may specify only a single range of text to be moved (char-oAacter range) and the starting line number to which the text is to]6be moved. You may move whole lines or parts of lines.AMOVE does not respect the settings of LBOUND and RBOUND whenxfrom one location in use:Wfile..Asearching for a position, extracting text from a line range, ordAforming new lines. MOVE totally disregards boundary restric-Ntions..PAUSEPROMPT AND POINTER#MOVE does not issue its own prompt.aAFollowing a move operation, the pointer is positioned to columnaLBOUND of the first line moved. .PAUSE BREAK KEYsAMOVE assembles all lines to be moved into a temporary file beforedAactually performing the operation. The BREAK key may be used too location in use:Wfile..Aterminate the move during this part of the operation and willdAresult in no change to the original position of the text. How-NAever, once the process of moving lines to their new location has Abegun, the MOVE operation cannot be interrupted or terminated.t3Pressing the BREAK key at this point has no effect. .PAUSE LIMITATIONSsAEDITOR rejects a MOVE command and prints an error message if anyp"of the following conditions occur:,~a TO line number parameter is not provided...>~an attempt is made to move a line to an existing line number.A~there is insufficient room between two existing line numbers towA fit all of the moved range of text using the optional BY incre-a@ ment value or standard algorithm for incrementing line numbers.AMOVE does not fill lines as they are moved, hence text from eachI0original line is merely given a new line number..PAUSEMOVED and MOVEQ AWhen DISPLAY=ON or MOVED is specified, both the old and new lineeis not provided...Anumbers of the moved text are displayed, separated by an arrowA(=>). To illustrate:r >MOVE 10:13 TO 70 10 => 70 10.1 => 71 11 => 72.PAUSEAAn asterisk is affixed to the arrow (*=>) when only a part of agAline is moved to a new location. The old line number is preserv- ed if any text remains in it. AThe parameter Q turns DISPLAY off. When MOVEQ is specified no-D-thing is displayed during the move operation.n.PAUSEeeis not provided...#MOVE character range TO line numbersAYou may specify the beginning and ending positions of text to be1Amoved. These parameters must be separated by a colon, such as A10:12 or 123:456, and constitute the range of text to be moved.aAIf only one line is to be moved, that line number is used as bothsAthe beginning and ending line numbers in the specification. For )example to move line 10 to line 20 enter:D >MOVE 10 to 20dg the move operation.n.PAUSEeeis not provided...AYou must specify the line number of the first line to receive thenAmoved text. The line number specified may be a line at the endsAof the current text, or a line number which falls between exist-s ing lines..PAUSE BY incrementABY increment is optional. When it is specified, line numbersbAassigned to moved lines are incremented by the value specified Afor this parameter. When BY increment is omitted, line numbers2.are incremented by the value of SET INCREMENT..END.STARTCOPYPURPOSEsAThe COPY command is used to copy text from one location in the WORK file to another.iFORMAT8 COPY[D] character range TO line number [BY increment] [Q].PAUSE DESCRIPTION AThe COPY command copies a portion of text from one location insAthe WORK file to another. Upon completion of the operation,e;identical text exists in both the old and the new location.cAThe character range may include part of a line, an entire line,EINCREMENT..END.STARTCOPYAor an entire range of lines. You must specify the line number toaAreceive the copied text, and may also specify the increment bya3which succeeding line numbers are to be determined..PAUSEPROMPT AND POINTERACOPY issues no prompt since all necessary information is providedW,within the parameters used with the command.AFollowing the copy operation, the pointer is positioned at columna0LBOUND of the first line containing copied text..PAUSE BREAK KEY ,EINCREMENT..END.STARTCOPYAThe BREAK key may be used to terminate the execution of the COPYaAcommand at any time. However, lines already copied are not auto-amatically deleted..PAUSE LIMITATIONS AThe COPY command does not replace existing lines. There must becAa sufficient number of vacant line numbers to accommodate thedAspecified range of text to be copied or no copy takes place andpAEDITOR issues the message: INSUFFICIENT NUMBER OF LINES, NOTHINGxCOPIED.EEAK KEY ,EINCREMENT..END.STARTCOPYACOPY does not observes the settings of RBOUND and LBOUND. Copieda6text is left justified to column one in the new lines.ACOPY does not fill lines as they are copied, hence text from eachm-original line is merely placed on a new line.s.PAUSECOPYD and COPYDmAWhen DISPLAY=ON or COPYD is specified, both the old and the newtAline numbers involved in the copy operation are displayed with anmAarrow prefixed by an asterisk (*=>) between them. To illustrate:  >COPYD 24:26 TO 150RTCOPY 24 *=> 150 24.5 *=> 151 25 *=> 152 25.5 *=> 153 26 *=> 154AWhen DISPLAY=OFF or COPYQ is specified, nothing is displayed. IntAaddition when the range ALL is specified nothing is displayedU%regardless of the setting of DISPLAY. .END.STARTCENTERPURPOSElAThe CENTER command is used to center the contents of a line be-ptween LBOUND and RBOUND.FORMAT CENTER[D] line rangelist  [Q] CENTER#2.PAUSERTCOPY DESCRIPTION AThe CENTER command adjusts the position of the contents of a line>Aso that it is centered between LBOUND and RBOUND. Leading blanksd&are removed before a line is centered.ACENTER operates only within LBOUND and RBOUND. Only the textoAwithin these parameters is centered, even if text exists outside of the boundaries..PAUSEPROMPT AND POINTERAWhen CENTER# is specified, EDITOR prompts for the line number ofle rangelist  [Q] CENTER#2.PAUSERTCOPYAthe next line to be centered. Once all lines have been speci-nAfied, the BREAK key must be pressed to terminate the # prompting. AAfter a line is centered, the pointer is positioned at columneLBOUND of the following line.B.PAUSE BREAK KEYtAThe BREAK key may be used to terminate the centering operation atdAany point. Lines already centered remain so. The BREAK key mayi?also be used to terminate the # prompting when CENTER# is used. .PAUSECENTERD and CENTERQR.PAUSERTCOPYAWhen CENTERD is specified or DISPLAY is set to ON, each line isnAdisplayed after it is centered. If CENTERQ is specified, nothing 5is displayed during or after the centering operation.e.PAUSECENTER#BAAppending a number sign to the CENTER command, informs EDITOR Athat you wish to specify the lines for centering by line number Aone line at a time. EDITOR prompts you with a # for the lineeAnumber of the next line to be centered. To terminate the # NTERQR.PAUSERTCOPY-prompting enter //BREAK or use the BREAK key.o.END.STARTCOMPRESSPURPOSEeAThe COMPRESS command is used to replace multiple blanks withrsingle blanks.FORMAT COMPRESS[D] line rangelist [Q] COMPRESS#.PAUSE DESCRIPTIONoAThe COMPRESS command replaces multiple blanks in each line in theiAline rangelist with single blanks according to the following rules:+~Leading blanks in a line are not replaced.do terminate the # NTERQR.PAUSERTCOPYA~When a word ends with a period, a question mark or an exclama-PA tion point, following multiple blanks are replace by two blanks.i=~Multiple blanks in all other circumstances are replaced by ai single blank.ACOMPRESS operates only within the limits set by LBOUND andmARBOUND. If text exists beyond these boundaries, compression isw!performed only within the bounds.t.PAUSEPROMPT AND POINTERAWhen COMPRESS# is specified, EDITOR prompts for the line numberR.PAUSERTCOPYAof each line to be compressed. Once all lines have been speci-PAfied, the BREAK key must be pressed to terminate the # prompting.iAAfter a line is compressed, the pointer is positioned at columnnsLBOUND in the following line.e.PAUSE BREAK KEY AThe BREAK key may be used to terminate the compressing operationeAat any point. Lines compressed before the key was pressed, re-Pmain compressed..PAUSECOMPRESSD and COMPRESSQf EDITOR prompts for the line numberR.PAUSERTCOPYAWhen COMPRESSD is specified or DISPLAY=ON, each line is displayedPAafter it is compressed. If COMPRESSQ is specified, nothing isi+displayed during the compressing operation.s.PAUSE COMPRESS#uAAppending a number sign to the COMPRESS command instructs EDITOR Athat you wish to specify the lines to be compressed by line num-pAber. EDITOR prompts you with a # for the line number of the nextrAline to to be compressed. To terminate the # prompt enter //BREAK or press the BREAK key.O.END.STARTJUSTIFYcPURPOSESAThe JUSTIFY command is used to adjust the contents of a line toS1exactly fill the space between LBOUND and RBOUND.eFORMAT JUSTIFY[D] line rangelist [Q] JUSTIFY#.PAUSE DESCRIPTIONnAThe JUSTIFY command adjusts the contents of a line by replacingdAexisting blanks with two or more blanks so that a line of text iseAproportioned across the length of the line. JUSTIFY places the ompt enter //BREAK or press the BREAK key.OAfirst character of the in column LBOUND, and the last nonblank Acharacter in column RBOUND. The following rules apply to thee!operation of the JUSTIFY command:A~Leading blanks are not affected; justification begins with theEA first blank following the first non-blank character in the line.eA~A line is not justified if the following line in a line range isi empty.tA~Justification is performed within each range separately, regard-hompt enter //BREAK or press the BREAK key.O> less of the number of ranges specified in the line rangelist.A~Single lines may be specified for justification, and are justi-h3 fied if each contains at least one internal blank.a.PAUSEJUSTIFYD and JUSTIFYQtAWhen JUSTIFYD is specified or DISPLAY is ON, all lines in theaArange are displayed as they are justified. When JUSTIFYQ is spe-iAcified, nothing is displayed during the operation. D and Q temp-h'orarily override the status of DISPLAY.t.PAUSEJUSTIFY#ress the BREAK key.OAAppending a number sign to the JUSTIFY command instructs EDITORAAthat you wish to specify lines for justification by their line3Anumbers. EDITOR prompts for the next line to be justified with aF<# prompt. Press the BREAK key to terminate the # prompting..PAUSE LIMITATIONShAThe JUSTIFY command operates only within the limits set by LBOUNDiAand RBOUND. If a line contains text which falls outside of thesehAboundaries, justification occurs only within the boundaries.s.PAUSE key.OPROMPT AND POINTERAAt the completion of a justification operation the pointer is Apositioned to column LBOUND in the line following the last lineo justified.AWhen JUSTIFY# is specified, EDITOR prompts for the line number of Aeach line to be justified. Once all lines have been specified,m8the BREAK key must be used to terminate the # prompting..PAUSE BREAK KEYnAThe BREAK key may be used to terminate the justifying operationours only within the boundaries.s.PAUSE key.OAat any point. Lines justified before the key was pressed remaintAjustified. The BREAK key is also used to terminate the # prompt-oing when JUSTIFY# is used..END.STARTFILLPURPOSEiAThe FILL command is used to fill each line in a specified rangeeAwith as many whole words as posible, so that the space betweens7LBOUND and RBOUND contains the maximum number of words.hFORMAT& FILL[D] line range [BY increment] [Q].PAUSE DESCRIPTION daries.s.PAUSE key.OAThe FILL command takes the collective contents of the lines intAthe line range and forms new lines which each contain the maximumoAnumber of words that will fit between LBOUND and RBOUND. The Astarting line is the first line in the specified line range andhAthe lines are renumbered using the value of SET INCREMENT or theUAoptional BY increment value. New lines are generated as neces- :sary, and resulting empty lines are automatically deleted.SCRIPTION daries.s.PAUSE key.OAWhen HYPHENATION is used (SET HYPHENATION=ON), EDITOR displaystAwords for you to hyphenate as it performs the fill operation.oAWords are listed one at a time, and you indicate the placement of Athe hyphen by spacing to the character in the word which shouldh:follow the hyphen, entering a hyphen, and pressing return..PAUSE=The following rules are used during a FILL command operation:cA~A single blank is inserted between the last word of a line re-CPTION daries.s.PAUSE key.O5 mainder and the first word taken from the next line.OA~Two blanks are inserted after a period, a question mark, or anoA exclamation point when they are followed by two or more blanksa* or occur at the end of the original line.A~When the last character of a line is a hyphen, the hyphen ishA removed if HYPHENATION=ON, otherwise it is preserved and nonA blanks are inserted between the hyphen and the first word taken  from the next line..PAUSEPTION daries.s.PAUSE key.OA~The filling operation is suspended whenever an empty line isa< encountered. Filling resumes with the next non-empty line.A~Empty lines which already exist in the text remain in the text, A but those resulting during the fill operation are deleted auto-o matically. A~The filling operation is suspended whenever a line containing a A blank in column LBOUND or text to the left of LBOUND is encoun-nA tered. Filling is performed on the remaining contents of theaes.s.PAUSE key.O9 line, however, if the next line begins in column LBOUND.l.PAUSEPOINTER AND PROMPT"The FILL command issues no prompt.AThe pointer is positioned to column LBOUND of the last line fol-e2lowing the line produced by the filling operation..PAUSE BREAK KEYoAThe FILL command makes use of a temporary file which is automati- Acally created in your account. No line is replaced by a filledUAline until the entire range of lines has been successfully pro-tts of theaes.s.PAUSE key.OAcessed and it has been determined that there is sufficient spaceEAin the range to accommodate the filled lines. Therefore, theoAfilling operation may be terminated at any time before the firstgAline in the line range is displayed. Once FILL actually beginsAAreplacing the original lines with filled lines, its operationAcannot be terminated.c.PAUSE LIMITATIONSpAFILL operates on entire lines only. It does not respect the set- ccessfully pro-tts of theaes.s.PAUSE key.OAting of RBOUND when it extracts the contents of a line, but en-E?sures that the filled lines end as close to RBOUND as possible.hAFILL only adjusts text to the right of LBOUND to bring it withingAthe bound. If lines are too long, they are broken at blanks ifAApossible and new lines are created as necessary until the entireAArange has been filled. If an existing line number is encounteredeAduring this line generation and the increment cannot be reduced of theaes.s.PAUSE key.OAfurther, the filling operation is terminated and the range is notEfilled.h.PAUSEFILLD and FILLQsAWhen DISPLAY=ON or FILLD is specified, each line is displayed Awith its new line number as it is filled. If FILLQ is specified,,Anothing is displayed during or following the fill operation, ex-a6cept for hyphenation decisions when HYPHENATION is on..PAUSE HYPHENATIONuADuring execution of the FILL command, you are prompted by EDITORaot be reduced of theaes.s.PAUSE key.OAwith the words that need to be hyphenated. You indicate place-EAment of the hyphen by spacing to the character in the word which Ashould follow the hyphen, entering a hyphen, and then pressing return. For example: # HYPHENATE THE FOLLOWING WORD(S):r breakf astt -  dinne r -sAYou must place the hyphen on or before the space provided in theiAword by EDITOR. If there is no valid breaking point availablee of theaes.s.PAUSE key.OAfor the word simply press return and the word will remain intact.E.END.STARTLISTPURPOSE AThe LIST command is used to display all or a portion of the WORKtfile. FORMAT LIST[D] line rangelista [Q] [,TO filename]O [,NOTEXT] [,UPSHIFT]: [,LEFT=column number][,RIGHT=column number]' [,SPACE=number of lines]o* [,PAGINATE [=CONTINUE ]]* [ [=page number]].PAUSE.OAThe following commands may be embedded in your text when ENVIRON-E>MENT=TEXT. They are only executed when you produce paginated,,unnumbered listings (LBOUND must equal one). {ON}- .FLAG= {OFF} [,one character string]i {integer} ) .HEADING=string .PAGE=string , .NEED=integer .SKIP[=integer]- .NEWPAGE .SPACING=integer & .ODDPAGE .SUPPRESS.PAUSE DESCRIPTION  [=page number]].PAUSE.OAAll of the parameters available with the LIST command are option-EAal, except the line rangelist. The parameters may be specifiednAin any order but must be separated by commas. Parameters are set 5to the last specified value or condition if repeated. .PAUSEPROMPT and POINTERAThe LIST command issues no prompt of its own. Necessary commandn&qualifiers are provided as parameters.AThe pointer is positioned to column LBOUND in the first line ofEthe last range listed..PAUSE BREAK KEY=The BREAK key may be used at any time to terminate a listing.n.PAUSELISTD and LISTQaAIf DISPLAY=ON or LISTD is specified, the line numbers of eacheAline in the line rangelist will be displayed to the left of theaAtext. If DISPLAY=OFF or LISTQ is specified, the text of eachI:line in the line rangelist is listed without line numbers..PAUSE LIST line rangelist, TO filenameAThe TO filename parameter enables you to specify a file to whiche last range listed..PAUSE BREAK KEYAthe lines in the line rangelist are to be listed. When speci-Afied, a filename results in the text being listed to a file ra-eAther than to the terminal. NOTE: The HP 2640 family cartridgesAtape units cannot be specified as filenames; instead the KEEPf&command must be used for this purpose..PAUSENOTEXTAThe NOTEXT parameter causes a listing of line numbers only, with-aAout the text of the lines. If NOTEXT is specified and DISPLAY=h&OFF, the command will not be executed.KEY.PAUSEUPSHIFT AThe UPSHIFT parameter causes all lower case characters to berAshifted to upper case for the listing only. The contents of thehAWORK file is not altered, only the listing itself is converted to  upper case.a.PAUSE'LEFT=column number, RIGHT=column numberbAThe LEFT and RIGHT parameters specify print margins to be usedeAfor an incidence of the LIST command. The default values are.ALEFT=1 and RIGHT is set automatically to accomodate the text be- executed.KEYAtween LBOUND and RBOUND if not set explicitly. The values of @LBOUND and RBOUND determine the extent of the text to be listed.APrinted lines, including line numbers if present, begin in thesAcolumn position specified by LEFT. LEFT must be less than orHAequal to RIGHT, or the message MARGINS PRECLUDE TEXT is issuedg%and the LIST command is not executed. AUnless the TO filename parameter is specified, a value for RIGHTeautomatically to accomodate the text be- executed.KEYAthat exceeds WIDTH precipitates the message RIGHT MARGIN EXCEEDS AWIDTH and the LIST command is not executed. The value of RIGHT2may exceed WIDTH only if TO filename is specified..PAUSESPACE=number of linesiAThe SPACE parameter causes listed lines to be spaced according to Athe value specified as number of lines. The default value is 1mfore .NEWPAGE is encountered to be in effect for the new page..PAUSE.ODDPAGEAThe .ODDPAGE subcommand allows you to force text to the beginningi pos-Nhile an in-io optionallyYAof the next odd numbered page. New heading and/or page stringsUAmust be specified before .ODDPAGE is encountered to be in effectrAfor the new page. If the current page is an odd number page, then3intervening page is numbered but left void of text.e.PAUSE .PAGE=stringAThe .PAGE subcommand permits you to alter the value assigned to Athe page string dynamically. The value is altered for the print-bing of the next page.o.PAUSE.SKIP[=integer]ios-Nhile an in-io optionallyYAThe .SKIP subcommand permits you to skip any number of lines,UAspecified by integer. If =integer is omitted, one blank line isrprinted..PAUSE.SPACING=integerAThe .SPACING subcommand permits you to override the default spac-fAing or the value assigned by the SPACE parameter of the LIST com-iAmand. Whenever a .SPACING subcommand is encountered, the valuelAspecified replaces whatever value is in effect. The new valuePSE.SKIP[=integer]ios-Nhile an in-io optionallyYAstays in effect until it is changed by another .SPACING subcom-U5mand or the end of the line rangelist is encountered.l.PAUSE .SUPPRESSeAThe .SUPPRESS subcommand suppresses the line feed on the follow-oAing line. This subcommand permits you to underline or overprintE>a line on a device which permits suppression of the line feed..END.START //CATALOG PURPOSEc>The //CATALOG command is used to display your account catalog.FORMAT //CAT [-library name].PAUSE DESCRIPTIONAThe //CATALOG command displays an alphabetical listing of the5Aprograms and files in your account. When a library name para-PAmeter is used, the listing begins with the first program or file Awith a name that is equal to or greater than the library namev specified.3The BREAK key may be used to terminate the listing.f.END.START//GROUPAPURPOSEU@The //GROUP command is used to display the catalog of your groupaccount.FORMAT //GROUP [-library name].PAUSEION DESCRIPTIONAAThe //GROUP command displays an alphabetical listing of the pro-nAgrams and files stored in your group account. When a libraryeAname parameter is specified, the listing begins with the name ofm;the program or file equal to or greater than the parameter.fAThe BREAK key may be used to terminate the listing whenever ne-Scessary..END.START //LIBRARY/PURPOSEnAThe //LIBRARY command is used to display the catalog of the sys-tem library (A000).yFORMATION //LIBRARY [-library name].PAUSE DESCRIPTIONhAThe //LIBRARY command displays an alphabetical listing of theoAprograms and files in the System Library (A000). When a libraryiAname is specified, the listing begins with the program or filee,name equal to or greater than the parameter.:The BREAK key may be used at any time to stop the listing..END.STARTEXPLAINPURPOSEAAThe EXPLAIN command is used to obtain summary descriptions of theeEDITOR commands.FORMATION EXPLAIN [command name].PAUSE DESCRIPTIONOAWhen EXPLAIN is entered without an attendant command name, a listhAof all EDITOR commands is displayed. When a command name is spe-rAcified, EDITOR displays a brief description of that command, thenlAprompts CONTINUE?. If you require no further information regard-aAing the command, type N or NO or press BREAK. If additional in-Aformation is required, press return. EDITOR continues to displaytns of theeEDITOR commands.FORMATIONAexplanatory information with intermittent request to CONTINUE?NAuntil you type NO in response to a CONTINUE? prompt or press theO@BREAK key, or until the explanatory text available is exhausted..END.STARTFINDPURPOSEoAThe FIND command is used to locate a specific location in thee2WORK file and to set the pointer to that position.FORMAT2 FIND[D] {character position }2 [Q] {[ALL] string [IN character rangelist]}.PAUSE DESCRIPTIONRMATIONAThe FIND command performs two distinct functions. Its primaryNAfunction is to locate a specified character position in the WORKO;file and to set the pointer to that position. For example:s >FIND 15("X") 15 Here is the X. ^(13)cAAs a secondary function, FIND locates all occurrences of a givens8character string within an optional character rangelist. For example: >FIND ALL "the" in 25:50t rangelist]}.PAUSE DESCRIPTIONRMATION: 25 Operations which affect the maintenance of...; 37 continued support of the product is the aim...n 3 OCCURRENCES OF 'the'e.PAUSE BREAK KEYaAPressing the BREAK key terminates a FIND command. If the posi- 4tion has not been located, the pointer is not moved..PAUSE LIMITATIONSaAFIND operates within the bounds established by LBOUND and RBOUND. ANo character position outside of these bounds will be found by5 rangelist]}.PAUSE DESCRIPTIONRMATIONAEDITOR. For example, if LBOUND=20 and RBOUND=50, a FIND command Awill only locate a character position that occurs totally withinRcolumns 20 through 50..PAUSEFINDD and FINDQtAWhen DISPLAY is ON or FINDD is specified, FIND lists the linetAcontaining the specified position and indicates the location ofIAthe pointer with an up-arrow (^) followed by the column numberoenclosed in parentheses.AWhen DISPLAY=OFF or FINDQ is specified, neither the line nor theIpointer is displayed..PAUSEFIND character positionD@The following are examples of character position specifications:? >FIND FIRST - sets the pointer to the first accessible0 column in the first line.; >FIND * - displays the current position of thed pointer.i? >FIND 100+1 - sets the pointer to the first accessiblen8 column in the line following 100.> >FIND*+5(FIRST) - sets the pointer to the first non-blank@ character in the fifth line following the9 line currently having the pointer. A >FIND "line" ("column") - sets the pointer to the word "col-c> umn" in the line containing the; first occurrence of the word?% "line" .PAUSEAWhen character position is a string (i.e., a collection of char-nAacters enclosed by quotes or @), the FIND command searches for-bnkAward in the WORK file beginning one character beyond the present9Aposition of the pointer until it locates the string or the end of>Athe last line in the file. If the string is located, the pointer Ais moved to the column containing the first character of the Astring. The line containing the string and the position of the Apointer are then displayed. If the string is not located, the #message string NOT FOUND is issued.s.PAUSE"FIND string IN character rangelistarches for-bnkAThe search for a string may be limited to a certain range of9Alines called a character rangelist. When the IN character range->Alist specification is used, EDITOR will find the string only if 5it occurs totally within the limits of the rangelist.tAMultiple ranges may be specified, provided they are separated byiAcommas. The pointer is set to the first occurrence of string ina@the rangelist; subsequent ranges are not searched. For example:% >FIND @BC@ IN FIRST:200,503:LASTbAIn the above command, if BC is located within the first range of9Athe rangelist (FIRST:200), the FIND command terminates without>Asearching the second range. If a string cannot be found in one @of the specified ranges, the message string NOT FOUND is issued..PAUSEFIND ALL stringdAThis form of the FIND command enables you to locate all lineshAcontaining one or more occurrences of the string. EDITOR beginsaAsearching one character beyond the current location of the point-LTbAer and continues through the last line in the WORK file. Each9Aline containing an occurrence of string is listed and the total>Anumber of occurrences is reported after the last occurrence is Afound. Only the number of occurrences is reported when DISPLAY=OFF.AFollowing the search procedure, the pointer is positioned at thelAfirst occurrence of the string, unless the command is interruptedn prompt.O.PAUSE KEEP filenameeAThe filename specified refers to the file in which text is to beAstored. The file may be either a BASIC formatted or an ASCII@file and may be any file to which your account has write access.AIf you are using an HP 2640 family terminal with cartridge tapes, @you may also direct KEEP to store text on one of the cartridges.=Use the special file names #TCL and #TCR to refer to left andK"right cartridge tapes respecively.AUnless the UNNUMBERED parameter is specified, the line numbers inhAthe WORK file are converted to ASCII characters and prefixed to(the line or put in column 1-6 for COBOL..PAUSEKEEP line range, TO filenameAYou may, optionally, specify a line range to be saved rather thanuAthe entire contents of the WORK file. When a line range is spe-oAcified, a comma and the keyword TO are required before the namea of the file..PAUSEKEEP...UNNUMBEREDfAWhen the UNNUMBERED parameter is specified, line numbers are notaAprefixed to the lines being stored. Text in the file followingrd to ASCII characters and prefixed toAthe KEEP operation is then unnumbered text. Columns 1-6 are,*filled with blanks when ENVIRONMENT=COBOL..PAUSE KEEP...APPENDeAThe APPEND parameter causes the specified text to be appended tonAthe current contents of the KEEP file. The lines currently inoAthe KEEP file must be numbered (if UNNUMBERED is not also speci-UAfied), and the first line to be appended must have a number Agreater than the last line already in the file. If the text al-Iharacters and prefixed toAready in the file is unnumbered, the message EDITOR WILL NOT AP-,APEND NUMBERED TO UNNUMBERED TEXT IN filename is issued. If theeAnumber of the first line to be appended is less than the numbertAof the last line in the file, EDITOR issues the message KEEP WILLi NOT REPLACE OR INTERLEAVE LINES..PAUSEAWhen UNNUMBERED is specified in addition to APPEND, the first Aline is tested for a line number. If no number is found, the e file. If the text al-Iharacters and prefixed toAKEEP operation is immediately performed. If a valid line number,Ais detected, the warning message filename SEEMS TO CONTAIN NUM-eABERED LINES. PROCEED WITH KEEP? is issued. Respond YES or Y totAinstruct EDITOR to proceed. Respond NO or N to abort the KEEPi operation.AThe APPEND parameter is not permitted for cartridge tapes on HPi2640 family terminals..END.STARTTEXTPURPOSElAThe TEXT command is used to copy the contents of any 2000 Accessfile into the WORK file.FORMAT- TEXT filename (file range) [,UNNUMBERED]n.PAUSE DESCRIPTIONeAWith the TEXT command, you may copy the contents of either BASIC.Aformatted or ASCII files into the WORK file. TEXT may be used toIAcopy an entire file or only a portion of a file. The text mayAbe numbered or unnumbered. The current contents of the WORKiAfile, if any, are entirely replaced by the text copied into theTAfile. (Use the ADD FROM filename command to append unnumberedtthe WORK file.Atext from a file or the MERGE command to merge or append numbered lines into the WORK file.).PAUSEPROMPT AND POINTERAThe TEXT command does not issue a prompt. Additional data isl-provided in the form of attendant parameters. AFollowing a TEXT command operation, the pointer is positioned ine1column LBOUND of the first line in the WORK file.f.PAUSE BREAK KEYrAThe BREAK key may be used to terminate the TEXT command at anyiname command to append unnumberedtthe WORK file.Atime. When BREAK is detected, the number of lines entered into (the WORK file to that point is reported..PAUSE TEXT filenameEATo copy the entire contents of a file into the WORK file, simplydAspecify the command TEXT followed by the name of the file to beoAcopied. The text is assumed to be numbered, thus EDITOR decodest1the line numbers at the beginning of each string. AOnly string type data items are read from a BASIC formatted file.c-Numeric type data is ignored without warning..PAUSE(TEXT filename (file range) [,UNNUMBERED]AThe file range parameter enables you to specify that only a por- Ation of a file is to be copied into the WORK file. This formRAof the text command without the UNNUMBERED parameter, indicatesfAthat lines with the numbers specified are to be copied into the  WORK file.AWhen the UNNUMBERED parameter is also specified, the file rangenAparameter is interpreted as relative lines, indicating positionsy data is ignored without warning.Arelative to the beginning of the file. Each string is counted asea line.r.PAUSETEXT...UNNUMBEREDtAThe UNNUMBERED parameter informs EDITOR that the lines to be cop-.Aied are not numbered. This parameter must be used if the text,Atruly unnumbered and may be used, optionally, for numbered text.iAIf numbered text is copied using the UNNUMBERED parameter, thep1embedded numbers become part of the line of text.e.END.STARTMERGEiPURPOSEoonsy data is ignored without warning.AThe MERGE command is used to merge numbered text from a file withetext already in the WORK file.FORMAT) MERGE[D] [filename [(file range)]]t [Q] MERGE#.PAUSE DESCRIPTIONaAThe MERGE command enables you to merge numbered text from a file,Awith text already in the WORK file. You specify the name of thetAfile which contains numbered lines of text to be added or to en-hAtirely replace existing lines. If only a portion of the file issgnored without warning.Ato be merged, you must also provide the line numbers (file range)eAof the first and last lines to be merged. Alternately, you mayn(supply numbered lines from the terminal..PAUSEPROMPT AND POINTERAAppending a number sign to the command, instructs EDITOR that youfAwish to provide numbered lines of text to be merged into the WORK file.iAFollowing a MERGE operation, the pointer is positioned in columne3LBOUND of the first line following the merged text. .PAUSE BREAK KEYt warning.AA merge operation may be terminated at any time by pressing theeABREAK key. If lines are being merged manually (#), pressing thenABREAK key during or at the end of a line indicates that the lineTAis the last to be merged. Otherwise, press BREAK in response to 9the # prompt to terminate the prompting for line numbers.n.PAUSE LIMITATIONSAMERGE does not respect LBOUND and RBOUND restrictions when a file3Ais specified - entire lines are added or replaced by the command. Yt warning.3Merged lines begin in column one (col 7 for COBOL). .PAUSEMERGED and MERGEQ AWhen DISPLAY=ON or DISPLAYD is specified, both the old and newiAlines are displayed when a replacement is made. Interleaved linestAthose not replacing old lines, are not displayed. DISPLAYQ inhib-tits the display process..PAUSEMERGE filename (file range)NAThe filename parameter refers to the name of the file from whichlAthe text to be merged is to be drawn. If only a portion of thedYt warning.Afile is to be merged, then that portion must be identified byGAline numbers (file range). First and last line numbers, separa-eAted by a colon must be used to constitute the file range. ThenAfile range parameter is omitted if the entire file is to be mer- 1ged. For merging, lines must always be numbered..END.STARTUSEePURPOSEAAThe USE command is used to designate a file, called a USE file,h*to be used by EDITOR as a source of input.FORMAT USE[D] filenamei. [Q]b.PAUSE DESCRIPTIONoAYou employ the USE command to instruct EDITOR to read and executeaAcommands stored in the named USE file. A USE file must be atABASIC formatted file. Each string in the file is read as a com- Amand string or as textual input. Numeric data types are not per-sAmitted. The USE command terminates when it reaches the end ofs the file.sAUSE files are used to operate EDITOR in a "batch-like" mode; thatef input.FORMAT USE[D] filenamei.Ais, you anticipate input that EDITOR will require to do a cer-tAtian task and supply it from a file. A USE file may contain bothd6commands and textual input required by those commands..PAUSEAA number of commands may be entered on one line separated byaAsemicolons. You may use the "trailing ampersand" convention fordAlong lines. Use //BREAK to signal BREAK but remember that A//BREAK may not be appended to the end of a line of textual in-FORMAT USE[D] filenamei.>put; it must be the first and only response to a colon prompt.AWhen a command requires textual input, it must be the last com-tAmand on a line in the USE file. The following lines (untilAA//BREAK is encountered or the command requires no further text)AAare interpreted as text. The following line may optionally con-Atain the //ASK command. AExecution from the USE file terminates normally when the end ofeAthe file is encountered. Control is returned to the terminalnei.6unless //STOP is executed while still in the USE file..PAUSEUSING A USE FILEAThe following example demonstrates the creation and use of a USEnfile.t >ADDe7 1 PRINT "This USE file fills and justifies your" 5 2 PRINT "document, then produces numbered and"t> 3 PRINT "unnumbered listings on the line printer (LP)." 4 SET LB=1,RB=65,HYPH=ONt 5 FILLQ ALL# 6 SET PAGING=BOT,CEN,"Page "f 7 JUSTIFY ALL! 8 LIST ALL, PAGINATE,TO LPaei.) 9 LISTQ ALL, PAGINATE,LEFT=8,TO LPt, 10 PRINT "Your listings are finished." >//CREATE-USEFL,5 File USEFL created.< >KEEP USEFL,UNNUMBERED (Note that the USE file may not6 10 LINES KEPT contain numbered lines.) >.PAUSE USED AND USEQdAWhen USED is specified explicitly, commands from the USE file are Adisplayed just before they are executed; this permits you to "de-Gbug" your USE file. 7 JUSTIFY ALL! 8 LIST ALL, PAGINATE,TO LPaei.AIf an error occurs due to faulty command format or during thelAexecution of a command, EDITOR prints an error message followed.Aby the message USE FILE ABANDONED and terminates execution from1 the USE file. .END.STARTPRINTbPURPOSE)?The PRINT command is used to display a message at the terminal.,FORMAT PRINT string.PAUSE DESCRIPTIONrAYou use the PRINT command to perform one task, to print a one 7 JUSTIFY ALL! 8 LIST ALL, PAGINATE,TO LPaei.Aline message of up to 255 characters at the terminal. This com-lAmand is intended for use in a USE file. It permits you to send.Amessages to the terminal to report on the progress being made at1Acritical junctures, or to inform you that a specific stage hasm been reached.dAThe following is an example of a PRINT command added to a USEP.file and subsequently printed at the terminal. >ADDQ7 :PRINT "This message is displayed when necessary."S >KEEP USEFL,UNNUMBERED >USEQ USEFL. This message is displayed when necessary.AThe string portion of the PRINT command must be enclosed in quote.marks..END.START//ASKoPURPOSEeAThe //ASK command is used in a USE file to request input from thet terminal. FORMAT //ASK stringh.PAUSE DESCRIPTIONmAThe //ASK command may only be used when EDITOR is being drivennAfrom a USE file. It permits you to design a USE file that ins.effect tailors the prompts for specific tasks.DANormally, you must anticipate all prompts that EDITOR will giveAand supply suitable responses within the USE file. However, the.A//ASK command lets you prompt the user of the terminal for a tex-sAtual response rather than supply the text in the USE file. TheTAcontent of the string supplied with the //ASK command is printedaAat the terminal as a prompt to the user in place of the normal AEDITOR prompt for the particular command given. The user's re-pmpts for specific tasks.DAsponse is accepted as the textual response to the underlying EDI-TOR prompt. To illustrate:s.PAUSE >SET //=OFF //COMMANDS=OFFo >ADDQ> :PRINT "Add lines in response to the 'New line:' prompt."4 :PRINT "Press the BREAK key when you are done." :ADD 20 BY 2g ://ASK "New line:"c : etc..END.START//CREATEPURPOSEfAThe //CREATE command is used to create BASIC formatted files ine your account.pFORMATc tasks.D6 //CREATE-file name, file length [,record length].PAUSE DESCRIPTIONmAThe //CREATE command permits you to create BASIC formatted files Ain your account without leaving EDITOR. You specify the name,rAlength, and optionally, the record length of the file you want:created.;The //CREATE command may only be entered in response to the.9command prompt (>) or the WORK FILE? prompt. For example,d EXE-$EDITOR# WORK FILE? //CREATE-MYWORK,100u MYWORK CREATEDas.D WORK FILE? MYWORK' 0 LINES OF TEXT IN YOUR WORK FILE.  >.END.START//FILEPURPOSEiCThe //FILE command is used to create an ASCII file in your account.aFORMAT7 //FILE-file name, device designator [,record length]d.PAUSE DESCRIPTION AThe //FILE command permits you to designate or create an ASCIIeAfile in your account without leaving EDITOR. You specify theaAfile name and device designator, and optionally the record length MYWORK CREATEDas.DAof a file. Or, if a disc file is needed, you specify the fileAname, DS, file length, and optionally, the record length of thesfile. For example, @ >//FILE-PRINT,LP0 (assigns name PRINT to line printer) or8 >//FILE-KEEPER,DS,10 (creates an ASCII disc file).END.START //LENGTHENPURPOSEnAThe //LENGTHEN command is used to lengthen a file in your ac-fcount.FORMAT0 //LENGTHEN-file name {TO} number of records {BY}.PAUSE DESCRIPTIONaAThe //LENGTHEN command permits you to lengthen a BASIC formattedtAfile. The filename must correspond to a file in your account and@Athe number of records to or by which the file is to be lengthened must be an integer value..AWhen the operation is complete, the message file name LENGTHENEDnAis displayed. Your account must have enough space available toaAtemporarily hold both the original and the lengthened file. Ap-ed file. Ap- {BY}Apropriate error messages are issued if the operation cannot beg performed..END.START //SHORTENdPURPOSE AThe //SHORTEN command is used to shorten a file in your account.eFORMAT/ //SHORTEN-file name {TO} number of recordss {BY}t.PAUSE DESCRIPTIONeAThe //SHORTEN command permits you to shorten a BASIC formatted =file. The filename must correspond to a file in your account.>and the number of records to or by which the file is shortenedsesmust be an integer value.nAWhen the operation is complete, the message file name SHORTENED Ais displayed. Your account must have enough space available toaAtemporarily hold both the original and the shortened file. Ap-nApropriate error messages are issued if the operation cannot ber performed..END.START//PURGEPURPOSE/), theiAtext prompt (:), the number sign prompt (#), or the WORK FILE?uprompt.eAAny other method of terminating EDITOR interaction, such as pres-hAsing the BREAK key, will fail to produce the desire result. Dis- Aconnecting the terminal will result in a disorganized WORK file. AIf this happens you will be notified the next time you specifyeAthat file as your WORK file. EDITOR will automatically attempty which the file is*to recover the contents of your WORK file..END.STARTSET @The following parameters may be entered in any order and must be0separated by commas if entered on a single line.SET AUTOMARGIN= {ON } {OFF}: BOTTOMSPACE= lines before, lines after page indicator DISPLAY= {ON }s {OFF}  ECHO= {ON } {OFF}.PAUSE {TEXT } ENVIRONMENT={COBOL} {BASIC} FACING= {OFF }which the file is {offset}t FILLER= {OFF } {character} FROM=line numbere.PAUSE {OFF } {CENTER} HEADING= {LEFT } [,string] {RIGHT } {FACING} HYPHENATION= {ON }i {OFF} INCREMENT=increment LBOUND=column number=.PAUSE% NONPRINT= {OFF } % {one character string}  PAGE=lines per page {CENTER}es) PAGING= {TOP }, {LEFT } [,string]F {BOTTOM} {RIGHT }} {FACING}E.PAUSE PAUSE= {OFF }  {lines per pause}} RBOUND=column numberG {OFF } TABS= {POINT } {tab positions}6 TOPSPACE=lines before heading,lines after heading WIDTH=terminal width  //COMMANDS= {ON } {OFF}.PAUSE ENVIRONMENTer page {CENTER}esAThe ENVIRONMENT parameter is used to establish the set of default environment may only be set when there are no lines of text inthe WORK file.LBOUND and RBOUNDF@The LBOUND and RBOUND parameters permit you to set boundaries in:which text and operations on text is to be confined. Each;command description includes details on the effect of these 'bounds on the operation of the command..PAUSE AUTOMARGIN {CENTER}esAWhen automargin is on lines added or inserted are automatically Afolded between words if they are too long to fit between thei'designated margins (LBOUND and RBOUND). FROM and INCREMENTAThe FROM parameter specifies the starting line number to be usedpAby the TEXT command and by ADD when there are no lines already insAthe WORK file. INCREMENT defines the increment to be used by ,commands which add successive lines of text..PAUSE HYPHENATION MARGIN {CENTER}esAThe HYPHENATION parameter permits you to hyphenate or not when using the FILL command. TABSATAB=tab positions is the format used to set tabs by column numberOAseparate the column numbers with commas. Up to 10 tab positionsa may be set.mATAB=POINT is used to set tabs by spacing across the line under anAcolumn guide. Type any character in the columns to which you wish to set a tab.ATABS are set and cleared automatically on HP 2640 series termin-G {CENTER}esAals. You may use the TAB key on such terminals and any others Awhose TAB key transmits a CONTROL I character to the computer.aAOtherwise, you will have to use the CONTROL key to send the CON-iTROL I to indicate tab. .PAUSEDISPLAYeAThe DISPLAY parameter generally lets you enable or inhibit thedAdisplay of line numbers when listing or editing. Occasionally,cADISPLAY also suppresses the display of text as well as line num-yn HP 2640 series termin-G {CENTER}esAbers depending on the operation involved (see the description of each command for specifics).CONTROLrAControl characters are NOT permitted during input of commands orRtext when CONTROL=ON.i.PAUSEECHOAECHO=ON specifies that the expanded command string which resultssAwhen defined names are replaced is to be displayed prior to itsi execution. //COMMANDSASet //COMMANDS=OFF when it is necessary to enter a line of textm$which begins with the characters //..PAUSEHEADINGAHEADING permits you to define and position the heading on pagi- Anated listings. When HEADING=OFF no heading is printed, however,eAa blank line exists in the formatted page where the heading wouldinormally be shown.PAGINGAThe PAGING parameter controls the value and placement of the page Aindictor. The page indicator is the paging string followed by Athe page number supplied automatically by EDITOR when paginatednAlistings are produced. When PAGING is set to TOP it replaces theheading entirely.o.PAUSEPAGEAThe PAGE parameter determines the number of lines per page inclu- -ding those taken by TOPSPACE and BOTTOMSPACE.e TOPSPACEtAThe TOPSPACE parameter sets the number of blank lines preceeding 7and following the line on which the heading is printed.p BOTTOMSPACEAThe BOTTOMSPACE parameter sets the number of blank lines preceed- Aing and following the line on which the page indicator is print-ued. .PAUSEPAUSEso TOP it replaces theAThe value of PAUSE determines how many lines are listed before Apauses. No // commands are permitted in response to the CONTIN-aAUE? prompt; respond YES or RETURN to continue, or NO to stop. AWhen paginated listings are being produced at the terminal PAUSEhAtemporarily uses the value of PAGE to permit loading paper on aCdiscreet forms terminals. FILLERAThe FILLER parameter permits you to use a special character inrs print-ued. .PAUSEPAUSEso TOP it replaces theAplace of blanks while supplying text. The choosen character will Abe printed as a blank when paginated listings without line num-aAbers are produced. The FILLER character ensures that a set of =words so connected will not be separated by the FILL command.A.PAUSENONPRINTAThe NONPRINT parameter lets you specify a character to be printedsAwhenever a nonprinting character is encountered in your text. AThis character is used for listings and for the display of a line replaces the*for modification using the MODIFY command.FACINGAThe value of FACING is used to offset the text on entire pages Awhen paginated listings are produced. Text on odd numbered pageshAis offset to the right; text on even numbered pages is offset toc the left.P.END.STARTSHOWPURPOSEpAThe SHOW command displays the current status of any of the SETrAparameters. To display values of more than one parameter, supplyiAa list of parameter names separated by commas. Use the keyword$ALL to display all parameter values.AAdditional values are available by specifying LINES which dis-nAplays the number of lines currently in your WORK file, DEFINI-dATIONS which displays the contents of your define dictionary, ande$GUIDE which displays a column guide..END.STARTDEFINEDEFINE COMMANDAThe DEFINE command is used to assign a name to frequently used Ainput such as a command or command argument. The format used forethis command is:DEFINE name=[unquoted string]ADEFINE enables you to assign a name to frequently used commandsaAor portions of commands known as strings. Once a name is assign-sAed to a string, you may identify the string by name when enteringn the command..PAUSEAFor example, if you wanted to use the string LIST FIRST;LIST LASTTArepeatedly, you could assign it the name LFL and use the nameaArather than the entire text of the string when the string isg2referred to in commands. This is done as follows: name=[unquoted string]DEFINE LFL=LIST FIRST;LIST LASTa.PAUSE LIMITATIONSuAThe name assigned to a definition must begin with a letter, andeAmust be a contiguous set of characters (no blanks). Any charac-hAters may be used, even quote marks as they are not used to delim-sAit names. A name may duplicate a command name or parameter such Aas MOVE or BY; however, when used as defined words commands may Anot be used for their original function. This means that you mayidone as follows: name=[unquoted string]Aredefine the name provided you do not need the command in itseoriginal form..PAUSEAWhen defining names equal to commands, it is advisable to use theaAshortest abbreviation possible to conserve space in the DEFINEr dictionary.eAEDITOR searches for defined names from left to right. When aoAdefined name is found, EDITOR replaces it with the meaning as-wAsigned to it in the DEFINE dictionary. EDITOR then resumes itsmns that you mayidone as follows: name=[unquoted string]Asearch proceeding from the first character following the insertedeAdefinition. Thus defined names within other definitions are not found by EDITOR..PAUSEUSING DEFINED NAMES AA name can be entered in response to a > prompt, or as part of asAcommand. Names must be separated from other commands parameters by one or more blanks.AAn example of using DEFINE to define a string and subsequently ton6remove that string from a line of text is shown below.follows: name=[unquoted string]( >define namea="UNNECESSARY VERBAGE"# "namea" IS NOW A DEFINED NAME.n.PAUSEREMOVING A DEFINED NAME ATo remove or "undefine" a name, reenter the DEFINE command and Aomit the string portion. This deletes both the name and its 3meaning from the DEFINE dictionary. To illustrate:m >define namea=e "namea" IS NOW REMOVED..END.START //BREAKPURPOSE ?The //BREAK command is primarily used from a USE file to signalwbelow.follows: name=[unquoted string]AEDITOR to terminate execution of one command (such as ADD) and goE#on to the next command in the file.N@//BREAK may be entered in response to either of the two prompts:Atext (:), or numbered lines (#). It must always be the first andmAonly entry in response to the prompt; it may never be appended to+other textual input (it is then just text).O.END.START//HELPAYou may type //HELP in response to any EDITOR prompt. In re-Eile to signalwbelow.follows: name=[unquoted string]Asponse, EDITOR tells you what responses may be made at the cur-Erent prompt level..ENDthe file.N@//BREAK may be entered in response to either of the two prompts:Atext (:), or numbered lines (#). It must always be the first andmAonly entry in response to the prompt; it may never be appended to+other textual input (it is then just text).O.END.START//HELPAYou may type //HELP in response to any EDITOR prompt. In re-Eile to signalwbelow.follows: name=[unquoted string]3meaning from the DEFINE dictionary. To illustrate:d >define namea=o "namea" IS NOW REMOVED..END.START //BREAK PURPOSE ?The //BREAK command is primarily used from a USE file to signalsAEDITOR to terminate execution of one command (such as ADD) and got#on to the next command in the file.t@//BREAK may be entered in response to either of the two prompts:Atext (:), or numbered lines (#). It must always be the first andsnalwbelow.follows: name=[unquoted string]Aonly entry in response to the prompt; it may never be appended toi+other textual input (it is then just text).D.END.START 2-24. //HELPPAYou may type //HELP in response to any EDITOR prompt. In re-aAsponse, EDITOR tells you what responses may be made at the cur-grent prompt level..ENDn the file.t@//BREAK may be entered in response to either of the two prompts:Atext (:), or numbered lines (#). It must always be the first andsnalwbelow.follows: name=[unquoted string]only entry in response to the prompt; it may never be appended toi+other textual input (it is then just text).D.END.START 2-24. //HELPPAYou may type //HELP in response to any EDITOR prompt. In re-aAsponse, EDITOR tells you what responses may be made at the cur-grent prompt level..ENDn the file.t@//BREAK may be entered in response to either of the two prompts:Atext (:), or numbered lines (#). It must always be the first andsnalwbelow.follows: name=[unquoted string]only entry in response to the prompt; it may never be appended toi+other textual input (it is then just text).D.END.START 2-24. //HELPPAYou may type //HELP in response to any EDITOR prompt. In re-aAsponse, EDITOR tells you what responses may be made at the cur-grent prompt level..ENDn the file.t@//BREAK may be entered in response to either of the two prompts:Atext (:), or numbered lines (#). It must always be the first andsnalwbelow.follows: name=[unquoted string]only entry in response to the prompt; it may never be appended toi+other textual input (it is then just text).D.END.START 2-24. //HELPPAYou may type //HELP in response to any EDITOR prompt. In re-aAsponse, EDITOR tells you what responses may be made at the cur-grent prompt level..ENDn the file.t@//BREAK may be entered in response to either of the two prompts:Atext (:), or numbered lines (#). It must always be the first andsnalwbelow.follows: name=[unquoted string]only entry in response to the prompt; it may never be appended toi+other textual input (it is then just text).D.END.START 2-24. //HELPPAYou may type //HELP in response to any EDITOR prompt. In re-aAsponse, EDITOR tells you what responses may be made at the cur-grent prompt level..ENDn the file.t@//BREAK may be entered in response to either of the two prompts:Atext (:), or numbered lines (#). It must always be the first andsnalwbelow.follows: name=[unquoted string]only entry in response to the prompt; it may never be appended toi+other textual input (it is then just text).D.END.START 2-24. //HELPPAYou may type //HELP in response to any EDITOR prompt. In re-aAsponse, EDITOR tells you what responses may be made at the cur-grent prompt level..ENDn the file.t@//BREAK may be entered in response to either of the two prompts:Atext (:), or numbered lines (#). It must always be the first andsnalwbelow.follows: name=[unquoted string]only entry in response to the prompt; it may never be appended toi+other textual input (it is then just text).D.END.START 2-24. //HELPPAYou may type //HELP in response to any EDITOR prompt. In re-aAsponse, EDITOR tells you what responses may be made at the cur-grent prompt level..ENDn the file.t@//BREAK may be entered in response to either of the two prompts:Atext (:), or numbered lines (#). It must always be the first andsnalwbelow.follows: name=[unquoted string]only entry in response to the prompt; it may never be appended toi+other textual input (it is then just text).D.END.START 2-24. //HELPPAYou may type //HELP in response to any EDITOR prompt. In re-aAsponse, EDITOR tells you what responses may be made at the cur-grent prompt level..ENDn the file.t@//BREAK may be entered in response to either of the two prompts:Atext (:), or numbered lines (#). It must always be the first andsnalwbelow.follows: name=[unquoted string]only entry in response to the prompt; it may never be appended toi+other textual input (it is then just text).D.END.START 2-24. //HELPPAYou may type //HELP in response to any EDITOR prompt. In re-aAsponse, EDITOR tells you what responses may be made at the cur-grent prompt level..ENDn the file.t@//BREAK may be entered in response to either of the two prompts:Atext (:), or numbered lines (#). It must always be the first andsnalwbelow.follows: name=[unquoted string]only entry in response to the prompt; it may never be appended toi+other textual input (it is then just text).D.END.START 2-24. //HELPPAYou may type //HELP in response to any EDITOR prompt. In re-aAsponse, EDITOR tells you what responses may be made at the cur-grent prompt level..ENDn the file.t@//BREAK may be entered in response to either of the two prompts:Atext (:), or numbered lines (#). It must always be the first andsnalwbelow.follows: name=[unquoted string]only entry in response to the prompt; it may never be appended toi+other textual input (it is then just text).D.END.START 2-24. //HELPPAYou may type //HELP in response to any EDITOR prompt. In re-aAsponse, EDITOR tells you what responses may be made at the cur-grent prompt level..ENDn the file.t@//BREAK may be entered in response to either of the two prompts:Atext (:), or numbered lines (#). It must always be the first andsnalwbelow.follows: name=[unquoted string]only entry in response to the prompt; it may never be appended toi+other textual input (it is then just text).D.END.START 2-24. //HELPPAYou may type //HELP in response to any EDITOR prompt. In re-aAsponse, EDITOR tells you what responses may be made at the cur-grent prompt level..ENDn the file.t@//BREAK may be entered in response to either of the two prompts:Atext (:), or numbered lines (#). It must always be the first andsnalwbelow.follows: name=[unquoted string]only entry in response to the prompt; it may never be appended toi+other textual input (it is then just text).D.END.START 2-24. //HELPPAYou may type //HELP in response to any EDITOR prompt. In re-aAsponse, EDITOR tells you what responses may be made at the cur-grent prompt level..ENDn the file.t@//BREAK may be entered in response to either of the two prompts:Atext (:), or numbered lines (#). It must always be the first andsnalwbelow.follows: name=[unquoted string]only entry in response to the prompt; it may never be appended toi+other textual input (it is then just text).D.END.START 2-24. //HELPPAYou may type //HELP in response to any EDITOR prompt. In re-aAsponse, EDITOR tells you what responses may be made at the cur-grent prompt level..ENDn the file.t@//BREAK may be entered in response to either of the two prompts:Atext (:), or numbered lines (#). It must always be the first andsnalwbelow.follows: name=[unquoted string]only entry in response to the prompt; it may never be appended toi+other textual input (it is then just text).D.END.START 2-24. //HELPPAYou may type //HELP in response to any EDITOR prompt. In re-aAsponse, EDITOR tells you what responses may be made at the cur-grent prompt level..ENDn the file.t@//BREAK may be entered in response to either of the two prompts:Atext (:), or numbered lines (#). It must always be the first andsnalwbelow.follows: name=[unquoted string]only entry in response to the prompt; it may never be appended toi+other textual input (it is then just text).D.END.START 2-24. //HELPPAYou may type //HELP in response to any EDITOR prompt. In re-aAsponse, EDITOR tells you what responses may be made at the cur-grent prompt level..ENDn the file.t@//BREAK may be entered in response to either of the two prompts:Atext (:), or numbered lines (#). It must always be the first andsnalwbelow.follows: name=[unquoted string]only entry in response to the prompt; it may never be appended toi+other textual input (it is then just text).D.END.START 2-24. //HELPPAYou may type //HELP in response to any EDITOR prompt. In re-aAsponse, EDITOR tells you what responses may be made at the cur-grent prompt level..ENDn the file.t@//BREAK may be entered in response to either of the two prompts:Atext (:), or numbered lines (#). It must always be the first andsnalwbelow.follows: name=[unquoted string]only entry in response to the prompt; it may never be appended toi+other textual input (it is then just text).D.END.START 2-24. //HELPPAYou may type //HELP in response to any EDITOR prompt. In re-aAsponse, EDITOR tells you what responses may be made at the cur-grent prompt level..ENDn the file.t@//BREAK may be entered in response to either of the two prompts:Atext (:), or numbered lines (#). It must always be the first andsnalwbelow.follows: name=[unquoted string]only entry in response to the prompt; it may never be appended toi+other textual input (it is then just text).D.END.START 2-24. //HELPPAYou may type //HELP in response to any EDITOR prompt. In re-aAsponse, EDITOR tells you what responses may be made at the cur-grent prompt level..ENDn the file.t@//BREAK may be entered in response to either of the two prompts:Atext (:), or numbered lines (#). It must always be the first andsnalwbelow.follows: name=[unquoted string]only entry in response to the prompt; it may never be appended toi+other textual input (it is then just text).D.END.START 2-24. //HELPPAYou may type //HELP in response to any EDITOR prompt. In re-aAsponse, EDITOR tells you what responses may be made at the cur-grent prompt level..ENDn the file.t@//BREAK may be entered in response to either of the two prompts:Atext (:), or numbered lines (#). It must always be the first andsnalwbelow.follows: name=[unquoted string]only entry in response to the prompt; it may never be appended toi+other textual input (it is then just text).D.END.START 2-24. //HELPPAYou may type //HELP in response to any EDITOR prompt. In re-aAsponse, EDITOR tells you what responses may be made at the cur-grent prompt level..ENDn the file.t@//BREAK may be entered in response to either of the two prompts:Atext (:), or numbered lines (#). It must always be the first andsnalwbelow.follows: name=[unquoted string]only entry in response to the prompt; it may never be appended toi+other textual input (it is then just text).D.END.START 2-24. //HELPPAYou may type //HELP in response to any EDITOR prompt. In re-aAsponse, EDITOR tells you what responses may be made at the cur-grent prompt level..ENDn the file.t@//BREAK may be entered in response to either of the two prompts:Atext (:), or numbered lines (#). It must always be the first andsnalwbelow.follows: name=[unquoted string]only entry in response to the prompt; it may never be appended toi+other textual input (it is then just text).D.END.START 2-24. //HELPPAYou may type //HELP in response to any EDITOR prompt. In re-aAsponse, EDITOR tells you what responses may be made at the cur-grent prompt level..ENDn the file.t@//BREAK may be entered in response to either of the two prompts:Atext (:), or numbered lines (#). It must always be the first andsnalwbelow.follows: name=[unquoted string]only entry in response to the prompt; it may never be appended toi+other textual input (it is then just text).D.END.START 2-24. //HELPPAYou may type //HELP in response to any EDITOR prompt. In re-aAsponse, EDITOR tells you what responses may be made at the cur-grent prompt level..ENDn the file.t@//BREAK may be entered in response to either of the two prompts:Atext (:), or numbered lines (#). It must always be the first andsnalwbelow.follows: name=[unquoted string]only entry in response to the prompt; it may never be appended toi+other textual input (it is then just text).D.END.START 2-24. //HELPPAYou may type //HELP in response to any EDITOR prompt. In re-aAsponse, EDITOR tells you what responses may be made at the cur-grent prompt level..ENDn the file.t@//BREAK may be entered in response to either of the two prompts:Atext (:), or numbered lines (#). It must always be the first andsnalwbelow.follows: name=[unquoted string]only entry in response to the prompt; it may never be appended toi+other textual input (it is then just text).D.END.START 2-24. //HELPPAYou may type //HELP in response to any EDITOR prompt. In re-aAsponse, EDITOR tells you what responses may be made at the cur-grent prompt level..ENDn the file.t@//BREAK may be entered in response to either of the two prompts:Atext (:), or numbered lines (#). It must always be the first andsnalwbelow.follows: name=[unquoted string]ED06Z{ B42 Dummy line 0 !AEQ a))#)7)\))))&)1):)>)T)U)Y)^)`)i)n)o? (  ~!~A~b1)1B54 Z,,-. wA)))COLDDUMPpabdod {.@ }@@ #..-o*"X pj<a.-.QvED12ZN da  Dummy line 0EDRRO, c"2d @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@ @-PACKARD EDITOR/2000 - Tuesday, January 10, 1978 L @PNhhHC L 5 The following letter is being addressed to each HP 2000 system>``@@p@(t700,cusltr,Oct 12) EDIT31.A000 TEXT.A000NVlstlq a,to lps//stopafadd fromlqp2listq all,P=1,to lplqp1listq all,P=0,to lpCUSLTRED107ZTOMLETTER TO HP 2000 CUSTOMER BASE(t700,cusltr,Oct 12)@@G@EDIT0 > 4 J J  J ^ ^  &J    f J !"#$J%&'()*+,-./0123J456789 J:;@<@= J>^?^@^A^B^C^ JDEFGHIJKLMNOPQRSTR (C) COPYRIGHT HEWLETT-PACKARD CO. 1976$R ALL RIGHTS RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,#R REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT THER PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD CO.2p*,*cr$EDITORdR **START**nDUHxVU#}VN#vVWXv&%vYVB% Z\%0# \%x \%\ v.!V%0#6%x6%\  DvEDITV%*# v0 6%|  v rUdjProgram  is missing!"", ZR >>PRINT<<vZ"V[  V j'Incorrect format for the PRINT command.$".^8jBv[L^RP >>USE<< V+j'Nothing permitted beyond a USE command.vV.Sj+You can't use your WORK file as a USE file.v\Yv]@!V[ V^j is not a BASIC formatted file."^ v0@%vW@*v/v634v8OY9v9?Y>^ RP >>DEFINE<< XU@ v__U V_4_ j Illegal character in definition. Z ZU "M vUo= VU" j1An equal sign must follow the item to be defined. Z VU*B j#A name must precede the equal sign. Z vU" a V.//x j-A defined name cannot begin with two slashes. Z v ! vU  &a +v 0C 5v_@ :v`o_ _@ ? V`0_@ DV``. IV`@ NV`@`@0 Sv_`@ X ]j'' is not a defined name. bZ gv\o` `@ lv`\@ qVB3? vj'' is now removed. {? v_@ v`o_ _@ V`0_@ V``. V`@ V`@`@0 v_`@ I v\o` `@ v`\@ @ jDefinition dictionary full; '' not defined. ^ v@ v@ v  v@ VB3? j'' is now a defined name. v[ njab j  c ^ " ^ X_  V__. w Z_ v_  X_|~  V__.  Z_ v_ %^pR u vdo.zV0604X4dVBdd* 06|d V04Xvddd$0$$:@V04dz(6dz(6d@^vd^ lR mve nvU ov[ pV..N r VN tv v xv |vfg ~VBfi v????  T.pz v>  v#  v: V004B5y VfP T.PP vh3$""0$ B3 V/0h4B76B16Bh@ R2 TABS 4UECHO-OFF jF #," 2a" t$_ V .000 v&a C X_|h V_,* 6_ h"| v   jF#,6A jF#,"1" Z_ jF #," AJ" 4UECHO-ON v/h v7 j r ן.#` j j V..6B1r jJ F  VW DYUJ VU, jUSE file no longer accessible  vW hY8 @Y9U Y jNumber encountered in USE file.  hY VB6 j v8OY v9?Y  v06 ! ) j)Total line length exceeds 255 characters.  V..6fB vi  vi V v  V.& v" Vf>+ vg  vf vee  X! VB` !XU! v__UU! V_@ 4_~! V_0#4h! jNo control characters allowed.! V.,! v U"! !ZU!T.4!R2 TEXT!"!i *!v2!!v2!VB$! V0//!!R2 #! "M!"VB$O!$ V0//!*l!, Vß!.v.2!0v5!2^!4v\!6X_!8 v`___!: V`` 4`r !< V`\ 6\!>v\!@Z_!BV_0!Cv_"!D V_ !Fv!H!J V`@ 6`t !Lj-Missing space or colon after the line number.!N!P v_ !R!TVd!VjMissing or illegal line number.!X!Zv,d!\v2!^\%06%0"v!bVBh66..!d v\o !fVB\!gvj!h X_|h!i V_,}!jv]_"%h $i"/" !lV\,]!nZ_!p v\\ !r7!t v]!v v]\ j!x v\]"!z7!|\%06%0"v!V.0!V%06%06%P 6!j-Type only the number of the line you want to .!!ן!v2!^!V004B5!v5!v.!^!R2 >!!vf!v_!v\!vk!v]o\ \"!V]0\" !vl_!v`ol\] l"! V`0l"6k4k,`!V`@! v `"`"!vm_ !Vm` 4mr 6mA4mZ!vj` ]"\! Vj! v j j !vm_ !Vm` 6mr 4mA4mz 6mZ!vl` !O!vk`!vnj!vo] !vpoo o"! v\o] ]!2!VBkq!"n"k p"oD!j1DEFINE substitutions have made the line too long.!! vn ! vkop! v !vf!v_k p"o !*! VBf6B"!j=>!"M!VB$! V0//!! ן4004B5!!! V.;! v!!!XU! v UU!v__ ! V_A6_Z!ZU" vU"" vU" V.#D""v" 07" j"Characters not permitted after '#'" "v"vq""vq"  tl" V0Q" V0D" V.U"v3" ""v3"$"&v3"("*v3", v""."0,` @LIST@MODIFY@ADD@CHANGE`REPLACE"2/`DELETE`FIND@INSERT@PRINT@SET@SHOW"40`RENUMBER@TEXT@KEEP@USE`FILL@EXPLAIN"6)@JUSTIFY`COPY@MERGE`MOVE@CENTER"8`DEFINE`COMPRESS":!U"<Vr">j Missing or illegal command name."@"Bv%r"Dv"FV%\ "Hv"J"L"NV["P"Vq.6%06%06%06%0 6%@ 6%H 6%P 6%X 6%` "Rj5The '#' convention is not permitted for this command."T"VVq06q06%06%06%06%0""Xvq"Zv"\ ן4004B5"^v.q"`^"bR2 //"d v"fXU"h v UU"jv__ "l V_A6_ZU"nZU"p vU""r vU"tn"v"@@HELP@STOP@ASK@BREAK"x!U"|VrM"~R2 TASK?" VB.06&04"".@`CREATE`PURGE`FILE`LENGTHEN`SHORTEN"`CATALOG`GROUP`LIBRARY"!U"VBr4" V" v"v'r"v%@ "vEDIT32"v!"rd"j"Illegal or unpermitted //-command."""M" 4r.&"Trc{"R2 //H"T.ob"#j>To see a brief description of an EDITOR command, type the word"j.'EXPLAIN', followed by the command name, e.g.:"j"j >EXPLAIN COPY"j"&jCTo see a list of all EDITOR commands, type just the word 'EXPLAIN'.""j(Type the number of the line you want to " V%.4%.4%P Y"j, followed by a colon,"jand then the line, e.g.:"j"j0 # 150.4: Here is my line of text."j"b"j."y"jType the next line you want to ."(jHTo terminate this operation, press the BREAK key before pressing RETURN." ן4004B5"!"RP //S"V&0" jK"NOP"njKs"njSt"jK"`"VB-"D$">u "b"R2 //A"V.0400"j//ASK cannot be used here.""vZ"""V[!" VE"jNothing permitted beyond the // command."" Ph"j The string in //ASK is too long.##v#v5#vi#!# R2 //B# V.0# ן4004B5#v5#v.2#^#j//BREAK cannot be used here.#"#!#R2 CLEANUP#vo# vf\#"v#$v#&X_o#( v`__#*`@  "#,`v  @"#.`N   "#0`D   "#2V`@  ?#4VBf9#6 v f#8vf#:v\#<Z_#>R2 ; OR END#@VBf[#B v f#Dv o_"#L V#N v_#Pv[#R^#TR2 '#VV\ #X X`_ #Z_`` _`r #\Z`#^ 6_ `"|]#`V]#bj)Illegal use of the apostrophe convention.#d!N#fVBf#hVf@ #j #lv o_"#n v "#pvfD #r v ]#tV]D  7#v v "#xvo`#z#|R2 SPACE#~VBf d# v f#vf#v\# u#v o_"# Xo_ # Voo. #Zo##RP @ OR "#V\ #v`#VBf #Vf0` # jIllegal string.#!N#v@o_@# v #vf`#v]_# v`o]  ]#V].`!"#V0@!#jMissing quotation marks.#!N# j Missing "@".#!N# V` ` .!6#v]` # #v _ `"#vo` ##v[#^$TR $^hU$hXr|U$rh_$| ,_!|$ V0!$Zr$vr$^%R % D\UH%$TU "#!!!##!!!%(V]0"#%,jFile  is not available for writing.%0"%4jFile & does not exist, or is not accessible.%8"%<jFile  is in use by someone else.%@"%DV]0"#%HjFile  is not available for reading.%L"%P^%\VN"<%`h\%dVN#%hv^%l"F%pVN#%tv^%xv[%|^%R %XU% VUU. "i%ZU% vU%^%R % XU|~% VUU. "%ZU%vU%^%R %v[%v&V0.65"& jUSE file abandoned.&v.06& ^&H R &Mv&RV0"#&WV0@# &\jMissing or illegal string.&a"&f^&kvZ&pv_&u v`o_ _"&zV`0_""& V` ` .#=& v`` &v_` &# &v`"& v` &v[&^'R 'vL'vT' vEDIT31' v!' rUd' j is missing. ERROR' b'#]'`@b<40,($  p56789:;<=>EDFGntu}5efghjluvxz}~ UkViTW#c#fm|ny$ $# w,EDIT1 ?  J J  J ^ ^  &J    f J !"#$J%&'()*+,-./0123J456789 J:;@<@= J>^?^@^A^B^C^ JDEFGHIJKLMNOPQRST2p*,*cr$EDITORdR *ENTRY*nVN'xDUHVU'vVWv&%vX vEDIT00v!rUd'RP >>L<<VMFjNo lines in WORK file?jMissing or illegal rangelist? jIllegal parameter ? jMissing equal sign?j is not a positive integer?$jRight margin exceeds width)?.jMargins preclude text3?8jPage has no room for text=?BjFacing offset too largeG?LjNo lines in rangelist.Q?VjMissing or illegal file name[?`jDISPLAY=OFF and NOTEXT conflicte?jjRight margin may not exceed 132o?t jTO file too shortyR EMR EX~%m j!You can't list to your WORK file.%mj You can't list to your USE file.%m^RP *LST* V vY!vZ[v\+ 3$""3$0$ v]^_`abcde VR2 *SNTX*vfoLRSNPTUVBf  TfLmLR2 *=TPS* vfo=VBf 'vf"vf `@LEFT@RIGHT@SPACE$UVBg ! V 6|f 8 Vff6f, 8Tg$<DvZfv\f + 3$""3$0$"v\f  v[fR2 *PREP*! V d@@NOTEXT@UPSHIFT"$U%Tg( +v].1v`47RP *PAG*:v=!@ V C vfo=FVBfI f *" Lvf O v@f"RU@@PAGINATEX$U[VBg ^ av^dv(gjvm V0CBp6|( 8s V(( 8vVB(:yv(("|^v^F@@CONTINUE$UVBg v^R2 *TO* V.TO v!VX V0V00V0+vhi$VjCv_VU0"V`  V V.,v@RP *CHK*CV_Fv\\8#ILv\\BOVZ*\ bRV34\"Z,""@$ bUv[[8XVB^d[vkX"H "L "P "T "^Vk, ugVD 4B_D *#"\"Z  jV34] mvpvfsvlmnovvpqyvr|vs\"Z VB^uRP *NR*VjdVjv=Dv=VBo VB^VB_ jEnd of listing^ V., vR2 *LR*$ vt Vt4n430vvnV^4B340_\ 402VB^m!Vmh&Vt6Blm+vm0Vk"c*m5:Vj?uDvnI NmSvmm"X]Vj?bןgVD0ul"qVj'vvlt{^RP vv vfov, vVf"vvv^vUoLNPRSTUffVBUVU. Vf f 0= Vf f 0E vvfvf"vf ^4R2 7voo :V3,=v@DCvwDF&IvL v  OvxR VB]^UvX[ VB\ ^Xfa vU_ffd VU| 4UgvffjZfm VBX 63pvUs vfoU U"v VBf"U y vff | VfvUf VB`v v Y^RP

vys v vZ" D $("(& v @yl vb Xfy |~  Vff0 U Zf vy  vy l #Vf0x4y0sC &vf  )vf" ,VBa / v y  2 v Y 5 8vcc  ; V >Y Av DVx4y0s"x Gv  x Jvys"x M PVBa Svaa  V^ `R2 ev j v  oV_ t v  yj ~Vb j   jh Bb vb ^ R2 Vc,`6D0uk j Continue?  F vf_ VB1W jAJ  VfN6fn vc ^ (RP -v 2vZ" D $("(& 7 <^ R2

Xd Vdd. ZZdvdvv+& v vv^ ^tR yv=D~ v^^ ":V^@VBev=ev=^v=^v=^^R v\av]a V\04B]vfvaVB[!VB:E,vav[va:E^v[^R  v\gv]g V\04B]Rvf"vg'VB[q,1V[w6vg;vgD@^0R 1vf2vh=3vi=4 V.A567 @@ALL8 9Vj: j Illegal range;!:<v[d=>vg@vaB vgaDvgFvaHJKV[LnkmMvd_N Vd^ 4dt O3PVB[FQ vdo,RVd=SvT^UvdV^XvYvd_Z VdD 4d@m[v=D\v=l^`V[bnnmdvaofhV[jv\glv]npV[rvgDtVg*a6g0a4g*av Va*xzvf|v\g~v]gV[ vgaDvao VBg6Bav[v=hv=i^R nmvd_ VdD 6d@V[|vd_ VdV 4dZ m&V[|vlpvlvo V.(#v[ T[j.Missing parameter in a position specification.jIllegal line specificationjIllegal relative specification jPosition not foundj(Column specification not permitted here.j#String position not permitted here.!:v[d^\R `v[dvqh V0+Sl Vl0pvqt\x Vl0|v VUV 6UZ  V o.6|pvpp$q^vv[^v[^R v[VUR  Vvd_Vd^ 4dt 6d\ ^lVBpvlpvlvo^ v[^v[^R <*FL> `@*@LAST@FIRST VBjvlvlvoTj_{{vl=V%.!4%."x vlo=^vlj ^v[^R <+-(),/:>Xd vU_dd VUP 6UR 6UT 4U\ 6U^ 6Ut Zdvd"(vd2^R V>>,v>> Xd|~ Vdd. Zdv^vd^R  >*M v>>"Y v +v>"^pR u vpo.zV0604Z4pVBpp* 06|p V04Zvppd$0$$:@V04pz(6pz(6p@^vp^R VE0Hve:E ^VQ0Rve<Q ^VI0J#ve;I ^ve^R  vd vU#jdU(vdU 2 Vds<vUd #"c"F cdUPFZ^R  TEv?>v@>vA>vB>vC>N^ R "VBM$T\ &vr\(*VG,v[.^0vr2468vr;J:<vr<R>@vr:HBDFvr=HJXs]L \]* ?NV[<PZsRTv[V^R VE0h VB:E"vEE"vD:Ev[^VQ0zvr<Q"VI0vr;I"vr<RvD:HvEHv[^v[^ R VE0HvEE vD:Ev[^VQ0R vr<Q VI0Jvr;I $v[)^.v[3^LR N Vr>:4r@:HPVr><4r@<RRvtTvuJ V vIt u&Xr";I F]NZvuI\,^Vu"I0]`vtIb,d V;I0SfvS;Ih nhS<@j vR<@lvtnvuR p vQt u&rr"<Q tvuQvxVu"Q0zvtQ|~vF<Q(vDrXE|Hr":E ZEvEE"vG^vG^R  TE !v>?^v>@^v>A^v>B^v>C^R h@FH:?:@:A:B:C(^xR j@FH:?:@:A:B:C^ lR mvv nvU ov[ xv |vwx ~VBw v????  T." v#  v: V004B5 Vw T." vy3$""0$ B3 V/0y4B76B16Bhq R2 TABS 4UECHO-OFF jF #," 2a" t$q V .000 v&a C Xq|h Vq,[ 6q y"| v   jF#,6A jF#,"1" Zq jF #," AJ" 4UECHO-ON v/y v7 j  j F  VW DXUJ VU, jUSE file no longer accessible  vW hX8 @X9U X jNumber encountered in USE file.  hX VB6 j v8OX v9?X  v06 t < j)Total line length exceeds 255 characters.  V..6wU vz  vz V v  V.& v" Vw>+ vx  vw vvv  ! VB` !XU! vq_UU! Vq@ 4q~! Vq0#4h! jNo control characters allowed.! V., ! v U"!  !ZU!T."G!R2 TEXT!"!z *,!v2!!v2!VB$1! V0//)!1!R2 #!  !"VB$b!$ V0//)!*!, Vß!.v.2!0v5!2^!4v{!6Xq!8 v|_qq!: V|` 4|r !< V|\ 6{!>v{!@Zq!BVq0!Cvq"!D Vq !Fv!H!J V|@ 6|t !Lj-Missing space or colon after the line number.!N !P vq !Rl!TVp)!VjMissing or illegal line number.!X !Zv,p!\v2!^\%06%0!!bVBh66..!d v{o !fVB{!gvs!h Xq|h!i Vq,!jv}q"%h $z"/" !lV{,}!nZq!p v{{ !rJ!t v}!v v}{ s!x v{}"!zJ!|\%06%0!!V.0!V%06%06%P 6!j-Type only the number of the line you want to .! !ן!v2!^!V004B5 !v5!v.!^"bR2 //"d v"fXU"h v UU"jvq_ "l VqA6qZ`"nZU"p vU""r vU"ty"v"@@HELP@STOP@ASK@BREAK"x "|Vj"j"Illegal or unpermitted //-command." " " 4j. "Tj q"R2 //H"T."S"j(Type the number of the line you want to " V%.4%.4%P J"j, followed by a colon,"jand then the line, e.g.:"j"j0 # 150.4: Here is my line of text."j"S"j."j"jType the next line you want to ."(jHTo terminate this operation, press the BREAK key before pressing RETURN." ן4004B5 "vvv " "R2 //S"V&0" jK"NOP"njK~"njS"jK"`"VB-"D$">d "b"R2 //A"V.0400 "j//ASK cannot be used here." "v"!g"V[t" V ;"jNothing permitted beyond the // command." " P ^"j The string in //ASK is too long.# #v#v5#vz#t# R2 //B# V.0 # ן4004B5 #v5#v.2#^#j//BREAK cannot be used here.#!:#vvv #V..~#^$TR $^hU$hXj|U$rhq$| ,q $ V0 $Zj$vj$^%R %XU% VUU. !%ZU% vU%^%R % XU|~% VUU. !0%ZU%vU%^%R %v[%v&V0.65!d& jUSE file abandoned.&v.06& ^&H R &Mv&RV0"!&WV0@!&\jMissing or illegal string.&a!:&f^&kv&pvq&u v|oq q"&zV|0q"!& V| | .!& v|| &vq| &!&v|"& v| &v[&^&R &v &V0"C& vqbd&VBq"/&6q|& v&V0"&v.0&6b"qd|&"r& vqb}&VBq"a&6q|& v& v.00&6b"q}|& v"&Xq!|~& Vqq.0"&Zq& Vqq.."&vqq"& vq !&^'R 'vL'vT' vEDIT31' v!' rUd' j is missing. ERROR' b'"'`@b<40,($  p56789:;<=>EDFGntu}5efghjluvxz}~ UkVmTigQ{l!p{|###S#jfm|n#c#ei" upvEDIT3 `?Q J J  J ^ ^  &J    f J !"#$J%&'()*+,-./0123J456789 J:;@<@= J>^?^@^A^B^C^ JDEFGHIJKLMNOPQRSTR (C) COPYRIGHT HEWLETT-PACKARD CO. 1976$R ALL RIGHTS RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,#R REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT THER PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD CO.2p*,*cr$EDITORdR *ENTRY*nVN xDUHVU vVWv&%vX ]v5vEDIT00v!rUd R *** PROGRAM RESERVED FOR FUTURE USE ****'R 'vL'vT' vEDIT31' v!' rUd' j is missing. ERROR' b' z'`@b<40,($  p56789:;<=>EDFGntu}5efghjluvxz}~ UkV w,vEDIT4 cl J J  J ^ ^  &J    f J !"#$J%&'()*+,-./0123J456789 J:;@<@= J>^?^@^A^B^C^ JDEFGHIJKLMNOPQRSTR (C) COPYRIGHT HEWLETT-PACKARD CO. 1976$R ALL RIGHTS RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,#R REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT THER PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD CO.2p*,*cr$EDITORdR *ENTRY*nVN#xDUHVU#vVWv&%vX ]v5vEDIT00v!rUd# RP >>COMPRESS<<V0 j1COMPRESS is only permitted when ENVIRONMENT=TEXT. VM jNo lines in WORK file.  jMissing or illegal range list  jNo lines in range![^ R2 **COMPRESS** v+" vYZV..JR2 * # *v.#V206[G(v\,-v]27VB[(< jLine not foundA FKPIUZv^ _d i^x R2 *NEXT RANGE*}v_v`vVB[V[dv V V., v\VBY ^ R2 *DO RANGE*vYY V[rIv^  ןVD0arV[#"'^@ R2 EvJ V O=TVB3:YvbD^"cvh v  mvcrvc wK|^ R2 Xd Vdd. `ZdvUod  d"VU"d 0 ve_U"VeB 6e\ 6e~  vUU `vdU `v^ ^tR yv=D~ v^^ ":V^@ VBfv=fv=^v=^v=^^R v\av]a V\04B] vgvaVB[BVB:EMvav[va:E^v[^R  v\hv]h V\04B]svg"vh'VB[,1V[6vh;vhD@^0R 1vg2vi=3vj=4 V.A567 @@ALL8 9Vk: j Illegal range;![<v[d=)>vh@vaB vhaDvhFvaHJ8KV[5LnlnMvd_N Vd^ 4dt OTPVB[gQ vdo,RVd^SvT^UvdV^XvYvd_Z VdD 4d@[v=D\v=m^8`V[)bnondvapfhV[)jv\hlv]npV[)rvhDtVh*a6h0a4h*av Va*x)zvg|v\h~v]hV[5 vhaDvap VBh6Bav[v=iv=j^R nnvd_ VdD 6d@$V[vd_ VdV 4dZ GV[vmqvmvp V.(Dv[ T[>$$$j.Missing parameter in a position specification.:jIllegal line specification:jIllegal relative specification: jPosition not found:j(Column specification not permitted here.:j#String position not permitted here.![v[d^\R `v[dveh V0+tl Vm0pvet}x Vm0|v VUV 6UZ  V o.6|qvqq$e^vv[^v[^R v[VUR 0 V)vd_Vd^ 4dt 6d\ 7^VBq0vmqvmvp^ v[^v[^R <*FL>A`@*@LAST@FIRST VBkvmvmvpTkvm=V%.!4%." vmp=^vmk ^v[^R <+-(),/:>Xd vU_dd VUP 6UR 6UT 4U\ 6U^ 6Ut Zdvd"(vd2^R V>>,7v>> Xd|~ Vdd. ?Zdv^vd^R  >*n v>>"z v +v>"^pR u vqo.zV0604Z4qVBqq* 06|q V04Zvqqd$0$$:@V04qz(6qz(6q@^vq^R VE0H"vf:E ^VQ0R3vf<Q ^VI0JDvf;I ^vf^R  vd vU#jdU(vdU 2 Vd<vUd #"c"F cdUPgZ^R  TEv?>v@>vA>vB>vC>o^ R "VBM$T\  1&vr\(#*VG;,v[.^0vr2#46;8vr;J:#<vr<R>#@vr:HB#D;Fvr=H#JXs]L \]* `NV[]PZsRTv[V^R VE0 VB:E"vEE"vD:Ev[^VQ0vr<Q"VI0vr;I"#vr<R#vD:HvEHv[^v[^ R VE0HvEE vD:Ev[^VQ0R vr<Q VI0Jvr;I #$v[)^.v[3^LR N Vr>:4r@:HPVr><4r@<RRvtTvuJ V vIt u&Xr";I g~oZvuI\M^Vu"I0~`vtIbMd V;I0SfvS;Ih nhS<@j vR<@lvtnvuR p vQt u&rr"<Q tvuQvxVu"Q0zvtQ|~vF<QIvDrXE|Hr":E ZEvEE"vG^vG^R  TE&-4;Bv>?^v>@^v>A^v>B^v>C^R h@FH:?:@:A:B:C(^xR j@FH:?:@:A:B:C^ lR mvv nvU ov[ xv |vwx ~VBw v????  T.# v#  v: V004B5 Vw T.# vy3$""0$ B3 V/0y4B76B16Bh R2 TABS 4UECHO-OFF jF #," 2a" t$e V .000 v&a C Xe|h Ve,| 6e y"| v   jF#,6A jF#,"1" Ze jF #," AJ" 4UECHO-ON v/y v7 j  j F 1 VW DXUJ VU, jUSE file no longer accessible  vW hX8 @X9U X( jNumber encountered in USE file.  hX VB6 j v8OX v9?X 1 v06  ] j)Total line length exceeds 255 characters.  V..6wv vz  vz V v  V.& v" Vw>+ vx  vw vvv  ! VB` !!XU! ve_UU! Ve@ 4e~! Ve0#4h! jNo control characters allowed.! V., ! v U"!  !ZU!T.#h(!R2 TEXT!"!z *M!v2!(!v2!VB$R! V0//J!R!R2 #! ! !"VB$!$ V0//J!*!, Vß2!.v.2!0v5!2^!4v{!6Xe!8 v|_ee!: V|` 4|r !< V|\ 6{!>v{!@Ze!BVe02!Cve"!D Ve !Fv!H)!J V|@ 6|t !Lj-Missing space or colon after the line number.!N !P ve !R!TVqJ!VjMissing or illegal line number.!X !Zv,q!\v2!^\%06%0!3!bVBh66..!d v{o !fVB{!gvs!h Xe|h!i Ve,!jv}e"%h $z"/" !lV{,}!nZe!p v{{ !rk!t v}!v v}{ s!x v{}"!zk!|\%06%0!3!V.0(!V%06%06%P 6(!j-Type only the number of the line you want to .! !ן7!v2!^!V004B5 !v5!v.!^"bR2 //"d v"fXU"h v UU"jve_ "l VeA6eZ"nZU"p vU""r vU"t"v"@@HELP@STOP@ASK@BREAK"x "|Vk"j"Illegal or unpermitted //-command." "! " 4k. ="Tk  "R2 //H"T.#t"j(Type the number of the line you want to " V%.4%.4%P k"j, followed by a colon,"jand then the line, e.g.:"j"j0 # 150.4: Here is my line of text."j"t"j.""jType the next line you want to ."(jHTo terminate this operation, press the BREAK key before pressing RETURN." ן4004B5 "vvv " "R2 //S"V&0 " jK"NOP"njK~"njS"jK"`"VB- "D$">d "b"R2 //A"V.0400 '"j//ASK cannot be used here." "v"!"V[" V \"jNothing permitted beyond the // command." " P "j The string in //ASK is too long.# #v#v5#vz## R2 //B# V.0 # ן4004B5 #v5#v.2#^#j//BREAK cannot be used here.#![#vvv #V..#^$TR $^hU$hXk|U$rhe$| ,e!$ V0!$Zk$vk$^%R %XU% VUU. !&%ZU% vU%^%R % XU|~% VUU. !Q%ZU%vU%^%R %v[%v&V0.65!& jUSE file abandoned.&v.06& ^&H R &Mv&RV0"!&WV0@!&\jMissing or illegal string.&a![&f^&kv&pve&u v|oe e"&zV|0e"!& V| | .!& v|| &ve| &!&v|"& v| &v[&^&R &v &V0"d& vebd&VBe"P&6e|& v&V0"&v.0&6b"ed|&"& veb}&VBe"&6e|& v& v.00&6b"e}|& v"&Xe!|~& Vee.0"&Ze& Vee.."&vee"& ve !&^'R 'vL'vT' vEDIT31' v!' rUd' j is missing. ERROR' b'"'`@b<40,($  p56789:;<=>EDFGntu}5efghjluvxz}~ UkVmTigQ{l!{|###S#jfm|n##i# uEDIT5 ? J J  J ^ ^  &J    f J !"#$J%&'()*+,-./0123J456789 J:;@<@= J>^?^@^A^B^C^ JDEFGHIJKLMNOPQRSTR (C) COPYRIGHT HEWLETT-PACKARD CO. 1976$R ALL RIGHTS RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,#R REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT THER PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD CO.2p*,*cr$EDITORdR *ENTRY*nVN#xDUHVU#vVWv&%vX ]v5vEDIT00v!rUd# RP >>ADD FROM<<-j'' is an illegal line number.&j'' is an illegal increment.&j)Add will not replace or interleave lines. &jWORK file full, line not added.&#j=No line number or increment is permitted with numbered lines.&$#j=Total length of line exceeds 255 characters. Add terminated.)&.TY !p^R2 *SYNTAX*p*v) vZ v[oFROMv[ v["VYV\0v V v[oBYVB[v[ v["xVB]  v)] VBM4d Vvx#VB] k(vZ]-d27<VB^ AvZ^FdK^x R2 ** ADD# **{ ~v_v.V20@v`Z,VGCvYVY v=Dv=V20@^jAdd will not replace va,JV20^R2 **ADD**vv_vYv`ZVG v.V20V!AVY V20 VB^ vZ^^@R2 EvJ @+ Oj)Warning: Text beyond RBOUND discarded in Tv+YvaD^Jchvm R2 rv>w|vbZVY>v=Dv=^ R2 vR1 *LOOP* *+kvvov>vbZVY VvvVB^vZ^N vY^lR2 q vUo v VBU6U*+ {X[+ |U~ V[[0 Z[v[ v["^v+ v+^ R2 VB3GvaZ")v v  vcv >^4R2 9")>vC!H!HM jline .R^ R vU j F ן V , j5Response limited to YES (or return) or NO (or break). } v  @@YES@NO  ' VBd %^ *vd /^ 4vd 9^ H R Jv\ Lve Nvfz( Pvgh Rv T vio( VVi1 Xvi  Z vjo, \vk ^VjP `vj  bvk dvli8j f Vl>4l`v hjMissing or illegal file name. j lvl" n V.# pV1._ r V.#TCL tvh v x V.#TCR_ zvh | ~V. j"You can't use your Work file here.  V00 V. j!You can't use your USE file here.  i"j  vmo:o/ vno) Vi*n6n*j VBmn Vi*m6m*n vi m" \kxB VB] ve] vm n" \kxB VB] vf] Ve*f  vi n" \kxB VB] vef] Vk0 vj  V v UNNUMBERED V0 j+Illegal format in specifying the FROM file. !p ^ v\ vY vg ^ RP **FIND LAST LINE**v`;Jv`<Rv`:H^h R iV_0jvne"kVBhlvopm 4UECHO-OFFn6h|qo v&p u0CpvqqjrUs V0Sxt j No tape in u?vV.0wX[|nxSyV20,zV20{ן?|Z[}von~vvlvm XVY?voV.0VpV`VNX[|nFZ[VN#@nUVUvonV`VBhSVB2,V20CTVp=VNFvnn VN#T .Oh[=hןCV.0qvoo V_0v!XU vi_UUVi` 4i\ 6ir ZUvU"xV]V.0uV_04Bp4n0,!6n04#!j3Missing or illegal line number encountered in file .?V.0!V0} Vi@ 6it vU}vU }V004B5jFile  seems to have numbered lines. 4UECHO-ONvDo you want to continue? oVBho 4UECHO-OFFTduCvV]*oj%Line numbers out of sequence in file .?v,o]V_0Vo,eVo@f jNo lines in range.?v_VhV`CVo*fC!H ^j/Warning: Input line truncated to 94 characters. v^Vo0f$v2^v2GjTransmission error on file !pv2 4UECHO-ON^ R2 v2 v&p s0RvqjP U V. j^`U_` v2v2^R V>>,v>> X[|~ V[[. Z[v^v[^R  >*# v>>"/ v +v>"^ R Xr vs_rr* Vs` 6sr q4Zr>6|]qH^Rv]\^pR u v]o.zV0604g4]VB]]* 06|] V04gv]]d$0$$:@V04]z(6]z(6]@^v]^8 R <u@V^Dv^z(HVD )>^Lv^D )P^T VD}>^6.5Xv^D}\^` VDd>^Hdv^Ddh^lV0npVD $>^_tv^D $x^|VD >^nv^D ^v^^R VE0Hv^:E ^VQ0Rv^<Q ^VI0Jv^;I ^v^^R  v[ vU#j[U(v[U 2 V[<vU[ #"c"F c[UPZ^dR fv`bhjVBGlvYn^pVH0rR: ADD TO CURRENT RECORDtVE.?vvC>xkzvCB|VE.Q~vB>kvBAVE.cvA>kvA@v@>XUH|E~ v:U :UZUv:E bvDbvEE vGvHH  vM;@M vY ^VR~ VJ~ 'vmtVBmVN6O,PvY^VE*vjE vjER: WRITE CURRENT RECORDhFBj@$EUVE*jb>Xij |jZi' R: WRITE NEW RECORDjt "jVE@Jjb>XUE |j:U TU"ajs|j@jAjBjCZUXU|j"jZUvDbVE*vEE vn:EvEvFtvnbvG VR~  R: SPLIT INDEX BLOCKhS@@U nh<| vk<njmu n<| nju j| mhS @@U"nju$ j@@ S& R: ADD ENTRY TO M()(XUJ|I ~* v;U ;U, v;U ;U.ZU0v;I k2v;I m4 vJ;@J 6VQ@ 8vR@ :<vQQ@ >vR| @vSmBvII D R: ADD ENTRY TO N[]FhSH@$QUJVQ| L nh<| "QNhSP@$QURjntTVQ| VnjuXjR SZ nhS<@\vQQ E0^ vR<@`vYb vM;@M d^XR ]VNXbVO,PAgvtl^qvtOO vVO0PU{jO `^vtNhNN^ R "VBM$Tv &v`v(*VG,vY.^0v`24b68v`;J:<v`<R>@v`:HBDFv`=HJXnwL \w* bNVYPZnRTvYV^R VE0 VB:E"[vEE"vD:EvY^VQ0-v`<Q"FVI0[v`;I"v`<RvD:HvEHvY^vY^ R VE0HvEE vD:EvY^VQ0R v`<Q VI0Jv`;I $vY)^.vY3^LR N V`>:4`@:H{PV`><4`@<R6RvxTvyJ V vIx y&X`";I ZvyI\^Vy"I0`vxIbd V;I0S6fvS;Ih nhS<@j vR<@lvxnvyR p vQx y&r`"<Q YpatvyQv?xVy"Q0pzvxQ|?~vF<QvD`XE|H`":E ZEvEE"vG^vG^R  TEv>?^v>@^v>A^v>B^v>C^R h@FH:?:@:A:B:C(^xR j@FH:?:@:A:B:C^$TR $^hU$hXd|U$rhi$| ,i N$ V0 U$Zd$vd$^%R % DlUH%$TU  s s ## %(Vm0 %,jFile  is not available for writing.%0 %4jFile & does not exist, or is not accessible.%8 %<jFile  is in use by someone else.%@ %DVm0 %HjFile  is not available for reading.%L!p%P^%\VN!%`hl%dVN#%hvp%l!%pVN#%tvp%xvY%|^%R %XU% VUU. !;%ZU% vU%^%R % XU|~% VUU. !f%ZU%vU%^%R %vY%v&V0.65!& jUSE file abandoned.&v.06& ^&H R &Mv&RV0"!&WV0@!&\jMissing or illegal string.&a!p&f^&kvz&pvi&u vjoi i"&zVj0i"!& Vj j ."& vjj &vij &!&vj"& vj &vY&^&R &v &V0"z& viad&VBi"f&6i|& v&V0"&v.0&6a"id|&"& via}&VBi"&6i|& v& v.00&6a"i}|& v"&Xi!|~& Vii.0"&Zi& Vii.."&vii"& vi !&^'R 'vL'vT' vEDIT31' v!' rUd' j is missing. ERROR' b'"'`@b<40,($  p56789:;<=>EDFGntu}5efghjluvxz}~ UkVTvf{XW#i#% 6w,EDIT6 ( J J  J ^ ^  &J    f J !"#$J%&'()*+,-./0123J456789 J:;@<@= J>^?^@^A^B^C^ JDEFGHIJKLMNOPQRSTR (C) COPYRIGHT HEWLETT-PACKARD CO. 1976$R ALL RIGHTS RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,#R REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT THER PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD CO.2p*,*cr$EDITORdR *ENTRY*nVN$xDUHVU$vVWv&%vX ]v5vEDIT00v!rUd$ RP >>DO INSERT<<IjNo lines in WORK file.BjMissing or illegal range listB jNo lines in range Bj'' is an illegal increment.B jPosition not foundB$j+Text beyond RBOUND; new line not permitted.)B.j,Insert will not replace or interleave lines.3B8 jWORK file full.= j'Y ' discarded.BBGj$RBOUND violated; insertion not made.LB"^R2 *BEGIN*NY^ vZ[= v\[=v[Tv]Lv=Dv=BV^ vVB3v_D#v v  v` v` va#"` vb&avbb"[*a "[*$a vbb:#VxR2 *PROMPT*}v vca[ `"Va,# vaa"# ` va v:vd V!6*#f v+vd v+"  >>yveve>vYV["  vY["  v["v.V^V2*^@ R2 *PROC 1ST LINE*EvJ v OV20T v YY^VBe c *+hvmvr'wVBe |VB!(V005\1 ''SV20L VlVBf V20vvgvh viY ^R2 v VB3v_D#v v V^R2 *ADD* *+\B!4@#vcd!vd&vd +v.05T2): ? VY&DvYINvSXv] v Ybg^l R2 *ADD LOOP*qvvvg{ @+{V!lj&Warning: Text beyond RBOUND discarded.v+\Bg41vvv>SvjfV^ VBgvd VVBf  VB!,+vvvg:4 R2 *LAST ADD LOOP*9vgh> *+CvHvMRV!Wv+\vhafv>kSpvjfuzV^ VBh3vVg6B16Y42.kvklvmd"B!$d"cw v V v`` vd VVBhj&Warning: Text beyond RBOUND discarded. VvVBf vgvi ^R2  v &a+  6+|  v  C&dB &a-  6+ |   v C ^ ` R2 cV>n8 dvn eVnM j vad oS tvan d" yvkl ~vma w VBn @ v n  v n V ^ R2 vUo  VBU6U*+  Xa+ |U~ Vaa0  Za va  va" ^ v+  v+ ^ ( R2 -v 2VB3 7v_f <# Av F v : Kv`d P^ R2 <1ST ERASE> vkl  b vmd w vo ,c"` ^ v c"`  va vU#"d o l ^ R2 v&a- 6k| v r+  6m|  v CJ ^tR yv=D~ vii ":Vi@VBfv=fv=^v=^v=i^R V>>,Av>> Xa|~ Vaa. IZav^va^R  >*x) v>>" v +v>"^8 R <@VfDvfz(HVD )>fLvfD )P^T VD}>f6.XvfD}\^` VDd>fdvfDdh^lV0pVD $>ftvfD $x^|VD >fvfD ^vf^R VE0H-vf:E ^VQ0R>vf<Q ^VI0JOvf;I ^vf^R  va vU#jaU(vaU 2 Va<vUa #"`"F `aUPrZ^dR fvpjhjVBGlv^n^pVH0NrR: ADD TO CURRENT RECORDtVE.vvC>x zvCB|VE.~vB> vBAVE.vA> vA@v@>XUH|E~ v:U :UZUv:E jvDjvEE vGvHH  vM;@M v^^VR~ lVJ~ svqrVBqsVN6O,Pzv^^VE*vsE vsER: WRITE CURRENT RECORDhFBs@$EUVE*jj>Xts |jZt R: WRITE NEW RECORDjr "sVE@jj>XUE |j:U TU" "j@"jA"jB"jCZUXU|s"jZUvDjVE*NvEE vu:EZvEvFrvujvG VR~ P R: SPLIT INDEX BLOCKhS@@U nh<| vv<njqw n<| njw j| qhS @@U"njw$ j@@ S& R: ADD ENTRY TO M()(XUJ|I ~* v;U ;U, v;U ;U.ZU0v;I v2v;I q4 vJ;@J 6VQ@ .8vR@ :P<vQQ@ >vR| @vSqBvII D R: ADD ENTRY TO N[]FhSH@$QUJVQ| qL nh<| "QNhSP@$QURjurTVQ| VnjwXjR SZ nhS<@\vQQ E0^ vR<@`v^b vM;@M d^R  TEv?>v@>vA>vB>vC>^XR ]VN5bVO,Pgvrl^qvrOO vVO0P2{jO `^vrNhNN^ R "VBMe$TZ l|&vpZ(*VG,v^.^0vp24?68vp;J:<vp<R>@vp:HBDFvp=HJXu\L \\* ?NV^PZuRTv^V^R VE0 VB:E"8vEE"vD:Ev^^VQ0 vp<Q"#VI08vp;I"vp<RvD:HvEHv^^v^^ R VE0H`vEE vD:Ev^^VQ0Rr vp<Q VI0Jvp;I $v^)^.v^3^LR N Vp>:4p@:HXPVp><4p@<RRvkTvmJ V vIk m&Xp";I ZvmI\^Vm"I0`vkIbd V;I0SfvS;Ih nhS<@j vR<@lvknvmR p vQk m&rp"<Q 6M>tvmQvxVm"Q0MzvkQ|~vF<QvDpXE|Hp":E r~oZEvEE"vG^vG^R  TEv>?^v>@^v>A^v>B^v>C^R h@FH:?:@:A:B:C(^xR j@FH:?:@:A:B:C^ lR <3 IN> mvl nvU ov^ xv |vxn ~V004B5 Vx v: vy3$""0$ B3 V/0y4B76B16Bh R2 TABS 4UECHO-OFF jF #," 2a" t$t V .000e v&a C Xt|h Vt, 6t y"| v   jF#,6A jF#,"1" Zt jF #," AJ" 4UECHO-ON v/y v7 j  v???? j F ~ VW2 DXUJ VU,# jUSE file no longer accessible "K vW hX8 @X9U X<Tu jNumber encountered in USE file. "K hX VB6c j v8OX v9?X ~ v06   j)Total line length exceeds 255 characters. "K Vx vd  vd V v  V.& v" Vx>+ vn  vx vll  #! VB` f!XU! vt_UU! Vt@ 4t~c! Vt0#4hc! jNo control characters allowed.! v U"! "K!ZU!R2 TEXT!"!d *!v2! C!v2!VB$! V0// e!!^\%06%0"!bVBh66.. C!d vzo !fVBz ;!gvu!h Xt|h!i Vt, !jvqt"%h $d"/" !lVz,q !nZt!p vzz !r!t vq!v vqz u!x vzq"!z!|\%06%0"!ן R!v2!^!V004B5"K!v5!v.!^"bR2 //"d v"fXU"h v UU"jvt_ "l VtA6tZ "nZU"p vU""r vU"t "v"@@HELP@STOP@ASK@BREAK"x"]"|V{ "j"Illegal or unpermitted //-command.""K""" 4{.!"T{!!L!""R2 //H"(jHTo terminate this operation, press the BREAK key before pressing RETURN." ן4004B5"K""O"R2 //S"V&0!" jK"NOP"njK|"njSw"jK"`"VB-!"D$">a "b"R2 //A"V.0400!"j//ASK cannot be used here.""K"v}"# "V^"O" V!"jNothing permitted beyond the // command.""K" P""j The string in //ASK is too long.#"K#v#v5#vd## R2 //B# V.0"9# ן4004B5"K#v5#v.2#^#j//BREAK cannot be used here.#"#vll #V..#^$TR $^hU$hX{|U$rht$| ,t"$ V0"$Z{$v{$^%R %XU% VUU. "%ZU% vU%^%R % XU|~% VUU. "%ZU%vU%^%R %v^%v&V0.65# & jUSE file abandoned.&v.06& ^&H R &Mv&RV0"#F&WV0@#J&\jMissing or illegal string.&a"&f^&kv}&pvt&u vsot t"&zVs0t"#.& Vs s .#~& vss &vts &#N&vs"& vs &v^&^&R &v &V0#& vt_d&VBt#&6t|& v&V0$P&v.0&6_"td|&$& vt_}&VBt$&6t|& v& v.00&6_"t}|& v"&Xt!|~& Vtt.0$7&Zt& Vtt..$G&vtt"& vt !&^'R 'vL'vT' vEDIT31' v!' rUd' j is missing. ERROR' b'$Y'`@b<40,($  p56789:;<=>EDFGntu}5efghjluvxz}~ UkV@TjT{)(n'*+m|% % i$ w,EDIT7 #  J J  J ^ ^  &J    f J !"#$J%&'()*+,-./0123J456789 J:;@<@= J>^?^@^A^B^C^ JDEFGHIJKLMNOPQRSTR (C) COPYRIGHT HEWLETT-PACKARD CO. 1976$R ALL RIGHTS RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,#R REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT THER PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD CO.2p*,*cr$EDITORdR *ENTRY*nVN#xDUHVU#vVWv&%vX ]v5vEDIT00v!rUd# RP >>REPLACE FROM<<VM jNo lines in WORK file. jMissing or illegal range list  jNo lines in range  j+Rangelist not permitted with numbered lines!^R2 *REPL*p*NYvZvFROMvY[" v[ vIV\%V]0( VY v^vY^ R2 *REPL BY #*Y v^v. "#V20&v_,)v`,/V\r2va,5\38;V\>Ava,D"GvJ!M!PjLine  not found.SןVV20Y^\vb _8bV20e=xR2 *NR*}vcvdvYVB\V\dvY V V., vVBZ \B3Y^R2 *DR* 1vZZ V20^vb 8V20^ ן{VD0eV\#"^' VD0e4Y{,jFull range not replaced.1\B3Y6\D.e!;^@R2 Ev\JvOvaDT\3Yv.^"cV.0620h @+mj.Warning: Text beyond RBOUND discarded in line rv+wvaD|"v!jvS^ R2  v[fvU v[oU U" V["U 06[V!vUo[ "o[ @ [&VU"[+vf0^lR2 qvaDv"{v!!jLine  was the last line replaced.^R2 "v v  vgvg ^ R vU j F ן; VB , j5Response limited to YES (or return) or NO (or break).  v  @@YES@NO  VBh %^ *vh /^ 4vh 9^ H R Jv] Lvi Nvjz( Pvkl Rv T vmo( VVm Xvm  Z vno, \vo ^Vn `vn  bvo dvpm8n f Vp>4p` hjMissing or illegal file name. j" lvp" n V.# pV1. r V.#TCL tvl v x V.#TCR zvl | ~V. j"You can't use your Work file here. " V00E V.E j!You can't use your USE file here. " m"n Q- vqo:o/ vro) Vm*r6r*n VBq Vm*q6q*r vm q" \o VBs vis vq r" \o VBs vjs Vi*j  vm r" \o VBs vijs Vo0- vn  V v UNNUMBERED V0) j+Illegal format in specifying the FROM file. ! ^ v] v\ vk ^tR yv=D~ vbb ":Vb@DVBttv=tv=^v=^v=b^R v_ev`e V_04B`vuveVB\VB:Evev\ve:E^v\^R  v_vv`v V_04B`vu"vv'VB\,1V\6vv;vvD@^h R iV^0jvri"kVBllvwxm 4UECHO-OFFn6l|yo v&p u0CpvyqjrUs V0St j No tape in uIvV.0wX[|rx]yV206zV20{ןI|Z[}vwr~vvpvq V\IvwV.0VxV`VNX[|rFZ[VN#@rUVUvwrV`VBl(]VB26V20M^VxGVNFvrr VN#^ .Yh[GhןMV.0{vww V^0v!XU vm_UUVm` 4m\ 6mr ZUvU"VsV.0V^04Bx4r0,!6r04-!j3Missing or illegal line number encountered in file .IV.0+V0 Vm@ 6mt  vUvU V004B5jFile  seems to have numbered lines. 4UECHO-ONvDo you want to continue? VBly 4UECHO-OFFThMvVs*wj%Line numbers out of sequence in file .Iv,wsV^0Vw,iVw@j jNo lines in range.Iv^VlV`MVw*jM! ^!j/Warning: Input line truncated to 94 characters. v^Vw0j.v2^v2QjTransmission error on file !v2 4UECHO-ON^ R2 v2 v&p s0RvyjP U V. j^`U_` v2v2^0R 1vu2vz=3v{=4 V.A;567 @@ALL8 9Vh: j Illegal range;!<v\d=G>vv@veB vveDvvFveHJVKV\SLn|~Mv[_N V[^ 4[t  OPVB\Q v[o,RV[|SvT^Uv[V^XvYv[_Z V[D 4[@[v=D\v=}^V`V\Gbn~dvefhV\Gjv_vlv`npV\GrvvDtVv*e6v0e4v*e7v Ve*xGzvu|v_v~v`vV\S vveDve VBv6Bev\v=zv={^R n~v[_ V[D 6[@BV\v[_ V[V 4[Z eV\v}sv}v V.(bv\ T\\&BBBj.Missing parameter in a position specification.XjIllegal line specificationXjIllegal relative specificationX jPosition not foundXj(Column specification not permitted here.Xj#String position not permitted here.!v\d^\R`v\dvmh V0+l V}0pvmtx V}0|v VUV 6UZ  V o.6|svss$m^vv\^v\^Rv\VUR E V>v[_V[^ 4[t 6[\ L^VBsEv}sv}v^ v\^v\^RS`@*@LAST@FIRST VBhv}v}vThv}=V%.!4%." v}=^v}h ^v\^RX[ vU_[[ VUP 6UR 6UT 4U\ 6U^ 6Ut Z[v["(v[2^RV>>,Av>> X[|~ V[[. IZ[v^v[^R >*s) v>>" v +v>"^ RX v_* V` 6r 4Z>6|sH^Rvs\^pR u vso.zV0604k4s=VBss* 0=6|s= V04k&vssd$0$$:@V04sz(6sz(6s@=^vs^R VE0H[vt:E ^VQ0Rlvt<Q ^VI0J}vt;I ^vt^R v[ vU#j[U(v[U 2 V[<vU[ #"g"F g[UPZ^R TEv?>v@>vA>vB>vC> ^ R"VBM $T_ '7[&v_(B*VGe,v\.^0v2B46e8v;J:B<v<R>B@v:HBBDeFv=HBJXr`L \`* NV\PZrR 1Tv\V^RVE0 VB:E"vEE"vD:Ev\^VQ0v<Q"VI0v;I"Bv<RBvD:HvEHv\^v\^RVE0HvEE vD:Ev\^VQ0R" v<Q 0VI0J;v;I B$v\)^.v\3^LRN V>:4@:H PV><4@<RRvTvJ V vI &X";I ZvI\h^V"I0`vIbhd V;I0SfvS;Ih nhS<@j vR<@lvnvR p vQ &r"<Q tvQvxV"Q0zvQ|~vF<Q `vDXE|H":E   * ZEvEE"vG^vG^R TE = D K R Yv>?^v>@^v>A^v>B^v>C^Rh@FH:?:@:A:B:C(^xRj@FH:?:@:A:B:C^$TR$^hU$hXh|U$rhm$| ,m $ V0 $Zh$vh$^%R% DpUH%$TU !l ! ##!,!,!G%(Vq0!l%,jFile  is not available for writing.%0!e%4jFile & does not exist, or is not accessible.%8!e%<jFile  is in use by someone else.%@!e%DVq0!l%HjFile  is not available for reading.%L!%P^%\VN!%`hp%dVN#%hvx%l!%pVN#%tvx%xv\%|^%R%XU% VUU. !%ZU% vU%^%R% XU|~% VUU. !%ZU%vU%^%R%v\%v&V0.65"& jUSE file abandoned.&v.06& ^&H R &Mv&RV0""D&WV0@"H&\jMissing or illegal string.&a!&f^&kv&pvm&u vnom m"&zVn0m"",& Vn n ."|& vnn &vmn &"L&vn"& vn &v\&^&R&v &V0"& vmad&VBm"&6m|& v&V0#I&v.0&6a"md|&#& vma}&VBm#&6m|& v& v.00&6a"m}|& v"&Xm!|~& Vmm.0#0&Zm& Vmm..#@&vmm"& vm !&^'R'vL'vT' vEDIT31' v!' rUd' j is missing. ERROR' b'#O'`@b<40,($  p56789:;<=>EDFGntu}5efghjluvxz}~ UkV@ mTigQ%{Xfl!W{|#$u$S$Sji# w,vEDIT8 ?Q J J  J ^ ^  &J    f J !"#$J%&'()*+,-./0123J456789 J:;@<@= J>^?^@^A^B^C^ JDEFGHIJKLMNOPQRSTR (C) COPYRIGHT HEWLETT-PACKARD CO. 1976$R ALL RIGHTS RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,#R REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT THER PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD CO.2p*,*cr$EDITORdR *ENTRY*nVN xDUHVU vVWv&%vX ]v5vEDIT00v!rUd R *** PROGRAM RESERVED FOR FUTURE USE ****'R 'vL'vT' vEDIT31' v!' rUd' j is missing. ERROR' b' z'`@b<40,($  p56789:;<=>EDFGntu}5efghjluvxz}~ UkV w,vEDIT9 `B J J  J ^ ^  &J    f J !"#$J%&'()*+,-./0123J456789 J:;@<@= J>^?^@^A^B^C^ JDEFGHIJKLMNOPQRSTR (C) COPYRIGHT HEWLETT-PACKARD CO. 1976$R ALL RIGHTS RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,#R REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT THER PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD CO.2p*,*cr$EDITORdR *ENTRY*nVNxDUHVUvVWXv&%vY ^v5vEDIT00v!rUd R2 >>DELETE # <<v%t V20 vZ[,v\ VB] VM jNo lines in WORK file.^ j No such line.$ n).\3 3V20 n8^ R2  vv^ v  !v > 0$ &x+^R VBM vM;@M"8VB_3v=_v=Ifv=Dv=VH0 R2 >1 LI IN REC TEbnzv?@v::v@Av::vABv::vBCv::vCv: VE. v<Q:njS`VQ. v;I:vHH"uvEE8HvD:EvG^ R2 1 LI IN REC"vaF$&VR0>(XUQ|R"* v<U<U , v<U<U .ZU0 v<R<R2 vR<@R"4njS`6 v;I<8: R2 REM N[] REC<vaS>@XUI|J"B v;U;U D v;U;U FZUH v;J;JJ vJ;@J"LV;INvII"P nh;I`R vR<@T vS<@Vvb=X)Z^pR u vco.zV0604X4c1VBcc* 016|c1 V04Xvccd$0$$:@V04cz(6cz(6c@1^vc^R VE0HOv_:E ^VQ0R`v_<Q ^VI0Jqv_;I ^v_^R  vd vU#jdU(vdU 2 Vd<vUd #"^"F ^dUPZ^R jaNvNa^ R "VBM$TZ 7&vbZ()*VGA,v].^0vb2)46A8vb;J:)<vb<R>)@vb:HB)DAFvb=H)JXe\L \\* fNV]cPZeRTv]V^R VE0 VB:E"vEE"vD:Ev]^VQ0vb<Q"VI0vb;I")vb<R)vD:HvEHv]^v]^ R VE0HvEE vD:Ev]^VQ0R  vb<Q VI0J"vb;I )$v])^.v]3^LR N Vb>:4b@:HPVb><4b@<RRvfTvgJ V vIf g&Xb";I muZvgI\S^Vg"I0`vfIbSd V;I0SfvS;Ih nhS<@j vR<@lvfnvgR p vQf g&rb"<Q tvgQvxVg"Q0zvfQ|~vF<QOvDbXE|Hb":E  ZEvEE"vG^vG^R  TE,3:AHv>?^v>@^v>A^v>B^v>C^R h@FH:?:@:A:B:C(^xR j@FH:?:@:A:B:C^ lR mvh nvU ov] xv |vij ~VBi v????  T. v#  v: V004B5 Vi T. vk3$""0$ B3 V/0k4B76B16Bh R2 TABS 4UECHO-OFF jF #," 2a" t$l V .000% v&a C Xl|h Vl, 6l k"| v   jF#,6A jF#,"1" Zl jF #," AJ" 4UECHO-ON v/k v7 j  j F 7 VW DYUJ VU, jUSE file no longer accessible  vW hY8 @Y9U Y . jNumber encountered in USE file.  hY VB6 j v8OY v9?Y 7 v06  c j)Total line length exceeds 255 characters.  V..6i| vm  vm V v  V.& v" Vi>+ vj  vi vhh  ! VB` '!XU! vl_UU! Vl@ 4l~$! Vl0#4h$! jNo control characters allowed.! V.,! v U"! !ZU!T.n.!R2 TEXT!"!m *S!v2!.!v2!VB$X! V0//P!X!R2 #! !"VB$!$ V0//P!*!, Vß8!.v.2!0v5!2^!4vn!6Xl!8 vo_ll!: Vo` 4or !< Vo\ 6n!>vn!@Zl!BVl08!Cvl"!D Vl !Fv!H/!J Vo@ 6ot $!Lj-Missing space or colon after the line number.!N!P vl !R!TVcP!VjMissing or illegal line number.!X!Zv,c!\v2!^\%06%09!bVBh66..!d vno !fVBn!gve!h Xl|h!i Vl,!jvpl"%h $m"/" !lVn,p!nZl!p vnn !rq!t vp!v vpn e!x vnp"!zq!|\%06%09!V.0.!V%06%06%P 6.!j-Type only the number of the line you want to .!!ן=!v2!^!V004B5!v5!v.!^"bR2 //"d v"fXU"h v UU"jvl_ "l VlA6lZ"nZU"p vU""r vU"t"v"@@HELP@STOP@ASK@BREAK"x"|Vq"j"Illegal or unpermitted //-command.""" 4q.C"Tq "R2 //H"T.z"j(Type the number of the line you want to " V%.4%.4%P q"j, followed by a colon,"jand then the line, e.g.:"j"j0 # 150.4: Here is my line of text."j"z"j.""jType the next line you want to ."(jHTo terminate this operation, press the BREAK key before pressing RETURN." ן4004B5"vhh ""R2 //S"V&0" jK"NOP"njKr"njS`"jK"`"VB-"D$">d "b"R2 //A"V.0400-"j//ASK cannot be used here.""vs""V]" Vb"jNothing permitted beyond the // command."" P"j The string in //ASK is too long.##v#v5#vm## R2 //B# V.0# ן4004B5#v5#v.2#^#j//BREAK cannot be used here.#a#vhh #V..#^$TR $^hU$hXq|U$rhl$| ,l$ V0 $Zq$vq$^%R %XU% VUU. ,%ZU% vU%^%R % XU|~% VUU. W%ZU%vU%^%R %v]%v&V0.65& jUSE file abandoned.&v.06& ^&H R &Mv&RV0"&WV0@&\jMissing or illegal string.&aa&f^&kvs&pvl&u vool l"&zVo0l"& Vo o .& voo &vlo &&vo"& vo &v]&^&R &v &V0k& vl[d&VBlW&6l|& v&V0&v.0&6["ld|&& vl[}&VBl&6l|& v& v.00&6["l}|& v"&Xl!|~& Vll.0&Zl& Vll..&vll"& vl !&^'R 'vL'vT' vEDIT31' v!' rUd' j is missing. ERROR' b''`@b<40,($  p56789:;<=>EDFGntu}5efghjluvxz}~ UkVT{fm|ni uEDIT0 < J J  J ^ ^  &J    f J !"#$J%&'()*+,-./0123J456789 J:;@<@= J>^?^@^A^B^C^ JDEFGHIJKLMNOPQRSTR (C) COPYRIGHT HEWLETT-PACKARD CO. 1976$R ALL RIGHTS RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,#R REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT THER PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD CO.2p*,*cr$EDITORdR *ENTRY*nVNMxDUHVUMvVWv&%vX v5vEDIT00v!rUdM a#@@`@P`p@HP h !"#$ RP >>READ ERROR FILE<<vEDERRO v DUVBU j%Error file EDERRO cannot be assigned.bLR2 *PROMPT*Qj>VF[ `-P@SCAN@DUMP@CLEAR@//STOP@ INITIALIZEevjo TYRRQ t#j>Commands available: SCAN, DUMP, CLEAR, //STOP, and INITIALIZE.y ~vZY" R2 *SCAN/DUMP*hV`VBZjSupply file name for dump:FDU VBU6U@j cannot be assigned.rh[\V\*jNo errors to report.b R2 *SCAN LOOP*v]v^#V]*\(h] _`ab%&'LT-VBZ2j7jZ/@ Error number:^<v^^ AjZ/@ Heading: FjZYear:bDay:aHour:`Minute:_KjZCommand number:%PjZ Program #:&Error #:LLine #:TUjZNumber of last //-command:'Z _ j Bad formatdbi h.201456njZLast prompt (P0$): sjZPrompt character was: xjZInput type (V0):.Input return (V5):2}jZ Input from (1=term, 2=USE file):0 Use mode:6 h c-jZWorking strings: jZ A$=<> jZ Z$=<> jZ A1$=<>jZCommand name: jZAccount number: jZVZ| v Continue? XVY0 jZDefinitions: <> jZ FROM file: jZSCRATCH file:  Created (0=no, 1=yes):- jZ WORK file:  jZ USE file:  jZ KEEP file: c  h>)*+3jZText handling strings: jZ B$=<>> jZ W$=<> jZ W1$=<>jZjZLocal increment:) jZLocal automargin:*jZLocal line length:+jZLocal display (0=off, 1=on):3jZVZ" v Continue? 'X,VY0 @R2 ***END OF ERROR ENTRY**Ev]O JR2 **DONE**VBZjZ/@End of error file./@End of error file. R2 **CLEAR** h[j[Xd@|[jd`!Zd&blR2 **INITIALIZE NEW ERROR FILE**qjLength of file EDERRO? vF{6|eAje jSupply the number of records. R vU j F ן V , j5Response limited to YES (or return) or NO (or break). f v  @@YES@NO  VBY %^ *vY /^ 4vY 9^$TR $^hU$hXY|U$rhf$| ,f $ V0$ZY$vY$^'R 'vL'vT' vEDIT31' v!' rUd' j is missing. ERROR' b''`@b<40,($  p56789:;<=>EDFGntu}5efghjluvxz}~ UkV%$&'EFGHT kuEDIT1 ( ? J J  J ^ ^  &J    f J !"#$J%&'()*+,-./0123J456789 J:;@<@= J>^?^@^A^B^C^ JDEFGHIJKLMNOPQRSTR (C) COPYRIGHT HEWLETT-PACKARD CO. 1976$R ALL RIGHTS RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,#R REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT THER PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD CO.2p*cr$EDITORdR *ENTRY*RP >>ERROR<<NU VNjjVLJ&j5A serious error occurred during the execution of the  command.vUEDERRO vUpDUVHVBV "j)*+3LvXO QVNjVjWX[-`vXWejWXR2 ***CHAIN TO EDITOR FOR RECOVERY***vEDITOR v jRecovery in progress.rVdj"Recovery attempt failed. Sorry...bR2 *** ASCII FILE ERROR ***j(Attention needed for your output device.j2Please attend to the device and retry the command.#R2 ***CHAIN TO ED0000***(vEDIT00- v 2rVd7jProgram EDIT00 is missing.'`@b<40,($  p56789:;<=>EDFGntu}5efghjluvxz}~  ($ w,EDIT2 `U  J J  J ^ ^  &J    f J !"#$J%&'()*+,-./0123J456789 J:;@<@= J>^?^@^A^B^C^ JDEFGHIJKLMNOPQRST NUR (C) COPYRIGHT HEWLETT-PACKARD CO. 1976$R ALL RIGHTS RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,#R REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT THER PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD CO.2p*,*cr$EDITORdR *ENTRY*nVNvVWvX Sv5vEDIT00v!rYd RP >>//COMMANDS<<f \'d555V&. :vEDITORv!rYd jMissing parameterj'' is an illegal file name. jIllegal formatjFile length must be numeric; ' ' is not.jCharacters after command end.  j3Record size must be numeric and between 64 and 255; j' ' is not.j'' is an illegal library name.!j:Only BASIC formatted files can be lengthened or shortened.j!File length already greater than Z records.j%Maximum file length is 32767 records. " j7No room in your account (or system) for temporary file.$& j*File length already less than or equal to Z records.(*j[! is an illegal number of records.,.j4You may not purge your WORK file while using EDITOR.02j6You may not shorten your WORK file while using EDITOR.46R2 *CRE ERR*8TYYq:j already exists or is a program.<>&jCFile name bad, no such account, invalid access, or bad file length.@Bj"Insufficient space to create file .DFj,Insufficient space on system to create file .HJR2 *PUR ERR*L jFile NTYPj is in use and cannot be purged.RTj is not accessible.VX j does not exist.Z\jFILE command '' was unsuccessful.^` R2 *ASSIGN ERR*b jFile d TYdzfj is available for read only.hj j is protected.lnj% does not exist or is not accessible.prtj cannot be assigned.vx j is in use.z|j is available for write only.~pV'.>\U^R2 *CREATE*v]@ V W X v V W6|^  VH6|]  V]@6]@ Y7VY< jFile  purged.A^xR2 *FILE*} V vFILE-v 4YVY*WjFile  created.^ R2 *LEN/SHORT* , v` X\"|~ V\\ 0TO$ V\\ 0BY(Z\ v` v\ 6|Z VBZ v\" X "v'DYH,VYE1VNs6h;VN@}EVNJCOR2 *LEN*Tv\Yv]@t ^V`cv^\hmv]\"rV^0]wv\]"^&AG ^|h\va^V'0VB`VZ@ahv[Zv[a ZV[V_VB` VZ>av[Zv[a"ZV[,vbV_dV_vV_4'0&v_vP[R2 *COPY* vcvdR2 *REC LEN*!V`y&ha+X\0j5Z\:ve\? R2 *PUR ORIG*DD$I>\NVB\YOjTask failed; file  being restored.PV'0nQ>\URnSjRecord a in file  destroyed.XjTask failed; file  no longer exists.Zj(However, a complete copy exists in file .[ j7You must use $FCOPY immediately to copy the contents of\j 4 to another file. DO NOT RUN EDITOR BEFORE YOU COPY]jBECAUSE EDITOR WILL PURGE !bbgV'0cl>\Uq<\[evV\{DYHvcvdD$>\ v- jFile V'0 j lengthened.^ j shortened.^R2 X\|a8[hc\hd\vYcTYhc^jd^hcjd jd`Z\^ R2  v %VB-#*>Y/VY0=4v^[9>V_VCDbYHHVBYcMj*Someone else is using your temporary file.Rv_dW^\v_a^ R2 vHv\v\\  V\ V\\.  v\\ ^ R2 v_  v\o. V\ V0 ^ 4TIM V\ . $ V\"0 )^ .v_ 3^ ` R2 evED Z jt^ o 6^d| tv^[ y ~V_2 vU ^ R2 *CAT/GRO/LIB* vf v Vd * ) v j v! T'"r} vCAT-  vGRO-  vLIB- 'jFNAME LENGTH RECORD NAME LENGTH RECORD NAME LENGTH RECORD v 4 V  ןb   vb l  !H & v\_ + v\  0 5^R  v\ vY#j\Y(v\Y 2 V\T<vY\ #"f"F f\YP'Z^R  vgo, Vg,6gvg"vg &^0v:vD^$R $Y$ TY $#j=Someone else is using an EDITOR scratch file in your account.$$j,No space in your account for this operation.$$j*No space in the System for this operation.$p$^$v_$^%R %XY% VYY. ;%ZY% vY%^%R % XY|~% VYY. f%ZY%vY%^%R %v_%v&V0.65& jUSE file abandoned.&v.06& ^'R 'vL'vT' vEDIT31' v!' rYd' j is missing. ERROR' b''`@b<40,($  p56789:;<=>EDFGntu}5efghjluvxz}~  UkVf(T&'){ uEDITR > E  J J  J ^ ^  &J    f J !"#$J%&'()*+,-./0123J456789 J:;@<@= J>^?^@^A^B^C^ JDEFGHIJKLMNOPQRSTR (C) COPYRIGHT HEWLETT-PACKARD CO. 1976$R ALL RIGHTS RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,#R REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT THER PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD CO.2p*,*,*<jEditor/2000 Version 2.0dR kVN%n xvEDITV%*# Fv0 6%|  v@rUdjProgram  does not exist!% R2 *ENTRY FOR EDIT31*t 1 RP >>EDITOR<< #@@`@P`p@HP h !"#$ R2 ---INITIALIZE---vK$v&) vV(-W/5%'2. v0367)*+3v@8t4= ן.#B 4UECHO-OFFGXLן..XQ 4UECHO-OFFVj^[tX` 4UECHO-ONe VX0@Xj v1 *"o`tv1yvY~v.A000v ED Z 64d| >X `R2 ---GET WORK FILE NAME---v. v WORK file? VVT2$PR2 ---ASSIGN WORK FILE---vvZ#v[(#-VV2V\7 is not a BASIC formatted file.<AFVP>K 6K6K |PjThe WORK file must be at least  records long.UxR2---TRY TO READ ENVIRONMENT---}h Y{{VN{V`{nh]^ h  _ is not an EDITOR WORK file.VN%v3hK" .=R2 ---READ IN WORK FILE ARRAYS---VN=nhK` nh;a hK"NOXvvIQ vJ;@ vM;@ vR<@ vS<@vF<vDvEG v=Dv=j1WORK file not closed properly after last session."v'jRecovery in progress.,@R2 ---RECOVERY FOR EDIT31---Ev&JvV5WOv0367TvYvZ^v[c#hVVm R2---RECOVERY----r&wv|VBVj4Recovery failed. Purge and recreate your WORK file.bR2 ---CLEAR WORK FILE---v)`nj]^j@R2 ---REPORT ENVIRONMENT--- 6M|VM0?vsD!v& TM_q+j line of text0}5j BASIC statement:}? j COBOL lineDj in your WORK file.IjK"N v+" Sv&Xv] Tb%glqv{XXhhUVX0U v ZXhUVp0U4 6_  v hXUVx0X4@ 0U4 / v hU VD 0UG v hXUVH 0X4L 0Uf v hXUVP 0X4T 0U v  XXX ` hUVX0U v ZXV04d 6.4Bd  v ,HY V v ,DEv%  v%v%X*v/v4 V 9 V .">uC^H7@,LBA,R@,DId,FRd,I@,AU,ECO,WM%@,/x ,PAGEX ,PAU,TA@,HER'@@,PAGI,FA@@,TO@,BW,FI,N@,C\7@,LBO,R@,DI},FR},I,AU,ECO,Wa%@,/x ,PAGEX ,PAU,TA@,HEf7@,LBH,R@,DI},FRd,I,AU,ECO,Wk%@,/x ,PAGEX ,PAUP,TA@,HER2 v  HEWLETT-PACKARD EDITOR/2000 - Nb vcvd nhb`vedI[@ cdI&&@@ x [yL[jzDL@S dJanuaryFebruaryMarchAprilMayJune$dJulyAugust SeptemberOctoberNovemberDecemberdSundayMondayTuesday WednesdayThursday dFridaySaturday3Xfe&!e&!$!fffhZf v   vgcx 4d&d&  Xh`|~  Vc>bh g Zh  Xf|h h Zf $ v    ) .6c"bh "g$cx |    3 8 6dv|    = B G^ L v    Q^ V v   , [^ R2 vV  vi ) VV] V` VN XFK |P hF 0 hFH:?:@:A:B:C TH j:?   j:?:@  j:?:@:A  #j:?:@:A:B ( -j:?:@:A:B:C 2ZF 7VN% <j` A) FV`! Kh Phj> U Vj@6jj Z3 _ djK"` injK` nnjSa s jK"NOP xj2Recovery completed. List all to verify contents. }^R l @@A@dd@O@ x X @@@@@@@@nh]n^vvv v  v@v_^R  vX vU#jXU(vXU 2 VX0<vUX #"k"F kXUPZ^dR fvljhjVBGOlvVn^pVH0rR: ADD TO CURRENT RECORDtVE.qvvC>xzvCB|VE.~vB>vBAVE.vA>vA@v@>XUH|E~ v:U :UZUv:E jvDjvEE vGvHH  vM;@M vV^VR~ VJ~ Yv[mVB[VN6O,P vV^VE*vnE ,vnER: WRITE CURRENT RECORDhFBn@$EUVE*Ijj>Xon |jZoY R: WRITE NEW RECORDjm "nVE@|jj>XUE |j:U TU"j@jAjBjCZUXU|n"jZUvDjVE*vEE vi:EvEvFmvijvG VR~  R: SPLIT INDEX BLOCKhS@@U nh<| vp<nj[a n<| nja j| [hS @@U"nja$ j@@ S& R: ADD ENTRY TO M()(XUJ|I ~* v;U ;U, v;U ;U.ZU0v;I p2v;I [4 vJ;@J 6VQ@ 8vR@ :<vQQ@ >vR| @vS[BvII D R: ADD ENTRY TO N[]FhSH@$QUJVQ| L nh<| "QNhSP@$QURjimTVQ| "VnjaXjR SZ nhS<@\vQQ E0^ vR<@`vVb vM;@M d^XR ]VNbVO,Psgvml^qvmOO vVO0P{jO `^vmNhNN^ R VE0HvEE vD:EvV^VQ0R vl<Q VI0Jvl;I $vV)^.vV3^LR N Vl>:4l@:HPVl><4l@<RkRvqTvcJ V vIq c&Xl";I .E6ZvcI\^Vc"I0E`vqIbd V;I0SkfvS;Ih nhS<@j vR<@lvqnvcR p vQq c&rl"<Q tvcQvtxVc"Q0zvqQ|t~vF<QvDlXE|Hl":E ZEvEE"vG^vG^R h@FH:?:@:A:B:C(^xR j@FH:?:@:A:B:C^R nrn`nansvDMNvEGHIJ;@QR<@ vFO<K v;K  vS<@K  v? Dummy line 0v@ vAvBvCnjK`njSa $ jK"NOP(VP,K ,jK `0^@ R EvqJV`Oh@Tvc@ Y^vc@cV`h vPq c&mhPrVP0qwvqP|vcPV`%^ R VWV-Wv >UVU0dvoP"VVD iUHVBUj*Someone else is using your temporary file.vV^v-WvV^ lR <4 IN> nvU ovV xv |vt ~VBt v????  v V004B5 Vt j  j F e Vu DvUJ VU, jUSE file no longer accessible " vu hv8 @v9U v#;\ jNumber encountered in USE file. " hv VB6J j v8Ov v9?v e v06   j)Total line length exceeds 255 characters. " V v  V.& v" vt ! VB`  !XU! vo_UU! Vo@ 4o~ ! Vo0#4h ! jNo control characters allowed.! "!ZU!R2 TEXT! '!v2! F!v2!VB$ B! V0// h! B!`$!ן U!v2!^!V004B5"!v5!v.!^"bR2 //"d v"fXU"h v UU"jvo_ "l VoA6oZ "nZU"p vU""r vU"t "v`@HELP@STOP@BREAK"x""|Vw!"~R2 TASK?" VB.06&0!q" ".@`CREATE`PURGE`FILE`LENGTHEN`SHORTEN"`CATALOG`GROUP`LIBRARY"""VBw!q" V!Y" v"v'w"v%@ "vEDIT32"v!"j"Illegal or unpermitted //-command."""$" 4w."."Tw!!!""R2 //H"$P" ן4004B5"""R2 //S"V&0!" jK"NOP"njK`"njSa"jK"`"VB-!"D$">X "b"R2 //A"V.0400""j//ASK cannot be used here."""vx"% "VV" V"M"jNothing permitted beyond the // command.""" P"p"j The string in //ASK is too long.#"#v#v5#vy## R2 //B# V.0"# ן4004B5"#v5#v.2#^#j//BREAK cannot be used here.#$#V..#^$TR $^hU$hXw|U$rho$| ,o"$ V0"$Zw$vw$^$R $U$ TU "#%%$#j=Someone else is using an EDITOR scratch file in your account.$#w$j,No space in your account for this operation.$#w$j*No space in the System for this operation.$$$^$vV$^%R % DZUH%$TU $&###%%###%(V[0$&%,jFile  is not available for writing.%0$%4jFile & does not exist, or is not accessible.%8$%<jFile  is in use by someone else.%@$%DV[0$&%HjFile  is not available for reading.%L$%NvV%P^%\VN$?%`hZ%dVN%%hv\%l$I%pVN%%tv\%xvV%|^%R %#j>Specify the name of your WORK file or use //CREATE to create a%j'new WORK file (e.g. //CRE-MYWORK,100).%^%R %XU% VUU. $%ZU% vU%^%R % XU|~% VUU. $%ZU%vU%^%R %v&V0.65% & jUSE file abandoned.&v.06& ^&H R &Mv&RV0"%F&WV0@%J&\jMissing or illegal string.&a$&f^&kvx&pvo&u vnoo o"&zVn0o"%.& Vn n .%~& vnn &von &%N&vn"& vn &vV&^' j Fatal error, unable to continue.@'`@b<40,($  p56789:;<=>EDFGntu}5efghjluvxz}~ TUW%c%&0&2A{&.&4kVin% w,ELMENT` ?#R **** HP BASIC PROGRAM LIBRARY ******************************R ELMENT: DRILL ON SYMBOLS FOR ELEMENTSR 36267 REV A -- 2/73#R **** CONTRIBUTED PROGRAM ***********************************N  0@d!j j NAMING ELEMENTSj jWHAT IS YOUR NAMEfMh LPMEP #X@}(L-Z2X@|7L$@$@"@<L!$A L$@"FZGL678KX@|PlU X$@|!Zh 0_Z$djijWHAT IS THE SYMBOL FOR   ?nuE@sjx W0@V@<0 j CORRECT!!L66@jNO. YOU ARE WRONGL77@ jYOU ARE TOO SLOW.L88@jTHE ANSWER IS 0 .Zj j8-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-j P jjYOU GOT 6RIGHT.jjYOU WERE TOO SLOW 8TIMES.jjYOU WERE WRONG 7TIMES.j!j9-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-`,$dALUMINUMALARGONARASTATINEATBORONB-%dBROMINEBRCHROMIUMCRCARBONCCHLORINECL.'dFLUORINEFCALCIUMCA BERYLLIUMBELITHIUMLI/%dBARIUMBACOPPERCU GERMANIUMGEHAFNIUMHF0"dHYDROGENHHELIUMHEIRONFEIODINEI1'd POTASSIUMKLEADPB MAGNESIUMMG MANGANESEMN2#dMERCURYHGNICKELNINITROGENNNEONNE3$dOXYGENOGOLDAU PHOSPHORUSPPLATINUMPT4$dKRYPTONKRRADIUMRARADONRNSELENIUMSE5%dSILICONSISILVERAGSODIUMNA STRONTIUMSR6#dSULFURSTHORIUMTHTINSNTITANIUMTI7#dTUNGSTENWURANIUMUXENONXEZINCZN8&d ZIRCONIUMZRCOBALT0COCADNITLCDIRIDIUMIR`0ENG  `c R ** SOLO * ENG VERSION * RANDY WONG * 07/31/76 **R ** HP-2000 ACCESS * EDP RESOURCE CENTER **R ** REVISED: 10/11/77 * P.VIXIE * MULTI-FILE READ **( R ** REVISED: 11/16/77 * P.VIXIE * ONE-LINE DESCRIPTIONS **2NH H0H@HPH`HpH<OHՔHH H Fp*Pj2 WELCOME TO THE "ENG" SERIES OF ENGLISH LESSONS.ZjWHAT IS YOUR NAME dfnjx#L@j # CORRECT:`Hj PERCENTAGE:d%`&@@R\bfR ** DELETE SPACES FROM C$ **pYN0@~@z V0NN<  L0N0N@[N^R ** DATA FOR ONE-LINE DESCRIPTIONS **dENG001 STATEMENTSENG002 NEGATIVESdENG003 PLURAL FORMSENG004 DEMONSTRATIVE PRONOUNSd ENG005 TO BEENG006 TO BE: NEGATIVE FORMd0ENG007 USING THE VERB 'TO BE' IN QUESTION FORM.d"ENG008 INDEFINITE ARTICLES: A, AN#dENG009 SIMPLE PRESENT TENSEENG010 POSSESSIVE ADJECTIVESdENG011 OPPOSITESENG012 PREPOSITIONS#dENG013 OBJECT PRONOUNS"ENG014 'PRESENT CONTINUOUS TENSE'd0ENG015 PRESENT CONTINUOUS TENSE: NEGATIVE FORMd%ENG016 PRESENT TENSE: QUESTION FORM d ENG017 'THERE IS' - 'THERE ARE'ENG018 WORD REVIEWd4ENG019 SIMPLE PRESENT TENSE OF HELPING VERB 'TO DO'$d-ENG020 PRESENT TENSE OF HELPING VERB 'TO DO'."dENG021 NUMBERSENG022 SEASONSENG023 TELLING TIME8dENG024 PAST TENSE: TO BEBd6ENG025 PAST TENSE: TO BE, QUESTION AND NEGATIVE FORMSLd!ENG026 PAST TENSE: REGULAR VERBSVd#ENG027 PAST TENSE: IRREGULAR VERBSENG028 COLORS`d!ENG029 PAST TENSE: NEGATIVE FORMj!d!ENG030 PAST TENSE: QUESTION FORMENG031 FARM ANIMALStdENG032 ADJECTIVES AND ADVERBSENG033 FUTURE TENSE~d1ENG034 FUTURE TENSE: NEGATIVE AND QUESTION FORMSdENG035 MONTHS OF THE YEARENG036 CONTRACTIONd2ENG037 COMPARATIVE FORM OF ADJECTIVES AND ADVERBSd0ENG038 SUPERLATIVE FORM OF ADJECTIVES AND VERBSdENG039 REFLEXIVE PRONOUNSENG040 PLANTSdENG041 PRESENT PERFECT TENSE!d:ENG042 PRESENT PERFECT TENSE: NEGATIVE AND QUESTION FORMSdENG043 VEGATABLESENG044 GOING TO: FUTURE dENG045 OPPOSITESd0ENG046 GENERAL DESCRIPTION OF ENG LESSON SERIESR ** ROUTINE FOR ONE-LINE DESCRIPTIONS **V$ZXƞ@|$ i Zj   DO YOU WANT  @` (f2V@@0Y@<V@@0NFj#PLEASE ANSWER EITHER 'YES' OR 'NO' PZ j=/Pd XǞ@\ ni xk Z /@ =`ENLIS `PSCOTTJEFFREYSCHOOLSUMMERTRIPCARPOOLSINGTREEROPEI qqkMUSIC5I ukNEWTN2I yTkNZYM2 I kNZYMC I ~kORBIT I ^kORG1 I 9kORG2 I 6kORGCHEI kPHOSYNIERASE  ? N  p*j2DANGER --- THIS PROGRAM WILL ERASE ANY FILE (jType NONE to abort.2/@ file name <fFvP V0NONEZ D@$HdW$njErase  are you sure xf V .YES X@N  V`@ j@`Zj@RECORDS ERASEDjInvalad / not accesablej No action taken2`ETRE  `l R-IDEA TAKEN FROM 'VOCAB' WRITTEN BY RANDY WONG AND JUDY "R-SOKOL. ETRE IS COPYRIGHTED BY CRAIG SAUNDERS FOR THE FOREIGNR-LANGUAGE LAB OF LOWELL HS, CA.-APRIL 13,1976(R-DATA FOR SUBJECT/PRESENT/PAST/CONDITIONAL TENSES2&dJESUISAI ETESERAISTUESAS ETESERAISIL<+dESTA ETESERAITELLEESTA ETESERAIT TOUT LE MONDEF*dESTA ETESERAITNOUSSOMMES AVONS ETESERIONSVOUSP*dETESAVEZ ETESERIEZILSSONTONT ETESERAIENTELLESZ)dSONTONT ETESERAIENT LES AUTRESSONTONT ETESERAIENTddONESTA ETESERAITnR-DATA FOR PLURAL PREDICATES/ADJECTIVESx(dPENIBLESEGOISTESAIMABLESBETES CLASSIQUES SYMPATHIQUESdRUSSESUNIQUESTIMIDESR-DATA FOR ALL PREDICATES/ADJECTIVES)dSOUVENT EN RETARDTOUJOURS A L'HEURE CHEZ FLORAAVEC LES AUTRES%d DANS LE SALONDANS LA SALLE DE BAINSDANS LA SALLE A MANGER'd EN FRANCEAUX ETATS-UNIS AU CANADA EN ITALIE EN RUSSIE&dEN TRAIN DE DINEREN TRAIN DE DEJEUNER!EN TRAIN DE TOMBER!*dEN TRAIN DU SKIDANS UN MAGASINA LA SURPRISE-PARTIE A LA PISCINE&d AU RESTAURANT AU CONCERTEN FACE DU STADEDEVANT LA PORTE(d A LA FENETRE DANS LA COURDANS LE JARDINA LA TERRASE D'UN CAFE!dDANS MA CLASSESUR CETTE PHOTOAU SUD DE LA FRANCEdAU NORD DE L'AFRIQUEA L'OUEST DE L'ITALIEdA L'EST DE L'ESPAGNER ---DATA FOR SINGULAR PREDICATE/ADJECTIVES%dPENIBLEEGOISTEAIMABLE CLASSIQUERUSSEUNIQUEdTIMIDE SYMPATHIQUEBETER ---D1 (DURATION OF THE DRILL);D2 (NO. OF SUBJECT/VERBS);"R ---D3 (NO. OF PRED/ADJ)-----,vFx 6vGX@vHT J#j;BONJOUR, VOULEZ-VOUS LES INSTRUCTIONS EN ANGLAIS, (OUI/NON)^fhV@@,Orj4THIS IS A DRILL ON THE PRESENT, PAST, OR CONDITIONAL|j3TENSE FORMS OF THE VERB 'ETRE'. THE OBJECT OF THISj5DRILL IS TO SEE HOW MANY PROBLEMS YOU CAN COMPLETE INj3THIRTY SECONDS. YOU MAY ALLOCATE YOURSELF UP TO 20 j7SECONDS PER PROBLEM. TYPE IN YOUR ANSWER AFTER THE '*'j5AND REMEMBER TO HIT THE RETURN KEY AFTERWARDS.--NOTE:j3THIS TERMINAL CANNOT PRINT ACCENTS OR CONTRACTIONS.j IGNORE THEM, JUST TYPE THE VERB!jN 0@PvXXXXXjjTIME PER PROBLEM (1-20 SECS.)fVVVPPj#PAST, PRESENT, OR CONDITIONAL TENSEfPw@&VP@@0PRb0w@:VP@@0CObDw@NVP@@0PAbXbjl V.XXXXXvj'D'ACCORD,OH!...COMMENT VOUS APPLEZ-VOUSfjOK , MAINTENANT...Uj jj$j@****************************************************************P@ w$t$DFGwFF@vPXXX( wGX@} h 0@*Z4W@\>v 0HW`\Rv @\W`zfnpz X@|Hh0Zj ??? 0 . *tVWPjVP0 VWjWRONG,  THE CORRECT ANSWER IS  wtt@.jTOO MUCH TIME,  THE CORRECT ANSWER IS  wGG@vWV. j CORRECT, $w$$@.wDD W8WD,F=%jA*****************************************************************BjL jTHE RESULTS...VjBATTING FOR THE HOME TEAM: ` jTIMES AT BAT: FjjHITS: $t jMISSES: t~ jFOULS: GjBATTING AVERAGE: }%$'FjjWANT ANOTHER CHANCE (OUI/NON)fV@@*N j ET BIENTOT, j`FACT 7 bR FACT, PROGRAMED BY ALEX ATHAS, EDP RESOURCE CENTERR 400 MANSELL ST. SAN FRANCISCO (HP-2000F)RN H0@RR A$= ANSWER ("T","F" OR "N").$R B$= SOLUTION (IF HUMANOID GIVES WRONG ANSWER 2 TIMES.R B$ WILL BE PRINTED).8R C$= FACT (FACT THAT IS PUT TO HUMANOID).BR D$= CONCLUSION (CONCLUSION THAT TESTS HUMANOID).LR E$= HUMANOIDS ANSWER ("T","F" OR "N").VR`j3THIS PROGRAM WILL TEST YOU ON MATHEMATICAL SYMBOLS.jj ANSWER QUESTIONS WITH:tj T, IF CONCLUSION IS TRUE.~j F, IF CONCLUSION IS FALSE.j( N, IF CONCLUSION IS NOT DETERMINABLE. j ========== L@Mth 0@ X@@j#jFACT: 0, CONCLUSION IS @jCONCLUSION IS (T,F OR N) fP@@VP0<V@jWRONG, TRY AGAIN.  Zj WRONG, THE ANSWER IS , BECAUSE IF  VPZ(L@2<jRIGHT. FMtt@PZ)j IN THIS TEST YOU GAVEt!RIGHT ANSWERS OUT OF 10, WHICH IStP%.dj n`xR ==[#1]==dF#d>X=Y=Z, THE CONCLUSION IS TRUE,BUT IF Y=4 AND Z=2 IT'S FALSE. dX=Y>=ZZ>=XR ==[#2]==dN#d=X=2, Y=4 AND Z=3, IT'S TRUE,IF X=2,Y=4, AND Z=1 IT'S FALSE. dX=ZZXR ==[#4]==dNd.X=Y=4 AND Z=2 IT'S TRUE,IT'S FALSE IF X=Y=Z. dX=Y>=ZZ<>XR ==[#5]=="dN,&dCX=2,Y=4 AND Z=3 IT'S TRUE,THE CONCLUSION IS FALSE IF X=3,Y=4,Z=2.6 dX<=Y>ZZ>=X@R ==[#6]==JdTTdZ MUST BE =Y>ZZY>=ZZ<=XR ==[#8]==dN$d@X=Y=Z IT'S TRUE, BUT IF X=4,Y=3 AND Z=2 THE CONCLUSION IS FALSE. dX>=Y>=ZZ=XR ==[#9]==dTd)Y IS LESS THAN X, AND Z=Y THEN IT'S TRUE. dX>Y=ZZ=Y<=ZZ>X`FCOP  > ? J  J      J< !"#d(J$ %&'()*B2"J+,-./012345678 9:;<R (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1975FRP$R ALL RIGHTS RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,Z#R REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT THEdR PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.n p*,*,*,$FCOPYC,$FCOPYMxN<P=P>? @PAHBPNCDEFGHv6FCPtHVHP j v6@0 6H|66@v7#, A v*@B v9&p s0Rv:&p dWv v0123456789ABCDEFV0 v`v @v"v, 6v @@v @Jv($Tv@^nIh @@`@P`p@Hr h+,-./01234|nh/,Jnh0,K 4&,/TIM d Version 2.vLAvM,v+h=V<0= bvNxbV0. kj<R - External entry point 4OECHO-ON&vPx 0vQ/,:vR,DvS@NV0, XD.QbVQ@- lvThvbV`. h.@.Q vT@  RVS0P TvRPXU,@ U -   U"P -   vSUZU vUS*h/U4 / ; K &>j ** MODULEP IS MISSING **HbRh/S\VS.P f Tph/<z h/VW nh/Wh/S \V! 0X \V"37HpvPXV`/ h/<S vS+ RvY+vNZ *+ OT $.F)8 B .0- LV0. Vv,` jr[tV[., ~vNcbvN-vDbh.)) vT.  v@)V:,.& O v,",vNd ( v[o;2V[0+ v<v),[",F v[ ,P Zv)dvnQx )*+ vX-^v[- V[)  V)[[0  v[[ , v\[ , V)\\.  v\\ ,  v)[ ,)\) X[,) _)[@  vT1", 6Z[@v))J V),-0// 6TT]  !^vX.h^rvN^|vT_VX0, ^vNgvT2 TX ! ^  TX"3 vYY , vLZ ,P YjT` {vN3:&j0 :va+DaNbXva+bal4\BYEvvX,^va+a v(FCOPYr(dv , v - v , v -vNXC:  vNi * 4Vb.+ >vT/HR vco),\Vc.+*fvc) ,pv[,zY 6)c ,)|[ V[,,6[[ Vc"bP UvTr vd, v<)b ,c",vACAT-vA0<4BAvD<VA0P0B,1vTT   VB33.A vTN $ .D<.QH 8VQ@ BvTh L VV`. `v< jv - th.[ ~v-  vT@   v)). veXh   R *COMMAND* Te Te"1=== 4f) Vf0+ Ve.,3 vTD  (vTr 2 <vNs F Pvg, Z4=) dV=0 nVgP p xvh, M vg+ Tip j= =d  vgg , v)/- v)0=b l  v)P_)P , K vjo), Vj.+ vTt   vko)j ,, Vk.+ "vk) , ,vl@ 6( @vkj k J )"k",P T 6)k ,)|l ^Vl@4l@4ll( hvTv r | Vk"jPK 6)j ,k",|kK Vk>,4k4kkU vTx  vmo)- Vm0+6m*j Q)m ,) VQ0+ vTQ@  &^ 0vNei :: D^ NR XvLNP , bvM, l v<  Tn j  j  ^ R TM n vM- Xo-@ o -3:! o"L -/>: vpo Zo g vop h0o * 0O^gg 4h0p >Vp0Ln HC Rh0< \C fv`- p^ zv`, 0.- h0< vn, ^ vn- ^ R vLNP , vM,  V`0-J vg+ vqo<@Vq0+vG<VD0$v<qD.vD8BVE0Lv<qEVvE`jv<qFt V<<.  ~ v<<,<", v<< ,Gq ,<vgg ,Vn0-JVgP vh,MTiJvX,^ R *D0$*Xr,) V)rr. m(Zr2 v))r)< Xr)|,~,F V)rr. PZrZv)),rd^nR *OPTIONS*xvs+ V$t.03v,v -v-v , T!!!!!v-v,v-v,v-v -v ." )0+,vC)6 vuoC,@Vu.+JvuC ,Tv)C,u",^Qh )*+:rvTL |vNtvTP vD)VX0,Vs0+vTP Xv,phwxvTT ,Xy,|sVw0zy8X"-4x0zy:X"-ZyZvVsP&vTP 0:^Dvss ,NvzsX"-X VuC ,bvCCu ,lvV@@@`@@@P@`@@@P`P`@@P@@`p``HPXv,|sTzv6>FNV^fnv~v -v ,v,v,v,v, v- v,*4v ,>Hv -R\v ,fpv,zZvV ..v ,vT+^Rv ,T vNTpV0,vNbv, v(FCOPYr(d$ 0+.vNe8BLvVj`^jvTtr[~V[.,)vNcbvN@vDbR *NEWS*V 0-J^R *CONT*j Th\j j CONTINUE? w( jWILL YOU WAIT? 2F>,.<Xi,>F V>ii. PZiZ v>>i>dV>0nv>>x V>,,0Y V>,,0Nj4** TYPE 'YES' (OR JUST A CARRIAGE RETURN) OR 'NO' **\vi,vi-j^R #1 h/Z]^_ ^R #3h/dt{^"R #4,h/t6X|,X @v%t|+JZ|TvX-^ V$t.03ThvZhrv/|v], TXq[tv%t,,v%t-,v%t.+^vU,v}+vX- V),,.  )0+v))- v|o), v~o):|$-~ ,& |"~ -!0vS-:DVU0.NvS.Xv|~blv|) ,vvS/ 6),|",| V>,4' V).LAST V}}&-$-v,VU0.6S0.;v}} ,v%t}v}} ,v%t} V|) ,X,|}",~-V%t*%t ,4%t ,., V%t ,,%t -6%t -@+vTF *Z4q>V}H HvTER\vTl fpBz v))| ,)vUSR #5h/V$-0,4$-0,4!HvA*",X `",X X vB*",X `",X X VA0BvX-^vTOvX,^R #6h/t$v/. V$t.00t8 V$t.034!0,BV$t.026$t.03LvZjVv],` jTXttv%t,,~ 6)|%t,V%t,@4%t,%t,vTV _vZkv], TXVT.+vX-^ v,vX-^(R #72T!<vd-Fv<Pvt`Zv{-dnVX0-x^ v(FCOPY1( v(FCOPY2V0,<vO.v?.r(dj ** PROGRAM ( IS MISSING **bR #8h/aVa.+ vBCAT-FCP4AB VA,..FCP 6A/0|Q">QA,1,p6nI@JD$aTv$a,,^ V$a2.-h>Q*a",X ,a",X Xrv$a2,|vX,^R #9vX-h/TV).v46)|  V>+44vTG,6)|& V>,44vTH&vX,0^:R #10Dh/NvX,X^bR #11lh/5vTZiev$..5iv#)vX,^R #12veXhvX,^R *MATCH*vM,vLNP ,vX- Vn0- vXX ,* vo<@4V),",.<,",> v<< ,<H vbo)-RVb.+\vb) ,fV),b",0<,b",pzvX,^VNvv!X"-^R *FILE*XU,X v$tU@ZUv+vU, T{DWee^v<)@)P^v<#LPV<.$v$t-..v$t.38v$t1-Bv+Lv,V` XS,< ,jv,tVS0,4_<F _<H _<T ~ VS< ,  vm_<S Vm@ 4U.0 Vm@ 4U00Vm` 4mr 6mA4mZVm\ VmX VmD v ,v ,v ,v , TU):Ody T2!vU-( TCX2vS<vU.FP TXZvSdvU/nx TmvSvU0 TvSvU1 T6<S@<|$t@6<S<|$t@V$t@>,4$t@$t@vTP!vT4!"ZS,V.+6v< ,@ V<,,0#J_<H _<T 6TTvACAT-^ vA0<,",h4BArVA0P0B,1K|vTh! VB330A VB330F| VB330M|vTUvDA0! VB44.Pv$t4- VB44.Lv$t4.  VB44.  v$t4/ 6BXx|$t/! &6BL T |$t0 0 : v$t0@ D NR - ASCII Xv$t-- b 6Bpx|O lv$t.- v  dMTPRPPCRLPTC X.|2 hA VBhp0AI Z vT4 ! v$t.  R - NOT IN CAT v$t1- D<,",,Q!VQ@-! TQ"-~!!!!!vTh! !!*vTp!4!!> D<,",-Q!HVQ*-!RD$@!\D$@!f!p v$t-$t.-!z!R - #!v$t-$t1$t2-!!X.|3!hA! V<-.0A!Z!vT4!!!V.3!v$t-.!v$t1-!v$t2," _</L)"v$t4,"G"$ _</R@".vTK@"8!"Bv$t4-"Lv4"Vv8^"` 4OECHO-OFF"jj8"tt,OA"~ 4ECHO-ON" VO>+A>3"vTM@"!" V$t3"vTK"!"v$t." R - CHECK READ/WRITE"v$t." Td   +"V.04.2 ?"vTX#!# V./4.1 ?#vT`#!#(V@.604 ?#2vTh #<!#F Vp6@ ?#PvTf #Z!#d V0, ?#nvTD #x!# V0.6006>3 ?#vTW#!# V0.60/6>3 ?#vTZ#!# R - CHECK SUBFILE#V$t30,60,60.60/601604 g#vTP#!# R - CHECK MASK# V$t-., #V0+ $ v$tP-$ v"< ,",$ $"V0+ $,vTX$6!$@ V$t20- $Jv<<,",$T!$^ R - CREATE FILE$hvA<-",$r VAA.  $| vAA,A",$ $ A0-!$ A..!$ 6A..|!$!$vT4$!$vBFILE-$vB16$vBXt@$ vB`,$vBhA$4B%V.+!y%v$t2-%v*tX PtX <,",%& v<B1X%0 v$tX"-%:!%DV00!%N vTZ $t.%X!%b vTJ $t.%l%vvX,%^%v*t",X `t",X X <%v*t",X ,t",X X<%v%t,,%v%t-,%vX-%^% j ** ERROR **%`569:hvwEIJKLMNQa14& rp      0}yu P ! % ) - 1 5 ; ? C G K"<S"$c"&;<~=>jngiklme+|xf){! w, FCOPY0 A K 5Ҕ 6J9:hӔvwEIJKLMN KQa<Ք14& dJ rpB"K      0 ”R (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1975R$R ALL RIGHTS RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, #R REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT THE R PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. p*,*,*,$FCOPYC,$FCOPYMNPPPܔ PHהPNǔHwFCP t "WP&$ w@0& 7}@'w #, A( vp@B) w&p s0R*w&p dW+w, w0123456789ABCDEF-W08.vh`0vw@2v64v66:8vhwN@:vv@<v$>v4@@nB @@`@P`p@HD i     Fnh SHnh cJ 5 TIML d Version 2.NvAPvRv&TVhPXV0P`Zvx\\^b`Vh1dbjdR - External entry pointe 4ECHO-ONfv;x gv/hv<nv@pVh1EVA0v~hX&b0V` X:h D@ NXv~@ bXlRV0;v<;X@ Q!8$Q";!B8v$Z8vBh L  VjNNj ** MODULE; IS MISSING **PbVh XV.;LZjh tLh => nh 1>h  \=@'T^  D W \=#  v;1jV` h vRvnvg +ThG p 1f Vh1>*vh4>ri5@Vi/HBvcD\FbHvRwT\\bfh pzv~X wӔ@WӔ;.& w#vd vio;Vi1wi# wi! Lw w L ` + jvj t^ vi Vi  Wii0  vii!  vki! Wkk.  vkk!  wi!k  Xi ( _i@  P 2v~ <X F PZi Zw d W0// nTl x xvj ^ vm v~e ! Vj1 ^ vg v~ ! Tj'  ^ r Tj#  + 0  vnn! " vg!P n 'j ,p 6T+ O @ @v J Oj T ^v c Z hb rv w Z |4kBYE vj ^ v  Z v4FCOPY rd vv  vv  vw  vw vjC   +vi ,\ . 0V|/ : 2v~ 4 : vxo, DVx/ b Ivx! Nvi X i b 7x!|i d Vi-6ii e Vx"|P  h fv~r g hv i v|!x# lvCAT- nv  p5 qw rV P1  x tv~T v x W  .A { yv~N z {DH |V@  }v~h ~ V`  w vw h i vh  v~@ X  w vjh t tR *COMMAND*u Twwwwwwv T# w~~~w4fxVf1yV/|zv~D{|v~r }~vs\v)4PVP0V)P wv)TjP Pd v))!w - w Pb l wP_P! vo,V/v~t  vo!,V/v!v@v  "#P 7!|V@4@4v~v  V"P 7!#|V?44v~x  vo-V16* <!#V1v~x  vo-V1 >!V1v~@X^vĠi^RvP!v& T2j(2j 7^RT@vX@ a!a"!vZ,vh   ,,h V0@h ",v+6^@v+E  /hJh Tv^^hvr^\RfvP!pvzV+1v) wo@W1wW0vwW0vwv V.  v# v!!&v))!V1V)P wTvj^R *D0$*X W. Z w X}~ W. Zw^R *OPTIONS*v V1 vvE vvE T''''vvN v v vN vIKLMvJ 1v vo,V/(v!(w#2< +dFv~L Pdvtnv~P swx!Vj1V1"v~P Xphv~~!X|V08j#40:j#ZZVPv~P X^v!vj# V!v!"V@@@`@@@P@`@@@P`P`@@P@@`p``HPX|T&:NbvvJvJvLvKvMvv&vN0:vEDNvEXbvIlvvZVJ/vIv~^XRZvwbThdddv~epf\hVh1jvbl\nvhp v4FCOPYrrd 1ve\&wj^v6~ri5Vi/vc\bv@w\bR *NEWS*Vw1\^R *CONT*(j*U262 j CONTINUE? 4<6 jWILL YOU WAIT? <GFXP W. dZZd w֜nW0xwܟ W0Y W0Nj4** TYPE 'YES' (OR JUST A CARRIAGE RETURN) OR 'NO' **2vvj^@R #1B h g&lmeDF^TR #3Vh X#(Z^^R #4_h `XX avrbZdvjf V1 vhvghjv& lvlnvTj~xxvrzvr|vr~^vvvj W.  1w vo, vo:%! "!'vV1vvv!v  7#| V?4 W.LAST V'%vV161v!vrv!vr V!X|#Vr*r!4r!.Vr!,r!6r!Av~FZ~VH v~Ev~l Xh w!vR #5h V1414H vp#X `#X X wp#X `#X X V1  vj ^ v~O X vj ^ R #6 h  v&  V1    V1 41 < V1 61  ( vgj vl  Tj :   vr  8  7|r " Vr@4rr 8 "v~V $X &  (vgk *vl 0 2Tj : 4 4 4 6V~/ ( 8vj :^ <vN >vj @^ DR #7 ET N P P F N N P N P P P Fv Gv Hv` Iv J#( KVj1 N L^ N v4FCOPY1 O Q P v4FCOPY2 QVh1 T RvO Sv? Trd Uj ** PROGRAM  IS MISSING ** Vb WR #8 Xh  ZV/ | b wCAT-FCP h4 j V.FCP x l 6  | x n>  p h xn z |D$ ~v V / >p#X !#X X v  vj ^ R #9 vj h  T W. vŞ  7|ń V?4Ű v~G  7|Ƅ V?4ư v~H X vj ^ R #10 h  vj ^ R #11 h  T v  v vj ^ R #12 vjh t vj ^!R *MATCH*"v"vP!"vj"$".V1""8vjj!"B v{o@"`W{#.{#"$"a v{{!"b v|o-"dV|/"j"fv|!"jW|#0|#""~"$"X"vj"^"Vv""vj#"^#(R *FILE*#,XX#0 v@#4Z#8v#<v#@ T#D#L#T#T#P#Dv@P#H#P#Lv#LP#PV.#l#Tv#Xv #\v #`v#dv#h%x#l X!#pv#tV14_F _H _T ##x V!##| v_# V@ 4/ $ # V@ 41 ##V` 4r 6A4Z##V\ ##VX ##VD ##$#v!#v!#v!#v!# T####### T#$$$'#v#$ # T$ ##$$ #v#v#$ # T$ $#$$ #v#v #$ # T$$$#$#v#v #$ # T$ #$ #$#v#v #$ # T$$$$$ $6@|@$$$ $6|@$$ V@?4@@$$$v~P$&l$v~$&l$ Z$$V/$,$(v!$, V0#%$0_H _T 6$$4vCAT-$8 v #$<5$@V P1 $L$Dv~h$H&l$L W  0A$$P W  0F$d$T W  0M$d$Xv~U$\w $`&l$d W.P$p$hv$l$$p W.L$|$tv$x$$| W. $$v $7הXx| '$7הL T | $$%x$ v @$%x$R - ASCII$v$ 7הpx|$$v$%x$$$dMTPRPPCRLPTC$X} $h$ Wהhp0$$Z$v~$&l$v$%x$ R - NOT IN CAT$v $ D#$VA$$ T#$''$''$v~h$&l$v~p$&l$ D#$V+% %D$@%D$@%%x% v%%x%R - #%v  %$% X} %$h%( V0%8%,Z%0v~%4&l%8V/ %t%<v%Dv %Hv %J _ L%P%Lv%N%X%P _ R%V%Rv~K@%T&l%Vv%Xv%Zw0^%\ 4ECHO-OFF%^k0%bu%c 4ECHO-ON%d V?? %h%ev~M@%f&l%h V %t%lv~K%p&l%tv%x R - CHECK READ/WRITE%|v% T%%%%%%%%V/ 4/ %%v~X%&l%V/ 4/ %%v~`%&l%VA61%%v~h %&l% Vp6@%%v~f %&l%V1%%v~D %&l% V161 6? %%v~W%&l% V161 6? %%v~Z%&l% R - CHECK SUBFILE%V 1616161 61 61%%v~P%&l% R - CHECK MASK% V/&%V1& % vP% v !#%& &V1& &v~X&&l& V 1&&v#&&x& R - CREATE FILE&v#& V. &,&$ v#&(& &, 1&D&0 /&<&4 6|&<&8&D&<v~&@&l&DwFILE-&Hw &LwהX@&P wה`,&Twהh&X4&\V/&h&^v &_vpX PX #&` v X&a vX#&d&z&hV1 &k&i v~Z &j&l&k v~J &lX&pvj&t^&xvp#X `#X X &zvp#X !#X X&vr&vr&vj&^' j ** ERROR **'`FCOP1 > g J  J      J< !"#dJ$ %&'()*B"J+,-./012345678 9:;r$FCOPYR (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1975 p*,*,*,$FCOPYM N<= N>?@(NA BCHDH2 NE(F F NGHP NIJZNKLMNOH\ NPQdRV!03 1v - Sv R, vSx 5P , vP< vQ<R ** copy **.vTU,3vV.84BTW n ~LvX.QVvT-` dj ~ V 0- vY!} v+  RTR vR-XZ-@ Z - Z"S - v[ZZZ vZ[h/Z / h/[V[0S  h/<" ,v\-6^@v\,E /.- $Jh/<Tv],^^hv]-r^RV0, ]X^,> v__>^ V_| 4_ Z v>^^@Z^V0-40, T kV`.+ T w vt  vB,&va+0v@2 V$U..3 4v@@bTerminal6 : v@@bFile Dv@1@ *`X NvcbE&-X v@ccE",Ebv@b@bPPagel vV`> x V$V.03 z `vaa ,6a|F v@b".b".FF V$V.03 mVa0, Kj.,.@.. \j..@..v`.j.>v`` ,^//-----//@/,v`.j>v`` ,^j>^V`0+ V`P  vd,rTe v`+ j>*v`` ,4^\R^vSYP ,`vR,b dV\0- }fvf+h vgo<@jVg0+ QlvO<nVL0 pv<gLrvLt $vVM0 xv<gMzvM| $~v<gN V<<.  @ v<<,<", $ v<< ,Og , <vff , V]0- }VfP  vd,rTe }vh,^$R& V$X.@1 'V!0, (>0+60-6!0-6!0.6!>2 * +. V0-6$X..3 8/| "`-----/.B^LXi,P V+`Zij^lV$X..,6$U.., $n OX0HX- $p6H,-|Lr vM*`X t vN*p BvvjPwvd,xz^RT 0R - CompressVk., B6l|J T$U- L c cVm., l >0+  +  >0+>J k ,*b4k./ Tk  v>> ,  v>> ,J^R v>> , < v>> ,J v>> ,>^v>> , EOF ^ +R T$U- Vm.,  $Vk0/ &6m|?(v> , v>/?.?0v>/: 4[8Vk./(9v>:^;6HU-|?<v> @ v>1?0?Dv>1: HR - PUT AS MUCH AS CAN IN LINELTkboP v>> ,JT^X v>> ,<\vn+`von ,dJ"n> ,@bh vnb> o"-lpvnJt v>> ,Jonx VnJ| v>> ,>^ + VnJ T$U-v>  v> ^ v>> ,EOF^ R - NOT COMPRESST,v>TkN V$U-.,6m.,;TkQQCNv>EOF +^ T$U-[v> 6m|? v>/?.?Tkw v>> ,N:  6l|>> ,v>J +^X^,P  Z^^ v>> ,Sv> 6HU-|? v>1?0?V ,. J0+  VJJ0  vp, v>> ,:  $vp-( v>> ,* ,v_qJ.T +f0vr> ,4v_qJ8 v>rJ,_<vs>@Vp0,J*q6 ,.60,fD v>> ,\HT mLV 0-}P v>s ,q 3TX^,|_~-XV^0_\v?J^^ ,`d v?,-J^^hAl v>> , p v>> ,BtZ^x|V 0-~ v>s ,q 3X^,|_~-v?J^^ v>> ,  v>> ,BV^0_ v?J^ ,^ , v>> ,BZ^V0-40-v?v?,svt+X^r|s v__>^V0-6_a6_zi v?^^- v>^^>^ V0-6_|  v?^^C v>^^_@vt^Z^ +Vt0+v>?,t + J@qvJJq ,Tv> v> ^dRfv>h +n v>RECORD x 6HU-|>3 +^Rvu^ vtu@vuu"t@v_u&3vuu"_$3 6td _P u|Iv@000 v@/I.I^,R6vu_?@_?-hvBjX_0|+~,l vtu&3(_nvBB ,t` p vuu"t@(_rZ_|^RvB vt_?@  vBt ,t , vt_?"t@ vBB ,t ,t ,^XRZT\vYj^2` bV0,dvYbf hj 0+lvYen prvtvjvRT 12vYj r^RvW,TTAvv,vXUvm+ V$U.03 V$U.04jV`UnT$U.zzz z  Xi,|%U,",FU<,,ZiV`U`vwHU-T$U.bbb b  THU.vxHU,VHU-,%Ux ,6%Ux ,0, V%Ux -0+V`UnvHU,x - vHU-%Ux -", vHU-HU- ,hUHU-V`U`vm, vmm ,vkUTk0?XXhUlvHU.,^hUJ<vHU.,V 0-^vHU.- ^ vxHU,VHU-,%Ux ,6%Ux ,0, V%Ux -0+V`UnXi%Ux , ,|%Ux -",FU<,,ZiV`U`vHU,x - vHU-%Ux -", vHU-HU- ,"vm,#T $FUJ&<(^* FUJ,,<. Xi|,~,0 VJii.  2Zi4vJJ,i6^8Vk0.: 4iECHO-ON;j? <FJ= 4iECHO-OFF>vmm ,@ VJ,-.::RBvk.CvHU-+D^FvHU-mH<J^LV%UHU, ,0,NvjIP vL*`X RT Vk0.6$U.0,Vvk.X^ZvW-\^^ V%U,0,g` 6$U4|8//b 6%U,",|824fj8/+hFCijAAj;k Vii&-$-gl vL*`X mvjInpvxHU,qVk0.`rVHU-,%Ux ,6%Ux ,0,\t V%Ux -0+xXy%Ux , ,|%Ux -",zj9/+|FJ}jAA~ VJx ZyvHU,x - vHU-%Ux -", vHU-HU- ,j9/+T u|FJFJ, Xi|,~, VJii. ZivJJ,ijAA VJx <^vk.^LRNTTPvv-Rvz,SvXVTVV$V.006$V.>2XV`V]ZT$V.  m .K\ vHV-%V,^` Xi,|%V,",bFV<,,dZif V$V.0-hXjV!*-40-lXi,P n+pZirt V%V,0,v v80s0Rx Xy,|%V,",zj8/+|FC}jAA~ VCx  vL*p BZyT$V.X m  Vm.,6$U..,mvz, OV0HV-6w|LvjP vM*`X  vN*p Bvd,vz- vHV-HV- ,V`V]jVHV-V`VVmTku}j V$U..,O6HU-|L vM*`X  vN*p Bvj\vd,^jV`^Tku}`j jVT ^Tku}jVl^jVJ^jV`^v` V!0,4$V.03 '^Tkjl^jJ^Xi,P+Zi^Tk416l|J Jd j:J :|7.0jF7: J:,|7.0jF7Jj; vi_C0 Vii&/$/1vjP@^ 6$V4|8//v815Cj8FCjAAA^vz-^vjI vL*p BRj Td~( j Continue? *, jWill you wait? . 4iECHO-ON2FG,.<Xe,GF VGee. PZeZ vGGeGdVG0nvGGx VG,,0Y VG,,0N,j4** TYPE 'YES' (OR JUST A CARRIAGE RETURN) OR 'NO' **xj 4iECHO-OFFTd)  j Waiting...^ v(FCOPYr(dT B~X^,J v__J^V_k vJ^^P_ ,_ ,{vJ^^Q__Z^^@RJv{+Tv|,^v}-hv~.r V{+|V|`v,v-V|`V|.+v`v|v|`6|E vEE ,:6{|F  F0-  vEE ,0  vEE ,F &T/ 0vEE , A.M. := DvEE , P.M. Nv} XXK|~", bv[@ l ֯&/$/.` vv , Z  X,| -&2$2 . hF Z vEE ,F vEE ,, 8 v+ X,` h V.-~&/$/.~ v ,!V >}! v !Z! ^!*X,|!4hF!>Z!H vEE ,F!R vEE , !\ 6}"|EE ,!f vEE ,, 19!p 6~|EE ,!zdSundayMondayTuesday Wednesday!dThursdayFridaySaturday!&| p | x | x | | x | x | !$dJanuaryFebruaryMarchAprilMayJuneJuly! dAugust SeptemberOctoberNovemberDecember!^!R"vR,"vSYP ,"vh@"$ ".V]0-."8vhh ,"B vo<@"`VK@@.<@@"av<<@<"b voK-"dV"f vK@"jVK@@0<@@8"~""vh@"^"R *STATUS*"v80^"j8/+"FC"jAA" C.2J" vi_CC" Vii&-$-#vjM# # v80u+ p1C#vii&-#^#R$ v(FCOPY$r(d%R %v,%0v=*XX T XX X%d V$X.03%f V$X.04 7%h T$XP%vD=XH%%D=X"H%Tv+%V@%V0,6 0-%jFile now available.% v$X@@%n% V4@%V0,6 0-M%jFile now available.%v$X,-% V$X`P% V$X`pB%V`X%Xi@|$X@@%T$X`   %@X@ %V`X% hXOX@%%vjI%& jXT & &V`X&FX<,,&& D=X&*Zi&4 vHX@@&>vHX@%X@&HTv&Rv>&Tvk@&V vHX`@&\^&fT!-yy---y-yyy&kV$X.@16$X.034!0,6$X.04y&pvp@&zT NX&vbH&^&vbB&V `|&vq $ @$ @@&^&vqb@"@p&^&V0.&V0-&V.0&j6FCOPY cannot access files with record size >256 words.&&T & T$XX &vjJ&vL=& &vj`&&vjK&vL=&& vj$X.N& & vj$X.L&vd-&&v-&PiC&Vi,+&vjS&& v8 &p u p2C& 6$X4|8//& 6$X@|813& 4iECHO-OFF&j8/+&FC&jAA&;& Vii&-$- &Tv & 6$X4|9//&& 6$X4|://& vi_C1&/& Vii&-$-&vjP&'v=*XX XXX 'vjI''vjM''vjM@' ' vjP@' ' j **ERROR**'`569:hvwEIJKLMNQa14& rp      0}yuP`       +Z\(U%)j~WVYX]^[|!FCOP2 c J  J      J< !"#dJ$ %&'()*B"J+,-./012345678 9:;r$FCOPYR (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1975 p*,*,*,$FCOPYM N<=  N>?P(N@ ABHCH2 ND(E F NFGP NHIZNJKLMNHd R ** TASKS **T!"I . "I"I"I"I"I R ** STORE **vOPQ,XR,Pv$,R,ZR vSo# VS0+ o v#S#S ,# N vRo#,VR.+ vR# , v*,X#,R",v*`X *,XvBCAT- vB0*,X4CB VC,10*,1 vTT vK*`X  _C3F_C3M  _C3@  vTN vTU vK*`X (2TQ # ;3vUV,4v%,,,6v%,-,<'ZvIFILE: d vI2*,Xe VII.  jf vII,I",g NhvW.ivX-jvYP,kVQ0, lvP-mn vI FILE LENGTH: x6CXx|$,/"IvIpCXxvP- vIRECORD LENGTH: 6CL T |$,0   v$,0@ 6$,0|I@  vISTATE:  vI3C44v?vP,=vJIvZXvX-"vP-,T[ * .VY., Q0VZ.. >2vXZ4 6v>R8 6GO-|>-: A<TZ Y  @6\|>B6>|]DV\.] {Fv>NH6\|>-J AL Nv>DP6\|>-R AT6\"]|>V AX ZV$..0.oJ0+ [X\,J\ v]_J\^ V]@ 6]~ `Z\bv>Sf Ahv>Jj Al nv>Cp J|>-r AtX\,Jv _J\|>x AzZ\| ~v>E AvXZ V?0 3vI?vX-vIF Rv^? V^>O  v?^ ,>,P"^vI?v? v>>Q"^> Dv?^ ,> v?? ,^ V$W.03  vK*`X v_F VR# , v##R ,vQ- NvIXvX- V$...3SXR,P &+0ZR:Sl R ** RESTORE **mv##n vRo# pVR0+ -r v#R#R ,#t vvPO,xv%,,,zv%,-,=V[0-6X.- VI,,0XvS+vRS ,vSo#R, R",VS.R", ~vS# ,VR@S", vT[X`R|S", va_#`Va` 4ar 6aA4aZ vTRZ` VII.   vII,I", V#RS",0I2  VS# , \vP- = I*-  VI,-.F   A">bI2$ Tb ,,"I,(vTJ)vKI2*+ v*Z n I2, v*p BI24vP->=H 6Ip|$./"IR=\ 6I@ |$.0f,,0?L} "I 6>-|\ j.\   j.>  6>-|\ vJ X],|\  6>|^ " vJJ ,^ $Z] &j.J ( *6>-|\ ,j.\ . 06>-|\ 2 46>|] 6j.\ ] 8 :j.` < D$. v_F vK*p B  VS# , v#R#S ,  VR0,S v#R", = V[0-6X.- VI,,.X X vTV vK#  vTQ  R v> ?.+F = o?0+I@- v?I v^o? V^.+d  v>> ,? - v>> ,?,^",  v??^ ,? ^ v>I v? ^ ( R ** COMPARE ** -va+ 2vP, <vO, == >v`[ @V[0- FTX PvR\ Z dvJI nvSX xvO- }= vP- V`.[} V[0- VS.X TX VR0\  VJ0I vaa , T h Va.,D v_D  +/, FILE *`X P FILE *D X /, 6G,-|K "6G--|L ,1KK` LL 6Va>} 8 vG,.G-.- : @v_E J6a|K T V `"[ - W vK*D X  X Y vK*`X  ZvTI [ ^vTY h rv_E |6a|K  S R ** APPEND ** vb/+ D*,X,bH Vb.+ D*\ B -bH Vb0+ vTp  v*Z n 6 v*d d A b*\ B  Db*Z n  v D*\ B -bH h., vS. v`- p vS, j-$-/ , p D$. >b*Z n  T$-4(3V> vBUNR- E vBPRO- E vBPRI- vB0*\ B  4bB vK*`X  vL*D X  S R V`S V`` S hS\ j`\  hSI j`I  j`` * hSOS , 4 j`O` , > H^ RR ** LENGTHEN/SHORTEN ** Svb/+ T D*,X,bH VVb0+ XvTp Z \ v*Z b 6 f v*d d A hb*,X rV!Xs s, vvTL w xb*Z n   D*,X,bH vS. v`, h., p D$. >b*Z n  T$,4#D. vBUNR- 5 vBPRO- 5 vBPRI- vB0*,X 4bB vK*`X  S V 0-h v_!} v+  v(FCOPY r(dRTcvc-Xd-@ d -d"e -vfdZd"Ivdfh/d /h/fVf0eh/<",vg-6^@vg,E /.-Jh/<Tvh,^^hvh-r^\Rfve_P ,pvc,zxVg0-vi+ vjo<@Vj0+vN<VK0Kv<jKvKgVL0av<jLvLgv<jM V<<.  v<<,<",g v<< ,Nj ,!<vii ,xVh0-ViP !`Tkvl,^RjI^XRZT\v_T^2`bV0,dv_bfh j 0+lv_enprvtvTv RT (:2v_T`^Rv[,TPJvV,vUOvY+' V$O.03 V$O.04sV`OcT$O. "I"I Xm,|%O,",FO<,,ZmV`OUvnGO-T$O.ggg"Ig"I  TGO.$voGO,VGO-,%Oo ,6%Oo ,0, V%Oo -0+V`OcvGO,o - vGO-%Oo -", vGO-GO- ,hOGO-V`OUvY,)vYY ,vXOTX9H]]hO\vGO.,^hOIvGO.,V 0-^vGO.- ^ voGO,VGO-,%Oo ,6%Oo ,0, V%Oo -0+V`OcXm%Oo , ,|%Oo -",FO<,,ZmV`OUvGO,o - vGO-%Oo -", vGO-GO- ,"T $FOI(^* FOI,. Xm|,~,0 VImm. 2Zm4vII,m6^8VX0.: 4mECHO-ON;j? <FI= 4mECHO-OFF>vYY ,@ VI,-.::KBvX.CvGO-+D^FvGO-YJ^LV%OGO, ,0,xNvTIP vK*`X RT VX0.6$O.0,VvX.X^Zv[-\^^ V%O,0,\` 6$O4|8//b 6%O,",|824fj8/+hFBijAAjk Vmm&-$-\l vK*`X mvTInpvoGO,qVX0.UrVGO-,%Oo ,6%Oo ,0,Qt V%Oo -0+xXp%Oo , ,|%Oo -",zj9/+|FI}jAA~ VIx ZpvGO,o - vGO-%Oo -", vGO-GO- ,j9/+T jqFIFI, Xm|,~, VImm. ZmvII,mjAA VIx ^vX.^LRNTPPvV-Rvq,SvUWT'VV$W.006$W.>2XV`WKZT$W."I["I|<\ vGW-%W,^` Xm,|%W,",bFW<,,dZmf V$W.0-hFjV!*-40-|lXm,P n+pZmr|t V%W,0,v v80s0Rx Xp,|%W,",zj8/+|FB}jAA~ VBx  vK*p BZpT$W.F"I["I VY.,6$O..,[vq, OW0GW-6n|KvTP vL*`X  vM*p Bvr,vq- vGW-GW- ,V`WKjWGW-V`WD[TXck X V$O..,=6GO-|K vL*`X  vM*p BvT\vr,jW`^TXckNX jWT ^TXcksyjW\^jWI^jW`^vs V!0,4$W.03^TXj\^jI^Xm,P+Zm^TX"6\|I Id j:I :|7.0jF7: I:,|7.0jF7Ij vm_B0 Vmm&/$/vTP@^ 6$W4|8//v815Cj8FBjAAA^vq-^vTI vK*p BRj Trlz( j Continue? *, jWill you wait? . 4mECHO-ON2FF,.<Xk,FF VFkk. PZkZ vFFkFdVF0nvFFx VF,,0Y VF,,0Nj4** TYPE 'YES' (OR JUST A CARRIAGE RETURN) OR 'NO' **fj 4mECHO-OFFTr j Waiting...^ v(FCOPYr(d! R ** MATCH **"vc,"ve_P ,"vl-"$x".Vh0-"8vll ,"B vto<@"`VJ,t",.<,t",C"a v<t<t ,<"b vtoJ-"dVt.+"fvtJ ,"jVJ,t",0<,t","~C""vl,"^"R *STATUS*"v80^"j8/+"FB"jAA" B.2" vm_BB" Vmm&-$-#vTM# # v80u+ p1C#vmm&-#^# R ** TERMINATE **$ v(FCOPY$r(d%R %vu,%0v=*UX T UX X%d V$U.03 x%f V$U.04!%h T$UP^i%vD=UbH%q%D=Ub"H%TVw%Vb@!%Vu0,6 0-%jFile now available.% v$U@@%% Vb4b@!%Vu0,6 0-%jFile now available.%v$U,-% V$U`P _% V$U`p %V`U \%Xm@|$U@@%T$U` "I 6 D"I D"I"I%@U@ b%V`U ,% hUOU@% \%vTI%!D& jUT &  \&V`U W&FU<,,& K& D=Ub&*Zm&4 vGU@@&>vGU@%U@&HTV ~ &Rv>&TvX@&V vGU`@&\^&fT! &kV$U.@16$U.034!0,6$U.04 &pvv@&zT  &vwH& &vwB&V ` &vx $ @$ @@&^&vxw@"@p&^&Vb0.!>&Vb0-!4&Tu!!p& T$UX!&!L!Z&vTJ&vK=&!d&vT`&!D&vTK&vK=&& vT$U.N&!d& vT$U.L&vr-&&vu-&PmB&Vm,+.&vTS&& v8 &p u p2C& 6$U4|8//& 6$U@|813& 4mECHO-OFF&j8/+&FB&jAA&& Vmm&-$-"?&TV!!& 6$U4|9//& _& 6$U4|://& vm_B1&/& Vmm&-$- _&vTP&'v=*UX XUX 'vTI''vTM''vTM@' ' vTP@' ' j **ERROR**'`569:hvwEIJKLMNQa14& rp      0}yuP`     ~+)j(|YUX"UFCPYC> `tx PCPa}KdsB@IR[@ @@P @** UNIT: CLEANUP @d P P d AKUdsCkMV@\bbbbbbbbbbbbPf@vZ ** UNIT: TASK? @@d @@"** UNIT:COPY - CLEANUP SOURCE FILE @`x x x Pg@@** UNIT:UNIT - FROM WHICH FILE? `@Z F`@@@!** UNIT: COPY - CHECK SOURCE FILE@@Z P@@*** UNIT:COPY - CHECK SUBSET OF SOURCE FILE@@P@`'** UNIT:COPY - CLEANUP DESTINATION FILEP@`Z UUPi@@** UNIT:COPY - TO WHICH FILE?`@KZ`@`@%** UNIT:COPY - CHECK DESTINATION FILE P@Kn@@`** UNIT:COPY - CHECK DUPLICATES`@Kx@`'** UNIT:COPY - STARTING RECORD/OPTIONS?Ep@x ** UNIT: COPY THE FILE@@A@@#** UNIT:STORE - CLEANUP SOURCE FILE*@`x ADPl@@P@`** UNIT:STORE WHICH FILE(S)?`@}D`P@@** UNIT:STORE - CHECK FILEX@F@`@** UNIT:STORE - SAVE L$@@F@`(** UNIT:STORE - CLEANUP DESTINATION FILE@`}HHPm@@** UNIT: STORE WHERE?`@DH```@&** UNIT:STORE - CHECK DESTINATION FILEp@x  ** UNIT:STORE@`x MMPn@@** UNIT:RESTORE WHICH FILE(S)?X@P@`@** UNIT:RESTORE - SAVE INPUT@`KQQPo@@** UNIT:RESTORE FROM WHERE?`@PR`p@@#** UNIT:RESTORE - CHECK SOURCE FILE:p@x ** UNIT:RESTORE@@U@@#** UNIT:PRINT - CLEANUP SOURCE FILEE@`x ZZPp@@** UNIT:PRINT WHICH FILE? `@U_`@@@** UNIT:PRINT - FILE CHECK@@U`@@** UNITPRINT - SUBSETEX@a@@p** UNITPRINT - SET FILE TYPE`@SA@`** UNIT:PRINT - OPTIONSU@`x diPp@@** UNIT:LIST WHICH FILE?`@dn`@@@** UNIT:LIST - CHECK FILE@@do@@** UNITLIST - SUBSETX@p@@@** UNITLIST - SET FILE TYPE`@nA@`** UNITLIST - OPTIONS@`x sxPp@@** UNITDISPLAY WHICH FILE?`@s}`@@@p** UNIT:DISPLAY - FILE CHECK@@s~@@** UNITDISPLAY - SUBSETUX@@@@** UNITDISPLAY - SET FILE TYPE`@}A@`** UNIT:DISPLAY - OPTIONS?p@x ** UNIT:PRINT/LIST/DISPLAY@@C@@"** UNIT:COMPARE - CLEANUP 1ST FILE@`x CFPr@@** UNIT:COMPARE - 1ST FILE?`@B@H`@@@ ** UNIT:COMPARE - CHECK 1ST FILE@@B@K@@@@p$** UNIT:COMPARE - SUBSET OF 1ST FILE@@L@@@"** UNIT:COMPARE - CLEANUP 2ND FILE@`B@L@MPs@@** UNIT:COMPARE - SECOND FILE?`@KP`@@@ ** UNIT:COMPARE - CHECK 2ND FILE@@KR@@$** UNIT:COMPARE - SUBSET OF 2ND FILE@`KUUPt@@;** UNIT:COMPARE - STOP AFTER HOW MANY NON-MATCHING RECORDS? H@RW@@.** UNIT:COMPARE - CONVERT D0$ TO NO. OF ERRORS@@RfdfPu@@fX ** UNIT:COMPARE - DOCUMENT?IP@i@@(** UNIT:COMPARE - SET DOCUMENT? TO "YES"P@i@@'** UNIT:COMPARE - SET DOCUMENT? TO "NO"p@x ** UNIT: COMPARE@@k@@%** UNIT:CONVERT - CLEANUP SOURCE FILEO@`x nnPw@@** UNIT: CONVERT WHICH FILE?`@j@p`@@@#** UNIT:CONVERT - CHECK SOURCE FILE*@@j@s@@ NO. OF ERRORS@@** UNIT:CONVERT - CHECK SUBSET@Pj@sxDFPx@@w\ &** UNIT:CONVERT - CODE? (FOR 1ST FILE)@@z@`*** UNIT:CONVERT - CLEANUP DESTINATION FILE@`j@}}P~@@ ** UNIT:CONVERT - TO WHICH FILE?`@x`@`@(** UNIT:CONVERT - CHECK DESTINATION FILEP@x@`@@`&** UNIT:CONVERT - CHECK FOR DUPLICATES`@xA@`)** UNIT:CONVERT - STARTING RECORD/OPTIONSS@@xAB@CP}@@x^ &** UNIT:CONVERT - CODE? (FOR 2ND FILE)X@L@@@@&** UNIT:CONVERT - SET TO ASCII->EBCDICX@L@@@`%** UNIT:CONVERT - SET TO ASCII->BCDIC@X@G@@@@&** UNIT:CONVERT - SET TO EBCDIC->ASCIIX@G@@@@%** UNIT:CONVERT - SET TO BCDIC->ASCII `@@G@@`*** UNIT:CONVERT - CLEANUP DESTINATION FILE@`j@HHP~@@ ** UNIT:CONVERT - TO WHICH FILE?`@FI`@`@(** UNIT:CONVERT - CHECK DESTINATION FILE@P@FK@@`&** UNIT:CONVERT - CHECK FOR DUPLICATES`@FL@@`)** UNIT:CONVERT - STARTING RECORD/OPTIONSIp@x @@`** UNIT: CONVERT@`x NNPy@@** UNIT: APPEND WHICH FILE?O@`@MP`P@@** UNIT:APPEND -CHECK FILE@`Q@RRP@@@** UNIT:APPEND - TO WHICH FILE?R@@M@@** UNIT:APPEND - CLEANUP`@PS`P@@** UNIT:APPEND - CHECK 2ND FILE@P@PU@@@%** UNIT:APPEND - CHECK FOR DUPLICATESp@x ** UNIT: APPEND/@`x WWPz@@** UNIT:LENGTHEN WHICH FILE?`@V@X`P@@** UNIT:LENGTHEN - CHECK FILE@@`V@XZP{@@'** UNIT:LENGTHEN - BY HOW MANY RECORDS?H@X[@@@WHICH FILE?R@@M@@+** UNIT:LENGTHEN - CONVERT STRING TO NUMBERp@x ** UNIT: LENGTHENK@`x ]]P|@@** UNIT:SHORTEN WHICH FILE?A@`@\_`P@@** UNIT:SHORTEN - CHECK FILE@`\_`@PA@@@&** UNIT:SHORTEN - BY HOW MANY RECORDS?H@_a@@'** UNIT:SHORTEN - CONVERT STRING TO NO.p@x ** UNIT: SHORTEN@`@x ** UNIT: SYSTEM COMMANDICH FILE?R@@M@@FCPYM> 2XFxU@}@K Xfq{BPDJpLMQPZ@AAXABC8CD(EFXFGH8I0JKXLMP^h`HbX5** Type 'YES' (or just a carriage return), or 'NO' ***T 4** Program @ does not exist, or is not accessible **| ** You typed too much **R ** Incorrect format **f !** You can't stack inputs here **z #** No control characters, please ** G** Illegal //-command **QNo more help messages here.X[)** Incorrect format on specifying file **ee** Incorrect subfile ** o,** This file is not available for reading **y,** This file is not available for writing **Aur;** This file either does not exist, or is not accessible **F-** This file is being used by someone else **lK** Incompatible message file ** P** Incorrect record number **uU,** You must specify a formatted file here **Z#** Bad format or impossible task **o_** No trailing comma, please **ed** @ is not an option **i/** You can't have both hexadecimal and octal **n1** You can't have both hexadecimal and control ***s/** You can't have both hexadecimal and lower **x2** You can't have both hexadecimal and compress **}+** You can't have both octal and control ** A@)** You can't have both octal and lower **C,** You can't have both octal and compress **F@.** You can't have both control and compress **H1** You can't have both control and unformatted **aK@,** You can't have both lower and compress **M/** You can't have both lower and unformatted **cP@3** You can't have both paginated and unpaginated **nRe both hexadecimal and lower **-** You can't have both paginated and pause **mU@)** You can't have both narrow and wide **cd@ ** Too many options requested **f** Invalid program name **i@!** Invalid program line number **@k** Invalid record number **ln@4** Type 'YES' or 'NO' (or just a carriage return) **p** Unrecognised task **ns@&** Type 'ASCII', 'EBCDIC', OR 'BCD' **u** Type 'EBCDIC' OR 'BCD' **x@:** A formatted file cannot have more than 32767 records **ze both hexadecimal and lower **D** There is not enough space in your account to perform this task **}@B** There is not enough space in the system to perform this task **=** You must specify either a line printer or your terminal **A A** You must specify either a disk file or a magnetic tape file **rB`4** There is not enough disk storage for this task **C** Incorrect subset **D** Incorrect option(s) **BF '** The destination file is too short **oG`** Bad file name **H** Bad format **Ind lower **** Incorrect record length **iK ** Incorrect file length **sL`/** A file already exists with that same name **tM2** No such account/no such access/bad file name **N** No space in your account **P ** No space in the system **Q`!** File in use by someone else **R.** You are not permitted to purge this file **S** No such file **U 9** Incorrect format, duplicate name, no account space, orf no System space **V`"** Too many items in the subset **Wnd lower **$** Subset records out of sequence **X ** Incorrect number of errors **Z !** Incorrect number of records **e[`*** File @ is too short. Task abandoned **\** File @ is in use **]/** File @ is not accessible. Task abandoned ***_ 6** You cannot shorten the file by this many records **``3** Warning: File @ is ASCII; file @ is formatted ** a** @ is not a formatted file **mb** Duplicate file **d 5** Warning: Record @ of file @ won't fit in file @ ** e`nd lower **$** You are not using a store tape **f** Incorrect file name(s) **g** Task abandoned **i #** File @ is not in your catalog **sj` ** @ is a program, not a file **k!** @ is not on your store tape **cl>** You must specify either a magnetic tape, a high-speed paper9 tape punch, a 2644 tape cartridge, or your terminal ** n 2** A mask is only allowed with a formatted file **o`** Compare terminated **p>** You must specify either a magnetic tape, a high-speed paper lower **: tape reader, a 2644 tape cartridge, or your terminal **q** Incorrect file list **os 5** Warning: An End-Of-File mark in record @ of file @i cannot be copied to file @ **t`9** You are not permitted to use the magnetic tape unit **ru8** You are not permitted to use the paper tape reader **v7** You are not permitted to use the paper tape punch **ox 2** You are not permitted to use the card reader **y`3** You are not permitted to use the line printer **hz paper lower **(** Your "Use file" has been abandoned **{** Illegal line number **r} .** @ is the name of a program in your library,#** and cannot be purged by FCOPY ** ~`The following is discarded:uY@ESN@Ot@p//H@ELP //STO@Pt//B@YE//E@RROR//STA@RT //T@RUNCATEd//D@O NOT TRUNCATE //W@ARNINGS//N@O WARNINGS //CO@MMANDSt//US@E//FIL@Ea //PRO@TECT//LOC@KY //PRI@VATE //UNR@ESTRICT //MWA@//SWA@ //CRE@ATEY//PUR@GE //CAT@ALOG//GRO@UP //LIB@RARYA Version 2.Aer **(The following //-commands are available: - //HELP //NO WARNINGS //MWAa- //STOP //COMMANDS //SWA 1 //BYE //USE //CATALOGd/ //ERROR //FILE //GROUP@1 //START //PROTECT //LIBRARYN0 //TRUNCATE //LOCK //CREATE/ //DO NOT TRUNCATE //PRIVATE //PURGEE! //WARNINGS //UNRESTRICT/BP File created. BFile is now protected.CFile is now locked.D0File is now private.DFile is now unrestricted.EEpFile is now MWA.FFile is now SWA.F File created./GP File purged.GF NAME LENGTH RECORD NAME LENGTH RECORD NAME LENGTH RECORDH H@EXADECIMALO@CTALCON@TROLL@OWER COM@PRESSEDP PAG@INATED UNP@AGINATED UNF@ORMATTEDN@ARROW/W@IDE  CH@ARACTERPAU@SEI0Here's the news you asked for.Here's the end of the news. ICOP@YSST@ORER@ESTOREPRIN@TLIS@TiD@ISPLAYCOM@PARECON@VERTA@PPENDo LE@NGTHENSH@ORTENFIL@EvPRO@TECTLOC@K PRI@VATE UNR@ESTRICTMWA@SWA@CRE@ATEPUR@GECAT@ALOGGRO@UPLIB@RARYJpA@SCIIE@BCDICB@CDKE@BCDICEB@CDK7-./% <=2&?'@O{[lP}M]\Nk`Kaz^L~no|JZ_myjС  !"#$()*+,01345689:;>ABCDEFGHIQRSTUVWXYbcdefghipqrstuvwxLPR@ESTOREPRIN@TLIS@TiD@ISPLAYCOM@PARECON@VERTA@PPENDo LE@NGTHEN    [.<(+!&]$*);^-/|,%_>?`:#@'="abcdefghijklmnopqr~stuvwxyz{ABCDEFGHI}JKLMNOPQR\STUVWXYZ0123456789L* +-<,0 ;  ?: /. 123456789!"#$%&'()=>LPR@ESTOREPRIN@TLIS@TiD@ISPLAYCOM@PARECON@VERTA@PPENDo LE@NGTHENM:1234567890="@%[ /STUVWXYZ],(_#&-JKLMNOPQR!$*'?>+ABCDEFGHI<.)\^;  N0** Task abandoned **NCopy completed.OOpStore(s) completed.LPRestore(s) completed.PPLE@NGTHENPrint completed.QPList completed.QDisplay completed.RCompare completed.S0Convert completed.S!File @ is now appended to file @.[TpFile @ is now lengthened.>UFile @ is now shortened.U List of Non-Matching Records----------------------------VP @ @V'@ non-matching record pairs discovered. WFile @ is now restored. X0File @ is now stored.nX%FCOPY is now in the "Truncate" state.)Yp,FCOPY is now in the "Do not truncate" state.Z%FCOPY is now in the "Warnings" state.Z(FCOPY is now in the "No warnings" state.}????~P Continue?.@ iTask? @hTASK DESCRIPTION---- ----------- nCOPY Make a copy of a file..BSTORE Store a formatted disc file on magnetic tape, paper tape," or a 2644 tape cartridge.CRESTORE Restore a previously stored formatted file to its original state.t(PRINT Print a file on a line printer.0LIST List a file on your hard-copy terminal.state.Z$DISPLAY Display a file on your CRT.COMPARE Compare two files.NDCONVERT Convert a file from ASCII to EBCDIC or BCD; and conversely.EAPPEND Append a formatted disc file to the end of another formattedi disc file.a6LENGTHEN Increase the length of a formatted disc file.6SHORTEN Decrease the length of a formatted disc file. lBThe following twelve tasks, identical to their 2000 Access Command-namesakes, are also available as FCOPY tasks:  i FILE UNRESTRICT PURGEte.Z! PROTECT MWA CATALOGR LOCK SWA GROUPD! PRIVATE CREATE LIBRARYt@From which file?A@ Type the name of the file which you want to copy. Here aresome examples: Example DescriptionN------- ----------- *ABC File ABC in your log-on library.<$X,5 The fifth subfile of file X in the public library.=*GR,"LL" File GR in your group library, using the mask "LL".s&#MT0 Magnetic tape unit number 0. UNRESTRICT PURGEte.Z8#PR,4 The fourth subfile from the paper tape reader.- Your terminal (or its tape reader).t7#TCL The left tape cartridge in the 2644 terminal.eAC If the file you want to copy is in your log-on library, simplyttype its name. Examples:  B A XY1 SCR222 E If the file is in your group or public library, precede its name=;with an asterisk or a dollar sign, respectively. Examples:s M *ABC $H12 punit number 0. UNRESTRICT PURGEte.ZB If the file is in some other account, follow its name with a )period and the account's name. Examples:L  Q.A407 FILEX.B500  tF If the file in question is a formatted file, you may also specifyBthat a mask be used in reading from it. The mask must be enclosedCin quotation marks, and must be separated from the file's name by a,comma. Examples:; h0 ABC,"XQ#" $IN,"RRR" MSAGE.B100,"CODE%&" sE If the file in question is associated with a magnetic tape unit,.Ehigh-speed paper tape reader, or card reader, you may designate it byeFtyping the device's general designator (MT, PR, and CR, respectively),Bpreceded by a hatch mark (#). If you want to designate a specificDdevice, follow the general device designator with the devicea's unitnumber. Examples: s #MT #PR0 #CR1t fB If the file in question is one of the tape cartridges on yourCH.P. 2644 terminal, you may designate it by typing "#TCL" or "#TCR"dith a magnetic tape unit,.0for the left and right cartridges, respectively. aB Finally, if you want to designate your terminal as the source8file, respond to the prompt only with a carriage return. A If the file you want to designate is a subfile of the devicei?which is going to read it, follow its name with a comma and its Bsubfile number (1, 2, 3, ...). Subfile numbers are only valid forDmagnetic tape, paper tape, and 2644 tape cartridge files. Examples: g MTAPE,3 #PR,2 #CTR,22cAXSubset?ACIf you want the entire file processed, type just a carriage return.  yDIf, however, you want a specific subset of records and record rangesprocessed, type then in a list:r  SUBSET? 5,16:85,112,115:last sBThe above response means "Process record 5, records 16 through 85,Arecord 112, and records 115 through the last record of the file."uATo which file?BHDType the name of the file to which you want your source file copied.BP: You must here supply FCOPY with the name of a file to@which you want your source file copied. This "destination file"?must be a file to which you have write access, and which is notr#currently in use by someone else.  i> Please note that FCOPY will not automatically create this=file for you; if it does not already exist, you may create itn>by responding "//CREATE-,". If you wish to?create an ASCII disc file, you may respond "//FILE-,uDDS,"; for any other ASCII file, respond "//FILE-, file to<". Any of the above may be optionally followed by a9comma and a record length, if you don't want the default.iBStarting record?B You must tell FCOPY where it is to begin copying items to>your destination file. By giving it a record number, you will?have told FCOPY to begin writing data items in that record, andE?to continue sequentially through the destination file from thatfe to>point on, until the source file's subset has been transferred. m> A response of just a carriage return tells FCOPY to begin%at record 1 of your destination file.eC8Options?CAvailable options: o# PAGINATED PAUSE LOWER ) UNPAGINATED UNFORMATTED HEXADECIMALo# NARROW COMPRESSED OCTAL.( WIDE CONTROL CHARACTERS e5Type "//HELP" again for a description of each option. COption Description------ -----------om thatfe to@PAGINATED Prints the file's contents in titled and numbered pages.j?UNPAGINATED Prints the file's contents continuously, withoute page breaks.??NARROW Prints the file's contents to a maximum width of  72 characters. ?WIDE Prints the file's contents to a maximum width of  132 characters.>PAUSE Pauses with a "Continue?" prompt after every 22 lines.---- -----------om thatfe to?UNFORMATTED Prints the file's contents only, leaving out alldB record and item identifiers. Control and non-ASCII> characters are printed as they are, and are not' converted to ampersands.m=COMPRESSED Prints the file's contents, as many items to ai? line as will fit. Each line is preceded by the 2A number of the first item in the line. String data ? items are bracketed with "<" and ">" characters.ae toBCONTROL Identifies each ASCII control character by printingA its corresponding ASCII printable character in its>= place, with a "C" underneath it. For example,'+ "Control-Q" would appear as:P S Q C l" characters.ae to> in its place, with a hyphen underneath it. For5 example, lower-case l would appear as:c a L - p@HEXADECIMAL Prints the hexadecimal images of character items.:OCTAL Prints the octal images of character items.=CHARACTERS When requested in conjunction with either HEX-DB ADECIMAL or OCTAL, this option prints the character0 image of character items as well.CtoStore which file(s)?D(BType a list of the BASIC formatted files in your library you would0like to store, separating their names by commas.Dx Store where?DBDepending on where you want to store your BASIC formatted file(s),>you may type the file name or device designator for a magnetic@tape unit, a high-speed paper tape punch, a 2644 tape cartridge,=or your terminal's tape punch. Some examples of these deviceoidentifiers are: a!Device Identifiercr items as well.Cto!------ ----------l -Magnetic tape unit #MT, #MT0, #MT1, ...u-High-speed punch #PP, #PP0, #PP1, ...y!2644 tape cartridge #TCL, #TCRe(Terminal punch ERestore which file(s)?EhBType a list of the BASIC formatted files you would like to restoreAfrom the store tape you (presumably) created earlier with a STOREltask. ERestore from where?tFEDepending on which device will be reading your store tape, you shouldts as well.CtoFtype the file name or device designator of a magnetic tape unit, high-Espeed tape reader, 2644 tape cartridge, or your terminal's paper tapet7reader. Some examples of these device designators are:r e#Device Identifierh#------ ----------d l.Magnetic tape unit #MT, #MT0, #MT1,....High-speed tape reader #PR, #PR0, #PR1,...#2644 tape cartridge #TCL, #TCR*terminal reader FX File name?Fhouldts as well.CtoAType the name of the file you want printed, listed, or displayed.h>Here are some examples. For a fuller description of permitted&file identifiers, type "//HELP" again. sExample Description------- ----------- ABC File ABC.=$X,5 The fifth subfile of file X in the public library.#>*GR,"LM" File GR in your group library, using the mask "LM".'#MT0 Magnetic tape unit number 0.!#PR Any paper tape reader.e. Your terminal (or its tape reader).to4#TCL The left cartridge on your 2644 terminal.F? If the file you want to print, list, or display is in yourp0log-on library, simply type its name. Examples: # ABC XY12 SCR22- -< If the file is in your group or public library, precedeDits name with an asterisk or a dollar sign, respectively. Examples: y *FILEX $A23 MA If the file is in some other account, follow its name with ae)period and the account's name. Examples:p eer).to Q.A402 MASTER.Z987g n? If the file to be listed, printed, or displayed is a BASICtCformatted file, you may also specify that a mask be used in readingpCfrom it. The mask must be enclosed in quotation marks, and must bei6separated from the file's name by a comma. Examples:  n5 ABC,"XQ#" $IN,"RRR" MSAGE.B111,"CODE#$%&"y A If the file is associated with a magnetic tape unit, a high-fBspeed paper tape reader, or a card reader, you may designate it byer).toFtyping the device's general designator (MT, PR, and CR, respectively),Bpreceded by a hatch mark (#). If you want to designate a specificCdevice, follow the device designator with the device's unit number.n Examples:m # #MT #PR0 #CR1l E If the file is one of the tape cartridges on your 2644 terminal,.@you may designate it by typing "#TCL" or "#TCR" for the left andright cartridges, respectively.e a@ Finally, if you want to print on the line printer from your>terminal, or your terminal's paper tape reader, respond to the#prompt only with a carriage return.) IA If the file you want to print, list, or display is a subfilen?of the device which is going to read it, follow its name with a >comma and its subfile number (1,2,3,...). Subfile numbers areAonly valid for magnetic tape, paper tape, and 2644 tape cartridgegfiles. Examples:o h& MTAPE,3 #PR,2 #CTR,22G First file?nGif you want to print on the line printer from yourDYou must specify two files to be compared with each other. Type the name of one of these files here.H8 Second file?HCYou have already specified one of the two files you wish to compare 6with each other. Type the name of the other one here.H)Stop after how many non-matching records?sI(DType a positive whole number (a carriage return is equivalent to theBnumber 1). When this number of rcords from the two files you haverst file?nGif you want to print on the line printer from yourEalready specified fail to match, the comparison will be automatically  terminated.fI0? Two records of two files are said to match if they containo@the same number and type of items in the same order, and if eachAitem of one file is equal to the corresponding item of the other.g=Thus, it is quite possible to have an ASCII file match with a ?BASIC formatted file, or to have two BASIC formatted files with different record lengths match.nIx Document?nIrint on the line printer from your:By typing "YES" (or just a carriage return), a list of the9non-matching records from the two files will be displayedeat your terminal.  t/By typing "NO", no such list will be displayed.nJConvert which file?aK;Type the name of the file you wish to convert from ASCII tohEBCDIC or BCD, or conversely.eK? If your file's data is in ASCII code, type "ASCII". Latere>on FCOPY will ask you whether you want to convert it to EBCDICor BCD.o e?nIrint on the line printer from your> If your file's data is in EBCDIC or BCD, type "EBCDIC" or>"BCD". FCOPY will assume you want to convert it to ASCII, and?will not later prompt you for the code type of your destinationnfile.oKXCode? KBType 'ASCII', 'EBCDIC', or 'BCD', to identify the code your file'scharacter items are stored in.KAppend which file?LH=Type the name of the file you want to append to another file.oLP= Assume you want to append file A to file B; that is, youi on the line printer from yourfile A, and then you want to copy file A into those n records.:The APPEND task will do this for you automatically. First@you must type the name of the file you want to append to anothercode. You must now tell FCOPY where you want this data copied to, after it has been converted.PTo which file?QHBType the name of the file to which you want to append the file youjust specified.lQBy how many records?QBType the number of records by which you want to shorten your file.]<** There is a maximum of 255 subfiles on a tape cartridge **^urE** The only valid file designators for the tape cartridges are "#TCL"kB and "#TCR" (for the left and right cartridges, respectively) **^h:** You are not permitted to use this magnetic tape unit **^9** You are not permitted to use this paper tape reader ** _8** You are not permitted to use this paper tape punch **_X3** You are not permitted to use this card reader **f_4** You are not permitted to use this line printer **_s a maximum of 255 subfiles on a tape cartridge **^ur?** The maximum number of subfiles on a tape cartridge is 255 **"`H=** You don't have a tape cartridge in the appropriate slot **e`'** You are not using a 2644 terminal **h`;** This magnetic tape unit is being used by someone else **sa8:** This paper tape reader is being used by someone else **a9** This paper tape punch is being used by someone else **ca4** This card reader is being used by someone else **b(5** This line printer is being used by someone else **abxe **^ur2** All magnetic tape units are currently in use **b1** All paper tape readers are currently in use **ic1** All paper tape punches are currently in use **2ch+** All card readers are currently in use **ic,** All line printers are currently in use **d1** Your tape cartridge is not set for "Record" **TdX** No such subfile **nused by someone else **ca4** This card reader is being used by someone else **b(5** This line printer is being used by someone else **abxe **^urFILDUM( -#R **** HP BASIC PROGRAM LIBRARY ********************************RR FILDUM: PAPER TAPE FILE DUMP RR 36008 REV C -- 2/73R#R **** CONTRIBUTED PROGRAM **************************************@p*JOHTjFILE ^ghE@rV@T#(R#)v`F#*%X#F NH`#Zvd@#dj,STOP DUMP OF FILES AT THE FIRST EOF (Y OR N)#ng#xj- TURN ON THE TAPE PUNCH PLEASE (LEADER OK?).# X@m`#Z#jd#X@|d#V`##X@|#h#Z#j@#Z#L@#M$@#h$$ $$6$%0$h$@$"j$,$$6h$@V@@. $T$J L@@$T X@$^ V. $|$h L$r$$| V. $$ L$Z$@$j$$$W0Y$$V`$$h$@$w$$@$P$$$`$V>d%&%L@%M$@%#%&b%0@%:M$$@%D#%Nb%XV`0A%l%YV`0E%t%ZV`0B%l%\V`0C%p%]V`0F%p%^#(%lv@%n^%pv%r^%tv` %v^%`FIE  `dFILE  #R **** HP BASIC PROGRAM LIBRARY *******************************RR FILES: FILE MANIPULATION PROGRAMRR 36645 REV A 10/73R#R **** CONTRIBUTED PROGRAM ************************************ p*,*,* DSWAP` V $/@2WORK FILE IN USE, ENTER NAME OF 2 RECORD WORK FILEfD`V&NHHHHH H H/@ instructions fV@@0N j1)...CREATE A FILE( j2)...SORT A FILE2 j3)...LIST A FILE< j4)...COPY A FILEFj5)...X-PUNCH A FILEPj6)...LIST THE FILE FORMATZj7)...UPDATE A RECORD IN A FILEdj8)...ADD A FIELD TO A RECORDnj!9)...DELETE A FIELD FROM A RECORDxj/10)..CHANGE FROM A RANDOM FILE TO A SERIAL FILEj/11)..CHANGE FROM A SERIAL FILE TO A RANDOM FILEj12)..END THE PROGRAM/@)ENTER THE NUMBER OF THE ROUTINE TO BE RUN/@ YOUR CHOICE D*@ D*@ f T L :<",9bR** FILE BUILD SUBROUTINE **vN v n"/@RECORD FORMAT = ,f6 X@@ V0$J V0#T V0C^/@ IS AN INVALID FORMAT CHARACTERh[rv@| V /@-LAST CHARACTER IN FORMAT WORD MUST NOT BE 'C'[ V0$c V0#v  @V `B/@ONLY 5 NUMBER CONSTANTS ALLOWED[jjK H#,"# CONSTANT ",D," = "f  v@V`&/@ONLY 5 STRING CONSTANTS ALLOWED0[:jDjNH#,"$ CONSTANT ",D," = "X Tbflvfff f Z V`@  X@N h@ v /@ ** RECORD j H #,3D," ?" v V0@*j4V0\ >vH X@R V0$ 2\ V0# kfv@p V0$zv  @v@V@  j@   v@ T v V@ j@ v V@ j@ $v. 8V@ Bj@L Vv ` jV@ tj@ ~ v  V@ j@  v@j ? H#,"$ ",DD," = "fv V@ j@  v@j x( H#,"# ",DD," = "2f <v@FV@ Pj@ ZZdZnx/@OUTPUT FILE IS FULL'/@;MORE THAN 256 WORDS OF STORAGE ARE REQUIRED FOR THIS RECORD j@`V@@ v @ @@ 'v @ @^R ** FILE SORT SUBROUTINE **v /@SORT ON FIELD #f"V@ M,j6j s@H'#,"IS FIELD #",DD," A CHARACTER STRING"JfTV@@0N ^*/@BENTER THE CHARACTER STRING STARTING AND ENDING CHARACTER POSITIONShj%OR ENTER 0,0 TO USE THE ENTIRE STRINGrf |V* 64  /@)ASCENDING OR DESCENDING SEQUENCE (0 OR 1)f V6@  V`@ G V`@ j@@`v@ /@SORT OUTPUT FILE TOO SMALL/@LAST RECORD PROCESSED =jFXDDD$/@6STARTING CHARACTER POSITION IS LARGER THAN ENDING OR 0 j j &#H@"THE STRING BEING SORTED ON IS ONLY ",DD," CHARACTERS LONG, THE"0j3SPECIFIED STARTING CHARACTER POSITION IS BEYOND THE:jLIMITS OF THE STRINGDNX|Xh@b@`lX@|v@ 5 F Z Zh@ v@ Sh@v@Z jj cH5"SORT INPUT FILE HAS ONLY ";,3D," FIELDS PER RECORD "vvv "@  V  v @ h@ *X@|4 @ Z>h@!Hv@R \h@fv@pZzV0 $/@6ALL RECORDS IN SORT INPUT FILE ARE NOT THE SAME FORMAT T@ T & EV!*  =v  V"@Z v  0V fv"@v v#  V6 $v" .V 4  T 8 V  B V  Lv# V `v jv# t ~v# V"#* =  , T V!*  ,  = V v"@ v v# J V6 v" V 4   V 3  V B (v# 2J <v Fv# PJ Zv d n V"#* , x = v$@ v% v&` v'@  V(@ v$@ v% v&@ v'  v@ v$@ v% v&` v'@ " ,V(@: 6v$` @v%@ Jv&@ Tv' ^ hv@ rv$@ |v% v&` v'@  V(@X v$` v%@ v&@ v'   v$@ v% v&@ v'  r &v$` 0v%@ :v&@ Dv' N Xr bv$` lv%@ vv&@ v'  v@ j@` Z v@  v( h$% h&' $ h$ j&  h$ j&  *v(@ 4^ >j Hj" RH3D," RECORDS SORTED " \ fR** FILE LIST SUBROUTINE ** p z /@*** LINE PRINTER?  ! V 0@ j X| j j9 H"*** RECORD ",3D h@ @Yjx h@ j# Kh@jK$jEOR.Z8BjEOFLjV`R** COPY FILE SUBROUTINE **jt~ov)*X| V`@Th@h@*v))@@ h@ j@ h@j@ v**@Z(v@2 V`@2< j@* )"*`F j>@ "PH3D," RECORDS TRANSFERED"Zjdn/@ FILE BEING WRITTEN IS TOO SMALL.xju"H!" ONLY ",3D," RECORDS TRANSFERED"R** X-PUNCH FILE SUBROUTINE ** V`@!/@0YOU HAVE 10 SECONDS TO MAKE THE TAPE PUNCH READYP !X|h@@h@ j h@j",Z6v@@jJ j*@ "TH3D," RECORDS PUNCHED"^hR** FIND THE LAST RECORD SUBROUTINE **r|vvDATAEND OF RECORDEND OF FILEvTO V`@ X@N h@@VvVvV&v0Z:V(DVpNVXb V0@ ljF3DX,AAX,3DX,4A@@@vjF7X3DX,4A@@@v V0@PjF3DX,AAX,3DX,13A@PD fjF 7X3DX,13A@PD v V0@jF3DX,AAX,3DX,11A@H p jF 7X3D,X11A@H p v ^ j@*H7X3DX,"PHYSICAL END OF FILE"4>R** ASSIGN INPUT FILE SUBROUTINE **H/@INPUT FILE NAME Rf\ `f j MAX 12 CHRSpz/@FILE USE A MASKfV0YhD@ V @/@FILE '' IS UNAVAILABLE. TRY AGAIN./@WHAT IS THE MASK f p/@ONLY 6 CHARACTERS ALLOWEDhD@ ?^R** ASSIGN OUTPUT FILE SUBROUTINE **/@OUTPUT FILE NAME $f. p8/@ONLY 6 CHARACTERS ALLOWEDBLV.(V/@(INPUT AND OUTPUT CANNOT BE THE SAME FILE`j/@FILE USE A MASKtf~V@@0Y{D@ V @/@%OUTPUT FILE NOT AVAILABLE FOR WRITING/@WHAT IS THE MASK f p/@ONLY 6 CHARACTERS ALLOWED{D@ S^R ** INPUT FILE UPPER AND LOWER LIMITS SUBROUTINE ** /@'INPUT FILE STARTING AND ENDING RECORD #fV@(V>/2/@!UPPER LIMIT LESS THAN LOWER LIMIT<F V`@MPh@Z@llMld/@#LOWER LIMIT IS LARGER THAN THE FILEnx^R ** ASSIGN OUTPUT STARTING RECORD/@OUTPUT FILE STARTING RECORD #v+f*V*@ V`@h@*/@'STARTING RECORD LARGER THAN OUTPUT FILE^R ** UPDATE A RECORD SUBROUTINEv,-@v.V,@r"/@STARTING AND ENDING RECORD #,f6 V,@4@ V`@KJh@Tk^/@&STARTING RECORD BEYOND THE FILE LIMITShrT,rs|#/@1ENTER RECORD #, FIELD #, NUMBER (0) OR STRING (1)T-v-@j'(ENTER 0,0,0 TO END THE UPDATE ROUTINE)f/V V`@h@jjH*"RECORD #",3D," IS BEYOND THE FILE LIMITS"rvCg& V/6/@@0/@&ENTER 0 FOR A NUMBER OR 1 FOR A STRING:f/DN^XVpb/@(FIELD # MUST BE GREATER THAN 0, RE-ENTERlfvC^/@ ADD FIELD #/@DELETE FIELD #fC V,@4V,`v/g/@NUMBER OR STRING (0 OR 1)f/V,@g /@#DO YOU WANT TO USE A CONSTANT VALUEf V@@0Ng*V@@.Y4v.@> T/@/MH/@ENTER THE NUMERIC CONSTANTRf0\gf/@ENTER THE STRING CONSTANTpf z V`@zv1@/@LAST RECORD IN FILE UPDATEDV,@rX|v2v3h@ h`@@h@ j` v22@h@$j`.v22@8Bv1LvVV,@` V2@>zj7tV2>z~V2@`z/@$NOT ENOUGH FIELDS FOR THE REQUESTED T,ZeojUPDATErjADDvjDELETEv4h@ h`@`Fv@ V. T/@v44@(V4@2h` <j@ FPT,;Zjdjn;xV.v 0ljj"iH-#,"R #",DDD,", F #",DD,", NEW NUMBER VALUE ="H,#,"R #",DDD,", F #",DD,",ADD NUMBER VALUE =" `GZh` V,`ih`V,`f v44@V4@",T,6V.@v JTj^jhH-#,"R #",DDD,", F #",DD,", ADD STRING VALUE ="r|jjH-#,"R #",DDD,", F #",DD,", NEW STRING VALUE =" `h` h`f@@( v44 @:v44 @@V4@v@V.\ T/@&h`0@@: v44 @DNv44 @@XV4@bj@lvV3@v3@ V,@4@0 T1@v@Z V,@41zV,@r T1@z/@#TOO MANY CHARACTERS FOR THIS RECORDv,@v,` R ** RANDOM TO SERIAL CONVERSION SUBROUTINE ** *4o>h@*H V`@iR\ ju@ "fH7"OUTPUT FILE TOO SMALL, ONLY ",DDD," RECORDS CONVERTED"pzX|h@@h@  j@ `h@ j@`Zv@j j@ "H43D," RECORDS CONVERTED FROM RANDOM TO SERIAL FORMAT"R ** SERIAL TO RANDOM CONVERSION SUB ROUTINE **$./@INPUT FILE STARTING RECORD #8fB V`@eLh@V`/@"STARTING RECORD BEYOND FILE LIMITSj6to~ V`@jj"*H5"OUTPUT FILE TOO SMALL, ONLY ",DDD," RECORDS CREATED"/@&HOW MANY FIELDS IN ONE LOGICAL RECORD fX*LK@0v4h@@1v@v44@ V4@h@ j@ (V02<h@Fv@P@@rZv44 @@dV4@nx v44 @fj@V0v@h@Zv@ V`@j@`j jІ@ "*HDDD," RECORDS CREATED"/@"TOO MANY CHARACTERS FOR ONE RECORD` @0P`pY 44Ddt$f$()tDv&g yFILE1 ?#R **** HP BASIC PROGRAM LIBRARY *******************************RR FILES: FILE MANIPULATION PROGRAMRR 36645 REV A 10/73R#R **** CONTRIBUTED PROGRAM ************************************ p*,*,* DSWAP` V $/@2WORK FILE IN USE, ENTER NAME OF 2 RECORD WORK FILEfD`V&NHHHHH H H/@ instructions fV@@0N j1)...CREATE A FILE( j2)...SORT A FILE2 j3)...LIST A FILE< j4)...COPY A FILEFj5)...X-PUNCH A FILEPj6)...LIST THE FILE FORMATZj7)...UPDATE A RECORD IN A FILEdj8)...ADD A FIELD TO A RECORDnj!9)...DELETE A FIELD FROM A RECORDxj/10)..CHANGE FROM A RANDOM FILE TO A SERIAL FILEj/11)..CHANGE FROM A SERIAL FILE TO A RANDOM FILEj12)..END THE PROGRAM/@)ENTER THE NUMBER OF THE ROUTINE TO BE RUN/@ YOUR CHOICE D*@ D*@ f T L :F",9bR** FILE BUILD SUBROUTINE **vN v n"/@RECORD FORMAT = ,f6 X@@ V0$J V0#T V0C^/@ IS AN INVALID FORMAT CHARACTERh[rv@| V /@-LAST CHARACTER IN FORMAT WORD MUST NOT BE 'C'[ V0$c V0#v  @V `B/@ONLY 5 NUMBER CONSTANTS ALLOWED[jjK H#,"# CONSTANT ",D," = "f  v@V`&/@ONLY 5 STRING CONSTANTS ALLOWED0[:jDjNH#,"$ CONSTANT ",D," = "X Tbflvfff f Z V`@  X@N h@ v /@ ** RECORD j H #,3D," ?" v V0@*j4V0\ >vH X@R V0$ 2\ V0# kfv@p V0$zv  @v@V@  j@   v@ T v V@ j@ v V@ j@ $v. 8V@ Bj@L Vv ` jV@ tj@ ~ v  V@ j@  v@j ? H#,"$ ",DD," = "fv V@ j@  v@j x( H#,"# ",DD," = "2f <v@FV@ Pj@ ZZdZnx/@OUTPUT FILE IS FULL'/@;MORE THAN 256 WORDS OF STORAGE ARE REQUIRED FOR THIS RECORD j@`V@@ v @ @@ 'v @ @^R ** FILE SORT SUBROUTINE **v /@SORT ON FIELD #f"V@ M,j6j s@H'#,"IS FIELD #",DD," A CHARACTER STRING"JfTV@@0N ^*/@BENTER THE CHARACTER STRING STARTING AND ENDING CHARACTER POSITIONShj%OR ENTER 0,0 TO USE THE ENTIRE STRINGrf |V* 64  /@)ASCENDING OR DESCENDING SEQUENCE (0 OR 1)f V6@  V`@ G V`@ j@@`v@ /@SORT OUTPUT FILE TOO SMALL/@LAST RECORD PROCESSED =jFXDDD$/@6STARTING CHARACTER POSITION IS LARGER THAN ENDING OR 0 j j &#H@"THE STRING BEING SORTED ON IS ONLY ",DD," CHARACTERS LONG, THE"0j3SPECIFIED STARTING CHARACTER POSITION IS BEYOND THE:jLIMITS OF THE STRINGDNX|Xh@b@`lX@|v@ 5 F Z Zh@ v@ Sh@v@Z jj cH5"SORT INPUT FILE HAS ONLY ";,3D," FIELDS PER RECORD "vvv "@  V  v @ h@ *X@|4 @ Z>h@!Hv@R \h@fv@pZzV0 $/@6ALL RECORDS IN SORT INPUT FILE ARE NOT THE SAME FORMAT T@ T & EV!*  =v  V"@Z v  0V fv"@v v#  V6 $v" .V 4  T 8 V  B V  Lv# V `v jv# t ~v# V"#* =  , T V!*  ,  = V v"@ v v# J V6 v" V 4   V 3  V B (v# 2J <v Fv# PJ Zv d n V"#* , x = v$@ v% v&` v'@  V(@ v$@ v% v&@ v'  v@ v$@ v% v&` v'@ " ,V(@: 6v$` @v%@ Jv&@ Tv' ^ hv@ rv$@ |v% v&` v'@  V(@X v$` v%@ v&@ v'   v$@ v% v&@ v'  r &v$` 0v%@ :v&@ Dv' N Xr bv$` lv%@ vv&@ v'  v@ j@` Z v@  v( h$% h&' $ h$ j&  h$ j&  *v(@ 4^ >j Hj" RH3D," RECORDS SORTED " \ fR** FILE LIST SUBROUTINE ** p z /@*** LINE PRINTER?  ! V 0@ j X| j j9 H"*** RECORD ",3D h@ @Yjx h@ j# Kh@jK$jEOR.Z8BjEOFLjQ @@@VK`R** COPY FILE SUBROUTINE **jt~ov)*X| V`@^h@h@*v))@@&h@ j@ h@j@ v**@Z(v@2 V`@<< j@* )"*`F jH@ "PH3D," RECORDS TRANSFERED"Zjdn/@ FILE BEING WRITTEN IS TOO SMALL.xj"H!" ONLY ",3D," RECORDS TRANSFERED"R** X-PUNCH FILE SUBROUTINE ** V`@%!/@0YOU HAVE 10 SECONDS TO MAKE THE TAPE PUNCH READYP !X|h@@ %h@ j h@j",Z6v@@jJ j4@ "TH3D," RECORDS PUNCHED"^hR** FIND THE LAST RECORD SUBROUTINE **r|vvDATAEND OF RECORDEND OF FILEvTO V`@ X@N h@@VvVvV&v0Z:V2DVzNVXb V0@ljF3DX,AAX,3DX,4A@@@v(jF7X3DX,4A@@@v V0@ZjF3DX,AAX,3DX,13A@PD pjF 7X3DX,13A@PD v V0@jF3DX,AAX,3DX,11A@H p jF 7X3D,X11A@H p v ^ j@*H7X3DX,"PHYSICAL END OF FILE"4>R** ASSIGN INPUT FILE SUBROUTINE **H/@INPUT FILE NAME Rf\ `%f j MAX 12 CHRSpz/@FILE USE A MASKfV0YrD@ V @/@FILE '' IS UNAVAILABLE. TRY AGAIN./@WHAT IS THE MASK f p/@ONLY 6 CHARACTERS ALLOWEDrD@ I^R** ASSIGN OUTPUT FILE SUBROUTINE **/@OUTPUT FILE NAME $f. p 8/@ONLY 6 CHARACTERS ALLOWEDBLV.2V/@(INPUT AND OUTPUT CANNOT BE THE SAME FILE`j/@FILE USE A MASKtf~V@@0YD@ V @/@%OUTPUT FILE NOT AVAILABLE FOR WRITING/@WHAT IS THE MASK f p/@ONLY 6 CHARACTERS ALLOWEDD@ ]^R ** INPUT FILE UPPER AND LOWER LIMITS SUBROUTINE ** /@'INPUT FILE STARTING AND ENDING RECORD #fV@(V>92/@!UPPER LIMIT LESS THAN LOWER LIMIT<F V`@MPh@Zld/@#LOWER LIMIT IS LARGER THAN THE FILEnx^R ** ASSIGN OUTPUT STARTING RECORD/@OUTPUT FILE STARTING RECORD #v+f*V*@ V`@h@*/@'STARTING RECORD LARGER THAN OUTPUT FILE^R ** UPDATE A RECORD SUBROUTINEv,-@v.V,@r"/@STARTING AND ENDING RECORD #,f6 V,@4@ V`@KJh@Tk^/@&STARTING RECORD BEYOND THE FILE LIMITShrT,rs|#/@1ENTER RECORD #, FIELD #, NUMBER (0) OR STRING (1)T-v-@j'(ENTER 0,0,0 TO END THE UPDATE ROUTINE)f/V V`@h@jjH*"RECORD #",3D," IS BEYOND THE FILE LIMITS"rvCg& V/6/@@0/@&ENTER 0 FOR A NUMBER OR 1 FOR A STRING:f/DN^XVpb/@(FIELD # MUST BE GREATER THAN 0, RE-ENTERlfvC^/@ ADD FIELD #/@DELETE FIELD #fC V,@4V,`v/g/@NUMBER OR STRING (0 OR 1)f/V,@g /@#DO YOU WANT TO USE A CONSTANT VALUEf V@@0Ng*V@@.Y4v.@> T/@/MH/@ENTER THE NUMERIC CONSTANTRf0\gf/@ENTER THE STRING CONSTANTpf z V`@zv1@/@LAST RECORD IN FILE UPDATEDV,@rX|v2v3h@ h`@@h@ j` v22@h@$j`.v22@8Bv1LvVV,@` V2@>zj7tV2>z~V2@`z/@$NOT ENOUGH FIELDS FOR THE REQUESTED T,ZeojUPDATErjADDvjDELETEv4h@ h`@`Fv@ V. T/@v44@(V4@2h` <j@ FPT,;Zjdjn;xV.v 0ljj"iH-#,"R #",DDD,", F #",DD,", NEW NUMBER VALUE ="H,#,"R #",DDD,", F #",DD,",ADD NUMBER VALUE =" `GZh` V,`ih`V,`f v44@V4@",T,6V.@v JTj^jhH-#,"R #",DDD,", F #",DD,", ADD STRING VALUE ="r|jjH-#,"R #",DDD,", F #",DD,", NEW STRING VALUE =" `h` h`f@@( v44 @:v44 @@V4@v@V.\ T/@&h`0@@: v44 @DNv44 @@XV4@bj@lvV3@v3@ V,@4@0 T1@v@Z V,@41zV,@r T1@z/@#TOO MANY CHARACTERS FOR THIS RECORDv,@v,` R ** RANDOM TO SERIAL CONVERSION SUBROUTINE ** *4o>h@*H V`@iR\ ju@ "fH7"OUTPUT FILE TOO SMALL, ONLY ",DDD," RECORDS CONVERTED"pzX|h@@h@  j@ `h@ j@`Zv@j j@ "H43D," RECORDS CONVERTED FROM RANDOM TO SERIAL FORMAT"R ** SERIAL TO RANDOM CONVERSION SUB ROUTINE **$./@INPUT FILE STARTING RECORD #8fB V`@eLh@V`/@"STARTING RECORD BEYOND FILE LIMITSj6to~ V`@jj"*H5"OUTPUT FILE TOO SMALL, ONLY ",DDD," RECORDS CREATED"/@&HOW MANY FIELDS IN ONE LOGICAL RECORD fX*LK@0v4h@@1v@v44@ V4@h@ j@ (V02<h@Fv@P@@rZv44 @@dV4@nx v44 @fj@V0v@h@Zv@ V`@j@`j jІ@ "*HDDD," RECORDS CREATED"/@"TOO MANY CHARACTERS FOR ONE RECORD` @0P`pY 44Ddt$f$()tDv&g yFILIN ( `@R *******************************J R FILINTR *******************************^NHhjDO YOU WANT INSTRUCTIONSrf| V.YES$j@FILIN IS USED TO LOAD A FILE FROM A KEYBOARD. BEFORE THE PROGRAM&jDIS RUN A FILES STATEMENT MUST BE INCLUDED WHICH NAMES THE FILE TO BEj3LOADED. THIS FILE MUST HAVE BEEN PREVIOUSLY OPENED.%jBWHEN THE PROGRAM ASKS FOR INPUT, YOU MAY INPUT UP TO 72 CHARACTERS%jBPER LINE. THE INPUT SHOULD CONSIST OF NUMBERS OR CHARACTER STRINGS&jDSEPARATED BY COMMAS. ANY INPUT WHICH CONFORMS TO ONE OF THE STANDARDj,NUMERIC FORMATS IS CONSIDERED TO BE NUMERIC."j^!Hv@!Rv@!\v@!fv@!pv@!zv@!v@!v@!v@!vP !wfff!$r!R!R PROCESS A DECIMAL POINT!R!VD!*!wD@!$r!R" R PROCESS A BLANK"R" X@"$ V. "L".Z"8v"B$r"Lv@"V$r"`R "jR PROCESS EXPONENTIATION OPERATOR."tR"~VT!*"V!*"vT@"w6" X@" V0+"" V0-"" V. #"# "W6!*"w6@"# "W6!*"w6@#vT@# Z#v@#R#(R NOW GET THE EXPONENT.#2R#<vV#FX#PvH#Z V00##d V01##n V02##x V03$# V04$# V05$# V06$"# V07$,# V08$6# V09$@#v# V.,!*# v$P(V#! #v@#v@#v@$v@$v@$v@$"v@$,v@$6v@$@ vVVP T$$JZ$Tv@$^ v$P(V$h$|$rZ$|R$R END OF NUMERIC INPUT. (NO DATA FOLLOWS)$R$$$v@$^$R$R SUBROUTINE TO OUTPUT A NUMBER.$R$W$$v%$vd@$w4@$j@%^%R -STRING DOES NOT REPRESENT A NUMBER. THIS ROUTINE%R -PUTS THE STRING ON THE FILE.%& X4 %0 V0,%N%:Z%Dv@%N j@4@%XM4@%b^%cb%l`FILREA A pJOBS#(R ***** FILREA ***** UTILITY PROGRAM *****#2R ***** VERSION 2 ***** 10/6/70 *****#7p*#8OH#<R READS INTO A FILE FROM PAPER TAPE#FNH#P j FILE NAME #Ug#XE@#YV@#P#Zvd@#d"j< WHEN THE TTY PRINTS A QUESTION MARK (?) TURN ON THE READER#nff#xVf@d##j NEED f FILES, YOU ARE f"d SHORT.#b#X@|f#V`$"#f#X@|#j#Z#Z#Ld@#M$@#hd$#f$ T$6$T$%%$jREAD OR PUNCH ERROR$b$"jFILE  NEEDS  RECORDS, HAS ONLY @$,b$6f$@jd$J#$Tf$^V@@.$r$h L@@ $r X@$| V.$$ L $$$ V.$$ L $Z$jd$#$jd`$Vd>f$$Ldd@$M$@$#$b%M$$@%#%jd`%&w$$@%0#%:`FORCST @R REVISED 12-29-72,MICHAEL ROY BARNESR FORCST, HP 36750A, 6/74 j.THIS IS THE HEWLETT-PACKARD WEATHER FORECASTERj%DO YOU WANT INSTRUCTIONS (1=YES,0=NO)f(V@<2V@F<fFjPj4WHAT IS THE BAROMETRIC PRESSURE TO THE NEAREST TENTHZjEXAMPLE(30.01=30.0)dfnj$WHAT IS THE TEMPERATURE IN DEGREES Fxfj/WHAT IS THE WIND DIRECTION(SEE WIND CODE BELOW)j#N=1,NE=2,E=3,SE=4,S=5,SW=6,W=7,NW=8fjWHAT IS THE WIND SPEEDfjWHAT IS THE DEWPOINTfjjNД V@6V@JV`^V@rVPV`"Vp,V@6vNORTH@J v NORTHEASTT^vEASThr v SOUTHEAST|vSOUTH v SOUTHWESTvWEST v NORTHWESTj PRESENT WEATHERjj WIND  ATMPHjj TEMPERATUREDEWPOINTw"jj WIND CHILL FACTOR ISDEGREESjj BAROMETRIC PRESSURE&j0jHEIGHT TEMPERATURE:L}D P$pNMf$X X4}N }bjflL}vMffpV4N Z4jv"H}vjCUMULUS CLOUDS COULD FORM ATFEETjjj FORECASTjVy33 * Vx 4y33 >Vx R b*4P>HPR\Pfj,THIS FORECAST INFORMATION DEPENDS ON VARIOUSpj-FACTORS,AMONG THE MAIN FACTORS ARE BAROMETRICzj.PRESSURE AND WIND DIRECTION. YOU WILL BE ASKEDj.TO INPUT THE ABOVE,AND WIND SPEED,DEWPOINT,ANDj0TEMPERATURE.THESE HAVE TO DO WITH OTHER FEATURESj/OF THIS FORECAST.THIS FORECAST IS 77% ACCURATE.^bj-FAIR,SLIGHT POSSIBILITY OF RAIN IN 2 DAYS IF j/BAROMETER IS RISING RAPIDLY.OTHERWISE FAIR WITHjSLIGHTLY RISING TEMPERATURE.^b V`4@` V`6pB$ V@6@~8Bj/FAIR WITH SLIGHT TEMPERATURE CHANGES FOR 1 TO 2LjDAYS.V`j1GOOD CHANCE OF RAIN WITH WIND INCREASING IN FORCEjj6HOWEVER RAIN MAY NOT FALL,OR NOT FALL FOR SEVERAL DAYSt~j3SUMMER;LIGHT TO MODERATE WINDS,GOOD CHANCE OF RAIN.j4WINTER;RAIN OR SNOW,WITH INCREASING WINDS,OFTEN WILLj6SET IN WHEN BAROMETER BEGINS TO FALL AND THE WIND SETSjIN FROM THE N OR NE^b V@4@ VP4@2 <j.RAIN WITH HIGH WINDS,FOLLOWED WITHIN 1 DAY BY jCLEARING,AND IN WINTER COLDER.(<2jCLEARING AND COLDER.<^FbPjZjd j THANK YOUn`lFORMAT `#(R FORMAT, 36005 REV B, UTILITY SUBROUTINE ********#*R SUBROUTINE TO FORMAT A PROGRAM'S DATA#+ M@#, O H#- M 0123456789#.M@#/M@#0 W@#c#1 W0##8#2W@0.##8#3W@0+##6#4k#5#/#6M#7#/#8Md#9M#:M@#;M@#< W0.#?#= W0##;#>#C#?W@#C#@M#AM#B#;#CWd#E#DM#EW@#J#FW#I#Gj-#H#J#Ij #JMP(#@#KY#}@#~@#L W##..#Q#Mj.#NM#OM@#P#_#QMP(#@P(!@#R WP(##U#Sj##T#_#U3M#P(!@P(#@ 1@P(#@ 1#VW@@00#X#WM#XW#^#YW@#\#Zj0#[#_#\j #]#_#^ k@@#_[#` M@#aM@#b#.#c^'`lFREADD 9 NH H0H@HOДHєHҔHӔHNP( w/2<?BIL1SFFD$@PD$@ZD$`dD$@n?DUTZFLx wD/@/@#j= (1) Add new trial # (2) List trial #!j: (3) Init log or crzyfl (4) Repk file"j< (5) Log file list (6) Crzyfl list$j? (7) Bill file maint (8) Delete trial #j5 (9) Activity report (10) Stopj (11) MENU j Command >w4x 4 W0@ W4@p*,*,*,*D FREEFL.A001@$HW$`"U4626 j ,W4X 6 h@@@ X@}J V`@hTh@ ^Zh j ENTER NAME rv@|fjACCESS -- (DAYS)  W0@j v@ @V[@6| j@ j@`<R **** ACCESS LIST ****/@j1 REMAINING#j> NAME TODAY'S JULIAN DAYS REMOVAL$j?---------------------------------------------------------------H 15A,8X,10A,9X,10A,7X,10A& h@@0 V`@:h@ D6 |(N v)(@@XV)0@6)0@6),@bV)l6)|0v v0 NO ACCESS v0 TODAY ONLY6 |*v**@6*|@ @|P jP0@0 R *** INIT SUB ***jDO YOU WANT TO INIT LOG FILEf@V@@@0Y*jDO YOU WANT TO INIT CRAZY FILE  f@V@@`0YESR <*j...WAIT4D LOGFL.A001@H>W`4H\RD CRZYFL.A001@H\W`Rf X@N p V`@<z j@`Z*/@?---------------------------------------------------------------D$@< R **** REPACK **** wD/D FREEFL.A001@$HW$` V`@< h@@vjWait ...?FRE01F =FRE01FP  5 PRI-FRE01F DFRE01F@$H$W$`. h@@8 h@@B X@}LR **V V`@`h@ j6 |t L@~ V`, j   DELETEDpLj@ Z h@@ h@@ X@} V`@ h@ j@ Z j@`D$@?FRE01F(<2R *** LOG FILE LIST ***<'/@9---------------------------------------------------------F H15A,10X,"---",6X,32APjZD LOGFL.A001`$HdW$`Zn h`@x X@} V``h` jF Z'/@9---------------------------------------------------------'/@9***************** NO MORE ENTRIES ***********************j<D CRZYFL.A001@(HW(`*/@@*********************** CRAZY FILE LIST ************************ h@@ X@ V`@h@j"Z,b6R ***@RJD BIL01F.A001@(HTW(`J^/`h#j=***************** OVER-DUE BXXX ACCOUNTS ********************rj|j" (1) ADD (2) LIST (3) DELETE j (4) STOPvp jOption >x jV< W0@<V@^/@TlpR **** ADD TO BILL CHECK FILE **** h@@ X@d V`@0h@&Z0 jENTER ACCOUNT # :f Dj!ENTER BILL START DATE ( JULIAN ) NgX j@ `b|lR **** LIST BILL CHECK FILE ****vH 10A,5X,10A,5X,20A,5X,5DH 10A,2X,15A,5X,10A,10X,10A/` vACCOUNT v  INVOICE SENTv0STATUS v@ DAYS LATE j 0@j h@@ V`@^h@7|& v6@"& V6p46@ * V6pRV6x> R* wLATE NOTICE SENT4\>wACCOUNT SUSPENDEDH\R w IN PROCESS\ jv6fpR **** DELETE FROM BILL CHECK FILE ****z =$BIL1SFd 5 PRI-BIL1SF DBIL1SF@-HW-` h@@ h@@Rj0ENTER ACCOUNT TO BE DELETED FROM BILL CHECK FILEg V`@ h@WД@@1Ҕ@@j@  h@@  h@@  V`@ B $h@ .j@ 8  B X@d Lj@` VZ `| jR **** PURGE NAME FROM FREE ACCESS ON B000 **** t =DUTZFLd ~ @` j 5 PRI-DUTZFL h@@ @` j jEnter name to be removed  F0 V`@ h@ V00  jWait... h@@ DDUTZFL@$H  @` < h@ (j@ 2  < h@@ F h@@ P V`@ Zh@ dV00 nj@ x P j Removing   P j@`  j Not found  /@File is empty < R **** ACTIVITY REPORT **** %jB------------------------------------------------------------------ /` D REPFL1.A001@$L W$`  @` , h@ j "  ,/@End of activity report 6/@'Do you wan't to erase this report file  @x  J W0@< T/` ^ V.YES< h h@@ r YD@N  | V`@< j@D` [D `FRNCHJ @\ CHEVALDRAPEAUALLER CHAUSSETTESOULEIRSOUVENIR TRAVAILLERDIMANCHEBATEAUTIMBREBONJOURQUARANTEOREILLEMONTAGNEVOITUREMAGASINPAILLEMANTEAU PROFESSEURTROTTOIRVACHEJARDINCHAPEAU-Z j THE WORD IS v ABCDEFGHIJ ',COP3,x2V,d,ddd *d , 2 h    2 d dRd dY2A2d;KGDAF 1_EDF2TWCxDF3TFTBL { #R **** HP TIME-SHARED BASIC PROGRAM LIBRARY *********************RR FTBL: FOOTBALL RR 36181 REV A 3/72 R#R **** CONTRIBUTED PROGRAM ************************************** R THIS VERSION INSTALLED 10/6/70 GOP Op j7WELCOME TO THE HEWLETT-PACKARD FOOTBALL GAME. SINCE THE j7GAME WILL BE BETWEEN YOU AND THE COMPUTER, WHAT IS YOUR( j TEAM'S NAME 2gp<jF!jFINE. NOW THE p& NEED A QUARTERBACK (THAT'S YOU, SON).PjWHAT MAY I CALL YOU ZgdjnjOK, " WHAT DO YOU WANT TO CALL MY TEAM xgjj"jSO IT'LL BE THE p AGAINST THE . TO CALL A PLAY, j8TYPE IN ONE OF THE FOLLOWING NUMBERS AND PRESS 'RETURN'.jjj$j? 1 = SIMPLE RUN; 2 = TRICKY RUN; 3 = SHORT PASS; 4 = LONG PASS;j2 5 = PUNT; 6 = QUICK KICK; 7 = FIELD GOAL TRYjjjMf MMD M1@" M1`,#j>FOR COIN TOSS, TYPE A NUMBER FROM 1 TO 300 AND PRESS 'RETURN'.6g@X@}JMTZ^ֿ@@|h k WON THE TOSS.r| kp WON THE TOSS.kp' BALL ON THEIR OWN 20.M@MP MP LD@ j YOUR CALL, gWpW:jWHAT KIND OF CALL IS THAT,  ? TRY AGAIN.jYOU'RE A REAL ZERO (OR LESS),  . TRY AGAIN.:M$D M$$$|(!zHNMDD@XWD- bk@.PLAYS HAVE BEEN MADE. DO YOU WISH TO STOP NOW?lj!TYPE A '1' FOR YES, A '0' FOR NO vfF TF@bj jEND OF GAME ***jFINAL SCORE: p1`1@W1`+1@jj GOOD TRY, . BETTER LUCK NEXT TIME.k%, YOU PLAYED LIKE A PRO, BEATING THE j(WHO HAD COMPUTER HELP!).bj20 MORE PLAYS WILL BE ALLOWED.MP  M&Ld W@\*W@4W@> jPASS PLAY------HW`LR\R : PUNTf M$x x pWp zVD@ MS33jPUNT GOOD FOR  YARDS.VD@M&@P  @#$@x j RUN BACK OF  YARDS.M#Ld@ R : SIMPLE RUNjRUNNING PLAY-----M` $$@``W&fff.R TRICKY RUNjRUNNING PLAY ---- MP %$P$W&fff.Ld@8 j## FUMBLE AFTER BL R : SHORT PASSQMP$&@`xVW$fff`W$LjW$Ffft j COMPLETE. ~ j INTERCEPTED!!Ld@ j INCOMPLETE. M jPASSER TACKLED.  MP%&R LONG PASSMP$&@`x W&fffW&@ W&Yt R RESULT OF PLAY(M!%2Wd<W4FWnPWZ jGAIN OF dn jLOSS OF xjNO GAINM!%W4Wd jBALL ON p'WdjBALL ON 'd#W,Vd j TOUCHDOWN!!!M@ FjTOUCHBACK FOR .",Vdr6jSAFETY@ JjTOUCHDOWN FOR p!!!TMP ^M@h:rj TOUCHDOWN, p!!| FLDD@VdWj kp' BALL.M@:j k' BALL.0 W$#P:VDPWMP&k' BALL ON THEIR OWN 20.0M@:LD@D j FIRST AND 10NWvXWZbMZlvWPMPMVD@VD@VD`VD@ j FIRST ANDP!$#`j SECOND ANDP!$#j THIRD ANDP!$# j FOURTH ANDP!$#j W*4Vd>WpH jTOUCHDOWN!!!!!RM@\ FfpjSAFETY!!z k' BALL ON THEIR OWN 40.Mx M@:WjTOUCHDOWN FOR p!!!j TOUCHDOWN, !!! FM@VD@ .ֿ@`  M`  M@ $ .VD@ t 8Wx  V BMP L V P!#` `Mp j t P!#P ~W+ ֿ@@ M@  M@  ֿ@@   : R KEEP SCORE M1@#1@#@ j j****************************** j jSCORE : p1`1@ j (j****************************** 2j <^ F ֿfff n P j KICK IS GOOD. ZM1@#1@#p d nj!KICK IS OFF TO THE SIDE. NO GOOD. xM1@#1@#`  j R FIELD GOAL j PLACE KICK Ld@ W$L jKICK IS BLOCKED********** U@ W @ W!n  W!P  jKICK IS OFF TO THE RIGHT SIDE.  jKICK IS OFF TO THE LEFT SIDE.   jFIELD GOAL!!!!! "M1`1`` , 6 @ W#@P h J W#P   TjKICK IS WOBBLY --- NO GOOD!! ^ h j FIELD GOAL!!! rM1@1@` |  ``FWAM tO `U JHpHA4R *** CHAIN TO FWAM2.A100 2-DEC-78 A. DE MARTINO ***R *** CHAIN TO FWAM3.A100 ALSO#R WOMEN'S LIB, PART 1, WRITTEN AND PROGRAMMED BY DIANE MCENTYRE,(!R UC BERKLEY, SPRING 1972. REVISED MAY 1974 BY WILLIAM CHAR.)"R: PGM. NAME CHANGED IN LINE 3260 FROM $FWAM2 * 10/4/75 MIKE S.2R<nCF @XdP jGOOD MORNING, Zd @xn jGOOD AFTERNOON, x jGOOD EVENING, jCAN YOU SOLVE THIS RIDDLE?j!j: A FATHER AND HIS SON WERE INVOLVED IN A CAR ACCIDENT.!j:THE FATHER WAS KILLED. THE SON WAS TAKEN TO THE HOSPITAL.j5THE DOCTOR SAW HIM AND EXCLAIMED, ''I CAN'T OPERATE--j%THAT'S MY SON!'' WHO WAS THE DOCTOR?jfwMOTHER *V^wWOMAN *V^wMOM" *,V^6j@j5MOST PEOPLE DON'T GUESS THAT THE DOCTOR WAS A WOMAN--J jTHE BOY'S MOTHER.Tr^jhj%VERY GOOD. MOST PEOPLE DON'T GET IT.rj|j6 THIS COMPUTER, IN AN ATTEMPT TO BE LIBERATING, IS j8PRESENTING THE FWAM (FREE WOMEN AND MEN) PROGRAM, HOPINGj6TO INVESTIGATE SOME REASONS WHY MORE PEOPLE DON'T MAKEj$ASSOCIATIONS LIKE WOMEN AND DOCTORS.jj4 IT WOULD HELP TO KNOW A LITTLE ABOUT YOU FIRST.j3LATER, THE COMPUTER WILL REVEAL HER OWN PREJUDICES.jjWHAT'S YOUR FIRST NAMEfj j AND YOUR SEXfw4V@@0MXw4@V@@0F:&jPLEASE TYPE MALE OR FEMALE0:VXDjNj1MAYBE THAT'S WHY YOU KNEW THE DOCTOR WAS A WOMAN.XjbjARE YOU MARRIED, l vvV԰W4jjWHAT IS YOUR WIFE'S FIRST NAMEfjj!WHAT IS YOUR HUSBAND'S FIRST NAMEfjj3IT'S PROBABLY MORE FUN TO RUN IS PROGRAM IF YOU SAY"j;YES TO MARRIED OR ENGAGED. IF NOT, YOU CAN FAKE A SPOUSE'S jNAME IF YOU WANT.j jARE YOU ENGAGED  v V԰p*W4R4j>j WHAT IS YOUR FIANCE'S FIRST NAMEHfRj\j!WHAT IS YOUR FIANCEE'S FIRST NAMEfgppjz j7WOULD YOU GIVE AN ADJECTIVE THAT DESCRIBES YOUR GENERALj!REACTION TO THE WOMEN'S MOVEMENT?fV԰jj DO YOU THINK p HAS A SIMILAR REACTION? j j8DO YOU FEEL THERE IS DISCRIMINATION AGAINST WOMEN IN OURjSOCIETY? VjjGOOD. THAT'S A START.jj6ARE THERE WAYS IN WHICH YOU PERSONALLY FEEL PREJUDICE? $Vt.j8j PLEASE NAME SOME SPECIFIC WAYS, :BfLjVj(I DON'T REALLY UNDERSTAND THAT RESPONSE.`jMAYBE YOU SHOULD TELL A FRIEND.jtj~!jDON'T GIVE UP, %. MAYBE YOU CAN THINK OF SOME BY THEjEND OF THIS PROGRAM.jj5 MEMBERS OF THE WOMEN'S MOVEMENT HAVE POINTED OUT j8CERTAIN MANIFESTATIONS OF SEX DISRIMINATION AGAINST BOTH j7MEN AND WOMEN. BEFORE WE CONSIDER SOME OF THESE, LET'SjELIMINATE SOME SEXIST LANGUAGE.j j7 WHEN SOMEONE SPEAKS IN ENGLISH, SHE USUALLY HAS TOj4CHOOSE A GENDER WHEN SHE REALLY IS REFERRING TO BOTH j8SEXES. WOULD YOU MAKE UP A COMMON-GENDER PRONOUN TO USEjDURING OUR DISCUSSIONS?fj j5 TRY THIS IN YOUR OTHER CONVERSATIONS. IF ANYONEj OBJECTS,  CERTAINLY HAS THE RIGHT, IF j#CAN COME UP WITH A BETTER SOLUTION.(VZ2W4P<wpA WIFEFZP wp A HUSBANDZjd"j;WOULD YOU LIKE TO DISCUSS FAMILY AND PERSONALITY SEX ROLES?n xV bj jGOOD. SO WOULD I.j j8 THE QUESTION OF WOMEN'S RIGHTS IS A FUNCTION OF THE j8COMPLEX ROLES AND DIVISIONS OF LABOR IMPOSED ON BOTH MENj0AND WOMEN BY UPBRINGING, TRADITION, PRACTICE AND j LEGISLATION.j j7 IT IS IN ITS ATTACKS ON SEX ROLE EXPECTATIONS THAT!j9THE WOMEN'S MOVEMENT MOST DIRECTLY AIMS AT FREEING MEN AS jWELL AS WOMEN.W4 R ===== MENS' QUESTIONS =====jj6DO YOU FEEL PRESSURE TO BECOME THE 'BREADWINNER' FOR A jWIFE AND FAMILY?" ,VT6j@ j7THEN YOU ARE SHOWING SIGNS OF BECOMING A LIBERATED MAN.J|Tj^!j9SO DO MOST MEN, BUT MEN AND WOMEN CAN LIBERATE EACH OTHERh j(YOU FROM OBLIGATION, p FROM COMPLETE DEPENDENCY) BYrjSHARING THIS RESPONSIBILITY.|jj6MEN SHOULDERING BURDENS AND RESPONSIBILITIES ALONE MAYj,ENFORCE PASSIVITY ON WOMEN, DON'T YOU THINK?fjj3DO YOU THINK MOST MEN KNEW THERE WERE OTHER OPTIONSj1WHEN THEY CHOSE PRIMARY FINANCIAL RESPONSIBILITY?fjj+DO YOU FEEL FREE TO CRY IN FRONT OF PEOPLE?fj j7YOU'RE NOT SUPPOSED TO. IN FACT, YOU'RE NOT 'SUPPOSED'j6TO EXPRESS FEELINGS OPENLY, SHOW TOO MUCH SENSITIVITY,!j:AESTHETIC APPRECIATION, CONSIDERATION, OR INTUITON EITHER.j j8DID YOU EVER PLAY WITH DOLLS OR SEW OR HAVE TEA PARTIES?& 0V:jD jUNTIL WHAT AGENfXVpbjl!j:THAT'S OK AS LONG AS YOU GAVE IT UP WHEN BOYS ARE SUPPOSEDvj(TO AND STARTED DOING MORE 'MANLY' THINGSj!j:OF COURSE NOT. BOYS ARE SUPPOSED TO BE DOING MORE 'MANLY'jTHINGSjj!j9BOYS ARE 'SUPPOSED' TO BE DOING MORE MANLY THINGS BY THENj j7...LIKE PLAYING WITH GUNS. MAYBE THAT'S WHY MORE WOMENjARE AGAINST THE WAR.j j8CAN YOU COOK AND SEW AND FEEL COMFORTABLE TAKING CARE OFjKIDS?  VH j*j6THAT'S TOO BAD. GIRLS LEARN AS THEY GROW UP, BUT IT'S4jNOT TOO LATE TOO LEARN.>\HjRjGREAT.\jf!j:THEN YOU CAN HAVE THE CHOICE OF SHARING THESE RESPONSIBIL-pj$ITIES AS WELL AS THE FINANCIAL ONES.zjj3DO YOU THINK THAT MEN SHOULD ALWAYS BE ATTRACTED TO j WOMEN FIRST?fjj(DID YOU USUALLY DO THE ASKING FOR DATES? Vjj6MAYBE BEING MASCULINE HAS RESTRICTED YOUR EXPERIENCES.j j7YOU DON'T HAVE TO CHOOSE BETWEEN A FAMILY AND A CAREER.j$DO YOU THINK A WOMAN SHOULD HAVE TO?f j j DO YOU WANT p% TO BE FULFILLED ONLY THROUGH YOU AND  jYOUR CHILDREN? $f .j 8 j7DO YOU THINK FULL TIME HOUSEHUSBAND WOULD BE FULFILLING BjTO YOU? L VV `j jjSHOULD IT BE FOR HER? tf ~j j2WHAT CAN YOU DO TO FREE HER TO BE INVOLVED OUTSIDE j THE HOME? f  l j j4MAYBE YOU COULD TRY IT FOR AWHILE, IF NOT ALL READY.  l R ===== WOMENS' QUESTIONS ===== j j1DID YOU EVER PLAY WITH FOOTBALLS, CARS OR SNAKES?  V P j jUNTIL WHAT AGE? f VP x (j 2j2BUT GIRLS ARE SUPPOSED TO BE DOING MORE 'FEMININE' <jBY THEN. F Pj Zj3OF COURSE NOT. GIRLS ARE SUPPOSED TO BE DOING MORE d j'FEMININE' THINGS. n xj j4THAT'S OKAY AS LONG AS YOU GAVE IT UP WHEN GIRLS ARE j'SUPPOSED' TO. j j7DO YOU THINK YOU HAVE TRIED TO CONCEAL YOUR CAPABILITY, jSTRENGTH, OR AGRESSION?  V j j&IT'S NOT CONSIDERED FEMININE YOU KNOW. j j4DO YOU FEEL RESTRICTED BY THE IMAGE OF THE FEMININE? f j j3WHICH ROLE DO YOU THINK MOST NEARLY REPRESENTS YOUR jFUTURE: j "j1 - STAY HOME WITH FAMILY ,"j;2 - FINISH SCHOOL, STAY HOME WHILE YOU HAVE KIDS, THEN WORK 6j 3 - REMAIN SINGLE, PURSUE CAREER @j(4 - MARRIAGE AND CAREER, BUT NO CHILDREN Jj35 - FAMILY AND CAREER, WITH CHILD CARE FOR CHILDREN T j86 - SHARED 'HOUSE-HUSBAND' AND WIFE RESPONSIBILITIES AND ^ j CAREER. hj r j WHICH NUMBER |g& j W&` W&P j !j:IF FATHERS SHARE RESPONSIBILITIES, CHILD CARE CENTERS WILL j6BE JUST AS IMPORTANT TO THEM, SO WE MIGHT ACTUALLY GET jTHEM.  j j7BUT CHILDREN WON'T STAY AT HOME...THE MAJORITY OF WOMEN j6WHO RETURN TO WORK ARE 'SEM-EMPLOYABLE' AND SETTLE FOR Vj4MUCH POORER JOBS THAN WERE AVAILABLE TO THEM BEFORE. j j3A MAN DOESN'T HAVE TO CHOOSE BETWEEN A FAMILY AND A j-CAREER. DO YOU THINK A WOMAN SHOULD HAVE TO? f &j 0"jvǞ HX@|" R W0  p \Z f^ pv@ z^ `VGENE1 \ -!R **** HP BASIC PROGRAM LIBRARY ***************************RR GENE1: GENETICS SIMULATIONRR 36642 REV A 6/73R!R **** CONTRIBUTED PROGRAM ********************************dR GENE1 - A SIMPLE GENETICS PROGRAM nR COPYRIGHT 1971, POLYTECHNIC INSTITUTE OF BROOKLYNxR A$,B$ - FEMALE PARENT'S GENES R Z$,Y$ - MALE PARENT'S GENES R G$,H$ - CHILD'R INHERITED GENES ; P$ - CHILD'S PHENOTYPER D$,R$ - DOMINANT AND RECESSIVE GENES, RESPECTIVELYR T$ - DETAILED REPORT FLAG R S1:TOTAL NUMBER OF CHILDREN WITH PURE DOMINANT GENESR S2:TOTAL NUMBER OF CHILDREN WITH PURE RECESSIVE GENES R S3:TOTAL NUMBER OF CHILDREN WITH DOMINANT PHENOTYPE R (I.E. PURE DOMINANTS PLUS HYBRIDS) R DEVELOPED AND PROGRAMMED BY L. BRAUN, MAY 1971R LATEST REVISION: 5-25-71R CONVERT FOLLOWING TWO LINES TO DIMENSIONS IF NECESSARYN   @     Np   @ R CHANGE NEXT LINE TO INCREASE UPPER LIMIT ON REPORTING M$dMR INPUT DOMINANT AND RECESSIVE TRAITS "j&WHAT ARE THE TWO TRAITS TO BE STUDIED?, jDOMINANT TRAIT6f@@ jRECESSIVE TRAITJg TV@1 "^jhj******rj|R INPUT THE GENOTYPES OF BOTH PARENTS jGENOTYPE OF FEMALE PARENTf V0@V1 j4FEMALE GENOTYPE INCLUDES INCORRECT TRAIT. RE-ENTER.V 0@V = jjGENOTYPE OF MALE PARENTgW0@W1 j2MALE GENOTYPE INCLUDES INCORRECT TRAIT. RE-ENTER.W0@D&W= 0 R IF BOTH PARENTS ARE PURE GENOTYPES, DO NOT RUN THE RANDOM :R EXPERIMENTS, BUT INDICATE RESULTS AS A SPECIAL CASE.DjNV< XW=b!j:BECAUSE THE PARENTS ARE PURE GENOTYPES, ALL OFFSPRING ARE lV1vj@- , THAT IS, HYBRID.<V1 j@-@, THAT IS, PURE DOMINANT.<k - , THAT IS, PURE RECESSIVE.<jj'HOW MANY OFFSPRING DO YOU WANT TO STUDYfj R LET Q=RND(-1) R CHANGE HERE FOR DIFFERENT NUMBER OF REPORTED CASES V-$@4 M@NOj&RATIOS ONLY WILL BE TYPED, BECAUSE OF  jTHE LARGE NUMBER OF OFFSPRING.*4jDETAILED REPORT (YES OR NO)>g@HW@0NOR W@<YES4\jfjpjzj OFFSPRING NO.------GENOTYPE------ PHENOTYPEj GENE 1GENE 2j1=================================================M6M7M8X@|R SELECT RANDOMLY WHICH GENE CHILD WILL INHERIT M&W&@LpLp R SELECT RANDOMLY WHICH GENE CHILD WILL INHERIT M'W'@.L$8.L8Vp0@tBV0@L"R IF BOTH INHERITED GENES ARE RECESSIVE, ADD 1 TO NO. RECESSIVESVM `M77@jtV<@~!R IF BOTH INHERITED GENES DOMINANT,ADD 1 TO NO. PURE DOMINANTSM66@M@"R IF EITHER INHERITED GENE DOMINANT,ADD 1 TO DOMINANT PHENOTYPESM88@W@0NOjpZj j ************jW6 jGENOTYPE RATIO 0 :#6#7'7: 1 jGENOTYPE RATIO 1 :#6#7'6:7'6V+82jPHENOTYPE RATIO 1 : 0(<2jPHENOTYPE RATIO 8&#8: 1<jF j ############PjZjWANT ANOTHER RUN (YES OR NO)dg@n W@0YES^xW@<NOZ`GEMAN @\ MITTWOCH MANNSCHAFT SCHNEIDEN PLOTZLICH SCHREIBTISHRICHTIGHUNDERTFUSSBALL GESUNDHEITERDBEERE WUNDERBARARBEITENVIERUNDDREISSIG FERNSEHEN ENTSCHULDIGENGESTERNFEBRUAR SCHEUSSLICH VERMIETENNEIDISCHHEISSEN REPARIERENPFENNIGxXCCCd"pXCOP3,x2V,d,ddd *d , 2 h    2 d dRd dY2A2d;KG?!1UPRUN ?!W6 URKLE:DAF GOLF { &9p N  "j;WELCOME TO THE TIES TIMESHARING 18 HOLE CHAMPIONSHIP COURSEw`vfffw67Jvd@jWHAT IS YOUR HANDICAP  f Vx 6 VH jOH-OH, A HOT SHOT! VP  jANYONE FOR TENNIS?jDIFFICULTIES AT GOLF INCLUDE:"j< 0=HOOK, 1=SLICE, 2=POOR DISTANCE, 4=TRAP SHOTS, 5=PUTTINGjWHICH IS YOUR WORST gDWDP7D7D`Y@|@&D@P[ v@w77!6Vd@(jYOUR SCORE ON HOLEd@WAS6 U#6`''!#jKEEP YOUR HEAD DOWN.' jA PAR. NICE GOING. '!j!A BIRDIE, AND TWEET-TWEET TO YOU."'#W`&$ jA GREAT BIG EAGLE.%'& jA HOLE IN *O*N*E*.'VdL (w6)W6* V@@+w@, V@P-j SHOT WENTF YARDS - ISGYARDS FROM HOLE..jBALL ISYARDS OFF LINE IN /0jWHAT CLUB DO YOU WANT 1f42V4F3 YK@E4j-5[K6j7V4H08j4HERE'S YOUR BAG OF CLUBS WOODS (FULL SWING ONLY)9j- 1 DRIVER 2 BRASSIE 3 SPOON:j1 IRONS (FULL SWING ONLY) 12 TWO IRON .;j1 19 NINE IRON IRONS (LESS THEN FULL SWING)<j( 22 TWO IRON - PARTIAL SWING .=j# 29 NINE IRON - PARTIAL SWING> j8WHEN YOU REACH THE GREEN IT WILL BE ASSUMED THAT YOU ARE?"j;USING A PUTTER. THE PUTT POTENCY NO. REFERS TO THE STRENGTH@ j7WITH WHICH THE BALL IS PUTTED. USE NUMBERS GREATER THANAj1ZERO, INCREASING THE NUMBER FOR GREATER DISTANCE.B!j:YOU WILL BE ASKED FOR 'PERCENT FULL SWING' ON CLUBS 22-29.Cj%THIS SHOULD BE A NUMBER FROM 1 TO 99.Dv4HE3F V4@64t LGV4`NHV@P64p64\ QILJw66@Kwt@LM0NV4`LOv44`PHQw66@Rwt@SV4hrTVd`d`nUV4@WVXW V@@`XW6pcY/vFx "P]"x "@x$4@d ZvFF%t[WD@\!vfff$@$@ OFr!]vG@D"F@^ VD"Fe_g` jYOU DUBBED IT.avFF cVDddYeVGP gfj!TOO MUCH CLUB. YOU ARE PAST HOLE.gv$DhvDGiVGl jVGP kVG@l v@Hmn'VH @lH -7! P$d@H Uow@pW6@6@|q`rjPERCENT FULL SWING sgttwttduwLv\t5t@@wWLrx V@PyV4pXzv44P{X|VD_`}"j"BALL HIT TREE - BOUNCED INTO ROUGHDKYARDS FROM HOLE.~vDDK0 Vx 6WDV7@x7@x j YOU HOOKED- v@`VZ )V7@x7@x j YOU SLICED- v@@jBADLY.) v@P) v@@ vGG` v@@) vFl$F\ V@`jYOUR SHOT WENT INTO WATER.w66@j4PENALTY STROKE ASSESSED. HIT FROM PREVIOUS LOCATION.v@ v@@vD$0jYOUR SHOT WENT OUT OF BOUNDS.WD`vG@ `P&P " ֿ*vfffjSHOT DUBBED, STILL IN TRAP.0vfffjON GREENG"FEET FROM PIN. PUT POTENCY NUMBER fwL ]!J$@WLw66@W6@#*I^@V@v@WD@vGG"$@@ ` VG,@VG@ jYOU H*O*L*E*D ITvdd@ j PUTT SHORT.vGGvGG"$@@ jPASSED BY CUP.vGGhD@` j READY TO GO fV0NOwJJ!jYOU ARE AT TEE OFF HOLEd , DISTANCED YARDS PARjON YOUR RIGHT IS w@ jON YOUR LEFT IS 0JZ@@@@a@@``g`@@}Pp@f@@@Y@`@Jj@@@a@@@b`p@d@p@FPp@B`@@JY@@@@I@@@vP@`]@@@Z``@DP``jTOTAL SCORE FORd@ HOLES WAS7W7#JjPAR GAME` W7#J j7#J UNDER PAR` k7#JOVER PAR` T jOUT OF BOUNDS.^jPGA RULES HANDICAP=0-30jFAIRWAY.^jROUGH.^jTREES.^ jADJACENT FAIRWAY.^jTRAP.^jWATER.^wLH^` GOMOKUi a R 5/72 CONTRIBUTED BY GREG THAGARD, MENLO COLLEGEjDO YOU NEED INSTRUCTIONSv0( f0@@2V0@@0N7j<#j>GOMOKU IS A TRADITIONAL JAPANESE GAME PLAYED ON A 19X19 BOARD.A$j?THE OBJECT IS TO OCCUPY FIVE ADJACENT POINTS IN A STRAIGHT LINEF!j:(HORIZONTAL, VERTICAL, OR DIAGONAL) ANYWHERE ON THE BOARD.KjPj)THIS PROGRAM PLAYS GOMOKU ON A 9X9 BOARD.U"j X@HH WApRw\vfvp V2@9zv92vvZZWAtv9 Xݞ@H Xޞ@Hv22 % V2@9v92vvZZV9V$v.v8R GOSUB 2310BR GO TO PRINT THE BOARDLV R HERE FOR A DRAW.`jTHIS IS A DRAW GAMEjFtR HERE FOR THE WINNING MOVE~vvR HERE FOR COMPUTER WINS. jI WIN THE GAMEvww@Vw`<j THAT MAKESw GAMES IN A ROWj4I HAVE JUST MADE A DOWNWARD ADJUSTMENT IN MY ABILITYvs33Vw@ VwPVwP2< jPLEASE TRY THIS TIME<jYOU MUST NOT BE CONCENTRATING(<2j,ARE YOU SURE YOU KNOW HOW TO PLAY THIS GAME?< R LETS TRY A NEW GAME.Fvvv@PjWILL YOU PLAY ANOTHER GAMEZf0dV0@@0Ynbx R HERE FOR USER WINS.jYOU WIN GAME NO. vvw<R CALCULATE THE VALUES OF ALL THE SQUARES ON THE BOARD. X@H X@H v2 wZZ X@H X@Pv@vvX|"v ",v "6Z@ VP6PTJrTvh@^R GOSUB 2220h^r Vx 6x |vh@^v@v@X| V"v22!2@w!2@ V"v22!2@w!2@ZZZ&R TRY TO ASSIGN VALUES TO THE DIAGONALS NOW.0 X@P: X@PDvNvX Xٞ@Pbv ٢@lv ٢@vvP"v "v "Z VP6PT Vx 6x v@v@ Xٞ@Pv ٢@v ٢@vP" V"v22!2@ w!2@ V"* >*v22!2@4w!2@>ZHZRZ\^f R MOVE IS OFF BOARDzj YOUR MOVE  IS OFF THE BOARD R HERE IF SQUARE IS OCCUPIEDjSQUARE  ALREADY OCCUPIED jBOARD POSITIONSn# ,jjVALUE TABLE C. USED BY USER n3 ,jj$VALUE TABLE Y. USED BY THE COMPUTER. n  , ^ $j/COMBINED TABLE. USED FOR FINDING THE BEST MOVE. .n3 8 , B jBOARD POSITIONS. Ln# V , `j BEST VALUE IS9 AT  OR  j^ tj ~j9 g Wd vd vP"P wP$d$ ^ vP v"P ^ W " j j  j   X@H ( j   2Z <j F X@H PvH Z XH@~@ d V" x nZ xW@ v j  X@| V"@ V"` W@ j +    j C    j Y    j  Z j Z "^ , X@H 6 X@H @j JZ Tj ^Z h^ r`GRNPRXM #R **** HP BASIC PROGRAM LIBRARY *******************************RR GRNPRX: GRAN PRIX RACING GAMERR 36686 REV A 10/73R#R **** CONTRIBUTED PROGRAM ************************************R PROGRAM GRAN PRIX RACERR PACIFIC UNION COLLEGE, JUN 73RR L. TURNER, D. MARTZ, & L. MEADOWSR "R *************************************************************RO aqRRni X@@$hqa8 LqqAtTBLaaLAtTLZVnh[R`PAtTfffjQODDP@Po!QDD%$@R!D%/D@p QDD%$@R"D%$@Rq Q/DD%$D%$tR~LD@jjWELCOME TO THE PUC GRAN PRIXjRj DO YOU WISH A COURSE DESCRIPTIONfV@@.Yv Rj(\ 2B12"T 0CC0XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX0CC<`85-100 CC (800)ECFH CFCP&x3 0t PUC GRAN PRIX RACEFCZ@ XEC_xXCCCd"pXL SSv  (2800) C 50-n'hXX &SSSSSSS SSS SSS0XXXXXXXXXXXXXXXXs j XXXX0C 70x#` X SS SSSSSSS 7@8XX (1900)0 6 90-110P X X$H X Xp DISTANCES IN YARDS, EG.  j(800) = 800 YDS.'@ X Xp  SPEEDS IN MPH, EG. 85 TO 100 MPH j X X j X X j X X j X X j 4 0(1500) X j H X j H X j 20-H 0 5j 35 H Hj HHjjj'1 TO 2 IS A STRAIGHTAWAY 800 YARDS LONG"j 2 TO 3 IS A CURVE 200 YARDS LONG,j/ THE BREAKAWAY SPEED RANGE IS 85 TO 100 MPH6j'3 TO 4 IS A STRAIGHTAWAY 500 YARDS LONG@j6 IT ENDS AT POSITION 1500 YARDS FROM STARTING GRIDJj(4 TO 5 IS A HAIRPIN CURVE 100 YARDS LONGTj. THE BREAKAWAY SPEED RANGE IS 20 TO 35 MPH^j-5 TO 6 IS ANOTHER STRAIGHTAWAY 300 YARDS LONGhj1 IT ENDS AT POSITION 1900 YARDS FROM THE GRIDrj,6 TO 7 IS A SET OF 'S' CURVES 500 YARDS LONG|j" THE SPEED RANGE IS 90-110 MPHj-7 TO 8 IS THE FINAL STRAIGHTAWAY OF 400 YARDSj+ IT ENTERS THE LAST CURVE AT 2800 YARDSj&8 TO 0 IS THE FINAL CURVE OF 400 YARDSj. THE BREAKAWAY SPEED RANGE IS 50 TO 70 MPHjj)THE TOTAL LENGTH OF ONE LAP IS 3200 YARDSj j8DURING THE STRAIGHTAWAYS YOU WILL BE ABLE TO CONTROL THE&#j>ACCELERATION AND BRAKING OF THE CAR. THE CURVES WILL BE TAKEN0j!AT WHATEVER SPEED YOU ENTER THEM.2!j8BELOW THE BREAKAWAY SPEED, THE CURVES MAY BE TAKEN WITH 4 jNO DIFFICULTY.:j2ABOVE THE FASTEST SPEED INDICATED, YOU WILL CRASH!D#j>WITHIN THE SPEED RANGE, THERE IS THE POSSIBILITY THAT YOU WILLN j7LOSE TIME OR SPEED BY SWINGING WIDE OR BY SPINNING OUT.X j7THE FASTER YOU TAKE THE CURVES, THE GREATER THE RISKS--bjAND THE LESS THE TIME!!!!qjrjs j6YOUR TASK IS TO TRANSVERSE THE TRACK IN A MINIMUM TIMEtj WITHOUT CRASHING!!ujvj%YOUR CAR MAY BE ONE OF THE FOLLOWING:w j 1. PORSCHEx j 2. FERRARIy j 3. MASERATIz j 4. LOTUS FORD{jWHICH CAR WOULD YOU LIKE|g}U~ j5WE DON'T HAVE THAT CAR IN STOCK, PLEASE CHOOSE AGAIN.|LԞxL$P vԞPv$d vԞ`v$X vԞ@v$x j'YOUR CAR HAS A MAXIMUM ACCELERATION OF MPH/SEC.jAND A MAXIMUM BRAKING OF $MPH/SEC.j*YOU WILL RACE AGAINST ONE OF THE FOLLOWINGj1. U.S. POSTAL DELIVERY TRUCK j 2. 1929 ESSEX j3. 1974 VOLKSWAGEN j 4. LOTUS FORD j5. 1974 FERRARIj-6. THE PHYSICS SUPERCHARGED LIGHTBEAM SPECIALj&CHOOSE ONE OPPONENT BY ENTERING NUMBERg&W&@7&@7&`7&@7&PW&`jWHICH CAR DID YOU SAY M$@%&PM$w58M$Z@%$dpdj R R BEGIN THE RACE!! R L@ $j ELAPSED TIMESPEEDPOSITION OPPONENT'S ACCELERATION j SECONDS MPH YARDS POSITION MPH/SEC j M4DN R VH :j Xj COMPLETED LAP ,ELAPSED TIMEODSEC. ^jYOUR OPPONENT FINISHED IN P'$SECONDS _ LODP'$ `V c ajCONGRATULATIONS, YOU WON BY SECONDS b! cjSORRY, YOU LOST BY SECONDS d! WDd #j OD 4  D   "j OD 4  FINISH  f LAtT V V>$ jMAXIMUM BRAKING IS $MPH/SEC  MF4& WF*D M!4%F @%F%F  W+@ H "j YOU STOPPED@#YARDS FROM POINT@ M4 M *MDD!F 4  H M@# JV R LMDD!'4 N p R M64%4@$% \ MDD"4#6& fM46 pL@ z@ M!4$D @$D$D W+@ H MDD D M44 $D M  V@tjMAXIMUM ACCELERATION IS MPH/SEC$ t M!4$D @$D$D~ W+@ H @ R *** SUB CURVE ***JRT L@^MF@#'4hM6q a"qrW4+6wjCURVE@, SPEED4MPH|L@MMDD!F W4+6 a#6@  MGFfff&jSPEED IN CURVE4MPH, TOOK CURVE WIDE, LOSTOGSECMFF!G| W4*a l  M74#4s33 MFF%4'7 &j SPUN OUT AT4MPH, LOST SPEED AND TIME 0M47 :| ljLOST CONTROL AT4MPH. YOUR CAR CRASHED!! qjYOUR OPPONENT FINISHED IN R'$SECONDS! R!j!jDO YOU WISH TO TRY AGAIN!f!V@@0Yv#(R#2d}]dvKWd#<Ud#FP F #PZn#Zd F#dR#n/@`HT N | WxNbzI@Wf#x&wDN W^diou{@`C# FKNS V`Y[] ^^# `0`abcdfgi0k`# mpsv yp|@AChE#&GHhJKMO8Q@SpU(VWxXp#&YhZ`[@\8]0^(_ `abcc#N '`HAMRBI( @ dR ** HAMURABI - GOVERN THE KINGDOM OF SUMERIAnR ** MODIFIED BY PEOPLE'S COMPUTER COMPANYxR ** VARIABLES USED IN THE PROGRAMR A1 => POPULATIONR A2 => IMMIGRANTS LAST YEARR A3 => DEATHS LAST YEARR B1 => BUSHELS IN STOREHOUSESR B2 => BUSHELS DESTROYED LAST YEAR BY RATSR B3 => HARVEST PER ACRE LAST YEARR B4 => TOTAL HARVEST LAST YEARR C1 => ACRES OWNED BY CITYR C2 => VALUE OF AN ACRER I => TEMPORARY VARIABLER J => " ", R ** INITIALIZATION6 j HAMURABI - @j0WHERE YOU GOVERN THE ANCIENT KINGDOM OF SUMERIA.Jj2THE OBJECT IS TO FIGURE OUT HOW THE GAME WORKS!!Tj*(IF YOU WANT TO QUIT, SELL ALL YOUR LAND.)^jvdvPvv&Wv'dv(`v)]v6}v@R ** REPORT TO HAMURABIjj(HAMURABI, I BEG TO REPORT THAT LAST YEARjjPEOPLE STARVED ANDPEOPLE CAME TO THE CITY.VL$ v@.j"THE PLAGUE KILLED HALF THE PEOPLE.LjTHE POPULATION IS NOWVj`j WE HARVESTED) BUSHELS AT(BUSHELS PER ACRE.jjRATS DESTROYED'BUSHELS LEAVING&tjBUSHELS IN THE STOREHOUSES.~jj THE CITY OWNS6ACRES OF LAND.v7D `j LAND IS WORTH7BUSHELS PER ACRE.jj jHAMURABI . . . R ** BUY LAND?j(jBUY HOW MANY ACRES2f< vFVPv$7ZV@&xd#(nxv&&"v66  R ** SELL LAND?jSELL HOW MANY ACRESf vVV,6@V06'"#(,@v66"Jv&& 7$ R ** DISTRIBUTE FOODj,HOW MANY BUSHELS SHALL WE DISTRIBUTE AS FOODf vV@&#(v&&" vP vVlv@vl R ** PLANT LANDvjHOW MANY ACRES SHALL WE PLANTf vV*6 v@V@&#(v VP$v&&"R ** HARVEST, RATS, AND CHANGES IN POPULATIONv(P@v)($v'& )Gv&&"' )vP v P"($&K@Vd 4 vd 4v ">#( R ** ERROR SUBROUTINE#-j#2j%HAMURABI, THINK AGAIN - YOU ONLY HAVE#<jPEOPLE,6 ACRES, AND#Fj&BUSHELS IN STOREHOUSES.#Pj#Z^'`HANGFL a R *** HANGFL *** THIS PROGRAM SETS UP FILES FOR * HANGMN *R *** FIRST, OPEN THE FILES YOU NEED. *** R *** A 2-RECORD FILE CAN HOLD ABOUT 80 10-LETTER WORDS, ***(R *** OR 50 15-LETTER WORDS ***2#R *** HANGMN EXPECTS THESE FILES: ENGLIS,FRENCH,SPANIS,GERMAN *** NH`p*LjWHICH HANGMAN FILE Vf``D`@`@jV`tj`+ DOESN'T EXIST; WHEN THE PROGRAM ENDS, TYPE~jjOPEN-`@`,2bj jHOW MANY WORDS g~ j@@~Yu@}~ jWORD #ufj@[uj jTHAT'S IT FOR `(jANOTHER HANGMAN FILE 2f<V@@0YL'`HANGMN`  R **HANGMN** MULTI-LANGUAGE HANGMAN GAMER AUTHOR: LOWELL VON EGGER 02/16/73p*(N pPqdp2wD<j% DO YOU WANT INSTRUCTIONS (YES OR NO)Ff PV 0NOZ V .YES<dj1 THIS IS THE GAME OF HANGMAN. YOU CHOSE THEnj.LANGUAGE THAT YOU WANT TO PLAY IN, AND I THINKxj4OF A WORD IN THAT LANGUAGE. YOU TRY TO GUESS, LETTERj(BY LETTER, WHAT THE WORD IS. SIMPLE HUH?j4 WHEN I THINK OF A WORD, I WILL PRINT A LINE OFj4DASHES WHICH CORRESPONDS TO THE NUMBER OF LETTERS IN j THE WORD. j7 IF YOU GIVE UP, TYPE 'GIVE'. IF YOU WANT TO QUIT,jSIMPLY TYPE 'QUIT'.j A FEW SPECIAL INSTRUCTIONS:j1SPANISH - THE ' IS COUNTED AS ONE LETTER, AND THEj! -CH- IS COUNTED AS TWO.j) IN WHAT LANGUAGE WOULD YOU LIKE TO PLAY?j%(ENGLISH, FRENCH, SPANISH, OR GERMAN)v *f D @`@V`,jTHE  ' LANGUAGE IS NOT AVAILABLE. TRY AGAIN.", j HAVE FUN!!6h@@w@JW*<Twt֤@@^ X@}@hWq1tTrZ|wqtwԞ h@@X@}th@pZw X@p w-Z j THE WORD IS v ABCDEFGHIJKLMNOPQRSTUVWXYZ'wP j YOUR GUESS?w$x pj& Vp0GIVEL0 Vp0QUIT: vpp@@D V.@bN jHURRY UP!Xb X@l l Vp0 vZjTHAT IS NOT A VALID CHARACTER.v4 X@P Vp1PZj/YOU HAVE ALREADY USED THAT LETTER. GUESS AGAIN.wPp X@p Vp1p`ZW$ jWRONG.vԠ@ j -------- I I*jI O4 TH\p>HjI IR\jI /Ifp j I /I\z j I \/I\ j I \/I\/VԬpjI I TԢ`jI / j I / \ j I \/ \ j I \/ \/ X@P#jIZ$j(------------ IIIIIIIIIIII ------------.VԮ@4Ԯ`4ԮpB8w@BVԬXLjYOU HAVE JUST BEEN HUNG.V`W$@tjjRIGHT!twp~w$@ X@ W0-ZjYOU GOT IT!!vDD@ j THE WORD WAS p j THE WORD IS  jYOU HAVE USED Pj(WOULD YOU LIKE TO PLAY AGAIN (YES OR NO)f  V 0YES@V .NOjYOU TOOKPGUESSES.(j YOU WERE HUNG"DTIME(S).2Z<j1SORRY, BUT I'M OUT OF WORDS. IF YOU WANT TO STARTFj4OVER, RERUN THE PROGRAM. THE WORDS WILL BE THE SAME,Pj&BUT THEY WILL BE IN A DIFFERENT ORDER.ZjCOME AGAIN SOON... IT WAS FUN!d`0HELLO > @ jREADYc`0HELLO1 a w/R ** FILES USED IN THIS PROGRAM ARE AS FOLLOWS **R ** BIL01F.A001 -- CRZYFL.A001 -- FREEFL.A001 **(R ** LOGFL.A001 -- NEWS1.A000 -- AUTOBL.A001 **2 R ** LOGMON.A000 **< p*,*,*,*,*,*,*FR *** ENTER PORT # AND CHECK ACCOUNT # ****Pt Z w/d ן`@&nNx&NP P0P@PPP`PpPPPOٔ ڔP@PPPPPP N4TIM w/ ן`@&VN&D LOGMON.A000@&LW&j@@@@D$@V@@0A000|V@@0A002|V@@0A100| ן`@&V@@.B200: w/" ן`@&%WH @X '&,'jport  down for maintenance. (&,r$BBS16VD@j%BBS DOWN....CALL BACK IN THE MORNING.J&rR **** CHECK A000'S PASSWORD ****|jPswd : 5ECH-OFFP  W0@j5ECH-ON V 0FEARSOME/Pj # v  5ECH-OFFP  W0@j5ECH-ON V 06290480ljINVALID... SESSION TERMINATED5MES-SECURITY VIOLATION&jjTIMED OUT... SESSION ABOARTED5MES-SECURITY VIOLATION&5BYE0&:R **** CHECK FOR HOBBY SHARE ****DV@@0B1 IV@@0D1 JV@@0C1 KV@@0K1 NR **** CHECK FOR FREE ACCOUNT B000 ****X bR *** PASSWORD FOR A1XX ACCOUNTS ***lV@@0B0vV@@0A000 j Password  5ECH-OFF+ j V .1134A&R*** CHECK FOR MAIL *** /@@ CRISIS COMPUTERF ACCT #@@5ECH-ONj PjV@@<B0h R **** CHECK FOR VALAD B000 USER PASSWORD ****vd j*jWAIT ...4j>D FREEFL.A001@$HHW$`>RD LOGFL.A001@H\W`RfD CRZYFL.A001`'HpW'`fz X@ ``h`Z w/ h@@ X@} V`@h@`ZVd@vdd@jTYPE YOUR NAME PLEASE Pj h@@vF$ XԞ@d.@`4F@8 V`@jBh@@LR *** SEE IF PASSWORD AGREES WITH FREEFL IN A001 ****VV@0P`ZjVd@t j Try again...~ jNAME NOT CURRENTVP0vP< CARRAGE RETURN >R **** PRINT UNKNOWN PASSWORD IN CRZYFL IN A001 ****j`PjDEMONSTRATION TIME ELAPSED. 5BYE6|@*@" !R **** CHECK BIL01F IN A001 TO SEE IF CUSTOMER IS CURRENT ****vF@ OДHєH(D BIL01F.A001@,H2W,`(< h@@F4TIMP V`@Zh@dV@@1Д@@xnPx7} w@#WxWpW@"j% *** YOUR ACCOUNT IS PAST DUE@ DAYS. ***5PAU-5j BILLS MAILED DAYS A GO.5PAU-5j6Your account has been suspended call CRISIS TIMESHARE5BYE$ v&/ " ,/@x CRISIS TIMESHARE6B ACCT # @@@ PJV@@0B000TTj^R **** ADD NOTES ETC TO HELLO STATEMENT FROM $NEWS1 ****h D$NEWS1@$rW$`h|h@ X@Ph@W0++kZD  EXE-$NEWSD$@x UPDATED jjjjREADYbR **** CALENDAR STARTS HERE ****,| x [yL[jzDL@S[|&,| v ZxKZjyD@LS[@|0 M4: L@D LD@N M`XL0123456789000000000000000bL@ - - : AM PORT # lt vM ` L@h l MVd!4K L@@ D PMVhM` ` L@PXM4 ` L@hpW@@ L& nh X@p VD* B*VpR4 LDD"h>M@HlRM@\ `f L@@@p MD"@z ` L@@PM ` L@p@ l @R *** STUFF ACCOUNT & TIME IN REPFL1.A001 ***D REPFL1.A001p$HW$` V`p  p`hpjp@P@ V@@0B0   8 j@P@ $D$@ .D$@ 8 BZ L V ` R NUMBER-TO-STRING j L䞯P tM@@@@ ~L"P M@@@@ ^ j@P **** NO TIME LEFT **** j@` 5BYE R **** AUTO BILLING STARTS HERE **** ^ R *** NOT WORKING YET *** O۔PܔP D$@ j LOGGING ... D AUTOBL.A001@+H W+` h@@ 5TIM R ** L1$(1,4) = ACCOUNT # -- L1$(35,38) = ACCRUED TIME ** (R *** VERIFY ACCOUNT **** 2 YD@} < V`@ Fh@ P vO@ ZR **** FIND ACCOUNT # **** dWܔ@@1۔@@ x n[D xR *** STUFF DATA INTO RECORD J1 *** j@۔@@۔F L  R R R R R R D$@ ^ R *** MAIL CHECK FILE *** jWAIT... j 5P@@TIM   V`P | w "w@ ,hP 6 P` " @hP@ JW@/P " TD$P ^ R *** INIT T1$ *** hw/ < You have mail... EXE-$MAILBX > r |D$P R *** INIT T1$ *** w& [ No mail today ] R D MBX01F.A100P$H W$` ^ R*** CHECK FOR BREAK KEY *** w/ ן`@& ^ s HELLO.C100 jCHAIN FAILED :  `HERRO >  w/R ** FILES USED IN THIS PROGRAM ARE AS FOLLOWS **R ** BIL01F.A001 -- CRZYFL.A001 -- FREEFL.A001 **(R ** LOGFL.A001 -- NEWS1.A000 -- AUTOBL.A001 **2 R ** LOGMON.A000 **< p*,*,*,*,*,*,*FR *** ENTER PORT # AND CHECK ACCOUNT # ****Pt Z w/d ן`@&nNx&NP P0P@PPP`PpPPPOٔ ڔP@PPPPPP N4TIM w/ ן`@&VN&D LOGMON.A000@&LW&j@@@@D$@V@@0A000|V@@0A002|V@@0A100| ן`@&V@@.B200: w/" ן`@&%WH @X '&,'jport  down for maintenance. (&,r$BBS16VD@j%BBS DOWN....CALL BACK IN THE MORNING.J&rR **** CHECK A000'S PASSWORD ****|jPswd : 5ECH-OFFP  W0@j5ECH-ON V 0FEARSOME/Pj # v  5ECH-OFFP  W0@j5ECH-ON V 06290480ljINVALID... SESSION TERMINATED5MES-SECURITY VIOLATION&jjTIMED OUT... SESSION ABOARTED5MES-SECURITY VIOLATION&5BYE0&:R **** CHECK FOR HOBBY SHARE ****DV@@0B1 IV@@0D1 JV@@0C1 KV@@0K1 NR **** CHECK FOR FREE ACCOUNT B000 ****X bR *** PASSWORD FOR A1XX ACCOUNTS ***lV@@0B0vV@@0A000 j Password  5ECH-OFF+ j V .1134A&R*** CHECK FOR MAIL *** /@@ CRISIS COMPUTERF ACCT #@@5ECH-ONj PjV@@<B0h R **** CHECK FOR VALAD B000 USER PASSWORD ****vd j*jWAIT ...4j>D FREEFL.A001@$HHW$`>RD LOGFL.A001@H\W`RfD CRZYFL.A001`'HpW'`fz X@ ``h`Z w/ h@@ X@} V`@h@`ZVd@vdd@jTYPE YOUR NAME PLEASE Pj h@@vF$ XԞ@d.@`4F@8 V`@jBh@@LR *** SEE IF PASSWORD AGREES WITH FREEFL IN A001 ****VV@0P`ZjVd@t j Try again...~ jNAME NOT CURRENTVP0vP< CARRAGE RETURN >R **** PRINT UNKNOWN PASSWORD IN CRZYFL IN A001 ****j`PjDEMONSTRATION TIME ELAPSED. 5BYE6|@*@" !R **** CHECK BIL01F IN A001 TO SEE IF CUSTOMER IS CURRENT ****vF@ OДHєH(D BIL01F.A001@,H2W,`(< h@@F4TIMP V`@Zh@dV@@1Д@@xnPx7} w@#WxWpW@"j% *** YOUR ACCOUNT IS PAST DUE@ DAYS. ***5PAU-5j BILLS MAILED DAYS A GO.5PAU-5j6Your account has been suspended call CRISIS TIMESHARE5BYE$ v&/ " ,/@x CRISIS TIMESHARE6B ACCT # @@@ PJV@@0B000TTj^R **** ADD NOTES ETC TO HELLO STATEMENT FROM $NEWS1 ****h D$NEWS1@$rW$`h|h@ X@Ph@W0++kZD  EXE-$NEWSD$@x UPDATED jjjjREADYbR **** CALENDAR STARTS HERE ****,| x [yL[jzDL@S[|&,| v ZxKZjyD@LS[@|0 M4: L@D LD@N M`XL0123456789000000000000000bL@ - - : AM PORT # lt vM ` L@h l MVd!4K L@@ D PMVhM` ` L@PXM4 ` L@hpW@@ L& nh X@p VD* B*VpR4 LDD"h>M@HlRM@\ `f L@@@p MD"@z ` L@@PM ` L@p@ l @R *** STUFF ACCOUNT & TIME IN REPFL1.A001 ***D REPFL1.A001p$HW$` V`p  p`hpjp@P@ V@@0B0   8 j@P@ $D$@ .D$@ 8 BZ L V ` R NUMBER-TO-STRING j L䞯P tM@@@@ ~L"P M@@@@ ^ j@P **** NO TIME LEFT **** j@` 5BYE R **** AUTO BILLING STARTS HERE **** ^ R *** NOT WORKING YET *** O۔PܔP D$@ j LOGGING ... D AUTOBL.A001@+H W+` h@@ 5TIM R ** L1$(1,4) = ACCOUNT # -- L1$(35,38) = ACCRUED TIME ** (R *** VERIFY ACCOUNT **** 2 YD@} < V`@ Fh@ P vO@ ZR **** FIND ACCOUNT # **** dWܔ@@1۔@@ x n[D xR *** STUFF DATA INTO RECORD J1 *** j@۔@@۔F L  R R R R R R D$@ ^ R *** MAIL CHECK FILE *** jWAIT... j 5P@@TIM   V`P | w "w@ ,hP 6 P` " @hP@ JW@/P " TD$P ^ R *** INIT T1$ *** hw/ < You have mail... EXE-$MAILBX > r |D$P R *** INIT T1$ *** w& [ No mail today ] R D MBX01F.A100P$H W$` ^ R*** CHECK FOR BREAK KEY *** w/ ן`@& ^ s HELLO.C100 jCHAIN FAILED :  `HITRY @W n LK@.D\ n ixn B@N n u0 W n LK@.D\ n ixn B@N n u0 ,hnXK-hoXLd6 0UPDTQ T 0UPDTSB 0USECNTd= 0USEPRTo@ 0VACSICKe 0VSPRT E 0W2FORMT 0WKCOMPA cADD Mi cCHK Mo cDUMY W n LK@.D\ n ixn B@N n u0 `$w,hnXK-hoXLd6 0UPDTQ T 0UPDTSB 0USECNTd= 0USEPRTo@ 0VACSICKe 0VSPRT E 0W2FORMT 0WKCOMPA cADD Mi cCHK Mo cDUMY LJC JLS,X0Y1 Z2[RENT"d3\DUCKWd W9TWX  TEL7XLOEM_ 6 "CCD1RAC2MDC3dBHC4MCC5DEC6GBC7DJKC8KEC9POC1APC2ISC3$TBC4JWC5Q?30002dB03d04)SSD5d _!HD8"BOB#MB3$TUF%DJGJADdT?AdGAHdJCRdRBPddJPK eGEM1#EfGCCAgLADRoJACKp)X HELP GOODBADSAV" 0TST1 T 0UNTDIS 0UNTSUMU2 0UPDTAQo 0UPDTG KY 0UPDTICHPASMB# a K J`R HPASMB, HP 36806A, 2/74, PART 1 OF 4NH H0H( p*,ASMWRK,$ASCII2 wP@FjHP ASSEMBLER PACKAGE dj @nDxWDnjV@@.:<v LIDUSTEDJFJOEJRUPR X@ @V@`0 @Z<vdTĞ@ ,v@@.WP6`1/j*IGNORED0d1 T6@l46R--:LIST;V@AV1@@1@@.SBV1@@1`@.1xHv6`JOWD@T V`@DY h@@^ V1Phv6@rp| V.1P XĞ@|@h@ Z V1`v6Pp V.1`vNV@jh` @@ X@d  v @ j ZX|h@V@0v& ?@0j :ZDV@bNj:: Sj Xdb j****LIST END****ldv X`~@jF#,DĦP(ĦP(@PZ^R--:DUMPV`V1@@1@@.1xv6@WD@v@ V`@DR--:STOREV@V1@@1@@.Sv6@WDWD`v`V1`@1@@01vV1`@1@@05xj@ h@@ V`@(D WD /`V@@0::HV@@0:<8 j@`*vĠ@>HvĢ@M /`Rv\j LINESfdR--:EDITV`vT@V1@@1`@.1x h@@ h@@j@DWDjV@@0/V@@0:8 j@`j/BAD CONTROL STATE RE-ENTER STATEMENT ON TTY @DWDjV@@.:P $v IDRE. X@@8V@@0 `BZLjINVALID EDIT FUNCTIONV`V@41@eV@j V1@tv6@~p V.1@vfg V1`v6@p V.1`vgV@Vf@g4f> j LIMIT ERROR V`@K V`@dX|f@h@ j@`ZT(ZZ(R--/INSERT<h@F j@`KvĠ@PZR--/REPLACE AND /DELETEdXf|gnh@xZR--/END V`@h@ j@`Vd@ V`@( V`@ h@@ h@@h@ j@` jEDITING COMPLETE DASMWRK@Dd@R--:JFILEJ V1@Ov6@T^WD@cv`0hdRv6@WD@ WD4@V`v6`vd@vT`WDWD` DASMWRK@DlR--:JOBqosv`vdR--:EJOBb4R--:RUN> WH@WH j LOADR NOT RUNRdW wH@\ r$HPRUNPR--:PROGRAM V1@V1@@1@@0ASMBV1@@1@@0LOADR ` jNO SUCH PROGRAMd` j$END ASMB NPRGdD`@D h@@ V@1@@0ASMB v ?x j $END ASMB CSd v LTCAR w`@P`p v@  V1@ V $ X@P .V1@1@@0  L 8Z B L W@ N w@@ Pv@ R  VW`1p [ r$ASMBP ` WH jjL06 t jLOADR TERMINATED ~d wH@ W@ jNO PROGRAMS LOADED. wH jLOADR COMPLETE d R--FIND COMMAS n1P v@ X` V0  V., v1 v@ VH Z v1 ^ R--ASSIGN FILEv016@16@@D0dD^ j0 UNDEFINEDd j0 IS READ-ONLYd jMISSING PARAMETER j ILLEGAL DIGIT  jINVALID FORMAT( j0 IS TOO SMALL*TTd,d,jEDITED PROGRAM IS ON ASMWRK0d< jBAD CONTROL STATEAvT@FKjEND FILEP jEDITING ABORTED!ZddjASMWRK IS TOO SMALLnPx j ILLEGAL LUN jPARAMETER ILLEGALjRE-ENTER STATEMENT ON TTYTTdp R--STRING TO NUMERICz v  0123456789vX16@|16@@ X@P V0 Z^ vP @Z^8R--TAB AND DELETE TRAILING BLANKSBX@~@L V. `VZ` v@j X@`t V0 ~Z^v  v`  vp @^'`HPEXC?  J J R HPASMB, HP 36806A, 2/74, (HPEXEC, PART 2 OF 4)NH H @ @#p$ASCII% vP@((dh@   R--EXEC CALLST @2BT @`4 V @\ jRQ jOR v@ X @~@jF#,D@( @( @@Z j rHPASMBdR--READV`$V@5V` @$ @ @@@$ @@"v`'H, V@@1V@P4@@$68V9j:V@@0:7;(v@$ @$ @" @$ @@E.v@@@$ @" @$ @J v@T rHPRUNn YjIE [^R--WRITEcV`$hV@r$v@$ @$ @" @$ @|v`H V@@֯@ @V@`4@@$jv@ @ v@-jCW R--I/O CNTRLHV`JV@ VP@=V@@4@@j X @P  j @@Z  v@&-0VPH6@@4@`:#/ `$ `" `$ `D=R--PRG CMPLTV@(R--PR SUSPV@$ R--SEG & MAIN LOAD V@6p (*R--TIME4V@9V@@@:> v@@@@@Hv@@Rv@`@\$pR--I/O STATzV@6 @@v@`v  V @Py v  @v@@ $jLU  R--FILE READ/WRITEV`HV@@4@` V@@vPv`D@VjFI $. V`@8h@ `@B,v @$ @ @@@$ @Gv`I V @L V @xxVX @|` h@jv@tZ ~X @| j@v@Z v@@VX  j@Z v@ @$jIT  R--WK AREA STATV@ v@$R--WK LIMITS(V@2$P R--SRCH FILE NAMZV`dv@nv`xD@Vdv  v` v@@$ V`@Gv @ h@ @v  @s R--CHG USR DSK" V@4`,$pR--GET PARAMzV*6v v"v  @ V .@^ v  @ V 0 v  @  V @jADR OUT OF RANGE v @ v  @ V @ v   R--UNDO CNWDv@ @ @@@v @ @@ X @@v  @ @@@v @ @@Z 4vP @ @@ @ @ @@$`@$@^d R--NUM TO ASCIIivn X @|@xv@@$@v dV0vv @v@x@v@$@dv@Z ^V@y v ^v@ v ^, R--ASCII TO NUM6 X@|@@v JT v@^V0hv @r| v v@Z^v  vV  , @@v  v@ X@ @@  V  @ Zv@ X|x~@ V  0 9Zv @^'`0Tv z~!1DGxHPMLIT( @#R **** HP TIME-SHARED BASIC PROGRAM LIBRARY *********************RR 36218 REV A PART 2 OF 2RR LIST/DUMP HP ASSEMBLER FILESR#R **** CONTRIBUTED PROGRAM ************************************** OHHHdpBP,B0-2,B3-5,SEX,F0-2,TAB,ENDnw@ v4LDADJMISJSSTANXOIOCPLIMIOTSFHLOCDEEQABBSENRESONAEXOR,jX@}V`"hW@@0*@ wp@X@@@$ W0@)Z. wpH/ W0CLC0 W0CLF3 W0ASC@7vp8 X@B W0 LZVvX8VH @X W. Z@ w@w "wP @f ,@@X@~@J W. TZ^vk@"Z#(j'`HPMLUT a*\#R **** HP TIME-SHARED BASIC PROGRAM LIBRARY *********************RR 36218 REV A PART 1 OF 2RR LIST/DUMP HP ASSEMBLER FILESR#R **** CONTRIBUTED PROGRAM ************************************** OHHH N dpnw@ v4LDADJMISJSSTANXOIOCPLIMIOTSFHLOCDEEQABBSENRESONAEXOR v v 0123456789,vŞ/v̞@1v͞@6vΞX@}V`"v $vΞ@vv͞@hW@@0*w@  wp@X@@@$ W0@)Z. wpH/ W0CLC0 W0CLF3 W0ASCX7vp8 X@B W0 LZVvX8V` XX W. ZX w@w "wh @Z ,X XX W. Z@vŞ v@v@ vŞ@$ @*v@4 X@@> W0 HZRvΞ\!4 XX W.  Z @ vΞ@ X W0 !4 W.,  vΠ@ Z !4 XX W. Z@vΞv@v@ vΞP$ @v@ X@P W0Z"!4 XX W. Z@v͞v@v@ v͞P$ @v@ X@P W0Z vΞ!4XWpH0ORGbWpH0EQU@lWpH0OCT vWpH0DEC WpH0BSSWpH0REPWpH0END@!4kvΞ@X@~@J WH. hTZ^vhj @rvΞ|v@!4X@~@!> W. !\!HZ!Rv!\v!f XP@~@!pv!z vƞƦ@! vǢ@$Ơ@! v!Z! j@!"v""Z#(R'`HHPRU ? J J  vP@R HPASMB, HP 36806A, 2/74 (HPRUN, PART 3 OF 4)nvN    2v@7nh 8v<v@ @ FV@Pv@ $U v@$@Z3xv@T@ jR--GET-ADRv@ v@@ v@ $V @6 @W"VI,^6 v @@'JjADR OUT OF RANGE T X@~@^)jF#,D@@(@@(@@hZkjmrR---ADD| vpvv vvvp ,@ "@"vv6040 v64664R---ANDv@vv Xp v@($@@4@@ v@ v@Zv@"4@ &:R---IORDv@IvNvS XpX v@($@@6@@] v@b v@lZvv@"6@ R---XORv@vv Xp v@($@@.@@ v@ v@Zv@".@ R---ISZv@@"$ v  R---CMPARv H. *R---JMP4v>HR---JSBRV\ v@fv@pzR---LDA, LDB vXR---STA, STB vhR---PRINT T!%W X@|v v@' jF#,7DZvjR---INPUT nf"$ X@|")v@. v@3'8vBZLv@Vo rHPASMBd~ Vv֯@@@ X@ p~@v @@ v@Z v@ v$B @v" @$ pv X40 @ v4 P0 H6B4 H vv@@v `40 @ 6 h40 @ v64@. ` h @  .v60@4 p v64 pv p" p@"2 v@<%v6 x44B @ 6 @ 4 x4F v6 @ 4 X ` h xPv @Zx v@ X@xV0 EZv@ T_tNu TH v@ vv@.!v@@@$@@+v@@@ @@@v@@@v@@ @@@"v@@@@@",v@@@"$@6V@ v@@J!v@@"@"@TR---DIVv@. vv@"@5v@@"$@$@.@@$@0@@$ , X@@  v@ v@ $@ @ v"$@Zv@$"@v@$@"@& R-DLD v@* v@@4>R-DSTHR v@\ v@@fpR-ASR,LSRz( v@&v@& $ &$$v@@"@@"v@@ $@$B vv@v@vv@ @ @v@ @  v@ $v@( v@(@ "v@^R-LSL,ASL ( v@&$$ & $ v@&$$  v@@@"$@ v V $v@@@"$@ ) .!v@@@ $@  0 v@@ 2vB*46@4 3 `R-RRR j( t v&$$ ~ v"@"  R--RRL ( v& $  R--STO v@ v@  R--CLO v v@  R--SOC  v@ B  v4.y  (R--SOS 2v@  7 v4.{@ < FR--HLT P d R--SHIFT ROTATE GROUP nv xv@@@ v@ v@ @@ v@@ @ $v@@@$@ @ @ \p  B X v4B v@ 4B@@ \p  B X v@  v@@@@ $ ^ v@ ^ %v@$  @$,@ "@$@" ^ "v@@ ,"v@@ $4B"4n 6^ @v@@@ J^ Tv@@ ^"v@@ $4B"4 hv r^ | v v@  v ,@ "@" v ^ %v@@@ @ @  v@"$ ^ @@ @@  rHPEXECd'`0T!?!13!ID$4A4d6789V!2nHURKLE( @:dR *** HURKLE - PEOPLE'S COMPUTER COMPANY, MENLO PARK, CAn jWANT THE RULESx g@@W<YR *** HERE ARE THE RULESj1A HURKLE IS HIDING IN A GRID, LIKE THE ONE BELOW.jj h NORTHj XH~@V@#@WEST 4P . . . . . . . . . . EASTpP . . . . . . . . . .ZjP 0 1 2 3 4 5 6 7 8 9j" h SOUTH,j6j2TRY TO GUESS WHERE THE HURKLE IS HIDING. YOU GUESS@j0BY TELLING ME THE GRIDPOINT WHERE YOU THINK THATJj0THE HURKLE IS HIDING. HOMEBASE IS POINT 0,0 INTj1THE SOUTHWEST CORNER. YOUR GUESS SHOULD BE A PAIR^j1OF WHOLE NUMBERS, SEPARATED BY A COMMA. THE FIRSThj1NUMBER TELLS HOW FAR TO THE RIGHT OF HOMEBASE ANDrj2THE SECOND NUMBER TELLS HOW FAR ABOVE HOMEBASE YOU|j0THINK THE HURKLE IS HIDING. FOR EXAMPLE, IF YOU j.THINK THE HURKLE IS 7 TO THE RIGHT AND 5 ABOVEj0HOMEBASE, YOU ENTER 7,5 AS YOUR GUESS AND THENj0PRESS THE 'RETURN' KEY. AFTER EACH GUESS, I WILLj1TELL YOU THE APPROXIMATE DIRECTION TO GO FOR YOURjNEXT GUESS. GOOD LUCK!R *** HURKLE 'PICKS' A GRIDPOINT AND HIDESLPL$Pjj0THE HURKLE IS HIDING - TRY TO FIND HIM!R *** GET A GUESS AND PRINT INFO FOR PLAYERL@jjWHAT IS YOUR GUESSg֏""$X&R *** GO TO INFO SUBROUTINE0:L@DNR *** HURKLE HAS BEEN FOUND!XjbjYOU FOUND HIM INGUESSES!!!l jLET'S PLAY AGAIN.vR *** SUBROUTINE: PRINT INFORMATION FOR NEXT GUESSjGO W0$W,$jSOUTHjNORTHW0W,jWESTjEASTj^ `INDE  a/# J ' v$INDEX (r1.A0072R PROGRAM CONTINUES HERE< R PROGRAM INDEXFRPNHZN$dv$HP 2000/ACCESS PROGRAM LIBRARY INDEXnp*,*,*,*xp* DIF1.A100@ DIF2.A100@ DIF3.A100` DIF4.A100@ RL------LABCDEFGHIJKLMNOPQRSTUVWXYZRjx/@v vNvV@@.Y" DLPP ,v P6j@jInstructions (Y/N)TFXj^vrV0Y=|7RMj!j:Information is contained in files concerning most commonlyj4used programs. This information is available via the!j9program INDEX. The location of programs listed is LIBRARYj*(use $ prefix) unless specified otherwise.jj#THIS MAY BE ACCESSED IN THREE WAYS:!j9 1. BY THE NAME OF THE PROGRAM, E.G. INDEX OR $INDEX&jC 2. BY THE CALL LETTER OF THE SUBJECT LIBRARY, E.G. B, D, OR Fj. 3. A LISTING OF ALL PROGRAMS BY USING: Ajj&Search for program or subject (S or P)jV y& j @0 j x:vDjNV@@.S>Xj.Do you wish to see the Table of Contents (Y/N)bljvvV@@.Yjj SUBJECT LIBRARIES/@j CALL LETTERxSUBJECTjj BxBUSINESSj CxCAREER COUNSELINGj Dx FINE ARTSj FxFOREIGN LANGUAGESj GxGAMESj Lx LANGUAGE ARTSj Mx MATHEMATICSj SxSCIENCEj HxSOCIAL STUDIES j TxSTATISTICS & PROBABILITY$j Ux,UTILITY--PROGRAMMING, DATA HANDLING, EDITING #j Vx*VOCATIONAL ARTS--DRIVER TRAINING, HOME EC.*j4jENTER: LIBRARY CALL LETTER>fHvRj\Wfjp j ENTER: NAME zfvjL  V@@.$L@R R LOOP OVER FILESR X @@V`  R R LOOP OVER RECORDSR X @|h   Ld$L"d.L8V Bh LL  @VV0 x`V0A xjV t V0 x~X@|h V@@.  TL@` L@@p L@V0 xZ RR PRINT CONTENTS OF RECORDRh   Ld L"dj j ( j  - 2V@ /<j SUBPROGRAMS: FLpPX@|ZV@ dLnj xh V@@0   j   L@ $j @ L@Zj j V Fj  LIBRARY: h j L  @ X@| @ ` "h ,j 6Z@j JZ TZ ^V :h jNO INFORMATION EXISTS FOR , RECORDS SEARCHEDr:|`G K0O@SPW@]$jd44 w}w,INDEXR ~jENTER FILES STATEMENT IN LINE 1 R PROGRAM INDEXRR&NH H0H@HPH`HHHRLPOISM$^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^$MJ .M$ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZBMJ GRL j INDEXR VjTOTAL NUMBER OF FILES `gjW@7@7V~Xd@}hd@hd@ZdR j INSTRUCTIONS fV@@.Yl"j9 THIS PROGRAM WAS CREATED TO FACILITATE THE CREATION OF  j INDEXES FOR ("j9PUBLICATIONS. ONE ENTERS THE PAGE NUMBER FOLLOWED BY AS 2 j MANY ENTRIES<!j8AS DESIRED. THE PROGRAM IS CONTROLLED BY THE FOLLOWING F j COMMANDS:P j P: NEW PAGEZ j O: OUTPUTd jI: INITIALIZEn j S: STOPx!j7 ALL COMMANDS ARE INDICATED WITH A 'CTRL A' AS A FIRST  j CHARACTERj-FOLLOWED BY THE SINGLE LETTER OF THE COMMAND.j6 ENTRIES MAY BE DELETED BY ENTERING THEM ON PAGE '**'.lj R R INPUT SECTIONR Xd@}@hd@ d@hd Vd1@ hd@@d@@ZdjERROR'V`d@ L 4f>V@@0 f  jPLEASE ENTER PAGE NUMBER f 4LԞ@ jd LԞ@ jd ` 4 R R CHECK ON COMMAND R X@@ V@@0  Z j UNRECOGNIZED COMMAND 4 TX'R R OUTPUT SECTIONRj - INDEXx @ L0Xd@}hd@hd@ZdLĞHM@ R LOOK FOR WORDL@Ld@hd@"V`d6LԞ@@hdJLԞ@Thd ^V@06hV*@6rL@|6Ldd@Vd1hd@V`dT@TR STORE CITATIONS j @`Ld@hd@V`d\LԞ@hdLԞ@hd V.@V 0**j  `\Ldd@fVd1phd@zV`d\T~ R PRINT ENTRYV@1pj@ @@@@j X@|t @@j. ZLt@L4x @@@@LP R SORT CITATIONSh @L`P @Zh  _V 0`PaV 0PPdLȞfL@i V nX p V ,0r V *Zt V >Axv V *9xZL@VXP VP,0 VP*Z VP>A VP*9ZL@V","PV"*" V ,PP V *PV @@,P@@PV @@0P@@LǞ@VX` V`,0 V`*Z V`>A V`*9ZL@V"*"PV"," V *`P V ,`V @@*`@@PV @@0`@@LȞ@ V 64L@L@ VPLǞ@L@ V`iLȞ@iL` PR PRINT CITATIONSV`1|"Vt'$j,%L44@'V4`@H,(j)LĠ@* x +L4x ,j`1Lt6LP`8L44`;|jLĠ@L0@VĬx  X@B"j ZM@j- x  LĞ`&p X@B"zj Zj- NRR R INITIALIZATIONURXj DO REALLY WANT TO INITIALIZE bflV@@.Y4v j SO BE IT!!Xd@}V`d  Y$@|jd$`h@$[$ Zd*6R ADVANCE TO NEXT FILE@Ldd@JVd-OLdd@T j FILES FULL^4V`d@hd@T  l jd ljd 4'`INFORM( @K  w$INFORMR PROGRAM CONTINUES HEREdj!INFORMS YOU ABOUT THE 2000/ACCESSnR: PATCHED INTO $INFORM 1/3/76xv YR: "F/OUT" (REV.#2), WRITTEN 11-27-75 BY MIKE SCHWEIZER!R: PRODUCED AT THE EDP RESOURCE CENTER, SAN FRANCISCO, CALIF.NHp*R: INSTRUCTIONS SECTION$z.V@@.Y8jB"j;THIS PROGRAM GIVES YOU A 'CLEAN' SERIAL FILE DUMP, WITH THEL!j9ABILITY TO HAVE YOUR OUTPUT FORMATTED INTO NUMBERED 8 1/2V j8BY 11 INCH PAGES (ASSUMING YOU CHOOSE 55 LINES PER PAGE,`"jR: PAGINATION OPTION, INITIALIZE 55 ITEMS/PAGE IN "Q"wn ,R: USER WANTS PAGINATION, GET STARTING PAGE NUMBER6 jSTARTING PAGE: @w@Jx $T^R: GET NUMBER OF ITEMS/PAGE FROM USER (DEFAULT IS 55)hwn |R: CHECK FOR VALID PAGE NUMBERW7@6w@R: READ OUT TO STARTING PAGE (Q ITEMS/PAGE)X@}X@} @bh@h@ZZR: SET UP PAGINATED EXIT V`@\R: ALLOW USER TO POSITION FORM-FEED PAPER j7POSITION PERFORATIONS, IF ANY, AT PRINT LINE, AND PRESS&j'RETURN' TO START./`0$:R: SET END-OF-PAGE LINEFEED VARIABLE TO ZERODw$NXR: PAGE OVERFLOW MESSAGEbj#PAGE OUT OF RANGE, THE LAST PAGE ISlR: RESET POINTER AND ASK AGAINv h@@6/@=/PR: PRINT "Q" ITEMS, THEN CHECK FOR PAGINATIONX@} @h@jh@jZR: IF NOT IN PAGINATING MODE, SKIP PAGINATION ROUTINEV .Yw@ /$=/@D/`R: SET START-OF-PAGE LINEFEEDS TO FIVE w$P*4 R: NON-PAGINATED EXIT>/P=/`HR R: PAGINATED EXIT\/z "=/PfbpR: "ENTER" CHECK SUBROUTINEzx $j W$0@^`.IOMAP  a6 N HjMount MCP tape & press return F (pMT2 V`@<F@FV@@0 nP j@T Z<dF@njxd`IRV J (J`&'TD4p !  p*,*,* NH Hj#ARE YOU AN EXPERT WITH THIS PROGRAM(f2V@@0YZ<V@@0NnF jTYPE YES OR NO.PZw@dxnw@xjU jFILENAMEjWHAT FILE DO YOU WANT TO SORTf pv`D`@V`"j;THIS FILE IS EITHER MISSING OR UNAVAILABLE TO THIS PROGRAM.jU j ALL RECORDS"j"DO YOU WANT TO SORT ON ALL RECORDS"f,V@@0YT6V@@0N@ jTYPE YES OR NO.JTvf@^hw&@rw'|NU j STARTj. ON WHAT RECORD DO YOU WANT TO START THE SORTg$Vd@w&$Uj ENDj, ON WHAT RECORD DO YOU WANT TO END THE SORTg$Vd@W$?&D&j2 YOUR SORT MUST END ON A RECORD AT LEAST AS LARGE0j AS THE STARTING RECORD.:Dw'$NjXUbvb jELEMENTlvj3ON WHICH ELEMENT OF EACH RECORD DO YOU WANT TO SORTfT VT4TTjTYPE A POSITIVE INTEGER.XjUjN OR S%j?IS THIS ELEMENT A NUMBER OR A STRING IN EACH RECORD OF THE FILEfV@@0N V@@0S jTYPE NUMBER OR STRING. wD@* wD@*j4U>R>jA OR DH\R j5DO YOU WANT THE SORT IN ASCENDING OR DESCENDING ORDER\ffV@@0ApV@@0DzjTYPE ASCENDING OR DESCENDING.4w4@w4@jUj1-5.jSPECIFY YOUR OUTPUT:j j 1 = SORTED ITEMj 2 = RECORD NUMBERj# 3 = SORTED ITEM AND RECORD NUMBERj 4 = FULL RECORD CONTENTSj 5 = FORMATTED OUTPUTj$jOUTPUT DESIRED (1-5).f8V4`4VBjTYPE 1, 2, 3, 4, OR 5.L$VVPn`w@jvtv@~Uj(TYPE THE LIST OF ITEMS YOU WANT PRINTED,j4EACH FOLLOWED BY THE COLUMN YOU WANT IT TO BEGIN IN.jTO END THE LIST, TYPE '0,0'.jUjI,CjITEM NUMBER, COLUMNf4 V44V444444 !j:THE ITEM NUMBER AND COLUMN MUST BOTH BE POSITIVE INTEGERS. V4*@(j$THIS COLUMN HEADING MUST BE AT LEAST@(V4HF2jMAXIMUM COLUMN HEADING IS 72.<Fv@PvZv!4dVPnjxUjT OR F#j;DO YOU WANT THE SORT PRINTED ON YOUR TERMINAL, OR ON A FILEfV@@0TV@@0FjTYPE TERMINAL OR FILE.xw@w@j jFILENAMEf p^vp"Dp@,Vp.`J6#j=THE OUTPUT FILE MUST BE DIFFERENT FROM THE FILE TO BE SORTED.@JDp@TVr^%jBTHIS FILE IS EITHER MISSING OR UNAVAILABLE FOR YOUR EXCLUSIVE USE.hrvf@| j@@  V@+'#&@ V@+'#&@ V+'#&@jFILE p( IS TOO SMALL TO HOLD THE ENTIRE OUTPUT. rIRV1x V`fv@v@  v @hfvv V"@^ W$5$$j TYPE A POSITIVE INTEGER.vd@^ V`@h@$vd^j FILE `! DOES NOT HAVE THAT MANY RECORDS.vd@^'`IRV1 J @#J`&'TD4p ! RR FINDIT: FILE INFORMATION DIALOGUE TECHNIQUER IRV1: PART 8 OF 8 R 36250C, 6/74R j)PLEASE GET AND RUN YOUR ORIGINAL PROGRAM.bp*,*,*(*NH H0H@HP@@HH2)wHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA<)wHXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXFN&&&!&&PvDZ D$CHARS`dV`nh`x#v< !#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\%v@abcdefghijklmnopqrstuvwxyzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzD`@UDp@ V`@(w6@w7 w8@%D!4@v w9vnonßo#nv"Y$&}', W9J6 w9@jJvTh@$^phv@rV|W6U8W-W15-$W+W15-$V@,V@*W-$V@*V@,W-$V0D&v@0w77@:NDNUDXlXvblXvvv V@v@$V@v@v@ WvUDV,V*f U4fV԰64 V,*V*f4 h@>pHV, RV* f\U4ff VpvzUDvwv$ W!v!UDw!wv$[$V.w77@UtVC6t$!/@ FILENAME: ` RECORDS&THROUGH'./@8 TBVjttB jITEM/@LtV jRECORD/@`tjj RECORD ITEM/@t V@~v@v@ WvU4d Vv@v W!v!  W<(jNO ROOM LEFT IN FILE p. OUTPUT NOT COMPLETED.2b<vFvPW!0Zd W!nv!xd@v Vvd WT W71'#&@,w6UDww h@pv@w", W@6@@6j@`@/`SORT COMPLETED.JbTv^vhV0rv@ WvU4, W!v! W w! V wr"^, VJ6v@,J W^T v!^ W!rh w!rw!|^p@`.zXV@|T@h@wF@h@wF@jTHERE ARE ONLYV@ELEMENTS IN RECORD$.bZVWD1FVjELEMENT NUMBERT OF RECORD$ IS NOT A UDjNUMBER.bjSTRING.$b.VV8v@BW6VLw77@V^X vP@@blV֮vvԞ^v vP@@V֮vԞ^vԤ} ^v@v@ Xמ@@ v֞ @V֪@  v* v֢@֢@*VP,H4VP*\>^HvRf\vfZpv֞z^@UP @!D`T|   JUP @!DX !4!\!!!!!! T h@^phkr^| h@pj^j^ h@pj^ h@pj^ j  jRECORD  h@ &@ 0 N l 0h@ :k D & Nh@ Xj b & ljE O F v^ jE O R ^ X@| h@ vT p v0#, V@6!@@ v00@@!@@ V0! v00@@!@"!@ v00@X ! !v00@@! jF0!Z! j!*^!4 h@!>p!Hj@!R^!\ h@!fp!pj@!z^! j@!^! h@!p! j@!^! h@!p! j@!^! h@!v@!j@"@""."L"V"h@"j@"$"".h@"8j@"B""Lj@`"V^'`IRV2 J( a7J`&'TD4p ! #R **** HP BASIC PROGRAM LIBRARY ********************************RR IRV: FILE SORT ROUTINER IRV2, PART 2 OF 2R 36232 REV A -- 2/73R#R **** CONTRIBUTED PROGRAM ************************************* j)PLEASE GET AND RUN YOUR ORIGINAL PROGRAM.bp*,*,*(*NH H0H@HP@@HH2)wHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA<)wHXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXFN&&&!&&PvDZ D$CHARS`dV`nh`x#v< !#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\%v@abcdefghijklmnopqrstuvwxyzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzD`@UDp@ V`@(w6@vw7 w8@%D!4@ w9nonßo#nv"Y$&}', W9J6 w9@jJvTh@$^phv@rV|W6U8W-W15-$W+W15-$V@,V@*W-$V@*V@,W-$V0D&v@0w77@:NDNUDXlXvblXvvv V@v@$V@v@v@ WvUDV,V*f U4fV԰64 V,*V*f4 h@>pHV, RV* f\U4ff VpvzUDvwv$ W!v!UDw!wv$[$V.w77@UtVC6t$!/@ FILENAME: ` RECORDS&THROUGH'./@8 TBVjttB jITEM/@LtV jRECORD/@`tjj RECORD ITEM/@t V@~v@v@ WvU4d Vv@v W!v!  W<(jNO ROOM LEFT IN FILE p. OUTPUT NOT COMPLETED.2b<vFvPW!0Zd W!nv!xd@v Vvd WT W71'#&@,w6UDww h@pv@w", W@6@@6j@`@/`SORT COMPLETED.JbTv^vhV0rv@ WvU4, W!v! W w! V wr"^, VJ6v@,J W^T v!^ W!rh w!rw!|^p@`.zXV@|T@h@wF@h@wF@jTHERE ARE ONLYV@ELEMENTS IN RECORD$.bZVWD1FVjELEMENT NUMBERT OF RECORD$ IS NOT A UDjNUMBER.bjSTRING.$b.VV8v@BW6VLw77@V^X vP@@blV֮vvԞ^v vP@@V֮vԞ^vԤ} ^v@v@ Xמ@@ v֞ @V֪@  v* v֢@֢@*VP,H4VP*\>^HvRf\vfZpv֞z^@UP @!D`T|^   JUP @!DX !4!\!!!!!! T h@^phkr^| h@pj^j^ h@pj^ h@pj^ j  jRECORD  h@ &@ 0 N l 0h@ :k D & Nh@ Xj b & ljE O F v^ jE O R ^ X@| h@ vT p v0#, V@6!@@ v00@@!@@ V0! v00@@!@"!@ v00@X ! !v00@@! jF0!Z! j!*^!4 h@!>p!Hj@!R^!\ h@!fp!pj@!z^! j@!^! h@!p! j@!^! h@!p! j@!^! h@!v@!j@"@""."L"V"h@"j@"$"".h@"8j@"B""Lj@`"V^'`^JOBO O c R *** JOB-O; BY ARTHUR CUTLER, FRANCIS FERRY, ROBERT KAUK,R *** AND ROBERT ROBINETTE * C. 1972 CFKRR *** TIME SHARE VERSION BY TOM KRUCKEWITT, DEC. 1972NHawP p ! p* D$JOBS@$ v 123456789j j j$HI THERE!!! THIS IS JOB-O SPEAKING. j j'ARE YOU A COUNSELOR (TYPE IN YES OR NO) gp Wp0YESWp0NOj SORRY, I DIDN'T UNDERSTAND THAT. j!j9I'M HERE TO HELP YOU IN SELECTING A CAREER THAT FITS YOU.jjTHE DIRECTIONS ARE SIMPLE...#j= JUST READ THE QUESTIONS I ASK YOU AND TYPE IN YOUR ANSWER.j- WAIT FOR ME TO GIVE YOU A LIST OF CAREERS,!j: THEN FROM THE LIST OF CAREERS PICK YOUR FAVORITE(S) ANDj1FIND OUT MORE ABOUT THEM FROM YOUR CAREER CENTER.jj$OK, YOU KNOW MY NAME... WHAT'S YOURSfjj ALL RIGHT , LET'S GET GOING!j j!j'HOW LONG DO YOU WANT TO STAY IN SCHOOL ?" jDO YOU WANT TO...#j$j1) COMPLETE HIGH SCHOOL%!j92) COMPLETE APPRENTICESHIP, TECHNICAL OR SPECIAL TRAINING&j&3) COMPLETE A TWO YEAR COLLEGE PROGRAM'j'4) COMPLETE A FOUR YEAR COLLEGE PROGRAM(j)5) COMPLETE FIVE OR MORE YEARS OF COLLEGE)j*j*(PICK THE NUMBER OF THE ONE THAT FITS YOU)+j,vĞP-w@./j0j1jWHAT WOULD YOU LIKE TO DO ?2j3j51) ARTISTIC - LITERARY (ART, DRAMA, MUSIC, DESIGNING,4!j: PHOTOGRAPHY, TV, RADIO, NEWS REPORTING, LAW, WRITING,5j! LIBRARY WORK, DRAFTING, ETC.6j7!j:2) BUSINESS, CLERICAL, SALES (DATA PROCESSING, ACCOUNTING,8j3 TYPING, OFFICE WORK, SELLING, MANAGEMENT, ETC.9j:#j=3) SOCIAL - PERSONAL SERVICE (SOCIAL WORK, TEACHING, NURSING,;"j< POLICE, PROBATION, RECREATION, COSMETOLOGY, STEWARDESS,< j CHEF, ETC.)=j>"j;4) AGRICULTURE - CONSERVATION (WILDLIFE, FORESTRY, FARMING-?j. RANCHING, ECOLOGY, MINING, LOGGING, ETC.)@jA"j<5) MECHANICAL (CONSTRUCTION, REPAIRING, OPERATING EQUIPMENT,Bj0 AVIATION, TRANSPORTATION, ASSEMBLING, ETC.)CjD$j?6) SCIENTIFIC (MEDICINE, ENGINEERING, MATHEMATICS, ELECTRONICS,E j ETC.)FjG j8(TYPE IN THE NUMBER OF THE GROUP OF ACTIVITIES WHICH YOUHj2WOULD REALLY ENJOY DOING AND WOULD MAKE YOU HAPPY)IjJvĞ`Kw@LMjNjOjHOW DO YOU SEE YOURSELF ?PjQ#j>THE CHOICES FOR THE NEXT SEVEN QUESTIONS ARE GIVEN AS FOLLOWS:RjSj1 1) ALWAYS 3) SOMETIMES 5) RARELYTj0 2) OFTEN 4) OCCASIONALLY 6) NEVERUjV"jOK, I'LL CHECK YOUR RESPONSES AGAINST WHAT I HAVE IN MY FILES.n#j=THE MORE RESPONSE MATCHES YOU HAVE, THE BETTER THE JOB LOOKS.oj#I'LL SEE WHAT I CAN DIG UP FOR YOU.pj STICK AROUND , THIS WILL TAKE A FEW MINUTES.qjrjstju!j:TAKE THE LIST I'VE SUPPLIED AND DISCUSS THE RESULTS WITH Avj"MEMBER OF THE CAREER CENTER STAFF.wjx$j@AFTER YOUR CONFERENCE, CONSIDER THE RECOMMENDATIONS IN TERMS OF:yjzj EMPLOYMENT OUTLOOK{j+ PROBABLE EARNINGS, FRINGE BENEFITS, ETC.|j CHANCES FOR ADVANCEMENT}j CHANCES FOR SUCCESS~j WORKING CONDITIONSj' CHANCES FOR PRESTIGE AND RECOGNITIONjj$j?FOR ADDITIONAL INFORMATION, CONSULT THE CAREER RESOURCE CExNTER,j/YOUR FRIENDS, LIBRARY, TEACHERS AND COUNSELORS.j$j@REMEMBER: CAREER DAY IS EVERY DAY...NOT JUST ONCE A SEMESTER!!!j jGOODBYE jj j INSTRUCTIONS:j" 1) TYPE IN THE STUDENT'S NAME."j< 2) TYPE IN THE STUDENT'S RESPONSES, SEPARATED BY COMMAS. j THANK YOU.jNAMEf j RESPONSESng# Y@HW!7!`7!![!jERROR IN RESPONSE NO.-- PLEASE RETYPE ALL RESPONSESRjBEGINNING EXECUTIONjRV0*j-------------------- j RESULTS FOR :j--------------------j*** END OF EXECUTIONnj#H "RESPONSES: ",8(D,","),Djjnc XHP~@w X$@wh@P Va$@vԞ X4@HV!4!40P@$4@@$4@V!4!40P@$4@$4vԠ@Z4V0VԪ@va$@W@ jHAVEMATCHES:w@ @Z$ h@@jZ^ jWHAT DO YOU SAY ^jWHAT'S YOUR DECISION ^jWHICH ONE DID YOU PICK ^jWHICH CHOICE FITS YOU ^jWHAT IS YOUR SELECTION ^@ Pjg!jW!5!@5!!j SORRY, I DIDN'T UNDERSTAND THAT.^ Wp.YESjANOTHER ENTRY..YES OR NOgp Wp0YES`xJOS  0402034233456561223 ACCOUNTANT341012232323232312ACTOR, ACTRESS, DANCER302012232334342312ADVERTISING WORKER205045565612122334AIRCRAFT MECHANIC236034124556561234AIR TRAFFIC CONTROLLER205056565623122323APPLIANCE SERVICEMAN501623123434121212 ARCHITECT125034563434125656 ASSEMBLER205056565612124534AUTO-BODY REPAIRMAN205056565623122334 AUTO MECHANIC105034343423341223AUTO PARTS MAN102012121245562334 AUTO SALESMAN122034453434451245BANK CLERK, TELLER402012121234451212 BANK OFFICER203023562323124545BARBER202034563456561256 BOOKKEEPER205056565634121223BROADCAST TECHNICIAN402012123434122323BUSINESS ADMINISTRATOR205056562312122323BUSINESS MACHINE SERVICEMANC205034453412123434 CARPENTER2102034563434343456CASHIER6503012121234562323 CLERGYMAN5503012123456561212COLLEGE TEACHER3341034343445123412COMMERCIAL ARTIST2232056565656341245COMPUTER OPERATOR 203034343423233434 COOK, CHEF233023341223125612 COSMETOLOGIST453012341256561212 COUNSELORC103034563423344545 CUSTODIAN233034563434344556DENTAL ASSISTANT346023343434122334DENTAL HYGIENST0235056565634123434DENTAL TECHNICIANR506012121223121212DENTISTS406034123434451223 DIETITIAN4231056565656122334 DRAFTSMAN4205045454512122345 ELECTRICIAN6503012121245341212ELEMENTARY TEACHER456034123434341212ENGINEER235634343423232334ENGINEER TECHNICIAN2454634343434341212ENVIRONMENTAL SCIENTISTO104045343412343434 FARM WORKERMOLOGIST231012123434121212FASHION DESIGNER105034343412343456FIREMAN3400434343412451234FORESTER134034563412453456 FORESTRY AIDEG235045454512122334HEATING MECHANIC403012232334341212HOME ECONOMIST502012123445561212HOSPITAL ADMINISTRATOR103034563423455656HOSHT ATTENDANT2103034563456563456 HOTEL CLERK4342023122345561223 HOTEL MANAGER4103045563412345656HOUSEHOLD WORKER235045563434123434INSTRUMENT REPAIRMAN342012121256562334INSURANCE AGENT4341034123434341212OLOGISTINTERIOR DECORATOR205056565612124534 IRON WORKER4205034343456123434JEWELER5340634563434121234LAB, MEDICAL TECHNICIANA501012123456561212LAWYER501012343456561212 LIBRARIAN2506034233434231212LIFE SCIENTIST125034565612124556LINEMAN0040134343456561212LITERARY WRITER0021056565623122323 LITHOGRAPHER104056565612125656LOGGER, LUMBERMAN5205056565623122323 MACHINIST103034563412563456 MAIL CARRIER342023342334562323MANUFACTURERS SALESMAN456056345656561212OLOGIST MATHEMATICIANR205034564512124556 MEAT CUTTERR201034562323565634MODELE241012561234123412MUSICIAN, SINGER401012343434561212NEWSPAPER REPORTER343612231223341212NURSE RN403012121234121212OCCUPATIONAL THERAPIST205056565612345656OPERATING ENGINEER506012123434121212 OPTOMETRIST6205045565612124534PAINTER0403012121245561234PERSONNEL WORKER506034343434231212 PHARMACIST201034343434123412 PHOTOGRAPHER506045234545451212PHYSICAL SCIENTIST453012121223121223OLOGISTPHYSICAL THERAPIST056012121223121212 PHYSICIAN346034123434341234PILOT205045454512123434PLUMBER 233012121212562345POLICE OFFICER102034563434343456 POSTAL CLERK403012121256561234PROBATION OFFICERL342656344556561212 PROGRAMMER503612121256561212 PSYCHOLOGIST402012121256561212PUBLIC RELATIONS MAN402023233456561234PURCHASING AGENT341012121256563423RADIO, TV ANNOUNCER0232012121234563434REAL ESTATE SALESMAN133023342345453445 RECEPTIONIST343012121212342323ISTRECREATION WORKERT102034563434563456RETAIL SALESMAN0503012121245561212SECONDARY TEACHER4232023342356342334 SECRETARY5402012121256561212SECURITIES SALESMANT010534563423345656SERVICE STATION ATTENDANTL503636341245561212 SOCIAL WORKER0233012232323563434STEWARDESS; STEWARD2344634343423231234SURVEYOR406034123456561212SYSTEMS ANALYSTT401634343456561212TECHNICAL WRITER200556565612123445TELEPHONE INSTALLERE025056565612123445TELEPHONE OPERATOR010556565623343456TTRUCK, BUS DRIVERT102045565656234556TYPIST453012123434561212 URBAN PLANNERO504634123423121212 VETERINARIAN233012341223343434VOCATIONAL NURSE100334563412345656WAITER, WAITRESS010256565612343456 WAREHOUSEMAN235056565612123434WELDER010234343445562345WHOLESALE SALESMAN236045344534341245X-RAY TECHNOLOGIST3456561212SYSTEMS ANALYSTT401634343456561212TECHNICAL WRITER200556565612123445TELEPHONE INSTALLERE025056565612123445TELEPHONE OPERATOR010556565623343456T ,_ a e  y,,ij%Qk 2oq,sVt7uw^S{ |[ d\  dld UCOP |,xSAL<V  ,d< odd dAD X5U-AD  Z6-CHESS  U-CHLIB5V -CPUII W-CRTBLK7 Z7-E 7 -FAT 5`-GO Z8-KAYE b -LEARN !;M-MAN !%-MIRO !%&-NON  -PRP  Z>-ROTER -SAEGO5i-TAK !;Z?-VEB  -WISDOMbI5l2ALHS2. ZF2ALS1XAD3A 1!7B XAD4 =!\ XADM ! hh\ \ t t @ @ H H L L X X v v #k2``X X t t @ @ J N X X x x #l2`PXXP \ t t @ @ X X x x #m8@@``PPP \ p p @ @ Z Z x x #n2@l l #vPPxxh h #wD D \ \ #xH H \ \ #y @ @ ` ` t t | | #z@ @ ` l @ @ #{D D @ @ #|H H | | #}P x #~^ ^ #\ \ d d #Z Z h h #X X l v v #Z Z v v #^ ^ t t #` ` r r #d d p p #h h n n #}#}#$j?****************WE HOPE YOU LIKE IT.*****************#b#j/A PICTURE OF SNOOPY FROM THE PAUSD 2000F SYSTEM# j #j'` }D   ! # % 'PPZ VB v j ^ j**BAD ELEMENT NAME.  Z D@ V h@@ @`  j@@  h@@ "^ ,D@ 6@22 J Th@2 ^&j**PORT #28USED THE BREAK KEY DURING UPDATE. SEE YOUR FILE MANAGER. hb r^ j@@` D@ ^ v7  v)) @7@@ V)~ j7**YOUR LAST INPUT OVERFLOWS THE RECORD. BEGIN AGAIN AND j 9 T@;K T@ Q V( V,@ V ,0 V @@,: j**ILLEGAL ID NUMBER.   *V@8 /v  4 V,. @  >v  Hj@ RZ, W X nh@@ Z v @" @ \0 ^VBE `< b fv"8 z V P v39 v:" h@  j@p" j@H" v P@ nj@@ RS h@:39^ j@39 h@39 j@:39^v@v'@v'@v@" X,@| `,h 6j' @Z,J^T R--**DELETE ROUTINE**^v`h v"rv#@|/@ID#?  9 T;%%%%V@%v @  h@"*+v v  V h``XB@|h`ZBj= j ? **DELETED**  v%0p*v@4>v%0HHv @ f v<CD>EFGpvH;yzvI nJO vF`4@h@0?@@$V?~V@v;@ v@>^h@K h@K22$TGq.TdIQ8V@BVF"Gv<0Lv;@Vjv"Ktv!@~^v<%0V?v0?VF"V<v<0VJULI { LQ#R **** HP BASIC PROGRAM LIBRARY *******************************RR JULI: ONE PAGE JULIAN CALENDARRR 36279 REV A 6/73R#R **** CONTRIBUTED PROGRAM ************************************ R THIS PROGRAM WILL GENERATE A HANDY 1 PAGE JULIAN CALENDAR R FOR USE WITH TIME SHARE SYSTEMS R WRITTEN BY PAUL WITTMAN ON 12/29/72 (364/72) R DIM Z(3) j5THIS PROGRAM WILL GENERATE A CALENDAR OF DATES VERSUSjTHE DAY OF THE YEARjWHAT YEAR DO YOU WANT(g- 2Nє 0 B <)| | p | x | x | | x | x | F X4@hPh4ZZ4[ X4@| \ vB@44]Z4_wDda YF@@d֯d%DQd$DA7nfwD@h[FjsnWF@so vє`t svFx X4@h Xt@|4vB4tF tZt Xt4@| vB4tZtvFF 4Z4 v0 1234567890O@jjjj"H CALENDAR FOR YEAR,j6j7N'8d'DAYJANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC9h@ X@hJ w4P@L wD`@Ow44@DD@TZ^khjr X4@|  vB@4 W@ w@@ w@@0@@ W` w@@0w@@0`` Yt@` vBt@4 wvtP@ V W@0& wvv +:0wvv0@@:W@7@NDwv@v@ IvN W@lXwv@v@0bvlwv@v@0@@v W`wv@v@0wv@v@0`` vBt@4֯"Np."Npwv`v`*[tkZ4jjP SUNDAYS ARE SHOWN WITH AN *b X$@@Z$^R THIS SUB BRINGS BACK 3 NOS. = TO THE 3 DIGITS OF NUMBERR ENTER WITH NUMBER N, LEAVE WITH NUMBERS Z(I) Y`@~@vPwP$䢯A7[ ^ w@ vNJ @!dd wm` VN# vNN#  Wp  wP  vNN@ VN@ vNNp &  vNP"N VN@ vNNp ^'`JULIAN{ $R **** HP TIME-SHARED BASIC PROGRAM LIBRARY ************************RR 36197: JULIAN REV A 3/72RR JULIAN CALENDAR FOR THE CURRENT YEARR $R **** CONTRIBUTED PROGRAM ***************************************** j4PROGRAM TO GENERATE JULIAN CALENDAR FOR CURRENT YEARjj(N 2v<jFj%ENTER ALL FOUR DIGITS OF CURRENT YEARPftZwtvdvD@nWN7T7Y7_xvD@WI7O7ZvD`WJ7P7U7[vD@WK7V7\vDPWL7Q7WvD`WG7R7X7]vDpWH7M7S7^jj2ILLEGAL ENTRY -- ENTER 1971 THRU 1995 -- TRY AGAIN< X@`j "j,j6jJULIAN CALENDAR| t@jJ Y@@Th^ V@7@|hWH5L5P5T5X5\|rvt |jjv@X@|vĠ@VĮ@vĞjv@VD@vD@ TD0DXl jSUN--v jMON--v jTUE--&v0 jWED--:vD jTHU--NvX jFRI--bvl jSAT--vvDD@Zjjjj[Z+| JANUARYp FEBRUARY| MARCHx APRIL| MAY+x JUNE| JULY| AUGUSTx  SEPTEMBER| OCTOBERx NOVEMBER| DECEMBER`JUMBLE ? aBN K0R *****JUMBLE-SCRAMBLED WORDS*****R JUMBLE: RANDOLPH WONG ;3/8/74(R ACKNOWLEDGMENTS: LHS, BERKELEY; EJM, WWHS EDPRC2R REVISED: TIMM BENTLEY;1/17/77; (2000F ACCESS)<vĞPF w*JUMBLEPNH H0H@HPHZN`HdMEnt x @X jGOOD MORNING,  @x jGOOD AFTERNOON,  jGOOD EVENING, j!WELCOME TO JUMBLE (BAGELS STYLE)!j WHAT IS YOUR NAMEf`j WOULD YOU LIKE INSTRUCTIONS, ` (YES OR NO)fV@@<Y|"j