@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}} HE |||DDOS DOSDOS SYS }}}}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8} 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. D,}UPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK F-}ILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟.}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i/}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 00}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE1}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED DUPANY SRC 064 COPYING---D1:DUPA4}NY.SRC# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B5} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#6}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%7} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C}//3Hu ξL/L DRIVE TO WRITE DOS FILES TO?WRITING NEW DOS FILESTYPE "Y" TO WRITE DOS TO DRIVE 1.?}D1:DOS.SYSERROR - NOT VERSION 2 FORMAT. , &* բ( 1L `[) 0NΞ 0 L1M) 1@} L BAD LOAD FILELOAD FROM WHAT FILE?) 0 0#B 1L WHAT FILE TO LOCK?) 0 0$B 1L WHAT FILE TO UNLOCK?DUA}P DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV. h  ,B}  `)  <0 2 2 0  ,   ,,ޢ* 1L ,K* 1 ~0 0C}FINSERT BOTH DISKS, TYPE RETURNERROR - DRIVES INCOMPATIBLE., 1 ~038  , 1L D}, &*  Lz+, 0 , 1 ~0 + Y,0!,0 ,L+ ,mm  v,"ǭE}0Ξ, 05,Lt+L +,Hh` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNF}INSERT DESTINATION DISK,TYPE RETURN`    `L,8,0( rG}L1(`ߢ) 1* 1 ~0Y`hhL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}% A., 1 <0 0 .@L# .BJ 1  DEHIB V L1 ,5 1 <0,L. I} JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 , 1 <0,0Lf- B VJ},A#P, 1 <0 0L#L ߢ) 1* 1 ~0Yj383}mm ݭK}}`8}``|* ? ɛ,`|:(|/ 1L `DESTINATION CANT L}BE DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}hAΞB,0 J 1 BޝDEHI,HDE 1HIHIDELSAVE-N}GIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L O}0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥP}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{Q}NAME TOO LONG B VL ` L1I H1EӝDL1|mDiE` V0`8d/8 i:"2!22 1R} L ERROR- 144ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D41uT} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D41uF!" Li3!3 AIS A"0(NO SUCH FILE EXISTS!$-( -0$*+ 6-6. 67$,.%67,.|}+49 6-% A@/67$&<$&,.9 A H6-&$   !!(}Š}}ĠŠ6( DELETE BY:((1) PROGRAM NAME6( 2) DISK #$ )6-&$ )!A "AP*("~}WHAT RECORD DO YOU WANT TO DELETE.6-P6.7$&<$&%B:,&,0A P''(ARE YOU SURE YOU WANT TO DEL}ETE>>(7$&<$&, 7$&<$&, 7$&<$&, & )>:,4Y&67$<$,.DB  (1("RECORDS} WILL BE DELETED WHEN SAVEDB( BACK TO DISK$$(Ԡ Return to main menuF:,A $   J(}}ȠŠ*( SEARCH BY:-(<( 1) PROGRAMJ( 2) DISK #$ )6-&$ )!A"AG}$(INPUT PART OR WHOLE FILENAME(+(D(D#..FILENAME....#SECG(6-C:,%$G6. 6-B:,6-+67B:,%,.}G6-?:C:,:,0Y -="(SEARCHING AND DELETING....*-=6.7$&<$&,<#7<,4 6.7,# A@F 467$}<$,.DPb >(2RECORDS WILL BE DELETED WHEN SAVED BACK TO DISKA(b(Ԡ Return to main menuZF:,Ap}d$x?(( WHAT DISK #$6-B:,,6-&66. ?67,." B:,!67,.7," AL(D#..FILENAM}E....#SEC(B6-?:C:,:@,Z(}ԠӠŠd A J=)(!}Turn on printer a}nd interface!.6-: =$T@*("Title for printout (20 char. max.).46-:6-@6-^$($(  } PAGE mXX( EDISK FILENAME #SEC DISK FILENAME #SEC DISK FILENAME #SECrXX( E----------}----------- --------------------- ---------------------|(FF( 7$&<$&, 7$&<$&, 7}$&<$&,C 6-%C( 7$&<$&, 7$&<$&,  (7$&<$&,C 6-%}C( 7$&<$&, 7$&<$&,  (7$&<$&,&(6-%6-%&!A }* %Ap=(>:@,!6-%A'6-/6-%= A0(>:@,$Hq;A$,RqO}O67@,.6-I:,&6}-P:',";$,*6. 567$,.>67,.} K:AR $ D:PROGLIBILEDATSORTSEARCHPAG^   9@@'@@99AR@ RR(J}INSTRUCTIONS FOR PHIL SEIFERT'S DIS}K LIBRARY DATABASE PROGRAM (PSDLDBP)S(S(HTHIS PROGRAM IS A MENU BASED DATABASE SYSTEM FOR THE CATALOGING OF DISK RR}(JDIRECTORIES OF DOS II DISKETTES. IT WILL RUN ON ANY MEMORY SYSTEM HAVING(RR(J24K OR GREATER MEMORY, ONE DISK DRIVE,AN}D A BASIC CARTRIDGE. THE FOLLOWING2E8(0IS A LIST OF THE MENU OPTIONS AND THEIR USES;(E A<f(}1) ADD RECOR}DS(f(FUSE THIS OPTION TO CATALOG YOUR DISK. THE PROGRAM WILL NOT CATALOG THEFXX(PFOLLOWING FILENAMES; DOS.SYS,DUP.SYS,} AUTORUN.SYS,MENU,MENU.SYS,MEM.SAV,DISK.CATPRR(JIF YOU WANT TO MODIFY THIS THEN LOOK AT LINES 51 THRU 53. YOU CAN SEE HOW}ZQQ(ITO DELETE FILENAMES. AFTER THE DISK ISCATALOGED THEN YOU WILL BE ASKED TOdQQ(IPRESS START IF YOU WANT TO CATALOG T}HENEXT DISK NUMBER UP. BY THE WAY, ATnRR(JTHE BEGINNING OF THIS OPTION YOU WILL BE ASKED WHAT IS THE DISK # YOU WANTxRR(}JTO CATALOG. YOU MUST USE ONLY A NUMBER! PRESS SELECT IF YOU WANT TO RETURN#(THE MAIN MENU.(# Aq(}2) D}ISPLAY RECORDS(q(LTHIS WILL PRINT ALL THE RECORDS IN MEMORY TO THE SCREEN. YOU CAN ABORT IT(BY PRESSING START}(`(3) SORT(`(ITHIS IS A FAST SORT ROUTINE WRITTEN BY RON AND LYN MARCUSE PUBLISHED INUU(LTHE MARCH 1982 COMP}UTE MAGAZINE. YOU DECIDE IF THE RECORDS ARE TO BE SORTEDSS(KALPHABETICALLY OR BY DISK NUMBER. THENWAIT, BUT DON'T BLINK}, YOU MIGHT MISS (IT.( A(}4) SAVE RECORDS(RR(JTHIS WILL SAVE ALL THE RECORDS NOT MARKED FOR }DELETION TO THE DISK. YOUQQ(ISUPPLY A FILENAME WITHOUT THE D: AND IT WILL START. WARNING! IT DOES NOTXU(MCHECK TO SE}E IF THERE IS ANOTHER FILE BY THAT NAME. IF SO, IT WILL DELETE IT.X((5) LOAD RECORDS(RR(JYOU CAN RETRIEVE YOUR }SAVED RECORDS FROM THE DISK WITH THIS OPTION. JUST9,($SUPPLY THE FILE NAME WITHOUT THE D:./(9 A(}6) DEL}ETE RECORDS(SS(KIF YOU FIND ANYTHING YOU DON'T WANT INYOUR DATA THEN USE THIS TO DELETE IT."SS(KYOU CAN DELETE BY PR}OGRAM NAME OR DISKNUMBER. IF YOU WANT TO DELETE BY NAME,QQ(ITHEN YOU WILL BE ASKED TO SUPPLY THE NAME OR THE FIRST PART O}F THE NAME.6PP(HTHE PROGRAM WILL THEN SEARCH THROUGH DATA FOR ANYTHING THAT MATCHES THE@RR(JSPECIFICATION. YOU WILL BE} ASKED IF YOU ARE SURE YOU WANT TO DELETE THATJMM(ERECORD. JUST TYPE THE 'Y' KEY IF YOU DO OTHERWISE HIT ANY OTHER KEY.}T]P(HDELETING BY DISK WILL ASK YOU WHAT DISK TO ERASE AND IF YOU ARE SURE.S(] A^( }7) SEARCH(hUU(LIF} YOU WANT TO FIND OUT WHAT DISK A PARTICULAR PROGRAM IS ON OR WHAT IS ONrPP(HA DISK THEN USE THIS OPTION. WITH THE FILE}NAME YOU CAN TELL IT THE WHOLE|RR(JNAME OR JUST THE FIRST PART OF THE NAME. SEARCHING BY DISK WILL REQUIRE@3(+THAT }YOU TELL IT WHAT DISK NUMBER YOU WANT.6(@ A(}8) PRINT RECORDS(SS(KIF YOU HAVE A PRINTER THIS IS A VERY } NICE OPTION TO HAVE. IT WILL GIVE YOURR(JA HARDCOPY OF YOUR DATA. IT PRINTS THIS IN THREE COLUMNS AND ALLOWS YOUMM}(ETO HAVE A SHORT TITLE. THE PROGRAM IS WRITTEN FOR AN EPSON MX-80 WITHMM(EWITH GRAFTRAX-PLUS. IT TURNS OFF THE AUTOMAT}IC SKIP OVER PERFORATION__(WITH THE SEQUENCE OF '>:@',3O'. THE CHR$(12) IS THE CODE FOR FORM FEED. IF YOUOO(}GHAVE A DIFFERENT PRINTER, YOU WILL HAVE TO CHANGE THOSE PARTS IN THE?2(*PROGRAM BETWEEN LINE NUMBERS 1600 THRU17305}(? A(}9) DISK DIRECTORY(GD(THIS WILL RESET YOUR DATA BACK TO ZEROAND YOU CAN START AGAIN.Y(( FINAL NOTEY(?IF BY ANY CHANCE }YOU GET INTO ANY THING YOU DON'T WANT THENQQ(IHIT THE BREAK KEY AND TYPE 'GOTO 199' AND THE PROGRAM WILL RESUME WITHO}UTRR(JLOSING ITS DATA. LET ME KNOW IF YOU HAVE ANY IDEAS AND IMPROVEMENTS FOR &9( THIS PROGRAM.(9(PRESS } TO RUN PSDLDBP0 A% D:PSDLDBP!!(PRESS Ԡ TO CONTINUE F:B2y,@A$} D:PSDLDBP.INS9@@'@@99AR@ RR(J}INSTRUCTIONS FOR PHIL SEIFERT'S DIS89%";"LSVBLDPLDISCORHIGTIMIIFCCBONUBPO} }==ACE NEWSLETTER 3662 VINE MAPLE EUGENE OR 97405 $10 YEAR************************ CHICKEN } ****STAN OCKERS 12/81 ************************ F#@@K:F;@ ,;@ ,;@ },(INITIALIZING ...$$** PAGE 6 ROUTINES AND DATA **(%-A6A"!% )""** VERTICAL BLANK} ROUTINE ***8;A,$-@A("467,.>:,8 +** LOAD PLAYER ROUTINE **-8;@s,$-@}@s("467,.>:,8 /--** INSERT ADDRESS OF ROUT. IN PAGE 6 **0? 6-C:,6-P:'AV,)A@?A8}&AV$2II104,160,52,162,6,169,7,76,92,228,104,160,98,162,228,169,7,76,92,2284bb120,120,120,120,30,57,81,105,15,15},15,15,0,0,0,0,52,53,54,55,2,2,3,4,12,15,15,15,15,11,11,11644** LINE 56 - CHANGE 24 TO 56 TO SKIP ORTHO. **744** LINE 5}6 - CHANGE 28 TO 34 FOR CONT. MOV. **8hh72,138,72,152,72,162,0,189,120,2,29,44,6,160,15,24,176,32,201,15,240,28,201,14,208},2,160,13,201,139kk208,2,160,14,201,11,208,2,160,7,201,7,208,2,160,11,192,15,240,6,61,48,6,157,28,6,152,61,44,6,157,44,6:}232,224,4,144,195<UU162,0,189,32,6,133,203,189,36,6,133,204,189,40,6,133,209,198,209,16,7,232,224,4A%%144,232,176,9}1,189,28,6,133,207F7770,207,176,26,188,24,6,192,1,240,19,208,1,200,177Kff203,240,6,136,145,203,200,208,245,136,145,203,}222,24,6,70,207,176,29,188,24,6,200,192,254,176,21Phh177,203,208,247,136,177,203,240,6,200,145,203,136,208,245,200,145,203},254,24,6,70,207,176,3,222,20U006,70,207,176,3,254,20,6,189,20,6,157,0,208Z``24,144,154,162,4,189,11,208,240,5,169,0,15}7,39,6,202,208,243,104,168,104,170,104,76,98,228d[[234,234,234,104,104,104,170,189,32,6,133,186,189,36,6,133,187,104,133,2}13,104,133,212nff189,24,6,133,195,169,0,168,192,255,176,35,196,195,240,5,145,186,200,208,243,162,0,161,212,240,11x]]145},186,230,212,200,192,255,176,11,208,241,169,0,145,186,200,192,255,144,249,96,234,234** CAR COLOR DATA **+-@}@ "'67,.>:,+ JJ24,60,218,68,90,186,70,150,54,232,74,168,88,154,21,252,200,76,228,28//** DEFINE PM AREA} - SINGLE LINE RESOL. **46-F:A,&@&BBy46-AV$##** PLAYER MISSILE POINTERS **+-@}@'Ah%%+ '-AhAq#' ""** DATA FOR PLAYER IMAGES **!-%A!"}! HH16,56,16,56,40,16,16,16,146,254,254,124,56,56,40,40,40,40,40,108,0==126,195,219,219,91,219,219,219,219,91},219,219,195,126,0??126,195,219,219,218,219,219,219,219,218,219,219,195,126,0==33,34,150,84,57,30,60,123,159,30,52,86},151,36,194,193,0CC16,56,16,56,40,16,16,56,124,254,186,56,56,40,40,40,44,32,96,0@@16,56,16,56,40,16,16,146,214,124,56},56,40,40,40,104,8,12,0??126,255,173,173,239,199,199,199,199,239,173,173,255,126,0''** INIT. HORIZ. AND VERT. POS. **}/ #A!-AVAc%"+/ ""120,120,120,120,30,57,81,105 ** INIT COLORS **"6-@6-}A-A@@96-M-@@cA%@:7%,,g s6-@6-@'%%** DRAW ROADS} - SET PRIORITY **,0 +@!-@@ ,67,._0 1A-@@ @*67,.-=67&@,.} A 6-@"(@4-@A(@S-@`(@r-@"(}@8-@"(@4-@A(@S-@`(@r-@(}@A@T//** INIT. AND PRINT INFO. - RESET TIMER **^x6-@P!-@C(@sco}re time U-@#x(@dif high hw-"(@4-@@"A(}@S@we@w@ m ** INIT. PM GR. - FLAGS **rEAY@b'B2w}@36-@h?6-@E6-w44** LOAD PLAYERS - SET COLORS - PLAYER SIZES **|p 6-C:,6-?:<<,:}6-?:<@<%@!,U6-?:<@<%@!,p6-?:<@<%@!,-6-?:A6,-** INSERT VBI ROUTINE **}KB2W@'B2X@9B2Y@KA#@** INIT. SPEEDS **FAv@)-}AwAyBH:,$%@F "-@@""(@,,** IF CARS OFF SCREEN, CHANGE LANES **}+F:AW, @*F:Aa,"@W=AaAX6-?:<@<%@6,jA@t AA}+F:AW,!A@*F:Aa,"A=Aa@WX6-?:<@<%@!,jA@t AA}+F:AX, @*F:Ab,"@=AbAiX6-?:<@<%@6,jA@t AA}+F:AX,!A@*F:Ab,"Ai=Ab@X6-?:<@<%@!,jA@t A}A+F:AY, @*F:Ac,"A=AcAEX6-?:<@<%@6,jA@t A}A+F:AY,!A@*F:Ac,"AE=AcAX6-?:<@<%@!,jA@t A}A((** PRINT TIME - CK. FOR TIME UP **Q6-@0&F:@,,-@=(@ Q}A ##** RESET SOU. - HORN ROUT. **%%2:H:,!?P:2@}:H:, ?:2@@@@** CHICKEN STOMP **06-F:Ad,0!@}) @A,"@"6-?:<<,, A; "6-12@@@; A}1 "6-12@"@@##** CK. FOR REACHING BOTTOM **6-?:<<%, F:A`,!}A0A** CK. FOR COLLISION ** F:B2`,"A** SPLAT **6-?:<<%@Q,2}-@@_2H:,$AU@@2@H:,$AU@@  AF:A},%@4-@@08 < ^22@A@@}%%** DECREASE SCORE - CK FOR 0 **J6-&@ #-6(@ JA//** MO}VE UP - RELOAD BIRD - RESET COLL. **M A`F:A`,&@$36-?:<<,?!@M6-&@NB2x} A** SCORE = ZERO **1-@@1(@Χ ** AMBULANCE **6-@}2F:Av%,"(6-%@2 A!@6-@WAv%@.A`%F:A`},BAV%A W6-?:<<%A,h-@@4-@`@@6@P2@@d}-@@h  #-@@@`@?2@@S-@@W [ _ 2}** NEW HIGH SCORE? **=6-?:AF,!6-0-@@"=(@a-@}@4(@ F-@@a(@ k-B2HB2Q#' }I2k2@** WAIT FOR BUTTON ** T:,"@A@}** PM GRAPHICS OFF **@B2x'B2w66-?:AF,@ A --** BK TO TOP - STOP MOVEMEN}T OF BIRD ***:A`@0(6-?:<<,:Av/&&** SIGNAL AND INCREMENT SCORE **4-@}@4-@@6@P2@@l2@@@p 2}2@9\6-?:<<%@h,=-@H:,$@0A \6-?:<<%@},><6-%$@%-8(@ < H @ 6-%@I** CK FOR BONUS **J} APLj%2@%@@36-%AB6-F:@,N @`@j AHN@}&@P,-@(@,6-%@R A** TIME'S UP ROUTINE **,-@@,(}@ ŧ  A  ** CHANGE CAR COLOR SUB.**)6-%@"@ )6-@6-@:7,,$}D4:CHICKEN.FEBBLDPLDISCORHIGTIMIIFCCBONUBPO26900 REM Ҡͬ٠Π ٠ĠΠά Ơӻٛ26910 REM }ΠҠŠŠƠ ɠҠӛ26930 REM ͠ԠŠENTERED Š͠}Šŭ ĠӠΠ٬26940 REM Π٠GOTO 27000Ġ ̠͠ŠҮ27000 A}=FRE(X)/13:DIM LN1(A),LN2(A)27020 V1=1:V10=10:V16=16:V100=100:V256=256:V2=2:V3=3:V4=4:OIF=7:V7=OIF27040 BEG=PEEK(137)*V256+}PEEK(136)27050 PRINT "ENTER STARTING LINE NUMBER";27060 INPUT START27070 PRINT "ENTER INCREMENT";:INPUT INC27080 ADD=BEG}27090 LEN=PEEK(ADD+V2)27100 LNUM=PEEK(ADD)+PEEK(ADD+V1)*V25627110 IF LNUM>25000 THEN 2725027120 CNUM=START+COUNT*INC27130} LN1(COUNT)=LNUM27140 LN2(COUNT)=CNUM27150 COUNT=COUNT+V127160 POKE ADD+V1,INT(CNUM/V256)27170 POKE ADD,CNUM-INT(CNUM/V25}6)*V25627180 ADD=ADD+LEN27190 GOTO 2709027250 LOC=BEG27260 MLT=0:IF PEEK(LOC+V2)>PEEK(LOC+V3) THEN MLT=V127262 LINE=PEEK}(LOC)+PEEK(LOC+1)*256:IF LINE>25000 THEN ? :? "":STOP 27270 OPC=PEEK(LOC+V4)27280 IF OPC=OIF THEN 2740027290 PONT=LOC+}V4:GOSUB 2790027300 IF MLT=0 THEN LOC=LOC+PEEK(LOC+V2):GOTO 2726027310 MT=LOC+PEEK(LOC+V3)27320 OPC=PEEK(MT+V1)27330 IF O}PC=OIF THEN 2760027340 PONT=MT+V1:GOSUB 2790027350 MT=LOC+PEEK(MT):IF MT20 THEN 274302742}5 IF PEEK(A-V1)=27 AND PEEK(A-V7)<>14 THEN 2743027427 CHNPT=A-V7:GOSUB 31260:GOTO 2730027430 GOTO 2730027600 A=LOC+PEEK(MT })-V127611 IF PEEK(A)<>20 AND PEEK(A)<>22 THEN 2762027612 IF PEEK(A-V1)=27 AND PEEK(A-V7)<>14 THEN 2762027613 CHNPT=A-6:GOS }UB 31260:GOTO 2735027620 MT=LOC+PEEK(MT):GOTO 2734027850 ? "MULT IF SCREWED UP":STOP 27900 OPC=PEEK(PONT)27905 IF OPC=10  }OR OPC=12 OR OPC=13 OR OPC=35 THEN 2798027910 IF OPC<>30 THEN RETURN 27915 PONT=PONT+V127925 OPC=PEEK(PONT):IF OPC=23 OR O }PC=24 THEN PONT=PONT+V1:GOTO 2795027930 IF OPC=14 THEN PONT=PONT+7:GOTO 2792527935 IF OPC=15 THEN PONT=PONT+PEEK(PONT+V1)+V }1:GOTO 2792527940 PONT=PONT+V1:GOTO 2792527950 OPC=PEEK(PONT):IF OPC=14 THEN 2796027952 GOSUB 3130027954 OPC=PEEK(PONT):I}F OPC=20 OR OPC=22 THEN RETURN 27955 IF OPC=18 THEN PONT=PONT+V1:GOTO 2795027956 IF OPC=14 THEN PONT=PONT+7:GOTO 279542795}7 IF OPC=15 THEN PONT=PONT+PEEK(PONT+V1)+V1:GOTO 2795427958 PONT=PONT+V1:GOTO 2795427960 A=PEEK(PONT+7):IF A=20 OR A=22 THE}N CHNPT=PONT+V1:GOTO 3126027965 IF A=18 THEN CHNPT=PONT+V1:GOSUB 31260:PONT=PONT+8:GOTO 2795027970 GOTO 2795227980 IF PEEK}(PONT+V1)<>14 THEN GOTO 3130027982 IF PEEK(PONT+8)<>20 AND PEEK(PONT+8)<>22 THEN 3130027985 CHNPT=PONT+V2:GOTO 3126028000 }NUMBER=0:X=PEEK(SADD)28200 M=0.128300 FOR Y=0 TO (X-64)*228400 M=M*V1028500 NEXT Y28600 FOR X=SADD+V1 TO SADD+528700 N=}PEEK(X):P=N28800 N=INT(N/V16)28900 N=N*V10+(P-N*V16)29000 NUMBER=NUMBER+N*M29100 M=M/V10029200 NEXT X29300 RETURN 3000}0 FOR Y=1 TO 530600 Z=V130700 IF NUMBER1>99 THEN Z=V10030800 IF NUMBER1>10000 THEN Z=1000030850 IF Y=V1 THEN POKE ADDR,64}+CLOG(Z)/2:IF Z=0 THEN POKE ADDR,6430900 DIG=INT(NUMBER1/Z)31000 NUMBER1=NUMBER1-DIG*Z31050 IF DIG<0.1 THEN DIG=031060 DI}G1=INT(DIG/V10)31080 POKE ADDR+Y,DIG1*V16+(DIG-DIG1*V10)31100 NEXT Y31200 RETURN 31250 REM 31260 SADD=CHNPT:ADDR=CHNPT:G}OSUB 2800031270 FOR A=0 TO COUNT:IF LN1(A)<>NUMBER THEN NEXT A:GOTO 3128531280 NUMBER1=LN2(A):GOSUB 30000:RETURN 31285 ? "}ҡ NO LINE ";NUMBER;" IN LINE ";LINE:RETURN 31300 ? " GOTO VARIABLE IN ";LINE:RETURN 31310 END ٛ26910 REM m  4AADTEMnnà͠ŠŠ Ţɠ!}Ҡ Ӡ ;@ ,;@,R +(1( !}R( HEXA-DECI CONVERSIONS$$( m(+( Enter 'D' to convert DEC to HEX..(S( Ente!}r 'H' to convert HEX to DEC.V(i( Which, D or Hm(B:,"@024HA<0D@0Z !}@dG(G(:&@!}%@:A,,'6-&@' A@(HEX: 7<@ ,( A, A6L(L(AEnter a h! }exadecimal number from 0 through FFFFFFFF(8 places).@((HEX:J6-T-@B:,Y6.7<,!!}20A^-7<,/9#6-$@%A:,- Apc2AAe3FAh%%6-$@%@:,&@:!"}A,%@r |(DEC: ( A  D:HEXADECà͠ŠŠ Ţɠ I45mAKPPPPPFFFFFD@@@@@@%$}@@ @! AA  Bg A%%}@@@@@@ @!@"@#@$@%@&@!%&}ooŧӠɠҠέ Ӡ͠Š Ӡˠ$$%'}ŠנԠΠ 6-6-@'6-@36-@?6-@K6-@W6-@c6-@%(}o6-@{6-@!6-A9@,@K:?+ARAU'0/070?%)}0_%6-F:AA,%AV$F:AB,5%@%E%@%Q-@_( BLACKJACK2H  -@ >(%*}$YOU ARE OUT OF MONEY GAME OVERH @T4 @V6*""6@'*@A%*7/2@!%+}-@% / @T8)%@%@)%@%<K-@@ "(BANK $.-@$7(BET=6%,}-G @pKFU*@A%"-@0( BLACKJACK96-P:,U )!A)!@`Pv 6-&-@@%-} *(BANK $6-@$:(@6-F6-L6-R6-X6-^6-d6-j6-p6-v6-d2 -#6-P:@R'$H:%.},,%,68,-26-n% "6-6-6-%%6-%x! "6-6-6-!6-1"@6-@!6-)6%/}-%16-%+ "6-@6-#6-%+6-% A 8,!68,-Y  6-6-8@,+6-8%0}@,:6-8@,I6-8@,Q6-%Y6-% "*"6-6-&% "*"6-6-&% "*"%1}6-6-&% "*"6-6-&%")"A@M-@2(HIT?%)@M@H*@I%2}*@PA 46-A:>:,,-@2$( ."*!46-"Ap "*!6-9 "6-&%3}6-%%-@ )(5-@$9("Q6-P:@R'$H:,,%#6-%)"/6-;6-@A6-I6-%Q6-%1# %4}"6-6-@#6-%6)"@6-!6-@$)6-%;# "6-6-@)#6-%@)"@6-%5}!6-@4)6-%J AT !6-Y !6-^ !6-c !6-h !6-r#6-%%%%%6}%%#!A@|")"A @A  "* 6-6-&% "* 6-6-&%%7} "* 6-6-&% "* 6-6-&% "* 6-6-&% "* 6-6-&%!A%8}@' "*!6-6-&%' A@' "*!6-6-&%' A@5 6-6-6-6-#6-%+6-%%9}5 AQ6-P:@R'$H:,,%#6-%)"/6-;6-@A6-I6-%Q6-%# &6-6-@#6-%%:})"@6-!6-@$)6-% # "6-6-@)#6-%)"@6-!6-@4)6-% %;}A& !6-+ !6-0 !6-5 !6-: !6-D36-%%%%%%#"*!* )6-36%<}-&%N!"*!* 6-!6-&%S!"*!* 6-!6-&%X "* 6-6-&%] "* 6-6%=}-&%bAEl @A/ 6-6-6-6-%%6-%/ AF "6-%-@2%(%>}TIE3-A7 C-@2F(M!)!*'2A@5-@u9 C2M @P %"%?}6-%' 6-%$-@2!(WIN-6-A96-@= I6-@rM Y6-@h] i6-@`m y6-%@}@r} 6-@` =-@u 2+-@23( = @`(2@!-@%% %A}($/2@@!-% /2_ -(-%9(>:A$, >:A$,A-%_(>:A$%B}, >:A$,U-%@/(>:A$, >:A$,7-%U(>:A$, >:A$,G-%@/(%C}>:A$, >:A$,=-%@G( "-%%(' "-%({!-%%'({="@%D}-%(`'-%%-(`7-%%=(`' "-( -%'( ="@-( '-%%E}%-(5-%=(  ="@-({ {%-%-({ {5-%=({ {G "-(` `!-%%'(%F}`/-%7(` `?-%G(` ` c"@-( '-%%-(5-%=( M-%%@S([-%%G}c( *c"@ -( %-%-( 7-%%=(K-%@S( [-%c( 4M "-(%H}{ {-%'({{{5-%@=({{{E-%M({ {>a "-%(`!-%%'(1-%%>(>:A$,L-%I}%@S([-%a(`H"A`R Ap\j -%(-%!()-%E(>:A$, >:A$%J},S-%@[(c-%j( f^"@-(#-%*( 2-%9(G-%@N(V-%K}%^( p-@  z$KK243,243,0,215,204,243,0,0,0, 243,243,0,217,204,243,182,182,182,182,-1D:BLK%L}JCK45mAKPPPPPFFFFFD@@@@@@$ ^4APBC@ 9@<@)N}, ;@,;@,++(#THIS IS THE GAME OF SPIES ON A GRID??(7THE OBJECT IS TO FIND 4 SPIES HIDDE)O}N ON A 10 X 10 GRID(hh(`YOUR SEARCH BASE IS AT (0,0). ANY GUESS YOU MAKE SHOULD CONTAIN TWO NUMBERS SEPARATED BY COMMAS.<)P}hh(`THE FIRST GIVES THE UNIT DISTANCE RIGHT OF BASE AND THE SECOND IS THE UNITE DISTANCE ABOVE BASE.P(Z( LET'S BEG)Q}INd An6-x6-%@((1.( TURN NUMBER , WHAT IS YOUR GUESS?1(  ()R}-@@##8<@,"6@A8<@,A8<@,A68<@)S},-6@,(YOU HAVE FOUND SPY 6 A|<<6-M:+8<@,&,#@%+8<@,&,#@,GG(YOUR)T} DISTANCE FROM SPY  IS P:+$A%?P,'A, -@@%8<@,6@% Ap)U} (44( YOU HAVE FOUND ALL THE SPIES IN  TURNS! A @A (33(+YOU DIDN')V}T FIND ALL THE SPIES IN TEN TRIES.FC(;DO YOU WANT TO KNOW WHERE THE SPIES YOU DIDN'T FIND HIDDEN?F(  (4N)W}OA-@@&##8<@,"6@Ap0==( SPY  HID AT (8<@,,8<@,)X}): D(N((%(DO YOU WANT TO PLAY AGAIN?((Xb4YAl((GOOD DAYv A-@)Y}@-@@""68<,-P:@$H:@,,  $(' D:SPY@<@(stuU NAME1NAME2BOARDSCOREPICT1PICT2PICT3ASKNAMEINICKDONDONTURPLAYEINDEPICDRAPICFACTOINUMBE-[}KEE   AA<<<<X<<A A0 Ap A@ @ @@-\}A`AP@@@@@@F@II:COPYRIGHT 1981-]} - HOUSTON ATARI COMPUTER ENTHUSIASTSdR +@-@@:(@ CONCENTRATIONN-@A-^}R n;@,;@,x9@0,9@,K6-A 6-A0'6-A@36-AP?6-A`-_}K6-Ap&&;@`,;@`,;@`,PICTURE CODES:1 - 14 = PICTURES15 = WILD CARD16 = -`}BOX17 = BOX WITH * IN CENTER18 = EMPTY SQUAREFF6.<  | * *            -a} FF6.<| | `   *      ^ ? * "FF6.<  | * *      -b} MAIN PROGRAM GET NAMES INIT GAME AND BOARD Ap 6- -c}NEXT PLAYER TURN$6-@&$NEXT PLAYER TURN$ A0.((GAME OVER, SHOW BOARD THAT IS LEFT8-@@-d}0B8,6-8, L VPICK WINNER`;8@,!8@,--@@!;(Winnerj;-e}8@,!8@,--@@";(Winnert98@,"8@,--@@#9(TIE!!!~2-@-f}@#2(Press fire for new game33T:,")T:@,"A  A`ASK PLAYER NAMES-g} +((0@@@(Enter player 1 name ( ((Enter player 2 name-q}9b'DOS SYSb*+DUP SYSbUAUTORUN SYSbVMENU b/fPSDLDBP b"PSDLDBP INSbECHICKEN bRENUM LSTb HEXADEC b*#BLKJCK b MSPY b&ZCONCEN b SOUNDSTK b-ASTRONOM bDNUMBERLI bDIALOGUE b!ETCHSKCH b/5CLEWSO b3dCALENDAR AR@%-@@%( Š$ INIT GAME AND BOARD FIRST INIT BOARD *-@-r}@0&68,-*  STORE PICTURE CODES(TWICE) -@@ -@@ %%6-P:@%@0-s}$H:,, 8,"A1 6-%@ !@06-@ A0p& 68,-0  :  -t}D +I 0@@ @N DRAW BOXESX 6-@b -@@0  l GIVE PLAYER NAM-u}ESv -@@!( -@@"( !!PICK RANDOM PLAYER TO START %%6-@%P:@$H:,, -v}-68@,--68@,- 'AR@'TURN CURSOR OFF $ TURN""PLAYER=NUMBER OF PLAYE-w}R(1,2)@6-@@VALUE OF MATCH DOUBLES FOR CONSECUTIVE MATCHES#-@@ %(# A 6-68,-68-x},ASET NEGATIVE TO PREVENT PICKING IT AGAIN + 6-68,-68,+RESTORE FIRST PICKWAIT FOR TRIGGER""T:-y}&@,"@A@-@@ %(  MATCH?8,"8,ACWILD CARDS?''8,"@-z})8,"@AC"NO MATCH,RESTORE BOXES16-6 6-6-@ @ 6- J$MATCH-{} FOUND68,-8,%-@%@ %(8,BLACK OUT SQUARES6- 6-6-@  6--|} !68,-!68,-6-%@  $& A@0PICK A SQUAREPLAYER=PLAYER #(1,2-}})6@w6TURN OFF GRAPHICS ATTRACT MODE6-@8,! AP"6-%@ AP -~}(R:&@,"@(6-%@(R:&@,"@(6-&@(R:&@,"@(6-&@(-}R:&@,"@(6-%@ @6-@!@06-@0FIND NEXT UNPICKED SQUARE-}8,!AQ##FIND PREVIOUS UNPICKED SQUARE"AP6-@ 6-@  8,-}AP"FOUND SQUARE,FLASH IT6-@ 6-@  TRIGGER PRESSED?7"T:&@,"@-}AP"7LOOP UNTIL TRIGGER@"T:&@,"AQE@WAIT UNTIL TRIGGER RELEASEDUNCOVER SQUARE( 6-8,-} - 6-2$pDRAW PICTUREz##INDEX=INDEX OF SQUARE TO DRAWPICT=PICTURE CODE&&6-P:+&@,'@,-}$@776-@%@$++&@,&@$'@,6-$@&@ -(7<%@,#-%-}@#(7<%@,#-%@#(7<%@,$X$$CHECK IF DONE(NO MATCHES LEFT)b6-l--}@@)q8,"Ap`v-%@@0{8,"ApP,)8,"@)8,"@)-}8,"8,,$  6-@NO MATCHES$'7-@@ -(Q:,Q:@,7 AD:C-}ONCENuU NAME1NAME2BOARDSCOREPICT1PICT2PICT3ASKNAMEINICKDONDONTURPLAYEINDEPICDRAPICFACTOINUMBE, ^ASTDV@@AAA< @mmĠϠ1}ŠŠŠ ͠ŠԠ٠ Р SOUNDSTICK WRITTEN BY: 1}T MITCHELL JR. 2/14/81(FOR JOYSTICK #12&&9@,9@,9@,<-@F068,-1}!68,-068,-P Z+@%@d6-R:,n6-T:,x6-&@}"1}6-%@"@6-__AAAAAAAAA1}AA28,8,8,,@@(@ ,@@""(@1}TONE =8, ,@@(((@ 8, ,@@$$(@volume =1}8, d08,@10@8,@H0@8,@d0@@$@ A1}8,"A 68,-8,&@"$,8,"@A 668,-8,%@@$1}8,"@A 68,-8,%@$8,"A 68,-8,&@N$X81},"A b68,-8,&@l$8,"AUA68,-8,%@ $ D:SOUNDST1}K"A b68,-8,&@l$8,"AUA68,-8,%@ $ D:SOUNDST0uv>CC5CCC1DDXDXHMSCCCCZDMSTDTYJSSSCGGGGGSSSSSTTLLLLLWWWWWWD5}ELAD?ffp>'7CD0P@@@vBd A6 @` CD  @A5}@"@"@"@"@"@"AAC@@1@wCDICPE!S!`E!!UE5}!!brBB BB!@"@"#@"$@"%CE9&@ '@(@S)@ *BB+ASiFQ,B9rS-@5}.@RS/@R0@RS1E!!b2CE934@5@%67AQ8Bf6UTeeĠϠŠŠŠ­5} ٠͠ŠƠɠР Šٮ AA*ASTRON 2* BY JAMES J. BRENNAN IN INTERFACE AGE AUGUST 15}977@(  ASTRON 22//A PROGRAM TO DO ASTRONOMICAL COMPUTATIONS< FINITIALIZE THE PROGRAMP5} AZ77GET THE REQUIRED INFORMATION FOR THE CALCULATIONSd A nUUCALCULATE THE NUMBER OF DAYS ELAPSED FRO5}M THE BASE DATE TO THE DATE IN QUESTION A0__CALCULATE THE JULIAN DATE (@ 0 HRS U.T.) FOR THE DATE IN QUESTION (5}@ GREENWICH LONGITUDE) A@ CALCULATE THE SIDEREAL DAY AP++CALCULATE THE GREENWICH SIDEREAL TIME5} A`PPCALCULATE THE GREENWICH MEAN TIME GIVEN THE LOCAL CIVIL TIME AND TIME ZONE ApDDCONVERT THE GRE5}ENWICH SIDEREAL TIME ACCOUNT FOR THE ACTUAL GMT ACONVERT GMT TO LMT A((CONVERT GMT TO LOCAL S5}IDEREAL TIME" B,**PRINT OUT THE DATA THAT WAS COMPUTED6 BINITIALIZATION SUBROUTINE6-?ffp5}6->'756-CD0PN6-@X6-@b6-@vl6-Bdq6-Bf6UTv6-A65}6-@`6-CD$00SUBROUTINE TO GET THE REQUIRED INFORMATION.. & ENTER THE YEAR, MONTH AND DAY OF TH5}E88 0DATE IN QUESTION. (DON'T FORGET THE COMMAS!) -&Add \ ENTER THE HOURS, MINUTES AND SECO5}NDS OF THE LOCAL CIVIL TIME. (DON'T FORGET THE COMMAS!)  11 (WHAT IS THE CIVIL TIME ZONE (PST OR PDT);5}@,VV N ENTER THE DEGREES, MINUTES AND SECONDSOF LONGITUDE OF THE PLACE IN QUESTION.*)) !(AGAIN, DON'T FO5}RGET THE COMMAS!)4 >$ ``ROUTINE TO CALCULATE THE NUMBER OF ELAPSED DAYS FROM THE BASE DATE TO THE DATE IN QUE5}STION 9@, ))31,28,31,30,31,30,31,31,30,31,30,31 6- !@A10+ ..P:'@,&+'@5},A100 6-@: -@@D "8,-X  b 6-8,&% -%@@5} 6-8,%   6- 6-%@ A3p ..P:'@,&+'@,"A3@ 6-%Ae5} A2e 6-%Af A2e* @A44 ..P:'@,&+'@,A4> 6-%@5}H -@&@R 6-8,%\  f 6-%p  "6-&Afu @6-&@1z $--5}SUBROUTINE TO CALCULATE THE JULIAN DATEccTHE JULIAN DATE FOR THE BASE DATE OF 10 AUGUST 1976 IS 2443000.5 AT 0 HOURS U.T.5} AT GREENWICH 6-%$hhSUBROUTINE TO CALCULATE THE SIDEREAL DATE IN TOTAL SECONDS AT 0 HOURS U.T. ON THE DATE IN5} QUESTION$$SD=2449690.0 ON 10 AUGUST 1976 6-$ 6-%$$p99SUBROUTINE TO CALCULATE THE GREENWICH SIDERE5}AL TIMEzeeTHE GST AT 0 HOURS U.T. ON THE BASE DATE OF 10 AUGUST 1976 WAS 21 HOURS, 14 MINUTES, 23.155 SEC(MEAN SIDER5}EAL TIME)''6-%+@!$%@$%@#P,$XIICALCULATE THE ACTUAL GREENWICH MEAN TIME FOR THE CIVIL TIME ENTER5}EDv6-$%$%@$$Au0PSTAv+ 4PST6-%@$+ADD 8 HOURS+ 4PDT65}-%@$+ADD 7 HOURS6-P:',6-&+$,6-P:',6-&+$, 6- $L>> 6THERE WAS AN ERROR5} IN THE CIVIL TIME THAT YOU ENTERED.V66 .PLEASE RE-ENTER THE LOCAL TIME IN HRS,MIN,SEC.`  Ap4PDT5}AqR R GRE-ENTER THE TIME ZONE. (IT CAN ONLY BE OR ):INPUT CZ$:GOTO 7080@LLSUBROUTINE TO CONVERT GREENWIC5}H SIDEREAL TO ACCOUNT FOR THE ACTUAL GMTT 6-%h16-P:',6-&+$,%6-P:',16-&+$,r 6-P:',6-&+$5}, 6-|$(#&&SUBROUTINE TO CONVERT GMT TO LMT<#6-$%$%P# 6-$d# 6-&x#6-P:',#6-&+$,#65}-P:',#6-&+$,# 6-#$'66SUBROUTINE TO CONVERT GMT TO LOCAL SIDEREAL TIME`'6-&&$j'6-P:',D5}AYSt'6-&+$,SEC REMAINING~'6-P:',HOURS'6-&+$,SEC REMAINING'6-P:',MIN'6-&+$,5}SEC REMAINING'* 6-*SECONDS OF LOCAL SIDEREAL TIME'$ N//SUBROUTINE TO PRINT OUT THE DATA COMPUTED*N    4N115} FOR THE CIVIL DATE   %A>N// AND THE CIVIL TIME :: HN##  AT LONGITUDE ::5}RN** "THE FOLLOWING INFORMATION APPLIES:WN-@AP ZN 6-%@$[N@$6-&@$5}\N3  3 %THE GREENWICH MEAN TIME (OR U.T.) IS aN ::dN 6-%@$eN@$6-&5}@$fN; ; THE GREENWICH SIDEREAL TIME IS ::P:,pN, , THE GREENWICH SIDEREAL DATE IS N  THE J5}ULIAN DAY IS N 6-%@$N@$6-&@$N. . #THE LOCAL MEAN TIME (CORRECTED FOR N:: 5} LONGITUDE :: ) IS ::P:,N' ' THE LOCAL SIDEREAL DAY IS N 6-%@$N75} 7 THE LOCAL SIDEREAL TIME IS ::P:,N D:ASTRONOMYCGGGGGSSSSSTTLLLLLWWWWWWD4LtuM!!IIPIHMAINNAOINXPEKIINYXRROFZWRITRAGWQDSSEEKPEELSPASPDDS9}BJBHBBsD@2@Bh@ @ A A 9}@1@A @@A6 AUlA{ B9}t B! "@#@ $@%AQ&'(@)*+@,YZ-Aa9}.@/@ 0@A1!@2@3@45Q6@7o 89:'NUMLINE' by: Mik9}e DamasCC(C)1980 Macomb Intermediate School District @@K:6-B6-69}A hh9@,9@,;@,9@,;@,;@,9@,;@0,;@,cc6.Y9} U S  A   (-@@0$67<,.( 9}1 +AR@1A#9A'@9A A(%%6-F:A`,%F9}:Aa,$AV2))6-F:%@,%F:%@,$AV39-6-@%F:AA,%F:AB,$AV9@#42-9}@2(5 -@6@<-@%$@@ A(c2@R9}@@w-@@{ 2-@@  6-@0@(9}.-@@P2AT@@b-@@ i(0}-@@ 7%29}7-@@ >( R-@@V Z l-@@ s(0-@AP 8 9}-@@6@,-@01(g2+%@,$@%@@$@k 29}9---( number line: A ;[-@A` %+7AR@I9}A[A A<)-@%%@ ) =H-@@&68,-568,-9}D68,-H >6-6-H(@uI@+6-P:H:,$+&@$%@,,@'P:',@s9}J @vK##6-P:H:,$+&@$,,L%%6-P:H:,$@,%@M-@N4%6-P:H:,9}$@,%@48,@xO68,-@ P:-@@-6-%@:68,-%$Q1!-+%@9},$@@-(1 R-@@S-$@&@@T8,@U (8,V 9}W9-@9(Press 'BACK S' to erase number-@:%6-P:H:,$@,%@:(8,)8,9}A68,-@&-$@&@@&( A A2A:,"8, +-$@&@9}@+( A6|6-@U-$@%&@ &@$+"@,%@$+"@,@9}d( TRY AGAINx-@AP| bI-$@%&@ &@$+"@,%@$+"@,@X( 9}b A6-!-@@B(The correct answer is 8,V-@APZ l-@6@w( 9} -@6@f (8,2-@6$@&@6@>-@J(8, ^-@@&b f 9}-@@P 8-@@6@N-$@&@V(8,t-$@&@%@( 9}  0-@@0( 6-%@ 9-@9( 9} x-@@6(Press 'RETURN' to continue.H-@@f(Press 'S' to check score.xAdA9}U F:Ad,"@bA`33F:Ad,"AU)F:Ad,"@bAV)@' @Y +9}AR@&(8A AUJA@\A@h6. %|-@%@9}  @n-@@%%@ ) T67@<@,.=:P:'+%,$A,,Z6.n-@9}@6-@:7<,, A 6-6A@6.CORRECT2-@@@6-@:7<,,J AN [69}-6A m-@@(Do you want to ... -@@@(%A) Change the increment and continue.R-@9}@|($B) Continue with the same increment.-@@ \(C) Stop the program./-@@J(TYPE '9}A','B', OR 'C' \AdAU  F:Ad,"AUAg  F:Ad,"@!@Y  F:Ad,"@A9}P F:Ad,"@c@0 Ah Ah F:Ad,"@C@Y" +AdAU9}"#6-@6. #6-AdAUm>F:Ad,"AU)F:Ad,"@9)F:Ad,"@`\-9}$@%&@@c(m AI!-$@%&@@(( 5)@I"AUA"9}A&A "@A++ @F)!@W)"@GA76-%@/-$@%&@@9}7(>:,67<,.>:, Am>F:Ad,"AU)F:Ad,"@9)F:Ad,"@`\-$@%&@@9}c(m A A4-$@&@@*( 4 A6-%@ A. A9}AdAU.6.7@,$&` +A3%@ @"G%@!@#YAR@9}`((<-@@(<2A8@$@)-@A *0-@@)-9}0(+_92+@&,$@%@@$@= _2,,-@9}@!,( have a nice day--@3@!(.T-@)-@A- ?AdAU9}QART/ AY#6-@6. #6-AdAUW>F:Ad,"AU)F:Ad,9}"@9)F:Ad,"@`F-%M(W A1 -( )@1"AUA"A&A 9}"@A++ @F)!@W)"@GA)6-%@!-%&@)(>:,67<,.>:,9} AW>F:Ad,"AU)F:Ad,"@9)F:Ad,"@`F-%M(W A A'-%@9}( ' A6-%@ A @-%B:,(  A1AdAU@6.7@,!$9}//6-+%A`%,%%P:@'B:,,&@6-Bp%$@-@@%$@F:%, 9}$--@$@!6-@-6-@J@(7Input the incrementyou want to use =J A9} A 6-A:,6- P:,6-@ A 6-A:,!!?* AfA h-@$9}@>(#The increment must be >.1 and <1666R-@AV h-@$@L1((  9} 7-B( L A 6-@!-@$@i(5Do you wish to use only mul9}tiples of  ? (Y/N){AdAU A0@Y-@$@!6-@-6-@ Y(Input the largest numbe9}r ( >@$^^( ) you 7@N-6.SUPER !#AAH- BPHN"6.GOOD !"AA:}8RN"-@B:,"6-@:7<,,\N A ]N--@AP -A^N?6. #-:}@B:,16-@:7<,,; A? fN AP D:NUMBERLIOFZWRITRAGWQDSSEEKPEELSPASPDDS8G F NBCEDG  ( 2 < GG;@ ,;@,;@,;>}@,;@,;@,  HELLO9 +'0@9AR@'' CON>}VERSATIONAL COMPUTER PROGRAM( ( ((( 88 0HELLO! MY NAME IS CONVERSATIONAL COMPUTER.&( ( WHAT'S YO> }UR NAME#& <  HI THERE, ,<(ARE YOU ENJOYING YOURSELF HERE(  24YES@p74NO@> }<;;  $ I DON'T UNDERSTAND YOUR ANSWER OF '' .APF =PLEASE ANSWER 'Ӡ' OR 'Ϡ'. DO YOU LIKE IT > }HEREP @@F(% I'M GLAD TO HEAR THAT, .( K AP;* OH, I'M SORRY TO HERE THAT, ,;( MAYBE WE C> }ANU%% BRIGHTEN UP YOUR VISIT A BIT.d iG SAY, ,G(.I CAN SOLVE ALL KINDS OF PROBLEMS EXCEPT nI" T> }HOSE DEALING WITH GREECE.I("WHAT KIND OF PROBLEMS DO YOU HAVE?x// &(ANSWER ؠ,Ƞ,٠Ҡ )}>}4SEXA4HEALTHA4MONEYA`4JOBAE77 OH, , YOUR ANSWER OF  IS >}GREEK TO ME. AP88 I CAN SYMPATHIZE WITH YOU . I HAVE TO WORK;; 3VERY LONG HOURS FOR NO PAY -- AND SO>}ME OF MY BOSSES<< .REALLY BEAT ON MY KEYBOARD. MY ADVICE TO YOU, ,== 5IS TO OPEN A RETAIL COMPUTER STORE. IT'S>} GREAT FUN. AP77 SORRY, #, I'M BROKE TOO. WHY DON'T YOU SELL:: 2ENCYCLOPEDIAS OR MARRY SOMEONE RICH OR>} STOP EATING((  SO YOU WON'T NEED SO MUCH MONEY? AP"" MY ADVICE TO YOU  IS:  1. TAKE TWO >}ASPRINOO G 2. DRINK PLENTY OF FLUIDS (ORANGE JUICE, NOT BEER!)""  3. GO TO BED (ALONE) >}AP>" IS YOUR PROBLEM ϠȠ7(OR ϠŠ;> 4TOO MUCHA 4 TOO LITTLEA0>}<< DON'T GET ALL SHOOK, , JUST ANSWER THE QUESTIONB4 +WITH 'TO MUCH' OR 'TOO LITTLE'. WHICH IS IT8B A>}AA 9YOU CALL THAT A PROBLEM?!! I SHOULD HAVE SUCH PROBLEMS!55 IF IT BOTHERS YOU, , TAKE A COLD SHOWER. A>}P// WHY ARE YOU HERE, ? YOU SHOULD BEAA 9IN TOKYO OR NEW YORK OR AMSTERDAM OR SOMEPLACE WITH SOME   >}REAL ACTION. .. #ANY MORE PROBLEMS YOU WANT SOLVED,   4YESA4NOA22 $JU>}ST A SIMPLE 'YES' OR 'NO' PLEASE, . AU11 (WHAT KIND (ؠ,٠,Ƞ, ) A%, .1>}1 #THAT WILL BE $5.00 FOR THE ADVICE, .1// 'PLEASE LEAVE THE MONEY ON THE TERMINAL.3-@A  6 (>} ( (; DID YOU LEAVE THE MONEY@  (E4YESAPJ4NOApO22 YOUR ANSWER OF '' CONFU>}SES ME, .T8. &PLEASE RESPOND WITH 'Ӡ' OR 'Ϡ'.8 A^// HEY, ??? YOU LEFT NO MONEY AT ALL!cAA 9>}YOU ARE CHEATING ME OUT OF MY HARD-EARNED LIVING.h00  RIP OFF, **************************m Ar33 >}THAT'S HONEST, , BUT HOW DO YOU EXPECTw== 5ME TO GO ON WITH MY PSYCHOLOGY STUDIES IF MY PATIENTS| DON'T PAY TH>}EIR BILLS?0( (0 "NOW LET ME TALK WITH SOMEONE ELSE.!! NICE MEETING YOU, .  @ D2:DIAL> }OGUEF NBCEDG  ( 2 < GG;@ ,;@,;@,;<J] o XSTEPYSTEP@@. PROGRAM ETCH-A-SKETCH. B"} BY PAM YOCUM, 9/4/80"". THIS PROGRAM SIMULATES AN##. ETCH-A-SKETCH USING A JOY-. STICK TO DRAW THE LIB#}NE$. VARIABLES.. *********8$$. XSTEP()..ARRAY FOR X-AXISB. INCREMENTSL$$. YSTEB$}P()..ARRAY FOR Y-AXISV. INCREMENTS`"". X,Y......X & Y COORDIN.j##. I,J......INDEX VARIABLESo""B%}. S........VALUE RETURNEDp. BY STICK(0)t~"". SET UP INITIAL CONDITIONS"". ****************B&}*********9@ ,9@ ,0@@ @++@%@,(6-A`(***STAB'}RTING X LOCATION(6-@(***STARTING Y LOCATION$$. SETTING UP ARRAYS FOR X & Y%%. INCREMENTS. SUBSCRB(}IPTS REFER. TO JOYSTICK POSITIONS.##. **************************-68@,-@-68@,-@.B)}68@,-@.68@,-6@ -68@,-@-68@,-.68@ ,-6@.68@ ,B*}-@/68@,-6@/68@,-6@(.68@,-6@.68@,-2-68@,-B+}-68@,-@<.68@,-.68@,-6@F-68@,--68@,-KL!!.B,} TO TURN WARNING BEEP OFFM!!. ************************P%%2QS##. TESTING TRIGGEB-}R BUTTON. IFT$$. BUTTON PUSHED ERASES SCREENU. TO START OVER.V$$. ***************************Z T:,"B.}Ad6-R:,nx$$. DETERMINING INCREMENTS FOR X##. & Y AND PLOTTING NEW POINTS$$. ********B/}********************6-%8,6-%8," A"***CHECKING OUT OF . BOUNDS ERROR , B0} Ap. THE FOLLOWING LINES ARE##. EXECUTED IF TRY TO MOVE OUT"". BOUNDS WHEN DRAWING ON THE"". SCRB1}EEN. THE LAST POINT IS $$. MOVED BACK IN BOUNDS AND THE##. WARNING SOUND IS ACTIVATED.##. THE FOR-NEXT LOOPS ARE B2}USED$$. TO DETERMINE LENGTH OF WARN-""". ING BEEP (J) AND CAUSES IT, . TO FADE IN INTENSITY (I)6##. ***********B3}****************@6-&8,6-&8,T -@6@^-@@c h2A6B4}@r | A` D:ETCHSKCH. PROGRAM ETCH-A-SKETCH. @623+CS1SRAPZYMFNR1TRKRTF6}@ F7}IIŧӠɠҠέ Ӡ͠F8}Š""@@K {{;@ ,;@6,;@,9@<@ ,;@6,;@6,F9};@6,;@,;@,;@,0@Z6.BILLMARYPAULSUZYJOHNd..6.$LOUNGEATRIUMLIF:}VINGDININGTROPHYGARAGEi An'$6.7+&@,$%@<$,'$x-@ 6.6-6- AF;}0Ap 6- A 6-$1 (}-@@1(Ҡ׭U+(#Bill, F<}Mary, John, Suzy, & Paul areU(%house guests. Their host was murderedQ)(!by one of them between 1 PM 9 PM.Q(#Your job F=}as inspector Clew-So is toP*("find the killer, time, & room. YouP(!will be given a floor plan of theT,($house and aF>} set of questions for theT(#suspects, but the guilty person mayP+(#try to mislead you by lying some ofP( the time. IfF?} one of the suspectsV,($claim that the host was already deadV(%or that the host was still alive, you=,($have found F@}the room where the murder=( took place.L)(!When asking questions, be sure toL(enter data in UPPER CASE only.66FA}-6-@-@@" BJ''( T''( | \ Trophy / GaraFB}ge |^''( |Dining   |h''( | | |r''( / | | ||'FC}'( |Living | ''( |   |''( | / Atrium / Lounge |''( FD}\/U.(&Note that only rooms which have doorsU("(marked '/' or '\') are consideredS+(#adjacFE}ent. When a suspect says he orS(#she was 'with' someone, this means P(( that they were in the same room.P(#When a susFF}pect says he or she 'saw'T+(#someone, that means that person wasT($in an adjacent room. It is suggestedS*("that youFG} have a note pad to recordS($the answers to the questions you aske,($of your suspects. If you wish to endV(%the game,FH} enter the 'totally baffled'e( option.  BH-@@D68<@,-P:@$H:@,,%@FI}H -@@ -@@%%6-P:@$H:@,,%@"8<&@,A68FJ}<,- & DR%6-P:@$H:@,,%@G6-P:@ $H:@,,%@R6-8<,b5 A1(InspecFK}tor, who is your suspect5l7 6.6.6-@'6-@1 A 76-v"A--(}Do you wiFL}sh to question  about:C*(" 1 - The suspects whereabouts at aC( particular timeA+(# 2 - What time the suspFM}ect was in aA( certain room ( 3 - The crime is solved A@(Which!! @)!@A@FN}6-%@A A A (, ) A %(where were you at )+ A@+ @FO})!@ A 6-8<,A` H:@, ?PA  %%6-P:@$H:@,,%@*FP} H:@, ?PA@4""(The host was already dead.> A H!!(Our host was still alive.R A \FQ}"Af A p H:@, ?PA z'  '(The host was still alive.( !((The host was FR}already dead.E( I was in the 6."6-.6-@8 AE( room.-@@"A `FS}8<,A P; 6.6-6-@% A;( I was with .!!O:&8<,,@A `6 6.6-FT}6-@% A6(I saw .  A($(, when were you in [room](7 6.6.6-@FU}'6-@1 A 76-"A A H:@, ?PA%%6-P:H:@,$@FV},%@$ A.$ "$(I wasn't in that room.8 AB (I was in that room at L AVFW}6-`-@@ j8<,A`t (I was in that room at ~6-@ *"FX}*(I wasn't in that room. A6-%@))(!Inspector, do you think you know:( 1 - Killer(2FY} - Room(3 - Time(4 - Totally baffled A(Which1 A1ApA APAPFZ}( The killer is7 6.6.6-@'6-@1 A 76- "A3 6.6-6F[}-@% A30A0(You have the killer.(6-@2%%"@A< AF) APF\}%(Time of the murder)P!! @)!@ APZA0d, (You have the right time.,6-@F]}x%%"@A A(Room of the murder7 6.6.6-@'6-@1 A 76-F^}"A 3 6.6-6-@% A30A0&(You have the room.&6-@%% F_}@A,,($You are brilliant Inspector Clew-So.>'( It took you  questions and>( confrontations. F`} AM-(%Inspector Clew-So, you are a bumblingM(idiot. Try again, you fool! A##(Too bad, InspectorFa} Clew-So.(The facts are:"< 6.6-6-@% A<( killed the host'M(at  PM in the "6.Fb}(6-46-@> AM( (room).6.*(!Do you want a new case, Inspector.@7@<@,4Y% Fc}(} '#( #)@' (} $D:CLEWSODHLMmMSMTWTHFSAZZZZSXMXTXWXTHXFXSAXAYDATAYYALJe} Jf} !"#Jg}ooŧӠɠҠέ Ӡ͠Š ӠҠ;@Jh},6-A;@,;@,;@,D;@,;@,*;@,7;@,D;@Ji}, A` L +#(:("ŠϠŠҠ͠LAd@3 N(( Jj}B0@@@N6- 77(/ THE COMPUTER CAN DISPLAY ANY MONTH SELECTED *(*(ҠJk}ԨӠҩ(ΠҠŠҠ( 2,1979 (((נҠȠĠҠ J2@Jl}@@@^-@@@b 2@(T 6-@6.--'6.-Jm}-06.--96.--B6.--K6.--T6.--"A(>:A%,T AS9 % THE GREGORIAN CALENDER DID NOTJn} BEGINJ( UNTIL 1759 T @"@6.JANUARY(("@6.FEBRUARY( A2"@6.MJo}ARCH<%"@6.APRIL% AF"@6.MAYP$"@6.JUNE$ AZ"@6.JJp}ULYd"@6.AUGUSTn)"@ 6. SEPTEMBER) Ax"@6.OCTOBER("@6.NOJq}VEMBER( A"@6.DECEMBER''(!!(  $$(Jr}Ӡ͠ԠנԠƠ$$(-P:?`%@', -&-%@$Js}-'A -P:'@, -P:,-P:+@$,'@,(&&-P:@$+%@,'@,2-%Jt}&%%&@<((-&+@$P:'@,,%@B@AQF??AQAQAQAQARJu}ARARH" Aa""4..AUJ"4..AU L"4..AU0N"4..AU@PJv}"4..AUPR"4..AU`T"4..AUpUC9(      Jw}C AQZZ9(      Z([ Aa A`Jx}|bb01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31..,..,..,..,..,..,..Jy}__01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30..,..,..,..,..,..,..YYJz}01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28..,..,..,..,..,..,..C 6...6J{}...6...'6...06...96...C AR\\01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20,21,22,23J|},24,25,26,27,28,..,..,..,..,..,..,..: 6...6...6...'6...06...: AR1 6...6...J}}6...'6...1 AR( 6...6...6...( AR 6...6... AR 6... AR J~}ARp88(0ϠՠԠϠ٠ҠȠu F:Ad,"@CA` v F:Ad,"@(A` J}wCF:Ad,"@5,+Ad,@39(>:A%,C @ x A`y&6-@#&+Ad,@3zZ J}( -@@J(% N Z(( ( @Z( (:(, YOUJ} WILL RETURN TO MENU IN ABOUT 10 SECONDSN-@AR Z%D:M6-%@%d'2@A&@@J};-@@@? a2@d$@"-@@8" "$(#-AVA X@J},# " AP-# 2#-@@u" <#$Z#"-@A" "$d#_+@%@'-J}@@=(@Q-@AU _+n#*( ( (*( YOU CAN FIND OUT WHICH x#K( DAJ}Y A GIVEN DATE IS ;( OR DISPLAY ANY MONTHLYK( CALENDER.y#Z( ( (.(TYPE ' D '(DAY) OR 'M'(MONTH)1(4(7(:(Z(J}Push to return to MENU z#(F:Ad,"@7(( @{#*F:Ad,"@X (* B|# F:AdJ},"@( %D:M}# A'9 @'0@@@9Ad@3'(>:A%,'DAY OF WEEK CALCJ}8'..(& <'((((THIS PROGRAM COMPUTES THE DAY='*(*(OF THE WEEK(E.G., MONDAY ) FJ}ROM?'&(&( THE DAY ENTERED. THE DATEA'-(-("ENTERED MUST NOT BE PRIOR TO 1753,B'+(+( THIS IS DUE TO CHANGES INVOLJ}VINGD'*(*(THE SWITCH-OVER FROM THE JULIANF'%(%(TO THE GREGORIAN CALENDER.G'-@A H' ( ( (H+J}&&(INPUT DAY(D),MONTH(M), YEAR(Y)J+:(:(/EXAMPLE 30 AUGUST 1980 ..D=30, M=08 , Y = 1980 K+-(-(" YOU WOULD PRINT ' 3J}0,08,1980' L+$((NOW INPUT YOUR DATE!($(M+3,($ 3(N+/ (% AJ}RBI/ BR+-P:?`%@',\+ -&f+-%@$z+-P:'@,+ -P:,+-P:+@J}$,'@,+&&-P:@$+%@,'@,+-%&%%&@+((-&+@$P:'@,,%@+CJ}-@@?(#C +S(( THE DAY ISSBBBBBJ}BB+s-@@C2@@V@@%'@G i2@J}s B+(SUNDAY B+(MONDAY B+(TUESDAY B+( WEDNESDAY B+(THURSDAJ}Y B+(FRIDAY B+(SATURDAY B+,,($+D-@@J}@($D + ( (+D-@@@($D J}+++(#DO YOU WANT TO ENTER ANOTHER DATE ?+.( (.( TYPE ,, OR (ESCAPE TO MENU)+HF:Ad,"@C*AdJ}@37(>:A%,>(H B+HF:Ad,"@5*Ad@37(>:A%,>(H Ap+WF:Ad,"J}@(%(>:A%,9-@@PK( ĭŠO W%D:M+ B B,$ D:CALENDARHl